The Datafile PD-CD 5

home *** CD-ROM | disk | FTP | other *** search

/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / p / pvrayfiles / SceneFiles / Desk2 < prev next >

Wrap

Text File | 1988-06-16 | 22.9 KB | 939 lines

// Persistence of Vision Raytracer // Sample Filer // By Brian Tucker // My Desk - Well Sort Of // This is big, very big, needs at least 2.5megs of free RAM. // And takes a while due to the large number // Of primitives involoved. Sorry !! :-( #include "<PVRay$Dir>.Dat.Colors" #include "<PVRay$Dir>.Dat.Shapes" #include "<PVLib$Dir>.Dat.Metals" #include "<PVRay$Dir>.Dat.Textures" view_point location <-50 10 -29.9> direction <0 0 1> up <0 1 0> right <1.333333 0 0> look_at <-20 -10 20> end_view_point // Now to set up some declarations. // (Some is a bit of an understatement, but it suits the // current purpose fine.) #declare Cradle_Ball = composite object sphere <0.0 -2.0 0.0> 1 end_sphere texture Metal_Silver end_texture end_object object intersection union quadric Cylinder_Y scale <0.01 1.0 0.01> rotate <0.0 0.0 33.69> translate <0.0 -2.0 0.0> end_quadric quadric Cylinder_Y scale <0.01 1.0 0.01> rotate <0.0 0.0 -33.69> translate <0.0 -2.0 0.0> end_quadric end_union plane <0.0 1.0 0.0> 5 end_plane plane <0.0 -1.0 0.0> 2 end_plane end_intersection texture colour Black end_texture end_object end_composite #declare Newtons_Cradle = composite object union sphere <-5 -5 -5> 0.25 end_sphere sphere < 5 -5 -5> 0.25 end_sphere sphere <-5 5 -5> 0.25 end_sphere sphere < 5 5 -5> 0.25 end_sphere sphere <-5 -5 5> 0.25 end_sphere sphere < 5 -5 5> 0.25 end_sphere sphere <-5 5 5> 0.25 end_sphere sphere < 5 5 5> 0.25 end_sphere end_union texture Metal_Silver end_texture end_object object intersection union quadric Cylinder_Z scale <0.25 0.25 1.0> translate <-5 5 0> end_quadric quadric Cylinder_Z scale <0.25 0.25 1.0> translate <5 5 0> end_quadric end_union plane <0.0 0.0 1.0> 5 end_plane plane <0.0 0.0 -1.0> 5 end_plane end_intersection texture Metal_Silver end_texture end_object object intersection union quadric Cylinder_Y scale <0.25 1.0 0.25> translate <-5 0 -5> end_quadric quadric Cylinder_Z scale <0.25 1.0 0.25> translate <-5 0 5> end_quadric quadric Cylinder_Z scale <0.25 1.0 0.25> translate <5 0 -5> end_quadric quadric Cylinder_Z scale <0.25 1.0 0.25> translate <5 0 5> end_quadric end_union plane <0.0 1.0 0.0> 5 end_plane plane <0.0 -1.0 0.0> 5 end_plane end_intersection texture Metal_Silver end_texture end_object object intersection union quadric Cylinder_X scale <1.0 0.25 0.25> translate <0 -5 5> end_quadric quadric Cylinder_X scale <1.0 0.25 0.25> translate <0 -5 5> end_quadric end_union plane <1.0 0.0 0.0> 5 end_plane plane <-1.0 0.0 0.0> 5 end_plane end_intersection texture Metal_Silver end_texture end_object composite Cradle_Ball translate <0.0 0.0 -4.0> end_composite composite Cradle_Ball translate <0.0 0.0 -2.0> end_composite composite Cradle_Ball end_composite composite Cradle_Ball translate <0.0 0.0 2.0> end_composite composite Cradle_Ball translate <0.0 0.0 4.0> end_composite bounded_by sphere <0 0 0> 9 end_sphere end_bound end_composite #declare Desk_Lamp = composite composite object intersection quadric Cylinder_X end_quadric quadric Cylinder_X scale <1.0 0.9 0.9> inverse end_quadric plane <1.0 0.0 0.0> 5 end_plane plane <-1.0 0.0 0.0> 5 end_plane plane <0.0 -1.0 0.0> 0.5 end_plane end_intersection texture colour ForestGreen alpha 0.4 ambient 0.0 diffuse 0.0 reflection 0.5 refraction 0.85 ior 1.5 phong 0.3 phongsize 60 transmit 0.0 end_texture end_object object union intersection quadric Cylinder_X end_quadric plane <1.0 0.0 0.0> -5 end_plane plane <-1.0 0.0 0.0> 5.5 end_plane plane <0.0 -1.0 0.0> 0.5 end_plane end_intersection intersection quadric Cylinder_X end_quadric plane <1.0 0.0 0.0> 5.5 end_plane plane <-1.0 0.0 0.0> -5 end_plane plane <0.0 -1.0 0.0> 0.5 end_plane end_intersection end_union texture Metal_Brass end_texture end_object object intersection quadric Cylinder_X scale <1.0 0.5 0.5> end_quadric plane <1.0 0.0 0.0> 5 end_plane plane <-1.0 0.0 0.0> 5 end_plane end_intersection texture colour White ambient 1.0 diffuse 0.0 end_texture light_source colour White end_object rotate <30.0 0.0 0.0> end_composite object union intersection union quadric Cylinder_Z scale <0.25 0.25 1.0> translate <-5.25 0.0 0.0> end_quadric quadric Cylinder_Z scale <0.25 0.25 1.0> translate <5.25 0.0 0.0> end_quadric end_union plane <0.0 0.0 -1.0> 0 end_plane plane <0.0 0.0 1.0> 1.5 end_plane end_intersection intersection quadric Cylinder_X scale <1.0 0.25 0.25> translate <0.0 0.0 1.5> end_quadric plane < 1.0 0.0 0.0> 5.25 end_plane plane <-1.0 0.0 0.0> 5.25 end_plane end_intersection sphere < 5.25 0.0 1.5> 0.25 end_sphere sphere <-5.25 0.0 1.5> 0.25 end_sphere intersection quadric Cylinder_Y scale <0.25 1.0 0.25> translate <0.0 0.0 1.5> end_quadric plane <0.0 1.0 0.0> 0.0 end_plane plane <0.0 -1.0 0.0> 5.0 end_plane end_intersection intersection quadric Cylinder_Y scale <3.0 1.0 1.5> translate <0.0 0.0 1.0> end_quadric plane <0.0 1.0 0.0> -5.0 end_plane plane <0.0 -1.0 0.0> 5.5 end_plane end_intersection end_union texture Metal_Brass end_texture end_object bounded_by sphere <0.0 0.75 -2.25> 7 end_sphere end_bound end_composite #declare Tumbler = object intersection quadric Cylinder_Y scale <2.0 1.0 2.0> end_quadric union quadric Cylinder_Y scale <1.9 1.0 1.9> inverse end_quadric plane <0.0 1.0 0.0> 1 end_plane end_union plane <0.0 1.0 0.0> 5 end_plane plane <0.0 -1.0 0.0> 0 end_plane end_intersection texture wrinkles 0.8 colour red 1.0 green 1.0 blue 1.0 alpha 0.8 ambient 0.0 diffuse 0.0 reflection 0.5 refraction 0.85 ior 1.5 phong 0.3 phongsize 60 transmit 0.0 end_texture end_object #declare Whiskey = colour red 0.6 green 0.46484375 blue 0.333333333 alpha 0.6 {#declare Whiskey_Tumbler = composite object Tumbler end_object object intersection quadric Cylinder_Y scale <1.9 0.0 1.9> end_quadric plane <0.0 1.0 0.0> 3 end_plane plane <0.0 -1.0 0.0> -1 end_plane end_intersection texture colour Whiskey ambient 0.0 diffuse 0.0 reflection 0.5 refraction 0.85 ior 1.35 phong 0.3 phongsize 60 transmit 0.0 end_texture end_object end_composite} #declare Decanter_Shape = intersection plane < 1.0 0.0 0.0> 5 end_plane plane <-1.0 0.0 0.0> 5 end_plane plane <0.0 1.0 0.0> 2 end_plane plane <0.0 -1.0 0.0> 10 end_plane plane <0.0 0.0 1.0> 5 end_plane plane <0.0 0.0 -1.0> 5 end_plane union quadric Cylinder_X scale <1.0 5.0 5.0> translate <0.0 0.0 -5.0> end_quadric quadric Cylinder_X scale <1.0 5.0 5.0> translate <0.0 0.0 5.0> end_quadric quadric Cylinder_Z scale <5.0 5.0 1.0> translate <-5.0 0.0 0.0> end_quadric quadric Cylinder_Z scale <5.0 5.0 1.0> translate <5.0 0.0 0.0> end_quadric inverse end_union end_intersection #declare Full_Decanter = composite object difference intersection Decanter_Shape end_intersection intersection intersection Decanter_Shape scale <0.9 1.0 0.9> end_intersection plane <0.0 -1.0 0.0> 9.8 end_plane end_intersection end_difference texture wrinkles 0.8 colour red 1.0 green 1.0 blue 1.0 alpha 0.8 ambient 0.0 diffuse 0.0 reflection 0.5 refraction 0.85 ior 1.5 phong 0.3 phongsize 60 transmit 0.0 end_texture colour CBlue end_object object intersection plane < 1.0 0.0 0.0> 5 end_plane plane <-1.0 0.0 0.0> 5 end_plane plane <0.0 1.0 0.0> -2 end_plane plane <0.0 -1.0 0.0> 9.8 end_plane plane <0.0 0.0 1.0> 5 end_plane plane <0.0 0.0 -1.0> 5 end_plane intersection Decanter_Shape scale <0.9 1.0 0.9> end_intersection end_intersection texture colour Whiskey alpha 0.6 ambient 0.0 diffuse 0.0 reflection 0.5 refraction 0.85 ior 1.359 phong 0.3 phongsize 60 transmit 0.0 end_texture end_object end_composite #declare Stopper = object union intersection quadric Cone_Y scale <1.2 8.0 1.2> translate <0.0 -4.0 0.0> end_quadric plane <0.0 1.0 0.0> 4 end_plane plane <0.0 -1.0 0.0> -1 end_plane end_intersection intersection quadric Cylinder_Y scale <0.6 1.0 0.6> end_quadric plane <0.0 1.0 0.0> 5.5 end_plane plane <0.0 -1.0 0.0> -4 end_plane end_intersection sphere <0.0 6.0 0.0> 1.0 end_sphere end_union texture wrinkles 0.8 colour red 1.0 green 1.0 blue 1.0 alpha 0.8 ambient 0.0 diffuse 0.0 reflection 0.5 refraction 0.85 ior 1.5 phong 0.3 phongsize 60 transmit 0.0 end_texture colour Magenta translate <0.0 -3.0 0.0> end_object #declare It = quadric QSphere scale <4.0 0.3 0.3> end_quadric #declare Twister = object union #include "<PVLib$Dir>.inc.twister" end_union bounded_by sphere <0.0 5.0 0.0> 6.0 end_sphere end_bound texture White_Wood 0.05 scale <3.0 3.0 3.0> ambient 0.1 diffuse 0.99 end_texture color CBlue end_object #declare Paperweight = composite object intersection sphere <0.0 0.0 0.0> 8 end_sphere plane <0.0 -1.0 0.0> 2 end_plane end_intersection texture colour red 1.0 green 1.0 blue 1.0 alpha 0.7 ambient 0.0 diffuse 0.0 reflection 0.5 refraction 0.85 ior 1.5 phong 0.3 phongsize 60 transmit 0.0 end_texture colour CRed end_object object Twister translate <0.0 1.0 0.0> end_object bounded_by sphere <0.0 0.0 0.0> 8 end_sphere end_bound end_composite #declare Picture = composite object intersection plane < 1.0 0.0 0.0> 2 end_plane plane <-1.0 0.0 0.0> 2 end_plane plane <0.0 1.0 0.0> 2 end_plane plane <0.0 -1.0 0.0> 2 end_plane plane <0.0 0.0 1.0> 0.5 end_plane plane <0.0 0.0 -1.0> 0 end_plane end_intersection texture Cherry_Wood scale <1 0.5 1.0> end_texture texture imagemap <1.0 -1.0 0.0> acf "<PVLib$Dir>.Clear.NtReal" interpolate 2.0 once end_map reflection 0.5 scale <3.0 3.0 1.0> translate <-1.5 -1.5 0.0> end_texture end_object object union intersection quadric Cylinder_Y scale <0.25 1.0 0.25> translate <-1.75 0.0 0.0> end_quadric plane <0.0 0.0 1.0> 0 end_plane plane <1.0 1.0 0.0> 0 end_plane plane <1.0 -1.0 0.0> 0 end_plane end_intersection intersection quadric Cylinder_Y scale <0.25 1.0 0.25> translate <1.75 0.0 0.0> end_quadric plane <0.0 0.0 1.0> 0 end_plane plane <-1.0 1.0 0.0> 0 end_plane plane <-1.0 -1.0 0.0> 0 end_plane end_intersection intersection quadric Cylinder_X scale <1.0 0.25 0.25> translate <0.0 -1.75 0.0> end_quadric plane <0.0 0.0 1.0> 0 end_plane plane <1.0 1.0 0.0> 0 end_plane plane <-1.0 1.0 0.0> 0 end_plane end_intersection intersection quadric Cylinder_X scale <1.0 0.25 0.25> translate <0.0 1.75 0.0> end_quadric plane <0.0 0.0 1.0> 0 end_plane plane <1.0 -1.0 0.0> 0 end_plane plane <-1.0 -1.0 0.0> 0 end_plane end_intersection end_union texture Cherry_Wood scale <1.0 0.5 0.5> end_texture end_object bounded_by intersection plane < 1.0 0.0 0.0> 2 end_plane plane <-1.0 0.0 0.0> 2 end_plane plane <0.0 1.0 0.0> 2 end_plane plane <0.0 -1.0 0.0> 2 end_plane plane <0.0 0.0 1.0> 1 end_plane plane <0.0 0.0 -1.0> 0 end_plane end_intersection end_bound end_composite #declare Work = object intersection plane < 1.0 0.0 0.0> 2 end_plane plane <-1.0 0.0 0.0> 2 end_plane plane <0.0 1.0 0.0> 0.01 end_plane plane <0.0 -1.0 0.0> 0 end_plane plane <0.0 0.0 1.0> 2 end_plane plane <0.0 0.0 -1.0> 2 end_plane end_intersection texture { imagemap <1.0 0.0 -1.0> acf "<PVLib$Dir>.Clear.RomanB" interpolate 2.0 once end_map scale <4.0 1.0 4.0>} colour LightSteelBlue end_texture end_object #declare TableTop = composite object difference intersection plane < 1.0 0.0 0.0> 40 end_plane plane <-1.0 0.0 0.0> 40 end_plane plane <0.0 1.0 0.0> 0 end_plane plane <0.0 -1.0 0.0> 5 end_plane plane <0.0 0.0 1.0> 20 end_plane plane <0.0 0.0 -1.0> 20 end_plane end_intersection intersection plane < 1.0 0.0 0.0> 35 end_plane plane <-1.0 0.0 0.0> 35 end_plane plane <0.0 1.0 0.0> 0 end_plane plane <0.0 -1.0 0.0> 3 end_plane plane <0.0 0.0 1.0> 15 end_plane plane <0.0 0.0 -1.0> 15 end_plane end_intersection end_difference texture Tom_Wood reflection 0.8 specular 0.7 roughness 0.006 scale <10.0 5.0 5.0> end_texture colour CGreen end_object object difference intersection plane < 1.0 0.0 0.0> 35 end_plane plane <-1.0 0.0 0.0> 35 end_plane plane <0.0 1.0 0.0> 0 end_plane plane <0.0 -1.0 0.0> 3 end_plane plane <0.0 0.0 1.0> 15 end_plane plane <0.0 0.0 -1.0> 15 end_plane end_intersection intersection plane < 1.0 0.0 0.0> 34 end_plane plane <-1.0 0.0 0.0> 34 end_plane plane <0.0 1.0 0.0> 0 end_plane plane <0.0 -1.0 0.0> 3 end_plane plane <0.0 0.0 1.0> 14 end_plane plane <0.0 0.0 -1.0> 14 end_plane end_intersection end_difference texture Metal_Gold end_texture colour Yellow end_object object intersection plane < 1.0 0.0 0.0> 34 end_plane plane <-1.0 0.0 0.0> 34 end_plane plane <0.0 1.0 0.0> -1 end_plane plane <0.0 -1.0 0.0> 3 end_plane plane <0.0 0.0 1.0> 14 end_plane plane <0.0 0.0 -1.0> 14 end_plane end_intersection texture Blood_Marble reflection 0.8 specular 0.7 roughness 0.006 end_texture colour CRed end_object object intersection plane < 1.0 0.0 0.0> 34 end_plane plane <-1.0 0.0 0.0> 34 end_plane plane <0.0 1.0 0.0> 0 end_plane plane <0.0 -1.0 0.0> 1 end_plane plane <0.0 0.0 1.0> 14 end_plane plane <0.0 0.0 -1.0> 14 end_plane end_intersection texture colour red 1.0 green 1.0 blue 1.0 alpha 0.7 ambient 0.0 diffuse 0.0 reflection 0.5 refraction 0.8 ior 1.5 phong 0.3 phongsize 60 transmit 0.0 end_texture end_object bounded_by intersection plane < 1.0 0.0 0.0> 40 end_plane plane <-1.0 0.0 0.0> 40 end_plane plane <0.0 1.0 0.0> 0 end_plane plane <0.0 -1.0 0.0> 5 end_plane plane <0.0 0.0 1.0> 20 end_plane plane <0.0 0.0 -1.0> 20 end_plane end_intersection end_bound end_composite #declare Complete_Desk = composite composite TableTop end_composite composite Newtons_Cradle scale <0.5 0.5 0.5> rotate <0.0 30.0 0.0> translate <32.0 2.5 12.0> end_composite composite Desk_Lamp scale <2 2 2> rotate <0.0 -40 0.0> translate <-26 11 8> end_composite { object Tumbler rotate <0.0 45.0 0.0> translate <0.0 15.0 0.0> end_object} composite Full_Decanter rotate <0.0 5.0 0.0> translate <6.0 10.0 10.0> end_composite object Stopper rotate <90.0 125.0 1.0> translate <5 1 5> end_object object Work scale <4.0 1.0 4.0> rotate <0.0 -15.0 0.0> translate <-10.0 0.0 -10.0> end_object composite Paperweight scale <0.5 0.5 0.5> translate <-12.0 1 -2.0> end_composite { composite Whiskey_Tumbler translate <-4.2 0.0 -16.3> end_composite} composite Picture scale <4.0 4.0 1.0> rotate <15.0 45.0 0.0> translate <10 7.7 -5.0> end_composite end_composite // Now to assemble the scene // The circuit's will never take it skipper. // Outside object sphere <0.0 -10000.0 -200.0> 15000.0 end_sphere texture onion colour_map [0.0 0.6 colour red 1.0 green 0.6 blue 0.0 colour red 0.3 green 0.6 blue 0.6] [0.6 1.0 colour red 0.3 green 0.6 blue 0.6 colour red 0.1 green 0.4 blue 0.6] end_colour_map scale <7500.0 1000.0 5000.0> ambient 0.7 diffuse 0.0 end_texture colour red 0.5 green 0.5 blue 1.0 end_object object plane <0.0 1.0 0.0> 1500.0 end_plane texture bozo turbulence 0.5 colour_map [0.0 0.6 colour red 1.0 green 1.0 blue 1.0 alpha 1.0 colour red 1.0 green 1.0 blue 1.0 alpha 1.0] [0.6 0.8 colour red 1.0 green 1.0 blue 1.0 alpha 1.0 colour red 1.0 green 0.8 blue 0.1] [0.8 1.001 colour red 1.0 green 0.8 blue 0.1 colour red 0.8 green 0.4 blue 0.2] end_colour_map scale <1000.0 200.0 800.0> ambient 0.7 diffuse 0.0 end_texture translate <-500.0 0.0 0.0> rotate <6.0 0.0 0.0> colour red 0.7 green 0.7 blue 1.0 end_object object plane <0.0 1.0 0.0> -20 end_plane texture colour Aquamarine waves 0.06 frequency 5000.0 reflection 0.8 ambient 0.1 diffuse 0.1 scale <1000.0 1000.0 1000.0> end_texture colour CBlue end_object object plane <0.0 1.0 0.0> -21.0 end_plane texture colour red 1.0 green 0.6 ambient 0.8 diffuse 0.0 end_texture colour red 1.0 green 0.6 end_object // Wall's object union intersection Cube scale <60.0 30.0 1.0> translate <0.0 0.0 40.0> end_intersection intersection Cube scale <1.0 30.0 40.0> translate <-60.0 0.0 0.0> end_intersection intersection Cube scale <60.0 30.0 1.0> translate <0.0 0.0 -40.0> end_intersection intersection intersection Cube scale <1.0 30.0 40.0> translate <-60.0 0.0 0.0> end_intersection intersection Cube scale <1.0 10.0 15.0> translate <-60.0 10.0 0.0> inverse end_intersection end_intersection end_union texture 0.05 Dull colour PaleGreen end_texture bounded_by intersection Cube scale <60.0 30.0 40.0> end_intersection end_bound end_object // Ceiling object intersection Cube scale <60.0 1.0 40.0> translate <0.0 30.0 0.0> end_intersection texture 0.05 Dull colour LightSteelBlue end_texture end_object // Floor object intersection Cube scale <60.0 1.0 40.0> translate <0.0 -30.0 0.0> end_intersection texture 0.05 Tan_Wood scale <20.0 10.0 15.0> end_texture end_object // The Desk composite Complete_Desk translate <-20 -10 20> end_composite // Another light source object sphere <0 0 0> 1 end_sphere texture colour White ambient 1.0 diffuse 0.0 end_texture light_source colour White translate <0 28 0> end_object