Home » Archimedes archive » Archimedes World » AW-1995-04-Disc1.adf » Disk1Apr95 » !AWApr95/Goodies/Draw/!DrawBasic/Library/Logo/LogoUtils

!AWApr95/Goodies/Draw/!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-04-Disc1.adf » Disk1Apr95
Filename: !AWApr95/Goodies/Draw/!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:

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

© Dominic Ford 2021–2025.

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