Home » Archimedes archive » Acorn User » AU 1995-01.adf » !StarInfo_StarInfo » VanMourik/TRIANJULIA
VanMourik/TRIANJULIA
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-01.adf » !StarInfo_StarInfo |
| Filename: | VanMourik/TRIANJULIA |
| Read OK: | ✔ |
| File size: | 02EF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >TRIANJULIA 20REM (C) JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ UK. 94 30PROCMODE:PRINT" JULIA WITH A TRIANGULAR SYMMETRY":C%=4:IFB_%=1:C%=2 40ORIGIN640,512:OFF:FORX=0TO15:READR,G,B:COLOURX,R,G,B:NEXT 50C=-.07:D=.77:REM C AND D DEFINE THE JULIA IMAGE 60 70REM MAIN LOOP 80FORJ%=-640TO640STEP2:FORK%=-512TO512STEPC%:J=J%/544:K=(K%+99)/480:FORX%=0TO155:M=J*J:N=K*K:J=J*(M-3*N)+C:K=K*(3*M-N)+D:IFABS(M-N)<7:NEXT:NEXT:NEXT:END 90GCOLX%MOD15+1:POINTJ%,K%:NEXTK%:NEXT:END 100 110REM R,G,B VALUE OF THE PALETTE 120DATA 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 130 140REM SUITABLE MODE DETECTION ROUTINE 150DEFPROCMODE LOCALC%,F% 160SYS63,20TO;F%:C%=(F%AND%0010)>>1:IFNOT(C%=1)MODE20:B_%=1ELSEMODE12:B_%=0 170OFF:ENDPROC
� >TRIANJULIA M� (C) JEAN VAN MOURIK MILLCOTTAGE DERWYDD AMMANFORD DYFED SA183LQ UK. 94 ?�MODE:�" JULIA WITH A TRIANGULAR SYMMETRY":C%=4:�B_%=1:C%=2 ()ȑ640,512:�:�X=0�15:�R,G,B:�X,R,G,B:� 21C=-.07:D=.77:� C AND D DEFINE THE JULIA IMAGE < F� MAIN LOOP P}�J%=-640�640�2:�K%=-512�512�C%:J=J%/544:K=(K%+99)/480:�X%=0�155:M=J*J:N=K*K:J=J*(M-3*N)+C:K=K*(3*M-N)+D:�(M-N)<7:�:�:�:� Z �X%�15+1:ȒJ%,K%:�K%:�:� d n � R,G,B VALUE OF THE PALETTE 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 � �%� SUITABLE MODE DETECTION ROUTINE ���MODE �C%,F% �<ș63,20�;F%:C%=(F%�%0010)>>1:�(C%=1)�20:B_%=1��12:B_%=0 ��:� �
00000000 0d 00 0a 11 f4 20 3e 54 52 49 41 4e 4a 55 4c 49 |..... >TRIANJULI| 00000010 41 0d 00 14 4d f4 20 28 43 29 20 4a 45 41 4e 20 |A...M. (C) JEAN | 00000020 56 41 4e 20 4d 4f 55 52 49 4b 20 4d 49 4c 4c 43 |VAN MOURIK MILLC| 00000030 4f 54 54 41 47 45 20 44 45 52 57 59 44 44 20 41 |OTTAGE DERWYDD A| 00000040 4d 4d 41 4e 46 4f 52 44 20 44 59 46 45 44 20 53 |MMANFORD DYFED S| 00000050 41 31 38 33 4c 51 20 20 55 4b 2e 20 39 34 0d 00 |A183LQ UK. 94..| 00000060 1e 3f f2 4d 4f 44 45 3a f1 22 20 4a 55 4c 49 41 |.?.MODE:." JULIA| 00000070 20 57 49 54 48 20 41 20 54 52 49 41 4e 47 55 4c | WITH A TRIANGUL| 00000080 41 52 20 53 59 4d 4d 45 54 52 59 22 3a 43 25 3d |AR SYMMETRY":C%=| 00000090 34 3a e7 42 5f 25 3d 31 3a 43 25 3d 32 0d 00 28 |4:.B_%=1:C%=2..(| 000000a0 29 c8 91 36 34 30 2c 35 31 32 3a 87 3a e3 58 3d |)..640,512:.:.X=| 000000b0 30 b8 31 35 3a f3 52 2c 47 2c 42 3a fb 58 2c 52 |0.15:.R,G,B:.X,R| 000000c0 2c 47 2c 42 3a ed 0d 00 32 31 43 3d 2d 2e 30 37 |,G,B:...21C=-.07| 000000d0 3a 44 3d 2e 37 37 3a f4 20 43 20 41 4e 44 20 44 |:D=.77:. C AND D| 000000e0 20 44 45 46 49 4e 45 20 54 48 45 20 4a 55 4c 49 | DEFINE THE JULI| 000000f0 41 20 49 4d 41 47 45 0d 00 3c 05 20 0d 00 46 0f |A IMAGE..<. ..F.| 00000100 f4 20 4d 41 49 4e 20 4c 4f 4f 50 0d 00 50 7d e3 |. MAIN LOOP..P}.| 00000110 4a 25 3d 2d 36 34 30 b8 36 34 30 88 32 3a e3 4b |J%=-640.640.2:.K| 00000120 25 3d 2d 35 31 32 b8 35 31 32 88 43 25 3a 4a 3d |%=-512.512.C%:J=| 00000130 4a 25 2f 35 34 34 3a 4b 3d 28 4b 25 2b 39 39 29 |J%/544:K=(K%+99)| 00000140 2f 34 38 30 3a e3 58 25 3d 30 b8 31 35 35 3a 4d |/480:.X%=0.155:M| 00000150 3d 4a 2a 4a 3a 4e 3d 4b 2a 4b 3a 4a 3d 4a 2a 28 |=J*J:N=K*K:J=J*(| 00000160 4d 2d 33 2a 4e 29 2b 43 3a 4b 3d 4b 2a 28 33 2a |M-3*N)+C:K=K*(3*| 00000170 4d 2d 4e 29 2b 44 3a e7 94 28 4d 2d 4e 29 3c 37 |M-N)+D:..(M-N)<7| 00000180 3a ed 3a ed 3a ed 3a e0 0d 00 5a 1c e6 58 25 83 |:.:.:.:...Z..X%.| 00000190 31 35 2b 31 3a c8 92 4a 25 2c 4b 25 3a ed 4b 25 |15+1:..J%,K%:.K%| 000001a0 3a ed 3a e0 0d 00 64 05 20 0d 00 6e 20 f4 20 52 |:.:...d. ..n . R| 000001b0 2c 47 2c 42 20 56 41 4c 55 45 20 4f 46 20 54 48 |,G,B VALUE OF TH| 000001c0 45 20 50 41 4c 45 54 54 45 0d 00 78 a7 dc 20 30 |E PALETTE..x.. 0| 000001d0 2c 30 2c 30 2c 31 39 32 2c 30 2c 32 34 30 2c 31 |,0,0,192,0,240,1| 000001e0 34 34 2c 34 38 2c 32 34 30 2c 39 36 2c 39 36 2c |44,48,240,96,96,| 000001f0 32 34 30 2c 34 38 2c 31 34 34 2c 32 34 30 2c 30 |240,48,144,240,0| 00000200 2c 31 39 32 2c 32 34 30 2c 30 2c 32 34 30 2c 31 |,192,240,0,240,1| 00000210 39 32 2c 34 38 2c 32 34 30 2c 31 34 34 2c 39 36 |92,48,240,144,96| 00000220 2c 32 34 30 2c 39 36 2c 31 34 34 2c 32 34 30 2c |,240,96,144,240,| 00000230 34 38 2c 31 39 32 2c 32 34 30 2c 30 2c 32 34 30 |48,192,240,0,240| 00000240 2c 31 39 32 2c 30 2c 32 34 30 2c 31 34 34 2c 34 |,192,0,240,144,4| 00000250 38 2c 32 34 30 2c 39 36 2c 39 36 2c 32 34 30 2c |8,240,96,96,240,| 00000260 34 38 2c 31 34 34 2c 32 34 30 2c 30 2c 31 39 32 |48,144,240,0,192| 00000270 0d 00 82 04 0d 00 8c 25 f4 20 53 55 49 54 41 42 |.......%. SUITAB| 00000280 4c 45 20 4d 4f 44 45 20 44 45 54 45 43 54 49 4f |LE MODE DETECTIO| 00000290 4e 20 52 4f 55 54 49 4e 45 0d 00 96 11 dd f2 4d |N ROUTINE......M| 000002a0 4f 44 45 20 ea 43 25 2c 46 25 0d 00 a0 3c c8 99 |ODE .C%,F%...<..| 000002b0 36 33 2c 32 30 b8 3b 46 25 3a 43 25 3d 28 46 25 |63,20.;F%:C%=(F%| 000002c0 80 25 30 30 31 30 29 3e 3e 31 3a e7 ac 28 43 25 |.%0010)>>1:..(C%| 000002d0 3d 31 29 eb 32 30 3a 42 5f 25 3d 31 8b eb 31 32 |=1).20:B_%=1..12| 000002e0 3a 42 5f 25 3d 30 0d 00 aa 07 87 3a e1 0d ff |:B_%=0.....:...| 000002ef
.