$puts(Len,5)
$puts(PChar,•)
$puts(Cnt0,$mod(%_time_elapsed_seconds%,$add($get(Len),1)))
$puts(Phase,$add($div($mod(%_time_elapsed_seconds%,$mul($add($get(Len),1),2)),$mul($add($get(Len),1),1)),1))
$puts(Cycle1,$add($div($mod(%_time_elapsed_seconds%,$mul($add($get(Len),1),4)),$mul($add($get(Len),1),2)),1))
//from 1 to 7
$puts(Cycle2a,$add($div($mod(%_time_elapsed_seconds%,$mul($add($get(Len),1),28)),$mul($add($get(Len),1),4)),1))
$puts(Cycle2a,$add($get(Cycle2a),$select($get(Cycle1),0,1)))
$puts(Cycle2a,$ifgreater($get(Cycle2a),7,1,$get(Cycle2a)))
//from 1 to 6
$puts(Cycle2b,$add($div($mod(%_time_elapsed_seconds%,$mul($add($get(Len),1),24)),$mul($add($get(Len),1),4)),1))
$put(Cola,$select($get(Cycle2a)
,FFEBBF|FFEBBF
,4FA7FF|4FA7FF
,80FF80|80FF80
,FBAAFB|FBAAFB
,80FFFF|80FFFF
,FFD2D5|FFD2D5
,E1E1E1|E1E1E1
,FFFFFF|FFFFFF))
//$get(Cycle2a)
$put(Colb,$select($get(Cycle2b)
,E1E1E1|E1E1E1
,80FF80|80FF80
,FBAAFB|FBAAFB
,FFEBBF|FFEBBF
,80FFFF|80FFFF
,FFD2D5|FFD2D5
,4FA7FF|4FA7FF
,FFFFFF|FFFFFF))
//$get(Cycle2b)
//$puts(Colz,0000A0|008000)
$puts(Colz,006000|800000)
$puts(Col1,$select($get(Phase),$select($get(Cycle1),$get(Cola),$get(Colb)),$get(Colz)))
$puts(Col2a,$select($get(Phase),$get(Colz),$select($get(Cycle1),$get(Colb),$get(Cola))))
$puts(Col2b,$select($get(Phase),$get(Colz),$select($get(Cycle1),$get(Cola),$get(Colb))))
// Formatting
$if(%_isplaying%,$transition($repeat($get(PChar),$get(Cnt0)),$blend($get(Col1),$get(Col2a),$min($get(Cnt0),$sub($get(Len),1)),$get(Len)),$blend($get(Col1),$get(Col2a),1,$get(Len)))$get(Col1)$get(PChar)$transition($repeat($get(PChar),$sub($get(Len),$get(Cnt0))),$blend($get(Col1),$get(Col2b),1,$get(Len)),$blend($get(Col2b),$get(Col1),$max($get(Cnt0),1),$get(Len))),)