Home » Archimedes archive » Archimedes World » AW-1995-05-Disc1.adf » AWMay95_1 » InTheMag/DrawBasic/!DrawBasic/Library/Logo/LogoUtils
InTheMag/DrawBasic/!DrawBasic/Library/Logo/LogoUtils
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-1995-05-Disc1.adf » AWMay95_1 |
| Filename: | InTheMag/DrawBasic/!DrawBasic/Library/Logo/LogoUtils |
| Read OK: | ✔ |
| File size: | 04C2 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 5 duplicate copies of this file in the archive:
- Archimedes archive » Archimedes World » AW-1995-03-Disc1.adf » Disk1Mar95 » !AWMar95/Goodies/DrawBasic/!DrawBasic/Library/Logo/LogoUtils
- Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95 » !AWApr95/Goodies/Draw/!DrawBasic/Library/Logo/LogoUtils
- Archimedes archive » Archimedes World » AW-1994-12-Disc1.adf » Disk1Dec94 » !AWDec94/Goodies/DrawBasic/!DrawBasic/Library/Logo/LogoUtils
- Archimedes archive » Archimedes World » AW-1995-01-Disc1.adf » Disk1Jan95 » !AWJan95/Goodies/DrawBasic/!DrawBasic/Library/Logo/LogoUtils
- Archimedes archive » Archimedes World » AW-1995-05-Disc1.adf » AWMay95_1 » InTheMag/DrawBasic/!DrawBasic/Library/Logo/LogoUtils
- Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/DrawBasic/!DrawBasic/Library/Logo/LogoUtils
File contents
1REM > DrawBasic:Library.Logo.LogoUtils
2
3REM =======================================================
4REM
5REM copyright Joe Taylor June 1994
6REM
7REM N.B. For ERROR THROWBACK to work The first line above
8REM MUST have the correct pathname of this file.
9REM If you move the location of the file remember to
10REM alter this pathname.
11REM
12REM =======================================================
13
14REM =========
15REM Logo
16REM =========
17
18DEF PROCTurtle(x,y,angle)
19Turtle_x=x : Turtle_y=y : Turtle_Angle=angle
20PROCMove(x,y)
21ENDPROC
22
23DEF PROCLeft(angle)
24Turtle_Angle+=angle
25ENDPROC
26
27DEF PROCRight(angle)
28Turtle_Angle-=angle
29ENDPROC
30
31DEF PROCForward(length)
32Turtle_x+=length*COS(RAD(Turtle_Angle))
33Turtle_y+=length*SIN(RAD(Turtle_Angle))
34PROCDraw(Turtle_x,Turtle_y)
35ENDPROC
36
37DEF PROCBack(length)
38Turtle_x-=length*COS(RAD(Turtle_Angle))
39Turtle_y-=length*SIN(RAD(Turtle_Angle))
40PROCDraw(Turtle_x,Turtle_y)
41ENDPROC
42
43DEF PROCMoveForward(length)
44Turtle_x+=length*COS(RAD(Turtle_Angle))
45Turtle_y+=length*SIN(RAD(Turtle_Angle))
46PROCMove(Turtle_x,Turtle_y)
47ENDPROC
48
49DEF PROCMoveBack(length)
50Turtle_x-=length*COS(RAD(Turtle_Angle))
51Turtle_y-=length*SIN(RAD(Turtle_Angle))
52PROCMove(Turtle_x,Turtle_y)
53ENDPROC
54
(� > DrawBasic:Library.Logo.LogoUtils =� ======================================================= � $� copyright Joe Taylor June 1994 � ;� N.B. For ERROR THROWBACK to work The first line above 7� MUST have the correct pathname of this file. ;� If you move the location of the file remember to � alter this pathname. � =� ======================================================= � ========= � Logo � ========= � �Turtle(x,y,angle) 0Turtle_x=x : Turtle_y=y : Turtle_Angle=angle �Move(x,y) � � �Left(angle) Turtle_Angle+=angle � � �Right(angle) Turtle_Angle-=angle � � �Forward(length) 'Turtle_x+=length*�(�(Turtle_Angle)) !'Turtle_y+=length*�(�(Turtle_Angle)) " �Draw(Turtle_x,Turtle_y) #� $ %� �Back(length) &'Turtle_x-=length*�(�(Turtle_Angle)) ''Turtle_y-=length*�(�(Turtle_Angle)) ( �Draw(Turtle_x,Turtle_y) )� * +� �MoveForward(length) ,'Turtle_x+=length*�(�(Turtle_Angle)) -'Turtle_y+=length*�(�(Turtle_Angle)) . �Move(Turtle_x,Turtle_y) /� 0 1� �MoveBack(length) 2'Turtle_x-=length*�(�(Turtle_Angle)) 3'Turtle_y-=length*�(�(Turtle_Angle)) 4 �Move(Turtle_x,Turtle_y) 5� 6 �
00000000 0d 00 01 28 f4 20 3e 20 44 72 61 77 42 61 73 69 |...(. > DrawBasi| 00000010 63 3a 4c 69 62 72 61 72 79 2e 4c 6f 67 6f 2e 4c |c:Library.Logo.L| 00000020 6f 67 6f 55 74 69 6c 73 0d 00 02 04 0d 00 03 3d |ogoUtils.......=| 00000030 f4 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |. ==============| 00000040 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================| * 00000060 3d 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 04 05 f4 0d 00 |=========.......| 00000070 05 24 f4 20 63 6f 70 79 72 69 67 68 74 20 4a 6f |.$. copyright Jo| 00000080 65 20 54 61 79 6c 6f 72 20 4a 75 6e 65 20 31 39 |e Taylor June 19| 00000090 39 34 0d 00 06 05 f4 0d 00 07 3b f4 20 4e 2e 42 |94........;. N.B| 000000a0 2e 20 46 6f 72 20 45 52 52 4f 52 20 54 48 52 4f |. For ERROR THRO| 000000b0 57 42 41 43 4b 20 74 6f 20 77 6f 72 6b 20 54 68 |WBACK to work Th| 000000c0 65 20 66 69 72 73 74 20 6c 69 6e 65 20 61 62 6f |e first line abo| 000000d0 76 65 0d 00 08 37 f4 20 20 20 20 20 20 4d 55 53 |ve...7. MUS| 000000e0 54 20 68 61 76 65 20 74 68 65 20 63 6f 72 72 65 |T have the corre| 000000f0 63 74 20 70 61 74 68 6e 61 6d 65 20 6f 66 20 74 |ct pathname of t| 00000100 68 69 73 20 66 69 6c 65 2e 0d 00 09 3b f4 20 20 |his file....;. | 00000110 20 20 20 20 49 66 20 79 6f 75 20 6d 6f 76 65 20 | If you move | 00000120 74 68 65 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 |the location of | 00000130 74 68 65 20 66 69 6c 65 20 72 65 6d 65 6d 62 65 |the file remembe| 00000140 72 20 74 6f 0d 00 0a 1f f4 20 20 20 20 20 20 61 |r to..... a| 00000150 6c 74 65 72 20 74 68 69 73 20 70 61 74 68 6e 61 |lter this pathna| 00000160 6d 65 2e 0d 00 0b 05 f4 0d 00 0c 3d f4 20 3d 3d |me.........=. ==| 00000170 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d |================| * 000001a0 3d 3d 3d 3d 3d 0d 00 0d 04 0d 00 0e 0f f4 20 3d |=====......... =| 000001b0 3d 3d 3d 3d 3d 3d 3d 3d 0d 00 0f 0b f4 20 20 4c |========..... L| 000001c0 6f 67 6f 0d 00 10 0f f4 20 3d 3d 3d 3d 3d 3d 3d |ogo..... =======| 000001d0 3d 3d 0d 00 11 04 0d 00 12 18 dd 20 f2 54 75 72 |==......... .Tur| 000001e0 74 6c 65 28 78 2c 79 2c 61 6e 67 6c 65 29 0d 00 |tle(x,y,angle)..| 000001f0 13 30 54 75 72 74 6c 65 5f 78 3d 78 20 3a 20 54 |.0Turtle_x=x : T| 00000200 75 72 74 6c 65 5f 79 3d 79 20 3a 20 54 75 72 74 |urtle_y=y : Turt| 00000210 6c 65 5f 41 6e 67 6c 65 3d 61 6e 67 6c 65 0d 00 |le_Angle=angle..| 00000220 14 0e f2 4d 6f 76 65 28 78 2c 79 29 0d 00 15 05 |...Move(x,y)....| 00000230 e1 0d 00 16 04 0d 00 17 12 dd 20 f2 4c 65 66 74 |.......... .Left| 00000240 28 61 6e 67 6c 65 29 0d 00 18 17 54 75 72 74 6c |(angle)....Turtl| 00000250 65 5f 41 6e 67 6c 65 2b 3d 61 6e 67 6c 65 0d 00 |e_Angle+=angle..| 00000260 19 05 e1 0d 00 1a 04 0d 00 1b 13 dd 20 f2 52 69 |............ .Ri| 00000270 67 68 74 28 61 6e 67 6c 65 29 0d 00 1c 17 54 75 |ght(angle)....Tu| 00000280 72 74 6c 65 5f 41 6e 67 6c 65 2d 3d 61 6e 67 6c |rtle_Angle-=angl| 00000290 65 0d 00 1d 05 e1 0d 00 1e 04 0d 00 1f 16 dd 20 |e.............. | 000002a0 f2 46 6f 72 77 61 72 64 28 6c 65 6e 67 74 68 29 |.Forward(length)| 000002b0 0d 00 20 27 54 75 72 74 6c 65 5f 78 2b 3d 6c 65 |.. 'Turtle_x+=le| 000002c0 6e 67 74 68 2a 9b 28 b2 28 54 75 72 74 6c 65 5f |ngth*.(.(Turtle_| 000002d0 41 6e 67 6c 65 29 29 0d 00 21 27 54 75 72 74 6c |Angle))..!'Turtl| 000002e0 65 5f 79 2b 3d 6c 65 6e 67 74 68 2a b5 28 b2 28 |e_y+=length*.(.(| 000002f0 54 75 72 74 6c 65 5f 41 6e 67 6c 65 29 29 0d 00 |Turtle_Angle))..| 00000300 22 1c f2 44 72 61 77 28 54 75 72 74 6c 65 5f 78 |"..Draw(Turtle_x| 00000310 2c 54 75 72 74 6c 65 5f 79 29 0d 00 23 05 e1 0d |,Turtle_y)..#...| 00000320 00 24 04 0d 00 25 13 dd 20 f2 42 61 63 6b 28 6c |.$...%.. .Back(l| 00000330 65 6e 67 74 68 29 0d 00 26 27 54 75 72 74 6c 65 |ength)..&'Turtle| 00000340 5f 78 2d 3d 6c 65 6e 67 74 68 2a 9b 28 b2 28 54 |_x-=length*.(.(T| 00000350 75 72 74 6c 65 5f 41 6e 67 6c 65 29 29 0d 00 27 |urtle_Angle))..'| 00000360 27 54 75 72 74 6c 65 5f 79 2d 3d 6c 65 6e 67 74 |'Turtle_y-=lengt| 00000370 68 2a b5 28 b2 28 54 75 72 74 6c 65 5f 41 6e 67 |h*.(.(Turtle_Ang| 00000380 6c 65 29 29 0d 00 28 1c f2 44 72 61 77 28 54 75 |le))..(..Draw(Tu| 00000390 72 74 6c 65 5f 78 2c 54 75 72 74 6c 65 5f 79 29 |rtle_x,Turtle_y)| 000003a0 0d 00 29 05 e1 0d 00 2a 04 0d 00 2b 1a dd 20 f2 |..)....*...+.. .| 000003b0 4d 6f 76 65 46 6f 72 77 61 72 64 28 6c 65 6e 67 |MoveForward(leng| 000003c0 74 68 29 0d 00 2c 27 54 75 72 74 6c 65 5f 78 2b |th)..,'Turtle_x+| 000003d0 3d 6c 65 6e 67 74 68 2a 9b 28 b2 28 54 75 72 74 |=length*.(.(Turt| 000003e0 6c 65 5f 41 6e 67 6c 65 29 29 0d 00 2d 27 54 75 |le_Angle))..-'Tu| 000003f0 72 74 6c 65 5f 79 2b 3d 6c 65 6e 67 74 68 2a b5 |rtle_y+=length*.| 00000400 28 b2 28 54 75 72 74 6c 65 5f 41 6e 67 6c 65 29 |(.(Turtle_Angle)| 00000410 29 0d 00 2e 1c f2 4d 6f 76 65 28 54 75 72 74 6c |).....Move(Turtl| 00000420 65 5f 78 2c 54 75 72 74 6c 65 5f 79 29 0d 00 2f |e_x,Turtle_y)../| 00000430 05 e1 0d 00 30 04 0d 00 31 17 dd 20 f2 4d 6f 76 |....0...1.. .Mov| 00000440 65 42 61 63 6b 28 6c 65 6e 67 74 68 29 0d 00 32 |eBack(length)..2| 00000450 27 54 75 72 74 6c 65 5f 78 2d 3d 6c 65 6e 67 74 |'Turtle_x-=lengt| 00000460 68 2a 9b 28 b2 28 54 75 72 74 6c 65 5f 41 6e 67 |h*.(.(Turtle_Ang| 00000470 6c 65 29 29 0d 00 33 27 54 75 72 74 6c 65 5f 79 |le))..3'Turtle_y| 00000480 2d 3d 6c 65 6e 67 74 68 2a b5 28 b2 28 54 75 72 |-=length*.(.(Tur| 00000490 74 6c 65 5f 41 6e 67 6c 65 29 29 0d 00 34 1c f2 |tle_Angle))..4..| 000004a0 4d 6f 76 65 28 54 75 72 74 6c 65 5f 78 2c 54 75 |Move(Turtle_x,Tu| 000004b0 72 74 6c 65 5f 79 29 0d 00 35 05 e1 0d 00 36 04 |rtle_y)..5....6.| 000004c0 0d ff |..| 000004c2
.