Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » Regulars » StarInfo/vanMourik/FRACTAL5
StarInfo/vanMourik/FRACTAL5
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-Xmas B.adf » Regulars |
| Filename: | StarInfo/vanMourik/FRACTAL5 |
| Read OK: | ✔ |
| File size: | 0310 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >FRACTAL5 20REM JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ UK. 94 30PROCMODE:FOR X=0TO15:READ R,G,B:COLOUR X,R,G,B:NEXT:C=3*PI:G=1.5:D=G*2/640 40E=.000001:D%=-4:E%=4:F=.75/128:IF MODE=20 D%=-2:E%=2:F=.75/256 50 60REM MAIN LOOP 70FORJ=-.7499TO0STEPF:D%+=E%::C%=-2:FORI=-G TOG STEPD:C%+=2:R=0:U=999:X=E:Y=0 80FOR K%=0TO150:W=3*ATN(Y/X):IF X<0 W+=SGNY*C 90Z=I+R*COSW+I*X-J*Y-X-(I*X+J*Y-X)/U:Y=J+R*SINW+I*Y+J*X-Y-(J*X-I*Y+Y)/U:R=Z*Z+Y*Y:U=R-2*Z+1:R=R^1.5:X=Z:IF R<99 NEXT:NEXT:NEXT:END 100GCOL K%MOD15+1:POINT C%,D%:POINT C%,1024-E%-D%:NEXT I:NEXT 110END 120 130DATA 0,0,0,192,0,240,144,48,240,96,96,240,48,144,240,0,192,240,0,240,192,48,240,144,96,240,96,144,240,48,192,240,0,240,192,0,240,144,48,240,96,96,240,48,144,240,0,192 140 150DEFPROCMODE LOCAL C%,F% 160SYS "OS_CheckModeValid",20 TO ;F% 170C%=(F%AND%0010)>>1 180IF NOT (C%=1) MODE 20 ELSE MODE 12 190OFF:ENDPROC
� >FRACTAL5 I� JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ UK. 94 <�MODE:� X=0�15:� R,G,B:� X,R,G,B:�:C=3*�:G=1.5:D=G*2/640 (>E=.000001:D%=-4:E%=4:F=.75/128:� �=20 D%=-2:E%=2:F=.75/256 2 <� MAIN LOOP FC�J=-.7499�0�F:D%+=E%::C%=-2:�I=-G �G �D:C%+=2:R=0:U=999:X=E:Y=0 P'� K%=0�150:W=3*�(Y/X):� X<0 W+=�Y*C ZtZ=I+R*�W+I*X-J*Y-X-(I*X+J*Y-X)/U:Y=J+R*�W+I*Y+J*X-Y-(J*X-I*Y+Y)/U:R=Z*Z+Y*Y:U=R-2*Z+1:R=R^1.5:X=Z:� R<99 �:�:�:� d-� K%�15+1:Ȓ C%,D%:Ȓ C%,1024-E%-D%:� I:� n� x ��� 0,0,0,192,0,240,144,48,240,96,96,240,48,144,240,0,192,240,0,240,192,48,240,144,96,240,96,144,240,48,192,240,0,240,192,0,240,144,48,240,96,96,240,48,144,240,0,192 � ���MODE � C%,F% �#ș "OS_CheckModeValid",20 � ;F% �C%=(F%�%0010)>>1 �� � (C%=1) � 20 � � 12 ��:� �
00000000 0d 00 0a 0f f4 20 3e 46 52 41 43 54 41 4c 35 0d |..... >FRACTAL5.| 00000010 00 14 49 f4 20 4a 45 41 4e 20 56 41 4e 20 4d 4f |..I. JEAN VAN MO| 00000020 55 52 49 4b 20 4d 49 4c 4c 43 4f 54 54 41 47 45 |URIK MILLCOTTAGE| 00000030 20 44 45 52 57 59 44 44 20 41 4d 4d 41 4e 46 4f | DERWYDD AMMANFO| 00000040 52 44 20 44 59 46 45 44 20 53 41 31 38 33 4c 51 |RD DYFED SA183LQ| 00000050 20 20 55 4b 2e 20 39 34 0d 00 1e 3c f2 4d 4f 44 | UK. 94...<.MOD| 00000060 45 3a e3 20 58 3d 30 b8 31 35 3a f3 20 52 2c 47 |E:. X=0.15:. R,G| 00000070 2c 42 3a fb 20 58 2c 52 2c 47 2c 42 3a ed 3a 43 |,B:. X,R,G,B:.:C| 00000080 3d 33 2a af 3a 47 3d 31 2e 35 3a 44 3d 47 2a 32 |=3*.:G=1.5:D=G*2| 00000090 2f 36 34 30 0d 00 28 3e 45 3d 2e 30 30 30 30 30 |/640..(>E=.00000| 000000a0 31 3a 44 25 3d 2d 34 3a 45 25 3d 34 3a 46 3d 2e |1:D%=-4:E%=4:F=.| 000000b0 37 35 2f 31 32 38 3a e7 20 eb 3d 32 30 20 44 25 |75/128:. .=20 D%| 000000c0 3d 2d 32 3a 45 25 3d 32 3a 46 3d 2e 37 35 2f 32 |=-2:E%=2:F=.75/2| 000000d0 35 36 0d 00 32 04 0d 00 3c 0f f4 20 4d 41 49 4e |56..2...<.. MAIN| 000000e0 20 4c 4f 4f 50 0d 00 46 43 e3 4a 3d 2d 2e 37 34 | LOOP..FC.J=-.74| 000000f0 39 39 b8 30 88 46 3a 44 25 2b 3d 45 25 3a 3a 43 |99.0.F:D%+=E%::C| 00000100 25 3d 2d 32 3a e3 49 3d 2d 47 20 b8 47 20 88 44 |%=-2:.I=-G .G .D| 00000110 3a 43 25 2b 3d 32 3a 52 3d 30 3a 55 3d 39 39 39 |:C%+=2:R=0:U=999| 00000120 3a 58 3d 45 3a 59 3d 30 0d 00 50 27 e3 20 4b 25 |:X=E:Y=0..P'. K%| 00000130 3d 30 b8 31 35 30 3a 57 3d 33 2a 99 28 59 2f 58 |=0.150:W=3*.(Y/X| 00000140 29 3a e7 20 58 3c 30 20 57 2b 3d b4 59 2a 43 0d |):. X<0 W+=.Y*C.| 00000150 00 5a 74 5a 3d 49 2b 52 2a 9b 57 2b 49 2a 58 2d |.ZtZ=I+R*.W+I*X-| 00000160 4a 2a 59 2d 58 2d 28 49 2a 58 2b 4a 2a 59 2d 58 |J*Y-X-(I*X+J*Y-X| 00000170 29 2f 55 3a 59 3d 4a 2b 52 2a b5 57 2b 49 2a 59 |)/U:Y=J+R*.W+I*Y| 00000180 2b 4a 2a 58 2d 59 2d 28 4a 2a 58 2d 49 2a 59 2b |+J*X-Y-(J*X-I*Y+| 00000190 59 29 2f 55 3a 52 3d 5a 2a 5a 2b 59 2a 59 3a 55 |Y)/U:R=Z*Z+Y*Y:U| 000001a0 3d 52 2d 32 2a 5a 2b 31 3a 52 3d 52 5e 31 2e 35 |=R-2*Z+1:R=R^1.5| 000001b0 3a 58 3d 5a 3a e7 20 52 3c 39 39 20 ed 3a ed 3a |:X=Z:. R<99 .:.:| 000001c0 ed 3a e0 0d 00 64 2d e6 20 4b 25 83 31 35 2b 31 |.:...d-. K%.15+1| 000001d0 3a c8 92 20 43 25 2c 44 25 3a c8 92 20 43 25 2c |:.. C%,D%:.. C%,| 000001e0 31 30 32 34 2d 45 25 2d 44 25 3a ed 20 49 3a ed |1024-E%-D%:. I:.| 000001f0 0d 00 6e 05 e0 0d 00 78 04 0d 00 82 a7 dc 20 30 |..n....x...... 0| 00000200 2c 30 2c 30 2c 31 39 32 2c 30 2c 32 34 30 2c 31 |,0,0,192,0,240,1| 00000210 34 34 2c 34 38 2c 32 34 30 2c 39 36 2c 39 36 2c |44,48,240,96,96,| 00000220 32 34 30 2c 34 38 2c 31 34 34 2c 32 34 30 2c 30 |240,48,144,240,0| 00000230 2c 31 39 32 2c 32 34 30 2c 30 2c 32 34 30 2c 31 |,192,240,0,240,1| 00000240 39 32 2c 34 38 2c 32 34 30 2c 31 34 34 2c 39 36 |92,48,240,144,96| 00000250 2c 32 34 30 2c 39 36 2c 31 34 34 2c 32 34 30 2c |,240,96,144,240,| 00000260 34 38 2c 31 39 32 2c 32 34 30 2c 30 2c 32 34 30 |48,192,240,0,240| 00000270 2c 31 39 32 2c 30 2c 32 34 30 2c 31 34 34 2c 34 |,192,0,240,144,4| 00000280 38 2c 32 34 30 2c 39 36 2c 39 36 2c 32 34 30 2c |8,240,96,96,240,| 00000290 34 38 2c 31 34 34 2c 32 34 30 2c 30 2c 31 39 32 |48,144,240,0,192| 000002a0 0d 00 8c 04 0d 00 96 12 dd f2 4d 4f 44 45 20 ea |..........MODE .| 000002b0 20 43 25 2c 46 25 0d 00 a0 23 c8 99 20 22 4f 53 | C%,F%...#.. "OS| 000002c0 5f 43 68 65 63 6b 4d 6f 64 65 56 61 6c 69 64 22 |_CheckModeValid"| 000002d0 2c 32 30 20 b8 20 3b 46 25 0d 00 aa 14 43 25 3d |,20 . ;F%....C%=| 000002e0 28 46 25 80 25 30 30 31 30 29 3e 3e 31 0d 00 b4 |(F%.%0010)>>1...| 000002f0 1a e7 20 ac 20 28 43 25 3d 31 29 20 eb 20 32 30 |.. . (C%=1) . 20| 00000300 20 8b 20 eb 20 31 32 0d 00 be 07 87 3a e1 0d ff | . . 12.....:...| 00000310
.