home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / p / ply15dat.zip / XANDER.PI < prev    next >
Text File  |  1992-09-19  |  3KB  |  131 lines
  1. // Polyray sample data file written by Alexander Enzmann
  2.  
  3. //start_frame 0
  4. //end_frame 14
  5. //total_frames 15
  6.  
  7. viewpoint {
  8.    from      <0, 4, -25>
  9.    up        <0, 1, 0>
  10.    at        <0, 0, 0>
  11.    angle 30
  12.    hither 1
  13.    resolution 512, 256
  14.    aspect 2
  15.    }
  16.  
  17. background midnight_blue
  18. light white, <-10, 50, -20>
  19. light white, < 10, 50, -20>
  20. include "..\colors.inc"
  21.  
  22. define test_map
  23.    color_map(
  24.       [0,   0.1, red,     orange]
  25.       [0.1, 0.3, orange,  blue]
  26.       [0.3, 0.5, blue,    skyblue]
  27.       [0.5, 0.7, skyblue, orange]
  28.       [0.7, 0.9, orange,  magenta]
  29.       [0.9, 1.0, magenta, red],
  30.       <1, 1, 1>)
  31.  
  32. // Simple color map texture
  33. define noise_texture0
  34. texture {
  35.    special surface {
  36.       color test_map[noise(P)]
  37.       ambient 0.2
  38.       diffuse 0.8
  39.       specular white, 0.5
  40.       microfacet Reitz 10
  41.       }
  42.    scale <0.6, 0.6, 0.6>
  43.    }
  44.  
  45. define marble_turb 1
  46. define marble_fn  (sawtooth(P[0] + marble_turb * noise(P,4)) + 1) / 2
  47.  
  48. define white_marble_map
  49.    color_map(
  50.       [0.0, 0.8, <0.9, 0.9, 0.9>, <0.5, 0.5, 0.5>]
  51.       [0.8, 1.0, <0.5, 0.5, 0.5>, <0.2, 0.2, 0.2>])
  52.  
  53. define white_marble_texture
  54. texture {
  55.    special surface {
  56.       color white_marble_map[marble_fn]
  57.       ambient 0.2
  58.       diffuse 0.8
  59.       specular white, 0.5
  60.       microfacet Reitz 10
  61.       }
  62.    }
  63.  
  64. define box0 object { box <0, 0, 0>, <1, 5, 1> }
  65.  
  66. define char_a
  67. object {
  68.      box0 { shear  0, 0, 0.4, 0, 0, 0 }
  69.    + box0 { shear  0, 0,-0.4, 0, 0, 0 translate <4, 0, 0> }
  70.    + object { box <1.5, 1.5, 0>, <3.5, 2, 1> }
  71.    }
  72.  
  73. define char_e
  74. object {
  75.      box0
  76.    + object { box <0, 4.5, 0>, <4, 5, 1> }
  77.    + object { box <0, 2, 0>, <2.5, 2.5, 1> }
  78.    + object { box <0, 0, 0>, <4, 0.5, 1> }
  79.    }
  80.  
  81. define char_d
  82. object {
  83.      box0
  84.    + (  (  object { cylinder <1, 2.5, -0.05>, <1, 2.5, 1.05>, 2.5
  85.             u_steps 32 scale <1.2, 1, 1> }
  86.          * object { box <1, 0, 0>, <4.5, 5, 1> })
  87.        - object { cylinder <1.5, 2.5, -0.1>, <1.5, 2.5, 1.1>, 1 u_steps 32 } )
  88.    }
  89.  
  90. define char_n
  91. object {
  92.      box0
  93.    + box0 { shear  0, 0, -0.6, 0, 0, 0 translate <3, 0, 0> }
  94.    + box0 { translate <3, 0, 0> }
  95.    }
  96.  
  97. define char_r
  98. object {
  99.      box0
  100.    + (  (  object { cylinder <1.5, 3.5, -0.5>, <1.5, 3.5, 1.05>, 1.5
  101.             u_steps 32 }
  102.            * object { box <0, 2, 0>, <4, 5, 1> })
  103.          - object { cylinder <1.5, 3.5, -0.1>, <1.5, 3.5, 1.1>, 0.75
  104.             u_steps 32 })
  105.    + box0 { scale <1, 0.5, 1> shear  0, 0, -0.6, 0, 0, 0 translate <3, 0, 0> }
  106.    }
  107.  
  108. define char_x
  109. object {
  110.      box0 { shear  0, 0, 0.8, 0, 0, 0 }
  111.    + box0 { shear  0, 0,-0.8, 0, 0, 0 translate <4, 0, 0> }
  112.    }
  113.  
  114. object {
  115.      char_x
  116.    + char_a { translate <5, 0, 0> }
  117.    + char_n { translate <10, 0, 0> }
  118.    + char_d { translate <15, 0, 0> }
  119.    + char_e { translate <20, 0, 0> }
  120.    + char_r { translate <25, 0, 0> }
  121.    + object { disc <15, 0, 0>, <0, 1, 0>, 20
  122.           u_steps 32
  123.           v_steps 4
  124.           texture { hexagon noise_texture0, matte_yellow, matte_orange
  125.                 scale <5, 5, 5>} }
  126.    translate <-15, -5, 0>
  127.    scale <0.5, 0.5, 0.5>
  128.    rotate <0, 24 * frame, 0>
  129.    white_marble_texture
  130.    }
  131.