Category : Printer + Display Graphics
Archive   : PLYDAT.ZIP
Filename : SUPERQ.PI

# Sample transcendental surface. This is a basic superquadric shape (a pinchy).
# There seems to be a problem with the shading, and there are severe holes
# at the edges.
# Polyray input file - Alexander Enzmann

# Set up the camera
viewpoint {
from <0, 5, -5>
at <0,0,0>
up <0,1,0>
angle 30
resolution 160, 160
}

# Set up background color & lights
background SkyBlue
light <10,10,-10>

define shiny_red
texture {
surface {
ambient red, 0.2
diffuse red, 0.6
specular white, 0.8
microfacet Reitz 10
}
}

define unit_sphere
object { sphere <0,0,0>, 1 }

# Define a superquadric surface
object {
function |x|^0.75 + |y|^0.74 + |z|^0.75 - 1
shiny_red
bounds unit_sphere
rotate <0, 30, 0>
}