constants [[npix 24]
	    [pina $39]]


to whirl
let [addr 0]
repeat 24 [dot :addr 30 make "addr :addr + 1 wait 1 redraw]
end

to blink
loop [all 10 redraw
wait 1
all 40 redraw
wait 1]
end

to all :n
let [addr 0]
repeat npix [dot :addr :n make "addr :addr + 1]
redraw
end

define ao [] [alloff redraw]