|
|
// Persistence of Vision Ray Tracer Scene Description File
// File: wwhelmets.pov
// Vers: 3.1
// Desc: A few WW helmets
// Date: 00.49
// Auth: Bob Hughes
// Mail: inv### [at] aolcom?Subject=PoV-Scene
// Note: these are NOT helmets based on real measurements, etc.
// use anywhere, anytime, and change in whatever way freely.
// lights, camera...
light_source { <1,2,-10>, 1.5}
camera {
location <0,1,-7>
angle 25
look_at <0,0,0>
}
// A for American, G for German, B for British
#declare Helmet="A"
#declare HelmetType=asc(strupr(Helmet));
// ...action!
// crude approximation of world war helmet
#declare WWIIHelmetA=
lathe { cubic_spline
25,
<-.01,-.001>,
<0,0>,
<.125,.01>,
<.25,.025>,
<.35,.055>,
<.475,.125>,
<.575,.225>,
<.625,.315>,
<.667,.4125>,
<.70125,.525>,
<.767,.725>,
<.89,.85>,
<.9,.88>,
<.86,.86>,
<.733,.733>,
<.67,.533>,
<.633,.425>,
<.59,.325>,
<.525,.225>,
<.425,.133>,
<.3,.067>,
<.25,.055>,
<.125,.045>,
<0,.033>,
<-0.01,-.001>
// sturm
}
// difference { // for cutaway view
object {WWIIHelmetA//} // use brace for cutaway view
// plane {z,0} // for cutaway view
#switch (HelmetType)
#case (65)
scale <.95,1,1.15> // American
rotate 180*z translate .888*y // place approx. onto y*0 plane
pigment {rgb<.3,.475,.33>} // American
#break
#case (71)
scale <1,1.05,1.1> // German (shape is not correct at all)
rotate 180*z translate .93*y // place approx. onto y*0 plane
pigment {rgb<.33,.45,.4>} // German
#break
#case (66)
scale <.95,.5,1.15> // British (WWI)
rotate 180*z translate .45*y // place approx. onto y*0 plane
pigment {rgb<.4,.45,.3>} // British (WWI)
#break
#end
finish {ambient .075 diffuse .5 specular .25 roughness .01 phong .05
phong_size 5
metallic .25 brilliance .75 reflection .05}
// rotate 360*clock*<1,1,0> // for 360 degree animation
}
// plane {y,0 pigment {rgb 1}}
Post a reply to this message
|
|