home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / radiance / scn / podlife / whale1 < prev    next >
Encoding:
Text File  |  1990-03-13  |  1.4 KB  |  54 lines
  1. # xform -t 0 0 -1.1 -s 1.5 -rz 90
  2. #
  3. # Humpback whale, flukes straight
  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 body1.cal \
  8.     -e 'b3(a,b,c,d,p)=bspline(a,b,c,d,p);interpolate=-1' \
  9.     | xform -e -t 0 0 -1.1 -s 1.5 -rz 90
  10. #
  11. # Additional whale parts
  12. #
  13.  
  14. !genrev blue_glass nose '.12*cos(t*PI/2)' '.077*sin(t*PI/2)' 8 \
  15.     | xform -t .015 .01 .98 -t 0 0 -1.1 -s 1.5 -rz 90
  16.  
  17. blue_glass cup tail
  18. 0
  19. 0
  20. 8
  21.           -0.003675           0.007425              -3.15
  22.  -1.83690953073e-18              -0.03              -3.45
  23.              0.0975                  0
  24.  
  25. blue_glass polygon dfin.r
  26. 0
  27. 0
  28. 9
  29.               0.012             0.3375            -2.3475
  30.   1.80935588777e-17             0.2955            -2.5275
  31.               0.012               0.36              -2.55
  32.  
  33. blue_glass polygon dfin.l
  34. 0
  35. 0
  36. 9
  37.               0.012             0.3375            -2.3475
  38.               0.012               0.36              -2.55
  39.              0.0027             0.2925            -2.5275
  40.  
  41. blue_glass polygon dfin.b
  42. 0
  43. 0
  44. 9
  45.              0.0027             0.2925            -2.5275
  46.               0.012               0.36              -2.55
  47.   1.80935588777e-17             0.2955            -2.5275
  48.  
  49. !xform -e -n fluke -t -.02 0 -1.2 -t 0 0 -1.1 -s 1.5 -rz 90 flukes
  50.  
  51. !xform -e -n rflipper -rz 50 -t .0223 .247 .1 -t 0 0 -1.1 -s 1.5 -rz 90 flipper
  52.  
  53. !xform -e -n lflipper -rz 150 -t .0173 -.229 .1 -t 0 0 -1.1 -s 1.5 -rz 90 flipper
  54.