Home » Archimedes archive » Acorn User » AU 1995-11.adf » !Regulars » Regulars/StarInfo/Vibe/Wood
Regulars/StarInfo/Vibe/Wood
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 1995-11.adf » !Regulars |
| Filename: | Regulars/StarInfo/Vibe/Wood |
| Read OK: | ✔ |
| File size: | 02DE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > WOOD *** Jan Vibe july 1995 *** 20 30MODE31:OFF 40DIM X1%(500),Y1%(500),X2%(500),Y2%(500) 50FORN%=0TO7:COLOUR N%+8,32*N%,32*N%,255:NEXT 60GCOL2:RECTANGLE FILL 0,0,1600,730 70GCOL4:RECTANGLE FILL 0,730,1600,570 80GCOL0:W%=120:S%=41 90FORY%=0TO650STEP50:W%+=10:R%=RND(W%):S%-=1:T%=0:PROCT(0,0,S%,0) 100FORI%=1TOW%DIV110:G%=110*I% 110FORX%=-W%TO1600+W%STEPW%:F%=2*(RND(3)-2) 120FORN%=1TOT% 130LINE X1%(N%)+X%+R%+F%+G%,Y1%(N%)+Y%,X2%(N%)+X%+R%+F%+G%,Y2%(N%)+Y% 140NEXT,,, 150FORY%=740TO1200STEP3:W%-=1 160FORN%=1TO30:GCOLRND(8)+7:R%=RND(W%) 170FORX%=-W%TO1600+W%STEPW%:CIRCLE FILL X%+R%,Y%,4:NEXT,, 180END 190 200DEFPROCT(X%,Y%,Z%,A%) 210LOCAL X1%,Y1%:T=RAD(A%):X1%=X%+Z%*SINT:Y1%=Y%+Z%*COST 220T%+=1:X1%(T%)=X%:Y1%(T%)=Y%:X2%(T%)=X1%:Y2%(T%)=Y1% 230IF Z%>=4 THEN 240PROCT(X1%,Y1%,Z%/1.41,A%+35+RND(10)) 250PROCT(X1%,Y1%,Z%/1.41,A%-35-RND(10)) 260ENDIF 270ENDPROC
.� > WOOD *** Jan Vibe july 1995 *** �31:� ()� X1%(500),Y1%(500),X2%(500),Y2%(500) 2$�N%=0�7:� N%+8,32*N%,32*N%,255:� <�2:ȓ Ȑ 0,0,1600,730 F�4:ȓ Ȑ 0,730,1600,570 P�0:W%=120:S%=41 Z8�Y%=0�650�50:W%+=10:R%=�(W%):S%-=1:T%=0:�T(0,0,S%,0) d�I%=1�W%�110:G%=110*I% n$�X%=-W%�1600+W%�W%:F%=2*(�(3)-2) x �N%=1�T% �C� X1%(N%)+X%+R%+F%+G%,Y1%(N%)+Y%,X2%(N%)+X%+R%+F%+G%,Y2%(N%)+Y% ��,,, ��Y%=740�1200�3:W%-=1 � �N%=1�30:�(8)+7:R%=�(W%) �+�X%=-W%�1600+W%�W%:ȏ Ȑ X%+R%,Y%,4:�,, �� � ���T(X%,Y%,Z%,A%) �/� X1%,Y1%:T=�(A%):X1%=X%+Z%*�T:Y1%=Y%+Z%*�T �7T%+=1:X1%(T%)=X%:Y1%(T%)=Y%:X2%(T%)=X1%:Y2%(T%)=Y1% � � Z%>=4 � �#�T(X1%,Y1%,Z%/1.41,A%+35+�(10)) �#�T(X1%,Y1%,Z%/1.41,A%-35-�(10)) � � �
00000000 0d 00 0a 2e f4 20 3e 20 57 4f 4f 44 20 20 20 20 |..... > WOOD | 00000010 20 20 20 20 2a 2a 2a 20 4a 61 6e 20 56 69 62 65 | *** Jan Vibe| 00000020 20 6a 75 6c 79 20 31 39 39 35 20 2a 2a 2a 0d 00 | july 1995 ***..| 00000030 14 04 0d 00 1e 09 eb 33 31 3a 87 0d 00 28 29 de |.......31:...().| 00000040 20 58 31 25 28 35 30 30 29 2c 59 31 25 28 35 30 | X1%(500),Y1%(50| 00000050 30 29 2c 58 32 25 28 35 30 30 29 2c 59 32 25 28 |0),X2%(500),Y2%(| 00000060 35 30 30 29 0d 00 32 24 e3 4e 25 3d 30 b8 37 3a |500)..2$.N%=0.7:| 00000070 fb 20 4e 25 2b 38 2c 33 32 2a 4e 25 2c 33 32 2a |. N%+8,32*N%,32*| 00000080 4e 25 2c 32 35 35 3a ed 0d 00 3c 19 e6 32 3a c8 |N%,255:...<..2:.| 00000090 93 20 c8 90 20 30 2c 30 2c 31 36 30 30 2c 37 33 |. .. 0,0,1600,73| 000000a0 30 0d 00 46 1b e6 34 3a c8 93 20 c8 90 20 30 2c |0..F..4:.. .. 0,| 000000b0 37 33 30 2c 31 36 30 30 2c 35 37 30 0d 00 50 13 |730,1600,570..P.| 000000c0 e6 30 3a 57 25 3d 31 32 30 3a 53 25 3d 34 31 0d |.0:W%=120:S%=41.| 000000d0 00 5a 38 e3 59 25 3d 30 b8 36 35 30 88 35 30 3a |.Z8.Y%=0.650.50:| 000000e0 57 25 2b 3d 31 30 3a 52 25 3d b3 28 57 25 29 3a |W%+=10:R%=.(W%):| 000000f0 53 25 2d 3d 31 3a 54 25 3d 30 3a f2 54 28 30 2c |S%-=1:T%=0:.T(0,| 00000100 30 2c 53 25 2c 30 29 0d 00 64 1a e3 49 25 3d 31 |0,S%,0)..d..I%=1| 00000110 b8 57 25 81 31 31 30 3a 47 25 3d 31 31 30 2a 49 |.W%.110:G%=110*I| 00000120 25 0d 00 6e 24 e3 58 25 3d 2d 57 25 b8 31 36 30 |%..n$.X%=-W%.160| 00000130 30 2b 57 25 88 57 25 3a 46 25 3d 32 2a 28 b3 28 |0+W%.W%:F%=2*(.(| 00000140 33 29 2d 32 29 0d 00 78 0c e3 4e 25 3d 31 b8 54 |3)-2)..x..N%=1.T| 00000150 25 0d 00 82 43 86 20 58 31 25 28 4e 25 29 2b 58 |%...C. X1%(N%)+X| 00000160 25 2b 52 25 2b 46 25 2b 47 25 2c 59 31 25 28 4e |%+R%+F%+G%,Y1%(N| 00000170 25 29 2b 59 25 2c 58 32 25 28 4e 25 29 2b 58 25 |%)+Y%,X2%(N%)+X%| 00000180 2b 52 25 2b 46 25 2b 47 25 2c 59 32 25 28 4e 25 |+R%+F%+G%,Y2%(N%| 00000190 29 2b 59 25 0d 00 8c 08 ed 2c 2c 2c 0d 00 96 18 |)+Y%.....,,,....| 000001a0 e3 59 25 3d 37 34 30 b8 31 32 30 30 88 33 3a 57 |.Y%=740.1200.3:W| 000001b0 25 2d 3d 31 0d 00 a0 1d e3 4e 25 3d 31 b8 33 30 |%-=1.....N%=1.30| 000001c0 3a e6 b3 28 38 29 2b 37 3a 52 25 3d b3 28 57 25 |:..(8)+7:R%=.(W%| 000001d0 29 0d 00 aa 2b e3 58 25 3d 2d 57 25 b8 31 36 30 |)...+.X%=-W%.160| 000001e0 30 2b 57 25 88 57 25 3a c8 8f 20 c8 90 20 58 25 |0+W%.W%:.. .. X%| 000001f0 2b 52 25 2c 59 25 2c 34 3a ed 2c 2c 0d 00 b4 05 |+R%,Y%,4:.,,....| 00000200 e0 0d 00 be 04 0d 00 c8 14 dd f2 54 28 58 25 2c |...........T(X%,| 00000210 59 25 2c 5a 25 2c 41 25 29 0d 00 d2 2f ea 20 58 |Y%,Z%,A%).../. X| 00000220 31 25 2c 59 31 25 3a 54 3d b2 28 41 25 29 3a 58 |1%,Y1%:T=.(A%):X| 00000230 31 25 3d 58 25 2b 5a 25 2a b5 54 3a 59 31 25 3d |1%=X%+Z%*.T:Y1%=| 00000240 59 25 2b 5a 25 2a 9b 54 0d 00 dc 37 54 25 2b 3d |Y%+Z%*.T...7T%+=| 00000250 31 3a 58 31 25 28 54 25 29 3d 58 25 3a 59 31 25 |1:X1%(T%)=X%:Y1%| 00000260 28 54 25 29 3d 59 25 3a 58 32 25 28 54 25 29 3d |(T%)=Y%:X2%(T%)=| 00000270 58 31 25 3a 59 32 25 28 54 25 29 3d 59 31 25 0d |X1%:Y2%(T%)=Y1%.| 00000280 00 e6 0d e7 20 5a 25 3e 3d 34 20 8c 0d 00 f0 23 |.... Z%>=4 ....#| 00000290 f2 54 28 58 31 25 2c 59 31 25 2c 5a 25 2f 31 2e |.T(X1%,Y1%,Z%/1.| 000002a0 34 31 2c 41 25 2b 33 35 2b b3 28 31 30 29 29 0d |41,A%+35+.(10)).| 000002b0 00 fa 23 f2 54 28 58 31 25 2c 59 31 25 2c 5a 25 |..#.T(X1%,Y1%,Z%| 000002c0 2f 31 2e 34 31 2c 41 25 2d 33 35 2d b3 28 31 30 |/1.41,A%-35-.(10| 000002d0 29 29 0d 01 04 05 cd 0d 01 0e 05 e1 0d ff |))............| 000002de
.