home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / bizz03 / pill.inc < prev   
Encoding:
Text File  |  1994-05-30  |  1.3 KB  |  46 lines
  1. //Raytracer's little helpers.
  2.  
  3. #declare Pill=
  4.    object {
  5.       union {
  6.       object {
  7.          sphere { <-0.5, 0.25, 0> 0.25
  8.             pigment { color White } finish { reflection 0.45
  9.             phong 1 phong_size 80 }}
  10.             }
  11.             
  12.        object {
  13.           cylinder { <-0.5, 0.25, 0> <0, 0.25, 0> 0.25
  14.              pigment { color White } finish { reflection 0.45
  15.              phong 1 phong_size 80 }} 
  16.              }
  17.             
  18.         object {
  19.            cylinder { <0, 0.25, 0> <0.5, 0.25, 0> 0.25
  20.               pigment { color Red } finish { reflection 0.45
  21.               phong 1 phong_size 80 }}
  22.               }
  23.              
  24.         object {
  25.            sphere { <0.5, 0.25, 0> 0.25
  26.               pigment { color Red } finish { reflection 0.45
  27.               phong 1 phong_size 80 }}
  28.               }
  29.               }
  30.            }
  31.  
  32.           object {
  33.             Pill translate <3.5, 0, -1.5> } 
  34.           object {  
  35.          Pill rotate <0, 45, 0> translate <3, 0, 0> }
  36.           object {
  37.          Pill rotate <0, 60, 0> translate <4.5, 0, 0> }
  38.           object {
  39.          Pill rotate <0, 60, 0> translate <2.25, 0, -2.25> }
  40.           object {
  41.          Pill translate <0, 0, -2.5> }
  42.           object {
  43.          Pill rotate <0, 45, 0> translate <-5.5, 0, -1> }
  44.  
  45.  
  46.