home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / SCN / PODLIFE / WHALE3 < prev   
Text File  |  1993-10-07  |  1KB  |  54 lines
  1. # xform -rz 180 -t 0 0 -1.1 -s 1.5
  2. #
  3. # Humpback whale, flukes 
  4. #
  5.  
  6. !gensurf blue_glass body 'x(s,t)' 'y(s,t)' '1.2*z(s,t)' 25 25 \
  7.     -f patch3w.cal -f body3.cal \
  8.     -e 'b3(a,b,c,d,p)=bspline(a,b,c,d,p);interpolate=-1' \
  9.     | xform -e -rz 180 -t 0 0 -1.1 -s 1.5
  10. #
  11. # Additional whale parts
  12. #
  13.  
  14. !genrev blue_glass nose '.11*cos(t*PI/2)' '.077*sin(t*PI/2)' 8 \
  15.     | xform -t .015 .012 .98 -rz 180 -t 0 0 -1.1 -s 1.5
  16.  
  17. blue_glass cup tail
  18. 0
  19. 0
  20. 8
  21.              0.1395            0.11175              -3.15
  22.                0.15              0.225              -3.45
  23.                0.09                  0
  24.  
  25. !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
  26.  
  27. !xform -e -n rflipper -rz -90 -rz 35 -t .25 .05 .17 -rz 180 -t 0 0 -1.1 -s 1.5 flipper
  28.  
  29. !xform -e -n lflipper -mx -rz 90 -rz -50 -t -.2 .07 .18 -rz 180 -t 0 0 -1.1 -s 1.5 flipper
  30.  
  31. blue_glass polygon dfin.r
  32. 0
  33. 0
  34. 9
  35.              0.0555             0.2745               -2.4
  36.              0.0405             0.2655            -2.5725
  37.               0.069                0.3            -2.6175
  38.  
  39. blue_glass polygon dfin.l
  40. 0
  41. 0
  42. 9
  43.              0.0555             0.2745               -2.4
  44.               0.084                0.3            -2.6175
  45.              0.0705              0.255            -2.5725
  46.  
  47. blue_glass polygon dfin.b
  48. 0
  49. 0
  50. 9
  51.               0.069                0.3            -2.6175
  52.              0.0405             0.2655            -2.5725
  53.              0.0705              0.255            -2.5725
  54.