StarInfo/Vibe/colourcard/SPIDERWEB

Home » Archimedes archive » Acorn User » AU 1997-03 B.adf » Regulars » StarInfo/Vibe/colourcard/SPIDERWEB

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 1997-03 B.adf » Regulars
Filename:	StarInfo/Vibe/colourcard/SPIDERWEB
Read OK:	✔
File size:	0352 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > SPIDERWEB
   20
   30MODE103:OFF
   60A%=0:H1%=0:H2%=0:REPEAT
   70X1%=800+H1%*SINRADA%:Y1%=600+H1%*COSRADA%
   80X2%=800+H1%*SINRAD(A%+18):Y2%=600+H1%*COSRAD(A%+18)
   90X3%=800+H2%*SINRAD(A%+18):Y3%=600+H2%*COSRAD(A%+18)
  100X4%=800+H2%*SINRAD(A%):Y4%=600+H2%*COSRAD(A%)
  110PROCA(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
  120A%+=18:H2%+=4:IF H2%>76 H1%=H2%-80
  130UNTILH1%>=1000
  140END
  150
  160DEFPROCA(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
  170LOCAL XC%,YC%,N%
  180MOVEX4%,Y4%:DRAWX1%,Y1%:DRAWX2%,Y2%:DRAWX3%,Y3%:DRAWX4%,Y4%
  190XC%=(X1%+X2%+X3%+X4%)/4:YC%=(Y1%+Y2%+Y3%+Y4%)/4
  200FORN%=0TO31
  210K%=8*N%:PROCRGB(K%,K%,K%)
  220MOVE ((32-N%)*X1%+N%*XC%)/32,((32-N%)*Y1%+N%*YC%)/32
  230MOVE ((32-N%)*X2%+N%*XC%)/32,((32-N%)*Y2%+N%*YC%)/32
  240PLOT85,((32-N%)*X4%+N%*XC%)/32,((32-N%)*Y4%+N%*YC%)/32
  250PLOT85,((32-N%)*X3%+N%*XC%)/32,((32-N%)*Y3%+N%*YC%)/32
  260NEXT
  270ENDPROC
  280
  480DEFPROCRGB(R%,G%,B%)
  490LOCAL C%:C%=(R%<<8)+(G%<<16)+(B%<<24)
  500SYS "ColourTrans_SetGCOL",C%,,,&100,0
  510ENDPROC


� > SPIDERWEB


�103:�
<A%=0:H1%=0:H2%=0:�
F%X1%=800+H1%*��A%:Y1%=600+H1%*��A%
P/X2%=800+H1%*��(A%+18):Y2%=600+H1%*��(A%+18)
Z/X3%=800+H2%*��(A%+18):Y3%=600+H2%*��(A%+18)
d)X4%=800+H2%*��(A%):Y4%=600+H2%*��(A%)
n'�A(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
x%A%+=18:H2%+=4:� H2%>76 H1%=H2%-80
��H1%>=1000
��
�
�(��A(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
�� XC%,YC%,N%
�0�X4%,Y4%:�X1%,Y1%:�X2%,Y2%:�X3%,Y3%:�X4%,Y4%
�3XC%=(X1%+X2%+X3%+X4%)/4:YC%=(Y1%+Y2%+Y3%+Y4%)/4
��N%=0�31
�K%=8*N%:�RGB(K%,K%,K%)
�5� ((32-N%)*X1%+N%*XC%)/32,((32-N%)*Y1%+N%*YC%)/32
�5� ((32-N%)*X2%+N%*XC%)/32,((32-N%)*Y2%+N%*YC%)/32
�7�85,((32-N%)*X4%+N%*XC%)/32,((32-N%)*Y4%+N%*YC%)/32
�7�85,((32-N%)*X3%+N%*XC%)/32,((32-N%)*Y3%+N%*YC%)/32
�
�

���RGB(R%,G%,B%)
�%� C%:C%=(R%<<8)+(G%<<16)+(B%<<24)
�(ș "ColourTrans_SetGCOL",C%,,,&100,0
��
�

00000000  0d 00 0a 11 f4 20 3e 20  53 50 49 44 45 52 57 45  |..... > SPIDERWE|
00000010  42 0d 00 14 04 0d 00 1e  0a eb 31 30 33 3a 87 0d  |B.........103:..|
00000020  00 3c 16 41 25 3d 30 3a  48 31 25 3d 30 3a 48 32  |.<.A%=0:H1%=0:H2|
00000030  25 3d 30 3a f5 0d 00 46  25 58 31 25 3d 38 30 30  |%=0:...F%X1%=800|
00000040  2b 48 31 25 2a b5 b2 41  25 3a 59 31 25 3d 36 30  |+H1%*..A%:Y1%=60|
00000050  30 2b 48 31 25 2a 9b b2  41 25 0d 00 50 2f 58 32  |0+H1%*..A%..P/X2|
00000060  25 3d 38 30 30 2b 48 31  25 2a b5 b2 28 41 25 2b  |%=800+H1%*..(A%+|
00000070  31 38 29 3a 59 32 25 3d  36 30 30 2b 48 31 25 2a  |18):Y2%=600+H1%*|
00000080  9b b2 28 41 25 2b 31 38  29 0d 00 5a 2f 58 33 25  |..(A%+18)..Z/X3%|
00000090  3d 38 30 30 2b 48 32 25  2a b5 b2 28 41 25 2b 31  |=800+H2%*..(A%+1|
000000a0  38 29 3a 59 33 25 3d 36  30 30 2b 48 32 25 2a 9b  |8):Y3%=600+H2%*.|
000000b0  b2 28 41 25 2b 31 38 29  0d 00 64 29 58 34 25 3d  |.(A%+18)..d)X4%=|
000000c0  38 30 30 2b 48 32 25 2a  b5 b2 28 41 25 29 3a 59  |800+H2%*..(A%):Y|
000000d0  34 25 3d 36 30 30 2b 48  32 25 2a 9b b2 28 41 25  |4%=600+H2%*..(A%|
000000e0  29 0d 00 6e 27 f2 41 28  58 31 25 2c 59 31 25 2c  |)..n'.A(X1%,Y1%,|
000000f0  58 32 25 2c 59 32 25 2c  58 33 25 2c 59 33 25 2c  |X2%,Y2%,X3%,Y3%,|
00000100  58 34 25 2c 59 34 25 29  0d 00 78 25 41 25 2b 3d  |X4%,Y4%)..x%A%+=|
00000110  31 38 3a 48 32 25 2b 3d  34 3a e7 20 48 32 25 3e  |18:H2%+=4:. H2%>|
00000120  37 36 20 48 31 25 3d 48  32 25 2d 38 30 0d 00 82  |76 H1%=H2%-80...|
00000130  0e fd 48 31 25 3e 3d 31  30 30 30 0d 00 8c 05 e0  |..H1%>=1000.....|
00000140  0d 00 96 04 0d 00 a0 28  dd f2 41 28 58 31 25 2c  |.......(..A(X1%,|
00000150  59 31 25 2c 58 32 25 2c  59 32 25 2c 58 33 25 2c  |Y1%,X2%,Y2%,X3%,|
00000160  59 33 25 2c 58 34 25 2c  59 34 25 29 0d 00 aa 10  |Y3%,X4%,Y4%)....|
00000170  ea 20 58 43 25 2c 59 43  25 2c 4e 25 0d 00 b4 30  |. XC%,YC%,N%...0|
00000180  ec 58 34 25 2c 59 34 25  3a df 58 31 25 2c 59 31  |.X4%,Y4%:.X1%,Y1|
00000190  25 3a df 58 32 25 2c 59  32 25 3a df 58 33 25 2c  |%:.X2%,Y2%:.X3%,|
000001a0  59 33 25 3a df 58 34 25  2c 59 34 25 0d 00 be 33  |Y3%:.X4%,Y4%...3|
000001b0  58 43 25 3d 28 58 31 25  2b 58 32 25 2b 58 33 25  |XC%=(X1%+X2%+X3%|
000001c0  2b 58 34 25 29 2f 34 3a  59 43 25 3d 28 59 31 25  |+X4%)/4:YC%=(Y1%|
000001d0  2b 59 32 25 2b 59 33 25  2b 59 34 25 29 2f 34 0d  |+Y2%+Y3%+Y4%)/4.|
000001e0  00 c8 0c e3 4e 25 3d 30  b8 33 31 0d 00 d2 1a 4b  |....N%=0.31....K|
000001f0  25 3d 38 2a 4e 25 3a f2  52 47 42 28 4b 25 2c 4b  |%=8*N%:.RGB(K%,K|
00000200  25 2c 4b 25 29 0d 00 dc  35 ec 20 28 28 33 32 2d  |%,K%)...5. ((32-|
00000210  4e 25 29 2a 58 31 25 2b  4e 25 2a 58 43 25 29 2f  |N%)*X1%+N%*XC%)/|
00000220  33 32 2c 28 28 33 32 2d  4e 25 29 2a 59 31 25 2b  |32,((32-N%)*Y1%+|
00000230  4e 25 2a 59 43 25 29 2f  33 32 0d 00 e6 35 ec 20  |N%*YC%)/32...5. |
00000240  28 28 33 32 2d 4e 25 29  2a 58 32 25 2b 4e 25 2a  |((32-N%)*X2%+N%*|
00000250  58 43 25 29 2f 33 32 2c  28 28 33 32 2d 4e 25 29  |XC%)/32,((32-N%)|
00000260  2a 59 32 25 2b 4e 25 2a  59 43 25 29 2f 33 32 0d  |*Y2%+N%*YC%)/32.|
00000270  00 f0 37 f0 38 35 2c 28  28 33 32 2d 4e 25 29 2a  |..7.85,((32-N%)*|
00000280  58 34 25 2b 4e 25 2a 58  43 25 29 2f 33 32 2c 28  |X4%+N%*XC%)/32,(|
00000290  28 33 32 2d 4e 25 29 2a  59 34 25 2b 4e 25 2a 59  |(32-N%)*Y4%+N%*Y|
000002a0  43 25 29 2f 33 32 0d 00  fa 37 f0 38 35 2c 28 28  |C%)/32...7.85,((|
000002b0  33 32 2d 4e 25 29 2a 58  33 25 2b 4e 25 2a 58 43  |32-N%)*X3%+N%*XC|
000002c0  25 29 2f 33 32 2c 28 28  33 32 2d 4e 25 29 2a 59  |%)/32,((32-N%)*Y|
000002d0  33 25 2b 4e 25 2a 59 43  25 29 2f 33 32 0d 01 04  |3%+N%*YC%)/32...|
000002e0  05 ed 0d 01 0e 05 e1 0d  01 18 04 0d 01 e0 13 dd  |................|
000002f0  f2 52 47 42 28 52 25 2c  47 25 2c 42 25 29 0d 01  |.RGB(R%,G%,B%)..|
00000300  ea 25 ea 20 43 25 3a 43  25 3d 28 52 25 3c 3c 38  |.%. C%:C%=(R%<<8|
00000310  29 2b 28 47 25 3c 3c 31  36 29 2b 28 42 25 3c 3c  |)+(G%<<16)+(B%<<|
00000320  32 34 29 0d 01 f4 28 c8  99 20 22 43 6f 6c 6f 75  |24)...(.. "Colou|
00000330  72 54 72 61 6e 73 5f 53  65 74 47 43 4f 4c 22 2c  |rTrans_SetGCOL",|
00000340  43 25 2c 2c 2c 26 31 30  30 2c 30 0d 01 fe 05 e1  |C%,,,&100,0.....|
00000350  0d ff                                             |..|
00000352

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