\ 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

\ declare vars. to be used

var xdirection, ydirection, anglestep
           
\ set parameters for animation

frames 16                            \ maximum number of frames is 16
scope 1 16                           \ create frames 1 through 16
                              
\ initialize variables

anglestep=360/frames                  \ anglestep is just a constant
xdirection=COSRAD(frame*anglestep)    \ v(1) is X-direction of lightbeam
ydirection=SINRAD(frame*anglestep)    \ 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 xdirection,ydirection,-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
