��display
�err$:err$="Display"
XR%=0:YR%=0:�
(=ȗX%,Y%,Z%:ȗ�640,512:YR%=YR%+X%-640�M%:XR%=XR%+Y%-512�M%
2&type%=�(0)-64:�type%>=1�type%<=26�
<	*FX21
F,DA%=0:TA%=0:�XR%>=512�A%=XR%-1024�A%=XR%
P'�:�identity:�xrot(A%�M%):�yrot(YR%)
Z+J%=matrix%:�fill(8):�draw:�goto:�A%=TA%
d,DA%=0:TA%=0:�YR%>=512�A%=YR%-1024�A%=YR%
n�:�identity:�yrot(A%�M%)
x+J%=matrix%:�fill(8):�draw:�goto:�A%=TA%
��preset(type%):XR%=0:YR%=0
��
�#�identity:�xrot(XR%):�yrot(YR%)
�J%=matrix%:�fill(8):�draw
��
��0
��
�:
���preset(type%)
��err$:err$="Display"
�Ȏtype%�
��1:
�� Y-axis spin

A%=0:DA%=0:TA%=64:�

�identity:�xrot(A%)

J%=matrix%:�fill(8):�draw

"�goto:�A%=TA%

,A%=0:DA%=0:TA%=1<<10:�

6$�identity:�yrot(A%�M%):�xrot(64)

@J%=matrix%:�fill(8):�draw

J�goto:�A%=TA%

TA%=64:DA%=0:TA%=0:�

^�identity:�xrot(A%)

hJ%=matrix%:�fill(8):�draw

r�goto:�A%=TA%

|�2:

� � X-axis spin, with a wobble

�A%=0:DA%=0:TA%=1<<10:�

�(�identity:�yrot(DA%<<3):�xrot(A%�M%)

�J%=matrix%:�fill(8):�draw

��goto:�A%=TA%

��3:

�� 2nd level wibble

�A%=0:DA%=0:TA%=6<<10:�

��identity:�xrot(A%/6�M%)

�J%=matrix%:�fill(1)

�0�yrot(A%/3�M%):�xrot(A%/2�M%):�zrot(A%/6�M%)

��fill(7):�draw

��goto:�A%=TA%
�4:
$� Alternating Y- and X-rotations
�A%=0�M%�16
&�identity:�yrot(A%)
0J%=matrix%:�fill(1)
:�identity:�xrot(A%)
D.�fill(1):�T%=0�47:!J%=J%!-64:J%+=4:�:�draw
N�
X�5:
b7� 1 & 2 do a slow wobble, the rest do a fast wobble
l�A%=0�M%�4
v&�identity:�xrot(2*A%�M%):�yrot(A%)
�J%=matrix%:�fill(2)
�:�identity:�zrot(4*A%�M%):�xrot(2*A%�M%):�yrot(5*A%�M%)
��fill(6):�draw:�
��6:
�1� Level 1 does a wobble, the rest spin slowly
�A%=0:DA%=0:TA%=4<<10:�
�,�identity:�xrot(A%>>2):�zrot((A%>>1)�M%)
�J%=matrix%:�fill(1)
�)�identity:�yrot(A%>>2):�fill(7):�draw
��goto:�A%=TA%
��7:
�0� Triangle, then all but level 1 do a wobble
�A%=0:DA%=0:TA%=256:�
!�identity:�xrot(A%):�zrot(A%)
J%=matrix%:�fill(8):�draw
�goto:�A%=TA%
 A%=0:DA%=0:TA%=4<<10:�
*7�identity:�xrot(256):�zrot(256):J%=matrix%:�fill(1)
49�identity:�xrot(256+(A%>>1)�M%):�zrot(256+(A%>>2)�M%)
>�fill(7):�draw
H�goto:�A%=TA%
RA%=256:DA%=0:TA%=0:�
\%�identity:�xrot(-A%�M%):�zrot(A%)
fJ%=matrix%:�fill(8):�draw
p�goto:�A%=TA%
z�8:
�;� Progressive splits, followed by simultaneous recovery
��B%=0�3
�.A%=0:DA%=0:TA%=1<<9:�:J%=matrix%:�identity
�7�B%>0��C%=0�B%-1:�xrot(1<<7):�zrot(1<<6):�fill(1):�
�/�xrot(A%>>2):�zrot(A%>>3):�fill(8-B%):�draw
��goto:�A%=TA%:�
�&�A%=1<<7�0�-2:J%=matrix%:�identity
�#�xrot(A%):�zrot(A%>>1):�fill(1)
�#�xrot(A%):�zrot(A%>>1):�fill(1)
�#�xrot(A%):�zrot(A%>>1):�fill(1)
�#�xrot(A%):�zrot(A%>>1):�fill(5)
��draw:�
��9:
+� Fast spin with slow spin superimposed
A%=0:DA%=0:TA%=1<<14:�
,�identity:�xrot((A%>>1)�M%):�zrot(A%>>4)
$J%=matrix%:�fill(8):�draw
.�goto:�A%=TA%
8�10:
B� Slow tumble
L�A%=0�M%�4:�identity
V&�xrot(A%):�yrot(2*A%�M%):�zrot(A%)
`J%=matrix%:�fill(8):�draw:�
j�11:
t?� Triangle, with alternate levels going opposite directions
~A%=0:DA%=0:TA%=256:�
�!�identity:�xrot(A%):�zrot(A%)
�J%=matrix%:�fill(8):�draw
��goto:�A%=TA%
�3A%=0:TA%=0:�U%=1�4:DA%=0:TA%+=1<<9:�:J%=matrix%
�5�identity:�xrot(256):�zrot(256+A%/12�M%):�fill(1)
�5�identity:�xrot(256):�zrot(256-A%/12�M%):�fill(1)
�%�T%=0�47:!J%=J%!-64:J%+=4:�:�draw
��goto:�A%=TA%:�
�A%=256:DA%=0:TA%=0:�
�%�identity:�xrot(A%):�zrot(-A%�M%)
�J%=matrix%:�fill(8):�draw
��goto:�A%=TA%
�

�
�

00000000  0d 00 0a 0d dd f2 64 69  73 70 6c 61 79 0d 00 14  |......display...|
00000010  18 ea 65 72 72 24 3a 65  72 72 24 3d 22 44 69 73  |..err$:err$="Dis|
00000020  70 6c 61 79 22 0d 00 1e  11 58 52 25 3d 30 3a 59  |play"....XR%=0:Y|
00000030  52 25 3d 30 3a f5 0d 00  28 3d c8 97 58 25 2c 59  |R%=0:...(=..X%,Y|
00000040  25 2c 5a 25 3a c8 97 b8  36 34 30 2c 35 31 32 3a  |%,Z%:...640,512:|
00000050  59 52 25 3d 59 52 25 2b  58 25 2d 36 34 30 80 4d  |YR%=YR%+X%-640.M|
00000060  25 3a 58 52 25 3d 58 52  25 2b 59 25 2d 35 31 32  |%:XR%=XR%+Y%-512|
00000070  80 4d 25 0d 00 32 26 74  79 70 65 25 3d a6 28 30  |.M%..2&type%=.(0|
00000080  29 2d 36 34 3a e7 74 79  70 65 25 3e 3d 31 80 74  |)-64:.type%>=1.t|
00000090  79 70 65 25 3c 3d 32 36  8c 0d 00 3c 09 2a 46 58  |ype%<=26...<.*FX|
000000a0  32 31 0d 00 46 2c 44 41  25 3d 30 3a 54 41 25 3d  |21..F,DA%=0:TA%=|
000000b0  30 3a e7 58 52 25 3e 3d  35 31 32 8c 41 25 3d 58  |0:.XR%>=512.A%=X|
000000c0  52 25 2d 31 30 32 34 8b  41 25 3d 58 52 25 0d 00  |R%-1024.A%=XR%..|
000000d0  50 27 f5 3a f2 69 64 65  6e 74 69 74 79 3a f2 78  |P'.:.identity:.x|
000000e0  72 6f 74 28 41 25 80 4d  25 29 3a f2 79 72 6f 74  |rot(A%.M%):.yrot|
000000f0  28 59 52 25 29 0d 00 5a  2b 4a 25 3d 6d 61 74 72  |(YR%)..Z+J%=matr|
00000100  69 78 25 3a f2 66 69 6c  6c 28 38 29 3a d6 64 72  |ix%:.fill(8):.dr|
00000110  61 77 3a f2 67 6f 74 6f  3a fd 41 25 3d 54 41 25  |aw:.goto:.A%=TA%|
00000120  0d 00 64 2c 44 41 25 3d  30 3a 54 41 25 3d 30 3a  |..d,DA%=0:TA%=0:|
00000130  e7 59 52 25 3e 3d 35 31  32 8c 41 25 3d 59 52 25  |.YR%>=512.A%=YR%|
00000140  2d 31 30 32 34 8b 41 25  3d 59 52 25 0d 00 6e 1c  |-1024.A%=YR%..n.|
00000150  f5 3a f2 69 64 65 6e 74  69 74 79 3a f2 79 72 6f  |.:.identity:.yro|
00000160  74 28 41 25 80 4d 25 29  0d 00 78 2b 4a 25 3d 6d  |t(A%.M%)..x+J%=m|
00000170  61 74 72 69 78 25 3a f2  66 69 6c 6c 28 38 29 3a  |atrix%:.fill(8):|
00000180  d6 64 72 61 77 3a f2 67  6f 74 6f 3a fd 41 25 3d  |.draw:.goto:.A%=|
00000190  54 41 25 0d 00 82 1e f2  70 72 65 73 65 74 28 74  |TA%.....preset(t|
000001a0  79 70 65 25 29 3a 58 52  25 3d 30 3a 59 52 25 3d  |ype%):XR%=0:YR%=|
000001b0  30 0d 00 8c 05 cc 0d 00  96 23 f2 69 64 65 6e 74  |0........#.ident|
000001c0  69 74 79 3a f2 78 72 6f  74 28 58 52 25 29 3a f2  |ity:.xrot(XR%):.|
000001d0  79 72 6f 74 28 59 52 25  29 0d 00 a0 1d 4a 25 3d  |yrot(YR%)....J%=|
000001e0  6d 61 74 72 69 78 25 3a  f2 66 69 6c 6c 28 38 29  |matrix%:.fill(8)|
000001f0  3a d6 64 72 61 77 0d 00  aa 05 cd 0d 00 b4 06 fd  |:.draw..........|
00000200  30 0d 00 be 05 e1 0d 00  c8 05 3a 0d 00 d2 13 dd  |0.........:.....|
00000210  f2 70 72 65 73 65 74 28  74 79 70 65 25 29 0d 00  |.preset(type%)..|
00000220  dc 18 ea 65 72 72 24 3a  65 72 72 24 3d 22 44 69  |...err$:err$="Di|
00000230  73 70 6c 61 79 22 0d 00  e6 0c c8 8e 74 79 70 65  |splay"......type|
00000240  25 ca 0d 00 f0 07 c9 31  3a 0d 00 fa 11 f4 20 59  |%......1:..... Y|
00000250  2d 61 78 69 73 20 73 70  69 6e 0d 01 04 17 41 25  |-axis spin....A%|
00000260  3d 30 3a 44 41 25 3d 30  3a 54 41 25 3d 36 34 3a  |=0:DA%=0:TA%=64:|
00000270  f5 0d 01 0e 17 f2 69 64  65 6e 74 69 74 79 3a f2  |......identity:.|
00000280  78 72 6f 74 28 41 25 29  0d 01 18 1d 4a 25 3d 6d  |xrot(A%)....J%=m|
00000290  61 74 72 69 78 25 3a f2  66 69 6c 6c 28 38 29 3a  |atrix%:.fill(8):|
000002a0  d6 64 72 61 77 0d 01 22  11 f2 67 6f 74 6f 3a fd  |.draw.."..goto:.|
000002b0  41 25 3d 54 41 25 0d 01  2c 1a 41 25 3d 30 3a 44  |A%=TA%..,.A%=0:D|
000002c0  41 25 3d 30 3a 54 41 25  3d 31 3c 3c 31 30 3a f5  |A%=0:TA%=1<<10:.|
000002d0  0d 01 36 24 f2 69 64 65  6e 74 69 74 79 3a f2 79  |..6$.identity:.y|
000002e0  72 6f 74 28 41 25 80 4d  25 29 3a f2 78 72 6f 74  |rot(A%.M%):.xrot|
000002f0  28 36 34 29 0d 01 40 1d  4a 25 3d 6d 61 74 72 69  |(64)..@.J%=matri|
00000300  78 25 3a f2 66 69 6c 6c  28 38 29 3a d6 64 72 61  |x%:.fill(8):.dra|
00000310  77 0d 01 4a 11 f2 67 6f  74 6f 3a fd 41 25 3d 54  |w..J..goto:.A%=T|
00000320  41 25 0d 01 54 17 41 25  3d 36 34 3a 44 41 25 3d  |A%..T.A%=64:DA%=|
00000330  30 3a 54 41 25 3d 30 3a  f5 0d 01 5e 17 f2 69 64  |0:TA%=0:...^..id|
00000340  65 6e 74 69 74 79 3a f2  78 72 6f 74 28 41 25 29  |entity:.xrot(A%)|
00000350  0d 01 68 1d 4a 25 3d 6d  61 74 72 69 78 25 3a f2  |..h.J%=matrix%:.|
00000360  66 69 6c 6c 28 38 29 3a  d6 64 72 61 77 0d 01 72  |fill(8):.draw..r|
00000370  11 f2 67 6f 74 6f 3a fd  41 25 3d 54 41 25 0d 01  |..goto:.A%=TA%..|
00000380  7c 07 c9 32 3a 0d 01 86  20 f4 20 58 2d 61 78 69  ||..2:... . X-axi|
00000390  73 20 73 70 69 6e 2c 20  77 69 74 68 20 61 20 77  |s spin, with a w|
000003a0  6f 62 62 6c 65 0d 01 90  1a 41 25 3d 30 3a 44 41  |obble....A%=0:DA|
000003b0  25 3d 30 3a 54 41 25 3d  31 3c 3c 31 30 3a f5 0d  |%=0:TA%=1<<10:..|
000003c0  01 9a 28 f2 69 64 65 6e  74 69 74 79 3a f2 79 72  |..(.identity:.yr|
000003d0  6f 74 28 44 41 25 3c 3c  33 29 3a f2 78 72 6f 74  |ot(DA%<<3):.xrot|
000003e0  28 41 25 80 4d 25 29 0d  01 a4 1d 4a 25 3d 6d 61  |(A%.M%)....J%=ma|
000003f0  74 72 69 78 25 3a f2 66  69 6c 6c 28 38 29 3a d6  |trix%:.fill(8):.|
00000400  64 72 61 77 0d 01 ae 11  f2 67 6f 74 6f 3a fd 41  |draw.....goto:.A|
00000410  25 3d 54 41 25 0d 01 b8  07 c9 33 3a 0d 01 c2 16  |%=TA%.....3:....|
00000420  f4 20 32 6e 64 20 6c 65  76 65 6c 20 77 69 62 62  |. 2nd level wibb|
00000430  6c 65 0d 01 cc 1a 41 25  3d 30 3a 44 41 25 3d 30  |le....A%=0:DA%=0|
00000440  3a 54 41 25 3d 36 3c 3c  31 30 3a f5 0d 01 d6 1c  |:TA%=6<<10:.....|
00000450  f2 69 64 65 6e 74 69 74  79 3a f2 78 72 6f 74 28  |.identity:.xrot(|
00000460  41 25 2f 36 80 4d 25 29  0d 01 e0 17 4a 25 3d 6d  |A%/6.M%)....J%=m|
00000470  61 74 72 69 78 25 3a f2  66 69 6c 6c 28 31 29 0d  |atrix%:.fill(1).|
00000480  01 ea 30 f2 79 72 6f 74  28 41 25 2f 33 80 4d 25  |..0.yrot(A%/3.M%|
00000490  29 3a f2 78 72 6f 74 28  41 25 2f 32 80 4d 25 29  |):.xrot(A%/2.M%)|
000004a0  3a f2 7a 72 6f 74 28 41  25 2f 36 80 4d 25 29 0d  |:.zrot(A%/6.M%).|
000004b0  01 f4 12 f2 66 69 6c 6c  28 37 29 3a d6 64 72 61  |....fill(7):.dra|
000004c0  77 0d 01 fe 11 f2 67 6f  74 6f 3a fd 41 25 3d 54  |w.....goto:.A%=T|
000004d0  41 25 0d 02 08 07 c9 34  3a 0d 02 12 24 f4 20 41  |A%.....4:...$. A|
000004e0  6c 74 65 72 6e 61 74 69  6e 67 20 59 2d 20 61 6e  |lternating Y- an|
000004f0  64 20 58 2d 72 6f 74 61  74 69 6f 6e 73 0d 02 1c  |d X-rotations...|
00000500  0f e3 41 25 3d 30 b8 4d  25 88 31 36 0d 02 26 17  |..A%=0.M%.16..&.|
00000510  f2 69 64 65 6e 74 69 74  79 3a f2 79 72 6f 74 28  |.identity:.yrot(|
00000520  41 25 29 0d 02 30 17 4a  25 3d 6d 61 74 72 69 78  |A%)..0.J%=matrix|
00000530  25 3a f2 66 69 6c 6c 28  31 29 0d 02 3a 17 f2 69  |%:.fill(1)..:..i|
00000540  64 65 6e 74 69 74 79 3a  f2 78 72 6f 74 28 41 25  |dentity:.xrot(A%|
00000550  29 0d 02 44 2e f2 66 69  6c 6c 28 31 29 3a e3 54  |)..D..fill(1):.T|
00000560  25 3d 30 b8 34 37 3a 21  4a 25 3d 4a 25 21 2d 36  |%=0.47:!J%=J%!-6|
00000570  34 3a 4a 25 2b 3d 34 3a  ed 3a d6 64 72 61 77 0d  |4:J%+=4:.:.draw.|
00000580  02 4e 05 ed 0d 02 58 07  c9 35 3a 0d 02 62 37 f4  |.N....X..5:..b7.|
00000590  20 31 20 26 20 32 20 64  6f 20 61 20 73 6c 6f 77  | 1 & 2 do a slow|
000005a0  20 77 6f 62 62 6c 65 2c  20 74 68 65 20 72 65 73  | wobble, the res|
000005b0  74 20 64 6f 20 61 20 66  61 73 74 20 77 6f 62 62  |t do a fast wobb|
000005c0  6c 65 0d 02 6c 0e e3 41  25 3d 30 b8 4d 25 88 34  |le..l..A%=0.M%.4|
000005d0  0d 02 76 26 f2 69 64 65  6e 74 69 74 79 3a f2 78  |..v&.identity:.x|
000005e0  72 6f 74 28 32 2a 41 25  80 4d 25 29 3a f2 79 72  |rot(2*A%.M%):.yr|
000005f0  6f 74 28 41 25 29 0d 02  80 17 4a 25 3d 6d 61 74  |ot(A%)....J%=mat|
00000600  72 69 78 25 3a f2 66 69  6c 6c 28 32 29 0d 02 8a  |rix%:.fill(2)...|
00000610  3a f2 69 64 65 6e 74 69  74 79 3a f2 7a 72 6f 74  |:.identity:.zrot|
00000620  28 34 2a 41 25 80 4d 25  29 3a f2 78 72 6f 74 28  |(4*A%.M%):.xrot(|
00000630  32 2a 41 25 80 4d 25 29  3a f2 79 72 6f 74 28 35  |2*A%.M%):.yrot(5|
00000640  2a 41 25 80 4d 25 29 0d  02 94 14 f2 66 69 6c 6c  |*A%.M%).....fill|
00000650  28 36 29 3a d6 64 72 61  77 3a ed 0d 02 9e 07 c9  |(6):.draw:......|
00000660  36 3a 0d 02 a8 31 f4 20  4c 65 76 65 6c 20 31 20  |6:...1. Level 1 |
00000670  64 6f 65 73 20 61 20 77  6f 62 62 6c 65 2c 20 74  |does a wobble, t|
00000680  68 65 20 72 65 73 74 20  73 70 69 6e 20 73 6c 6f  |he rest spin slo|
00000690  77 6c 79 0d 02 b2 1a 41  25 3d 30 3a 44 41 25 3d  |wly....A%=0:DA%=|
000006a0  30 3a 54 41 25 3d 34 3c  3c 31 30 3a f5 0d 02 bc  |0:TA%=4<<10:....|
000006b0  2c f2 69 64 65 6e 74 69  74 79 3a f2 78 72 6f 74  |,.identity:.xrot|
000006c0  28 41 25 3e 3e 32 29 3a  f2 7a 72 6f 74 28 28 41  |(A%>>2):.zrot((A|
000006d0  25 3e 3e 31 29 80 4d 25  29 0d 02 c6 17 4a 25 3d  |%>>1).M%)....J%=|
000006e0  6d 61 74 72 69 78 25 3a  f2 66 69 6c 6c 28 31 29  |matrix%:.fill(1)|
000006f0  0d 02 d0 29 f2 69 64 65  6e 74 69 74 79 3a f2 79  |...).identity:.y|
00000700  72 6f 74 28 41 25 3e 3e  32 29 3a f2 66 69 6c 6c  |rot(A%>>2):.fill|
00000710  28 37 29 3a d6 64 72 61  77 0d 02 da 11 f2 67 6f  |(7):.draw.....go|
00000720  74 6f 3a fd 41 25 3d 54  41 25 0d 02 e4 07 c9 37  |to:.A%=TA%.....7|
00000730  3a 0d 02 ee 30 f4 20 54  72 69 61 6e 67 6c 65 2c  |:...0. Triangle,|
00000740  20 74 68 65 6e 20 61 6c  6c 20 62 75 74 20 6c 65  | then all but le|
00000750  76 65 6c 20 31 20 64 6f  20 61 20 77 6f 62 62 6c  |vel 1 do a wobbl|
00000760  65 0d 02 f8 18 41 25 3d  30 3a 44 41 25 3d 30 3a  |e....A%=0:DA%=0:|
00000770  54 41 25 3d 32 35 36 3a  f5 0d 03 02 21 f2 69 64  |TA%=256:....!.id|
00000780  65 6e 74 69 74 79 3a f2  78 72 6f 74 28 41 25 29  |entity:.xrot(A%)|
00000790  3a f2 7a 72 6f 74 28 41  25 29 0d 03 0c 1d 4a 25  |:.zrot(A%)....J%|
000007a0  3d 6d 61 74 72 69 78 25  3a f2 66 69 6c 6c 28 38  |=matrix%:.fill(8|
000007b0  29 3a d6 64 72 61 77 0d  03 16 11 f2 67 6f 74 6f  |):.draw.....goto|
000007c0  3a fd 41 25 3d 54 41 25  0d 03 20 1a 41 25 3d 30  |:.A%=TA%.. .A%=0|
000007d0  3a 44 41 25 3d 30 3a 54  41 25 3d 34 3c 3c 31 30  |:DA%=0:TA%=4<<10|
000007e0  3a f5 0d 03 2a 37 f2 69  64 65 6e 74 69 74 79 3a  |:...*7.identity:|
000007f0  f2 78 72 6f 74 28 32 35  36 29 3a f2 7a 72 6f 74  |.xrot(256):.zrot|
00000800  28 32 35 36 29 3a 4a 25  3d 6d 61 74 72 69 78 25  |(256):J%=matrix%|
00000810  3a f2 66 69 6c 6c 28 31  29 0d 03 34 39 f2 69 64  |:.fill(1)..49.id|
00000820  65 6e 74 69 74 79 3a f2  78 72 6f 74 28 32 35 36  |entity:.xrot(256|
00000830  2b 28 41 25 3e 3e 31 29  80 4d 25 29 3a f2 7a 72  |+(A%>>1).M%):.zr|
00000840  6f 74 28 32 35 36 2b 28  41 25 3e 3e 32 29 80 4d  |ot(256+(A%>>2).M|
00000850  25 29 0d 03 3e 12 f2 66  69 6c 6c 28 37 29 3a d6  |%)..>..fill(7):.|
00000860  64 72 61 77 0d 03 48 11  f2 67 6f 74 6f 3a fd 41  |draw..H..goto:.A|
00000870  25 3d 54 41 25 0d 03 52  18 41 25 3d 32 35 36 3a  |%=TA%..R.A%=256:|
00000880  44 41 25 3d 30 3a 54 41  25 3d 30 3a f5 0d 03 5c  |DA%=0:TA%=0:...\|
00000890  25 f2 69 64 65 6e 74 69  74 79 3a f2 78 72 6f 74  |%.identity:.xrot|
000008a0  28 2d 41 25 80 4d 25 29  3a f2 7a 72 6f 74 28 41  |(-A%.M%):.zrot(A|
000008b0  25 29 0d 03 66 1d 4a 25  3d 6d 61 74 72 69 78 25  |%)..f.J%=matrix%|
000008c0  3a f2 66 69 6c 6c 28 38  29 3a d6 64 72 61 77 0d  |:.fill(8):.draw.|
000008d0  03 70 11 f2 67 6f 74 6f  3a fd 41 25 3d 54 41 25  |.p..goto:.A%=TA%|
000008e0  0d 03 7a 07 c9 38 3a 0d  03 84 3b f4 20 50 72 6f  |..z..8:...;. Pro|
000008f0  67 72 65 73 73 69 76 65  20 73 70 6c 69 74 73 2c  |gressive splits,|
00000900  20 66 6f 6c 6c 6f 77 65  64 20 62 79 20 73 69 6d  | followed by sim|
00000910  75 6c 74 61 6e 65 6f 75  73 20 72 65 63 6f 76 65  |ultaneous recove|
00000920  72 79 0d 03 8e 0b e3 42  25 3d 30 b8 33 0d 03 98  |ry.....B%=0.3...|
00000930  2e 41 25 3d 30 3a 44 41  25 3d 30 3a 54 41 25 3d  |.A%=0:DA%=0:TA%=|
00000940  31 3c 3c 39 3a f5 3a 4a  25 3d 6d 61 74 72 69 78  |1<<9:.:J%=matrix|
00000950  25 3a f2 69 64 65 6e 74  69 74 79 0d 03 a2 37 e7  |%:.identity...7.|
00000960  42 25 3e 30 8c e3 43 25  3d 30 b8 42 25 2d 31 3a  |B%>0..C%=0.B%-1:|
00000970  f2 78 72 6f 74 28 31 3c  3c 37 29 3a f2 7a 72 6f  |.xrot(1<<7):.zro|
00000980  74 28 31 3c 3c 36 29 3a  f2 66 69 6c 6c 28 31 29  |t(1<<6):.fill(1)|
00000990  3a ed 0d 03 ac 2f f2 78  72 6f 74 28 41 25 3e 3e  |:..../.xrot(A%>>|
000009a0  32 29 3a f2 7a 72 6f 74  28 41 25 3e 3e 33 29 3a  |2):.zrot(A%>>3):|
000009b0  f2 66 69 6c 6c 28 38 2d  42 25 29 3a d6 64 72 61  |.fill(8-B%):.dra|
000009c0  77 0d 03 b6 13 f2 67 6f  74 6f 3a fd 41 25 3d 54  |w.....goto:.A%=T|
000009d0  41 25 3a ed 0d 03 c0 26  e3 41 25 3d 31 3c 3c 37  |A%:....&.A%=1<<7|
000009e0  b8 30 88 2d 32 3a 4a 25  3d 6d 61 74 72 69 78 25  |.0.-2:J%=matrix%|
000009f0  3a f2 69 64 65 6e 74 69  74 79 0d 03 ca 23 f2 78  |:.identity...#.x|
00000a00  72 6f 74 28 41 25 29 3a  f2 7a 72 6f 74 28 41 25  |rot(A%):.zrot(A%|
00000a10  3e 3e 31 29 3a f2 66 69  6c 6c 28 31 29 0d 03 d4  |>>1):.fill(1)...|
00000a20  23 f2 78 72 6f 74 28 41  25 29 3a f2 7a 72 6f 74  |#.xrot(A%):.zrot|
00000a30  28 41 25 3e 3e 31 29 3a  f2 66 69 6c 6c 28 31 29  |(A%>>1):.fill(1)|
00000a40  0d 03 de 23 f2 78 72 6f  74 28 41 25 29 3a f2 7a  |...#.xrot(A%):.z|
00000a50  72 6f 74 28 41 25 3e 3e  31 29 3a f2 66 69 6c 6c  |rot(A%>>1):.fill|
00000a60  28 31 29 0d 03 e8 23 f2  78 72 6f 74 28 41 25 29  |(1)...#.xrot(A%)|
00000a70  3a f2 7a 72 6f 74 28 41  25 3e 3e 31 29 3a f2 66  |:.zrot(A%>>1):.f|
00000a80  69 6c 6c 28 35 29 0d 03  f2 0b d6 64 72 61 77 3a  |ill(5).....draw:|
00000a90  ed 0d 03 fc 07 c9 39 3a  0d 04 06 2b f4 20 46 61  |......9:...+. Fa|
00000aa0  73 74 20 73 70 69 6e 20  77 69 74 68 20 73 6c 6f  |st spin with slo|
00000ab0  77 20 73 70 69 6e 20 73  75 70 65 72 69 6d 70 6f  |w spin superimpo|
00000ac0  73 65 64 0d 04 10 1a 41  25 3d 30 3a 44 41 25 3d  |sed....A%=0:DA%=|
00000ad0  30 3a 54 41 25 3d 31 3c  3c 31 34 3a f5 0d 04 1a  |0:TA%=1<<14:....|
00000ae0  2c f2 69 64 65 6e 74 69  74 79 3a f2 78 72 6f 74  |,.identity:.xrot|
00000af0  28 28 41 25 3e 3e 31 29  80 4d 25 29 3a f2 7a 72  |((A%>>1).M%):.zr|
00000b00  6f 74 28 41 25 3e 3e 34  29 0d 04 24 1d 4a 25 3d  |ot(A%>>4)..$.J%=|
00000b10  6d 61 74 72 69 78 25 3a  f2 66 69 6c 6c 28 38 29  |matrix%:.fill(8)|
00000b20  3a d6 64 72 61 77 0d 04  2e 11 f2 67 6f 74 6f 3a  |:.draw.....goto:|
00000b30  fd 41 25 3d 54 41 25 0d  04 38 08 c9 31 30 3a 0d  |.A%=TA%..8..10:.|
00000b40  04 42 11 f4 20 53 6c 6f  77 20 74 75 6d 62 6c 65  |.B.. Slow tumble|
00000b50  0d 04 4c 18 e3 41 25 3d  30 b8 4d 25 88 34 3a f2  |..L..A%=0.M%.4:.|
00000b60  69 64 65 6e 74 69 74 79  0d 04 56 26 f2 78 72 6f  |identity..V&.xro|
00000b70  74 28 41 25 29 3a f2 79  72 6f 74 28 32 2a 41 25  |t(A%):.yrot(2*A%|
00000b80  80 4d 25 29 3a f2 7a 72  6f 74 28 41 25 29 0d 04  |.M%):.zrot(A%)..|
00000b90  60 1f 4a 25 3d 6d 61 74  72 69 78 25 3a f2 66 69  |`.J%=matrix%:.fi|
00000ba0  6c 6c 28 38 29 3a d6 64  72 61 77 3a ed 0d 04 6a  |ll(8):.draw:...j|
00000bb0  08 c9 31 31 3a 0d 04 74  3f f4 20 54 72 69 61 6e  |..11:..t?. Trian|
00000bc0  67 6c 65 2c 20 77 69 74  68 20 61 6c 74 65 72 6e  |gle, with altern|
00000bd0  61 74 65 20 6c 65 76 65  6c 73 20 67 6f 69 6e 67  |ate levels going|
00000be0  20 6f 70 70 6f 73 69 74  65 20 64 69 72 65 63 74  | opposite direct|
00000bf0  69 6f 6e 73 0d 04 7e 18  41 25 3d 30 3a 44 41 25  |ions..~.A%=0:DA%|
00000c00  3d 30 3a 54 41 25 3d 32  35 36 3a f5 0d 04 88 21  |=0:TA%=256:....!|
00000c10  f2 69 64 65 6e 74 69 74  79 3a f2 78 72 6f 74 28  |.identity:.xrot(|
00000c20  41 25 29 3a f2 7a 72 6f  74 28 41 25 29 0d 04 92  |A%):.zrot(A%)...|
00000c30  1d 4a 25 3d 6d 61 74 72  69 78 25 3a f2 66 69 6c  |.J%=matrix%:.fil|
00000c40  6c 28 38 29 3a d6 64 72  61 77 0d 04 9c 11 f2 67  |l(8):.draw.....g|
00000c50  6f 74 6f 3a fd 41 25 3d  54 41 25 0d 04 a6 33 41  |oto:.A%=TA%...3A|
00000c60  25 3d 30 3a 54 41 25 3d  30 3a e3 55 25 3d 31 b8  |%=0:TA%=0:.U%=1.|
00000c70  34 3a 44 41 25 3d 30 3a  54 41 25 2b 3d 31 3c 3c  |4:DA%=0:TA%+=1<<|
00000c80  39 3a f5 3a 4a 25 3d 6d  61 74 72 69 78 25 0d 04  |9:.:J%=matrix%..|
00000c90  b0 35 f2 69 64 65 6e 74  69 74 79 3a f2 78 72 6f  |.5.identity:.xro|
00000ca0  74 28 32 35 36 29 3a f2  7a 72 6f 74 28 32 35 36  |t(256):.zrot(256|
00000cb0  2b 41 25 2f 31 32 80 4d  25 29 3a f2 66 69 6c 6c  |+A%/12.M%):.fill|
00000cc0  28 31 29 0d 04 ba 35 f2  69 64 65 6e 74 69 74 79  |(1)...5.identity|
00000cd0  3a f2 78 72 6f 74 28 32  35 36 29 3a f2 7a 72 6f  |:.xrot(256):.zro|
00000ce0  74 28 32 35 36 2d 41 25  2f 31 32 80 4d 25 29 3a  |t(256-A%/12.M%):|
00000cf0  f2 66 69 6c 6c 28 31 29  0d 04 c4 25 e3 54 25 3d  |.fill(1)...%.T%=|
00000d00  30 b8 34 37 3a 21 4a 25  3d 4a 25 21 2d 36 34 3a  |0.47:!J%=J%!-64:|
00000d10  4a 25 2b 3d 34 3a ed 3a  d6 64 72 61 77 0d 04 ce  |J%+=4:.:.draw...|
00000d20  13 f2 67 6f 74 6f 3a fd  41 25 3d 54 41 25 3a ed  |..goto:.A%=TA%:.|
00000d30  0d 04 d8 18 41 25 3d 32  35 36 3a 44 41 25 3d 30  |....A%=256:DA%=0|
00000d40  3a 54 41 25 3d 30 3a f5  0d 04 e2 25 f2 69 64 65  |:TA%=0:....%.ide|
00000d50  6e 74 69 74 79 3a f2 78  72 6f 74 28 41 25 29 3a  |ntity:.xrot(A%):|
00000d60  f2 7a 72 6f 74 28 2d 41  25 80 4d 25 29 0d 04 ec  |.zrot(-A%.M%)...|
00000d70  1d 4a 25 3d 6d 61 74 72  69 78 25 3a f2 66 69 6c  |.J%=matrix%:.fil|
00000d80  6c 28 38 29 3a d6 64 72  61 77 0d 04 f6 11 f2 67  |l(8):.draw.....g|
00000d90  6f 74 6f 3a fd 41 25 3d  54 41 25 0d 05 00 05 cb  |oto:.A%=TA%.....|
00000da0  0d 05 0a 05 e1 0d ff                              |.......|
00000da7