Home » Archimedes archive » Acorn User » AU 1998-06 A.adf » Regulars » StarInfo/Stoner/Twister
StarInfo/Stoner/Twister
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 1998-06 A.adf » Regulars |
| Filename: | StarInfo/Stoner/Twister |
| Read OK: | ✔ |
| File size: | 01D9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM Twister - Tornado Weather Sim
2REM by Nigel Stoner 1997
3
4MODE12:OFF:ORIGIN640,512:t%=RND(-TIME)
5FORa%=0TO15:COLOURa%,a%*12,a%*16,127+a%*7:NEXT:FOR a%=0TO200:GCOL3,RND(13)+2:CIRCLEFILLRND(640)-320,RND(640)-320,RND(128):NEXT:GCOL0.15:ORIGIN576,448
6REPEAT:r=12:FORa%=1800TO0STEP-4:x%=r*SINRAD(a%):y%=r*COSRAD(a%):x2%=r*SINRAD(a%-(2-r*0.003125)):y2%=r*COSRAD(a%-(2-r*0.003125)):IFx%<>x2%ORy%<>y2% RECTANGLEx2%,y2%,128TOx%,y%
7r+=1.385:NEXTa%
8IFRND(1)>.5 THEN GCOL3,RND(15):CIRCLEFILLRND(640)-256,RND(640)-256,RND(128) ELSE GCOL2,RND(13)+2:CIRCLEFILLRND(640)-256,RND(640)-256,RND(128)
9UNTIL FALSE
#� Twister - Tornado Weather Sim � by Nigel Stoner 1997 �12:�:ȑ640,512:t%=�(-�) p�a%=0�15:�a%,a%*12,a%*16,127+a%*7:�:� a%=0�200:�3,�(13)+2:ȏȐ�(640)-320,�(640)-320,�(128):�:�0.15:ȑ576,448 ��:r=12:�a%=1800�0�-4:x%=r*��(a%):y%=r*��(a%):x2%=r*��(a%-(2-r*0.003125)):y2%=r*��(a%-(2-r*0.003125)):�x%<>x2%�y%<>y2% ȓx2%,y2%,128�x%,y% r+=1.385:�a% f�(1)>.5 � �3,�(15):ȏȐ�(640)-256,�(640)-256,�(128) � �2,�(13)+2:ȏȐ�(640)-256,�(640)-256,�(128) � � �
00000000 0d 00 01 23 f4 20 54 77 69 73 74 65 72 20 2d 20 |...#. Twister - | 00000010 54 6f 72 6e 61 64 6f 20 57 65 61 74 68 65 72 20 |Tornado Weather | 00000020 53 69 6d 0d 00 02 1a f4 20 62 79 20 4e 69 67 65 |Sim..... by Nige| 00000030 6c 20 53 74 6f 6e 65 72 20 31 39 39 37 0d 00 03 |l Stoner 1997...| 00000040 04 0d 00 04 1c eb 31 32 3a 87 3a c8 91 36 34 30 |......12:.:..640| 00000050 2c 35 31 32 3a 74 25 3d b3 28 2d 91 29 0d 00 05 |,512:t%=.(-.)...| 00000060 70 e3 61 25 3d 30 b8 31 35 3a fb 61 25 2c 61 25 |p.a%=0.15:.a%,a%| 00000070 2a 31 32 2c 61 25 2a 31 36 2c 31 32 37 2b 61 25 |*12,a%*16,127+a%| 00000080 2a 37 3a ed 3a e3 20 61 25 3d 30 b8 32 30 30 3a |*7:.:. a%=0.200:| 00000090 e6 33 2c b3 28 31 33 29 2b 32 3a c8 8f c8 90 b3 |.3,.(13)+2:.....| 000000a0 28 36 34 30 29 2d 33 32 30 2c b3 28 36 34 30 29 |(640)-320,.(640)| 000000b0 2d 33 32 30 2c b3 28 31 32 38 29 3a ed 3a e6 30 |-320,.(128):.:.0| 000000c0 2e 31 35 3a c8 91 35 37 36 2c 34 34 38 0d 00 06 |.15:..576,448...| 000000d0 8d f5 3a 72 3d 31 32 3a e3 61 25 3d 31 38 30 30 |..:r=12:.a%=1800| 000000e0 b8 30 88 2d 34 3a 78 25 3d 72 2a b5 b2 28 61 25 |.0.-4:x%=r*..(a%| 000000f0 29 3a 79 25 3d 72 2a 9b b2 28 61 25 29 3a 78 32 |):y%=r*..(a%):x2| 00000100 25 3d 72 2a b5 b2 28 61 25 2d 28 32 2d 72 2a 30 |%=r*..(a%-(2-r*0| 00000110 2e 30 30 33 31 32 35 29 29 3a 79 32 25 3d 72 2a |.003125)):y2%=r*| 00000120 9b b2 28 61 25 2d 28 32 2d 72 2a 30 2e 30 30 33 |..(a%-(2-r*0.003| 00000130 31 32 35 29 29 3a e7 78 25 3c 3e 78 32 25 84 79 |125)):.x%<>x2%.y| 00000140 25 3c 3e 79 32 25 20 c8 93 78 32 25 2c 79 32 25 |%<>y2% ..x2%,y2%| 00000150 2c 31 32 38 b8 78 25 2c 79 25 0d 00 07 10 72 2b |,128.x%,y%....r+| 00000160 3d 31 2e 33 38 35 3a ed 61 25 0d 00 08 66 e7 b3 |=1.385:.a%...f..| 00000170 28 31 29 3e 2e 35 20 8c 20 e6 33 2c b3 28 31 35 |(1)>.5 . .3,.(15| 00000180 29 3a c8 8f c8 90 b3 28 36 34 30 29 2d 32 35 36 |):.....(640)-256| 00000190 2c b3 28 36 34 30 29 2d 32 35 36 2c b3 28 31 32 |,.(640)-256,.(12| 000001a0 38 29 20 8b 20 e6 32 2c b3 28 31 33 29 2b 32 3a |8) . .2,.(13)+2:| 000001b0 c8 8f c8 90 b3 28 36 34 30 29 2d 32 35 36 2c b3 |.....(640)-256,.| 000001c0 28 36 34 30 29 2d 32 35 36 2c b3 28 31 32 38 29 |(640)-256,.(128)| 000001d0 0d 00 09 07 fd 20 a3 0d ff |..... ...| 000001d9
.