home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 1995 January
/
pcw-0195.iso
/
polyray
/
dat
/
sweep
/
sweep2.pi
< prev
next >
Wrap
Text File
|
1994-12-31
|
771b
|
36 lines
// Generic Polyray input File
// Polyray input file: Alexander Enzmann
// Set up the camera
viewpoint {
from <0,7,-10>
at <0,0,0>
up <0,1,0>
angle 45
resolution 128, 128
}
include "..\colors.inc"
background midnight_blue
light <5, 20, -10>
define sweep_object
object {
sweep 2, <0, 0, 1>, 12,
<2, -1, 1>, <3, -1, 1>, <3.4, -2, 1>, <4, -1.1, 1>, <3.6, -0.9, 1>,
<2.6, 0, 1>,
<3.6, 0.9, 1>, <4, 1.1, 1>, <3.4, 2, 1>, <3, 1, 1>, <2, 1, 1>,
<2, -1, 1>
scale <1, 1, -1>
rotate <90, 0, 0>
u_steps 16
shiny_red
}
object {
sweep_object
* object { box <-5, 0.01, -5>, <5, 0.99, 5> shiny_green }
translate <-3, -0.7, 0>
scale <1.2, 10, 1.2>
rotate <-90, 25, 0>
}