StarInfo/Alexandrou/LineFract

Home » Archimedes archive » Acorn User » AU 1998-08.adf » Regulars » StarInfo/Alexandrou/LineFract

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1998-08.adf » Regulars
Filename:	StarInfo/Alexandrou/LineFract
Read OK:	✔
File size:	176A bytes
Load address:	0000
Exec address:	0000

File contents

   10REM *** LineFract
   20REM *** Written by Dean Alexandrou
   30
   40ON ERROR :MODE8:IF INKEY-1 PRINT"I Hope you had fun!"'''':END ELSE :IF ERR<>17 :REPORT:PRINT ERL:END: ELSE :IF ERR=17 :RUN
   50
   60MODE20
   70COLOUR 15,255,255,255
   80COLOUR 14,255,255,240
   90COLOUR 13,255,255,220
  100COLOUR 12,255,255,200
  110COLOUR 11,255,220,200
  120COLOUR 10,255,180,200
  130COLOUR 9,255,120,200
  140COLOUR 8,255,40,200
  150COLOUR 7,240,0,200
  160COLOUR 6,220,0,190
  170COLOUR 5,200,0,180
  180COLOUR 4,170,0,170
  190COLOUR 3,130,0,160
  200COLOUR 2,80,0,140
  210COLOUR 1,0,0,100
  220COLOUR 0,0,0,0
  230COLOUR15
  240:
  250ORIGIN 0,512
  260p$="L"
  270i%=15
  280gi$="ON"
  290rot%=0
  300hs$="ON"
  310vs$="ON"
  320PROCread_fractal_data
  330:
  340PROCplot_screen
  350:
  360MOUSE ON
  370DIM line%(50,2),f(50,2)
  380lx=0:ly=0
  390:
  400p=0
  410REPEAT
  420 p+=1
  430 REPEAT
  440  A$=CHR$(INKEY(0) AND &DF)
  450  MOUSE x%,y%,z
  460  x=x%:y=y%
  470  IF INKEY-1=0 x=(x%+16) DIV 32 * 32:y=(y%+16*SGN(y)) DIV 32 * 32
  480  GCOL3,RND(3)+11:LINE lx,ly,x,y:WAIT:WAIT:LINE lx,ly,x,y
  490  IF (ASC(A$)=8 OR ASC(A$)=127) AND p>1 THEN
  500   CLS:PROCplot_screen
  510   p-=1:PROCdraw_line_so_far
  520   lx=line%(p-1,1):ly=line%(p-1,2)
  530  ENDIF
  540  IF A$="O" THEN
  550   CLS
  560   PROCoptions
  570   CLS
  580   PROCplot_screen
  590   PROCdraw_line_so_far
  600  ENDIF
  610 UNTIL z>0 OR A$="M"
  620 IF SQR((1280-x)^2+y^2)<20 x=1280:y=0:z=1
  630 GCOL0,15:LINE lx,ly,x,y:LINE lx+4,ly,x+4,y:LINE lx,ly+4,x,y+4
  640 line%(p,1)=x:line%(p,2)=y
  650 lx=x:ly=y
  660 REPEAT:MOUSE x,y,zz:UNTIL zz=0
  670UNTIL z=1 OR A$="M"
  680:
  690IF A$="M" PROCmenu
  700:
  710CLS
  720:
  730x=0:y=0
  740FOR n%=1 TO p
  750 nx=line%(n%,1):ny=line%(n%,2)
  760 :
  770 IF nx=x nx+=0.1
  780 IF ny=y ny+=0.1
  790 xlen=nx-x:ylen=ny-y
  800 len=SQR(xlen*xlen+ylen*ylen)
  810 ang=DEG(ATN(ylen/xlen))
  820 IF ang<0 ang=ABS(ang)+90 ELSE ang=90-ang
  830 IF xlen<0 ang-=180
  840 :
  850 f(n%,1)=ang:f(n%,2)=len
  860 :
  870 x=nx:y=ny
  880NEXT
  890:
  900CLS
  910:
  920MOUSE OFF
  930IF gi$="ON" gi%=1 ELSE gi%=i%
  940FOR deg=gi% TO i%
  950 PRINTTAB(0,0)"Level of iteration:";deg
  960 x=0:y=0:ad=0:d=deg
  970 col%=deg+15-i%
  980 GCOL0,col%
  990 IF rot%=0 PROCfractal(0,1280) ELSE PROCcfractal(0,1280)
 1000NEXT
 1010REPEAT:UNTIL FALSE
 1020END
 1030
 1040DEFPROCfractal(angoffset,len)
 1050LOCAL n%,mf
 1060:
 1070ad+=1:mf=len/1280
 1080IF ad>=d THEN
 1090 IF hs$="ON":px=x*0.8+128 ELSE px=x
 1100 IF vs$="ON":py=y*0.8 ELSE py=y
 1110 MOVE px,py:MOVE px,py
 1120 FOR n%=1 TO p
 1130  a=RAD(f(n%,1)+angoffset):x+=SIN(a)*f(n%,2)*mf:y+=COS(a)*f(n%,2)*mf
 1140  IF hs$="ON":px=x*0.8+128 ELSE px=x
 1150  IF vs$="ON":py=y*0.8 ELSE py=y
 1160  IF p$="L" DRAW px,py
 1170  IF p$="F" PLOT85,px,py
 1180  IF p$="P" AND POINT(px,y)=0 PLOT69,px,py
 1190 NEXT
 1200ELSE
 1210 FOR n%=1 TO p
 1220  PROCfractal(f(n%,1)+angoffset-90,f(n%,2)*mf)
 1230 NEXT
 1240ENDIF
 1250ad-=1
 1260ENDPROC
 1270
 1280DEFPROCcfractal(angoffset,len)
 1290LOCAL n%,mf
 1300:
 1310ad+=1:mf=len/1280
 1320IF ad>=d THEN
 1330 c=x*0.28125:r%=y/2+256:a=RAD(c):px=SIN(a)*r%+640:py=COS(a)*r%
 1340 MOVE px,py:MOVE px,py
 1350 FOR n%=1 TO p
 1360  a=RAD(f(n%,1)+angoffset):x+=SIN(a)*f(n%,2)*mf:y+=COS(a)*f(n%,2)*mf
 1370  c=x*0.28125:r%=y/2+256:a=RAD(c):px=SIN(a)*r%+640:py=COS(a)*r%
 1380  IF p$="L" DRAW px,py
 1390  IF p$="F" PLOT85,px,py
 1400  IF p$="P" AND POINT(px,y)=0 PLOT69,px,py
 1410 NEXT
 1420ELSE
 1430 FOR n%=1 TO p
 1440  PROCcfractal(f(n%,1)+angoffset-90,f(n%,2)*mf)
 1450 NEXT
 1460ENDIF
 1470ad-=1
 1480ENDPROC
 1490
 1500DEFPROCplot_screen
 1510LOCAL x%,y%
 1520:
 1530GCOL0,1:FORy%=-512TO512STEP32:LINE0,y%,1280,y%:NEXT:FORx%=0TO1280STEP32:LINEx%,-512,x%,512:NEXT
 1540:
 1550PRINT"Fractal Generator - written by Dean Alexandrou (Jan 1998)"
 1560PRINT''"Use the mouse to draw a fractal curve. Press a button to set the line."'"Finish by drawing to the White Circle. Alternatively, choose a fractal from the menu."
 1570PRINT'"SHIFT   =  unlock grid"'"O       =  option screen"'"M       =  select fractal from Menu"'"ESCAPE  =  restarts"'"ESCAPE + SHIFT  =  quit"
 1580:
 1590GCOL0,3:FORy%=-512TO512STEP64:LINE0,y%,1280,y%:NEXT:FORx%=0TO1280STEP64:LINEx%,-512,x%,512:NEXT
 1600GCOL0,5:FORy%=-512TO512STEP128:LINE0,y%,1280,y%:NEXT:FORx%=0TO1280STEP128:LINEx%,-512,x%,512:NEXT
 1610GCOL0,11:LINE0,0,1280,0:LINE640,-512,640,512:GCOL0,15:CIRCLE FILL 1280,0,24
 1620ENDPROC
 1630
 1640DEFPROCdraw_line_so_far
 1650LOCAL n%,x,y,lx,ly
 1660:
 1670IF p<2 ENDPROC
 1680REM xx=OPENUP("RAM::RamDisc0.$.FD")
 1690FOR n%=1 TO p-1
 1700 lx=line%(n%-1,1):ly=line%(n%-1,2)
 1710 x=line%(n%,1):y=line%(n%,2)
 1720REM s$=STR$(x)+","+STR$(y)+", "
 1730REM BPUT#xx,s$
 1740 GCOL0,15:LINE lx,ly,x,y:LINE lx+4,ly,x+4,y:LINE lx,ly+4,x,y+4
 1750NEXT
 1760REM CLOSE#xx
 1770ENDPROC
 1780
 1790DEFPROCoptions
 1800LOCAL plot$,cf$,A$,s%
 1810:
 1820IF p$="P" plot$="Points"
 1830IF p$="F" plot$="Filled Triangles"
 1840IF p$="L" plot$="Lines"
 1850:
 1860IF rot%=0 cf$="Flat" ELSE cf$="Circular"
 1870:
 1880REPEAT
 1890 CLS
 1900 COLOUR15
 1910 PRINT"OPTIONS"
 1920 PRINT'"(P) Plotting Technique   : ";plot$
 1930 PRINT"(N) Number of Iterations : ";i%
 1940 PRINT"(G) Gradual iterating    : ";gi$
 1950 PRINT"(C) Circular/Flat        : ";cf$
 1960 PRINT"(H) Horizontal Squeeze   : ";hs$
 1970 PRINT"(V) Vertical Squeeze     : ";vs$
 1980 PRINT'"(E) Exit"
 1990 :
 2000 A$=CHR$(GET AND &DF)
 2010 IF A$="P" THEN
 2020  s%=1
 2030  IF p$="L" plot$="Points":p$="P":s%=0
 2040  IF p$="P" AND s%=1 plot$="Filled Triangles":p$="F":s%=0
 2050  IF p$="F" AND s%=1 plot$="Lines":p$="L":s%=0
 2060 ENDIF
 2070 IF A$="N" i%+=1:IF i%=16:i%=2
 2080 IF A$="G" THEN
 2090  IF gi$="ON" gi$="OFF" ELSE gi$="ON"
 2100 ENDIF
 2110 IF A$="C" THEN
 2120  IF rot%=0 rot%=1:cf$="Circular" ELSE rot%=0:cf$="Flat"
 2130 ENDIF
 2140 IF A$="H" THEN
 2150  IF hs$="ON" hs$="OFF" ELSE hs$="ON"
 2160 ENDIF
 2170 IF A$="V" THEN
 2180  IF vs$="ON" vs$="OFF" ELSE vs$="ON"
 2190 ENDIF
 2200UNTIL A$="E"
 2210ENDPROC
 2220
 2230DEFPROCmenu
 2240LOCAL n%,f%
 2250:
 2260CLS
 2270PRINT"MENU"''
 2280FOR n%=1 TO fracs%
 2290 PRINT;n%;")";TAB(4);frac$(n%)
 2300NEXT
 2310REPEAT:INPUT''"Which fractal would you like? :"f%:UNTIL f%>=1 AND f%<=fracs%
 2320p=fdata%(f%,0,0)
 2330FOR n%=1 TO p
 2340 line%(n%,1)=fdata%(f%,n%,1)
 2350 line%(n%,2)=fdata%(f%,n%,2)
 2360NEXT
 2370ENDPROC
 2380
 2390DEFPROCread_fractal_data
 2400LOCAL n%,nn%
 2410:
 2420DATA "Simple Hill",2, 640,192, 1280,0
 2430DATA "Koch curve",4, 427,0, 640,295, 853,0, 1280,0
 2440DATA "3/2 curve",8, 320,0, 320,320, 640,320, 640,0, 640,-320, 960,-320, 960,0, 1280,0
 2450DATA "Quaternary Dragon",13, 0,256, 256,256, 256,512, 512,512, 512,256, 512,0, 768,0, 768,-256, 778,-512, 1024,-512, 1024,-256, 1280,-256, 1280,0
 2460DATA "FRAC",37, 64,0, 64,320, 256,320, 256,256, 128,256, 128,192, 256,192, 256,128, 128,128, 128,0, 384,0
 2470DATA  384,320, 512,320, 576,256, 576,192, 512,128, 576,64, 576,0, 704,0, 704,256, 768,320, 832,320, 896,256
 2480DATA  896,0, 1088,0, 1024,64, 1024,256, 1088,320, 1216,320, 1216,256, 1120,256, 1088,224, 1088,96, 1120,64
 2490DATA  1216,64, 1216,0, 1280,0
 2500DATA "",1,0,0
 2510:
 2520DIM frac$(100),fdata%(100,50,2)
 2530:
 2540n%=0
 2550REPEAT
 2560 n%+=1
 2570 READ frac$(n%)
 2580 READ fdata%(n%,0,0)
 2590 FOR nn%=1 TO fdata%(n%,0,0)
 2600  READ fdata%(n%,nn%,1),fdata%(n%,nn%,2)
 2610 NEXT
 2620UNTIL frac$(n%)=""
 2630fracs%=n%-1
 2640ENDPROC


� *** LineFract
$� *** Written by Dean Alexandrou

(P� � :�8:� �-1 �"I Hope you had fun!"'''':� � :� �<>17 :�:� �:�: � :� �=17 :�
2
<�20
F� 15,255,255,255
P� 14,255,255,240
Z� 13,255,255,220
d� 12,255,255,200
n� 11,255,220,200
x� 10,255,180,200
�� 9,255,120,200
�� 8,255,40,200
�� 7,240,0,200
�� 6,220,0,190
�� 5,200,0,180
�� 4,170,0,170
�� 3,130,0,160
�� 2,80,0,140
�� 1,0,0,100
�
� 0,0,0,0
��15
�:
�ȑ 0,512
p$="L"
	i%=15
gi$="ON"
"
rot%=0
,hs$="ON"
6vs$="ON"
@�read_fractal_data
J:
T�plot_screen
^:
hȗ �
r� line%(50,2),f(50,2)
|
lx=0:ly=0
�:
�p=0
��
�	 p+=1
� �
�  A$=�(�(0) � &DF)
�  ȗ x%,y%,z
�  x=x%:y=y%
�:  � �-1=0 x=(x%+16) � 32 * 32:y=(y%+16*�(y)) � 32 * 32
�.  �3,�(3)+11:� lx,ly,x,y:Ȗ:Ȗ:� lx,ly,x,y
�%  � (�(A$)=8 � �(A$)=127) � p>1 �
�   �:�plot_screen
�   p-=1:�draw_line_so_far
&   lx=line%(p-1,1):ly=line%(p-1,2)
  �
  � A$="O" �
&   �
0   �options
:   �
D   �plot_screen
N   �draw_line_so_far
X  �
b � z>0 � A$="M"
l* � �((1280-x)^2+y^2)<20 x=1280:y=0:z=1
v6 �0,15:� lx,ly,x,y:� lx+4,ly,x+4,y:� lx,ly+4,x,y+4
� line%(p,1)=x:line%(p,2)=y
� lx=x:ly=y
� �:ȗ x,y,zz:� zz=0
�� z=1 � A$="M"
�:
�� A$="M" �menu
�:
��
�:
�x=0:y=0
�� n%=1 � p
�" nx=line%(n%,1):ny=line%(n%,2)
� :
 � nx=x nx+=0.1
 � ny=y ny+=0.1
 xlen=nx-x:ylen=ny-y
  len=�(xlen*xlen+ylen*ylen)
* ang=�(�(ylen/xlen))
4' � ang<0 ang=�(ang)+90 � ang=90-ang
> � xlen<0 ang-=180
H :
R f(n%,1)=ang:f(n%,2)=len
\ :
f x=nx:y=ny
p�
z:
��
�:
�ȗ �
�� gi$="ON" gi%=1 � gi%=i%
�� deg=gi% � i%
�$ �0,0)"Level of iteration:";deg
� x=0:y=0:ad=0:d=deg
� col%=deg+15-i%
� �0,col%
�2 � rot%=0 �fractal(0,1280) � �cfractal(0,1280)
��
�	�:� �
��

��fractal(angoffset,len)
� n%,mf
$:
.ad+=1:mf=len/1280
8
� ad>=d �
B# � hs$="ON":px=x*0.8+128 � px=x
L � vs$="ON":py=y*0.8 � py=y
V � px,py:� px,py
` � n%=1 � p
jB  a=�(f(n%,1)+angoffset):x+=�(a)*f(n%,2)*mf:y+=�(a)*f(n%,2)*mf
t$  � hs$="ON":px=x*0.8+128 � px=x
~   � vs$="ON":py=y*0.8 � py=y
�  � p$="L" � px,py
�  � p$="F" �85,px,py
�#  � p$="P" � �px,y)=0 �69,px,py
� �
��
� � n%=1 � p
�/  �fractal(f(n%,1)+angoffset-90,f(n%,2)*mf)
� �
��
�	ad-=1
��
�
��cfractal(angoffset,len)

� n%,mf
:
ad+=1:mf=len/1280
(
� ad>=d �
2< c=x*0.28125:r%=y/2+256:a=�(c):px=�(a)*r%+640:py=�(a)*r%
< � px,py:� px,py
F � n%=1 � p
PB  a=�(f(n%,1)+angoffset):x+=�(a)*f(n%,2)*mf:y+=�(a)*f(n%,2)*mf
Z=  c=x*0.28125:r%=y/2+256:a=�(c):px=�(a)*r%+640:py=�(a)*r%
d  � p$="L" � px,py
n  � p$="F" �85,px,py
x#  � p$="P" � �px,y)=0 �69,px,py
� �
��
� � n%=1 � p
�0  �cfractal(f(n%,1)+angoffset-90,f(n%,2)*mf)
� �
��
�	ad-=1
��
�
���plot_screen
�� x%,y%
�:
�H�0,1:�y%=-512�512�32:�0,y%,1280,y%:�:�x%=0�1280�32:�x%,-512,x%,512:�
:
@�"Fractal Generator - written by Dean Alexandrou (Jan 1998)"
��''"Use the mouse to draw a fractal curve. Press a button to set the line."'"Finish by drawing to the White Circle. Alternatively, choose a fractal from the menu."
"��'"SHIFT   =  unlock grid"'"O       =  option screen"'"M       =  select fractal from Menu"'"ESCAPE  =  restarts"'"ESCAPE + SHIFT  =  quit"
,:
6H�0,3:�y%=-512�512�64:�0,y%,1280,y%:�:�x%=0�1280�64:�x%,-512,x%,512:�
@J�0,5:�y%=-512�512�128:�0,y%,1280,y%:�:�x%=0�1280�128:�x%,-512,x%,512:�
J=�0,11:�0,0,1280,0:�640,-512,640,512:�0,15:ȏ Ȑ 1280,0,24
T�
^
h��draw_line_so_far
r� n%,x,y,lx,ly
|:
�� p<2 �
�%� xx=OPENUP("RAM::RamDisc0.$.FD")
�� n%=1 � p-1
�& lx=line%(n%-1,1):ly=line%(n%-1,2)
�  x=line%(n%,1):y=line%(n%,2)
�!� s$=STR$(x)+","+STR$(y)+", "
�� BPUT#xx,s$
�6 �0,15:� lx,ly,x,y:� lx+4,ly,x+4,y:� lx,ly+4,x,y+4
��
�� CLOSE#xx
��
�
�
��options
� plot$,cf$,A$,s%
:
� p$="P" plot$="Points"
&%� p$="F" plot$="Filled Triangles"
0� p$="L" plot$="Lines"
::
D(� rot%=0 cf$="Flat" � cf$="Circular"
N:
X�
b �
l �15
v �"OPTIONS"
�* �'"(P) Plotting Technique   : ";plot$
�& �"(N) Number of Iterations : ";i%
�' �"(G) Gradual iterating    : ";gi$
�' �"(C) Circular/Flat        : ";cf$
�' �"(H) Horizontal Squeeze   : ";hs$
�' �"(V) Vertical Squeeze     : ";vs$
� �'"(E) Exit"
� :
� A$=�(� � &DF)
� � A$="P" �
�
  s%=1
�)  � p$="L" plot$="Points":p$="P":s%=0
�:  � p$="P" � s%=1 plot$="Filled Triangles":p$="F":s%=0
/  � p$="F" � s%=1 plot$="Lines":p$="L":s%=0
 �
  � A$="N" i%+=1:� i%=16:i%=2
  � A$="G" �
*%  � gi$="ON" gi$="OFF" � gi$="ON"
4 �
> � A$="C" �
H8  � rot%=0 rot%=1:cf$="Circular" � rot%=0:cf$="Flat"
R �
\ � A$="H" �
f%  � hs$="ON" hs$="OFF" � hs$="ON"
p �
z � A$="V" �
�%  � vs$="ON" vs$="OFF" � vs$="ON"
� �
�� A$="E"
��
�
�
��menu
�� n%,f%
�:
��
�
�"MENU"''
�� n%=1 � fracs%
� �;n%;")";�4);frac$(n%)
��
	A�:�''"Which fractal would you like? :"f%:� f%>=1 � f%<=fracs%
	p=fdata%(f%,0,0)
	� n%=1 � p
	$  line%(n%,1)=fdata%(f%,n%,1)
	.  line%(n%,2)=fdata%(f%,n%,2)
	8�
	B�
	L
	V��read_fractal_data
	`� n%,nn%
	j:
	t&� "Simple Hill",2, 640,192, 1280,0
	~3� "Koch curve",4, 427,0, 640,295, 853,0, 1280,0
	�V� "3/2 curve",8, 320,0, 320,320, 640,320, 640,0, 640,-320, 960,-320, 960,0, 1280,0
	��� "Quaternary Dragon",13, 0,256, 256,256, 256,512, 512,512, 512,256, 512,0, 768,0, 768,-256, 778,-512, 1024,-512, 1024,-256, 1280,-256, 1280,0
	�j� "FRAC",37, 64,0, 64,320, 256,320, 256,256, 128,256, 128,192, 256,192, 256,128, 128,128, 128,0, 384,0
	�l�  384,320, 512,320, 576,256, 576,192, 512,128, 576,64, 576,0, 704,0, 704,256, 768,320, 832,320, 896,256
	�k�  896,0, 1088,0, 1024,64, 1024,256, 1088,320, 1216,320, 1216,256, 1120,256, 1088,224, 1088,96, 1120,64
	��  1216,64, 1216,0, 1280,0
	�� "",1,0,0
	�:
	�!� frac$(100),fdata%(100,50,2)
	�:
	�n%=0
	��

 n%+=1

 � frac$(n%)
 � fdata%(n%,0,0)
 � nn%=1 � fdata%(n%,0,0)
()  � fdata%(n%,nn%,1),fdata%(n%,nn%,2)
2 �
<� frac$(n%)=""
Ffracs%=n%-1
P�
�

00000000  0d 00 0a 13 f4 20 2a 2a  2a 20 4c 69 6e 65 46 72  |..... *** LineFr|
00000010  61 63 74 0d 00 14 24 f4  20 2a 2a 2a 20 57 72 69  |act...$. *** Wri|
00000020  74 74 65 6e 20 62 79 20  44 65 61 6e 20 41 6c 65  |tten by Dean Ale|
00000030  78 61 6e 64 72 6f 75 0d  00 1e 04 0d 00 28 50 ee  |xandrou......(P.|
00000040  20 85 20 3a eb 38 3a e7  20 a6 2d 31 20 f1 22 49  | . :.8:. .-1 ."I|
00000050  20 48 6f 70 65 20 79 6f  75 20 68 61 64 20 66 75  | Hope you had fu|
00000060  6e 21 22 27 27 27 27 3a  e0 20 8b 20 3a e7 20 9f  |n!"'''':. . :. .|
00000070  3c 3e 31 37 20 3a f6 3a  f1 20 9e 3a e0 3a 20 8b  |<>17 :.:. .:.: .|
00000080  20 3a e7 20 9f 3d 31 37  20 3a f9 0d 00 32 04 0d  | :. .=17 :...2..|
00000090  00 3c 07 eb 32 30 0d 00  46 14 fb 20 31 35 2c 32  |.<..20..F.. 15,2|
000000a0  35 35 2c 32 35 35 2c 32  35 35 0d 00 50 14 fb 20  |55,255,255..P.. |
000000b0  31 34 2c 32 35 35 2c 32  35 35 2c 32 34 30 0d 00  |14,255,255,240..|
000000c0  5a 14 fb 20 31 33 2c 32  35 35 2c 32 35 35 2c 32  |Z.. 13,255,255,2|
000000d0  32 30 0d 00 64 14 fb 20  31 32 2c 32 35 35 2c 32  |20..d.. 12,255,2|
000000e0  35 35 2c 32 30 30 0d 00  6e 14 fb 20 31 31 2c 32  |55,200..n.. 11,2|
000000f0  35 35 2c 32 32 30 2c 32  30 30 0d 00 78 14 fb 20  |55,220,200..x.. |
00000100  31 30 2c 32 35 35 2c 31  38 30 2c 32 30 30 0d 00  |10,255,180,200..|
00000110  82 13 fb 20 39 2c 32 35  35 2c 31 32 30 2c 32 30  |... 9,255,120,20|
00000120  30 0d 00 8c 12 fb 20 38  2c 32 35 35 2c 34 30 2c  |0..... 8,255,40,|
00000130  32 30 30 0d 00 96 11 fb  20 37 2c 32 34 30 2c 30  |200..... 7,240,0|
00000140  2c 32 30 30 0d 00 a0 11  fb 20 36 2c 32 32 30 2c  |,200..... 6,220,|
00000150  30 2c 31 39 30 0d 00 aa  11 fb 20 35 2c 32 30 30  |0,190..... 5,200|
00000160  2c 30 2c 31 38 30 0d 00  b4 11 fb 20 34 2c 31 37  |,0,180..... 4,17|
00000170  30 2c 30 2c 31 37 30 0d  00 be 11 fb 20 33 2c 31  |0,0,170..... 3,1|
00000180  33 30 2c 30 2c 31 36 30  0d 00 c8 10 fb 20 32 2c  |30,0,160..... 2,|
00000190  38 30 2c 30 2c 31 34 30  0d 00 d2 0f fb 20 31 2c  |80,0,140..... 1,|
000001a0  30 2c 30 2c 31 30 30 0d  00 dc 0d fb 20 30 2c 30  |0,0,100..... 0,0|
000001b0  2c 30 2c 30 0d 00 e6 07  fb 31 35 0d 00 f0 05 3a  |,0,0.....15....:|
000001c0  0d 00 fa 0c c8 91 20 30  2c 35 31 32 0d 01 04 0a  |...... 0,512....|
000001d0  70 24 3d 22 4c 22 0d 01  0e 09 69 25 3d 31 35 0d  |p$="L"....i%=15.|
000001e0  01 18 0c 67 69 24 3d 22  4f 4e 22 0d 01 22 0a 72  |...gi$="ON"..".r|
000001f0  6f 74 25 3d 30 0d 01 2c  0c 68 73 24 3d 22 4f 4e  |ot%=0..,.hs$="ON|
00000200  22 0d 01 36 0c 76 73 24  3d 22 4f 4e 22 0d 01 40  |"..6.vs$="ON"..@|
00000210  16 f2 72 65 61 64 5f 66  72 61 63 74 61 6c 5f 64  |..read_fractal_d|
00000220  61 74 61 0d 01 4a 05 3a  0d 01 54 10 f2 70 6c 6f  |ata..J.:..T..plo|
00000230  74 5f 73 63 72 65 65 6e  0d 01 5e 05 3a 0d 01 68  |t_screen..^.:..h|
00000240  08 c8 97 20 ee 0d 01 72  19 de 20 6c 69 6e 65 25  |... ...r.. line%|
00000250  28 35 30 2c 32 29 2c 66  28 35 30 2c 32 29 0d 01  |(50,2),f(50,2)..|
00000260  7c 0d 6c 78 3d 30 3a 6c  79 3d 30 0d 01 86 05 3a  ||.lx=0:ly=0....:|
00000270  0d 01 90 07 70 3d 30 0d  01 9a 05 f5 0d 01 a4 09  |....p=0.........|
00000280  20 70 2b 3d 31 0d 01 ae  06 20 f5 0d 01 b8 16 20  | p+=1.... ..... |
00000290  20 41 24 3d bd 28 a6 28  30 29 20 80 20 26 44 46  | A$=.(.(0) . &DF|
000002a0  29 0d 01 c2 10 20 20 c8  97 20 78 25 2c 79 25 2c  |)....  .. x%,y%,|
000002b0  7a 0d 01 cc 0f 20 20 78  3d 78 25 3a 79 3d 79 25  |z....  x=x%:y=y%|
000002c0  0d 01 d6 3a 20 20 e7 20  a6 2d 31 3d 30 20 78 3d  |...:  . .-1=0 x=|
000002d0  28 78 25 2b 31 36 29 20  81 20 33 32 20 2a 20 33  |(x%+16) . 32 * 3|
000002e0  32 3a 79 3d 28 79 25 2b  31 36 2a b4 28 79 29 29  |2:y=(y%+16*.(y))|
000002f0  20 81 20 33 32 20 2a 20  33 32 0d 01 e0 2e 20 20  | . 32 * 32....  |
00000300  e6 33 2c b3 28 33 29 2b  31 31 3a 86 20 6c 78 2c  |.3,.(3)+11:. lx,|
00000310  6c 79 2c 78 2c 79 3a c8  96 3a c8 96 3a 86 20 6c  |ly,x,y:..:..:. l|
00000320  78 2c 6c 79 2c 78 2c 79  0d 01 ea 25 20 20 e7 20  |x,ly,x,y...%  . |
00000330  28 97 28 41 24 29 3d 38  20 84 20 97 28 41 24 29  |(.(A$)=8 . .(A$)|
00000340  3d 31 32 37 29 20 80 20  70 3e 31 20 8c 0d 01 f4  |=127) . p>1 ....|
00000350  15 20 20 20 db 3a f2 70  6c 6f 74 5f 73 63 72 65  |.   .:.plot_scre|
00000360  65 6e 0d 01 fe 1d 20 20  20 70 2d 3d 31 3a f2 64  |en....   p-=1:.d|
00000370  72 61 77 5f 6c 69 6e 65  5f 73 6f 5f 66 61 72 0d  |raw_line_so_far.|
00000380  02 08 26 20 20 20 6c 78  3d 6c 69 6e 65 25 28 70  |..&   lx=line%(p|
00000390  2d 31 2c 31 29 3a 6c 79  3d 6c 69 6e 65 25 28 70  |-1,1):ly=line%(p|
000003a0  2d 31 2c 32 29 0d 02 12  07 20 20 cd 0d 02 1c 10  |-1,2)....  .....|
000003b0  20 20 e7 20 41 24 3d 22  4f 22 20 8c 0d 02 26 08  |  . A$="O" ...&.|
000003c0  20 20 20 db 0d 02 30 0f  20 20 20 f2 6f 70 74 69  |   ...0.   .opti|
000003d0  6f 6e 73 0d 02 3a 08 20  20 20 db 0d 02 44 13 20  |ons..:.   ...D. |
000003e0  20 20 f2 70 6c 6f 74 5f  73 63 72 65 65 6e 0d 02  |  .plot_screen..|
000003f0  4e 18 20 20 20 f2 64 72  61 77 5f 6c 69 6e 65 5f  |N.   .draw_line_|
00000400  73 6f 5f 66 61 72 0d 02  58 07 20 20 cd 0d 02 62  |so_far..X.  ...b|
00000410  13 20 fd 20 7a 3e 30 20  84 20 41 24 3d 22 4d 22  |. . z>0 . A$="M"|
00000420  0d 02 6c 2a 20 e7 20 b6  28 28 31 32 38 30 2d 78  |..l* . .((1280-x|
00000430  29 5e 32 2b 79 5e 32 29  3c 32 30 20 78 3d 31 32  |)^2+y^2)<20 x=12|
00000440  38 30 3a 79 3d 30 3a 7a  3d 31 0d 02 76 36 20 e6  |80:y=0:z=1..v6 .|
00000450  30 2c 31 35 3a 86 20 6c  78 2c 6c 79 2c 78 2c 79  |0,15:. lx,ly,x,y|
00000460  3a 86 20 6c 78 2b 34 2c  6c 79 2c 78 2b 34 2c 79  |:. lx+4,ly,x+4,y|
00000470  3a 86 20 6c 78 2c 6c 79  2b 34 2c 78 2c 79 2b 34  |:. lx,ly+4,x,y+4|
00000480  0d 02 80 1e 20 6c 69 6e  65 25 28 70 2c 31 29 3d  |.... line%(p,1)=|
00000490  78 3a 6c 69 6e 65 25 28  70 2c 32 29 3d 79 0d 02  |x:line%(p,2)=y..|
000004a0  8a 0e 20 6c 78 3d 78 3a  6c 79 3d 79 0d 02 94 17  |.. lx=x:ly=y....|
000004b0  20 f5 3a c8 97 20 78 2c  79 2c 7a 7a 3a fd 20 7a  | .:.. x,y,zz:. z|
000004c0  7a 3d 30 0d 02 9e 12 fd  20 7a 3d 31 20 84 20 41  |z=0..... z=1 . A|
000004d0  24 3d 22 4d 22 0d 02 a8  05 3a 0d 02 b2 12 e7 20  |$="M"....:..... |
000004e0  41 24 3d 22 4d 22 20 f2  6d 65 6e 75 0d 02 bc 05  |A$="M" .menu....|
000004f0  3a 0d 02 c6 05 db 0d 02  d0 05 3a 0d 02 da 0b 78  |:.........:....x|
00000500  3d 30 3a 79 3d 30 0d 02  e4 0e e3 20 6e 25 3d 31  |=0:y=0..... n%=1|
00000510  20 b8 20 70 0d 02 ee 22  20 6e 78 3d 6c 69 6e 65  | . p..." nx=line|
00000520  25 28 6e 25 2c 31 29 3a  6e 79 3d 6c 69 6e 65 25  |%(n%,1):ny=line%|
00000530  28 6e 25 2c 32 29 0d 02  f8 06 20 3a 0d 03 02 13  |(n%,2).... :....|
00000540  20 e7 20 6e 78 3d 78 20  6e 78 2b 3d 30 2e 31 0d  | . nx=x nx+=0.1.|
00000550  03 0c 13 20 e7 20 6e 79  3d 79 20 6e 79 2b 3d 30  |... . ny=y ny+=0|
00000560  2e 31 0d 03 16 18 20 78  6c 65 6e 3d 6e 78 2d 78  |.1.... xlen=nx-x|
00000570  3a 79 6c 65 6e 3d 6e 79  2d 79 0d 03 20 1f 20 6c  |:ylen=ny-y.. . l|
00000580  65 6e 3d b6 28 78 6c 65  6e 2a 78 6c 65 6e 2b 79  |en=.(xlen*xlen+y|
00000590  6c 65 6e 2a 79 6c 65 6e  29 0d 03 2a 18 20 61 6e  |len*ylen)..*. an|
000005a0  67 3d 9d 28 99 28 79 6c  65 6e 2f 78 6c 65 6e 29  |g=.(.(ylen/xlen)|
000005b0  29 0d 03 34 27 20 e7 20  61 6e 67 3c 30 20 61 6e  |)..4' . ang<0 an|
000005c0  67 3d 94 28 61 6e 67 29  2b 39 30 20 8b 20 61 6e  |g=.(ang)+90 . an|
000005d0  67 3d 39 30 2d 61 6e 67  0d 03 3e 16 20 e7 20 78  |g=90-ang..>. . x|
000005e0  6c 65 6e 3c 30 20 61 6e  67 2d 3d 31 38 30 0d 03  |len<0 ang-=180..|
000005f0  48 06 20 3a 0d 03 52 1c  20 66 28 6e 25 2c 31 29  |H. :..R. f(n%,1)|
00000600  3d 61 6e 67 3a 66 28 6e  25 2c 32 29 3d 6c 65 6e  |=ang:f(n%,2)=len|
00000610  0d 03 5c 06 20 3a 0d 03  66 0e 20 78 3d 6e 78 3a  |..\. :..f. x=nx:|
00000620  79 3d 6e 79 0d 03 70 05  ed 0d 03 7a 05 3a 0d 03  |y=ny..p....z.:..|
00000630  84 05 db 0d 03 8e 05 3a  0d 03 98 08 c8 97 20 87  |.......:...... .|
00000640  0d 03 a2 1d e7 20 67 69  24 3d 22 4f 4e 22 20 67  |..... gi$="ON" g|
00000650  69 25 3d 31 20 8b 20 67  69 25 3d 69 25 0d 03 ac  |i%=1 . gi%=i%...|
00000660  12 e3 20 64 65 67 3d 67  69 25 20 b8 20 69 25 0d  |.. deg=gi% . i%.|
00000670  03 b6 24 20 f1 8a 30 2c  30 29 22 4c 65 76 65 6c  |..$ ..0,0)"Level|
00000680  20 6f 66 20 69 74 65 72  61 74 69 6f 6e 3a 22 3b  | of iteration:";|
00000690  64 65 67 0d 03 c0 17 20  78 3d 30 3a 79 3d 30 3a  |deg.... x=0:y=0:|
000006a0  61 64 3d 30 3a 64 3d 64  65 67 0d 03 ca 13 20 63  |ad=0:d=deg.... c|
000006b0  6f 6c 25 3d 64 65 67 2b  31 35 2d 69 25 0d 03 d4  |ol%=deg+15-i%...|
000006c0  0c 20 e6 30 2c 63 6f 6c  25 0d 03 de 32 20 e7 20  |. .0,col%...2 . |
000006d0  72 6f 74 25 3d 30 20 f2  66 72 61 63 74 61 6c 28  |rot%=0 .fractal(|
000006e0  30 2c 31 32 38 30 29 20  8b 20 f2 63 66 72 61 63  |0,1280) . .cfrac|
000006f0  74 61 6c 28 30 2c 31 32  38 30 29 0d 03 e8 05 ed  |tal(0,1280).....|
00000700  0d 03 f2 09 f5 3a fd 20  a3 0d 03 fc 05 e0 0d 04  |.....:. ........|
00000710  06 04 0d 04 10 1c dd f2  66 72 61 63 74 61 6c 28  |........fractal(|
00000720  61 6e 67 6f 66 66 73 65  74 2c 6c 65 6e 29 0d 04  |angoffset,len)..|
00000730  1a 0b ea 20 6e 25 2c 6d  66 0d 04 24 05 3a 0d 04  |... n%,mf..$.:..|
00000740  2e 15 61 64 2b 3d 31 3a  6d 66 3d 6c 65 6e 2f 31  |..ad+=1:mf=len/1|
00000750  32 38 30 0d 04 38 0d e7  20 61 64 3e 3d 64 20 8c  |280..8.. ad>=d .|
00000760  0d 04 42 23 20 e7 20 68  73 24 3d 22 4f 4e 22 3a  |..B# . hs$="ON":|
00000770  70 78 3d 78 2a 30 2e 38  2b 31 32 38 20 8b 20 70  |px=x*0.8+128 . p|
00000780  78 3d 78 0d 04 4c 1f 20  e7 20 76 73 24 3d 22 4f  |x=x..L. . vs$="O|
00000790  4e 22 3a 70 79 3d 79 2a  30 2e 38 20 8b 20 70 79  |N":py=y*0.8 . py|
000007a0  3d 79 0d 04 56 14 20 ec  20 70 78 2c 70 79 3a ec  |=y..V. . px,py:.|
000007b0  20 70 78 2c 70 79 0d 04  60 0f 20 e3 20 6e 25 3d  | px,py..`. . n%=|
000007c0  31 20 b8 20 70 0d 04 6a  42 20 20 61 3d b2 28 66  |1 . p..jB  a=.(f|
000007d0  28 6e 25 2c 31 29 2b 61  6e 67 6f 66 66 73 65 74  |(n%,1)+angoffset|
000007e0  29 3a 78 2b 3d b5 28 61  29 2a 66 28 6e 25 2c 32  |):x+=.(a)*f(n%,2|
000007f0  29 2a 6d 66 3a 79 2b 3d  9b 28 61 29 2a 66 28 6e  |)*mf:y+=.(a)*f(n|
00000800  25 2c 32 29 2a 6d 66 0d  04 74 24 20 20 e7 20 68  |%,2)*mf..t$  . h|
00000810  73 24 3d 22 4f 4e 22 3a  70 78 3d 78 2a 30 2e 38  |s$="ON":px=x*0.8|
00000820  2b 31 32 38 20 8b 20 70  78 3d 78 0d 04 7e 20 20  |+128 . px=x..~  |
00000830  20 e7 20 76 73 24 3d 22  4f 4e 22 3a 70 79 3d 79  | . vs$="ON":py=y|
00000840  2a 30 2e 38 20 8b 20 70  79 3d 79 0d 04 88 16 20  |*0.8 . py=y.... |
00000850  20 e7 20 70 24 3d 22 4c  22 20 df 20 70 78 2c 70  | . p$="L" . px,p|
00000860  79 0d 04 92 18 20 20 e7  20 70 24 3d 22 46 22 20  |y....  . p$="F" |
00000870  f0 38 35 2c 70 78 2c 70  79 0d 04 9c 23 20 20 e7  |.85,px,py...#  .|
00000880  20 70 24 3d 22 50 22 20  80 20 b0 70 78 2c 79 29  | p$="P" . .px,y)|
00000890  3d 30 20 f0 36 39 2c 70  78 2c 70 79 0d 04 a6 06  |=0 .69,px,py....|
000008a0  20 ed 0d 04 b0 05 cc 0d  04 ba 0f 20 e3 20 6e 25  | .......... . n%|
000008b0  3d 31 20 b8 20 70 0d 04  c4 2f 20 20 f2 66 72 61  |=1 . p.../  .fra|
000008c0  63 74 61 6c 28 66 28 6e  25 2c 31 29 2b 61 6e 67  |ctal(f(n%,1)+ang|
000008d0  6f 66 66 73 65 74 2d 39  30 2c 66 28 6e 25 2c 32  |offset-90,f(n%,2|
000008e0  29 2a 6d 66 29 0d 04 ce  06 20 ed 0d 04 d8 05 cd  |)*mf).... ......|
000008f0  0d 04 e2 09 61 64 2d 3d  31 0d 04 ec 05 e1 0d 04  |....ad-=1.......|
00000900  f6 04 0d 05 00 1d dd f2  63 66 72 61 63 74 61 6c  |........cfractal|
00000910  28 61 6e 67 6f 66 66 73  65 74 2c 6c 65 6e 29 0d  |(angoffset,len).|
00000920  05 0a 0b ea 20 6e 25 2c  6d 66 0d 05 14 05 3a 0d  |.... n%,mf....:.|
00000930  05 1e 15 61 64 2b 3d 31  3a 6d 66 3d 6c 65 6e 2f  |...ad+=1:mf=len/|
00000940  31 32 38 30 0d 05 28 0d  e7 20 61 64 3e 3d 64 20  |1280..(.. ad>=d |
00000950  8c 0d 05 32 3c 20 63 3d  78 2a 30 2e 32 38 31 32  |...2< c=x*0.2812|
00000960  35 3a 72 25 3d 79 2f 32  2b 32 35 36 3a 61 3d b2  |5:r%=y/2+256:a=.|
00000970  28 63 29 3a 70 78 3d b5  28 61 29 2a 72 25 2b 36  |(c):px=.(a)*r%+6|
00000980  34 30 3a 70 79 3d 9b 28  61 29 2a 72 25 0d 05 3c  |40:py=.(a)*r%..<|
00000990  14 20 ec 20 70 78 2c 70  79 3a ec 20 70 78 2c 70  |. . px,py:. px,p|
000009a0  79 0d 05 46 0f 20 e3 20  6e 25 3d 31 20 b8 20 70  |y..F. . n%=1 . p|
000009b0  0d 05 50 42 20 20 61 3d  b2 28 66 28 6e 25 2c 31  |..PB  a=.(f(n%,1|
000009c0  29 2b 61 6e 67 6f 66 66  73 65 74 29 3a 78 2b 3d  |)+angoffset):x+=|
000009d0  b5 28 61 29 2a 66 28 6e  25 2c 32 29 2a 6d 66 3a  |.(a)*f(n%,2)*mf:|
000009e0  79 2b 3d 9b 28 61 29 2a  66 28 6e 25 2c 32 29 2a  |y+=.(a)*f(n%,2)*|
000009f0  6d 66 0d 05 5a 3d 20 20  63 3d 78 2a 30 2e 32 38  |mf..Z=  c=x*0.28|
00000a00  31 32 35 3a 72 25 3d 79  2f 32 2b 32 35 36 3a 61  |125:r%=y/2+256:a|
00000a10  3d b2 28 63 29 3a 70 78  3d b5 28 61 29 2a 72 25  |=.(c):px=.(a)*r%|
00000a20  2b 36 34 30 3a 70 79 3d  9b 28 61 29 2a 72 25 0d  |+640:py=.(a)*r%.|
00000a30  05 64 16 20 20 e7 20 70  24 3d 22 4c 22 20 df 20  |.d.  . p$="L" . |
00000a40  70 78 2c 70 79 0d 05 6e  18 20 20 e7 20 70 24 3d  |px,py..n.  . p$=|
00000a50  22 46 22 20 f0 38 35 2c  70 78 2c 70 79 0d 05 78  |"F" .85,px,py..x|
00000a60  23 20 20 e7 20 70 24 3d  22 50 22 20 80 20 b0 70  |#  . p$="P" . .p|
00000a70  78 2c 79 29 3d 30 20 f0  36 39 2c 70 78 2c 70 79  |x,y)=0 .69,px,py|
00000a80  0d 05 82 06 20 ed 0d 05  8c 05 cc 0d 05 96 0f 20  |.... .......... |
00000a90  e3 20 6e 25 3d 31 20 b8  20 70 0d 05 a0 30 20 20  |. n%=1 . p...0  |
00000aa0  f2 63 66 72 61 63 74 61  6c 28 66 28 6e 25 2c 31  |.cfractal(f(n%,1|
00000ab0  29 2b 61 6e 67 6f 66 66  73 65 74 2d 39 30 2c 66  |)+angoffset-90,f|
00000ac0  28 6e 25 2c 32 29 2a 6d  66 29 0d 05 aa 06 20 ed  |(n%,2)*mf).... .|
00000ad0  0d 05 b4 05 cd 0d 05 be  09 61 64 2d 3d 31 0d 05  |.........ad-=1..|
00000ae0  c8 05 e1 0d 05 d2 04 0d  05 dc 11 dd f2 70 6c 6f  |.............plo|
00000af0  74 5f 73 63 72 65 65 6e  0d 05 e6 0b ea 20 78 25  |t_screen..... x%|
00000b00  2c 79 25 0d 05 f0 05 3a  0d 05 fa 48 e6 30 2c 31  |,y%....:...H.0,1|
00000b10  3a e3 79 25 3d 2d 35 31  32 b8 35 31 32 88 33 32  |:.y%=-512.512.32|
00000b20  3a 86 30 2c 79 25 2c 31  32 38 30 2c 79 25 3a ed  |:.0,y%,1280,y%:.|
00000b30  3a e3 78 25 3d 30 b8 31  32 38 30 88 33 32 3a 86  |:.x%=0.1280.32:.|
00000b40  78 25 2c 2d 35 31 32 2c  78 25 2c 35 31 32 3a ed  |x%,-512,x%,512:.|
00000b50  0d 06 04 05 3a 0d 06 0e  40 f1 22 46 72 61 63 74  |....:...@."Fract|
00000b60  61 6c 20 47 65 6e 65 72  61 74 6f 72 20 2d 20 77  |al Generator - w|
00000b70  72 69 74 74 65 6e 20 62  79 20 44 65 61 6e 20 41  |ritten by Dean A|
00000b80  6c 65 78 61 6e 64 72 6f  75 20 28 4a 61 6e 20 31  |lexandrou (Jan 1|
00000b90  39 39 38 29 22 0d 06 18  a7 f1 27 27 22 55 73 65  |998)".....''"Use|
00000ba0  20 74 68 65 20 6d 6f 75  73 65 20 74 6f 20 64 72  | the mouse to dr|
00000bb0  61 77 20 61 20 66 72 61  63 74 61 6c 20 63 75 72  |aw a fractal cur|
00000bc0  76 65 2e 20 50 72 65 73  73 20 61 20 62 75 74 74  |ve. Press a butt|
00000bd0  6f 6e 20 74 6f 20 73 65  74 20 74 68 65 20 6c 69  |on to set the li|
00000be0  6e 65 2e 22 27 22 46 69  6e 69 73 68 20 62 79 20  |ne."'"Finish by |
00000bf0  64 72 61 77 69 6e 67 20  74 6f 20 74 68 65 20 57  |drawing to the W|
00000c00  68 69 74 65 20 43 69 72  63 6c 65 2e 20 41 6c 74  |hite Circle. Alt|
00000c10  65 72 6e 61 74 69 76 65  6c 79 2c 20 63 68 6f 6f  |ernatively, choo|
00000c20  73 65 20 61 20 66 72 61  63 74 61 6c 20 66 72 6f  |se a fractal fro|
00000c30  6d 20 74 68 65 20 6d 65  6e 75 2e 22 0d 06 22 8f  |m the menu."..".|
00000c40  f1 27 22 53 48 49 46 54  20 20 20 3d 20 20 75 6e  |.'"SHIFT   =  un|
00000c50  6c 6f 63 6b 20 67 72 69  64 22 27 22 4f 20 20 20  |lock grid"'"O   |
00000c60  20 20 20 20 3d 20 20 6f  70 74 69 6f 6e 20 73 63  |    =  option sc|
00000c70  72 65 65 6e 22 27 22 4d  20 20 20 20 20 20 20 3d  |reen"'"M       =|
00000c80  20 20 73 65 6c 65 63 74  20 66 72 61 63 74 61 6c  |  select fractal|
00000c90  20 66 72 6f 6d 20 4d 65  6e 75 22 27 22 45 53 43  | from Menu"'"ESC|
00000ca0  41 50 45 20 20 3d 20 20  72 65 73 74 61 72 74 73  |APE  =  restarts|
00000cb0  22 27 22 45 53 43 41 50  45 20 2b 20 53 48 49 46  |"'"ESCAPE + SHIF|
00000cc0  54 20 20 3d 20 20 71 75  69 74 22 0d 06 2c 05 3a  |T  =  quit"..,.:|
00000cd0  0d 06 36 48 e6 30 2c 33  3a e3 79 25 3d 2d 35 31  |..6H.0,3:.y%=-51|
00000ce0  32 b8 35 31 32 88 36 34  3a 86 30 2c 79 25 2c 31  |2.512.64:.0,y%,1|
00000cf0  32 38 30 2c 79 25 3a ed  3a e3 78 25 3d 30 b8 31  |280,y%:.:.x%=0.1|
00000d00  32 38 30 88 36 34 3a 86  78 25 2c 2d 35 31 32 2c  |280.64:.x%,-512,|
00000d10  78 25 2c 35 31 32 3a ed  0d 06 40 4a e6 30 2c 35  |x%,512:...@J.0,5|
00000d20  3a e3 79 25 3d 2d 35 31  32 b8 35 31 32 88 31 32  |:.y%=-512.512.12|
00000d30  38 3a 86 30 2c 79 25 2c  31 32 38 30 2c 79 25 3a  |8:.0,y%,1280,y%:|
00000d40  ed 3a e3 78 25 3d 30 b8  31 32 38 30 88 31 32 38  |.:.x%=0.1280.128|
00000d50  3a 86 78 25 2c 2d 35 31  32 2c 78 25 2c 35 31 32  |:.x%,-512,x%,512|
00000d60  3a ed 0d 06 4a 3d e6 30  2c 31 31 3a 86 30 2c 30  |:...J=.0,11:.0,0|
00000d70  2c 31 32 38 30 2c 30 3a  86 36 34 30 2c 2d 35 31  |,1280,0:.640,-51|
00000d80  32 2c 36 34 30 2c 35 31  32 3a e6 30 2c 31 35 3a  |2,640,512:.0,15:|
00000d90  c8 8f 20 c8 90 20 31 32  38 30 2c 30 2c 32 34 0d  |.. .. 1280,0,24.|
00000da0  06 54 05 e1 0d 06 5e 04  0d 06 68 16 dd f2 64 72  |.T....^...h...dr|
00000db0  61 77 5f 6c 69 6e 65 5f  73 6f 5f 66 61 72 0d 06  |aw_line_so_far..|
00000dc0  72 12 ea 20 6e 25 2c 78  2c 79 2c 6c 78 2c 6c 79  |r.. n%,x,y,lx,ly|
00000dd0  0d 06 7c 05 3a 0d 06 86  0b e7 20 70 3c 32 20 e1  |..|.:..... p<2 .|
00000de0  0d 06 90 25 f4 20 78 78  3d 4f 50 45 4e 55 50 28  |...%. xx=OPENUP(|
00000df0  22 52 41 4d 3a 3a 52 61  6d 44 69 73 63 30 2e 24  |"RAM::RamDisc0.$|
00000e00  2e 46 44 22 29 0d 06 9a  10 e3 20 6e 25 3d 31 20  |.FD")..... n%=1 |
00000e10  b8 20 70 2d 31 0d 06 a4  26 20 6c 78 3d 6c 69 6e  |. p-1...& lx=lin|
00000e20  65 25 28 6e 25 2d 31 2c  31 29 3a 6c 79 3d 6c 69  |e%(n%-1,1):ly=li|
00000e30  6e 65 25 28 6e 25 2d 31  2c 32 29 0d 06 ae 20 20  |ne%(n%-1,2)...  |
00000e40  78 3d 6c 69 6e 65 25 28  6e 25 2c 31 29 3a 79 3d  |x=line%(n%,1):y=|
00000e50  6c 69 6e 65 25 28 6e 25  2c 32 29 0d 06 b8 21 f4  |line%(n%,2)...!.|
00000e60  20 73 24 3d 53 54 52 24  28 78 29 2b 22 2c 22 2b  | s$=STR$(x)+","+|
00000e70  53 54 52 24 28 79 29 2b  22 2c 20 22 0d 06 c2 10  |STR$(y)+", "....|
00000e80  f4 20 42 50 55 54 23 78  78 2c 73 24 0d 06 cc 36  |. BPUT#xx,s$...6|
00000e90  20 e6 30 2c 31 35 3a 86  20 6c 78 2c 6c 79 2c 78  | .0,15:. lx,ly,x|
00000ea0  2c 79 3a 86 20 6c 78 2b  34 2c 6c 79 2c 78 2b 34  |,y:. lx+4,ly,x+4|
00000eb0  2c 79 3a 86 20 6c 78 2c  6c 79 2b 34 2c 78 2c 79  |,y:. lx,ly+4,x,y|
00000ec0  2b 34 0d 06 d6 05 ed 0d  06 e0 0e f4 20 43 4c 4f  |+4.......... CLO|
00000ed0  53 45 23 78 78 0d 06 ea  05 e1 0d 06 f4 04 0d 06  |SE#xx...........|
00000ee0  fe 0d dd f2 6f 70 74 69  6f 6e 73 0d 07 08 15 ea  |....options.....|
00000ef0  20 70 6c 6f 74 24 2c 63  66 24 2c 41 24 2c 73 25  | plot$,cf$,A$,s%|
00000f00  0d 07 12 05 3a 0d 07 1c  1b e7 20 70 24 3d 22 50  |....:..... p$="P|
00000f10  22 20 70 6c 6f 74 24 3d  22 50 6f 69 6e 74 73 22  |" plot$="Points"|
00000f20  0d 07 26 25 e7 20 70 24  3d 22 46 22 20 70 6c 6f  |..&%. p$="F" plo|
00000f30  74 24 3d 22 46 69 6c 6c  65 64 20 54 72 69 61 6e  |t$="Filled Trian|
00000f40  67 6c 65 73 22 0d 07 30  1a e7 20 70 24 3d 22 4c  |gles"..0.. p$="L|
00000f50  22 20 70 6c 6f 74 24 3d  22 4c 69 6e 65 73 22 0d  |" plot$="Lines".|
00000f60  07 3a 05 3a 0d 07 44 28  e7 20 72 6f 74 25 3d 30  |.:.:..D(. rot%=0|
00000f70  20 63 66 24 3d 22 46 6c  61 74 22 20 8b 20 63 66  | cf$="Flat" . cf|
00000f80  24 3d 22 43 69 72 63 75  6c 61 72 22 0d 07 4e 05  |$="Circular"..N.|
00000f90  3a 0d 07 58 05 f5 0d 07  62 06 20 db 0d 07 6c 08  |:..X....b. ...l.|
00000fa0  20 fb 31 35 0d 07 76 0f  20 f1 22 4f 50 54 49 4f  | .15..v. ."OPTIO|
00000fb0  4e 53 22 0d 07 80 2a 20  f1 27 22 28 50 29 20 50  |NS"...* .'"(P) P|
00000fc0  6c 6f 74 74 69 6e 67 20  54 65 63 68 6e 69 71 75  |lotting Techniqu|
00000fd0  65 20 20 20 3a 20 22 3b  70 6c 6f 74 24 0d 07 8a  |e   : ";plot$...|
00000fe0  26 20 f1 22 28 4e 29 20  4e 75 6d 62 65 72 20 6f  |& ."(N) Number o|
00000ff0  66 20 49 74 65 72 61 74  69 6f 6e 73 20 3a 20 22  |f Iterations : "|
00001000  3b 69 25 0d 07 94 27 20  f1 22 28 47 29 20 47 72  |;i%...' ."(G) Gr|
00001010  61 64 75 61 6c 20 69 74  65 72 61 74 69 6e 67 20  |adual iterating |
00001020  20 20 20 3a 20 22 3b 67  69 24 0d 07 9e 27 20 f1  |   : ";gi$...' .|
00001030  22 28 43 29 20 43 69 72  63 75 6c 61 72 2f 46 6c  |"(C) Circular/Fl|
00001040  61 74 20 20 20 20 20 20  20 20 3a 20 22 3b 63 66  |at        : ";cf|
00001050  24 0d 07 a8 27 20 f1 22  28 48 29 20 48 6f 72 69  |$...' ."(H) Hori|
00001060  7a 6f 6e 74 61 6c 20 53  71 75 65 65 7a 65 20 20  |zontal Squeeze  |
00001070  20 3a 20 22 3b 68 73 24  0d 07 b2 27 20 f1 22 28  | : ";hs$...' ."(|
00001080  56 29 20 56 65 72 74 69  63 61 6c 20 53 71 75 65  |V) Vertical Sque|
00001090  65 7a 65 20 20 20 20 20  3a 20 22 3b 76 73 24 0d  |eze     : ";vs$.|
000010a0  07 bc 11 20 f1 27 22 28  45 29 20 45 78 69 74 22  |... .'"(E) Exit"|
000010b0  0d 07 c6 06 20 3a 0d 07  d0 12 20 41 24 3d bd 28  |.... :.... A$=.(|
000010c0  a5 20 80 20 26 44 46 29  0d 07 da 0f 20 e7 20 41  |. . &DF).... . A|
000010d0  24 3d 22 50 22 20 8c 0d  07 e4 0a 20 20 73 25 3d  |$="P" .....  s%=|
000010e0  31 0d 07 ee 29 20 20 e7  20 70 24 3d 22 4c 22 20  |1...)  . p$="L" |
000010f0  70 6c 6f 74 24 3d 22 50  6f 69 6e 74 73 22 3a 70  |plot$="Points":p|
00001100  24 3d 22 50 22 3a 73 25  3d 30 0d 07 f8 3a 20 20  |$="P":s%=0...:  |
00001110  e7 20 70 24 3d 22 50 22  20 80 20 73 25 3d 31 20  |. p$="P" . s%=1 |
00001120  70 6c 6f 74 24 3d 22 46  69 6c 6c 65 64 20 54 72  |plot$="Filled Tr|
00001130  69 61 6e 67 6c 65 73 22  3a 70 24 3d 22 46 22 3a  |iangles":p$="F":|
00001140  73 25 3d 30 0d 08 02 2f  20 20 e7 20 70 24 3d 22  |s%=0.../  . p$="|
00001150  46 22 20 80 20 73 25 3d  31 20 70 6c 6f 74 24 3d  |F" . s%=1 plot$=|
00001160  22 4c 69 6e 65 73 22 3a  70 24 3d 22 4c 22 3a 73  |"Lines":p$="L":s|
00001170  25 3d 30 0d 08 0c 06 20  cd 0d 08 16 20 20 e7 20  |%=0.... ....  . |
00001180  41 24 3d 22 4e 22 20 69  25 2b 3d 31 3a e7 20 69  |A$="N" i%+=1:. i|
00001190  25 3d 31 36 3a 69 25 3d  32 0d 08 20 0f 20 e7 20  |%=16:i%=2.. . . |
000011a0  41 24 3d 22 47 22 20 8c  0d 08 2a 25 20 20 e7 20  |A$="G" ...*%  . |
000011b0  67 69 24 3d 22 4f 4e 22  20 67 69 24 3d 22 4f 46  |gi$="ON" gi$="OF|
000011c0  46 22 20 8b 20 67 69 24  3d 22 4f 4e 22 0d 08 34  |F" . gi$="ON"..4|
000011d0  06 20 cd 0d 08 3e 0f 20  e7 20 41 24 3d 22 43 22  |. ...>. . A$="C"|
000011e0  20 8c 0d 08 48 38 20 20  e7 20 72 6f 74 25 3d 30  | ...H8  . rot%=0|
000011f0  20 72 6f 74 25 3d 31 3a  63 66 24 3d 22 43 69 72  | rot%=1:cf$="Cir|
00001200  63 75 6c 61 72 22 20 8b  20 72 6f 74 25 3d 30 3a  |cular" . rot%=0:|
00001210  63 66 24 3d 22 46 6c 61  74 22 0d 08 52 06 20 cd  |cf$="Flat"..R. .|
00001220  0d 08 5c 0f 20 e7 20 41  24 3d 22 48 22 20 8c 0d  |..\. . A$="H" ..|
00001230  08 66 25 20 20 e7 20 68  73 24 3d 22 4f 4e 22 20  |.f%  . hs$="ON" |
00001240  68 73 24 3d 22 4f 46 46  22 20 8b 20 68 73 24 3d  |hs$="OFF" . hs$=|
00001250  22 4f 4e 22 0d 08 70 06  20 cd 0d 08 7a 0f 20 e7  |"ON"..p. ...z. .|
00001260  20 41 24 3d 22 56 22 20  8c 0d 08 84 25 20 20 e7  | A$="V" ....%  .|
00001270  20 76 73 24 3d 22 4f 4e  22 20 76 73 24 3d 22 4f  | vs$="ON" vs$="O|
00001280  46 46 22 20 8b 20 76 73  24 3d 22 4f 4e 22 0d 08  |FF" . vs$="ON"..|
00001290  8e 06 20 cd 0d 08 98 0c  fd 20 41 24 3d 22 45 22  |.. ...... A$="E"|
000012a0  0d 08 a2 05 e1 0d 08 ac  04 0d 08 b6 0a dd f2 6d  |...............m|
000012b0  65 6e 75 0d 08 c0 0b ea  20 6e 25 2c 66 25 0d 08  |enu..... n%,f%..|
000012c0  ca 05 3a 0d 08 d4 05 db  0d 08 de 0d f1 22 4d 45  |..:.........."ME|
000012d0  4e 55 22 27 27 0d 08 e8  13 e3 20 6e 25 3d 31 20  |NU"''..... n%=1 |
000012e0  b8 20 66 72 61 63 73 25  0d 08 f2 1b 20 f1 3b 6e  |. fracs%.... .;n|
000012f0  25 3b 22 29 22 3b 8a 34  29 3b 66 72 61 63 24 28  |%;")";.4);frac$(|
00001300  6e 25 29 0d 08 fc 05 ed  0d 09 06 41 f5 3a e8 27  |n%)........A.:.'|
00001310  27 22 57 68 69 63 68 20  66 72 61 63 74 61 6c 20  |'"Which fractal |
00001320  77 6f 75 6c 64 20 79 6f  75 20 6c 69 6b 65 3f 20  |would you like? |
00001330  3a 22 66 25 3a fd 20 66  25 3e 3d 31 20 80 20 66  |:"f%:. f%>=1 . f|
00001340  25 3c 3d 66 72 61 63 73  25 0d 09 10 14 70 3d 66  |%<=fracs%....p=f|
00001350  64 61 74 61 25 28 66 25  2c 30 2c 30 29 0d 09 1a  |data%(f%,0,0)...|
00001360  0e e3 20 6e 25 3d 31 20  b8 20 70 0d 09 24 20 20  |.. n%=1 . p..$  |
00001370  6c 69 6e 65 25 28 6e 25  2c 31 29 3d 66 64 61 74  |line%(n%,1)=fdat|
00001380  61 25 28 66 25 2c 6e 25  2c 31 29 0d 09 2e 20 20  |a%(f%,n%,1)...  |
00001390  6c 69 6e 65 25 28 6e 25  2c 32 29 3d 66 64 61 74  |line%(n%,2)=fdat|
000013a0  61 25 28 66 25 2c 6e 25  2c 32 29 0d 09 38 05 ed  |a%(f%,n%,2)..8..|
000013b0  0d 09 42 05 e1 0d 09 4c  04 0d 09 56 17 dd f2 72  |..B....L...V...r|
000013c0  65 61 64 5f 66 72 61 63  74 61 6c 5f 64 61 74 61  |ead_fractal_data|
000013d0  0d 09 60 0c ea 20 6e 25  2c 6e 6e 25 0d 09 6a 05  |..`.. n%,nn%..j.|
000013e0  3a 0d 09 74 26 dc 20 22  53 69 6d 70 6c 65 20 48  |:..t&. "Simple H|
000013f0  69 6c 6c 22 2c 32 2c 20  36 34 30 2c 31 39 32 2c  |ill",2, 640,192,|
00001400  20 31 32 38 30 2c 30 0d  09 7e 33 dc 20 22 4b 6f  | 1280,0..~3. "Ko|
00001410  63 68 20 63 75 72 76 65  22 2c 34 2c 20 34 32 37  |ch curve",4, 427|
00001420  2c 30 2c 20 36 34 30 2c  32 39 35 2c 20 38 35 33  |,0, 640,295, 853|
00001430  2c 30 2c 20 31 32 38 30  2c 30 0d 09 88 56 dc 20  |,0, 1280,0...V. |
00001440  22 33 2f 32 20 63 75 72  76 65 22 2c 38 2c 20 33  |"3/2 curve",8, 3|
00001450  32 30 2c 30 2c 20 33 32  30 2c 33 32 30 2c 20 36  |20,0, 320,320, 6|
00001460  34 30 2c 33 32 30 2c 20  36 34 30 2c 30 2c 20 36  |40,320, 640,0, 6|
00001470  34 30 2c 2d 33 32 30 2c  20 39 36 30 2c 2d 33 32  |40,-320, 960,-32|
00001480  30 2c 20 39 36 30 2c 30  2c 20 31 32 38 30 2c 30  |0, 960,0, 1280,0|
00001490  0d 09 92 92 dc 20 22 51  75 61 74 65 72 6e 61 72  |..... "Quaternar|
000014a0  79 20 44 72 61 67 6f 6e  22 2c 31 33 2c 20 30 2c  |y Dragon",13, 0,|
000014b0  32 35 36 2c 20 32 35 36  2c 32 35 36 2c 20 32 35  |256, 256,256, 25|
000014c0  36 2c 35 31 32 2c 20 35  31 32 2c 35 31 32 2c 20  |6,512, 512,512, |
000014d0  35 31 32 2c 32 35 36 2c  20 35 31 32 2c 30 2c 20  |512,256, 512,0, |
000014e0  37 36 38 2c 30 2c 20 37  36 38 2c 2d 32 35 36 2c  |768,0, 768,-256,|
000014f0  20 37 37 38 2c 2d 35 31  32 2c 20 31 30 32 34 2c  | 778,-512, 1024,|
00001500  2d 35 31 32 2c 20 31 30  32 34 2c 2d 32 35 36 2c  |-512, 1024,-256,|
00001510  20 31 32 38 30 2c 2d 32  35 36 2c 20 31 32 38 30  | 1280,-256, 1280|
00001520  2c 30 0d 09 9c 6a dc 20  22 46 52 41 43 22 2c 33  |,0...j. "FRAC",3|
00001530  37 2c 20 36 34 2c 30 2c  20 36 34 2c 33 32 30 2c  |7, 64,0, 64,320,|
00001540  20 32 35 36 2c 33 32 30  2c 20 32 35 36 2c 32 35  | 256,320, 256,25|
00001550  36 2c 20 31 32 38 2c 32  35 36 2c 20 31 32 38 2c  |6, 128,256, 128,|
00001560  31 39 32 2c 20 32 35 36  2c 31 39 32 2c 20 32 35  |192, 256,192, 25|
00001570  36 2c 31 32 38 2c 20 31  32 38 2c 31 32 38 2c 20  |6,128, 128,128, |
00001580  31 32 38 2c 30 2c 20 33  38 34 2c 30 0d 09 a6 6c  |128,0, 384,0...l|
00001590  dc 20 20 33 38 34 2c 33  32 30 2c 20 35 31 32 2c  |.  384,320, 512,|
000015a0  33 32 30 2c 20 35 37 36  2c 32 35 36 2c 20 35 37  |320, 576,256, 57|
000015b0  36 2c 31 39 32 2c 20 35  31 32 2c 31 32 38 2c 20  |6,192, 512,128, |
000015c0  35 37 36 2c 36 34 2c 20  35 37 36 2c 30 2c 20 37  |576,64, 576,0, 7|
000015d0  30 34 2c 30 2c 20 37 30  34 2c 32 35 36 2c 20 37  |04,0, 704,256, 7|
000015e0  36 38 2c 33 32 30 2c 20  38 33 32 2c 33 32 30 2c  |68,320, 832,320,|
000015f0  20 38 39 36 2c 32 35 36  0d 09 b0 6b dc 20 20 38  | 896,256...k.  8|
00001600  39 36 2c 30 2c 20 31 30  38 38 2c 30 2c 20 31 30  |96,0, 1088,0, 10|
00001610  32 34 2c 36 34 2c 20 31  30 32 34 2c 32 35 36 2c  |24,64, 1024,256,|
00001620  20 31 30 38 38 2c 33 32  30 2c 20 31 32 31 36 2c  | 1088,320, 1216,|
00001630  33 32 30 2c 20 31 32 31  36 2c 32 35 36 2c 20 31  |320, 1216,256, 1|
00001640  31 32 30 2c 32 35 36 2c  20 31 30 38 38 2c 32 32  |120,256, 1088,22|
00001650  34 2c 20 31 30 38 38 2c  39 36 2c 20 31 31 32 30  |4, 1088,96, 1120|
00001660  2c 36 34 0d 09 ba 1e dc  20 20 31 32 31 36 2c 36  |,64.....  1216,6|
00001670  34 2c 20 31 32 31 36 2c  30 2c 20 31 32 38 30 2c  |4, 1216,0, 1280,|
00001680  30 0d 09 c4 0e dc 20 22  22 2c 31 2c 30 2c 30 0d  |0..... "",1,0,0.|
00001690  09 ce 05 3a 0d 09 d8 21  de 20 66 72 61 63 24 28  |...:...!. frac$(|
000016a0  31 30 30 29 2c 66 64 61  74 61 25 28 31 30 30 2c  |100),fdata%(100,|
000016b0  35 30 2c 32 29 0d 09 e2  05 3a 0d 09 ec 08 6e 25  |50,2)....:....n%|
000016c0  3d 30 0d 09 f6 05 f5 0d  0a 00 0a 20 6e 25 2b 3d  |=0......... n%+=|
000016d0  31 0d 0a 0a 10 20 f3 20  66 72 61 63 24 28 6e 25  |1.... . frac$(n%|
000016e0  29 0d 0a 14 15 20 f3 20  66 64 61 74 61 25 28 6e  |).... . fdata%(n|
000016f0  25 2c 30 2c 30 29 0d 0a  1e 1d 20 e3 20 6e 6e 25  |%,0,0).... . nn%|
00001700  3d 31 20 b8 20 66 64 61  74 61 25 28 6e 25 2c 30  |=1 . fdata%(n%,0|
00001710  2c 30 29 0d 0a 28 29 20  20 f3 20 66 64 61 74 61  |,0)..()  . fdata|
00001720  25 28 6e 25 2c 6e 6e 25  2c 31 29 2c 66 64 61 74  |%(n%,nn%,1),fdat|
00001730  61 25 28 6e 25 2c 6e 6e  25 2c 32 29 0d 0a 32 06  |a%(n%,nn%,2)..2.|
00001740  20 ed 0d 0a 3c 12 fd 20  66 72 61 63 24 28 6e 25  | ...<.. frac$(n%|
00001750  29 3d 22 22 0d 0a 46 0f  66 72 61 63 73 25 3d 6e  |)=""..F.fracs%=n|
00001760  25 2d 31 0d 0a 50 05 e1  0d ff                    |%-1..P....|
0000176a

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .