Home » Archimedes archive » Archimedes World » AW-1996-01-Disc2.adf » !Go-GoDemo_Go-GoDemo » Examples/Daisy
Examples/Daisy
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-1996-01-Disc2.adf » !Go-GoDemo_Go-GoDemo |
| Filename: | Examples/Daisy |
| Read OK: | ✔ |
| File size: | 01AF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Width 0 Daisy#PROCEDURE Petal Repeat 2 Repeat 6 Forward 9 Right 84/6 Next Right 180-84 Next #PROCEDURE Petals Repeat 10 Fill White Petal Right 360/10 Next #PROCEDURE Circle radius steps=radius inc=(2*PI*radius)/steps Pen Up Forward radius Right 90 Forward inc/2 Pen Down Repeat steps Right 360/steps Forward inc Next Pen Up Backward inc/2 Left 90 Backward radius Pen Down #PROCEDURE Daisy Petals Fill Yellow Circle 16 Fill None
00000000 57 69 64 74 68 20 30 0a 44 61 69 73 79 23 50 52 |Width 0.Daisy#PR| 00000010 4f 43 45 44 55 52 45 20 50 65 74 61 6c 0a 52 65 |OCEDURE Petal.Re| 00000020 70 65 61 74 20 32 0a 52 65 70 65 61 74 20 36 0a |peat 2.Repeat 6.| 00000030 46 6f 72 77 61 72 64 20 39 0a 52 69 67 68 74 20 |Forward 9.Right | 00000040 38 34 2f 36 0a 4e 65 78 74 0a 52 69 67 68 74 20 |84/6.Next.Right | 00000050 31 38 30 2d 38 34 0a 4e 65 78 74 0a 0a 23 50 52 |180-84.Next..#PR| 00000060 4f 43 45 44 55 52 45 20 50 65 74 61 6c 73 0a 52 |OCEDURE Petals.R| 00000070 65 70 65 61 74 20 31 30 0a 46 69 6c 6c 20 57 68 |epeat 10.Fill Wh| 00000080 69 74 65 0a 50 65 74 61 6c 0a 52 69 67 68 74 20 |ite.Petal.Right | 00000090 33 36 30 2f 31 30 0a 4e 65 78 74 0a 0a 23 50 52 |360/10.Next..#PR| 000000a0 4f 43 45 44 55 52 45 20 43 69 72 63 6c 65 20 72 |OCEDURE Circle r| 000000b0 61 64 69 75 73 0a 73 74 65 70 73 3d 72 61 64 69 |adius.steps=radi| 000000c0 75 73 0a 69 6e 63 3d 28 32 2a 50 49 2a 72 61 64 |us.inc=(2*PI*rad| 000000d0 69 75 73 29 2f 73 74 65 70 73 0a 50 65 6e 20 55 |ius)/steps.Pen U| 000000e0 70 0a 46 6f 72 77 61 72 64 20 72 61 64 69 75 73 |p.Forward radius| 000000f0 0a 52 69 67 68 74 20 39 30 0a 46 6f 72 77 61 72 |.Right 90.Forwar| 00000100 64 20 69 6e 63 2f 32 0a 50 65 6e 20 44 6f 77 6e |d inc/2.Pen Down| 00000110 0a 52 65 70 65 61 74 20 73 74 65 70 73 0a 52 69 |.Repeat steps.Ri| 00000120 67 68 74 20 33 36 30 2f 73 74 65 70 73 0a 46 6f |ght 360/steps.Fo| 00000130 72 77 61 72 64 20 69 6e 63 0a 4e 65 78 74 0a 50 |rward inc.Next.P| 00000140 65 6e 20 55 70 0a 42 61 63 6b 77 61 72 64 20 69 |en Up.Backward i| 00000150 6e 63 2f 32 0a 4c 65 66 74 20 39 30 0a 42 61 63 |nc/2.Left 90.Bac| 00000160 6b 77 61 72 64 20 72 61 64 69 75 73 0a 50 65 6e |kward radius.Pen| 00000170 20 44 6f 77 6e 0a 0a 23 50 52 4f 43 45 44 55 52 | Down..#PROCEDUR| 00000180 45 20 44 61 69 73 79 0a 50 65 74 61 6c 73 0a 46 |E Daisy.Petals.F| 00000190 69 6c 6c 20 59 65 6c 6c 6f 77 0a 43 69 72 63 6c |ill Yellow.Circl| 000001a0 65 20 31 36 0a 46 69 6c 6c 20 4e 6f 6e 65 0a |e 16.Fill None.| 000001af
.