REM NeoPixel demo for MachiKania type P
REM Rotate color circle

USECLASS WS2812B
N=144:REM The number of LEDs
L=NEW(WS2812B,N,0)
M=N/3
FOR I=0 TO M-1
 A=I*64/M
 L.SETLED(I,A,64-A,0)
 L.SETLED(I+M,64-A,0,A)
 L.SETLED(I+M*2,0,A,64-A)
NEXT

DO
 L.PUTLED()
 FOR I=1 TO N-1
  L.CPYLED(I,I-1)
 NEXT
 L.CPYLED(0,N-1)
 DELAYMS 20
LOOP