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

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

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

blue_glass cup tail
0
0
8
             0.1395            0.11175              -3.15
               0.15              0.225              -3.45
               0.09                  0

!xform -e -n fluke -rz -97 -ry  10 -rx -30 -t -.1 -.15 -1.2 -rz 180 -t 0 0 -1.1 -s 1.5 flukes

!xform -e -n rflipper -rz -90 -rz 35 -t .25 .05 .17 -rz 180 -t 0 0 -1.1 -s 1.5 flipper

!xform -e -n lflipper -mx -rz 90 -rz -50 -t -.2 .07 .18 -rz 180 -t 0 0 -1.1 -s 1.5 flipper

blue_glass polygon dfin.r
0
0
9
             0.0555             0.2745               -2.4
             0.0405             0.2655            -2.5725
              0.069                0.3            -2.6175

blue_glass polygon dfin.l
0
0
9
             0.0555             0.2745               -2.4
              0.084                0.3            -2.6175
             0.0705              0.255            -2.5725

blue_glass polygon dfin.b
0
0
9
              0.069                0.3            -2.6175
             0.0405             0.2655            -2.5725
             0.0705              0.255            -2.5725
