� Binary Image
� Peter Bagnall

� 25/7/94
(
2� � � 0:� �$,�:�
<
F&ț "<obey$Dir>.Libraries.Graphics"
P
�mode:� �
Z	*snew
d*sload <obey$dir>.africa
n*schoose screendump
x�findcentres
��objects
�� a%=0 � 700
��render(a%)
��animate(a%)
��
��
�
���findcentres
�
� x(1)
�� 640,482,640,542
�ȗ � 480,512
�ȗ ȓ 0,0,640,512
�ȗ x,y,b

�

ȗ x,y,b

� %111111 Ȝ 192

"Ȓ x,512

,Ȓ 1280-x,512

6� %000000 Ȝ 0

@Ȓ x,512

JȒ 1280-x,512

Tȗ x,y,b

^	� b>0

hx(0)=x:x(1)=1280-x

r�

|�

�

�
��objects

�� points(200,2)

�� sides(200,4)

�� renderX%(3)

�� renderY%(3)

�cos=�(�(5))

�sin=�(�(5))

�apex%=8

�faces%=5

�
pers=2

�� display%(faces%)

�� d%(2)
� sort%(apex%)
� a%=0 � apex%
 � b%=0 � 2
&  � points(a%,b%)
0 �
:�
D� a%=0 � faces%
N � b%=0 � 4
X  � sides(a%,b%)
b �
l�
v�
�
�� -10,100,-10
�� 10,100,-10
�� 0,90,-10
�� 0,110,-10
�� -10,100,10
�� 10,100,10
�
� 0,90,10
�� 0,110,10
�
� 0,100,0
�
�� 0,2,6,4,%110000
�� 6,5,1,2,%001100
� 0,2,1,3,%000011
� 5,6,4,7,%111100
� 0,3,7,4,%110011
 � 7,5,1,3,%001111
*
4��render(f%)
>� a%
H�("fx 112,"+�((f% � 2)+1))
R�
\,�26,24,640;0;1280;1023;:� &ED,x(1)-500,0
f-�26,24,0;0;640;1023;:� &ED,x(0)-500,0:�26
p� eye%=0 � 1
z ȑ x(eye% � 1),512
� min=99999
� � a%=0 � apex%-1
�1  � �dist(a%)<min � min=�dist(a%):sort%(0)=a%
� �
� Ȏ sort%(0) �
�  � 0 :sort%()=0,3,2,4
�  � 1 :sort%()=1,2,3,5
�  � 2 :sort%()=2,6,0,1
�  � 3 :sort%()=3,0,1,7
�  � 4 :sort%()=4,0,6,7
�  � 5 :sort%()=5,6,1,7
�  � 6 :sort%()=6,4,5,2
�  � 7 :sort%()=7,4,3,5
 �
; � �dist(sort%(1))>�dist(sort%(2)) Ȕ sort%(1),sort%(2)
; � �dist(sort%(2))>�dist(sort%(3)) Ȕ sort%(3),sort%(2)
$; � �dist(sort%(1))>�dist(sort%(2)) Ȕ sort%(1),sort%(2)
. � p%=0 � faces%
8  display%(p%)=0
B �
L � p%=0 � faces%
V  � q%=0 � 3
`>   � sides(p%,q%)=sort%(0) � display%(p%)=display%(p%) � 1
j>   � sides(p%,q%)=sort%(1) � display%(p%)=display%(p%) � 2
t>   � sides(p%,q%)=sort%(2) � display%(p%)=display%(p%) � 4
~>   � sides(p%,q%)=sort%(3) � display%(p%)=display%(p%) � 8
�  �
� �
� � p%=0 � faces%
�%  � display%(p%)=%0111 � d%(2)=p%
�%  � display%(p%)=%1011 � d%(1)=p%
�%  � display%(p%)=%1101 � d%(0)=p%
� �
� � p%=0 � 2
�  � q%=0 � 3
�   point%=sides(d%(p%),q%)
�,   x=points(point%,0)+pers-(eye%*2*pers)
�*   renderX%(q%)=x/points(point%,1)*200
9   renderY%(q%)=points(point%,2)/points(point%,1)*200

  �
  � sides(d%(p%),4)
  � renderX%(0),renderY%(0)
(  � renderX%(1),renderY%(1)
2#  � &55,renderX%(3),renderY%(3)
<#  � &55,renderX%(2),renderY%(2)
F �
P�
Z�("fx 113,"+�((f%�2)+1))
d�
n
x��animate(frame%)
�� a%
� glide%=�:rotate%=�:tumble%=�
�#� frame%<=90 � glide%=�:dd=-0.8
�5� frame%>100 � frame%<400 � rotate%=�:c=cos:s=sin
�5� frame%>350 � frame%<510 � tumble%=�:c=cos:s=sin
�6� frame%>510 � frame%<700 � rotate%=�:c=cos:s=-sin
�"� frame%>600 � glide%=�:dd=0.8
�� glide% �
� � b%=0 � apex%
� points(b%,1)+=dd
� �
��
�� rotate% �
 � a%=0 � apex%-1
C  x=points(a%,0)-points(apex%,0):y=points(a%,1)-points(apex%,1)
&  d=�(x*x+y*y):x=x*c-y*s:y=x*s+y*c
"%  nd=�(x*x+y*y):x=x*d/nd:y=y*d/nd
,C  points(a%,0)=points(apex%,0)+x:points(a%,1)=points(apex%,1)+y
6 �
@�
J� tumble% �
T � a%=0 � apex%-1
^C  x=points(a%,0)-points(apex%,0):y=points(a%,2)-points(apex%,2)
h&  d=�(x*x+y*y):x=x*c-y*s:y=x*s+y*c
r%  nd=�(x*x+y*y):x=x*d/nd:y=y*d/nd
|C  points(a%,0)=points(apex%,0)+x:points(a%,2)=points(apex%,2)+y
� �
��
��
�
�ݤdist(p%)
�� x
�%x=points(p%,0)+pers-(eye%*2*pers)
�C=�(x*x+points(p%,1)*points(p%,1)+points(p%,2)*points(p%,2)):� 7
�

00000000  0d 00 0a 12 f4 20 42 69  6e 61 72 79 20 49 6d 61  |..... Binary Ima|
00000010  67 65 0d 00 14 13 f4 20  50 65 74 65 72 20 42 61  |ge..... Peter Ba|
00000020  67 6e 61 6c 6c 0d 00 1e  0d f4 20 32 35 2f 37 2f  |gnall..... 25/7/|
00000030  39 34 0d 00 28 04 0d 00  32 14 ee 20 85 20 eb 20  |94..(...2.. . . |
00000040  30 3a f1 20 f6 24 2c 9e  3a e0 0d 00 3c 04 0d 00  |0:. .$,.:...<...|
00000050  46 26 c8 9b 20 22 3c 6f  62 65 79 24 44 69 72 3e  |F&.. "<obey$Dir>|
00000060  2e 4c 69 62 72 61 72 69  65 73 2e 47 72 61 70 68  |.Libraries.Graph|
00000070  69 63 73 22 0d 00 50 0d  f2 6d 6f 64 65 3a f1 20  |ics"..P..mode:. |
00000080  eb 0d 00 5a 09 2a 73 6e  65 77 0d 00 64 1c 2a 73  |...Z.*snew..d.*s|
00000090  6c 6f 61 64 20 3c 6f 62  65 79 24 64 69 72 3e 2e  |load <obey$dir>.|
000000a0  61 66 72 69 63 61 0d 00  6e 17 2a 73 63 68 6f 6f  |africa..n.*schoo|
000000b0  73 65 20 73 63 72 65 65  6e 64 75 6d 70 0d 00 78  |se screendump..x|
000000c0  10 f2 66 69 6e 64 63 65  6e 74 72 65 73 0d 00 82  |..findcentres...|
000000d0  0c f2 6f 62 6a 65 63 74  73 0d 00 8c 10 e3 20 61  |..objects..... a|
000000e0  25 3d 30 20 b8 20 37 30  30 0d 00 96 0f f2 72 65  |%=0 . 700.....re|
000000f0  6e 64 65 72 28 61 25 29  0d 00 a0 10 f2 61 6e 69  |nder(a%).....ani|
00000100  6d 61 74 65 28 61 25 29  0d 00 aa 05 ed 0d 00 b4  |mate(a%)........|
00000110  05 e0 0d 00 be 04 0d 00  c8 11 dd f2 66 69 6e 64  |............find|
00000120  63 65 6e 74 72 65 73 0d  00 d2 0a de 20 78 28 31  |centres..... x(1|
00000130  29 0d 00 dc 15 86 20 36  34 30 2c 34 38 32 2c 36  |)..... 640,482,6|
00000140  34 30 2c 35 34 32 0d 00  e6 10 c8 97 20 b8 20 34  |40,542...... . 4|
00000150  38 30 2c 35 31 32 0d 00  f0 15 c8 97 20 c8 93 20  |80,512...... .. |
00000160  30 2c 30 2c 36 34 30 2c  35 31 32 0d 00 fa 0c c8  |0,0,640,512.....|
00000170  97 20 78 2c 79 2c 62 0d  01 04 05 f5 0d 01 0e 0c  |. x,y,b.........|
00000180  c8 97 20 78 2c 79 2c 62  0d 01 18 14 e6 20 25 31  |.. x,y,b..... %1|
00000190  31 31 31 31 31 20 c8 9c  20 31 39 32 0d 01 22 0c  |11111 .. 192..".|
000001a0  c8 92 20 78 2c 35 31 32  0d 01 2c 11 c8 92 20 31  |.. x,512..,... 1|
000001b0  32 38 30 2d 78 2c 35 31  32 0d 01 36 12 e6 20 25  |280-x,512..6.. %|
000001c0  30 30 30 30 30 30 20 c8  9c 20 30 0d 01 40 0c c8  |000000 .. 0..@..|
000001d0  92 20 78 2c 35 31 32 0d  01 4a 11 c8 92 20 31 32  |. x,512..J... 12|
000001e0  38 30 2d 78 2c 35 31 32  0d 01 54 0c c8 97 20 78  |80-x,512..T... x|
000001f0  2c 79 2c 62 0d 01 5e 09  fd 20 62 3e 30 0d 01 68  |,y,b..^.. b>0..h|
00000200  16 78 28 30 29 3d 78 3a  78 28 31 29 3d 31 32 38  |.x(0)=x:x(1)=128|
00000210  30 2d 78 0d 01 72 05 db  0d 01 7c 05 e1 0d 01 86  |0-x..r....|.....|
00000220  04 0d 01 90 0d dd f2 6f  62 6a 65 63 74 73 0d 01  |.......objects..|
00000230  9a 13 de 20 70 6f 69 6e  74 73 28 32 30 30 2c 32  |... points(200,2|
00000240  29 0d 01 a4 12 de 20 73  69 64 65 73 28 32 30 30  |)..... sides(200|
00000250  2c 34 29 0d 01 ae 11 de  20 72 65 6e 64 65 72 58  |,4)..... renderX|
00000260  25 28 33 29 0d 01 b8 11  de 20 72 65 6e 64 65 72  |%(3)..... render|
00000270  59 25 28 33 29 0d 01 c2  0f 63 6f 73 3d 9b 28 b2  |Y%(3)....cos=.(.|
00000280  28 35 29 29 0d 01 cc 0f  73 69 6e 3d b5 28 b2 28  |(5))....sin=.(.(|
00000290  35 29 29 0d 01 d6 0b 61  70 65 78 25 3d 38 0d 01  |5))....apex%=8..|
000002a0  e0 0c 66 61 63 65 73 25  3d 35 0d 01 ea 0a 70 65  |..faces%=5....pe|
000002b0  72 73 3d 32 0d 01 f4 16  de 20 64 69 73 70 6c 61  |rs=2..... displa|
000002c0  79 25 28 66 61 63 65 73  25 29 0d 01 fe 0b de 20  |y%(faces%)..... |
000002d0  64 25 28 32 29 0d 02 08  12 de 20 73 6f 72 74 25  |d%(2)..... sort%|
000002e0  28 61 70 65 78 25 29 0d  02 12 12 e3 20 61 25 3d  |(apex%)..... a%=|
000002f0  30 20 b8 20 61 70 65 78  25 0d 02 1c 0f 20 e3 20  |0 . apex%.... . |
00000300  62 25 3d 30 20 b8 20 32  0d 02 26 15 20 20 f3 20  |b%=0 . 2..&.  . |
00000310  70 6f 69 6e 74 73 28 61  25 2c 62 25 29 0d 02 30  |points(a%,b%)..0|
00000320  06 20 ed 0d 02 3a 05 ed  0d 02 44 13 e3 20 61 25  |. ...:....D.. a%|
00000330  3d 30 20 b8 20 66 61 63  65 73 25 0d 02 4e 0f 20  |=0 . faces%..N. |
00000340  e3 20 62 25 3d 30 20 b8  20 34 0d 02 58 14 20 20  |. b%=0 . 4..X.  |
00000350  f3 20 73 69 64 65 73 28  61 25 2c 62 25 29 0d 02  |. sides(a%,b%)..|
00000360  62 06 20 ed 0d 02 6c 05  ed 0d 02 76 05 e1 0d 02  |b. ...l....v....|
00000370  80 04 0d 02 8a 11 dc 20  2d 31 30 2c 31 30 30 2c  |....... -10,100,|
00000380  2d 31 30 0d 02 94 10 dc  20 31 30 2c 31 30 30 2c  |-10..... 10,100,|
00000390  2d 31 30 0d 02 9e 0e dc  20 30 2c 39 30 2c 2d 31  |-10..... 0,90,-1|
000003a0  30 0d 02 a8 0f dc 20 30  2c 31 31 30 2c 2d 31 30  |0..... 0,110,-10|
000003b0  0d 02 b2 10 dc 20 2d 31  30 2c 31 30 30 2c 31 30  |..... -10,100,10|
000003c0  0d 02 bc 0f dc 20 31 30  2c 31 30 30 2c 31 30 0d  |..... 10,100,10.|
000003d0  02 c6 0d dc 20 30 2c 39  30 2c 31 30 0d 02 d0 0e  |.... 0,90,10....|
000003e0  dc 20 30 2c 31 31 30 2c  31 30 0d 02 da 0d dc 20  |. 0,110,10..... |
000003f0  30 2c 31 30 30 2c 30 0d  02 e4 04 0d 02 ee 15 dc  |0,100,0.........|
00000400  20 30 2c 32 2c 36 2c 34  2c 25 31 31 30 30 30 30  | 0,2,6,4,%110000|
00000410  0d 02 f8 15 dc 20 36 2c  35 2c 31 2c 32 2c 25 30  |..... 6,5,1,2,%0|
00000420  30 31 31 30 30 0d 03 02  15 dc 20 30 2c 32 2c 31  |01100..... 0,2,1|
00000430  2c 33 2c 25 30 30 30 30  31 31 0d 03 0c 15 dc 20  |,3,%000011..... |
00000440  35 2c 36 2c 34 2c 37 2c  25 31 31 31 31 30 30 0d  |5,6,4,7,%111100.|
00000450  03 16 15 dc 20 30 2c 33  2c 37 2c 34 2c 25 31 31  |.... 0,3,7,4,%11|
00000460  30 30 31 31 0d 03 20 15  dc 20 37 2c 35 2c 31 2c  |0011.. .. 7,5,1,|
00000470  33 2c 25 30 30 31 31 31  31 0d 03 2a 04 0d 03 34  |3,%001111..*...4|
00000480  10 dd f2 72 65 6e 64 65  72 28 66 25 29 0d 03 3e  |...render(f%)..>|
00000490  08 ea 20 61 25 0d 03 48  1e ff 28 22 66 78 20 31  |.. a%..H..("fx 1|
000004a0  31 32 2c 22 2b c3 28 28  66 25 20 83 20 32 29 2b  |12,"+.((f% . 2)+|
000004b0  31 29 29 0d 03 52 05 db  0d 03 5c 2c ef 32 36 2c  |1))..R....\,.26,|
000004c0  32 34 2c 36 34 30 3b 30  3b 31 32 38 30 3b 31 30  |24,640;0;1280;10|
000004d0  32 33 3b 3a f0 20 26 45  44 2c 78 28 31 29 2d 35  |23;:. &ED,x(1)-5|
000004e0  30 30 2c 30 0d 03 66 2d  ef 32 36 2c 32 34 2c 30  |00,0..f-.26,24,0|
000004f0  3b 30 3b 36 34 30 3b 31  30 32 33 3b 3a f0 20 26  |;0;640;1023;:. &|
00000500  45 44 2c 78 28 30 29 2d  35 30 30 2c 30 3a ef 32  |ED,x(0)-500,0:.2|
00000510  36 0d 03 70 10 e3 20 65  79 65 25 3d 30 20 b8 20  |6..p.. eye%=0 . |
00000520  31 0d 03 7a 17 20 c8 91  20 78 28 65 79 65 25 20  |1..z. .. x(eye% |
00000530  82 20 31 29 2c 35 31 32  0d 03 84 0e 20 6d 69 6e  |. 1),512.... min|
00000540  3d 39 39 39 39 39 0d 03  8e 15 20 e3 20 61 25 3d  |=99999.... . a%=|
00000550  30 20 b8 20 61 70 65 78  25 2d 31 0d 03 98 31 20  |0 . apex%-1...1 |
00000560  20 e7 20 a4 64 69 73 74  28 61 25 29 3c 6d 69 6e  | . .dist(a%)<min|
00000570  20 8c 20 6d 69 6e 3d a4  64 69 73 74 28 61 25 29  | . min=.dist(a%)|
00000580  3a 73 6f 72 74 25 28 30  29 3d 61 25 0d 03 a2 06  |:sort%(0)=a%....|
00000590  20 ed 0d 03 ac 12 20 c8  8e 20 73 6f 72 74 25 28  | ..... .. sort%(|
000005a0  30 29 20 ca 0d 03 b6 1a  20 20 c9 20 30 20 3a 73  |0) .....  . 0 :s|
000005b0  6f 72 74 25 28 29 3d 30  2c 33 2c 32 2c 34 0d 03  |ort%()=0,3,2,4..|
000005c0  c0 1a 20 20 c9 20 31 20  3a 73 6f 72 74 25 28 29  |..  . 1 :sort%()|
000005d0  3d 31 2c 32 2c 33 2c 35  0d 03 ca 1a 20 20 c9 20  |=1,2,3,5....  . |
000005e0  32 20 3a 73 6f 72 74 25  28 29 3d 32 2c 36 2c 30  |2 :sort%()=2,6,0|
000005f0  2c 31 0d 03 d4 1a 20 20  c9 20 33 20 3a 73 6f 72  |,1....  . 3 :sor|
00000600  74 25 28 29 3d 33 2c 30  2c 31 2c 37 0d 03 de 1a  |t%()=3,0,1,7....|
00000610  20 20 c9 20 34 20 3a 73  6f 72 74 25 28 29 3d 34  |  . 4 :sort%()=4|
00000620  2c 30 2c 36 2c 37 0d 03  e8 1a 20 20 c9 20 35 20  |,0,6,7....  . 5 |
00000630  3a 73 6f 72 74 25 28 29  3d 35 2c 36 2c 31 2c 37  |:sort%()=5,6,1,7|
00000640  0d 03 f2 1a 20 20 c9 20  36 20 3a 73 6f 72 74 25  |....  . 6 :sort%|
00000650  28 29 3d 36 2c 34 2c 35  2c 32 0d 03 fc 1a 20 20  |()=6,4,5,2....  |
00000660  c9 20 37 20 3a 73 6f 72  74 25 28 29 3d 37 2c 34  |. 7 :sort%()=7,4|
00000670  2c 33 2c 35 0d 04 06 06  20 cb 0d 04 10 3b 20 e7  |,3,5.... ....; .|
00000680  20 a4 64 69 73 74 28 73  6f 72 74 25 28 31 29 29  | .dist(sort%(1))|
00000690  3e a4 64 69 73 74 28 73  6f 72 74 25 28 32 29 29  |>.dist(sort%(2))|
000006a0  20 c8 94 20 73 6f 72 74  25 28 31 29 2c 73 6f 72  | .. sort%(1),sor|
000006b0  74 25 28 32 29 0d 04 1a  3b 20 e7 20 a4 64 69 73  |t%(2)...; . .dis|
000006c0  74 28 73 6f 72 74 25 28  32 29 29 3e a4 64 69 73  |t(sort%(2))>.dis|
000006d0  74 28 73 6f 72 74 25 28  33 29 29 20 c8 94 20 73  |t(sort%(3)) .. s|
000006e0  6f 72 74 25 28 33 29 2c  73 6f 72 74 25 28 32 29  |ort%(3),sort%(2)|
000006f0  0d 04 24 3b 20 e7 20 a4  64 69 73 74 28 73 6f 72  |..$; . .dist(sor|
00000700  74 25 28 31 29 29 3e a4  64 69 73 74 28 73 6f 72  |t%(1))>.dist(sor|
00000710  74 25 28 32 29 29 20 c8  94 20 73 6f 72 74 25 28  |t%(2)) .. sort%(|
00000720  31 29 2c 73 6f 72 74 25  28 32 29 0d 04 2e 14 20  |1),sort%(2).... |
00000730  e3 20 70 25 3d 30 20 b8  20 66 61 63 65 73 25 0d  |. p%=0 . faces%.|
00000740  04 38 14 20 20 64 69 73  70 6c 61 79 25 28 70 25  |.8.  display%(p%|
00000750  29 3d 30 0d 04 42 06 20  ed 0d 04 4c 14 20 e3 20  |)=0..B. ...L. . |
00000760  70 25 3d 30 20 b8 20 66  61 63 65 73 25 0d 04 56  |p%=0 . faces%..V|
00000770  10 20 20 e3 20 71 25 3d  30 20 b8 20 33 0d 04 60  |.  . q%=0 . 3..`|
00000780  3e 20 20 20 e7 20 73 69  64 65 73 28 70 25 2c 71  |>   . sides(p%,q|
00000790  25 29 3d 73 6f 72 74 25  28 30 29 20 8c 20 64 69  |%)=sort%(0) . di|
000007a0  73 70 6c 61 79 25 28 70  25 29 3d 64 69 73 70 6c  |splay%(p%)=displ|
000007b0  61 79 25 28 70 25 29 20  84 20 31 0d 04 6a 3e 20  |ay%(p%) . 1..j> |
000007c0  20 20 e7 20 73 69 64 65  73 28 70 25 2c 71 25 29  |  . sides(p%,q%)|
000007d0  3d 73 6f 72 74 25 28 31  29 20 8c 20 64 69 73 70  |=sort%(1) . disp|
000007e0  6c 61 79 25 28 70 25 29  3d 64 69 73 70 6c 61 79  |lay%(p%)=display|
000007f0  25 28 70 25 29 20 84 20  32 0d 04 74 3e 20 20 20  |%(p%) . 2..t>   |
00000800  e7 20 73 69 64 65 73 28  70 25 2c 71 25 29 3d 73  |. sides(p%,q%)=s|
00000810  6f 72 74 25 28 32 29 20  8c 20 64 69 73 70 6c 61  |ort%(2) . displa|
00000820  79 25 28 70 25 29 3d 64  69 73 70 6c 61 79 25 28  |y%(p%)=display%(|
00000830  70 25 29 20 84 20 34 0d  04 7e 3e 20 20 20 e7 20  |p%) . 4..~>   . |
00000840  73 69 64 65 73 28 70 25  2c 71 25 29 3d 73 6f 72  |sides(p%,q%)=sor|
00000850  74 25 28 33 29 20 8c 20  64 69 73 70 6c 61 79 25  |t%(3) . display%|
00000860  28 70 25 29 3d 64 69 73  70 6c 61 79 25 28 70 25  |(p%)=display%(p%|
00000870  29 20 84 20 38 0d 04 88  07 20 20 ed 0d 04 92 06  |) . 8....  .....|
00000880  20 ed 0d 04 9c 14 20 e3  20 70 25 3d 30 20 b8 20  | ..... . p%=0 . |
00000890  66 61 63 65 73 25 0d 04  a6 25 20 20 e7 20 64 69  |faces%...%  . di|
000008a0  73 70 6c 61 79 25 28 70  25 29 3d 25 30 31 31 31  |splay%(p%)=%0111|
000008b0  20 8c 20 64 25 28 32 29  3d 70 25 0d 04 b0 25 20  | . d%(2)=p%...% |
000008c0  20 e7 20 64 69 73 70 6c  61 79 25 28 70 25 29 3d  | . display%(p%)=|
000008d0  25 31 30 31 31 20 8c 20  64 25 28 31 29 3d 70 25  |%1011 . d%(1)=p%|
000008e0  0d 04 ba 25 20 20 e7 20  64 69 73 70 6c 61 79 25  |...%  . display%|
000008f0  28 70 25 29 3d 25 31 31  30 31 20 8c 20 64 25 28  |(p%)=%1101 . d%(|
00000900  30 29 3d 70 25 0d 04 c4  06 20 ed 0d 04 ce 0f 20  |0)=p%.... ..... |
00000910  e3 20 70 25 3d 30 20 b8  20 32 0d 04 d8 10 20 20  |. p%=0 . 2....  |
00000920  e3 20 71 25 3d 30 20 b8  20 33 0d 04 e2 1e 20 20  |. q%=0 . 3....  |
00000930  20 70 6f 69 6e 74 25 3d  73 69 64 65 73 28 64 25  | point%=sides(d%|
00000940  28 70 25 29 2c 71 25 29  0d 04 ec 2c 20 20 20 78  |(p%),q%)...,   x|
00000950  3d 70 6f 69 6e 74 73 28  70 6f 69 6e 74 25 2c 30  |=points(point%,0|
00000960  29 2b 70 65 72 73 2d 28  65 79 65 25 2a 32 2a 70  |)+pers-(eye%*2*p|
00000970  65 72 73 29 0d 04 f6 2a  20 20 20 72 65 6e 64 65  |ers)...*   rende|
00000980  72 58 25 28 71 25 29 3d  78 2f 70 6f 69 6e 74 73  |rX%(q%)=x/points|
00000990  28 70 6f 69 6e 74 25 2c  31 29 2a 32 30 30 0d 05  |(point%,1)*200..|
000009a0  00 39 20 20 20 72 65 6e  64 65 72 59 25 28 71 25  |.9   renderY%(q%|
000009b0  29 3d 70 6f 69 6e 74 73  28 70 6f 69 6e 74 25 2c  |)=points(point%,|
000009c0  32 29 2f 70 6f 69 6e 74  73 28 70 6f 69 6e 74 25  |2)/points(point%|
000009d0  2c 31 29 2a 32 30 30 0d  05 0a 07 20 20 ed 0d 05  |,1)*200....  ...|
000009e0  14 17 20 20 e6 20 73 69  64 65 73 28 64 25 28 70  |..  . sides(d%(p|
000009f0  25 29 2c 34 29 0d 05 1e  1f 20 20 ec 20 72 65 6e  |%),4)....  . ren|
00000a00  64 65 72 58 25 28 30 29  2c 72 65 6e 64 65 72 59  |derX%(0),renderY|
00000a10  25 28 30 29 0d 05 28 1f  20 20 ec 20 72 65 6e 64  |%(0)..(.  . rend|
00000a20  65 72 58 25 28 31 29 2c  72 65 6e 64 65 72 59 25  |erX%(1),renderY%|
00000a30  28 31 29 0d 05 32 23 20  20 f0 20 26 35 35 2c 72  |(1)..2#  . &55,r|
00000a40  65 6e 64 65 72 58 25 28  33 29 2c 72 65 6e 64 65  |enderX%(3),rende|
00000a50  72 59 25 28 33 29 0d 05  3c 23 20 20 f0 20 26 35  |rY%(3)..<#  . &5|
00000a60  35 2c 72 65 6e 64 65 72  58 25 28 32 29 2c 72 65  |5,renderX%(2),re|
00000a70  6e 64 65 72 59 25 28 32  29 0d 05 46 06 20 ed 0d  |nderY%(2)..F. ..|
00000a80  05 50 05 ed 0d 05 5a 1c  ff 28 22 66 78 20 31 31  |.P....Z..("fx 11|
00000a90  33 2c 22 2b c3 28 28 66  25 83 32 29 2b 31 29 29  |3,"+.((f%.2)+1))|
00000aa0  0d 05 64 05 e1 0d 05 6e  04 0d 05 78 15 dd f2 61  |..d....n...x...a|
00000ab0  6e 69 6d 61 74 65 28 66  72 61 6d 65 25 29 0d 05  |nimate(frame%)..|
00000ac0  82 08 ea 20 61 25 0d 05  8c 20 67 6c 69 64 65 25  |... a%... glide%|
00000ad0  3d a3 3a 72 6f 74 61 74  65 25 3d a3 3a 74 75 6d  |=.:rotate%=.:tum|
00000ae0  62 6c 65 25 3d a3 0d 05  96 23 e7 20 66 72 61 6d  |ble%=....#. fram|
00000af0  65 25 3c 3d 39 30 20 8c  20 67 6c 69 64 65 25 3d  |e%<=90 . glide%=|
00000b00  b9 3a 64 64 3d 2d 30 2e  38 0d 05 a0 35 e7 20 66  |.:dd=-0.8...5. f|
00000b10  72 61 6d 65 25 3e 31 30  30 20 80 20 66 72 61 6d  |rame%>100 . fram|
00000b20  65 25 3c 34 30 30 20 8c  20 72 6f 74 61 74 65 25  |e%<400 . rotate%|
00000b30  3d b9 3a 63 3d 63 6f 73  3a 73 3d 73 69 6e 0d 05  |=.:c=cos:s=sin..|
00000b40  aa 35 e7 20 66 72 61 6d  65 25 3e 33 35 30 20 80  |.5. frame%>350 .|
00000b50  20 66 72 61 6d 65 25 3c  35 31 30 20 8c 20 74 75  | frame%<510 . tu|
00000b60  6d 62 6c 65 25 3d b9 3a  63 3d 63 6f 73 3a 73 3d  |mble%=.:c=cos:s=|
00000b70  73 69 6e 0d 05 b4 36 e7  20 66 72 61 6d 65 25 3e  |sin...6. frame%>|
00000b80  35 31 30 20 80 20 66 72  61 6d 65 25 3c 37 30 30  |510 . frame%<700|
00000b90  20 8c 20 72 6f 74 61 74  65 25 3d b9 3a 63 3d 63  | . rotate%=.:c=c|
00000ba0  6f 73 3a 73 3d 2d 73 69  6e 0d 05 be 22 e7 20 66  |os:s=-sin...". f|
00000bb0  72 61 6d 65 25 3e 36 30  30 20 8c 20 67 6c 69 64  |rame%>600 . glid|
00000bc0  65 25 3d b9 3a 64 64 3d  30 2e 38 0d 05 c8 0e e7  |e%=.:dd=0.8.....|
00000bd0  20 67 6c 69 64 65 25 20  8c 0d 05 d2 13 20 e3 20  | glide% ..... . |
00000be0  62 25 3d 30 20 b8 20 61  70 65 78 25 0d 05 dc 15  |b%=0 . apex%....|
00000bf0  20 70 6f 69 6e 74 73 28  62 25 2c 31 29 2b 3d 64  | points(b%,1)+=d|
00000c00  64 0d 05 e6 06 20 ed 0d  05 f0 05 cd 0d 05 fa 0f  |d.... ..........|
00000c10  e7 20 72 6f 74 61 74 65  25 20 8c 0d 06 04 15 20  |. rotate% ..... |
00000c20  e3 20 61 25 3d 30 20 b8  20 61 70 65 78 25 2d 31  |. a%=0 . apex%-1|
00000c30  0d 06 0e 43 20 20 78 3d  70 6f 69 6e 74 73 28 61  |...C  x=points(a|
00000c40  25 2c 30 29 2d 70 6f 69  6e 74 73 28 61 70 65 78  |%,0)-points(apex|
00000c50  25 2c 30 29 3a 79 3d 70  6f 69 6e 74 73 28 61 25  |%,0):y=points(a%|
00000c60  2c 31 29 2d 70 6f 69 6e  74 73 28 61 70 65 78 25  |,1)-points(apex%|
00000c70  2c 31 29 0d 06 18 26 20  20 64 3d b6 28 78 2a 78  |,1)...&  d=.(x*x|
00000c80  2b 79 2a 79 29 3a 78 3d  78 2a 63 2d 79 2a 73 3a  |+y*y):x=x*c-y*s:|
00000c90  79 3d 78 2a 73 2b 79 2a  63 0d 06 22 25 20 20 6e  |y=x*s+y*c.."%  n|
00000ca0  64 3d b6 28 78 2a 78 2b  79 2a 79 29 3a 78 3d 78  |d=.(x*x+y*y):x=x|
00000cb0  2a 64 2f 6e 64 3a 79 3d  79 2a 64 2f 6e 64 0d 06  |*d/nd:y=y*d/nd..|
00000cc0  2c 43 20 20 70 6f 69 6e  74 73 28 61 25 2c 30 29  |,C  points(a%,0)|
00000cd0  3d 70 6f 69 6e 74 73 28  61 70 65 78 25 2c 30 29  |=points(apex%,0)|
00000ce0  2b 78 3a 70 6f 69 6e 74  73 28 61 25 2c 31 29 3d  |+x:points(a%,1)=|
00000cf0  70 6f 69 6e 74 73 28 61  70 65 78 25 2c 31 29 2b  |points(apex%,1)+|
00000d00  79 0d 06 36 06 20 ed 0d  06 40 05 cd 0d 06 4a 0f  |y..6. ...@....J.|
00000d10  e7 20 74 75 6d 62 6c 65  25 20 8c 0d 06 54 15 20  |. tumble% ...T. |
00000d20  e3 20 61 25 3d 30 20 b8  20 61 70 65 78 25 2d 31  |. a%=0 . apex%-1|
00000d30  0d 06 5e 43 20 20 78 3d  70 6f 69 6e 74 73 28 61  |..^C  x=points(a|
00000d40  25 2c 30 29 2d 70 6f 69  6e 74 73 28 61 70 65 78  |%,0)-points(apex|
00000d50  25 2c 30 29 3a 79 3d 70  6f 69 6e 74 73 28 61 25  |%,0):y=points(a%|
00000d60  2c 32 29 2d 70 6f 69 6e  74 73 28 61 70 65 78 25  |,2)-points(apex%|
00000d70  2c 32 29 0d 06 68 26 20  20 64 3d b6 28 78 2a 78  |,2)..h&  d=.(x*x|
00000d80  2b 79 2a 79 29 3a 78 3d  78 2a 63 2d 79 2a 73 3a  |+y*y):x=x*c-y*s:|
00000d90  79 3d 78 2a 73 2b 79 2a  63 0d 06 72 25 20 20 6e  |y=x*s+y*c..r%  n|
00000da0  64 3d b6 28 78 2a 78 2b  79 2a 79 29 3a 78 3d 78  |d=.(x*x+y*y):x=x|
00000db0  2a 64 2f 6e 64 3a 79 3d  79 2a 64 2f 6e 64 0d 06  |*d/nd:y=y*d/nd..|
00000dc0  7c 43 20 20 70 6f 69 6e  74 73 28 61 25 2c 30 29  ||C  points(a%,0)|
00000dd0  3d 70 6f 69 6e 74 73 28  61 70 65 78 25 2c 30 29  |=points(apex%,0)|
00000de0  2b 78 3a 70 6f 69 6e 74  73 28 61 25 2c 32 29 3d  |+x:points(a%,2)=|
00000df0  70 6f 69 6e 74 73 28 61  70 65 78 25 2c 32 29 2b  |points(apex%,2)+|
00000e00  79 0d 06 86 06 20 ed 0d  06 90 05 cd 0d 06 9a 05  |y.... ..........|
00000e10  e1 0d 06 a4 04 0d 06 ae  0e dd a4 64 69 73 74 28  |...........dist(|
00000e20  70 25 29 0d 06 b8 07 ea  20 78 0d 06 c2 25 78 3d  |p%)..... x...%x=|
00000e30  70 6f 69 6e 74 73 28 70  25 2c 30 29 2b 70 65 72  |points(p%,0)+per|
00000e40  73 2d 28 65 79 65 25 2a  32 2a 70 65 72 73 29 0d  |s-(eye%*2*pers).|
00000e50  06 cc 43 3d b6 28 78 2a  78 2b 70 6f 69 6e 74 73  |..C=.(x*x+points|
00000e60  28 70 25 2c 31 29 2a 70  6f 69 6e 74 73 28 70 25  |(p%,1)*points(p%|
00000e70  2c 31 29 2b 70 6f 69 6e  74 73 28 70 25 2c 32 29  |,1)+points(p%,2)|
00000e80  2a 70 6f 69 6e 74 73 28  70 25 2c 32 29 29 3a ef  |*points(p%,2)):.|
00000e90  20 37 0d ff                                       | 7..|
00000e94