home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / p / ply15dat.zip / FORCE.PI < prev    next >
Text File  |  1992-09-19  |  954b  |  49 lines
  1. start_frame 0
  2. end_frame 60
  3. total_frames 60
  4.  
  5. viewpoint {
  6.    from <0, 7, -15>
  7.    at <0,1.5,0>
  8.    up <0,1,0>
  9.    angle 35
  10.    resolution 160, 160
  11.    }
  12.  
  13. include "..\..\colors.inc"
  14. include "..\..\texture.inc"
  15.  
  16. background midnightblue
  17.  
  18. light <-10, 7, -5>
  19.  
  20. object {
  21.    disc <0, -4.005, 0>, <0, 1, 0>, 60
  22.    texture { checker matte_white, matte_black scale <3, 1, 3> }
  23.    }
  24.  
  25. object {
  26.    sphere <0, 0, 0>, 2
  27.    texture {
  28.       noise surface {
  29.      ambient 0.6
  30.      diffuse 0.1
  31.      octaves 5
  32.      turbulence 5
  33.      transmission white, 1, 1
  34.      position_fn position_objectx
  35.      color_map(
  36.         [-50,   0,  black, 1, black, 1]
  37.         [  0,   4,  black, 1, green, 0.5]
  38.         [  4,   7,  green, 0.5, green, 0.3]
  39.         [  7,  50,  green, 0.3, green, 0])
  40.      }
  41.       rotate <0, 0, 90>
  42.       scale <0.2, 0.4, 0.2>
  43.       translate <0, 0, frame/10>
  44.       }
  45.    scale <1, 2, 1>
  46.    translate <0, 2, 0>
  47.    shading_flags primary_rays + transmit_check
  48.    }
  49.