home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / fractals / _fractrace / FTS-Files / SnowycFTS < prev    next >
Encoding:
Text File  |  1990-07-01  |  2.3 KB  |  54 lines
  1. \ FTS test-demo file...
  2. \ Creates a sequence of images resembling the 'Beauty of Fractals' cover
  3. \ (c)1990 C. Declerck
  4.        
  5. \ set title                                  
  6.  
  7. title snowy                           \ set appropriate title
  8.            
  9. \ set parameters for animation
  10.  
  11. if frames=1
  12.  frames 16                            \ maximum number of frames is 16
  13.  scope 1 16                           \ create frames 1 through 16
  14. endif
  15.                               
  16. \ initialize variables
  17.  
  18. v(0)=360/frames                       \ v(0) is just a constant
  19. v(1)=COSRAD(frame*v(0))               \ v(1) is X-direction of lightbeam
  20. v(2)=SINRAD(frame*v(0))               \ v(2) is Y-direction of lightbeam
  21.  
  22. \ set parameters for fractal set calculations
  23. \ (only executed in first parse)
  24.  
  25. if frame=1                            \ only execute in first parse
  26.  mandelbrot                           \ set type is Mandelbrot
  27.  resolution 300,300                   \ resolution of image
  28.  range -0.1992,-0.12954,1,1.06707     \ specify which part of set to draw
  29.  cval 0,1                             \ not of use here (only for Julia sets)
  30.  smoothness 220                       \ smoothness of surface
  31.  depth 100                            \ maximum iteration depth
  32. endif                                 \ endif
  33.                                              
  34. \ set parameters for raytracing calculations
  35.  
  36. mountains                             \ render image in mountain-style
  37. light v(1),v(2),-2                    \ light-direction (frame-dependant)
  38. brightness 52                         \ brightness of image
  39. steepness 175                         \ steepness of mountain slopes
  40. dithering 12                          \ rather broad color-dithering
  41. shadows off                           \ don't calculate shadows
  42. interpolation off                     \ don't use interpolation
  43.                                
  44. \ set parameters for screen output                             
  45.  
  46. offset 40,300                         \ position image in middle of screen
  47. angle 0,25                            \ look at surface from above
  48. increment 4,4                         \ pixel increment steps
  49. slope front 40,7                      \ force foremost slope down
  50.                                   
  51. \ set colors for surface                                       
  52.  
  53. color 15,15,15                        \ color of image is white
  54.