StarInfo/Vibe/colourcard/SPIDERWEB2

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

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/SPIDERWEB2
Read OK:	✔
File size:	037E bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > SPIDERWEB2
   20
   30MODE103:OFF:C%=0
   40FORT%=0TO255STEP32
   50R%=-((C%AND1)<>0):G%=-((C%AND2)<>0):B%=-((C%AND4)<>0):C%+=1
   60FORS%=0TO31:Z%=8*S%:COLOURS%-T%,Z%*R%,Z%*G%,Z%*B%:NEXT,
   70A%=0:H1%=0:H2%=0:REPEAT
   80X1%=800+H1%*SINRADA%:Y1%=600+H1%*COSRADA%
   90X2%=800+H1%*SINRAD(A%+18):Y2%=600+H1%*COSRAD(A%+18)
  100X3%=800+H2%*SINRAD(A%+18):Y3%=600+H2%*COSRAD(A%+18)
  110X4%=800+H2%*SINRAD(A%):Y4%=600+H2%*COSRAD(A%)
  120PROCA(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
  130A%+=18:H2%+=4:IF H2%>76 H1%=H2%-80
  140UNTILH1%>=1000
  150END
  160
  170DEFPROCA(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
  180LOCAL XC%,YC%,N%,D%
  190MOVEX4%,Y4%:DRAWX1%,Y1%:DRAWX2%,Y2%:DRAWX3%,Y3%:DRAWX4%,Y4%
  200XC%=(X1%+X2%+X3%+X4%)/4:YC%=(Y1%+Y2%+Y3%+Y4%)/4
  210D%=32*RND(7)+1
  220FORN%=0TO30
  230SYS "OS_SetColour",0,N%+D%
  240MOVE ((32-N%)*X1%+N%*XC%)/32,((32-N%)*Y1%+N%*YC%)/32
  250MOVE ((32-N%)*X2%+N%*XC%)/32,((32-N%)*Y2%+N%*YC%)/32
  260PLOT85,((32-N%)*X4%+N%*XC%)/32,((32-N%)*Y4%+N%*YC%)/32
  270PLOT85,((32-N%)*X3%+N%*XC%)/32,((32-N%)*Y3%+N%*YC%)/32
  280NEXT
  290ENDPROC


� > SPIDERWEB2

�103:�:C%=0
(�T%=0�255�32
29R%=-((C%�1)<>0):G%=-((C%�2)<>0):B%=-((C%�4)<>0):C%+=1
<0�S%=0�31:Z%=8*S%:�S%-T%,Z%*R%,Z%*G%,Z%*B%:�,
FA%=0:H1%=0:H2%=0:�
P%X1%=800+H1%*��A%:Y1%=600+H1%*��A%
Z/X2%=800+H1%*��(A%+18):Y2%=600+H1%*��(A%+18)
d/X3%=800+H2%*��(A%+18):Y3%=600+H2%*��(A%+18)
n)X4%=800+H2%*��(A%):Y4%=600+H2%*��(A%)
x'�A(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
�%A%+=18:H2%+=4:� H2%>76 H1%=H2%-80
��H1%>=1000
��
�
�(��A(X1%,Y1%,X2%,Y2%,X3%,Y3%,X4%,Y4%)
�� XC%,YC%,N%,D%
�0�X4%,Y4%:�X1%,Y1%:�X2%,Y2%:�X3%,Y3%:�X4%,Y4%
�3XC%=(X1%+X2%+X3%+X4%)/4:YC%=(Y1%+Y2%+Y3%+Y4%)/4
�D%=32*�(7)+1
��N%=0�30
�ș "OS_SetColour",0,N%+D%
�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
�
"�
�

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

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