Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » Regulars » StarInfo/winter/Alexandrou/IceCrystal
StarInfo/winter/Alexandrou/IceCrystal
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-02 B.adf » Regulars |
| Filename: | StarInfo/winter/Alexandrou/IceCrystal |
| Read OK: | ✔ |
| File size: | 0172 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM *** Written by Dean Alexandrou 20 30MODE9:g=PI/180:FORn=0TO15:COLOURn,n*17,n*17,n*8+135:NEXT:i=20:DIMi(i,4):i()=1:REPEAT:i(i,0)=RND(1280):i(i,1)=RND(1024):i(i,2)=RND(100):i(i,3)=RND(10)+4:PROCi(i(i,0),i(i,1),i(i,2),i(i,3),1):FORn=1TOi-1:FORm=0TO3:i(n,m)=i(n+1,m):NEXT:NEXT:PROCi(i(1,0),i(1,1),i(1,2),i(1,3),0):UNTIL0 40DEFPROCi(e,f,a,b,d):FORr=0TOa STEP10:FORc=0TO360 STEP360/b:a=c*g:x=SIN(a)*r+e:y=COS(a)*r+f:GCOL0,RND(15)*d:POINTx,y:NEXT:NEXT:ENDPROC
$� *** Written by Dean Alexandrou ��9:g=�/180:�n=0�15:�n,n*17,n*17,n*8+135:�:i=20:�i(i,4):i()=1:�:i(i,0)=�(1280):i(i,1)=�(1024):i(i,2)=�(100):i(i,3)=�(10)+4:�i(i(i,0),i(i,1),i(i,2),i(i,3),1):�n=1�i-1:�m=0�3:i(n,m)=i(n+1,m):�:�:�i(i(1,0),i(1,1),i(1,2),i(1,3),0):�0 (`��i(e,f,a,b,d):�r=0�a �10:�c=0�360 �360/b:a=c*g:x=�(a)*r+e:y=�(a)*r+f:�0,�(15)*d:Ȓx,y:�:�:� �
00000000 0d 00 0a 24 f4 20 2a 2a 2a 20 57 72 69 74 74 65 |...$. *** Writte| 00000010 6e 20 62 79 20 44 65 61 6e 20 41 6c 65 78 61 6e |n by Dean Alexan| 00000020 64 72 6f 75 0d 00 14 04 0d 00 1e e8 eb 39 3a 67 |drou.........9:g| 00000030 3d af 2f 31 38 30 3a e3 6e 3d 30 b8 31 35 3a fb |=./180:.n=0.15:.| 00000040 6e 2c 6e 2a 31 37 2c 6e 2a 31 37 2c 6e 2a 38 2b |n,n*17,n*17,n*8+| 00000050 31 33 35 3a ed 3a 69 3d 32 30 3a de 69 28 69 2c |135:.:i=20:.i(i,| 00000060 34 29 3a 69 28 29 3d 31 3a f5 3a 69 28 69 2c 30 |4):i()=1:.:i(i,0| 00000070 29 3d b3 28 31 32 38 30 29 3a 69 28 69 2c 31 29 |)=.(1280):i(i,1)| 00000080 3d b3 28 31 30 32 34 29 3a 69 28 69 2c 32 29 3d |=.(1024):i(i,2)=| 00000090 b3 28 31 30 30 29 3a 69 28 69 2c 33 29 3d b3 28 |.(100):i(i,3)=.(| 000000a0 31 30 29 2b 34 3a f2 69 28 69 28 69 2c 30 29 2c |10)+4:.i(i(i,0),| 000000b0 69 28 69 2c 31 29 2c 69 28 69 2c 32 29 2c 69 28 |i(i,1),i(i,2),i(| 000000c0 69 2c 33 29 2c 31 29 3a e3 6e 3d 31 b8 69 2d 31 |i,3),1):.n=1.i-1| 000000d0 3a e3 6d 3d 30 b8 33 3a 69 28 6e 2c 6d 29 3d 69 |:.m=0.3:i(n,m)=i| 000000e0 28 6e 2b 31 2c 6d 29 3a ed 3a ed 3a f2 69 28 69 |(n+1,m):.:.:.i(i| 000000f0 28 31 2c 30 29 2c 69 28 31 2c 31 29 2c 69 28 31 |(1,0),i(1,1),i(1| 00000100 2c 32 29 2c 69 28 31 2c 33 29 2c 30 29 3a fd 30 |,2),i(1,3),0):.0| 00000110 0d 00 28 60 dd f2 69 28 65 2c 66 2c 61 2c 62 2c |..(`..i(e,f,a,b,| 00000120 64 29 3a e3 72 3d 30 b8 61 20 88 31 30 3a e3 63 |d):.r=0.a .10:.c| 00000130 3d 30 b8 33 36 30 20 88 33 36 30 2f 62 3a 61 3d |=0.360 .360/b:a=| 00000140 63 2a 67 3a 78 3d b5 28 61 29 2a 72 2b 65 3a 79 |c*g:x=.(a)*r+e:y| 00000150 3d 9b 28 61 29 2a 72 2b 66 3a e6 30 2c b3 28 31 |=.(a)*r+f:.0,.(1| 00000160 35 29 2a 64 3a c8 92 78 2c 79 3a ed 3a ed 3a e1 |5)*d:..x,y:.:.:.| 00000170 0d ff |..| 00000172
.