home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1995 January / pcw-0195.iso / polymore / fig2-18.pi < prev    next >
Encoding:
Text File  |  1994-09-28  |  985 b   |  62 lines
  1. // BLOB.PI
  2.  
  3. include "d:\polyray\include\colors.inc"
  4.  
  5. define RedFinish  texture {
  6.      surface {
  7.         color red
  8.         ambient 0.2
  9.         diffuse 0.8
  10.         specular white, 1
  11.         microfacet Phong 5
  12.         }
  13.      }
  14.  
  15. viewpoint {
  16.    from  <0, 10, -10>
  17.    up    <0, 1, 0>
  18.    at    <0, 1, 0>
  19.    angle 35
  20.    resolution 160, 160
  21.    aspect 1.6
  22.    }
  23. // LIGHT_SOURCE
  24. light < 10, 30, -20>
  25.  
  26. background midnightblue
  27.  
  28.  
  29. object {
  30.     object {
  31.       blob 0.5:
  32.      plane <0,1,0>, 0, 2, 5,
  33.      sphere <0,3,0>, -4, 2
  34.      RedFinish
  35.     }
  36.     bounding_box <-3,1,-1>, <3,3,3>
  37.     scale <0.5,0.5,0.5>
  38. }
  39.  
  40. object { 
  41.  object {
  42.       blob 0.5:
  43.       sphere <-2, 1.5, 0>, 1, 3,
  44.       sphere < 2, 1.5, 0>, 1, 3
  45.       reflective_yellow
  46. }
  47.  scale <0.4, 0.4, 0.4>
  48.  translate <0, 3.7, 0>
  49. }
  50.  
  51.  
  52. object { 
  53.  object {
  54.       blob 0.5:
  55.       sphere <0, 0, 0>, 1, 3,
  56.       cylinder < -2, 2, 0>, <2, 2, 0>, 1, 1.5
  57.       reflective_yellow
  58. }
  59.  scale <0.6, 0.6, 0.6>
  60.  translate <0, -3.5, 0>
  61. }
  62.