�     >SprGen
� by  Alistair Turnbull
� (c) AU April 1994
(:
2
�12:�9
<7�T%=0�3:�U%=0�3:�T%+(U%<<2),T%<<6,T%+U%<<5,U%<<6:�,
F�constants
P%spacelen%=&80000:�space%spacelen%
Z2spr%=space%:space%+=nospr%*1024:endspr%=space%
d5�space%>space%+spacelen%��255,"Not enough memory"
nELX=-1:LY=1:LZ=-2:F=1/�(LX*LX+LY*LY+LZ*LZ):LX=LX*F:LY=LY*F:LZ=LZ*F
xDMX=1:MY=1:MZ=-2:F=1/�(MX*MX+MY*MY+MZ*MZ):MX=MX*F:MY=MY*F:MZ=MZ*F
�D!spr%=148:spr%!4=-1:ș"OS_ReadVduVariables",spr%,spr%:scr%=!spr%
�N%=0:SP%=spr%
��tubespr
��spherespr
�0�SP%>endspr%��255,"Not enough sprite memory"
�3�("SAVE <Tubes$dir>.Sprites "+�~spr%+" "+�~SP%)
��
�:
�:
���constants
�nospr%=256
�
TR%=44
�
VC%=12

�

:


��tubespr

"�"Tubes start at ";N%

,�A%=1�7�2:�B%=1�7�2

60�0,0:ȓȐ0,0,255,127:�tube(A%,B%,8):�convert

@0�0,0:ȓȐ0,0,255,127:�tube(8,A%,B%):�convert

J0�0,0:ȓȐ0,0,255,127:�tube(B%,8,A%):�convert

T1�0,0:ȓȐ0,0,255,127:�tube(-A%,B%,8):�convert

^1�0,0:ȓȐ0,0,255,127:�tube(-8,A%,B%):�convert

h1�0,0:ȓȐ0,0,255,127:�tube(-B%,8,A%):�convert

r1�0,0:ȓȐ0,0,255,127:�tube(A%,-B%,8):�convert

|1�0,0:ȓȐ0,0,255,127:�tube(8,-A%,B%):�convert

�1�0,0:ȓȐ0,0,255,127:�tube(B%,-8,A%):�convert

�2�0,0:ȓȐ0,0,255,127:�tube(-A%,-B%,8):�convert

�2�0,0:ȓȐ0,0,255,127:�tube(-8,-A%,B%):�convert

�2�0,0:ȓȐ0,0,255,127:�tube(-B%,-8,A%):�convert

��,

��

�:

���tube(VX,VY,VZ)

��VX=0�VY=0��

�4F=1/�(VX*VX+VY*VY+VZ*VZ):VX=VX*F:VY=VY*F:VZ=VZ*F

�EPX=0:PY=0:PZ=1:PQ=PX*VX+PY*VY+PZ*VZ:PX-=PQ*VX:PY-=PQ*VY:PZ-=PQ*VZ

�<F=1/�(PX*PX+PY*PY+PZ*PZ):PX=PX*F:PY=PY*F:PZ=PZ*F:PQ=PQ*F

��X%=-62�62�4:�Y%=-62�62�4
BX=X%/TR%:Y=Y%/TR%:Z=0:Q=X*VX+Y*VY+Z*VZ:X-=Q*VX:Y-=Q*VY:Z-=Q*VZ
)D=X*PX+Y*PY+Z*PZ:F2=1+D*D-X*X-Y*Y-Z*Z
b�F2>=0�G=�(F2)+D:�(Q-G*PQ)<=1��light(X-G*PX,Y-G*PY,Z-G*PZ):ȒX%+64,Y%+64:�0,15:ȒX%+192,Y%+64
&�:�,
0�
::
D��light(RX,RY,RZ)
N0LB=RX*LX+RY*LY+RZ*LZ:�LB<0�LB=0�LB=LB*3+�(1)
X0MB=RX*MX+RY*MY+RZ*MZ:�MB<0�MB=0�MB=MB*3+�(1)
b�0,(LB<<2)+MB
l�
v:
�
��convert
�,N%+=1:�N%>nospr%��255,"Too many sprites"
�SC%=scr%+(256-32)*160
���Y%=0�31:!SP%=!SC%:SP%!8=SC%!4:SP%!16=SC%!8:SP%!24=SC%!12:SP%!4=SC%!16:SP%!12=SC%!20:SP%!20=SC%!24:SP%!28=SC%!28:SP%+=32:SC%+=160:�
��
�:
���spherespr
��"Spheres start at ";N%
��0,0:ȓȐ0,0,255,127
��X%=-62�62�4:�Y%=-62�62�4
�*X=X%/TR%:Y=Y%/TR%:Z2=1-X*X-Y*Y:�Z2>=0�
�$�light(X,Y,-�(Z2)):ȒX%+64,Y%+64
��0,15:ȒX%+192,Y%+64
�:�,
�convert
�
 �
�

00000000  0d 00 0a 11 f4 20 20 20  20 20 3e 53 70 72 47 65  |.....     >SprGe|
00000010  6e 0d 00 14 1b f4 20 62  79 20 20 41 6c 69 73 74  |n..... by  Alist|
00000020  61 69 72 20 54 75 72 6e  62 75 6c 6c 0d 00 1e 17  |air Turnbull....|
00000030  f4 20 28 63 29 20 41 55  20 41 70 72 69 6c 20 31  |. (c) AU April 1|
00000040  39 39 34 0d 00 28 05 3a  0d 00 32 0a eb 31 32 3a  |994..(.:..2..12:|
00000050  eb 39 0d 00 3c 37 e3 54  25 3d 30 b8 33 3a e3 55  |.9..<7.T%=0.3:.U|
00000060  25 3d 30 b8 33 3a fb 54  25 2b 28 55 25 3c 3c 32  |%=0.3:.T%+(U%<<2|
00000070  29 2c 54 25 3c 3c 36 2c  54 25 2b 55 25 3c 3c 35  |),T%<<6,T%+U%<<5|
00000080  2c 55 25 3c 3c 36 3a ed  2c 0d 00 46 0e f2 63 6f  |,U%<<6:.,..F..co|
00000090  6e 73 74 61 6e 74 73 0d  00 50 25 73 70 61 63 65  |nstants..P%space|
000000a0  6c 65 6e 25 3d 26 38 30  30 30 30 3a de 73 70 61  |len%=&80000:.spa|
000000b0  63 65 25 73 70 61 63 65  6c 65 6e 25 0d 00 5a 32  |ce%spacelen%..Z2|
000000c0  73 70 72 25 3d 73 70 61  63 65 25 3a 73 70 61 63  |spr%=space%:spac|
000000d0  65 25 2b 3d 6e 6f 73 70  72 25 2a 31 30 32 34 3a  |e%+=nospr%*1024:|
000000e0  65 6e 64 73 70 72 25 3d  73 70 61 63 65 25 0d 00  |endspr%=space%..|
000000f0  64 35 e7 73 70 61 63 65  25 3e 73 70 61 63 65 25  |d5.space%>space%|
00000100  2b 73 70 61 63 65 6c 65  6e 25 8c 85 32 35 35 2c  |+spacelen%..255,|
00000110  22 4e 6f 74 20 65 6e 6f  75 67 68 20 6d 65 6d 6f  |"Not enough memo|
00000120  72 79 22 0d 00 6e 45 4c  58 3d 2d 31 3a 4c 59 3d  |ry"..nELX=-1:LY=|
00000130  31 3a 4c 5a 3d 2d 32 3a  46 3d 31 2f b6 28 4c 58  |1:LZ=-2:F=1/.(LX|
00000140  2a 4c 58 2b 4c 59 2a 4c  59 2b 4c 5a 2a 4c 5a 29  |*LX+LY*LY+LZ*LZ)|
00000150  3a 4c 58 3d 4c 58 2a 46  3a 4c 59 3d 4c 59 2a 46  |:LX=LX*F:LY=LY*F|
00000160  3a 4c 5a 3d 4c 5a 2a 46  0d 00 78 44 4d 58 3d 31  |:LZ=LZ*F..xDMX=1|
00000170  3a 4d 59 3d 31 3a 4d 5a  3d 2d 32 3a 46 3d 31 2f  |:MY=1:MZ=-2:F=1/|
00000180  b6 28 4d 58 2a 4d 58 2b  4d 59 2a 4d 59 2b 4d 5a  |.(MX*MX+MY*MY+MZ|
00000190  2a 4d 5a 29 3a 4d 58 3d  4d 58 2a 46 3a 4d 59 3d  |*MZ):MX=MX*F:MY=|
000001a0  4d 59 2a 46 3a 4d 5a 3d  4d 5a 2a 46 0d 00 82 44  |MY*F:MZ=MZ*F...D|
000001b0  21 73 70 72 25 3d 31 34  38 3a 73 70 72 25 21 34  |!spr%=148:spr%!4|
000001c0  3d 2d 31 3a c8 99 22 4f  53 5f 52 65 61 64 56 64  |=-1:.."OS_ReadVd|
000001d0  75 56 61 72 69 61 62 6c  65 73 22 2c 73 70 72 25  |uVariables",spr%|
000001e0  2c 73 70 72 25 3a 73 63  72 25 3d 21 73 70 72 25  |,spr%:scr%=!spr%|
000001f0  0d 00 8c 11 4e 25 3d 30  3a 53 50 25 3d 73 70 72  |....N%=0:SP%=spr|
00000200  25 0d 00 96 0c f2 74 75  62 65 73 70 72 0d 00 a0  |%.....tubespr...|
00000210  0e f2 73 70 68 65 72 65  73 70 72 0d 00 aa 30 e7  |..spherespr...0.|
00000220  53 50 25 3e 65 6e 64 73  70 72 25 8c 85 32 35 35  |SP%>endspr%..255|
00000230  2c 22 4e 6f 74 20 65 6e  6f 75 67 68 20 73 70 72  |,"Not enough spr|
00000240  69 74 65 20 6d 65 6d 6f  72 79 22 0d 00 b4 33 ff  |ite memory"...3.|
00000250  28 22 53 41 56 45 20 3c  54 75 62 65 73 24 64 69  |("SAVE <Tubes$di|
00000260  72 3e 2e 53 70 72 69 74  65 73 20 22 2b c3 7e 73  |r>.Sprites "+.~s|
00000270  70 72 25 2b 22 20 22 2b  c3 7e 53 50 25 29 0d 00  |pr%+" "+.~SP%)..|
00000280  be 05 e0 0d 00 c8 05 3a  0d 00 d2 05 3a 0d 00 dc  |.......:....:...|
00000290  0f dd f2 63 6f 6e 73 74  61 6e 74 73 0d 00 e6 0e  |...constants....|
000002a0  6e 6f 73 70 72 25 3d 32  35 36 0d 00 f0 0a 54 52  |nospr%=256....TR|
000002b0  25 3d 34 34 0d 00 fa 0a  56 43 25 3d 31 32 0d 01  |%=44....VC%=12..|
000002c0  04 05 e1 0d 01 0e 05 3a  0d 01 18 0d dd f2 74 75  |.......:......tu|
000002d0  62 65 73 70 72 0d 01 22  19 f1 22 54 75 62 65 73  |bespr..".."Tubes|
000002e0  20 73 74 61 72 74 20 61  74 20 22 3b 4e 25 0d 01  | start at ";N%..|
000002f0  2c 17 e3 41 25 3d 31 b8  37 88 32 3a e3 42 25 3d  |,..A%=1.7.2:.B%=|
00000300  31 b8 37 88 32 0d 01 36  30 e6 30 2c 30 3a c8 93  |1.7.2..60.0,0:..|
00000310  c8 90 30 2c 30 2c 32 35  35 2c 31 32 37 3a f2 74  |..0,0,255,127:.t|
00000320  75 62 65 28 41 25 2c 42  25 2c 38 29 3a f2 63 6f  |ube(A%,B%,8):.co|
00000330  6e 76 65 72 74 0d 01 40  30 e6 30 2c 30 3a c8 93  |nvert..@0.0,0:..|
00000340  c8 90 30 2c 30 2c 32 35  35 2c 31 32 37 3a f2 74  |..0,0,255,127:.t|
00000350  75 62 65 28 38 2c 41 25  2c 42 25 29 3a f2 63 6f  |ube(8,A%,B%):.co|
00000360  6e 76 65 72 74 0d 01 4a  30 e6 30 2c 30 3a c8 93  |nvert..J0.0,0:..|
00000370  c8 90 30 2c 30 2c 32 35  35 2c 31 32 37 3a f2 74  |..0,0,255,127:.t|
00000380  75 62 65 28 42 25 2c 38  2c 41 25 29 3a f2 63 6f  |ube(B%,8,A%):.co|
00000390  6e 76 65 72 74 0d 01 54  31 e6 30 2c 30 3a c8 93  |nvert..T1.0,0:..|
000003a0  c8 90 30 2c 30 2c 32 35  35 2c 31 32 37 3a f2 74  |..0,0,255,127:.t|
000003b0  75 62 65 28 2d 41 25 2c  42 25 2c 38 29 3a f2 63  |ube(-A%,B%,8):.c|
000003c0  6f 6e 76 65 72 74 0d 01  5e 31 e6 30 2c 30 3a c8  |onvert..^1.0,0:.|
000003d0  93 c8 90 30 2c 30 2c 32  35 35 2c 31 32 37 3a f2  |...0,0,255,127:.|
000003e0  74 75 62 65 28 2d 38 2c  41 25 2c 42 25 29 3a f2  |tube(-8,A%,B%):.|
000003f0  63 6f 6e 76 65 72 74 0d  01 68 31 e6 30 2c 30 3a  |convert..h1.0,0:|
00000400  c8 93 c8 90 30 2c 30 2c  32 35 35 2c 31 32 37 3a  |....0,0,255,127:|
00000410  f2 74 75 62 65 28 2d 42  25 2c 38 2c 41 25 29 3a  |.tube(-B%,8,A%):|
00000420  f2 63 6f 6e 76 65 72 74  0d 01 72 31 e6 30 2c 30  |.convert..r1.0,0|
00000430  3a c8 93 c8 90 30 2c 30  2c 32 35 35 2c 31 32 37  |:....0,0,255,127|
00000440  3a f2 74 75 62 65 28 41  25 2c 2d 42 25 2c 38 29  |:.tube(A%,-B%,8)|
00000450  3a f2 63 6f 6e 76 65 72  74 0d 01 7c 31 e6 30 2c  |:.convert..|1.0,|
00000460  30 3a c8 93 c8 90 30 2c  30 2c 32 35 35 2c 31 32  |0:....0,0,255,12|
00000470  37 3a f2 74 75 62 65 28  38 2c 2d 41 25 2c 42 25  |7:.tube(8,-A%,B%|
00000480  29 3a f2 63 6f 6e 76 65  72 74 0d 01 86 31 e6 30  |):.convert...1.0|
00000490  2c 30 3a c8 93 c8 90 30  2c 30 2c 32 35 35 2c 31  |,0:....0,0,255,1|
000004a0  32 37 3a f2 74 75 62 65  28 42 25 2c 2d 38 2c 41  |27:.tube(B%,-8,A|
000004b0  25 29 3a f2 63 6f 6e 76  65 72 74 0d 01 90 32 e6  |%):.convert...2.|
000004c0  30 2c 30 3a c8 93 c8 90  30 2c 30 2c 32 35 35 2c  |0,0:....0,0,255,|
000004d0  31 32 37 3a f2 74 75 62  65 28 2d 41 25 2c 2d 42  |127:.tube(-A%,-B|
000004e0  25 2c 38 29 3a f2 63 6f  6e 76 65 72 74 0d 01 9a  |%,8):.convert...|
000004f0  32 e6 30 2c 30 3a c8 93  c8 90 30 2c 30 2c 32 35  |2.0,0:....0,0,25|
00000500  35 2c 31 32 37 3a f2 74  75 62 65 28 2d 38 2c 2d  |5,127:.tube(-8,-|
00000510  41 25 2c 42 25 29 3a f2  63 6f 6e 76 65 72 74 0d  |A%,B%):.convert.|
00000520  01 a4 32 e6 30 2c 30 3a  c8 93 c8 90 30 2c 30 2c  |..2.0,0:....0,0,|
00000530  32 35 35 2c 31 32 37 3a  f2 74 75 62 65 28 2d 42  |255,127:.tube(-B|
00000540  25 2c 2d 38 2c 41 25 29  3a f2 63 6f 6e 76 65 72  |%,-8,A%):.conver|
00000550  74 0d 01 ae 06 ed 2c 0d  01 b8 05 e1 0d 01 c2 05  |t.....,.........|
00000560  3a 0d 01 cc 14 dd f2 74  75 62 65 28 56 58 2c 56  |:......tube(VX,V|
00000570  59 2c 56 5a 29 0d 01 d6  10 e7 56 58 3d 30 80 56  |Y,VZ).....VX=0.V|
00000580  59 3d 30 8c e1 0d 01 e0  34 46 3d 31 2f b6 28 56  |Y=0.....4F=1/.(V|
00000590  58 2a 56 58 2b 56 59 2a  56 59 2b 56 5a 2a 56 5a  |X*VX+VY*VY+VZ*VZ|
000005a0  29 3a 56 58 3d 56 58 2a  46 3a 56 59 3d 56 59 2a  |):VX=VX*F:VY=VY*|
000005b0  46 3a 56 5a 3d 56 5a 2a  46 0d 01 ea 45 50 58 3d  |F:VZ=VZ*F...EPX=|
000005c0  30 3a 50 59 3d 30 3a 50  5a 3d 31 3a 50 51 3d 50  |0:PY=0:PZ=1:PQ=P|
000005d0  58 2a 56 58 2b 50 59 2a  56 59 2b 50 5a 2a 56 5a  |X*VX+PY*VY+PZ*VZ|
000005e0  3a 50 58 2d 3d 50 51 2a  56 58 3a 50 59 2d 3d 50  |:PX-=PQ*VX:PY-=P|
000005f0  51 2a 56 59 3a 50 5a 2d  3d 50 51 2a 56 5a 0d 01  |Q*VY:PZ-=PQ*VZ..|
00000600  f4 3c 46 3d 31 2f b6 28  50 58 2a 50 58 2b 50 59  |.<F=1/.(PX*PX+PY|
00000610  2a 50 59 2b 50 5a 2a 50  5a 29 3a 50 58 3d 50 58  |*PY+PZ*PZ):PX=PX|
00000620  2a 46 3a 50 59 3d 50 59  2a 46 3a 50 5a 3d 50 5a  |*F:PY=PY*F:PZ=PZ|
00000630  2a 46 3a 50 51 3d 50 51  2a 46 0d 01 fe 1d e3 58  |*F:PQ=PQ*F.....X|
00000640  25 3d 2d 36 32 b8 36 32  88 34 3a e3 59 25 3d 2d  |%=-62.62.4:.Y%=-|
00000650  36 32 b8 36 32 88 34 0d  02 08 42 58 3d 58 25 2f  |62.62.4...BX=X%/|
00000660  54 52 25 3a 59 3d 59 25  2f 54 52 25 3a 5a 3d 30  |TR%:Y=Y%/TR%:Z=0|
00000670  3a 51 3d 58 2a 56 58 2b  59 2a 56 59 2b 5a 2a 56  |:Q=X*VX+Y*VY+Z*V|
00000680  5a 3a 58 2d 3d 51 2a 56  58 3a 59 2d 3d 51 2a 56  |Z:X-=Q*VX:Y-=Q*V|
00000690  59 3a 5a 2d 3d 51 2a 56  5a 0d 02 12 29 44 3d 58  |Y:Z-=Q*VZ...)D=X|
000006a0  2a 50 58 2b 59 2a 50 59  2b 5a 2a 50 5a 3a 46 32  |*PX+Y*PY+Z*PZ:F2|
000006b0  3d 31 2b 44 2a 44 2d 58  2a 58 2d 59 2a 59 2d 5a  |=1+D*D-X*X-Y*Y-Z|
000006c0  2a 5a 0d 02 1c 62 e7 46  32 3e 3d 30 8c 47 3d b6  |*Z...b.F2>=0.G=.|
000006d0  28 46 32 29 2b 44 3a e7  94 28 51 2d 47 2a 50 51  |(F2)+D:..(Q-G*PQ|
000006e0  29 3c 3d 31 8c f2 6c 69  67 68 74 28 58 2d 47 2a  |)<=1..light(X-G*|
000006f0  50 58 2c 59 2d 47 2a 50  59 2c 5a 2d 47 2a 50 5a  |PX,Y-G*PY,Z-G*PZ|
00000700  29 3a c8 92 58 25 2b 36  34 2c 59 25 2b 36 34 3a  |):..X%+64,Y%+64:|
00000710  e6 30 2c 31 35 3a c8 92  58 25 2b 31 39 32 2c 59  |.0,15:..X%+192,Y|
00000720  25 2b 36 34 0d 02 26 08  cd 3a ed 2c 0d 02 30 05  |%+64..&..:.,..0.|
00000730  e1 0d 02 3a 05 3a 0d 02  44 15 dd f2 6c 69 67 68  |...:.:..D...ligh|
00000740  74 28 52 58 2c 52 59 2c  52 5a 29 0d 02 4e 30 4c  |t(RX,RY,RZ)..N0L|
00000750  42 3d 52 58 2a 4c 58 2b  52 59 2a 4c 59 2b 52 5a  |B=RX*LX+RY*LY+RZ|
00000760  2a 4c 5a 3a e7 4c 42 3c  30 8c 4c 42 3d 30 8b 4c  |*LZ:.LB<0.LB=0.L|
00000770  42 3d 4c 42 2a 33 2b b3  28 31 29 0d 02 58 30 4d  |B=LB*3+.(1)..X0M|
00000780  42 3d 52 58 2a 4d 58 2b  52 59 2a 4d 59 2b 52 5a  |B=RX*MX+RY*MY+RZ|
00000790  2a 4d 5a 3a e7 4d 42 3c  30 8c 4d 42 3d 30 8b 4d  |*MZ:.MB<0.MB=0.M|
000007a0  42 3d 4d 42 2a 33 2b b3  28 31 29 0d 02 62 11 e6  |B=MB*3+.(1)..b..|
000007b0  30 2c 28 4c 42 3c 3c 32  29 2b 4d 42 0d 02 6c 05  |0,(LB<<2)+MB..l.|
000007c0  e1 0d 02 76 05 3a 0d 02  80 0d dd f2 63 6f 6e 76  |...v.:......conv|
000007d0  65 72 74 0d 02 8a 2c 4e  25 2b 3d 31 3a e7 4e 25  |ert...,N%+=1:.N%|
000007e0  3e 6e 6f 73 70 72 25 8c  85 32 35 35 2c 22 54 6f  |>nospr%..255,"To|
000007f0  6f 20 6d 61 6e 79 20 73  70 72 69 74 65 73 22 0d  |o many sprites".|
00000800  02 94 19 53 43 25 3d 73  63 72 25 2b 28 32 35 36  |...SC%=scr%+(256|
00000810  2d 33 32 29 2a 31 36 30  0d 02 9e 87 e3 59 25 3d  |-32)*160.....Y%=|
00000820  30 b8 33 31 3a 21 53 50  25 3d 21 53 43 25 3a 53  |0.31:!SP%=!SC%:S|
00000830  50 25 21 38 3d 53 43 25  21 34 3a 53 50 25 21 31  |P%!8=SC%!4:SP%!1|
00000840  36 3d 53 43 25 21 38 3a  53 50 25 21 32 34 3d 53  |6=SC%!8:SP%!24=S|
00000850  43 25 21 31 32 3a 53 50  25 21 34 3d 53 43 25 21  |C%!12:SP%!4=SC%!|
00000860  31 36 3a 53 50 25 21 31  32 3d 53 43 25 21 32 30  |16:SP%!12=SC%!20|
00000870  3a 53 50 25 21 32 30 3d  53 43 25 21 32 34 3a 53  |:SP%!20=SC%!24:S|
00000880  50 25 21 32 38 3d 53 43  25 21 32 38 3a 53 50 25  |P%!28=SC%!28:SP%|
00000890  2b 3d 33 32 3a 53 43 25  2b 3d 31 36 30 3a ed 0d  |+=32:SC%+=160:..|
000008a0  02 a8 05 e1 0d 02 b2 05  3a 0d 02 bc 0f dd f2 73  |........:......s|
000008b0  70 68 65 72 65 73 70 72  0d 02 c6 1b f1 22 53 70  |pherespr....."Sp|
000008c0  68 65 72 65 73 20 73 74  61 72 74 20 61 74 20 22  |heres start at "|
000008d0  3b 4e 25 0d 02 d0 18 e6  30 2c 30 3a c8 93 c8 90  |;N%.....0,0:....|
000008e0  30 2c 30 2c 32 35 35 2c  31 32 37 0d 02 da 1d e3  |0,0,255,127.....|
000008f0  58 25 3d 2d 36 32 b8 36  32 88 34 3a e3 59 25 3d  |X%=-62.62.4:.Y%=|
00000900  2d 36 32 b8 36 32 88 34  0d 02 e4 2a 58 3d 58 25  |-62.62.4...*X=X%|
00000910  2f 54 52 25 3a 59 3d 59  25 2f 54 52 25 3a 5a 32  |/TR%:Y=Y%/TR%:Z2|
00000920  3d 31 2d 58 2a 58 2d 59  2a 59 3a e7 5a 32 3e 3d  |=1-X*X-Y*Y:.Z2>=|
00000930  30 8c 0d 02 ee 24 f2 6c  69 67 68 74 28 58 2c 59  |0....$.light(X,Y|
00000940  2c 2d b6 28 5a 32 29 29  3a c8 92 58 25 2b 36 34  |,-.(Z2)):..X%+64|
00000950  2c 59 25 2b 36 34 0d 02  f8 18 e6 30 2c 31 35 3a  |,Y%+64.....0,15:|
00000960  c8 92 58 25 2b 31 39 32  2c 59 25 2b 36 34 0d 03  |..X%+192,Y%+64..|
00000970  02 08 cd 3a ed 2c 0d 03  0c 0c f2 63 6f 6e 76 65  |...:.,.....conve|
00000980  72 74 0d 03 16 05 e1 0d  03 20 05 e1 0d ff        |rt....... ....|
0000098e