home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / polyray / dat / poly / cubitube.pi < prev    next >
Encoding:
Text File  |  1993-04-18  |  540 b   |  31 lines
  1. //
  2. // Cool cubic function from a POV-Ray data file by Eduard Schwan
  3. //
  4. viewpoint {
  5.    from <-6, 6,-30>
  6.    at <0, 0, 0>
  7.    up <0, 1, 0>
  8.    angle 45
  9.    resolution 160, 160
  10.    }
  11.  
  12. light <10, 10, -10>
  13.  
  14. include "..\colors.inc"
  15.  
  16. background black
  17.  
  18. define term1 0.2
  19. define term2 -0.3
  20. define termC 6
  21.  
  22. define cubic_tubes_fn
  23.    term2 * x^2 + term1 * x * y * z + term2 * y^2 + term2 * z^2 + termC
  24.  
  25. object {
  26.    object { polynomial cubic_tubes_fn }
  27.    & object { sphere <0, 0, 0>, 10 }
  28.    shiny_red
  29.    rotate <0, 10, 0>
  30.    }
  31.