�     >Moire
� By  Jane Vibe
� For 32-bit machines
(� (c) BAU October 1993
2:
<	� 128
F� 0
P�
Z� spr &10000
dspr!0=&FFFF
nspr!4=0
xspr!8=16
�
spr!12=16
�	s1%=1
�	s2%=2
�1ș "OS_SpriteOp",256+15,spr,"scr",0,512,256,0
�'ș "OS_SpriteOp",256+60,spr,"scr",0
�� 1
�ȓȐ 0,0,1024,1024
�#ș "OS_SpriteOp",256+60,spr,0,0
�%ș "OS_SpriteOp",256+29,spr,"scr"
�'ș "OS_SpriteOp",256+61,spr,"scr",0
�� 0
�ȓ Ȑ 0,0,1024
�� 1

� n%=4 � 360 � 4

 t=�(n%)

 t1=�(n%+1)

" � 512,512

,  � 512+500*�(t),512+500*�(t)

6% � 85,512+500*�(t1),512+500*�(t1)

@�

J� 0

Tȏ Ȑ 512,512,80

^#ș "OS_SpriteOp",256+61,spr,0,0

h)� � ș 6,112,s1%:�:�" at line ";�:�:�

ra%=0

|�

� Ȗ

� ș 6,112,s1%

� ș 6,113,s2%

� �

� Ȕ s1%,s2%

� a%=(a% � 360)+8

�
 t1=�(a%)

� t2=�(a%+180)

�> ș "OS_SpriteOp",256+34,spr,"scr",40*�(t1)+128,40*�(t1),8

�> ș "OS_SpriteOp",256+34,spr,"scr",40*�(t2)+128,40*�(t2),8

� ȏ Ȑ 640,512,40

�� �-113

�ș 6,112,s1%
�
�
�

00000000  0d 00 0a 10 f4 20 20 20  20 20 3e 4d 6f 69 72 65  |.....     >Moire|
00000010  0d 00 14 13 f4 20 42 79  20 20 4a 61 6e 65 20 56  |..... By  Jane V|
00000020  69 62 65 0d 00 1e 19 f4  20 46 6f 72 20 33 32 2d  |ibe..... For 32-|
00000030  62 69 74 20 6d 61 63 68  69 6e 65 73 0d 00 28 1a  |bit machines..(.|
00000040  f4 20 28 63 29 20 42 41  55 20 4f 63 74 6f 62 65  |. (c) BAU Octobe|
00000050  72 20 31 39 39 33 0d 00  32 05 3a 0d 00 3c 09 eb  |r 1993..2.:..<..|
00000060  20 31 32 38 0d 00 46 07  eb 20 30 0d 00 50 05 87  | 128..F.. 0..P..|
00000070  0d 00 5a 10 de 20 73 70  72 20 26 31 30 30 30 30  |..Z.. spr &10000|
00000080  0d 00 64 0f 73 70 72 21  30 3d 26 46 46 46 46 0d  |..d.spr!0=&FFFF.|
00000090  00 6e 0b 73 70 72 21 34  3d 30 0d 00 78 0c 73 70  |.n.spr!4=0..x.sp|
000000a0  72 21 38 3d 31 36 0d 00  82 0d 73 70 72 21 31 32  |r!8=16....spr!12|
000000b0  3d 31 36 0d 00 8c 09 73  31 25 3d 31 0d 00 96 09  |=16....s1%=1....|
000000c0  73 32 25 3d 32 0d 00 a0  31 c8 99 20 22 4f 53 5f  |s2%=2...1.. "OS_|
000000d0  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 31 35  |SpriteOp",256+15|
000000e0  2c 73 70 72 2c 22 73 63  72 22 2c 30 2c 35 31 32  |,spr,"scr",0,512|
000000f0  2c 32 35 36 2c 30 0d 00  aa 27 c8 99 20 22 4f 53  |,256,0...'.. "OS|
00000100  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 36  |_SpriteOp",256+6|
00000110  30 2c 73 70 72 2c 22 73  63 72 22 2c 30 0d 00 b4  |0,spr,"scr",0...|
00000120  07 e6 20 31 0d 00 be 16  c8 93 c8 90 20 30 2c 30  |.. 1........ 0,0|
00000130  2c 31 30 32 34 2c 31 30  32 34 0d 00 c8 23 c8 99  |,1024,1024...#..|
00000140  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00000150  35 36 2b 36 30 2c 73 70  72 2c 30 2c 30 0d 00 d2  |56+60,spr,0,0...|
00000160  25 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |%.. "OS_SpriteOp|
00000170  22 2c 32 35 36 2b 32 39  2c 73 70 72 2c 22 73 63  |",256+29,spr,"sc|
00000180  72 22 0d 00 dc 27 c8 99  20 22 4f 53 5f 53 70 72  |r"...'.. "OS_Spr|
00000190  69 74 65 4f 70 22 2c 32  35 36 2b 36 31 2c 73 70  |iteOp",256+61,sp|
000001a0  72 2c 22 73 63 72 22 2c  30 0d 00 e6 07 e6 20 30  |r,"scr",0..... 0|
000001b0  0d 00 f0 12 c8 93 20 c8  90 20 30 2c 30 2c 31 30  |...... .. 0,0,10|
000001c0  32 34 0d 00 fa 07 e6 20  31 0d 01 04 14 e3 20 6e  |24..... 1..... n|
000001d0  25 3d 34 20 b8 20 33 36  30 20 88 20 34 0d 01 0e  |%=4 . 360 . 4...|
000001e0  0c 20 74 3d b2 28 6e 25  29 0d 01 18 0f 20 74 31  |. t=.(n%).... t1|
000001f0  3d b2 28 6e 25 2b 31 29  0d 01 22 0e 20 ec 20 35  |=.(n%+1)..". . 5|
00000200  31 32 2c 35 31 32 0d 01  2c 20 20 ec 20 35 31 32  |12,512..,  . 512|
00000210  2b 35 30 30 2a b5 28 74  29 2c 35 31 32 2b 35 30  |+500*.(t),512+50|
00000220  30 2a 9b 28 74 29 0d 01  36 25 20 f0 20 38 35 2c  |0*.(t)..6% . 85,|
00000230  35 31 32 2b 35 30 30 2a  b5 28 74 31 29 2c 35 31  |512+500*.(t1),51|
00000240  32 2b 35 30 30 2a 9b 28  74 31 29 0d 01 40 05 ed  |2+500*.(t1)..@..|
00000250  0d 01 4a 07 e6 20 30 0d  01 54 14 c8 8f 20 c8 90  |..J.. 0..T... ..|
00000260  20 35 31 32 2c 35 31 32  2c 38 30 0d 01 5e 23 c8  | 512,512,80..^#.|
00000270  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000280  32 35 36 2b 36 31 2c 73  70 72 2c 30 2c 30 0d 01  |256+61,spr,0,0..|
00000290  68 29 ee 20 85 20 c8 99  20 36 2c 31 31 32 2c 73  |h). . .. 6,112,s|
000002a0  31 25 3a f6 3a f1 22 20  61 74 20 6c 69 6e 65 20  |1%:.:." at line |
000002b0  22 3b 9e 3a ee 3a e0 0d  01 72 08 61 25 3d 30 0d  |";.:.:...r.a%=0.|
000002c0  01 7c 05 f5 0d 01 86 07  20 c8 96 0d 01 90 11 20  |.|...... ...... |
000002d0  c8 99 20 36 2c 31 31 32  2c 73 31 25 0d 01 9a 11  |.. 6,112,s1%....|
000002e0  20 c8 99 20 36 2c 31 31  33 2c 73 32 25 0d 01 a4  | .. 6,113,s2%...|
000002f0  06 20 db 0d 01 ae 0f 20  c8 94 20 73 31 25 2c 73  |. ..... .. s1%,s|
00000300  32 25 0d 01 b8 14 20 61  25 3d 28 61 25 20 83 20  |2%.... a%=(a% . |
00000310  33 36 30 29 2b 38 0d 01  c2 0d 20 74 31 3d b2 28  |360)+8.... t1=.(|
00000320  61 25 29 0d 01 cc 11 20  74 32 3d b2 28 61 25 2b  |a%).... t2=.(a%+|
00000330  31 38 30 29 0d 01 d6 3e  20 c8 99 20 22 4f 53 5f  |180)...> .. "OS_|
00000340  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 33 34  |SpriteOp",256+34|
00000350  2c 73 70 72 2c 22 73 63  72 22 2c 34 30 2a b5 28  |,spr,"scr",40*.(|
00000360  74 31 29 2b 31 32 38 2c  34 30 2a 9b 28 74 31 29  |t1)+128,40*.(t1)|
00000370  2c 38 0d 01 e0 3e 20 c8  99 20 22 4f 53 5f 53 70  |,8...> .. "OS_Sp|
00000380  72 69 74 65 4f 70 22 2c  32 35 36 2b 33 34 2c 73  |riteOp",256+34,s|
00000390  70 72 2c 22 73 63 72 22  2c 34 30 2a b5 28 74 32  |pr,"scr",40*.(t2|
000003a0  29 2b 31 32 38 2c 34 30  2a 9b 28 74 32 29 2c 38  |)+128,40*.(t2),8|
000003b0  0d 01 ea 15 20 c8 8f 20  c8 90 20 36 34 30 2c 35  |.... .. .. 640,5|
000003c0  31 32 2c 34 30 0d 01 f4  0b fd 20 a6 2d 31 31 33  |12,40..... .-113|
000003d0  0d 01 fe 10 c8 99 20 36  2c 31 31 32 2c 73 31 25  |...... 6,112,s1%|
000003e0  0d 02 08 05 ee 0d 02 12  05 e0 0d ff              |............|
000003ec