�  3D Plasma Ball
� by Nigel Stoner
� (I Finally did it !!)
� � �12:�:� " at line ";�:�

	�init
A� ș 6,112,s%:s%=s%�3:ș6,113,s%:Ȗ:�:�rotate:�sort:�draw:� �
�
	



��init
� 9+128:ȑ640,512:�:�colors

V� lx(99),ly(99),lz(99),depth(1024),dh%(99),dv%(99):s%=1:lines%=19:spd%=8:spike%=32
O� a%=-512 � 512:depth(a%+512) = 1/((a%/720)+1):�:hsp%=spd%/2:hspk%=spike%/2
�� a%=0 � lines%:x%=380:y%=0:z%=0:yang%=�(360):xang%=�(360):s=��(yang%):c=��(yang%):xnew=x%*c-y%*s:ynew=x%*s+y%*c:x%=xnew:y%=ynew:s=��(xang%):c=��(xang%):znew=z%*c-y%*s:ynew=z%*s+y%*c:z%=znew:y%=ynew:lx(a%)=x%:lz(a%)=y%:ly(a%)=z%
/dh%(a%)=�(spd%)-hsp%:dv%(a%)=�(spd%)-hsp%:�
�

��rotate
O� vtx%= 0 � lines%:� �(1)>.95 dh%(vtx%)=�(spd%)-hsp%:dv%(vtx%)=�(spd%)-hsp%
�c=��(dh%(vtx%)):s=��(dh%(vtx%)):xnew=lx(vtx%)*c-lz(vtx%)*s:znew=lx(vtx%)*s+lz(vtx%)*c:lx(vtx%)=xnew:lz(vtx%)=znew:c=��(dv%(vtx%)):s=��(dv%(vtx%)):ynew=ly(vtx%)*c-lz(vtx%)*s:znew=ly(vtx%)*s+lz(vtx%)*c:ly(vtx%)=ynew:lz(vtx%)=znew:� vtx%
�


��sort
�� a%=0 � lines%-1:� lz(a%)<lz(a%+1) � Ȕ lx(a%),lx(a%+1):Ȕ ly(a%),ly(a%+1):Ȕ lz(a%),lz(a%+1):Ȕ dh%(a%),dh%(a%+1):Ȕ dv%(a%),dv%(a%+1):a%=0
� a%
�


��draw
��8:ȏ0,0,468:half%=(lines%+1)/2:� a%=0 � half%:f=depth(�(lz(a%))+512):px%=lx(a%)*f:py%=ly(a%)*f:�f*7+1:�px%/6,py%/6:�px%,py%:ȏȐpx%,py%,6:� a%:�0:ȏȐ0,0,64
�� a%=half%+1 � lines%:f=depth(�(lz(a%))+512):� f*7+1:px%=lx(a%)*f:py%=ly(a%)*f:ȏȐpx%/6,py%/6,4:� b=.25 � 1 �.15:y%=�(spike%)-hspk%:x%=�(spike%)-hspk%:�px%*b+x%,py%*b+y%:�b:ȏȐpx%+x%,py%+y%,8:�a%
 �
!
"��colors
#T� a%=0 � 15 � 2:� a%,a%*16,a%*8,a%*15:� a%+1,a%*8,a%*4,a%*7:� a%:�15,240,200,240
$�
�

00000000  0d 00 01 15 f4 20 20 33  44 20 50 6c 61 73 6d 61  |.....  3D Plasma|
00000010  20 42 61 6c 6c 0d 00 02  15 f4 20 62 79 20 4e 69  | Ball..... by Ni|
00000020  67 65 6c 20 53 74 6f 6e  65 72 0d 00 03 1b f4 20  |gel Stoner..... |
00000030  28 49 20 46 69 6e 61 6c  6c 79 20 64 69 64 20 69  |(I Finally did i|
00000040  74 20 21 21 29 0d 00 04  1f ee 20 85 20 eb 31 32  |t !!)..... . .12|
00000050  3a f6 3a f1 20 22 20 61  74 20 6c 69 6e 65 20 22  |:.:. " at line "|
00000060  3b 9e 3a e0 0d 00 05 04  0d 00 06 09 f2 69 6e 69  |;.:..........ini|
00000070  74 0d 00 07 41 f5 20 c8  99 20 36 2c 31 31 32 2c  |t...A. .. 6,112,|
00000080  73 25 3a 73 25 3d 73 25  82 33 3a c8 99 36 2c 31  |s%:s%=s%.3:..6,1|
00000090  31 33 2c 73 25 3a c8 96  3a db 3a f2 72 6f 74 61  |13,s%:..:.:.rota|
000000a0  74 65 3a f2 73 6f 72 74  3a f2 64 72 61 77 3a fd  |te:.sort:.draw:.|
000000b0  20 a3 0d 00 08 05 e0 0d  00 09 04 0d 00 0a 04 0d  | ...............|
000000c0  00 0b 0a dd f2 69 6e 69  74 0d 00 0c 1f eb 20 39  |.....init..... 9|
000000d0  2b 31 32 38 3a c8 91 36  34 30 2c 35 31 32 3a 87  |+128:..640,512:.|
000000e0  3a f2 63 6f 6c 6f 72 73  0d 00 0d 56 de 20 6c 78  |:.colors...V. lx|
000000f0  28 39 39 29 2c 6c 79 28  39 39 29 2c 6c 7a 28 39  |(99),ly(99),lz(9|
00000100  39 29 2c 64 65 70 74 68  28 31 30 32 34 29 2c 64  |9),depth(1024),d|
00000110  68 25 28 39 39 29 2c 64  76 25 28 39 39 29 3a 73  |h%(99),dv%(99):s|
00000120  25 3d 31 3a 6c 69 6e 65  73 25 3d 31 39 3a 73 70  |%=1:lines%=19:sp|
00000130  64 25 3d 38 3a 73 70 69  6b 65 25 3d 33 32 0d 00  |d%=8:spike%=32..|
00000140  0e 4f e3 20 61 25 3d 2d  35 31 32 20 b8 20 35 31  |.O. a%=-512 . 51|
00000150  32 3a 64 65 70 74 68 28  61 25 2b 35 31 32 29 20  |2:depth(a%+512) |
00000160  3d 20 31 2f 28 28 61 25  2f 37 32 30 29 2b 31 29  |= 1/((a%/720)+1)|
00000170  3a ed 3a 68 73 70 25 3d  73 70 64 25 2f 32 3a 68  |:.:hsp%=spd%/2:h|
00000180  73 70 6b 25 3d 73 70 69  6b 65 25 2f 32 0d 00 0f  |spk%=spike%/2...|
00000190  e8 e3 20 61 25 3d 30 20  b8 20 6c 69 6e 65 73 25  |.. a%=0 . lines%|
000001a0  3a 78 25 3d 33 38 30 3a  79 25 3d 30 3a 7a 25 3d  |:x%=380:y%=0:z%=|
000001b0  30 3a 79 61 6e 67 25 3d  b3 28 33 36 30 29 3a 78  |0:yang%=.(360):x|
000001c0  61 6e 67 25 3d b3 28 33  36 30 29 3a 73 3d b5 b2  |ang%=.(360):s=..|
000001d0  28 79 61 6e 67 25 29 3a  63 3d 9b b2 28 79 61 6e  |(yang%):c=..(yan|
000001e0  67 25 29 3a 78 6e 65 77  3d 78 25 2a 63 2d 79 25  |g%):xnew=x%*c-y%|
000001f0  2a 73 3a 79 6e 65 77 3d  78 25 2a 73 2b 79 25 2a  |*s:ynew=x%*s+y%*|
00000200  63 3a 78 25 3d 78 6e 65  77 3a 79 25 3d 79 6e 65  |c:x%=xnew:y%=yne|
00000210  77 3a 73 3d b5 b2 28 78  61 6e 67 25 29 3a 63 3d  |w:s=..(xang%):c=|
00000220  9b b2 28 78 61 6e 67 25  29 3a 7a 6e 65 77 3d 7a  |..(xang%):znew=z|
00000230  25 2a 63 2d 79 25 2a 73  3a 79 6e 65 77 3d 7a 25  |%*c-y%*s:ynew=z%|
00000240  2a 73 2b 79 25 2a 63 3a  7a 25 3d 7a 6e 65 77 3a  |*s+y%*c:z%=znew:|
00000250  79 25 3d 79 6e 65 77 3a  6c 78 28 61 25 29 3d 78  |y%=ynew:lx(a%)=x|
00000260  25 3a 6c 7a 28 61 25 29  3d 79 25 3a 6c 79 28 61  |%:lz(a%)=y%:ly(a|
00000270  25 29 3d 7a 25 0d 00 10  2f 64 68 25 28 61 25 29  |%)=z%.../dh%(a%)|
00000280  3d b3 28 73 70 64 25 29  2d 68 73 70 25 3a 64 76  |=.(spd%)-hsp%:dv|
00000290  25 28 61 25 29 3d b3 28  73 70 64 25 29 2d 68 73  |%(a%)=.(spd%)-hs|
000002a0  70 25 3a ed 0d 00 11 05  e1 0d 00 12 04 0d 00 13  |p%:.............|
000002b0  0c dd f2 72 6f 74 61 74  65 0d 00 14 4f e3 20 76  |...rotate...O. v|
000002c0  74 78 25 3d 20 30 20 b8  20 6c 69 6e 65 73 25 3a  |tx%= 0 . lines%:|
000002d0  e7 20 b3 28 31 29 3e 2e  39 35 20 64 68 25 28 76  |. .(1)>.95 dh%(v|
000002e0  74 78 25 29 3d b3 28 73  70 64 25 29 2d 68 73 70  |tx%)=.(spd%)-hsp|
000002f0  25 3a 64 76 25 28 76 74  78 25 29 3d b3 28 73 70  |%:dv%(vtx%)=.(sp|
00000300  64 25 29 2d 68 73 70 25  0d 00 15 ee 63 3d 9b b2  |d%)-hsp%....c=..|
00000310  28 64 68 25 28 76 74 78  25 29 29 3a 73 3d b5 b2  |(dh%(vtx%)):s=..|
00000320  28 64 68 25 28 76 74 78  25 29 29 3a 78 6e 65 77  |(dh%(vtx%)):xnew|
00000330  3d 6c 78 28 76 74 78 25  29 2a 63 2d 6c 7a 28 76  |=lx(vtx%)*c-lz(v|
00000340  74 78 25 29 2a 73 3a 7a  6e 65 77 3d 6c 78 28 76  |tx%)*s:znew=lx(v|
00000350  74 78 25 29 2a 73 2b 6c  7a 28 76 74 78 25 29 2a  |tx%)*s+lz(vtx%)*|
00000360  63 3a 6c 78 28 76 74 78  25 29 3d 78 6e 65 77 3a  |c:lx(vtx%)=xnew:|
00000370  6c 7a 28 76 74 78 25 29  3d 7a 6e 65 77 3a 63 3d  |lz(vtx%)=znew:c=|
00000380  9b b2 28 64 76 25 28 76  74 78 25 29 29 3a 73 3d  |..(dv%(vtx%)):s=|
00000390  b5 b2 28 64 76 25 28 76  74 78 25 29 29 3a 79 6e  |..(dv%(vtx%)):yn|
000003a0  65 77 3d 6c 79 28 76 74  78 25 29 2a 63 2d 6c 7a  |ew=ly(vtx%)*c-lz|
000003b0  28 76 74 78 25 29 2a 73  3a 7a 6e 65 77 3d 6c 79  |(vtx%)*s:znew=ly|
000003c0  28 76 74 78 25 29 2a 73  2b 6c 7a 28 76 74 78 25  |(vtx%)*s+lz(vtx%|
000003d0  29 2a 63 3a 6c 79 28 76  74 78 25 29 3d 79 6e 65  |)*c:ly(vtx%)=yne|
000003e0  77 3a 6c 7a 28 76 74 78  25 29 3d 7a 6e 65 77 3a  |w:lz(vtx%)=znew:|
000003f0  ed 20 76 74 78 25 0d 00  16 05 e1 0d 00 17 04 0d  |. vtx%..........|
00000400  00 18 0a dd f2 73 6f 72  74 0d 00 19 91 e3 20 61  |.....sort..... a|
00000410  25 3d 30 20 b8 20 6c 69  6e 65 73 25 2d 31 3a e7  |%=0 . lines%-1:.|
00000420  20 6c 7a 28 61 25 29 3c  6c 7a 28 61 25 2b 31 29  | lz(a%)<lz(a%+1)|
00000430  20 8c 20 c8 94 20 6c 78  28 61 25 29 2c 6c 78 28  | . .. lx(a%),lx(|
00000440  61 25 2b 31 29 3a c8 94  20 6c 79 28 61 25 29 2c  |a%+1):.. ly(a%),|
00000450  6c 79 28 61 25 2b 31 29  3a c8 94 20 6c 7a 28 61  |ly(a%+1):.. lz(a|
00000460  25 29 2c 6c 7a 28 61 25  2b 31 29 3a c8 94 20 64  |%),lz(a%+1):.. d|
00000470  68 25 28 61 25 29 2c 64  68 25 28 61 25 2b 31 29  |h%(a%),dh%(a%+1)|
00000480  3a c8 94 20 64 76 25 28  61 25 29 2c 64 76 25 28  |:.. dv%(a%),dv%(|
00000490  61 25 2b 31 29 3a 61 25  3d 30 0d 00 1a 08 ed 20  |a%+1):a%=0..... |
000004a0  61 25 0d 00 1b 05 e1 0d  00 1c 04 0d 00 1d 0a dd  |a%..............|
000004b0  f2 64 72 61 77 0d 00 1e  a1 e6 38 3a c8 8f 30 2c  |.draw.....8:..0,|
000004c0  30 2c 34 36 38 3a 68 61  6c 66 25 3d 28 6c 69 6e  |0,468:half%=(lin|
000004d0  65 73 25 2b 31 29 2f 32  3a e3 20 61 25 3d 30 20  |es%+1)/2:. a%=0 |
000004e0  b8 20 68 61 6c 66 25 3a  66 3d 64 65 70 74 68 28  |. half%:f=depth(|
000004f0  a8 28 6c 7a 28 61 25 29  29 2b 35 31 32 29 3a 70  |.(lz(a%))+512):p|
00000500  78 25 3d 6c 78 28 61 25  29 2a 66 3a 70 79 25 3d  |x%=lx(a%)*f:py%=|
00000510  6c 79 28 61 25 29 2a 66  3a e6 66 2a 37 2b 31 3a  |ly(a%)*f:.f*7+1:|
00000520  ec 70 78 25 2f 36 2c 70  79 25 2f 36 3a df 70 78  |.px%/6,py%/6:.px|
00000530  25 2c 70 79 25 3a c8 8f  c8 90 70 78 25 2c 70 79  |%,py%:....px%,py|
00000540  25 2c 36 3a ed 20 61 25  3a e6 30 3a c8 8f c8 90  |%,6:. a%:.0:....|
00000550  30 2c 30 2c 36 34 0d 00  1f c9 e3 20 61 25 3d 68  |0,0,64..... a%=h|
00000560  61 6c 66 25 2b 31 20 b8  20 6c 69 6e 65 73 25 3a  |alf%+1 . lines%:|
00000570  66 3d 64 65 70 74 68 28  a8 28 6c 7a 28 61 25 29  |f=depth(.(lz(a%)|
00000580  29 2b 35 31 32 29 3a e6  20 66 2a 37 2b 31 3a 70  |)+512):. f*7+1:p|
00000590  78 25 3d 6c 78 28 61 25  29 2a 66 3a 70 79 25 3d  |x%=lx(a%)*f:py%=|
000005a0  6c 79 28 61 25 29 2a 66  3a c8 8f c8 90 70 78 25  |ly(a%)*f:....px%|
000005b0  2f 36 2c 70 79 25 2f 36  2c 34 3a e3 20 62 3d 2e  |/6,py%/6,4:. b=.|
000005c0  32 35 20 b8 20 31 20 88  2e 31 35 3a 79 25 3d b3  |25 . 1 ..15:y%=.|
000005d0  28 73 70 69 6b 65 25 29  2d 68 73 70 6b 25 3a 78  |(spike%)-hspk%:x|
000005e0  25 3d b3 28 73 70 69 6b  65 25 29 2d 68 73 70 6b  |%=.(spike%)-hspk|
000005f0  25 3a df 70 78 25 2a 62  2b 78 25 2c 70 79 25 2a  |%:.px%*b+x%,py%*|
00000600  62 2b 79 25 3a ed 62 3a  c8 8f c8 90 70 78 25 2b  |b+y%:.b:....px%+|
00000610  78 25 2c 70 79 25 2b 79  25 2c 38 3a ed 61 25 0d  |x%,py%+y%,8:.a%.|
00000620  00 20 05 e1 0d 00 21 04  0d 00 22 0c dd f2 63 6f  |. ....!..."...co|
00000630  6c 6f 72 73 0d 00 23 54  e3 20 61 25 3d 30 20 b8  |lors..#T. a%=0 .|
00000640  20 31 35 20 88 20 32 3a  fb 20 61 25 2c 61 25 2a  | 15 . 2:. a%,a%*|
00000650  31 36 2c 61 25 2a 38 2c  61 25 2a 31 35 3a fb 20  |16,a%*8,a%*15:. |
00000660  61 25 2b 31 2c 61 25 2a  38 2c 61 25 2a 34 2c 61  |a%+1,a%*8,a%*4,a|
00000670  25 2a 37 3a ed 20 61 25  3a fb 31 35 2c 32 34 30  |%*7:. a%:.15,240|
00000680  2c 32 30 30 2c 32 34 30  0d 00 24 05 e1 0d ff     |,200,240..$....|
0000068f