# xform -t 0 0 -1.1 -s 1.5 -rz 90
#
# Humpback whale, flukes straight
#

!gensurf blue_glass body 'x(s,t)' 'y(s,t)' '1.2*z(s,t)' 25 25 \
	-f patch3w.cal -f body1.cal \
	-e 'b3(a,b,c,d,p)=bspline(a,b,c,d,p);interpolate=-1' \
	| xform -e -t 0 0 -1.1 -s 1.5 -rz 90
#
# Additional whale parts
#

!genrev blue_glass nose '.12*cos(t*PI/2)' '.077*sin(t*PI/2)' 8 \
	| xform -t .015 .01 .98 -t 0 0 -1.1 -s 1.5 -rz 90

blue_glass cup tail
0
0
8
          -0.003675           0.007425              -3.15
 -1.83690953073e-18              -0.03              -3.45
             0.0975                  0

blue_glass polygon dfin.r
0
0
9
              0.012             0.3375            -2.3475
  1.80935588777e-17             0.2955            -2.5275
              0.012               0.36              -2.55

blue_glass polygon dfin.l
0
0
9
              0.012             0.3375            -2.3475
              0.012               0.36              -2.55
             0.0027             0.2925            -2.5275

blue_glass polygon dfin.b
0
0
9
             0.0027             0.2925            -2.5275
              0.012               0.36              -2.55
  1.80935588777e-17             0.2955            -2.5275

!xform -e -n fluke -t -.02 0 -1.2 -t 0 0 -1.1 -s 1.5 -rz 90 flukes

!xform -e -n rflipper -rz 50 -t .0223 .247 .1 -t 0 0 -1.1 -s 1.5 -rz 90 flipper

!xform -e -n lflipper -rz 150 -t .0173 -.229 .1 -t 0 0 -1.1 -s 1.5 -rz 90 flipper
