// GENERATED WITH POLYRAY (c) Alfonso Hermida 1993
//PROGRAM: SEAB.PI GENERATED WITH GREAT DIFFICULTY (c) P.F.Birkeland-Green 1995
//Created on 24/02/95 16:42:35
// I have left some of the changes in to show the variations tried they are anything after a //
// data and image Paul Birkeland-Green (c) The Process 1997
// PLEASE NOTE You will need polyray.exe to run this program you can
// get it from CompuServe (614)-457-8650 (800)-848-8990 or loads of
// shareware places. Try changing things!!! This programm will run '' AS IS' ( remember to replace coin.tga for something of your own ) //copy and paste it into a
// text file and call it seab.PI an probs. email progress@ukonline.co.uk

include "colors.inc"
include "texture.inc"
include "stones.inc"

viewpoint {
from <0.0, 1.0, -0.5 >
at <0.0, 0.0, -0.05 >
up <0.0, 1.0, 0.0 >
angle 65//45
hither 1.0e-3
resolution 640,480
aspect 1.33
yon 1.0e5
max_trace_depth 5
aperture 0.00

}

background <0.258,0.258,0.435>

define water
texture {
noise surface {
color <0.4,0.4,0.43>//<0.137255,0.556863, 0.419608 >
normal ripple_normal
frequency 400 //100
bump_scale 2//5
//ambient 0.3
//diffuse 0.4
specular white, 0.7
reflection 0.5//0.5
transmission 0.99,1.33 //this is new
microfacet Reitz 10//10
//specular white, 0.99
//reflection 0.99 //0.9
//microfacet Reitz 1 //10
//transmission white,1,1.33 //<0.137255,0.556863,0.419608>
}
scale <5,5,5> //5,1,5

}

define myimage image ("coin.tga")
define PImage
texture {
special surface {
color planar_imagemap (myimage,P)
ambient 0.6 //0.8
diffuse 0.3//0.1
reflection 0.9
specular gold,0.8

}
}
define animage image ("coin.tga")
define CImage
texture {
special surface {
color cylindrical_imagemap (animage,P)
ambient 0.6
diffuse 0.3 //0.1
reflection 0.95
specular gold,0.9
}
}
define sand
texture {
noise surface {
color <0.85,0.57,0.43> //tan
reflection 0.3
}
}
define coin
// CSG START
object {
// DISC
object {
disc <0.5, 0.0,0.5>, <0.0, 1, 0.0>,0.51
translate<0.0,-0.02,0.0>
scale <0.8,0.8,0.8 >
//rotate<10,0,0>
PImage
}

+
//DISC
object {
disc <0.5,0.01,0.5>,<0,1,0>,0.49,0.51
translate<0.0,-0.02,0.0>
//rotate <10,0,0>
scale <0.8,0.8,0.8 >
texture {surface{color <0.9,0.9,0.6>} }//reflective_yellow
}
+

// PLANE (sand)
object {
//normal in Y direction
polygon 4, <-10,0,10>, <-10,0,-10>, <10,0,-10>, <10,0,10>
scale < 3.0,5.0,3.0> //5,5,5
translate <0,-0.1,0>
rotate < 0,0,5>//0,0,5.0
sand
}
+

// CYLINDER
object {
cylinder <0.0, -0.05,0.0>, <0.0, 0.05, 0.0>, 0.51
//rotate <10,30,0>
translate <0.5,-0.015,0.5> //-0.525
scale <0.8,0.8,0.8 >
CImage
}
}
object{
bezier 2, 0.05, 3, 3,
<-6.4288,0.3648,-1.0>, <-3.7632,0.1088,-5.8816>, <0.6208,0.4016,-5.48>, <6.1008,0.1456,-5.6624>,
<-7.2688,0.4016,0.8032>, <-0.84,1.0224,-0.3>, <-1.0592,0.4752,-0.3>, <5.808,-0.0736,-1.4608>,
<-4.8944,0.8032,4.5296>, <-0.3648,0.9856,0.3>, <2.1552,0.5472,0.3>, <5.3696,0.0736,0.3>,
<-1.5344,0.5472,5.3696>, <3.7984,0.8768,5.2976>, <4.7488,0.4016,5.224>, <5.1136,0.4016,5.1504>
translate <-0.7,0,0.3> //-0.7 ,0,0.1
water
}

define pebble object {

object{
// BEZIER PATCH
object{
bezier 2, 0.05, 3, 3,
<0.0,0.5,0.0>, <0.2922,0.4612,0.0>, <0.5,0.28,0.0>, <0.621,0.0046,0.0>,
<0.0,0.5,0.0>, <0.14,0.42,0.169>, <0.242,0.28,0.2374>, <0.3106,0.0,0.3698>,
<0.0,0.5,0.0>, <-0.105,0.2466,0.242>, <-0.073,0.1872,0.315>, <-0.3562,-0.0046,0.3196>,
<0.0,0.5,0.0>, <-0.2968,0.2328,0.0>, <-0.3972,0.1416,0.0>, <-0.557,0.0,0.0046>
white_marble
}
+
// BEZIER PATCH
object{
bezier 2, 0.05, 3, 3,
<0.0,0.5,0.0>, <0.2922,0.4612,0.0>, <0.5,0.28,0.0>, <0.621,0.0046,0.0>,
<0.0,0.5,0.0>, <0.14,0.4338,-0.2192>, <0.25,0.1964,-0.3972>, <0.25,0.0,-0.433>,
<0.0,0.5,0.0>, <-0.105,0.2466,-0.242>, <-0.25,0.1964,-0.3972>, <-0.2512,0.0,-0.3972>,
<0.0,0.5,0.0>, <-0.2968,0.2328,0.0>, <-0.3972,0.1416,0.0>, <-0.557,0.0,0.0046>
white_marble
}
+
// BEZIER PATCH
object{
bezier 2, 0.05, 3, 3,
<0.0,-0.3744,-0.0092>, <0.2374,-0.4064,0.0>, <0.5,-0.28,0.0>, <0.621,0.0046,0.0>,
<0.0,-0.3744,-0.0092>, <0.1188,-0.347,0.2238>, <0.242,-0.28,0.2374>, <0.3106,0.0,0.3698>,
<0.0,-0.3744,-0.0092>, <-0.1416,-0.3288,0.242>, <-0.073,-0.28,0.3196>, <-0.3562,-0.0046,0.3196>,
<0.0,-0.3744,-0.0092>, <-0.2786,-0.4156,0.0>, <-0.4612,-0.1278,0.0>, <-0.557,0.0,0.0046>
white_marble
}
+
// BEZIER PATCH
object{
bezier 2, 0.05, 3, 3,
<0.0,-0.3744,-0.0092>, <0.2374,-0.4064,0.0>, <0.5,-0.28,0.0>, <0.621,0.0046,0.0>,
<0.0,-0.3744,-0.0092>, <0.1188,-0.3698,-0.242>, <0.25,-0.2648,-0.2876>, <0.25,0.0,-0.433>,
<0.0,-0.3744,-0.0092>, <-0.1416,-0.3288,-0.242>, <-0.25,-0.2648,-0.2876>, <-0.2512,0.0,-0.3972>,
<0.0,-0.3744,-0.0092>, <-0.2786,-0.4156,0.0>, <-0.4612,-0.1278,0.0>, <-0.557,0.0,0.0046>
white_marble
}
}

}

object {
pebble
scale <0.5,0.5,0.5>//0.7
translate <0.25,-0.2,0.1> //0.3,-0.6,-0.5
rotate <0,0,5>
}

// ELLIPSOID
object {
sphere <0.0, 0.0, 0.0>, 1
scale <0.05, 0.06, 0.02> //0.05
rotate < 0.0,40.0,0.0>
translate < 0.55,-0.15,-0.4>
texture {
surface {
ambient 0.6
diffuse 0.2
color <0.184,0.309,0.184>
transmission <0.184,0.309,0.184>,0.4,1.52
}
}
}
// ELLIPSOID
object {
sphere <0.0, 0.0, 0.0>, 1
scale <0.2, 0.1, 0.1> //0.05
rotate < 0.0,40.0,0.0>
translate < -0.4,-0.22,-0.65> //4 15 -75
stone2
}
// ELLIPSOID
object {
sphere <0.0, 0.0, 0.0>, 1
scale <0.05, 0.04, 0.05>
rotate < 0.0,40.0,0.0>
translate < 0.3,-0.15,-0.55> //0.5
matte_white
}
// ELLIPSOID
object {
sphere <0.0, 0.0, 0.0>, 1
scale <0.05, 0.04, 0.05>
rotate < 0.0,0.0,0.0>
translate < 0.3,-0.15,-0.7>//0.5
reflective_white//matte_white
}
// ELLIPSOID
object {
sphere <0.0, 0.0, 0.0>, 1
scale <0.05, 0.04, 0.05>
rotate < 60.0,40.0,0.0>
translate < 0.6,-0.15,-0.6> //0.6
reflective_white//matte_white
}
// CSG START

object {
coin
translate <-0.5,-0.7,-0.9> //-0.7
rotate <5,0,0> //10,30,0
scale <0.5,0.2,0.5>
}
// LIGHT_SOURCE
directional_light <-2 , 2 , -2 >
directional_light <1 , 2 , 0 >