Home » Archimedes archive » Micro User » MU 1991-09.adf » PD-Stuff » FracTrace/FTS-Files/MoveFTS
FracTrace/FTS-Files/MoveFTS
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 » Micro User » MU 1991-09.adf » PD-Stuff |
| Filename: | FracTrace/FTS-Files/MoveFTS |
| Read OK: | ✔ |
| File size: | 0359 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
\ Move
\ FTS file producing different Julia's on a line intersecting M
\ The images of the 'Moving Julia's' demo were created with this file
\ (c)1990 by Carl Declerck
title move
var fromx, fromy, tox, toy, xstep, ystep
var thisx, thisy, maxframe
maxframe=12
frames maxframe
scope 1,maxframe
fromx=-0.12; fromy=0.74; tox=0; toy=1
xstep=ABS(fromx-tox)/frames
ystep=ABS(fromy-toy)/frames
thisx=fromx+(frame-1)*xstep
thisy=fromy+(frame-1)*ystep
julia
resolution 300,300
range -1.5,1.5,-1.5,1.5
cval thisx,thisy
smoothness 200
depth 127
mountains
light -0.5,1,-2
brightness 50
steepness 14
dithering 14
shadows off
interpolation off
offset 40,410
angle 0,30
increment 4,4
slope front 0,0
color 15,15,15
00000000 5c 20 4d 6f 76 65 0a 5c 20 46 54 53 20 66 69 6c |\ Move.\ FTS fil| 00000010 65 20 70 72 6f 64 75 63 69 6e 67 20 64 69 66 66 |e producing diff| 00000020 65 72 65 6e 74 20 4a 75 6c 69 61 27 73 20 6f 6e |erent Julia's on| 00000030 20 61 20 6c 69 6e 65 20 69 6e 74 65 72 73 65 63 | a line intersec| 00000040 74 69 6e 67 20 4d 0a 5c 20 54 68 65 20 69 6d 61 |ting M.\ The ima| 00000050 67 65 73 20 6f 66 20 74 68 65 20 27 4d 6f 76 69 |ges of the 'Movi| 00000060 6e 67 20 4a 75 6c 69 61 27 73 27 20 64 65 6d 6f |ng Julia's' demo| 00000070 20 77 65 72 65 20 63 72 65 61 74 65 64 20 77 69 | were created wi| 00000080 74 68 20 74 68 69 73 20 66 69 6c 65 0a 5c 20 28 |th this file.\ (| 00000090 63 29 31 39 39 30 20 62 79 20 43 61 72 6c 20 44 |c)1990 by Carl D| 000000a0 65 63 6c 65 72 63 6b 0a 0a 74 69 74 6c 65 20 6d |eclerck..title m| 000000b0 6f 76 65 20 20 20 20 20 20 20 20 20 20 20 20 20 |ove | 000000c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000d0 20 20 20 20 20 20 20 0a 20 20 20 20 20 20 20 20 | . | 000000e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | * 00000100 20 20 20 20 20 20 0a 76 61 72 20 66 72 6f 6d 78 | .var fromx| 00000110 2c 20 66 72 6f 6d 79 2c 20 74 6f 78 2c 20 74 6f |, fromy, tox, to| 00000120 79 2c 20 78 73 74 65 70 2c 20 79 73 74 65 70 20 |y, xstep, ystep | 00000130 20 20 20 20 20 0a 76 61 72 20 74 68 69 73 78 2c | .var thisx,| 00000140 20 74 68 69 73 79 2c 20 6d 61 78 66 72 61 6d 65 | thisy, maxframe| 00000150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 | . | 00000170 20 20 20 20 20 20 20 20 20 20 20 0a 6d 61 78 66 | .maxf| 00000180 72 61 6d 65 3d 31 32 0a 0a 66 72 61 6d 65 73 20 |rame=12..frames | 00000190 6d 61 78 66 72 61 6d 65 0a 73 63 6f 70 65 20 31 |maxframe.scope 1| 000001a0 2c 6d 61 78 66 72 61 6d 65 0a 0a 66 72 6f 6d 78 |,maxframe..fromx| 000001b0 3d 2d 30 2e 31 32 3b 20 66 72 6f 6d 79 3d 30 2e |=-0.12; fromy=0.| 000001c0 37 34 3b 20 74 6f 78 3d 30 3b 20 74 6f 79 3d 31 |74; tox=0; toy=1| 000001d0 0a 0a 78 73 74 65 70 3d 41 42 53 28 66 72 6f 6d |..xstep=ABS(from| 000001e0 78 2d 74 6f 78 29 2f 66 72 61 6d 65 73 0a 79 73 |x-tox)/frames.ys| 000001f0 74 65 70 3d 41 42 53 28 66 72 6f 6d 79 2d 74 6f |tep=ABS(fromy-to| 00000200 79 29 2f 66 72 61 6d 65 73 0a 0a 74 68 69 73 78 |y)/frames..thisx| 00000210 3d 66 72 6f 6d 78 2b 28 66 72 61 6d 65 2d 31 29 |=fromx+(frame-1)| 00000220 2a 78 73 74 65 70 0a 74 68 69 73 79 3d 66 72 6f |*xstep.thisy=fro| 00000230 6d 79 2b 28 66 72 61 6d 65 2d 31 29 2a 79 73 74 |my+(frame-1)*yst| 00000240 65 70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |ep | 00000250 20 20 0a 0a 6a 75 6c 69 61 0a 72 65 73 6f 6c 75 | ..julia.resolu| 00000260 74 69 6f 6e 20 33 30 30 2c 33 30 30 0a 72 61 6e |tion 300,300.ran| 00000270 67 65 20 2d 31 2e 35 2c 31 2e 35 2c 2d 31 2e 35 |ge -1.5,1.5,-1.5| 00000280 2c 31 2e 35 0a 63 76 61 6c 20 74 68 69 73 78 2c |,1.5.cval thisx,| 00000290 74 68 69 73 79 0a 73 6d 6f 6f 74 68 6e 65 73 73 |thisy.smoothness| 000002a0 20 32 30 30 0a 64 65 70 74 68 20 31 32 37 0a 0a | 200.depth 127..| 000002b0 6d 6f 75 6e 74 61 69 6e 73 0a 6c 69 67 68 74 20 |mountains.light | 000002c0 2d 30 2e 35 2c 31 2c 2d 32 0a 62 72 69 67 68 74 |-0.5,1,-2.bright| 000002d0 6e 65 73 73 20 35 30 0a 73 74 65 65 70 6e 65 73 |ness 50.steepnes| 000002e0 73 20 31 34 0a 64 69 74 68 65 72 69 6e 67 20 31 |s 14.dithering 1| 000002f0 34 0a 73 68 61 64 6f 77 73 20 6f 66 66 0a 69 6e |4.shadows off.in| 00000300 74 65 72 70 6f 6c 61 74 69 6f 6e 20 6f 66 66 0a |terpolation off.| 00000310 0a 6f 66 66 73 65 74 20 34 30 2c 34 31 30 0a 61 |.offset 40,410.a| 00000320 6e 67 6c 65 20 30 2c 33 30 0a 69 6e 63 72 65 6d |ngle 0,30.increm| 00000330 65 6e 74 20 34 2c 34 0a 73 6c 6f 70 65 20 66 72 |ent 4,4.slope fr| 00000340 6f 6e 74 20 30 2c 30 0a 0a 63 6f 6c 6f 72 20 31 |ont 0,0..color 1| 00000350 35 2c 31 35 2c 31 35 0a 0a |5,15,15..| 00000359
.