� ><FEMS$dir>.FEMS2�3
)� Finite Element Materials Simulation
/� with development version of OO3D routines
('� version 2.1: restyling of objects
2� 2.11  cylinder definition
<%� 2.12  nearest neigbours bonding
F%� 2.13  generalised frame storage
P � 2.14  backgrounds built in
Z,� 2.15  backgrounds Z-mixed with objects
d.� 2.16  mixed backgrounds, replay, preview
n� 2.17  2 colour RLE
x � 2.17b flat shading removed
�'� 2.18  read scene definition files
�>� 2.19  cuboid definition, compound objects (cuboids only)
�"� 2.20  any object in compound
�C� 2.21  PROCoutput_facets, PROCframe_actions, anims inside sims
�8� 2.211 const. sep. sphere (background & foreground)
�-�       units for angles, velocities etc.
��       solid_sphere
�� 2.212 spin command
��       local damping
�"� 2.213 rotating frame damping
��       repelling objects
�� 2.214 frozen objects
��       proper air damping

 � 2.215 cuboid surface fixed

"�       variable solid damping

%�       force parameter for repel

"C� 2.216 repel largely machine coded (outer point loop in BASIC)

,*� 2.217 multiple and box-bounded pulls

6&� 2.218 units for angular velocity

@*�     + hourglass during repel preprop

J

T	ch%=0

^anim%=�

h� � �error

r

|� 0

�ș "OS_GetEnv" � env$

�i%=�env$,"-file ")

�� i%=0 �

� file$="^.sims.ChairStair"

��

� file$=�env$,i%+6)

� i%=�file$," ")

� � i% � file$=�file$,i%-1)

��

�.ș "OS_File",5,file$ � ot%,,type%,,length%

�1� ot%<>1 � � 1,"File """+file$+""" not found"

�type%=(type%>>8) � &FFF

�
Ȏ type% �
 � &FFF:
  �init
&  �read_script(file$)
0  �init2
:  �create_frames
D
  �saveit
N � &3C7:
X  �load(file$,length%)
b  �init_replay
l :� 1,"File wrong type"
v�
��display_frames
��
�:
�� �init
�
�init3OOD
�� scrap% 256*4
�� sin 2048*4:cos=sin+256*4
��'"Filling sine array...";
�2� A%=0 � 1023:sin!(A%*4)=&400*�(A%*�/512)+.5:�
�0� A%=0 � 1023:sin!((A%+1024)*4)=sin!(A%*4):�
�� per% &801*4
�%�'"Filling perspective array...";
�0� N%=0 � &800:per%!(N%*4)=&600/(1+N%/&400):�
� ptp%(3),szp%(3)
maxobjs%=8
world%=�create(7,maxobjs%)
 � bgdef%(maxobjs%,6)
*� pull% 12*64:pulls%=0
4inch%=&B400
>�assem_nebo
H�
R:
\� �defaults
fxres%=320:yres%=256
p
ren%=2
z
fsp%=1
�
rstyle%=0
�aim%=600
�VA%=700:VB%=912
�stostyle%=0
�$grav_x%=0:grav_y%=0:grav_z%=-600
�
dampsh%=2
�mode%=4
��
�:
�� �read_script(file$)
��
�ch%=�(file$)
�.� ch%=0 � � 1,"Could not open script file"
P� �line<>"fems2" � �rse("Script file invalid: did not start with ""FEMS2""")

�defaults
'solids%=0:backgrounds%=0:objects%=0
$�
.
 c$=�line
8 Ȏ c$ �
B6  � "rendering":�get_openbrack(c$):�read_rendering
L>  � "solid":�get_openbrack(c$):solids%+=1:�read_object(-1)
VG  � "background":�get_openbrack(c$):backgrounds%+=1:�read_object(0)
`)  � "frame_aim":aim%=�get_num(c$,1,1)
j(  � "time_div":fsp%=�get_num(c$,1,1)
t\  � "gravity":grav_x%=�get_num(c$,3,2):grav_y%=�get_num(c$,3,2):grav_z%=�get_num(c$,3,2)
~
  � ""
�   �not_rec
� �
�� �#ch%
��#ch%:ch%=0
�)� solids%<1 � � 1,"No solids defined"
�3� backgrounds%<1 � � 1,"No backgrounds defined"
��
�:
�� �read_rendering
��
�
 c$=�line
� Ȏ c$ �
H  � "type":rstyle%=�select(c$,�line,"all_dots,wireframe,dots,lines")

B  � "resolution":xres%=�get_num(c$,2,1):yres%=�get_num(c$,2,1)
8  � "background":ren%=2*�select(c$,�line,"back,mix")
,  � "view":VB%=(�get_num(c$,2,3)) � &3FF
((   VA%=(768-�get_num(c$,2,3)) � &3FF
2  � "}",""
<   �not_rec
F �
P� �#ch% � c$="}"
Zmode%=2
dȎ rstyle% �
n � 0,2:stostyle%=0
x � 1,3:stostyle%=0
� � 4:stostyle%=-1:mode%=16
��
�"mode%=�mode(xres%,yres%,mode%)
�3� mode%<0 �rse("No suitable screen mode found")
��
�:
�� �read_object(sol%)
�� otype%,c$,Q%,i%
�otype%=-2:thing%=0
�#� sol%=0 Q%=backgrounds% � Q%=0
� com_stage%=0:faco%=0:poco%=0
��
�
 c$=�line
 Ȏ c$ �
:  � "create":�read_create(sol%,Q%):bgdef%(Q%,0)=otype%
   � "translate":�need_create
"B   x%=�get_num(c$,3,4):y%=�get_num(c$,3,4):z%=�get_num(c$,3,4)
,,   �translate(thing%,co0%,co0%,x%,y%,z%)
66   bgdef%(Q%,1)=x%:bgdef%(Q%,2)=y%:bgdef%(Q%,3)=z%
@F  � "rotate":� sol%=0 �rse("background objects cannot be rotated")
J`   �need_create:�rotate(thing%,co0%,co0%,�get_num(c$,3,3),�get_num(c$,3,3),�get_num(c$,3,3))
T)  � "nearbonds":�read_nearbonds(sol%)
^!  � "repel":�read_repel(sol%)
h;  � "damping":�need_create:thing%!odm%=�get_num(c$,1,1)
r<  � "air_damp":�need_create:thing%!adm%=�get_num(c$,1,1)
|#   �flag_surface_points(thing%)
�>  � "solid_damp":�need_create:thing%!rdm%=�get_num(c$,1,2)
�^  � "velocity":�need_create:� sol%=0 �rse("background objects cannot be given a velocity")
�O   �set_velocity(thing%,�get_num(c$,3,5),�get_num(c$,3,5),�get_num(c$,3,5))
�N  � "spin":�need_create:� sol%=0 �rse("background objects cannot be spun")
�K   �set_spin(thing%,�get_num(c$,3,6),�get_num(c$,3,6),�get_num(c$,3,6))
�Z  � "scale":�need_create:� sol%=0 �rse("scale not implemented for background objects")
�O   �scale_object(thing%,�get_num(c$,3,2),�get_num(c$,3,2),�get_num(c$,3,2))
�!  � "pull":�read_pull(thing%)
�'  � "fix_vel":�read_fix_vel(thing%)
�  � "}",""
�   �not_rec
� �
�� �#ch% � c$="}"
9� poco%>thing%!nop% � �rse("too many points created")
thing%!nop%=poco%
9� faco%>thing%!nof% � �rse("too many facets created")
&thing%!nof%=faco%
0thing%!sep%=szp%(0)
:�
D:
N� �read_pull(thing%)
X8� sol%=0 �rse("background objects cannot be pulled")
b� f%,l%,s%,B%,C%
l?f%=�get_num(c$,6,1):l%=�get_num(c$,6,1):s%=�get_num(c$,6,1)
vC� s%<=0 � �rse("the pull point step must be greater than zero")
�HC%=�fixed_vel_no(�get_num(c$,6,5),�get_num(c$,6,5),�get_num(c$,6,5))
�(� l%>=thing%!nop% � l%=thing%!nop%-1
�B%=�point_flags(thing%)
�ȕ f%>=0 � f%<=l%
�  B%?f%=(B%?f% � 3) � (C%<<2)
� f%+=s%
��
��
�:
�� �read_fix_vel(thing%)
��need_create
�8� sol%=0 �rse("background objects cannot be pulled")
�0� a%,b%,c%,x%,y%,z%,ex%,ey%,ez%,A%,B%,C%,cp%
?x%=�get_num(c$,9,4):y%=�get_num(c$,9,4):z%=�get_num(c$,9,4)
Bex%=�get_num(c$,9,4):ey%=�get_num(c$,9,4):ez%=�get_num(c$,9,4)
HC%=�fixed_vel_no(�get_num(c$,6,5),�get_num(c$,6,5),�get_num(c$,6,5))
 B%=�point_flags(thing%)
*ex%+=x%:� ex%<x% Ȕ x%,ex%
4ey%+=y%:� ey%<y% Ȕ y%,ey%
>ez%+=z%:� ez%<z% Ȕ z%,ez%
Hcp%=thing%!co0%
R� A%=0 � thing%!nop%-1
\ c%=-!cp%:a%=cp%!4:b%=cp%!8
f[ � a%>=x% � a%<=ex% � b%>=y% � b%<=ey% � c%>=z% � c%<=ez% � B%?A%=(B%?A% � 3) � (C%<<2)
p cp%+=12
z�
��
�:
�� �fixed_vel_no(x%,y%,z%)
�� C%,P%
�C%=1:P%+=pull%+12
�4ȕ C%<=pulls% � (!P%<>-z% � P%!4<>x% � P%!8<>y%)
� C%+=1:P%+=12
��
�� C%<=pulls% � =C%
�H� pulls%=63 � �rse("You can only have 63 different pull velocities")
�!P%=-z%:P%!4=x%:P%!8=y%
�pulls%+=1:=pulls%
�:
	� �point_flags(thing%)
	"� thing%!ptf%>0 � =thing%!ptf%
	� A%,B%
	$&thing%!ptf%=�create(8,thing%!pts%)
	.B%=thing%!ptf%
	8$� A%=0 � thing%!nop%-1:B%?A%=0:�
	B=B%
	L:
	V"� �flag_surface_points(thing%)
	`� A%,B%,C%
	jB%=�point_flags(thing%)
	tC%=thing%!fac%
	~� A%=0 � thing%!nof%-1
	� B%?(C%!0)=B%?(C%!0) � 1
	� B%?(C%!4)=B%?(C%!4) � 1
	� B%?(C%!8)=B%?(C%!8) � 1
	� C%+=elsiz%(3)
	��
	��
	�:
	�� �read_repel(sol%)
	�D� sol%=0 � �rse("repel is not applicable to background objects")
	��need_create
	� thing%!rep%=�get_num(c$,1,1)
	�� thing%!rep%=0 � �
� A%,B%,C%,D%,nd%,cl%

ș "Hourglass_On"
 �flag_surface_points(thing%)

(B%=�point_flags(thing%)
2C%=thing%!co0%
<� i%=0 � thing%!nop%-1
F1 ș "Hourglass_Percentage",100*i%/thing%!nop%
P � (B%?i% � 3)=1 �
Z0  cl%=-1:nd%=(2*szp%(0)>>7)^2:D%=thing%!co0%
d  � j%=0 � thing%!nop%-1
nf   � (B%?j% � 3)<>1 � A%=(!C%-!D%>>7)^2+(C%!4-D%!4>>7)^2+(C%!8-D%!8>>7)^2:� A%<nd% � nd%=A%:cl%=j%
x
   D%+=12
�  �
�,  � cl%>=0 � B%?cl%=(B%?cl% � 2) � (� 1)
� �
� C%+=12
��
�ș "Hourglass_Off"
��
�:
�� �read_nearbonds(sol%)
�H� sol%=0 � �rse("nearbonds is not applicable to background objects")
��get_openbrack(c$)
��need_create
�� c$,lambda%,R
lambda%=30:R=2.5
�

 c$=�line
" Ȏ c$ �
,/  � "spring_const":lambda%=�get_num(c$,1,1)
6"  � "range":R=�get_num(c$,1,2)
@  � "}",""
J   �not_rec
T �
^� �#ch% � c$="}"
h+� c%,ls%,ms%,E%,F%,C%,A%,B%,G%,H%,s%,D%
rls%=szp%(0):ms%=R*ls%
|c%=lambda%*fsp%*ls%
�!s%=0:ȕ (ms%>>s%)>255:s%+=1:�
�%ms%=ms%>>s%:c%=c%>>s%:ls%=ls%>>s%
�!scrap%=1<<s%
�?B%=�(c%/ls%)<<24:� C%=1 � ls%:scrap%!(C%*4)=(C%<<s%) � B%:�
�>� C%=ls%+1 � ms%:scrap%!(C%*4)=(C%<<s%) � (�(c%/C%)<<24):�
�!neboblock=scrap%
�neboblock!4=ms%*ms%
�neboblock!12=s%
�neboblock!16=(.5*ls%)^2
�!H%=thing%!co0%:E%=thing%!pts%
�B%=�(nearcount)
�thing%!nob%=B%
�thing%!bnd%=�create(6,B%)
neboblock!8=thing%!bnd%
 D%=thing%!bnd%+8*thing%!nob%
� nearbond
&B%=neboblock!8
0� B%>D% � �
:"thing%!nob%=(B%-thing%!bnd%)/8
D�
N:
X� �read_create(sol%,Q%)
b�get_openbrack(c$)
l7� �line<>"type" � �rse("create needs a type first")
v� c$,o$,offx%,offy%,offz%
�offx%=0:offy%=0:offz%=0
�o$=�line
�Xotype%=�select(c$,o$,"compound,sheet,cube,tube,sphere,stairs,cuboid,solid_sphere")-1
�Ȏ otype% �
� � 0,1,3:nptp%=1:nszp%=1
� � 2,4,5:nptp%=3:nszp%=3
� � 6:nptp%=2:nszp%=1
�" � -1:�read_compound:otype%=-1
��
�� otype%<0 � �
��
�
 c$=�line
� Ȏ c$ �

F  � "points":� i%=1 � nptp%:ptp%(i%)=�get_num(o$+" "+c$,nptp%,1):�

]  � "size":� i%=1 � nszp%:szp%(i%)=�get_num(o$+" "+c$,nszp%,4):bgdef%(Q%,i%+3)=szp%(i%):�

U  � "offset":offx%=�get_num(c$,3,4):offy%=�get_num(c$,3,4):offz%=�get_num(c$,3,4)

   � "}",""

*   �not_rec

4 �

>� �#ch% � c$="}"

H� �("FNcreate_"+o$)

R�

\:

f� �read_compound

p� P%,c$

z<� com_stage%>0 �rse("Compound objects cannot be nested")

�com_nop%=0:com_nof%=0

�P%=�#ch%

�� com_stage%=1 � 2

�4 �'"** compound object - pass ";com_stage%;" **"

�
 �#ch%=P%

�l � com_stage%=2 � com_stage%=0:com_thing%=�create_object(com_nop%,com_nof%):com_stage%=2:faco%=0:poco%=0

� �

�  c$=�line

�
  Ȏ c$ �

�"   � "part":�read_create(-1,0)

�
   � "}":

�+   :�rse("Expected ""part"" or ""}""")

�  �

 � c$="}"
�
com_stage%=0
$#�set_velocity(com_thing%,0,0,0)
.�
8:
B� �blurb
L*� i%,j%,k%,B%,C%,D%,E%,F%,x%,y%,z%,nd%
Vnd%=(.5*szp%(0)>>7)^2
`B%=�point_flags(thing%)
jC%=thing%!co0%
tD%=thing%!fac%
~E%=�fixed_vel_no(0,0,0)
�F%=0
�� i%=0 � poco%-2
�" � C%!(i%*12)>F% F%=C%!(i%*12)
��
�F%+=100*&B400
�ș "Hourglass_On"
�� i%=0 � poco%-2
�/ ș "Hourglass_Percentage",100*i%/(poco%-2)
�2 x%=C%!(i%*12):y%=C%!(i%*12+4):z%=C%!(i%*12+8)
� � j%=i%+1 � poco%-1
�  � B%?j%=0 �
�Q  � (x%-C%!(j%*12)>>7)^2+(y%-C%!(j%*12+4)>>7)^2+(z%-C%!(j%*12+8)>>7)^2<=nd% �
   � i%,j%,B%?i%,B%?j%

F   x%=x%+C%!(j%*12)>>1:y%=y%+C%!(j%*12+4)>>1:z%=z%+C%!(j%*12+8)>>1
   B%?j%=E%
2   C%!(j%*12)=F%:C%!(j%*12+4)=0:C%!(j%*12+8)=0
(   D%=thing%!fac%
2   � k%=0 � faco%-1
<    � D%!0=j% D%!0=i%
F    � D%!4=j% D%!4=i%
P    � D%!8=j% D%!8=i%
Z    D%+=elsiz%(3)
d   �
n  �
x  �
� �
�2 C%!(i%*12)=x%:C%!(i%*12+4)=y%:C%!(i%*12+8)=z%
��
�ș "Hourglass_Off"
��
�:
�� �need_create
�N� otype%=-2 � �rse("You need to create the object before you can do this")
��
�:
�$� �set_velocity(thing%,x%,y%,z%)
�� com_stage%<>0 � �
�� P%,A%
P%=thing%!vel%:� P%=0 �
� A%=0 � thing%!nop%-1
$ P%!0=-z%:P%!4=x%:P%!8=y%:P%+=12
"�
,�
6:
@ � �set_spin(thing%,wx,wy,wz)
J� com_stage%<>0 � �
T� P%,Q%,A%
^wx=wx*�/25600
hwy=wy*�/25600
rwz=wz*�/25600
|P%=thing%!vel%:� P%=0 �
�Q%=thing%!co0%:� Q%=0 �
�� A%=0 � thing%!nop%-1
� P%!0-=wy*(Q%!4)-wx*(Q%!8)
� P%!4+=wz*(Q%!8)+wy*(Q%!0)
� P%!8-=wx*(Q%!0)+wz*(Q%!4)
� P%+=12:Q%+=12
��
��
�:
�!� �scale_object(thing%,X,Y,Z)
�� P%,A%
�$� sol% szp%(0)=szp%(0)*(X+Y+Z)/3
�P%=thing%!co0%:� P%=0 �
� A%=0 � thing%!nop%-1
/ P%!0=P%!0*Z:P%!4=P%!4*X:P%!8=P%!8*Y:P%+=12
�
&�
0:
:� �create_sheet
D� co%,A%,N%
N%N%=ptp%(1):szp%(0)=szp%(1)/(N%-1)
X*thing%=�create_object(N%^2,2*(N%-1)^2)
b� thing%=0 � =0
loffx%-=.5*szp%(1)
voffy%-=.5*szp%(1)
�co%=thing%!co0%+poco%*12
�� A%=0 � thing%!nop%-1
� co%!0=-offz%
�" co%!4=szp%(0)*(A% � N%)+offx%
�" co%!8=szp%(0)*(A% � N%)+offy%
� co%+=12
��
�G� �surface(thing%,thing%!fac%+faco%*elsiz%(3),poco%,1,N%,N%,N%,0,0)
�poco%+=thing%!nop%
��set_velocity(thing%,0,0,0)
�=0
�:
�� �create_sphere

ptp%(2)=1
=�create_solid_sphere
:
 � �create_solid_sphere
*>� A%,B%,C%,E%,N%,Q%,S%,W%,Z%,NR%,NP%,OB%,OS%,OQ%,wind%,co%
4NR%=ptp%(1)
>$R%=szp%(1):szp%(0)=�*szp%(1)/NR%
HA%=(R%/szp%(0))-.9
R� ptp%(2)>A% ptp%(2)=A%
\� ptp%(2)<1 ptp%(2)=1
f#NP%=�CSS_points(NR%):B%=NP%*2-4
p� ptp%(2)>1 �
z � A%=1 � ptp%(2)-1
�1  NP%+=�CSS_points(NR%*(R%-A%*szp%(0))/R%+.5)
� �
��
�!thing%=�create_object(NP%,B%)
�� thing%=0 � =0
�co%=thing%!co0%+poco%*12
�� S%=0 � ptp%(2)-1
� NR%=ptp%(1)*R%/szp%(1)-.5
� � A%=0 � NR%
�!  B%=.5+2*(NR%+1)*�(�*A%/NR%)
�  W%=R%*�(�*A%/NR%)
�  Z%=R%*�(�*A%/NR%)+offz%
�  � C%=0 � B%-1
   � B%<1 �
    co%!4=0:co%!8=0
   �
$#    co%!4=W%*�(2*�*C%/B%)+offx%
.#    co%!8=W%*�(2*�*C%/B%)+offy%
8   �
B   co%!0=-Z%
L   co%+=12
V  �
` �
j R%-=szp%(0)
t% � S%=0 E%=(co%-thing%!co0%)/12-1
~�
�
�wind%=1
�NR%=ptp%(1)-1
�#FP%=thing%!fac%+faco%*elsiz%(3)
�
B%=1:N%=1
�� A%=1 � ((NR%+1) � 2)
� OS%=N%-B%:OB%=B%
�  B%=.5+2*(NR%+1)*�(�*A%/NR%)
� Q%=OS%
� � C%=0 � B%-1
�  OQ%=Q%
�/  � A%=1 Q%=0 � Q%=OS%+((C%*OB%/B%+1)� OB%)
+  �CSS_fac(N%+C%,N%+((C%+1)� B%),Q%,A%)

+  � OQ%<>Q% � �CSS_fac(N%+C%,Q%,OQ%,A%)
 �
 N%+=B%
(�
2poco%+=NP%
<�set_velocity(thing%,0,0,0)
F=0
P:
Z� �CSS_fac(D%,B%,C%,A%)
d7FP%=�define_facet(FP%,C%+poco%,B%+poco%,D%+poco%,3)
n;� A%*2<NR%+1 FP%=�define_facet(FP%,E%-C%,E%-B%,E%-D%,3)
x�
�:
�� �CSS_points(NR%)
�� A%,N%
�NR%-=1:N%=2
�� A%=0 � NR%
�! N%+=.5+2*(NR%+1)*�(�*A%/NR%)
��
�=N%
�:
�� �create_cube
�#ptp%(2)=ptp%(1):ptp%(3)=ptp%(1)
�#szp%(2)=szp%(1):szp%(3)=szp%(1)
�I� com_stage%<>1 offx%-=.5*szp%(1):offy%-=.5*szp%(1):offz%-=.5*szp%(1)
=�create_cuboid
:
� �create_tube
"&� A%,C%,D%,co%,A,R%,N1%,N2%,N3%,AS
,'N1%=ptp%(1):N2%=ptp%(2):N3%=ptp%(3)
68thing%=�create_object(N1%*N2%*N3%,4*N2%*(N1%+N3%-2))
@� thing%=0 � =0
Joffz%-=szp%(1)/2
Tszp%(1)=szp%(1)/(N1%-1)
^szp%(3)=szp%(3)/(N3%-1)
hAS=2*�/N2%
r*szp%(0)=(szp%(1)+szp%(2)*AS+szp%(3))/3
|co%=thing%!co0%+poco%*12
�� A%=0 � thing%!nop%-1
� A=(A% � N2%)*AS
�5 R%=szp%(2)+szp%(3)*((A% � (N2%*N1%))-(N3%-1)*.5)
�, co%!0=-szp%(1)*((A% � N2%) � N1%)-offz%
� co%!4=R%*�(A)+offx%
� co%!8=R%*�(A)+offy%
� co%+=12
��
�LC%=�surface(thing%,thing%!fac%+faco%*elsiz%(3),poco%,1,N2%,N2%,N1%,-1,1)
�BC%=�surface(thing%,C%,poco%+N2%*N1%*(N3%-1),1,N2%,N2%,N1%,1,1)
�6C%=�surface(thing%,C%,poco%,1,N2%*N1%,N2%,N3%,1,1)
�CC%=�surface(thing%,C%,poco%+N2%*(N1%-1),1,N2%*N1%,N2%,N3%,-1,1)
�poco%+=thing%!nop%
�set_velocity(thing%,0,0,0)
=0
:
&� �create_stairs
0!� co%,A%,Y%,X%,Z%,N1%,N2%,N3%
:'N1%=ptp%(1):N2%=ptp%(2):N3%=ptp%(3)
D<thing%=�create_object(N1%*N2%*N3%,2*(N1%-1)*(N2%*N3%-1))
N� thing%=0 � =0
Xszp%(1)=szp%(1)/(N1%-1)
bszp%(3)=szp%(3)/(N3%-1)
lco%=thing%!co0%+poco%*12
voffx%=-.5*(N1%-1)*szp%(1)
�� A%=0 � N1%*N2%*N3%-1
� X%=A% � N1%:Z%=A% � N1%
� Y%=Z% � N3%:Z%=Z% � N3%
� co%!0=-Z%*szp%(2)-offz%
� co%!4=X%*szp%(1)+offx%
�( co%!8=(Y%+Z%*(N3%-1))*szp%(3)+offy%
� co%+=12
��
�OY%=�surface(thing%,thing%!fac%+faco%*elsiz%(3),poco%,1,N1%,N1%,N2%*N3%,0,0)
�poco%+=thing%!nop%
��set_velocity(thing%,0,0,0)
�=0
�:
� �create_cuboid
9� X%,Y%,Z%,A%,B%,C%,D%,E%,co%,N1%,N2%,N3%,S1%,S2%,S3%
'N1%=ptp%(1):N2%=ptp%(2):N3%=ptp%(3)
 *N1%-=(N1%=0):N2%-=(N2%=0):N3%-=(N3%=0)
*Zthing%=�create_object(N1%*N2%*N3%,4*((N1%-1)*(N2%-1)+(N2%-1)*(N3%-1)+(N3%-1)*(N1%-1)))
4� thing%=0 � =0
>?S1%=szp%(1)/(N1%-1):S2%=szp%(2)/(N2%-1):S3%=szp%(3)/(N3%-1)
Hszp%(0)=(S1%+S2%+S3%)/3
Rco%=thing%!co0%+poco%*12
\� A%=0 � thing%!nop%-1
f6 X%=A% � N1%:Y%=(A% � N1%) � N2%:Z%=A% � (N1%*N2%)
p co%!0=-(S3%*Z%+offz%)
z co%!4=S1%*X%+offx%
� co%!8=S2%*Y%+offy%
� co%+=12
��
�A%=poco%+N1%*N2%*(N3%-1)
�"X%=thing%!fac%+faco%*elsiz%(3)
�3C%=�surface(thing%,X%,poco%,1,N1%,N1%,N2%,-1,0)
�3C%=�surface(thing%,C%,A%   ,1,N1%,N1%,N2%, 1,0)
�A%=poco%+N1%*(N2%-1)
�7C%=�surface(thing%,C%,poco%,N1%*N2%,1,N3%,N1%,-1,0)
�7C%=�surface(thing%,C%,A%   ,N1%*N2%,1,N3%,N1%, 1,0)
�A%=poco%+N1%-1
�9C%=�surface(thing%,C%,poco%,N1%,N1%*N2%,N2%,N3%,-1,0)
�9C%=�surface(thing%,C%,A%   ,N1%,N1%*N2%,N2%,N3%, 1,0)
poco%+=N1%*N2%*N3%
�set_velocity(thing%,0,0,0)
=0
$:
. � �create_object(pts%,facs%)
86� com_stage%=1 � com_nop%+=pts%:com_nof%+=facs%:=0
B� com_stage%=2 =com_thing%
L=� objects%=maxobjs% � �rse("Max. no. of objects reached")
V$thing%=world%+objects%*elsiz%(7)
`objects%+=1
j.� sol% � flags%=%1011111 � flags%=%1010111
t*�initthing(thing%,pts%,facs%,0,flags%)
~=thing%
�:
�� �select(c$,o$,l$)
�p%=�","+l$+",",","+o$+",")
�-� p%=0 � �rse(c$+" should be one of "+l$)
�l$=�l$,p%):p%=0:r%=-1
�#�:p%=�l$,",",p%+1):r%+=1:� p%=0
�=r%
�:
�� �get_openbrack(c$)
�9� �line<>"{" � �rse("open backet expected after "+c$)
��
�:
� �get_num(c$,n%,t%)

� t%=1 integer >=0
� t%=2 float
� t%=3 angle
(� t%=4 distance
2� t%=5 velocity
<� t%=6 angular velocity
F� A$,P%,B%,s%,V,M
PA$=�line
Z
P%=0:�
d
 P%+=1
n B%=�(�A$,P%,1))
x% � P%=1 � (B%=43 � B%=45) � B%=48
�� (B%<48 � B%>57) � B%<>46
�E� P%=1 � n%=1 � �rse("A numeric arguament is expected after "+c$)
�C� P%=1 � �rse(�n%+" numeric arguaments are expected after "+c$)
�Ȏ �A$,P%) �
� � "":s%=t%:M=1
�  � t%=3 � M=128/45
� � "deg":s%=3:M=128/45
� � "rad":s%=3:M=512/�
� � "in":s%=4:M=&B400
� � "ft":s%=4:M=12*&B400
� � "cm":s%=4:M=18142
� � "mm":s%=4:M=1814.2
� � "ips":s%=5:M=&B400/50
  � "ftps":s%=5:M=12*&B400/50
 � "cmps":s%=5:M=18142/50
 � "mmps":s%=5:M=1814.2/50
"! � "degps":s%=6:M=128/(45*50)
,  � "radps":s%=6:M=512/(�*50)
6 � "rpm":s%=6:M=1024/3000
@&  �rse("Unknown units used here")
J�
T4� s%<>t% � �rse("Inappropriate units used here")
^V=�(�A$,P%-1))
hI� t%=1 � � V<0 � V<>�(V) � �rse("Non-negative integer expected here")
r=V*M
|:
�� �rse(A$)
��#ch%:ch%=0
��'A$
��
�:
�J� �not_rec:�rse("command """+c$+""" not recognised in this context"):�
�:
�� �line
�� A$,B%,C%,R%
�R%=0:A$="":B%=0
��
�% C%=B%:� �#ch% � B%=-1 � B%=�#ch%
�7 � B%>31 � � B% � � (B%=13 � B%=10) � C%<>23-B% � �
 � B%>64 � B%<91 � B%+=32
/ � R%=0 � B%>33 � B%<>58 � B%<>44 � A$+=�B%
 � B%=42 � C%=47 � R%+=1
&\ � B%=47 � C%=42 � R%-=1:A$=�A$,�A$-2):� R%<0 � �rse("More remarks closed than opened!")
06� B%<0 � ((B%<33 � B%=58 � B%=44) � R%=0 � A$<>"")
:=A$
D:
N� �init2
X
b
maxpts%=0
l� i%=0 � objects%-1
v thing%=world%+i%*elsiz%(7)
�B � thing%!vel%>0 � � thing%!nop%>maxpts% � maxpts%=thing%!nop%
��
�� vel2% maxpts%*12
�
�%tsh%=�(fsp%)/�(2)+.5:fsp%=1<<tsh%
�grav_x%=grav_x%>>(tsh%*2)
�grav_y%=grav_y%>>(tsh%*2)
�grav_z%=grav_z%>>(tsh%*2)
�dampsh%+=tsh%*2
�
�T%=1<<30
�� recip% 4100
�"�"Filling reciprocal table..."
*� A%=1 � 1023:recip%!(A%*4)=T%/A%+.5:�
!recip%=&7FFFFFFF

 
�assem
* �assemstore(mode%,stostyle%)
4
>'�'"Creating pointers to facets...";
H
totnof%=0
R� i%=0 � objects%-1
\ thing%=world%+i%*elsiz%(7)
f totnof%+=thing%!nof%
p�
z"facpt%=�create(4,totnof%):C%=0
�� i%=0 � objects%-1
� thing%=world%+i%*elsiz%(7)
�9 C%=�init_facpoint(thing%!fac%,facpt%,thing%!nof%,C%)
��
�
�!�'"Making animation area...";
�� E% -1
�%storend%=(�(basic_stack)-E%)-4000
�� store% storend%
�storend%=store%+storend%
�store%+=16
�!storend=storend%-1
�
� timblk% 8,stri% 256
�init_screen
�
$:
.� �init_screen
8� Iblock% 16
B� mode% � 128
L=� �<>mode% � � 1,"Could not obtain requested screen mode"
V�
`� �ModeVar(3),255,255,255
j
*FX 112 1
t�
~
*FX 112 2
��
�
*FX 113 1
�+!Iblock%=149:Iblock%!4=148:Iblock%!8=-1
�,ș "OS_ReadVduVariables",Iblock%,scrpos1
�!scrpos=!scrpos2
�
*fx 113 2
��
�:
�� �create_frames
�store%!-16=216
�"store%!-12=(xres%<<16) � yres%
�store%!-8=0
store%!-4=stostyle%+1

startime%=�
� i%=0 � objects%-1
. �rotnpersp(world%+i%*elsiz%(7),VA%,VB%,0)
(�
2ȗ � 1250,970
<�:�render(ren%,rstyle%)
F�:�render(1,rstyle%)
P=!storepos=store%:�storeframe(stostyle%):store1%=!storepos
ZB� store1%=0 � � 1,"Not enough space to store background frame"
d
nquit%=�
xgentime%=0
��
� startime%=�
� � j%=1 � fsp%
�  � i%=0 � objects%-1
�$   �move(i%,world%+i%*elsiz%(7))
�  �
� �
� movetime%=�
� � i%=0 � objects%-1
�/  �rotnpersp(world%+i%*elsiz%(7),VA%,VB%,0)
� �
� �
� laststore%=!storepos
 � ren%=0 C%=store%:� show
 �render(ren%,rstyle%)
 C%=store%:� show
" �storeframe(stostyle%)
, C%=store%:� show
6 anim%=�
@" �frame_actions(!(store%-8)-1)
J$ nk%=0:�:k%=nk%:nk%=�(0):� nk%<0
T k%+=32*(k%>97 � k%<123)
^ � k%=80 � �preview
h � k%=81 � quit%=�
r� quit%
|�
��"You can let go now"
�� � � �(-17)
�� 11:� �(20)
�*fx 21 0
�|ș "OS_PrettyPrint",�13+"From now on you can press Escape and type PROCsave(""filename"") to save the animation."+�13+�0
��
�:
�� �frame_actions(frame%)
�<� IF frame%=30 THEN PROCoutput_facets("$.Temp.facets30")
�U� IF INKEY(-3) THEN OSCLI("Screensave <FEMS$Dir>.^.shots.pic"+STR$(frame%)):VDU 7
��status(frame%)
�� frame%=aim% �
� � "Paused...":� 7
 
 *fx 21 0
  � �
  � 11:� �(10)
 &�
 0
�     
 ::
 D� �output_facets(f$)
 N� cp%,fp%,j%,ch%,T%
 X
ch%=�(f$)
 b� i%=0 � objects%-1
 l thing%=world%+elsiz%(7)*i%
 v cp%=thing%!co0%
 � fp%=thing%!fac%
 � T%=1:�#ch%,T%
 � �#ch%,thing%!nof%
 � � j%=0 � thing%!nof%-1
 �*  T%=cp%+12*fp%!0:�#ch%,T%!4,T%!8,-!T%
 �*  T%=cp%+12*fp%!4:�#ch%,T%!4,T%!8,-!T%
 �*  T%=cp%+12*fp%!8:�#ch%,T%!4,T%!8,-!T%
 �  fp%+=elsiz%(3)
 � �
 ��
 �	�#ch%
 ��
 �:
!� �preview
!� C%
!
*FX 112 1
! �
!*
*FX 113 1
!4bank%=1
!>�
!H
 �show
!R �pause(100)
!\� � �(-56)
!f
*FX 112 2
!p�
!z
*FX 113 2
!�!scrpos=!scrpos2
!�C%=store%:� show
!�C%=laststore%:� show
!�*fx 21 0
!��
!�:
!�� �pause(T%)
!�T%=T%+�
!�� � �>T%
!��
!�:
!�� �display_frames
!�
*FX 112 1
"�
"
*FX 113 1
"!scrpos=!scrpos2
"$C%=store%:store1%=�(show)
".bank%=1
"8	�show
"B�
"L *FX 15
"V	 G%=�
"` � G%=32 �
"j  �
"t   �show
"~
   *FX 15
"�   G%=�(100)
"�
  � G%>-1
"� �
"�  �show
"� �
"�� �
"��
"�:
"�� �show
"�� C%,A%
"�A%=store1%
"�� F%=1 � !(store%-8)-1
# bank%=bank% � 3
#
 !scrpos=scrpos!(bank%*4)
# ș "OS_Byte",112,bank%
# �
#( C%=store%:� show
#2 C%=A%:A%=�(show)
#<% � �(-2) � �pause(10):� � � �(-1)
#F Ȗ:ș "OS_Byte",113,bank%
#P�
#Z�
#d:
#n� �storeframe(S%)
#xȎ S% �
#� � -1:!storepos+=4
#� � 0:� frstore
#� � 1:� frstore
#�$ � 2:!storepos+=4:!(store%-8)+=1
#�*  � 1234,"Frame store type not known"
#��
#�,� !storepos=0 � quit%=� � !(store%-8)+=1
#��
#�:
#�� �mode(xres%,yres%,cols%)
#�� mode%,best%,lc%,nc%,E%
#�lc%=256:best%=-1
#�� mode%=0 � 127
$1 ș "XOS_ReadModeVariable",mode%,3 � ,,nc%;E%
$, � (E% � 1)=0 � nc%+1>=cols% � nc%<lc% �
$I  � �ModeVar(11)+1=xres% � �ModeVar(12)+1=yres% � best%=mode%:lc%=nc%
$" �
$,�
$6
=best%
$@:
$J
� �saveit
$Tdir$=file$
$^2ȕ �file$,".")>0:file$=�file$,�file$,".")+1):�
$h'dir$=�dir$,�dir$-�file$-1)+".anims"
$rș "OS_File",5,dir$ � ot%
$|d� ot%<>1 � ș "OS_PrettyPrint",�13+"Press S now to save the animation as "+dir$+"."+file$+�13+�0
$�*fx 21 0
$�k$=�
$�� ot%=1 � k$="x"
$�� k$="S" � k$="s" �
$�" � ot%=0 � ș "OS_File",8,dir$
$� �save(dir$+"."+file$)
$��
$��
$�:
$�� �save(file$)
$�� E%,F%
$�.� !storepos=0 � E%=storend% � E%=!storepos
$�F%=store%-16
%%ș "OS_File",&A,file$,&3C7,,F%,E%
%�
%:
%&� �load(file$,length%)
%0� store% length%
%:�"Loading animation...";
%D#ș "OS_File",&10,file$,store%,0
%Nstore%+=16
%Xanim%=�
%b�
%l:
%v� �init_replay
%�4� store%!-16<>216 � � 1,"File version not known"
%�xres%=store%!-12
%�(yres%=xres% � &FFFF:xres%=xres%>>>16
%�stostyle%=(store%!-4)-1
%�@� stostyle%<>0 � stostyle%<>1 � � 1,"Storage type not known"
%�mode%=�mode(xres%,yres%,2)
%�1� mode%<0 � 1,"No suitable screen mode found"
%� �assemstore(mode%,stostyle%)
%��init_screen
%��
%�:
%�� �repel_points(t1%,t2%)
%�8� i%,j%,f1%,f12%,c1%,c2%,x%,y%,z%,x1%,y1%,z1%,v1%,R%
&f12%=t1%!rep%*t2%!rep%
&)s%=t1%!sep%:� s%>t2%!sep% s%=t2%!sep%
&s%=s%*2
& r%=(s%/128)^2
&**c1%=t1%!co0%:v1%=t1%!vel%:f1%=t1%!ptf%
&4!frict=frsh%
&>!pts12=12*(t2%!nop%-1)
&H� i%=0 � t1%!nop%-1
&R � (f1%?i%) � 3 �
&\#  x1%=c1%!0:y1%=c1%!4:z1%=c1%!8
&f&  f%=f12%:� (f1%?i%) � 2 � f%=f%*4
&p   !v1pos=v1%:!v2pos=t2%!vel%
&z3  �temp(x1%,y1%,z1%,t2%!co0%,t2%!ptf%,f%,s%,r%)
&� �
&� c1%+=12:v1%+=12
&��
&��
&�:
&�$� �temp(A%,B%,C%,D%,E%,F%,G%,H%)
&�� repel_code
&��
&�:
&�� �repel_objects(i%,t1%)
&�$� i%>objects%-2 � t1%!ptf%=0 � �
&�� j%,t2%
&�� j%=i%+1 � objects%-1
' t2%=world%+j%*elsiz%(7)
'* � t2%!ptf%>0 � �repel_points(t1%,t2%)
'�
'$�
'.:
'8� �rot_damp(thing%,dsh%)
'B@� p%,ve%,co%,x,y,z,vx,vy,vz,xc,yc,zc,vxc,vyc,vzc,Lx,Ly,Lz,i%
'Lp%=thing%!nop%
'V
'`-� find centre of mass and linear velocity
'jxc=0:yc=0:zc=0
'tvxc=0:vyc=0:vzc=0
'~ve%=thing%!vel%
'�co%=thing%!co0%
'�� i%=0 � p%-1
'�" xc+=co%!0:yc+=co%!4:zc+=co%!8
'�% vxc+=ve%!0:vyc+=ve%!4:vzc+=ve%!8
'� ve%+=12:co%+=12
'��
'�$vxc=vxc/p%:vyc=vyc/p%:vzc=vzc/p%
'�xc=xc/p%:yc=yc/p%:zc=zc/p%
'�
'�� find ang. mom. about CoM
'�Lx=0:Ly=0:Lz=0
'�ve%=thing%!vel%
(co%=thing%!co0%
(
� i%=0 � p%-1
(% x=co%!0-xc:y=co%!4-yc:z=co%!8-zc
(+ vx=ve%!0-vxc:vy=ve%!4-vyc:vz=ve%!8-vzc
((. Lx-=y*vz-z*vy:Ly-=z*vx-x*vz:Lz-=x*vy-y*vx
(2 ve%+=12:co%+=12
(<�
(FL=�(Lx*Lx+Ly*Ly+Lz*Lz)
(P� L=0 �
(Z ax=0:ay=0:az=0
(d�
(n2 � find moment of inertia about ang. mom. axis
(x! �  and hence rotation vector
(� nLx=Lx/L:nLy=Ly/L:nLz=Lz/L
(� I=0
(� co%=thing%!co0%
(� � i%=0 � p%-1
(�&  x=co%!0-xc:y=co%!4-yc:z=co%!8-zc
(�  a=nLx*x+nLy*y+nLz*z
(�&  dx=x-nLx*a:dy=y-nLy*a:dz=z-nLz*a
(�  I+=dx*dx+dy*dy+dz*dz
(�
  co%+=12
(� �
(� ax=Lx/I:ay=Ly/I:az=Lz/I
(��
(�
)ve%=thing%!vel%
)co%=thing%!co0%
)� dsh%<0 �
)" � i%=0 � p%-1
),&  x=co%!0-xc:y=co%!4-yc:z=co%!8-zc
)6  ve%!0=vxc+y*az-z*ay
)@  ve%!4=vyc+z*ax-x*az
)J  ve%!8=vzc+x*ay-y*ax
)T  ve%+=12:co%+=12
)^ �
)h�
)r dsh%=1<<(dsh%+14)
)| � i%=0 � p%-1
)�&  x=co%!0-xc:y=co%!4-yc:z=co%!8-zc
)�  vx=vxc+y*az-z*ay
)�  vy=vyc+z*ax-x*az
)�  vz=vzc+x*ay-y*ax
)�&  x=ve%!0-vx:y=ve%!4-vy:z=ve%!8-vz
)�"  I=dsh%/(�(x*x+y*y+z*z)+dsh%)
)�,  ve%!0=vx+x*I:ve%!4=vy+y*I:ve%!8=vz+z*I
)�  ve%+=12:co%+=12
)� �
)��
)��
)�:
)�� �air_damp(thing%,dsh%)
*� f%,i%,x,y,z,I,ve%
*f%=�point_flags(thing%)
*ve%=thing%!vel%
*&dsh%=1<<(dsh%+14)
*0� i%=0 � thing%!nop%-1
*: � f%?i% � 1 �
*D  x=ve%!0:y=ve%!4:z=ve%!8
*N"  I=dsh%/(�(x*x+y*y+z*z)+dsh%)
*X#  ve%!0=x*I:ve%!4=y*I:ve%!8=z*I
*b
  ve%+=12
*l �
*v�
*��
*�:
*�� �move(on%,thing%)
*�� quit% � thing%!vel%=0 � �
*�ș "Hourglass_On"
*��damp(thing%)
*��alter_vels(thing%)
*�(� thing%!rdm%<0 �rot_damp(thing%,-1)
*��add_vels(thing%)
*�ș "Hourglass_Off"
*��
*�:
*�� �damp(thing%)
+
� pts%
+pts%=thing%!nop%
+!vepos=thing%!vel%
+ !copos=thing%!co0%
+*!pts12=12*(pts%-1)
+4J� thing%!rdm%<32 � thing%!rdm%>=0 � �rot_damp(thing%,thing%!rdm%+tsh%)
+>9� thing%!adm%<32 � �air_damp(thing%,thing%!adm%+tsh%)
+H:� thing%!odm%<32 � !dampsh=thing%!odm%+tsh%:� old_damp
+R�
+\:
+f� �alter_vels(thing%)
+p5� pts%,vb%,cb%,A%,B%,E%,F%,x,y,z,nx,ny,nz,h%,flx%
+zpts%=thing%!nop%
+�!vepos=thing%!vel%
+�!copos=thing%!co0%
+�
+�� thing%!rdm%>=0 �
+� !bopos=thing%!bnd%
+� E%=thing%!nob%-1
+� ș "Hourglass_LEDs",1
+� � bond
+��
+�
+�frsh%=4+tsh%
+�frnd%=.5*(1<<frsh%)
+�ș "Hourglass_LEDs",3
,�repel_objects(on%,thing%)
,
,cb%=!copos:vb%=!vepos
,$ș "Hourglass_LEDs",2
,.� A%=0 � pts%-1
,81 vb%!0-=grav_z%:vb%!4+=grav_x%:vb%!8+=grav_y%
,B x=cb%!4:y=cb%!8:z=cb%!0
,L � B%=1 � backgrounds%
,V5  x-=bgdef%(B%,1):y-=bgdef%(B%,2):z+=bgdef%(B%,3)
,`  Ȏ bgdef%(B%,0) �
,ja   � 0:� z>-5000 � vb%!0-=(z+5000)>>1:vb%!4-=(vb%!4+frnd%)>>frsh%:vb%!8-=(vb%!8+frnd%)>>frsh%
,t0   � 3:r=�(x*x+y*y+z*z):E%=bgdef%(B%,4)+5000
,~    � r<E% �
,�     r=2*(E%-r)/r
,�/     vb%!0-=(vb%!0+frnd%)>>frsh%:vb%!0+=z*r
,�/     vb%!4-=(vb%!4+frnd%)>>frsh%:vb%!4+=x*r
,�/     vb%!8-=(vb%!8+frnd%)>>frsh%:vb%!8+=y*r
,�	    �
,�   � 4:
,�-    n%=.5*(y/bgdef%(B%,6)-z/bgdef%(B%,5))
,�     h%=-n%*bgdef%(B%,5)-5000
,�    � z>h% �
,�A     � vb%!0>0 vb%!0-=(z-h%)>>1:vb%!4=vb%!4>>2:vb%!8=vb%!8>>2
,�	    �
,�$     h%=(n%+1)*bgdef%(B%,6)-5000
-K     � y>h% � vb%!8>0 � vb%!8-=(y-h%)>>1::vb%!4=vb%!4>>2:vb%!0=vb%!0>>2
-
	    �
-  �
-5  x+=bgdef%(B%,1):y+=bgdef%(B%,2):z-=bgdef%(B%,3)
-( �
-29 � ((�(vb%!0)+�(vb%!4)+�(vb%!8))>>tsh%)>3E6 � quit%=�
-< vb%+=12:cb%+=12
-F�
-P�
-Z:
-d� �add_vels(thing%)
-n� cb%,vb%,pb%,A%,B%
-xcb%=thing%!co0%
-�vb%=thing%!vel%
-�pb%=thing%!ptf%
-�� pb%<=0 �
-� � A%=0 � thing%!nop%-1
-�D  cb%!0+=(vb%!0>>tsh%):cb%!4+=(vb%!4>>tsh%):cb%!8+=(vb%!8>>tsh%)
-�  vb%+=12:cb%+=12
-� �
-��
-� � A%=0 � thing%!nop%-1
-�3  B%=pb%?A%>>2:� B%=0 � B%=vb% � B%=pull%+12*B%
-�;  cb%!0+=B%!0>>tsh%:cb%!4+=B%!4>>tsh%:cb%!8+=B%!8>>tsh%
-�  vb%+=12:cb%+=12
-� �
.�
.�
.:
."6� �surface(thing%,P%,S%,XI%,YI%,XN%,YN%,wind%,LP%)
.,� X%,Y%,A%,B%
.6K� P%=0 � P%=thing%!fac%:� P%<�P � � 1,"bad pointer passed to FNsurface"
.@� XN%<2 � YN%<2 � =P%
.JZ� S%+(XN%-1+(LP% � 1))*(YN%-1+.5*(LP% � 2))>thing%!nof% � � 1,"not enough facet space"
.T� Y%=0 � YN%-2
.^ � X%=0 � XN%-2
.h  A%=S%+X%*XI%+Y%*YI%
.rM  P%=�define_facet(P%,A%+XI%,A%,A%+YI%,1+(X%=-(LP% � 1) � Y%=-(LP% � 2)))
.|5  P%=�define_facet(P%,A%+YI%,A%+XI%+YI%,A%+XI%,0)
.� �
.� � LP% � 1 �
.�+  A%=S%+(XN%-1)*XI%+Y%*YI%:B%=S%+Y%*YI%
.�9  P%=�define_facet(P%,B%,A%,A%+YI%,1+(Y%=-(LP% � 2)))
.�-  P%=�define_facet(P%,A%+YI%,B%+YI%,B%,0)
.� �
.��
.�� LP% � 2 �
.� � X%=0 � XN%-2
.�$  B%=S%+X%*XI%:A%=B%+(YN%-1)*YI%
.�9  P%=�define_facet(P%,A%+XI%,A%,B%,1+(X%=-(LP% � 1)))
.�-  P%=�define_facet(P%,B%,B%+XI%,A%+XI%,0)
.� �
/ � LP% � 1 �
/#  A%=(XN%-1)*XI%:B%=(YN%-1)*YI%
/1  P%=�define_facet(P%,S%+B%,S%+A%+B%,S%+A%,0)
/&+  P%=�define_facet(P%,S%+A%,S%,S%+B%,0)
/0 �
/:�
/D=P%
/N:
/X� �ModeVar(V%)
/b+ș"OS_ReadModeVariable",mode%,V% � ,,V%
/l=V%
/v:
/�"� �assemstore(mode%,stostyle%)
/�L2BPP%=�ModeVar(10)
/�NPIX%=�ModeVar(7)*8>>L2BPP%
/�MASK%=(1<<(1<<L2BPP%))-1
/�cspace=1000
/�� code cspace
/�+A%=0:B%=1:C%=2:D%=3:E%=4:F%=5:G%=6:H%=7
/�link=14:sp=13:pc=15
/�� PASS=0 � 2 � 2
/�P%=code
/�F%=5
/�[ OPT PASS
/�	ALIGN
0.frstore
0STMFD (sp)!,{link}
00LDR C%,storepos:CMP C%,#0:LDMEQFD (sp)!,{pc}
0 LDR R11,storend
0*5SUB R8,R11,C%:CMP R8,#5:MOVLE C%,#0:BLE exfrstrlp
04
MOV A%,#0
0>MOV R10,#MASK%:MOV H%,R10
0HLDR B%,scrpos:BL findpix
0RSTRB A%,[C%],#1
0\#MOV R8,A%,ASR#8:STRB R8,[C%],#1
0f$MOV R8,A%,ASR#16:STRB R8,[C%],#1
0p.frstrlp
0zCMP A%,#NPIX%:BGE exfrstrlp
0�CMP C%,R11:BGE exfrstrlp
0�ADD A%,A%,#1:MOV E%,A%
0�BL findpix:SUB D%,A%,E%
0�
.frstrlp2
0�CMP D%,#128:BLT exfrstrlp2
0�CMP C%,R11:BGE exfrstrlp
0�MOV E%,D%,ASR#7
0�CMP E%,#128:MOVGE E%,#127
0�!�R R8,E%,#&80:STRB R8,[C%],#1
0�SUB D%,D%,E%,ASL#7
0�B frstrlp2
0�.exfrstrlp2
0�STRB D%,[C%],#1
1
B frstrlp
1.exfrstrlp
1CMP C%,R11:MOVGE C%,#0
1$STR C%,storepos
1.LDMFD (sp)!,{pc}
18
1B.findpix
1LSTMFD (sp)!,{R8,R9,link}
1V.fpixlp
1`*CMP A%,#NPIX%:LDMGEFD (sp)!,{R8,R9,pc}
1j"LDRB R8,[B%,A%,ASR#(3-L2BPP%)]
1t� R9,A%,#7>>L2BPP%
1~MOV R9,R9,ASL#L2BPP%
1��S R8,R8,R10,ASL R9
1�]
1�8� stostyle%=0 � [OPT PASS:LDMNEFD (sp)!,{R8,R9,pc}:]
1�� stostyle%=1 �
1� [ OPT PASS
1� CMP R8,H%,ASL R9
1� �EQ H%,H%,R10
1� LDMEQFD (sp)!,{R8,R9,pc}
1� ]
1��
1�[ OPT PASS
1�ADD A%,A%,#1
2B fpixlp
2

2	.show
2STMFD (sp)!,{link}
2(MOV R10,#MASK%
22LDR B%,scrpos
2<LDRB A%,[C%],#1
2F%LDRB R8,[C%],#1:�R A%,A%,R8,ASL#8
2P&LDRB R8,[C%],#1:�R A%,A%,R8,ASL#16
2Z]
2d� stostyle%=0 �
2n [OPT PASS
2x .shloop
2� CMP A%,#NPIX%:BGE exshloop
2�# LDRB R8,[B%,A%,ASR#(3-L2BPP%)]
2� � R9,A%,#7>>L2BPP%
2� MOV R9,R9,ASL#L2BPP%
2� � R8,R8,R10,ASL R9
2�# STRB R8,[B%,A%,ASR#(3-L2BPP%)]
2� ADD A%,A%,#1
2� ]
2��
2�� stostyle%=1 �
2� [ OPT PASS
2� .shloop
2� \ want pixel A% set
3
3 \ get next offset
3 CMP A%,#NPIX%:BGE exshloop
3" ADD G%,A%,#1:.shloop3
3, LDRB D%,[C%],#1
361 TST D%,#&80:�NE D%,D%,#&7F:MOVNE D%,D%,ASL#7
3@) ADD G%,G%,D%:CMP D%,#128:BGE shloop3
3J
3T \ plot pixels A% to G%-1
3^
 .shloop4
3h# LDRB R8,[B%,A%,ASR#(3-L2BPP%)]
3r � R9,A%,#7>>L2BPP%
3| MOV R9,R9,ASL#L2BPP%
3� � R8,R8,R10,ASL R9
3�# STRB R8,[B%,A%,ASR#(3-L2BPP%)]
3�' ADD A%,A%,#1:CMP A%,G%:BLT shloop4
3� ADD A%,A%,#1
3�
3� \ get next offset
3� CMP A%,#NPIX%:BGE exshloop
3� ]
3��
3�[ OPT PASS
3�.shloop2
3�LDRB D%,[C%],#1
3�0TST D%,#&80:�NE D%,D%,#&7F:MOVNE D%,D%,ASL#7
4(ADD A%,A%,D%:CMP D%,#128:BGE shloop2
4B shloop
4
.exshloop
4&MOV A%,C%:LDMFD (sp)!,{pc}
40
4:.copy1t2
4DSTMFD (sp)!,{link}
4NLDR R0,scrlen
4X!LDR R1,scrpos2:LDR R2,scrpos1
4bADD R0,R1,R0
4l
.cop1t2lp
4v)LDMIA R1!,{R3-R10}:STMIA R2!,{R3-R10}
4�CMP R1,R0:BLT cop1t2lp
4�LDMFD (sp)!,{pc}
4�
4�.eor2w1
4�STMFD (sp)!,{link}
4�LDR R0,scrlen
4�!LDR R1,scrpos2:LDR R2,scrpos1
4�ADD R0,R1,R0
4�
.eor2w1lp
4�'LDMIA R1!,{R3-R6}:LDMIA R2,{R7-R10}
4�0� R3,R3,R7:� R4,R4,R8:� R5,R5,R9:� R6,R6,R10
4�STMIA R2!,{R3-R6}
4�CMP R1,R0:BLT eor2w1lp
5LDMFD (sp)!,{pc}
5
5.bank EQUD 1
5 .storepos EQUD 0
5*.storend EQUD 0
54.scrpos EQUD 0
5>.scrpos1 EQUD 0
5H.scrpos2 EQUD 0
5R.scrlen EQUD �ModeVar(7)
5\]
5f1� P%>code+cspace � � 1,"Out of room for code"
5p
� PASS
5z�
5�:
5�� �assem_nebo
5��assemRoot
5�+A%=0:B%=1:C%=2:D%=3:E%=4:F%=5:G%=6:H%=7
5�uDiv32=�assemDiv(5,0,2,8,9)
5�� scrap% 256*4
5�cspace=500
5�� code cspace
5�link=14:sp=13:pc=15
5�� PASS=0 � 2 � 2
5�P%=code
5�[ OPT PASS
5�
.nearbond
6STMFD (sp)!,{link}
6OLDR R8,neboblock:LDR R9,neboblock+4:LDR B%,neboblock+8:LDR R10,neboblock+12
6-SUB E%,E%,#1:MOV R12,#12:MLA H%,E%,R12,H%
6$
.nblp2
6.SUB G%,H%,#12:SUB F%,E%,#1
68
.nblp1
6B0LDR A%,[H%,#8]:LDR R12,[G%,#8]:SUB A%,A%,R12
6L7MOV A%,A%,ASR R10:MUL C%,A%,A%:CMP C%,R9:BGT nbskip
6V0LDR A%,[H%,#4]:LDR R12,[G%,#4]:SUB A%,A%,R12
6`:MOV A%,A%,ASR R10:MLA C%,A%,A%,C%:CMP C%,R9:BGT nbskip
6j0LDR A%,[H%,#0]:LDR R12,[G%,#0]:SUB A%,A%,R12
6t:MOV A%,A%,ASR R10:MLA C%,A%,A%,C%:CMP C%,R9:BGT nbskip
6~,LDR A%,neboblock+16:CMP C%,A%:BLT nbskip
6�'CMP B%,D%:ADDGE B%,B%,#8:BGE nbskip
6�/BL root:LDR A%,[R8,A%,ASL#2]:STR A%,[B%,#4]
6�%�R A%,E%,F%,ASL#16:STR A%,[B%],#8
6�.nbskip
6�)SUB G%,G%,#12:SUBS F%,F%,#1:BGE nblp1
6�)SUB H%,H%,#12:SUBS E%,E%,#1:BGT nblp2
6�STR B%,neboblock+8
6�LDMFD (sp)!,{pc}
6�1.neboblock EQUD 0:EQUD 0:EQUD 0:EQUD 0:EQUD 0
6�
6�.nearcount
6�STMFD (sp)!,{link}
7<LDR R8,neboblock:LDR R9,neboblock+4:LDR R10,neboblock+12
7

MOV B%,#0
7-SUB E%,E%,#1:MOV R12,#12:MLA H%,E%,R12,H%
7.cnblp2
7(SUB G%,H%,#12:SUB F%,E%,#1
72.cnblp1
7<0LDR A%,[H%,#8]:LDR R12,[G%,#8]:SUB A%,A%,R12
7F8MOV A%,A%,ASR R10:MUL C%,A%,A%:CMP C%,R9:BGT cnbskip
7P0LDR A%,[H%,#4]:LDR R12,[G%,#4]:SUB A%,A%,R12
7Z;MOV A%,A%,ASR R10:MLA C%,A%,A%,C%:CMP C%,R9:BGT cnbskip
7d0LDR A%,[H%,#0]:LDR R12,[G%,#0]:SUB A%,A%,R12
7n;MOV A%,A%,ASR R10:MLA C%,A%,A%,C%:CMP C%,R9:BGT cnbskip
7x-LDR A%,neboblock+16:CMP C%,A%:BLT cnbskip
7�ADD B%,B%,#1
7�.cnbskip
7�*SUB G%,G%,#12:SUBS F%,F%,#1:BGE cnblp1
7�*SUB H%,H%,#12:SUBS E%,E%,#1:BGT cnblp2
7�
MOV R0,B%
7�LDMFD (sp)!,{pc}
7�]
7�1� P%>code+cspace � � 1,"Out of room for code"
7�
� PASS
7��
7�:
7�� �assem
7�cspace=3000
8� code cspace
8+A%=0:B%=1:C%=2:D%=3:E%=4:F%=5:G%=6:H%=7
8#repeldiv=�assemDiv(F%,D%,6,7,8)
8"X%=0:Y%=1:Z%=3
8,#AI%=12:BI%=11:SA%=9:CB%=8:SB%=7
86link=14:sp=13:pc=15
8@� PASS=0 � 2 � 2
8JP%=code
8T[ OPT PASS
8^
8h.basic_stack
8rMOV R0,R13
8|MOV pc,link
8�
8�.avZ
8�MOV R10,#12
8�STMFD (sp)!,{link}
8�.avzloop
8�LDMIA C%,{R7,R8,R9}
8�MLA R7,R10,R7,D%
8�MLA R8,R10,R8,D%
8�MLA R9,R10,R9,D%
8�LDR F%,[R7]
8�LDR R11,[R8]:ADD F%,F%,R11
8�LDR R11,[R9]:ADD F%,F%,R11
8�STR F%,[C%,#12]
9ADD C%,C%,#elsiz%(3)
9SUBS E%,E%,#1:BGE avzloop
9LDMFD (sp)!,{pc}
9&
90.hidefaces
9:STMFD (sp)!,{link}
9D.hideflp
9NLDR F%,[C%,#16]
9XLDMIA C%,{R7,R9,R11}
9bADD R7,D%,R7,ASL#3
9lADD R9,D%,R9,ASL#3
9vADD R11,D%,R11,ASL#3
9�LDMIA R7,{R7,R8}
9�LDMIA R9,{R9,R10}
9�LDMIA R11,{R11,R12}
9�!SUB R9 ,R9 ,R7:SUB R10,R10,R8
9�!SUB R11,R11,R7:SUB R12,R12,R8
9� MUL R7,R9,R12:MUL R8,R10,R11
9�BIC F%,F%,#&20000000
9�#CMP R7,R8:�RLT F%,F%,#&20000000
9�STR F%,[C%,#16]
9�ADD C%,C%,#elsiz%(3)
9�SUBS E%,E%,#1:BGE hideflp
9�LDMFD (sp)!,{pc}
9�
:.pts12 EQUD 0
:.vel2pos EQUD vel2%
:.storesp EQUD 0
: .dampran EQUD (1.0*180)^2
:*.dampsh EQUD dampsh%
:4.divtab EQUD recip%
:>
:H.v1pos EQUD 0:.v2pos EQUD 0
:R.frict EQUD 0
:\
:f.repel_code
:pSTMFD (sp)!,{link}
:zLDR R10,pts12
:�
MOV R8,R4
:�LDR R9,v2pos
:�.repel_lp1
:�;\ 0,1,2=x1%,y1%,z1% 3=c2% 4= 5=f% 6=s% 7=r% 8=f2% 9=v2%
:�.LDRB R4,[R8]:TST R4,#3:BLNE repel_comppair
:�\ R11,R12 changed
:�ADD R3,R3,#12
:�ADD R9,R9,#12
:�ADD R8,R8,#1
:�SUBS R10,R10,#12
:�BGE repel_lp1
:�LDMFD (sp)!,{pc}
:�
;.repel_comppair
;!\STMFD (sp)!,{R0-R3,R10,link}
;#STMFD (sp)!,{R0-R3,R9-R10,link}
;$4\ 0,1,2=x1%,y1%,z1% 3=c2% 4=f2%?0 5=f% 6=s% 7=r%
;.LDMIA R3,{R10,R11,R12}
;8-SUB R0,R0,R10:SUB R1,R1,R11:SUB R2,R2,R12
;B3MOV R0,R0,ASR#7:MOV R1,R1,ASR#7:MOV R2,R2,ASR#7
;L0MUL R3,R0,R0:MLA R3,R1,R1,R3:MLA R3,R2,R2,R3
;V%\ R0,R1,R2,R3,R10,R11,R12 changed
;`CMP R3,R7:BLLT repel_pair
;j%\ R0,R1,R2,R3,R10,R11,R12 changed
;t!LDMFD (sp)!,{R0-R3,R9-R10,pc}
;~\ R11,R12 changed
;�
;�.repel_pair
;�STMFD (sp)!,{R4-R8,link}
;�6\ (0,1,2)=(dx,dy,dz) 3=d^2 4=f2%?j% 5=f% 6=s% 7=r%
;�*LDR R10,v1pos:MOV R11,R9:LDR R12,frict
;�BL rroot
;�CMP R3,#2:MOVLT R3,#2
;�SUB R6,R6,R3:MUL R5,R6,R5
;�BL repeldiv
;�\ 3,5,6,7,8 changed
;�*MUL R0,R6,R0:MUL R1,R6,R1:MUL R2,R6,R2
;�� R4,R4,#2:RSB R3,R4,#8
<LDMIA R10,{R4,R5,R6}
<
,SUB R4,R4,R4,ASR R12:ADD R4,R4,R0,ASR R3
<,SUB R5,R5,R5,ASR R12:ADD R5,R5,R1,ASR R3
<,SUB R6,R6,R6,ASR R12:ADD R6,R6,R2,ASR R3
<(STMIA R10,{R4,R5,R6}
<2LDMIA R11,{R4,R5,R6}
<<,SUB R4,R4,R4,ASR R12:SUB R4,R4,R0,ASR R3
<F,SUB R5,R5,R5,ASR R12:SUB R5,R5,R1,ASR R3
<P,SUB R6,R6,R6,ASR R12:SUB R6,R6,R2,ASR R3
<ZSTMIA R11,{R4,R5,R6}
<d4\ R0,R1,R2,R3,R4,R5,R6,R7,R8,R10,R11,R12 changed
<nLDMFD (sp)!,{R4-R8,pc}
<x%\ R0,R1,R2,R3,R10,R11,R12 changed
<�
<�
.rroot
<�STMFD (sp)!,{R4-R9,link}
<�\ square=R3
<�MOV R4,#&C0000000
<�"MOV R5,#30:MOV R6,#0:MOV R7,#0
<�
.lp_rroot
<�#MOV R6,R6,LSL#1:MOV R7,R7,LSL#2
<�� R9,R3,R4:MOV R9,R9,LSR R5
<�,�R R7,R7,R9:MOV R8,R6,LSL#1:ADD R8,R8,#1
<�+CMP R7,R8:SUBGE R7,R7,R8:ADDGE R6,R6,#1
<�!MOV R4,R4,LSR#2:SUBS R5,R5,#2
<�BPL lp_rroot
=MOV R3,R6,ASL#7
=LDMFD (sp)!,{R4-R9,pc}
=
="
.old_damp
=,LDR A%,pts12
=6LDR B%,vepos
=@LDR R9,dampsh
=J
.damploop
=TLDMIA B%,{R10,R11,R12}
=^GMOVS C%,R10,ASR#7:MUL D%,C%,C%:RSBMI D%,D%,#0:SUB R10,R10,D%,ASR R9
=hGMOVS C%,R11,ASR#7:MUL D%,C%,C%:RSBMI D%,D%,#0:SUB R11,R11,D%,ASR R9
=rGMOVS C%,R12,ASR#7:MUL D%,C%,C%:RSBMI D%,D%,#0:SUB R12,R12,D%,ASR R9
=|STMIA (B%)!,{R10,R11,R12}
=�SUBS A%,A%,#12:BGE damploop
=�MOV pc,link
=�
=�.qfsort
=�%STMFD (sp)!,{A%,B%,C%,F%,G%,link}
=� ADD A%,F%,G%:MOV A%,A%,ASR#1
=�(LDR E%,[D%,A%,ASL#2]:LDR C%,[E%,#12]
=�MOV A%,F%:MOV B%,G%
=�.qfslp1
=�(LDR E%,[D%,A%,ASL#2]:LDR E%,[E%,#12]
=�'CMP E%,C%:ADDLT A%,A%,#1:BLT qfslp1
=�.qfslp2
=�(LDR E%,[D%,B%,ASL#2]:LDR E%,[E%,#12]
>'CMP C%,E%:SUBLT B%,B%,#1:BLT qfslp2
>CMP A%,B%:BGT skipswap
>-LDR E%,[D%,A%,ASL#2]:LDR R9,[D%,B%,ASL#2]
>&-STR R9,[D%,A%,ASL#2]:STR E%,[D%,B%,ASL#2]
>0
.skipswap
>:ADD A%,A%,#1:SUB B%,B%,#1
>DCMP A%,B%:BLE qfslp1
>N/MOV C%,G%:CMP F%,B%:MOVLT G%,B%:BLLT qfsort
>X/MOV G%,C%:CMP A%,G%:MOVLT F%,A%:BLLT qfsort
>b#LDMFD (sp)!,{A%,B%,C%,F%,G%,pc}
>l
>v	.bond
>�STMFD (sp)!,{link}
>�
.bondloop
>�%LDR R8,bopos:LDR G%,[R8,E%,ASL#3]
>�%ADD R8,R8,#4:LDR F%,[R8,E%,ASL#3]
>�&MOV H%,G%,LSR#16:� G%,G%,H%,LSL#16
>�(MOV R8,#12:MUL G%,R8,G%:MUL H%,R8,H%
>�LDR R8,copos
>�$ADD R9,R8,G%:LDMIA R9,{R0,R1,R2}
>�'ADD R9,R8,H%:LDMIA R9,{R10,R11,R12}
>�0SUB R10,R0,R10:SUB R11,R1,R11:SUB R12,R2,R12
>�
MOV B%,#0
>�-CMP R10,#0:RSBLT R10,R10,#0:�RLT B%,B%,#1
>�-CMP R11,#0:RSBLT R11,R11,#0:�RLT B%,B%,#2
?-CMP R12,#0:RSBLT R12,R12,#0:�RLT B%,B%,#4
?MOV D%,#1:MOV R8,#&6800
?3.zssl:CMP R8,R10,ASR D%:ADDLT D%,D%,#1:BLT zssl
? 3.xssl:CMP R8,R11,ASR D%:ADDLT D%,D%,#1:BLT xssl
?*3.yssl:CMP R8,R12,ASR D%:ADDLT D%,D%,#1:BLT yssl
?4<MOV R10,R10,ASR D%:MOV R11,R11,ASR D%:MOV R12,R12,ASR D%
?>6MUL C%,R10,R10:MLA C%,R11,R11,C%:MLA C%,R12,R12,C%
?H BL root:CMP A%,#0:BEQ divby0
?R4MOV R8,F%,LSR#24:MOV R9,F%,LSL#8:MOV R9,R9,LSR#8
?\.MOV F%,A%,ASL D%:SUB F%,F%,R9:MUL F%,R8,F%
?f)CMP F%,#0:RSBLT F%,F%,#0:�LT B%,B%,#7
?pMOV D%,#0:MOV R8,#&8000
?z2.fssl:CMP R8,F%,ASR D%:ADDLT D%,D%,#1:BLT fssl
?�/RSB D%,D%,#12:MOV F%,F%,ASL D%:ADD D%,D%,#7
?�
BL uDiv32
?�@MUL R10,C%,R10:MOV R10,R10,ASR D%:TST B%,#1:RSBNE R10,R10,#0
?�@MUL R11,C%,R11:MOV R11,R11,ASR D%:TST B%,#2:RSBNE R11,R11,#0
?�@MUL R12,C%,R12:MOV R12,R12,ASR D%:TST B%,#4:RSBNE R12,R12,#0
?�LDR R8,vepos
?�bADD R9,R8,G%:LDMIA R9,{R0,R1,R2}:SUB R0,R0,R10:SUB R1,R1,R11:SUB R2,R2,R12:STMIA R9,{R0,R1,R2}
?�bADD R9,R8,H%:LDMIA R9,{R0,R1,R2}:ADD R0,R0,R10:ADD R1,R1,R11:ADD R2,R2,R12:STMIA R9,{R0,R1,R2}
?�.divby0
?�SUBS E%,E%,#1:BGE bondloop
?�LDMFD (sp)!,{pc}
?�.bopos EQUD 0
?�.nopts EQUD 0
@
@.rotate
@STMFD (sp)!,{link}
@$&ADR AI%,sinpos:LDMIA AI%,{SB%,CB%}
@.ALDR R4,nopts:LDR R10,copos:LDR R9,store2pos:LDR R14,store3pos
@8	.loop
@B\ look up coordinates
@LLDMIA R10!,{X%,Y%,Z%}
@V6MOV X%,X%,ASR#10:MOV Y%,Y%,ASR#10:MOV Z%,Z%,ASR#10
@`<ADD X%,X%,X%,ASR#1:ADD Y%,Y%,Y%,ASR#1:ADD Z%,Z%,Z%,ASR#1
@j\ rotate around x axis
@tLDR AI%,cos2%:LDR BI%,sin2%
@~3MUL R5,AI%,Y%:MLA R5,Z%,BI%,R5:MOV R5,R5,ASR#10
@�=MUL Z%,AI%,Z%:MUL R6,Y%,BI%:SUB Z%,Z%,R6:MOV Z%,Z%,ASR#10
@�
MOV Y%,R5
@�\ rotate around y axis
@�LDR AI%,cos%:LDR BI%,sin%
@�=MUL R5,X%,AI%:MUL R6,Z%,BI%:SUB R5,R5,R6:MOV R5,R5,ASR#10
@�,MUL Z%,AI%,Z%:MLA Z%,X%,BI%,Z%:MOV X%,R5
@�MOV Z%,Z%,ASR#10
@�\ store 3D point
@�STMIA R14!,{X%,Y%,Z%}
@�'\ apply perspective, store 2D point
@�.LDR R5,perpos:RSBS R6,X%,#&400:MOVLT R6,#0
@�CMP R6,#&800:MOVGT R6,#&800
ALDR R6,[R5,R6,ASL#2]
A
JMUL Y%,R6,Y%:MOV Y%,Y%,ASR#10:ADD Y%,Y%,#1+�ModeVar(11)<<�ModeVar(4)-1
AJMUL Z%,R6,Z%:MOV Z%,Z%,ASR#10:ADD Z%,Z%,#1+�ModeVar(12)<<�ModeVar(5)-1
ASTMIA R9!,{Y%,Z%}
A(\
A2SUBS R4,R4,#1:BGT loop
A<LDMFD (sp)!,{pc}
AF
AP%.sinpos EQUD sin:.cospos EQUD cos
AZ.perpos EQUD per%
Ad.sin% EQUD 0:.cos% EQUD 0
An.sin2% EQUD 0:.cos2% EQUD 0
Ax.copos EQUD 0
A�.vepos EQUD 0
A�.store2pos EQUD 0
A�.store3pos EQUD 0
A�]
A�1� P%>code+cspace � � 1,"Out of room for code"
A�
� PASS
A��
A�:
A�&� �assemDiv(lhs,rhs,div,mod,count)
A�� code,PASS
A�
� code 64
A�� PASS=0 � 2 � 2
A�P%=code
B[ OPT PASS
BMOV mod,#0
BMOV div,#0
B"MOV count,#32
B,.divLp1
B6SUBS count,count,#1
B@�Q pc,link
BJMOVS lhs,lhs,ASL#1
BTBPL divLp1
B^.divLp2
BhMOVS lhs,lhs,ASL#1
BrADC mod,mod,mod
B|CMP mod,rhs
B�SUBCS mod,mod,rhs
B�ADC div,div,div
B�SUBS count,count,#1
B�BNE divLp2
B�.divErr
B�MOV R15,R14
B�]
B�0� P%>code+64 � � 1234,"Out of room for code"
B�
� PASS
B�	=code
B�:
B�� �assemRoot
B�� code% 200
Clink=14:sp=13:pc=15
C"sqrt=0:square=2:mask=1:shift=3
C!diff=4:subtrahend=5:t=6:min=7
C&� pass%=0 � 2 � 2
C0P%=code%
C:[OPT pass%
CD.Rstore EQUS �4*8,�0)
CN	.root
CX)ADR sqrt,Rstore:STMIA sqrt,{1-7,link}
CbMOV mask,#&C0000000
ClMOV shift,#30
CvMOV sqrt,#0
C�MOV min,#0
C�.nextbit
C�MOV sqrt,sqrt,LSL#1
C�MOV min,min,LSL#2
C�� t,square,mask
C�MOV t,t,LSR shift
C��R min,min,t
C�MOV subtrahend,sqrt,LSL#1
C� ADD subtrahend,subtrahend,#1
C�CMP min,subtrahend
C�SUBGE min,min,subtrahend
C�ADDGE sqrt,sqrt,#1
C�MOV mask,mask,LSR#2
DSUBS shift,shift,#2
DBPL nextbit
D#ADR R1,Rstore:LDMIA R1,{1-7,pc}
D ]
D*�
D4�
D>:
DH� �error
DR	� � �
D\� 0
Df� �$;" at line ";�
Dpș "Hourglass_Smash"
Dz� ch%>0 �#ch%
D��� anim% � ș "OS_PrettyPrint","Enter PROCsave(""filename"") to save the animation in memory"+�13+"Press F4 to return to the Desktop"+�13+�0
D�/*Key 4 |USYS"Wimp_CommandWindow",-1|MQUIT|M
D��
D�:
D�� �status(FR%)
D�� A$,O%,H%
D�6frames%=(storend%-store1%)*FR%/(!storepos-store1%)
D�"� 30:�"Frame ";FR%;"/";frames%
D�U�;!storepos-store%;" bytes (";�(.5+100*(!storepos-store%)/(storend%-store%));"%)"
D�O%=�-startime%
D�:�"last frame: ";O% � 100;".";(O% � 10)� 10;O% � 10;"s"
D�2� PRINT;movetime%-startime%;"+";TIME-movetime%
D�gentime%+=�-startime%
E,� aim%<frames% � aim%>FR% � frames%=aim%
E!O%=gentime%*(frames%-FR%)/FR%
E2!timblk%=3:timblk%!4=0:ș "OS_Word",14,timblk%
E$H%=timblk%!3
E.0!timblk%=(!timblk% � &FFFFFF)+(O% � &FFFFFF)
E8#timblk%!3=H%+(O%>>24)+timblk%?3
EBDș "OS_ConvertDateAndTime",timblk%,stri%,255,"%z12:%mi%pm" � ,O%
EL)?O%=13:�;frames%;" frames at ";$stri%
EV�
E`:
EjL� ----------------------------------------------------------------------
Et:
E~'� �initthing(thing%,np%,nf%,nb%,f%)
E�thing%!nop%=np%
E�thing%!nof%=nf%
E�thing%!nob%=nb%
E�+� f% � &01 � thing%!co0%=�create(1,np%)
E�+� f% � &02 � thing%!co1%=�create(1,np%)
E�+� f% � &04 � thing%!co2%=�create(2,np%)
E�;� f% � &08 � thing%!vel%=�create(1,np%) � thing%!vel%=0
E�+� f% � &10 � thing%!fac%=�create(3,nf%)
E�+� f% � &20 � thing%!bnd%=�create(6,nb%)
E�+� f% � &40 � thing%!fno%=�create(1,nf%)
E�;� f% � &80 � thing%!ptf%=�create(1,nf%) � thing%!ptf%=0
E�thing%!odm%=32
Fthing%!rdm%=32
F
thing%!adm%=32
Fthing%!rep%=0
F�
F(:
F2� �init3OOD
F<� A%
FFmaxobjs%=20
FPtypes%=9
FZwind%=1
Fd� elsiz%(types%-1)
FnMelsiz%(0)=0:elsiz%(1)=12:elsiz%(2)=8:elsiz%(3)=20:elsiz%(4)=4:elsiz%(5)=4
Fx(elsiz%(6)=8:elsiz%(7)=64:elsiz%(8)=1
F��nop%=0:nof%=4:nob%=8:co0%=12:co1%=16:co2%=20:vel%=24:fac%=28:bnd%=32:fno%=36:adm%=40:rdm%=44:odm%=48:sep%=52:ptf%=56:rep%=60
F��
F�:
F�� �create(TYPE%,NOEL%)
F�<� TYPE%>=types% � TYPE%<0 � � 1234,"Invalid object type"
F�;� NOEL%<0 � � 1234,"Silly number of elements requested"
F�� A%,S%
F�� S% NOEL%*elsiz%(TYPE%)
F�� TYPE%=7 �
F�- � A%=0 � NOEL%*elsiz%(TYPE%)-4:S%!A%=0:�
F��
F�=S%
F�:
G!� �init_facpoint(A%,B%,N%,S%)
G� N%=0 �
G� C%,Q%
G"B%+=S%*elsiz%(4)
G,5� C%=0 � N%-1:B%!(C%*elsiz%(4))=A%+C%*elsiz%(3):�
G6
=S%+N%
G@:
GJ� �rotnpersp(A%,D%,E%,F%)
GT%!sin%=sin!(D%*4):!cos%=cos!(D%*4)
G^'!sin2%=sin!(E%*4):!cos2%=cos!(E%*4)
Gh!nopts=A%!nop%
Gr!copos=A%!co0%
G|!store3pos=A%!co1%
G�!store2pos=A%!co2%
G�� rotate
G��
G�:
G�&� �rotate(thing%,AS%,BS%,D%,E%,F%)
G�!AS%=thing%!AS%:BS%=thing%!BS%
G�"� C%,CX,SX,CY,SY,CZ,SZ,X,Y,Z,T
G�2D%=(D% � &3FF)*4:CX=cos!D%/&400:SX=sin!D%/&400
G�2E%=(E% � &3FF)*4:CY=cos!E%/&400:SY=sin!E%/&400
G�2F%=(F% � &3FF)*4:CZ=cos!F%/&400:SZ=sin!F%/&400
G�� C%=0 � thing%!nop%-1
G� Z=!AS%:X=AS%!4:T=AS%!8
G� Y=T*CX+Z*SX:Z=Z*CX-T*SX
H T=X*CY-Z*SY:Z=X*SY+Z*CY
H X=T*CZ-Y*SZ:Y=T*SZ+Y*CZ
H BS%!0=Z:BS%!4=X:BS%!8=Y
H& AS%+=12:BS%+=12
H0�
H:�
HD:
HN)� �translate(thing%,AS%,BS%,D%,E%,F%)
HX� C%
Hb!AS%=thing%!AS%:BS%=thing%!BS%
Hl� C%=0 � thing%!nop%-1
Hv1 BS%!0=AS%!0-F%:BS%!4=AS%!4+D%:BS%!8=AS%!8+E%
H� AS%+=12:BS%+=12
H��
H��
H�:
H�#� �define_facet(A%,C%,D%,E%,F%)
H�!� C%=D% � D%=E% � E%=C% � =A%
H�6� A%<�P � � 1,"bad pointer passed to define_facet"
H�� wind%>0 Ȕ C%,E%
H�*!A%=C%:A%!4=D%:A%!8=E%:A%!12=0:A%!16=0
H�A%?17=objects%-1
H�
A%?19=&20
H�� wind%=0 A%?19=A%?19 � &40
H� � (F% � 1) A%?19=A%?19 � &10
I � (F% � 2) A%?19=A%?19 � &80
Ifaco%+=1
I=A%+elsiz%(3)
I :
I*� �calcavZ(A%,B%)
I4� C%,D%,E%
I>$C%=A%!fac%:D%=A%!B%:E%=A%!nof%-1
IH� avZ:�
IR:
I\� �fudge(A%)
If� C%,D%,E%,I%
IpC%=A%!fac%:D%=A%!nof%-1
Iz� I%=0 � D%
I� C%!12-=200:C%+=elsiz%(3)
I��
I��
I�:
I�� �hidefaces(A%)
I�� C%,D%,E%
I�&C%=A%!fac%:D%=A%!co2%:E%=A%!nof%-1
I�� hidefaces
I��
I�:
I�� �Zsort
I�� D%,F%,G%
I�D%=facpt%:F%=0:G%=totnof%-1
J� qfsort:�
J:
J� �render(skip%,S%)
J$!� AS%,BS%,CS%,DS%,I%,A%,B%,C%
J.AS%=facpt%
J8� S%>1 �
JB � I%=0 � objects%-1
JL   thing%=world%+I%*elsiz%(7)
JV  �calcavZ(thing%,co1%)
J`$  � thing%!vel%=0 �fudge(thing%)
Jj  �hidefaces(thing%)
Jt �
J~ �Zsort
J��
J�Ȏ S% �
J�� 0:
J�� I%=0 � totnof%-1
J�B CS%=AS%!(I%*4):thing%=world%+elsiz%(7)*CS%?17:BS%=thing%!co2%
J� � �(thing%!vel%)<>skip% �
J�1  A%=BS%+8*!CS%:B%=BS%+8*CS%!4:C%=BS%+8*CS%!8
J�)  Ȓ !A%,A%!4:Ȓ !B%,B%!4:Ȓ !C%,C%!4
J� �
J��
J�� 1:
J�� I%=0 � totnof%-1
KB CS%=AS%!(I%*4):thing%=world%+elsiz%(7)*CS%?17:BS%=thing%!co2%
K
1 � (CS%?19 � &10)=0 � �(thing%!vel%)<>skip% �
K1  A%=BS%+8*!CS%:B%=BS%+8*CS%!4:C%=BS%+8*CS%!8
K&  � !A%,A%!4:� !B%,B%!4:� !C%,C%!4
K(!  � CS%?19 � &80 � � !A%,A%!4
K2 �
K<�
KF� 2:
KP� I%=0 � totnof%-1
KZB CS%=AS%!(I%*4):thing%=world%+elsiz%(7)*CS%?17:BS%=thing%!co2%
Kd- � CS%?19 � &60 � �(thing%!vel%)<>skip% �
Kn1  A%=BS%+8*!CS%:B%=BS%+8*CS%!4:C%=BS%+8*CS%!8
Kx)  � !A%,A%!4:� !B%,B%!4:� 87,!C%,C%!4
K�&  � 65,0,0:Ȓ !A%,A%!4:Ȓ !B%,B%!4
K� �
K��
K�� 3:
K�� I%=0 � totnof%-1
K�B CS%=AS%!(I%*4):thing%=world%+elsiz%(7)*CS%?17:BS%=thing%!co2%
K�2 � (CS%?19 � &60)<>0 � �(thing%!vel%)<>skip% �
K�1  A%=BS%+8*!CS%:B%=BS%+8*CS%!4:C%=BS%+8*CS%!8
K�)  � !A%,A%!4:� !B%,B%!4:� 87,!C%,C%!4
K�  � !B%,B%!4:� !A%,A%!4
K�  � CS%?19 � &80 � !C%,C%!4
K� �
K��
L�
L�
�

00000000  0d 00 0a 19 f4 20 3e 3c  46 45 4d 53 24 64 69 72  |..... ><FEMS$dir|
00000010  3e 2e 46 45 4d 53 32 b7  33 0d 00 14 29 f4 20 46  |>.FEMS2.3...). F|
00000020  69 6e 69 74 65 20 45 6c  65 6d 65 6e 74 20 4d 61  |inite Element Ma|
00000030  74 65 72 69 61 6c 73 20  53 69 6d 75 6c 61 74 69  |terials Simulati|
00000040  6f 6e 0d 00 1e 2f f4 20  77 69 74 68 20 64 65 76  |on.../. with dev|
00000050  65 6c 6f 70 6d 65 6e 74  20 76 65 72 73 69 6f 6e  |elopment version|
00000060  20 6f 66 20 4f 4f 33 44  20 72 6f 75 74 69 6e 65  | of OO3D routine|
00000070  73 0d 00 28 27 f4 20 76  65 72 73 69 6f 6e 20 32  |s..('. version 2|
00000080  2e 31 3a 20 72 65 73 74  79 6c 69 6e 67 20 6f 66  |.1: restyling of|
00000090  20 6f 62 6a 65 63 74 73  0d 00 32 1f f4 20 32 2e  | objects..2.. 2.|
000000a0  31 31 20 20 63 79 6c 69  6e 64 65 72 20 64 65 66  |11  cylinder def|
000000b0  69 6e 69 74 69 6f 6e 0d  00 3c 25 f4 20 32 2e 31  |inition..<%. 2.1|
000000c0  32 20 20 6e 65 61 72 65  73 74 20 6e 65 69 67 62  |2  nearest neigb|
000000d0  6f 75 72 73 20 62 6f 6e  64 69 6e 67 0d 00 46 25  |ours bonding..F%|
000000e0  f4 20 32 2e 31 33 20 20  67 65 6e 65 72 61 6c 69  |. 2.13  generali|
000000f0  73 65 64 20 66 72 61 6d  65 20 73 74 6f 72 61 67  |sed frame storag|
00000100  65 0d 00 50 20 f4 20 32  2e 31 34 20 20 62 61 63  |e..P . 2.14  bac|
00000110  6b 67 72 6f 75 6e 64 73  20 62 75 69 6c 74 20 69  |kgrounds built i|
00000120  6e 0d 00 5a 2c f4 20 32  2e 31 35 20 20 62 61 63  |n..Z,. 2.15  bac|
00000130  6b 67 72 6f 75 6e 64 73  20 5a 2d 6d 69 78 65 64  |kgrounds Z-mixed|
00000140  20 77 69 74 68 20 6f 62  6a 65 63 74 73 0d 00 64  | with objects..d|
00000150  2e f4 20 32 2e 31 36 20  20 6d 69 78 65 64 20 62  |.. 2.16  mixed b|
00000160  61 63 6b 67 72 6f 75 6e  64 73 2c 20 72 65 70 6c  |ackgrounds, repl|
00000170  61 79 2c 20 70 72 65 76  69 65 77 0d 00 6e 18 f4  |ay, preview..n..|
00000180  20 32 2e 31 37 20 20 32  20 63 6f 6c 6f 75 72 20  | 2.17  2 colour |
00000190  52 4c 45 0d 00 78 20 f4  20 32 2e 31 37 62 20 66  |RLE..x . 2.17b f|
000001a0  6c 61 74 20 73 68 61 64  69 6e 67 20 72 65 6d 6f  |lat shading remo|
000001b0  76 65 64 0d 00 82 27 f4  20 32 2e 31 38 20 20 72  |ved...'. 2.18  r|
000001c0  65 61 64 20 73 63 65 6e  65 20 64 65 66 69 6e 69  |ead scene defini|
000001d0  74 69 6f 6e 20 66 69 6c  65 73 0d 00 8c 3e f4 20  |tion files...>. |
000001e0  32 2e 31 39 20 20 63 75  62 6f 69 64 20 64 65 66  |2.19  cuboid def|
000001f0  69 6e 69 74 69 6f 6e 2c  20 63 6f 6d 70 6f 75 6e  |inition, compoun|
00000200  64 20 6f 62 6a 65 63 74  73 20 28 63 75 62 6f 69  |d objects (cuboi|
00000210  64 73 20 6f 6e 6c 79 29  0d 00 96 22 f4 20 32 2e  |ds only)...". 2.|
00000220  32 30 20 20 61 6e 79 20  6f 62 6a 65 63 74 20 69  |20  any object i|
00000230  6e 20 63 6f 6d 70 6f 75  6e 64 0d 00 a0 43 f4 20  |n compound...C. |
00000240  32 2e 32 31 20 20 50 52  4f 43 6f 75 74 70 75 74  |2.21  PROCoutput|
00000250  5f 66 61 63 65 74 73 2c  20 50 52 4f 43 66 72 61  |_facets, PROCfra|
00000260  6d 65 5f 61 63 74 69 6f  6e 73 2c 20 61 6e 69 6d  |me_actions, anim|
00000270  73 20 69 6e 73 69 64 65  20 73 69 6d 73 0d 00 aa  |s inside sims...|
00000280  38 f4 20 32 2e 32 31 31  20 63 6f 6e 73 74 2e 20  |8. 2.211 const. |
00000290  73 65 70 2e 20 73 70 68  65 72 65 20 28 62 61 63  |sep. sphere (bac|
000002a0  6b 67 72 6f 75 6e 64 20  26 20 66 6f 72 65 67 72  |kground & foregr|
000002b0  6f 75 6e 64 29 0d 00 b4  2d f4 20 20 20 20 20 20  |ound)...-.      |
000002c0  20 75 6e 69 74 73 20 66  6f 72 20 61 6e 67 6c 65  | units for angle|
000002d0  73 2c 20 76 65 6c 6f 63  69 74 69 65 73 20 65 74  |s, velocities et|
000002e0  63 2e 0d 00 be 18 f4 20  20 20 20 20 20 20 73 6f  |c......       so|
000002f0  6c 69 64 5f 73 70 68 65  72 65 0d 00 c8 18 f4 20  |lid_sphere..... |
00000300  32 2e 32 31 32 20 73 70  69 6e 20 63 6f 6d 6d 61  |2.212 spin comma|
00000310  6e 64 0d 00 d2 19 f4 20  20 20 20 20 20 20 6c 6f  |nd.....       lo|
00000320  63 61 6c 20 64 61 6d 70  69 6e 67 0d 00 dc 22 f4  |cal damping...".|
00000330  20 32 2e 32 31 33 20 72  6f 74 61 74 69 6e 67 20  | 2.213 rotating |
00000340  66 72 61 6d 65 20 64 61  6d 70 69 6e 67 0d 00 e6  |frame damping...|
00000350  1d f4 20 20 20 20 20 20  20 72 65 70 65 6c 6c 69  |..       repelli|
00000360  6e 67 20 6f 62 6a 65 63  74 73 0d 00 f0 1a f4 20  |ng objects..... |
00000370  32 2e 32 31 34 20 66 72  6f 7a 65 6e 20 6f 62 6a  |2.214 frozen obj|
00000380  65 63 74 73 0d 00 fa 1e  f4 20 20 20 20 20 20 20  |ects.....       |
00000390  70 72 6f 70 65 72 20 61  69 72 20 64 61 6d 70 69  |proper air dampi|
000003a0  6e 67 0d 01 04 20 f4 20  32 2e 32 31 35 20 63 75  |ng... . 2.215 cu|
000003b0  62 6f 69 64 20 73 75 72  66 61 63 65 20 66 69 78  |boid surface fix|
000003c0  65 64 0d 01 0e 22 f4 20  20 20 20 20 20 20 76 61  |ed...".       va|
000003d0  72 69 61 62 6c 65 20 73  6f 6c 69 64 20 64 61 6d  |riable solid dam|
000003e0  70 69 6e 67 0d 01 18 25  f4 20 20 20 20 20 20 20  |ping...%.       |
000003f0  66 6f 72 63 65 20 70 61  72 61 6d 65 74 65 72 20  |force parameter |
00000400  66 6f 72 20 72 65 70 65  6c 0d 01 22 43 f4 20 32  |for repel.."C. 2|
00000410  2e 32 31 36 20 72 65 70  65 6c 20 6c 61 72 67 65  |.216 repel large|
00000420  6c 79 20 6d 61 63 68 69  6e 65 20 63 6f 64 65 64  |ly machine coded|
00000430  20 28 6f 75 74 65 72 20  70 6f 69 6e 74 20 6c 6f  | (outer point lo|
00000440  6f 70 20 69 6e 20 42 41  53 49 43 29 0d 01 2c 2a  |op in BASIC)..,*|
00000450  f4 20 32 2e 32 31 37 20  6d 75 6c 74 69 70 6c 65  |. 2.217 multiple|
00000460  20 61 6e 64 20 62 6f 78  2d 62 6f 75 6e 64 65 64  | and box-bounded|
00000470  20 70 75 6c 6c 73 0d 01  36 26 f4 20 32 2e 32 31  | pulls..6&. 2.21|
00000480  38 20 75 6e 69 74 73 20  66 6f 72 20 61 6e 67 75  |8 units for angu|
00000490  6c 61 72 20 76 65 6c 6f  63 69 74 79 0d 01 40 2a  |lar velocity..@*|
000004a0  f4 20 20 20 20 20 2b 20  68 6f 75 72 67 6c 61 73  |.     + hourglas|
000004b0  73 20 64 75 72 69 6e 67  20 72 65 70 65 6c 20 70  |s during repel p|
000004c0  72 65 70 72 6f 70 0d 01  4a 04 0d 01 54 09 63 68  |reprop..J...T.ch|
000004d0  25 3d 30 0d 01 5e 0b 61  6e 69 6d 25 3d a3 0d 01  |%=0..^.anim%=...|
000004e0  68 0e ee 20 85 20 f2 65  72 72 6f 72 0d 01 72 04  |h.. . .error..r.|
000004f0  0d 01 7c 07 eb 20 30 0d  01 86 19 c8 99 20 22 4f  |..|.. 0...... "O|
00000500  53 5f 47 65 74 45 6e 76  22 20 b8 20 65 6e 76 24  |S_GetEnv" . env$|
00000510  0d 01 90 16 69 25 3d a7  65 6e 76 24 2c 22 2d 66  |....i%=.env$,"-f|
00000520  69 6c 65 20 22 29 0d 01  9a 0c e7 20 69 25 3d 30  |ile ")..... i%=0|
00000530  20 8c 0d 01 a4 1e 20 66  69 6c 65 24 3d 22 5e 2e  | ..... file$="^.|
00000540  73 69 6d 73 2e 43 68 61  69 72 53 74 61 69 72 22  |sims.ChairStair"|
00000550  0d 01 ae 05 cc 0d 01 b8  16 20 66 69 6c 65 24 3d  |......... file$=|
00000560  c1 65 6e 76 24 2c 69 25  2b 36 29 0d 01 c2 13 20  |.env$,i%+6).... |
00000570  69 25 3d a7 66 69 6c 65  24 2c 22 20 22 29 0d 01  |i%=.file$," ")..|
00000580  cc 1e 20 e7 20 69 25 20  8c 20 66 69 6c 65 24 3d  |.. . i% . file$=|
00000590  c0 66 69 6c 65 24 2c 69  25 2d 31 29 0d 01 d6 05  |.file$,i%-1)....|
000005a0  cd 0d 01 e0 2e c8 99 20  22 4f 53 5f 46 69 6c 65  |....... "OS_File|
000005b0  22 2c 35 2c 66 69 6c 65  24 20 b8 20 6f 74 25 2c  |",5,file$ . ot%,|
000005c0  2c 74 79 70 65 25 2c 2c  6c 65 6e 67 74 68 25 0d  |,type%,,length%.|
000005d0  01 ea 31 e7 20 6f 74 25  3c 3e 31 20 8c 20 85 20  |..1. ot%<>1 . . |
000005e0  31 2c 22 46 69 6c 65 20  22 22 22 2b 66 69 6c 65  |1,"File """+file|
000005f0  24 2b 22 22 22 20 6e 6f  74 20 66 6f 75 6e 64 22  |$+""" not found"|
00000600  0d 01 f4 1b 74 79 70 65  25 3d 28 74 79 70 65 25  |....type%=(type%|
00000610  3e 3e 38 29 20 80 20 26  46 46 46 0d 01 fe 04 0d  |>>8) . &FFF.....|
00000620  02 08 0e c8 8e 20 74 79  70 65 25 20 ca 0d 02 12  |..... type% ....|
00000630  0c 20 c9 20 26 46 46 46  3a 0d 02 1c 0b 20 20 f2  |. . &FFF:....  .|
00000640  69 6e 69 74 0d 02 26 19  20 20 f2 72 65 61 64 5f  |init..&.  .read_|
00000650  73 63 72 69 70 74 28 66  69 6c 65 24 29 0d 02 30  |script(file$)..0|
00000660  0c 20 20 f2 69 6e 69 74  32 0d 02 3a 14 20 20 f2  |.  .init2..:.  .|
00000670  63 72 65 61 74 65 5f 66  72 61 6d 65 73 0d 02 44  |create_frames..D|
00000680  0d 20 20 f2 73 61 76 65  69 74 0d 02 4e 0c 20 c9  |.  .saveit..N. .|
00000690  20 26 33 43 37 3a 0d 02  58 1a 20 20 f2 6c 6f 61  | &3C7:..X.  .loa|
000006a0  64 28 66 69 6c 65 24 2c  6c 65 6e 67 74 68 25 29  |d(file$,length%)|
000006b0  0d 02 62 12 20 20 f2 69  6e 69 74 5f 72 65 70 6c  |..b.  .init_repl|
000006c0  61 79 0d 02 6c 1c 20 7f  3a 85 20 31 2c 22 46 69  |ay..l. .:. 1,"Fi|
000006d0  6c 65 20 77 72 6f 6e 67  20 74 79 70 65 22 0d 02  |le wrong type"..|
000006e0  76 05 cb 0d 02 80 13 f2  64 69 73 70 6c 61 79 5f  |v.......display_|
000006f0  66 72 61 6d 65 73 0d 02  8a 05 e0 0d 02 94 05 3a  |frames.........:|
00000700  0d 02 9e 0b dd 20 f2 69  6e 69 74 0d 02 a8 0d f2  |..... .init.....|
00000710  69 6e 69 74 33 4f 4f 44  0d 02 b2 12 de 20 73 63  |init3OOD..... sc|
00000720  72 61 70 25 20 32 35 36  2a 34 0d 02 bc 1e de 20  |rap% 256*4..... |
00000730  73 69 6e 20 32 30 34 38  2a 34 3a 63 6f 73 3d 73  |sin 2048*4:cos=s|
00000740  69 6e 2b 32 35 36 2a 34  0d 02 c6 1e f1 27 22 46  |in+256*4.....'"F|
00000750  69 6c 6c 69 6e 67 20 73  69 6e 65 20 61 72 72 61  |illing sine arra|
00000760  79 2e 2e 2e 22 3b 0d 02  d0 32 e3 20 41 25 3d 30  |y...";...2. A%=0|
00000770  20 b8 20 31 30 32 33 3a  73 69 6e 21 28 41 25 2a  | . 1023:sin!(A%*|
00000780  34 29 3d 26 34 30 30 2a  b5 28 41 25 2a af 2f 35  |4)=&400*.(A%*./5|
00000790  31 32 29 2b 2e 35 3a ed  0d 02 da 30 e3 20 41 25  |12)+.5:....0. A%|
000007a0  3d 30 20 b8 20 31 30 32  33 3a 73 69 6e 21 28 28  |=0 . 1023:sin!((|
000007b0  41 25 2b 31 30 32 34 29  2a 34 29 3d 73 69 6e 21  |A%+1024)*4)=sin!|
000007c0  28 41 25 2a 34 29 3a ed  0d 02 e4 11 de 20 70 65  |(A%*4):...... pe|
000007d0  72 25 20 26 38 30 31 2a  34 0d 02 ee 25 f1 27 22  |r% &801*4...%.'"|
000007e0  46 69 6c 6c 69 6e 67 20  70 65 72 73 70 65 63 74  |Filling perspect|
000007f0  69 76 65 20 61 72 72 61  79 2e 2e 2e 22 3b 0d 02  |ive array...";..|
00000800  f8 30 e3 20 4e 25 3d 30  20 b8 20 26 38 30 30 3a  |.0. N%=0 . &800:|
00000810  70 65 72 25 21 28 4e 25  2a 34 29 3d 26 36 30 30  |per%!(N%*4)=&600|
00000820  2f 28 31 2b 4e 25 2f 26  34 30 30 29 3a ed 0d 03  |/(1+N%/&400):...|
00000830  02 15 de 20 70 74 70 25  28 33 29 2c 73 7a 70 25  |... ptp%(3),szp%|
00000840  28 33 29 0d 03 0c 0e 6d  61 78 6f 62 6a 73 25 3d  |(3)....maxobjs%=|
00000850  38 0d 03 16 1e 77 6f 72  6c 64 25 3d a4 63 72 65  |8....world%=.cre|
00000860  61 74 65 28 37 2c 6d 61  78 6f 62 6a 73 25 29 0d  |ate(7,maxobjs%).|
00000870  03 20 18 de 20 62 67 64  65 66 25 28 6d 61 78 6f  |. .. bgdef%(maxo|
00000880  62 6a 73 25 2c 36 29 0d  03 2a 1a de 20 70 75 6c  |bjs%,6)..*.. pul|
00000890  6c 25 20 31 32 2a 36 34  3a 70 75 6c 6c 73 25 3d  |l% 12*64:pulls%=|
000008a0  30 0d 03 34 0f 69 6e 63  68 25 3d 26 42 34 30 30  |0..4.inch%=&B400|
000008b0  0d 03 3e 0f f2 61 73 73  65 6d 5f 6e 65 62 6f 0d  |..>..assem_nebo.|
000008c0  03 48 05 e1 0d 03 52 05  3a 0d 03 5c 0f dd 20 f2  |.H....R.:..\.. .|
000008d0  64 65 66 61 75 6c 74 73  0d 03 66 17 78 72 65 73  |defaults..f.xres|
000008e0  25 3d 33 32 30 3a 79 72  65 73 25 3d 32 35 36 0d  |%=320:yres%=256.|
000008f0  03 70 0a 72 65 6e 25 3d  32 0d 03 7a 0a 66 73 70  |.p.ren%=2..z.fsp|
00000900  25 3d 31 0d 03 84 0d 72  73 74 79 6c 65 25 3d 30  |%=1....rstyle%=0|
00000910  0d 03 8e 0c 61 69 6d 25  3d 36 30 30 0d 03 98 13  |....aim%=600....|
00000920  56 41 25 3d 37 30 30 3a  56 42 25 3d 39 31 32 0d  |VA%=700:VB%=912.|
00000930  03 a2 0f 73 74 6f 73 74  79 6c 65 25 3d 30 0d 03  |...stostyle%=0..|
00000940  ac 24 67 72 61 76 5f 78  25 3d 30 3a 67 72 61 76  |.$grav_x%=0:grav|
00000950  5f 79 25 3d 30 3a 67 72  61 76 5f 7a 25 3d 2d 36  |_y%=0:grav_z%=-6|
00000960  30 30 0d 03 b6 0d 64 61  6d 70 73 68 25 3d 32 0d  |00....dampsh%=2.|
00000970  03 c0 0b 6d 6f 64 65 25  3d 34 0d 03 ca 05 e1 0d  |...mode%=4......|
00000980  03 d4 05 3a 0d 03 de 19  dd 20 f2 72 65 61 64 5f  |...:..... .read_|
00000990  73 63 72 69 70 74 28 66  69 6c 65 24 29 0d 03 e8  |script(file$)...|
000009a0  05 db 0d 03 f2 10 63 68  25 3d 8e 28 66 69 6c 65  |......ch%=.(file|
000009b0  24 29 0d 03 fc 2e e7 20  63 68 25 3d 30 20 8c 20  |$)..... ch%=0 . |
000009c0  85 20 31 2c 22 43 6f 75  6c 64 20 6e 6f 74 20 6f  |. 1,"Could not o|
000009d0  70 65 6e 20 73 63 72 69  70 74 20 66 69 6c 65 22  |pen script file"|
000009e0  0d 04 06 50 e7 20 a4 6c  69 6e 65 3c 3e 22 66 65  |...P. .line<>"fe|
000009f0  6d 73 32 22 20 8c 20 f2  72 73 65 28 22 53 63 72  |ms2" . .rse("Scr|
00000a00  69 70 74 20 66 69 6c 65  20 69 6e 76 61 6c 69 64  |ipt file invalid|
00000a10  3a 20 64 69 64 20 6e 6f  74 20 73 74 61 72 74 20  |: did not start |
00000a20  77 69 74 68 20 22 22 46  45 4d 53 32 22 22 22 29  |with ""FEMS2""")|
00000a30  0d 04 10 0d f2 64 65 66  61 75 6c 74 73 0d 04 1a  |.....defaults...|
00000a40  27 73 6f 6c 69 64 73 25  3d 30 3a 62 61 63 6b 67  |'solids%=0:backg|
00000a50  72 6f 75 6e 64 73 25 3d  30 3a 6f 62 6a 65 63 74  |rounds%=0:object|
00000a60  73 25 3d 30 0d 04 24 05  f5 0d 04 2e 0d 20 63 24  |s%=0..$...... c$|
00000a70  3d a4 6c 69 6e 65 0d 04  38 0c 20 c8 8e 20 63 24  |=.line..8. .. c$|
00000a80  20 ca 0d 04 42 36 20 20  c9 20 22 72 65 6e 64 65  | ...B6  . "rende|
00000a90  72 69 6e 67 22 3a f2 67  65 74 5f 6f 70 65 6e 62  |ring":.get_openb|
00000aa0  72 61 63 6b 28 63 24 29  3a f2 72 65 61 64 5f 72  |rack(c$):.read_r|
00000ab0  65 6e 64 65 72 69 6e 67  0d 04 4c 3e 20 20 c9 20  |endering..L>  . |
00000ac0  22 73 6f 6c 69 64 22 3a  f2 67 65 74 5f 6f 70 65  |"solid":.get_ope|
00000ad0  6e 62 72 61 63 6b 28 63  24 29 3a 73 6f 6c 69 64  |nbrack(c$):solid|
00000ae0  73 25 2b 3d 31 3a f2 72  65 61 64 5f 6f 62 6a 65  |s%+=1:.read_obje|
00000af0  63 74 28 2d 31 29 0d 04  56 47 20 20 c9 20 22 62  |ct(-1)..VG  . "b|
00000b00  61 63 6b 67 72 6f 75 6e  64 22 3a f2 67 65 74 5f  |ackground":.get_|
00000b10  6f 70 65 6e 62 72 61 63  6b 28 63 24 29 3a 62 61  |openbrack(c$):ba|
00000b20  63 6b 67 72 6f 75 6e 64  73 25 2b 3d 31 3a f2 72  |ckgrounds%+=1:.r|
00000b30  65 61 64 5f 6f 62 6a 65  63 74 28 30 29 0d 04 60  |ead_object(0)..`|
00000b40  29 20 20 c9 20 22 66 72  61 6d 65 5f 61 69 6d 22  |)  . "frame_aim"|
00000b50  3a 61 69 6d 25 3d a4 67  65 74 5f 6e 75 6d 28 63  |:aim%=.get_num(c|
00000b60  24 2c 31 2c 31 29 0d 04  6a 28 20 20 c9 20 22 74  |$,1,1)..j(  . "t|
00000b70  69 6d 65 5f 64 69 76 22  3a 66 73 70 25 3d a4 67  |ime_div":fsp%=.g|
00000b80  65 74 5f 6e 75 6d 28 63  24 2c 31 2c 31 29 0d 04  |et_num(c$,1,1)..|
00000b90  74 5c 20 20 c9 20 22 67  72 61 76 69 74 79 22 3a  |t\  . "gravity":|
00000ba0  67 72 61 76 5f 78 25 3d  a4 67 65 74 5f 6e 75 6d  |grav_x%=.get_num|
00000bb0  28 63 24 2c 33 2c 32 29  3a 67 72 61 76 5f 79 25  |(c$,3,2):grav_y%|
00000bc0  3d a4 67 65 74 5f 6e 75  6d 28 63 24 2c 33 2c 32  |=.get_num(c$,3,2|
00000bd0  29 3a 67 72 61 76 5f 7a  25 3d a4 67 65 74 5f 6e  |):grav_z%=.get_n|
00000be0  75 6d 28 63 24 2c 33 2c  32 29 0d 04 7e 0a 20 20  |um(c$,3,2)..~.  |
00000bf0  c9 20 22 22 0d 04 88 10  20 20 7f 20 f2 6e 6f 74  |. ""....  . .not|
00000c00  5f 72 65 63 0d 04 92 06  20 cb 0d 04 9c 0b fd 20  |_rec.... ...... |
00000c10  c5 23 63 68 25 0d 04 a6  0f d9 23 63 68 25 3a 63  |.#ch%.....#ch%:c|
00000c20  68 25 3d 30 0d 04 b0 29  e7 20 73 6f 6c 69 64 73  |h%=0...). solids|
00000c30  25 3c 31 20 8c 20 85 20  31 2c 22 4e 6f 20 73 6f  |%<1 . . 1,"No so|
00000c40  6c 69 64 73 20 64 65 66  69 6e 65 64 22 0d 04 ba  |lids defined"...|
00000c50  33 e7 20 62 61 63 6b 67  72 6f 75 6e 64 73 25 3c  |3. backgrounds%<|
00000c60  31 20 8c 20 85 20 31 2c  22 4e 6f 20 62 61 63 6b  |1 . . 1,"No back|
00000c70  67 72 6f 75 6e 64 73 20  64 65 66 69 6e 65 64 22  |grounds defined"|
00000c80  0d 04 c4 05 e1 0d 04 ce  05 3a 0d 04 d8 15 dd 20  |.........:..... |
00000c90  f2 72 65 61 64 5f 72 65  6e 64 65 72 69 6e 67 0d  |.read_rendering.|
00000ca0  04 e2 05 f5 0d 04 ec 0d  20 63 24 3d a4 6c 69 6e  |........ c$=.lin|
00000cb0  65 0d 04 f6 0c 20 c8 8e  20 63 24 20 ca 0d 05 00  |e.... .. c$ ....|
00000cc0  48 20 20 c9 20 22 74 79  70 65 22 3a 72 73 74 79  |H  . "type":rsty|
00000cd0  6c 65 25 3d a4 73 65 6c  65 63 74 28 63 24 2c a4  |le%=.select(c$,.|
00000ce0  6c 69 6e 65 2c 22 61 6c  6c 5f 64 6f 74 73 2c 77  |line,"all_dots,w|
00000cf0  69 72 65 66 72 61 6d 65  2c 64 6f 74 73 2c 6c 69  |ireframe,dots,li|
00000d00  6e 65 73 22 29 0d 05 0a  42 20 20 c9 20 22 72 65  |nes")...B  . "re|
00000d10  73 6f 6c 75 74 69 6f 6e  22 3a 78 72 65 73 25 3d  |solution":xres%=|
00000d20  a4 67 65 74 5f 6e 75 6d  28 63 24 2c 32 2c 31 29  |.get_num(c$,2,1)|
00000d30  3a 79 72 65 73 25 3d a4  67 65 74 5f 6e 75 6d 28  |:yres%=.get_num(|
00000d40  63 24 2c 32 2c 31 29 0d  05 14 38 20 20 c9 20 22  |c$,2,1)...8  . "|
00000d50  62 61 63 6b 67 72 6f 75  6e 64 22 3a 72 65 6e 25  |background":ren%|
00000d60  3d 32 2a a4 73 65 6c 65  63 74 28 63 24 2c a4 6c  |=2*.select(c$,.l|
00000d70  69 6e 65 2c 22 62 61 63  6b 2c 6d 69 78 22 29 0d  |ine,"back,mix").|
00000d80  05 1e 2c 20 20 c9 20 22  76 69 65 77 22 3a 56 42  |..,  . "view":VB|
00000d90  25 3d 28 a4 67 65 74 5f  6e 75 6d 28 63 24 2c 32  |%=(.get_num(c$,2|
00000da0  2c 33 29 29 20 80 20 26  33 46 46 0d 05 28 28 20  |,3)) . &3FF..(( |
00000db0  20 20 56 41 25 3d 28 37  36 38 2d a4 67 65 74 5f  |  VA%=(768-.get_|
00000dc0  6e 75 6d 28 63 24 2c 32  2c 33 29 29 20 80 20 26  |num(c$,2,3)) . &|
00000dd0  33 46 46 0d 05 32 0e 20  20 c9 20 22 7d 22 2c 22  |3FF..2.  . "}","|
00000de0  22 0d 05 3c 10 20 20 7f  20 f2 6e 6f 74 5f 72 65  |"..<.  . .not_re|
00000df0  63 0d 05 46 06 20 cb 0d  05 50 14 fd 20 c5 23 63  |c..F. ...P.. .#c|
00000e00  68 25 20 84 20 63 24 3d  22 7d 22 0d 05 5a 0b 6d  |h% . c$="}"..Z.m|
00000e10  6f 64 65 25 3d 32 0d 05  64 10 c8 8e 20 72 73 74  |ode%=2..d... rst|
00000e20  79 6c 65 25 20 ca 0d 05  6e 16 20 c9 20 30 2c 32  |yle% ...n. . 0,2|
00000e30  3a 73 74 6f 73 74 79 6c  65 25 3d 30 0d 05 78 16  |:stostyle%=0..x.|
00000e40  20 c9 20 31 2c 33 3a 73  74 6f 73 74 79 6c 65 25  | . 1,3:stostyle%|
00000e50  3d 30 0d 05 82 1e 20 c9  20 34 3a 73 74 6f 73 74  |=0.... . 4:stost|
00000e60  79 6c 65 25 3d 2d 31 3a  6d 6f 64 65 25 3d 31 36  |yle%=-1:mode%=16|
00000e70  0d 05 8c 05 cb 0d 05 96  22 6d 6f 64 65 25 3d a4  |........"mode%=.|
00000e80  6d 6f 64 65 28 78 72 65  73 25 2c 79 72 65 73 25  |mode(xres%,yres%|
00000e90  2c 6d 6f 64 65 25 29 0d  05 a0 33 e7 20 6d 6f 64  |,mode%)...3. mod|
00000ea0  65 25 3c 30 20 f2 72 73  65 28 22 4e 6f 20 73 75  |e%<0 .rse("No su|
00000eb0  69 74 61 62 6c 65 20 73  63 72 65 65 6e 20 6d 6f  |itable screen mo|
00000ec0  64 65 20 66 6f 75 6e 64  22 29 0d 05 aa 05 e1 0d  |de found")......|
00000ed0  05 b4 05 3a 0d 05 be 18  dd 20 f2 72 65 61 64 5f  |...:..... .read_|
00000ee0  6f 62 6a 65 63 74 28 73  6f 6c 25 29 0d 05 c8 15  |object(sol%)....|
00000ef0  ea 20 6f 74 79 70 65 25  2c 63 24 2c 51 25 2c 69  |. otype%,c$,Q%,i|
00000f00  25 0d 05 d2 16 6f 74 79  70 65 25 3d 2d 32 3a 74  |%....otype%=-2:t|
00000f10  68 69 6e 67 25 3d 30 0d  05 dc 23 e7 20 73 6f 6c  |hing%=0...#. sol|
00000f20  25 3d 30 20 51 25 3d 62  61 63 6b 67 72 6f 75 6e  |%=0 Q%=backgroun|
00000f30  64 73 25 20 8b 20 51 25  3d 30 0d 05 e6 20 63 6f  |ds% . Q%=0... co|
00000f40  6d 5f 73 74 61 67 65 25  3d 30 3a 66 61 63 6f 25  |m_stage%=0:faco%|
00000f50  3d 30 3a 70 6f 63 6f 25  3d 30 0d 05 f0 05 f5 0d  |=0:poco%=0......|
00000f60  05 fa 0d 20 63 24 3d a4  6c 69 6e 65 0d 06 04 0c  |... c$=.line....|
00000f70  20 c8 8e 20 63 24 20 ca  0d 06 0e 3a 20 20 c9 20  | .. c$ ....:  . |
00000f80  22 63 72 65 61 74 65 22  3a f2 72 65 61 64 5f 63  |"create":.read_c|
00000f90  72 65 61 74 65 28 73 6f  6c 25 2c 51 25 29 3a 62  |reate(sol%,Q%):b|
00000fa0  67 64 65 66 25 28 51 25  2c 30 29 3d 6f 74 79 70  |gdef%(Q%,0)=otyp|
00000fb0  65 25 0d 06 18 20 20 20  c9 20 22 74 72 61 6e 73  |e%...   . "trans|
00000fc0  6c 61 74 65 22 3a f2 6e  65 65 64 5f 63 72 65 61  |late":.need_crea|
00000fd0  74 65 0d 06 22 42 20 20  20 78 25 3d a4 67 65 74  |te.."B   x%=.get|
00000fe0  5f 6e 75 6d 28 63 24 2c  33 2c 34 29 3a 79 25 3d  |_num(c$,3,4):y%=|
00000ff0  a4 67 65 74 5f 6e 75 6d  28 63 24 2c 33 2c 34 29  |.get_num(c$,3,4)|
00001000  3a 7a 25 3d a4 67 65 74  5f 6e 75 6d 28 63 24 2c  |:z%=.get_num(c$,|
00001010  33 2c 34 29 0d 06 2c 2c  20 20 20 f2 74 72 61 6e  |3,4)..,,   .tran|
00001020  73 6c 61 74 65 28 74 68  69 6e 67 25 2c 63 6f 30  |slate(thing%,co0|
00001030  25 2c 63 6f 30 25 2c 78  25 2c 79 25 2c 7a 25 29  |%,co0%,x%,y%,z%)|
00001040  0d 06 36 36 20 20 20 62  67 64 65 66 25 28 51 25  |..66   bgdef%(Q%|
00001050  2c 31 29 3d 78 25 3a 62  67 64 65 66 25 28 51 25  |,1)=x%:bgdef%(Q%|
00001060  2c 32 29 3d 79 25 3a 62  67 64 65 66 25 28 51 25  |,2)=y%:bgdef%(Q%|
00001070  2c 33 29 3d 7a 25 0d 06  40 46 20 20 c9 20 22 72  |,3)=z%..@F  . "r|
00001080  6f 74 61 74 65 22 3a e7  20 73 6f 6c 25 3d 30 20  |otate":. sol%=0 |
00001090  f2 72 73 65 28 22 62 61  63 6b 67 72 6f 75 6e 64  |.rse("background|
000010a0  20 6f 62 6a 65 63 74 73  20 63 61 6e 6e 6f 74 20  | objects cannot |
000010b0  62 65 20 72 6f 74 61 74  65 64 22 29 0d 06 4a 60  |be rotated")..J`|
000010c0  20 20 20 f2 6e 65 65 64  5f 63 72 65 61 74 65 3a  |   .need_create:|
000010d0  f2 72 6f 74 61 74 65 28  74 68 69 6e 67 25 2c 63  |.rotate(thing%,c|
000010e0  6f 30 25 2c 63 6f 30 25  2c a4 67 65 74 5f 6e 75  |o0%,co0%,.get_nu|
000010f0  6d 28 63 24 2c 33 2c 33  29 2c a4 67 65 74 5f 6e  |m(c$,3,3),.get_n|
00001100  75 6d 28 63 24 2c 33 2c  33 29 2c a4 67 65 74 5f  |um(c$,3,3),.get_|
00001110  6e 75 6d 28 63 24 2c 33  2c 33 29 29 0d 06 54 29  |num(c$,3,3))..T)|
00001120  20 20 c9 20 22 6e 65 61  72 62 6f 6e 64 73 22 3a  |  . "nearbonds":|
00001130  f2 72 65 61 64 5f 6e 65  61 72 62 6f 6e 64 73 28  |.read_nearbonds(|
00001140  73 6f 6c 25 29 0d 06 5e  21 20 20 c9 20 22 72 65  |sol%)..^!  . "re|
00001150  70 65 6c 22 3a f2 72 65  61 64 5f 72 65 70 65 6c  |pel":.read_repel|
00001160  28 73 6f 6c 25 29 0d 06  68 3b 20 20 c9 20 22 64  |(sol%)..h;  . "d|
00001170  61 6d 70 69 6e 67 22 3a  f2 6e 65 65 64 5f 63 72  |amping":.need_cr|
00001180  65 61 74 65 3a 74 68 69  6e 67 25 21 6f 64 6d 25  |eate:thing%!odm%|
00001190  3d a4 67 65 74 5f 6e 75  6d 28 63 24 2c 31 2c 31  |=.get_num(c$,1,1|
000011a0  29 0d 06 72 3c 20 20 c9  20 22 61 69 72 5f 64 61  |)..r<  . "air_da|
000011b0  6d 70 22 3a f2 6e 65 65  64 5f 63 72 65 61 74 65  |mp":.need_create|
000011c0  3a 74 68 69 6e 67 25 21  61 64 6d 25 3d a4 67 65  |:thing%!adm%=.ge|
000011d0  74 5f 6e 75 6d 28 63 24  2c 31 2c 31 29 0d 06 7c  |t_num(c$,1,1)..||
000011e0  23 20 20 20 f2 66 6c 61  67 5f 73 75 72 66 61 63  |#   .flag_surfac|
000011f0  65 5f 70 6f 69 6e 74 73  28 74 68 69 6e 67 25 29  |e_points(thing%)|
00001200  0d 06 86 3e 20 20 c9 20  22 73 6f 6c 69 64 5f 64  |...>  . "solid_d|
00001210  61 6d 70 22 3a f2 6e 65  65 64 5f 63 72 65 61 74  |amp":.need_creat|
00001220  65 3a 74 68 69 6e 67 25  21 72 64 6d 25 3d a4 67  |e:thing%!rdm%=.g|
00001230  65 74 5f 6e 75 6d 28 63  24 2c 31 2c 32 29 0d 06  |et_num(c$,1,2)..|
00001240  90 5e 20 20 c9 20 22 76  65 6c 6f 63 69 74 79 22  |.^  . "velocity"|
00001250  3a f2 6e 65 65 64 5f 63  72 65 61 74 65 3a e7 20  |:.need_create:. |
00001260  73 6f 6c 25 3d 30 20 f2  72 73 65 28 22 62 61 63  |sol%=0 .rse("bac|
00001270  6b 67 72 6f 75 6e 64 20  6f 62 6a 65 63 74 73 20  |kground objects |
00001280  63 61 6e 6e 6f 74 20 62  65 20 67 69 76 65 6e 20  |cannot be given |
00001290  61 20 76 65 6c 6f 63 69  74 79 22 29 0d 06 9a 4f  |a velocity")...O|
000012a0  20 20 20 f2 73 65 74 5f  76 65 6c 6f 63 69 74 79  |   .set_velocity|
000012b0  28 74 68 69 6e 67 25 2c  a4 67 65 74 5f 6e 75 6d  |(thing%,.get_num|
000012c0  28 63 24 2c 33 2c 35 29  2c a4 67 65 74 5f 6e 75  |(c$,3,5),.get_nu|
000012d0  6d 28 63 24 2c 33 2c 35  29 2c a4 67 65 74 5f 6e  |m(c$,3,5),.get_n|
000012e0  75 6d 28 63 24 2c 33 2c  35 29 29 0d 06 a4 4e 20  |um(c$,3,5))...N |
000012f0  20 c9 20 22 73 70 69 6e  22 3a f2 6e 65 65 64 5f  | . "spin":.need_|
00001300  63 72 65 61 74 65 3a e7  20 73 6f 6c 25 3d 30 20  |create:. sol%=0 |
00001310  f2 72 73 65 28 22 62 61  63 6b 67 72 6f 75 6e 64  |.rse("background|
00001320  20 6f 62 6a 65 63 74 73  20 63 61 6e 6e 6f 74 20  | objects cannot |
00001330  62 65 20 73 70 75 6e 22  29 0d 06 ae 4b 20 20 20  |be spun")...K   |
00001340  f2 73 65 74 5f 73 70 69  6e 28 74 68 69 6e 67 25  |.set_spin(thing%|
00001350  2c a4 67 65 74 5f 6e 75  6d 28 63 24 2c 33 2c 36  |,.get_num(c$,3,6|
00001360  29 2c a4 67 65 74 5f 6e  75 6d 28 63 24 2c 33 2c  |),.get_num(c$,3,|
00001370  36 29 2c a4 67 65 74 5f  6e 75 6d 28 63 24 2c 33  |6),.get_num(c$,3|
00001380  2c 36 29 29 0d 06 b8 5a  20 20 c9 20 22 73 63 61  |,6))...Z  . "sca|
00001390  6c 65 22 3a f2 6e 65 65  64 5f 63 72 65 61 74 65  |le":.need_create|
000013a0  3a e7 20 73 6f 6c 25 3d  30 20 f2 72 73 65 28 22  |:. sol%=0 .rse("|
000013b0  73 63 61 6c 65 20 6e 6f  74 20 69 6d 70 6c 65 6d  |scale not implem|
000013c0  65 6e 74 65 64 20 66 6f  72 20 62 61 63 6b 67 72  |ented for backgr|
000013d0  6f 75 6e 64 20 6f 62 6a  65 63 74 73 22 29 0d 06  |ound objects")..|
000013e0  c2 4f 20 20 20 f2 73 63  61 6c 65 5f 6f 62 6a 65  |.O   .scale_obje|
000013f0  63 74 28 74 68 69 6e 67  25 2c a4 67 65 74 5f 6e  |ct(thing%,.get_n|
00001400  75 6d 28 63 24 2c 33 2c  32 29 2c a4 67 65 74 5f  |um(c$,3,2),.get_|
00001410  6e 75 6d 28 63 24 2c 33  2c 32 29 2c a4 67 65 74  |num(c$,3,2),.get|
00001420  5f 6e 75 6d 28 63 24 2c  33 2c 32 29 29 0d 06 cc  |_num(c$,3,2))...|
00001430  21 20 20 c9 20 22 70 75  6c 6c 22 3a f2 72 65 61  |!  . "pull":.rea|
00001440  64 5f 70 75 6c 6c 28 74  68 69 6e 67 25 29 0d 06  |d_pull(thing%)..|
00001450  d6 27 20 20 c9 20 22 66  69 78 5f 76 65 6c 22 3a  |.'  . "fix_vel":|
00001460  f2 72 65 61 64 5f 66 69  78 5f 76 65 6c 28 74 68  |.read_fix_vel(th|
00001470  69 6e 67 25 29 0d 06 e0  0e 20 20 c9 20 22 7d 22  |ing%)....  . "}"|
00001480  2c 22 22 0d 06 ea 10 20  20 7f 20 f2 6e 6f 74 5f  |,""....  . .not_|
00001490  72 65 63 0d 06 f4 06 20  cb 0d 06 fe 14 fd 20 c5  |rec.... ...... .|
000014a0  23 63 68 25 20 84 20 63  24 3d 22 7d 22 0d 07 08  |#ch% . c$="}"...|
000014b0  39 e7 20 70 6f 63 6f 25  3e 74 68 69 6e 67 25 21  |9. poco%>thing%!|
000014c0  6e 6f 70 25 20 8c 20 f2  72 73 65 28 22 74 6f 6f  |nop% . .rse("too|
000014d0  20 6d 61 6e 79 20 70 6f  69 6e 74 73 20 63 72 65  | many points cre|
000014e0  61 74 65 64 22 29 0d 07  12 15 74 68 69 6e 67 25  |ated")....thing%|
000014f0  21 6e 6f 70 25 3d 70 6f  63 6f 25 0d 07 1c 39 e7  |!nop%=poco%...9.|
00001500  20 66 61 63 6f 25 3e 74  68 69 6e 67 25 21 6e 6f  | faco%>thing%!no|
00001510  66 25 20 8c 20 f2 72 73  65 28 22 74 6f 6f 20 6d  |f% . .rse("too m|
00001520  61 6e 79 20 66 61 63 65  74 73 20 63 72 65 61 74  |any facets creat|
00001530  65 64 22 29 0d 07 26 15  74 68 69 6e 67 25 21 6e  |ed")..&.thing%!n|
00001540  6f 66 25 3d 66 61 63 6f  25 0d 07 30 17 74 68 69  |of%=faco%..0.thi|
00001550  6e 67 25 21 73 65 70 25  3d 73 7a 70 25 28 30 29  |ng%!sep%=szp%(0)|
00001560  0d 07 3a 05 e1 0d 07 44  05 3a 0d 07 4e 18 dd 20  |..:....D.:..N.. |
00001570  f2 72 65 61 64 5f 70 75  6c 6c 28 74 68 69 6e 67  |.read_pull(thing|
00001580  25 29 0d 07 58 38 e7 20  73 6f 6c 25 3d 30 20 f2  |%)..X8. sol%=0 .|
00001590  72 73 65 28 22 62 61 63  6b 67 72 6f 75 6e 64 20  |rse("background |
000015a0  6f 62 6a 65 63 74 73 20  63 61 6e 6e 6f 74 20 62  |objects cannot b|
000015b0  65 20 70 75 6c 6c 65 64  22 29 0d 07 62 14 ea 20  |e pulled")..b.. |
000015c0  66 25 2c 6c 25 2c 73 25  2c 42 25 2c 43 25 0d 07  |f%,l%,s%,B%,C%..|
000015d0  6c 3f 66 25 3d a4 67 65  74 5f 6e 75 6d 28 63 24  |l?f%=.get_num(c$|
000015e0  2c 36 2c 31 29 3a 6c 25  3d a4 67 65 74 5f 6e 75  |,6,1):l%=.get_nu|
000015f0  6d 28 63 24 2c 36 2c 31  29 3a 73 25 3d a4 67 65  |m(c$,6,1):s%=.ge|
00001600  74 5f 6e 75 6d 28 63 24  2c 36 2c 31 29 0d 07 76  |t_num(c$,6,1)..v|
00001610  43 e7 20 73 25 3c 3d 30  20 8c 20 f2 72 73 65 28  |C. s%<=0 . .rse(|
00001620  22 74 68 65 20 70 75 6c  6c 20 70 6f 69 6e 74 20  |"the pull point |
00001630  73 74 65 70 20 6d 75 73  74 20 62 65 20 67 72 65  |step must be gre|
00001640  61 74 65 72 20 74 68 61  6e 20 7a 65 72 6f 22 29  |ater than zero")|
00001650  0d 07 80 48 43 25 3d a4  66 69 78 65 64 5f 76 65  |...HC%=.fixed_ve|
00001660  6c 5f 6e 6f 28 a4 67 65  74 5f 6e 75 6d 28 63 24  |l_no(.get_num(c$|
00001670  2c 36 2c 35 29 2c a4 67  65 74 5f 6e 75 6d 28 63  |,6,5),.get_num(c|
00001680  24 2c 36 2c 35 29 2c a4  67 65 74 5f 6e 75 6d 28  |$,6,5),.get_num(|
00001690  63 24 2c 36 2c 35 29 29  0d 07 8a 28 e7 20 6c 25  |c$,6,5))...(. l%|
000016a0  3e 3d 74 68 69 6e 67 25  21 6e 6f 70 25 20 8c 20  |>=thing%!nop% . |
000016b0  6c 25 3d 74 68 69 6e 67  25 21 6e 6f 70 25 2d 31  |l%=thing%!nop%-1|
000016c0  0d 07 94 1b 42 25 3d a4  70 6f 69 6e 74 5f 66 6c  |....B%=.point_fl|
000016d0  61 67 73 28 74 68 69 6e  67 25 29 0d 07 9e 15 c8  |ags(thing%).....|
000016e0  95 20 66 25 3e 3d 30 20  80 20 66 25 3c 3d 6c 25  |. f%>=0 . f%<=l%|
000016f0  0d 07 a8 20 20 42 25 3f  66 25 3d 28 42 25 3f 66  |...  B%?f%=(B%?f|
00001700  25 20 80 20 33 29 20 84  20 28 43 25 3c 3c 32 29  |% . 3) . (C%<<2)|
00001710  0d 07 b2 0b 20 66 25 2b  3d 73 25 0d 07 bc 05 ce  |.... f%+=s%.....|
00001720  0d 07 c6 05 e1 0d 07 d0  05 3a 0d 07 da 1b dd 20  |.........:..... |
00001730  f2 72 65 61 64 5f 66 69  78 5f 76 65 6c 28 74 68  |.read_fix_vel(th|
00001740  69 6e 67 25 29 0d 07 e4  10 f2 6e 65 65 64 5f 63  |ing%).....need_c|
00001750  72 65 61 74 65 0d 07 ee  38 e7 20 73 6f 6c 25 3d  |reate...8. sol%=|
00001760  30 20 f2 72 73 65 28 22  62 61 63 6b 67 72 6f 75  |0 .rse("backgrou|
00001770  6e 64 20 6f 62 6a 65 63  74 73 20 63 61 6e 6e 6f  |nd objects canno|
00001780  74 20 62 65 20 70 75 6c  6c 65 64 22 29 0d 07 f8  |t be pulled")...|
00001790  30 ea 20 61 25 2c 62 25  2c 63 25 2c 78 25 2c 79  |0. a%,b%,c%,x%,y|
000017a0  25 2c 7a 25 2c 65 78 25  2c 65 79 25 2c 65 7a 25  |%,z%,ex%,ey%,ez%|
000017b0  2c 41 25 2c 42 25 2c 43  25 2c 63 70 25 0d 08 02  |,A%,B%,C%,cp%...|
000017c0  3f 78 25 3d a4 67 65 74  5f 6e 75 6d 28 63 24 2c  |?x%=.get_num(c$,|
000017d0  39 2c 34 29 3a 79 25 3d  a4 67 65 74 5f 6e 75 6d  |9,4):y%=.get_num|
000017e0  28 63 24 2c 39 2c 34 29  3a 7a 25 3d a4 67 65 74  |(c$,9,4):z%=.get|
000017f0  5f 6e 75 6d 28 63 24 2c  39 2c 34 29 0d 08 0c 42  |_num(c$,9,4)...B|
00001800  65 78 25 3d a4 67 65 74  5f 6e 75 6d 28 63 24 2c  |ex%=.get_num(c$,|
00001810  39 2c 34 29 3a 65 79 25  3d a4 67 65 74 5f 6e 75  |9,4):ey%=.get_nu|
00001820  6d 28 63 24 2c 39 2c 34  29 3a 65 7a 25 3d a4 67  |m(c$,9,4):ez%=.g|
00001830  65 74 5f 6e 75 6d 28 63  24 2c 39 2c 34 29 0d 08  |et_num(c$,9,4)..|
00001840  16 48 43 25 3d a4 66 69  78 65 64 5f 76 65 6c 5f  |.HC%=.fixed_vel_|
00001850  6e 6f 28 a4 67 65 74 5f  6e 75 6d 28 63 24 2c 36  |no(.get_num(c$,6|
00001860  2c 35 29 2c a4 67 65 74  5f 6e 75 6d 28 63 24 2c  |,5),.get_num(c$,|
00001870  36 2c 35 29 2c a4 67 65  74 5f 6e 75 6d 28 63 24  |6,5),.get_num(c$|
00001880  2c 36 2c 35 29 29 0d 08  20 1b 42 25 3d a4 70 6f  |,6,5)).. .B%=.po|
00001890  69 6e 74 5f 66 6c 61 67  73 28 74 68 69 6e 67 25  |int_flags(thing%|
000018a0  29 0d 08 2a 1e 65 78 25  2b 3d 78 25 3a e7 20 65  |)..*.ex%+=x%:. e|
000018b0  78 25 3c 78 25 20 c8 94  20 78 25 2c 65 78 25 0d  |x%<x% .. x%,ex%.|
000018c0  08 34 1e 65 79 25 2b 3d  79 25 3a e7 20 65 79 25  |.4.ey%+=y%:. ey%|
000018d0  3c 79 25 20 c8 94 20 79  25 2c 65 79 25 0d 08 3e  |<y% .. y%,ey%..>|
000018e0  1e 65 7a 25 2b 3d 7a 25  3a e7 20 65 7a 25 3c 7a  |.ez%+=z%:. ez%<z|
000018f0  25 20 c8 94 20 7a 25 2c  65 7a 25 0d 08 48 13 63  |% .. z%,ez%..H.c|
00001900  70 25 3d 74 68 69 6e 67  25 21 63 6f 30 25 0d 08  |p%=thing%!co0%..|
00001910  52 1a e3 20 41 25 3d 30  20 b8 20 74 68 69 6e 67  |R.. A%=0 . thing|
00001920  25 21 6e 6f 70 25 2d 31  0d 08 5c 1f 20 63 25 3d  |%!nop%-1..\. c%=|
00001930  2d 21 63 70 25 3a 61 25  3d 63 70 25 21 34 3a 62  |-!cp%:a%=cp%!4:b|
00001940  25 3d 63 70 25 21 38 0d  08 66 5b 20 e7 20 61 25  |%=cp%!8..f[ . a%|
00001950  3e 3d 78 25 20 80 20 61  25 3c 3d 65 78 25 20 80  |>=x% . a%<=ex% .|
00001960  20 62 25 3e 3d 79 25 20  80 20 62 25 3c 3d 65 79  | b%>=y% . b%<=ey|
00001970  25 20 80 20 63 25 3e 3d  7a 25 20 80 20 63 25 3c  |% . c%>=z% . c%<|
00001980  3d 65 7a 25 20 8c 20 42  25 3f 41 25 3d 28 42 25  |=ez% . B%?A%=(B%|
00001990  3f 41 25 20 80 20 33 29  20 84 20 28 43 25 3c 3c  |?A% . 3) . (C%<<|
000019a0  32 29 0d 08 70 0c 20 63  70 25 2b 3d 31 32 0d 08  |2)..p. cp%+=12..|
000019b0  7a 05 ed 0d 08 84 05 e1  0d 08 8e 05 3a 0d 08 98  |z...........:...|
000019c0  1d dd 20 a4 66 69 78 65  64 5f 76 65 6c 5f 6e 6f  |.. .fixed_vel_no|
000019d0  28 78 25 2c 79 25 2c 7a  25 29 0d 08 a2 0b ea 20  |(x%,y%,z%)..... |
000019e0  43 25 2c 50 25 0d 08 ac  15 43 25 3d 31 3a 50 25  |C%,P%....C%=1:P%|
000019f0  2b 3d 70 75 6c 6c 25 2b  31 32 0d 08 b6 34 c8 95  |+=pull%+12...4..|
00001a00  20 43 25 3c 3d 70 75 6c  6c 73 25 20 80 20 28 21  | C%<=pulls% . (!|
00001a10  50 25 3c 3e 2d 7a 25 20  84 20 50 25 21 34 3c 3e  |P%<>-z% . P%!4<>|
00001a20  78 25 20 84 20 50 25 21  38 3c 3e 79 25 29 0d 08  |x% . P%!8<>y%)..|
00001a30  c0 11 20 43 25 2b 3d 31  3a 50 25 2b 3d 31 32 0d  |.. C%+=1:P%+=12.|
00001a40  08 ca 05 ce 0d 08 d4 16  e7 20 43 25 3c 3d 70 75  |......... C%<=pu|
00001a50  6c 6c 73 25 20 8c 20 3d  43 25 0d 08 de 48 e7 20  |lls% . =C%...H. |
00001a60  70 75 6c 6c 73 25 3d 36  33 20 8c 20 f2 72 73 65  |pulls%=63 . .rse|
00001a70  28 22 59 6f 75 20 63 61  6e 20 6f 6e 6c 79 20 68  |("You can only h|
00001a80  61 76 65 20 36 33 20 64  69 66 66 65 72 65 6e 74  |ave 63 different|
00001a90  20 70 75 6c 6c 20 76 65  6c 6f 63 69 74 69 65 73  | pull velocities|
00001aa0  22 29 0d 08 e8 1b 21 50  25 3d 2d 7a 25 3a 50 25  |")....!P%=-z%:P%|
00001ab0  21 34 3d 78 25 3a 50 25  21 38 3d 79 25 0d 08 f2  |!4=x%:P%!8=y%...|
00001ac0  15 70 75 6c 6c 73 25 2b  3d 31 3a 3d 70 75 6c 6c  |.pulls%+=1:=pull|
00001ad0  73 25 0d 08 fc 05 3a 0d  09 06 1a dd 20 a4 70 6f  |s%....:..... .po|
00001ae0  69 6e 74 5f 66 6c 61 67  73 28 74 68 69 6e 67 25  |int_flags(thing%|
00001af0  29 0d 09 10 22 e7 20 74  68 69 6e 67 25 21 70 74  |)...". thing%!pt|
00001b00  66 25 3e 30 20 8c 20 3d  74 68 69 6e 67 25 21 70  |f%>0 . =thing%!p|
00001b10  74 66 25 0d 09 1a 0b ea  20 41 25 2c 42 25 0d 09  |tf%..... A%,B%..|
00001b20  24 26 74 68 69 6e 67 25  21 70 74 66 25 3d a4 63  |$&thing%!ptf%=.c|
00001b30  72 65 61 74 65 28 38 2c  74 68 69 6e 67 25 21 70  |reate(8,thing%!p|
00001b40  74 73 25 29 0d 09 2e 12  42 25 3d 74 68 69 6e 67  |ts%)....B%=thing|
00001b50  25 21 70 74 66 25 0d 09  38 24 e3 20 41 25 3d 30  |%!ptf%..8$. A%=0|
00001b60  20 b8 20 74 68 69 6e 67  25 21 6e 6f 70 25 2d 31  | . thing%!nop%-1|
00001b70  3a 42 25 3f 41 25 3d 30  3a ed 0d 09 42 07 3d 42  |:B%?A%=0:...B.=B|
00001b80  25 0d 09 4c 05 3a 0d 09  56 22 dd 20 f2 66 6c 61  |%..L.:..V". .fla|
00001b90  67 5f 73 75 72 66 61 63  65 5f 70 6f 69 6e 74 73  |g_surface_points|
00001ba0  28 74 68 69 6e 67 25 29  0d 09 60 0e ea 20 41 25  |(thing%)..`.. A%|
00001bb0  2c 42 25 2c 43 25 0d 09  6a 1b 42 25 3d a4 70 6f  |,B%,C%..j.B%=.po|
00001bc0  69 6e 74 5f 66 6c 61 67  73 28 74 68 69 6e 67 25  |int_flags(thing%|
00001bd0  29 0d 09 74 12 43 25 3d  74 68 69 6e 67 25 21 66  |)..t.C%=thing%!f|
00001be0  61 63 25 0d 09 7e 1a e3  20 41 25 3d 30 20 b8 20  |ac%..~.. A%=0 . |
00001bf0  74 68 69 6e 67 25 21 6e  6f 66 25 2d 31 0d 09 88  |thing%!nof%-1...|
00001c00  1c 20 42 25 3f 28 43 25  21 30 29 3d 42 25 3f 28  |. B%?(C%!0)=B%?(|
00001c10  43 25 21 30 29 20 84 20  31 0d 09 92 1c 20 42 25  |C%!0) . 1.... B%|
00001c20  3f 28 43 25 21 34 29 3d  42 25 3f 28 43 25 21 34  |?(C%!4)=B%?(C%!4|
00001c30  29 20 84 20 31 0d 09 9c  1c 20 42 25 3f 28 43 25  |) . 1.... B%?(C%|
00001c40  21 38 29 3d 42 25 3f 28  43 25 21 38 29 20 84 20  |!8)=B%?(C%!8) . |
00001c50  31 0d 09 a6 12 20 43 25  2b 3d 65 6c 73 69 7a 25  |1.... C%+=elsiz%|
00001c60  28 33 29 0d 09 b0 05 ed  0d 09 ba 05 e1 0d 09 c4  |(3).............|
00001c70  05 3a 0d 09 ce 17 dd 20  f2 72 65 61 64 5f 72 65  |.:..... .read_re|
00001c80  70 65 6c 28 73 6f 6c 25  29 0d 09 d8 44 e7 20 73  |pel(sol%)...D. s|
00001c90  6f 6c 25 3d 30 20 8c 20  f2 72 73 65 28 22 72 65  |ol%=0 . .rse("re|
00001ca0  70 65 6c 20 69 73 20 6e  6f 74 20 61 70 70 6c 69  |pel is not appli|
00001cb0  63 61 62 6c 65 20 74 6f  20 62 61 63 6b 67 72 6f  |cable to backgro|
00001cc0  75 6e 64 20 6f 62 6a 65  63 74 73 22 29 0d 09 e2  |und objects")...|
00001cd0  10 f2 6e 65 65 64 5f 63  72 65 61 74 65 0d 09 ec  |..need_create...|
00001ce0  20 74 68 69 6e 67 25 21  72 65 70 25 3d a4 67 65  | thing%!rep%=.ge|
00001cf0  74 5f 6e 75 6d 28 63 24  2c 31 2c 31 29 0d 09 f6  |t_num(c$,1,1)...|
00001d00  17 e7 20 74 68 69 6e 67  25 21 72 65 70 25 3d 30  |.. thing%!rep%=0|
00001d10  20 8c 20 e1 0d 0a 00 19  ea 20 41 25 2c 42 25 2c  | . ...... A%,B%,|
00001d20  43 25 2c 44 25 2c 6e 64  25 2c 63 6c 25 0d 0a 0a  |C%,D%,nd%,cl%...|
00001d30  15 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00001d40  6e 22 0d 0a 14 20 f2 66  6c 61 67 5f 73 75 72 66  |n"... .flag_surf|
00001d50  61 63 65 5f 70 6f 69 6e  74 73 28 74 68 69 6e 67  |ace_points(thing|
00001d60  25 29 0d 0a 1e 04 0d 0a  28 1b 42 25 3d a4 70 6f  |%)......(.B%=.po|
00001d70  69 6e 74 5f 66 6c 61 67  73 28 74 68 69 6e 67 25  |int_flags(thing%|
00001d80  29 0d 0a 32 12 43 25 3d  74 68 69 6e 67 25 21 63  |)..2.C%=thing%!c|
00001d90  6f 30 25 0d 0a 3c 1a e3  20 69 25 3d 30 20 b8 20  |o0%..<.. i%=0 . |
00001da0  74 68 69 6e 67 25 21 6e  6f 70 25 2d 31 0d 0a 46  |thing%!nop%-1..F|
00001db0  31 20 c8 99 20 22 48 6f  75 72 67 6c 61 73 73 5f  |1 .. "Hourglass_|
00001dc0  50 65 72 63 65 6e 74 61  67 65 22 2c 31 30 30 2a  |Percentage",100*|
00001dd0  69 25 2f 74 68 69 6e 67  25 21 6e 6f 70 25 0d 0a  |i%/thing%!nop%..|
00001de0  50 16 20 e7 20 28 42 25  3f 69 25 20 80 20 33 29  |P. . (B%?i% . 3)|
00001df0  3d 31 20 8c 0d 0a 5a 30  20 20 63 6c 25 3d 2d 31  |=1 ...Z0  cl%=-1|
00001e00  3a 6e 64 25 3d 28 32 2a  73 7a 70 25 28 30 29 3e  |:nd%=(2*szp%(0)>|
00001e10  3e 37 29 5e 32 3a 44 25  3d 74 68 69 6e 67 25 21  |>7)^2:D%=thing%!|
00001e20  63 6f 30 25 0d 0a 64 1c  20 20 e3 20 6a 25 3d 30  |co0%..d.  . j%=0|
00001e30  20 b8 20 74 68 69 6e 67  25 21 6e 6f 70 25 2d 31  | . thing%!nop%-1|
00001e40  0d 0a 6e 66 20 20 20 e7  20 28 42 25 3f 6a 25 20  |..nf   . (B%?j% |
00001e50  80 20 33 29 3c 3e 31 20  8c 20 41 25 3d 28 21 43  |. 3)<>1 . A%=(!C|
00001e60  25 2d 21 44 25 3e 3e 37  29 5e 32 2b 28 43 25 21  |%-!D%>>7)^2+(C%!|
00001e70  34 2d 44 25 21 34 3e 3e  37 29 5e 32 2b 28 43 25  |4-D%!4>>7)^2+(C%|
00001e80  21 38 2d 44 25 21 38 3e  3e 37 29 5e 32 3a e7 20  |!8-D%!8>>7)^2:. |
00001e90  41 25 3c 6e 64 25 20 8c  20 6e 64 25 3d 41 25 3a  |A%<nd% . nd%=A%:|
00001ea0  63 6c 25 3d 6a 25 0d 0a  78 0d 20 20 20 44 25 2b  |cl%=j%..x.   D%+|
00001eb0  3d 31 32 0d 0a 82 07 20  20 ed 0d 0a 8c 2c 20 20  |=12....  ....,  |
00001ec0  e7 20 63 6c 25 3e 3d 30  20 8c 20 42 25 3f 63 6c  |. cl%>=0 . B%?cl|
00001ed0  25 3d 28 42 25 3f 63 6c  25 20 84 20 32 29 20 80  |%=(B%?cl% . 2) .|
00001ee0  20 28 ac 20 31 29 0d 0a  96 06 20 cd 0d 0a a0 0b  | (. 1).... .....|
00001ef0  20 43 25 2b 3d 31 32 0d  0a aa 05 ed 0d 0a b4 16  | C%+=12.........|
00001f00  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4f 66  |.. "Hourglass_Of|
00001f10  66 22 0d 0a be 05 e1 0d  0a c8 05 3a 0d 0a d2 1b  |f".........:....|
00001f20  dd 20 f2 72 65 61 64 5f  6e 65 61 72 62 6f 6e 64  |. .read_nearbond|
00001f30  73 28 73 6f 6c 25 29 0d  0a dc 48 e7 20 73 6f 6c  |s(sol%)...H. sol|
00001f40  25 3d 30 20 8c 20 f2 72  73 65 28 22 6e 65 61 72  |%=0 . .rse("near|
00001f50  62 6f 6e 64 73 20 69 73  20 6e 6f 74 20 61 70 70  |bonds is not app|
00001f60  6c 69 63 61 62 6c 65 20  74 6f 20 62 61 63 6b 67  |licable to backg|
00001f70  72 6f 75 6e 64 20 6f 62  6a 65 63 74 73 22 29 0d  |round objects").|
00001f80  0a e6 16 f2 67 65 74 5f  6f 70 65 6e 62 72 61 63  |....get_openbrac|
00001f90  6b 28 63 24 29 0d 0a f0  10 f2 6e 65 65 64 5f 63  |k(c$).....need_c|
00001fa0  72 65 61 74 65 0d 0a fa  12 ea 20 63 24 2c 6c 61  |reate..... c$,la|
00001fb0  6d 62 64 61 25 2c 52 0d  0b 04 14 6c 61 6d 62 64  |mbda%,R....lambd|
00001fc0  61 25 3d 33 30 3a 52 3d  32 2e 35 0d 0b 0e 05 f5  |a%=30:R=2.5.....|
00001fd0  0d 0b 18 0d 20 63 24 3d  a4 6c 69 6e 65 0d 0b 22  |.... c$=.line.."|
00001fe0  0c 20 c8 8e 20 63 24 20  ca 0d 0b 2c 2f 20 20 c9  |. .. c$ ...,/  .|
00001ff0  20 22 73 70 72 69 6e 67  5f 63 6f 6e 73 74 22 3a  | "spring_const":|
00002000  6c 61 6d 62 64 61 25 3d  a4 67 65 74 5f 6e 75 6d  |lambda%=.get_num|
00002010  28 63 24 2c 31 2c 31 29  0d 0b 36 22 20 20 c9 20  |(c$,1,1)..6"  . |
00002020  22 72 61 6e 67 65 22 3a  52 3d a4 67 65 74 5f 6e  |"range":R=.get_n|
00002030  75 6d 28 63 24 2c 31 2c  32 29 0d 0b 40 0e 20 20  |um(c$,1,2)..@.  |
00002040  c9 20 22 7d 22 2c 22 22  0d 0b 4a 10 20 20 7f 20  |. "}",""..J.  . |
00002050  f2 6e 6f 74 5f 72 65 63  0d 0b 54 06 20 cb 0d 0b  |.not_rec..T. ...|
00002060  5e 14 fd 20 c5 23 63 68  25 20 84 20 63 24 3d 22  |^.. .#ch% . c$="|
00002070  7d 22 0d 0b 68 2b ea 20  63 25 2c 6c 73 25 2c 6d  |}"..h+. c%,ls%,m|
00002080  73 25 2c 45 25 2c 46 25  2c 43 25 2c 41 25 2c 42  |s%,E%,F%,C%,A%,B|
00002090  25 2c 47 25 2c 48 25 2c  73 25 2c 44 25 0d 0b 72  |%,G%,H%,s%,D%..r|
000020a0  19 6c 73 25 3d 73 7a 70  25 28 30 29 3a 6d 73 25  |.ls%=szp%(0):ms%|
000020b0  3d 52 2a 6c 73 25 0d 0b  7c 17 63 25 3d 6c 61 6d  |=R*ls%..|.c%=lam|
000020c0  62 64 61 25 2a 66 73 70  25 2a 6c 73 25 0d 0b 86  |bda%*fsp%*ls%...|
000020d0  21 73 25 3d 30 3a c8 95  20 28 6d 73 25 3e 3e 73  |!s%=0:.. (ms%>>s|
000020e0  25 29 3e 32 35 35 3a 73  25 2b 3d 31 3a ce 0d 0b  |%)>255:s%+=1:...|
000020f0  90 25 6d 73 25 3d 6d 73  25 3e 3e 73 25 3a 63 25  |.%ms%=ms%>>s%:c%|
00002100  3d 63 25 3e 3e 73 25 3a  6c 73 25 3d 6c 73 25 3e  |=c%>>s%:ls%=ls%>|
00002110  3e 73 25 0d 0b 9a 11 21  73 63 72 61 70 25 3d 31  |>s%....!scrap%=1|
00002120  3c 3c 73 25 0d 0b a4 3f  42 25 3d a8 28 63 25 2f  |<<s%...?B%=.(c%/|
00002130  6c 73 25 29 3c 3c 32 34  3a e3 20 43 25 3d 31 20  |ls%)<<24:. C%=1 |
00002140  b8 20 6c 73 25 3a 73 63  72 61 70 25 21 28 43 25  |. ls%:scrap%!(C%|
00002150  2a 34 29 3d 28 43 25 3c  3c 73 25 29 20 84 20 42  |*4)=(C%<<s%) . B|
00002160  25 3a ed 0d 0b ae 3e e3  20 43 25 3d 6c 73 25 2b  |%:....>. C%=ls%+|
00002170  31 20 b8 20 6d 73 25 3a  73 63 72 61 70 25 21 28  |1 . ms%:scrap%!(|
00002180  43 25 2a 34 29 3d 28 43  25 3c 3c 73 25 29 20 84  |C%*4)=(C%<<s%) .|
00002190  20 28 a8 28 63 25 2f 43  25 29 3c 3c 32 34 29 3a  | (.(c%/C%)<<24):|
000021a0  ed 0d 0b b8 15 21 6e 65  62 6f 62 6c 6f 63 6b 3d  |.....!neboblock=|
000021b0  73 63 72 61 70 25 0d 0b  c2 17 6e 65 62 6f 62 6c  |scrap%....nebobl|
000021c0  6f 63 6b 21 34 3d 6d 73  25 2a 6d 73 25 0d 0b cc  |ock!4=ms%*ms%...|
000021d0  13 6e 65 62 6f 62 6c 6f  63 6b 21 31 32 3d 73 25  |.neboblock!12=s%|
000021e0  0d 0b d6 1b 6e 65 62 6f  62 6c 6f 63 6b 21 31 36  |....neboblock!16|
000021f0  3d 28 2e 35 2a 6c 73 25  29 5e 32 0d 0b e0 21 48  |=(.5*ls%)^2...!H|
00002200  25 3d 74 68 69 6e 67 25  21 63 6f 30 25 3a 45 25  |%=thing%!co0%:E%|
00002210  3d 74 68 69 6e 67 25 21  70 74 73 25 0d 0b ea 13  |=thing%!pts%....|
00002220  42 25 3d ba 28 6e 65 61  72 63 6f 75 6e 74 29 0d  |B%=.(nearcount).|
00002230  0b f4 12 74 68 69 6e 67  25 21 6e 6f 62 25 3d 42  |...thing%!nob%=B|
00002240  25 0d 0b fe 1d 74 68 69  6e 67 25 21 62 6e 64 25  |%....thing%!bnd%|
00002250  3d a4 63 72 65 61 74 65  28 36 2c 42 25 29 0d 0c  |=.create(6,B%)..|
00002260  08 1b 6e 65 62 6f 62 6c  6f 63 6b 21 38 3d 74 68  |..neboblock!8=th|
00002270  69 6e 67 25 21 62 6e 64  25 0d 0c 12 20 44 25 3d  |ing%!bnd%... D%=|
00002280  74 68 69 6e 67 25 21 62  6e 64 25 2b 38 2a 74 68  |thing%!bnd%+8*th|
00002290  69 6e 67 25 21 6e 6f 62  25 0d 0c 1c 0e d6 20 6e  |ing%!nob%..... n|
000022a0  65 61 72 62 6f 6e 64 0d  0c 26 12 42 25 3d 6e 65  |earbond..&.B%=ne|
000022b0  62 6f 62 6c 6f 63 6b 21  38 0d 0c 30 0f e7 20 42  |boblock!8..0.. B|
000022c0  25 3e 44 25 20 8c 20 e0  0d 0c 3a 22 74 68 69 6e  |%>D% . ...:"thin|
000022d0  67 25 21 6e 6f 62 25 3d  28 42 25 2d 74 68 69 6e  |g%!nob%=(B%-thin|
000022e0  67 25 21 62 6e 64 25 29  2f 38 0d 0c 44 05 e1 0d  |g%!bnd%)/8..D...|
000022f0  0c 4e 05 3a 0d 0c 58 1b  dd 20 f2 72 65 61 64 5f  |.N.:..X.. .read_|
00002300  63 72 65 61 74 65 28 73  6f 6c 25 2c 51 25 29 0d  |create(sol%,Q%).|
00002310  0c 62 16 f2 67 65 74 5f  6f 70 65 6e 62 72 61 63  |.b..get_openbrac|
00002320  6b 28 63 24 29 0d 0c 6c  37 e7 20 a4 6c 69 6e 65  |k(c$)..l7. .line|
00002330  3c 3e 22 74 79 70 65 22  20 8c 20 f2 72 73 65 28  |<>"type" . .rse(|
00002340  22 63 72 65 61 74 65 20  6e 65 65 64 73 20 61 20  |"create needs a |
00002350  74 79 70 65 20 66 69 72  73 74 22 29 0d 0c 76 1d  |type first")..v.|
00002360  ea 20 63 24 2c 6f 24 2c  6f 66 66 78 25 2c 6f 66  |. c$,o$,offx%,of|
00002370  66 79 25 2c 6f 66 66 7a  25 0d 0c 80 1b 6f 66 66  |fy%,offz%....off|
00002380  78 25 3d 30 3a 6f 66 66  79 25 3d 30 3a 6f 66 66  |x%=0:offy%=0:off|
00002390  7a 25 3d 30 0d 0c 8a 0c  6f 24 3d a4 6c 69 6e 65  |z%=0....o$=.line|
000023a0  0d 0c 94 58 6f 74 79 70  65 25 3d a4 73 65 6c 65  |...Xotype%=.sele|
000023b0  63 74 28 63 24 2c 6f 24  2c 22 63 6f 6d 70 6f 75  |ct(c$,o$,"compou|
000023c0  6e 64 2c 73 68 65 65 74  2c 63 75 62 65 2c 74 75  |nd,sheet,cube,tu|
000023d0  62 65 2c 73 70 68 65 72  65 2c 73 74 61 69 72 73  |be,sphere,stairs|
000023e0  2c 63 75 62 6f 69 64 2c  73 6f 6c 69 64 5f 73 70  |,cuboid,solid_sp|
000023f0  68 65 72 65 22 29 2d 31  0d 0c 9e 0f c8 8e 20 6f  |here")-1...... o|
00002400  74 79 70 65 25 20 ca 0d  0c a8 1c 20 c9 20 30 2c  |type% ..... . 0,|
00002410  31 2c 33 3a 6e 70 74 70  25 3d 31 3a 6e 73 7a 70  |1,3:nptp%=1:nszp|
00002420  25 3d 31 0d 0c b2 1c 20  c9 20 32 2c 34 2c 35 3a  |%=1.... . 2,4,5:|
00002430  6e 70 74 70 25 3d 33 3a  6e 73 7a 70 25 3d 33 0d  |nptp%=3:nszp%=3.|
00002440  0c bc 18 20 c9 20 36 3a  6e 70 74 70 25 3d 32 3a  |... . 6:nptp%=2:|
00002450  6e 73 7a 70 25 3d 31 0d  0c c6 22 20 c9 20 2d 31  |nszp%=1..." . -1|
00002460  3a f2 72 65 61 64 5f 63  6f 6d 70 6f 75 6e 64 3a  |:.read_compound:|
00002470  6f 74 79 70 65 25 3d 2d  31 0d 0c d0 05 cb 0d 0c  |otype%=-1.......|
00002480  da 12 e7 20 6f 74 79 70  65 25 3c 30 20 8c 20 e1  |... otype%<0 . .|
00002490  0d 0c e4 05 f5 0d 0c ee  0d 20 63 24 3d a4 6c 69  |......... c$=.li|
000024a0  6e 65 0d 0c f8 0c 20 c8  8e 20 63 24 20 ca 0d 0d  |ne.... .. c$ ...|
000024b0  02 46 20 20 c9 20 22 70  6f 69 6e 74 73 22 3a e3  |.F  . "points":.|
000024c0  20 69 25 3d 31 20 b8 20  6e 70 74 70 25 3a 70 74  | i%=1 . nptp%:pt|
000024d0  70 25 28 69 25 29 3d a4  67 65 74 5f 6e 75 6d 28  |p%(i%)=.get_num(|
000024e0  6f 24 2b 22 20 22 2b 63  24 2c 6e 70 74 70 25 2c  |o$+" "+c$,nptp%,|
000024f0  31 29 3a ed 0d 0d 0c 5d  20 20 c9 20 22 73 69 7a  |1):....]  . "siz|
00002500  65 22 3a e3 20 69 25 3d  31 20 b8 20 6e 73 7a 70  |e":. i%=1 . nszp|
00002510  25 3a 73 7a 70 25 28 69  25 29 3d a4 67 65 74 5f  |%:szp%(i%)=.get_|
00002520  6e 75 6d 28 6f 24 2b 22  20 22 2b 63 24 2c 6e 73  |num(o$+" "+c$,ns|
00002530  7a 70 25 2c 34 29 3a 62  67 64 65 66 25 28 51 25  |zp%,4):bgdef%(Q%|
00002540  2c 69 25 2b 33 29 3d 73  7a 70 25 28 69 25 29 3a  |,i%+3)=szp%(i%):|
00002550  ed 0d 0d 16 55 20 20 c9  20 22 6f 66 66 73 65 74  |....U  . "offset|
00002560  22 3a 6f 66 66 78 25 3d  a4 67 65 74 5f 6e 75 6d  |":offx%=.get_num|
00002570  28 63 24 2c 33 2c 34 29  3a 6f 66 66 79 25 3d a4  |(c$,3,4):offy%=.|
00002580  67 65 74 5f 6e 75 6d 28  63 24 2c 33 2c 34 29 3a  |get_num(c$,3,4):|
00002590  6f 66 66 7a 25 3d a4 67  65 74 5f 6e 75 6d 28 63  |offz%=.get_num(c|
000025a0  24 2c 33 2c 34 29 0d 0d  20 0e 20 20 c9 20 22 7d  |$,3,4).. .  . "}|
000025b0  22 2c 22 22 0d 0d 2a 10  20 20 7f 20 f2 6e 6f 74  |",""..*.  . .not|
000025c0  5f 72 65 63 0d 0d 34 06  20 cb 0d 0d 3e 14 fd 20  |_rec..4. ...>.. |
000025d0  c5 23 63 68 25 20 84 20  63 24 3d 22 7d 22 0d 0d  |.#ch% . c$="}"..|
000025e0  48 17 e7 20 a0 28 22 46  4e 63 72 65 61 74 65 5f  |H.. .("FNcreate_|
000025f0  22 2b 6f 24 29 0d 0d 52  05 e1 0d 0d 5c 05 3a 0d  |"+o$)..R....\.:.|
00002600  0d 66 14 dd 20 f2 72 65  61 64 5f 63 6f 6d 70 6f  |.f.. .read_compo|
00002610  75 6e 64 0d 0d 70 0b ea  20 50 25 2c 63 24 0d 0d  |und..p.. P%,c$..|
00002620  7a 3c e7 20 63 6f 6d 5f  73 74 61 67 65 25 3e 30  |z<. com_stage%>0|
00002630  20 f2 72 73 65 28 22 43  6f 6d 70 6f 75 6e 64 20  | .rse("Compound |
00002640  6f 62 6a 65 63 74 73 20  63 61 6e 6e 6f 74 20 62  |objects cannot b|
00002650  65 20 6e 65 73 74 65 64  22 29 0d 0d 84 19 63 6f  |e nested")....co|
00002660  6d 5f 6e 6f 70 25 3d 30  3a 63 6f 6d 5f 6e 6f 66  |m_nop%=0:com_nof|
00002670  25 3d 30 0d 0d 8e 0c 50  25 3d 8f 23 63 68 25 0d  |%=0....P%=.#ch%.|
00002680  0d 98 16 e3 20 63 6f 6d  5f 73 74 61 67 65 25 3d  |.... com_stage%=|
00002690  31 20 b8 20 32 0d 0d a2  34 20 f1 27 22 2a 2a 20  |1 . 2...4 .'"** |
000026a0  63 6f 6d 70 6f 75 6e 64  20 6f 62 6a 65 63 74 20  |compound object |
000026b0  2d 20 70 61 73 73 20 22  3b 63 6f 6d 5f 73 74 61  |- pass ";com_sta|
000026c0  67 65 25 3b 22 20 2a 2a  22 0d 0d ac 0d 20 cf 23  |ge%;" **".... .#|
000026d0  63 68 25 3d 50 25 0d 0d  b6 6c 20 e7 20 63 6f 6d  |ch%=P%...l . com|
000026e0  5f 73 74 61 67 65 25 3d  32 20 8c 20 63 6f 6d 5f  |_stage%=2 . com_|
000026f0  73 74 61 67 65 25 3d 30  3a 63 6f 6d 5f 74 68 69  |stage%=0:com_thi|
00002700  6e 67 25 3d a4 63 72 65  61 74 65 5f 6f 62 6a 65  |ng%=.create_obje|
00002710  63 74 28 63 6f 6d 5f 6e  6f 70 25 2c 63 6f 6d 5f  |ct(com_nop%,com_|
00002720  6e 6f 66 25 29 3a 63 6f  6d 5f 73 74 61 67 65 25  |nof%):com_stage%|
00002730  3d 32 3a 66 61 63 6f 25  3d 30 3a 70 6f 63 6f 25  |=2:faco%=0:poco%|
00002740  3d 30 0d 0d c0 06 20 f5  0d 0d ca 0e 20 20 63 24  |=0.... .....  c$|
00002750  3d a4 6c 69 6e 65 0d 0d  d4 0d 20 20 c8 8e 20 63  |=.line....  .. c|
00002760  24 20 ca 0d 0d de 22 20  20 20 c9 20 22 70 61 72  |$ ...."   . "par|
00002770  74 22 3a f2 72 65 61 64  5f 63 72 65 61 74 65 28  |t":.read_create(|
00002780  2d 31 2c 30 29 0d 0d e8  0d 20 20 20 c9 20 22 7d  |-1,0)....   . "}|
00002790  22 3a 0d 0d f2 2b 20 20  20 7f 3a f2 72 73 65 28  |":...+   .:.rse(|
000027a0  22 45 78 70 65 63 74 65  64 20 22 22 70 61 72 74  |"Expected ""part|
000027b0  22 22 20 6f 72 20 22 22  7d 22 22 22 29 0d 0d fc  |"" or ""}""")...|
000027c0  07 20 20 cb 0d 0e 06 0d  20 fd 20 63 24 3d 22 7d  |.  ..... . c$="}|
000027d0  22 0d 0e 10 05 ed 0d 0e  1a 10 63 6f 6d 5f 73 74  |".........com_st|
000027e0  61 67 65 25 3d 30 0d 0e  24 23 f2 73 65 74 5f 76  |age%=0..$#.set_v|
000027f0  65 6c 6f 63 69 74 79 28  63 6f 6d 5f 74 68 69 6e  |elocity(com_thin|
00002800  67 25 2c 30 2c 30 2c 30  29 0d 0e 2e 05 e1 0d 0e  |g%,0,0,0).......|
00002810  38 05 3a 0d 0e 42 0c dd  20 f2 62 6c 75 72 62 0d  |8.:..B.. .blurb.|
00002820  0e 4c 2a ea 20 69 25 2c  6a 25 2c 6b 25 2c 42 25  |.L*. i%,j%,k%,B%|
00002830  2c 43 25 2c 44 25 2c 45  25 2c 46 25 2c 78 25 2c  |,C%,D%,E%,F%,x%,|
00002840  79 25 2c 7a 25 2c 6e 64  25 0d 0e 56 19 6e 64 25  |y%,z%,nd%..V.nd%|
00002850  3d 28 2e 35 2a 73 7a 70  25 28 30 29 3e 3e 37 29  |=(.5*szp%(0)>>7)|
00002860  5e 32 0d 0e 60 1b 42 25  3d a4 70 6f 69 6e 74 5f  |^2..`.B%=.point_|
00002870  66 6c 61 67 73 28 74 68  69 6e 67 25 29 0d 0e 6a  |flags(thing%)..j|
00002880  12 43 25 3d 74 68 69 6e  67 25 21 63 6f 30 25 0d  |.C%=thing%!co0%.|
00002890  0e 74 12 44 25 3d 74 68  69 6e 67 25 21 66 61 63  |.t.D%=thing%!fac|
000028a0  25 0d 0e 7e 1b 45 25 3d  a4 66 69 78 65 64 5f 76  |%..~.E%=.fixed_v|
000028b0  65 6c 5f 6e 6f 28 30 2c  30 2c 30 29 0d 0e 88 08  |el_no(0,0,0)....|
000028c0  46 25 3d 30 0d 0e 92 14  e3 20 69 25 3d 30 20 b8  |F%=0..... i%=0 .|
000028d0  20 70 6f 63 6f 25 2d 32  0d 0e 9c 22 20 e7 20 43  | poco%-2..." . C|
000028e0  25 21 28 69 25 2a 31 32  29 3e 46 25 20 46 25 3d  |%!(i%*12)>F% F%=|
000028f0  43 25 21 28 69 25 2a 31  32 29 0d 0e a6 05 ed 0d  |C%!(i%*12)......|
00002900  0e b0 11 46 25 2b 3d 31  30 30 2a 26 42 34 30 30  |...F%+=100*&B400|
00002910  0d 0e ba 15 c8 99 20 22  48 6f 75 72 67 6c 61 73  |...... "Hourglas|
00002920  73 5f 4f 6e 22 0d 0e c4  14 e3 20 69 25 3d 30 20  |s_On"..... i%=0 |
00002930  b8 20 70 6f 63 6f 25 2d  32 0d 0e ce 2f 20 c8 99  |. poco%-2.../ ..|
00002940  20 22 48 6f 75 72 67 6c  61 73 73 5f 50 65 72 63  | "Hourglass_Perc|
00002950  65 6e 74 61 67 65 22 2c  31 30 30 2a 69 25 2f 28  |entage",100*i%/(|
00002960  70 6f 63 6f 25 2d 32 29  0d 0e d8 32 20 78 25 3d  |poco%-2)...2 x%=|
00002970  43 25 21 28 69 25 2a 31  32 29 3a 79 25 3d 43 25  |C%!(i%*12):y%=C%|
00002980  21 28 69 25 2a 31 32 2b  34 29 3a 7a 25 3d 43 25  |!(i%*12+4):z%=C%|
00002990  21 28 69 25 2a 31 32 2b  38 29 0d 0e e2 18 20 e3  |!(i%*12+8).... .|
000029a0  20 6a 25 3d 69 25 2b 31  20 b8 20 70 6f 63 6f 25  | j%=i%+1 . poco%|
000029b0  2d 31 0d 0e ec 11 20 20  e7 20 42 25 3f 6a 25 3d  |-1....  . B%?j%=|
000029c0  30 20 8c 0d 0e f6 51 20  20 e7 20 28 78 25 2d 43  |0 ....Q  . (x%-C|
000029d0  25 21 28 6a 25 2a 31 32  29 3e 3e 37 29 5e 32 2b  |%!(j%*12)>>7)^2+|
000029e0  28 79 25 2d 43 25 21 28  6a 25 2a 31 32 2b 34 29  |(y%-C%!(j%*12+4)|
000029f0  3e 3e 37 29 5e 32 2b 28  7a 25 2d 43 25 21 28 6a  |>>7)^2+(z%-C%!(j|
00002a00  25 2a 31 32 2b 38 29 3e  3e 37 29 5e 32 3c 3d 6e  |%*12+8)>>7)^2<=n|
00002a10  64 25 20 8c 0d 0f 00 1a  20 20 20 f1 20 69 25 2c  |d% .....   . i%,|
00002a20  6a 25 2c 42 25 3f 69 25  2c 42 25 3f 6a 25 0d 0f  |j%,B%?i%,B%?j%..|
00002a30  0a 46 20 20 20 78 25 3d  78 25 2b 43 25 21 28 6a  |.F   x%=x%+C%!(j|
00002a40  25 2a 31 32 29 3e 3e 31  3a 79 25 3d 79 25 2b 43  |%*12)>>1:y%=y%+C|
00002a50  25 21 28 6a 25 2a 31 32  2b 34 29 3e 3e 31 3a 7a  |%!(j%*12+4)>>1:z|
00002a60  25 3d 7a 25 2b 43 25 21  28 6a 25 2a 31 32 2b 38  |%=z%+C%!(j%*12+8|
00002a70  29 3e 3e 31 0d 0f 14 0f  20 20 20 42 25 3f 6a 25  |)>>1....   B%?j%|
00002a80  3d 45 25 0d 0f 1e 32 20  20 20 43 25 21 28 6a 25  |=E%...2   C%!(j%|
00002a90  2a 31 32 29 3d 46 25 3a  43 25 21 28 6a 25 2a 31  |*12)=F%:C%!(j%*1|
00002aa0  32 2b 34 29 3d 30 3a 43  25 21 28 6a 25 2a 31 32  |2+4)=0:C%!(j%*12|
00002ab0  2b 38 29 3d 30 0d 0f 28  15 20 20 20 44 25 3d 74  |+8)=0..(.   D%=t|
00002ac0  68 69 6e 67 25 21 66 61  63 25 0d 0f 32 17 20 20  |hing%!fac%..2.  |
00002ad0  20 e3 20 6b 25 3d 30 20  b8 20 66 61 63 6f 25 2d  | . k%=0 . faco%-|
00002ae0  31 0d 0f 3c 19 20 20 20  20 e7 20 44 25 21 30 3d  |1..<.    . D%!0=|
00002af0  6a 25 20 44 25 21 30 3d  69 25 0d 0f 46 19 20 20  |j% D%!0=i%..F.  |
00002b00  20 20 e7 20 44 25 21 34  3d 6a 25 20 44 25 21 34  |  . D%!4=j% D%!4|
00002b10  3d 69 25 0d 0f 50 19 20  20 20 20 e7 20 44 25 21  |=i%..P.    . D%!|
00002b20  38 3d 6a 25 20 44 25 21  38 3d 69 25 0d 0f 5a 15  |8=j% D%!8=i%..Z.|
00002b30  20 20 20 20 44 25 2b 3d  65 6c 73 69 7a 25 28 33  |    D%+=elsiz%(3|
00002b40  29 0d 0f 64 08 20 20 20  ed 0d 0f 6e 07 20 20 cd  |)..d.   ...n.  .|
00002b50  0d 0f 78 07 20 20 cd 0d  0f 82 06 20 ed 0d 0f 8c  |..x.  ..... ....|
00002b60  32 20 43 25 21 28 69 25  2a 31 32 29 3d 78 25 3a  |2 C%!(i%*12)=x%:|
00002b70  43 25 21 28 69 25 2a 31  32 2b 34 29 3d 79 25 3a  |C%!(i%*12+4)=y%:|
00002b80  43 25 21 28 69 25 2a 31  32 2b 38 29 3d 7a 25 0d  |C%!(i%*12+8)=z%.|
00002b90  0f 96 05 ed 0d 0f a0 16  c8 99 20 22 48 6f 75 72  |.......... "Hour|
00002ba0  67 6c 61 73 73 5f 4f 66  66 22 0d 0f aa 05 e1 0d  |glass_Off"......|
00002bb0  0f b4 05 3a 0d 0f be 12  dd 20 f2 6e 65 65 64 5f  |...:..... .need_|
00002bc0  63 72 65 61 74 65 0d 0f  c8 4e e7 20 6f 74 79 70  |create...N. otyp|
00002bd0  65 25 3d 2d 32 20 8c 20  f2 72 73 65 28 22 59 6f  |e%=-2 . .rse("Yo|
00002be0  75 20 6e 65 65 64 20 74  6f 20 63 72 65 61 74 65  |u need to create|
00002bf0  20 74 68 65 20 6f 62 6a  65 63 74 20 62 65 66 6f  | the object befo|
00002c00  72 65 20 79 6f 75 20 63  61 6e 20 64 6f 20 74 68  |re you can do th|
00002c10  69 73 22 29 0d 0f d2 05  e1 0d 0f dc 05 3a 0d 0f  |is").........:..|
00002c20  e6 24 dd 20 f2 73 65 74  5f 76 65 6c 6f 63 69 74  |.$. .set_velocit|
00002c30  79 28 74 68 69 6e 67 25  2c 78 25 2c 79 25 2c 7a  |y(thing%,x%,y%,z|
00002c40  25 29 0d 0f f0 17 e7 20  63 6f 6d 5f 73 74 61 67  |%)..... com_stag|
00002c50  65 25 3c 3e 30 20 8c 20  e1 0d 0f fa 0b ea 20 50  |e%<>0 . ...... P|
00002c60  25 2c 41 25 0d 10 04 1b  50 25 3d 74 68 69 6e 67  |%,A%....P%=thing|
00002c70  25 21 76 65 6c 25 3a e7  20 50 25 3d 30 20 e1 0d  |%!vel%:. P%=0 ..|
00002c80  10 0e 1a e3 20 41 25 3d  30 20 b8 20 74 68 69 6e  |.... A%=0 . thin|
00002c90  67 25 21 6e 6f 70 25 2d  31 0d 10 18 24 20 50 25  |g%!nop%-1...$ P%|
00002ca0  21 30 3d 2d 7a 25 3a 50  25 21 34 3d 78 25 3a 50  |!0=-z%:P%!4=x%:P|
00002cb0  25 21 38 3d 79 25 3a 50  25 2b 3d 31 32 0d 10 22  |%!8=y%:P%+=12.."|
00002cc0  05 ed 0d 10 2c 05 e1 0d  10 36 05 3a 0d 10 40 20  |....,....6.:..@ |
00002cd0  dd 20 f2 73 65 74 5f 73  70 69 6e 28 74 68 69 6e  |. .set_spin(thin|
00002ce0  67 25 2c 77 78 2c 77 79  2c 77 7a 29 0d 10 4a 17  |g%,wx,wy,wz)..J.|
00002cf0  e7 20 63 6f 6d 5f 73 74  61 67 65 25 3c 3e 30 20  |. com_stage%<>0 |
00002d00  8c 20 e1 0d 10 54 0e ea  20 50 25 2c 51 25 2c 41  |. ...T.. P%,Q%,A|
00002d10  25 0d 10 5e 11 77 78 3d  77 78 2a af 2f 32 35 36  |%..^.wx=wx*./256|
00002d20  30 30 0d 10 68 11 77 79  3d 77 79 2a af 2f 32 35  |00..h.wy=wy*./25|
00002d30  36 30 30 0d 10 72 11 77  7a 3d 77 7a 2a af 2f 32  |600..r.wz=wz*./2|
00002d40  35 36 30 30 0d 10 7c 1b  50 25 3d 74 68 69 6e 67  |5600..|.P%=thing|
00002d50  25 21 76 65 6c 25 3a e7  20 50 25 3d 30 20 e1 0d  |%!vel%:. P%=0 ..|
00002d60  10 86 1b 51 25 3d 74 68  69 6e 67 25 21 63 6f 30  |...Q%=thing%!co0|
00002d70  25 3a e7 20 51 25 3d 30  20 e1 0d 10 90 1a e3 20  |%:. Q%=0 ...... |
00002d80  41 25 3d 30 20 b8 20 74  68 69 6e 67 25 21 6e 6f  |A%=0 . thing%!no|
00002d90  70 25 2d 31 0d 10 9a 1e  20 50 25 21 30 2d 3d 77  |p%-1.... P%!0-=w|
00002da0  79 2a 28 51 25 21 34 29  2d 77 78 2a 28 51 25 21  |y*(Q%!4)-wx*(Q%!|
00002db0  38 29 0d 10 a4 1e 20 50  25 21 34 2b 3d 77 7a 2a  |8).... P%!4+=wz*|
00002dc0  28 51 25 21 38 29 2b 77  79 2a 28 51 25 21 30 29  |(Q%!8)+wy*(Q%!0)|
00002dd0  0d 10 ae 1e 20 50 25 21  38 2d 3d 77 78 2a 28 51  |.... P%!8-=wx*(Q|
00002de0  25 21 30 29 2b 77 7a 2a  28 51 25 21 34 29 0d 10  |%!0)+wz*(Q%!4)..|
00002df0  b8 12 20 50 25 2b 3d 31  32 3a 51 25 2b 3d 31 32  |.. P%+=12:Q%+=12|
00002e00  0d 10 c2 05 ed 0d 10 cc  05 e1 0d 10 d6 05 3a 0d  |..............:.|
00002e10  10 e0 21 dd 20 f2 73 63  61 6c 65 5f 6f 62 6a 65  |..!. .scale_obje|
00002e20  63 74 28 74 68 69 6e 67  25 2c 58 2c 59 2c 5a 29  |ct(thing%,X,Y,Z)|
00002e30  0d 10 ea 0b ea 20 50 25  2c 41 25 0d 10 f4 24 e7  |..... P%,A%...$.|
00002e40  20 73 6f 6c 25 20 73 7a  70 25 28 30 29 3d 73 7a  | sol% szp%(0)=sz|
00002e50  70 25 28 30 29 2a 28 58  2b 59 2b 5a 29 2f 33 0d  |p%(0)*(X+Y+Z)/3.|
00002e60  10 fe 1b 50 25 3d 74 68  69 6e 67 25 21 63 6f 30  |...P%=thing%!co0|
00002e70  25 3a e7 20 50 25 3d 30  20 e1 0d 11 08 1a e3 20  |%:. P%=0 ...... |
00002e80  41 25 3d 30 20 b8 20 74  68 69 6e 67 25 21 6e 6f  |A%=0 . thing%!no|
00002e90  70 25 2d 31 0d 11 12 2f  20 50 25 21 30 3d 50 25  |p%-1.../ P%!0=P%|
00002ea0  21 30 2a 5a 3a 50 25 21  34 3d 50 25 21 34 2a 58  |!0*Z:P%!4=P%!4*X|
00002eb0  3a 50 25 21 38 3d 50 25  21 38 2a 59 3a 50 25 2b  |:P%!8=P%!8*Y:P%+|
00002ec0  3d 31 32 0d 11 1c 05 ed  0d 11 26 05 e1 0d 11 30  |=12.......&....0|
00002ed0  05 3a 0d 11 3a 13 dd 20  a4 63 72 65 61 74 65 5f  |.:..:.. .create_|
00002ee0  73 68 65 65 74 0d 11 44  0f ea 20 63 6f 25 2c 41  |sheet..D.. co%,A|
00002ef0  25 2c 4e 25 0d 11 4e 25  4e 25 3d 70 74 70 25 28  |%,N%..N%N%=ptp%(|
00002f00  31 29 3a 73 7a 70 25 28  30 29 3d 73 7a 70 25 28  |1):szp%(0)=szp%(|
00002f10  31 29 2f 28 4e 25 2d 31  29 0d 11 58 2a 74 68 69  |1)/(N%-1)..X*thi|
00002f20  6e 67 25 3d a4 63 72 65  61 74 65 5f 6f 62 6a 65  |ng%=.create_obje|
00002f30  63 74 28 4e 25 5e 32 2c  32 2a 28 4e 25 2d 31 29  |ct(N%^2,2*(N%-1)|
00002f40  5e 32 29 0d 11 62 13 e7  20 74 68 69 6e 67 25 3d  |^2)..b.. thing%=|
00002f50  30 20 8c 20 3d 30 0d 11  6c 15 6f 66 66 78 25 2d  |0 . =0..l.offx%-|
00002f60  3d 2e 35 2a 73 7a 70 25  28 31 29 0d 11 76 15 6f  |=.5*szp%(1)..v.o|
00002f70  66 66 79 25 2d 3d 2e 35  2a 73 7a 70 25 28 31 29  |ffy%-=.5*szp%(1)|
00002f80  0d 11 80 1c 63 6f 25 3d  74 68 69 6e 67 25 21 63  |....co%=thing%!c|
00002f90  6f 30 25 2b 70 6f 63 6f  25 2a 31 32 0d 11 8a 1a  |o0%+poco%*12....|
00002fa0  e3 20 41 25 3d 30 20 b8  20 74 68 69 6e 67 25 21  |. A%=0 . thing%!|
00002fb0  6e 6f 70 25 2d 31 0d 11  94 11 20 63 6f 25 21 30  |nop%-1.... co%!0|
00002fc0  3d 2d 6f 66 66 7a 25 0d  11 9e 22 20 63 6f 25 21  |=-offz%..." co%!|
00002fd0  34 3d 73 7a 70 25 28 30  29 2a 28 41 25 20 83 20  |4=szp%(0)*(A% . |
00002fe0  4e 25 29 2b 6f 66 66 78  25 0d 11 a8 22 20 63 6f  |N%)+offx%..." co|
00002ff0  25 21 38 3d 73 7a 70 25  28 30 29 2a 28 41 25 20  |%!8=szp%(0)*(A% |
00003000  81 20 4e 25 29 2b 6f 66  66 79 25 0d 11 b2 0c 20  |. N%)+offy%.... |
00003010  63 6f 25 2b 3d 31 32 0d  11 bc 05 ed 0d 11 c6 47  |co%+=12........G|
00003020  e7 20 a4 73 75 72 66 61  63 65 28 74 68 69 6e 67  |. .surface(thing|
00003030  25 2c 74 68 69 6e 67 25  21 66 61 63 25 2b 66 61  |%,thing%!fac%+fa|
00003040  63 6f 25 2a 65 6c 73 69  7a 25 28 33 29 2c 70 6f  |co%*elsiz%(3),po|
00003050  63 6f 25 2c 31 2c 4e 25  2c 4e 25 2c 4e 25 2c 30  |co%,1,N%,N%,N%,0|
00003060  2c 30 29 0d 11 d0 16 70  6f 63 6f 25 2b 3d 74 68  |,0)....poco%+=th|
00003070  69 6e 67 25 21 6e 6f 70  25 0d 11 da 1f f2 73 65  |ing%!nop%.....se|
00003080  74 5f 76 65 6c 6f 63 69  74 79 28 74 68 69 6e 67  |t_velocity(thing|
00003090  25 2c 30 2c 30 2c 30 29  0d 11 e4 06 3d 30 0d 11  |%,0,0,0)....=0..|
000030a0  ee 05 3a 0d 11 f8 14 dd  20 a4 63 72 65 61 74 65  |..:..... .create|
000030b0  5f 73 70 68 65 72 65 0d  12 02 0d 70 74 70 25 28  |_sphere....ptp%(|
000030c0  32 29 3d 31 0d 12 0c 19  3d a4 63 72 65 61 74 65  |2)=1....=.create|
000030d0  5f 73 6f 6c 69 64 5f 73  70 68 65 72 65 0d 12 16  |_solid_sphere...|
000030e0  05 3a 0d 12 20 1a dd 20  a4 63 72 65 61 74 65 5f  |.:.. .. .create_|
000030f0  73 6f 6c 69 64 5f 73 70  68 65 72 65 0d 12 2a 3e  |solid_sphere..*>|
00003100  ea 20 41 25 2c 42 25 2c  43 25 2c 45 25 2c 4e 25  |. A%,B%,C%,E%,N%|
00003110  2c 51 25 2c 53 25 2c 57  25 2c 5a 25 2c 4e 52 25  |,Q%,S%,W%,Z%,NR%|
00003120  2c 4e 50 25 2c 4f 42 25  2c 4f 53 25 2c 4f 51 25  |,NP%,OB%,OS%,OQ%|
00003130  2c 77 69 6e 64 25 2c 63  6f 25 0d 12 34 0f 4e 52  |,wind%,co%..4.NR|
00003140  25 3d 70 74 70 25 28 31  29 0d 12 3e 24 52 25 3d  |%=ptp%(1)..>$R%=|
00003150  73 7a 70 25 28 31 29 3a  73 7a 70 25 28 30 29 3d  |szp%(1):szp%(0)=|
00003160  af 2a 73 7a 70 25 28 31  29 2f 4e 52 25 0d 12 48  |.*szp%(1)/NR%..H|
00003170  16 41 25 3d 28 52 25 2f  73 7a 70 25 28 30 29 29  |.A%=(R%/szp%(0))|
00003180  2d 2e 39 0d 12 52 1b e7  20 70 74 70 25 28 32 29  |-.9..R.. ptp%(2)|
00003190  3e 41 25 20 70 74 70 25  28 32 29 3d 41 25 0d 12  |>A% ptp%(2)=A%..|
000031a0  5c 19 e7 20 70 74 70 25  28 32 29 3c 31 20 70 74  |\.. ptp%(2)<1 pt|
000031b0  70 25 28 32 29 3d 31 0d  12 66 23 4e 50 25 3d a4  |p%(2)=1..f#NP%=.|
000031c0  43 53 53 5f 70 6f 69 6e  74 73 28 4e 52 25 29 3a  |CSS_points(NR%):|
000031d0  42 25 3d 4e 50 25 2a 32  2d 34 0d 12 70 11 e7 20  |B%=NP%*2-4..p.. |
000031e0  70 74 70 25 28 32 29 3e  31 20 8c 0d 12 7a 17 20  |ptp%(2)>1 ...z. |
000031f0  e3 20 41 25 3d 31 20 b8  20 70 74 70 25 28 32 29  |. A%=1 . ptp%(2)|
00003200  2d 31 0d 12 84 31 20 20  4e 50 25 2b 3d a4 43 53  |-1...1  NP%+=.CS|
00003210  53 5f 70 6f 69 6e 74 73  28 4e 52 25 2a 28 52 25  |S_points(NR%*(R%|
00003220  2d 41 25 2a 73 7a 70 25  28 30 29 29 2f 52 25 2b  |-A%*szp%(0))/R%+|
00003230  2e 35 29 0d 12 8e 06 20  ed 0d 12 98 05 cd 0d 12  |.5).... ........|
00003240  a2 21 74 68 69 6e 67 25  3d a4 63 72 65 61 74 65  |.!thing%=.create|
00003250  5f 6f 62 6a 65 63 74 28  4e 50 25 2c 42 25 29 0d  |_object(NP%,B%).|
00003260  12 ac 13 e7 20 74 68 69  6e 67 25 3d 30 20 8c 20  |.... thing%=0 . |
00003270  3d 30 0d 12 b6 1c 63 6f  25 3d 74 68 69 6e 67 25  |=0....co%=thing%|
00003280  21 63 6f 30 25 2b 70 6f  63 6f 25 2a 31 32 0d 12  |!co0%+poco%*12..|
00003290  c0 16 e3 20 53 25 3d 30  20 b8 20 70 74 70 25 28  |... S%=0 . ptp%(|
000032a0  32 29 2d 31 0d 12 ca 1e  20 4e 52 25 3d 70 74 70  |2)-1.... NR%=ptp|
000032b0  25 28 31 29 2a 52 25 2f  73 7a 70 25 28 31 29 2d  |%(1)*R%/szp%(1)-|
000032c0  2e 35 0d 12 d4 11 20 e3  20 41 25 3d 30 20 b8 20  |.5.... . A%=0 . |
000032d0  4e 52 25 0d 12 de 21 20  20 42 25 3d 2e 35 2b 32  |NR%...!  B%=.5+2|
000032e0  2a 28 4e 52 25 2b 31 29  2a b5 28 af 2a 41 25 2f  |*(NR%+1)*.(.*A%/|
000032f0  4e 52 25 29 0d 12 e8 17  20 20 57 25 3d 52 25 2a  |NR%)....  W%=R%*|
00003300  b5 28 af 2a 41 25 2f 4e  52 25 29 0d 12 f2 1d 20  |.(.*A%/NR%).... |
00003310  20 5a 25 3d 52 25 2a 9b  28 af 2a 41 25 2f 4e 52  | Z%=R%*.(.*A%/NR|
00003320  25 29 2b 6f 66 66 7a 25  0d 12 fc 13 20 20 e3 20  |%)+offz%....  . |
00003330  43 25 3d 30 20 b8 20 42  25 2d 31 0d 13 06 0f 20  |C%=0 . B%-1.... |
00003340  20 20 e7 20 42 25 3c 31  20 8c 0d 13 10 17 20 20  |  . B%<1 .....  |
00003350  20 20 63 6f 25 21 34 3d  30 3a 63 6f 25 21 38 3d  |  co%!4=0:co%!8=|
00003360  30 0d 13 1a 08 20 20 20  cc 0d 13 24 23 20 20 20  |0....   ...$#   |
00003370  20 63 6f 25 21 34 3d 57  25 2a 9b 28 32 2a af 2a  | co%!4=W%*.(2*.*|
00003380  43 25 2f 42 25 29 2b 6f  66 66 78 25 0d 13 2e 23  |C%/B%)+offx%...#|
00003390  20 20 20 20 63 6f 25 21  38 3d 57 25 2a b5 28 32  |    co%!8=W%*.(2|
000033a0  2a af 2a 43 25 2f 42 25  29 2b 6f 66 66 79 25 0d  |*.*C%/B%)+offy%.|
000033b0  13 38 08 20 20 20 cd 0d  13 42 10 20 20 20 63 6f  |.8.   ...B.   co|
000033c0  25 21 30 3d 2d 5a 25 0d  13 4c 0e 20 20 20 63 6f  |%!0=-Z%..L.   co|
000033d0  25 2b 3d 31 32 0d 13 56  07 20 20 ed 0d 13 60 06  |%+=12..V.  ...`.|
000033e0  20 ed 0d 13 6a 10 20 52  25 2d 3d 73 7a 70 25 28  | ...j. R%-=szp%(|
000033f0  30 29 0d 13 74 25 20 e7  20 53 25 3d 30 20 45 25  |0)..t% . S%=0 E%|
00003400  3d 28 63 6f 25 2d 74 68  69 6e 67 25 21 63 6f 30  |=(co%-thing%!co0|
00003410  25 29 2f 31 32 2d 31 0d  13 7e 05 ed 0d 13 88 04  |%)/12-1..~......|
00003420  0d 13 92 0b 77 69 6e 64  25 3d 31 0d 13 9c 11 4e  |....wind%=1....N|
00003430  52 25 3d 70 74 70 25 28  31 29 2d 31 0d 13 a6 23  |R%=ptp%(1)-1...#|
00003440  46 50 25 3d 74 68 69 6e  67 25 21 66 61 63 25 2b  |FP%=thing%!fac%+|
00003450  66 61 63 6f 25 2a 65 6c  73 69 7a 25 28 33 29 0d  |faco%*elsiz%(3).|
00003460  13 b0 0d 42 25 3d 31 3a  4e 25 3d 31 0d 13 ba 1a  |...B%=1:N%=1....|
00003470  e3 20 41 25 3d 31 20 b8  20 28 28 4e 52 25 2b 31  |. A%=1 . ((NR%+1|
00003480  29 20 81 20 32 29 0d 13  c4 15 20 4f 53 25 3d 4e  |) . 2).... OS%=N|
00003490  25 2d 42 25 3a 4f 42 25  3d 42 25 0d 13 ce 20 20  |%-B%:OB%=B%...  |
000034a0  42 25 3d 2e 35 2b 32 2a  28 4e 52 25 2b 31 29 2a  |B%=.5+2*(NR%+1)*|
000034b0  b5 28 af 2a 41 25 2f 4e  52 25 29 0d 13 d8 0b 20  |.(.*A%/NR%).... |
000034c0  51 25 3d 4f 53 25 0d 13  e2 12 20 e3 20 43 25 3d  |Q%=OS%.... . C%=|
000034d0  30 20 b8 20 42 25 2d 31  0d 13 ec 0c 20 20 4f 51  |0 . B%-1....  OQ|
000034e0  25 3d 51 25 0d 13 f6 2f  20 20 e7 20 41 25 3d 31  |%=Q%.../  . A%=1|
000034f0  20 51 25 3d 30 20 8b 20  51 25 3d 4f 53 25 2b 28  | Q%=0 . Q%=OS%+(|
00003500  28 43 25 2a 4f 42 25 2f  42 25 2b 31 29 83 20 4f  |(C%*OB%/B%+1). O|
00003510  42 25 29 0d 14 00 2b 20  20 f2 43 53 53 5f 66 61  |B%)...+  .CSS_fa|
00003520  63 28 4e 25 2b 43 25 2c  4e 25 2b 28 28 43 25 2b  |c(N%+C%,N%+((C%+|
00003530  31 29 83 20 42 25 29 2c  51 25 2c 41 25 29 0d 14  |1). B%),Q%,A%)..|
00003540  0a 2b 20 20 e7 20 4f 51  25 3c 3e 51 25 20 8c 20  |.+  . OQ%<>Q% . |
00003550  f2 43 53 53 5f 66 61 63  28 4e 25 2b 43 25 2c 51  |.CSS_fac(N%+C%,Q|
00003560  25 2c 4f 51 25 2c 41 25  29 0d 14 14 06 20 ed 0d  |%,OQ%,A%).... ..|
00003570  14 1e 0b 20 4e 25 2b 3d  42 25 0d 14 28 05 ed 0d  |... N%+=B%..(...|
00003580  14 32 0e 70 6f 63 6f 25  2b 3d 4e 50 25 0d 14 3c  |.2.poco%+=NP%..<|
00003590  1f f2 73 65 74 5f 76 65  6c 6f 63 69 74 79 28 74  |..set_velocity(t|
000035a0  68 69 6e 67 25 2c 30 2c  30 2c 30 29 0d 14 46 06  |hing%,0,0,0)..F.|
000035b0  3d 30 0d 14 50 05 3a 0d  14 5a 1b dd 20 f2 43 53  |=0..P.:..Z.. .CS|
000035c0  53 5f 66 61 63 28 44 25  2c 42 25 2c 43 25 2c 41  |S_fac(D%,B%,C%,A|
000035d0  25 29 0d 14 64 37 46 50  25 3d a4 64 65 66 69 6e  |%)..d7FP%=.defin|
000035e0  65 5f 66 61 63 65 74 28  46 50 25 2c 43 25 2b 70  |e_facet(FP%,C%+p|
000035f0  6f 63 6f 25 2c 42 25 2b  70 6f 63 6f 25 2c 44 25  |oco%,B%+poco%,D%|
00003600  2b 70 6f 63 6f 25 2c 33  29 0d 14 6e 3b e7 20 41  |+poco%,3)..n;. A|
00003610  25 2a 32 3c 4e 52 25 2b  31 20 46 50 25 3d a4 64  |%*2<NR%+1 FP%=.d|
00003620  65 66 69 6e 65 5f 66 61  63 65 74 28 46 50 25 2c  |efine_facet(FP%,|
00003630  45 25 2d 43 25 2c 45 25  2d 42 25 2c 45 25 2d 44  |E%-C%,E%-B%,E%-D|
00003640  25 2c 33 29 0d 14 78 05  e1 0d 14 82 05 3a 0d 14  |%,3)..x......:..|
00003650  8c 16 dd 20 a4 43 53 53  5f 70 6f 69 6e 74 73 28  |... .CSS_points(|
00003660  4e 52 25 29 0d 14 96 0b  ea 20 41 25 2c 4e 25 0d  |NR%)..... A%,N%.|
00003670  14 a0 0f 4e 52 25 2d 3d  31 3a 4e 25 3d 32 0d 14  |...NR%-=1:N%=2..|
00003680  aa 10 e3 20 41 25 3d 30  20 b8 20 4e 52 25 0d 14  |... A%=0 . NR%..|
00003690  b4 21 20 4e 25 2b 3d 2e  35 2b 32 2a 28 4e 52 25  |.! N%+=.5+2*(NR%|
000036a0  2b 31 29 2a b5 28 af 2a  41 25 2f 4e 52 25 29 0d  |+1)*.(.*A%/NR%).|
000036b0  14 be 05 ed 0d 14 c8 07  3d 4e 25 0d 14 d2 05 3a  |........=N%....:|
000036c0  0d 14 dc 12 dd 20 a4 63  72 65 61 74 65 5f 63 75  |..... .create_cu|
000036d0  62 65 0d 14 e6 23 70 74  70 25 28 32 29 3d 70 74  |be...#ptp%(2)=pt|
000036e0  70 25 28 31 29 3a 70 74  70 25 28 33 29 3d 70 74  |p%(1):ptp%(3)=pt|
000036f0  70 25 28 31 29 0d 14 f0  23 73 7a 70 25 28 32 29  |p%(1)...#szp%(2)|
00003700  3d 73 7a 70 25 28 31 29  3a 73 7a 70 25 28 33 29  |=szp%(1):szp%(3)|
00003710  3d 73 7a 70 25 28 31 29  0d 14 fa 49 e7 20 63 6f  |=szp%(1)...I. co|
00003720  6d 5f 73 74 61 67 65 25  3c 3e 31 20 6f 66 66 78  |m_stage%<>1 offx|
00003730  25 2d 3d 2e 35 2a 73 7a  70 25 28 31 29 3a 6f 66  |%-=.5*szp%(1):of|
00003740  66 79 25 2d 3d 2e 35 2a  73 7a 70 25 28 31 29 3a  |fy%-=.5*szp%(1):|
00003750  6f 66 66 7a 25 2d 3d 2e  35 2a 73 7a 70 25 28 31  |offz%-=.5*szp%(1|
00003760  29 0d 15 04 13 3d a4 63  72 65 61 74 65 5f 63 75  |)....=.create_cu|
00003770  62 6f 69 64 0d 15 0e 05  3a 0d 15 18 12 dd 20 a4  |boid....:..... .|
00003780  63 72 65 61 74 65 5f 74  75 62 65 0d 15 22 26 ea  |create_tube.."&.|
00003790  20 41 25 2c 43 25 2c 44  25 2c 63 6f 25 2c 41 2c  | A%,C%,D%,co%,A,|
000037a0  52 25 2c 4e 31 25 2c 4e  32 25 2c 4e 33 25 2c 41  |R%,N1%,N2%,N3%,A|
000037b0  53 0d 15 2c 27 4e 31 25  3d 70 74 70 25 28 31 29  |S..,'N1%=ptp%(1)|
000037c0  3a 4e 32 25 3d 70 74 70  25 28 32 29 3a 4e 33 25  |:N2%=ptp%(2):N3%|
000037d0  3d 70 74 70 25 28 33 29  0d 15 36 38 74 68 69 6e  |=ptp%(3)..68thin|
000037e0  67 25 3d a4 63 72 65 61  74 65 5f 6f 62 6a 65 63  |g%=.create_objec|
000037f0  74 28 4e 31 25 2a 4e 32  25 2a 4e 33 25 2c 34 2a  |t(N1%*N2%*N3%,4*|
00003800  4e 32 25 2a 28 4e 31 25  2b 4e 33 25 2d 32 29 29  |N2%*(N1%+N3%-2))|
00003810  0d 15 40 13 e7 20 74 68  69 6e 67 25 3d 30 20 8c  |..@.. thing%=0 .|
00003820  20 3d 30 0d 15 4a 14 6f  66 66 7a 25 2d 3d 73 7a  | =0..J.offz%-=sz|
00003830  70 25 28 31 29 2f 32 0d  15 54 1b 73 7a 70 25 28  |p%(1)/2..T.szp%(|
00003840  31 29 3d 73 7a 70 25 28  31 29 2f 28 4e 31 25 2d  |1)=szp%(1)/(N1%-|
00003850  31 29 0d 15 5e 1b 73 7a  70 25 28 33 29 3d 73 7a  |1)..^.szp%(3)=sz|
00003860  70 25 28 33 29 2f 28 4e  33 25 2d 31 29 0d 15 68  |p%(3)/(N3%-1)..h|
00003870  0e 41 53 3d 32 2a af 2f  4e 32 25 0d 15 72 2a 73  |.AS=2*./N2%..r*s|
00003880  7a 70 25 28 30 29 3d 28  73 7a 70 25 28 31 29 2b  |zp%(0)=(szp%(1)+|
00003890  73 7a 70 25 28 32 29 2a  41 53 2b 73 7a 70 25 28  |szp%(2)*AS+szp%(|
000038a0  33 29 29 2f 33 0d 15 7c  1c 63 6f 25 3d 74 68 69  |3))/3..|.co%=thi|
000038b0  6e 67 25 21 63 6f 30 25  2b 70 6f 63 6f 25 2a 31  |ng%!co0%+poco%*1|
000038c0  32 0d 15 86 1a e3 20 41  25 3d 30 20 b8 20 74 68  |2..... A%=0 . th|
000038d0  69 6e 67 25 21 6e 6f 70  25 2d 31 0d 15 90 14 20  |ing%!nop%-1.... |
000038e0  41 3d 28 41 25 20 83 20  4e 32 25 29 2a 41 53 0d  |A=(A% . N2%)*AS.|
000038f0  15 9a 35 20 52 25 3d 73  7a 70 25 28 32 29 2b 73  |..5 R%=szp%(2)+s|
00003900  7a 70 25 28 33 29 2a 28  28 41 25 20 81 20 28 4e  |zp%(3)*((A% . (N|
00003910  32 25 2a 4e 31 25 29 29  2d 28 4e 33 25 2d 31 29  |2%*N1%))-(N3%-1)|
00003920  2a 2e 35 29 0d 15 a4 2c  20 63 6f 25 21 30 3d 2d  |*.5)..., co%!0=-|
00003930  73 7a 70 25 28 31 29 2a  28 28 41 25 20 81 20 4e  |szp%(1)*((A% . N|
00003940  32 25 29 20 83 20 4e 31  25 29 2d 6f 66 66 7a 25  |2%) . N1%)-offz%|
00003950  0d 15 ae 18 20 63 6f 25  21 34 3d 52 25 2a 9b 28  |.... co%!4=R%*.(|
00003960  41 29 2b 6f 66 66 78 25  0d 15 b8 18 20 63 6f 25  |A)+offx%.... co%|
00003970  21 38 3d 52 25 2a b5 28  41 29 2b 6f 66 66 79 25  |!8=R%*.(A)+offy%|
00003980  0d 15 c2 0c 20 63 6f 25  2b 3d 31 32 0d 15 cc 05  |.... co%+=12....|
00003990  ed 0d 15 d6 4c 43 25 3d  a4 73 75 72 66 61 63 65  |....LC%=.surface|
000039a0  28 74 68 69 6e 67 25 2c  74 68 69 6e 67 25 21 66  |(thing%,thing%!f|
000039b0  61 63 25 2b 66 61 63 6f  25 2a 65 6c 73 69 7a 25  |ac%+faco%*elsiz%|
000039c0  28 33 29 2c 70 6f 63 6f  25 2c 31 2c 4e 32 25 2c  |(3),poco%,1,N2%,|
000039d0  4e 32 25 2c 4e 31 25 2c  2d 31 2c 31 29 0d 15 e0  |N2%,N1%,-1,1)...|
000039e0  42 43 25 3d a4 73 75 72  66 61 63 65 28 74 68 69  |BC%=.surface(thi|
000039f0  6e 67 25 2c 43 25 2c 70  6f 63 6f 25 2b 4e 32 25  |ng%,C%,poco%+N2%|
00003a00  2a 4e 31 25 2a 28 4e 33  25 2d 31 29 2c 31 2c 4e  |*N1%*(N3%-1),1,N|
00003a10  32 25 2c 4e 32 25 2c 4e  31 25 2c 31 2c 31 29 0d  |2%,N2%,N1%,1,1).|
00003a20  15 ea 36 43 25 3d a4 73  75 72 66 61 63 65 28 74  |..6C%=.surface(t|
00003a30  68 69 6e 67 25 2c 43 25  2c 70 6f 63 6f 25 2c 31  |hing%,C%,poco%,1|
00003a40  2c 4e 32 25 2a 4e 31 25  2c 4e 32 25 2c 4e 33 25  |,N2%*N1%,N2%,N3%|
00003a50  2c 31 2c 31 29 0d 15 f4  43 43 25 3d a4 73 75 72  |,1,1)...CC%=.sur|
00003a60  66 61 63 65 28 74 68 69  6e 67 25 2c 43 25 2c 70  |face(thing%,C%,p|
00003a70  6f 63 6f 25 2b 4e 32 25  2a 28 4e 31 25 2d 31 29  |oco%+N2%*(N1%-1)|
00003a80  2c 31 2c 4e 32 25 2a 4e  31 25 2c 4e 32 25 2c 4e  |,1,N2%*N1%,N2%,N|
00003a90  33 25 2c 2d 31 2c 31 29  0d 15 fe 16 70 6f 63 6f  |3%,-1,1)....poco|
00003aa0  25 2b 3d 74 68 69 6e 67  25 21 6e 6f 70 25 0d 16  |%+=thing%!nop%..|
00003ab0  08 1f f2 73 65 74 5f 76  65 6c 6f 63 69 74 79 28  |...set_velocity(|
00003ac0  74 68 69 6e 67 25 2c 30  2c 30 2c 30 29 0d 16 12  |thing%,0,0,0)...|
00003ad0  06 3d 30 0d 16 1c 05 3a  0d 16 26 14 dd 20 a4 63  |.=0....:..&.. .c|
00003ae0  72 65 61 74 65 5f 73 74  61 69 72 73 0d 16 30 21  |reate_stairs..0!|
00003af0  ea 20 63 6f 25 2c 41 25  2c 59 25 2c 58 25 2c 5a  |. co%,A%,Y%,X%,Z|
00003b00  25 2c 4e 31 25 2c 4e 32  25 2c 4e 33 25 0d 16 3a  |%,N1%,N2%,N3%..:|
00003b10  27 4e 31 25 3d 70 74 70  25 28 31 29 3a 4e 32 25  |'N1%=ptp%(1):N2%|
00003b20  3d 70 74 70 25 28 32 29  3a 4e 33 25 3d 70 74 70  |=ptp%(2):N3%=ptp|
00003b30  25 28 33 29 0d 16 44 3c  74 68 69 6e 67 25 3d a4  |%(3)..D<thing%=.|
00003b40  63 72 65 61 74 65 5f 6f  62 6a 65 63 74 28 4e 31  |create_object(N1|
00003b50  25 2a 4e 32 25 2a 4e 33  25 2c 32 2a 28 4e 31 25  |%*N2%*N3%,2*(N1%|
00003b60  2d 31 29 2a 28 4e 32 25  2a 4e 33 25 2d 31 29 29  |-1)*(N2%*N3%-1))|
00003b70  0d 16 4e 13 e7 20 74 68  69 6e 67 25 3d 30 20 8c  |..N.. thing%=0 .|
00003b80  20 3d 30 0d 16 58 1b 73  7a 70 25 28 31 29 3d 73  | =0..X.szp%(1)=s|
00003b90  7a 70 25 28 31 29 2f 28  4e 31 25 2d 31 29 0d 16  |zp%(1)/(N1%-1)..|
00003ba0  62 1b 73 7a 70 25 28 33  29 3d 73 7a 70 25 28 33  |b.szp%(3)=szp%(3|
00003bb0  29 2f 28 4e 33 25 2d 31  29 0d 16 6c 1c 63 6f 25  |)/(N3%-1)..l.co%|
00003bc0  3d 74 68 69 6e 67 25 21  63 6f 30 25 2b 70 6f 63  |=thing%!co0%+poc|
00003bd0  6f 25 2a 31 32 0d 16 76  1d 6f 66 66 78 25 3d 2d  |o%*12..v.offx%=-|
00003be0  2e 35 2a 28 4e 31 25 2d  31 29 2a 73 7a 70 25 28  |.5*(N1%-1)*szp%(|
00003bf0  31 29 0d 16 80 1a e3 20  41 25 3d 30 20 b8 20 4e  |1)..... A%=0 . N|
00003c00  31 25 2a 4e 32 25 2a 4e  33 25 2d 31 0d 16 8a 1c  |1%*N2%*N3%-1....|
00003c10  20 58 25 3d 41 25 20 83  20 4e 31 25 3a 5a 25 3d  | X%=A% . N1%:Z%=|
00003c20  41 25 20 81 20 4e 31 25  0d 16 94 1c 20 59 25 3d  |A% . N1%.... Y%=|
00003c30  5a 25 20 83 20 4e 33 25  3a 5a 25 3d 5a 25 20 81  |Z% . N3%:Z%=Z% .|
00003c40  20 4e 33 25 0d 16 9e 1c  20 63 6f 25 21 30 3d 2d  | N3%.... co%!0=-|
00003c50  5a 25 2a 73 7a 70 25 28  32 29 2d 6f 66 66 7a 25  |Z%*szp%(2)-offz%|
00003c60  0d 16 a8 1b 20 63 6f 25  21 34 3d 58 25 2a 73 7a  |.... co%!4=X%*sz|
00003c70  70 25 28 31 29 2b 6f 66  66 78 25 0d 16 b2 28 20  |p%(1)+offx%...( |
00003c80  63 6f 25 21 38 3d 28 59  25 2b 5a 25 2a 28 4e 33  |co%!8=(Y%+Z%*(N3|
00003c90  25 2d 31 29 29 2a 73 7a  70 25 28 33 29 2b 6f 66  |%-1))*szp%(3)+of|
00003ca0  66 79 25 0d 16 bc 0c 20  63 6f 25 2b 3d 31 32 0d  |fy%.... co%+=12.|
00003cb0  16 c6 05 ed 0d 16 d0 4f  59 25 3d a4 73 75 72 66  |.......OY%=.surf|
00003cc0  61 63 65 28 74 68 69 6e  67 25 2c 74 68 69 6e 67  |ace(thing%,thing|
00003cd0  25 21 66 61 63 25 2b 66  61 63 6f 25 2a 65 6c 73  |%!fac%+faco%*els|
00003ce0  69 7a 25 28 33 29 2c 70  6f 63 6f 25 2c 31 2c 4e  |iz%(3),poco%,1,N|
00003cf0  31 25 2c 4e 31 25 2c 4e  32 25 2a 4e 33 25 2c 30  |1%,N1%,N2%*N3%,0|
00003d00  2c 30 29 0d 16 da 16 70  6f 63 6f 25 2b 3d 74 68  |,0)....poco%+=th|
00003d10  69 6e 67 25 21 6e 6f 70  25 0d 16 e4 1f f2 73 65  |ing%!nop%.....se|
00003d20  74 5f 76 65 6c 6f 63 69  74 79 28 74 68 69 6e 67  |t_velocity(thing|
00003d30  25 2c 30 2c 30 2c 30 29  0d 16 ee 06 3d 30 0d 16  |%,0,0,0)....=0..|
00003d40  f8 05 3a 0d 17 02 14 dd  20 a4 63 72 65 61 74 65  |..:..... .create|
00003d50  5f 63 75 62 6f 69 64 0d  17 0c 39 ea 20 58 25 2c  |_cuboid...9. X%,|
00003d60  59 25 2c 5a 25 2c 41 25  2c 42 25 2c 43 25 2c 44  |Y%,Z%,A%,B%,C%,D|
00003d70  25 2c 45 25 2c 63 6f 25  2c 4e 31 25 2c 4e 32 25  |%,E%,co%,N1%,N2%|
00003d80  2c 4e 33 25 2c 53 31 25  2c 53 32 25 2c 53 33 25  |,N3%,S1%,S2%,S3%|
00003d90  0d 17 16 27 4e 31 25 3d  70 74 70 25 28 31 29 3a  |...'N1%=ptp%(1):|
00003da0  4e 32 25 3d 70 74 70 25  28 32 29 3a 4e 33 25 3d  |N2%=ptp%(2):N3%=|
00003db0  70 74 70 25 28 33 29 0d  17 20 2a 4e 31 25 2d 3d  |ptp%(3).. *N1%-=|
00003dc0  28 4e 31 25 3d 30 29 3a  4e 32 25 2d 3d 28 4e 32  |(N1%=0):N2%-=(N2|
00003dd0  25 3d 30 29 3a 4e 33 25  2d 3d 28 4e 33 25 3d 30  |%=0):N3%-=(N3%=0|
00003de0  29 0d 17 2a 5a 74 68 69  6e 67 25 3d a4 63 72 65  |)..*Zthing%=.cre|
00003df0  61 74 65 5f 6f 62 6a 65  63 74 28 4e 31 25 2a 4e  |ate_object(N1%*N|
00003e00  32 25 2a 4e 33 25 2c 34  2a 28 28 4e 31 25 2d 31  |2%*N3%,4*((N1%-1|
00003e10  29 2a 28 4e 32 25 2d 31  29 2b 28 4e 32 25 2d 31  |)*(N2%-1)+(N2%-1|
00003e20  29 2a 28 4e 33 25 2d 31  29 2b 28 4e 33 25 2d 31  |)*(N3%-1)+(N3%-1|
00003e30  29 2a 28 4e 31 25 2d 31  29 29 29 0d 17 34 13 e7  |)*(N1%-1)))..4..|
00003e40  20 74 68 69 6e 67 25 3d  30 20 8c 20 3d 30 0d 17  | thing%=0 . =0..|
00003e50  3e 3f 53 31 25 3d 73 7a  70 25 28 31 29 2f 28 4e  |>?S1%=szp%(1)/(N|
00003e60  31 25 2d 31 29 3a 53 32  25 3d 73 7a 70 25 28 32  |1%-1):S2%=szp%(2|
00003e70  29 2f 28 4e 32 25 2d 31  29 3a 53 33 25 3d 73 7a  |)/(N2%-1):S3%=sz|
00003e80  70 25 28 33 29 2f 28 4e  33 25 2d 31 29 0d 17 48  |p%(3)/(N3%-1)..H|
00003e90  1b 73 7a 70 25 28 30 29  3d 28 53 31 25 2b 53 32  |.szp%(0)=(S1%+S2|
00003ea0  25 2b 53 33 25 29 2f 33  0d 17 52 1c 63 6f 25 3d  |%+S3%)/3..R.co%=|
00003eb0  74 68 69 6e 67 25 21 63  6f 30 25 2b 70 6f 63 6f  |thing%!co0%+poco|
00003ec0  25 2a 31 32 0d 17 5c 1a  e3 20 41 25 3d 30 20 b8  |%*12..\.. A%=0 .|
00003ed0  20 74 68 69 6e 67 25 21  6e 6f 70 25 2d 31 0d 17  | thing%!nop%-1..|
00003ee0  66 36 20 58 25 3d 41 25  20 83 20 4e 31 25 3a 59  |f6 X%=A% . N1%:Y|
00003ef0  25 3d 28 41 25 20 81 20  4e 31 25 29 20 83 20 4e  |%=(A% . N1%) . N|
00003f00  32 25 3a 5a 25 3d 41 25  20 81 20 28 4e 31 25 2a  |2%:Z%=A% . (N1%*|
00003f10  4e 32 25 29 0d 17 70 1a  20 63 6f 25 21 30 3d 2d  |N2%)..p. co%!0=-|
00003f20  28 53 33 25 2a 5a 25 2b  6f 66 66 7a 25 29 0d 17  |(S3%*Z%+offz%)..|
00003f30  7a 17 20 63 6f 25 21 34  3d 53 31 25 2a 58 25 2b  |z. co%!4=S1%*X%+|
00003f40  6f 66 66 78 25 0d 17 84  17 20 63 6f 25 21 38 3d  |offx%.... co%!8=|
00003f50  53 32 25 2a 59 25 2b 6f  66 66 79 25 0d 17 8e 0c  |S2%*Y%+offy%....|
00003f60  20 63 6f 25 2b 3d 31 32  0d 17 98 05 ed 0d 17 a2  | co%+=12........|
00003f70  1c 41 25 3d 70 6f 63 6f  25 2b 4e 31 25 2a 4e 32  |.A%=poco%+N1%*N2|
00003f80  25 2a 28 4e 33 25 2d 31  29 0d 17 ac 22 58 25 3d  |%*(N3%-1)..."X%=|
00003f90  74 68 69 6e 67 25 21 66  61 63 25 2b 66 61 63 6f  |thing%!fac%+faco|
00003fa0  25 2a 65 6c 73 69 7a 25  28 33 29 0d 17 b6 33 43  |%*elsiz%(3)...3C|
00003fb0  25 3d a4 73 75 72 66 61  63 65 28 74 68 69 6e 67  |%=.surface(thing|
00003fc0  25 2c 58 25 2c 70 6f 63  6f 25 2c 31 2c 4e 31 25  |%,X%,poco%,1,N1%|
00003fd0  2c 4e 31 25 2c 4e 32 25  2c 2d 31 2c 30 29 0d 17  |,N1%,N2%,-1,0)..|
00003fe0  c0 33 43 25 3d a4 73 75  72 66 61 63 65 28 74 68  |.3C%=.surface(th|
00003ff0  69 6e 67 25 2c 43 25 2c  41 25 20 20 20 2c 31 2c  |ing%,C%,A%   ,1,|
00004000  4e 31 25 2c 4e 31 25 2c  4e 32 25 2c 20 31 2c 30  |N1%,N1%,N2%, 1,0|
00004010  29 0d 17 ca 18 41 25 3d  70 6f 63 6f 25 2b 4e 31  |)....A%=poco%+N1|
00004020  25 2a 28 4e 32 25 2d 31  29 0d 17 d4 37 43 25 3d  |%*(N2%-1)...7C%=|
00004030  a4 73 75 72 66 61 63 65  28 74 68 69 6e 67 25 2c  |.surface(thing%,|
00004040  43 25 2c 70 6f 63 6f 25  2c 4e 31 25 2a 4e 32 25  |C%,poco%,N1%*N2%|
00004050  2c 31 2c 4e 33 25 2c 4e  31 25 2c 2d 31 2c 30 29  |,1,N3%,N1%,-1,0)|
00004060  0d 17 de 37 43 25 3d a4  73 75 72 66 61 63 65 28  |...7C%=.surface(|
00004070  74 68 69 6e 67 25 2c 43  25 2c 41 25 20 20 20 2c  |thing%,C%,A%   ,|
00004080  4e 31 25 2a 4e 32 25 2c  31 2c 4e 33 25 2c 4e 31  |N1%*N2%,1,N3%,N1|
00004090  25 2c 20 31 2c 30 29 0d  17 e8 12 41 25 3d 70 6f  |%, 1,0)....A%=po|
000040a0  63 6f 25 2b 4e 31 25 2d  31 0d 17 f2 39 43 25 3d  |co%+N1%-1...9C%=|
000040b0  a4 73 75 72 66 61 63 65  28 74 68 69 6e 67 25 2c  |.surface(thing%,|
000040c0  43 25 2c 70 6f 63 6f 25  2c 4e 31 25 2c 4e 31 25  |C%,poco%,N1%,N1%|
000040d0  2a 4e 32 25 2c 4e 32 25  2c 4e 33 25 2c 2d 31 2c  |*N2%,N2%,N3%,-1,|
000040e0  30 29 0d 17 fc 39 43 25  3d a4 73 75 72 66 61 63  |0)...9C%=.surfac|
000040f0  65 28 74 68 69 6e 67 25  2c 43 25 2c 41 25 20 20  |e(thing%,C%,A%  |
00004100  20 2c 4e 31 25 2c 4e 31  25 2a 4e 32 25 2c 4e 32  | ,N1%,N1%*N2%,N2|
00004110  25 2c 4e 33 25 2c 20 31  2c 30 29 0d 18 06 16 70  |%,N3%, 1,0)....p|
00004120  6f 63 6f 25 2b 3d 4e 31  25 2a 4e 32 25 2a 4e 33  |oco%+=N1%*N2%*N3|
00004130  25 0d 18 10 1f f2 73 65  74 5f 76 65 6c 6f 63 69  |%.....set_veloci|
00004140  74 79 28 74 68 69 6e 67  25 2c 30 2c 30 2c 30 29  |ty(thing%,0,0,0)|
00004150  0d 18 1a 06 3d 30 0d 18  24 05 3a 0d 18 2e 20 dd  |....=0..$.:... .|
00004160  20 a4 63 72 65 61 74 65  5f 6f 62 6a 65 63 74 28  | .create_object(|
00004170  70 74 73 25 2c 66 61 63  73 25 29 0d 18 38 36 e7  |pts%,facs%)..86.|
00004180  20 63 6f 6d 5f 73 74 61  67 65 25 3d 31 20 8c 20  | com_stage%=1 . |
00004190  63 6f 6d 5f 6e 6f 70 25  2b 3d 70 74 73 25 3a 63  |com_nop%+=pts%:c|
000041a0  6f 6d 5f 6e 6f 66 25 2b  3d 66 61 63 73 25 3a 3d  |om_nof%+=facs%:=|
000041b0  30 0d 18 42 1e e7 20 63  6f 6d 5f 73 74 61 67 65  |0..B.. com_stage|
000041c0  25 3d 32 20 3d 63 6f 6d  5f 74 68 69 6e 67 25 0d  |%=2 =com_thing%.|
000041d0  18 4c 3d e7 20 6f 62 6a  65 63 74 73 25 3d 6d 61  |.L=. objects%=ma|
000041e0  78 6f 62 6a 73 25 20 8c  20 f2 72 73 65 28 22 4d  |xobjs% . .rse("M|
000041f0  61 78 2e 20 6e 6f 2e 20  6f 66 20 6f 62 6a 65 63  |ax. no. of objec|
00004200  74 73 20 72 65 61 63 68  65 64 22 29 0d 18 56 24  |ts reached")..V$|
00004210  74 68 69 6e 67 25 3d 77  6f 72 6c 64 25 2b 6f 62  |thing%=world%+ob|
00004220  6a 65 63 74 73 25 2a 65  6c 73 69 7a 25 28 37 29  |jects%*elsiz%(7)|
00004230  0d 18 60 0f 6f 62 6a 65  63 74 73 25 2b 3d 31 0d  |..`.objects%+=1.|
00004240  18 6a 2e e7 20 73 6f 6c  25 20 8c 20 66 6c 61 67  |.j.. sol% . flag|
00004250  73 25 3d 25 31 30 31 31  31 31 31 20 8b 20 66 6c  |s%=%1011111 . fl|
00004260  61 67 73 25 3d 25 31 30  31 30 31 31 31 0d 18 74  |ags%=%1010111..t|
00004270  2a f2 69 6e 69 74 74 68  69 6e 67 28 74 68 69 6e  |*.initthing(thin|
00004280  67 25 2c 70 74 73 25 2c  66 61 63 73 25 2c 30 2c  |g%,pts%,facs%,0,|
00004290  66 6c 61 67 73 25 29 0d  18 7e 0b 3d 74 68 69 6e  |flags%)..~.=thin|
000042a0  67 25 0d 18 88 05 3a 0d  18 92 17 dd 20 a4 73 65  |g%....:..... .se|
000042b0  6c 65 63 74 28 63 24 2c  6f 24 2c 6c 24 29 0d 18  |lect(c$,o$,l$)..|
000042c0  9c 1e 70 25 3d a7 22 2c  22 2b 6c 24 2b 22 2c 22  |..p%=.","+l$+","|
000042d0  2c 22 2c 22 2b 6f 24 2b  22 2c 22 29 0d 18 a6 2d  |,","+o$+",")...-|
000042e0  e7 20 70 25 3d 30 20 8c  20 f2 72 73 65 28 63 24  |. p%=0 . .rse(c$|
000042f0  2b 22 20 73 68 6f 75 6c  64 20 62 65 20 6f 6e 65  |+" should be one|
00004300  20 6f 66 20 22 2b 6c 24  29 0d 18 b0 19 6c 24 3d  | of "+l$)....l$=|
00004310  c0 6c 24 2c 70 25 29 3a  70 25 3d 30 3a 72 25 3d  |.l$,p%):p%=0:r%=|
00004320  2d 31 0d 18 ba 23 f5 3a  70 25 3d a7 6c 24 2c 22  |-1...#.:p%=.l$,"|
00004330  2c 22 2c 70 25 2b 31 29  3a 72 25 2b 3d 31 3a fd  |,",p%+1):r%+=1:.|
00004340  20 70 25 3d 30 0d 18 c4  07 3d 72 25 0d 18 ce 05  | p%=0....=r%....|
00004350  3a 0d 18 d8 18 dd 20 f2  67 65 74 5f 6f 70 65 6e  |:..... .get_open|
00004360  62 72 61 63 6b 28 63 24  29 0d 18 e2 39 e7 20 a4  |brack(c$)...9. .|
00004370  6c 69 6e 65 3c 3e 22 7b  22 20 8c 20 f2 72 73 65  |line<>"{" . .rse|
00004380  28 22 6f 70 65 6e 20 62  61 63 6b 65 74 20 65 78  |("open backet ex|
00004390  70 65 63 74 65 64 20 61  66 74 65 72 20 22 2b 63  |pected after "+c|
000043a0  24 29 0d 18 ec 05 e1 0d  18 f6 05 3a 0d 19 00 18  |$).........:....|
000043b0  dd 20 a4 67 65 74 5f 6e  75 6d 28 63 24 2c 6e 25  |. .get_num(c$,n%|
000043c0  2c 74 25 29 0d 19 0a 16  f4 20 74 25 3d 31 20 69  |,t%)..... t%=1 i|
000043d0  6e 74 65 67 65 72 20 3e  3d 30 0d 19 14 10 f4 20  |nteger >=0..... |
000043e0  74 25 3d 32 20 66 6c 6f  61 74 0d 19 1e 10 f4 20  |t%=2 float..... |
000043f0  74 25 3d 33 20 61 6e 67  6c 65 0d 19 28 13 f4 20  |t%=3 angle..(.. |
00004400  74 25 3d 34 20 64 69 73  74 61 6e 63 65 0d 19 32  |t%=4 distance..2|
00004410  13 f4 20 74 25 3d 35 20  76 65 6c 6f 63 69 74 79  |.. t%=5 velocity|
00004420  0d 19 3c 1b f4 20 74 25  3d 36 20 61 6e 67 75 6c  |..<.. t%=6 angul|
00004430  61 72 20 76 65 6c 6f 63  69 74 79 0d 19 46 15 ea  |ar velocity..F..|
00004440  20 41 24 2c 50 25 2c 42  25 2c 73 25 2c 56 2c 4d  | A$,P%,B%,s%,V,M|
00004450  0d 19 50 0c 41 24 3d a4  6c 69 6e 65 0d 19 5a 0a  |..P.A$=.line..Z.|
00004460  50 25 3d 30 3a f5 0d 19  64 0a 20 50 25 2b 3d 31  |P%=0:...d. P%+=1|
00004470  0d 19 6e 14 20 42 25 3d  97 28 c1 41 24 2c 50 25  |..n. B%=.(.A$,P%|
00004480  2c 31 29 29 0d 19 78 25  20 e7 20 50 25 3d 31 20  |,1))..x% . P%=1 |
00004490  80 20 28 42 25 3d 34 33  20 84 20 42 25 3d 34 35  |. (B%=43 . B%=45|
000044a0  29 20 8c 20 42 25 3d 34  38 0d 19 82 1e fd 20 28  |) . B%=48..... (|
000044b0  42 25 3c 34 38 20 84 20  42 25 3e 35 37 29 20 80  |B%<48 . B%>57) .|
000044c0  20 42 25 3c 3e 34 36 0d  19 8c 45 e7 20 50 25 3d  | B%<>46...E. P%=|
000044d0  31 20 80 20 6e 25 3d 31  20 8c 20 f2 72 73 65 28  |1 . n%=1 . .rse(|
000044e0  22 41 20 6e 75 6d 65 72  69 63 20 61 72 67 75 61  |"A numeric argua|
000044f0  6d 65 6e 74 20 69 73 20  65 78 70 65 63 74 65 64  |ment is expected|
00004500  20 61 66 74 65 72 20 22  2b 63 24 29 0d 19 96 43  | after "+c$)...C|
00004510  e7 20 50 25 3d 31 20 8c  20 f2 72 73 65 28 c3 6e  |. P%=1 . .rse(.n|
00004520  25 2b 22 20 6e 75 6d 65  72 69 63 20 61 72 67 75  |%+" numeric argu|
00004530  61 6d 65 6e 74 73 20 61  72 65 20 65 78 70 65 63  |aments are expec|
00004540  74 65 64 20 61 66 74 65  72 20 22 2b 63 24 29 0d  |ted after "+c$).|
00004550  19 a0 10 c8 8e 20 c1 41  24 2c 50 25 29 20 ca 0d  |..... .A$,P%) ..|
00004560  19 aa 13 20 c9 20 22 22  3a 73 25 3d 74 25 3a 4d  |... . "":s%=t%:M|
00004570  3d 31 0d 19 b4 17 20 20  e7 20 74 25 3d 33 20 8c  |=1....  . t%=3 .|
00004580  20 4d 3d 31 32 38 2f 34  35 0d 19 be 1a 20 c9 20  | M=128/45.... . |
00004590  22 64 65 67 22 3a 73 25  3d 33 3a 4d 3d 31 32 38  |"deg":s%=3:M=128|
000045a0  2f 34 35 0d 19 c8 19 20  c9 20 22 72 61 64 22 3a  |/45.... . "rad":|
000045b0  73 25 3d 33 3a 4d 3d 35  31 32 2f af 0d 19 d2 18  |s%=3:M=512/.....|
000045c0  20 c9 20 22 69 6e 22 3a  73 25 3d 34 3a 4d 3d 26  | . "in":s%=4:M=&|
000045d0  42 34 30 30 0d 19 dc 1b  20 c9 20 22 66 74 22 3a  |B400.... . "ft":|
000045e0  73 25 3d 34 3a 4d 3d 31  32 2a 26 42 34 30 30 0d  |s%=4:M=12*&B400.|
000045f0  19 e6 18 20 c9 20 22 63  6d 22 3a 73 25 3d 34 3a  |... . "cm":s%=4:|
00004600  4d 3d 31 38 31 34 32 0d  19 f0 19 20 c9 20 22 6d  |M=18142.... . "m|
00004610  6d 22 3a 73 25 3d 34 3a  4d 3d 31 38 31 34 2e 32  |m":s%=4:M=1814.2|
00004620  0d 19 fa 1c 20 c9 20 22  69 70 73 22 3a 73 25 3d  |.... . "ips":s%=|
00004630  35 3a 4d 3d 26 42 34 30  30 2f 35 30 0d 1a 04 20  |5:M=&B400/50... |
00004640  20 c9 20 22 66 74 70 73  22 3a 73 25 3d 35 3a 4d  | . "ftps":s%=5:M|
00004650  3d 31 32 2a 26 42 34 30  30 2f 35 30 0d 1a 0e 1d  |=12*&B400/50....|
00004660  20 c9 20 22 63 6d 70 73  22 3a 73 25 3d 35 3a 4d  | . "cmps":s%=5:M|
00004670  3d 31 38 31 34 32 2f 35  30 0d 1a 18 1e 20 c9 20  |=18142/50.... . |
00004680  22 6d 6d 70 73 22 3a 73  25 3d 35 3a 4d 3d 31 38  |"mmps":s%=5:M=18|
00004690  31 34 2e 32 2f 35 30 0d  1a 22 21 20 c9 20 22 64  |14.2/50.."! . "d|
000046a0  65 67 70 73 22 3a 73 25  3d 36 3a 4d 3d 31 32 38  |egps":s%=6:M=128|
000046b0  2f 28 34 35 2a 35 30 29  0d 1a 2c 20 20 c9 20 22  |/(45*50)..,  . "|
000046c0  72 61 64 70 73 22 3a 73  25 3d 36 3a 4d 3d 35 31  |radps":s%=6:M=51|
000046d0  32 2f 28 af 2a 35 30 29  0d 1a 36 1d 20 c9 20 22  |2/(.*50)..6. . "|
000046e0  72 70 6d 22 3a 73 25 3d  36 3a 4d 3d 31 30 32 34  |rpm":s%=6:M=1024|
000046f0  2f 33 30 30 30 0d 1a 40  26 20 7f 20 f2 72 73 65  |/3000..@& . .rse|
00004700  28 22 55 6e 6b 6e 6f 77  6e 20 75 6e 69 74 73 20  |("Unknown units |
00004710  75 73 65 64 20 68 65 72  65 22 29 0d 1a 4a 05 cb  |used here")..J..|
00004720  0d 1a 54 34 e7 20 73 25  3c 3e 74 25 20 8c 20 f2  |..T4. s%<>t% . .|
00004730  72 73 65 28 22 49 6e 61  70 70 72 6f 70 72 69 61  |rse("Inappropria|
00004740  74 65 20 75 6e 69 74 73  20 75 73 65 64 20 68 65  |te units used he|
00004750  72 65 22 29 0d 1a 5e 12  56 3d bb 28 c0 41 24 2c  |re")..^.V=.(.A$,|
00004760  50 25 2d 31 29 29 0d 1a  68 49 e7 20 74 25 3d 31  |P%-1))..hI. t%=1|
00004770  20 8c 20 e7 20 56 3c 30  20 84 20 56 3c 3e a8 28  | . . V<0 . V<>.(|
00004780  56 29 20 8c 20 f2 72 73  65 28 22 4e 6f 6e 2d 6e  |V) . .rse("Non-n|
00004790  65 67 61 74 69 76 65 20  69 6e 74 65 67 65 72 20  |egative integer |
000047a0  65 78 70 65 63 74 65 64  20 68 65 72 65 22 29 0d  |expected here").|
000047b0  1a 72 08 3d 56 2a 4d 0d  1a 7c 05 3a 0d 1a 86 0e  |.r.=V*M..|.:....|
000047c0  dd 20 f2 72 73 65 28 41  24 29 0d 1a 90 0f d9 23  |. .rse(A$).....#|
000047d0  63 68 25 3a 63 68 25 3d  30 0d 1a 9a 08 f1 27 41  |ch%:ch%=0.....'A|
000047e0  24 0d 1a a4 05 e0 0d 1a  ae 05 3a 0d 1a b8 4a dd  |$.........:...J.|
000047f0  20 f2 6e 6f 74 5f 72 65  63 3a f2 72 73 65 28 22  | .not_rec:.rse("|
00004800  63 6f 6d 6d 61 6e 64 20  22 22 22 2b 63 24 2b 22  |command """+c$+"|
00004810  22 22 20 6e 6f 74 20 72  65 63 6f 67 6e 69 73 65  |"" not recognise|
00004820  64 20 69 6e 20 74 68 69  73 20 63 6f 6e 74 65 78  |d in this contex|
00004830  74 22 29 3a e1 0d 1a c2  05 3a 0d 1a cc 0b dd 20  |t"):.....:..... |
00004840  a4 6c 69 6e 65 0d 1a d6  11 ea 20 41 24 2c 42 25  |.line..... A$,B%|
00004850  2c 43 25 2c 52 25 0d 1a  e0 13 52 25 3d 30 3a 41  |,C%,R%....R%=0:A|
00004860  24 3d 22 22 3a 42 25 3d  30 0d 1a ea 05 f5 0d 1a  |$="":B%=0.......|
00004870  f4 25 20 43 25 3d 42 25  3a e7 20 c5 23 63 68 25  |.% C%=B%:. .#ch%|
00004880  20 8c 20 42 25 3d 2d 31  20 8b 20 42 25 3d 9a 23  | . B%=-1 . B%=.#|
00004890  63 68 25 0d 1a fe 37 20  e7 20 42 25 3e 33 31 20  |ch%...7 . B%>31 |
000048a0  8c 20 ef 20 42 25 20 8b  20 e7 20 28 42 25 3d 31  |. . B% . . (B%=1|
000048b0  33 20 84 20 42 25 3d 31  30 29 20 80 20 43 25 3c  |3 . B%=10) . C%<|
000048c0  3e 32 33 2d 42 25 20 8c  20 f1 0d 1b 08 1d 20 e7  |>23-B% . ..... .|
000048d0  20 42 25 3e 36 34 20 80  20 42 25 3c 39 31 20 8c  | B%>64 . B%<91 .|
000048e0  20 42 25 2b 3d 33 32 0d  1b 12 2f 20 e7 20 52 25  | B%+=32.../ . R%|
000048f0  3d 30 20 80 20 42 25 3e  33 33 20 80 20 42 25 3c  |=0 . B%>33 . B%<|
00004900  3e 35 38 20 80 20 42 25  3c 3e 34 34 20 8c 20 41  |>58 . B%<>44 . A|
00004910  24 2b 3d bd 42 25 0d 1b  1c 1c 20 e7 20 42 25 3d  |$+=.B%.... . B%=|
00004920  34 32 20 80 20 43 25 3d  34 37 20 8c 20 52 25 2b  |42 . C%=47 . R%+|
00004930  3d 31 0d 1b 26 5c 20 e7  20 42 25 3d 34 37 20 80  |=1..&\ . B%=47 .|
00004940  20 43 25 3d 34 32 20 8c  20 52 25 2d 3d 31 3a 41  | C%=42 . R%-=1:A|
00004950  24 3d c0 41 24 2c a9 41  24 2d 32 29 3a e7 20 52  |$=.A$,.A$-2):. R|
00004960  25 3c 30 20 8c 20 f2 72  73 65 28 22 4d 6f 72 65  |%<0 . .rse("More|
00004970  20 72 65 6d 61 72 6b 73  20 63 6c 6f 73 65 64 20  | remarks closed |
00004980  74 68 61 6e 20 6f 70 65  6e 65 64 21 22 29 0d 1b  |than opened!")..|
00004990  30 36 fd 20 42 25 3c 30  20 84 20 28 28 42 25 3c  |06. B%<0 . ((B%<|
000049a0  33 33 20 84 20 42 25 3d  35 38 20 84 20 42 25 3d  |33 . B%=58 . B%=|
000049b0  34 34 29 20 80 20 52 25  3d 30 20 80 20 41 24 3c  |44) . R%=0 . A$<|
000049c0  3e 22 22 29 0d 1b 3a 07  3d 41 24 0d 1b 44 05 3a  |>"")..:.=A$..D.:|
000049d0  0d 1b 4e 0c dd 20 f2 69  6e 69 74 32 0d 1b 58 04  |..N.. .init2..X.|
000049e0  0d 1b 62 0d 6d 61 78 70  74 73 25 3d 30 0d 1b 6c  |..b.maxpts%=0..l|
000049f0  17 e3 20 69 25 3d 30 20  b8 20 6f 62 6a 65 63 74  |.. i%=0 . object|
00004a00  73 25 2d 31 0d 1b 76 1f  20 74 68 69 6e 67 25 3d  |s%-1..v. thing%=|
00004a10  77 6f 72 6c 64 25 2b 69  25 2a 65 6c 73 69 7a 25  |world%+i%*elsiz%|
00004a20  28 37 29 0d 1b 80 42 20  e7 20 74 68 69 6e 67 25  |(7)...B . thing%|
00004a30  21 76 65 6c 25 3e 30 20  8c 20 e7 20 74 68 69 6e  |!vel%>0 . . thin|
00004a40  67 25 21 6e 6f 70 25 3e  6d 61 78 70 74 73 25 20  |g%!nop%>maxpts% |
00004a50  8c 20 6d 61 78 70 74 73  25 3d 74 68 69 6e 67 25  |. maxpts%=thing%|
00004a60  21 6e 6f 70 25 0d 1b 8a  05 ed 0d 1b 94 16 de 20  |!nop%.......... |
00004a70  76 65 6c 32 25 20 6d 61  78 70 74 73 25 2a 31 32  |vel2% maxpts%*12|
00004a80  0d 1b 9e 04 0d 1b a8 25  74 73 68 25 3d aa 28 66  |.......%tsh%=.(f|
00004a90  73 70 25 29 2f aa 28 32  29 2b 2e 35 3a 66 73 70  |sp%)/.(2)+.5:fsp|
00004aa0  25 3d 31 3c 3c 74 73 68  25 0d 1b b2 1d 67 72 61  |%=1<<tsh%....gra|
00004ab0  76 5f 78 25 3d 67 72 61  76 5f 78 25 3e 3e 28 74  |v_x%=grav_x%>>(t|
00004ac0  73 68 25 2a 32 29 0d 1b  bc 1d 67 72 61 76 5f 79  |sh%*2)....grav_y|
00004ad0  25 3d 67 72 61 76 5f 79  25 3e 3e 28 74 73 68 25  |%=grav_y%>>(tsh%|
00004ae0  2a 32 29 0d 1b c6 1d 67  72 61 76 5f 7a 25 3d 67  |*2)....grav_z%=g|
00004af0  72 61 76 5f 7a 25 3e 3e  28 74 73 68 25 2a 32 29  |rav_z%>>(tsh%*2)|
00004b00  0d 1b d0 13 64 61 6d 70  73 68 25 2b 3d 74 73 68  |....dampsh%+=tsh|
00004b10  25 2a 32 0d 1b da 04 0d  1b e4 0c 54 25 3d 31 3c  |%*2........T%=1<|
00004b20  3c 33 30 0d 1b ee 11 de  20 72 65 63 69 70 25 20  |<30..... recip% |
00004b30  34 31 30 30 0d 1b f8 22  f1 22 46 69 6c 6c 69 6e  |4100..."."Fillin|
00004b40  67 20 72 65 63 69 70 72  6f 63 61 6c 20 74 61 62  |g reciprocal tab|
00004b50  6c 65 2e 2e 2e 22 0d 1c  02 2a e3 20 41 25 3d 31  |le..."...*. A%=1|
00004b60  20 b8 20 31 30 32 33 3a  72 65 63 69 70 25 21 28  | . 1023:recip%!(|
00004b70  41 25 2a 34 29 3d 54 25  2f 41 25 2b 2e 35 3a ed  |A%*4)=T%/A%+.5:.|
00004b80  0d 1c 0c 15 21 72 65 63  69 70 25 3d 26 37 46 46  |....!recip%=&7FF|
00004b90  46 46 46 46 46 0d 1c 16  04 0d 1c 20 0a f2 61 73  |FFFFF...... ..as|
00004ba0  73 65 6d 0d 1c 2a 20 f2  61 73 73 65 6d 73 74 6f  |sem..* .assemsto|
00004bb0  72 65 28 6d 6f 64 65 25  2c 73 74 6f 73 74 79 6c  |re(mode%,stostyl|
00004bc0  65 25 29 0d 1c 34 04 0d  1c 3e 27 f1 27 22 43 72  |e%)..4...>'.'"Cr|
00004bd0  65 61 74 69 6e 67 20 70  6f 69 6e 74 65 72 73 20  |eating pointers |
00004be0  74 6f 20 66 61 63 65 74  73 2e 2e 2e 22 3b 0d 1c  |to facets...";..|
00004bf0  48 0d 74 6f 74 6e 6f 66  25 3d 30 0d 1c 52 17 e3  |H.totnof%=0..R..|
00004c00  20 69 25 3d 30 20 b8 20  6f 62 6a 65 63 74 73 25  | i%=0 . objects%|
00004c10  2d 31 0d 1c 5c 1f 20 74  68 69 6e 67 25 3d 77 6f  |-1..\. thing%=wo|
00004c20  72 6c 64 25 2b 69 25 2a  65 6c 73 69 7a 25 28 37  |rld%+i%*elsiz%(7|
00004c30  29 0d 1c 66 19 20 74 6f  74 6e 6f 66 25 2b 3d 74  |)..f. totnof%+=t|
00004c40  68 69 6e 67 25 21 6e 6f  66 25 0d 1c 70 05 ed 0d  |hing%!nof%..p...|
00004c50  1c 7a 22 66 61 63 70 74  25 3d a4 63 72 65 61 74  |.z"facpt%=.creat|
00004c60  65 28 34 2c 74 6f 74 6e  6f 66 25 29 3a 43 25 3d  |e(4,totnof%):C%=|
00004c70  30 0d 1c 84 17 e3 20 69  25 3d 30 20 b8 20 6f 62  |0..... i%=0 . ob|
00004c80  6a 65 63 74 73 25 2d 31  0d 1c 8e 1f 20 74 68 69  |jects%-1.... thi|
00004c90  6e 67 25 3d 77 6f 72 6c  64 25 2b 69 25 2a 65 6c  |ng%=world%+i%*el|
00004ca0  73 69 7a 25 28 37 29 0d  1c 98 39 20 43 25 3d a4  |siz%(7)...9 C%=.|
00004cb0  69 6e 69 74 5f 66 61 63  70 6f 69 6e 74 28 74 68  |init_facpoint(th|
00004cc0  69 6e 67 25 21 66 61 63  25 2c 66 61 63 70 74 25  |ing%!fac%,facpt%|
00004cd0  2c 74 68 69 6e 67 25 21  6e 6f 66 25 2c 43 25 29  |,thing%!nof%,C%)|
00004ce0  0d 1c a2 05 ed 0d 1c ac  04 0d 1c b6 21 f1 27 22  |............!.'"|
00004cf0  4d 61 6b 69 6e 67 20 61  6e 69 6d 61 74 69 6f 6e  |Making animation|
00004d00  20 61 72 65 61 2e 2e 2e  22 3b 0d 1c c0 0b de 20  | area...";..... |
00004d10  45 25 20 2d 31 0d 1c ca  25 73 74 6f 72 65 6e 64  |E% -1...%storend|
00004d20  25 3d 28 ba 28 62 61 73  69 63 5f 73 74 61 63 6b  |%=(.(basic_stack|
00004d30  29 2d 45 25 29 2d 34 30  30 30 0d 1c d4 15 de 20  |)-E%)-4000..... |
00004d40  73 74 6f 72 65 25 20 73  74 6f 72 65 6e 64 25 0d  |store% storend%.|
00004d50  1c de 1c 73 74 6f 72 65  6e 64 25 3d 73 74 6f 72  |...storend%=stor|
00004d60  65 25 2b 73 74 6f 72 65  6e 64 25 0d 1c e8 0e 73  |e%+storend%....s|
00004d70  74 6f 72 65 25 2b 3d 31  36 0d 1c f2 17 21 73 74  |tore%+=16....!st|
00004d80  6f 72 65 6e 64 3d 73 74  6f 72 65 6e 64 25 2d 31  |orend=storend%-1|
00004d90  0d 1c fc 04 0d 1d 06 19  de 20 74 69 6d 62 6c 6b  |......... timblk|
00004da0  25 20 38 2c 73 74 72 69  25 20 32 35 36 0d 1d 10  |% 8,stri% 256...|
00004db0  10 f2 69 6e 69 74 5f 73  63 72 65 65 6e 0d 1d 1a  |..init_screen...|
00004dc0  05 e1 0d 1d 24 05 3a 0d  1d 2e 12 dd 20 f2 69 6e  |....$.:..... .in|
00004dd0  69 74 5f 73 63 72 65 65  6e 0d 1d 38 10 de 20 49  |it_screen..8.. I|
00004de0  62 6c 6f 63 6b 25 20 31  36 0d 1d 42 11 eb 20 6d  |block% 16..B.. m|
00004df0  6f 64 65 25 20 84 20 31  32 38 0d 1d 4c 3d e7 20  |ode% . 128..L=. |
00004e00  eb 3c 3e 6d 6f 64 65 25  20 8c 20 85 20 31 2c 22  |.<>mode% . . 1,"|
00004e10  43 6f 75 6c 64 20 6e 6f  74 20 6f 62 74 61 69 6e  |Could not obtain|
00004e20  20 72 65 71 75 65 73 74  65 64 20 73 63 72 65 65  | requested scree|
00004e30  6e 20 6d 6f 64 65 22 0d  1d 56 05 87 0d 1d 60 1d  |n mode"..V....`.|
00004e40  fb 20 a4 4d 6f 64 65 56  61 72 28 33 29 2c 32 35  |. .ModeVar(3),25|
00004e50  35 2c 32 35 35 2c 32 35  35 0d 1d 6a 0d 2a 46 58  |5,255,255..j.*FX|
00004e60  20 31 31 32 20 31 0d 1d  74 05 db 0d 1d 7e 0d 2a  | 112 1..t....~.*|
00004e70  46 58 20 31 31 32 20 32  0d 1d 88 05 db 0d 1d 92  |FX 112 2........|
00004e80  0d 2a 46 58 20 31 31 33  20 31 0d 1d 9c 2b 21 49  |.*FX 113 1...+!I|
00004e90  62 6c 6f 63 6b 25 3d 31  34 39 3a 49 62 6c 6f 63  |block%=149:Ibloc|
00004ea0  6b 25 21 34 3d 31 34 38  3a 49 62 6c 6f 63 6b 25  |k%!4=148:Iblock%|
00004eb0  21 38 3d 2d 31 0d 1d a6  2c c8 99 20 22 4f 53 5f  |!8=-1...,.. "OS_|
00004ec0  52 65 61 64 56 64 75 56  61 72 69 61 62 6c 65 73  |ReadVduVariables|
00004ed0  22 2c 49 62 6c 6f 63 6b  25 2c 73 63 72 70 6f 73  |",Iblock%,scrpos|
00004ee0  31 0d 1d b0 14 21 73 63  72 70 6f 73 3d 21 73 63  |1....!scrpos=!sc|
00004ef0  72 70 6f 73 32 0d 1d ba  0d 2a 66 78 20 31 31 33  |rpos2....*fx 113|
00004f00  20 32 0d 1d c4 05 e1 0d  1d ce 05 3a 0d 1d d8 14  | 2.........:....|
00004f10  dd 20 f2 63 72 65 61 74  65 5f 66 72 61 6d 65 73  |. .create_frames|
00004f20  0d 1d e2 12 73 74 6f 72  65 25 21 2d 31 36 3d 32  |....store%!-16=2|
00004f30  31 36 0d 1d ec 22 73 74  6f 72 65 25 21 2d 31 32  |16..."store%!-12|
00004f40  3d 28 78 72 65 73 25 3c  3c 31 36 29 20 84 20 79  |=(xres%<<16) . y|
00004f50  72 65 73 25 0d 1d f6 0f  73 74 6f 72 65 25 21 2d  |res%....store%!-|
00004f60  38 3d 30 0d 1e 00 19 73  74 6f 72 65 25 21 2d 34  |8=0....store%!-4|
00004f70  3d 73 74 6f 73 74 79 6c  65 25 2b 31 0d 1e 0a 0f  |=stostyle%+1....|
00004f80  73 74 61 72 74 69 6d 65  25 3d 91 0d 1e 14 17 e3  |startime%=......|
00004f90  20 69 25 3d 30 20 b8 20  6f 62 6a 65 63 74 73 25  | i%=0 . objects%|
00004fa0  2d 31 0d 1e 1e 2e 20 f2  72 6f 74 6e 70 65 72 73  |-1.... .rotnpers|
00004fb0  70 28 77 6f 72 6c 64 25  2b 69 25 2a 65 6c 73 69  |p(world%+i%*elsi|
00004fc0  7a 25 28 37 29 2c 56 41  25 2c 56 42 25 2c 30 29  |z%(7),VA%,VB%,0)|
00004fd0  0d 1e 28 05 ed 0d 1e 32  11 c8 97 20 b8 20 31 32  |..(....2... . 12|
00004fe0  35 30 2c 39 37 30 0d 1e  3c 1b db 3a f2 72 65 6e  |50,970..<..:.ren|
00004ff0  64 65 72 28 72 65 6e 25  2c 72 73 74 79 6c 65 25  |der(ren%,rstyle%|
00005000  29 0d 1e 46 18 db 3a f2  72 65 6e 64 65 72 28 31  |)..F..:.render(1|
00005010  2c 72 73 74 79 6c 65 25  29 0d 1e 50 3d 21 73 74  |,rstyle%)..P=!st|
00005020  6f 72 65 70 6f 73 3d 73  74 6f 72 65 25 3a f2 73  |orepos=store%:.s|
00005030  74 6f 72 65 66 72 61 6d  65 28 73 74 6f 73 74 79  |toreframe(stosty|
00005040  6c 65 25 29 3a 73 74 6f  72 65 31 25 3d 21 73 74  |le%):store1%=!st|
00005050  6f 72 65 70 6f 73 0d 1e  5a 42 e7 20 73 74 6f 72  |orepos..ZB. stor|
00005060  65 31 25 3d 30 20 8c 20  85 20 31 2c 22 4e 6f 74  |e1%=0 . . 1,"Not|
00005070  20 65 6e 6f 75 67 68 20  73 70 61 63 65 20 74 6f  | enough space to|
00005080  20 73 74 6f 72 65 20 62  61 63 6b 67 72 6f 75 6e  | store backgroun|
00005090  64 20 66 72 61 6d 65 22  0d 1e 64 04 0d 1e 6e 0b  |d frame"..d...n.|
000050a0  71 75 69 74 25 3d a3 0d  1e 78 0e 67 65 6e 74 69  |quit%=...x.genti|
000050b0  6d 65 25 3d 30 0d 1e 82  05 f5 0d 1e 8c 10 20 73  |me%=0......... s|
000050c0  74 61 72 74 69 6d 65 25  3d 91 0d 1e 96 12 20 e3  |tartime%=..... .|
000050d0  20 6a 25 3d 31 20 b8 20  66 73 70 25 0d 1e a0 19  | j%=1 . fsp%....|
000050e0  20 20 e3 20 69 25 3d 30  20 b8 20 6f 62 6a 65 63  |  . i%=0 . objec|
000050f0  74 73 25 2d 31 0d 1e aa  24 20 20 20 f2 6d 6f 76  |ts%-1...$   .mov|
00005100  65 28 69 25 2c 77 6f 72  6c 64 25 2b 69 25 2a 65  |e(i%,world%+i%*e|
00005110  6c 73 69 7a 25 28 37 29  29 0d 1e b4 07 20 20 ed  |lsiz%(7))....  .|
00005120  0d 1e be 06 20 ed 0d 1e  c8 10 20 6d 6f 76 65 74  |.... ..... movet|
00005130  69 6d 65 25 3d 91 0d 1e  d2 18 20 e3 20 69 25 3d  |ime%=..... . i%=|
00005140  30 20 b8 20 6f 62 6a 65  63 74 73 25 2d 31 0d 1e  |0 . objects%-1..|
00005150  dc 2f 20 20 f2 72 6f 74  6e 70 65 72 73 70 28 77  |./  .rotnpersp(w|
00005160  6f 72 6c 64 25 2b 69 25  2a 65 6c 73 69 7a 25 28  |orld%+i%*elsiz%(|
00005170  37 29 2c 56 41 25 2c 56  42 25 2c 30 29 0d 1e e6  |7),VA%,VB%,0)...|
00005180  06 20 ed 0d 1e f0 06 20  db 0d 1e fa 19 20 6c 61  |. ..... ..... la|
00005190  73 74 73 74 6f 72 65 25  3d 21 73 74 6f 72 65 70  |ststore%=!storep|
000051a0  6f 73 0d 1f 04 1e 20 e7  20 72 65 6e 25 3d 30 20  |os.... . ren%=0 |
000051b0  43 25 3d 73 74 6f 72 65  25 3a d6 20 73 68 6f 77  |C%=store%:. show|
000051c0  0d 1f 0e 1a 20 f2 72 65  6e 64 65 72 28 72 65 6e  |.... .render(ren|
000051d0  25 2c 72 73 74 79 6c 65  25 29 0d 1f 18 15 20 43  |%,rstyle%).... C|
000051e0  25 3d 73 74 6f 72 65 25  3a d6 20 73 68 6f 77 0d  |%=store%:. show.|
000051f0  1f 22 1b 20 f2 73 74 6f  72 65 66 72 61 6d 65 28  |.". .storeframe(|
00005200  73 74 6f 73 74 79 6c 65  25 29 0d 1f 2c 15 20 43  |stostyle%)..,. C|
00005210  25 3d 73 74 6f 72 65 25  3a d6 20 73 68 6f 77 0d  |%=store%:. show.|
00005220  1f 36 0c 20 61 6e 69 6d  25 3d b9 0d 1f 40 22 20  |.6. anim%=...@" |
00005230  f2 66 72 61 6d 65 5f 61  63 74 69 6f 6e 73 28 21  |.frame_actions(!|
00005240  28 73 74 6f 72 65 25 2d  38 29 2d 31 29 0d 1f 4a  |(store%-8)-1)..J|
00005250  24 20 6e 6b 25 3d 30 3a  f5 3a 6b 25 3d 6e 6b 25  |$ nk%=0:.:k%=nk%|
00005260  3a 6e 6b 25 3d a6 28 30  29 3a fd 20 6e 6b 25 3c  |:nk%=.(0):. nk%<|
00005270  30 0d 1f 54 1c 20 6b 25  2b 3d 33 32 2a 28 6b 25  |0..T. k%+=32*(k%|
00005280  3e 39 37 20 80 20 6b 25  3c 31 32 33 29 0d 1f 5e  |>97 . k%<123)..^|
00005290  17 20 e7 20 6b 25 3d 38  30 20 8c 20 f2 70 72 65  |. . k%=80 . .pre|
000052a0  76 69 65 77 0d 1f 68 16  20 e7 20 6b 25 3d 38 31  |view..h. . k%=81|
000052b0  20 8c 20 71 75 69 74 25  3d b9 0d 1f 72 0b fd 20  | . quit%=...r.. |
000052c0  71 75 69 74 25 0d 1f 7c  05 db 0d 1f 86 19 f1 22  |quit%..|......."|
000052d0  59 6f 75 20 63 61 6e 20  6c 65 74 20 67 6f 20 6e  |You can let go n|
000052e0  6f 77 22 0d 1f 90 10 f5  20 fd 20 ac 20 a6 28 2d  |ow"..... . . .(-|
000052f0  31 37 29 0d 1f 9a 10 ef  20 31 31 3a f1 20 89 28  |17)..... 11:. .(|
00005300  32 30 29 0d 1f a4 0c 2a  66 78 20 32 31 20 30 0d  |20)....*fx 21 0.|
00005310  1f ae 7c c8 99 20 22 4f  53 5f 50 72 65 74 74 79  |..|.. "OS_Pretty|
00005320  50 72 69 6e 74 22 2c bd  31 33 2b 22 46 72 6f 6d  |Print",.13+"From|
00005330  20 6e 6f 77 20 6f 6e 20  79 6f 75 20 63 61 6e 20  | now on you can |
00005340  70 72 65 73 73 20 45 73  63 61 70 65 20 61 6e 64  |press Escape and|
00005350  20 74 79 70 65 20 50 52  4f 43 73 61 76 65 28 22  | type PROCsave("|
00005360  22 66 69 6c 65 6e 61 6d  65 22 22 29 20 74 6f 20  |"filename"") to |
00005370  73 61 76 65 20 74 68 65  20 61 6e 69 6d 61 74 69  |save the animati|
00005380  6f 6e 2e 22 2b bd 31 33  2b bd 30 0d 1f b8 05 e1  |on."+.13+.0.....|
00005390  0d 1f c2 05 3a 0d 1f cc  1c dd 20 f2 66 72 61 6d  |....:..... .fram|
000053a0  65 5f 61 63 74 69 6f 6e  73 28 66 72 61 6d 65 25  |e_actions(frame%|
000053b0  29 0d 1f d6 3c f4 20 49  46 20 66 72 61 6d 65 25  |)...<. IF frame%|
000053c0  3d 33 30 20 54 48 45 4e  20 50 52 4f 43 6f 75 74  |=30 THEN PROCout|
000053d0  70 75 74 5f 66 61 63 65  74 73 28 22 24 2e 54 65  |put_facets("$.Te|
000053e0  6d 70 2e 66 61 63 65 74  73 33 30 22 29 0d 1f e0  |mp.facets30")...|
000053f0  55 f4 20 49 46 20 49 4e  4b 45 59 28 2d 33 29 20  |U. IF INKEY(-3) |
00005400  54 48 45 4e 20 4f 53 43  4c 49 28 22 53 63 72 65  |THEN OSCLI("Scre|
00005410  65 6e 73 61 76 65 20 3c  46 45 4d 53 24 44 69 72  |ensave <FEMS$Dir|
00005420  3e 2e 5e 2e 73 68 6f 74  73 2e 70 69 63 22 2b 53  |>.^.shots.pic"+S|
00005430  54 52 24 28 66 72 61 6d  65 25 29 29 3a 56 44 55  |TR$(frame%)):VDU|
00005440  20 37 0d 1f ea 13 f2 73  74 61 74 75 73 28 66 72  | 7.....status(fr|
00005450  61 6d 65 25 29 0d 1f f4  13 e7 20 66 72 61 6d 65  |ame%)..... frame|
00005460  25 3d 61 69 6d 25 20 8c  0d 1f fe 16 20 f1 20 22  |%=aim% ..... . "|
00005470  50 61 75 73 65 64 2e 2e  2e 22 3a ef 20 37 0d 20  |Paused...":. 7. |
00005480  08 0d 20 2a 66 78 20 32  31 20 30 0d 20 12 08 20  |.. *fx 21 0. .. |
00005490  e7 20 a5 0d 20 1c 11 20  ef 20 31 31 3a f1 20 89  |. .. .. . 11:. .|
000054a0  28 31 30 29 0d 20 26 05  cd 0d 20 30 0a e1 20 20  |(10). &... 0..  |
000054b0  20 20 20 0d 20 3a 05 3a  0d 20 44 18 dd 20 f2 6f  |   . :.:. D.. .o|
000054c0  75 74 70 75 74 5f 66 61  63 65 74 73 28 66 24 29  |utput_facets(f$)|
000054d0  0d 20 4e 17 ea 20 63 70  25 2c 66 70 25 2c 6a 25  |. N.. cp%,fp%,j%|
000054e0  2c 63 68 25 2c 54 25 0d  20 58 0d 63 68 25 3d ae  |,ch%,T%. X.ch%=.|
000054f0  28 66 24 29 0d 20 62 17  e3 20 69 25 3d 30 20 b8  |(f$). b.. i%=0 .|
00005500  20 6f 62 6a 65 63 74 73  25 2d 31 0d 20 6c 1f 20  | objects%-1. l. |
00005510  74 68 69 6e 67 25 3d 77  6f 72 6c 64 25 2b 65 6c  |thing%=world%+el|
00005520  73 69 7a 25 28 37 29 2a  69 25 0d 20 76 14 20 63  |siz%(7)*i%. v. c|
00005530  70 25 3d 74 68 69 6e 67  25 21 63 6f 30 25 0d 20  |p%=thing%!co0%. |
00005540  80 14 20 66 70 25 3d 74  68 69 6e 67 25 21 66 61  |.. fp%=thing%!fa|
00005550  63 25 0d 20 8a 12 20 54  25 3d 31 3a f1 23 63 68  |c%. .. T%=1:.#ch|
00005560  25 2c 54 25 0d 20 94 16  20 f1 23 63 68 25 2c 74  |%,T%. .. .#ch%,t|
00005570  68 69 6e 67 25 21 6e 6f  66 25 0d 20 9e 1b 20 e3  |hing%!nof%. .. .|
00005580  20 6a 25 3d 30 20 b8 20  74 68 69 6e 67 25 21 6e  | j%=0 . thing%!n|
00005590  6f 66 25 2d 31 0d 20 a8  2a 20 20 54 25 3d 63 70  |of%-1. .*  T%=cp|
000055a0  25 2b 31 32 2a 66 70 25  21 30 3a f1 23 63 68 25  |%+12*fp%!0:.#ch%|
000055b0  2c 54 25 21 34 2c 54 25  21 38 2c 2d 21 54 25 0d  |,T%!4,T%!8,-!T%.|
000055c0  20 b2 2a 20 20 54 25 3d  63 70 25 2b 31 32 2a 66  | .*  T%=cp%+12*f|
000055d0  70 25 21 34 3a f1 23 63  68 25 2c 54 25 21 34 2c  |p%!4:.#ch%,T%!4,|
000055e0  54 25 21 38 2c 2d 21 54  25 0d 20 bc 2a 20 20 54  |T%!8,-!T%. .*  T|
000055f0  25 3d 63 70 25 2b 31 32  2a 66 70 25 21 38 3a f1  |%=cp%+12*fp%!8:.|
00005600  23 63 68 25 2c 54 25 21  34 2c 54 25 21 38 2c 2d  |#ch%,T%!4,T%!8,-|
00005610  21 54 25 0d 20 c6 14 20  20 66 70 25 2b 3d 65 6c  |!T%. ..  fp%+=el|
00005620  73 69 7a 25 28 33 29 0d  20 d0 06 20 ed 0d 20 da  |siz%(3). .. .. .|
00005630  05 ed 0d 20 e4 09 d9 23  63 68 25 0d 20 ee 05 e1  |... ...#ch%. ...|
00005640  0d 20 f8 05 3a 0d 21 02  0e dd 20 f2 70 72 65 76  |. ..:.!... .prev|
00005650  69 65 77 0d 21 0c 08 ea  20 43 25 0d 21 16 0d 2a  |iew.!... C%.!..*|
00005660  46 58 20 31 31 32 20 31  0d 21 20 05 db 0d 21 2a  |FX 112 1.! ...!*|
00005670  0d 2a 46 58 20 31 31 33  20 31 0d 21 34 0b 62 61  |.*FX 113 1.!4.ba|
00005680  6e 6b 25 3d 31 0d 21 3e  05 f5 0d 21 48 0a 20 f2  |nk%=1.!>...!H. .|
00005690  73 68 6f 77 0d 21 52 10  20 f2 70 61 75 73 65 28  |show.!R. .pause(|
000056a0  31 30 30 29 0d 21 5c 0e  fd 20 ac 20 a6 28 2d 35  |100).!\.. . .(-5|
000056b0  36 29 0d 21 66 0d 2a 46  58 20 31 31 32 20 32 0d  |6).!f.*FX 112 2.|
000056c0  21 70 05 db 0d 21 7a 0d  2a 46 58 20 31 31 33 20  |!p...!z.*FX 113 |
000056d0  32 0d 21 84 14 21 73 63  72 70 6f 73 3d 21 73 63  |2.!..!scrpos=!sc|
000056e0  72 70 6f 73 32 0d 21 8e  14 43 25 3d 73 74 6f 72  |rpos2.!..C%=stor|
000056f0  65 25 3a d6 20 73 68 6f  77 0d 21 98 18 43 25 3d  |e%:. show.!..C%=|
00005700  6c 61 73 74 73 74 6f 72  65 25 3a d6 20 73 68 6f  |laststore%:. sho|
00005710  77 0d 21 a2 0c 2a 66 78  20 32 31 20 30 0d 21 ac  |w.!..*fx 21 0.!.|
00005720  05 e1 0d 21 b6 05 3a 0d  21 c0 10 dd 20 f2 70 61  |...!..:.!... .pa|
00005730  75 73 65 28 54 25 29 0d  21 ca 0b 54 25 3d 54 25  |use(T%).!..T%=T%|
00005740  2b 91 0d 21 d4 0c f5 20  fd 20 91 3e 54 25 0d 21  |+..!... . .>T%.!|
00005750  de 05 e1 0d 21 e8 05 3a  0d 21 f2 15 dd 20 f2 64  |....!..:.!... .d|
00005760  69 73 70 6c 61 79 5f 66  72 61 6d 65 73 0d 21 fc  |isplay_frames.!.|
00005770  0d 2a 46 58 20 31 31 32  20 31 0d 22 06 05 db 0d  |.*FX 112 1."....|
00005780  22 10 0d 2a 46 58 20 31  31 33 20 31 0d 22 1a 14  |"..*FX 113 1."..|
00005790  21 73 63 72 70 6f 73 3d  21 73 63 72 70 6f 73 32  |!scrpos=!scrpos2|
000057a0  0d 22 24 1d 43 25 3d 73  74 6f 72 65 25 3a 73 74  |."$.C%=store%:st|
000057b0  6f 72 65 31 25 3d ba 28  73 68 6f 77 29 0d 22 2e  |ore1%=.(show).".|
000057c0  0b 62 61 6e 6b 25 3d 31  0d 22 38 09 f2 73 68 6f  |.bank%=1."8..sho|
000057d0  77 0d 22 42 05 f5 0d 22  4c 0b 20 2a 46 58 20 31  |w."B..."L. *FX 1|
000057e0  35 0d 22 56 09 20 47 25  3d a5 0d 22 60 0e 20 e7  |5."V. G%=.."`. .|
000057f0  20 47 25 3d 33 32 20 8c  0d 22 6a 07 20 20 f5 0d  | G%=32 .."j.  ..|
00005800  22 74 0c 20 20 20 f2 73  68 6f 77 0d 22 7e 0d 20  |"t.   .show."~. |
00005810  20 20 2a 46 58 20 31 35  0d 22 88 10 20 20 20 47  |  *FX 15."..   G|
00005820  25 3d a6 28 31 30 30 29  0d 22 92 0d 20 20 fd 20  |%=.(100)."..  . |
00005830  47 25 3e 2d 31 0d 22 9c  06 20 cc 0d 22 a6 0b 20  |G%>-1.".. ..".. |
00005840  20 f2 73 68 6f 77 0d 22  b0 06 20 cd 0d 22 ba 07  | .show.".. .."..|
00005850  fd 20 a3 0d 22 c4 05 e1  0d 22 ce 05 3a 0d 22 d8  |. .."...."..:.".|
00005860  0b dd 20 f2 73 68 6f 77  0d 22 e2 0b ea 20 43 25  |.. .show."... C%|
00005870  2c 41 25 0d 22 ec 0e 41  25 3d 73 74 6f 72 65 31  |,A%."..A%=store1|
00005880  25 0d 22 f6 1a e3 20 46  25 3d 31 20 b8 20 21 28  |%."... F%=1 . !(|
00005890  73 74 6f 72 65 25 2d 38  29 2d 31 0d 23 00 14 20  |store%-8)-1.#.. |
000058a0  62 61 6e 6b 25 3d 62 61  6e 6b 25 20 82 20 33 0d  |bank%=bank% . 3.|
000058b0  23 0a 1d 20 21 73 63 72  70 6f 73 3d 73 63 72 70  |#.. !scrpos=scrp|
000058c0  6f 73 21 28 62 61 6e 6b  25 2a 34 29 0d 23 14 1b  |os!(bank%*4).#..|
000058d0  20 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 31  | .. "OS_Byte",11|
000058e0  32 2c 62 61 6e 6b 25 0d  23 1e 06 20 db 0d 23 28  |2,bank%.#.. ..#(|
000058f0  15 20 43 25 3d 73 74 6f  72 65 25 3a d6 20 73 68  |. C%=store%:. sh|
00005900  6f 77 0d 23 32 15 20 43  25 3d 41 25 3a 41 25 3d  |ow.#2. C%=A%:A%=|
00005910  ba 28 73 68 6f 77 29 0d  23 3c 25 20 e7 20 a6 28  |.(show).#<% . .(|
00005920  2d 32 29 20 8c 20 f2 70  61 75 73 65 28 31 30 29  |-2) . .pause(10)|
00005930  3a f5 20 fd 20 ac 20 a6  28 2d 31 29 0d 23 46 1e  |:. . . .(-1).#F.|
00005940  20 c8 96 3a c8 99 20 22  4f 53 5f 42 79 74 65 22  | ..:.. "OS_Byte"|
00005950  2c 31 31 33 2c 62 61 6e  6b 25 0d 23 50 05 ed 0d  |,113,bank%.#P...|
00005960  23 5a 05 e1 0d 23 64 05  3a 0d 23 6e 15 dd 20 f2  |#Z...#d.:.#n.. .|
00005970  73 74 6f 72 65 66 72 61  6d 65 28 53 25 29 0d 23  |storeframe(S%).#|
00005980  78 0b c8 8e 20 53 25 20  ca 0d 23 82 16 20 c9 20  |x... S% ..#.. . |
00005990  2d 31 3a 21 73 74 6f 72  65 70 6f 73 2b 3d 34 0d  |-1:!storepos+=4.|
000059a0  23 8c 12 20 c9 20 30 3a  d6 20 66 72 73 74 6f 72  |#.. . 0:. frstor|
000059b0  65 0d 23 96 12 20 c9 20  31 3a d6 20 66 72 73 74  |e.#.. . 1:. frst|
000059c0  6f 72 65 0d 23 a0 24 20  c9 20 32 3a 21 73 74 6f  |ore.#.$ . 2:!sto|
000059d0  72 65 70 6f 73 2b 3d 34  3a 21 28 73 74 6f 72 65  |repos+=4:!(store|
000059e0  25 2d 38 29 2b 3d 31 0d  23 aa 2a 20 7f 20 85 20  |%-8)+=1.#.* . . |
000059f0  31 32 33 34 2c 22 46 72  61 6d 65 20 73 74 6f 72  |1234,"Frame stor|
00005a00  65 20 74 79 70 65 20 6e  6f 74 20 6b 6e 6f 77 6e  |e type not known|
00005a10  22 0d 23 b4 05 cb 0d 23  be 2c e7 20 21 73 74 6f  |".#....#.,. !sto|
00005a20  72 65 70 6f 73 3d 30 20  8c 20 71 75 69 74 25 3d  |repos=0 . quit%=|
00005a30  b9 20 8b 20 21 28 73 74  6f 72 65 25 2d 38 29 2b  |. . !(store%-8)+|
00005a40  3d 31 0d 23 c8 05 e1 0d  23 d2 05 3a 0d 23 dc 1e  |=1.#....#..:.#..|
00005a50  dd 20 a4 6d 6f 64 65 28  78 72 65 73 25 2c 79 72  |. .mode(xres%,yr|
00005a60  65 73 25 2c 63 6f 6c 73  25 29 0d 23 e6 1c ea 20  |es%,cols%).#... |
00005a70  6d 6f 64 65 25 2c 62 65  73 74 25 2c 6c 63 25 2c  |mode%,best%,lc%,|
00005a80  6e 63 25 2c 45 25 0d 23  f0 14 6c 63 25 3d 32 35  |nc%,E%.#..lc%=25|
00005a90  36 3a 62 65 73 74 25 3d  2d 31 0d 23 fa 13 e3 20  |6:best%=-1.#... |
00005aa0  6d 6f 64 65 25 3d 30 20  b8 20 31 32 37 0d 24 04  |mode%=0 . 127.$.|
00005ab0  31 20 c8 99 20 22 58 4f  53 5f 52 65 61 64 4d 6f  |1 .. "XOS_ReadMo|
00005ac0  64 65 56 61 72 69 61 62  6c 65 22 2c 6d 6f 64 65  |deVariable",mode|
00005ad0  25 2c 33 20 b8 20 2c 2c  6e 63 25 3b 45 25 0d 24  |%,3 . ,,nc%;E%.$|
00005ae0  0e 2c 20 e7 20 28 45 25  20 80 20 31 29 3d 30 20  |., . (E% . 1)=0 |
00005af0  80 20 6e 63 25 2b 31 3e  3d 63 6f 6c 73 25 20 80  |. nc%+1>=cols% .|
00005b00  20 6e 63 25 3c 6c 63 25  20 8c 0d 24 18 49 20 20  | nc%<lc% ..$.I  |
00005b10  e7 20 a4 4d 6f 64 65 56  61 72 28 31 31 29 2b 31  |. .ModeVar(11)+1|
00005b20  3d 78 72 65 73 25 20 80  20 a4 4d 6f 64 65 56 61  |=xres% . .ModeVa|
00005b30  72 28 31 32 29 2b 31 3d  79 72 65 73 25 20 8c 20  |r(12)+1=yres% . |
00005b40  62 65 73 74 25 3d 6d 6f  64 65 25 3a 6c 63 25 3d  |best%=mode%:lc%=|
00005b50  6e 63 25 0d 24 22 06 20  cd 0d 24 2c 05 ed 0d 24  |nc%.$". ..$,...$|
00005b60  36 0a 3d 62 65 73 74 25  0d 24 40 05 3a 0d 24 4a  |6.=best%.$@.:.$J|
00005b70  0d dd 20 f2 73 61 76 65  69 74 0d 24 54 0e 64 69  |.. .saveit.$T.di|
00005b80  72 24 3d 66 69 6c 65 24  0d 24 5e 32 c8 95 20 a7  |r$=file$.$^2.. .|
00005b90  66 69 6c 65 24 2c 22 2e  22 29 3e 30 3a 66 69 6c  |file$,".")>0:fil|
00005ba0  65 24 3d c1 66 69 6c 65  24 2c a7 66 69 6c 65 24  |e$=.file$,.file$|
00005bb0  2c 22 2e 22 29 2b 31 29  3a ce 0d 24 68 27 64 69  |,".")+1):..$h'di|
00005bc0  72 24 3d c0 64 69 72 24  2c a9 64 69 72 24 2d a9  |r$=.dir$,.dir$-.|
00005bd0  66 69 6c 65 24 2d 31 29  2b 22 2e 61 6e 69 6d 73  |file$-1)+".anims|
00005be0  22 0d 24 72 1d c8 99 20  22 4f 53 5f 46 69 6c 65  |".$r... "OS_File|
00005bf0  22 2c 35 2c 64 69 72 24  20 b8 20 6f 74 25 0d 24  |",5,dir$ . ot%.$|
00005c00  7c 64 e7 20 6f 74 25 3c  3e 31 20 8c 20 c8 99 20  ||d. ot%<>1 . .. |
00005c10  22 4f 53 5f 50 72 65 74  74 79 50 72 69 6e 74 22  |"OS_PrettyPrint"|
00005c20  2c bd 31 33 2b 22 50 72  65 73 73 20 53 20 6e 6f  |,.13+"Press S no|
00005c30  77 20 74 6f 20 73 61 76  65 20 74 68 65 20 61 6e  |w to save the an|
00005c40  69 6d 61 74 69 6f 6e 20  61 73 20 22 2b 64 69 72  |imation as "+dir|
00005c50  24 2b 22 2e 22 2b 66 69  6c 65 24 2b bd 31 33 2b  |$+"."+file$+.13+|
00005c60  bd 30 0d 24 86 0c 2a 66  78 20 32 31 20 30 0d 24  |.0.$..*fx 21 0.$|
00005c70  90 08 6b 24 3d be 0d 24  9a 14 e7 20 6f 74 25 3d  |..k$=..$... ot%=|
00005c80  31 20 8c 20 6b 24 3d 22  78 22 0d 24 a4 17 e7 20  |1 . k$="x".$... |
00005c90  6b 24 3d 22 53 22 20 84  20 6b 24 3d 22 73 22 20  |k$="S" . k$="s" |
00005ca0  8c 0d 24 ae 22 20 e7 20  6f 74 25 3d 30 20 8c 20  |..$." . ot%=0 . |
00005cb0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 38 2c 64  |.. "OS_File",8,d|
00005cc0  69 72 24 0d 24 b8 1a 20  f2 73 61 76 65 28 64 69  |ir$.$.. .save(di|
00005cd0  72 24 2b 22 2e 22 2b 66  69 6c 65 24 29 0d 24 c2  |r$+"."+file$).$.|
00005ce0  05 cd 0d 24 cc 05 e1 0d  24 d6 05 3a 0d 24 e0 12  |...$....$..:.$..|
00005cf0  dd 20 f2 73 61 76 65 28  66 69 6c 65 24 29 0d 24  |. .save(file$).$|
00005d00  ea 0b ea 20 45 25 2c 46  25 0d 24 f4 2e e7 20 21  |... E%,F%.$... !|
00005d10  73 74 6f 72 65 70 6f 73  3d 30 20 8c 20 45 25 3d  |storepos=0 . E%=|
00005d20  73 74 6f 72 65 6e 64 25  20 8b 20 45 25 3d 21 73  |storend% . E%=!s|
00005d30  74 6f 72 65 70 6f 73 0d  24 fe 10 46 25 3d 73 74  |torepos.$..F%=st|
00005d40  6f 72 65 25 2d 31 36 0d  25 08 25 c8 99 20 22 4f  |ore%-16.%.%.. "O|
00005d50  53 5f 46 69 6c 65 22 2c  26 41 2c 66 69 6c 65 24  |S_File",&A,file$|
00005d60  2c 26 33 43 37 2c 2c 46  25 2c 45 25 0d 25 12 05  |,&3C7,,F%,E%.%..|
00005d70  e1 0d 25 1c 05 3a 0d 25  26 1a dd 20 f2 6c 6f 61  |..%..:.%&.. .loa|
00005d80  64 28 66 69 6c 65 24 2c  6c 65 6e 67 74 68 25 29  |d(file$,length%)|
00005d90  0d 25 30 14 de 20 73 74  6f 72 65 25 20 6c 65 6e  |.%0.. store% len|
00005da0  67 74 68 25 0d 25 3a 1c  f1 22 4c 6f 61 64 69 6e  |gth%.%:.."Loadin|
00005db0  67 20 61 6e 69 6d 61 74  69 6f 6e 2e 2e 2e 22 3b  |g animation...";|
00005dc0  0d 25 44 23 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |.%D#.. "OS_File"|
00005dd0  2c 26 31 30 2c 66 69 6c  65 24 2c 73 74 6f 72 65  |,&10,file$,store|
00005de0  25 2c 30 0d 25 4e 0e 73  74 6f 72 65 25 2b 3d 31  |%,0.%N.store%+=1|
00005df0  36 0d 25 58 0b 61 6e 69  6d 25 3d b9 0d 25 62 05  |6.%X.anim%=..%b.|
00005e00  e1 0d 25 6c 05 3a 0d 25  76 12 dd 20 f2 69 6e 69  |..%l.:.%v.. .ini|
00005e10  74 5f 72 65 70 6c 61 79  0d 25 80 34 e7 20 73 74  |t_replay.%.4. st|
00005e20  6f 72 65 25 21 2d 31 36  3c 3e 32 31 36 20 8c 20  |ore%!-16<>216 . |
00005e30  85 20 31 2c 22 46 69 6c  65 20 76 65 72 73 69 6f  |. 1,"File versio|
00005e40  6e 20 6e 6f 74 20 6b 6e  6f 77 6e 22 0d 25 8a 14  |n not known".%..|
00005e50  78 72 65 73 25 3d 73 74  6f 72 65 25 21 2d 31 32  |xres%=store%!-12|
00005e60  0d 25 94 28 79 72 65 73  25 3d 78 72 65 73 25 20  |.%.(yres%=xres% |
00005e70  80 20 26 46 46 46 46 3a  78 72 65 73 25 3d 78 72  |. &FFFF:xres%=xr|
00005e80  65 73 25 3e 3e 3e 31 36  0d 25 9e 1b 73 74 6f 73  |es%>>>16.%..stos|
00005e90  74 79 6c 65 25 3d 28 73  74 6f 72 65 25 21 2d 34  |tyle%=(store%!-4|
00005ea0  29 2d 31 0d 25 a8 40 e7  20 73 74 6f 73 74 79 6c  |)-1.%.@. stostyl|
00005eb0  65 25 3c 3e 30 20 80 20  73 74 6f 73 74 79 6c 65  |e%<>0 . stostyle|
00005ec0  25 3c 3e 31 20 8c 20 85  20 31 2c 22 53 74 6f 72  |%<>1 . . 1,"Stor|
00005ed0  61 67 65 20 74 79 70 65  20 6e 6f 74 20 6b 6e 6f  |age type not kno|
00005ee0  77 6e 22 0d 25 b2 1e 6d  6f 64 65 25 3d a4 6d 6f  |wn".%..mode%=.mo|
00005ef0  64 65 28 78 72 65 73 25  2c 79 72 65 73 25 2c 32  |de(xres%,yres%,2|
00005f00  29 0d 25 bc 31 e7 20 6d  6f 64 65 25 3c 30 20 85  |).%.1. mode%<0 .|
00005f10  20 31 2c 22 4e 6f 20 73  75 69 74 61 62 6c 65 20  | 1,"No suitable |
00005f20  73 63 72 65 65 6e 20 6d  6f 64 65 20 66 6f 75 6e  |screen mode foun|
00005f30  64 22 0d 25 c6 20 f2 61  73 73 65 6d 73 74 6f 72  |d".%. .assemstor|
00005f40  65 28 6d 6f 64 65 25 2c  73 74 6f 73 74 79 6c 65  |e(mode%,stostyle|
00005f50  25 29 0d 25 d0 10 f2 69  6e 69 74 5f 73 63 72 65  |%).%...init_scre|
00005f60  65 6e 0d 25 da 05 e1 0d  25 e4 05 3a 0d 25 ee 1c  |en.%....%..:.%..|
00005f70  dd 20 f2 72 65 70 65 6c  5f 70 6f 69 6e 74 73 28  |. .repel_points(|
00005f80  74 31 25 2c 74 32 25 29  0d 25 f8 38 ea 20 69 25  |t1%,t2%).%.8. i%|
00005f90  2c 6a 25 2c 66 31 25 2c  66 31 32 25 2c 63 31 25  |,j%,f1%,f12%,c1%|
00005fa0  2c 63 32 25 2c 78 25 2c  79 25 2c 7a 25 2c 78 31  |,c2%,x%,y%,z%,x1|
00005fb0  25 2c 79 31 25 2c 7a 31  25 2c 76 31 25 2c 52 25  |%,y1%,z1%,v1%,R%|
00005fc0  0d 26 02 1a 66 31 32 25  3d 74 31 25 21 72 65 70  |.&..f12%=t1%!rep|
00005fd0  25 2a 74 32 25 21 72 65  70 25 0d 26 0c 29 73 25  |%*t2%!rep%.&.)s%|
00005fe0  3d 74 31 25 21 73 65 70  25 3a e7 20 73 25 3e 74  |=t1%!sep%:. s%>t|
00005ff0  32 25 21 73 65 70 25 20  73 25 3d 74 32 25 21 73  |2%!sep% s%=t2%!s|
00006000  65 70 25 0d 26 16 0b 73  25 3d 73 25 2a 32 0d 26  |ep%.&..s%=s%*2.&|
00006010  20 11 72 25 3d 28 73 25  2f 31 32 38 29 5e 32 0d  | .r%=(s%/128)^2.|
00006020  26 2a 2a 63 31 25 3d 74  31 25 21 63 6f 30 25 3a  |&**c1%=t1%!co0%:|
00006030  76 31 25 3d 74 31 25 21  76 65 6c 25 3a 66 31 25  |v1%=t1%!vel%:f1%|
00006040  3d 74 31 25 21 70 74 66  25 0d 26 34 10 21 66 72  |=t1%!ptf%.&4.!fr|
00006050  69 63 74 3d 66 72 73 68  25 0d 26 3e 1a 21 70 74  |ict=frsh%.&>.!pt|
00006060  73 31 32 3d 31 32 2a 28  74 32 25 21 6e 6f 70 25  |s12=12*(t2%!nop%|
00006070  2d 31 29 0d 26 48 17 e3  20 69 25 3d 30 20 b8 20  |-1).&H.. i%=0 . |
00006080  74 31 25 21 6e 6f 70 25  2d 31 0d 26 52 15 20 e7  |t1%!nop%-1.&R. .|
00006090  20 28 66 31 25 3f 69 25  29 20 80 20 33 20 8c 0d  | (f1%?i%) . 3 ..|
000060a0  26 5c 23 20 20 78 31 25  3d 63 31 25 21 30 3a 79  |&\#  x1%=c1%!0:y|
000060b0  31 25 3d 63 31 25 21 34  3a 7a 31 25 3d 63 31 25  |1%=c1%!4:z1%=c1%|
000060c0  21 38 0d 26 66 26 20 20  66 25 3d 66 31 32 25 3a  |!8.&f&  f%=f12%:|
000060d0  e7 20 28 66 31 25 3f 69  25 29 20 80 20 32 20 8c  |. (f1%?i%) . 2 .|
000060e0  20 66 25 3d 66 25 2a 34  0d 26 70 20 20 20 21 76  | f%=f%*4.&p   !v|
000060f0  31 70 6f 73 3d 76 31 25  3a 21 76 32 70 6f 73 3d  |1pos=v1%:!v2pos=|
00006100  74 32 25 21 76 65 6c 25  0d 26 7a 33 20 20 f2 74  |t2%!vel%.&z3  .t|
00006110  65 6d 70 28 78 31 25 2c  79 31 25 2c 7a 31 25 2c  |emp(x1%,y1%,z1%,|
00006120  74 32 25 21 63 6f 30 25  2c 74 32 25 21 70 74 66  |t2%!co0%,t2%!ptf|
00006130  25 2c 66 25 2c 73 25 2c  72 25 29 0d 26 84 06 20  |%,f%,s%,r%).&.. |
00006140  cd 0d 26 8e 14 20 63 31  25 2b 3d 31 32 3a 76 31  |..&.. c1%+=12:v1|
00006150  25 2b 3d 31 32 0d 26 98  05 ed 0d 26 a2 05 e1 0d  |%+=12.&....&....|
00006160  26 ac 05 3a 0d 26 b6 24  dd 20 f2 74 65 6d 70 28  |&..:.&.$. .temp(|
00006170  41 25 2c 42 25 2c 43 25  2c 44 25 2c 45 25 2c 46  |A%,B%,C%,D%,E%,F|
00006180  25 2c 47 25 2c 48 25 29  0d 26 c0 10 d6 20 72 65  |%,G%,H%).&... re|
00006190  70 65 6c 5f 63 6f 64 65  0d 26 ca 05 e1 0d 26 d4  |pel_code.&....&.|
000061a0  05 3a 0d 26 de 1c dd 20  f2 72 65 70 65 6c 5f 6f  |.:.&... .repel_o|
000061b0  62 6a 65 63 74 73 28 69  25 2c 74 31 25 29 0d 26  |bjects(i%,t1%).&|
000061c0  e8 24 e7 20 69 25 3e 6f  62 6a 65 63 74 73 25 2d  |.$. i%>objects%-|
000061d0  32 20 84 20 74 31 25 21  70 74 66 25 3d 30 20 8c  |2 . t1%!ptf%=0 .|
000061e0  20 e1 0d 26 f2 0c ea 20  6a 25 2c 74 32 25 0d 26  | ..&... j%,t2%.&|
000061f0  fc 1a e3 20 6a 25 3d 69  25 2b 31 20 b8 20 6f 62  |... j%=i%+1 . ob|
00006200  6a 65 63 74 73 25 2d 31  0d 27 06 1c 20 74 32 25  |jects%-1.'.. t2%|
00006210  3d 77 6f 72 6c 64 25 2b  6a 25 2a 65 6c 73 69 7a  |=world%+j%*elsiz|
00006220  25 28 37 29 0d 27 10 2a  20 e7 20 74 32 25 21 70  |%(7).'.* . t2%!p|
00006230  74 66 25 3e 30 20 8c 20  f2 72 65 70 65 6c 5f 70  |tf%>0 . .repel_p|
00006240  6f 69 6e 74 73 28 74 31  25 2c 74 32 25 29 0d 27  |oints(t1%,t2%).'|
00006250  1a 05 ed 0d 27 24 05 e1  0d 27 2e 05 3a 0d 27 38  |....'$...'..:.'8|
00006260  1c dd 20 f2 72 6f 74 5f  64 61 6d 70 28 74 68 69  |.. .rot_damp(thi|
00006270  6e 67 25 2c 64 73 68 25  29 0d 27 42 40 ea 20 70  |ng%,dsh%).'B@. p|
00006280  25 2c 76 65 25 2c 63 6f  25 2c 78 2c 79 2c 7a 2c  |%,ve%,co%,x,y,z,|
00006290  76 78 2c 76 79 2c 76 7a  2c 78 63 2c 79 63 2c 7a  |vx,vy,vz,xc,yc,z|
000062a0  63 2c 76 78 63 2c 76 79  63 2c 76 7a 63 2c 4c 78  |c,vxc,vyc,vzc,Lx|
000062b0  2c 4c 79 2c 4c 7a 2c 69  25 0d 27 4c 12 70 25 3d  |,Ly,Lz,i%.'L.p%=|
000062c0  74 68 69 6e 67 25 21 6e  6f 70 25 0d 27 56 04 0d  |thing%!nop%.'V..|
000062d0  27 60 2d f4 20 66 69 6e  64 20 63 65 6e 74 72 65  |'`-. find centre|
000062e0  20 6f 66 20 6d 61 73 73  20 61 6e 64 20 6c 69 6e  | of mass and lin|
000062f0  65 61 72 20 76 65 6c 6f  63 69 74 79 0d 27 6a 12  |ear velocity.'j.|
00006300  78 63 3d 30 3a 79 63 3d  30 3a 7a 63 3d 30 0d 27  |xc=0:yc=0:zc=0.'|
00006310  74 15 76 78 63 3d 30 3a  76 79 63 3d 30 3a 76 7a  |t.vxc=0:vyc=0:vz|
00006320  63 3d 30 0d 27 7e 13 76  65 25 3d 74 68 69 6e 67  |c=0.'~.ve%=thing|
00006330  25 21 76 65 6c 25 0d 27  88 13 63 6f 25 3d 74 68  |%!vel%.'..co%=th|
00006340  69 6e 67 25 21 63 6f 30  25 0d 27 92 11 e3 20 69  |ing%!co0%.'... i|
00006350  25 3d 30 20 b8 20 70 25  2d 31 0d 27 9c 22 20 78  |%=0 . p%-1.'." x|
00006360  63 2b 3d 63 6f 25 21 30  3a 79 63 2b 3d 63 6f 25  |c+=co%!0:yc+=co%|
00006370  21 34 3a 7a 63 2b 3d 63  6f 25 21 38 0d 27 a6 25  |!4:zc+=co%!8.'.%|
00006380  20 76 78 63 2b 3d 76 65  25 21 30 3a 76 79 63 2b  | vxc+=ve%!0:vyc+|
00006390  3d 76 65 25 21 34 3a 76  7a 63 2b 3d 76 65 25 21  |=ve%!4:vzc+=ve%!|
000063a0  38 0d 27 b0 14 20 76 65  25 2b 3d 31 32 3a 63 6f  |8.'.. ve%+=12:co|
000063b0  25 2b 3d 31 32 0d 27 ba  05 ed 0d 27 c4 24 76 78  |%+=12.'....'.$vx|
000063c0  63 3d 76 78 63 2f 70 25  3a 76 79 63 3d 76 79 63  |c=vxc/p%:vyc=vyc|
000063d0  2f 70 25 3a 76 7a 63 3d  76 7a 63 2f 70 25 0d 27  |/p%:vzc=vzc/p%.'|
000063e0  ce 1e 78 63 3d 78 63 2f  70 25 3a 79 63 3d 79 63  |..xc=xc/p%:yc=yc|
000063f0  2f 70 25 3a 7a 63 3d 7a  63 2f 70 25 0d 27 d8 04  |/p%:zc=zc/p%.'..|
00006400  0d 27 e2 1e f4 20 66 69  6e 64 20 61 6e 67 2e 20  |.'... find ang. |
00006410  6d 6f 6d 2e 20 61 62 6f  75 74 20 43 6f 4d 0d 27  |mom. about CoM.'|
00006420  ec 12 4c 78 3d 30 3a 4c  79 3d 30 3a 4c 7a 3d 30  |..Lx=0:Ly=0:Lz=0|
00006430  0d 27 f6 13 76 65 25 3d  74 68 69 6e 67 25 21 76  |.'..ve%=thing%!v|
00006440  65 6c 25 0d 28 00 13 63  6f 25 3d 74 68 69 6e 67  |el%.(..co%=thing|
00006450  25 21 63 6f 30 25 0d 28  0a 11 e3 20 69 25 3d 30  |%!co0%.(... i%=0|
00006460  20 b8 20 70 25 2d 31 0d  28 14 25 20 78 3d 63 6f  | . p%-1.(.% x=co|
00006470  25 21 30 2d 78 63 3a 79  3d 63 6f 25 21 34 2d 79  |%!0-xc:y=co%!4-y|
00006480  63 3a 7a 3d 63 6f 25 21  38 2d 7a 63 0d 28 1e 2b  |c:z=co%!8-zc.(.+|
00006490  20 76 78 3d 76 65 25 21  30 2d 76 78 63 3a 76 79  | vx=ve%!0-vxc:vy|
000064a0  3d 76 65 25 21 34 2d 76  79 63 3a 76 7a 3d 76 65  |=ve%!4-vyc:vz=ve|
000064b0  25 21 38 2d 76 7a 63 0d  28 28 2e 20 4c 78 2d 3d  |%!8-vzc.((. Lx-=|
000064c0  79 2a 76 7a 2d 7a 2a 76  79 3a 4c 79 2d 3d 7a 2a  |y*vz-z*vy:Ly-=z*|
000064d0  76 78 2d 78 2a 76 7a 3a  4c 7a 2d 3d 78 2a 76 79  |vx-x*vz:Lz-=x*vy|
000064e0  2d 79 2a 76 78 0d 28 32  14 20 76 65 25 2b 3d 31  |-y*vx.(2. ve%+=1|
000064f0  32 3a 63 6f 25 2b 3d 31  32 0d 28 3c 05 ed 0d 28  |2:co%+=12.(<...(|
00006500  46 1a 4c 3d b6 28 4c 78  2a 4c 78 2b 4c 79 2a 4c  |F.L=.(Lx*Lx+Ly*L|
00006510  79 2b 4c 7a 2a 4c 7a 29  0d 28 50 0b e7 20 4c 3d  |y+Lz*Lz).(P.. L=|
00006520  30 20 8c 0d 28 5a 13 20  61 78 3d 30 3a 61 79 3d  |0 ..(Z. ax=0:ay=|
00006530  30 3a 61 7a 3d 30 0d 28  64 05 cc 0d 28 6e 32 20  |0:az=0.(d...(n2 |
00006540  f4 20 66 69 6e 64 20 6d  6f 6d 65 6e 74 20 6f 66  |. find moment of|
00006550  20 69 6e 65 72 74 69 61  20 61 62 6f 75 74 20 61  | inertia about a|
00006560  6e 67 2e 20 6d 6f 6d 2e  20 61 78 69 73 0d 28 78  |ng. mom. axis.(x|
00006570  21 20 f4 20 20 61 6e 64  20 68 65 6e 63 65 20 72  |! .  and hence r|
00006580  6f 74 61 74 69 6f 6e 20  76 65 63 74 6f 72 0d 28  |otation vector.(|
00006590  82 1f 20 6e 4c 78 3d 4c  78 2f 4c 3a 6e 4c 79 3d  |.. nLx=Lx/L:nLy=|
000065a0  4c 79 2f 4c 3a 6e 4c 7a  3d 4c 7a 2f 4c 0d 28 8c  |Ly/L:nLz=Lz/L.(.|
000065b0  08 20 49 3d 30 0d 28 96  14 20 63 6f 25 3d 74 68  |. I=0.(.. co%=th|
000065c0  69 6e 67 25 21 63 6f 30  25 0d 28 a0 12 20 e3 20  |ing%!co0%.(.. . |
000065d0  69 25 3d 30 20 b8 20 70  25 2d 31 0d 28 aa 26 20  |i%=0 . p%-1.(.& |
000065e0  20 78 3d 63 6f 25 21 30  2d 78 63 3a 79 3d 63 6f  | x=co%!0-xc:y=co|
000065f0  25 21 34 2d 79 63 3a 7a  3d 63 6f 25 21 38 2d 7a  |%!4-yc:z=co%!8-z|
00006600  63 0d 28 b4 19 20 20 61  3d 6e 4c 78 2a 78 2b 6e  |c.(..  a=nLx*x+n|
00006610  4c 79 2a 79 2b 6e 4c 7a  2a 7a 0d 28 be 26 20 20  |Ly*y+nLz*z.(.&  |
00006620  64 78 3d 78 2d 6e 4c 78  2a 61 3a 64 79 3d 79 2d  |dx=x-nLx*a:dy=y-|
00006630  6e 4c 79 2a 61 3a 64 7a  3d 7a 2d 6e 4c 7a 2a 61  |nLy*a:dz=z-nLz*a|
00006640  0d 28 c8 1a 20 20 49 2b  3d 64 78 2a 64 78 2b 64  |.(..  I+=dx*dx+d|
00006650  79 2a 64 79 2b 64 7a 2a  64 7a 0d 28 d2 0d 20 20  |y*dy+dz*dz.(..  |
00006660  63 6f 25 2b 3d 31 32 0d  28 dc 06 20 ed 0d 28 e6  |co%+=12.(.. ..(.|
00006670  1c 20 61 78 3d 4c 78 2f  49 3a 61 79 3d 4c 79 2f  |. ax=Lx/I:ay=Ly/|
00006680  49 3a 61 7a 3d 4c 7a 2f  49 0d 28 f0 05 cd 0d 28  |I:az=Lz/I.(....(|
00006690  fa 04 0d 29 04 13 76 65  25 3d 74 68 69 6e 67 25  |...)..ve%=thing%|
000066a0  21 76 65 6c 25 0d 29 0e  13 63 6f 25 3d 74 68 69  |!vel%.)..co%=thi|
000066b0  6e 67 25 21 63 6f 30 25  0d 29 18 0e e7 20 64 73  |ng%!co0%.)... ds|
000066c0  68 25 3c 30 20 8c 0d 29  22 12 20 e3 20 69 25 3d  |h%<0 ..)". . i%=|
000066d0  30 20 b8 20 70 25 2d 31  0d 29 2c 26 20 20 78 3d  |0 . p%-1.),&  x=|
000066e0  63 6f 25 21 30 2d 78 63  3a 79 3d 63 6f 25 21 34  |co%!0-xc:y=co%!4|
000066f0  2d 79 63 3a 7a 3d 63 6f  25 21 38 2d 7a 63 0d 29  |-yc:z=co%!8-zc.)|
00006700  36 19 20 20 76 65 25 21  30 3d 76 78 63 2b 79 2a  |6.  ve%!0=vxc+y*|
00006710  61 7a 2d 7a 2a 61 79 0d  29 40 19 20 20 76 65 25  |az-z*ay.)@.  ve%|
00006720  21 34 3d 76 79 63 2b 7a  2a 61 78 2d 78 2a 61 7a  |!4=vyc+z*ax-x*az|
00006730  0d 29 4a 19 20 20 76 65  25 21 38 3d 76 7a 63 2b  |.)J.  ve%!8=vzc+|
00006740  78 2a 61 79 2d 79 2a 61  78 0d 29 54 15 20 20 76  |x*ay-y*ax.)T.  v|
00006750  65 25 2b 3d 31 32 3a 63  6f 25 2b 3d 31 32 0d 29  |e%+=12:co%+=12.)|
00006760  5e 06 20 ed 0d 29 68 05  cc 0d 29 72 16 20 64 73  |^. ..)h...)r. ds|
00006770  68 25 3d 31 3c 3c 28 64  73 68 25 2b 31 34 29 0d  |h%=1<<(dsh%+14).|
00006780  29 7c 12 20 e3 20 69 25  3d 30 20 b8 20 70 25 2d  |)|. . i%=0 . p%-|
00006790  31 0d 29 86 26 20 20 78  3d 63 6f 25 21 30 2d 78  |1.).&  x=co%!0-x|
000067a0  63 3a 79 3d 63 6f 25 21  34 2d 79 63 3a 7a 3d 63  |c:y=co%!4-yc:z=c|
000067b0  6f 25 21 38 2d 7a 63 0d  29 90 16 20 20 76 78 3d  |o%!8-zc.)..  vx=|
000067c0  76 78 63 2b 79 2a 61 7a  2d 7a 2a 61 79 0d 29 9a  |vxc+y*az-z*ay.).|
000067d0  16 20 20 76 79 3d 76 79  63 2b 7a 2a 61 78 2d 78  |.  vy=vyc+z*ax-x|
000067e0  2a 61 7a 0d 29 a4 16 20  20 76 7a 3d 76 7a 63 2b  |*az.)..  vz=vzc+|
000067f0  78 2a 61 79 2d 79 2a 61  78 0d 29 ae 26 20 20 78  |x*ay-y*ax.).&  x|
00006800  3d 76 65 25 21 30 2d 76  78 3a 79 3d 76 65 25 21  |=ve%!0-vx:y=ve%!|
00006810  34 2d 76 79 3a 7a 3d 76  65 25 21 38 2d 76 7a 0d  |4-vy:z=ve%!8-vz.|
00006820  29 b8 22 20 20 49 3d 64  73 68 25 2f 28 b6 28 78  |)."  I=dsh%/(.(x|
00006830  2a 78 2b 79 2a 79 2b 7a  2a 7a 29 2b 64 73 68 25  |*x+y*y+z*z)+dsh%|
00006840  29 0d 29 c2 2c 20 20 76  65 25 21 30 3d 76 78 2b  |).).,  ve%!0=vx+|
00006850  78 2a 49 3a 76 65 25 21  34 3d 76 79 2b 79 2a 49  |x*I:ve%!4=vy+y*I|
00006860  3a 76 65 25 21 38 3d 76  7a 2b 7a 2a 49 0d 29 cc  |:ve%!8=vz+z*I.).|
00006870  15 20 20 76 65 25 2b 3d  31 32 3a 63 6f 25 2b 3d  |.  ve%+=12:co%+=|
00006880  31 32 0d 29 d6 06 20 ed  0d 29 e0 05 cd 0d 29 ea  |12.).. ..)....).|
00006890  05 e1 0d 29 f4 05 3a 0d  29 fe 1c dd 20 f2 61 69  |...)..:.)... .ai|
000068a0  72 5f 64 61 6d 70 28 74  68 69 6e 67 25 2c 64 73  |r_damp(thing%,ds|
000068b0  68 25 29 0d 2a 08 17 ea  20 66 25 2c 69 25 2c 78  |h%).*... f%,i%,x|
000068c0  2c 79 2c 7a 2c 49 2c 76  65 25 0d 2a 12 1b 66 25  |,y,z,I,ve%.*..f%|
000068d0  3d a4 70 6f 69 6e 74 5f  66 6c 61 67 73 28 74 68  |=.point_flags(th|
000068e0  69 6e 67 25 29 0d 2a 1c  13 76 65 25 3d 74 68 69  |ing%).*..ve%=thi|
000068f0  6e 67 25 21 76 65 6c 25  0d 2a 26 15 64 73 68 25  |ng%!vel%.*&.dsh%|
00006900  3d 31 3c 3c 28 64 73 68  25 2b 31 34 29 0d 2a 30  |=1<<(dsh%+14).*0|
00006910  1a e3 20 69 25 3d 30 20  b8 20 74 68 69 6e 67 25  |.. i%=0 . thing%|
00006920  21 6e 6f 70 25 2d 31 0d  2a 3a 12 20 e7 20 66 25  |!nop%-1.*:. . f%|
00006930  3f 69 25 20 80 20 31 20  8c 0d 2a 44 1d 20 20 78  |?i% . 1 ..*D.  x|
00006940  3d 76 65 25 21 30 3a 79  3d 76 65 25 21 34 3a 7a  |=ve%!0:y=ve%!4:z|
00006950  3d 76 65 25 21 38 0d 2a  4e 22 20 20 49 3d 64 73  |=ve%!8.*N"  I=ds|
00006960  68 25 2f 28 b6 28 78 2a  78 2b 79 2a 79 2b 7a 2a  |h%/(.(x*x+y*y+z*|
00006970  7a 29 2b 64 73 68 25 29  0d 2a 58 23 20 20 76 65  |z)+dsh%).*X#  ve|
00006980  25 21 30 3d 78 2a 49 3a  76 65 25 21 34 3d 79 2a  |%!0=x*I:ve%!4=y*|
00006990  49 3a 76 65 25 21 38 3d  7a 2a 49 0d 2a 62 0d 20  |I:ve%!8=z*I.*b. |
000069a0  20 76 65 25 2b 3d 31 32  0d 2a 6c 06 20 cd 0d 2a  | ve%+=12.*l. ..*|
000069b0  76 05 ed 0d 2a 80 05 e1  0d 2a 8a 05 3a 0d 2a 94  |v...*....*..:.*.|
000069c0  17 dd 20 f2 6d 6f 76 65  28 6f 6e 25 2c 74 68 69  |.. .move(on%,thi|
000069d0  6e 67 25 29 0d 2a 9e 1f  e7 20 71 75 69 74 25 20  |ng%).*... quit% |
000069e0  84 20 74 68 69 6e 67 25  21 76 65 6c 25 3d 30 20  |. thing%!vel%=0 |
000069f0  8c 20 e1 0d 2a a8 15 c8  99 20 22 48 6f 75 72 67  |. ..*.... "Hourg|
00006a00  6c 61 73 73 5f 4f 6e 22  0d 2a b2 11 f2 64 61 6d  |lass_On".*...dam|
00006a10  70 28 74 68 69 6e 67 25  29 0d 2a bc 17 f2 61 6c  |p(thing%).*...al|
00006a20  74 65 72 5f 76 65 6c 73  28 74 68 69 6e 67 25 29  |ter_vels(thing%)|
00006a30  0d 2a c6 28 e7 20 74 68  69 6e 67 25 21 72 64 6d  |.*.(. thing%!rdm|
00006a40  25 3c 30 20 f2 72 6f 74  5f 64 61 6d 70 28 74 68  |%<0 .rot_damp(th|
00006a50  69 6e 67 25 2c 2d 31 29  0d 2a d0 15 f2 61 64 64  |ing%,-1).*...add|
00006a60  5f 76 65 6c 73 28 74 68  69 6e 67 25 29 0d 2a da  |_vels(thing%).*.|
00006a70  16 c8 99 20 22 48 6f 75  72 67 6c 61 73 73 5f 4f  |... "Hourglass_O|
00006a80  66 66 22 0d 2a e4 05 e1  0d 2a ee 05 3a 0d 2a f8  |ff".*....*..:.*.|
00006a90  13 dd 20 f2 64 61 6d 70  28 74 68 69 6e 67 25 29  |.. .damp(thing%)|
00006aa0  0d 2b 02 0a ea 20 70 74  73 25 0d 2b 0c 14 70 74  |.+... pts%.+..pt|
00006ab0  73 25 3d 74 68 69 6e 67  25 21 6e 6f 70 25 0d 2b  |s%=thing%!nop%.+|
00006ac0  16 16 21 76 65 70 6f 73  3d 74 68 69 6e 67 25 21  |..!vepos=thing%!|
00006ad0  76 65 6c 25 0d 2b 20 16  21 63 6f 70 6f 73 3d 74  |vel%.+ .!copos=t|
00006ae0  68 69 6e 67 25 21 63 6f  30 25 0d 2b 2a 16 21 70  |hing%!co0%.+*.!p|
00006af0  74 73 31 32 3d 31 32 2a  28 70 74 73 25 2d 31 29  |ts12=12*(pts%-1)|
00006b00  0d 2b 34 4a e7 20 74 68  69 6e 67 25 21 72 64 6d  |.+4J. thing%!rdm|
00006b10  25 3c 33 32 20 80 20 74  68 69 6e 67 25 21 72 64  |%<32 . thing%!rd|
00006b20  6d 25 3e 3d 30 20 8c 20  f2 72 6f 74 5f 64 61 6d  |m%>=0 . .rot_dam|
00006b30  70 28 74 68 69 6e 67 25  2c 74 68 69 6e 67 25 21  |p(thing%,thing%!|
00006b40  72 64 6d 25 2b 74 73 68  25 29 0d 2b 3e 39 e7 20  |rdm%+tsh%).+>9. |
00006b50  74 68 69 6e 67 25 21 61  64 6d 25 3c 33 32 20 8c  |thing%!adm%<32 .|
00006b60  20 f2 61 69 72 5f 64 61  6d 70 28 74 68 69 6e 67  | .air_damp(thing|
00006b70  25 2c 74 68 69 6e 67 25  21 61 64 6d 25 2b 74 73  |%,thing%!adm%+ts|
00006b80  68 25 29 0d 2b 48 3a e7  20 74 68 69 6e 67 25 21  |h%).+H:. thing%!|
00006b90  6f 64 6d 25 3c 33 32 20  8c 20 21 64 61 6d 70 73  |odm%<32 . !damps|
00006ba0  68 3d 74 68 69 6e 67 25  21 6f 64 6d 25 2b 74 73  |h=thing%!odm%+ts|
00006bb0  68 25 3a d6 20 6f 6c 64  5f 64 61 6d 70 0d 2b 52  |h%:. old_damp.+R|
00006bc0  05 e1 0d 2b 5c 05 3a 0d  2b 66 19 dd 20 f2 61 6c  |...+\.:.+f.. .al|
00006bd0  74 65 72 5f 76 65 6c 73  28 74 68 69 6e 67 25 29  |ter_vels(thing%)|
00006be0  0d 2b 70 35 ea 20 70 74  73 25 2c 76 62 25 2c 63  |.+p5. pts%,vb%,c|
00006bf0  62 25 2c 41 25 2c 42 25  2c 45 25 2c 46 25 2c 78  |b%,A%,B%,E%,F%,x|
00006c00  2c 79 2c 7a 2c 6e 78 2c  6e 79 2c 6e 7a 2c 68 25  |,y,z,nx,ny,nz,h%|
00006c10  2c 66 6c 78 25 0d 2b 7a  14 70 74 73 25 3d 74 68  |,flx%.+z.pts%=th|
00006c20  69 6e 67 25 21 6e 6f 70  25 0d 2b 84 16 21 76 65  |ing%!nop%.+..!ve|
00006c30  70 6f 73 3d 74 68 69 6e  67 25 21 76 65 6c 25 0d  |pos=thing%!vel%.|
00006c40  2b 8e 16 21 63 6f 70 6f  73 3d 74 68 69 6e 67 25  |+..!copos=thing%|
00006c50  21 63 6f 30 25 0d 2b 98  04 0d 2b a2 16 e7 20 74  |!co0%.+...+... t|
00006c60  68 69 6e 67 25 21 72 64  6d 25 3e 3d 30 20 8c 0d  |hing%!rdm%>=0 ..|
00006c70  2b ac 17 20 21 62 6f 70  6f 73 3d 74 68 69 6e 67  |+.. !bopos=thing|
00006c80  25 21 62 6e 64 25 0d 2b  b6 15 20 45 25 3d 74 68  |%!bnd%.+.. E%=th|
00006c90  69 6e 67 25 21 6e 6f 62  25 2d 31 0d 2b c0 1a 20  |ing%!nob%-1.+.. |
00006ca0  c8 99 20 22 48 6f 75 72  67 6c 61 73 73 5f 4c 45  |.. "Hourglass_LE|
00006cb0  44 73 22 2c 31 0d 2b ca  0b 20 d6 20 62 6f 6e 64  |Ds",1.+.. . bond|
00006cc0  0d 2b d4 05 cd 0d 2b de  04 0d 2b e8 10 66 72 73  |.+....+...+..frs|
00006cd0  68 25 3d 34 2b 74 73 68  25 0d 2b f2 17 66 72 6e  |h%=4+tsh%.+..frn|
00006ce0  64 25 3d 2e 35 2a 28 31  3c 3c 66 72 73 68 25 29  |d%=.5*(1<<frsh%)|
00006cf0  0d 2b fc 19 c8 99 20 22  48 6f 75 72 67 6c 61 73  |.+.... "Hourglas|
00006d00  73 5f 4c 45 44 73 22 2c  33 0d 2c 06 1e f2 72 65  |s_LEDs",3.,...re|
00006d10  70 65 6c 5f 6f 62 6a 65  63 74 73 28 6f 6e 25 2c  |pel_objects(on%,|
00006d20  74 68 69 6e 67 25 29 0d  2c 10 04 0d 2c 1a 19 63  |thing%).,...,..c|
00006d30  62 25 3d 21 63 6f 70 6f  73 3a 76 62 25 3d 21 76  |b%=!copos:vb%=!v|
00006d40  65 70 6f 73 0d 2c 24 19  c8 99 20 22 48 6f 75 72  |epos.,$... "Hour|
00006d50  67 6c 61 73 73 5f 4c 45  44 73 22 2c 32 0d 2c 2e  |glass_LEDs",2.,.|
00006d60  13 e3 20 41 25 3d 30 20  b8 20 70 74 73 25 2d 31  |.. A%=0 . pts%-1|
00006d70  0d 2c 38 31 20 76 62 25  21 30 2d 3d 67 72 61 76  |.,81 vb%!0-=grav|
00006d80  5f 7a 25 3a 76 62 25 21  34 2b 3d 67 72 61 76 5f  |_z%:vb%!4+=grav_|
00006d90  78 25 3a 76 62 25 21 38  2b 3d 67 72 61 76 5f 79  |x%:vb%!8+=grav_y|
00006da0  25 0d 2c 42 1c 20 78 3d  63 62 25 21 34 3a 79 3d  |%.,B. x=cb%!4:y=|
00006db0  63 62 25 21 38 3a 7a 3d  63 62 25 21 30 0d 2c 4c  |cb%!8:z=cb%!0.,L|
00006dc0  1a 20 e3 20 42 25 3d 31  20 b8 20 62 61 63 6b 67  |. . B%=1 . backg|
00006dd0  72 6f 75 6e 64 73 25 0d  2c 56 35 20 20 78 2d 3d  |rounds%.,V5  x-=|
00006de0  62 67 64 65 66 25 28 42  25 2c 31 29 3a 79 2d 3d  |bgdef%(B%,1):y-=|
00006df0  62 67 64 65 66 25 28 42  25 2c 32 29 3a 7a 2b 3d  |bgdef%(B%,2):z+=|
00006e00  62 67 64 65 66 25 28 42  25 2c 33 29 0d 2c 60 17  |bgdef%(B%,3).,`.|
00006e10  20 20 c8 8e 20 62 67 64  65 66 25 28 42 25 2c 30  |  .. bgdef%(B%,0|
00006e20  29 20 ca 0d 2c 6a 61 20  20 20 c9 20 30 3a e7 20  |) ..,ja   . 0:. |
00006e30  7a 3e 2d 35 30 30 30 20  8c 20 76 62 25 21 30 2d  |z>-5000 . vb%!0-|
00006e40  3d 28 7a 2b 35 30 30 30  29 3e 3e 31 3a 76 62 25  |=(z+5000)>>1:vb%|
00006e50  21 34 2d 3d 28 76 62 25  21 34 2b 66 72 6e 64 25  |!4-=(vb%!4+frnd%|
00006e60  29 3e 3e 66 72 73 68 25  3a 76 62 25 21 38 2d 3d  |)>>frsh%:vb%!8-=|
00006e70  28 76 62 25 21 38 2b 66  72 6e 64 25 29 3e 3e 66  |(vb%!8+frnd%)>>f|
00006e80  72 73 68 25 0d 2c 74 30  20 20 20 c9 20 33 3a 72  |rsh%.,t0   . 3:r|
00006e90  3d b6 28 78 2a 78 2b 79  2a 79 2b 7a 2a 7a 29 3a  |=.(x*x+y*y+z*z):|
00006ea0  45 25 3d 62 67 64 65 66  25 28 42 25 2c 34 29 2b  |E%=bgdef%(B%,4)+|
00006eb0  35 30 30 30 0d 2c 7e 10  20 20 20 20 e7 20 72 3c  |5000.,~.    . r<|
00006ec0  45 25 20 8c 0d 2c 88 15  20 20 20 20 20 72 3d 32  |E% ..,..     r=2|
00006ed0  2a 28 45 25 2d 72 29 2f  72 0d 2c 92 2f 20 20 20  |*(E%-r)/r.,./   |
00006ee0  20 20 76 62 25 21 30 2d  3d 28 76 62 25 21 30 2b  |  vb%!0-=(vb%!0+|
00006ef0  66 72 6e 64 25 29 3e 3e  66 72 73 68 25 3a 76 62  |frnd%)>>frsh%:vb|
00006f00  25 21 30 2b 3d 7a 2a 72  0d 2c 9c 2f 20 20 20 20  |%!0+=z*r.,./    |
00006f10  20 76 62 25 21 34 2d 3d  28 76 62 25 21 34 2b 66  | vb%!4-=(vb%!4+f|
00006f20  72 6e 64 25 29 3e 3e 66  72 73 68 25 3a 76 62 25  |rnd%)>>frsh%:vb%|
00006f30  21 34 2b 3d 78 2a 72 0d  2c a6 2f 20 20 20 20 20  |!4+=x*r.,./     |
00006f40  76 62 25 21 38 2d 3d 28  76 62 25 21 38 2b 66 72  |vb%!8-=(vb%!8+fr|
00006f50  6e 64 25 29 3e 3e 66 72  73 68 25 3a 76 62 25 21  |nd%)>>frsh%:vb%!|
00006f60  38 2b 3d 79 2a 72 0d 2c  b0 09 20 20 20 20 cd 0d  |8+=y*r.,..    ..|
00006f70  2c ba 0b 20 20 20 c9 20  34 3a 0d 2c c4 2d 20 20  |,..   . 4:.,.-  |
00006f80  20 20 6e 25 3d 2e 35 2a  28 79 2f 62 67 64 65 66  |  n%=.5*(y/bgdef|
00006f90  25 28 42 25 2c 36 29 2d  7a 2f 62 67 64 65 66 25  |%(B%,6)-z/bgdef%|
00006fa0  28 42 25 2c 35 29 29 0d  2c ce 20 20 20 20 20 68  |(B%,5)).,.     h|
00006fb0  25 3d 2d 6e 25 2a 62 67  64 65 66 25 28 42 25 2c  |%=-n%*bgdef%(B%,|
00006fc0  35 29 2d 35 30 30 30 0d  2c d8 10 20 20 20 20 e7  |5)-5000.,..    .|
00006fd0  20 7a 3e 68 25 20 8c 0d  2c e2 41 20 20 20 20 20  | z>h% ..,.A     |
00006fe0  e7 20 76 62 25 21 30 3e  30 20 76 62 25 21 30 2d  |. vb%!0>0 vb%!0-|
00006ff0  3d 28 7a 2d 68 25 29 3e  3e 31 3a 76 62 25 21 34  |=(z-h%)>>1:vb%!4|
00007000  3d 76 62 25 21 34 3e 3e  32 3a 76 62 25 21 38 3d  |=vb%!4>>2:vb%!8=|
00007010  76 62 25 21 38 3e 3e 32  0d 2c ec 09 20 20 20 20  |vb%!8>>2.,..    |
00007020  cc 0d 2c f6 24 20 20 20  20 20 68 25 3d 28 6e 25  |..,.$     h%=(n%|
00007030  2b 31 29 2a 62 67 64 65  66 25 28 42 25 2c 36 29  |+1)*bgdef%(B%,6)|
00007040  2d 35 30 30 30 0d 2d 00  4b 20 20 20 20 20 e7 20  |-5000.-.K     . |
00007050  79 3e 68 25 20 80 20 76  62 25 21 38 3e 30 20 8c  |y>h% . vb%!8>0 .|
00007060  20 76 62 25 21 38 2d 3d  28 79 2d 68 25 29 3e 3e  | vb%!8-=(y-h%)>>|
00007070  31 3a 3a 76 62 25 21 34  3d 76 62 25 21 34 3e 3e  |1::vb%!4=vb%!4>>|
00007080  32 3a 76 62 25 21 30 3d  76 62 25 21 30 3e 3e 32  |2:vb%!0=vb%!0>>2|
00007090  0d 2d 0a 09 20 20 20 20  cd 0d 2d 14 07 20 20 cb  |.-..    ..-..  .|
000070a0  0d 2d 1e 35 20 20 78 2b  3d 62 67 64 65 66 25 28  |.-.5  x+=bgdef%(|
000070b0  42 25 2c 31 29 3a 79 2b  3d 62 67 64 65 66 25 28  |B%,1):y+=bgdef%(|
000070c0  42 25 2c 32 29 3a 7a 2d  3d 62 67 64 65 66 25 28  |B%,2):z-=bgdef%(|
000070d0  42 25 2c 33 29 0d 2d 28  06 20 ed 0d 2d 32 39 20  |B%,3).-(. ..-29 |
000070e0  e7 20 28 28 94 28 76 62  25 21 30 29 2b 94 28 76  |. ((.(vb%!0)+.(v|
000070f0  62 25 21 34 29 2b 94 28  76 62 25 21 38 29 29 3e  |b%!4)+.(vb%!8))>|
00007100  3e 74 73 68 25 29 3e 33  45 36 20 8c 20 71 75 69  |>tsh%)>3E6 . qui|
00007110  74 25 3d b9 0d 2d 3c 14  20 76 62 25 2b 3d 31 32  |t%=..-<. vb%+=12|
00007120  3a 63 62 25 2b 3d 31 32  0d 2d 46 05 ed 0d 2d 50  |:cb%+=12.-F...-P|
00007130  05 e1 0d 2d 5a 05 3a 0d  2d 64 17 dd 20 f2 61 64  |...-Z.:.-d.. .ad|
00007140  64 5f 76 65 6c 73 28 74  68 69 6e 67 25 29 0d 2d  |d_vels(thing%).-|
00007150  6e 17 ea 20 63 62 25 2c  76 62 25 2c 70 62 25 2c  |n.. cb%,vb%,pb%,|
00007160  41 25 2c 42 25 0d 2d 78  13 63 62 25 3d 74 68 69  |A%,B%.-x.cb%=thi|
00007170  6e 67 25 21 63 6f 30 25  0d 2d 82 13 76 62 25 3d  |ng%!co0%.-..vb%=|
00007180  74 68 69 6e 67 25 21 76  65 6c 25 0d 2d 8c 13 70  |thing%!vel%.-..p|
00007190  62 25 3d 74 68 69 6e 67  25 21 70 74 66 25 0d 2d  |b%=thing%!ptf%.-|
000071a0  96 0e e7 20 70 62 25 3c  3d 30 20 8c 0d 2d a0 1b  |... pb%<=0 ..-..|
000071b0  20 e3 20 41 25 3d 30 20  b8 20 74 68 69 6e 67 25  | . A%=0 . thing%|
000071c0  21 6e 6f 70 25 2d 31 0d  2d aa 44 20 20 63 62 25  |!nop%-1.-.D  cb%|
000071d0  21 30 2b 3d 28 76 62 25  21 30 3e 3e 74 73 68 25  |!0+=(vb%!0>>tsh%|
000071e0  29 3a 63 62 25 21 34 2b  3d 28 76 62 25 21 34 3e  |):cb%!4+=(vb%!4>|
000071f0  3e 74 73 68 25 29 3a 63  62 25 21 38 2b 3d 28 76  |>tsh%):cb%!8+=(v|
00007200  62 25 21 38 3e 3e 74 73  68 25 29 0d 2d b4 15 20  |b%!8>>tsh%).-.. |
00007210  20 76 62 25 2b 3d 31 32  3a 63 62 25 2b 3d 31 32  | vb%+=12:cb%+=12|
00007220  0d 2d be 06 20 ed 0d 2d  c8 05 cc 0d 2d d2 1b 20  |.-.. ..-....-.. |
00007230  e3 20 41 25 3d 30 20 b8  20 74 68 69 6e 67 25 21  |. A%=0 . thing%!|
00007240  6e 6f 70 25 2d 31 0d 2d  dc 33 20 20 42 25 3d 70  |nop%-1.-.3  B%=p|
00007250  62 25 3f 41 25 3e 3e 32  3a e7 20 42 25 3d 30 20  |b%?A%>>2:. B%=0 |
00007260  8c 20 42 25 3d 76 62 25  20 8b 20 42 25 3d 70 75  |. B%=vb% . B%=pu|
00007270  6c 6c 25 2b 31 32 2a 42  25 0d 2d e6 3b 20 20 63  |ll%+12*B%.-.;  c|
00007280  62 25 21 30 2b 3d 42 25  21 30 3e 3e 74 73 68 25  |b%!0+=B%!0>>tsh%|
00007290  3a 63 62 25 21 34 2b 3d  42 25 21 34 3e 3e 74 73  |:cb%!4+=B%!4>>ts|
000072a0  68 25 3a 63 62 25 21 38  2b 3d 42 25 21 38 3e 3e  |h%:cb%!8+=B%!8>>|
000072b0  74 73 68 25 0d 2d f0 15  20 20 76 62 25 2b 3d 31  |tsh%.-..  vb%+=1|
000072c0  32 3a 63 62 25 2b 3d 31  32 0d 2d fa 06 20 ed 0d  |2:cb%+=12.-.. ..|
000072d0  2e 04 05 cd 0d 2e 0e 05  e1 0d 2e 18 05 3a 0d 2e  |.............:..|
000072e0  22 36 dd 20 a4 73 75 72  66 61 63 65 28 74 68 69  |"6. .surface(thi|
000072f0  6e 67 25 2c 50 25 2c 53  25 2c 58 49 25 2c 59 49  |ng%,P%,S%,XI%,YI|
00007300  25 2c 58 4e 25 2c 59 4e  25 2c 77 69 6e 64 25 2c  |%,XN%,YN%,wind%,|
00007310  4c 50 25 29 0d 2e 2c 11  ea 20 58 25 2c 59 25 2c  |LP%)..,.. X%,Y%,|
00007320  41 25 2c 42 25 0d 2e 36  4b e7 20 50 25 3d 30 20  |A%,B%..6K. P%=0 |
00007330  8c 20 50 25 3d 74 68 69  6e 67 25 21 66 61 63 25  |. P%=thing%!fac%|
00007340  3a e7 20 50 25 3c b8 50  20 8c 20 85 20 31 2c 22  |:. P%<.P . . 1,"|
00007350  62 61 64 20 70 6f 69 6e  74 65 72 20 70 61 73 73  |bad pointer pass|
00007360  65 64 20 74 6f 20 46 4e  73 75 72 66 61 63 65 22  |ed to FNsurface"|
00007370  0d 2e 40 19 e7 20 58 4e  25 3c 32 20 84 20 59 4e  |..@.. XN%<2 . YN|
00007380  25 3c 32 20 8c 20 3d 50  25 0d 2e 4a 5a e7 20 53  |%<2 . =P%..JZ. S|
00007390  25 2b 28 58 4e 25 2d 31  2b 28 4c 50 25 20 80 20  |%+(XN%-1+(LP% . |
000073a0  31 29 29 2a 28 59 4e 25  2d 31 2b 2e 35 2a 28 4c  |1))*(YN%-1+.5*(L|
000073b0  50 25 20 80 20 32 29 29  3e 74 68 69 6e 67 25 21  |P% . 2))>thing%!|
000073c0  6e 6f 66 25 20 8c 20 85  20 31 2c 22 6e 6f 74 20  |nof% . . 1,"not |
000073d0  65 6e 6f 75 67 68 20 66  61 63 65 74 20 73 70 61  |enough facet spa|
000073e0  63 65 22 0d 2e 54 12 e3  20 59 25 3d 30 20 b8 20  |ce"..T.. Y%=0 . |
000073f0  59 4e 25 2d 32 0d 2e 5e  13 20 e3 20 58 25 3d 30  |YN%-2..^. . X%=0|
00007400  20 b8 20 58 4e 25 2d 32  0d 2e 68 19 20 20 41 25  | . XN%-2..h.  A%|
00007410  3d 53 25 2b 58 25 2a 58  49 25 2b 59 25 2a 59 49  |=S%+X%*XI%+Y%*YI|
00007420  25 0d 2e 72 4d 20 20 50  25 3d a4 64 65 66 69 6e  |%..rM  P%=.defin|
00007430  65 5f 66 61 63 65 74 28  50 25 2c 41 25 2b 58 49  |e_facet(P%,A%+XI|
00007440  25 2c 41 25 2c 41 25 2b  59 49 25 2c 31 2b 28 58  |%,A%,A%+YI%,1+(X|
00007450  25 3d 2d 28 4c 50 25 20  80 20 31 29 20 84 20 59  |%=-(LP% . 1) . Y|
00007460  25 3d 2d 28 4c 50 25 20  80 20 32 29 29 29 0d 2e  |%=-(LP% . 2)))..|
00007470  7c 35 20 20 50 25 3d a4  64 65 66 69 6e 65 5f 66  ||5  P%=.define_f|
00007480  61 63 65 74 28 50 25 2c  41 25 2b 59 49 25 2c 41  |acet(P%,A%+YI%,A|
00007490  25 2b 58 49 25 2b 59 49  25 2c 41 25 2b 58 49 25  |%+XI%+YI%,A%+XI%|
000074a0  2c 30 29 0d 2e 86 06 20  ed 0d 2e 90 10 20 e7 20  |,0).... ..... . |
000074b0  4c 50 25 20 80 20 31 20  8c 0d 2e 9a 2b 20 20 41  |LP% . 1 ....+  A|
000074c0  25 3d 53 25 2b 28 58 4e  25 2d 31 29 2a 58 49 25  |%=S%+(XN%-1)*XI%|
000074d0  2b 59 25 2a 59 49 25 3a  42 25 3d 53 25 2b 59 25  |+Y%*YI%:B%=S%+Y%|
000074e0  2a 59 49 25 0d 2e a4 39  20 20 50 25 3d a4 64 65  |*YI%...9  P%=.de|
000074f0  66 69 6e 65 5f 66 61 63  65 74 28 50 25 2c 42 25  |fine_facet(P%,B%|
00007500  2c 41 25 2c 41 25 2b 59  49 25 2c 31 2b 28 59 25  |,A%,A%+YI%,1+(Y%|
00007510  3d 2d 28 4c 50 25 20 80  20 32 29 29 29 0d 2e ae  |=-(LP% . 2)))...|
00007520  2d 20 20 50 25 3d a4 64  65 66 69 6e 65 5f 66 61  |-  P%=.define_fa|
00007530  63 65 74 28 50 25 2c 41  25 2b 59 49 25 2c 42 25  |cet(P%,A%+YI%,B%|
00007540  2b 59 49 25 2c 42 25 2c  30 29 0d 2e b8 06 20 cd  |+YI%,B%,0).... .|
00007550  0d 2e c2 05 ed 0d 2e cc  0f e7 20 4c 50 25 20 80  |.......... LP% .|
00007560  20 32 20 8c 0d 2e d6 13  20 e3 20 58 25 3d 30 20  | 2 ..... . X%=0 |
00007570  b8 20 58 4e 25 2d 32 0d  2e e0 24 20 20 42 25 3d  |. XN%-2...$  B%=|
00007580  53 25 2b 58 25 2a 58 49  25 3a 41 25 3d 42 25 2b  |S%+X%*XI%:A%=B%+|
00007590  28 59 4e 25 2d 31 29 2a  59 49 25 0d 2e ea 39 20  |(YN%-1)*YI%...9 |
000075a0  20 50 25 3d a4 64 65 66  69 6e 65 5f 66 61 63 65  | P%=.define_face|
000075b0  74 28 50 25 2c 41 25 2b  58 49 25 2c 41 25 2c 42  |t(P%,A%+XI%,A%,B|
000075c0  25 2c 31 2b 28 58 25 3d  2d 28 4c 50 25 20 80 20  |%,1+(X%=-(LP% . |
000075d0  31 29 29 29 0d 2e f4 2d  20 20 50 25 3d a4 64 65  |1)))...-  P%=.de|
000075e0  66 69 6e 65 5f 66 61 63  65 74 28 50 25 2c 42 25  |fine_facet(P%,B%|
000075f0  2c 42 25 2b 58 49 25 2c  41 25 2b 58 49 25 2c 30  |,B%+XI%,A%+XI%,0|
00007600  29 0d 2e fe 06 20 ed 0d  2f 08 10 20 e7 20 4c 50  |).... ../.. . LP|
00007610  25 20 80 20 31 20 8c 0d  2f 12 23 20 20 41 25 3d  |% . 1 ../.#  A%=|
00007620  28 58 4e 25 2d 31 29 2a  58 49 25 3a 42 25 3d 28  |(XN%-1)*XI%:B%=(|
00007630  59 4e 25 2d 31 29 2a 59  49 25 0d 2f 1c 31 20 20  |YN%-1)*YI%./.1  |
00007640  50 25 3d a4 64 65 66 69  6e 65 5f 66 61 63 65 74  |P%=.define_facet|
00007650  28 50 25 2c 53 25 2b 42  25 2c 53 25 2b 41 25 2b  |(P%,S%+B%,S%+A%+|
00007660  42 25 2c 53 25 2b 41 25  2c 30 29 0d 2f 26 2b 20  |B%,S%+A%,0)./&+ |
00007670  20 50 25 3d a4 64 65 66  69 6e 65 5f 66 61 63 65  | P%=.define_face|
00007680  74 28 50 25 2c 53 25 2b  41 25 2c 53 25 2c 53 25  |t(P%,S%+A%,S%,S%|
00007690  2b 42 25 2c 30 29 0d 2f  30 06 20 cd 0d 2f 3a 05  |+B%,0)./0. ../:.|
000076a0  cd 0d 2f 44 07 3d 50 25  0d 2f 4e 05 3a 0d 2f 58  |../D.=P%./N.:./X|
000076b0  12 dd 20 a4 4d 6f 64 65  56 61 72 28 56 25 29 0d  |.. .ModeVar(V%).|
000076c0  2f 62 2b c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |/b+.."OS_ReadMod|
000076d0  65 56 61 72 69 61 62 6c  65 22 2c 6d 6f 64 65 25  |eVariable",mode%|
000076e0  2c 56 25 20 b8 20 2c 2c  56 25 0d 2f 6c 07 3d 56  |,V% . ,,V%./l.=V|
000076f0  25 0d 2f 76 05 3a 0d 2f  80 22 dd 20 f2 61 73 73  |%./v.:./.". .ass|
00007700  65 6d 73 74 6f 72 65 28  6d 6f 64 65 25 2c 73 74  |emstore(mode%,st|
00007710  6f 73 74 79 6c 65 25 29  0d 2f 8a 17 4c 32 42 50  |ostyle%)./..L2BP|
00007720  50 25 3d a4 4d 6f 64 65  56 61 72 28 31 30 29 0d  |P%=.ModeVar(10).|
00007730  2f 94 1f 4e 50 49 58 25  3d a4 4d 6f 64 65 56 61  |/..NPIX%=.ModeVa|
00007740  72 28 37 29 2a 38 3e 3e  4c 32 42 50 50 25 0d 2f  |r(7)*8>>L2BPP%./|
00007750  9e 1c 4d 41 53 4b 25 3d  28 31 3c 3c 28 31 3c 3c  |..MASK%=(1<<(1<<|
00007760  4c 32 42 50 50 25 29 29  2d 31 0d 2f a8 0f 63 73  |L2BPP%))-1./..cs|
00007770  70 61 63 65 3d 31 30 30  30 0d 2f b2 11 de 20 63  |pace=1000./... c|
00007780  6f 64 65 20 63 73 70 61  63 65 0d 2f bc 2b 41 25  |ode cspace./.+A%|
00007790  3d 30 3a 42 25 3d 31 3a  43 25 3d 32 3a 44 25 3d  |=0:B%=1:C%=2:D%=|
000077a0  33 3a 45 25 3d 34 3a 46  25 3d 35 3a 47 25 3d 36  |3:E%=4:F%=5:G%=6|
000077b0  3a 48 25 3d 37 0d 2f c6  17 6c 69 6e 6b 3d 31 34  |:H%=7./..link=14|
000077c0  3a 73 70 3d 31 33 3a 70  63 3d 31 35 0d 2f d0 14  |:sp=13:pc=15./..|
000077d0  e3 20 50 41 53 53 3d 30  20 b8 20 32 20 88 20 32  |. PASS=0 . 2 . 2|
000077e0  0d 2f da 0b 50 25 3d 63  6f 64 65 0d 2f e4 08 46  |./..P%=code./..F|
000077f0  25 3d 35 0d 2f ee 0e 5b  20 4f 50 54 20 50 41 53  |%=5./..[ OPT PAS|
00007800  53 0d 2f f8 09 41 4c 49  47 4e 0d 30 02 0c 2e 66  |S./..ALIGN.0...f|
00007810  72 73 74 6f 72 65 0d 30  0c 16 53 54 4d 46 44 20  |rstore.0..STMFD |
00007820  28 73 70 29 21 2c 7b 6c  69 6e 6b 7d 0d 30 16 30  |(sp)!,{link}.0.0|
00007830  4c 44 52 20 43 25 2c 73  74 6f 72 65 70 6f 73 3a  |LDR C%,storepos:|
00007840  43 4d 50 20 43 25 2c 23  30 3a 4c 44 4d 45 51 46  |CMP C%,#0:LDMEQF|
00007850  44 20 28 73 70 29 21 2c  7b 70 63 7d 0d 30 20 13  |D (sp)!,{pc}.0 .|
00007860  4c 44 52 20 52 31 31 2c  73 74 6f 72 65 6e 64 0d  |LDR R11,storend.|
00007870  30 2a 35 53 55 42 20 52  38 2c 52 31 31 2c 43 25  |0*5SUB R8,R11,C%|
00007880  3a 43 4d 50 20 52 38 2c  23 35 3a 4d 4f 56 4c 45  |:CMP R8,#5:MOVLE|
00007890  20 43 25 2c 23 30 3a 42  4c 45 20 65 78 66 72 73  | C%,#0:BLE exfrs|
000078a0  74 72 6c 70 0d 30 34 0d  4d 4f 56 20 41 25 2c 23  |trlp.04.MOV A%,#|
000078b0  30 0d 30 3e 1d 4d 4f 56  20 52 31 30 2c 23 4d 41  |0.0>.MOV R10,#MA|
000078c0  53 4b 25 3a 4d 4f 56 20  48 25 2c 52 31 30 0d 30  |SK%:MOV H%,R10.0|
000078d0  48 1c 4c 44 52 20 42 25  2c 73 63 72 70 6f 73 3a  |H.LDR B%,scrpos:|
000078e0  42 4c 20 66 69 6e 64 70  69 78 0d 30 52 13 53 54  |BL findpix.0R.ST|
000078f0  52 42 20 41 25 2c 5b 43  25 5d 2c 23 31 0d 30 5c  |RB A%,[C%],#1.0\|
00007900  23 4d 4f 56 20 52 38 2c  41 25 2c 41 53 52 23 38  |#MOV R8,A%,ASR#8|
00007910  3a 53 54 52 42 20 52 38  2c 5b 43 25 5d 2c 23 31  |:STRB R8,[C%],#1|
00007920  0d 30 66 24 4d 4f 56 20  52 38 2c 41 25 2c 41 53  |.0f$MOV R8,A%,AS|
00007930  52 23 31 36 3a 53 54 52  42 20 52 38 2c 5b 43 25  |R#16:STRB R8,[C%|
00007940  5d 2c 23 31 0d 30 70 0c  2e 66 72 73 74 72 6c 70  |],#1.0p..frstrlp|
00007950  0d 30 7a 1f 43 4d 50 20  41 25 2c 23 4e 50 49 58  |.0z.CMP A%,#NPIX|
00007960  25 3a 42 47 45 20 65 78  66 72 73 74 72 6c 70 0d  |%:BGE exfrstrlp.|
00007970  30 84 1c 43 4d 50 20 43  25 2c 52 31 31 3a 42 47  |0..CMP C%,R11:BG|
00007980  45 20 65 78 66 72 73 74  72 6c 70 0d 30 8e 1a 41  |E exfrstrlp.0..A|
00007990  44 44 20 41 25 2c 41 25  2c 23 31 3a 4d 4f 56 20  |DD A%,A%,#1:MOV |
000079a0  45 25 2c 41 25 0d 30 98  1b 42 4c 20 66 69 6e 64  |E%,A%.0..BL find|
000079b0  70 69 78 3a 53 55 42 20  44 25 2c 41 25 2c 45 25  |pix:SUB D%,A%,E%|
000079c0  0d 30 a2 0d 2e 66 72 73  74 72 6c 70 32 0d 30 ac  |.0...frstrlp2.0.|
000079d0  1e 43 4d 50 20 44 25 2c  23 31 32 38 3a 42 4c 54  |.CMP D%,#128:BLT|
000079e0  20 65 78 66 72 73 74 72  6c 70 32 0d 30 b6 1c 43  | exfrstrlp2.0..C|
000079f0  4d 50 20 43 25 2c 52 31  31 3a 42 47 45 20 65 78  |MP C%,R11:BGE ex|
00007a00  66 72 73 74 72 6c 70 0d  30 c0 13 4d 4f 56 20 45  |frstrlp.0..MOV E|
00007a10  25 2c 44 25 2c 41 53 52  23 37 0d 30 ca 1d 43 4d  |%,D%,ASR#7.0..CM|
00007a20  50 20 45 25 2c 23 31 32  38 3a 4d 4f 56 47 45 20  |P E%,#128:MOVGE |
00007a30  45 25 2c 23 31 32 37 0d  30 d4 21 84 52 20 52 38  |E%,#127.0.!.R R8|
00007a40  2c 45 25 2c 23 26 38 30  3a 53 54 52 42 20 52 38  |,E%,#&80:STRB R8|
00007a50  2c 5b 43 25 5d 2c 23 31  0d 30 de 16 53 55 42 20  |,[C%],#1.0..SUB |
00007a60  44 25 2c 44 25 2c 45 25  2c 41 53 4c 23 37 0d 30  |D%,D%,E%,ASL#7.0|
00007a70  e8 0e 42 20 66 72 73 74  72 6c 70 32 0d 30 f2 0f  |..B frstrlp2.0..|
00007a80  2e 65 78 66 72 73 74 72  6c 70 32 0d 30 fc 13 53  |.exfrstrlp2.0..S|
00007a90  54 52 42 20 44 25 2c 5b  43 25 5d 2c 23 31 0d 31  |TRB D%,[C%],#1.1|
00007aa0  06 0d 42 20 66 72 73 74  72 6c 70 0d 31 10 0e 2e  |..B frstrlp.1...|
00007ab0  65 78 66 72 73 74 72 6c  70 0d 31 1a 1a 43 4d 50  |exfrstrlp.1..CMP|
00007ac0  20 43 25 2c 52 31 31 3a  4d 4f 56 47 45 20 43 25  | C%,R11:MOVGE C%|
00007ad0  2c 23 30 0d 31 24 13 53  54 52 20 43 25 2c 73 74  |,#0.1$.STR C%,st|
00007ae0  6f 72 65 70 6f 73 0d 31  2e 14 4c 44 4d 46 44 20  |orepos.1..LDMFD |
00007af0  28 73 70 29 21 2c 7b 70  63 7d 0d 31 38 04 0d 31  |(sp)!,{pc}.18..1|
00007b00  42 0c 2e 66 69 6e 64 70  69 78 0d 31 4c 1c 53 54  |B..findpix.1L.ST|
00007b10  4d 46 44 20 28 73 70 29  21 2c 7b 52 38 2c 52 39  |MFD (sp)!,{R8,R9|
00007b20  2c 6c 69 6e 6b 7d 0d 31  56 0b 2e 66 70 69 78 6c  |,link}.1V..fpixl|
00007b30  70 0d 31 60 2a 43 4d 50  20 41 25 2c 23 4e 50 49  |p.1`*CMP A%,#NPI|
00007b40  58 25 3a 4c 44 4d 47 45  46 44 20 28 73 70 29 21  |X%:LDMGEFD (sp)!|
00007b50  2c 7b 52 38 2c 52 39 2c  70 63 7d 0d 31 6a 22 4c  |,{R8,R9,pc}.1j"L|
00007b60  44 52 42 20 52 38 2c 5b  42 25 2c 41 25 2c 41 53  |DRB R8,[B%,A%,AS|
00007b70  52 23 28 33 2d 4c 32 42  50 50 25 29 5d 0d 31 74  |R#(3-L2BPP%)].1t|
00007b80  16 80 20 52 39 2c 41 25  2c 23 37 3e 3e 4c 32 42  |.. R9,A%,#7>>L2B|
00007b90  50 50 25 0d 31 7e 18 4d  4f 56 20 52 39 2c 52 39  |PP%.1~.MOV R9,R9|
00007ba0  2c 41 53 4c 23 4c 32 42  50 50 25 0d 31 88 17 80  |,ASL#L2BPP%.1...|
00007bb0  53 20 52 38 2c 52 38 2c  52 31 30 2c 41 53 4c 20  |S R8,R8,R10,ASL |
00007bc0  52 39 0d 31 92 05 5d 0d  31 9c 38 e7 20 73 74 6f  |R9.1..].1.8. sto|
00007bd0  73 74 79 6c 65 25 3d 30  20 8c 20 5b 4f 50 54 20  |style%=0 . [OPT |
00007be0  50 41 53 53 3a 4c 44 4d  4e 45 46 44 20 28 73 70  |PASS:LDMNEFD (sp|
00007bf0  29 21 2c 7b 52 38 2c 52  39 2c 70 63 7d 3a 5d 0d  |)!,{R8,R9,pc}:].|
00007c00  31 a6 13 e7 20 73 74 6f  73 74 79 6c 65 25 3d 31  |1... stostyle%=1|
00007c10  20 8c 0d 31 b0 0f 20 5b  20 4f 50 54 20 50 41 53  | ..1.. [ OPT PAS|
00007c20  53 0d 31 ba 15 20 43 4d  50 20 52 38 2c 48 25 2c  |S.1.. CMP R8,H%,|
00007c30  41 53 4c 20 52 39 0d 31  c4 12 20 82 45 51 20 48  |ASL R9.1.. .EQ H|
00007c40  25 2c 48 25 2c 52 31 30  0d 31 ce 1d 20 4c 44 4d  |%,H%,R10.1.. LDM|
00007c50  45 51 46 44 20 28 73 70  29 21 2c 7b 52 38 2c 52  |EQFD (sp)!,{R8,R|
00007c60  39 2c 70 63 7d 0d 31 d8  06 20 5d 0d 31 e2 05 cd  |9,pc}.1.. ].1...|
00007c70  0d 31 ec 0e 5b 20 4f 50  54 20 50 41 53 53 0d 31  |.1..[ OPT PASS.1|
00007c80  f6 10 41 44 44 20 41 25  2c 41 25 2c 23 31 0d 32  |..ADD A%,A%,#1.2|
00007c90  00 0c 42 20 66 70 69 78  6c 70 0d 32 0a 04 0d 32  |..B fpixlp.2...2|
00007ca0  14 09 2e 73 68 6f 77 0d  32 1e 16 53 54 4d 46 44  |...show.2..STMFD|
00007cb0  20 28 73 70 29 21 2c 7b  6c 69 6e 6b 7d 0d 32 28  | (sp)!,{link}.2(|
00007cc0  12 4d 4f 56 20 52 31 30  2c 23 4d 41 53 4b 25 0d  |.MOV R10,#MASK%.|
00007cd0  32 32 11 4c 44 52 20 42  25 2c 73 63 72 70 6f 73  |22.LDR B%,scrpos|
00007ce0  0d 32 3c 13 4c 44 52 42  20 41 25 2c 5b 43 25 5d  |.2<.LDRB A%,[C%]|
00007cf0  2c 23 31 0d 32 46 25 4c  44 52 42 20 52 38 2c 5b  |,#1.2F%LDRB R8,[|
00007d00  43 25 5d 2c 23 31 3a 84  52 20 41 25 2c 41 25 2c  |C%],#1:.R A%,A%,|
00007d10  52 38 2c 41 53 4c 23 38  0d 32 50 26 4c 44 52 42  |R8,ASL#8.2P&LDRB|
00007d20  20 52 38 2c 5b 43 25 5d  2c 23 31 3a 84 52 20 41  | R8,[C%],#1:.R A|
00007d30  25 2c 41 25 2c 52 38 2c  41 53 4c 23 31 36 0d 32  |%,A%,R8,ASL#16.2|
00007d40  5a 05 5d 0d 32 64 13 e7  20 73 74 6f 73 74 79 6c  |Z.].2d.. stostyl|
00007d50  65 25 3d 30 20 8c 0d 32  6e 0e 20 5b 4f 50 54 20  |e%=0 ..2n. [OPT |
00007d60  50 41 53 53 0d 32 78 0c  20 2e 73 68 6c 6f 6f 70  |PASS.2x. .shloop|
00007d70  0d 32 82 1f 20 43 4d 50  20 41 25 2c 23 4e 50 49  |.2.. CMP A%,#NPI|
00007d80  58 25 3a 42 47 45 20 65  78 73 68 6c 6f 6f 70 0d  |X%:BGE exshloop.|
00007d90  32 8c 23 20 4c 44 52 42  20 52 38 2c 5b 42 25 2c  |2.# LDRB R8,[B%,|
00007da0  41 25 2c 41 53 52 23 28  33 2d 4c 32 42 50 50 25  |A%,ASR#(3-L2BPP%|
00007db0  29 5d 0d 32 96 17 20 80  20 52 39 2c 41 25 2c 23  |)].2.. . R9,A%,#|
00007dc0  37 3e 3e 4c 32 42 50 50  25 0d 32 a0 19 20 4d 4f  |7>>L2BPP%.2.. MO|
00007dd0  56 20 52 39 2c 52 39 2c  41 53 4c 23 4c 32 42 50  |V R9,R9,ASL#L2BP|
00007de0  50 25 0d 32 aa 17 20 82  20 52 38 2c 52 38 2c 52  |P%.2.. . R8,R8,R|
00007df0  31 30 2c 41 53 4c 20 52  39 0d 32 b4 23 20 53 54  |10,ASL R9.2.# ST|
00007e00  52 42 20 52 38 2c 5b 42  25 2c 41 25 2c 41 53 52  |RB R8,[B%,A%,ASR|
00007e10  23 28 33 2d 4c 32 42 50  50 25 29 5d 0d 32 be 11  |#(3-L2BPP%)].2..|
00007e20  20 41 44 44 20 41 25 2c  41 25 2c 23 31 0d 32 c8  | ADD A%,A%,#1.2.|
00007e30  06 20 5d 0d 32 d2 05 cd  0d 32 dc 13 e7 20 73 74  |. ].2....2... st|
00007e40  6f 73 74 79 6c 65 25 3d  31 20 8c 0d 32 e6 0f 20  |ostyle%=1 ..2.. |
00007e50  5b 20 4f 50 54 20 50 41  53 53 0d 32 f0 0c 20 2e  |[ OPT PASS.2.. .|
00007e60  73 68 6c 6f 6f 70 0d 32  fa 18 20 5c 20 77 61 6e  |shloop.2.. \ wan|
00007e70  74 20 70 69 78 65 6c 20  41 25 20 73 65 74 0d 33  |t pixel A% set.3|
00007e80  04 04 0d 33 0e 16 20 5c  20 67 65 74 20 6e 65 78  |...3.. \ get nex|
00007e90  74 20 6f 66 66 73 65 74  0d 33 18 1f 20 43 4d 50  |t offset.3.. CMP|
00007ea0  20 41 25 2c 23 4e 50 49  58 25 3a 42 47 45 20 65  | A%,#NPIX%:BGE e|
00007eb0  78 73 68 6c 6f 6f 70 0d  33 22 1a 20 41 44 44 20  |xshloop.3". ADD |
00007ec0  47 25 2c 41 25 2c 23 31  3a 2e 73 68 6c 6f 6f 70  |G%,A%,#1:.shloop|
00007ed0  33 0d 33 2c 14 20 4c 44  52 42 20 44 25 2c 5b 43  |3.3,. LDRB D%,[C|
00007ee0  25 5d 2c 23 31 0d 33 36  31 20 54 53 54 20 44 25  |%],#1.361 TST D%|
00007ef0  2c 23 26 38 30 3a 80 4e  45 20 44 25 2c 44 25 2c  |,#&80:.NE D%,D%,|
00007f00  23 26 37 46 3a 4d 4f 56  4e 45 20 44 25 2c 44 25  |#&7F:MOVNE D%,D%|
00007f10  2c 41 53 4c 23 37 0d 33  40 29 20 41 44 44 20 47  |,ASL#7.3@) ADD G|
00007f20  25 2c 47 25 2c 44 25 3a  43 4d 50 20 44 25 2c 23  |%,G%,D%:CMP D%,#|
00007f30  31 32 38 3a 42 47 45 20  73 68 6c 6f 6f 70 33 0d  |128:BGE shloop3.|
00007f40  33 4a 04 0d 33 54 1d 20  5c 20 70 6c 6f 74 20 70  |3J..3T. \ plot p|
00007f50  69 78 65 6c 73 20 41 25  20 74 6f 20 47 25 2d 31  |ixels A% to G%-1|
00007f60  0d 33 5e 0d 20 2e 73 68  6c 6f 6f 70 34 0d 33 68  |.3^. .shloop4.3h|
00007f70  23 20 4c 44 52 42 20 52  38 2c 5b 42 25 2c 41 25  |# LDRB R8,[B%,A%|
00007f80  2c 41 53 52 23 28 33 2d  4c 32 42 50 50 25 29 5d  |,ASR#(3-L2BPP%)]|
00007f90  0d 33 72 17 20 80 20 52  39 2c 41 25 2c 23 37 3e  |.3r. . R9,A%,#7>|
00007fa0  3e 4c 32 42 50 50 25 0d  33 7c 19 20 4d 4f 56 20  |>L2BPP%.3|. MOV |
00007fb0  52 39 2c 52 39 2c 41 53  4c 23 4c 32 42 50 50 25  |R9,R9,ASL#L2BPP%|
00007fc0  0d 33 86 17 20 82 20 52  38 2c 52 38 2c 52 31 30  |.3.. . R8,R8,R10|
00007fd0  2c 41 53 4c 20 52 39 0d  33 90 23 20 53 54 52 42  |,ASL R9.3.# STRB|
00007fe0  20 52 38 2c 5b 42 25 2c  41 25 2c 41 53 52 23 28  | R8,[B%,A%,ASR#(|
00007ff0  33 2d 4c 32 42 50 50 25  29 5d 0d 33 9a 27 20 41  |3-L2BPP%)].3.' A|
00008000  44 44 20 41 25 2c 41 25  2c 23 31 3a 43 4d 50 20  |DD A%,A%,#1:CMP |
00008010  41 25 2c 47 25 3a 42 4c  54 20 73 68 6c 6f 6f 70  |A%,G%:BLT shloop|
00008020  34 0d 33 a4 11 20 41 44  44 20 41 25 2c 41 25 2c  |4.3.. ADD A%,A%,|
00008030  23 31 0d 33 ae 04 0d 33  b8 16 20 5c 20 67 65 74  |#1.3...3.. \ get|
00008040  20 6e 65 78 74 20 6f 66  66 73 65 74 0d 33 c2 1f  | next offset.3..|
00008050  20 43 4d 50 20 41 25 2c  23 4e 50 49 58 25 3a 42  | CMP A%,#NPIX%:B|
00008060  47 45 20 65 78 73 68 6c  6f 6f 70 0d 33 cc 06 20  |GE exshloop.3.. |
00008070  5d 0d 33 d6 05 cd 0d 33  e0 0e 5b 20 4f 50 54 20  |].3....3..[ OPT |
00008080  50 41 53 53 0d 33 ea 0c  2e 73 68 6c 6f 6f 70 32  |PASS.3...shloop2|
00008090  0d 33 f4 13 4c 44 52 42  20 44 25 2c 5b 43 25 5d  |.3..LDRB D%,[C%]|
000080a0  2c 23 31 0d 33 fe 30 54  53 54 20 44 25 2c 23 26  |,#1.3.0TST D%,#&|
000080b0  38 30 3a 80 4e 45 20 44  25 2c 44 25 2c 23 26 37  |80:.NE D%,D%,#&7|
000080c0  46 3a 4d 4f 56 4e 45 20  44 25 2c 44 25 2c 41 53  |F:MOVNE D%,D%,AS|
000080d0  4c 23 37 0d 34 08 28 41  44 44 20 41 25 2c 41 25  |L#7.4.(ADD A%,A%|
000080e0  2c 44 25 3a 43 4d 50 20  44 25 2c 23 31 32 38 3a  |,D%:CMP D%,#128:|
000080f0  42 47 45 20 73 68 6c 6f  6f 70 32 0d 34 12 0c 42  |BGE shloop2.4..B|
00008100  20 73 68 6c 6f 6f 70 0d  34 1c 0d 2e 65 78 73 68  | shloop.4...exsh|
00008110  6c 6f 6f 70 0d 34 26 1e  4d 4f 56 20 41 25 2c 43  |loop.4&.MOV A%,C|
00008120  25 3a 4c 44 4d 46 44 20  28 73 70 29 21 2c 7b 70  |%:LDMFD (sp)!,{p|
00008130  63 7d 0d 34 30 04 0d 34  3a 0c 2e 63 6f 70 79 31  |c}.40..4:..copy1|
00008140  74 32 0d 34 44 16 53 54  4d 46 44 20 28 73 70 29  |t2.4D.STMFD (sp)|
00008150  21 2c 7b 6c 69 6e 6b 7d  0d 34 4e 11 4c 44 52 20  |!,{link}.4N.LDR |
00008160  52 30 2c 73 63 72 6c 65  6e 0d 34 58 21 4c 44 52  |R0,scrlen.4X!LDR|
00008170  20 52 31 2c 73 63 72 70  6f 73 32 3a 4c 44 52 20  | R1,scrpos2:LDR |
00008180  52 32 2c 73 63 72 70 6f  73 31 0d 34 62 10 41 44  |R2,scrpos1.4b.AD|
00008190  44 20 52 30 2c 52 31 2c  52 30 0d 34 6c 0d 2e 63  |D R0,R1,R0.4l..c|
000081a0  6f 70 31 74 32 6c 70 0d  34 76 29 4c 44 4d 49 41  |op1t2lp.4v)LDMIA|
000081b0  20 52 31 21 2c 7b 52 33  2d 52 31 30 7d 3a 53 54  | R1!,{R3-R10}:ST|
000081c0  4d 49 41 20 52 32 21 2c  7b 52 33 2d 52 31 30 7d  |MIA R2!,{R3-R10}|
000081d0  0d 34 80 1a 43 4d 50 20  52 31 2c 52 30 3a 42 4c  |.4..CMP R1,R0:BL|
000081e0  54 20 63 6f 70 31 74 32  6c 70 0d 34 8a 14 4c 44  |T cop1t2lp.4..LD|
000081f0  4d 46 44 20 28 73 70 29  21 2c 7b 70 63 7d 0d 34  |MFD (sp)!,{pc}.4|
00008200  94 04 0d 34 9e 0b 2e 65  6f 72 32 77 31 0d 34 a8  |...4...eor2w1.4.|
00008210  16 53 54 4d 46 44 20 28  73 70 29 21 2c 7b 6c 69  |.STMFD (sp)!,{li|
00008220  6e 6b 7d 0d 34 b2 11 4c  44 52 20 52 30 2c 73 63  |nk}.4..LDR R0,sc|
00008230  72 6c 65 6e 0d 34 bc 21  4c 44 52 20 52 31 2c 73  |rlen.4.!LDR R1,s|
00008240  63 72 70 6f 73 32 3a 4c  44 52 20 52 32 2c 73 63  |crpos2:LDR R2,sc|
00008250  72 70 6f 73 31 0d 34 c6  10 41 44 44 20 52 30 2c  |rpos1.4..ADD R0,|
00008260  52 31 2c 52 30 0d 34 d0  0d 2e 65 6f 72 32 77 31  |R1,R0.4...eor2w1|
00008270  6c 70 0d 34 da 27 4c 44  4d 49 41 20 52 31 21 2c  |lp.4.'LDMIA R1!,|
00008280  7b 52 33 2d 52 36 7d 3a  4c 44 4d 49 41 20 52 32  |{R3-R6}:LDMIA R2|
00008290  2c 7b 52 37 2d 52 31 30  7d 0d 34 e4 30 82 20 52  |,{R7-R10}.4.0. R|
000082a0  33 2c 52 33 2c 52 37 3a  82 20 52 34 2c 52 34 2c  |3,R3,R7:. R4,R4,|
000082b0  52 38 3a 82 20 52 35 2c  52 35 2c 52 39 3a 82 20  |R8:. R5,R5,R9:. |
000082c0  52 36 2c 52 36 2c 52 31  30 0d 34 ee 15 53 54 4d  |R6,R6,R10.4..STM|
000082d0  49 41 20 52 32 21 2c 7b  52 33 2d 52 36 7d 0d 34  |IA R2!,{R3-R6}.4|
000082e0  f8 1a 43 4d 50 20 52 31  2c 52 30 3a 42 4c 54 20  |..CMP R1,R0:BLT |
000082f0  65 6f 72 32 77 31 6c 70  0d 35 02 14 4c 44 4d 46  |eor2w1lp.5..LDMF|
00008300  44 20 28 73 70 29 21 2c  7b 70 63 7d 0d 35 0c 04  |D (sp)!,{pc}.5..|
00008310  0d 35 16 10 2e 62 61 6e  6b 20 45 51 55 44 20 31  |.5...bank EQUD 1|
00008320  0d 35 20 14 2e 73 74 6f  72 65 70 6f 73 20 45 51  |.5 ..storepos EQ|
00008330  55 44 20 30 0d 35 2a 13  2e 73 74 6f 72 65 6e 64  |UD 0.5*..storend|
00008340  20 45 51 55 44 20 30 0d  35 34 12 2e 73 63 72 70  | EQUD 0.54..scrp|
00008350  6f 73 20 45 51 55 44 20  30 0d 35 3e 13 2e 73 63  |os EQUD 0.5>..sc|
00008360  72 70 6f 73 31 20 45 51  55 44 20 30 0d 35 48 13  |rpos1 EQUD 0.5H.|
00008370  2e 73 63 72 70 6f 73 32  20 45 51 55 44 20 30 0d  |.scrpos2 EQUD 0.|
00008380  35 52 1c 2e 73 63 72 6c  65 6e 20 45 51 55 44 20  |5R..scrlen EQUD |
00008390  a4 4d 6f 64 65 56 61 72  28 37 29 0d 35 5c 05 5d  |.ModeVar(7).5\.]|
000083a0  0d 35 66 31 e7 20 50 25  3e 63 6f 64 65 2b 63 73  |.5f1. P%>code+cs|
000083b0  70 61 63 65 20 8c 20 85  20 31 2c 22 4f 75 74 20  |pace . . 1,"Out |
000083c0  6f 66 20 72 6f 6f 6d 20  66 6f 72 20 63 6f 64 65  |of room for code|
000083d0  22 0d 35 70 0a ed 20 50  41 53 53 0d 35 7a 05 e1  |".5p.. PASS.5z..|
000083e0  0d 35 84 05 3a 0d 35 8e  11 dd 20 f2 61 73 73 65  |.5..:.5... .asse|
000083f0  6d 5f 6e 65 62 6f 0d 35  98 0e f2 61 73 73 65 6d  |m_nebo.5...assem|
00008400  52 6f 6f 74 0d 35 a2 2b  41 25 3d 30 3a 42 25 3d  |Root.5.+A%=0:B%=|
00008410  31 3a 43 25 3d 32 3a 44  25 3d 33 3a 45 25 3d 34  |1:C%=2:D%=3:E%=4|
00008420  3a 46 25 3d 35 3a 47 25  3d 36 3a 48 25 3d 37 0d  |:F%=5:G%=6:H%=7.|
00008430  35 ac 1f 75 44 69 76 33  32 3d a4 61 73 73 65 6d  |5..uDiv32=.assem|
00008440  44 69 76 28 35 2c 30 2c  32 2c 38 2c 39 29 0d 35  |Div(5,0,2,8,9).5|
00008450  b6 12 de 20 73 63 72 61  70 25 20 32 35 36 2a 34  |... scrap% 256*4|
00008460  0d 35 c0 0e 63 73 70 61  63 65 3d 35 30 30 0d 35  |.5..cspace=500.5|
00008470  ca 11 de 20 63 6f 64 65  20 63 73 70 61 63 65 0d  |... code cspace.|
00008480  35 d4 17 6c 69 6e 6b 3d  31 34 3a 73 70 3d 31 33  |5..link=14:sp=13|
00008490  3a 70 63 3d 31 35 0d 35  de 14 e3 20 50 41 53 53  |:pc=15.5... PASS|
000084a0  3d 30 20 b8 20 32 20 88  20 32 0d 35 e8 0b 50 25  |=0 . 2 . 2.5..P%|
000084b0  3d 63 6f 64 65 0d 35 f2  0e 5b 20 4f 50 54 20 50  |=code.5..[ OPT P|
000084c0  41 53 53 0d 35 fc 0d 2e  6e 65 61 72 62 6f 6e 64  |ASS.5...nearbond|
000084d0  0d 36 06 16 53 54 4d 46  44 20 28 73 70 29 21 2c  |.6..STMFD (sp)!,|
000084e0  7b 6c 69 6e 6b 7d 0d 36  10 4f 4c 44 52 20 52 38  |{link}.6.OLDR R8|
000084f0  2c 6e 65 62 6f 62 6c 6f  63 6b 3a 4c 44 52 20 52  |,neboblock:LDR R|
00008500  39 2c 6e 65 62 6f 62 6c  6f 63 6b 2b 34 3a 4c 44  |9,neboblock+4:LD|
00008510  52 20 42 25 2c 6e 65 62  6f 62 6c 6f 63 6b 2b 38  |R B%,neboblock+8|
00008520  3a 4c 44 52 20 52 31 30  2c 6e 65 62 6f 62 6c 6f  |:LDR R10,neboblo|
00008530  63 6b 2b 31 32 0d 36 1a  2d 53 55 42 20 45 25 2c  |ck+12.6.-SUB E%,|
00008540  45 25 2c 23 31 3a 4d 4f  56 20 52 31 32 2c 23 31  |E%,#1:MOV R12,#1|
00008550  32 3a 4d 4c 41 20 48 25  2c 45 25 2c 52 31 32 2c  |2:MLA H%,E%,R12,|
00008560  48 25 0d 36 24 0a 2e 6e  62 6c 70 32 0d 36 2e 1e  |H%.6$..nblp2.6..|
00008570  53 55 42 20 47 25 2c 48  25 2c 23 31 32 3a 53 55  |SUB G%,H%,#12:SU|
00008580  42 20 46 25 2c 45 25 2c  23 31 0d 36 38 0a 2e 6e  |B F%,E%,#1.68..n|
00008590  62 6c 70 31 0d 36 42 30  4c 44 52 20 41 25 2c 5b  |blp1.6B0LDR A%,[|
000085a0  48 25 2c 23 38 5d 3a 4c  44 52 20 52 31 32 2c 5b  |H%,#8]:LDR R12,[|
000085b0  47 25 2c 23 38 5d 3a 53  55 42 20 41 25 2c 41 25  |G%,#8]:SUB A%,A%|
000085c0  2c 52 31 32 0d 36 4c 37  4d 4f 56 20 41 25 2c 41  |,R12.6L7MOV A%,A|
000085d0  25 2c 41 53 52 20 52 31  30 3a 4d 55 4c 20 43 25  |%,ASR R10:MUL C%|
000085e0  2c 41 25 2c 41 25 3a 43  4d 50 20 43 25 2c 52 39  |,A%,A%:CMP C%,R9|
000085f0  3a 42 47 54 20 6e 62 73  6b 69 70 0d 36 56 30 4c  |:BGT nbskip.6V0L|
00008600  44 52 20 41 25 2c 5b 48  25 2c 23 34 5d 3a 4c 44  |DR A%,[H%,#4]:LD|
00008610  52 20 52 31 32 2c 5b 47  25 2c 23 34 5d 3a 53 55  |R R12,[G%,#4]:SU|
00008620  42 20 41 25 2c 41 25 2c  52 31 32 0d 36 60 3a 4d  |B A%,A%,R12.6`:M|
00008630  4f 56 20 41 25 2c 41 25  2c 41 53 52 20 52 31 30  |OV A%,A%,ASR R10|
00008640  3a 4d 4c 41 20 43 25 2c  41 25 2c 41 25 2c 43 25  |:MLA C%,A%,A%,C%|
00008650  3a 43 4d 50 20 43 25 2c  52 39 3a 42 47 54 20 6e  |:CMP C%,R9:BGT n|
00008660  62 73 6b 69 70 0d 36 6a  30 4c 44 52 20 41 25 2c  |bskip.6j0LDR A%,|
00008670  5b 48 25 2c 23 30 5d 3a  4c 44 52 20 52 31 32 2c  |[H%,#0]:LDR R12,|
00008680  5b 47 25 2c 23 30 5d 3a  53 55 42 20 41 25 2c 41  |[G%,#0]:SUB A%,A|
00008690  25 2c 52 31 32 0d 36 74  3a 4d 4f 56 20 41 25 2c  |%,R12.6t:MOV A%,|
000086a0  41 25 2c 41 53 52 20 52  31 30 3a 4d 4c 41 20 43  |A%,ASR R10:MLA C|
000086b0  25 2c 41 25 2c 41 25 2c  43 25 3a 43 4d 50 20 43  |%,A%,A%,C%:CMP C|
000086c0  25 2c 52 39 3a 42 47 54  20 6e 62 73 6b 69 70 0d  |%,R9:BGT nbskip.|
000086d0  36 7e 2c 4c 44 52 20 41  25 2c 6e 65 62 6f 62 6c  |6~,LDR A%,nebobl|
000086e0  6f 63 6b 2b 31 36 3a 43  4d 50 20 43 25 2c 41 25  |ock+16:CMP C%,A%|
000086f0  3a 42 4c 54 20 6e 62 73  6b 69 70 0d 36 88 27 43  |:BLT nbskip.6.'C|
00008700  4d 50 20 42 25 2c 44 25  3a 41 44 44 47 45 20 42  |MP B%,D%:ADDGE B|
00008710  25 2c 42 25 2c 23 38 3a  42 47 45 20 6e 62 73 6b  |%,B%,#8:BGE nbsk|
00008720  69 70 0d 36 92 2f 42 4c  20 72 6f 6f 74 3a 4c 44  |ip.6./BL root:LD|
00008730  52 20 41 25 2c 5b 52 38  2c 41 25 2c 41 53 4c 23  |R A%,[R8,A%,ASL#|
00008740  32 5d 3a 53 54 52 20 41  25 2c 5b 42 25 2c 23 34  |2]:STR A%,[B%,#4|
00008750  5d 0d 36 9c 25 84 52 20  41 25 2c 45 25 2c 46 25  |].6.%.R A%,E%,F%|
00008760  2c 41 53 4c 23 31 36 3a  53 54 52 20 41 25 2c 5b  |,ASL#16:STR A%,[|
00008770  42 25 5d 2c 23 38 0d 36  a6 0b 2e 6e 62 73 6b 69  |B%],#8.6...nbski|
00008780  70 0d 36 b0 29 53 55 42  20 47 25 2c 47 25 2c 23  |p.6.)SUB G%,G%,#|
00008790  31 32 3a 53 55 42 53 20  46 25 2c 46 25 2c 23 31  |12:SUBS F%,F%,#1|
000087a0  3a 42 47 45 20 6e 62 6c  70 31 0d 36 ba 29 53 55  |:BGE nblp1.6.)SU|
000087b0  42 20 48 25 2c 48 25 2c  23 31 32 3a 53 55 42 53  |B H%,H%,#12:SUBS|
000087c0  20 45 25 2c 45 25 2c 23  31 3a 42 47 54 20 6e 62  | E%,E%,#1:BGT nb|
000087d0  6c 70 32 0d 36 c4 16 53  54 52 20 42 25 2c 6e 65  |lp2.6..STR B%,ne|
000087e0  62 6f 62 6c 6f 63 6b 2b  38 0d 36 ce 14 4c 44 4d  |boblock+8.6..LDM|
000087f0  46 44 20 28 73 70 29 21  2c 7b 70 63 7d 0d 36 d8  |FD (sp)!,{pc}.6.|
00008800  31 2e 6e 65 62 6f 62 6c  6f 63 6b 20 45 51 55 44  |1.neboblock EQUD|
00008810  20 30 3a 45 51 55 44 20  30 3a 45 51 55 44 20 30  | 0:EQUD 0:EQUD 0|
00008820  3a 45 51 55 44 20 30 3a  45 51 55 44 20 30 0d 36  |:EQUD 0:EQUD 0.6|
00008830  e2 04 0d 36 ec 0e 2e 6e  65 61 72 63 6f 75 6e 74  |...6...nearcount|
00008840  0d 36 f6 16 53 54 4d 46  44 20 28 73 70 29 21 2c  |.6..STMFD (sp)!,|
00008850  7b 6c 69 6e 6b 7d 0d 37  00 3c 4c 44 52 20 52 38  |{link}.7.<LDR R8|
00008860  2c 6e 65 62 6f 62 6c 6f  63 6b 3a 4c 44 52 20 52  |,neboblock:LDR R|
00008870  39 2c 6e 65 62 6f 62 6c  6f 63 6b 2b 34 3a 4c 44  |9,neboblock+4:LD|
00008880  52 20 52 31 30 2c 6e 65  62 6f 62 6c 6f 63 6b 2b  |R R10,neboblock+|
00008890  31 32 0d 37 0a 0d 4d 4f  56 20 42 25 2c 23 30 0d  |12.7..MOV B%,#0.|
000088a0  37 14 2d 53 55 42 20 45  25 2c 45 25 2c 23 31 3a  |7.-SUB E%,E%,#1:|
000088b0  4d 4f 56 20 52 31 32 2c  23 31 32 3a 4d 4c 41 20  |MOV R12,#12:MLA |
000088c0  48 25 2c 45 25 2c 52 31  32 2c 48 25 0d 37 1e 0b  |H%,E%,R12,H%.7..|
000088d0  2e 63 6e 62 6c 70 32 0d  37 28 1e 53 55 42 20 47  |.cnblp2.7(.SUB G|
000088e0  25 2c 48 25 2c 23 31 32  3a 53 55 42 20 46 25 2c  |%,H%,#12:SUB F%,|
000088f0  45 25 2c 23 31 0d 37 32  0b 2e 63 6e 62 6c 70 31  |E%,#1.72..cnblp1|
00008900  0d 37 3c 30 4c 44 52 20  41 25 2c 5b 48 25 2c 23  |.7<0LDR A%,[H%,#|
00008910  38 5d 3a 4c 44 52 20 52  31 32 2c 5b 47 25 2c 23  |8]:LDR R12,[G%,#|
00008920  38 5d 3a 53 55 42 20 41  25 2c 41 25 2c 52 31 32  |8]:SUB A%,A%,R12|
00008930  0d 37 46 38 4d 4f 56 20  41 25 2c 41 25 2c 41 53  |.7F8MOV A%,A%,AS|
00008940  52 20 52 31 30 3a 4d 55  4c 20 43 25 2c 41 25 2c  |R R10:MUL C%,A%,|
00008950  41 25 3a 43 4d 50 20 43  25 2c 52 39 3a 42 47 54  |A%:CMP C%,R9:BGT|
00008960  20 63 6e 62 73 6b 69 70  0d 37 50 30 4c 44 52 20  | cnbskip.7P0LDR |
00008970  41 25 2c 5b 48 25 2c 23  34 5d 3a 4c 44 52 20 52  |A%,[H%,#4]:LDR R|
00008980  31 32 2c 5b 47 25 2c 23  34 5d 3a 53 55 42 20 41  |12,[G%,#4]:SUB A|
00008990  25 2c 41 25 2c 52 31 32  0d 37 5a 3b 4d 4f 56 20  |%,A%,R12.7Z;MOV |
000089a0  41 25 2c 41 25 2c 41 53  52 20 52 31 30 3a 4d 4c  |A%,A%,ASR R10:ML|
000089b0  41 20 43 25 2c 41 25 2c  41 25 2c 43 25 3a 43 4d  |A C%,A%,A%,C%:CM|
000089c0  50 20 43 25 2c 52 39 3a  42 47 54 20 63 6e 62 73  |P C%,R9:BGT cnbs|
000089d0  6b 69 70 0d 37 64 30 4c  44 52 20 41 25 2c 5b 48  |kip.7d0LDR A%,[H|
000089e0  25 2c 23 30 5d 3a 4c 44  52 20 52 31 32 2c 5b 47  |%,#0]:LDR R12,[G|
000089f0  25 2c 23 30 5d 3a 53 55  42 20 41 25 2c 41 25 2c  |%,#0]:SUB A%,A%,|
00008a00  52 31 32 0d 37 6e 3b 4d  4f 56 20 41 25 2c 41 25  |R12.7n;MOV A%,A%|
00008a10  2c 41 53 52 20 52 31 30  3a 4d 4c 41 20 43 25 2c  |,ASR R10:MLA C%,|
00008a20  41 25 2c 41 25 2c 43 25  3a 43 4d 50 20 43 25 2c  |A%,A%,C%:CMP C%,|
00008a30  52 39 3a 42 47 54 20 63  6e 62 73 6b 69 70 0d 37  |R9:BGT cnbskip.7|
00008a40  78 2d 4c 44 52 20 41 25  2c 6e 65 62 6f 62 6c 6f  |x-LDR A%,neboblo|
00008a50  63 6b 2b 31 36 3a 43 4d  50 20 43 25 2c 41 25 3a  |ck+16:CMP C%,A%:|
00008a60  42 4c 54 20 63 6e 62 73  6b 69 70 0d 37 82 10 41  |BLT cnbskip.7..A|
00008a70  44 44 20 42 25 2c 42 25  2c 23 31 0d 37 8c 0c 2e  |DD B%,B%,#1.7...|
00008a80  63 6e 62 73 6b 69 70 0d  37 96 2a 53 55 42 20 47  |cnbskip.7.*SUB G|
00008a90  25 2c 47 25 2c 23 31 32  3a 53 55 42 53 20 46 25  |%,G%,#12:SUBS F%|
00008aa0  2c 46 25 2c 23 31 3a 42  47 45 20 63 6e 62 6c 70  |,F%,#1:BGE cnblp|
00008ab0  31 0d 37 a0 2a 53 55 42  20 48 25 2c 48 25 2c 23  |1.7.*SUB H%,H%,#|
00008ac0  31 32 3a 53 55 42 53 20  45 25 2c 45 25 2c 23 31  |12:SUBS E%,E%,#1|
00008ad0  3a 42 47 54 20 63 6e 62  6c 70 32 0d 37 aa 0d 4d  |:BGT cnblp2.7..M|
00008ae0  4f 56 20 52 30 2c 42 25  0d 37 b4 14 4c 44 4d 46  |OV R0,B%.7..LDMF|
00008af0  44 20 28 73 70 29 21 2c  7b 70 63 7d 0d 37 be 05  |D (sp)!,{pc}.7..|
00008b00  5d 0d 37 c8 31 e7 20 50  25 3e 63 6f 64 65 2b 63  |].7.1. P%>code+c|
00008b10  73 70 61 63 65 20 8c 20  85 20 31 2c 22 4f 75 74  |space . . 1,"Out|
00008b20  20 6f 66 20 72 6f 6f 6d  20 66 6f 72 20 63 6f 64  | of room for cod|
00008b30  65 22 0d 37 d2 0a ed 20  50 41 53 53 0d 37 dc 05  |e".7... PASS.7..|
00008b40  e1 0d 37 e6 05 3a 0d 37  f0 0c dd 20 f2 61 73 73  |..7..:.7... .ass|
00008b50  65 6d 0d 37 fa 0f 63 73  70 61 63 65 3d 33 30 30  |em.7..cspace=300|
00008b60  30 0d 38 04 11 de 20 63  6f 64 65 20 63 73 70 61  |0.8... code cspa|
00008b70  63 65 0d 38 0e 2b 41 25  3d 30 3a 42 25 3d 31 3a  |ce.8.+A%=0:B%=1:|
00008b80  43 25 3d 32 3a 44 25 3d  33 3a 45 25 3d 34 3a 46  |C%=2:D%=3:E%=4:F|
00008b90  25 3d 35 3a 47 25 3d 36  3a 48 25 3d 37 0d 38 18  |%=5:G%=6:H%=7.8.|
00008ba0  23 72 65 70 65 6c 64 69  76 3d a4 61 73 73 65 6d  |#repeldiv=.assem|
00008bb0  44 69 76 28 46 25 2c 44  25 2c 36 2c 37 2c 38 29  |Div(F%,D%,6,7,8)|
00008bc0  0d 38 22 12 58 25 3d 30  3a 59 25 3d 31 3a 5a 25  |.8".X%=0:Y%=1:Z%|
00008bd0  3d 33 0d 38 2c 23 41 49  25 3d 31 32 3a 42 49 25  |=3.8,#AI%=12:BI%|
00008be0  3d 31 31 3a 53 41 25 3d  39 3a 43 42 25 3d 38 3a  |=11:SA%=9:CB%=8:|
00008bf0  53 42 25 3d 37 0d 38 36  17 6c 69 6e 6b 3d 31 34  |SB%=7.86.link=14|
00008c00  3a 73 70 3d 31 33 3a 70  63 3d 31 35 0d 38 40 14  |:sp=13:pc=15.8@.|
00008c10  e3 20 50 41 53 53 3d 30  20 b8 20 32 20 88 20 32  |. PASS=0 . 2 . 2|
00008c20  0d 38 4a 0b 50 25 3d 63  6f 64 65 0d 38 54 0e 5b  |.8J.P%=code.8T.[|
00008c30  20 4f 50 54 20 50 41 53  53 0d 38 5e 04 0d 38 68  | OPT PASS.8^..8h|
00008c40  10 2e 62 61 73 69 63 5f  73 74 61 63 6b 0d 38 72  |..basic_stack.8r|
00008c50  0e 4d 4f 56 20 52 30 2c  52 31 33 0d 38 7c 0f 4d  |.MOV R0,R13.8|.M|
00008c60  4f 56 20 70 63 2c 6c 69  6e 6b 0d 38 86 04 0d 38  |OV pc,link.8...8|
00008c70  90 08 2e 61 76 5a 0d 38  9a 0f 4d 4f 56 20 52 31  |...avZ.8..MOV R1|
00008c80  30 2c 23 31 32 0d 38 a4  16 53 54 4d 46 44 20 28  |0,#12.8..STMFD (|
00008c90  73 70 29 21 2c 7b 6c 69  6e 6b 7d 0d 38 ae 0c 2e  |sp)!,{link}.8...|
00008ca0  61 76 7a 6c 6f 6f 70 0d  38 b8 17 4c 44 4d 49 41  |avzloop.8..LDMIA|
00008cb0  20 43 25 2c 7b 52 37 2c  52 38 2c 52 39 7d 0d 38  | C%,{R7,R8,R9}.8|
00008cc0  c2 14 4d 4c 41 20 52 37  2c 52 31 30 2c 52 37 2c  |..MLA R7,R10,R7,|
00008cd0  44 25 0d 38 cc 14 4d 4c  41 20 52 38 2c 52 31 30  |D%.8..MLA R8,R10|
00008ce0  2c 52 38 2c 44 25 0d 38  d6 14 4d 4c 41 20 52 39  |,R8,D%.8..MLA R9|
00008cf0  2c 52 31 30 2c 52 39 2c  44 25 0d 38 e0 0f 4c 44  |,R10,R9,D%.8..LD|
00008d00  52 20 46 25 2c 5b 52 37  5d 0d 38 ea 1e 4c 44 52  |R F%,[R7].8..LDR|
00008d10  20 52 31 31 2c 5b 52 38  5d 3a 41 44 44 20 46 25  | R11,[R8]:ADD F%|
00008d20  2c 46 25 2c 52 31 31 0d  38 f4 1e 4c 44 52 20 52  |,F%,R11.8..LDR R|
00008d30  31 31 2c 5b 52 39 5d 3a  41 44 44 20 46 25 2c 46  |11,[R9]:ADD F%,F|
00008d40  25 2c 52 31 31 0d 38 fe  13 53 54 52 20 46 25 2c  |%,R11.8..STR F%,|
00008d50  5b 43 25 2c 23 31 32 5d  0d 39 08 18 41 44 44 20  |[C%,#12].9..ADD |
00008d60  43 25 2c 43 25 2c 23 65  6c 73 69 7a 25 28 33 29  |C%,C%,#elsiz%(3)|
00008d70  0d 39 12 1d 53 55 42 53  20 45 25 2c 45 25 2c 23  |.9..SUBS E%,E%,#|
00008d80  31 3a 42 47 45 20 61 76  7a 6c 6f 6f 70 0d 39 1c  |1:BGE avzloop.9.|
00008d90  14 4c 44 4d 46 44 20 28  73 70 29 21 2c 7b 70 63  |.LDMFD (sp)!,{pc|
00008da0  7d 0d 39 26 04 0d 39 30  0e 2e 68 69 64 65 66 61  |}.9&..90..hidefa|
00008db0  63 65 73 0d 39 3a 16 53  54 4d 46 44 20 28 73 70  |ces.9:.STMFD (sp|
00008dc0  29 21 2c 7b 6c 69 6e 6b  7d 0d 39 44 0c 2e 68 69  |)!,{link}.9D..hi|
00008dd0  64 65 66 6c 70 0d 39 4e  13 4c 44 52 20 46 25 2c  |deflp.9N.LDR F%,|
00008de0  5b 43 25 2c 23 31 36 5d  0d 39 58 18 4c 44 4d 49  |[C%,#16].9X.LDMI|
00008df0  41 20 43 25 2c 7b 52 37  2c 52 39 2c 52 31 31 7d  |A C%,{R7,R9,R11}|
00008e00  0d 39 62 16 41 44 44 20  52 37 2c 44 25 2c 52 37  |.9b.ADD R7,D%,R7|
00008e10  2c 41 53 4c 23 33 0d 39  6c 16 41 44 44 20 52 39  |,ASL#3.9l.ADD R9|
00008e20  2c 44 25 2c 52 39 2c 41  53 4c 23 33 0d 39 76 18  |,D%,R9,ASL#3.9v.|
00008e30  41 44 44 20 52 31 31 2c  44 25 2c 52 31 31 2c 41  |ADD R11,D%,R11,A|
00008e40  53 4c 23 33 0d 39 80 14  4c 44 4d 49 41 20 52 37  |SL#3.9..LDMIA R7|
00008e50  2c 7b 52 37 2c 52 38 7d  0d 39 8a 15 4c 44 4d 49  |,{R7,R8}.9..LDMI|
00008e60  41 20 52 39 2c 7b 52 39  2c 52 31 30 7d 0d 39 94  |A R9,{R9,R10}.9.|
00008e70  17 4c 44 4d 49 41 20 52  31 31 2c 7b 52 31 31 2c  |.LDMIA R11,{R11,|
00008e80  52 31 32 7d 0d 39 9e 21  53 55 42 20 52 39 20 2c  |R12}.9.!SUB R9 ,|
00008e90  52 39 20 2c 52 37 3a 53  55 42 20 52 31 30 2c 52  |R9 ,R7:SUB R10,R|
00008ea0  31 30 2c 52 38 0d 39 a8  21 53 55 42 20 52 31 31  |10,R8.9.!SUB R11|
00008eb0  2c 52 31 31 2c 52 37 3a  53 55 42 20 52 31 32 2c  |,R11,R7:SUB R12,|
00008ec0  52 31 32 2c 52 38 0d 39  b2 20 4d 55 4c 20 52 37  |R12,R8.9. MUL R7|
00008ed0  2c 52 39 2c 52 31 32 3a  4d 55 4c 20 52 38 2c 52  |,R9,R12:MUL R8,R|
00008ee0  31 30 2c 52 31 31 0d 39  bc 18 42 49 43 20 46 25  |10,R11.9..BIC F%|
00008ef0  2c 46 25 2c 23 26 32 30  30 30 30 30 30 30 0d 39  |,F%,#&20000000.9|
00008f00  c6 23 43 4d 50 20 52 37  2c 52 38 3a 84 52 4c 54  |.#CMP R7,R8:.RLT|
00008f10  20 46 25 2c 46 25 2c 23  26 32 30 30 30 30 30 30  | F%,F%,#&2000000|
00008f20  30 0d 39 d0 13 53 54 52  20 46 25 2c 5b 43 25 2c  |0.9..STR F%,[C%,|
00008f30  23 31 36 5d 0d 39 da 18  41 44 44 20 43 25 2c 43  |#16].9..ADD C%,C|
00008f40  25 2c 23 65 6c 73 69 7a  25 28 33 29 0d 39 e4 1d  |%,#elsiz%(3).9..|
00008f50  53 55 42 53 20 45 25 2c  45 25 2c 23 31 3a 42 47  |SUBS E%,E%,#1:BG|
00008f60  45 20 68 69 64 65 66 6c  70 0d 39 ee 14 4c 44 4d  |E hideflp.9..LDM|
00008f70  46 44 20 28 73 70 29 21  2c 7b 70 63 7d 0d 39 f8  |FD (sp)!,{pc}.9.|
00008f80  04 0d 3a 02 11 2e 70 74  73 31 32 20 45 51 55 44  |..:...pts12 EQUD|
00008f90  20 30 0d 3a 0c 17 2e 76  65 6c 32 70 6f 73 20 45  | 0.:...vel2pos E|
00008fa0  51 55 44 20 76 65 6c 32  25 0d 3a 16 13 2e 73 74  |QUD vel2%.:...st|
00008fb0  6f 72 65 73 70 20 45 51  55 44 20 30 0d 3a 20 1d  |oresp EQUD 0.: .|
00008fc0  2e 64 61 6d 70 72 61 6e  20 45 51 55 44 20 28 31  |.dampran EQUD (1|
00008fd0  2e 30 2a 31 38 30 29 5e  32 0d 3a 2a 18 2e 64 61  |.0*180)^2.:*..da|
00008fe0  6d 70 73 68 20 45 51 55  44 20 64 61 6d 70 73 68  |mpsh EQUD dampsh|
00008ff0  25 0d 3a 34 17 2e 64 69  76 74 61 62 20 45 51 55  |%.:4..divtab EQU|
00009000  44 20 72 65 63 69 70 25  0d 3a 3e 04 0d 3a 48 1f  |D recip%.:>..:H.|
00009010  2e 76 31 70 6f 73 20 45  51 55 44 20 30 3a 2e 76  |.v1pos EQUD 0:.v|
00009020  32 70 6f 73 20 45 51 55  44 20 30 0d 3a 52 11 2e  |2pos EQUD 0.:R..|
00009030  66 72 69 63 74 20 45 51  55 44 20 30 0d 3a 5c 04  |frict EQUD 0.:\.|
00009040  0d 3a 66 0f 2e 72 65 70  65 6c 5f 63 6f 64 65 0d  |.:f..repel_code.|
00009050  3a 70 16 53 54 4d 46 44  20 28 73 70 29 21 2c 7b  |:p.STMFD (sp)!,{|
00009060  6c 69 6e 6b 7d 0d 3a 7a  11 4c 44 52 20 52 31 30  |link}.:z.LDR R10|
00009070  2c 70 74 73 31 32 0d 3a  84 0d 4d 4f 56 20 52 38  |,pts12.:..MOV R8|
00009080  2c 52 34 0d 3a 8e 10 4c  44 52 20 52 39 2c 76 32  |,R4.:..LDR R9,v2|
00009090  70 6f 73 0d 3a 98 0e 2e  72 65 70 65 6c 5f 6c 70  |pos.:...repel_lp|
000090a0  31 0d 3a a2 3b 5c 20 30  2c 31 2c 32 3d 78 31 25  |1.:.;\ 0,1,2=x1%|
000090b0  2c 79 31 25 2c 7a 31 25  20 33 3d 63 32 25 20 34  |,y1%,z1% 3=c2% 4|
000090c0  3d 20 35 3d 66 25 20 36  3d 73 25 20 37 3d 72 25  |= 5=f% 6=s% 7=r%|
000090d0  20 38 3d 66 32 25 20 39  3d 76 32 25 0d 3a ac 2e  | 8=f2% 9=v2%.:..|
000090e0  4c 44 52 42 20 52 34 2c  5b 52 38 5d 3a 54 53 54  |LDRB R4,[R8]:TST|
000090f0  20 52 34 2c 23 33 3a 42  4c 4e 45 20 72 65 70 65  | R4,#3:BLNE repe|
00009100  6c 5f 63 6f 6d 70 70 61  69 72 0d 3a b6 15 5c 20  |l_comppair.:..\ |
00009110  52 31 31 2c 52 31 32 20  63 68 61 6e 67 65 64 0d  |R11,R12 changed.|
00009120  3a c0 11 41 44 44 20 52  33 2c 52 33 2c 23 31 32  |:..ADD R3,R3,#12|
00009130  0d 3a ca 11 41 44 44 20  52 39 2c 52 39 2c 23 31  |.:..ADD R9,R9,#1|
00009140  32 0d 3a d4 10 41 44 44  20 52 38 2c 52 38 2c 23  |2.:..ADD R8,R8,#|
00009150  31 0d 3a de 14 53 55 42  53 20 52 31 30 2c 52 31  |1.:..SUBS R10,R1|
00009160  30 2c 23 31 32 0d 3a e8  11 42 47 45 20 72 65 70  |0,#12.:..BGE rep|
00009170  65 6c 5f 6c 70 31 0d 3a  f2 14 4c 44 4d 46 44 20  |el_lp1.:..LDMFD |
00009180  28 73 70 29 21 2c 7b 70  63 7d 0d 3a fc 04 0d 3b  |(sp)!,{pc}.:...;|
00009190  06 13 2e 72 65 70 65 6c  5f 63 6f 6d 70 70 61 69  |...repel_comppai|
000091a0  72 0d 3b 10 21 5c 53 54  4d 46 44 20 28 73 70 29  |r.;.!\STMFD (sp)|
000091b0  21 2c 7b 52 30 2d 52 33  2c 52 31 30 2c 6c 69 6e  |!,{R0-R3,R10,lin|
000091c0  6b 7d 0d 3b 1a 23 53 54  4d 46 44 20 28 73 70 29  |k}.;.#STMFD (sp)|
000091d0  21 2c 7b 52 30 2d 52 33  2c 52 39 2d 52 31 30 2c  |!,{R0-R3,R9-R10,|
000091e0  6c 69 6e 6b 7d 0d 3b 24  34 5c 20 30 2c 31 2c 32  |link}.;$4\ 0,1,2|
000091f0  3d 78 31 25 2c 79 31 25  2c 7a 31 25 20 33 3d 63  |=x1%,y1%,z1% 3=c|
00009200  32 25 20 34 3d 66 32 25  3f 30 20 35 3d 66 25 20  |2% 4=f2%?0 5=f% |
00009210  36 3d 73 25 20 37 3d 72  25 0d 3b 2e 1a 4c 44 4d  |6=s% 7=r%.;..LDM|
00009220  49 41 20 52 33 2c 7b 52  31 30 2c 52 31 31 2c 52  |IA R3,{R10,R11,R|
00009230  31 32 7d 0d 3b 38 2d 53  55 42 20 52 30 2c 52 30  |12}.;8-SUB R0,R0|
00009240  2c 52 31 30 3a 53 55 42  20 52 31 2c 52 31 2c 52  |,R10:SUB R1,R1,R|
00009250  31 31 3a 53 55 42 20 52  32 2c 52 32 2c 52 31 32  |11:SUB R2,R2,R12|
00009260  0d 3b 42 33 4d 4f 56 20  52 30 2c 52 30 2c 41 53  |.;B3MOV R0,R0,AS|
00009270  52 23 37 3a 4d 4f 56 20  52 31 2c 52 31 2c 41 53  |R#7:MOV R1,R1,AS|
00009280  52 23 37 3a 4d 4f 56 20  52 32 2c 52 32 2c 41 53  |R#7:MOV R2,R2,AS|
00009290  52 23 37 0d 3b 4c 30 4d  55 4c 20 52 33 2c 52 30  |R#7.;L0MUL R3,R0|
000092a0  2c 52 30 3a 4d 4c 41 20  52 33 2c 52 31 2c 52 31  |,R0:MLA R3,R1,R1|
000092b0  2c 52 33 3a 4d 4c 41 20  52 33 2c 52 32 2c 52 32  |,R3:MLA R3,R2,R2|
000092c0  2c 52 33 0d 3b 56 25 5c  20 52 30 2c 52 31 2c 52  |,R3.;V%\ R0,R1,R|
000092d0  32 2c 52 33 2c 52 31 30  2c 52 31 31 2c 52 31 32  |2,R3,R10,R11,R12|
000092e0  20 63 68 61 6e 67 65 64  0d 3b 60 1d 43 4d 50 20  | changed.;`.CMP |
000092f0  52 33 2c 52 37 3a 42 4c  4c 54 20 72 65 70 65 6c  |R3,R7:BLLT repel|
00009300  5f 70 61 69 72 0d 3b 6a  25 5c 20 52 30 2c 52 31  |_pair.;j%\ R0,R1|
00009310  2c 52 32 2c 52 33 2c 52  31 30 2c 52 31 31 2c 52  |,R2,R3,R10,R11,R|
00009320  31 32 20 63 68 61 6e 67  65 64 0d 3b 74 21 4c 44  |12 changed.;t!LD|
00009330  4d 46 44 20 28 73 70 29  21 2c 7b 52 30 2d 52 33  |MFD (sp)!,{R0-R3|
00009340  2c 52 39 2d 52 31 30 2c  70 63 7d 0d 3b 7e 15 5c  |,R9-R10,pc}.;~.\|
00009350  20 52 31 31 2c 52 31 32  20 63 68 61 6e 67 65 64  | R11,R12 changed|
00009360  0d 3b 88 04 0d 3b 92 0f  2e 72 65 70 65 6c 5f 70  |.;...;...repel_p|
00009370  61 69 72 0d 3b 9c 1c 53  54 4d 46 44 20 28 73 70  |air.;..STMFD (sp|
00009380  29 21 2c 7b 52 34 2d 52  38 2c 6c 69 6e 6b 7d 0d  |)!,{R4-R8,link}.|
00009390  3b a6 36 5c 20 28 30 2c  31 2c 32 29 3d 28 64 78  |;.6\ (0,1,2)=(dx|
000093a0  2c 64 79 2c 64 7a 29 20  33 3d 64 5e 32 20 34 3d  |,dy,dz) 3=d^2 4=|
000093b0  66 32 25 3f 6a 25 20 35  3d 66 25 20 36 3d 73 25  |f2%?j% 5=f% 6=s%|
000093c0  20 37 3d 72 25 0d 3b b0  2a 4c 44 52 20 52 31 30  | 7=r%.;.*LDR R10|
000093d0  2c 76 31 70 6f 73 3a 4d  4f 56 20 52 31 31 2c 52  |,v1pos:MOV R11,R|
000093e0  39 3a 4c 44 52 20 52 31  32 2c 66 72 69 63 74 0d  |9:LDR R12,frict.|
000093f0  3b ba 0c 42 4c 20 72 72  6f 6f 74 0d 3b c4 19 43  |;..BL rroot.;..C|
00009400  4d 50 20 52 33 2c 23 32  3a 4d 4f 56 4c 54 20 52  |MP R3,#2:MOVLT R|
00009410  33 2c 23 32 0d 3b ce 1d  53 55 42 20 52 36 2c 52  |3,#2.;..SUB R6,R|
00009420  36 2c 52 33 3a 4d 55 4c  20 52 35 2c 52 36 2c 52  |6,R3:MUL R5,R6,R|
00009430  35 0d 3b d8 0f 42 4c 20  72 65 70 65 6c 64 69 76  |5.;..BL repeldiv|
00009440  0d 3b e2 17 5c 20 33 2c  35 2c 36 2c 37 2c 38 20  |.;..\ 3,5,6,7,8 |
00009450  63 68 61 6e 67 65 64 0d  3b ec 2a 4d 55 4c 20 52  |changed.;.*MUL R|
00009460  30 2c 52 36 2c 52 30 3a  4d 55 4c 20 52 31 2c 52  |0,R6,R0:MUL R1,R|
00009470  36 2c 52 31 3a 4d 55 4c  20 52 32 2c 52 36 2c 52  |6,R1:MUL R2,R6,R|
00009480  32 0d 3b f6 1b 80 20 52  34 2c 52 34 2c 23 32 3a  |2.;... R4,R4,#2:|
00009490  52 53 42 20 52 33 2c 52  34 2c 23 38 0d 3c 00 18  |RSB R3,R4,#8.<..|
000094a0  4c 44 4d 49 41 20 52 31  30 2c 7b 52 34 2c 52 35  |LDMIA R10,{R4,R5|
000094b0  2c 52 36 7d 0d 3c 0a 2c  53 55 42 20 52 34 2c 52  |,R6}.<.,SUB R4,R|
000094c0  34 2c 52 34 2c 41 53 52  20 52 31 32 3a 41 44 44  |4,R4,ASR R12:ADD|
000094d0  20 52 34 2c 52 34 2c 52  30 2c 41 53 52 20 52 33  | R4,R4,R0,ASR R3|
000094e0  0d 3c 14 2c 53 55 42 20  52 35 2c 52 35 2c 52 35  |.<.,SUB R5,R5,R5|
000094f0  2c 41 53 52 20 52 31 32  3a 41 44 44 20 52 35 2c  |,ASR R12:ADD R5,|
00009500  52 35 2c 52 31 2c 41 53  52 20 52 33 0d 3c 1e 2c  |R5,R1,ASR R3.<.,|
00009510  53 55 42 20 52 36 2c 52  36 2c 52 36 2c 41 53 52  |SUB R6,R6,R6,ASR|
00009520  20 52 31 32 3a 41 44 44  20 52 36 2c 52 36 2c 52  | R12:ADD R6,R6,R|
00009530  32 2c 41 53 52 20 52 33  0d 3c 28 18 53 54 4d 49  |2,ASR R3.<(.STMI|
00009540  41 20 52 31 30 2c 7b 52  34 2c 52 35 2c 52 36 7d  |A R10,{R4,R5,R6}|
00009550  0d 3c 32 18 4c 44 4d 49  41 20 52 31 31 2c 7b 52  |.<2.LDMIA R11,{R|
00009560  34 2c 52 35 2c 52 36 7d  0d 3c 3c 2c 53 55 42 20  |4,R5,R6}.<<,SUB |
00009570  52 34 2c 52 34 2c 52 34  2c 41 53 52 20 52 31 32  |R4,R4,R4,ASR R12|
00009580  3a 53 55 42 20 52 34 2c  52 34 2c 52 30 2c 41 53  |:SUB R4,R4,R0,AS|
00009590  52 20 52 33 0d 3c 46 2c  53 55 42 20 52 35 2c 52  |R R3.<F,SUB R5,R|
000095a0  35 2c 52 35 2c 41 53 52  20 52 31 32 3a 53 55 42  |5,R5,ASR R12:SUB|
000095b0  20 52 35 2c 52 35 2c 52  31 2c 41 53 52 20 52 33  | R5,R5,R1,ASR R3|
000095c0  0d 3c 50 2c 53 55 42 20  52 36 2c 52 36 2c 52 36  |.<P,SUB R6,R6,R6|
000095d0  2c 41 53 52 20 52 31 32  3a 53 55 42 20 52 36 2c  |,ASR R12:SUB R6,|
000095e0  52 36 2c 52 32 2c 41 53  52 20 52 33 0d 3c 5a 18  |R6,R2,ASR R3.<Z.|
000095f0  53 54 4d 49 41 20 52 31  31 2c 7b 52 34 2c 52 35  |STMIA R11,{R4,R5|
00009600  2c 52 36 7d 0d 3c 64 34  5c 20 52 30 2c 52 31 2c  |,R6}.<d4\ R0,R1,|
00009610  52 32 2c 52 33 2c 52 34  2c 52 35 2c 52 36 2c 52  |R2,R3,R4,R5,R6,R|
00009620  37 2c 52 38 2c 52 31 30  2c 52 31 31 2c 52 31 32  |7,R8,R10,R11,R12|
00009630  20 63 68 61 6e 67 65 64  0d 3c 6e 1a 4c 44 4d 46  | changed.<n.LDMF|
00009640  44 20 28 73 70 29 21 2c  7b 52 34 2d 52 38 2c 70  |D (sp)!,{R4-R8,p|
00009650  63 7d 0d 3c 78 25 5c 20  52 30 2c 52 31 2c 52 32  |c}.<x%\ R0,R1,R2|
00009660  2c 52 33 2c 52 31 30 2c  52 31 31 2c 52 31 32 20  |,R3,R10,R11,R12 |
00009670  63 68 61 6e 67 65 64 0d  3c 82 04 0d 3c 8c 0a 2e  |changed.<...<...|
00009680  72 72 6f 6f 74 0d 3c 96  1c 53 54 4d 46 44 20 28  |rroot.<..STMFD (|
00009690  73 70 29 21 2c 7b 52 34  2d 52 39 2c 6c 69 6e 6b  |sp)!,{R4-R9,link|
000096a0  7d 0d 3c a0 0f 5c 20 73  71 75 61 72 65 3d 52 33  |}.<..\ square=R3|
000096b0  0d 3c aa 15 4d 4f 56 20  52 34 2c 23 26 43 30 30  |.<..MOV R4,#&C00|
000096c0  30 30 30 30 30 0d 3c b4  22 4d 4f 56 20 52 35 2c  |00000.<."MOV R5,|
000096d0  23 33 30 3a 4d 4f 56 20  52 36 2c 23 30 3a 4d 4f  |#30:MOV R6,#0:MO|
000096e0  56 20 52 37 2c 23 30 0d  3c be 0d 2e 6c 70 5f 72  |V R7,#0.<...lp_r|
000096f0  72 6f 6f 74 0d 3c c8 23  4d 4f 56 20 52 36 2c 52  |root.<.#MOV R6,R|
00009700  36 2c 4c 53 4c 23 31 3a  4d 4f 56 20 52 37 2c 52  |6,LSL#1:MOV R7,R|
00009710  37 2c 4c 53 4c 23 32 0d  3c d2 1f 80 20 52 39 2c  |7,LSL#2.<... R9,|
00009720  52 33 2c 52 34 3a 4d 4f  56 20 52 39 2c 52 39 2c  |R3,R4:MOV R9,R9,|
00009730  4c 53 52 20 52 35 0d 3c  dc 2c 84 52 20 52 37 2c  |LSR R5.<.,.R R7,|
00009740  52 37 2c 52 39 3a 4d 4f  56 20 52 38 2c 52 36 2c  |R7,R9:MOV R8,R6,|
00009750  4c 53 4c 23 31 3a 41 44  44 20 52 38 2c 52 38 2c  |LSL#1:ADD R8,R8,|
00009760  23 31 0d 3c e6 2b 43 4d  50 20 52 37 2c 52 38 3a  |#1.<.+CMP R7,R8:|
00009770  53 55 42 47 45 20 52 37  2c 52 37 2c 52 38 3a 41  |SUBGE R7,R7,R8:A|
00009780  44 44 47 45 20 52 36 2c  52 36 2c 23 31 0d 3c f0  |DDGE R6,R6,#1.<.|
00009790  21 4d 4f 56 20 52 34 2c  52 34 2c 4c 53 52 23 32  |!MOV R4,R4,LSR#2|
000097a0  3a 53 55 42 53 20 52 35  2c 52 35 2c 23 32 0d 3c  |:SUBS R5,R5,#2.<|
000097b0  fa 10 42 50 4c 20 6c 70  5f 72 72 6f 6f 74 0d 3d  |..BPL lp_rroot.=|
000097c0  04 13 4d 4f 56 20 52 33  2c 52 36 2c 41 53 4c 23  |..MOV R3,R6,ASL#|
000097d0  37 0d 3d 0e 1a 4c 44 4d  46 44 20 28 73 70 29 21  |7.=..LDMFD (sp)!|
000097e0  2c 7b 52 34 2d 52 39 2c  70 63 7d 0d 3d 18 04 0d  |,{R4-R9,pc}.=...|
000097f0  3d 22 0d 2e 6f 6c 64 5f  64 61 6d 70 0d 3d 2c 10  |="..old_damp.=,.|
00009800  4c 44 52 20 41 25 2c 70  74 73 31 32 0d 3d 36 10  |LDR A%,pts12.=6.|
00009810  4c 44 52 20 42 25 2c 76  65 70 6f 73 0d 3d 40 11  |LDR B%,vepos.=@.|
00009820  4c 44 52 20 52 39 2c 64  61 6d 70 73 68 0d 3d 4a  |LDR R9,dampsh.=J|
00009830  0d 2e 64 61 6d 70 6c 6f  6f 70 0d 3d 54 1a 4c 44  |..damploop.=T.LD|
00009840  4d 49 41 20 42 25 2c 7b  52 31 30 2c 52 31 31 2c  |MIA B%,{R10,R11,|
00009850  52 31 32 7d 0d 3d 5e 47  4d 4f 56 53 20 43 25 2c  |R12}.=^GMOVS C%,|
00009860  52 31 30 2c 41 53 52 23  37 3a 4d 55 4c 20 44 25  |R10,ASR#7:MUL D%|
00009870  2c 43 25 2c 43 25 3a 52  53 42 4d 49 20 44 25 2c  |,C%,C%:RSBMI D%,|
00009880  44 25 2c 23 30 3a 53 55  42 20 52 31 30 2c 52 31  |D%,#0:SUB R10,R1|
00009890  30 2c 44 25 2c 41 53 52  20 52 39 0d 3d 68 47 4d  |0,D%,ASR R9.=hGM|
000098a0  4f 56 53 20 43 25 2c 52  31 31 2c 41 53 52 23 37  |OVS C%,R11,ASR#7|
000098b0  3a 4d 55 4c 20 44 25 2c  43 25 2c 43 25 3a 52 53  |:MUL D%,C%,C%:RS|
000098c0  42 4d 49 20 44 25 2c 44  25 2c 23 30 3a 53 55 42  |BMI D%,D%,#0:SUB|
000098d0  20 52 31 31 2c 52 31 31  2c 44 25 2c 41 53 52 20  | R11,R11,D%,ASR |
000098e0  52 39 0d 3d 72 47 4d 4f  56 53 20 43 25 2c 52 31  |R9.=rGMOVS C%,R1|
000098f0  32 2c 41 53 52 23 37 3a  4d 55 4c 20 44 25 2c 43  |2,ASR#7:MUL D%,C|
00009900  25 2c 43 25 3a 52 53 42  4d 49 20 44 25 2c 44 25  |%,C%:RSBMI D%,D%|
00009910  2c 23 30 3a 53 55 42 20  52 31 32 2c 52 31 32 2c  |,#0:SUB R12,R12,|
00009920  44 25 2c 41 53 52 20 52  39 0d 3d 7c 1d 53 54 4d  |D%,ASR R9.=|.STM|
00009930  49 41 20 28 42 25 29 21  2c 7b 52 31 30 2c 52 31  |IA (B%)!,{R10,R1|
00009940  31 2c 52 31 32 7d 0d 3d  86 1f 53 55 42 53 20 41  |1,R12}.=..SUBS A|
00009950  25 2c 41 25 2c 23 31 32  3a 42 47 45 20 64 61 6d  |%,A%,#12:BGE dam|
00009960  70 6c 6f 6f 70 0d 3d 90  0f 4d 4f 56 20 70 63 2c  |ploop.=..MOV pc,|
00009970  6c 69 6e 6b 0d 3d 9a 04  0d 3d a4 0b 2e 71 66 73  |link.=...=...qfs|
00009980  6f 72 74 0d 3d ae 25 53  54 4d 46 44 20 28 73 70  |ort.=.%STMFD (sp|
00009990  29 21 2c 7b 41 25 2c 42  25 2c 43 25 2c 46 25 2c  |)!,{A%,B%,C%,F%,|
000099a0  47 25 2c 6c 69 6e 6b 7d  0d 3d b8 20 41 44 44 20  |G%,link}.=. ADD |
000099b0  41 25 2c 46 25 2c 47 25  3a 4d 4f 56 20 41 25 2c  |A%,F%,G%:MOV A%,|
000099c0  41 25 2c 41 53 52 23 31  0d 3d c2 28 4c 44 52 20  |A%,ASR#1.=.(LDR |
000099d0  45 25 2c 5b 44 25 2c 41  25 2c 41 53 4c 23 32 5d  |E%,[D%,A%,ASL#2]|
000099e0  3a 4c 44 52 20 43 25 2c  5b 45 25 2c 23 31 32 5d  |:LDR C%,[E%,#12]|
000099f0  0d 3d cc 17 4d 4f 56 20  41 25 2c 46 25 3a 4d 4f  |.=..MOV A%,F%:MO|
00009a00  56 20 42 25 2c 47 25 0d  3d d6 0b 2e 71 66 73 6c  |V B%,G%.=...qfsl|
00009a10  70 31 0d 3d e0 28 4c 44  52 20 45 25 2c 5b 44 25  |p1.=.(LDR E%,[D%|
00009a20  2c 41 25 2c 41 53 4c 23  32 5d 3a 4c 44 52 20 45  |,A%,ASL#2]:LDR E|
00009a30  25 2c 5b 45 25 2c 23 31  32 5d 0d 3d ea 27 43 4d  |%,[E%,#12].=.'CM|
00009a40  50 20 45 25 2c 43 25 3a  41 44 44 4c 54 20 41 25  |P E%,C%:ADDLT A%|
00009a50  2c 41 25 2c 23 31 3a 42  4c 54 20 71 66 73 6c 70  |,A%,#1:BLT qfslp|
00009a60  31 0d 3d f4 0b 2e 71 66  73 6c 70 32 0d 3d fe 28  |1.=...qfslp2.=.(|
00009a70  4c 44 52 20 45 25 2c 5b  44 25 2c 42 25 2c 41 53  |LDR E%,[D%,B%,AS|
00009a80  4c 23 32 5d 3a 4c 44 52  20 45 25 2c 5b 45 25 2c  |L#2]:LDR E%,[E%,|
00009a90  23 31 32 5d 0d 3e 08 27  43 4d 50 20 43 25 2c 45  |#12].>.'CMP C%,E|
00009aa0  25 3a 53 55 42 4c 54 20  42 25 2c 42 25 2c 23 31  |%:SUBLT B%,B%,#1|
00009ab0  3a 42 4c 54 20 71 66 73  6c 70 32 0d 3e 12 1a 43  |:BLT qfslp2.>..C|
00009ac0  4d 50 20 41 25 2c 42 25  3a 42 47 54 20 73 6b 69  |MP A%,B%:BGT ski|
00009ad0  70 73 77 61 70 0d 3e 1c  2d 4c 44 52 20 45 25 2c  |pswap.>.-LDR E%,|
00009ae0  5b 44 25 2c 41 25 2c 41  53 4c 23 32 5d 3a 4c 44  |[D%,A%,ASL#2]:LD|
00009af0  52 20 52 39 2c 5b 44 25  2c 42 25 2c 41 53 4c 23  |R R9,[D%,B%,ASL#|
00009b00  32 5d 0d 3e 26 2d 53 54  52 20 52 39 2c 5b 44 25  |2].>&-STR R9,[D%|
00009b10  2c 41 25 2c 41 53 4c 23  32 5d 3a 53 54 52 20 45  |,A%,ASL#2]:STR E|
00009b20  25 2c 5b 44 25 2c 42 25  2c 41 53 4c 23 32 5d 0d  |%,[D%,B%,ASL#2].|
00009b30  3e 30 0d 2e 73 6b 69 70  73 77 61 70 0d 3e 3a 1d  |>0..skipswap.>:.|
00009b40  41 44 44 20 41 25 2c 41  25 2c 23 31 3a 53 55 42  |ADD A%,A%,#1:SUB|
00009b50  20 42 25 2c 42 25 2c 23  31 0d 3e 44 18 43 4d 50  | B%,B%,#1.>D.CMP|
00009b60  20 41 25 2c 42 25 3a 42  4c 45 20 71 66 73 6c 70  | A%,B%:BLE qfslp|
00009b70  31 0d 3e 4e 2f 4d 4f 56  20 43 25 2c 47 25 3a 43  |1.>N/MOV C%,G%:C|
00009b80  4d 50 20 46 25 2c 42 25  3a 4d 4f 56 4c 54 20 47  |MP F%,B%:MOVLT G|
00009b90  25 2c 42 25 3a 42 4c 4c  54 20 71 66 73 6f 72 74  |%,B%:BLLT qfsort|
00009ba0  0d 3e 58 2f 4d 4f 56 20  47 25 2c 43 25 3a 43 4d  |.>X/MOV G%,C%:CM|
00009bb0  50 20 41 25 2c 47 25 3a  4d 4f 56 4c 54 20 46 25  |P A%,G%:MOVLT F%|
00009bc0  2c 41 25 3a 42 4c 4c 54  20 71 66 73 6f 72 74 0d  |,A%:BLLT qfsort.|
00009bd0  3e 62 23 4c 44 4d 46 44  20 28 73 70 29 21 2c 7b  |>b#LDMFD (sp)!,{|
00009be0  41 25 2c 42 25 2c 43 25  2c 46 25 2c 47 25 2c 70  |A%,B%,C%,F%,G%,p|
00009bf0  63 7d 0d 3e 6c 04 0d 3e  76 09 2e 62 6f 6e 64 0d  |c}.>l..>v..bond.|
00009c00  3e 80 16 53 54 4d 46 44  20 28 73 70 29 21 2c 7b  |>..STMFD (sp)!,{|
00009c10  6c 69 6e 6b 7d 0d 3e 8a  0d 2e 62 6f 6e 64 6c 6f  |link}.>...bondlo|
00009c20  6f 70 0d 3e 94 25 4c 44  52 20 52 38 2c 62 6f 70  |op.>.%LDR R8,bop|
00009c30  6f 73 3a 4c 44 52 20 47  25 2c 5b 52 38 2c 45 25  |os:LDR G%,[R8,E%|
00009c40  2c 41 53 4c 23 33 5d 0d  3e 9e 25 41 44 44 20 52  |,ASL#3].>.%ADD R|
00009c50  38 2c 52 38 2c 23 34 3a  4c 44 52 20 46 25 2c 5b  |8,R8,#4:LDR F%,[|
00009c60  52 38 2c 45 25 2c 41 53  4c 23 33 5d 0d 3e a8 26  |R8,E%,ASL#3].>.&|
00009c70  4d 4f 56 20 48 25 2c 47  25 2c 4c 53 52 23 31 36  |MOV H%,G%,LSR#16|
00009c80  3a 82 20 47 25 2c 47 25  2c 48 25 2c 4c 53 4c 23  |:. G%,G%,H%,LSL#|
00009c90  31 36 0d 3e b2 28 4d 4f  56 20 52 38 2c 23 31 32  |16.>.(MOV R8,#12|
00009ca0  3a 4d 55 4c 20 47 25 2c  52 38 2c 47 25 3a 4d 55  |:MUL G%,R8,G%:MU|
00009cb0  4c 20 48 25 2c 52 38 2c  48 25 0d 3e bc 10 4c 44  |L H%,R8,H%.>..LD|
00009cc0  52 20 52 38 2c 63 6f 70  6f 73 0d 3e c6 24 41 44  |R R8,copos.>.$AD|
00009cd0  44 20 52 39 2c 52 38 2c  47 25 3a 4c 44 4d 49 41  |D R9,R8,G%:LDMIA|
00009ce0  20 52 39 2c 7b 52 30 2c  52 31 2c 52 32 7d 0d 3e  | R9,{R0,R1,R2}.>|
00009cf0  d0 27 41 44 44 20 52 39  2c 52 38 2c 48 25 3a 4c  |.'ADD R9,R8,H%:L|
00009d00  44 4d 49 41 20 52 39 2c  7b 52 31 30 2c 52 31 31  |DMIA R9,{R10,R11|
00009d10  2c 52 31 32 7d 0d 3e da  30 53 55 42 20 52 31 30  |,R12}.>.0SUB R10|
00009d20  2c 52 30 2c 52 31 30 3a  53 55 42 20 52 31 31 2c  |,R0,R10:SUB R11,|
00009d30  52 31 2c 52 31 31 3a 53  55 42 20 52 31 32 2c 52  |R1,R11:SUB R12,R|
00009d40  32 2c 52 31 32 0d 3e e4  0d 4d 4f 56 20 42 25 2c  |2,R12.>..MOV B%,|
00009d50  23 30 0d 3e ee 2d 43 4d  50 20 52 31 30 2c 23 30  |#0.>.-CMP R10,#0|
00009d60  3a 52 53 42 4c 54 20 52  31 30 2c 52 31 30 2c 23  |:RSBLT R10,R10,#|
00009d70  30 3a 84 52 4c 54 20 42  25 2c 42 25 2c 23 31 0d  |0:.RLT B%,B%,#1.|
00009d80  3e f8 2d 43 4d 50 20 52  31 31 2c 23 30 3a 52 53  |>.-CMP R11,#0:RS|
00009d90  42 4c 54 20 52 31 31 2c  52 31 31 2c 23 30 3a 84  |BLT R11,R11,#0:.|
00009da0  52 4c 54 20 42 25 2c 42  25 2c 23 32 0d 3f 02 2d  |RLT B%,B%,#2.?.-|
00009db0  43 4d 50 20 52 31 32 2c  23 30 3a 52 53 42 4c 54  |CMP R12,#0:RSBLT|
00009dc0  20 52 31 32 2c 52 31 32  2c 23 30 3a 84 52 4c 54  | R12,R12,#0:.RLT|
00009dd0  20 42 25 2c 42 25 2c 23  34 0d 3f 0c 1b 4d 4f 56  | B%,B%,#4.?..MOV|
00009de0  20 44 25 2c 23 31 3a 4d  4f 56 20 52 38 2c 23 26  | D%,#1:MOV R8,#&|
00009df0  36 38 30 30 0d 3f 16 33  2e 7a 73 73 6c 3a 43 4d  |6800.?.3.zssl:CM|
00009e00  50 20 52 38 2c 52 31 30  2c 41 53 52 20 44 25 3a  |P R8,R10,ASR D%:|
00009e10  41 44 44 4c 54 20 44 25  2c 44 25 2c 23 31 3a 42  |ADDLT D%,D%,#1:B|
00009e20  4c 54 20 7a 73 73 6c 0d  3f 20 33 2e 78 73 73 6c  |LT zssl.? 3.xssl|
00009e30  3a 43 4d 50 20 52 38 2c  52 31 31 2c 41 53 52 20  |:CMP R8,R11,ASR |
00009e40  44 25 3a 41 44 44 4c 54  20 44 25 2c 44 25 2c 23  |D%:ADDLT D%,D%,#|
00009e50  31 3a 42 4c 54 20 78 73  73 6c 0d 3f 2a 33 2e 79  |1:BLT xssl.?*3.y|
00009e60  73 73 6c 3a 43 4d 50 20  52 38 2c 52 31 32 2c 41  |ssl:CMP R8,R12,A|
00009e70  53 52 20 44 25 3a 41 44  44 4c 54 20 44 25 2c 44  |SR D%:ADDLT D%,D|
00009e80  25 2c 23 31 3a 42 4c 54  20 79 73 73 6c 0d 3f 34  |%,#1:BLT yssl.?4|
00009e90  3c 4d 4f 56 20 52 31 30  2c 52 31 30 2c 41 53 52  |<MOV R10,R10,ASR|
00009ea0  20 44 25 3a 4d 4f 56 20  52 31 31 2c 52 31 31 2c  | D%:MOV R11,R11,|
00009eb0  41 53 52 20 44 25 3a 4d  4f 56 20 52 31 32 2c 52  |ASR D%:MOV R12,R|
00009ec0  31 32 2c 41 53 52 20 44  25 0d 3f 3e 36 4d 55 4c  |12,ASR D%.?>6MUL|
00009ed0  20 43 25 2c 52 31 30 2c  52 31 30 3a 4d 4c 41 20  | C%,R10,R10:MLA |
00009ee0  43 25 2c 52 31 31 2c 52  31 31 2c 43 25 3a 4d 4c  |C%,R11,R11,C%:ML|
00009ef0  41 20 43 25 2c 52 31 32  2c 52 31 32 2c 43 25 0d  |A C%,R12,R12,C%.|
00009f00  3f 48 20 42 4c 20 72 6f  6f 74 3a 43 4d 50 20 41  |?H BL root:CMP A|
00009f10  25 2c 23 30 3a 42 45 51  20 64 69 76 62 79 30 0d  |%,#0:BEQ divby0.|
00009f20  3f 52 34 4d 4f 56 20 52  38 2c 46 25 2c 4c 53 52  |?R4MOV R8,F%,LSR|
00009f30  23 32 34 3a 4d 4f 56 20  52 39 2c 46 25 2c 4c 53  |#24:MOV R9,F%,LS|
00009f40  4c 23 38 3a 4d 4f 56 20  52 39 2c 52 39 2c 4c 53  |L#8:MOV R9,R9,LS|
00009f50  52 23 38 0d 3f 5c 2e 4d  4f 56 20 46 25 2c 41 25  |R#8.?\.MOV F%,A%|
00009f60  2c 41 53 4c 20 44 25 3a  53 55 42 20 46 25 2c 46  |,ASL D%:SUB F%,F|
00009f70  25 2c 52 39 3a 4d 55 4c  20 46 25 2c 52 38 2c 46  |%,R9:MUL F%,R8,F|
00009f80  25 0d 3f 66 29 43 4d 50  20 46 25 2c 23 30 3a 52  |%.?f)CMP F%,#0:R|
00009f90  53 42 4c 54 20 46 25 2c  46 25 2c 23 30 3a 82 4c  |SBLT F%,F%,#0:.L|
00009fa0  54 20 42 25 2c 42 25 2c  23 37 0d 3f 70 1b 4d 4f  |T B%,B%,#7.?p.MO|
00009fb0  56 20 44 25 2c 23 30 3a  4d 4f 56 20 52 38 2c 23  |V D%,#0:MOV R8,#|
00009fc0  26 38 30 30 30 0d 3f 7a  32 2e 66 73 73 6c 3a 43  |&8000.?z2.fssl:C|
00009fd0  4d 50 20 52 38 2c 46 25  2c 41 53 52 20 44 25 3a  |MP R8,F%,ASR D%:|
00009fe0  41 44 44 4c 54 20 44 25  2c 44 25 2c 23 31 3a 42  |ADDLT D%,D%,#1:B|
00009ff0  4c 54 20 66 73 73 6c 0d  3f 84 2f 52 53 42 20 44  |LT fssl.?./RSB D|
0000a000  25 2c 44 25 2c 23 31 32  3a 4d 4f 56 20 46 25 2c  |%,D%,#12:MOV F%,|
0000a010  46 25 2c 41 53 4c 20 44  25 3a 41 44 44 20 44 25  |F%,ASL D%:ADD D%|
0000a020  2c 44 25 2c 23 37 0d 3f  8e 0d 42 4c 20 75 44 69  |,D%,#7.?..BL uDi|
0000a030  76 33 32 0d 3f 98 40 4d  55 4c 20 52 31 30 2c 43  |v32.?.@MUL R10,C|
0000a040  25 2c 52 31 30 3a 4d 4f  56 20 52 31 30 2c 52 31  |%,R10:MOV R10,R1|
0000a050  30 2c 41 53 52 20 44 25  3a 54 53 54 20 42 25 2c  |0,ASR D%:TST B%,|
0000a060  23 31 3a 52 53 42 4e 45  20 52 31 30 2c 52 31 30  |#1:RSBNE R10,R10|
0000a070  2c 23 30 0d 3f a2 40 4d  55 4c 20 52 31 31 2c 43  |,#0.?.@MUL R11,C|
0000a080  25 2c 52 31 31 3a 4d 4f  56 20 52 31 31 2c 52 31  |%,R11:MOV R11,R1|
0000a090  31 2c 41 53 52 20 44 25  3a 54 53 54 20 42 25 2c  |1,ASR D%:TST B%,|
0000a0a0  23 32 3a 52 53 42 4e 45  20 52 31 31 2c 52 31 31  |#2:RSBNE R11,R11|
0000a0b0  2c 23 30 0d 3f ac 40 4d  55 4c 20 52 31 32 2c 43  |,#0.?.@MUL R12,C|
0000a0c0  25 2c 52 31 32 3a 4d 4f  56 20 52 31 32 2c 52 31  |%,R12:MOV R12,R1|
0000a0d0  32 2c 41 53 52 20 44 25  3a 54 53 54 20 42 25 2c  |2,ASR D%:TST B%,|
0000a0e0  23 34 3a 52 53 42 4e 45  20 52 31 32 2c 52 31 32  |#4:RSBNE R12,R12|
0000a0f0  2c 23 30 0d 3f b6 10 4c  44 52 20 52 38 2c 76 65  |,#0.?..LDR R8,ve|
0000a100  70 6f 73 0d 3f c0 62 41  44 44 20 52 39 2c 52 38  |pos.?.bADD R9,R8|
0000a110  2c 47 25 3a 4c 44 4d 49  41 20 52 39 2c 7b 52 30  |,G%:LDMIA R9,{R0|
0000a120  2c 52 31 2c 52 32 7d 3a  53 55 42 20 52 30 2c 52  |,R1,R2}:SUB R0,R|
0000a130  30 2c 52 31 30 3a 53 55  42 20 52 31 2c 52 31 2c  |0,R10:SUB R1,R1,|
0000a140  52 31 31 3a 53 55 42 20  52 32 2c 52 32 2c 52 31  |R11:SUB R2,R2,R1|
0000a150  32 3a 53 54 4d 49 41 20  52 39 2c 7b 52 30 2c 52  |2:STMIA R9,{R0,R|
0000a160  31 2c 52 32 7d 0d 3f ca  62 41 44 44 20 52 39 2c  |1,R2}.?.bADD R9,|
0000a170  52 38 2c 48 25 3a 4c 44  4d 49 41 20 52 39 2c 7b  |R8,H%:LDMIA R9,{|
0000a180  52 30 2c 52 31 2c 52 32  7d 3a 41 44 44 20 52 30  |R0,R1,R2}:ADD R0|
0000a190  2c 52 30 2c 52 31 30 3a  41 44 44 20 52 31 2c 52  |,R0,R10:ADD R1,R|
0000a1a0  31 2c 52 31 31 3a 41 44  44 20 52 32 2c 52 32 2c  |1,R11:ADD R2,R2,|
0000a1b0  52 31 32 3a 53 54 4d 49  41 20 52 39 2c 7b 52 30  |R12:STMIA R9,{R0|
0000a1c0  2c 52 31 2c 52 32 7d 0d  3f d4 0b 2e 64 69 76 62  |,R1,R2}.?...divb|
0000a1d0  79 30 0d 3f de 1e 53 55  42 53 20 45 25 2c 45 25  |y0.?..SUBS E%,E%|
0000a1e0  2c 23 31 3a 42 47 45 20  62 6f 6e 64 6c 6f 6f 70  |,#1:BGE bondloop|
0000a1f0  0d 3f e8 14 4c 44 4d 46  44 20 28 73 70 29 21 2c  |.?..LDMFD (sp)!,|
0000a200  7b 70 63 7d 0d 3f f2 11  2e 62 6f 70 6f 73 20 45  |{pc}.?...bopos E|
0000a210  51 55 44 20 30 0d 3f fc  11 2e 6e 6f 70 74 73 20  |QUD 0.?...nopts |
0000a220  45 51 55 44 20 30 0d 40  06 04 0d 40 10 0b 2e 72  |EQUD 0.@...@...r|
0000a230  6f 74 61 74 65 0d 40 1a  16 53 54 4d 46 44 20 28  |otate.@..STMFD (|
0000a240  73 70 29 21 2c 7b 6c 69  6e 6b 7d 0d 40 24 26 41  |sp)!,{link}.@$&A|
0000a250  44 52 20 41 49 25 2c 73  69 6e 70 6f 73 3a 4c 44  |DR AI%,sinpos:LD|
0000a260  4d 49 41 20 41 49 25 2c  7b 53 42 25 2c 43 42 25  |MIA AI%,{SB%,CB%|
0000a270  7d 0d 40 2e 41 4c 44 52  20 52 34 2c 6e 6f 70 74  |}.@.ALDR R4,nopt|
0000a280  73 3a 4c 44 52 20 52 31  30 2c 63 6f 70 6f 73 3a  |s:LDR R10,copos:|
0000a290  4c 44 52 20 52 39 2c 73  74 6f 72 65 32 70 6f 73  |LDR R9,store2pos|
0000a2a0  3a 4c 44 52 20 52 31 34  2c 73 74 6f 72 65 33 70  |:LDR R14,store3p|
0000a2b0  6f 73 0d 40 38 09 2e 6c  6f 6f 70 0d 40 42 19 5c  |os.@8..loop.@B.\|
0000a2c0  20 6c 6f 6f 6b 20 75 70  20 63 6f 6f 72 64 69 6e  | look up coordin|
0000a2d0  61 74 65 73 0d 40 4c 19  4c 44 4d 49 41 20 52 31  |ates.@L.LDMIA R1|
0000a2e0  30 21 2c 7b 58 25 2c 59  25 2c 5a 25 7d 0d 40 56  |0!,{X%,Y%,Z%}.@V|
0000a2f0  36 4d 4f 56 20 58 25 2c  58 25 2c 41 53 52 23 31  |6MOV X%,X%,ASR#1|
0000a300  30 3a 4d 4f 56 20 59 25  2c 59 25 2c 41 53 52 23  |0:MOV Y%,Y%,ASR#|
0000a310  31 30 3a 4d 4f 56 20 5a  25 2c 5a 25 2c 41 53 52  |10:MOV Z%,Z%,ASR|
0000a320  23 31 30 0d 40 60 3c 41  44 44 20 58 25 2c 58 25  |#10.@`<ADD X%,X%|
0000a330  2c 58 25 2c 41 53 52 23  31 3a 41 44 44 20 59 25  |,X%,ASR#1:ADD Y%|
0000a340  2c 59 25 2c 59 25 2c 41  53 52 23 31 3a 41 44 44  |,Y%,Y%,ASR#1:ADD|
0000a350  20 5a 25 2c 5a 25 2c 5a  25 2c 41 53 52 23 31 0d  | Z%,Z%,Z%,ASR#1.|
0000a360  40 6a 1a 5c 20 72 6f 74  61 74 65 20 61 72 6f 75  |@j.\ rotate arou|
0000a370  6e 64 20 78 20 61 78 69  73 0d 40 74 1f 4c 44 52  |nd x axis.@t.LDR|
0000a380  20 41 49 25 2c 63 6f 73  32 25 3a 4c 44 52 20 42  | AI%,cos2%:LDR B|
0000a390  49 25 2c 73 69 6e 32 25  0d 40 7e 33 4d 55 4c 20  |I%,sin2%.@~3MUL |
0000a3a0  52 35 2c 41 49 25 2c 59  25 3a 4d 4c 41 20 52 35  |R5,AI%,Y%:MLA R5|
0000a3b0  2c 5a 25 2c 42 49 25 2c  52 35 3a 4d 4f 56 20 52  |,Z%,BI%,R5:MOV R|
0000a3c0  35 2c 52 35 2c 41 53 52  23 31 30 0d 40 88 3d 4d  |5,R5,ASR#10.@.=M|
0000a3d0  55 4c 20 5a 25 2c 41 49  25 2c 5a 25 3a 4d 55 4c  |UL Z%,AI%,Z%:MUL|
0000a3e0  20 52 36 2c 59 25 2c 42  49 25 3a 53 55 42 20 5a  | R6,Y%,BI%:SUB Z|
0000a3f0  25 2c 5a 25 2c 52 36 3a  4d 4f 56 20 5a 25 2c 5a  |%,Z%,R6:MOV Z%,Z|
0000a400  25 2c 41 53 52 23 31 30  0d 40 92 0d 4d 4f 56 20  |%,ASR#10.@..MOV |
0000a410  59 25 2c 52 35 0d 40 9c  1a 5c 20 72 6f 74 61 74  |Y%,R5.@..\ rotat|
0000a420  65 20 61 72 6f 75 6e 64  20 79 20 61 78 69 73 0d  |e around y axis.|
0000a430  40 a6 1d 4c 44 52 20 41  49 25 2c 63 6f 73 25 3a  |@..LDR AI%,cos%:|
0000a440  4c 44 52 20 42 49 25 2c  73 69 6e 25 0d 40 b0 3d  |LDR BI%,sin%.@.=|
0000a450  4d 55 4c 20 52 35 2c 58  25 2c 41 49 25 3a 4d 55  |MUL R5,X%,AI%:MU|
0000a460  4c 20 52 36 2c 5a 25 2c  42 49 25 3a 53 55 42 20  |L R6,Z%,BI%:SUB |
0000a470  52 35 2c 52 35 2c 52 36  3a 4d 4f 56 20 52 35 2c  |R5,R5,R6:MOV R5,|
0000a480  52 35 2c 41 53 52 23 31  30 0d 40 ba 2c 4d 55 4c  |R5,ASR#10.@.,MUL|
0000a490  20 5a 25 2c 41 49 25 2c  5a 25 3a 4d 4c 41 20 5a  | Z%,AI%,Z%:MLA Z|
0000a4a0  25 2c 58 25 2c 42 49 25  2c 5a 25 3a 4d 4f 56 20  |%,X%,BI%,Z%:MOV |
0000a4b0  58 25 2c 52 35 0d 40 c4  14 4d 4f 56 20 5a 25 2c  |X%,R5.@..MOV Z%,|
0000a4c0  5a 25 2c 41 53 52 23 31  30 0d 40 ce 14 5c 20 73  |Z%,ASR#10.@..\ s|
0000a4d0  74 6f 72 65 20 33 44 20  70 6f 69 6e 74 0d 40 d8  |tore 3D point.@.|
0000a4e0  19 53 54 4d 49 41 20 52  31 34 21 2c 7b 58 25 2c  |.STMIA R14!,{X%,|
0000a4f0  59 25 2c 5a 25 7d 0d 40  e2 27 5c 20 61 70 70 6c  |Y%,Z%}.@.'\ appl|
0000a500  79 20 70 65 72 73 70 65  63 74 69 76 65 2c 20 73  |y perspective, s|
0000a510  74 6f 72 65 20 32 44 20  70 6f 69 6e 74 0d 40 ec  |tore 2D point.@.|
0000a520  2e 4c 44 52 20 52 35 2c  70 65 72 70 6f 73 3a 52  |.LDR R5,perpos:R|
0000a530  53 42 53 20 52 36 2c 58  25 2c 23 26 34 30 30 3a  |SBS R6,X%,#&400:|
0000a540  4d 4f 56 4c 54 20 52 36  2c 23 30 0d 40 f6 1f 43  |MOVLT R6,#0.@..C|
0000a550  4d 50 20 52 36 2c 23 26  38 30 30 3a 4d 4f 56 47  |MP R6,#&800:MOVG|
0000a560  54 20 52 36 2c 23 26 38  30 30 0d 41 00 18 4c 44  |T R6,#&800.A..LD|
0000a570  52 20 52 36 2c 5b 52 35  2c 52 36 2c 41 53 4c 23  |R R6,[R5,R6,ASL#|
0000a580  32 5d 0d 41 0a 4a 4d 55  4c 20 59 25 2c 52 36 2c  |2].A.JMUL Y%,R6,|
0000a590  59 25 3a 4d 4f 56 20 59  25 2c 59 25 2c 41 53 52  |Y%:MOV Y%,Y%,ASR|
0000a5a0  23 31 30 3a 41 44 44 20  59 25 2c 59 25 2c 23 31  |#10:ADD Y%,Y%,#1|
0000a5b0  2b a4 4d 6f 64 65 56 61  72 28 31 31 29 3c 3c a4  |+.ModeVar(11)<<.|
0000a5c0  4d 6f 64 65 56 61 72 28  34 29 2d 31 0d 41 14 4a  |ModeVar(4)-1.A.J|
0000a5d0  4d 55 4c 20 5a 25 2c 52  36 2c 5a 25 3a 4d 4f 56  |MUL Z%,R6,Z%:MOV|
0000a5e0  20 5a 25 2c 5a 25 2c 41  53 52 23 31 30 3a 41 44  | Z%,Z%,ASR#10:AD|
0000a5f0  44 20 5a 25 2c 5a 25 2c  23 31 2b a4 4d 6f 64 65  |D Z%,Z%,#1+.Mode|
0000a600  56 61 72 28 31 32 29 3c  3c a4 4d 6f 64 65 56 61  |Var(12)<<.ModeVa|
0000a610  72 28 35 29 2d 31 0d 41  1e 15 53 54 4d 49 41 20  |r(5)-1.A..STMIA |
0000a620  52 39 21 2c 7b 59 25 2c  5a 25 7d 0d 41 28 05 5c  |R9!,{Y%,Z%}.A(.\|
0000a630  0d 41 32 1a 53 55 42 53  20 52 34 2c 52 34 2c 23  |.A2.SUBS R4,R4,#|
0000a640  31 3a 42 47 54 20 6c 6f  6f 70 0d 41 3c 14 4c 44  |1:BGT loop.A<.LD|
0000a650  4d 46 44 20 28 73 70 29  21 2c 7b 70 63 7d 0d 41  |MFD (sp)!,{pc}.A|
0000a660  46 04 0d 41 50 25 2e 73  69 6e 70 6f 73 20 45 51  |F..AP%.sinpos EQ|
0000a670  55 44 20 73 69 6e 3a 2e  63 6f 73 70 6f 73 20 45  |UD sin:.cospos E|
0000a680  51 55 44 20 63 6f 73 0d  41 5a 15 2e 70 65 72 70  |QUD cos.AZ..perp|
0000a690  6f 73 20 45 51 55 44 20  70 65 72 25 0d 41 64 1d  |os EQUD per%.Ad.|
0000a6a0  2e 73 69 6e 25 20 45 51  55 44 20 30 3a 2e 63 6f  |.sin% EQUD 0:.co|
0000a6b0  73 25 20 45 51 55 44 20  30 0d 41 6e 1f 2e 73 69  |s% EQUD 0.An..si|
0000a6c0  6e 32 25 20 45 51 55 44  20 30 3a 2e 63 6f 73 32  |n2% EQUD 0:.cos2|
0000a6d0  25 20 45 51 55 44 20 30  0d 41 78 11 2e 63 6f 70  |% EQUD 0.Ax..cop|
0000a6e0  6f 73 20 45 51 55 44 20  30 0d 41 82 11 2e 76 65  |os EQUD 0.A...ve|
0000a6f0  70 6f 73 20 45 51 55 44  20 30 0d 41 8c 15 2e 73  |pos EQUD 0.A...s|
0000a700  74 6f 72 65 32 70 6f 73  20 45 51 55 44 20 30 0d  |tore2pos EQUD 0.|
0000a710  41 96 15 2e 73 74 6f 72  65 33 70 6f 73 20 45 51  |A...store3pos EQ|
0000a720  55 44 20 30 0d 41 a0 05  5d 0d 41 aa 31 e7 20 50  |UD 0.A..].A.1. P|
0000a730  25 3e 63 6f 64 65 2b 63  73 70 61 63 65 20 8c 20  |%>code+cspace . |
0000a740  85 20 31 2c 22 4f 75 74  20 6f 66 20 72 6f 6f 6d  |. 1,"Out of room|
0000a750  20 66 6f 72 20 63 6f 64  65 22 0d 41 b4 0a ed 20  | for code".A... |
0000a760  50 41 53 53 0d 41 be 05  e1 0d 41 c8 05 3a 0d 41  |PASS.A....A..:.A|
0000a770  d2 26 dd 20 a4 61 73 73  65 6d 44 69 76 28 6c 68  |.&. .assemDiv(lh|
0000a780  73 2c 72 68 73 2c 64 69  76 2c 6d 6f 64 2c 63 6f  |s,rhs,div,mod,co|
0000a790  75 6e 74 29 0d 41 dc 0f  ea 20 63 6f 64 65 2c 50  |unt).A... code,P|
0000a7a0  41 53 53 0d 41 e6 0d de  20 63 6f 64 65 20 36 34  |ASS.A... code 64|
0000a7b0  0d 41 f0 14 e3 20 50 41  53 53 3d 30 20 b8 20 32  |.A... PASS=0 . 2|
0000a7c0  20 88 20 32 0d 41 fa 0b  50 25 3d 63 6f 64 65 0d  | . 2.A..P%=code.|
0000a7d0  42 04 0e 5b 20 4f 50 54  20 50 41 53 53 0d 42 0e  |B..[ OPT PASS.B.|
0000a7e0  0e 4d 4f 56 20 6d 6f 64  2c 23 30 0d 42 18 0e 4d  |.MOV mod,#0.B..M|
0000a7f0  4f 56 20 64 69 76 2c 23  30 0d 42 22 11 4d 4f 56  |OV div,#0.B".MOV|
0000a800  20 63 6f 75 6e 74 2c 23  33 32 0d 42 2c 0b 2e 64  | count,#32.B,..d|
0000a810  69 76 4c 70 31 0d 42 36  17 53 55 42 53 20 63 6f  |ivLp1.B6.SUBS co|
0000a820  75 6e 74 2c 63 6f 75 6e  74 2c 23 31 0d 42 40 0e  |unt,count,#1.B@.|
0000a830  ec 51 20 70 63 2c 6c 69  6e 6b 0d 42 4a 16 4d 4f  |.Q pc,link.BJ.MO|
0000a840  56 53 20 6c 68 73 2c 6c  68 73 2c 41 53 4c 23 31  |VS lhs,lhs,ASL#1|
0000a850  0d 42 54 0e 42 50 4c 20  64 69 76 4c 70 31 0d 42  |.BT.BPL divLp1.B|
0000a860  5e 0b 2e 64 69 76 4c 70  32 0d 42 68 16 4d 4f 56  |^..divLp2.Bh.MOV|
0000a870  53 20 6c 68 73 2c 6c 68  73 2c 41 53 4c 23 31 0d  |S lhs,lhs,ASL#1.|
0000a880  42 72 13 41 44 43 20 6d  6f 64 2c 6d 6f 64 2c 6d  |Br.ADC mod,mod,m|
0000a890  6f 64 0d 42 7c 0f 43 4d  50 20 6d 6f 64 2c 72 68  |od.B|.CMP mod,rh|
0000a8a0  73 0d 42 86 15 53 55 42  43 53 20 6d 6f 64 2c 6d  |s.B..SUBCS mod,m|
0000a8b0  6f 64 2c 72 68 73 0d 42  90 13 41 44 43 20 64 69  |od,rhs.B..ADC di|
0000a8c0  76 2c 64 69 76 2c 64 69  76 0d 42 9a 17 53 55 42  |v,div,div.B..SUB|
0000a8d0  53 20 63 6f 75 6e 74 2c  63 6f 75 6e 74 2c 23 31  |S count,count,#1|
0000a8e0  0d 42 a4 0e 42 4e 45 20  64 69 76 4c 70 32 0d 42  |.B..BNE divLp2.B|
0000a8f0  ae 0b 2e 64 69 76 45 72  72 0d 42 b8 0f 4d 4f 56  |...divErr.B..MOV|
0000a900  20 52 31 35 2c 52 31 34  0d 42 c2 05 5d 0d 42 cc  | R15,R14.B..].B.|
0000a910  30 e7 20 50 25 3e 63 6f  64 65 2b 36 34 20 8c 20  |0. P%>code+64 . |
0000a920  85 20 31 32 33 34 2c 22  4f 75 74 20 6f 66 20 72  |. 1234,"Out of r|
0000a930  6f 6f 6d 20 66 6f 72 20  63 6f 64 65 22 0d 42 d6  |oom for code".B.|
0000a940  0a ed 20 50 41 53 53 0d  42 e0 09 3d 63 6f 64 65  |.. PASS.B..=code|
0000a950  0d 42 ea 05 3a 0d 42 f4  10 dd 20 f2 61 73 73 65  |.B..:.B... .asse|
0000a960  6d 52 6f 6f 74 0d 42 fe  0f de 20 63 6f 64 65 25  |mRoot.B... code%|
0000a970  20 32 30 30 0d 43 08 17  6c 69 6e 6b 3d 31 34 3a  | 200.C..link=14:|
0000a980  73 70 3d 31 33 3a 70 63  3d 31 35 0d 43 12 22 73  |sp=13:pc=15.C."s|
0000a990  71 72 74 3d 30 3a 73 71  75 61 72 65 3d 32 3a 6d  |qrt=0:square=2:m|
0000a9a0  61 73 6b 3d 31 3a 73 68  69 66 74 3d 33 0d 43 1c  |ask=1:shift=3.C.|
0000a9b0  21 64 69 66 66 3d 34 3a  73 75 62 74 72 61 68 65  |!diff=4:subtrahe|
0000a9c0  6e 64 3d 35 3a 74 3d 36  3a 6d 69 6e 3d 37 0d 43  |nd=5:t=6:min=7.C|
0000a9d0  26 15 e3 20 70 61 73 73  25 3d 30 20 b8 20 32 20  |&.. pass%=0 . 2 |
0000a9e0  88 20 32 0d 43 30 0c 50  25 3d 63 6f 64 65 25 0d  |. 2.C0.P%=code%.|
0000a9f0  43 3a 0e 5b 4f 50 54 20  70 61 73 73 25 0d 43 44  |C:.[OPT pass%.CD|
0000aa00  19 2e 52 73 74 6f 72 65  20 45 51 55 53 20 c4 34  |..Rstore EQUS .4|
0000aa10  2a 38 2c bd 30 29 0d 43  4e 09 2e 72 6f 6f 74 0d  |*8,.0).CN..root.|
0000aa20  43 58 29 41 44 52 20 73  71 72 74 2c 52 73 74 6f  |CX)ADR sqrt,Rsto|
0000aa30  72 65 3a 53 54 4d 49 41  20 73 71 72 74 2c 7b 31  |re:STMIA sqrt,{1|
0000aa40  2d 37 2c 6c 69 6e 6b 7d  0d 43 62 17 4d 4f 56 20  |-7,link}.Cb.MOV |
0000aa50  6d 61 73 6b 2c 23 26 43  30 30 30 30 30 30 30 0d  |mask,#&C0000000.|
0000aa60  43 6c 11 4d 4f 56 20 73  68 69 66 74 2c 23 33 30  |Cl.MOV shift,#30|
0000aa70  0d 43 76 0f 4d 4f 56 20  73 71 72 74 2c 23 30 0d  |.Cv.MOV sqrt,#0.|
0000aa80  43 80 0e 4d 4f 56 20 6d  69 6e 2c 23 30 0d 43 8a  |C..MOV min,#0.C.|
0000aa90  0c 2e 6e 65 78 74 62 69  74 0d 43 94 17 4d 4f 56  |..nextbit.C..MOV|
0000aaa0  20 73 71 72 74 2c 73 71  72 74 2c 4c 53 4c 23 31  | sqrt,sqrt,LSL#1|
0000aab0  0d 43 9e 15 4d 4f 56 20  6d 69 6e 2c 6d 69 6e 2c  |.C..MOV min,min,|
0000aac0  4c 53 4c 23 32 0d 43 a8  13 80 20 74 2c 73 71 75  |LSL#2.C... t,squ|
0000aad0  61 72 65 2c 6d 61 73 6b  0d 43 b2 15 4d 4f 56 20  |are,mask.C..MOV |
0000aae0  74 2c 74 2c 4c 53 52 20  73 68 69 66 74 0d 43 bc  |t,t,LSR shift.C.|
0000aaf0  10 84 52 20 6d 69 6e 2c  6d 69 6e 2c 74 0d 43 c6  |..R min,min,t.C.|
0000ab00  1d 4d 4f 56 20 73 75 62  74 72 61 68 65 6e 64 2c  |.MOV subtrahend,|
0000ab10  73 71 72 74 2c 4c 53 4c  23 31 0d 43 d0 20 41 44  |sqrt,LSL#1.C. AD|
0000ab20  44 20 73 75 62 74 72 61  68 65 6e 64 2c 73 75 62  |D subtrahend,sub|
0000ab30  74 72 61 68 65 6e 64 2c  23 31 0d 43 da 16 43 4d  |trahend,#1.C..CM|
0000ab40  50 20 6d 69 6e 2c 73 75  62 74 72 61 68 65 6e 64  |P min,subtrahend|
0000ab50  0d 43 e4 1c 53 55 42 47  45 20 6d 69 6e 2c 6d 69  |.C..SUBGE min,mi|
0000ab60  6e 2c 73 75 62 74 72 61  68 65 6e 64 0d 43 ee 16  |n,subtrahend.C..|
0000ab70  41 44 44 47 45 20 73 71  72 74 2c 73 71 72 74 2c  |ADDGE sqrt,sqrt,|
0000ab80  23 31 0d 43 f8 17 4d 4f  56 20 6d 61 73 6b 2c 6d  |#1.C..MOV mask,m|
0000ab90  61 73 6b 2c 4c 53 52 23  32 0d 44 02 17 53 55 42  |ask,LSR#2.D..SUB|
0000aba0  53 20 73 68 69 66 74 2c  73 68 69 66 74 2c 23 32  |S shift,shift,#2|
0000abb0  0d 44 0c 0f 42 50 4c 20  6e 65 78 74 62 69 74 0d  |.D..BPL nextbit.|
0000abc0  44 16 23 41 44 52 20 52  31 2c 52 73 74 6f 72 65  |D.#ADR R1,Rstore|
0000abd0  3a 4c 44 4d 49 41 20 52  31 2c 7b 31 2d 37 2c 70  |:LDMIA R1,{1-7,p|
0000abe0  63 7d 0d 44 20 05 5d 0d  44 2a 05 ed 0d 44 34 05  |c}.D .].D*...D4.|
0000abf0  e1 0d 44 3e 05 3a 0d 44  48 0c dd 20 f2 65 72 72  |..D>.:.DH.. .err|
0000ac00  6f 72 0d 44 52 09 ee 20  85 20 87 0d 44 5c 07 eb  |or.DR.. . ..D\..|
0000ac10  20 30 0d 44 66 16 f1 20  f6 24 3b 22 20 61 74 20  | 0.Df.. .$;" at |
0000ac20  6c 69 6e 65 20 22 3b 9e  0d 44 70 18 c8 99 20 22  |line ";..Dp... "|
0000ac30  48 6f 75 72 67 6c 61 73  73 5f 53 6d 61 73 68 22  |Hourglass_Smash"|
0000ac40  0d 44 7a 11 e7 20 63 68  25 3e 30 20 d9 23 63 68  |.Dz.. ch%>0 .#ch|
0000ac50  25 0d 44 84 8f e7 20 61  6e 69 6d 25 20 8c 20 c8  |%.D... anim% . .|
0000ac60  99 20 22 4f 53 5f 50 72  65 74 74 79 50 72 69 6e  |. "OS_PrettyPrin|
0000ac70  74 22 2c 22 45 6e 74 65  72 20 50 52 4f 43 73 61  |t","Enter PROCsa|
0000ac80  76 65 28 22 22 66 69 6c  65 6e 61 6d 65 22 22 29  |ve(""filename"")|
0000ac90  20 74 6f 20 73 61 76 65  20 74 68 65 20 61 6e 69  | to save the ani|
0000aca0  6d 61 74 69 6f 6e 20 69  6e 20 6d 65 6d 6f 72 79  |mation in memory|
0000acb0  22 2b bd 31 33 2b 22 50  72 65 73 73 20 46 34 20  |"+.13+"Press F4 |
0000acc0  74 6f 20 72 65 74 75 72  6e 20 74 6f 20 74 68 65  |to return to the|
0000acd0  20 44 65 73 6b 74 6f 70  22 2b bd 31 33 2b bd 30  | Desktop"+.13+.0|
0000ace0  0d 44 8e 2f 2a 4b 65 79  20 34 20 7c 55 53 59 53  |.D./*Key 4 |USYS|
0000acf0  22 57 69 6d 70 5f 43 6f  6d 6d 61 6e 64 57 69 6e  |"Wimp_CommandWin|
0000ad00  64 6f 77 22 2c 2d 31 7c  4d 51 55 49 54 7c 4d 0d  |dow",-1|MQUIT|M.|
0000ad10  44 98 05 e0 0d 44 a2 05  3a 0d 44 ac 12 dd 20 f2  |D....D..:.D... .|
0000ad20  73 74 61 74 75 73 28 46  52 25 29 0d 44 b6 0e ea  |status(FR%).D...|
0000ad30  20 41 24 2c 4f 25 2c 48  25 0d 44 c0 36 66 72 61  | A$,O%,H%.D.6fra|
0000ad40  6d 65 73 25 3d 28 73 74  6f 72 65 6e 64 25 2d 73  |mes%=(storend%-s|
0000ad50  74 6f 72 65 31 25 29 2a  46 52 25 2f 28 21 73 74  |tore1%)*FR%/(!st|
0000ad60  6f 72 65 70 6f 73 2d 73  74 6f 72 65 31 25 29 0d  |orepos-store1%).|
0000ad70  44 ca 22 ef 20 33 30 3a  f1 22 46 72 61 6d 65 20  |D.". 30:."Frame |
0000ad80  22 3b 46 52 25 3b 22 2f  22 3b 66 72 61 6d 65 73  |";FR%;"/";frames|
0000ad90  25 0d 44 d4 55 f1 3b 21  73 74 6f 72 65 70 6f 73  |%.D.U.;!storepos|
0000ada0  2d 73 74 6f 72 65 25 3b  22 20 62 79 74 65 73 20  |-store%;" bytes |
0000adb0  28 22 3b a8 28 2e 35 2b  31 30 30 2a 28 21 73 74  |(";.(.5+100*(!st|
0000adc0  6f 72 65 70 6f 73 2d 73  74 6f 72 65 25 29 2f 28  |orepos-store%)/(|
0000add0  73 74 6f 72 65 6e 64 25  2d 73 74 6f 72 65 25 29  |storend%-store%)|
0000ade0  29 3b 22 25 29 22 0d 44  de 12 4f 25 3d 91 2d 73  |);"%)".D..O%=.-s|
0000adf0  74 61 72 74 69 6d 65 25  0d 44 e8 3a f1 22 6c 61  |tartime%.D.:."la|
0000ae00  73 74 20 66 72 61 6d 65  3a 20 22 3b 4f 25 20 81  |st frame: ";O% .|
0000ae10  20 31 30 30 3b 22 2e 22  3b 28 4f 25 20 81 20 31  | 100;".";(O% . 1|
0000ae20  30 29 83 20 31 30 3b 4f  25 20 83 20 31 30 3b 22  |0). 10;O% . 10;"|
0000ae30  73 22 0d 44 f2 32 f4 20  50 52 49 4e 54 3b 6d 6f  |s".D.2. PRINT;mo|
0000ae40  76 65 74 69 6d 65 25 2d  73 74 61 72 74 69 6d 65  |vetime%-startime|
0000ae50  25 3b 22 2b 22 3b 54 49  4d 45 2d 6d 6f 76 65 74  |%;"+";TIME-movet|
0000ae60  69 6d 65 25 0d 44 fc 19  67 65 6e 74 69 6d 65 25  |ime%.D..gentime%|
0000ae70  2b 3d 91 2d 73 74 61 72  74 69 6d 65 25 0d 45 06  |+=.-startime%.E.|
0000ae80  2c e7 20 61 69 6d 25 3c  66 72 61 6d 65 73 25 20  |,. aim%<frames% |
0000ae90  80 20 61 69 6d 25 3e 46  52 25 20 8c 20 66 72 61  |. aim%>FR% . fra|
0000aea0  6d 65 73 25 3d 61 69 6d  25 0d 45 10 21 4f 25 3d  |mes%=aim%.E.!O%=|
0000aeb0  67 65 6e 74 69 6d 65 25  2a 28 66 72 61 6d 65 73  |gentime%*(frames|
0000aec0  25 2d 46 52 25 29 2f 46  52 25 0d 45 1a 32 21 74  |%-FR%)/FR%.E.2!t|
0000aed0  69 6d 62 6c 6b 25 3d 33  3a 74 69 6d 62 6c 6b 25  |imblk%=3:timblk%|
0000aee0  21 34 3d 30 3a c8 99 20  22 4f 53 5f 57 6f 72 64  |!4=0:.. "OS_Word|
0000aef0  22 2c 31 34 2c 74 69 6d  62 6c 6b 25 0d 45 24 10  |",14,timblk%.E$.|
0000af00  48 25 3d 74 69 6d 62 6c  6b 25 21 33 0d 45 2e 30  |H%=timblk%!3.E.0|
0000af10  21 74 69 6d 62 6c 6b 25  3d 28 21 74 69 6d 62 6c  |!timblk%=(!timbl|
0000af20  6b 25 20 80 20 26 46 46  46 46 46 46 29 2b 28 4f  |k% . &FFFFFF)+(O|
0000af30  25 20 80 20 26 46 46 46  46 46 46 29 0d 45 38 23  |% . &FFFFFF).E8#|
0000af40  74 69 6d 62 6c 6b 25 21  33 3d 48 25 2b 28 4f 25  |timblk%!3=H%+(O%|
0000af50  3e 3e 32 34 29 2b 74 69  6d 62 6c 6b 25 3f 33 0d  |>>24)+timblk%?3.|
0000af60  45 42 44 c8 99 20 22 4f  53 5f 43 6f 6e 76 65 72  |EBD.. "OS_Conver|
0000af70  74 44 61 74 65 41 6e 64  54 69 6d 65 22 2c 74 69  |tDateAndTime",ti|
0000af80  6d 62 6c 6b 25 2c 73 74  72 69 25 2c 32 35 35 2c  |mblk%,stri%,255,|
0000af90  22 25 7a 31 32 3a 25 6d  69 25 70 6d 22 20 b8 20  |"%z12:%mi%pm" . |
0000afa0  2c 4f 25 0d 45 4c 29 3f  4f 25 3d 31 33 3a f1 3b  |,O%.EL)?O%=13:.;|
0000afb0  66 72 61 6d 65 73 25 3b  22 20 66 72 61 6d 65 73  |frames%;" frames|
0000afc0  20 61 74 20 22 3b 24 73  74 72 69 25 0d 45 56 05  | at ";$stri%.EV.|
0000afd0  e1 0d 45 60 05 3a 0d 45  6a 4c dd 20 2d 2d 2d 2d  |..E`.:.EjL. ----|
0000afe0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
0000b020  2d 2d 0d 45 74 05 3a 0d  45 7e 27 dd 20 f2 69 6e  |--.Et.:.E~'. .in|
0000b030  69 74 74 68 69 6e 67 28  74 68 69 6e 67 25 2c 6e  |itthing(thing%,n|
0000b040  70 25 2c 6e 66 25 2c 6e  62 25 2c 66 25 29 0d 45  |p%,nf%,nb%,f%).E|
0000b050  88 13 74 68 69 6e 67 25  21 6e 6f 70 25 3d 6e 70  |..thing%!nop%=np|
0000b060  25 0d 45 92 13 74 68 69  6e 67 25 21 6e 6f 66 25  |%.E..thing%!nof%|
0000b070  3d 6e 66 25 0d 45 9c 13  74 68 69 6e 67 25 21 6e  |=nf%.E..thing%!n|
0000b080  6f 62 25 3d 6e 62 25 0d  45 a6 2b e7 20 66 25 20  |ob%=nb%.E.+. f% |
0000b090  80 20 26 30 31 20 8c 20  74 68 69 6e 67 25 21 63  |. &01 . thing%!c|
0000b0a0  6f 30 25 3d a4 63 72 65  61 74 65 28 31 2c 6e 70  |o0%=.create(1,np|
0000b0b0  25 29 0d 45 b0 2b e7 20  66 25 20 80 20 26 30 32  |%).E.+. f% . &02|
0000b0c0  20 8c 20 74 68 69 6e 67  25 21 63 6f 31 25 3d a4  | . thing%!co1%=.|
0000b0d0  63 72 65 61 74 65 28 31  2c 6e 70 25 29 0d 45 ba  |create(1,np%).E.|
0000b0e0  2b e7 20 66 25 20 80 20  26 30 34 20 8c 20 74 68  |+. f% . &04 . th|
0000b0f0  69 6e 67 25 21 63 6f 32  25 3d a4 63 72 65 61 74  |ing%!co2%=.creat|
0000b100  65 28 32 2c 6e 70 25 29  0d 45 c4 3b e7 20 66 25  |e(2,np%).E.;. f%|
0000b110  20 80 20 26 30 38 20 8c  20 74 68 69 6e 67 25 21  | . &08 . thing%!|
0000b120  76 65 6c 25 3d a4 63 72  65 61 74 65 28 31 2c 6e  |vel%=.create(1,n|
0000b130  70 25 29 20 8b 20 74 68  69 6e 67 25 21 76 65 6c  |p%) . thing%!vel|
0000b140  25 3d 30 0d 45 ce 2b e7  20 66 25 20 80 20 26 31  |%=0.E.+. f% . &1|
0000b150  30 20 8c 20 74 68 69 6e  67 25 21 66 61 63 25 3d  |0 . thing%!fac%=|
0000b160  a4 63 72 65 61 74 65 28  33 2c 6e 66 25 29 0d 45  |.create(3,nf%).E|
0000b170  d8 2b e7 20 66 25 20 80  20 26 32 30 20 8c 20 74  |.+. f% . &20 . t|
0000b180  68 69 6e 67 25 21 62 6e  64 25 3d a4 63 72 65 61  |hing%!bnd%=.crea|
0000b190  74 65 28 36 2c 6e 62 25  29 0d 45 e2 2b e7 20 66  |te(6,nb%).E.+. f|
0000b1a0  25 20 80 20 26 34 30 20  8c 20 74 68 69 6e 67 25  |% . &40 . thing%|
0000b1b0  21 66 6e 6f 25 3d a4 63  72 65 61 74 65 28 31 2c  |!fno%=.create(1,|
0000b1c0  6e 66 25 29 0d 45 ec 3b  e7 20 66 25 20 80 20 26  |nf%).E.;. f% . &|
0000b1d0  38 30 20 8c 20 74 68 69  6e 67 25 21 70 74 66 25  |80 . thing%!ptf%|
0000b1e0  3d a4 63 72 65 61 74 65  28 31 2c 6e 66 25 29 20  |=.create(1,nf%) |
0000b1f0  8b 20 74 68 69 6e 67 25  21 70 74 66 25 3d 30 0d  |. thing%!ptf%=0.|
0000b200  45 f6 12 74 68 69 6e 67  25 21 6f 64 6d 25 3d 33  |E..thing%!odm%=3|
0000b210  32 0d 46 00 12 74 68 69  6e 67 25 21 72 64 6d 25  |2.F..thing%!rdm%|
0000b220  3d 33 32 0d 46 0a 12 74  68 69 6e 67 25 21 61 64  |=32.F..thing%!ad|
0000b230  6d 25 3d 33 32 0d 46 14  11 74 68 69 6e 67 25 21  |m%=32.F..thing%!|
0000b240  72 65 70 25 3d 30 0d 46  1e 05 e1 0d 46 28 05 3a  |rep%=0.F....F(.:|
0000b250  0d 46 32 0f dd 20 f2 69  6e 69 74 33 4f 4f 44 0d  |.F2.. .init3OOD.|
0000b260  46 3c 08 ea 20 41 25 0d  46 46 0f 6d 61 78 6f 62  |F<.. A%.FF.maxob|
0000b270  6a 73 25 3d 32 30 0d 46  50 0c 74 79 70 65 73 25  |js%=20.FP.types%|
0000b280  3d 39 0d 46 5a 0b 77 69  6e 64 25 3d 31 0d 46 64  |=9.FZ.wind%=1.Fd|
0000b290  16 de 20 65 6c 73 69 7a  25 28 74 79 70 65 73 25  |.. elsiz%(types%|
0000b2a0  2d 31 29 0d 46 6e 4d 65  6c 73 69 7a 25 28 30 29  |-1).FnMelsiz%(0)|
0000b2b0  3d 30 3a 65 6c 73 69 7a  25 28 31 29 3d 31 32 3a  |=0:elsiz%(1)=12:|
0000b2c0  65 6c 73 69 7a 25 28 32  29 3d 38 3a 65 6c 73 69  |elsiz%(2)=8:elsi|
0000b2d0  7a 25 28 33 29 3d 32 30  3a 65 6c 73 69 7a 25 28  |z%(3)=20:elsiz%(|
0000b2e0  34 29 3d 34 3a 65 6c 73  69 7a 25 28 35 29 3d 34  |4)=4:elsiz%(5)=4|
0000b2f0  0d 46 78 28 65 6c 73 69  7a 25 28 36 29 3d 38 3a  |.Fx(elsiz%(6)=8:|
0000b300  65 6c 73 69 7a 25 28 37  29 3d 36 34 3a 65 6c 73  |elsiz%(7)=64:els|
0000b310  69 7a 25 28 38 29 3d 31  0d 46 82 80 6e 6f 70 25  |iz%(8)=1.F..nop%|
0000b320  3d 30 3a 6e 6f 66 25 3d  34 3a 6e 6f 62 25 3d 38  |=0:nof%=4:nob%=8|
0000b330  3a 63 6f 30 25 3d 31 32  3a 63 6f 31 25 3d 31 36  |:co0%=12:co1%=16|
0000b340  3a 63 6f 32 25 3d 32 30  3a 76 65 6c 25 3d 32 34  |:co2%=20:vel%=24|
0000b350  3a 66 61 63 25 3d 32 38  3a 62 6e 64 25 3d 33 32  |:fac%=28:bnd%=32|
0000b360  3a 66 6e 6f 25 3d 33 36  3a 61 64 6d 25 3d 34 30  |:fno%=36:adm%=40|
0000b370  3a 72 64 6d 25 3d 34 34  3a 6f 64 6d 25 3d 34 38  |:rdm%=44:odm%=48|
0000b380  3a 73 65 70 25 3d 35 32  3a 70 74 66 25 3d 35 36  |:sep%=52:ptf%=56|
0000b390  3a 72 65 70 25 3d 36 30  0d 46 8c 05 e1 0d 46 96  |:rep%=60.F....F.|
0000b3a0  05 3a 0d 46 a0 1a dd 20  a4 63 72 65 61 74 65 28  |.:.F... .create(|
0000b3b0  54 59 50 45 25 2c 4e 4f  45 4c 25 29 0d 46 aa 3c  |TYPE%,NOEL%).F.<|
0000b3c0  e7 20 54 59 50 45 25 3e  3d 74 79 70 65 73 25 20  |. TYPE%>=types% |
0000b3d0  84 20 54 59 50 45 25 3c  30 20 8c 20 85 20 31 32  |. TYPE%<0 . . 12|
0000b3e0  33 34 2c 22 49 6e 76 61  6c 69 64 20 6f 62 6a 65  |34,"Invalid obje|
0000b3f0  63 74 20 74 79 70 65 22  0d 46 b4 3b e7 20 4e 4f  |ct type".F.;. NO|
0000b400  45 4c 25 3c 30 20 8c 20  85 20 31 32 33 34 2c 22  |EL%<0 . . 1234,"|
0000b410  53 69 6c 6c 79 20 6e 75  6d 62 65 72 20 6f 66 20  |Silly number of |
0000b420  65 6c 65 6d 65 6e 74 73  20 72 65 71 75 65 73 74  |elements request|
0000b430  65 64 22 0d 46 be 0b ea  20 41 25 2c 53 25 0d 46  |ed".F... A%,S%.F|
0000b440  c8 1c de 20 53 25 20 4e  4f 45 4c 25 2a 65 6c 73  |... S% NOEL%*els|
0000b450  69 7a 25 28 54 59 50 45  25 29 0d 46 d2 0f e7 20  |iz%(TYPE%).F... |
0000b460  54 59 50 45 25 3d 37 20  8c 0d 46 dc 2d 20 e3 20  |TYPE%=7 ..F.- . |
0000b470  41 25 3d 30 20 b8 20 4e  4f 45 4c 25 2a 65 6c 73  |A%=0 . NOEL%*els|
0000b480  69 7a 25 28 54 59 50 45  25 29 2d 34 3a 53 25 21  |iz%(TYPE%)-4:S%!|
0000b490  41 25 3d 30 3a ed 0d 46  e6 05 cd 0d 46 f0 07 3d  |A%=0:..F....F..=|
0000b4a0  53 25 0d 46 fa 05 3a 0d  47 04 21 dd 20 a4 69 6e  |S%.F..:.G.!. .in|
0000b4b0  69 74 5f 66 61 63 70 6f  69 6e 74 28 41 25 2c 42  |it_facpoint(A%,B|
0000b4c0  25 2c 4e 25 2c 53 25 29  0d 47 0e 0c e7 20 4e 25  |%,N%,S%).G... N%|
0000b4d0  3d 30 20 e1 0d 47 18 0b  ea 20 43 25 2c 51 25 0d  |=0 ..G... C%,Q%.|
0000b4e0  47 22 14 42 25 2b 3d 53  25 2a 65 6c 73 69 7a 25  |G".B%+=S%*elsiz%|
0000b4f0  28 34 29 0d 47 2c 35 e3  20 43 25 3d 30 20 b8 20  |(4).G,5. C%=0 . |
0000b500  4e 25 2d 31 3a 42 25 21  28 43 25 2a 65 6c 73 69  |N%-1:B%!(C%*elsi|
0000b510  7a 25 28 34 29 29 3d 41  25 2b 43 25 2a 65 6c 73  |z%(4))=A%+C%*els|
0000b520  69 7a 25 28 33 29 3a ed  0d 47 36 0a 3d 53 25 2b  |iz%(3):..G6.=S%+|
0000b530  4e 25 0d 47 40 05 3a 0d  47 4a 1d dd 20 f2 72 6f  |N%.G@.:.GJ.. .ro|
0000b540  74 6e 70 65 72 73 70 28  41 25 2c 44 25 2c 45 25  |tnpersp(A%,D%,E%|
0000b550  2c 46 25 29 0d 47 54 25  21 73 69 6e 25 3d 73 69  |,F%).GT%!sin%=si|
0000b560  6e 21 28 44 25 2a 34 29  3a 21 63 6f 73 25 3d 63  |n!(D%*4):!cos%=c|
0000b570  6f 73 21 28 44 25 2a 34  29 0d 47 5e 27 21 73 69  |os!(D%*4).G^'!si|
0000b580  6e 32 25 3d 73 69 6e 21  28 45 25 2a 34 29 3a 21  |n2%=sin!(E%*4):!|
0000b590  63 6f 73 32 25 3d 63 6f  73 21 28 45 25 2a 34 29  |cos2%=cos!(E%*4)|
0000b5a0  0d 47 68 12 21 6e 6f 70  74 73 3d 41 25 21 6e 6f  |.Gh.!nopts=A%!no|
0000b5b0  70 25 0d 47 72 12 21 63  6f 70 6f 73 3d 41 25 21  |p%.Gr.!copos=A%!|
0000b5c0  63 6f 30 25 0d 47 7c 16  21 73 74 6f 72 65 33 70  |co0%.G|.!store3p|
0000b5d0  6f 73 3d 41 25 21 63 6f  31 25 0d 47 86 16 21 73  |os=A%!co1%.G..!s|
0000b5e0  74 6f 72 65 32 70 6f 73  3d 41 25 21 63 6f 32 25  |tore2pos=A%!co2%|
0000b5f0  0d 47 90 0c d6 20 72 6f  74 61 74 65 0d 47 9a 05  |.G... rotate.G..|
0000b600  e1 0d 47 a4 05 3a 0d 47  ae 26 dd 20 f2 72 6f 74  |..G..:.G.&. .rot|
0000b610  61 74 65 28 74 68 69 6e  67 25 2c 41 53 25 2c 42  |ate(thing%,AS%,B|
0000b620  53 25 2c 44 25 2c 45 25  2c 46 25 29 0d 47 b8 21  |S%,D%,E%,F%).G.!|
0000b630  41 53 25 3d 74 68 69 6e  67 25 21 41 53 25 3a 42  |AS%=thing%!AS%:B|
0000b640  53 25 3d 74 68 69 6e 67  25 21 42 53 25 0d 47 c2  |S%=thing%!BS%.G.|
0000b650  22 ea 20 43 25 2c 43 58  2c 53 58 2c 43 59 2c 53  |". C%,CX,SX,CY,S|
0000b660  59 2c 43 5a 2c 53 5a 2c  58 2c 59 2c 5a 2c 54 0d  |Y,CZ,SZ,X,Y,Z,T.|
0000b670  47 cc 32 44 25 3d 28 44  25 20 80 20 26 33 46 46  |G.2D%=(D% . &3FF|
0000b680  29 2a 34 3a 43 58 3d 63  6f 73 21 44 25 2f 26 34  |)*4:CX=cos!D%/&4|
0000b690  30 30 3a 53 58 3d 73 69  6e 21 44 25 2f 26 34 30  |00:SX=sin!D%/&40|
0000b6a0  30 0d 47 d6 32 45 25 3d  28 45 25 20 80 20 26 33  |0.G.2E%=(E% . &3|
0000b6b0  46 46 29 2a 34 3a 43 59  3d 63 6f 73 21 45 25 2f  |FF)*4:CY=cos!E%/|
0000b6c0  26 34 30 30 3a 53 59 3d  73 69 6e 21 45 25 2f 26  |&400:SY=sin!E%/&|
0000b6d0  34 30 30 0d 47 e0 32 46  25 3d 28 46 25 20 80 20  |400.G.2F%=(F% . |
0000b6e0  26 33 46 46 29 2a 34 3a  43 5a 3d 63 6f 73 21 46  |&3FF)*4:CZ=cos!F|
0000b6f0  25 2f 26 34 30 30 3a 53  5a 3d 73 69 6e 21 46 25  |%/&400:SZ=sin!F%|
0000b700  2f 26 34 30 30 0d 47 ea  1a e3 20 43 25 3d 30 20  |/&400.G... C%=0 |
0000b710  b8 20 74 68 69 6e 67 25  21 6e 6f 70 25 2d 31 0d  |. thing%!nop%-1.|
0000b720  47 f4 1b 20 5a 3d 21 41  53 25 3a 58 3d 41 53 25  |G.. Z=!AS%:X=AS%|
0000b730  21 34 3a 54 3d 41 53 25  21 38 0d 47 fe 1c 20 59  |!4:T=AS%!8.G.. Y|
0000b740  3d 54 2a 43 58 2b 5a 2a  53 58 3a 5a 3d 5a 2a 43  |=T*CX+Z*SX:Z=Z*C|
0000b750  58 2d 54 2a 53 58 0d 48  08 1c 20 54 3d 58 2a 43  |X-T*SX.H.. T=X*C|
0000b760  59 2d 5a 2a 53 59 3a 5a  3d 58 2a 53 59 2b 5a 2a  |Y-Z*SY:Z=X*SY+Z*|
0000b770  43 59 0d 48 12 1c 20 58  3d 54 2a 43 5a 2d 59 2a  |CY.H.. X=T*CZ-Y*|
0000b780  53 5a 3a 59 3d 54 2a 53  5a 2b 59 2a 43 5a 0d 48  |SZ:Y=T*SZ+Y*CZ.H|
0000b790  1c 1c 20 42 53 25 21 30  3d 5a 3a 42 53 25 21 34  |.. BS%!0=Z:BS%!4|
0000b7a0  3d 58 3a 42 53 25 21 38  3d 59 0d 48 26 14 20 41  |=X:BS%!8=Y.H&. A|
0000b7b0  53 25 2b 3d 31 32 3a 42  53 25 2b 3d 31 32 0d 48  |S%+=12:BS%+=12.H|
0000b7c0  30 05 ed 0d 48 3a 05 e1  0d 48 44 05 3a 0d 48 4e  |0...H:...HD.:.HN|
0000b7d0  29 dd 20 f2 74 72 61 6e  73 6c 61 74 65 28 74 68  |). .translate(th|
0000b7e0  69 6e 67 25 2c 41 53 25  2c 42 53 25 2c 44 25 2c  |ing%,AS%,BS%,D%,|
0000b7f0  45 25 2c 46 25 29 0d 48  58 08 ea 20 43 25 0d 48  |E%,F%).HX.. C%.H|
0000b800  62 21 41 53 25 3d 74 68  69 6e 67 25 21 41 53 25  |b!AS%=thing%!AS%|
0000b810  3a 42 53 25 3d 74 68 69  6e 67 25 21 42 53 25 0d  |:BS%=thing%!BS%.|
0000b820  48 6c 1a e3 20 43 25 3d  30 20 b8 20 74 68 69 6e  |Hl.. C%=0 . thin|
0000b830  67 25 21 6e 6f 70 25 2d  31 0d 48 76 31 20 42 53  |g%!nop%-1.Hv1 BS|
0000b840  25 21 30 3d 41 53 25 21  30 2d 46 25 3a 42 53 25  |%!0=AS%!0-F%:BS%|
0000b850  21 34 3d 41 53 25 21 34  2b 44 25 3a 42 53 25 21  |!4=AS%!4+D%:BS%!|
0000b860  38 3d 41 53 25 21 38 2b  45 25 0d 48 80 14 20 41  |8=AS%!8+E%.H.. A|
0000b870  53 25 2b 3d 31 32 3a 42  53 25 2b 3d 31 32 0d 48  |S%+=12:BS%+=12.H|
0000b880  8a 05 ed 0d 48 94 05 e1  0d 48 9e 05 3a 0d 48 a8  |....H....H..:.H.|
0000b890  23 dd 20 a4 64 65 66 69  6e 65 5f 66 61 63 65 74  |#. .define_facet|
0000b8a0  28 41 25 2c 43 25 2c 44  25 2c 45 25 2c 46 25 29  |(A%,C%,D%,E%,F%)|
0000b8b0  0d 48 b2 21 e7 20 43 25  3d 44 25 20 84 20 44 25  |.H.!. C%=D% . D%|
0000b8c0  3d 45 25 20 84 20 45 25  3d 43 25 20 8c 20 3d 41  |=E% . E%=C% . =A|
0000b8d0  25 0d 48 bc 36 e7 20 41  25 3c b8 50 20 8c 20 85  |%.H.6. A%<.P . .|
0000b8e0  20 31 2c 22 62 61 64 20  70 6f 69 6e 74 65 72 20  | 1,"bad pointer |
0000b8f0  70 61 73 73 65 64 20 74  6f 20 64 65 66 69 6e 65  |passed to define|
0000b900  5f 66 61 63 65 74 22 0d  48 c6 16 e7 20 77 69 6e  |_facet".H... win|
0000b910  64 25 3e 30 20 c8 94 20  43 25 2c 45 25 0d 48 d0  |d%>0 .. C%,E%.H.|
0000b920  2a 21 41 25 3d 43 25 3a  41 25 21 34 3d 44 25 3a  |*!A%=C%:A%!4=D%:|
0000b930  41 25 21 38 3d 45 25 3a  41 25 21 31 32 3d 30 3a  |A%!8=E%:A%!12=0:|
0000b940  41 25 21 31 36 3d 30 0d  48 da 14 41 25 3f 31 37  |A%!16=0.H..A%?17|
0000b950  3d 6f 62 6a 65 63 74 73  25 2d 31 0d 48 e4 0d 41  |=objects%-1.H..A|
0000b960  25 3f 31 39 3d 26 32 30  0d 48 ee 1f e7 20 77 69  |%?19=&20.H... wi|
0000b970  6e 64 25 3d 30 20 41 25  3f 31 39 3d 41 25 3f 31  |nd%=0 A%?19=A%?1|
0000b980  39 20 84 20 26 34 30 0d  48 f8 20 e7 20 28 46 25  |9 . &40.H. . (F%|
0000b990  20 80 20 31 29 20 41 25  3f 31 39 3d 41 25 3f 31  | . 1) A%?19=A%?1|
0000b9a0  39 20 84 20 26 31 30 0d  49 02 20 e7 20 28 46 25  |9 . &10.I. . (F%|
0000b9b0  20 80 20 32 29 20 41 25  3f 31 39 3d 41 25 3f 31  | . 2) A%?19=A%?1|
0000b9c0  39 20 84 20 26 38 30 0d  49 0c 0c 66 61 63 6f 25  |9 . &80.I..faco%|
0000b9d0  2b 3d 31 0d 49 16 11 3d  41 25 2b 65 6c 73 69 7a  |+=1.I..=A%+elsiz|
0000b9e0  25 28 33 29 0d 49 20 05  3a 0d 49 2a 15 dd 20 f2  |%(3).I .:.I*.. .|
0000b9f0  63 61 6c 63 61 76 5a 28  41 25 2c 42 25 29 0d 49  |calcavZ(A%,B%).I|
0000ba00  34 0e ea 20 43 25 2c 44  25 2c 45 25 0d 49 3e 24  |4.. C%,D%,E%.I>$|
0000ba10  43 25 3d 41 25 21 66 61  63 25 3a 44 25 3d 41 25  |C%=A%!fac%:D%=A%|
0000ba20  21 42 25 3a 45 25 3d 41  25 21 6e 6f 66 25 2d 31  |!B%:E%=A%!nof%-1|
0000ba30  0d 49 48 0b d6 20 61 76  5a 3a e1 0d 49 52 05 3a  |.IH.. avZ:..IR.:|
0000ba40  0d 49 5c 10 dd 20 f2 66  75 64 67 65 28 41 25 29  |.I\.. .fudge(A%)|
0000ba50  0d 49 66 11 ea 20 43 25  2c 44 25 2c 45 25 2c 49  |.If.. C%,D%,E%,I|
0000ba60  25 0d 49 70 1b 43 25 3d  41 25 21 66 61 63 25 3a  |%.Ip.C%=A%!fac%:|
0000ba70  44 25 3d 41 25 21 6e 6f  66 25 2d 31 0d 49 7a 0f  |D%=A%!nof%-1.Iz.|
0000ba80  e3 20 49 25 3d 30 20 b8  20 44 25 0d 49 84 1d 20  |. I%=0 . D%.I.. |
0000ba90  43 25 21 31 32 2d 3d 32  30 30 3a 43 25 2b 3d 65  |C%!12-=200:C%+=e|
0000baa0  6c 73 69 7a 25 28 33 29  0d 49 8e 05 ed 0d 49 98  |lsiz%(3).I....I.|
0000bab0  05 e1 0d 49 a2 05 3a 0d  49 ac 14 dd 20 f2 68 69  |...I..:.I... .hi|
0000bac0  64 65 66 61 63 65 73 28  41 25 29 0d 49 b6 0e ea  |defaces(A%).I...|
0000bad0  20 43 25 2c 44 25 2c 45  25 0d 49 c0 26 43 25 3d  | C%,D%,E%.I.&C%=|
0000bae0  41 25 21 66 61 63 25 3a  44 25 3d 41 25 21 63 6f  |A%!fac%:D%=A%!co|
0000baf0  32 25 3a 45 25 3d 41 25  21 6e 6f 66 25 2d 31 0d  |2%:E%=A%!nof%-1.|
0000bb00  49 ca 0f d6 20 68 69 64  65 66 61 63 65 73 0d 49  |I... hidefaces.I|
0000bb10  d4 05 e1 0d 49 de 05 3a  0d 49 e8 0c dd 20 f2 5a  |....I..:.I... .Z|
0000bb20  73 6f 72 74 0d 49 f2 0e  ea 20 44 25 2c 46 25 2c  |sort.I... D%,F%,|
0000bb30  47 25 0d 49 fc 1f 44 25  3d 66 61 63 70 74 25 3a  |G%.I..D%=facpt%:|
0000bb40  46 25 3d 30 3a 47 25 3d  74 6f 74 6e 6f 66 25 2d  |F%=0:G%=totnof%-|
0000bb50  31 0d 4a 06 0e d6 20 71  66 73 6f 72 74 3a e1 0d  |1.J... qfsort:..|
0000bb60  4a 10 05 3a 0d 4a 1a 17  dd 20 f2 72 65 6e 64 65  |J..:.J... .rende|
0000bb70  72 28 73 6b 69 70 25 2c  53 25 29 0d 4a 24 21 ea  |r(skip%,S%).J$!.|
0000bb80  20 41 53 25 2c 42 53 25  2c 43 53 25 2c 44 53 25  | AS%,BS%,CS%,DS%|
0000bb90  2c 49 25 2c 41 25 2c 42  25 2c 43 25 0d 4a 2e 0e  |,I%,A%,B%,C%.J..|
0000bba0  41 53 25 3d 66 61 63 70  74 25 0d 4a 38 0c e7 20  |AS%=facpt%.J8.. |
0000bbb0  53 25 3e 31 20 8c 0d 4a  42 18 20 e3 20 49 25 3d  |S%>1 ..JB. . I%=|
0000bbc0  30 20 b8 20 6f 62 6a 65  63 74 73 25 2d 31 0d 4a  |0 . objects%-1.J|
0000bbd0  4c 20 20 20 74 68 69 6e  67 25 3d 77 6f 72 6c 64  |L   thing%=world|
0000bbe0  25 2b 49 25 2a 65 6c 73  69 7a 25 28 37 29 0d 4a  |%+I%*elsiz%(7).J|
0000bbf0  56 1b 20 20 f2 63 61 6c  63 61 76 5a 28 74 68 69  |V.  .calcavZ(thi|
0000bc00  6e 67 25 2c 63 6f 31 25  29 0d 4a 60 24 20 20 e7  |ng%,co1%).J`$  .|
0000bc10  20 74 68 69 6e 67 25 21  76 65 6c 25 3d 30 20 f2  | thing%!vel%=0 .|
0000bc20  66 75 64 67 65 28 74 68  69 6e 67 25 29 0d 4a 6a  |fudge(thing%).Jj|
0000bc30  18 20 20 f2 68 69 64 65  66 61 63 65 73 28 74 68  |.  .hidefaces(th|
0000bc40  69 6e 67 25 29 0d 4a 74  06 20 ed 0d 4a 7e 0b 20  |ing%).Jt. ..J~. |
0000bc50  f2 5a 73 6f 72 74 0d 4a  88 05 cd 0d 4a 92 0b c8  |.Zsort.J....J...|
0000bc60  8e 20 53 25 20 ca 0d 4a  9c 08 c9 20 30 3a 0d 4a  |. S% ..J... 0:.J|
0000bc70  a6 16 e3 20 49 25 3d 30  20 b8 20 74 6f 74 6e 6f  |... I%=0 . totno|
0000bc80  66 25 2d 31 0d 4a b0 42  20 43 53 25 3d 41 53 25  |f%-1.J.B CS%=AS%|
0000bc90  21 28 49 25 2a 34 29 3a  74 68 69 6e 67 25 3d 77  |!(I%*4):thing%=w|
0000bca0  6f 72 6c 64 25 2b 65 6c  73 69 7a 25 28 37 29 2a  |orld%+elsiz%(7)*|
0000bcb0  43 53 25 3f 31 37 3a 42  53 25 3d 74 68 69 6e 67  |CS%?17:BS%=thing|
0000bcc0  25 21 63 6f 32 25 0d 4a  ba 1e 20 e7 20 b4 28 74  |%!co2%.J.. . .(t|
0000bcd0  68 69 6e 67 25 21 76 65  6c 25 29 3c 3e 73 6b 69  |hing%!vel%)<>ski|
0000bce0  70 25 20 8c 0d 4a c4 31  20 20 41 25 3d 42 53 25  |p% ..J.1  A%=BS%|
0000bcf0  2b 38 2a 21 43 53 25 3a  42 25 3d 42 53 25 2b 38  |+8*!CS%:B%=BS%+8|
0000bd00  2a 43 53 25 21 34 3a 43  25 3d 42 53 25 2b 38 2a  |*CS%!4:C%=BS%+8*|
0000bd10  43 53 25 21 38 0d 4a ce  29 20 20 c8 92 20 21 41  |CS%!8.J.)  .. !A|
0000bd20  25 2c 41 25 21 34 3a c8  92 20 21 42 25 2c 42 25  |%,A%!4:.. !B%,B%|
0000bd30  21 34 3a c8 92 20 21 43  25 2c 43 25 21 34 0d 4a  |!4:.. !C%,C%!4.J|
0000bd40  d8 06 20 cd 0d 4a e2 05  ed 0d 4a ec 08 c9 20 31  |.. ..J....J... 1|
0000bd50  3a 0d 4a f6 16 e3 20 49  25 3d 30 20 b8 20 74 6f  |:.J... I%=0 . to|
0000bd60  74 6e 6f 66 25 2d 31 0d  4b 00 42 20 43 53 25 3d  |tnof%-1.K.B CS%=|
0000bd70  41 53 25 21 28 49 25 2a  34 29 3a 74 68 69 6e 67  |AS%!(I%*4):thing|
0000bd80  25 3d 77 6f 72 6c 64 25  2b 65 6c 73 69 7a 25 28  |%=world%+elsiz%(|
0000bd90  37 29 2a 43 53 25 3f 31  37 3a 42 53 25 3d 74 68  |7)*CS%?17:BS%=th|
0000bda0  69 6e 67 25 21 63 6f 32  25 0d 4b 0a 31 20 e7 20  |ing%!co2%.K.1 . |
0000bdb0  28 43 53 25 3f 31 39 20  80 20 26 31 30 29 3d 30  |(CS%?19 . &10)=0|
0000bdc0  20 80 20 b4 28 74 68 69  6e 67 25 21 76 65 6c 25  | . .(thing%!vel%|
0000bdd0  29 3c 3e 73 6b 69 70 25  20 8c 0d 4b 14 31 20 20  |)<>skip% ..K.1  |
0000bde0  41 25 3d 42 53 25 2b 38  2a 21 43 53 25 3a 42 25  |A%=BS%+8*!CS%:B%|
0000bdf0  3d 42 53 25 2b 38 2a 43  53 25 21 34 3a 43 25 3d  |=BS%+8*CS%!4:C%=|
0000be00  42 53 25 2b 38 2a 43 53  25 21 38 0d 4b 1e 26 20  |BS%+8*CS%!8.K.& |
0000be10  20 ec 20 21 41 25 2c 41  25 21 34 3a df 20 21 42  | . !A%,A%!4:. !B|
0000be20  25 2c 42 25 21 34 3a df  20 21 43 25 2c 43 25 21  |%,B%!4:. !C%,C%!|
0000be30  34 0d 4b 28 21 20 20 e7  20 43 53 25 3f 31 39 20  |4.K(!  . CS%?19 |
0000be40  80 20 26 38 30 20 8c 20  df 20 21 41 25 2c 41 25  |. &80 . . !A%,A%|
0000be50  21 34 0d 4b 32 06 20 cd  0d 4b 3c 05 ed 0d 4b 46  |!4.K2. ..K<...KF|
0000be60  08 c9 20 32 3a 0d 4b 50  16 e3 20 49 25 3d 30 20  |.. 2:.KP.. I%=0 |
0000be70  b8 20 74 6f 74 6e 6f 66  25 2d 31 0d 4b 5a 42 20  |. totnof%-1.KZB |
0000be80  43 53 25 3d 41 53 25 21  28 49 25 2a 34 29 3a 74  |CS%=AS%!(I%*4):t|
0000be90  68 69 6e 67 25 3d 77 6f  72 6c 64 25 2b 65 6c 73  |hing%=world%+els|
0000bea0  69 7a 25 28 37 29 2a 43  53 25 3f 31 37 3a 42 53  |iz%(7)*CS%?17:BS|
0000beb0  25 3d 74 68 69 6e 67 25  21 63 6f 32 25 0d 4b 64  |%=thing%!co2%.Kd|
0000bec0  2d 20 e7 20 43 53 25 3f  31 39 20 80 20 26 36 30  |- . CS%?19 . &60|
0000bed0  20 80 20 b4 28 74 68 69  6e 67 25 21 76 65 6c 25  | . .(thing%!vel%|
0000bee0  29 3c 3e 73 6b 69 70 25  20 8c 0d 4b 6e 31 20 20  |)<>skip% ..Kn1  |
0000bef0  41 25 3d 42 53 25 2b 38  2a 21 43 53 25 3a 42 25  |A%=BS%+8*!CS%:B%|
0000bf00  3d 42 53 25 2b 38 2a 43  53 25 21 34 3a 43 25 3d  |=BS%+8*CS%!4:C%=|
0000bf10  42 53 25 2b 38 2a 43 53  25 21 38 0d 4b 78 29 20  |BS%+8*CS%!8.Kx) |
0000bf20  20 ec 20 21 41 25 2c 41  25 21 34 3a ec 20 21 42  | . !A%,A%!4:. !B|
0000bf30  25 2c 42 25 21 34 3a f0  20 38 37 2c 21 43 25 2c  |%,B%!4:. 87,!C%,|
0000bf40  43 25 21 34 0d 4b 82 26  20 20 f0 20 36 35 2c 30  |C%!4.K.&  . 65,0|
0000bf50  2c 30 3a c8 92 20 21 41  25 2c 41 25 21 34 3a c8  |,0:.. !A%,A%!4:.|
0000bf60  92 20 21 42 25 2c 42 25  21 34 0d 4b 8c 06 20 cd  |. !B%,B%!4.K.. .|
0000bf70  0d 4b 96 05 ed 0d 4b a0  08 c9 20 33 3a 0d 4b aa  |.K....K... 3:.K.|
0000bf80  16 e3 20 49 25 3d 30 20  b8 20 74 6f 74 6e 6f 66  |.. I%=0 . totnof|
0000bf90  25 2d 31 0d 4b b4 42 20  43 53 25 3d 41 53 25 21  |%-1.K.B CS%=AS%!|
0000bfa0  28 49 25 2a 34 29 3a 74  68 69 6e 67 25 3d 77 6f  |(I%*4):thing%=wo|
0000bfb0  72 6c 64 25 2b 65 6c 73  69 7a 25 28 37 29 2a 43  |rld%+elsiz%(7)*C|
0000bfc0  53 25 3f 31 37 3a 42 53  25 3d 74 68 69 6e 67 25  |S%?17:BS%=thing%|
0000bfd0  21 63 6f 32 25 0d 4b be  32 20 e7 20 28 43 53 25  |!co2%.K.2 . (CS%|
0000bfe0  3f 31 39 20 80 20 26 36  30 29 3c 3e 30 20 80 20  |?19 . &60)<>0 . |
0000bff0  b4 28 74 68 69 6e 67 25  21 76 65 6c 25 29 3c 3e  |.(thing%!vel%)<>|
0000c000  73 6b 69 70 25 20 8c 0d  4b c8 31 20 20 41 25 3d  |skip% ..K.1  A%=|
0000c010  42 53 25 2b 38 2a 21 43  53 25 3a 42 25 3d 42 53  |BS%+8*!CS%:B%=BS|
0000c020  25 2b 38 2a 43 53 25 21  34 3a 43 25 3d 42 53 25  |%+8*CS%!4:C%=BS%|
0000c030  2b 38 2a 43 53 25 21 38  0d 4b d2 29 20 20 ec 20  |+8*CS%!8.K.)  . |
0000c040  21 41 25 2c 41 25 21 34  3a ec 20 21 42 25 2c 42  |!A%,A%!4:. !B%,B|
0000c050  25 21 34 3a f0 20 38 37  2c 21 43 25 2c 43 25 21  |%!4:. 87,!C%,C%!|
0000c060  34 0d 4b dc 1b 20 20 df  20 21 42 25 2c 42 25 21  |4.K..  . !B%,B%!|
0000c070  34 3a df 20 21 41 25 2c  41 25 21 34 0d 4b e6 1f  |4:. !A%,A%!4.K..|
0000c080  20 20 e7 20 43 53 25 3f  31 39 20 80 20 26 38 30  |  . CS%?19 . &80|
0000c090  20 df 20 21 43 25 2c 43  25 21 34 0d 4b f0 06 20  | . !C%,C%!4.K.. |
0000c0a0  cd 0d 4b fa 05 ed 0d 4c  04 05 cb 0d 4c 0e 05 e1  |..K....L....L...|
0000c0b0  0d ff                                             |..|
0000c0b2