/*
ballrings - two interlocking rings of balls within cubes rings of balls
from an original idea by TAOS systems
*/

maxdepth 3
jittered samples 2
contrast 10 10 10
eyep 0 -12 .5
lookp 0 0 0
up 0 0 1
fov 56 45
screen 640 512
mode 21
background 0 0 0

/* some common colours */
colour black 0 0 0
colour whiteish .9 .9 .9
colour blackish .2 .2 .2

/* surface types - first one gives meaning of values */
surface s1
Ambientcolor black
Diffusecolor .9 .7 .3
Specularcolor .9 .7 .3
Specularpower 14
Reflectivity 0
Transparancy 0
Refractiveindex 0

surface s2 black .9 .2 .4 .9 .2 .4 25 0.6 0 0
surface w black whiteish whiteish 25 0.6 0 0
surface b black blackish blackish 25 0.6 0 0

/* sphere's set of rainbow colours */
surface sc1 black 1 0 0 1 0 0 25 0.6 0 0
surface sc2 black 1 .5 0 1 .5 0 25 0.6 0 0
surface sc3 black 1 1 0 1 1 0 25 0.6 0 0
surface sc4 black .5 1 0 .5 1 0 25 0.6 0 0
surface sc5 black 0 1 0 0 1 0 25 0.6 0 0
surface sc6 black 0 1 .5 0 1 .5 25 0.6 0 0
surface sc7 black 0 1 1 0 1 1 25 0.6 0 0
surface sc8 black 0 .5 1 0 .5 1 25 0.6 0 0
surface sc9 black 0 0 1 0 0 1 25 0.6 0 0
surface sc10 black .5 0 1 .5 0 1 25 0.6 0 0
surface sc11 black 1 0 1 1 0 1 25 0.6 0 0
surface sc12 black 1 .5 1 1 .5 1 25 0.6 0 0
surface sc13 black 1 1 1 1 1 1 25 0.6 0 0
surface sc14 black 1 .5 1 1 .5 1 25 0.6 0 0
surface sc15 black 1 0 1 1 0 1 25 0.6 0 0
surface sc16 black 1 0 .5 1 0 .5 25 0.6 0 0

/* two vertices and one edge of cube containing each ball */
define bar
cylinder s1 0 0 -.5 0 0 .5 .1
sphere s1 .1 0 0 -0.5
sphere s1 .1 0 0 .5
defend
 
/* four vertices and four edges of one cube */
define cylb
object bar translate -.5 0 0
object bar translate .5 0 0
cylinder s1 -.5 0 -.5 .5 0 -.5 .1
cylinder s1 -.5 0 .5 .5 0 .5 .1
defend

/* complete cube to contain each sphere */
define cylbox
object cylb translate 0 -.5 0
object cylb translate 0 .5 0
cylinder s1 -.5 -.5 -.5 -.5 .5 -.5 .1
cylinder s1 .5 -.5 -.5 .5 .5 -.5 .1
cylinder s1 -.5 -.5 .5 -.5 .5 .5 .1
cylinder s1 .5 -.5 .5 .5 .5 .5 .1
defend

/* one complete ring of rainbow coloured balls */
define ballring
sphere sc1 .5 0 0 3.01367
sphere sc2 .5 0 0 3.01367 rotate 0 1 0 22.5
sphere sc3 .5 0 0 3.01367 rotate 0 1 0 45
sphere sc4 .5 0 0 3.01367 rotate 0 1 0 67.5
sphere sc5 .5 0 0 3.01367 rotate 0 1 0 90
sphere sc6 .5 0 0 3.01367 rotate 0 1 0 112.5
sphere sc7 .5 0 0 3.01367 rotate 0 1 0 135
sphere sc8 .5 0 0 3.01367 rotate 0 1 0 157.5
sphere sc9 .5 0 0 3.01367 rotate 0 1 0 180
sphere sc10 .5 0 0 3.01367 rotate 0 1 0 -157.5
sphere sc11 .5 0 0 3.01367 rotate 0 1 0 -135
sphere sc12 .5 0 0 3.01367 rotate 0 1 0 -112.5
sphere sc13 .5 0 0 3.01367 rotate 0 1 0 -90
sphere sc14 .5 0 0 3.01367 rotate 0 1 0 -67.5
sphere sc15 .5 0 0 3.01367 rotate 0 1 0 -45
sphere sc16 .5 0 0 3.01367 rotate 0 1 0 -22.5
defend

/* four adjacent cubes positioned around the spheres */
define boxring4
object cylbox translate 0 0 3.01367
object cylbox translate 0 0 3.01367 rotate 0 1 0 22.5
object cylbox translate 0 0 3.01367 rotate 0 1 0 45
object cylbox translate 0 0 3.01367 rotate 0 1 0 67.5
defend

/* set of 16 cubes in a ring with ball in each cube */
define boxring
object ballring
object boxring4
object boxring4 rotate 0 1 0 90
object boxring4 rotate 0 1 0 180
object boxring4 rotate 0 1 0 270
defend

/* two interlocking rings */
object boxring rotate 1 0 0 45 translate -1.506835 0 0
object boxring rotate 1 0 0 -45 translate 1.506835 0 0

/* B&W checkered floor and a couple of lights */
plane b 0 0 1 0 0 -2.9844 texture checker w
light .9 point 20 -30 10
light .9 point -20 -30 10

endfile

 
Top  ¦  Home  ¦  Ray Tracing  ¦  Fractals  ¦  CV  ¦  Interests  ¦  PalmPilot  ¦  Journals  ¦  For Sale
Last updated 26 March 1998  ¦  Fave Links  ¦  contact me