StarInfo/Stoner/Splata

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

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/Splata
Read OK:	✔
File size:	03BF bytes
Load address:	0000
Exec address:	0000

File contents

    1REM Splata - Paint spinner simulator
    2REM by Nigel Stoner 1997
    3ON ERROR PROCblackhole:END
    4SYS "OS_SWINumberFromString",,"ColourTrans_SetGCOL" TO col%
    5MODE13:OFF:ORIGIN640,512:t%=RND(-TIME):MOUSE ON
    6PRINT TAB(14,7)"Mouse  Buttons":PRINT TAB(14,9)"Select = Paint":PRINT TAB(14,11)"Menu   = Clear":PRINT TAB(14,13)"Adjust = Spin":CIRCLEFILL0,0,32
    7spread%=512:t=1
    8REPEAT:REPEAT:MOUSE x%,y%,b%
    9IF b%AND4 THEN t%+=1:red%=127*SINRAD(t%/1.5)+127:grn%=127*SINRAD(t%/4)+127:blu%=127*SINRAD(t%/6)+127:SYS col%,((red%<<8)+(grn%<<16)+(blu%<<24)),,,&100:CIRCLEFILLx%,y%,20:IFt%>1440 t%=0
   10IF b%AND2 THEN CLS:ORIGIN640,512:CIRCLEFILL0,0,32
   11UNTIL b%=1:b%=0
   12size%=RND(64)+16:ORIGIN640-size%/2,512-size%/2:FOR r%=96 TO spread%STEP12: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
   13
   14DEFPROCblackhole:LOCAL x%,y%,dx%,dy%:MOUSE OFF:ON ERROR END
   15ORIGIN0,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

&� Splata - Paint spinner simulator
� by Nigel Stoner 1997
� � �blackhole:�
=ș "OS_SWINumberFromString",,"ColourTrans_SetGCOL" � col%
!�13:�:ȑ640,512:t%=�(-�):ȗ �
s� �14,7)"Mouse  Buttons":� �14,9)"Select = Paint":� �14,11)"Menu   = Clear":� �14,13)"Adjust = Spin":ȏȐ0,0,32
spread%=512:t=1
�:�:ȗ x%,y%,b%
	�� b%�4 � t%+=1:red%=127*��(t%/1.5)+127:grn%=127*��(t%/4)+127:blu%=127*��(t%/6)+127:ș col%,((red%<<8)+(grn%<<16)+(blu%<<24)),,,&100:ȏȐx%,y%,20:�t%>1440 t%=0

#� b%�2 � �:ȑ640,512:ȏȐ0,0,32
� b%=1:b%=0
�size%=�(64)+16:ȑ640-size%/2,512-size%/2:� r%=96 � spread%�12:�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 26 f4 20 53 70  6c 61 74 61 20 2d 20 50  |...&. Splata - P|
00000010  61 69 6e 74 20 73 70 69  6e 6e 65 72 20 73 69 6d  |aint spinner sim|
00000020  75 6c 61 74 6f 72 0d 00  02 1a f4 20 62 79 20 4e  |ulator..... by N|
00000030  69 67 65 6c 20 53 74 6f  6e 65 72 20 31 39 39 37  |igel Stoner 1997|
00000040  0d 00 03 14 ee 20 85 20  f2 62 6c 61 63 6b 68 6f  |..... . .blackho|
00000050  6c 65 3a e0 0d 00 04 3d  c8 99 20 22 4f 53 5f 53  |le:....=.. "OS_S|
00000060  57 49 4e 75 6d 62 65 72  46 72 6f 6d 53 74 72 69  |WINumberFromStri|
00000070  6e 67 22 2c 2c 22 43 6f  6c 6f 75 72 54 72 61 6e  |ng",,"ColourTran|
00000080  73 5f 53 65 74 47 43 4f  4c 22 20 b8 20 63 6f 6c  |s_SetGCOL" . col|
00000090  25 0d 00 05 21 eb 31 33  3a 87 3a c8 91 36 34 30  |%...!.13:.:..640|
000000a0  2c 35 31 32 3a 74 25 3d  b3 28 2d 91 29 3a c8 97  |,512:t%=.(-.):..|
000000b0  20 ee 0d 00 06 73 f1 20  8a 31 34 2c 37 29 22 4d  | ....s. .14,7)"M|
000000c0  6f 75 73 65 20 20 42 75  74 74 6f 6e 73 22 3a f1  |ouse  Buttons":.|
000000d0  20 8a 31 34 2c 39 29 22  53 65 6c 65 63 74 20 3d  | .14,9)"Select =|
000000e0  20 50 61 69 6e 74 22 3a  f1 20 8a 31 34 2c 31 31  | Paint":. .14,11|
000000f0  29 22 4d 65 6e 75 20 20  20 3d 20 43 6c 65 61 72  |)"Menu   = Clear|
00000100  22 3a f1 20 8a 31 34 2c  31 33 29 22 41 64 6a 75  |":. .14,13)"Adju|
00000110  73 74 20 3d 20 53 70 69  6e 22 3a c8 8f c8 90 30  |st = Spin":....0|
00000120  2c 30 2c 33 32 0d 00 07  13 73 70 72 65 61 64 25  |,0,32....spread%|
00000130  3d 35 31 32 3a 74 3d 31  0d 00 08 13 f5 3a f5 3a  |=512:t=1.....:.:|
00000140  c8 97 20 78 25 2c 79 25  2c 62 25 0d 00 09 a2 e7  |.. x%,y%,b%.....|
00000150  20 62 25 80 34 20 8c 20  74 25 2b 3d 31 3a 72 65  | b%.4 . t%+=1:re|
00000160  64 25 3d 31 32 37 2a b5  b2 28 74 25 2f 31 2e 35  |d%=127*..(t%/1.5|
00000170  29 2b 31 32 37 3a 67 72  6e 25 3d 31 32 37 2a b5  |)+127:grn%=127*.|
00000180  b2 28 74 25 2f 34 29 2b  31 32 37 3a 62 6c 75 25  |.(t%/4)+127:blu%|
00000190  3d 31 32 37 2a b5 b2 28  74 25 2f 36 29 2b 31 32  |=127*..(t%/6)+12|
000001a0  37 3a c8 99 20 63 6f 6c  25 2c 28 28 72 65 64 25  |7:.. col%,((red%|
000001b0  3c 3c 38 29 2b 28 67 72  6e 25 3c 3c 31 36 29 2b  |<<8)+(grn%<<16)+|
000001c0  28 62 6c 75 25 3c 3c 32  34 29 29 2c 2c 2c 26 31  |(blu%<<24)),,,&1|
000001d0  30 30 3a c8 8f c8 90 78  25 2c 79 25 2c 32 30 3a  |00:....x%,y%,20:|
000001e0  e7 74 25 3e 31 34 34 30  20 74 25 3d 30 0d 00 0a  |.t%>1440 t%=0...|
000001f0  23 e7 20 62 25 80 32 20  8c 20 db 3a c8 91 36 34  |#. b%.2 . .:..64|
00000200  30 2c 35 31 32 3a c8 8f  c8 90 30 2c 30 2c 33 32  |0,512:....0,0,32|
00000210  0d 00 0b 0f fd 20 62 25  3d 31 3a 62 25 3d 30 0d  |..... b%=1:b%=0.|
00000220  00 0c a3 73 69 7a 65 25  3d b3 28 36 34 29 2b 31  |...size%=.(64)+1|
00000230  36 3a c8 91 36 34 30 2d  73 69 7a 65 25 2f 32 2c  |6:..640-size%/2,|
00000240  35 31 32 2d 73 69 7a 65  25 2f 32 3a e3 20 72 25  |512-size%/2:. r%|
00000250  3d 39 36 20 b8 20 73 70  72 65 61 64 25 88 31 32  |=96 . spread%.12|
00000260  3a e3 61 25 3d 31 b8 33  36 30 88 20 38 3a 73 3d  |:.a%=1.360. 8:s=|
00000270  b5 b2 28 61 25 29 3a 63  3d 9b b2 28 61 25 29 3a  |..(a%):c=..(a%):|
00000280  78 3d 28 72 25 2d 34 29  2a 73 3a 79 3d 28 72 25  |x=(r%-4)*s:y=(r%|
00000290  2d 34 29 2a 63 3a 78 32  3d 72 25 2a 73 3a 79 32  |-4)*c:x2=r%*s:y2|
000002a0  3d 72 25 2a 63 3a c8 93  78 2c 79 2c 73 69 7a 65  |=r%*c:..x,y,size|
000002b0  25 b8 78 32 2c 79 32 3a  ed 61 25 2c 72 25 3a fd  |%.x2,y2:.a%,r%:.|
000002c0  20 a3 0d 00 0d 04 0d 00  0e 2a dd f2 62 6c 61 63  | ........*..blac|
000002d0  6b 68 6f 6c 65 3a ea 20  78 25 2c 79 25 2c 64 78  |khole:. x%,y%,dx|
000002e0  25 2c 64 79 25 3a c8 97  20 87 3a ee 20 85 20 e0  |%,dy%:.. .:. . .|
000002f0  0d 00 0f cd c8 91 30 2c  30 3a e6 30 c8 9c 30 3a  |......0,0:.0..0:|
00000300  c8 93 c8 90 30 2c 30 2c  33 32 2c 31 30 32 30 3a  |....0,0,32,1020:|
00000310  c8 93 c8 90 30 2c 30 2c  31 32 37 36 2c 33 32 3a  |....0,0,1276,32:|
00000320  c8 93 c8 90 30 2c 31 30  30 38 2c 31 32 37 36 2c  |....0,1008,1276,|
00000330  33 32 3a c8 93 c8 90 30  2c 31 32 36 34 2c 33 32  |32:....0,1264,32|
00000340  2c 31 30 32 30 3a c8 91  36 34 30 2c 35 31 32 3a  |,1020:..640,512:|
00000350  73 74 61 72 74 25 3d 91  2b 38 30 30 3a f5 3a 78  |start%=.+800:.:x|
00000360  25 3d b3 28 31 32 38 30  29 2d 36 34 30 3a 79 25  |%=.(1280)-640:y%|
00000370  3d b3 28 31 30 32 34 29  2d 35 31 32 3a 64 78 25  |=.(1024)-512:dx%|
00000380  3d 78 25 2f 32 30 3a 64  79 25 3d 79 25 2f 31 36  |=x%/20:dy%=y%/16|
00000390  3a c8 93 78 25 2c 79 25  2c 38 30 2c 36 34 20 b8  |:..x%,y%,80,64 .|
000003a0  20 78 25 2d 64 78 25 2c  79 25 2d 64 79 25 3a fd  | x%-dx%,y%-dy%:.|
000003b0  20 91 3e 73 74 61 72 74  25 3a db 3a e1 0d ff     | .>start%:.:...|
000003bf

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