home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / SCN / PODLIFE / WHALE2 < prev    next >
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 body2.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.084             -0.225              -3.15
  22.             -0.0825              -0.42              -3.45
  23.               0.105                  0
  24.  
  25. !xform -e -n fluke -rz -90 -rx 25 -t .055 .25 -1.2 -rz 180 -t 0 0 -1.1 -s 1.5 flukes
  26.  
  27. !xform -e -n rflipper -rz -90 -rz 50 -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 -40 -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.   2.97579343979e-17              0.243               -2.4
  36.              -0.015             0.1875              -2.55
  37.   3.12274620225e-17              0.255            -2.6025
  38.  
  39. blue_glass polygon dfin.l
  40. 0
  41. 0
  42. 9
  43.   2.97579343979e-17              0.243               -2.4
  44.   3.12274620225e-17              0.255            -2.6025
  45.               0.015              0.174              -2.55
  46.  
  47. blue_glass polygon dfin.b
  48. 0
  49. 0
  50. 9
  51.   3.12274620225e-17              0.255            -2.6025
  52.              -0.015             0.1875              -2.55
  53.               0.015              0.174              -2.55
  54.