StarInfo/Stoner/SplatAuto

Home » Archimedes archive » Acorn User » AU 1998-08.adf » Regulars » StarInfo/Stoner/SplatAuto

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-08.adf » Regulars
Filename:	StarInfo/Stoner/SplatAuto
Read OK:	✔
File size:	03B7 bytes
Load address:	0000
Exec address:	0000

File contents

    1REM Spata Automatic - for lazy people!
    2REM by Nigel Stoner 1997
    3ON ERROR PROCblackhole:END
    4SYS "OS_SWINumberFromString",,"ColourTrans_SetGCOL" TO col%
    5MODE13:OFF:ORIGIN640,512:t%=RND(-TIME):GCOL0TINT255
    6spread%=512
    7REPEAT:s1=RND(1)*2+.25:s2=RND(1)*9+.25:spiral%=RND(30)-15:ORIGIN 640-s1*48,512:x=s1*SINRAD(0)+s2*SINRAD(0):y=s1*COSRAD(0)+s2*COSRAD(0)
    8FORa%=0TO360:red%=127*SINRAD(TIME*4)+127:grn%=127*COSRAD(TIME*2)+127:blu%=127*SINRAD(TIME)+127:SYS col%,((red%<<8)+(grn%<<16)+(blu%<<24)),,,&100
    9xn=x+(s1*SINRAD(a%)+s2*SINRAD(a%*spiral%)):yn=y+(s1*COSRAD(a%)+s2*COSRAD(a%*spiral%)):CIRCLEFILLxn,yn,32-s1*s2:x=xn:y=yn:NEXT a%
   10FOR r%=96 TO spread%STEP12:size%=RND(64)+16:ORIGIN640-size%/2,512-size%/2:FORa%=1TO360STEP 8:s=SINRAD(a%):c=COSRAD(a%):x=(r%-4)*s:y=(r%-4)*c:x2=r%*s:y2=r%*c:RECTANGLEx,y,size%TOx2,y2:NEXTa%,r%:UNTIL FALSE
   11
   12DEFPROCblackhole:LOCAL x%,y%,dx%,dy%:MOUSE OFF:ON ERROR END
   13ORIGIN0,0:GCOL0TINT0:RECTANGLEFILL0,0,32,1020:RECTANGLEFILL0,0,1276,32:RECTANGLEFILL0,1008,1276,32:RECTANGLEFILL0,1264,32,1020:ORIGIN640,512:start%=TIME+800:REPEAT:x%=RND(1280)-640:y%=RND(1024)-512:dx%=x%/20:dy%=y%/16:RECTANGLEx%,y%,80,64 TO x%-dx%,y%-dy%:UNTIL TIME>start%:CLS:ENDPROC

(� Spata Automatic - for lazy people!
� by Nigel Stoner 1997
� � �blackhole:�
=ș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � col%
$�13:�:ȑ640,512:t%=�(-�):�0Ȝ255
spread%=512
k�:s1=�(1)*2+.25:s2=�(1)*9+.25:spiral%=�(30)-15:ȑ 640-s1*48,512:x=s1*��(0)+s2*��(0):y=s1*��(0)+s2*��(0)
{�a%=0�360:red%=127*��(�*4)+127:grn%=127*��(�*2)+127:blu%=127*��(�)+127:ș col%,((red%<<8)+(grn%<<16)+(blu%<<24)),,,&100
	kxn=x+(s1*��(a%)+s2*��(a%*spiral%)):yn=y+(s1*��(a%)+s2*��(a%*spiral%)):ȏȐxn,yn,32-s1*s2:x=xn:y=yn:� a%

�� r%=96 � spread%�12:size%=�(64)+16:ȑ640-size%/2,512-size%/2:�a%=1�360� 8:s=��(a%):c=��(a%):x=(r%-4)*s:y=(r%-4)*c:x2=r%*s:y2=r%*c:ȓx,y,size%�x2,y2:�a%,r%:� �

*��blackhole:� x%,y%,dx%,dy%:ȗ �:� � �

�ȑ0,0:�0Ȝ0:ȓȐ0,0,32,1020:ȓȐ0,0,1276,32:ȓȐ0,1008,1276,32:ȓȐ0,1264,32,1020:ȑ640,512:start%=�+800:�:x%=�(1280)-640:y%=�(1024)-512:dx%=x%/20:dy%=y%/16:ȓx%,y%,80,64 � x%-dx%,y%-dy%:� �>start%:�:�
�

00000000  0d 00 01 28 f4 20 53 70  61 74 61 20 41 75 74 6f  |...(. Spata Auto|
00000010  6d 61 74 69 63 20 2d 20  66 6f 72 20 6c 61 7a 79  |matic - for lazy|
00000020  20 70 65 6f 70 6c 65 21  0d 00 02 1a f4 20 62 79  | people!..... by|
00000030  20 4e 69 67 65 6c 20 53  74 6f 6e 65 72 20 31 39  | Nigel Stoner 19|
00000040  39 37 0d 00 03 14 ee 20  85 20 f2 62 6c 61 63 6b  |97..... . .black|
00000050  68 6f 6c 65 3a e0 0d 00  04 3d c8 99 20 22 4f 53  |hole:....=.. "OS|
00000060  5f 53 57 49 4e 75 6d 62  65 72 46 72 6f 6d 53 74  |_SWINumberFromSt|
00000070  72 69 6e 67 22 2c 2c 22  43 6f 6c 6f 75 72 54 72  |ring",,"ColourTr|
00000080  61 6e 73 5f 53 65 74 47  43 4f 4c 22 20 b8 20 63  |ans_SetGCOL" . c|
00000090  6f 6c 25 0d 00 05 24 eb  31 33 3a 87 3a c8 91 36  |ol%...$.13:.:..6|
000000a0  34 30 2c 35 31 32 3a 74  25 3d b3 28 2d 91 29 3a  |40,512:t%=.(-.):|
000000b0  e6 30 c8 9c 32 35 35 0d  00 06 0f 73 70 72 65 61  |.0..255....sprea|
000000c0  64 25 3d 35 31 32 0d 00  07 6b f5 3a 73 31 3d b3  |d%=512...k.:s1=.|
000000d0  28 31 29 2a 32 2b 2e 32  35 3a 73 32 3d b3 28 31  |(1)*2+.25:s2=.(1|
000000e0  29 2a 39 2b 2e 32 35 3a  73 70 69 72 61 6c 25 3d  |)*9+.25:spiral%=|
000000f0  b3 28 33 30 29 2d 31 35  3a c8 91 20 36 34 30 2d  |.(30)-15:.. 640-|
00000100  73 31 2a 34 38 2c 35 31  32 3a 78 3d 73 31 2a b5  |s1*48,512:x=s1*.|
00000110  b2 28 30 29 2b 73 32 2a  b5 b2 28 30 29 3a 79 3d  |.(0)+s2*..(0):y=|
00000120  73 31 2a 9b b2 28 30 29  2b 73 32 2a 9b b2 28 30  |s1*..(0)+s2*..(0|
00000130  29 0d 00 08 7b e3 61 25  3d 30 b8 33 36 30 3a 72  |)...{.a%=0.360:r|
00000140  65 64 25 3d 31 32 37 2a  b5 b2 28 91 2a 34 29 2b  |ed%=127*..(.*4)+|
00000150  31 32 37 3a 67 72 6e 25  3d 31 32 37 2a 9b b2 28  |127:grn%=127*..(|
00000160  91 2a 32 29 2b 31 32 37  3a 62 6c 75 25 3d 31 32  |.*2)+127:blu%=12|
00000170  37 2a b5 b2 28 91 29 2b  31 32 37 3a c8 99 20 63  |7*..(.)+127:.. c|
00000180  6f 6c 25 2c 28 28 72 65  64 25 3c 3c 38 29 2b 28  |ol%,((red%<<8)+(|
00000190  67 72 6e 25 3c 3c 31 36  29 2b 28 62 6c 75 25 3c  |grn%<<16)+(blu%<|
000001a0  3c 32 34 29 29 2c 2c 2c  26 31 30 30 0d 00 09 6b  |<24)),,,&100...k|
000001b0  78 6e 3d 78 2b 28 73 31  2a b5 b2 28 61 25 29 2b  |xn=x+(s1*..(a%)+|
000001c0  73 32 2a b5 b2 28 61 25  2a 73 70 69 72 61 6c 25  |s2*..(a%*spiral%|
000001d0  29 29 3a 79 6e 3d 79 2b  28 73 31 2a 9b b2 28 61  |)):yn=y+(s1*..(a|
000001e0  25 29 2b 73 32 2a 9b b2  28 61 25 2a 73 70 69 72  |%)+s2*..(a%*spir|
000001f0  61 6c 25 29 29 3a c8 8f  c8 90 78 6e 2c 79 6e 2c  |al%)):....xn,yn,|
00000200  33 32 2d 73 31 2a 73 32  3a 78 3d 78 6e 3a 79 3d  |32-s1*s2:x=xn:y=|
00000210  79 6e 3a ed 20 61 25 0d  00 0a a3 e3 20 72 25 3d  |yn:. a%..... r%=|
00000220  39 36 20 b8 20 73 70 72  65 61 64 25 88 31 32 3a  |96 . spread%.12:|
00000230  73 69 7a 65 25 3d b3 28  36 34 29 2b 31 36 3a c8  |size%=.(64)+16:.|
00000240  91 36 34 30 2d 73 69 7a  65 25 2f 32 2c 35 31 32  |.640-size%/2,512|
00000250  2d 73 69 7a 65 25 2f 32  3a e3 61 25 3d 31 b8 33  |-size%/2:.a%=1.3|
00000260  36 30 88 20 38 3a 73 3d  b5 b2 28 61 25 29 3a 63  |60. 8:s=..(a%):c|
00000270  3d 9b b2 28 61 25 29 3a  78 3d 28 72 25 2d 34 29  |=..(a%):x=(r%-4)|
00000280  2a 73 3a 79 3d 28 72 25  2d 34 29 2a 63 3a 78 32  |*s:y=(r%-4)*c:x2|
00000290  3d 72 25 2a 73 3a 79 32  3d 72 25 2a 63 3a c8 93  |=r%*s:y2=r%*c:..|
000002a0  78 2c 79 2c 73 69 7a 65  25 b8 78 32 2c 79 32 3a  |x,y,size%.x2,y2:|
000002b0  ed 61 25 2c 72 25 3a fd  20 a3 0d 00 0b 04 0d 00  |.a%,r%:. .......|
000002c0  0c 2a dd f2 62 6c 61 63  6b 68 6f 6c 65 3a ea 20  |.*..blackhole:. |
000002d0  78 25 2c 79 25 2c 64 78  25 2c 64 79 25 3a c8 97  |x%,y%,dx%,dy%:..|
000002e0  20 87 3a ee 20 85 20 e0  0d 00 0d cd c8 91 30 2c  | .:. . .......0,|
000002f0  30 3a e6 30 c8 9c 30 3a  c8 93 c8 90 30 2c 30 2c  |0:.0..0:....0,0,|
00000300  33 32 2c 31 30 32 30 3a  c8 93 c8 90 30 2c 30 2c  |32,1020:....0,0,|
00000310  31 32 37 36 2c 33 32 3a  c8 93 c8 90 30 2c 31 30  |1276,32:....0,10|
00000320  30 38 2c 31 32 37 36 2c  33 32 3a c8 93 c8 90 30  |08,1276,32:....0|
00000330  2c 31 32 36 34 2c 33 32  2c 31 30 32 30 3a c8 91  |,1264,32,1020:..|
00000340  36 34 30 2c 35 31 32 3a  73 74 61 72 74 25 3d 91  |640,512:start%=.|
00000350  2b 38 30 30 3a f5 3a 78  25 3d b3 28 31 32 38 30  |+800:.:x%=.(1280|
00000360  29 2d 36 34 30 3a 79 25  3d b3 28 31 30 32 34 29  |)-640:y%=.(1024)|
00000370  2d 35 31 32 3a 64 78 25  3d 78 25 2f 32 30 3a 64  |-512:dx%=x%/20:d|
00000380  79 25 3d 79 25 2f 31 36  3a c8 93 78 25 2c 79 25  |y%=y%/16:..x%,y%|
00000390  2c 38 30 2c 36 34 20 b8  20 78 25 2d 64 78 25 2c  |,80,64 . x%-dx%,|
000003a0  79 25 2d 64 79 25 3a fd  20 91 3e 73 74 61 72 74  |y%-dy%:. .>start|
000003b0  25 3a db 3a e1 0d ff                              |%:.:...|
000003b7

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .