home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 5
/
DATAFILE_PDCD5.iso
/
utilities
/
f
/
fractrace
/
FTS-Files
/
SnowycFTS
< prev
next >
Wrap
Text File
|
1990-07-01
|
2KB
|
54 lines
\ FTS test-demo file...
\ Creates a sequence of images resembling the 'Beauty of Fractals' cover
\ (c)1990 C. Declerck
\ set title
title snowy \ set appropriate title
\ set parameters for animation
if frames=1
frames 16 \ maximum number of frames is 16
scope 1 16 \ create frames 1 through 16
endif
\ initialize variables
v(0)=360/frames \ v(0) is just a constant
v(1)=COSRAD(frame*v(0)) \ v(1) is X-direction of lightbeam
v(2)=SINRAD(frame*v(0)) \ v(2) is Y-direction of lightbeam
\ set parameters for fractal set calculations
\ (only executed in first parse)
if frame=1 \ only execute in first parse
mandelbrot \ set type is Mandelbrot
resolution 300,300 \ resolution of image
range -0.1992,-0.12954,1,1.06707 \ specify which part of set to draw
cval 0,1 \ not of use here (only for Julia sets)
smoothness 220 \ smoothness of surface
depth 100 \ maximum iteration depth
endif \ endif
\ set parameters for raytracing calculations
mountains \ render image in mountain-style
light v(1),v(2),-2 \ light-direction (frame-dependant)
brightness 52 \ brightness of image
steepness 175 \ steepness of mountain slopes
dithering 12 \ rather broad color-dithering
shadows off \ don't calculate shadows
interpolation off \ don't use interpolation
\ set parameters for screen output
offset 40,300 \ position image in middle of screen
angle 0,25 \ look at surface from above
increment 4,4 \ pixel increment steps
slope front 40,7 \ force foremost slope down
\ set colors for surface
color 15,15,15 \ color of image is white