Home » Archimedes archive » Acorn User » AU 1998-04 A.adf » Regulars » StarInfo/Stoner/Water
StarInfo/Stoner/Water
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-04 A.adf » Regulars |
| Filename: | StarInfo/Stoner/Water |
| Read OK: | ✔ |
| File size: | 072C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM True Plasma Drawer
2REM by Nigel Stoner 1997
3t%=RND(-TIME)
4
5PROCinit
6PROCsetpal
7PROCfullscrn
8PROCcrosscrn
9PROCdoit
10END
11
12DEFPROCinit
13MODE9:IF MODE<>9 MODE 27
14OFF
15SYS "OS_SWINumberFromString",,"ColourTrans_SetGCOL" TO col%
16ON ERROR PROCdoit:REPORT:PRINT" in line ";ERL:END
17DIM cx%(16),cy%(16),pal%(255)
18ENDPROC
19
20DEFPROCpickcs
21GCOL 15
22REM calculate attractors
23FOR a%=0 TO centre%:cx%(a%)=RND(1280):cy%(a%)=RND(1280):NEXT
24ENDPROC
25
26DEFPROCsetpal
27REM set pallette
28REM COLOR a%,a%*(8*SINRAD(TIME)+8) ? for random colors ?
29FOR a%=0 TO 15:COLOURa%,a%*16,a%*16,a%*16::NEXT
30
31REM set sin pallette
32FOR a%=0 TO 255
33pal%(a%)=127*SINRAD(a%*1.411)+128
34NEXT a%
35ENDPROC
36
37DEFPROCfullscrn
38centre%=3:band=RND(1)*.5+.1:PRINTTAB(0,0)STR$(INT(band*100)):over%=8:start%=0
39PROCpickcs
40FOR y%= start% TO 1024-over% STEP over%:FOR x%= start% TO 1280-over% STEP over%:xsum%=0:ysum%=0:FOR a%=0 TO centre%:dx%=cx%(a%)-x%:dy%=cy%(a%)-y%
41d2%=dx%*dx% + dy%*dy%:IF d2% <> 0 adj%=(dx%*dy%):x2%=(dx%*adj%)>>7:y2%=(dx%*adj%)>>7:xsum%+=(x2%*cx%(a%))/d2%:ysum%+=(y2%*cy%(a%))/d2% ELSE a%=centre%+1
42NEXT a%:d%=SQR(xsum%^2+ysum%^2):tx%=d%*band MOD 256:SYScol%,(tx%<<8)+(tx%<<16)+(tx%<<24),,,&100:RECTANGLEFILLx%,y%,over%:NEXT x%,y%
43ENDPROC
44
45DEFPROCcrosscrn
46centre%=3:over%=8:start%=0
47PROCpickcs
48FOR y%= start% TO 1024-over% STEP over%/2:FOR x%= start% TO 1280-over% STEP over%:xsum%=0:ysum%=0:FOR a%=0 TO centre%:dx%=cx%(a%)-x%:dy%=cy%(a%)-y%
49d2%=dx%*dx% + dy%*dy%:IF d2% <> 0 adj%=(dx%*dy%):x2%=(dx%*adj%)>>7:y2%=(dx%*adj%)>>7:xsum%+=(x2%*cx%(a%))/d2%:ysum%+=(y2%*cy%(a%))/d2% ELSE a%=centre%+1
50NEXT a%:d%=SQR(xsum%^2+ysum%^2):tx%=d%*band MOD 256:SYScol%,(tx%<<8)+(tx%<<16)+(tx%<<24),,,&100:PLOT69,x%,y%
51NEXT x%:start%=start%EOR4:NEXT y%
52ENDPROC
53
54DEFPROCdoit
55ON ERROR END
56REPEAT:PROCcycle:WAIT:UNTILINKEY-99
57ENDPROC
58
59DEFPROCcycle
60t%=TIME:n%=TIME/7.6 MOD15:r%=16*SINRAD(t%/9+60)+18:g%=16*SINRAD(t%/8)+18:b%=15*SINRAD(t%/7+120)+18:FOR a%=0 TO 7:COLOUR(a%+n%)MOD16,a%*r%,a%*g%,a%*b%:COLOUR(15-a%+n%)MOD16,a%*r%,a%*g%,a%*b%:NEXT
61ENDPROC
� True Plasma Drawer � by Nigel Stoner 1997 t%=�(-�) �init �setpal �fullscrn �crosscrn �doit � ��init �9:� �<>9 � 27 � =ș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � col% � � �doit:�:�" in line ";�:� � cx%(16),cy%(16),pal%(255) � ��pickcs � 15 � calculate attractors 6� a%=0 � centre%:cx%(a%)=�(1280):cy%(a%)=�(1280):� � ��setpal � set pallette :� COLOR a%,a%*(8*SINRAD(TIME)+8) ? for random colors ? (� a%=0 � 15:�a%,a%*16,a%*16,a%*16::� � set sin pallette � a%=0 � 255 !!pal%(a%)=127*��(a%*1.411)+128 "� a% #� $ %��fullscrn &Ccentre%=3:band=�(1)*.5+.1:�0,0)�(�(band*100)):over%=8:start%=0 ' �pickcs (�� y%= start% � 1024-over% � over%:� x%= start% � 1280-over% � over%:xsum%=0:ysum%=0:� a%=0 � centre%:dx%=cx%(a%)-x%:dy%=cy%(a%)-y% )�d2%=dx%*dx% + dy%*dy%:� d2% <> 0 adj%=(dx%*dy%):x2%=(dx%*adj%)>>7:y2%=(dx%*adj%)>>7:xsum%+=(x2%*cx%(a%))/d2%:ysum%+=(y2%*cy%(a%))/d2% � a%=centre%+1 *s� a%:d%=�(xsum%^2+ysum%^2):tx%=d%*band � 256:școl%,(tx%<<8)+(tx%<<16)+(tx%<<24),,,&100:ȓȐx%,y%,over%:� x%,y% +� , -��crosscrn . centre%=3:over%=8:start%=0 / �pickcs 0�� y%= start% � 1024-over% � over%/2:� x%= start% � 1280-over% � over%:xsum%=0:ysum%=0:� a%=0 � centre%:dx%=cx%(a%)-x%:dy%=cy%(a%)-y% 1�d2%=dx%*dx% + dy%*dy%:� d2% <> 0 adj%=(dx%*dy%):x2%=(dx%*adj%)>>7:y2%=(dx%*adj%)>>7:xsum%+=(x2%*cx%(a%))/d2%:ysum%+=(y2%*cy%(a%))/d2% � a%=centre%+1 2e� a%:d%=�(xsum%^2+ysum%^2):tx%=d%*band � 256:școl%,(tx%<<8)+(tx%<<16)+(tx%<<24),,,&100:�69,x%,y% 3 � x%:start%=start%�4:� y% 4� 5 6 ��doit 7 � � � 8�:�cycle:Ȗ:��-99 9� : ; ��cycle <�t%=�:n%=�/7.6 �15:r%=16*��(t%/9+60)+18:g%=16*��(t%/8)+18:b%=15*��(t%/7+120)+18:� a%=0 � 7:�(a%+n%)�16,a%*r%,a%*g%,a%*b%:�(15-a%+n%)�16,a%*r%,a%*g%,a%*b%:� =� �
00000000 0d 00 01 18 f4 20 54 72 75 65 20 50 6c 61 73 6d |..... True Plasm| 00000010 61 20 44 72 61 77 65 72 0d 00 02 1a f4 20 62 79 |a Drawer..... by| 00000020 20 4e 69 67 65 6c 20 53 74 6f 6e 65 72 20 31 39 | Nigel Stoner 19| 00000030 39 37 0d 00 03 0c 74 25 3d b3 28 2d 91 29 0d 00 |97....t%=.(-.)..| 00000040 04 04 0d 00 05 09 f2 69 6e 69 74 0d 00 06 0b f2 |.......init.....| 00000050 73 65 74 70 61 6c 0d 00 07 0d f2 66 75 6c 6c 73 |setpal.....fulls| 00000060 63 72 6e 0d 00 08 0d f2 63 72 6f 73 73 63 72 6e |crn.....crosscrn| 00000070 0d 00 09 09 f2 64 6f 69 74 0d 00 0a 05 e0 0d 00 |.....doit.......| 00000080 0b 04 0d 00 0c 0a dd f2 69 6e 69 74 0d 00 0d 12 |........init....| 00000090 eb 39 3a e7 20 eb 3c 3e 39 20 eb 20 32 37 0d 00 |.9:. .<>9 . 27..| 000000a0 0e 05 87 0d 00 0f 3d c8 99 20 22 4f 53 5f 53 57 |......=.. "OS_SW| 000000b0 49 4e 75 6d 62 65 72 46 72 6f 6d 53 74 72 69 6e |INumberFromStrin| 000000c0 67 22 2c 2c 22 43 6f 6c 6f 75 72 54 72 61 6e 73 |g",,"ColourTrans| 000000d0 5f 53 65 74 47 43 4f 4c 22 20 b8 20 63 6f 6c 25 |_SetGCOL" . col%| 000000e0 0d 00 10 20 ee 20 85 20 f2 64 6f 69 74 3a f6 3a |... . . .doit:.:| 000000f0 f1 22 20 69 6e 20 6c 69 6e 65 20 22 3b 9e 3a e0 |." in line ";.:.| 00000100 0d 00 11 1f de 20 63 78 25 28 31 36 29 2c 63 79 |..... cx%(16),cy| 00000110 25 28 31 36 29 2c 70 61 6c 25 28 32 35 35 29 0d |%(16),pal%(255).| 00000120 00 12 05 e1 0d 00 13 04 0d 00 14 0c dd f2 70 69 |..............pi| 00000130 63 6b 63 73 0d 00 15 08 e6 20 31 35 0d 00 16 1a |ckcs..... 15....| 00000140 f4 20 63 61 6c 63 75 6c 61 74 65 20 61 74 74 72 |. calculate attr| 00000150 61 63 74 6f 72 73 0d 00 17 36 e3 20 61 25 3d 30 |actors...6. a%=0| 00000160 20 b8 20 63 65 6e 74 72 65 25 3a 63 78 25 28 61 | . centre%:cx%(a| 00000170 25 29 3d b3 28 31 32 38 30 29 3a 63 79 25 28 61 |%)=.(1280):cy%(a| 00000180 25 29 3d b3 28 31 32 38 30 29 3a ed 0d 00 18 05 |%)=.(1280):.....| 00000190 e1 0d 00 19 04 0d 00 1a 0c dd f2 73 65 74 70 61 |...........setpa| 000001a0 6c 0d 00 1b 12 f4 20 73 65 74 20 70 61 6c 6c 65 |l..... set palle| 000001b0 74 74 65 0d 00 1c 3a f4 20 43 4f 4c 4f 52 20 61 |tte...:. COLOR a| 000001c0 25 2c 61 25 2a 28 38 2a 53 49 4e 52 41 44 28 54 |%,a%*(8*SINRAD(T| 000001d0 49 4d 45 29 2b 38 29 20 3f 20 66 6f 72 20 72 61 |IME)+8) ? for ra| 000001e0 6e 64 6f 6d 20 63 6f 6c 6f 72 73 20 3f 0d 00 1d |ndom colors ?...| 000001f0 28 e3 20 61 25 3d 30 20 b8 20 31 35 3a fb 61 25 |(. a%=0 . 15:.a%| 00000200 2c 61 25 2a 31 36 2c 61 25 2a 31 36 2c 61 25 2a |,a%*16,a%*16,a%*| 00000210 31 36 3a 3a ed 0d 00 1e 04 0d 00 1f 16 f4 20 73 |16::.......... s| 00000220 65 74 20 73 69 6e 20 70 61 6c 6c 65 74 74 65 0d |et sin pallette.| 00000230 00 20 10 e3 20 61 25 3d 30 20 b8 20 32 35 35 0d |. .. a%=0 . 255.| 00000240 00 21 21 70 61 6c 25 28 61 25 29 3d 31 32 37 2a |.!!pal%(a%)=127*| 00000250 b5 b2 28 61 25 2a 31 2e 34 31 31 29 2b 31 32 38 |..(a%*1.411)+128| 00000260 0d 00 22 08 ed 20 61 25 0d 00 23 05 e1 0d 00 24 |..".. a%..#....$| 00000270 04 0d 00 25 0e dd f2 66 75 6c 6c 73 63 72 6e 0d |...%...fullscrn.| 00000280 00 26 43 63 65 6e 74 72 65 25 3d 33 3a 62 61 6e |.&Ccentre%=3:ban| 00000290 64 3d b3 28 31 29 2a 2e 35 2b 2e 31 3a f1 8a 30 |d=.(1)*.5+.1:..0| 000002a0 2c 30 29 c3 28 a8 28 62 61 6e 64 2a 31 30 30 29 |,0).(.(band*100)| 000002b0 29 3a 6f 76 65 72 25 3d 38 3a 73 74 61 72 74 25 |):over%=8:start%| 000002c0 3d 30 0d 00 27 0b f2 70 69 63 6b 63 73 0d 00 28 |=0..'..pickcs..(| 000002d0 86 e3 20 79 25 3d 20 73 74 61 72 74 25 20 b8 20 |.. y%= start% . | 000002e0 31 30 32 34 2d 6f 76 65 72 25 20 88 20 6f 76 65 |1024-over% . ove| 000002f0 72 25 3a e3 20 78 25 3d 20 73 74 61 72 74 25 20 |r%:. x%= start% | 00000300 b8 20 31 32 38 30 2d 6f 76 65 72 25 20 88 20 6f |. 1280-over% . o| 00000310 76 65 72 25 3a 78 73 75 6d 25 3d 30 3a 79 73 75 |ver%:xsum%=0:ysu| 00000320 6d 25 3d 30 3a e3 20 61 25 3d 30 20 b8 20 63 65 |m%=0:. a%=0 . ce| 00000330 6e 74 72 65 25 3a 64 78 25 3d 63 78 25 28 61 25 |ntre%:dx%=cx%(a%| 00000340 29 2d 78 25 3a 64 79 25 3d 63 79 25 28 61 25 29 |)-x%:dy%=cy%(a%)| 00000350 2d 79 25 0d 00 29 99 64 32 25 3d 64 78 25 2a 64 |-y%..).d2%=dx%*d| 00000360 78 25 20 2b 20 64 79 25 2a 64 79 25 3a e7 20 64 |x% + dy%*dy%:. d| 00000370 32 25 20 3c 3e 20 30 20 20 61 64 6a 25 3d 28 64 |2% <> 0 adj%=(d| 00000380 78 25 2a 64 79 25 29 3a 78 32 25 3d 28 64 78 25 |x%*dy%):x2%=(dx%| 00000390 2a 61 64 6a 25 29 3e 3e 37 3a 79 32 25 3d 28 64 |*adj%)>>7:y2%=(d| 000003a0 78 25 2a 61 64 6a 25 29 3e 3e 37 3a 78 73 75 6d |x%*adj%)>>7:xsum| 000003b0 25 2b 3d 28 78 32 25 2a 63 78 25 28 61 25 29 29 |%+=(x2%*cx%(a%))| 000003c0 2f 64 32 25 3a 79 73 75 6d 25 2b 3d 28 79 32 25 |/d2%:ysum%+=(y2%| 000003d0 2a 63 79 25 28 61 25 29 29 2f 64 32 25 20 8b 20 |*cy%(a%))/d2% . | 000003e0 61 25 3d 63 65 6e 74 72 65 25 2b 31 0d 00 2a 73 |a%=centre%+1..*s| 000003f0 ed 20 61 25 3a 64 25 3d b6 28 78 73 75 6d 25 5e |. a%:d%=.(xsum%^| 00000400 32 2b 79 73 75 6d 25 5e 32 29 3a 74 78 25 3d 64 |2+ysum%^2):tx%=d| 00000410 25 2a 62 61 6e 64 20 83 20 32 35 36 3a c8 99 63 |%*band . 256:..c| 00000420 6f 6c 25 2c 28 74 78 25 3c 3c 38 29 2b 28 74 78 |ol%,(tx%<<8)+(tx| 00000430 25 3c 3c 31 36 29 2b 28 74 78 25 3c 3c 32 34 29 |%<<16)+(tx%<<24)| 00000440 2c 2c 2c 26 31 30 30 3a c8 93 c8 90 78 25 2c 79 |,,,&100:....x%,y| 00000450 25 2c 6f 76 65 72 25 3a ed 20 78 25 2c 79 25 0d |%,over%:. x%,y%.| 00000460 00 2b 05 e1 0d 00 2c 04 0d 00 2d 0e dd f2 63 72 |.+....,...-...cr| 00000470 6f 73 73 63 72 6e 0d 00 2e 1e 63 65 6e 74 72 65 |osscrn....centre| 00000480 25 3d 33 3a 6f 76 65 72 25 3d 38 3a 73 74 61 72 |%=3:over%=8:star| 00000490 74 25 3d 30 0d 00 2f 0b f2 70 69 63 6b 63 73 0d |t%=0../..pickcs.| 000004a0 00 30 88 e3 20 79 25 3d 20 73 74 61 72 74 25 20 |.0.. y%= start% | 000004b0 b8 20 31 30 32 34 2d 6f 76 65 72 25 20 88 20 6f |. 1024-over% . o| 000004c0 76 65 72 25 2f 32 3a e3 20 78 25 3d 20 73 74 61 |ver%/2:. x%= sta| 000004d0 72 74 25 20 b8 20 31 32 38 30 2d 6f 76 65 72 25 |rt% . 1280-over%| 000004e0 20 88 20 6f 76 65 72 25 3a 78 73 75 6d 25 3d 30 | . over%:xsum%=0| 000004f0 3a 79 73 75 6d 25 3d 30 3a e3 20 61 25 3d 30 20 |:ysum%=0:. a%=0 | 00000500 b8 20 63 65 6e 74 72 65 25 3a 64 78 25 3d 63 78 |. centre%:dx%=cx| 00000510 25 28 61 25 29 2d 78 25 3a 64 79 25 3d 63 79 25 |%(a%)-x%:dy%=cy%| 00000520 28 61 25 29 2d 79 25 0d 00 31 99 64 32 25 3d 64 |(a%)-y%..1.d2%=d| 00000530 78 25 2a 64 78 25 20 2b 20 64 79 25 2a 64 79 25 |x%*dx% + dy%*dy%| 00000540 3a e7 20 64 32 25 20 3c 3e 20 30 20 20 61 64 6a |:. d2% <> 0 adj| 00000550 25 3d 28 64 78 25 2a 64 79 25 29 3a 78 32 25 3d |%=(dx%*dy%):x2%=| 00000560 28 64 78 25 2a 61 64 6a 25 29 3e 3e 37 3a 79 32 |(dx%*adj%)>>7:y2| 00000570 25 3d 28 64 78 25 2a 61 64 6a 25 29 3e 3e 37 3a |%=(dx%*adj%)>>7:| 00000580 78 73 75 6d 25 2b 3d 28 78 32 25 2a 63 78 25 28 |xsum%+=(x2%*cx%(| 00000590 61 25 29 29 2f 64 32 25 3a 79 73 75 6d 25 2b 3d |a%))/d2%:ysum%+=| 000005a0 28 79 32 25 2a 63 79 25 28 61 25 29 29 2f 64 32 |(y2%*cy%(a%))/d2| 000005b0 25 20 8b 20 61 25 3d 63 65 6e 74 72 65 25 2b 31 |% . a%=centre%+1| 000005c0 0d 00 32 65 ed 20 61 25 3a 64 25 3d b6 28 78 73 |..2e. a%:d%=.(xs| 000005d0 75 6d 25 5e 32 2b 79 73 75 6d 25 5e 32 29 3a 74 |um%^2+ysum%^2):t| 000005e0 78 25 3d 64 25 2a 62 61 6e 64 20 83 20 32 35 36 |x%=d%*band . 256| 000005f0 3a c8 99 63 6f 6c 25 2c 28 74 78 25 3c 3c 38 29 |:..col%,(tx%<<8)| 00000600 2b 28 74 78 25 3c 3c 31 36 29 2b 28 74 78 25 3c |+(tx%<<16)+(tx%<| 00000610 3c 32 34 29 2c 2c 2c 26 31 30 30 3a f0 36 39 2c |<24),,,&100:.69,| 00000620 78 25 2c 79 25 0d 00 33 1d ed 20 78 25 3a 73 74 |x%,y%..3.. x%:st| 00000630 61 72 74 25 3d 73 74 61 72 74 25 82 34 3a ed 20 |art%=start%.4:. | 00000640 79 25 0d 00 34 05 e1 0d 00 35 04 0d 00 36 0a dd |y%..4....5...6..| 00000650 f2 64 6f 69 74 0d 00 37 09 ee 20 85 20 e0 0d 00 |.doit..7.. . ...| 00000660 38 15 f5 3a f2 63 79 63 6c 65 3a c8 96 3a fd a6 |8..:.cycle:..:..| 00000670 2d 39 39 0d 00 39 05 e1 0d 00 3a 04 0d 00 3b 0b |-99..9....:...;.| 00000680 dd f2 63 79 63 6c 65 0d 00 3c 9e 74 25 3d 91 3a |..cycle..<.t%=.:| 00000690 6e 25 3d 91 2f 37 2e 36 20 83 31 35 3a 72 25 3d |n%=./7.6 .15:r%=| 000006a0 31 36 2a b5 b2 28 74 25 2f 39 2b 36 30 29 2b 31 |16*..(t%/9+60)+1| 000006b0 38 3a 67 25 3d 31 36 2a b5 b2 28 74 25 2f 38 29 |8:g%=16*..(t%/8)| 000006c0 2b 31 38 3a 62 25 3d 31 35 2a b5 b2 28 74 25 2f |+18:b%=15*..(t%/| 000006d0 37 2b 31 32 30 29 2b 31 38 3a e3 20 61 25 3d 30 |7+120)+18:. a%=0| 000006e0 20 b8 20 37 3a fb 28 61 25 2b 6e 25 29 83 31 36 | . 7:.(a%+n%).16| 000006f0 2c 61 25 2a 72 25 2c 61 25 2a 67 25 2c 61 25 2a |,a%*r%,a%*g%,a%*| 00000700 62 25 3a fb 28 31 35 2d 61 25 2b 6e 25 29 83 31 |b%:.(15-a%+n%).1| 00000710 36 2c 61 25 2a 72 25 2c 61 25 2a 67 25 2c 61 25 |6,a%*r%,a%*g%,a%| 00000720 2a 62 25 3a ed 0d 00 3d 05 e1 0d ff |*b%:...=....| 0000072c
.