#
# The sculpture
#

void dielectric blue_glass
0
0
5 .9 .93 .99 1.5 0

!gensurf blue_glass block.side 'cos(2*PI*s)*sr(t)' '1.5+8*hermite(0,1,2,1,t)' \
	'-sin(2*PI*s)*sr(t)' 8 25 -e 'sr(t)=8*hermite(.7,.6,-.6,.15,t)'

void texfunc wavy
6 wave_x wave_y wave_z wave.cal -s .25
0
1 .25

wavy alias blue_surface blue_glass

blue_surface polygon block.top
0
0
24
          3.3941125                9.5         -3.3941125
                  0                9.5               -4.8
         -3.3941125                9.5         -3.3941125
               -4.8                9.5                  0
         -3.3941125                9.5          3.3941125
                  0                9.5                4.8
          3.3941125                9.5          3.3941125
                4.8                9.5                  0

void texfunc conchoid
6 conch_x conch_y conch_z conch.cal -s .75
0
1 .175

conchoid plastic obsidian
0
0
5 .05 .05 .05 .05 .05

!gensurf obsidian base.side 'cos(2*PI*s)*sr(t)' '1.5*t' \
	'-sin(2*PI*s)*sr(t)' 8 4 -e 'sr(t)=8*hermite(.73,.7,-.04,0,t)'

obsidian polygon base.top
0
0
24
           3.959798                1.5          -3.959798
                  0                1.5               -5.6
          -3.959798                1.5          -3.959798
               -5.6                1.5                  0
          -3.959798                1.5           3.959798
                  0                1.5                5.6
           3.959798                1.5           3.959798
                5.6                1.5                  0
#
# A small pod of humpback whales
#

!xform -e -n whale1 -ry 50 -rz -40 -t -1.5 6 2 whale1

!xform -e -n whale2 -s 1.2 -ry 140 -rx -32 -t 3 4.2 0 whale2

!xform -e -n whale3 -s 1.1 -ry -120 -rz 25 -t .4 3.5 -2.5 whale3

!cnt 400 | rcalc -f bub.cal -o bub.fmt -e 't=$1/400;x0=-1.5;y0=6;z0=2'
!cnt 400 | rcalc -f bub.cal -o bub.fmt -e 't=$1/400;b0=400;x0=3;y0=4.2;z0=0'
!cnt 400 | rcalc -f bub.cal -o bub.fmt -e 't=$1/400;b0=800;x0=.4;y0=3.5;z0=-2.5'
