home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 2
/
crawlyvol2.bin
/
graphics
/
ftpovscn
/
3
/
wg5.pov
< prev
Wrap
Text File
|
1994-08-06
|
5KB
|
207 lines
// Persistence Of Vision raytracer version 1.0 sample file.
// Wine glass and chessboard
// Image by Dan Farmer
#include "colors.inc"
#include "shapes.inc"
#include "textures.inc"
camera {
location <50.0 55.0 -75.0>
direction <0.0 0.0 2.0>
up <0.0 1.0 0.0>
right <1.33333 0.0 0.0>
look_at <-10.0 18.0 0.0>
}
object {
light_source { <10.0 50.0 50.0>
colour White
}
}
object {
light_source { <-35.0 30.0 -150.0>
colour White
}
}
#declare Glass = texture {
color red 1.0 green 1.0 blue 1.0 alpha 1.0
ambient 0.0
diffuse 0.0
reflection 0.1
refraction 1.0
ior 1.33
phong 0.3
phong_size 90
}
#declare Winecol = color red 1.0 alpha 0.85
#declare Liquid = texture {
reflection 0.05
refraction 1.0
ior 1.2
}
#declare Bead = object {
quadric { Ellipsoid scale <1.65 0.65 1.65> }
color red 1.0 blue 1.0
texture { Glass2 }
}
/*
Torus generated using Truman's Torus Generator 1.0 (c) 1991 Truman Brown
Torus specs:
Major radius: 0.975000
Minor radius: 0.025000
Outer radius: 1.000000
Inner radius: 0.950000
*/
#declare Rim = object {
quartic {
< 1.000000 0.000000 0.000000 0.000000 2.000000
0.000000 0.000000 2.000000 0.000000 -1.902500
0.000000 0.000000 0.000000 0.000000 0.000000
0.000000 0.000000 0.000000 0.000000 0.000000
1.000000 0.000000 0.000000 2.000000 0.000000
1.900000 0.000000 0.000000 0.000000 0.000000
1.000000 0.000000 -1.902500 0.000000 0.902500 >
}
clipped_by { plane { <0.0 -1.0 0.0> 0.0 } }
scale <15.0 10.0 15.0>
translate <0.0 24.0 0.0>
color red 1.0
texture { Gold_Texture }
}
#declare Top = object {
intersection {
plane { <0.0 1.0 0.0> 1.0 }
quadric { QCone_Y }
quadric { QCone_Y scale <0.97 1.0 0.97> inverse }
}
clipped_by {
plane { <0.0 1.0 0.0> 0.0 inverse }
}
scale <15.0 10.0 15.0>
translate <0.0 14.0 0.0>
color green 1.0
texture { Glass }
}
#declare Stem = object {
quadric { Cylinder_Y }
clipped_by {
plane { <0.0 1.0 0.0> -1.0 inverse }
plane { <0.0 1.0 0.0> 1.0 }
}
scale <1.0 12.0 1.0>
translate <0.0 6.0 0.0>
color blue 1.0
texture { Glass2 }
}
#declare Base = object {
quadric { QCone_Y }
clipped_by {
plane { <0.0 1.0 0.0> 0.0 }
plane { <0.0 1.0 0.0> -1.0 inverse }
}
translate <0.0 1.0 0.0> /* This actually puts the base of the cone on y=0*/
scale <12.0 3.25 12.0>
translate <0.0 0.0 0.0> /*Does nothing: just for clarity */
color red 1.0 green 1.0
texture { Glass2 }
}
#declare Wine = object {
intersection {
plane { <0.0 1.0 0.0> 0.9
}
quadric { QCone_Y scale <0.95 1.0 0.95> }
}
clipped_by {
plane { <0.0 1.0 0.0> 0.0 inverse
}
}
scale <14.9 10.0 14.9>
translate <0.0 14.0 0.0>
color White
texture { Liquid
color Winecol
}
}
/* Ground plane */
object {
plane { <0.0 1.0 0.0> -0.0 }
color DimGray
texture { 0.2 color RichBlue }
}
#declare Frame = object {
union {
intersection { Disk_X /* Front rounded edge */
scale <240.0 4.5 4.5>
translate<-120.0 0.0 -120.0>
}
intersection { Disk_Z /* Left rounded edge */
scale <4.5 4.5 240.0>
translate <-120.0 0.0 -120.0>
}
intersection { Disk_X /* Rear rounded edge */
scale <240.0 4.5 4.5>
translate<-120.0 0.0 +120.0>
}
intersection { Disk_Z /* Right rounded edge */
scale <4.5 4.5 240.0>
translate <+120.0 0.0 -120.0>
}
}
color red 1.0
texture { Silver_Texture }
}
#declare ChessBoard = object {
intersection { Cube
scale <120.0 4.0 120.0>
}
color Cyan
texture { White_Marble scale <20.0 1.0 20.0> reflection 0.12 }
texture { checker color Black color White alpha 1.0
scale <30.0 4.001 30.0>
reflection 0.12
}
}
#declare WineGlass = composite {
object { Rim }
object { Wine }
object { Top }
object { Bead translate <0.0 14.5 0.0> }
object { Bead translate <0.0 10.0 0.0> }
object { Bead translate <0.0 7.0 0.0> }
object { Bead translate <0.0 3.0 0.0> }
object { Stem }
object { Base }
bounded_by {
intersection { Disk_Y
scale <15.5 25.0 15.5>
}
}
scale <1.0 1.50 1.0>
}
composite {
object { Frame }
object { ChessBoard }
translate <0.0 4.0 145.0>
}
composite { WineGlass }
/*End of file */