!AWAug91/Goodies/TurtleGRFX/STriang

Home » Archimedes archive » Archimedes World » AW-1991-08.adf » August91 » !AWAug91/Goodies/TurtleGRFX/STriang

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 » Archimedes World » AW-1991-08.adf » August91
Filename:	!AWAug91/Goodies/TurtleGRFX/STriang
Read OK:	✔
File size:	0579 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM>STriang
   20
   30REM   Program: STriang v1.01 10 Mar 1991
   40REM   Author:  I.M.Kinghan 1991
   50REM   Purpose: Draw Sierpinski Triangle using Turtle Graphics.
   55REM   Copyright: Archimedes World August 1991
   60
   70LIBRARY "$.TurtleGRFX.TurtleGRFX"
   80MODE 15
   90GCOL 0,128
  100TINT 3,192
  110ON: CLG
  120
  130INPUT "Level,1-8",Level%
  140IF Level%<1 THEN Level%=1
  150IF Level%>8 THEN Level%=8
  160INPUT "Show Turtle (y/n)",turtle$
  170OFF :CLG
  180
  190PROCtstart
  200PROCtgcol(0,63)
  210IF turtle$="y" OR turtle$="Y" THEN PROCtshow
  220PROCInitSTriang
  230PROCSTriang(X1,Y1,X2,Y2,Level%,Sign%,Size%)
  240END
  250
  260DEFPROCInitSTriang
  270X1=100
  280Y1=100
  290X2=590
  300Y2=950
  310Sign%=1
  320Size%=3
  330ENDPROC
  340
  350DEFFNStep(x1,y1,x2,y2)
  360=(SQR((x2-x1)^2+(y2-y1)^2))/2
  370
  380DEFPROCSTriang(x1,y1,x2,y2,level%,sign%,size%)
  390LOCAL _TurtleStack(),step,sign_%,i%
  400
  410DIM _TurtleStack(size%,3)
  420_TurtleGen%=-1
  430_TurtleStack%=TRUE
  440
  450step=FNStep(x1,y1,x2,y2)
  460level%-=1
  470PROCtpen(0)
  480PROCtto(x1,y1)
  490PROCtrecord
  500PROCtalign(x1,y1,x2,y2)
  510PROCtturn(60*sign%)
  520PROCtgo(step)
  530PROCtrecord
  540PROCtturn(-60*sign%)
  550PROCtgo(step)
  560PROCtrecord
  570PROCtto(x2,y2)
  580PROCtrecord
  590sign%=-1*sign%
  600IF level%=0 THEN
  610   PROCtdo(_TurtleStack(),0,size%,1)
  620ELSE
  630   sign_%=sign%
  640   FOR i%=0 TO size%-1
  650      x1=_TurtleStack(i%,0)
  660      x2=_TurtleStack(i%+1,0)
  670      y1=_TurtleStack(i%,1)
  680      y2=_TurtleStack(i%+1,1)
  690      PROCSTriang(x1,y1,x2,y2,level%,sign_%,size%)
  700      sign_%=sign_%*-1
  710   NEXT
  720ENDIF
  730ENDPROC


�>STriang

*�   Program: STriang v1.01 10 Mar 1991
(!�   Author:  I.M.Kinghan 1991
2@�   Purpose: Draw Sierpinski Triangle using Turtle Graphics.
7/�   Copyright: Archimedes World August 1991
<
F ț "$.TurtleGRFX.TurtleGRFX"
P� 15
Z� 0,128
dȜ 3,192
n�: �
x
�� "Level,1-8",Level%
�� Level%<1 � Level%=1
�� Level%>8 � Level%=8
�!� "Show Turtle (y/n)",turtle$
�� :�
�
��tstart
��tgcol(0,63)
�(� turtle$="y" � turtle$="Y" � �tshow
��InitSTriang
�,�STriang(X1,Y1,X2,Y2,Level%,Sign%,Size%)
��
�
��InitSTriang

X1=100

Y1=100
"
X2=590
,
Y2=950
6Sign%=1
@Size%=3
J�
T
^ݤStep(x1,y1,x2,y2)
h=(�((x2-x1)^2+(y2-y1)^2))/2
r
|-��STriang(x1,y1,x2,y2,level%,sign%,size%)
�#� _TurtleStack(),step,sign_%,i%
�
�� _TurtleStack(size%,3)
�_TurtleGen%=-1
�_TurtleStack%=�
�
�step=�Step(x1,y1,x2,y2)
�
level%-=1
��tpen(0)
��tto(x1,y1)
��trecord
��talign(x1,y1,x2,y2)
��tturn(60*sign%)
�tgo(step)
�trecord
�tturn(-60*sign%)
&�tgo(step)
0�trecord
:�tto(x2,y2)
D�trecord
Nsign%=-1*sign%
X� level%=0 �
b%   �tdo(_TurtleStack(),0,size%,1)
l�
v   sign_%=sign%
�   � i%=0 � size%-1
�      x1=_TurtleStack(i%,0)
�!      x2=_TurtleStack(i%+1,0)
�      y1=_TurtleStack(i%,1)
�!      y2=_TurtleStack(i%+1,1)
�3      �STriang(x1,y1,x2,y2,level%,sign_%,size%)
�      sign_%=sign_%*-1
�   �
��
��
�

00000000  0d 00 0a 0d f4 3e 53 54  72 69 61 6e 67 0d 00 14  |.....>STriang...|
00000010  04 0d 00 1e 2a f4 20 20  20 50 72 6f 67 72 61 6d  |....*.   Program|
00000020  3a 20 53 54 72 69 61 6e  67 20 76 31 2e 30 31 20  |: STriang v1.01 |
00000030  31 30 20 4d 61 72 20 31  39 39 31 0d 00 28 21 f4  |10 Mar 1991..(!.|
00000040  20 20 20 41 75 74 68 6f  72 3a 20 20 49 2e 4d 2e  |   Author:  I.M.|
00000050  4b 69 6e 67 68 61 6e 20  31 39 39 31 0d 00 32 40  |Kinghan 1991..2@|
00000060  f4 20 20 20 50 75 72 70  6f 73 65 3a 20 44 72 61  |.   Purpose: Dra|
00000070  77 20 53 69 65 72 70 69  6e 73 6b 69 20 54 72 69  |w Sierpinski Tri|
00000080  61 6e 67 6c 65 20 75 73  69 6e 67 20 54 75 72 74  |angle using Turt|
00000090  6c 65 20 47 72 61 70 68  69 63 73 2e 0d 00 37 2f  |le Graphics...7/|
000000a0  f4 20 20 20 43 6f 70 79  72 69 67 68 74 3a 20 41  |.   Copyright: A|
000000b0  72 63 68 69 6d 65 64 65  73 20 57 6f 72 6c 64 20  |rchimedes World |
000000c0  41 75 67 75 73 74 20 31  39 39 31 0d 00 3c 04 0d  |August 1991..<..|
000000d0  00 46 20 c8 9b 20 22 24  2e 54 75 72 74 6c 65 47  |.F .. "$.TurtleG|
000000e0  52 46 58 2e 54 75 72 74  6c 65 47 52 46 58 22 0d  |RFX.TurtleGRFX".|
000000f0  00 50 08 eb 20 31 35 0d  00 5a 0b e6 20 30 2c 31  |.P.. 15..Z.. 0,1|
00000100  32 38 0d 00 64 0c c8 9c  20 33 2c 31 39 32 0d 00  |28..d... 3,192..|
00000110  6e 08 ee 3a 20 da 0d 00  78 04 0d 00 82 18 e8 20  |n..: ...x...... |
00000120  22 4c 65 76 65 6c 2c 31  2d 38 22 2c 4c 65 76 65  |"Level,1-8",Leve|
00000130  6c 25 0d 00 8c 19 e7 20  4c 65 76 65 6c 25 3c 31  |l%..... Level%<1|
00000140  20 8c 20 4c 65 76 65 6c  25 3d 31 0d 00 96 19 e7  | . Level%=1.....|
00000150  20 4c 65 76 65 6c 25 3e  38 20 8c 20 4c 65 76 65  | Level%>8 . Leve|
00000160  6c 25 3d 38 0d 00 a0 21  e8 20 22 53 68 6f 77 20  |l%=8...!. "Show |
00000170  54 75 72 74 6c 65 20 28  79 2f 6e 29 22 2c 74 75  |Turtle (y/n)",tu|
00000180  72 74 6c 65 24 0d 00 aa  08 87 20 3a da 0d 00 b4  |rtle$..... :....|
00000190  04 0d 00 be 0b f2 74 73  74 61 72 74 0d 00 c8 10  |......tstart....|
000001a0  f2 74 67 63 6f 6c 28 30  2c 36 33 29 0d 00 d2 28  |.tgcol(0,63)...(|
000001b0  e7 20 74 75 72 74 6c 65  24 3d 22 79 22 20 84 20  |. turtle$="y" . |
000001c0  74 75 72 74 6c 65 24 3d  22 59 22 20 8c 20 f2 74  |turtle$="Y" . .t|
000001d0  73 68 6f 77 0d 00 dc 10  f2 49 6e 69 74 53 54 72  |show.....InitSTr|
000001e0  69 61 6e 67 0d 00 e6 2c  f2 53 54 72 69 61 6e 67  |iang...,.STriang|
000001f0  28 58 31 2c 59 31 2c 58  32 2c 59 32 2c 4c 65 76  |(X1,Y1,X2,Y2,Lev|
00000200  65 6c 25 2c 53 69 67 6e  25 2c 53 69 7a 65 25 29  |el%,Sign%,Size%)|
00000210  0d 00 f0 05 e0 0d 00 fa  04 0d 01 04 11 dd f2 49  |...............I|
00000220  6e 69 74 53 54 72 69 61  6e 67 0d 01 0e 0a 58 31  |nitSTriang....X1|
00000230  3d 31 30 30 0d 01 18 0a  59 31 3d 31 30 30 0d 01  |=100....Y1=100..|
00000240  22 0a 58 32 3d 35 39 30  0d 01 2c 0a 59 32 3d 39  |".X2=590..,.Y2=9|
00000250  35 30 0d 01 36 0b 53 69  67 6e 25 3d 31 0d 01 40  |50..6.Sign%=1..@|
00000260  0b 53 69 7a 65 25 3d 33  0d 01 4a 05 e1 0d 01 54  |.Size%=3..J....T|
00000270  04 0d 01 5e 17 dd a4 53  74 65 70 28 78 31 2c 79  |...^...Step(x1,y|
00000280  31 2c 78 32 2c 79 32 29  0d 01 68 1f 3d 28 b6 28  |1,x2,y2)..h.=(.(|
00000290  28 78 32 2d 78 31 29 5e  32 2b 28 79 32 2d 79 31  |(x2-x1)^2+(y2-y1|
000002a0  29 5e 32 29 29 2f 32 0d  01 72 04 0d 01 7c 2d dd  |)^2))/2..r...|-.|
000002b0  f2 53 54 72 69 61 6e 67  28 78 31 2c 79 31 2c 78  |.STriang(x1,y1,x|
000002c0  32 2c 79 32 2c 6c 65 76  65 6c 25 2c 73 69 67 6e  |2,y2,level%,sign|
000002d0  25 2c 73 69 7a 65 25 29  0d 01 86 23 ea 20 5f 54  |%,size%)...#. _T|
000002e0  75 72 74 6c 65 53 74 61  63 6b 28 29 2c 73 74 65  |urtleStack(),ste|
000002f0  70 2c 73 69 67 6e 5f 25  2c 69 25 0d 01 90 04 0d  |p,sign_%,i%.....|
00000300  01 9a 1b de 20 5f 54 75  72 74 6c 65 53 74 61 63  |.... _TurtleStac|
00000310  6b 28 73 69 7a 65 25 2c  33 29 0d 01 a4 12 5f 54  |k(size%,3)...._T|
00000320  75 72 74 6c 65 47 65 6e  25 3d 2d 31 0d 01 ae 13  |urtleGen%=-1....|
00000330  5f 54 75 72 74 6c 65 53  74 61 63 6b 25 3d b9 0d  |_TurtleStack%=..|
00000340  01 b8 04 0d 01 c2 1b 73  74 65 70 3d a4 53 74 65  |.......step=.Ste|
00000350  70 28 78 31 2c 79 31 2c  78 32 2c 79 32 29 0d 01  |p(x1,y1,x2,y2)..|
00000360  cc 0d 6c 65 76 65 6c 25  2d 3d 31 0d 01 d6 0c f2  |..level%-=1.....|
00000370  74 70 65 6e 28 30 29 0d  01 e0 0f f2 74 74 6f 28  |tpen(0).....tto(|
00000380  78 31 2c 79 31 29 0d 01  ea 0c f2 74 72 65 63 6f  |x1,y1).....treco|
00000390  72 64 0d 01 f4 18 f2 74  61 6c 69 67 6e 28 78 31  |rd.....talign(x1|
000003a0  2c 79 31 2c 78 32 2c 79  32 29 0d 01 fe 14 f2 74  |,y1,x2,y2).....t|
000003b0  74 75 72 6e 28 36 30 2a  73 69 67 6e 25 29 0d 02  |turn(60*sign%)..|
000003c0  08 0e f2 74 67 6f 28 73  74 65 70 29 0d 02 12 0c  |...tgo(step)....|
000003d0  f2 74 72 65 63 6f 72 64  0d 02 1c 15 f2 74 74 75  |.trecord.....ttu|
000003e0  72 6e 28 2d 36 30 2a 73  69 67 6e 25 29 0d 02 26  |rn(-60*sign%)..&|
000003f0  0e f2 74 67 6f 28 73 74  65 70 29 0d 02 30 0c f2  |..tgo(step)..0..|
00000400  74 72 65 63 6f 72 64 0d  02 3a 0f f2 74 74 6f 28  |trecord..:..tto(|
00000410  78 32 2c 79 32 29 0d 02  44 0c f2 74 72 65 63 6f  |x2,y2)..D..treco|
00000420  72 64 0d 02 4e 12 73 69  67 6e 25 3d 2d 31 2a 73  |rd..N.sign%=-1*s|
00000430  69 67 6e 25 0d 02 58 10  e7 20 6c 65 76 65 6c 25  |ign%..X.. level%|
00000440  3d 30 20 8c 0d 02 62 25  20 20 20 f2 74 64 6f 28  |=0 ...b%   .tdo(|
00000450  5f 54 75 72 74 6c 65 53  74 61 63 6b 28 29 2c 30  |_TurtleStack(),0|
00000460  2c 73 69 7a 65 25 2c 31  29 0d 02 6c 05 cc 0d 02  |,size%,1)..l....|
00000470  76 13 20 20 20 73 69 67  6e 5f 25 3d 73 69 67 6e  |v.   sign_%=sign|
00000480  25 0d 02 80 17 20 20 20  e3 20 69 25 3d 30 20 b8  |%....   . i%=0 .|
00000490  20 73 69 7a 65 25 2d 31  0d 02 8a 1f 20 20 20 20  | size%-1....    |
000004a0  20 20 78 31 3d 5f 54 75  72 74 6c 65 53 74 61 63  |  x1=_TurtleStac|
000004b0  6b 28 69 25 2c 30 29 0d  02 94 21 20 20 20 20 20  |k(i%,0)...!     |
000004c0  20 78 32 3d 5f 54 75 72  74 6c 65 53 74 61 63 6b  | x2=_TurtleStack|
000004d0  28 69 25 2b 31 2c 30 29  0d 02 9e 1f 20 20 20 20  |(i%+1,0)....    |
000004e0  20 20 79 31 3d 5f 54 75  72 74 6c 65 53 74 61 63  |  y1=_TurtleStac|
000004f0  6b 28 69 25 2c 31 29 0d  02 a8 21 20 20 20 20 20  |k(i%,1)...!     |
00000500  20 79 32 3d 5f 54 75 72  74 6c 65 53 74 61 63 6b  | y2=_TurtleStack|
00000510  28 69 25 2b 31 2c 31 29  0d 02 b2 33 20 20 20 20  |(i%+1,1)...3    |
00000520  20 20 f2 53 54 72 69 61  6e 67 28 78 31 2c 79 31  |  .STriang(x1,y1|
00000530  2c 78 32 2c 79 32 2c 6c  65 76 65 6c 25 2c 73 69  |,x2,y2,level%,si|
00000540  67 6e 5f 25 2c 73 69 7a  65 25 29 0d 02 bc 1a 20  |gn_%,size%).... |
00000550  20 20 20 20 20 73 69 67  6e 5f 25 3d 73 69 67 6e  |     sign_%=sign|
00000560  5f 25 2a 2d 31 0d 02 c6  08 20 20 20 ed 0d 02 d0  |_%*-1....   ....|
00000570  05 cd 0d 02 da 05 e1 0d  ff                       |.........|
00000579

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