Home » Archimedes archive » Acorn User » AU 1993-09.adf » !StarInfo_StarInfo » CropCircle
CropCircle
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 » Acorn User » AU 1993-09.adf » !StarInfo_StarInfo |
| Filename: | CropCircle |
| Read OK: | ✔ |
| File size: | 015B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >CropCircle (Info20) 20REM By Allister Jenks 30REM For 32-bit machines 40REM (c) BAU September 1993 50: 60r=350:w=50:MODE12:OFF:FORn=1TO15:COLOURn,16*n,12*n,0:NEXT:COLOUR0,112,64,0:FORy=950TO0STEP-50:FORx=0TO1280STEP2:a=x+RND(32)-16:b=y+RND(40)-20:z=ABS(SQR((a-640)^2+(b-512)^2)-r)<w:c=RND(64)-32:d=RND(30)+50:d=(d+z*d/3*2)/15:c=(c-z*c/2*3)/15:s=1+z/5:MOVEa,b:FORn=1TO15:GCOLn*s:DRAWBYc,d:NEXT,,
� >CropCircle (Info20) � By Allister Jenks � For 32-bit machines ( � (c) BAU September 1993 2: <�r=350:w=50:�12:�:�n=1�15:�n,16*n,12*n,0:�:�0,112,64,0:�y=950�0�-50:�x=0�1280�2:a=x+�(32)-16:b=y+�(40)-20:z=�(�((a-640)^2+(b-512)^2)-r)<w:c=�(64)-32:d=�(30)+50:d=(d+z*d/3*2)/15:c=(c-z*c/2*3)/15:s=1+z/5:�a,b:�n=1�15:�n*s:�BYc,d:�,, �
00000000 0d 00 0a 1e f4 20 20 20 20 20 3e 43 72 6f 70 43 |..... >CropC| 00000010 69 72 63 6c 65 20 28 49 6e 66 6f 32 30 29 0d 00 |ircle (Info20)..| 00000020 14 18 f4 20 42 79 20 20 41 6c 6c 69 73 74 65 72 |... By Allister| 00000030 20 4a 65 6e 6b 73 0d 00 1e 19 f4 20 46 6f 72 20 | Jenks..... For | 00000040 33 32 2d 62 69 74 20 6d 61 63 68 69 6e 65 73 0d |32-bit machines.| 00000050 00 28 1c f4 20 28 63 29 20 42 41 55 20 53 65 70 |.(.. (c) BAU Sep| 00000060 74 65 6d 62 65 72 20 31 39 39 33 0d 00 32 05 3a |tember 1993..2.:| 00000070 0d 00 3c e9 72 3d 33 35 30 3a 77 3d 35 30 3a eb |..<.r=350:w=50:.| 00000080 31 32 3a 87 3a e3 6e 3d 31 b8 31 35 3a fb 6e 2c |12:.:.n=1.15:.n,| 00000090 31 36 2a 6e 2c 31 32 2a 6e 2c 30 3a ed 3a fb 30 |16*n,12*n,0:.:.0| 000000a0 2c 31 31 32 2c 36 34 2c 30 3a e3 79 3d 39 35 30 |,112,64,0:.y=950| 000000b0 b8 30 88 2d 35 30 3a e3 78 3d 30 b8 31 32 38 30 |.0.-50:.x=0.1280| 000000c0 88 32 3a 61 3d 78 2b b3 28 33 32 29 2d 31 36 3a |.2:a=x+.(32)-16:| 000000d0 62 3d 79 2b b3 28 34 30 29 2d 32 30 3a 7a 3d 94 |b=y+.(40)-20:z=.| 000000e0 28 b6 28 28 61 2d 36 34 30 29 5e 32 2b 28 62 2d |(.((a-640)^2+(b-| 000000f0 35 31 32 29 5e 32 29 2d 72 29 3c 77 3a 63 3d b3 |512)^2)-r)<w:c=.| 00000100 28 36 34 29 2d 33 32 3a 64 3d b3 28 33 30 29 2b |(64)-32:d=.(30)+| 00000110 35 30 3a 64 3d 28 64 2b 7a 2a 64 2f 33 2a 32 29 |50:d=(d+z*d/3*2)| 00000120 2f 31 35 3a 63 3d 28 63 2d 7a 2a 63 2f 32 2a 33 |/15:c=(c-z*c/2*3| 00000130 29 2f 31 35 3a 73 3d 31 2b 7a 2f 35 3a ec 61 2c |)/15:s=1+z/5:.a,| 00000140 62 3a e3 6e 3d 31 b8 31 35 3a e6 6e 2a 73 3a df |b:.n=1.15:.n*s:.| 00000150 42 59 63 2c 64 3a ed 2c 2c 0d ff |BYc,d:.,,..| 0000015b
.