� *** !FracWorks v.1.00
$� *** Written by Dean Alexandrou

(� � �quit:
2
<�init_screen
F�init_button_data
P�init_fractal_data
ZRii%=0:bp%=0:� when initial image is drawn ii%=1, when blueprint is drawn bp%=1
d
n�
x �
� �make_main_menu(ii%,bp%)
�7 �:ȗ x%,y%,z%:b%=�mouse_click_button(1,8):� b%<>-1
�+ � ȗ junkx%,junky%,junkb%:� junkb% = 0
� � b%=1 �edit_initial_image
� � b%=2 �edit_blue_print
� � b%=3 �load_fractal_set
� � b%=4 �save_fractal_set
�  � b%=5 �load_colour_palette
� � b%=6 �set_plot_options
�5 � b%=7 �plot_fractal(itz%*(itr%-1)+1,itr%,plot%)
� � b%=8 �help
�� �
��
�

��init_screen

�20

pal$="Rainbow"

"�load_palette(pal$)

,�5

6ȗ �

@ȗ ȓ -1280,-1024,3840,3072

J�

T

^��load_palette(pal$)

h� e%

r:

|2ș"OS_File",5,"<ColourSchemes$Dir>."+pal$ � e%

�� e%=0 �

�'� ("Run <ColourSchemes$Dir>."+pal$)

��

�

���make_main_menu(ii%,bp%)

�U�plot_button(0,200,880,800,"Fractal Works - written by Dean Alexandrou (1998)",0)

�6�make_button(1,400,800,400,"Edit Initial Image",0)

�6�make_button(2,400,750,400,"Edit Blueprint",1-ii%)

�4�make_button(3,400,700,400,"Load Fractal Set",0)

�<�make_button(4,400,650,400,"Save Fractal Set",1-ii%*bp%)

�7�make_button(5,400,600,400,"Load Colour Palette",0)

�4�make_button(6,400,550,400,"Set Plot Options",0)

�8�make_button(7,400,500,400,"Plot Fractal",1-ii%*bp%)
&�make_button(8,0,800,100,"Help",0)
�

&��init_button_data
0� button%(25,4)
:� button$(25)
D�
N
X��init_fractal_data
b0� image%(200,2),map%(50,4),i(200,2),plot$(2)
li%=0
vm%=0
�plot%=1
�plot$(1)="Lines"
�plot$(2)="Dots"
�itr%=15
�
itz%=0
��
�
�.��make_button(n%,x%,y%,len%,text$,handle%)
�button%(n%,0)=x%
�button%(n%,1)=y%
�button%(n%,2)=len%
�button%(n%,3)=handle%
�button$(n%)=text$
,�plot_button(1,x%,y%,len%,text$,handle%)
�

 .��plot_button(t%,x%,y%,len%,text$,handle%)
*� handle%=2 �
4 �0,3:ȓ Ȑ x%,y%,len%,50
> �0,7:� x%+12,y%+38:� text$
H�
R
 � t%=1 �
\   �0,3:ȓ Ȑ x%,y%,len%-2,46
f$  �0,7:ȓ Ȑ x%+2,y%+4,len%-2,46
p   �0,5:� x%+10,y%+38:� text$
z,  � handle%=0 �0,1:� x%+12,y%+42:� text$
� �
�   �0,1:� x%+10,y%+38:� text$
�,  � handle%=0 �0,5:� x%+12,y%+42:� text$
� �
��
��
�
�ݤmouse_click_button(s%,f%)
�� n%,mc%
�:
�
mc%=-1
�� z%=4 �
� � n%=s% � f%
}  � x%>=button%(n%,0) � x%<button%(n%,0)+button%(n%,2) � y%>=button%(n%,1) � y%<button%(n%,1)+50 � button%(n%,3)=0 mc%=n%
 �
�
$=mc%
.
8(��make_initial_image_window(wx%,wy%)
B2�make_button(3,wx%,wy%+100,200,"Clear Last",0)
L0�make_button(2,wx%,wy%+50,200,"Clear All",0)
V(�make_button(1,wx%,wy%,200,"Done",0)
`�
j
t��edit_initial_image
~"� ox%,oy%,x%,y%,z%,bt%,wx%,wy%
�:
�ox%=image%(i%,1)
�oy%=image%(i%,2)
�wx%=0:wy%=874
�:
��
� �
� �plot_grid
� �draw_initial_image
�( �make_initial_image_window(wx%,wy%)
� �
�  ȗ x%,y%,z%
"  bt%=�mouse_click_button(1,3)

7  � �-2=0 x%=(x%+32) � 64 * 64:y%=(y%+32) � 64 * 64
5  � �-2 x%=(x%+16) � 32 * 32:y%=(y%+16) � 32 * 32
1  �3,11:� ox%,oy%,x%,y%:Ȗ:Ȗ:� ox%,oy%,x%,y%
(%  � �-58 � wy%<900 wy%+=25:z%=999
2#  � �-42 � wy%>0 wy%-=25:z%=999
<'  � �-122 � wx%<1100 wx%+=25:z%=999
F#  � �-26 � wx%>0 wx%-=25:z%=999
P  � �-99 ȗ � 640,512
Z � z%>0
d � bt%=-1 �
n  � z%=4 �
x   i%+=1
�*   image%(i%,0)=1:� �-1 image%(i%,0)=3
�   image%(i%,1)=x%
�   image%(i%,2)=y%
�   �0,15:� ox%,oy%,x%,y%
�   ox%=x%:oy%=y%
�   �:ȗx%,y%,z%:�z%=0
�  �
�  � z%=2 �
�   i%+=1
�   image%(i%,0)=2
�   image%(i%,1)=x%
�   image%(i%,2)=y%
�   ox%=x%:oy%=y%
   �:ȗx%,y%,z%:�z%=0
  �
  � z%=1 � i%>0 �
"   i%-=1
,   ox%=image%(i%,1)
6   oy%=image%(i%,2)
@   �:ȗx%,y%,z%:�z%=0
J  �
T �
^ � bt%=2 i%=0:ox%=0:oy%=0
h � bt%=3 � i%>0 �
r  i%-=1
|  ox%=image%(i%,1)
�  oy%=image%(i%,2)
�  �:ȗx%,y%,z%:�z%=0
� �
�� bt%=1
�:
�ii%=1:� i%=0 ii%=0
�$�convert_coordinates_to_bearings
��
�
���draw_initial_image
�� n%
�:
�� i%=0 �
:
	�0,15
	� 0,0
&� n%=1 � i%
01 � image%(n%,0)=1 � image%(n%,1),image%(n%,2)
:1 � image%(n%,0)=2 � image%(n%,1),image%(n%,2)
D3 � image%(n%,0)=3 �85,image%(n%,1),image%(n%,2)
N�
X�
b
l ��blue_print_window(wx%,wy%)
v5�make_button(3,wx%,wy%+350,300,"Increase Size",0)
�5�make_button(4,wx%,wy%+300,300,"Decrease Size",0)
�6�make_button(5,wx%,wy%+250,300,"Increase Width",1)
�6�make_button(6,wx%,wy%+200,300,"Decrease Width",1)
�7�plot_button(0,wx%,wy%+150,300,"Images : "+�(m%),0)
�2�make_button(7,wx%,wy%+100,200,"Clear Last",0)
�0�make_button(2,wx%,wy%+50,200,"Clear All",0)
�(�make_button(1,wx%,wy%,100,"Done",0)
��
�
���edit_blue_print
�%� ang%,size%,x%,y%,z%,bt%,wx%,wy%
�:
�wx%=0:wy%=624
ang%=0:xsize%=20:ysize%=20
:
ȗ � 2,2
 �
* �
4 �plot_grid
> �draw_initial_image
H �draw_blue_print
R  �blue_print_window(wx%,wy%)
\ �
f  ȗ x%,y%,z%
p5  � �-2 x%=(x%+16) � 32 * 32:y%=(y%+16) � 32 * 32
z9  �3,11:�plot_image(x%,y%,ang%,xsize%/100,ysize%/100)
�"  bt%=�mouse_click_button(1,7)
�9  Ȗ:Ȗ:�plot_image(x%,y%,ang%,xsize%/100,ysize%/100)
�
  � �-2 �
�)   � z%=2 ang%-=90:� ang%<0 ang%+=360
�+   � z%=1 ang%+=90:� ang%>360 ang%-=360
�  �
�(   � z%=2 ang%-=1:� ang%<0 ang%+=360
�*   � z%=1 ang%+=1:� ang%>360 ang%-=360
�  �
�3  � bt%=3 � ysize%<100 xsize%+=1:ysize%+=1:z%=0
�1  � bt%=4 � ysize%>1 xsize%-=1:ysize%-=1:z%=0
�-�  IF bt%=5 AND xsize%<100 xsize%+=1:z%=0
�+�  IF bt%=6 AND xsize%>1 xsize%-=1:z%=0
	%  � �-58 � wy%<900 wy%+=25:z%=999
	#  � �-42 � wy%>0 wy%-=25:z%=999
	'  � �-122 � wx%<1100 wx%+=25:z%=999
	$#  � �-26 � wx%>0 wx%-=25:z%=999
	.  � �-99 ȗ � 640,512
	8 � z%=4 � z%=999
	B � bt%=-1 � z%=4 �
	L  m%+=1
	V  map%(m%,0)=ang%
	`  map%(m%,1)=xsize%
	j  map%(m%,2)=ysize%
	t  map%(m%,3)=x%
	~  map%(m%,4)=y%
	�  �:ȗx%,y%,z%:�z%=0
	� �
	�  � bt%=2 m%=0
	�  � bt%=7 � m%>0 �
	�   ang%=map%(m%,0)
	�   xsize%=map%(m%,1)
	�   ysize%=map%(m%,2)
	�   x%=map%(m%,3)
	�   y%=map%(m%,4)
	�   m%-=1
	�  �
	� �
� bt%=1

:
ȗ � 4,4
bp%=1:� m%=0 bp%=0
(�
2
<��draw_blue_print
F� n%
P:
Z� m%=0 �
d:
n� n%=1 � m%
xP �plot_image(map%(n%,3),map%(n%,4),map%(n%,0),map%(n%,1)/100,map%(n%,2)/100)
��
��
�
���plot_grid
�� x%,y%
�:
�D�0,3:�y%=0�1024�64:�0,y%,1280,y%:�:�x%=0�1280�64:�x%,0,x%,1024:�
�F�0,5:�y%=0�1024�128:�0,y%,1280,y%:�:�x%=0�1280�128:�x%,0,x%,1024:�
�)�0,11:�0,512,1280,512:�640,0,640,1024
��
�
�%��convert_coordinates_to_bearings
�$� x,y,n%,nx,ny,xlen,len,ylen,ang
:
x=0:y=0
� n%=1 � i%
"$ nx=image%(n%,1):ny=image%(n%,2)
, :
6 � nx=x nx+=0.1
@ � ny=y ny+=0.1
J xlen=nx-x:ylen=ny-y
T len=�(xlen*xlen+ylen*ylen)
^( ang=�calculate_angle(0,0,xlen,ylen)
h :
r i(n%,0)=image%(n%,0)
| i(n%,1)=ang:i(n%,2)=len
� :
� x=nx:y=ny
��
��
�
�"ݤcalculate_angle(x1,y1,x2,y2)
�� xlen,ylen,ang
�:
�*xlen=x2-x1:� xlen=0 xlen=0.00000000001
�ylen=y2-y1
�ang=�(�(ylen/xlen))
�&� ang<0 ang=�(ang)+90 � ang=90-ang
�� xlen<0 ang-=180
=ang

$��plot_image(x%,y%,ang%,xmf,ymf)
&� n%,x,y,a
0:
:
x=x%:y=y%
D� n%=1 � i%
N a=�(i(n%,1)+ang%)
X x+=�(a)*i(n%,2)*xmf
b y+=�(a)*i(n%,2)*ymf
l � i(n%,0)=1 � x,y
v � i(n%,0)=2 � x,y
� � i(n%,0)=3 �85,x,y
��
��
�
�(��plot_image_dot(x%,y%,ang%,xmf,ymf)
�� n%,x,y,a
�:
�
x=x%:y=y%
�� n%=1 � i%
� a=�(i(n%,1)+ang%)
� x+=�(a)*i(n%,2)*xmf
� y+=�(a)*i(n%,2)*ymf
� � �x,y)=0 �69,x,y

�

�



 ��save_fractal_set

*� sv%,sv$,A$,e%,n%,nn%

4:

>�:A$=�(0):�A$=""

H	sv%=0

R
sv$=""

\�

f1 �plot_button(1,400,400,400,"Save As:"+sv$,0)

p	 A$=�

z � �(A$)<>8 � �(A$)<>127 �

�&  � �(A$)>32 � A$<>"." � A$<>":" �

�   sv$=sv$+A$

�   sv$=�sv$,10)

�  �

� �

�  sv$=�sv$)

� �

�� �(A$)=13

�:

�9ș"OS_File",5,"<FractalWorks$Dir>.Fractals."+sv$ � e%

�� e%>0 �

�H �plot_button(1,300,300,680,sv$+" already exists. Replace? (Y/N)",0)

� �:A$=�:� A$="Y" � A$="N"
 � A$="Y" sv%=1
�

 sv%=1
$�
.
� sv%=1 �
8# x=�("<SavedFractal$Dir>."+sv$)
B �#x,i%
L � n%=1 � i%
V  � nn%=0 � 2
`   �#x,image%(n%,nn%)
j   �#x,i(n%,nn%)
t  �
~ �
� �#x,m%
� � n%=1 � m%
�  � nn%=0 � 4
�   �#x,map%(n%,nn%)
�  �
� �
�
 �#x,pal$
� �#x,plot%
�
 �#x,itz%
�
 �#x,itr%
� �#x
��
�


��load_fractal_set
%� ld$,A$,n%,nn%,bt%,bts%,x%,y%,z%
(:
2(�plot_button(0,500,450,200,"Load",0)
<bts%=�make_file_list
F� bts%=0 �
P:
Z;�:ȗ x%,y%,z%:bt%=�mouse_click_button(0,bts%):� bt%<>-1
d
� bt%=0 �
n:
x+x=�("<SavedFractal$Dir>."+button$(bt%))
�
�#x,i%
�� n%=1 � i%
� � nn%=0 � 2
�  �#x,image%(n%,nn%)
�  �#x,i(n%,nn%)
� �
��
�
�#x,m%
�� n%=1 � m%
� � nn%=0 � 4
�  �#x,map%(n%,nn%)
� �
��
�#x,pal$

�#x,plot%
�#x,itz%
"�#x,itr%
,�#x
6:
@�load_palette(pal$)
J	ii%=1
T	bp%=1
^�
h
rݤmake_file_list
|(� files%,name$(),path%,buffer%,x%,y%
�:
�� name$(255)
�� path% 255, buffer% 255
�:
�!�read_dir("SavedFractal$Dir")
�� files%>0 �
� x%=100
� y%=400
�	 f%=1
� �
�,  �make_button(f%,x%,y%,200,name$(f%),0)
�$  x%+=200:� x%>900 x%=100:y%-=50
�  f%+=1
 � f%>files%
 y%-=50
+ �make_button(0,500,y%,200," Cancel",0)
&�
0=files%
:
Djݤr(r$):�S$,Wb%,N:ș"OS_ReadVarVal",r$,buffer%,250,0,0�,,Wb%:S$="":�N=0�Wb%-1:S$=S$+�(buffer%?N):�:=S$
N
X��read_dir(dirname$)
b� eof%,n%,nn%,name$
l:
v$path%=�r(dirname$)
�:
�files%=0
�
eof%=�
�
n%=1:�
�,ș"OS_GBPB",9,path%,buffer%,1,n%-1,255,0
�Fnn%=0:name$="":�:name$=name$+�(buffer%?nn%):nn%+=1:�buffer%?nn%<33
�:� name$<>name$(n%-1) name$(n%)=name$ � name$(n%)="* *"
�)� name$(n%)="* *" eof%=�: � files%+=1
�n%+=1:�n%=256eof%=�
��eof%=�
��
�
���load_colour_palette
%� ld$,A$,n%,nn%,bt%,bts%,x%,y%,z%
:
0�plot_button(0,500,450,200,"Load Palette",0)
 bts%=�make_palette_list
*� bts%=0 �
4:
>;�:ȗ x%,y%,z%:bt%=�mouse_click_button(0,bts%):� bt%<>-1
H
� bt%=0 �
R:
\pal$=button$(bt%)
f�load_palette(pal$)
p�
z
�ݤmake_palette_list
�(� files%,name$(),path%,buffer%,x%,y%
�:
�� name$(255)
�� path% 255, buffer% 255
�:
�"�read_dir("ColourSchemes$Dir")
�� files%>0 �
� x%=100
� y%=400
�	 f%=1
� �
�,  �make_button(f%,x%,y%,200,name$(f%),0)
$  x%+=200:� x%>900 x%=100:y%-=50
  f%+=1
 � f%>files%
$ y%-=50
.+ �make_button(0,500,y%,200," Cancel",0)
8�
B=files%
L
V��set_plot_options
`� x%,y%,z%,bt%
j:
t�
~> �make_button(1,400,400,400,"Plot Type  :"+plot$(plot%),0)
�9 �make_button(2,400,350,400,"Iterations :"+�(itr%),0)
�K �make_button(3,400,300,400,"Iterate from 0 :"+�"YesNo ",itz%*3+1,3),0)
�) �make_button(0,400,200,400,"Done",0)
�9 �:ȗ x%,y%,z%:bt%=�mouse_click_button(0,3):� bt%<>-1
� � bt%=1 plot%=3-plot%
�% � bt%=2 itr%+=1:� itr%>15 itr%=2
� � bt%=3 itz%=1-itz%
� �:ȗ x%,y%,z%:� z%=0
�� bt%=0
��
�
�#��plot_fractal(start%,end%,dr%)
� ad,ET,d,x%,y%,z%

:
�
�4
(� 15
2:
<
ad=0:ET=0
F�0,1
P$� plot%=1 �plot_image(0,0,0,1,1)
Z(� plot%=2 �plot_image_dot(0,0,0,1,1)
d� d=start% � end%
n �=0
x$ �0,0)"Level of iteration : ";d
�# �" Started at       : ";‘$,8)
� �get_et(ET)
�N �" Time to complete : ";hrs%;":";�"0"+�(mns%),2);":";�"0"+�(scs%),2);"  "
� �'"(Hold SPACE to stop)"
�	 �0,d
� �advfractal(0,0,0,1,1)
�	 ET=�
��
�� 10
��''"Click to continue"
��5
��:ȗ x%,y%,z%:� z%>0
��:ȗ x%,y%,z%:� z%=0
�

��get_et(et%)
"et%=et%*m%
,scs%=(et%+50) � 100
6mns%=scs% � 60
@scs%=scs% � 60
Jhrs%=mns% � 60
Tmns%=mns% � 60
^�
h
r=��advfractal(xcorner,ycorner,tilt,widthscale,heightscale)
|� n%
�:
�� �-99 �
�	ad+=1
�� ad=d �
�G � plot%=1 �plot_image(xcorner,ycorner,tilt,widthscale,heightscale)
�K � plot%=2 �plot_image_dot(xcorner,ycorner,tilt,widthscale,heightscale)
��
� � n%=1 � m%
�  bx=map%(n%,3)*widthscale
�  by=map%(n%,4)*heightscale
�  btilt=map%(n%,0)+tilt
�$  bws=map%(n%,1)*0.01*widthscale
�%  bhs=map%(n%,2)*0.01*heightscale
  :
  blen=�(bx*bx+by*by)
+  bang=�calculate_angle(0,0,bx,by)+tilt
&  a=�(bang)
0  xc=�(a)*blen+xcorner
:  yc=�(a)*blen+ycorner
D&  �advfractal(xc,yc,btilt,bws,bhs)
N �
X�
b	ad-=1
l�
v
�
��help
�
� A,I$
�:
��:I$=�(0):� I$=""
��4
��
�0�"Special Controls used in editing screens."
��
��
��
��"Edit Initial Image"
�@�"                      Left Mouse Button   - Draw to point"
�@�"              SHIFT + Left Mouse Button   - Fill to point"
@�"                      Middle Mouse Button - Move to point"
B�"                      Right Mouse Button  - Clear last line"
F�"                      Arrow Keys          - Move Control Window"
 ?�"                      SPACE Bar           - Centre Mouse"
*N�"                   (Always start the initial image with a move command)"
4�
>�
H�"Edit Blue Print"
R>�"                      Left Mouse Button   - Stamp Image"
\H�"                      Middle Mouse Button - Rotate Anti-Clockwise"
fC�"                      Right Mouse Button  - Rotate Clockwise"
pF�"                      Arrow Keys          - Move Control Window"
z?�"                      SPACE Bar           - Centre Mouse"
��
��
��
��
��"Press a key to Exit"
�A=�
��5
��
�:
�� �quit
�	� � �
��
��load_palette("Default")
��$" at line ";�
�
�

00000000  0d 00 0a 1b f4 20 2a 2a  2a 20 21 46 72 61 63 57  |..... *** !FracW|
00000010  6f 72 6b 73 20 76 2e 31  2e 30 30 0d 00 14 24 f4  |orks v.1.00...$.|
00000020  20 2a 2a 2a 20 57 72 69  74 74 65 6e 20 62 79 20  | *** Written by |
00000030  44 65 61 6e 20 41 6c 65  78 61 6e 64 72 6f 75 0d  |Dean Alexandrou.|
00000040  00 1e 04 0d 00 28 0e ee  20 85 20 f2 71 75 69 74  |.....(.. . .quit|
00000050  3a 0d 00 32 04 0d 00 3c  10 f2 69 6e 69 74 5f 73  |:..2...<..init_s|
00000060  63 72 65 65 6e 0d 00 46  15 f2 69 6e 69 74 5f 62  |creen..F..init_b|
00000070  75 74 74 6f 6e 5f 64 61  74 61 0d 00 50 16 f2 69  |utton_data..P..i|
00000080  6e 69 74 5f 66 72 61 63  74 61 6c 5f 64 61 74 61  |nit_fractal_data|
00000090  0d 00 5a 52 69 69 25 3d  30 3a 62 70 25 3d 30 3a  |..ZRii%=0:bp%=0:|
000000a0  f4 20 77 68 65 6e 20 69  6e 69 74 69 61 6c 20 69  |. when initial i|
000000b0  6d 61 67 65 20 69 73 20  64 72 61 77 6e 20 69 69  |mage is drawn ii|
000000c0  25 3d 31 2c 20 77 68 65  6e 20 62 6c 75 65 70 72  |%=1, when bluepr|
000000d0  69 6e 74 20 69 73 20 64  72 61 77 6e 20 62 70 25  |int is drawn bp%|
000000e0  3d 31 0d 00 64 04 0d 00  6e 05 f5 0d 00 78 06 20  |=1..d...n....x. |
000000f0  db 0d 00 82 1d 20 f2 6d  61 6b 65 5f 6d 61 69 6e  |..... .make_main|
00000100  5f 6d 65 6e 75 28 69 69  25 2c 62 70 25 29 0d 00  |_menu(ii%,bp%)..|
00000110  8c 37 20 f5 3a c8 97 20  78 25 2c 79 25 2c 7a 25  |.7 .:.. x%,y%,z%|
00000120  3a 62 25 3d a4 6d 6f 75  73 65 5f 63 6c 69 63 6b  |:b%=.mouse_click|
00000130  5f 62 75 74 74 6f 6e 28  31 2c 38 29 3a fd 20 62  |_button(1,8):. b|
00000140  25 3c 3e 2d 31 0d 00 8d  2b 20 f5 20 c8 97 20 6a  |%<>-1...+ . .. j|
00000150  75 6e 6b 78 25 2c 6a 75  6e 6b 79 25 2c 6a 75 6e  |unkx%,junky%,jun|
00000160  6b 62 25 3a fd 20 6a 75  6e 6b 62 25 20 3d 20 30  |kb%:. junkb% = 0|
00000170  0d 00 96 1f 20 e7 20 62  25 3d 31 20 f2 65 64 69  |.... . b%=1 .edi|
00000180  74 5f 69 6e 69 74 69 61  6c 5f 69 6d 61 67 65 0d  |t_initial_image.|
00000190  00 a0 1c 20 e7 20 62 25  3d 32 20 f2 65 64 69 74  |... . b%=2 .edit|
000001a0  5f 62 6c 75 65 5f 70 72  69 6e 74 0d 00 aa 1d 20  |_blue_print.... |
000001b0  e7 20 62 25 3d 33 20 f2  6c 6f 61 64 5f 66 72 61  |. b%=3 .load_fra|
000001c0  63 74 61 6c 5f 73 65 74  0d 00 b4 1d 20 e7 20 62  |ctal_set.... . b|
000001d0  25 3d 34 20 f2 73 61 76  65 5f 66 72 61 63 74 61  |%=4 .save_fracta|
000001e0  6c 5f 73 65 74 0d 00 be  20 20 e7 20 62 25 3d 35  |l_set...  . b%=5|
000001f0  20 f2 6c 6f 61 64 5f 63  6f 6c 6f 75 72 5f 70 61  | .load_colour_pa|
00000200  6c 65 74 74 65 0d 00 c8  1d 20 e7 20 62 25 3d 36  |lette.... . b%=6|
00000210  20 f2 73 65 74 5f 70 6c  6f 74 5f 6f 70 74 69 6f  | .set_plot_optio|
00000220  6e 73 0d 00 d2 35 20 e7  20 62 25 3d 37 20 f2 70  |ns...5 . b%=7 .p|
00000230  6c 6f 74 5f 66 72 61 63  74 61 6c 28 69 74 7a 25  |lot_fractal(itz%|
00000240  2a 28 69 74 72 25 2d 31  29 2b 31 2c 69 74 72 25  |*(itr%-1)+1,itr%|
00000250  2c 70 6c 6f 74 25 29 0d  00 dc 11 20 e7 20 62 25  |,plot%).... . b%|
00000260  3d 38 20 f2 68 65 6c 70  0d 00 e6 07 fd 20 a3 0d  |=8 .help..... ..|
00000270  00 f0 05 e0 0d 00 fa 04  0d 01 04 11 dd f2 69 6e  |..............in|
00000280  69 74 5f 73 63 72 65 65  6e 0d 01 0e 07 eb 32 30  |it_screen.....20|
00000290  0d 01 18 12 70 61 6c 24  3d 22 52 61 69 6e 62 6f  |....pal$="Rainbo|
000002a0  77 22 0d 01 22 17 f2 6c  6f 61 64 5f 70 61 6c 65  |w".."..load_pale|
000002b0  74 74 65 28 70 61 6c 24  29 0d 01 2c 06 ef 35 0d  |tte(pal$)..,..5.|
000002c0  01 36 08 c8 97 20 ee 0d  01 40 1f c8 97 20 c8 93  |.6... ...@... ..|
000002d0  20 2d 31 32 38 30 2c 2d  31 30 32 34 2c 33 38 34  | -1280,-1024,384|
000002e0  30 2c 33 30 37 32 0d 01  4a 05 e1 0d 01 54 04 0d  |0,3072..J....T..|
000002f0  01 5e 18 dd f2 6c 6f 61  64 5f 70 61 6c 65 74 74  |.^...load_palett|
00000300  65 28 70 61 6c 24 29 0d  01 68 08 ea 20 65 25 0d  |e(pal$)..h.. e%.|
00000310  01 72 05 3a 0d 01 7c 32  c8 99 22 4f 53 5f 46 69  |.r.:..|2.."OS_Fi|
00000320  6c 65 22 2c 35 2c 22 3c  43 6f 6c 6f 75 72 53 63  |le",5,"<ColourSc|
00000330  68 65 6d 65 73 24 44 69  72 3e 2e 22 2b 70 61 6c  |hemes$Dir>."+pal|
00000340  24 20 b8 20 65 25 0d 01  86 0c e7 20 65 25 3d 30  |$ . e%..... e%=0|
00000350  20 e1 0d 01 90 27 ff 20  28 22 52 75 6e 20 3c 43  | ....'. ("Run <C|
00000360  6f 6c 6f 75 72 53 63 68  65 6d 65 73 24 44 69 72  |olourSchemes$Dir|
00000370  3e 2e 22 2b 70 61 6c 24  29 0d 01 9a 05 e1 0d 01  |>."+pal$).......|
00000380  a4 04 0d 01 ae 1d dd f2  6d 61 6b 65 5f 6d 61 69  |........make_mai|
00000390  6e 5f 6d 65 6e 75 28 69  69 25 2c 62 70 25 29 0d  |n_menu(ii%,bp%).|
000003a0  01 b8 55 f2 70 6c 6f 74  5f 62 75 74 74 6f 6e 28  |..U.plot_button(|
000003b0  30 2c 32 30 30 2c 38 38  30 2c 38 30 30 2c 22 46  |0,200,880,800,"F|
000003c0  72 61 63 74 61 6c 20 57  6f 72 6b 73 20 2d 20 77  |ractal Works - w|
000003d0  72 69 74 74 65 6e 20 62  79 20 44 65 61 6e 20 41  |ritten by Dean A|
000003e0  6c 65 78 61 6e 64 72 6f  75 20 28 31 39 39 38 29  |lexandrou (1998)|
000003f0  22 2c 30 29 0d 01 c2 36  f2 6d 61 6b 65 5f 62 75  |",0)...6.make_bu|
00000400  74 74 6f 6e 28 31 2c 34  30 30 2c 38 30 30 2c 34  |tton(1,400,800,4|
00000410  30 30 2c 22 45 64 69 74  20 49 6e 69 74 69 61 6c  |00,"Edit Initial|
00000420  20 49 6d 61 67 65 22 2c  30 29 0d 01 cc 36 f2 6d  | Image",0)...6.m|
00000430  61 6b 65 5f 62 75 74 74  6f 6e 28 32 2c 34 30 30  |ake_button(2,400|
00000440  2c 37 35 30 2c 34 30 30  2c 22 45 64 69 74 20 42  |,750,400,"Edit B|
00000450  6c 75 65 70 72 69 6e 74  22 2c 31 2d 69 69 25 29  |lueprint",1-ii%)|
00000460  0d 01 d6 34 f2 6d 61 6b  65 5f 62 75 74 74 6f 6e  |...4.make_button|
00000470  28 33 2c 34 30 30 2c 37  30 30 2c 34 30 30 2c 22  |(3,400,700,400,"|
00000480  4c 6f 61 64 20 46 72 61  63 74 61 6c 20 53 65 74  |Load Fractal Set|
00000490  22 2c 30 29 0d 01 e0 3c  f2 6d 61 6b 65 5f 62 75  |",0)...<.make_bu|
000004a0  74 74 6f 6e 28 34 2c 34  30 30 2c 36 35 30 2c 34  |tton(4,400,650,4|
000004b0  30 30 2c 22 53 61 76 65  20 46 72 61 63 74 61 6c  |00,"Save Fractal|
000004c0  20 53 65 74 22 2c 31 2d  69 69 25 2a 62 70 25 29  | Set",1-ii%*bp%)|
000004d0  0d 01 ea 37 f2 6d 61 6b  65 5f 62 75 74 74 6f 6e  |...7.make_button|
000004e0  28 35 2c 34 30 30 2c 36  30 30 2c 34 30 30 2c 22  |(5,400,600,400,"|
000004f0  4c 6f 61 64 20 43 6f 6c  6f 75 72 20 50 61 6c 65  |Load Colour Pale|
00000500  74 74 65 22 2c 30 29 0d  01 f4 34 f2 6d 61 6b 65  |tte",0)...4.make|
00000510  5f 62 75 74 74 6f 6e 28  36 2c 34 30 30 2c 35 35  |_button(6,400,55|
00000520  30 2c 34 30 30 2c 22 53  65 74 20 50 6c 6f 74 20  |0,400,"Set Plot |
00000530  4f 70 74 69 6f 6e 73 22  2c 30 29 0d 01 fe 38 f2  |Options",0)...8.|
00000540  6d 61 6b 65 5f 62 75 74  74 6f 6e 28 37 2c 34 30  |make_button(7,40|
00000550  30 2c 35 30 30 2c 34 30  30 2c 22 50 6c 6f 74 20  |0,500,400,"Plot |
00000560  46 72 61 63 74 61 6c 22  2c 31 2d 69 69 25 2a 62  |Fractal",1-ii%*b|
00000570  70 25 29 0d 02 08 26 f2  6d 61 6b 65 5f 62 75 74  |p%)...&.make_but|
00000580  74 6f 6e 28 38 2c 30 2c  38 30 30 2c 31 30 30 2c  |ton(8,0,800,100,|
00000590  22 48 65 6c 70 22 2c 30  29 0d 02 12 05 e1 0d 02  |"Help",0).......|
000005a0  1c 04 0d 02 26 16 dd f2  69 6e 69 74 5f 62 75 74  |....&...init_but|
000005b0  74 6f 6e 5f 64 61 74 61  0d 02 30 13 de 20 62 75  |ton_data..0.. bu|
000005c0  74 74 6f 6e 25 28 32 35  2c 34 29 0d 02 3a 11 de  |tton%(25,4)..:..|
000005d0  20 62 75 74 74 6f 6e 24  28 32 35 29 0d 02 44 05  | button$(25)..D.|
000005e0  e1 0d 02 4e 04 0d 02 58  17 dd f2 69 6e 69 74 5f  |...N...X...init_|
000005f0  66 72 61 63 74 61 6c 5f  64 61 74 61 0d 02 62 30  |fractal_data..b0|
00000600  de 20 69 6d 61 67 65 25  28 32 30 30 2c 32 29 2c  |. image%(200,2),|
00000610  6d 61 70 25 28 35 30 2c  34 29 2c 69 28 32 30 30  |map%(50,4),i(200|
00000620  2c 32 29 2c 70 6c 6f 74  24 28 32 29 0d 02 6c 08  |,2),plot$(2)..l.|
00000630  69 25 3d 30 0d 02 76 08  6d 25 3d 30 0d 02 80 0b  |i%=0..v.m%=0....|
00000640  70 6c 6f 74 25 3d 31 0d  02 8a 14 70 6c 6f 74 24  |plot%=1....plot$|
00000650  28 31 29 3d 22 4c 69 6e  65 73 22 0d 02 94 13 70  |(1)="Lines"....p|
00000660  6c 6f 74 24 28 32 29 3d  22 44 6f 74 73 22 0d 02  |lot$(2)="Dots"..|
00000670  9e 0b 69 74 72 25 3d 31  35 0d 02 a8 0a 69 74 7a  |..itr%=15....itz|
00000680  25 3d 30 0d 02 b2 05 e1  0d 02 bc 04 0d 02 c6 2e  |%=0.............|
00000690  dd f2 6d 61 6b 65 5f 62  75 74 74 6f 6e 28 6e 25  |..make_button(n%|
000006a0  2c 78 25 2c 79 25 2c 6c  65 6e 25 2c 74 65 78 74  |,x%,y%,len%,text|
000006b0  24 2c 68 61 6e 64 6c 65  25 29 0d 02 d0 14 62 75  |$,handle%)....bu|
000006c0  74 74 6f 6e 25 28 6e 25  2c 30 29 3d 78 25 0d 02  |tton%(n%,0)=x%..|
000006d0  da 14 62 75 74 74 6f 6e  25 28 6e 25 2c 31 29 3d  |..button%(n%,1)=|
000006e0  79 25 0d 02 e4 16 62 75  74 74 6f 6e 25 28 6e 25  |y%....button%(n%|
000006f0  2c 32 29 3d 6c 65 6e 25  0d 02 ee 19 62 75 74 74  |,2)=len%....butt|
00000700  6f 6e 25 28 6e 25 2c 33  29 3d 68 61 6e 64 6c 65  |on%(n%,3)=handle|
00000710  25 0d 02 f8 15 62 75 74  74 6f 6e 24 28 6e 25 29  |%....button$(n%)|
00000720  3d 74 65 78 74 24 0d 03  02 2c f2 70 6c 6f 74 5f  |=text$...,.plot_|
00000730  62 75 74 74 6f 6e 28 31  2c 78 25 2c 79 25 2c 6c  |button(1,x%,y%,l|
00000740  65 6e 25 2c 74 65 78 74  24 2c 68 61 6e 64 6c 65  |en%,text$,handle|
00000750  25 29 0d 03 0c 05 e1 0d  03 16 04 0d 03 20 2e dd  |%)........... ..|
00000760  f2 70 6c 6f 74 5f 62 75  74 74 6f 6e 28 74 25 2c  |.plot_button(t%,|
00000770  78 25 2c 79 25 2c 6c 65  6e 25 2c 74 65 78 74 24  |x%,y%,len%,text$|
00000780  2c 68 61 6e 64 6c 65 25  29 0d 03 2a 11 e7 20 68  |,handle%)..*.. h|
00000790  61 6e 64 6c 65 25 3d 32  20 8c 0d 03 34 1d 20 e6  |andle%=2 ...4. .|
000007a0  30 2c 33 3a c8 93 20 c8  90 20 78 25 2c 79 25 2c  |0,3:.. .. x%,y%,|
000007b0  6c 65 6e 25 2c 35 30 0d  03 3e 1f 20 e6 30 2c 37  |len%,50..>. .0,7|
000007c0  3a ec 20 78 25 2b 31 32  2c 79 25 2b 33 38 3a f1  |:. x%+12,y%+38:.|
000007d0  20 74 65 78 74 24 0d 03  48 05 cc 0d 03 52 0d 20  | text$..H....R. |
000007e0  e7 20 74 25 3d 31 20 8c  0d 03 5c 20 20 20 e6 30  |. t%=1 ...\   .0|
000007f0  2c 33 3a c8 93 20 c8 90  20 78 25 2c 79 25 2c 6c  |,3:.. .. x%,y%,l|
00000800  65 6e 25 2d 32 2c 34 36  0d 03 66 24 20 20 e6 30  |en%-2,46..f$  .0|
00000810  2c 37 3a c8 93 20 c8 90  20 78 25 2b 32 2c 79 25  |,7:.. .. x%+2,y%|
00000820  2b 34 2c 6c 65 6e 25 2d  32 2c 34 36 0d 03 70 20  |+4,len%-2,46..p |
00000830  20 20 e6 30 2c 35 3a ec  20 78 25 2b 31 30 2c 79  |  .0,5:. x%+10,y|
00000840  25 2b 33 38 3a f1 20 74  65 78 74 24 0d 03 7a 2c  |%+38:. text$..z,|
00000850  20 20 e7 20 68 61 6e 64  6c 65 25 3d 30 20 e6 30  |  . handle%=0 .0|
00000860  2c 31 3a ec 20 78 25 2b  31 32 2c 79 25 2b 34 32  |,1:. x%+12,y%+42|
00000870  3a f1 20 74 65 78 74 24  0d 03 84 06 20 cc 0d 03  |:. text$.... ...|
00000880  8e 20 20 20 e6 30 2c 31  3a ec 20 78 25 2b 31 30  |.   .0,1:. x%+10|
00000890  2c 79 25 2b 33 38 3a f1  20 74 65 78 74 24 0d 03  |,y%+38:. text$..|
000008a0  98 2c 20 20 e7 20 68 61  6e 64 6c 65 25 3d 30 20  |.,  . handle%=0 |
000008b0  e6 30 2c 35 3a ec 20 78  25 2b 31 32 2c 79 25 2b  |.0,5:. x%+12,y%+|
000008c0  34 32 3a f1 20 74 65 78  74 24 0d 03 a2 06 20 cd  |42:. text$.... .|
000008d0  0d 03 ac 05 cd 0d 03 b6  05 e1 0d 03 c0 04 0d 03  |................|
000008e0  ca 1f dd a4 6d 6f 75 73  65 5f 63 6c 69 63 6b 5f  |....mouse_click_|
000008f0  62 75 74 74 6f 6e 28 73  25 2c 66 25 29 0d 03 d4  |button(s%,f%)...|
00000900  0c ea 20 6e 25 2c 6d 63  25 0d 03 de 05 3a 0d 03  |.. n%,mc%....:..|
00000910  e8 0a 6d 63 25 3d 2d 31  0d 03 f2 0c e7 20 7a 25  |..mc%=-1..... z%|
00000920  3d 34 20 8c 0d 03 fc 11  20 e3 20 6e 25 3d 73 25  |=4 ..... . n%=s%|
00000930  20 b8 20 66 25 0d 04 06  7d 20 20 e7 20 78 25 3e  | . f%...}  . x%>|
00000940  3d 62 75 74 74 6f 6e 25  28 6e 25 2c 30 29 20 80  |=button%(n%,0) .|
00000950  20 78 25 3c 62 75 74 74  6f 6e 25 28 6e 25 2c 30  | x%<button%(n%,0|
00000960  29 2b 62 75 74 74 6f 6e  25 28 6e 25 2c 32 29 20  |)+button%(n%,2) |
00000970  80 20 79 25 3e 3d 62 75  74 74 6f 6e 25 28 6e 25  |. y%>=button%(n%|
00000980  2c 31 29 20 80 20 79 25  3c 62 75 74 74 6f 6e 25  |,1) . y%<button%|
00000990  28 6e 25 2c 31 29 2b 35  30 20 80 20 62 75 74 74  |(n%,1)+50 . butt|
000009a0  6f 6e 25 28 6e 25 2c 33  29 3d 30 20 6d 63 25 3d  |on%(n%,3)=0 mc%=|
000009b0  6e 25 0d 04 10 06 20 ed  0d 04 1a 05 cd 0d 04 24  |n%.... ........$|
000009c0  08 3d 6d 63 25 0d 04 2e  04 0d 04 38 28 dd f2 6d  |.=mc%......8(..m|
000009d0  61 6b 65 5f 69 6e 69 74  69 61 6c 5f 69 6d 61 67  |ake_initial_imag|
000009e0  65 5f 77 69 6e 64 6f 77  28 77 78 25 2c 77 79 25  |e_window(wx%,wy%|
000009f0  29 0d 04 42 32 f2 6d 61  6b 65 5f 62 75 74 74 6f  |)..B2.make_butto|
00000a00  6e 28 33 2c 77 78 25 2c  77 79 25 2b 31 30 30 2c  |n(3,wx%,wy%+100,|
00000a10  32 30 30 2c 22 43 6c 65  61 72 20 4c 61 73 74 22  |200,"Clear Last"|
00000a20  2c 30 29 0d 04 4c 30 f2  6d 61 6b 65 5f 62 75 74  |,0)..L0.make_but|
00000a30  74 6f 6e 28 32 2c 77 78  25 2c 77 79 25 2b 35 30  |ton(2,wx%,wy%+50|
00000a40  2c 32 30 30 2c 22 43 6c  65 61 72 20 41 6c 6c 22  |,200,"Clear All"|
00000a50  2c 30 29 0d 04 56 28 f2  6d 61 6b 65 5f 62 75 74  |,0)..V(.make_but|
00000a60  74 6f 6e 28 31 2c 77 78  25 2c 77 79 25 2c 32 30  |ton(1,wx%,wy%,20|
00000a70  30 2c 22 44 6f 6e 65 22  2c 30 29 0d 04 60 05 e1  |0,"Done",0)..`..|
00000a80  0d 04 6a 04 0d 04 74 18  dd f2 65 64 69 74 5f 69  |..j...t...edit_i|
00000a90  6e 69 74 69 61 6c 5f 69  6d 61 67 65 0d 04 7e 22  |nitial_image..~"|
00000aa0  ea 20 6f 78 25 2c 6f 79  25 2c 78 25 2c 79 25 2c  |. ox%,oy%,x%,y%,|
00000ab0  7a 25 2c 62 74 25 2c 77  78 25 2c 77 79 25 0d 04  |z%,bt%,wx%,wy%..|
00000ac0  88 05 3a 0d 04 92 14 6f  78 25 3d 69 6d 61 67 65  |..:....ox%=image|
00000ad0  25 28 69 25 2c 31 29 0d  04 9c 14 6f 79 25 3d 69  |%(i%,1)....oy%=i|
00000ae0  6d 61 67 65 25 28 69 25  2c 32 29 0d 04 a6 11 77  |mage%(i%,2)....w|
00000af0  78 25 3d 30 3a 77 79 25  3d 38 37 34 0d 04 b0 05  |x%=0:wy%=874....|
00000b00  3a 0d 04 ba 05 f5 0d 04  c4 06 20 db 0d 04 ce 0f  |:......... .....|
00000b10  20 f2 70 6c 6f 74 5f 67  72 69 64 0d 04 d8 18 20  | .plot_grid.... |
00000b20  f2 64 72 61 77 5f 69 6e  69 74 69 61 6c 5f 69 6d  |.draw_initial_im|
00000b30  61 67 65 0d 04 e2 28 20  f2 6d 61 6b 65 5f 69 6e  |age...( .make_in|
00000b40  69 74 69 61 6c 5f 69 6d  61 67 65 5f 77 69 6e 64  |itial_image_wind|
00000b50  6f 77 28 77 78 25 2c 77  79 25 29 0d 04 ec 06 20  |ow(wx%,wy%).... |
00000b60  f5 0d 04 f6 11 20 20 c8  97 20 78 25 2c 79 25 2c  |.....  .. x%,y%,|
00000b70  7a 25 0d 05 00 22 20 20  62 74 25 3d a4 6d 6f 75  |z%..."  bt%=.mou|
00000b80  73 65 5f 63 6c 69 63 6b  5f 62 75 74 74 6f 6e 28  |se_click_button(|
00000b90  31 2c 33 29 0d 05 0a 37  20 20 e7 20 a6 2d 32 3d  |1,3)...7  . .-2=|
00000ba0  30 20 78 25 3d 28 78 25  2b 33 32 29 20 81 20 36  |0 x%=(x%+32) . 6|
00000bb0  34 20 2a 20 36 34 3a 79  25 3d 28 79 25 2b 33 32  |4 * 64:y%=(y%+32|
00000bc0  29 20 81 20 36 34 20 2a  20 36 34 0d 05 14 35 20  |) . 64 * 64...5 |
00000bd0  20 e7 20 a6 2d 32 20 78  25 3d 28 78 25 2b 31 36  | . .-2 x%=(x%+16|
00000be0  29 20 81 20 33 32 20 2a  20 33 32 3a 79 25 3d 28  |) . 32 * 32:y%=(|
00000bf0  79 25 2b 31 36 29 20 81  20 33 32 20 2a 20 33 32  |y%+16) . 32 * 32|
00000c00  0d 05 1e 31 20 20 e6 33  2c 31 31 3a 86 20 6f 78  |...1  .3,11:. ox|
00000c10  25 2c 6f 79 25 2c 78 25  2c 79 25 3a c8 96 3a c8  |%,oy%,x%,y%:..:.|
00000c20  96 3a 86 20 6f 78 25 2c  6f 79 25 2c 78 25 2c 79  |.:. ox%,oy%,x%,y|
00000c30  25 0d 05 28 25 20 20 e7  20 a6 2d 35 38 20 80 20  |%..(%  . .-58 . |
00000c40  77 79 25 3c 39 30 30 20  77 79 25 2b 3d 32 35 3a  |wy%<900 wy%+=25:|
00000c50  7a 25 3d 39 39 39 0d 05  32 23 20 20 e7 20 a6 2d  |z%=999..2#  . .-|
00000c60  34 32 20 80 20 77 79 25  3e 30 20 77 79 25 2d 3d  |42 . wy%>0 wy%-=|
00000c70  32 35 3a 7a 25 3d 39 39  39 0d 05 3c 27 20 20 e7  |25:z%=999..<'  .|
00000c80  20 a6 2d 31 32 32 20 80  20 77 78 25 3c 31 31 30  | .-122 . wx%<110|
00000c90  30 20 77 78 25 2b 3d 32  35 3a 7a 25 3d 39 39 39  |0 wx%+=25:z%=999|
00000ca0  0d 05 46 23 20 20 e7 20  a6 2d 32 36 20 80 20 77  |..F#  . .-26 . w|
00000cb0  78 25 3e 30 20 77 78 25  2d 3d 32 35 3a 7a 25 3d  |x%>0 wx%-=25:z%=|
00000cc0  39 39 39 0d 05 50 19 20  20 e7 20 a6 2d 39 39 20  |999..P.  . .-99 |
00000cd0  c8 97 20 b8 20 36 34 30  2c 35 31 32 0d 05 5a 0b  |.. . 640,512..Z.|
00000ce0  20 fd 20 7a 25 3e 30 0d  05 64 0f 20 e7 20 62 74  | . z%>0..d. . bt|
00000cf0  25 3d 2d 31 20 8c 0d 05  6e 0e 20 20 e7 20 7a 25  |%=-1 ...n.  . z%|
00000d00  3d 34 20 8c 0d 05 78 0c  20 20 20 69 25 2b 3d 31  |=4 ...x.   i%+=1|
00000d10  0d 05 82 2a 20 20 20 69  6d 61 67 65 25 28 69 25  |...*   image%(i%|
00000d20  2c 30 29 3d 31 3a e7 20  a6 2d 31 20 69 6d 61 67  |,0)=1:. .-1 imag|
00000d30  65 25 28 69 25 2c 30 29  3d 33 0d 05 8c 16 20 20  |e%(i%,0)=3....  |
00000d40  20 69 6d 61 67 65 25 28  69 25 2c 31 29 3d 78 25  | image%(i%,1)=x%|
00000d50  0d 05 96 16 20 20 20 69  6d 61 67 65 25 28 69 25  |....   image%(i%|
00000d60  2c 32 29 3d 79 25 0d 05  a0 1c 20 20 20 e6 30 2c  |,2)=y%....   .0,|
00000d70  31 35 3a 86 20 6f 78 25  2c 6f 79 25 2c 78 25 2c  |15:. ox%,oy%,x%,|
00000d80  79 25 0d 05 aa 14 20 20  20 6f 78 25 3d 78 25 3a  |y%....   ox%=x%:|
00000d90  6f 79 25 3d 79 25 0d 05  b4 19 20 20 20 f5 3a c8  |oy%=y%....   .:.|
00000da0  97 78 25 2c 79 25 2c 7a  25 3a fd 7a 25 3d 30 0d  |.x%,y%,z%:.z%=0.|
00000db0  05 be 07 20 20 cd 0d 05  c8 0e 20 20 e7 20 7a 25  |...  .....  . z%|
00000dc0  3d 32 20 8c 0d 05 d2 0c  20 20 20 69 25 2b 3d 31  |=2 .....   i%+=1|
00000dd0  0d 05 dc 15 20 20 20 69  6d 61 67 65 25 28 69 25  |....   image%(i%|
00000de0  2c 30 29 3d 32 0d 05 e6  16 20 20 20 69 6d 61 67  |,0)=2....   imag|
00000df0  65 25 28 69 25 2c 31 29  3d 78 25 0d 05 f0 16 20  |e%(i%,1)=x%.... |
00000e00  20 20 69 6d 61 67 65 25  28 69 25 2c 32 29 3d 79  |  image%(i%,2)=y|
00000e10  25 0d 05 fa 14 20 20 20  6f 78 25 3d 78 25 3a 6f  |%....   ox%=x%:o|
00000e20  79 25 3d 79 25 0d 06 04  19 20 20 20 f5 3a c8 97  |y%=y%....   .:..|
00000e30  78 25 2c 79 25 2c 7a 25  3a fd 7a 25 3d 30 0d 06  |x%,y%,z%:.z%=0..|
00000e40  0e 07 20 20 cd 0d 06 18  15 20 20 e7 20 7a 25 3d  |..  .....  . z%=|
00000e50  31 20 80 20 69 25 3e 30  20 8c 0d 06 22 0c 20 20  |1 . i%>0 ...".  |
00000e60  20 69 25 2d 3d 31 0d 06  2c 17 20 20 20 6f 78 25  | i%-=1..,.   ox%|
00000e70  3d 69 6d 61 67 65 25 28  69 25 2c 31 29 0d 06 36  |=image%(i%,1)..6|
00000e80  17 20 20 20 6f 79 25 3d  69 6d 61 67 65 25 28 69  |.   oy%=image%(i|
00000e90  25 2c 32 29 0d 06 40 19  20 20 20 f5 3a c8 97 78  |%,2)..@.   .:..x|
00000ea0  25 2c 79 25 2c 7a 25 3a  fd 7a 25 3d 30 0d 06 4a  |%,y%,z%:.z%=0..J|
00000eb0  07 20 20 cd 0d 06 54 06  20 cd 0d 06 5e 1d 20 e7  |.  ...T. ...^. .|
00000ec0  20 62 74 25 3d 32 20 69  25 3d 30 3a 6f 78 25 3d  | bt%=2 i%=0:ox%=|
00000ed0  30 3a 6f 79 25 3d 30 0d  06 68 15 20 e7 20 62 74  |0:oy%=0..h. . bt|
00000ee0  25 3d 33 20 80 20 69 25  3e 30 20 8c 0d 06 72 0b  |%=3 . i%>0 ...r.|
00000ef0  20 20 69 25 2d 3d 31 0d  06 7c 16 20 20 6f 78 25  |  i%-=1..|.  ox%|
00000f00  3d 69 6d 61 67 65 25 28  69 25 2c 31 29 0d 06 86  |=image%(i%,1)...|
00000f10  16 20 20 6f 79 25 3d 69  6d 61 67 65 25 28 69 25  |.  oy%=image%(i%|
00000f20  2c 32 29 0d 06 90 18 20  20 f5 3a c8 97 78 25 2c  |,2)....  .:..x%,|
00000f30  79 25 2c 7a 25 3a fd 7a  25 3d 30 0d 06 9a 06 20  |y%,z%:.z%=0.... |
00000f40  cd 0d 06 a4 0b fd 20 62  74 25 3d 31 0d 06 ae 05  |...... bt%=1....|
00000f50  3a 0d 06 b8 16 69 69 25  3d 31 3a e7 20 69 25 3d  |:....ii%=1:. i%=|
00000f60  30 20 69 69 25 3d 30 0d  06 c2 24 f2 63 6f 6e 76  |0 ii%=0...$.conv|
00000f70  65 72 74 5f 63 6f 6f 72  64 69 6e 61 74 65 73 5f  |ert_coordinates_|
00000f80  74 6f 5f 62 65 61 72 69  6e 67 73 0d 06 cc 05 e1  |to_bearings.....|
00000f90  0d 06 d6 04 0d 06 e0 18  dd f2 64 72 61 77 5f 69  |..........draw_i|
00000fa0  6e 69 74 69 61 6c 5f 69  6d 61 67 65 0d 06 ea 08  |nitial_image....|
00000fb0  ea 20 6e 25 0d 06 f4 05  3a 0d 06 fe 0c e7 20 69  |. n%....:..... i|
00000fc0  25 3d 30 20 e1 0d 07 08  05 3a 0d 07 12 09 e6 30  |%=0 .....:.....0|
00000fd0  2c 31 35 0d 07 1c 09 ec  20 30 2c 30 0d 07 26 0f  |,15..... 0,0..&.|
00000fe0  e3 20 6e 25 3d 31 20 b8  20 69 25 0d 07 30 31 20  |. n%=1 . i%..01 |
00000ff0  e7 20 69 6d 61 67 65 25  28 6e 25 2c 30 29 3d 31  |. image%(n%,0)=1|
00001000  20 df 20 69 6d 61 67 65  25 28 6e 25 2c 31 29 2c  | . image%(n%,1),|
00001010  69 6d 61 67 65 25 28 6e  25 2c 32 29 0d 07 3a 31  |image%(n%,2)..:1|
00001020  20 e7 20 69 6d 61 67 65  25 28 6e 25 2c 30 29 3d  | . image%(n%,0)=|
00001030  32 20 ec 20 69 6d 61 67  65 25 28 6e 25 2c 31 29  |2 . image%(n%,1)|
00001040  2c 69 6d 61 67 65 25 28  6e 25 2c 32 29 0d 07 44  |,image%(n%,2)..D|
00001050  33 20 e7 20 69 6d 61 67  65 25 28 6e 25 2c 30 29  |3 . image%(n%,0)|
00001060  3d 33 20 f0 38 35 2c 69  6d 61 67 65 25 28 6e 25  |=3 .85,image%(n%|
00001070  2c 31 29 2c 69 6d 61 67  65 25 28 6e 25 2c 32 29  |,1),image%(n%,2)|
00001080  0d 07 4e 05 ed 0d 07 58  05 e1 0d 07 62 04 0d 07  |..N....X....b...|
00001090  6c 20 dd f2 62 6c 75 65  5f 70 72 69 6e 74 5f 77  |l ..blue_print_w|
000010a0  69 6e 64 6f 77 28 77 78  25 2c 77 79 25 29 0d 07  |indow(wx%,wy%)..|
000010b0  76 35 f2 6d 61 6b 65 5f  62 75 74 74 6f 6e 28 33  |v5.make_button(3|
000010c0  2c 77 78 25 2c 77 79 25  2b 33 35 30 2c 33 30 30  |,wx%,wy%+350,300|
000010d0  2c 22 49 6e 63 72 65 61  73 65 20 53 69 7a 65 22  |,"Increase Size"|
000010e0  2c 30 29 0d 07 80 35 f2  6d 61 6b 65 5f 62 75 74  |,0)...5.make_but|
000010f0  74 6f 6e 28 34 2c 77 78  25 2c 77 79 25 2b 33 30  |ton(4,wx%,wy%+30|
00001100  30 2c 33 30 30 2c 22 44  65 63 72 65 61 73 65 20  |0,300,"Decrease |
00001110  53 69 7a 65 22 2c 30 29  0d 07 8a 36 f2 6d 61 6b  |Size",0)...6.mak|
00001120  65 5f 62 75 74 74 6f 6e  28 35 2c 77 78 25 2c 77  |e_button(5,wx%,w|
00001130  79 25 2b 32 35 30 2c 33  30 30 2c 22 49 6e 63 72  |y%+250,300,"Incr|
00001140  65 61 73 65 20 57 69 64  74 68 22 2c 31 29 0d 07  |ease Width",1)..|
00001150  94 36 f2 6d 61 6b 65 5f  62 75 74 74 6f 6e 28 36  |.6.make_button(6|
00001160  2c 77 78 25 2c 77 79 25  2b 32 30 30 2c 33 30 30  |,wx%,wy%+200,300|
00001170  2c 22 44 65 63 72 65 61  73 65 20 57 69 64 74 68  |,"Decrease Width|
00001180  22 2c 31 29 0d 07 9e 37  f2 70 6c 6f 74 5f 62 75  |",1)...7.plot_bu|
00001190  74 74 6f 6e 28 30 2c 77  78 25 2c 77 79 25 2b 31  |tton(0,wx%,wy%+1|
000011a0  35 30 2c 33 30 30 2c 22  49 6d 61 67 65 73 20 3a  |50,300,"Images :|
000011b0  20 22 2b c3 28 6d 25 29  2c 30 29 0d 07 a8 32 f2  | "+.(m%),0)...2.|
000011c0  6d 61 6b 65 5f 62 75 74  74 6f 6e 28 37 2c 77 78  |make_button(7,wx|
000011d0  25 2c 77 79 25 2b 31 30  30 2c 32 30 30 2c 22 43  |%,wy%+100,200,"C|
000011e0  6c 65 61 72 20 4c 61 73  74 22 2c 30 29 0d 07 b2  |lear Last",0)...|
000011f0  30 f2 6d 61 6b 65 5f 62  75 74 74 6f 6e 28 32 2c  |0.make_button(2,|
00001200  77 78 25 2c 77 79 25 2b  35 30 2c 32 30 30 2c 22  |wx%,wy%+50,200,"|
00001210  43 6c 65 61 72 20 41 6c  6c 22 2c 30 29 0d 07 bc  |Clear All",0)...|
00001220  28 f2 6d 61 6b 65 5f 62  75 74 74 6f 6e 28 31 2c  |(.make_button(1,|
00001230  77 78 25 2c 77 79 25 2c  31 30 30 2c 22 44 6f 6e  |wx%,wy%,100,"Don|
00001240  65 22 2c 30 29 0d 07 c6  05 e1 0d 07 d0 04 0d 07  |e",0)...........|
00001250  da 15 dd f2 65 64 69 74  5f 62 6c 75 65 5f 70 72  |....edit_blue_pr|
00001260  69 6e 74 0d 07 e4 25 ea  20 61 6e 67 25 2c 73 69  |int...%. ang%,si|
00001270  7a 65 25 2c 78 25 2c 79  25 2c 7a 25 2c 62 74 25  |ze%,x%,y%,z%,bt%|
00001280  2c 77 78 25 2c 77 79 25  0d 07 ee 05 3a 0d 07 f8  |,wx%,wy%....:...|
00001290  11 77 78 25 3d 30 3a 77  79 25 3d 36 32 34 0d 08  |.wx%=0:wy%=624..|
000012a0  02 1e 61 6e 67 25 3d 30  3a 78 73 69 7a 65 25 3d  |..ang%=0:xsize%=|
000012b0  32 30 3a 79 73 69 7a 65  25 3d 32 30 0d 08 0c 05  |20:ysize%=20....|
000012c0  3a 0d 08 16 0c c8 97 20  88 20 32 2c 32 0d 08 20  |:...... . 2,2.. |
000012d0  05 f5 0d 08 2a 06 20 db  0d 08 34 0f 20 f2 70 6c  |....*. ...4. .pl|
000012e0  6f 74 5f 67 72 69 64 0d  08 3e 18 20 f2 64 72 61  |ot_grid..>. .dra|
000012f0  77 5f 69 6e 69 74 69 61  6c 5f 69 6d 61 67 65 0d  |w_initial_image.|
00001300  08 48 15 20 f2 64 72 61  77 5f 62 6c 75 65 5f 70  |.H. .draw_blue_p|
00001310  72 69 6e 74 0d 08 52 20  20 f2 62 6c 75 65 5f 70  |rint..R  .blue_p|
00001320  72 69 6e 74 5f 77 69 6e  64 6f 77 28 77 78 25 2c  |rint_window(wx%,|
00001330  77 79 25 29 0d 08 5c 06  20 f5 0d 08 66 11 20 20  |wy%)..\. ...f.  |
00001340  c8 97 20 78 25 2c 79 25  2c 7a 25 0d 08 70 35 20  |.. x%,y%,z%..p5 |
00001350  20 e7 20 a6 2d 32 20 78  25 3d 28 78 25 2b 31 36  | . .-2 x%=(x%+16|
00001360  29 20 81 20 33 32 20 2a  20 33 32 3a 79 25 3d 28  |) . 32 * 32:y%=(|
00001370  79 25 2b 31 36 29 20 81  20 33 32 20 2a 20 33 32  |y%+16) . 32 * 32|
00001380  0d 08 7a 39 20 20 e6 33  2c 31 31 3a f2 70 6c 6f  |..z9  .3,11:.plo|
00001390  74 5f 69 6d 61 67 65 28  78 25 2c 79 25 2c 61 6e  |t_image(x%,y%,an|
000013a0  67 25 2c 78 73 69 7a 65  25 2f 31 30 30 2c 79 73  |g%,xsize%/100,ys|
000013b0  69 7a 65 25 2f 31 30 30  29 0d 08 84 22 20 20 62  |ize%/100)..."  b|
000013c0  74 25 3d a4 6d 6f 75 73  65 5f 63 6c 69 63 6b 5f  |t%=.mouse_click_|
000013d0  62 75 74 74 6f 6e 28 31  2c 37 29 0d 08 8e 39 20  |button(1,7)...9 |
000013e0  20 c8 96 3a c8 96 3a f2  70 6c 6f 74 5f 69 6d 61  | ..:..:.plot_ima|
000013f0  67 65 28 78 25 2c 79 25  2c 61 6e 67 25 2c 78 73  |ge(x%,y%,ang%,xs|
00001400  69 7a 65 25 2f 31 30 30  2c 79 73 69 7a 65 25 2f  |ize%/100,ysize%/|
00001410  31 30 30 29 0d 08 98 0d  20 20 e7 20 a6 2d 32 20  |100)....  . .-2 |
00001420  8c 0d 08 a2 29 20 20 20  e7 20 7a 25 3d 32 20 61  |....)   . z%=2 a|
00001430  6e 67 25 2d 3d 39 30 3a  e7 20 61 6e 67 25 3c 30  |ng%-=90:. ang%<0|
00001440  20 61 6e 67 25 2b 3d 33  36 30 0d 08 ac 2b 20 20  | ang%+=360...+  |
00001450  20 e7 20 7a 25 3d 31 20  61 6e 67 25 2b 3d 39 30  | . z%=1 ang%+=90|
00001460  3a e7 20 61 6e 67 25 3e  33 36 30 20 61 6e 67 25  |:. ang%>360 ang%|
00001470  2d 3d 33 36 30 0d 08 b6  07 20 20 cc 0d 08 c0 28  |-=360....  ....(|
00001480  20 20 20 e7 20 7a 25 3d  32 20 61 6e 67 25 2d 3d  |   . z%=2 ang%-=|
00001490  31 3a e7 20 61 6e 67 25  3c 30 20 61 6e 67 25 2b  |1:. ang%<0 ang%+|
000014a0  3d 33 36 30 0d 08 ca 2a  20 20 20 e7 20 7a 25 3d  |=360...*   . z%=|
000014b0  31 20 61 6e 67 25 2b 3d  31 3a e7 20 61 6e 67 25  |1 ang%+=1:. ang%|
000014c0  3e 33 36 30 20 61 6e 67  25 2d 3d 33 36 30 0d 08  |>360 ang%-=360..|
000014d0  d4 07 20 20 cd 0d 08 de  33 20 20 e7 20 62 74 25  |..  ....3  . bt%|
000014e0  3d 33 20 80 20 79 73 69  7a 65 25 3c 31 30 30 20  |=3 . ysize%<100 |
000014f0  78 73 69 7a 65 25 2b 3d  31 3a 79 73 69 7a 65 25  |xsize%+=1:ysize%|
00001500  2b 3d 31 3a 7a 25 3d 30  0d 08 e8 31 20 20 e7 20  |+=1:z%=0...1  . |
00001510  62 74 25 3d 34 20 80 20  79 73 69 7a 65 25 3e 31  |bt%=4 . ysize%>1|
00001520  20 78 73 69 7a 65 25 2d  3d 31 3a 79 73 69 7a 65  | xsize%-=1:ysize|
00001530  25 2d 3d 31 3a 7a 25 3d  30 0d 08 f2 2d f4 20 20  |%-=1:z%=0...-.  |
00001540  49 46 20 62 74 25 3d 35  20 41 4e 44 20 78 73 69  |IF bt%=5 AND xsi|
00001550  7a 65 25 3c 31 30 30 20  78 73 69 7a 65 25 2b 3d  |ze%<100 xsize%+=|
00001560  31 3a 7a 25 3d 30 0d 08  fc 2b f4 20 20 49 46 20  |1:z%=0...+.  IF |
00001570  62 74 25 3d 36 20 41 4e  44 20 78 73 69 7a 65 25  |bt%=6 AND xsize%|
00001580  3e 31 20 78 73 69 7a 65  25 2d 3d 31 3a 7a 25 3d  |>1 xsize%-=1:z%=|
00001590  30 0d 09 06 25 20 20 e7  20 a6 2d 35 38 20 80 20  |0...%  . .-58 . |
000015a0  77 79 25 3c 39 30 30 20  77 79 25 2b 3d 32 35 3a  |wy%<900 wy%+=25:|
000015b0  7a 25 3d 39 39 39 0d 09  10 23 20 20 e7 20 a6 2d  |z%=999...#  . .-|
000015c0  34 32 20 80 20 77 79 25  3e 30 20 77 79 25 2d 3d  |42 . wy%>0 wy%-=|
000015d0  32 35 3a 7a 25 3d 39 39  39 0d 09 1a 27 20 20 e7  |25:z%=999...'  .|
000015e0  20 a6 2d 31 32 32 20 80  20 77 78 25 3c 31 31 30  | .-122 . wx%<110|
000015f0  30 20 77 78 25 2b 3d 32  35 3a 7a 25 3d 39 39 39  |0 wx%+=25:z%=999|
00001600  0d 09 24 23 20 20 e7 20  a6 2d 32 36 20 80 20 77  |..$#  . .-26 . w|
00001610  78 25 3e 30 20 77 78 25  2d 3d 32 35 3a 7a 25 3d  |x%>0 wx%-=25:z%=|
00001620  39 39 39 0d 09 2e 19 20  20 e7 20 a6 2d 39 39 20  |999....  . .-99 |
00001630  c8 97 20 b8 20 36 34 30  2c 35 31 32 0d 09 38 14  |.. . 640,512..8.|
00001640  20 fd 20 7a 25 3d 34 20  84 20 7a 25 3d 39 39 39  | . z%=4 . z%=999|
00001650  0d 09 42 16 20 e7 20 62  74 25 3d 2d 31 20 80 20  |..B. . bt%=-1 . |
00001660  7a 25 3d 34 20 8c 0d 09  4c 0b 20 20 6d 25 2b 3d  |z%=4 ...L.  m%+=|
00001670  31 0d 09 56 15 20 20 6d  61 70 25 28 6d 25 2c 30  |1..V.  map%(m%,0|
00001680  29 3d 61 6e 67 25 0d 09  60 17 20 20 6d 61 70 25  |)=ang%..`.  map%|
00001690  28 6d 25 2c 31 29 3d 78  73 69 7a 65 25 0d 09 6a  |(m%,1)=xsize%..j|
000016a0  17 20 20 6d 61 70 25 28  6d 25 2c 32 29 3d 79 73  |.  map%(m%,2)=ys|
000016b0  69 7a 65 25 0d 09 74 13  20 20 6d 61 70 25 28 6d  |ize%..t.  map%(m|
000016c0  25 2c 33 29 3d 78 25 0d  09 7e 13 20 20 6d 61 70  |%,3)=x%..~.  map|
000016d0  25 28 6d 25 2c 34 29 3d  79 25 0d 09 88 18 20 20  |%(m%,4)=y%....  |
000016e0  f5 3a c8 97 78 25 2c 79  25 2c 7a 25 3a fd 7a 25  |.:..x%,y%,z%:.z%|
000016f0  3d 30 0d 09 92 06 20 cc  0d 09 9c 12 20 20 e7 20  |=0.... .....  . |
00001700  62 74 25 3d 32 20 6d 25  3d 30 0d 09 a6 16 20 20  |bt%=2 m%=0....  |
00001710  e7 20 62 74 25 3d 37 20  80 20 6d 25 3e 30 20 8c  |. bt%=7 . m%>0 .|
00001720  0d 09 b0 16 20 20 20 61  6e 67 25 3d 6d 61 70 25  |....   ang%=map%|
00001730  28 6d 25 2c 30 29 0d 09  ba 18 20 20 20 78 73 69  |(m%,0)....   xsi|
00001740  7a 65 25 3d 6d 61 70 25  28 6d 25 2c 31 29 0d 09  |ze%=map%(m%,1)..|
00001750  c4 18 20 20 20 79 73 69  7a 65 25 3d 6d 61 70 25  |..   ysize%=map%|
00001760  28 6d 25 2c 32 29 0d 09  ce 14 20 20 20 78 25 3d  |(m%,2)....   x%=|
00001770  6d 61 70 25 28 6d 25 2c  33 29 0d 09 d8 14 20 20  |map%(m%,3)....  |
00001780  20 79 25 3d 6d 61 70 25  28 6d 25 2c 34 29 0d 09  | y%=map%(m%,4)..|
00001790  e2 0c 20 20 20 6d 25 2d  3d 31 0d 09 ec 07 20 20  |..   m%-=1....  |
000017a0  cd 0d 09 f6 06 20 cd 0d  0a 00 0b fd 20 62 74 25  |..... ...... bt%|
000017b0  3d 31 0d 0a 0a 05 3a 0d  0a 14 0c c8 97 20 88 20  |=1....:...... . |
000017c0  34 2c 34 0d 0a 1e 16 62  70 25 3d 31 3a e7 20 6d  |4,4....bp%=1:. m|
000017d0  25 3d 30 20 62 70 25 3d  30 0d 0a 28 05 e1 0d 0a  |%=0 bp%=0..(....|
000017e0  32 04 0d 0a 3c 15 dd f2  64 72 61 77 5f 62 6c 75  |2...<...draw_blu|
000017f0  65 5f 70 72 69 6e 74 0d  0a 46 08 ea 20 6e 25 0d  |e_print..F.. n%.|
00001800  0a 50 05 3a 0d 0a 5a 0c  e7 20 6d 25 3d 30 20 e1  |.P.:..Z.. m%=0 .|
00001810  0d 0a 64 05 3a 0d 0a 6e  0f e3 20 6e 25 3d 31 20  |..d.:..n.. n%=1 |
00001820  b8 20 6d 25 0d 0a 78 50  20 f2 70 6c 6f 74 5f 69  |. m%..xP .plot_i|
00001830  6d 61 67 65 28 6d 61 70  25 28 6e 25 2c 33 29 2c  |mage(map%(n%,3),|
00001840  6d 61 70 25 28 6e 25 2c  34 29 2c 6d 61 70 25 28  |map%(n%,4),map%(|
00001850  6e 25 2c 30 29 2c 6d 61  70 25 28 6e 25 2c 31 29  |n%,0),map%(n%,1)|
00001860  2f 31 30 30 2c 6d 61 70  25 28 6e 25 2c 32 29 2f  |/100,map%(n%,2)/|
00001870  31 30 30 29 0d 0a 82 05  ed 0d 0a 8c 05 e1 0d 0a  |100)............|
00001880  96 04 0d 0a a0 0f dd f2  70 6c 6f 74 5f 67 72 69  |........plot_gri|
00001890  64 0d 0a aa 0b ea 20 78  25 2c 79 25 0d 0a b4 05  |d..... x%,y%....|
000018a0  3a 0d 0a be 44 e6 30 2c  33 3a e3 79 25 3d 30 b8  |:...D.0,3:.y%=0.|
000018b0  31 30 32 34 88 36 34 3a  86 30 2c 79 25 2c 31 32  |1024.64:.0,y%,12|
000018c0  38 30 2c 79 25 3a ed 3a  e3 78 25 3d 30 b8 31 32  |80,y%:.:.x%=0.12|
000018d0  38 30 88 36 34 3a 86 78  25 2c 30 2c 78 25 2c 31  |80.64:.x%,0,x%,1|
000018e0  30 32 34 3a ed 0d 0a c8  46 e6 30 2c 35 3a e3 79  |024:....F.0,5:.y|
000018f0  25 3d 30 b8 31 30 32 34  88 31 32 38 3a 86 30 2c  |%=0.1024.128:.0,|
00001900  79 25 2c 31 32 38 30 2c  79 25 3a ed 3a e3 78 25  |y%,1280,y%:.:.x%|
00001910  3d 30 b8 31 32 38 30 88  31 32 38 3a 86 78 25 2c  |=0.1280.128:.x%,|
00001920  30 2c 78 25 2c 31 30 32  34 3a ed 0d 0a d2 29 e6  |0,x%,1024:....).|
00001930  30 2c 31 31 3a 86 30 2c  35 31 32 2c 31 32 38 30  |0,11:.0,512,1280|
00001940  2c 35 31 32 3a 86 36 34  30 2c 30 2c 36 34 30 2c  |,512:.640,0,640,|
00001950  31 30 32 34 0d 0a dc 05  e1 0d 0a e6 04 0d 0a f0  |1024............|
00001960  25 dd f2 63 6f 6e 76 65  72 74 5f 63 6f 6f 72 64  |%..convert_coord|
00001970  69 6e 61 74 65 73 5f 74  6f 5f 62 65 61 72 69 6e  |inates_to_bearin|
00001980  67 73 0d 0a fa 24 ea 20  78 2c 79 2c 6e 25 2c 6e  |gs...$. x,y,n%,n|
00001990  78 2c 6e 79 2c 78 6c 65  6e 2c 6c 65 6e 2c 79 6c  |x,ny,xlen,len,yl|
000019a0  65 6e 2c 61 6e 67 0d 0b  04 05 3a 0d 0b 0e 0b 78  |en,ang....:....x|
000019b0  3d 30 3a 79 3d 30 0d 0b  18 0f e3 20 6e 25 3d 31  |=0:y=0..... n%=1|
000019c0  20 b8 20 69 25 0d 0b 22  24 20 6e 78 3d 69 6d 61  | . i%.."$ nx=ima|
000019d0  67 65 25 28 6e 25 2c 31  29 3a 6e 79 3d 69 6d 61  |ge%(n%,1):ny=ima|
000019e0  67 65 25 28 6e 25 2c 32  29 0d 0b 2c 06 20 3a 0d  |ge%(n%,2)..,. :.|
000019f0  0b 36 13 20 e7 20 6e 78  3d 78 20 6e 78 2b 3d 30  |.6. . nx=x nx+=0|
00001a00  2e 31 0d 0b 40 13 20 e7  20 6e 79 3d 79 20 6e 79  |.1..@. . ny=y ny|
00001a10  2b 3d 30 2e 31 0d 0b 4a  18 20 78 6c 65 6e 3d 6e  |+=0.1..J. xlen=n|
00001a20  78 2d 78 3a 79 6c 65 6e  3d 6e 79 2d 79 0d 0b 54  |x-x:ylen=ny-y..T|
00001a30  1f 20 6c 65 6e 3d b6 28  78 6c 65 6e 2a 78 6c 65  |. len=.(xlen*xle|
00001a40  6e 2b 79 6c 65 6e 2a 79  6c 65 6e 29 0d 0b 5e 28  |n+ylen*ylen)..^(|
00001a50  20 61 6e 67 3d a4 63 61  6c 63 75 6c 61 74 65 5f  | ang=.calculate_|
00001a60  61 6e 67 6c 65 28 30 2c  30 2c 78 6c 65 6e 2c 79  |angle(0,0,xlen,y|
00001a70  6c 65 6e 29 0d 0b 68 06  20 3a 0d 0b 72 19 20 69  |len)..h. :..r. i|
00001a80  28 6e 25 2c 30 29 3d 69  6d 61 67 65 25 28 6e 25  |(n%,0)=image%(n%|
00001a90  2c 30 29 0d 0b 7c 1c 20  69 28 6e 25 2c 31 29 3d  |,0)..|. i(n%,1)=|
00001aa0  61 6e 67 3a 69 28 6e 25  2c 32 29 3d 6c 65 6e 0d  |ang:i(n%,2)=len.|
00001ab0  0b 86 06 20 3a 0d 0b 90  0e 20 78 3d 6e 78 3a 79  |... :.... x=nx:y|
00001ac0  3d 6e 79 0d 0b 9a 05 ed  0d 0b a4 05 e1 0d 0b ae  |=ny.............|
00001ad0  04 0d 0b b8 22 dd a4 63  61 6c 63 75 6c 61 74 65  |...."..calculate|
00001ae0  5f 61 6e 67 6c 65 28 78  31 2c 79 31 2c 78 32 2c  |_angle(x1,y1,x2,|
00001af0  79 32 29 0d 0b c2 13 ea  20 78 6c 65 6e 2c 79 6c  |y2)..... xlen,yl|
00001b00  65 6e 2c 61 6e 67 0d 0b  cc 05 3a 0d 0b d6 2a 78  |en,ang....:...*x|
00001b10  6c 65 6e 3d 78 32 2d 78  31 3a e7 20 78 6c 65 6e  |len=x2-x1:. xlen|
00001b20  3d 30 20 78 6c 65 6e 3d  30 2e 30 30 30 30 30 30  |=0 xlen=0.000000|
00001b30  30 30 30 30 31 0d 0b e0  0e 79 6c 65 6e 3d 79 32  |00001....ylen=y2|
00001b40  2d 79 31 0d 0b ea 17 61  6e 67 3d 9d 28 99 28 79  |-y1....ang=.(.(y|
00001b50  6c 65 6e 2f 78 6c 65 6e  29 29 0d 0b f4 26 e7 20  |len/xlen))...&. |
00001b60  61 6e 67 3c 30 20 61 6e  67 3d 94 28 61 6e 67 29  |ang<0 ang=.(ang)|
00001b70  2b 39 30 20 8b 20 61 6e  67 3d 39 30 2d 61 6e 67  |+90 . ang=90-ang|
00001b80  0d 0b fe 15 e7 20 78 6c  65 6e 3c 30 20 61 6e 67  |..... xlen<0 ang|
00001b90  2d 3d 31 38 30 0d 0c 08  08 3d 61 6e 67 0d 0c 12  |-=180....=ang...|
00001ba0  04 0d 0c 1c 24 dd f2 70  6c 6f 74 5f 69 6d 61 67  |....$..plot_imag|
00001bb0  65 28 78 25 2c 79 25 2c  61 6e 67 25 2c 78 6d 66  |e(x%,y%,ang%,xmf|
00001bc0  2c 79 6d 66 29 0d 0c 26  0e ea 20 6e 25 2c 78 2c  |,ymf)..&.. n%,x,|
00001bd0  79 2c 61 0d 0c 30 05 3a  0d 0c 3a 0d 78 3d 78 25  |y,a..0.:..:.x=x%|
00001be0  3a 79 3d 79 25 0d 0c 44  0f e3 20 6e 25 3d 31 20  |:y=y%..D.. n%=1 |
00001bf0  b8 20 69 25 0d 0c 4e 16  20 61 3d b2 28 69 28 6e  |. i%..N. a=.(i(n|
00001c00  25 2c 31 29 2b 61 6e 67  25 29 0d 0c 58 18 20 78  |%,1)+ang%)..X. x|
00001c10  2b 3d b5 28 61 29 2a 69  28 6e 25 2c 32 29 2a 78  |+=.(a)*i(n%,2)*x|
00001c20  6d 66 0d 0c 62 18 20 79  2b 3d 9b 28 61 29 2a 69  |mf..b. y+=.(a)*i|
00001c30  28 6e 25 2c 32 29 2a 79  6d 66 0d 0c 6c 16 20 e7  |(n%,2)*ymf..l. .|
00001c40  20 69 28 6e 25 2c 30 29  3d 31 20 df 20 78 2c 79  | i(n%,0)=1 . x,y|
00001c50  0d 0c 76 16 20 e7 20 69  28 6e 25 2c 30 29 3d 32  |..v. . i(n%,0)=2|
00001c60  20 ec 20 78 2c 79 0d 0c  80 18 20 e7 20 69 28 6e  | . x,y.... . i(n|
00001c70  25 2c 30 29 3d 33 20 f0  38 35 2c 78 2c 79 0d 0c  |%,0)=3 .85,x,y..|
00001c80  8a 05 ed 0d 0c 94 05 e1  0d 0c 9e 04 0d 0c a8 28  |...............(|
00001c90  dd f2 70 6c 6f 74 5f 69  6d 61 67 65 5f 64 6f 74  |..plot_image_dot|
00001ca0  28 78 25 2c 79 25 2c 61  6e 67 25 2c 78 6d 66 2c  |(x%,y%,ang%,xmf,|
00001cb0  79 6d 66 29 0d 0c b2 0e  ea 20 6e 25 2c 78 2c 79  |ymf)..... n%,x,y|
00001cc0  2c 61 0d 0c bc 05 3a 0d  0c c6 0d 78 3d 78 25 3a  |,a....:....x=x%:|
00001cd0  79 3d 79 25 0d 0c d0 0f  e3 20 6e 25 3d 31 20 b8  |y=y%..... n%=1 .|
00001ce0  20 69 25 0d 0c da 16 20  61 3d b2 28 69 28 6e 25  | i%.... a=.(i(n%|
00001cf0  2c 31 29 2b 61 6e 67 25  29 0d 0c e4 18 20 78 2b  |,1)+ang%).... x+|
00001d00  3d b5 28 61 29 2a 69 28  6e 25 2c 32 29 2a 78 6d  |=.(a)*i(n%,2)*xm|
00001d10  66 0d 0c ee 18 20 79 2b  3d 9b 28 61 29 2a 69 28  |f.... y+=.(a)*i(|
00001d20  6e 25 2c 32 29 2a 79 6d  66 0d 0c f8 16 20 e7 20  |n%,2)*ymf.... . |
00001d30  b0 78 2c 79 29 3d 30 20  f0 36 39 2c 78 2c 79 0d  |.x,y)=0 .69,x,y.|
00001d40  0d 02 05 ed 0d 0d 0c 05  e1 0d 0d 16 04 0d 0d 20  |............... |
00001d50  16 dd f2 73 61 76 65 5f  66 72 61 63 74 61 6c 5f  |...save_fractal_|
00001d60  73 65 74 0d 0d 2a 1a ea  20 73 76 25 2c 73 76 24  |set..*.. sv%,sv$|
00001d70  2c 41 24 2c 65 25 2c 6e  25 2c 6e 6e 25 0d 0d 34  |,A$,e%,n%,nn%..4|
00001d80  05 3a 0d 0d 3e 14 f5 3a  41 24 3d bf 28 30 29 3a  |.:..>..:A$=.(0):|
00001d90  fd 41 24 3d 22 22 0d 0d  48 09 73 76 25 3d 30 0d  |.A$=""..H.sv%=0.|
00001da0  0d 52 0a 73 76 24 3d 22  22 0d 0d 5c 05 f5 0d 0d  |.R.sv$=""..\....|
00001db0  66 31 20 f2 70 6c 6f 74  5f 62 75 74 74 6f 6e 28  |f1 .plot_button(|
00001dc0  31 2c 34 30 30 2c 34 30  30 2c 34 30 30 2c 22 53  |1,400,400,400,"S|
00001dd0  61 76 65 20 41 73 3a 22  2b 73 76 24 2c 30 29 0d  |ave As:"+sv$,0).|
00001de0  0d 70 09 20 41 24 3d be  0d 0d 7a 1e 20 e7 20 97  |.p. A$=...z. . .|
00001df0  28 41 24 29 3c 3e 38 20  80 20 97 28 41 24 29 3c  |(A$)<>8 . .(A$)<|
00001e00  3e 31 32 37 20 8c 0d 0d  84 26 20 20 e7 20 97 28  |>127 ....&  . .(|
00001e10  41 24 29 3e 33 32 20 80  20 41 24 3c 3e 22 2e 22  |A$)>32 . A$<>"."|
00001e20  20 80 20 41 24 3c 3e 22  3a 22 20 8c 0d 0d 8e 11  | . A$<>":" .....|
00001e30  20 20 20 73 76 24 3d 73  76 24 2b 41 24 0d 0d 98  |   sv$=sv$+A$...|
00001e40  13 20 20 20 73 76 24 3d  c0 73 76 24 2c 31 30 29  |.   sv$=.sv$,10)|
00001e50  0d 0d a2 07 20 20 cd 0d  0d ac 06 20 cc 0d 0d b6  |....  ..... ....|
00001e60  0f 20 20 73 76 24 3d c0  73 76 24 29 0d 0d c0 06  |.  sv$=.sv$)....|
00001e70  20 cd 0d 0d ca 0e fd 20  97 28 41 24 29 3d 31 33  | ...... .(A$)=13|
00001e80  0d 0d d4 05 3a 0d 0d de  39 c8 99 22 4f 53 5f 46  |....:...9.."OS_F|
00001e90  69 6c 65 22 2c 35 2c 22  3c 46 72 61 63 74 61 6c  |ile",5,"<Fractal|
00001ea0  57 6f 72 6b 73 24 44 69  72 3e 2e 46 72 61 63 74  |Works$Dir>.Fract|
00001eb0  61 6c 73 2e 22 2b 73 76  24 20 b8 20 65 25 0d 0d  |als."+sv$ . e%..|
00001ec0  e8 0c e7 20 65 25 3e 30  20 8c 0d 0d f2 48 20 f2  |... e%>0 ....H .|
00001ed0  70 6c 6f 74 5f 62 75 74  74 6f 6e 28 31 2c 33 30  |plot_button(1,30|
00001ee0  30 2c 33 30 30 2c 36 38  30 2c 73 76 24 2b 22 20  |0,300,680,sv$+" |
00001ef0  61 6c 72 65 61 64 79 20  65 78 69 73 74 73 2e 20  |already exists. |
00001f00  52 65 70 6c 61 63 65 3f  20 28 59 2f 4e 29 22 2c  |Replace? (Y/N)",|
00001f10  30 29 0d 0d fc 1d 20 f5  3a 41 24 3d be 3a fd 20  |0).... .:A$=.:. |
00001f20  41 24 3d 22 59 22 20 84  20 41 24 3d 22 4e 22 0d  |A$="Y" . A$="N".|
00001f30  0e 06 13 20 e7 20 41 24  3d 22 59 22 20 73 76 25  |... . A$="Y" sv%|
00001f40  3d 31 0d 0e 10 05 cc 0d  0e 1a 0a 20 73 76 25 3d  |=1......... sv%=|
00001f50  31 0d 0e 24 05 cd 0d 0e  2e 0d e7 20 73 76 25 3d  |1..$....... sv%=|
00001f60  31 20 8c 0d 0e 38 23 20  78 3d ae 28 22 3c 53 61  |1 ...8# x=.("<Sa|
00001f70  76 65 64 46 72 61 63 74  61 6c 24 44 69 72 3e 2e  |vedFractal$Dir>.|
00001f80  22 2b 73 76 24 29 0d 0e  42 0b 20 f1 23 78 2c 69  |"+sv$)..B. .#x,i|
00001f90  25 0d 0e 4c 10 20 e3 20  6e 25 3d 31 20 b8 20 69  |%..L. . n%=1 . i|
00001fa0  25 0d 0e 56 11 20 20 e3  20 6e 6e 25 3d 30 20 b8  |%..V.  . nn%=0 .|
00001fb0  20 32 0d 0e 60 19 20 20  20 f1 23 78 2c 69 6d 61  | 2..`.   .#x,ima|
00001fc0  67 65 25 28 6e 25 2c 6e  6e 25 29 0d 0e 6a 14 20  |ge%(n%,nn%)..j. |
00001fd0  20 20 f1 23 78 2c 69 28  6e 25 2c 6e 6e 25 29 0d  |  .#x,i(n%,nn%).|
00001fe0  0e 74 07 20 20 ed 0d 0e  7e 06 20 ed 0d 0e 88 0b  |.t.  ...~. .....|
00001ff0  20 f1 23 78 2c 6d 25 0d  0e 92 10 20 e3 20 6e 25  | .#x,m%.... . n%|
00002000  3d 31 20 b8 20 6d 25 0d  0e 9c 11 20 20 e3 20 6e  |=1 . m%....  . n|
00002010  6e 25 3d 30 20 b8 20 34  0d 0e a6 17 20 20 20 f1  |n%=0 . 4....   .|
00002020  23 78 2c 6d 61 70 25 28  6e 25 2c 6e 6e 25 29 0d  |#x,map%(n%,nn%).|
00002030  0e b0 07 20 20 ed 0d 0e  ba 06 20 ed 0d 0e c4 0d  |...  ..... .....|
00002040  20 f1 23 78 2c 70 61 6c  24 0d 0e ce 0e 20 f1 23  | .#x,pal$.... .#|
00002050  78 2c 70 6c 6f 74 25 0d  0e d8 0d 20 f1 23 78 2c  |x,plot%.... .#x,|
00002060  69 74 7a 25 0d 0e e2 0d  20 f1 23 78 2c 69 74 72  |itz%.... .#x,itr|
00002070  25 0d 0e ec 08 20 d9 23  78 0d 0e f6 05 cd 0d 0f  |%.... .#x.......|
00002080  00 05 e1 0d 0f 0a 04 0d  0f 14 16 dd f2 6c 6f 61  |.............loa|
00002090  64 5f 66 72 61 63 74 61  6c 5f 73 65 74 0d 0f 1e  |d_fractal_set...|
000020a0  25 ea 20 6c 64 24 2c 41  24 2c 6e 25 2c 6e 6e 25  |%. ld$,A$,n%,nn%|
000020b0  2c 62 74 25 2c 62 74 73  25 2c 78 25 2c 79 25 2c  |,bt%,bts%,x%,y%,|
000020c0  7a 25 0d 0f 28 05 3a 0d  0f 32 28 f2 70 6c 6f 74  |z%..(.:..2(.plot|
000020d0  5f 62 75 74 74 6f 6e 28  30 2c 35 30 30 2c 34 35  |_button(0,500,45|
000020e0  30 2c 32 30 30 2c 22 4c  6f 61 64 22 2c 30 29 0d  |0,200,"Load",0).|
000020f0  0f 3c 18 62 74 73 25 3d  a4 6d 61 6b 65 5f 66 69  |.<.bts%=.make_fi|
00002100  6c 65 5f 6c 69 73 74 0d  0f 46 0e e7 20 62 74 73  |le_list..F.. bts|
00002110  25 3d 30 20 e1 0d 0f 50  05 3a 0d 0f 5a 3b f5 3a  |%=0 ...P.:..Z;.:|
00002120  c8 97 20 78 25 2c 79 25  2c 7a 25 3a 62 74 25 3d  |.. x%,y%,z%:bt%=|
00002130  a4 6d 6f 75 73 65 5f 63  6c 69 63 6b 5f 62 75 74  |.mouse_click_but|
00002140  74 6f 6e 28 30 2c 62 74  73 25 29 3a fd 20 62 74  |ton(0,bts%):. bt|
00002150  25 3c 3e 2d 31 0d 0f 64  0d e7 20 62 74 25 3d 30  |%<>-1..d.. bt%=0|
00002160  20 e1 0d 0f 6e 05 3a 0d  0f 78 2b 78 3d 8e 28 22  | ...n.:..x+x=.("|
00002170  3c 53 61 76 65 64 46 72  61 63 74 61 6c 24 44 69  |<SavedFractal$Di|
00002180  72 3e 2e 22 2b 62 75 74  74 6f 6e 24 28 62 74 25  |r>."+button$(bt%|
00002190  29 29 0d 0f 82 0a e8 23  78 2c 69 25 0d 0f 8c 0f  |)).....#x,i%....|
000021a0  e3 20 6e 25 3d 31 20 b8  20 69 25 0d 0f 96 10 20  |. n%=1 . i%.... |
000021b0  e3 20 6e 6e 25 3d 30 20  b8 20 32 0d 0f a0 18 20  |. nn%=0 . 2.... |
000021c0  20 e8 23 78 2c 69 6d 61  67 65 25 28 6e 25 2c 6e  | .#x,image%(n%,n|
000021d0  6e 25 29 0d 0f aa 13 20  20 e8 23 78 2c 69 28 6e  |n%)....  .#x,i(n|
000021e0  25 2c 6e 6e 25 29 0d 0f  b4 06 20 ed 0d 0f be 05  |%,nn%).... .....|
000021f0  ed 0d 0f c8 0a e8 23 78  2c 6d 25 0d 0f d2 0f e3  |......#x,m%.....|
00002200  20 6e 25 3d 31 20 b8 20  6d 25 0d 0f dc 10 20 e3  | n%=1 . m%.... .|
00002210  20 6e 6e 25 3d 30 20 b8  20 34 0d 0f e6 16 20 20  | nn%=0 . 4....  |
00002220  e8 23 78 2c 6d 61 70 25  28 6e 25 2c 6e 6e 25 29  |.#x,map%(n%,nn%)|
00002230  0d 0f f0 06 20 ed 0d 0f  fa 05 ed 0d 10 04 0c e8  |.... ...........|
00002240  23 78 2c 70 61 6c 24 0d  10 0e 0d e8 23 78 2c 70  |#x,pal$.....#x,p|
00002250  6c 6f 74 25 0d 10 18 0c  e8 23 78 2c 69 74 7a 25  |lot%.....#x,itz%|
00002260  0d 10 22 0c e8 23 78 2c  69 74 72 25 0d 10 2c 07  |.."..#x,itr%..,.|
00002270  d9 23 78 0d 10 36 05 3a  0d 10 40 17 f2 6c 6f 61  |.#x..6.:..@..loa|
00002280  64 5f 70 61 6c 65 74 74  65 28 70 61 6c 24 29 0d  |d_palette(pal$).|
00002290  10 4a 09 69 69 25 3d 31  0d 10 54 09 62 70 25 3d  |.J.ii%=1..T.bp%=|
000022a0  31 0d 10 5e 05 e1 0d 10  68 04 0d 10 72 14 dd a4  |1..^....h...r...|
000022b0  6d 61 6b 65 5f 66 69 6c  65 5f 6c 69 73 74 0d 10  |make_file_list..|
000022c0  7c 28 ea 20 66 69 6c 65  73 25 2c 6e 61 6d 65 24  ||(. files%,name$|
000022d0  28 29 2c 70 61 74 68 25  2c 62 75 66 66 65 72 25  |(),path%,buffer%|
000022e0  2c 78 25 2c 79 25 0d 10  86 05 3a 0d 10 90 10 de  |,x%,y%....:.....|
000022f0  20 6e 61 6d 65 24 28 32  35 35 29 0d 10 9a 1c de  | name$(255).....|
00002300  20 70 61 74 68 25 20 32  35 35 2c 20 62 75 66 66  | path% 255, buff|
00002310  65 72 25 20 32 35 35 0d  10 a4 05 3a 0d 10 ae 21  |er% 255....:...!|
00002320  f2 72 65 61 64 5f 64 69  72 28 22 53 61 76 65 64  |.read_dir("Saved|
00002330  46 72 61 63 74 61 6c 24  44 69 72 22 29 0d 10 b8  |Fractal$Dir")...|
00002340  10 e7 20 66 69 6c 65 73  25 3e 30 20 8c 0d 10 c2  |.. files%>0 ....|
00002350  0b 20 78 25 3d 31 30 30  0d 10 cc 0b 20 79 25 3d  |. x%=100.... y%=|
00002360  34 30 30 0d 10 d6 09 20  66 25 3d 31 0d 10 e0 06  |400.... f%=1....|
00002370  20 f5 0d 10 ea 2c 20 20  f2 6d 61 6b 65 5f 62 75  | ....,  .make_bu|
00002380  74 74 6f 6e 28 66 25 2c  78 25 2c 79 25 2c 32 30  |tton(f%,x%,y%,20|
00002390  30 2c 6e 61 6d 65 24 28  66 25 29 2c 30 29 0d 10  |0,name$(f%),0)..|
000023a0  f4 24 20 20 78 25 2b 3d  32 30 30 3a e7 20 78 25  |.$  x%+=200:. x%|
000023b0  3e 39 30 30 20 78 25 3d  31 30 30 3a 79 25 2d 3d  |>900 x%=100:y%-=|
000023c0  35 30 0d 10 fe 0b 20 20  66 25 2b 3d 31 0d 11 08  |50....  f%+=1...|
000023d0  10 20 fd 20 66 25 3e 66  69 6c 65 73 25 0d 11 12  |. . f%>files%...|
000023e0  0b 20 79 25 2d 3d 35 30  0d 11 1c 2b 20 f2 6d 61  |. y%-=50...+ .ma|
000023f0  6b 65 5f 62 75 74 74 6f  6e 28 30 2c 35 30 30 2c  |ke_button(0,500,|
00002400  79 25 2c 32 30 30 2c 22  20 43 61 6e 63 65 6c 22  |y%,200," Cancel"|
00002410  2c 30 29 0d 11 26 05 cd  0d 11 30 0b 3d 66 69 6c  |,0)..&....0.=fil|
00002420  65 73 25 0d 11 3a 04 0d  11 44 6a dd a4 72 28 72  |es%..:...Dj..r(r|
00002430  24 29 3a ea 53 24 2c 57  62 25 2c 4e 3a c8 99 22  |$):.S$,Wb%,N:.."|
00002440  4f 53 5f 52 65 61 64 56  61 72 56 61 6c 22 2c 72  |OS_ReadVarVal",r|
00002450  24 2c 62 75 66 66 65 72  25 2c 32 35 30 2c 30 2c  |$,buffer%,250,0,|
00002460  30 b8 2c 2c 57 62 25 3a  53 24 3d 22 22 3a e3 4e  |0.,,Wb%:S$="":.N|
00002470  3d 30 b8 57 62 25 2d 31  3a 53 24 3d 53 24 2b bd  |=0.Wb%-1:S$=S$+.|
00002480  28 62 75 66 66 65 72 25  3f 4e 29 3a ed 3a 3d 53  |(buffer%?N):.:=S|
00002490  24 0d 11 4e 04 0d 11 58  18 dd f2 72 65 61 64 5f  |$..N...X...read_|
000024a0  64 69 72 28 64 69 72 6e  61 6d 65 24 29 0d 11 62  |dir(dirname$)..b|
000024b0  17 ea 20 65 6f 66 25 2c  6e 25 2c 6e 6e 25 2c 6e  |.. eof%,n%,nn%,n|
000024c0  61 6d 65 24 0d 11 6c 05  3a 0d 11 76 17 24 70 61  |ame$..l.:..v.$pa|
000024d0  74 68 25 3d a4 72 28 64  69 72 6e 61 6d 65 24 29  |th%=.r(dirname$)|
000024e0  0d 11 80 05 3a 0d 11 8a  0c 66 69 6c 65 73 25 3d  |....:....files%=|
000024f0  30 0d 11 94 0a 65 6f 66  25 3d a3 0d 11 9e 0a 6e  |0....eof%=.....n|
00002500  25 3d 31 3a f5 0d 11 a8  2c c8 99 22 4f 53 5f 47  |%=1:....,.."OS_G|
00002510  42 50 42 22 2c 39 2c 70  61 74 68 25 2c 62 75 66  |BPB",9,path%,buf|
00002520  66 65 72 25 2c 31 2c 6e  25 2d 31 2c 32 35 35 2c  |fer%,1,n%-1,255,|
00002530  30 0d 11 b2 46 6e 6e 25  3d 30 3a 6e 61 6d 65 24  |0...Fnn%=0:name$|
00002540  3d 22 22 3a f5 3a 6e 61  6d 65 24 3d 6e 61 6d 65  |="":.:name$=name|
00002550  24 2b bd 28 62 75 66 66  65 72 25 3f 6e 6e 25 29  |$+.(buffer%?nn%)|
00002560  3a 6e 6e 25 2b 3d 31 3a  fd 62 75 66 66 65 72 25  |:nn%+=1:.buffer%|
00002570  3f 6e 6e 25 3c 33 33 0d  11 bc 3a e7 20 6e 61 6d  |?nn%<33...:. nam|
00002580  65 24 3c 3e 6e 61 6d 65  24 28 6e 25 2d 31 29 20  |e$<>name$(n%-1) |
00002590  6e 61 6d 65 24 28 6e 25  29 3d 6e 61 6d 65 24 20  |name$(n%)=name$ |
000025a0  8b 20 6e 61 6d 65 24 28  6e 25 29 3d 22 2a 20 2a  |. name$(n%)="* *|
000025b0  22 0d 11 c6 29 e7 20 6e  61 6d 65 24 28 6e 25 29  |"...). name$(n%)|
000025c0  3d 22 2a 20 2a 22 20 65  6f 66 25 3d b9 3a 20 8b  |="* *" eof%=.: .|
000025d0  20 66 69 6c 65 73 25 2b  3d 31 0d 11 d0 17 6e 25  | files%+=1....n%|
000025e0  2b 3d 31 3a e7 6e 25 3d  32 35 36 65 6f 66 25 3d  |+=1:.n%=256eof%=|
000025f0  b9 0d 11 da 0b fd 65 6f  66 25 3d b9 0d 11 e4 05  |......eof%=.....|
00002600  e1 0d 11 ee 04 0d 11 f8  19 dd f2 6c 6f 61 64 5f  |...........load_|
00002610  63 6f 6c 6f 75 72 5f 70  61 6c 65 74 74 65 0d 12  |colour_palette..|
00002620  02 25 ea 20 6c 64 24 2c  41 24 2c 6e 25 2c 6e 6e  |.%. ld$,A$,n%,nn|
00002630  25 2c 62 74 25 2c 62 74  73 25 2c 78 25 2c 79 25  |%,bt%,bts%,x%,y%|
00002640  2c 7a 25 0d 12 0c 05 3a  0d 12 16 30 f2 70 6c 6f  |,z%....:...0.plo|
00002650  74 5f 62 75 74 74 6f 6e  28 30 2c 35 30 30 2c 34  |t_button(0,500,4|
00002660  35 30 2c 32 30 30 2c 22  4c 6f 61 64 20 50 61 6c  |50,200,"Load Pal|
00002670  65 74 74 65 22 2c 30 29  0d 12 20 1b 62 74 73 25  |ette",0).. .bts%|
00002680  3d a4 6d 61 6b 65 5f 70  61 6c 65 74 74 65 5f 6c  |=.make_palette_l|
00002690  69 73 74 0d 12 2a 0e e7  20 62 74 73 25 3d 30 20  |ist..*.. bts%=0 |
000026a0  e1 0d 12 34 05 3a 0d 12  3e 3b f5 3a c8 97 20 78  |...4.:..>;.:.. x|
000026b0  25 2c 79 25 2c 7a 25 3a  62 74 25 3d a4 6d 6f 75  |%,y%,z%:bt%=.mou|
000026c0  73 65 5f 63 6c 69 63 6b  5f 62 75 74 74 6f 6e 28  |se_click_button(|
000026d0  30 2c 62 74 73 25 29 3a  fd 20 62 74 25 3c 3e 2d  |0,bts%):. bt%<>-|
000026e0  31 0d 12 48 0d e7 20 62  74 25 3d 30 20 e1 0d 12  |1..H.. bt%=0 ...|
000026f0  52 05 3a 0d 12 5c 15 70  61 6c 24 3d 62 75 74 74  |R.:..\.pal$=butt|
00002700  6f 6e 24 28 62 74 25 29  0d 12 66 17 f2 6c 6f 61  |on$(bt%)..f..loa|
00002710  64 5f 70 61 6c 65 74 74  65 28 70 61 6c 24 29 0d  |d_palette(pal$).|
00002720  12 70 05 e1 0d 12 7a 04  0d 12 84 17 dd a4 6d 61  |.p....z.......ma|
00002730  6b 65 5f 70 61 6c 65 74  74 65 5f 6c 69 73 74 0d  |ke_palette_list.|
00002740  12 8e 28 ea 20 66 69 6c  65 73 25 2c 6e 61 6d 65  |..(. files%,name|
00002750  24 28 29 2c 70 61 74 68  25 2c 62 75 66 66 65 72  |$(),path%,buffer|
00002760  25 2c 78 25 2c 79 25 0d  12 98 05 3a 0d 12 a2 10  |%,x%,y%....:....|
00002770  de 20 6e 61 6d 65 24 28  32 35 35 29 0d 12 ac 1c  |. name$(255)....|
00002780  de 20 70 61 74 68 25 20  32 35 35 2c 20 62 75 66  |. path% 255, buf|
00002790  66 65 72 25 20 32 35 35  0d 12 b6 05 3a 0d 12 c0  |fer% 255....:...|
000027a0  22 f2 72 65 61 64 5f 64  69 72 28 22 43 6f 6c 6f  |".read_dir("Colo|
000027b0  75 72 53 63 68 65 6d 65  73 24 44 69 72 22 29 0d  |urSchemes$Dir").|
000027c0  12 ca 10 e7 20 66 69 6c  65 73 25 3e 30 20 8c 0d  |.... files%>0 ..|
000027d0  12 d4 0b 20 78 25 3d 31  30 30 0d 12 de 0b 20 79  |... x%=100.... y|
000027e0  25 3d 34 30 30 0d 12 e8  09 20 66 25 3d 31 0d 12  |%=400.... f%=1..|
000027f0  f2 06 20 f5 0d 12 fc 2c  20 20 f2 6d 61 6b 65 5f  |.. ....,  .make_|
00002800  62 75 74 74 6f 6e 28 66  25 2c 78 25 2c 79 25 2c  |button(f%,x%,y%,|
00002810  32 30 30 2c 6e 61 6d 65  24 28 66 25 29 2c 30 29  |200,name$(f%),0)|
00002820  0d 13 06 24 20 20 78 25  2b 3d 32 30 30 3a e7 20  |...$  x%+=200:. |
00002830  78 25 3e 39 30 30 20 78  25 3d 31 30 30 3a 79 25  |x%>900 x%=100:y%|
00002840  2d 3d 35 30 0d 13 10 0b  20 20 66 25 2b 3d 31 0d  |-=50....  f%+=1.|
00002850  13 1a 10 20 fd 20 66 25  3e 66 69 6c 65 73 25 0d  |... . f%>files%.|
00002860  13 24 0b 20 79 25 2d 3d  35 30 0d 13 2e 2b 20 f2  |.$. y%-=50...+ .|
00002870  6d 61 6b 65 5f 62 75 74  74 6f 6e 28 30 2c 35 30  |make_button(0,50|
00002880  30 2c 79 25 2c 32 30 30  2c 22 20 43 61 6e 63 65  |0,y%,200," Cance|
00002890  6c 22 2c 30 29 0d 13 38  05 cd 0d 13 42 0b 3d 66  |l",0)..8....B.=f|
000028a0  69 6c 65 73 25 0d 13 4c  04 0d 13 56 16 dd f2 73  |iles%..L...V...s|
000028b0  65 74 5f 70 6c 6f 74 5f  6f 70 74 69 6f 6e 73 0d  |et_plot_options.|
000028c0  13 60 12 ea 20 78 25 2c  79 25 2c 7a 25 2c 62 74  |.`.. x%,y%,z%,bt|
000028d0  25 0d 13 6a 05 3a 0d 13  74 05 f5 0d 13 7e 3e 20  |%..j.:..t....~> |
000028e0  f2 6d 61 6b 65 5f 62 75  74 74 6f 6e 28 31 2c 34  |.make_button(1,4|
000028f0  30 30 2c 34 30 30 2c 34  30 30 2c 22 50 6c 6f 74  |00,400,400,"Plot|
00002900  20 54 79 70 65 20 20 3a  22 2b 70 6c 6f 74 24 28  | Type  :"+plot$(|
00002910  70 6c 6f 74 25 29 2c 30  29 0d 13 88 39 20 f2 6d  |plot%),0)...9 .m|
00002920  61 6b 65 5f 62 75 74 74  6f 6e 28 32 2c 34 30 30  |ake_button(2,400|
00002930  2c 33 35 30 2c 34 30 30  2c 22 49 74 65 72 61 74  |,350,400,"Iterat|
00002940  69 6f 6e 73 20 3a 22 2b  c3 28 69 74 72 25 29 2c  |ions :"+.(itr%),|
00002950  30 29 0d 13 92 4b 20 f2  6d 61 6b 65 5f 62 75 74  |0)...K .make_but|
00002960  74 6f 6e 28 33 2c 34 30  30 2c 33 30 30 2c 34 30  |ton(3,400,300,40|
00002970  30 2c 22 49 74 65 72 61  74 65 20 66 72 6f 6d 20  |0,"Iterate from |
00002980  30 20 3a 22 2b c1 22 59  65 73 4e 6f 20 22 2c 69  |0 :"+."YesNo ",i|
00002990  74 7a 25 2a 33 2b 31 2c  33 29 2c 30 29 0d 13 9c  |tz%*3+1,3),0)...|
000029a0  29 20 f2 6d 61 6b 65 5f  62 75 74 74 6f 6e 28 30  |) .make_button(0|
000029b0  2c 34 30 30 2c 32 30 30  2c 34 30 30 2c 22 44 6f  |,400,200,400,"Do|
000029c0  6e 65 22 2c 30 29 0d 13  a6 39 20 f5 3a c8 97 20  |ne",0)...9 .:.. |
000029d0  78 25 2c 79 25 2c 7a 25  3a 62 74 25 3d a4 6d 6f  |x%,y%,z%:bt%=.mo|
000029e0  75 73 65 5f 63 6c 69 63  6b 5f 62 75 74 74 6f 6e  |use_click_button|
000029f0  28 30 2c 33 29 3a fd 20  62 74 25 3c 3e 2d 31 0d  |(0,3):. bt%<>-1.|
00002a00  13 b0 1a 20 e7 20 62 74  25 3d 31 20 70 6c 6f 74  |... . bt%=1 plot|
00002a10  25 3d 33 2d 70 6c 6f 74  25 0d 13 ba 25 20 e7 20  |%=3-plot%...% . |
00002a20  62 74 25 3d 32 20 69 74  72 25 2b 3d 31 3a e7 20  |bt%=2 itr%+=1:. |
00002a30  69 74 72 25 3e 31 35 20  69 74 72 25 3d 32 0d 13  |itr%>15 itr%=2..|
00002a40  c4 18 20 e7 20 62 74 25  3d 33 20 69 74 7a 25 3d  |.. . bt%=3 itz%=|
00002a50  31 2d 69 74 7a 25 0d 13  ce 19 20 f5 3a c8 97 20  |1-itz%.... .:.. |
00002a60  78 25 2c 79 25 2c 7a 25  3a fd 20 7a 25 3d 30 0d  |x%,y%,z%:. z%=0.|
00002a70  13 d8 0b fd 20 62 74 25  3d 30 0d 13 e2 05 e1 0d  |.... bt%=0......|
00002a80  13 ec 04 0d 13 f6 23 dd  f2 70 6c 6f 74 5f 66 72  |......#..plot_fr|
00002a90  61 63 74 61 6c 28 73 74  61 72 74 25 2c 65 6e 64  |actal(start%,end|
00002aa0  25 2c 64 72 25 29 0d 14  00 16 ea 20 61 64 2c 45  |%,dr%)..... ad,E|
00002ab0  54 2c 64 2c 78 25 2c 79  25 2c 7a 25 0d 14 0a 05  |T,d,x%,y%,z%....|
00002ac0  3a 0d 14 14 05 db 0d 14  1e 06 ef 34 0d 14 28 08  |:..........4..(.|
00002ad0  fb 20 31 35 0d 14 32 05  3a 0d 14 3c 0d 61 64 3d  |. 15..2.:..<.ad=|
00002ae0  30 3a 45 54 3d 30 0d 14  46 08 e6 30 2c 31 0d 14  |0:ET=0..F..0,1..|
00002af0  50 24 e7 20 70 6c 6f 74  25 3d 31 20 f2 70 6c 6f  |P$. plot%=1 .plo|
00002b00  74 5f 69 6d 61 67 65 28  30 2c 30 2c 30 2c 31 2c  |t_image(0,0,0,1,|
00002b10  31 29 0d 14 5a 28 e7 20  70 6c 6f 74 25 3d 32 20  |1)..Z(. plot%=2 |
00002b20  f2 70 6c 6f 74 5f 69 6d  61 67 65 5f 64 6f 74 28  |.plot_image_dot(|
00002b30  30 2c 30 2c 30 2c 31 2c  31 29 0d 14 64 15 e3 20  |0,0,0,1,1)..d.. |
00002b40  64 3d 73 74 61 72 74 25  20 b8 20 65 6e 64 25 0d  |d=start% . end%.|
00002b50  14 6e 08 20 d1 3d 30 0d  14 78 24 20 f1 8a 30 2c  |.n. .=0..x$ ..0,|
00002b60  30 29 22 4c 65 76 65 6c  20 6f 66 20 69 74 65 72  |0)"Level of iter|
00002b70  61 74 69 6f 6e 20 3a 20  22 3b 64 0d 14 82 23 20  |ation : ";d...# |
00002b80  f1 22 20 53 74 61 72 74  65 64 20 61 74 20 20 20  |." Started at   |
00002b90  20 20 20 20 3a 20 22 3b  c2 91 24 2c 38 29 0d 14  |    : ";..$,8)..|
00002ba0  8c 10 20 f2 67 65 74 5f  65 74 28 45 54 29 0d 14  |.. .get_et(ET)..|
00002bb0  96 4e 20 f1 22 20 54 69  6d 65 20 74 6f 20 63 6f  |.N ." Time to co|
00002bc0  6d 70 6c 65 74 65 20 3a  20 22 3b 68 72 73 25 3b  |mplete : ";hrs%;|
00002bd0  22 3a 22 3b c2 22 30 22  2b c3 28 6d 6e 73 25 29  |":";."0"+.(mns%)|
00002be0  2c 32 29 3b 22 3a 22 3b  c2 22 30 22 2b c3 28 73  |,2);":";."0"+.(s|
00002bf0  63 73 25 29 2c 32 29 3b  22 20 20 22 0d 14 a0 1d  |cs%),2);"  "....|
00002c00  20 f1 27 22 28 48 6f 6c  64 20 53 50 41 43 45 20  | .'"(Hold SPACE |
00002c10  74 6f 20 73 74 6f 70 29  22 0d 14 aa 09 20 e6 30  |to stop)".... .0|
00002c20  2c 64 0d 14 b4 1b 20 f2  61 64 76 66 72 61 63 74  |,d.... .advfract|
00002c30  61 6c 28 30 2c 30 2c 30  2c 31 2c 31 29 0d 14 be  |al(0,0,0,1,1)...|
00002c40  09 20 45 54 3d 91 0d 14  c8 05 ed 0d 14 d2 08 fb  |. ET=...........|
00002c50  20 31 30 0d 14 dc 1a f1  27 27 22 43 6c 69 63 6b  | 10.....''"Click|
00002c60  20 74 6f 20 63 6f 6e 74  69 6e 75 65 22 0d 14 e6  | to continue"...|
00002c70  06 ef 35 0d 14 f0 18 f5  3a c8 97 20 78 25 2c 79  |..5.....:.. x%,y|
00002c80  25 2c 7a 25 3a fd 20 7a  25 3e 30 0d 14 fa 18 f5  |%,z%:. z%>0.....|
00002c90  3a c8 97 20 78 25 2c 79  25 2c 7a 25 3a fd 20 7a  |:.. x%,y%,z%:. z|
00002ca0  25 3d 30 0d 15 04 05 e1  0d 15 0e 04 0d 15 18 11  |%=0.............|
00002cb0  dd f2 67 65 74 5f 65 74  28 65 74 25 29 0d 15 22  |..get_et(et%).."|
00002cc0  0e 65 74 25 3d 65 74 25  2a 6d 25 0d 15 2c 17 73  |.et%=et%*m%..,.s|
00002cd0  63 73 25 3d 28 65 74 25  2b 35 30 29 20 81 20 31  |cs%=(et%+50) . 1|
00002ce0  30 30 0d 15 36 12 6d 6e  73 25 3d 73 63 73 25 20  |00..6.mns%=scs% |
00002cf0  81 20 36 30 0d 15 40 12  73 63 73 25 3d 73 63 73  |. 60..@.scs%=scs|
00002d00  25 20 83 20 36 30 0d 15  4a 12 68 72 73 25 3d 6d  |% . 60..J.hrs%=m|
00002d10  6e 73 25 20 81 20 36 30  0d 15 54 12 6d 6e 73 25  |ns% . 60..T.mns%|
00002d20  3d 6d 6e 73 25 20 83 20  36 30 0d 15 5e 05 e1 0d  |=mns% . 60..^...|
00002d30  15 68 04 0d 15 72 3d dd  f2 61 64 76 66 72 61 63  |.h...r=..advfrac|
00002d40  74 61 6c 28 78 63 6f 72  6e 65 72 2c 79 63 6f 72  |tal(xcorner,ycor|
00002d50  6e 65 72 2c 74 69 6c 74  2c 77 69 64 74 68 73 63  |ner,tilt,widthsc|
00002d60  61 6c 65 2c 68 65 69 67  68 74 73 63 61 6c 65 29  |ale,heightscale)|
00002d70  0d 15 7c 08 ea 20 6e 25  0d 15 86 05 3a 0d 15 90  |..|.. n%....:...|
00002d80  0c e7 20 a6 2d 39 39 20  e1 0d 15 9a 09 61 64 2b  |.. .-99 .....ad+|
00002d90  3d 31 0d 15 a4 0c e7 20  61 64 3d 64 20 8c 0d 15  |=1..... ad=d ...|
00002da0  ae 47 20 e7 20 70 6c 6f  74 25 3d 31 20 f2 70 6c  |.G . plot%=1 .pl|
00002db0  6f 74 5f 69 6d 61 67 65  28 78 63 6f 72 6e 65 72  |ot_image(xcorner|
00002dc0  2c 79 63 6f 72 6e 65 72  2c 74 69 6c 74 2c 77 69  |,ycorner,tilt,wi|
00002dd0  64 74 68 73 63 61 6c 65  2c 68 65 69 67 68 74 73  |dthscale,heights|
00002de0  63 61 6c 65 29 0d 15 b8  4b 20 e7 20 70 6c 6f 74  |cale)...K . plot|
00002df0  25 3d 32 20 f2 70 6c 6f  74 5f 69 6d 61 67 65 5f  |%=2 .plot_image_|
00002e00  64 6f 74 28 78 63 6f 72  6e 65 72 2c 79 63 6f 72  |dot(xcorner,ycor|
00002e10  6e 65 72 2c 74 69 6c 74  2c 77 69 64 74 68 73 63  |ner,tilt,widthsc|
00002e20  61 6c 65 2c 68 65 69 67  68 74 73 63 61 6c 65 29  |ale,heightscale)|
00002e30  0d 15 c2 05 cc 0d 15 cc  10 20 e3 20 6e 25 3d 31  |......... . n%=1|
00002e40  20 b8 20 6d 25 0d 15 d6  1e 20 20 62 78 3d 6d 61  | . m%....  bx=ma|
00002e50  70 25 28 6e 25 2c 33 29  2a 77 69 64 74 68 73 63  |p%(n%,3)*widthsc|
00002e60  61 6c 65 0d 15 e0 1f 20  20 62 79 3d 6d 61 70 25  |ale....  by=map%|
00002e70  28 6e 25 2c 34 29 2a 68  65 69 67 68 74 73 63 61  |(n%,4)*heightsca|
00002e80  6c 65 0d 15 ea 1b 20 20  62 74 69 6c 74 3d 6d 61  |le....  btilt=ma|
00002e90  70 25 28 6e 25 2c 30 29  2b 74 69 6c 74 0d 15 f4  |p%(n%,0)+tilt...|
00002ea0  24 20 20 62 77 73 3d 6d  61 70 25 28 6e 25 2c 31  |$  bws=map%(n%,1|
00002eb0  29 2a 30 2e 30 31 2a 77  69 64 74 68 73 63 61 6c  |)*0.01*widthscal|
00002ec0  65 0d 15 fe 25 20 20 62  68 73 3d 6d 61 70 25 28  |e...%  bhs=map%(|
00002ed0  6e 25 2c 32 29 2a 30 2e  30 31 2a 68 65 69 67 68  |n%,2)*0.01*heigh|
00002ee0  74 73 63 61 6c 65 0d 16  08 07 20 20 3a 0d 16 12  |tscale....  :...|
00002ef0  19 20 20 62 6c 65 6e 3d  b6 28 62 78 2a 62 78 2b  |.  blen=.(bx*bx+|
00002f00  62 79 2a 62 79 29 0d 16  1c 2b 20 20 62 61 6e 67  |by*by)...+  bang|
00002f10  3d a4 63 61 6c 63 75 6c  61 74 65 5f 61 6e 67 6c  |=.calculate_angl|
00002f20  65 28 30 2c 30 2c 62 78  2c 62 79 29 2b 74 69 6c  |e(0,0,bx,by)+til|
00002f30  74 0d 16 26 0f 20 20 61  3d b2 28 62 61 6e 67 29  |t..&.  a=.(bang)|
00002f40  0d 16 30 1a 20 20 78 63  3d b5 28 61 29 2a 62 6c  |..0.  xc=.(a)*bl|
00002f50  65 6e 2b 78 63 6f 72 6e  65 72 0d 16 3a 1a 20 20  |en+xcorner..:.  |
00002f60  79 63 3d 9b 28 61 29 2a  62 6c 65 6e 2b 79 63 6f  |yc=.(a)*blen+yco|
00002f70  72 6e 65 72 0d 16 44 26  20 20 f2 61 64 76 66 72  |rner..D&  .advfr|
00002f80  61 63 74 61 6c 28 78 63  2c 79 63 2c 62 74 69 6c  |actal(xc,yc,btil|
00002f90  74 2c 62 77 73 2c 62 68  73 29 0d 16 4e 06 20 ed  |t,bws,bhs)..N. .|
00002fa0  0d 16 58 05 cd 0d 16 62  09 61 64 2d 3d 31 0d 16  |..X....b.ad-=1..|
00002fb0  6c 05 e1 0d 16 76 04 0d  16 80 0a dd f2 68 65 6c  |l....v.......hel|
00002fc0  70 0d 16 8a 0a ea 20 41  2c 49 24 0d 16 94 05 3a  |p..... A,I$....:|
00002fd0  0d 16 9e 15 f5 3a 49 24  3d bf 28 30 29 3a fd 20  |.....:I$=.(0):. |
00002fe0  49 24 3d 22 22 0d 16 a8  06 ef 34 0d 16 b2 05 db  |I$="".....4.....|
00002ff0  0d 16 bc 30 f1 22 53 70  65 63 69 61 6c 20 43 6f  |...0."Special Co|
00003000  6e 74 72 6f 6c 73 20 75  73 65 64 20 69 6e 20 65  |ntrols used in e|
00003010  64 69 74 69 6e 67 20 73  63 72 65 65 6e 73 2e 22  |diting screens."|
00003020  0d 16 c6 05 f1 0d 16 d0  05 f1 0d 16 da 05 f1 0d  |................|
00003030  16 e4 19 f1 22 45 64 69  74 20 49 6e 69 74 69 61  |...."Edit Initia|
00003040  6c 20 49 6d 61 67 65 22  0d 16 ee 40 f1 22 20 20  |l Image"...@."  |
00003050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003060  20 20 20 20 4c 65 66 74  20 4d 6f 75 73 65 20 42  |    Left Mouse B|
00003070  75 74 74 6f 6e 20 20 20  2d 20 44 72 61 77 20 74  |utton   - Draw t|
00003080  6f 20 70 6f 69 6e 74 22  0d 16 f8 40 f1 22 20 20  |o point"...@."  |
00003090  20 20 20 20 20 20 20 20  20 20 20 20 53 48 49 46  |            SHIF|
000030a0  54 20 2b 20 4c 65 66 74  20 4d 6f 75 73 65 20 42  |T + Left Mouse B|
000030b0  75 74 74 6f 6e 20 20 20  2d 20 46 69 6c 6c 20 74  |utton   - Fill t|
000030c0  6f 20 70 6f 69 6e 74 22  0d 17 02 40 f1 22 20 20  |o point"...@."  |
000030d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000030e0  20 20 20 20 4d 69 64 64  6c 65 20 4d 6f 75 73 65  |    Middle Mouse|
000030f0  20 42 75 74 74 6f 6e 20  2d 20 4d 6f 76 65 20 74  | Button - Move t|
00003100  6f 20 70 6f 69 6e 74 22  0d 17 0c 42 f1 22 20 20  |o point"...B."  |
00003110  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003120  20 20 20 20 52 69 67 68  74 20 4d 6f 75 73 65 20  |    Right Mouse |
00003130  42 75 74 74 6f 6e 20 20  2d 20 43 6c 65 61 72 20  |Button  - Clear |
00003140  6c 61 73 74 20 6c 69 6e  65 22 0d 17 16 46 f1 22  |last line"...F."|
00003150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003160  20 20 20 20 20 20 41 72  72 6f 77 20 4b 65 79 73  |      Arrow Keys|
00003170  20 20 20 20 20 20 20 20  20 20 2d 20 4d 6f 76 65  |          - Move|
00003180  20 43 6f 6e 74 72 6f 6c  20 57 69 6e 64 6f 77 22  | Control Window"|
00003190  0d 17 20 3f f1 22 20 20  20 20 20 20 20 20 20 20  |.. ?."          |
000031a0  20 20 20 20 20 20 20 20  20 20 20 20 53 50 41 43  |            SPAC|
000031b0  45 20 42 61 72 20 20 20  20 20 20 20 20 20 20 20  |E Bar           |
000031c0  2d 20 43 65 6e 74 72 65  20 4d 6f 75 73 65 22 0d  |- Centre Mouse".|
000031d0  17 2a 4e f1 22 20 20 20  20 20 20 20 20 20 20 20  |.*N."           |
000031e0  20 20 20 20 20 20 20 20  28 41 6c 77 61 79 73 20  |        (Always |
000031f0  73 74 61 72 74 20 74 68  65 20 69 6e 69 74 69 61  |start the initia|
00003200  6c 20 69 6d 61 67 65 20  77 69 74 68 20 61 20 6d  |l image with a m|
00003210  6f 76 65 20 63 6f 6d 6d  61 6e 64 29 22 0d 17 34  |ove command)"..4|
00003220  05 f1 0d 17 3e 05 f1 0d  17 48 16 f1 22 45 64 69  |....>....H.."Edi|
00003230  74 20 42 6c 75 65 20 50  72 69 6e 74 22 0d 17 52  |t Blue Print"..R|
00003240  3e f1 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |>."             |
00003250  20 20 20 20 20 20 20 20  20 4c 65 66 74 20 4d 6f  |         Left Mo|
00003260  75 73 65 20 42 75 74 74  6f 6e 20 20 20 2d 20 53  |use Button   - S|
00003270  74 61 6d 70 20 49 6d 61  67 65 22 0d 17 5c 48 f1  |tamp Image"..\H.|
00003280  22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00003290  20 20 20 20 20 20 20 4d  69 64 64 6c 65 20 4d 6f  |       Middle Mo|
000032a0  75 73 65 20 42 75 74 74  6f 6e 20 2d 20 52 6f 74  |use Button - Rot|
000032b0  61 74 65 20 41 6e 74 69  2d 43 6c 6f 63 6b 77 69  |ate Anti-Clockwi|
000032c0  73 65 22 0d 17 66 43 f1  22 20 20 20 20 20 20 20  |se"..fC."       |
000032d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 52  |               R|
000032e0  69 67 68 74 20 4d 6f 75  73 65 20 42 75 74 74 6f  |ight Mouse Butto|
000032f0  6e 20 20 2d 20 52 6f 74  61 74 65 20 43 6c 6f 63  |n  - Rotate Cloc|
00003300  6b 77 69 73 65 22 0d 17  70 46 f1 22 20 20 20 20  |kwise"..pF."    |
00003310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003320  20 20 41 72 72 6f 77 20  4b 65 79 73 20 20 20 20  |  Arrow Keys    |
00003330  20 20 20 20 20 20 2d 20  4d 6f 76 65 20 43 6f 6e  |      - Move Con|
00003340  74 72 6f 6c 20 57 69 6e  64 6f 77 22 0d 17 7a 3f  |trol Window"..z?|
00003350  f1 22 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |."              |
00003360  20 20 20 20 20 20 20 20  53 50 41 43 45 20 42 61  |        SPACE Ba|
00003370  72 20 20 20 20 20 20 20  20 20 20 20 2d 20 43 65  |r           - Ce|
00003380  6e 74 72 65 20 4d 6f 75  73 65 22 0d 17 84 05 f1  |ntre Mouse".....|
00003390  0d 17 8e 05 f1 0d 17 98  05 f1 0d 17 a2 05 f1 0d  |................|
000033a0  17 ac 1a f1 22 50 72 65  73 73 20 61 20 6b 65 79  |...."Press a key|
000033b0  20 74 6f 20 45 78 69 74  22 0d 17 b6 07 41 3d a5  | to Exit"....A=.|
000033c0  0d 17 c0 06 ef 35 0d 17  ca 05 e1 0d 17 d4 05 3a  |.....5.........:|
000033d0  0d 17 de 0b dd 20 f2 71  75 69 74 0d 17 e8 09 ee  |..... .quit.....|
000033e0  20 85 20 87 0d 17 f2 05  db 0d 17 f3 1c f2 6c 6f  | . ...........lo|
000033f0  61 64 5f 70 61 6c 65 74  74 65 28 22 44 65 66 61  |ad_palette("Defa|
00003400  75 6c 74 22 29 0d 17 fd  14 f1 f6 24 22 20 61 74  |ult")......$" at|
00003410  20 6c 69 6e 65 20 22 3b  9e 0d 18 07 05 e0 0d ff  | line ";........|
00003420