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 | 23KB | 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