!AWAug91/Goodies/TurtleGRFX/SnowHall

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

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/SnowHall
Read OK:	✔
File size:	0B6F bytes
Load address:	0000
Exec address:	0000

File contents

   10REM>SnowHall
   20
   30REM   Program: SnowHall v1.01 10-Mar-1991
   40REM   Author:  I.M.Kinghan 1991
   50REM   Purpose: Draw Peano Snowflake 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-4",Level%
  131IF Level%<1 THEN Level%=1
  132IF Level%>4 THEN Level%=4
  150INPUT "Show Turtle (y/n)",turtle$
  151OFF: CLG
  160
  170PROCtstart
  180PROCtgcol(0,127)
  190IF turtle$="y" OR turtle$="Y" THEN PROCtshow
  200PROCInitSnowHall(1000,300,-30,729,1,11,1)
  210PROCSnowHall(X1,Y1,X2,Y2,Level%,Type%,Sign%,Size%,_TurtleFCol%)
  220END
  230
  240DEFPROCInitSnowHall(xto,yto,angle,dist,sign%,size%,type%)
  250Size%=size%
  260Sign%=sign%
  270Type%=type%
  271PROCtpen(0)
  290PROCtjump(xto,yto,_TurtleAngle)
  300X1=_TurtleX
  310Y1=_TurtleY
  320PROCtturn(angle)
  330PROCtgo(dist)
  340X2=_TurtleX
  350Y2=_TurtleY
  360PROCthome
  370PROCtturn(angle)
  380ENDPROC
  390
  400DEFPROCSwap(RETURN x1,RETURN y1,RETURN x2,RETURN y2)
  410LOCAL temp
  420temp=x1
  430x1=x2
  440x2=temp
  450temp=y1
  460y1=y2
  470y2=temp
  480ENDPROC
  490
  500DEFFNStep(x1,y1,x2,y2)
  510=(SQR((x2-x1)^2+(y2-y1)^2))/3
  520
  530DEFPROCSnowHall(x1,y1,x2,y2,level%,type%,sign%,size%,colour%)
  540LOCAL _TurtleStack()
  550LOCAL j%,newtype%,step,p%
  560
  570DIM _TurtleStack(size%,3)
  580_TurtleGen%=-1
  590_TurtleStack%=TRUE
  600
  610PROCtgcol(0,colour%)
  620PROCtpen(0)
  630CASE type% OF
  640WHEN 0
  650WHEN 1
  660   sign%=-sign%
  670WHEN 2
  680   sign%=-sign%
  690   PROCSwap(x1,y1,x2,y2)
  700WHEN 3
  710   PROCSwap(x1,y1,x2,y2)
  720ENDCASE
  730level%-=1
  740step=FNStep(x1,y1,x2,y2):
  750PROCtto(x2,y2)
  760PROCtmemset(10)
  770PROCtrecord
  780PROCtjump(x1,y1,_TurtleAngle)
  790PROCtmemset(-1)
  800PROCtrecord
  810PROCtpoint(x2,y2)
  820PROCtturn(60*sign%)
  830PROCtgo(step)
  840PROCtrecord
  850PROCtgo(step)
  860PROCtrecord
  870PROCtturn(-60*sign%)
  880PROCtgo(step)
  890PROCtrecord
  900PROCtturn(-60*sign%)
  910PROCtgo(step)
  920PROCtrecord
  930PROCtturn(-120*sign%)
  940PROCtgo(step)
  950PROCtturn(60*sign%)
  960PROCtgo(step)
  970PROCtmemset(8)
  980PROCtrecord
  990PROCtturn(120*sign%)
 1000PROCtgo(step)
 1010PROCtrecord
 1020step=FNStep(_TurtleStack(4,0),_TurtleStack(4,1),_TurtleStack(9,0),_TurtleStack(9,1))
 1030PROCtjump(_TurtleStack(4,0),_TurtleStack(4,1),_TurtleAngle)
 1040PROCtpoint(_TurtleStack(9,0),_TurtleStack(9,1))
 1050PROCtturn(-60*sign%)
 1060PROCtgo(step)
 1070PROCtmemset(4)
 1080PROCtrecord
 1090PROCtgo(step)
 1100PROCtrecord
 1110PROCtturn(60*sign%)
 1120PROCtgo(step)
 1130PROCtrecord
 1140PROCtturn(60*sign%)
 1150PROCtgo(step)
 1160PROCtrecord
 1170IF level%=0 THEN
 1180   PROCtdo(_TurtleStack(),0,size%,1)
 1190   ENDPROC
 1200ENDIF
 1210FOR j%=0 TO size%-1
 1220   CASE level% OF
 1230   WHEN 1
 1240      CASE j% OF
 1250      WHEN 2,8,10
 1260         newtype%=0
 1270      WHEN 0,5
 1280         newtype%=1
 1290      WHEN 1,3,4
 1300         newtype%=2
 1310      WHEN 6,7,9
 1320         newtype%=3
 1330      ENDCASE
 1340   OTHERWISE
 1350      CASE j% OF
 1360      WHEN 2,8,10
 1370         newtype%=0
 1380      WHEN 0
 1390         newtype%=1
 1400      WHEN 1,3,4
 1410         newtype%=2
 1420      WHEN 5,6,7,9
 1430         newtype%=3
 1440      ENDCASE
 1450   ENDCASE
 1460   x1=_TurtleStack(j%,0)
 1470   x2=_TurtleStack(j%+1,0)
 1480   y1=_TurtleStack(j%,1)
 1490   y2=_TurtleStack(j%+1,1)
 1500   colour%-=4
 1510   PROCSnowHall(x1,y1,x2,y2,level%,newtype%,sign%,size%,colour%)
 1520NEXT
 1530ENDPROC


�>SnowHall

+�   Program: SnowHall v1.01 10-Mar-1991
(!�   Author:  I.M.Kinghan 1991
2;�   Purpose: Draw Peano Snowflake using Turtle Graphics
7/�   Copyright: Archimedes World August 1991
<
F ț "$.TurtleGRFX.TurtleGRFX"
P� 15
Z� 0,128
dȜ 3,192
n�: �
x
�� "Level,1-4",Level%
�� Level%<1 � Level%=1
�� Level%>4 � Level%=4
�!� "Show Turtle (y/n)",turtle$
��: �
�
��tstart
��tgcol(0,127)
�(� turtle$="y" � turtle$="Y" � �tshow
�*�InitSnowHall(1000,300,-30,729,1,11,1)
�@�SnowHall(X1,Y1,X2,Y2,Level%,Type%,Sign%,Size%,_TurtleFCol%)
��
�
�8��InitSnowHall(xto,yto,angle,dist,sign%,size%,type%)
�Size%=size%
Sign%=sign%
Type%=type%
�tpen(0)
" �tjump(xto,yto,_TurtleAngle)
,X1=_TurtleX
6Y1=_TurtleY
@�tturn(angle)
J�tgo(dist)
TX2=_TurtleX
^Y2=_TurtleY
h
�thome
r�tturn(angle)
|�
�
���Swap(� x1,� y1,� x2,� y2)
�
� temp
�temp=x1
�	x1=x2
�x2=temp
�temp=y1
�	y1=y2
�y2=temp
��
�
�ݤStep(x1,y1,x2,y2)
�=(�((x2-x1)^2+(y2-y1)^2))/3

<��SnowHall(x1,y1,x2,y2,level%,type%,sign%,size%,colour%)
� _TurtleStack()
&� j%,newtype%,step,p%
0
:� _TurtleStack(size%,3)
D_TurtleGen%=-1
N_TurtleStack%=�
X
b�tgcol(0,colour%)
l�tpen(0)
vȎ type% �
�� 0
�� 1
�   sign%=-sign%
�� 2
�   sign%=-sign%
�   �Swap(x1,y1,x2,y2)
�� 3
�   �Swap(x1,y1,x2,y2)
��
�
level%-=1
�step=�Step(x1,y1,x2,y2):
��tto(x2,y2)
��tmemset(10)
�trecord
�tjump(x1,y1,_TurtleAngle)
�tmemset(-1)
 �trecord
*�tpoint(x2,y2)
4�tturn(60*sign%)
>�tgo(step)
H�trecord
R�tgo(step)
\�trecord
f�tturn(-60*sign%)
p�tgo(step)
z�trecord
��tturn(-60*sign%)
��tgo(step)
��trecord
��tturn(-120*sign%)
��tgo(step)
��tturn(60*sign%)
��tgo(step)
��tmemset(8)
��trecord
��tturn(120*sign%)
��tgo(step)
��trecord
�Wstep=�Step(_TurtleStack(4,0),_TurtleStack(4,1),_TurtleStack(9,0),_TurtleStack(9,1))
<�tjump(_TurtleStack(4,0),_TurtleStack(4,1),_TurtleAngle)
0�tpoint(_TurtleStack(9,0),_TurtleStack(9,1))
�tturn(-60*sign%)
$�tgo(step)
.�tmemset(4)
8�trecord
B�tgo(step)
L�trecord
V�tturn(60*sign%)
`�tgo(step)
j�trecord
t�tturn(60*sign%)
~�tgo(step)
��trecord
�� level%=0 �
�%   �tdo(_TurtleStack(),0,size%,1)
�   �
��
�� j%=0 � size%-1
�   Ȏ level% �
�
   � 1
�      Ȏ j% �
�      � 2,8,10
�         newtype%=0
�      � 0,5
         newtype%=1

      � 1,3,4
         newtype%=2
      � 6,7,9
(         newtype%=3
2      �
<   
F      Ȏ j% �
P      � 2,8,10
Z         newtype%=0
d
      � 0
n         newtype%=1
x      � 1,3,4
�         newtype%=2
�      � 5,6,7,9
�         newtype%=3
�      �
�   �
�   x1=_TurtleStack(j%,0)
�   x2=_TurtleStack(j%+1,0)
�   y1=_TurtleStack(j%,1)
�   y2=_TurtleStack(j%+1,1)
�   colour%-=4
�A   �SnowHall(x1,y1,x2,y2,level%,newtype%,sign%,size%,colour%)
��
��
�

00000000  0d 00 0a 0e f4 3e 53 6e  6f 77 48 61 6c 6c 0d 00  |.....>SnowHall..|
00000010  14 04 0d 00 1e 2b f4 20  20 20 50 72 6f 67 72 61  |.....+.   Progra|
00000020  6d 3a 20 53 6e 6f 77 48  61 6c 6c 20 76 31 2e 30  |m: SnowHall v1.0|
00000030  31 20 31 30 2d 4d 61 72  2d 31 39 39 31 0d 00 28  |1 10-Mar-1991..(|
00000040  21 f4 20 20 20 41 75 74  68 6f 72 3a 20 20 49 2e  |!.   Author:  I.|
00000050  4d 2e 4b 69 6e 67 68 61  6e 20 31 39 39 31 0d 00  |M.Kinghan 1991..|
00000060  32 3b f4 20 20 20 50 75  72 70 6f 73 65 3a 20 44  |2;.   Purpose: D|
00000070  72 61 77 20 50 65 61 6e  6f 20 53 6e 6f 77 66 6c  |raw Peano Snowfl|
00000080  61 6b 65 20 75 73 69 6e  67 20 54 75 72 74 6c 65  |ake using Turtle|
00000090  20 47 72 61 70 68 69 63  73 0d 00 37 2f f4 20 20  | Graphics..7/.  |
000000a0  20 43 6f 70 79 72 69 67  68 74 3a 20 41 72 63 68  | Copyright: Arch|
000000b0  69 6d 65 64 65 73 20 57  6f 72 6c 64 20 41 75 67  |imedes World Aug|
000000c0  75 73 74 20 31 39 39 31  0d 00 3c 04 0d 00 46 20  |ust 1991..<...F |
000000d0  c8 9b 20 22 24 2e 54 75  72 74 6c 65 47 52 46 58  |.. "$.TurtleGRFX|
000000e0  2e 54 75 72 74 6c 65 47  52 46 58 22 0d 00 50 08  |.TurtleGRFX"..P.|
000000f0  eb 20 31 35 0d 00 5a 0b  e6 20 30 2c 31 32 38 0d  |. 15..Z.. 0,128.|
00000100  00 64 0c c8 9c 20 33 2c  31 39 32 0d 00 6e 08 ee  |.d... 3,192..n..|
00000110  3a 20 da 0d 00 78 04 0d  00 82 18 e8 20 22 4c 65  |: ...x...... "Le|
00000120  76 65 6c 2c 31 2d 34 22  2c 4c 65 76 65 6c 25 0d  |vel,1-4",Level%.|
00000130  00 83 19 e7 20 4c 65 76  65 6c 25 3c 31 20 8c 20  |.... Level%<1 . |
00000140  4c 65 76 65 6c 25 3d 31  0d 00 84 19 e7 20 4c 65  |Level%=1..... Le|
00000150  76 65 6c 25 3e 34 20 8c  20 4c 65 76 65 6c 25 3d  |vel%>4 . Level%=|
00000160  34 0d 00 96 21 e8 20 22  53 68 6f 77 20 54 75 72  |4...!. "Show Tur|
00000170  74 6c 65 20 28 79 2f 6e  29 22 2c 74 75 72 74 6c  |tle (y/n)",turtl|
00000180  65 24 0d 00 97 08 87 3a  20 da 0d 00 a0 04 0d 00  |e$.....: .......|
00000190  aa 0b f2 74 73 74 61 72  74 0d 00 b4 11 f2 74 67  |...tstart.....tg|
000001a0  63 6f 6c 28 30 2c 31 32  37 29 0d 00 be 28 e7 20  |col(0,127)...(. |
000001b0  74 75 72 74 6c 65 24 3d  22 79 22 20 84 20 74 75  |turtle$="y" . tu|
000001c0  72 74 6c 65 24 3d 22 59  22 20 8c 20 f2 74 73 68  |rtle$="Y" . .tsh|
000001d0  6f 77 0d 00 c8 2a f2 49  6e 69 74 53 6e 6f 77 48  |ow...*.InitSnowH|
000001e0  61 6c 6c 28 31 30 30 30  2c 33 30 30 2c 2d 33 30  |all(1000,300,-30|
000001f0  2c 37 32 39 2c 31 2c 31  31 2c 31 29 0d 00 d2 40  |,729,1,11,1)...@|
00000200  f2 53 6e 6f 77 48 61 6c  6c 28 58 31 2c 59 31 2c  |.SnowHall(X1,Y1,|
00000210  58 32 2c 59 32 2c 4c 65  76 65 6c 25 2c 54 79 70  |X2,Y2,Level%,Typ|
00000220  65 25 2c 53 69 67 6e 25  2c 53 69 7a 65 25 2c 5f  |e%,Sign%,Size%,_|
00000230  54 75 72 74 6c 65 46 43  6f 6c 25 29 0d 00 dc 05  |TurtleFCol%)....|
00000240  e0 0d 00 e6 04 0d 00 f0  38 dd f2 49 6e 69 74 53  |........8..InitS|
00000250  6e 6f 77 48 61 6c 6c 28  78 74 6f 2c 79 74 6f 2c  |nowHall(xto,yto,|
00000260  61 6e 67 6c 65 2c 64 69  73 74 2c 73 69 67 6e 25  |angle,dist,sign%|
00000270  2c 73 69 7a 65 25 2c 74  79 70 65 25 29 0d 00 fa  |,size%,type%)...|
00000280  0f 53 69 7a 65 25 3d 73  69 7a 65 25 0d 01 04 0f  |.Size%=size%....|
00000290  53 69 67 6e 25 3d 73 69  67 6e 25 0d 01 0e 0f 54  |Sign%=sign%....T|
000002a0  79 70 65 25 3d 74 79 70  65 25 0d 01 0f 0c f2 74  |ype%=type%.....t|
000002b0  70 65 6e 28 30 29 0d 01  22 20 f2 74 6a 75 6d 70  |pen(0).." .tjump|
000002c0  28 78 74 6f 2c 79 74 6f  2c 5f 54 75 72 74 6c 65  |(xto,yto,_Turtle|
000002d0  41 6e 67 6c 65 29 0d 01  2c 0f 58 31 3d 5f 54 75  |Angle)..,.X1=_Tu|
000002e0  72 74 6c 65 58 0d 01 36  0f 59 31 3d 5f 54 75 72  |rtleX..6.Y1=_Tur|
000002f0  74 6c 65 59 0d 01 40 11  f2 74 74 75 72 6e 28 61  |tleY..@..tturn(a|
00000300  6e 67 6c 65 29 0d 01 4a  0e f2 74 67 6f 28 64 69  |ngle)..J..tgo(di|
00000310  73 74 29 0d 01 54 0f 58  32 3d 5f 54 75 72 74 6c  |st)..T.X2=_Turtl|
00000320  65 58 0d 01 5e 0f 59 32  3d 5f 54 75 72 74 6c 65  |eX..^.Y2=_Turtle|
00000330  59 0d 01 68 0a f2 74 68  6f 6d 65 0d 01 72 11 f2  |Y..h..thome..r..|
00000340  74 74 75 72 6e 28 61 6e  67 6c 65 29 0d 01 7c 05  |tturn(angle)..|.|
00000350  e1 0d 01 86 04 0d 01 90  1f dd f2 53 77 61 70 28  |...........Swap(|
00000360  f8 20 78 31 2c f8 20 79  31 2c f8 20 78 32 2c f8  |. x1,. y1,. x2,.|
00000370  20 79 32 29 0d 01 9a 0a  ea 20 74 65 6d 70 0d 01  | y2)..... temp..|
00000380  a4 0b 74 65 6d 70 3d 78  31 0d 01 ae 09 78 31 3d  |..temp=x1....x1=|
00000390  78 32 0d 01 b8 0b 78 32  3d 74 65 6d 70 0d 01 c2  |x2....x2=temp...|
000003a0  0b 74 65 6d 70 3d 79 31  0d 01 cc 09 79 31 3d 79  |.temp=y1....y1=y|
000003b0  32 0d 01 d6 0b 79 32 3d  74 65 6d 70 0d 01 e0 05  |2....y2=temp....|
000003c0  e1 0d 01 ea 04 0d 01 f4  17 dd a4 53 74 65 70 28  |...........Step(|
000003d0  78 31 2c 79 31 2c 78 32  2c 79 32 29 0d 01 fe 1f  |x1,y1,x2,y2)....|
000003e0  3d 28 b6 28 28 78 32 2d  78 31 29 5e 32 2b 28 79  |=(.((x2-x1)^2+(y|
000003f0  32 2d 79 31 29 5e 32 29  29 2f 33 0d 02 08 04 0d  |2-y1)^2))/3.....|
00000400  02 12 3c dd f2 53 6e 6f  77 48 61 6c 6c 28 78 31  |..<..SnowHall(x1|
00000410  2c 79 31 2c 78 32 2c 79  32 2c 6c 65 76 65 6c 25  |,y1,x2,y2,level%|
00000420  2c 74 79 70 65 25 2c 73  69 67 6e 25 2c 73 69 7a  |,type%,sign%,siz|
00000430  65 25 2c 63 6f 6c 6f 75  72 25 29 0d 02 1c 14 ea  |e%,colour%).....|
00000440  20 5f 54 75 72 74 6c 65  53 74 61 63 6b 28 29 0d  | _TurtleStack().|
00000450  02 26 19 ea 20 6a 25 2c  6e 65 77 74 79 70 65 25  |.&.. j%,newtype%|
00000460  2c 73 74 65 70 2c 70 25  0d 02 30 04 0d 02 3a 1b  |,step,p%..0...:.|
00000470  de 20 5f 54 75 72 74 6c  65 53 74 61 63 6b 28 73  |. _TurtleStack(s|
00000480  69 7a 65 25 2c 33 29 0d  02 44 12 5f 54 75 72 74  |ize%,3)..D._Turt|
00000490  6c 65 47 65 6e 25 3d 2d  31 0d 02 4e 13 5f 54 75  |leGen%=-1..N._Tu|
000004a0  72 74 6c 65 53 74 61 63  6b 25 3d b9 0d 02 58 04  |rtleStack%=...X.|
000004b0  0d 02 62 15 f2 74 67 63  6f 6c 28 30 2c 63 6f 6c  |..b..tgcol(0,col|
000004c0  6f 75 72 25 29 0d 02 6c  0c f2 74 70 65 6e 28 30  |our%)..l..tpen(0|
000004d0  29 0d 02 76 0e c8 8e 20  74 79 70 65 25 20 ca 0d  |)..v... type% ..|
000004e0  02 80 07 c9 20 30 0d 02  8a 07 c9 20 31 0d 02 94  |.... 0..... 1...|
000004f0  13 20 20 20 73 69 67 6e  25 3d 2d 73 69 67 6e 25  |.   sign%=-sign%|
00000500  0d 02 9e 07 c9 20 32 0d  02 a8 13 20 20 20 73 69  |..... 2....   si|
00000510  67 6e 25 3d 2d 73 69 67  6e 25 0d 02 b2 19 20 20  |gn%=-sign%....  |
00000520  20 f2 53 77 61 70 28 78  31 2c 79 31 2c 78 32 2c  | .Swap(x1,y1,x2,|
00000530  79 32 29 0d 02 bc 07 c9  20 33 0d 02 c6 19 20 20  |y2)..... 3....  |
00000540  20 f2 53 77 61 70 28 78  31 2c 79 31 2c 78 32 2c  | .Swap(x1,y1,x2,|
00000550  79 32 29 0d 02 d0 05 cb  0d 02 da 0d 6c 65 76 65  |y2).........leve|
00000560  6c 25 2d 3d 31 0d 02 e4  1c 73 74 65 70 3d a4 53  |l%-=1....step=.S|
00000570  74 65 70 28 78 31 2c 79  31 2c 78 32 2c 79 32 29  |tep(x1,y1,x2,y2)|
00000580  3a 0d 02 ee 0f f2 74 74  6f 28 78 32 2c 79 32 29  |:.....tto(x2,y2)|
00000590  0d 02 f8 10 f2 74 6d 65  6d 73 65 74 28 31 30 29  |.....tmemset(10)|
000005a0  0d 03 02 0c f2 74 72 65  63 6f 72 64 0d 03 0c 1e  |.....trecord....|
000005b0  f2 74 6a 75 6d 70 28 78  31 2c 79 31 2c 5f 54 75  |.tjump(x1,y1,_Tu|
000005c0  72 74 6c 65 41 6e 67 6c  65 29 0d 03 16 10 f2 74  |rtleAngle).....t|
000005d0  6d 65 6d 73 65 74 28 2d  31 29 0d 03 20 0c f2 74  |memset(-1).. ..t|
000005e0  72 65 63 6f 72 64 0d 03  2a 12 f2 74 70 6f 69 6e  |record..*..tpoin|
000005f0  74 28 78 32 2c 79 32 29  0d 03 34 14 f2 74 74 75  |t(x2,y2)..4..ttu|
00000600  72 6e 28 36 30 2a 73 69  67 6e 25 29 0d 03 3e 0e  |rn(60*sign%)..>.|
00000610  f2 74 67 6f 28 73 74 65  70 29 0d 03 48 0c f2 74  |.tgo(step)..H..t|
00000620  72 65 63 6f 72 64 0d 03  52 0e f2 74 67 6f 28 73  |record..R..tgo(s|
00000630  74 65 70 29 0d 03 5c 0c  f2 74 72 65 63 6f 72 64  |tep)..\..trecord|
00000640  0d 03 66 15 f2 74 74 75  72 6e 28 2d 36 30 2a 73  |..f..tturn(-60*s|
00000650  69 67 6e 25 29 0d 03 70  0e f2 74 67 6f 28 73 74  |ign%)..p..tgo(st|
00000660  65 70 29 0d 03 7a 0c f2  74 72 65 63 6f 72 64 0d  |ep)..z..trecord.|
00000670  03 84 15 f2 74 74 75 72  6e 28 2d 36 30 2a 73 69  |....tturn(-60*si|
00000680  67 6e 25 29 0d 03 8e 0e  f2 74 67 6f 28 73 74 65  |gn%).....tgo(ste|
00000690  70 29 0d 03 98 0c f2 74  72 65 63 6f 72 64 0d 03  |p).....trecord..|
000006a0  a2 16 f2 74 74 75 72 6e  28 2d 31 32 30 2a 73 69  |...tturn(-120*si|
000006b0  67 6e 25 29 0d 03 ac 0e  f2 74 67 6f 28 73 74 65  |gn%).....tgo(ste|
000006c0  70 29 0d 03 b6 14 f2 74  74 75 72 6e 28 36 30 2a  |p).....tturn(60*|
000006d0  73 69 67 6e 25 29 0d 03  c0 0e f2 74 67 6f 28 73  |sign%).....tgo(s|
000006e0  74 65 70 29 0d 03 ca 0f  f2 74 6d 65 6d 73 65 74  |tep).....tmemset|
000006f0  28 38 29 0d 03 d4 0c f2  74 72 65 63 6f 72 64 0d  |(8).....trecord.|
00000700  03 de 15 f2 74 74 75 72  6e 28 31 32 30 2a 73 69  |....tturn(120*si|
00000710  67 6e 25 29 0d 03 e8 0e  f2 74 67 6f 28 73 74 65  |gn%).....tgo(ste|
00000720  70 29 0d 03 f2 0c f2 74  72 65 63 6f 72 64 0d 03  |p).....trecord..|
00000730  fc 57 73 74 65 70 3d a4  53 74 65 70 28 5f 54 75  |.Wstep=.Step(_Tu|
00000740  72 74 6c 65 53 74 61 63  6b 28 34 2c 30 29 2c 5f  |rtleStack(4,0),_|
00000750  54 75 72 74 6c 65 53 74  61 63 6b 28 34 2c 31 29  |TurtleStack(4,1)|
00000760  2c 5f 54 75 72 74 6c 65  53 74 61 63 6b 28 39 2c  |,_TurtleStack(9,|
00000770  30 29 2c 5f 54 75 72 74  6c 65 53 74 61 63 6b 28  |0),_TurtleStack(|
00000780  39 2c 31 29 29 0d 04 06  3c f2 74 6a 75 6d 70 28  |9,1))...<.tjump(|
00000790  5f 54 75 72 74 6c 65 53  74 61 63 6b 28 34 2c 30  |_TurtleStack(4,0|
000007a0  29 2c 5f 54 75 72 74 6c  65 53 74 61 63 6b 28 34  |),_TurtleStack(4|
000007b0  2c 31 29 2c 5f 54 75 72  74 6c 65 41 6e 67 6c 65  |,1),_TurtleAngle|
000007c0  29 0d 04 10 30 f2 74 70  6f 69 6e 74 28 5f 54 75  |)...0.tpoint(_Tu|
000007d0  72 74 6c 65 53 74 61 63  6b 28 39 2c 30 29 2c 5f  |rtleStack(9,0),_|
000007e0  54 75 72 74 6c 65 53 74  61 63 6b 28 39 2c 31 29  |TurtleStack(9,1)|
000007f0  29 0d 04 1a 15 f2 74 74  75 72 6e 28 2d 36 30 2a  |).....tturn(-60*|
00000800  73 69 67 6e 25 29 0d 04  24 0e f2 74 67 6f 28 73  |sign%)..$..tgo(s|
00000810  74 65 70 29 0d 04 2e 0f  f2 74 6d 65 6d 73 65 74  |tep).....tmemset|
00000820  28 34 29 0d 04 38 0c f2  74 72 65 63 6f 72 64 0d  |(4)..8..trecord.|
00000830  04 42 0e f2 74 67 6f 28  73 74 65 70 29 0d 04 4c  |.B..tgo(step)..L|
00000840  0c f2 74 72 65 63 6f 72  64 0d 04 56 14 f2 74 74  |..trecord..V..tt|
00000850  75 72 6e 28 36 30 2a 73  69 67 6e 25 29 0d 04 60  |urn(60*sign%)..`|
00000860  0e f2 74 67 6f 28 73 74  65 70 29 0d 04 6a 0c f2  |..tgo(step)..j..|
00000870  74 72 65 63 6f 72 64 0d  04 74 14 f2 74 74 75 72  |trecord..t..ttur|
00000880  6e 28 36 30 2a 73 69 67  6e 25 29 0d 04 7e 0e f2  |n(60*sign%)..~..|
00000890  74 67 6f 28 73 74 65 70  29 0d 04 88 0c f2 74 72  |tgo(step).....tr|
000008a0  65 63 6f 72 64 0d 04 92  10 e7 20 6c 65 76 65 6c  |ecord..... level|
000008b0  25 3d 30 20 8c 0d 04 9c  25 20 20 20 f2 74 64 6f  |%=0 ....%   .tdo|
000008c0  28 5f 54 75 72 74 6c 65  53 74 61 63 6b 28 29 2c  |(_TurtleStack(),|
000008d0  30 2c 73 69 7a 65 25 2c  31 29 0d 04 a6 08 20 20  |0,size%,1)....  |
000008e0  20 e1 0d 04 b0 05 cd 0d  04 ba 14 e3 20 6a 25 3d  | ........... j%=|
000008f0  30 20 b8 20 73 69 7a 65  25 2d 31 0d 04 c4 12 20  |0 . size%-1.... |
00000900  20 20 c8 8e 20 6c 65 76  65 6c 25 20 ca 0d 04 ce  |  .. level% ....|
00000910  0a 20 20 20 c9 20 31 0d  04 d8 11 20 20 20 20 20  |.   . 1....     |
00000920  20 c8 8e 20 6a 25 20 ca  0d 04 e2 12 20 20 20 20  | .. j% .....    |
00000930  20 20 c9 20 32 2c 38 2c  31 30 0d 04 ec 17 20 20  |  . 2,8,10....  |
00000940  20 20 20 20 20 20 20 6e  65 77 74 79 70 65 25 3d  |       newtype%=|
00000950  30 0d 04 f6 0f 20 20 20  20 20 20 c9 20 30 2c 35  |0....      . 0,5|
00000960  0d 05 00 17 20 20 20 20  20 20 20 20 20 6e 65 77  |....         new|
00000970  74 79 70 65 25 3d 31 0d  05 0a 11 20 20 20 20 20  |type%=1....     |
00000980  20 c9 20 31 2c 33 2c 34  0d 05 14 17 20 20 20 20  | . 1,3,4....    |
00000990  20 20 20 20 20 6e 65 77  74 79 70 65 25 3d 32 0d  |     newtype%=2.|
000009a0  05 1e 11 20 20 20 20 20  20 c9 20 36 2c 37 2c 39  |...      . 6,7,9|
000009b0  0d 05 28 17 20 20 20 20  20 20 20 20 20 6e 65 77  |..(.         new|
000009c0  74 79 70 65 25 3d 33 0d  05 32 0b 20 20 20 20 20  |type%=3..2.     |
000009d0  20 cb 0d 05 3c 08 20 20  20 7f 0d 05 46 11 20 20  | ...<.   ...F.  |
000009e0  20 20 20 20 c8 8e 20 6a  25 20 ca 0d 05 50 12 20  |    .. j% ...P. |
000009f0  20 20 20 20 20 c9 20 32  2c 38 2c 31 30 0d 05 5a  |     . 2,8,10..Z|
00000a00  17 20 20 20 20 20 20 20  20 20 6e 65 77 74 79 70  |.         newtyp|
00000a10  65 25 3d 30 0d 05 64 0d  20 20 20 20 20 20 c9 20  |e%=0..d.      . |
00000a20  30 0d 05 6e 17 20 20 20  20 20 20 20 20 20 6e 65  |0..n.         ne|
00000a30  77 74 79 70 65 25 3d 31  0d 05 78 11 20 20 20 20  |wtype%=1..x.    |
00000a40  20 20 c9 20 31 2c 33 2c  34 0d 05 82 17 20 20 20  |  . 1,3,4....   |
00000a50  20 20 20 20 20 20 6e 65  77 74 79 70 65 25 3d 32  |      newtype%=2|
00000a60  0d 05 8c 13 20 20 20 20  20 20 c9 20 35 2c 36 2c  |....      . 5,6,|
00000a70  37 2c 39 0d 05 96 17 20  20 20 20 20 20 20 20 20  |7,9....         |
00000a80  6e 65 77 74 79 70 65 25  3d 33 0d 05 a0 0b 20 20  |newtype%=3....  |
00000a90  20 20 20 20 cb 0d 05 aa  08 20 20 20 cb 0d 05 b4  |    .....   ....|
00000aa0  1c 20 20 20 78 31 3d 5f  54 75 72 74 6c 65 53 74  |.   x1=_TurtleSt|
00000ab0  61 63 6b 28 6a 25 2c 30  29 0d 05 be 1e 20 20 20  |ack(j%,0)....   |
00000ac0  78 32 3d 5f 54 75 72 74  6c 65 53 74 61 63 6b 28  |x2=_TurtleStack(|
00000ad0  6a 25 2b 31 2c 30 29 0d  05 c8 1c 20 20 20 79 31  |j%+1,0)....   y1|
00000ae0  3d 5f 54 75 72 74 6c 65  53 74 61 63 6b 28 6a 25  |=_TurtleStack(j%|
00000af0  2c 31 29 0d 05 d2 1e 20  20 20 79 32 3d 5f 54 75  |,1)....   y2=_Tu|
00000b00  72 74 6c 65 53 74 61 63  6b 28 6a 25 2b 31 2c 31  |rtleStack(j%+1,1|
00000b10  29 0d 05 dc 11 20 20 20  63 6f 6c 6f 75 72 25 2d  |)....   colour%-|
00000b20  3d 34 0d 05 e6 41 20 20  20 f2 53 6e 6f 77 48 61  |=4...A   .SnowHa|
00000b30  6c 6c 28 78 31 2c 79 31  2c 78 32 2c 79 32 2c 6c  |ll(x1,y1,x2,y2,l|
00000b40  65 76 65 6c 25 2c 6e 65  77 74 79 70 65 25 2c 73  |evel%,newtype%,s|
00000b50  69 67 6e 25 2c 73 69 7a  65 25 2c 63 6f 6c 6f 75  |ign%,size%,colou|
00000b60  72 25 29 0d 05 f0 05 ed  0d 05 fa 05 e1 0d ff     |r%)............|
00000b6f

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