home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Personal Computer World 1995 January
/
pcw-0195.iso
/
polyray
/
dat
/
sweep
/
sweep4.pi
< prev
next >
Wrap
Text File
|
1994-12-31
|
1KB
|
46 lines
// Generic Polyray input File
// Polyray input file: Alexander Enzmann
// Set up the camera
viewpoint {
from <0,4,-8>
at <0,0,0>
up <0,1,0>
angle 30
resolution 128, 128
}
include "..\colors.inc"
background <0, 0, 0>
light <-10, 10, -20>
define r0 1
define r1 2
define dt (2.0 * 3.14159265) / 14
define star_column
object {
sweep 2, <0, 0, 1>, 14,
<r0*cos( 1*dt), r0*sin( 1*dt), 1>, <r1*cos( 2*dt), r1*sin( 2*dt), 1>,
<r0*cos( 3*dt), r0*sin( 3*dt), 1>, <r1*cos( 4*dt), r1*sin( 4*dt), 1>,
<r0*cos( 5*dt), r0*sin( 5*dt), 1>, <r1*cos( 6*dt), r1*sin( 6*dt), 1>,
<r0*cos( 7*dt), r0*sin( 7*dt), 1>, <r1*cos( 8*dt), r1*sin( 8*dt), 1>,
<r0*cos( 9*dt), r0*sin( 9*dt), 1>, <r1*cos(10*dt), r1*sin(10*dt), 1>,
<r0*cos(11*dt), r0*sin(11*dt), 1>, <r1*cos(12*dt), r1*sin(12*dt), 1>,
<r0*cos(13*dt), r0*sin(13*dt), 1>, <r1*cos(14*dt), r1*sin(14*dt), 1>
rotate <-90, 0, 0>
shiny_red
}
star_column
// Create a ground plane
object {
polygon 4, <-20,-2, -20>, <-20,-2, 20>, <20,-2, 20>, <20,-2, -20>
texture {
checker matte_white, matte_black
translate <0, 0.1, 0>
}
}