Home » Archimedes archive » Acorn User » AU 1994-06.adf » !StarInfo_StarInfo » Vibe/Circle2
Vibe/Circle2
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 1994-06.adf » !StarInfo_StarInfo |
| Filename: | Vibe/Circle2 |
| Read OK: | ✔ |
| File size: | 01DB bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Circle2 20REM by Jan Vibe 30 40REM Inspired from Allister Jenks 'Cropcircle' in the September issue 50REM of Acorn user. The flattened corn has been given the plaited look 60REM the 'real' crop circles always have. 70 80MODE12:OFF:R=350:L=640:M=512:FORN=1TO15:COLOURN,16*N,12*N,0:NEXT:COLOUR0,112,64,0:FORY=950TO0STEP-50:FORX=0TO1280STEP2:A=X+RND(32):B=Y+RND(50):Q=SQR((L-A)^2+(M-B)^2):Z=-(ABS(Q-R)<80):K=A-L:O=ACS(K/Q):V=PI+O*(B>M)-O*(B<=M):C=Z*4*SINV+(1-Z)*(4*RND(1)-2):D=Z*4*COSV+(1-Z)*4:MOVEA,B:FORN=1TO15:GCOLN:DRAWBYC,D:NEXT,,
� >Circle2 � by Jan Vibe (F� Inspired from Allister Jenks 'Cropcircle' in the September issue 2G� of Acorn user. The flattened corn has been given the plaited look <*� the 'real' crop circles always have. F P��12:�:R=350:L=640:M=512:�N=1�15:�N,16*N,12*N,0:�:�0,112,64,0:�Y=950�0�-50:�X=0�1280�2:A=X+�(32):B=Y+�(50):Q=�((L-A)^2+(M-B)^2):Z=-(�(Q-R)<80):K=A-L:O=�(K/Q):V=�+O*(B>M)-O*(B<=M):C=Z*4*�V+(1-Z)*(4*�(1)-2):D=Z*4*�V+(1-Z)*4:�A,B:�N=1�15:�N:�BYC,D:�,, �
00000000 0d 00 0a 0e f4 20 3e 43 69 72 63 6c 65 32 0d 00 |..... >Circle2..| 00000010 14 11 f4 20 62 79 20 4a 61 6e 20 56 69 62 65 0d |... by Jan Vibe.| 00000020 00 1e 04 0d 00 28 46 f4 20 49 6e 73 70 69 72 65 |.....(F. Inspire| 00000030 64 20 66 72 6f 6d 20 41 6c 6c 69 73 74 65 72 20 |d from Allister | 00000040 4a 65 6e 6b 73 20 27 43 72 6f 70 63 69 72 63 6c |Jenks 'Cropcircl| 00000050 65 27 20 69 6e 20 74 68 65 20 53 65 70 74 65 6d |e' in the Septem| 00000060 62 65 72 20 69 73 73 75 65 0d 00 32 47 f4 20 6f |ber issue..2G. o| 00000070 66 20 41 63 6f 72 6e 20 75 73 65 72 2e 20 54 68 |f Acorn user. Th| 00000080 65 20 66 6c 61 74 74 65 6e 65 64 20 63 6f 72 6e |e flattened corn| 00000090 20 68 61 73 20 62 65 65 6e 20 67 69 76 65 6e 20 | has been given | 000000a0 74 68 65 20 70 6c 61 69 74 65 64 20 6c 6f 6f 6b |the plaited look| 000000b0 0d 00 3c 2a f4 20 74 68 65 20 27 72 65 61 6c 27 |..<*. the 'real'| 000000c0 20 63 72 6f 70 20 63 69 72 63 6c 65 73 20 61 6c | crop circles al| 000000d0 77 61 79 73 20 68 61 76 65 2e 0d 00 46 04 0d 00 |ways have...F...| 000000e0 50 fb eb 31 32 3a 87 3a 52 3d 33 35 30 3a 4c 3d |P..12:.:R=350:L=| 000000f0 36 34 30 3a 4d 3d 35 31 32 3a e3 4e 3d 31 b8 31 |640:M=512:.N=1.1| 00000100 35 3a fb 4e 2c 31 36 2a 4e 2c 31 32 2a 4e 2c 30 |5:.N,16*N,12*N,0| 00000110 3a ed 3a fb 30 2c 31 31 32 2c 36 34 2c 30 3a e3 |:.:.0,112,64,0:.| 00000120 59 3d 39 35 30 b8 30 88 2d 35 30 3a e3 58 3d 30 |Y=950.0.-50:.X=0| 00000130 b8 31 32 38 30 88 32 3a 41 3d 58 2b b3 28 33 32 |.1280.2:A=X+.(32| 00000140 29 3a 42 3d 59 2b b3 28 35 30 29 3a 51 3d b6 28 |):B=Y+.(50):Q=.(| 00000150 28 4c 2d 41 29 5e 32 2b 28 4d 2d 42 29 5e 32 29 |(L-A)^2+(M-B)^2)| 00000160 3a 5a 3d 2d 28 94 28 51 2d 52 29 3c 38 30 29 3a |:Z=-(.(Q-R)<80):| 00000170 4b 3d 41 2d 4c 3a 4f 3d 95 28 4b 2f 51 29 3a 56 |K=A-L:O=.(K/Q):V| 00000180 3d af 2b 4f 2a 28 42 3e 4d 29 2d 4f 2a 28 42 3c |=.+O*(B>M)-O*(B<| 00000190 3d 4d 29 3a 43 3d 5a 2a 34 2a b5 56 2b 28 31 2d |=M):C=Z*4*.V+(1-| 000001a0 5a 29 2a 28 34 2a b3 28 31 29 2d 32 29 3a 44 3d |Z)*(4*.(1)-2):D=| 000001b0 5a 2a 34 2a 9b 56 2b 28 31 2d 5a 29 2a 34 3a ec |Z*4*.V+(1-Z)*4:.| 000001c0 41 2c 42 3a e3 4e 3d 31 b8 31 35 3a e6 4e 3a df |A,B:.N=1.15:.N:.| 000001d0 42 59 43 2c 44 3a ed 2c 2c 0d ff |BYC,D:.,,..| 000001db
.