######################################################################
# Breathe
# sequence stolen from https://www.youtube.com/watch?v=pzt8l3EhPOU
sub breathe() {
    my @frames = (
        20,  21,  22,  24,  26,  28,  31,  34,  38,  41,  45,  50,  55,  60,
        66,  73,  80,  87,  95,  103, 112, 121, 131, 141, 151, 161, 172, 182,
        192, 202, 211, 220, 228, 236, 242, 247, 251, 254, 255, 254, 251, 247,
        242, 236, 228, 220, 211, 202, 192, 182, 172, 161, 151, 141, 131, 121,
        112, 103, 95,  87,  80,  73,  66,  60,  55,  50,  45,  41,  38,  34,
        31,  28,  26,  24,  22,  21,  20,  20,  20,  20,  20,  20,  20,  20,
        20,  20,  20,
    );
    # my $time=5000; # 5 seconds

    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
    foreach(@frames) { fhem("set HUEDevice1 bri $_") };
}