Home » Archimedes archive » Acorn User » AU 1995-10.adf » !Regulars » Regulars/StarInfo/Graphics/Nematode
Regulars/StarInfo/Graphics/Nematode
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 1995-10.adf » !Regulars |
| Filename: | Regulars/StarInfo/Graphics/Nematode |
| Read OK: | ✔ |
| File size: | 02DC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Nematode
11REM By dL 31Jul95
20LIBRARY "PROCmode"
30PROCmode("X800 Y600 C32T"):OFF
40s=50
50DIM x(s-1),y(s-1)
60REPEAT
70 x=RND(1000)+300
80 y=RND(800)+200
90 a=RND(1)*360
100 x()=x
110 y()=y
120 n=0
130 r2=RND(64)
140 g2=RND(64)
150 b2=RND(64)
160 r1=255-RND(160)
170 g1=255-RND(160)
180 b1=255-RND(160)
190 t=RND(100)+100
200 REPEAT
210 d=RND(1)*180-90
220 l=RND(10)+2
230 FOR i=0 TO l-1
231 IF t>31 THEN
240 x+=SINRAD(a)*4
250 y+=COSRAD(a)*4
260 a+=d/l
261 ENDIF
270 x(n)=x
280 y(n)=y
290 k=n
300 FOR r=31 TO 0 STEP -1
310 GCOL r1+(r2-r1)*r/31,g1+(g2-g1)*r/31,b1+(b2-b1)*r/31
311 IF t>31 OR (t<32 AND t>r) THEN
320 CIRCLE FILL x(k),y(k),r
321 ENDIF
330 k-=1
340 IF k<0 k+=s
350 NEXT
360 n=(n+1) MOD s
361 t-=1
370 NEXT
380 UNTIL t<0
400UNTIL 0
401DEF FNmin(a,b)
402IF a<b =a ELSE =b
� >Nematode
� By dL 31Jul95
ț "PROCmode"
�mode("X800 Y600 C32T"):�
(s=50
2� x(s-1),y(s-1)
<�
F x=�(1000)+300
P y=�(800)+200
Z a=�(1)*360
d
x()=x
n
y()=y
x n=0
�
r2=�(64)
�
g2=�(64)
�
b2=�(64)
� r1=255-�(160)
� g1=255-�(160)
� b1=255-�(160)
� t=�(100)+100
� �
� d=�(1)*180-90
� l=�(10)+2
� � i=0 � l-1
� � t>31 �
� x+=��(a)*4
� y+=��(a)*4
a+=d/l
�
x(n)=x
y(n)=y
"
k=n
, � r=31 � 0 � -1
69 � r1+(r2-r1)*r/31,g1+(g2-g1)*r/31,b1+(b2-b1)*r/31
7 � t>31 � (t<32 � t>r) �
@ ȏ Ȑ x(k),y(k),r
A �
J k-=1
T � k<0 k+=s
^ �
h n=(n+1) � s
i t-=1
r �
|
� t<0
�� 0
�� �min(a,b)
�� a<b =a � =b
� 00000000 0d 00 0a 0f f4 20 3e 4e 65 6d 61 74 6f 64 65 0d |..... >Nematode.|
00000010 00 0b 13 f4 20 42 79 20 64 4c 20 33 31 4a 75 6c |.... By dL 31Jul|
00000020 39 35 0d 00 14 11 c8 9b 20 22 50 52 4f 43 6d 6f |95...... "PROCmo|
00000030 64 65 22 0d 00 1e 1d f2 6d 6f 64 65 28 22 58 38 |de".....mode("X8|
00000040 30 30 20 59 36 30 30 20 43 33 32 54 22 29 3a 87 |00 Y600 C32T"):.|
00000050 0d 00 28 08 73 3d 35 30 0d 00 32 13 de 20 78 28 |..(.s=50..2.. x(|
00000060 73 2d 31 29 2c 79 28 73 2d 31 29 0d 00 3c 05 f5 |s-1),y(s-1)..<..|
00000070 0d 00 46 12 20 78 3d b3 28 31 30 30 30 29 2b 33 |..F. x=.(1000)+3|
00000080 30 30 0d 00 50 11 20 79 3d b3 28 38 30 30 29 2b |00..P. y=.(800)+|
00000090 32 30 30 0d 00 5a 0f 20 61 3d b3 28 31 29 2a 33 |200..Z. a=.(1)*3|
000000a0 36 30 0d 00 64 0a 20 78 28 29 3d 78 0d 00 6e 0a |60..d. x()=x..n.|
000000b0 20 79 28 29 3d 79 0d 00 78 08 20 6e 3d 30 0d 00 | y()=y..x. n=0..|
000000c0 82 0d 20 72 32 3d b3 28 36 34 29 0d 00 8c 0d 20 |.. r2=.(64).... |
000000d0 67 32 3d b3 28 36 34 29 0d 00 96 0d 20 62 32 3d |g2=.(64).... b2=|
000000e0 b3 28 36 34 29 0d 00 a0 12 20 72 31 3d 32 35 35 |.(64).... r1=255|
000000f0 2d b3 28 31 36 30 29 0d 00 aa 12 20 67 31 3d 32 |-.(160).... g1=2|
00000100 35 35 2d b3 28 31 36 30 29 0d 00 b4 12 20 62 31 |55-.(160).... b1|
00000110 3d 32 35 35 2d b3 28 31 36 30 29 0d 00 be 11 20 |=255-.(160).... |
00000120 74 3d b3 28 31 30 30 29 2b 31 30 30 0d 00 c8 06 |t=.(100)+100....|
00000130 20 f5 0d 00 d2 13 20 20 64 3d b3 28 31 29 2a 31 | ..... d=.(1)*1|
00000140 38 30 2d 39 30 0d 00 dc 0f 20 20 6c 3d b3 28 31 |80-90.... l=.(1|
00000150 30 29 2b 32 0d 00 e6 11 20 20 e3 20 69 3d 30 20 |0)+2.... . i=0 |
00000160 b8 20 6c 2d 31 0d 00 e7 0f 20 20 20 e7 20 74 3e |. l-1.... . t>|
00000170 33 31 20 8c 0d 00 f0 11 20 20 20 78 2b 3d b5 b2 |31 ..... x+=..|
00000180 28 61 29 2a 34 0d 00 fa 11 20 20 20 79 2b 3d 9b |(a)*4.... y+=.|
00000190 b2 28 61 29 2a 34 0d 01 04 0d 20 20 20 61 2b 3d |.(a)*4.... a+=|
000001a0 64 2f 6c 0d 01 05 08 20 20 20 cd 0d 01 0e 0d 20 |d/l.... ..... |
000001b0 20 20 78 28 6e 29 3d 78 0d 01 18 0d 20 20 20 79 | x(n)=x.... y|
000001c0 28 6e 29 3d 79 0d 01 22 0a 20 20 20 6b 3d 6e 0d |(n)=y..". k=n.|
000001d0 01 2c 16 20 20 20 e3 20 72 3d 33 31 20 b8 20 30 |.,. . r=31 . 0|
000001e0 20 88 20 2d 31 0d 01 36 39 20 20 20 20 e6 20 72 | . -1..69 . r|
000001f0 31 2b 28 72 32 2d 72 31 29 2a 72 2f 33 31 2c 67 |1+(r2-r1)*r/31,g|
00000200 31 2b 28 67 32 2d 67 31 29 2a 72 2f 33 31 2c 62 |1+(g2-g1)*r/31,b|
00000210 31 2b 28 62 32 2d 62 31 29 2a 72 2f 33 31 0d 01 |1+(b2-b1)*r/31..|
00000220 37 1f 20 20 20 20 e7 20 74 3e 33 31 20 84 20 28 |7. . t>31 . (|
00000230 74 3c 33 32 20 80 20 74 3e 72 29 20 8c 0d 01 40 |t<32 . t>r) ...@|
00000240 19 20 20 20 20 c8 8f 20 c8 90 20 78 28 6b 29 2c |. .. .. x(k),|
00000250 79 28 6b 29 2c 72 0d 01 41 09 20 20 20 20 cd 0d |y(k),r..A. ..|
00000260 01 4a 0c 20 20 20 20 6b 2d 3d 31 0d 01 54 12 20 |.J. k-=1..T. |
00000270 20 20 20 e7 20 6b 3c 30 20 6b 2b 3d 73 0d 01 5e | . k<0 k+=s..^|
00000280 08 20 20 20 ed 0d 01 68 12 20 20 20 6e 3d 28 6e |. ...h. n=(n|
00000290 2b 31 29 20 83 20 73 0d 01 69 0b 20 20 20 74 2d |+1) . s..i. t-|
000002a0 3d 31 0d 01 72 07 20 20 ed 0d 01 7c 0a 20 fd 20 |=1..r. ...|. . |
000002b0 74 3c 30 0d 01 90 07 fd 20 30 0d 01 91 0f dd 20 |t<0..... 0..... |
000002c0 a4 6d 69 6e 28 61 2c 62 29 0d 01 92 11 e7 20 61 |.min(a,b)..... a|
000002d0 3c 62 20 3d 61 20 8b 20 3d 62 0d ff |<b =a . =b..|
000002dc 
.