home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / SCN / PODLIFE / SCULP < prev    next >
Text File  |  1993-10-07  |  2KB  |  71 lines
  1. #
  2. # The sculpture
  3. #
  4.  
  5. void dielectric blue_glass
  6. 0
  7. 0
  8. 5 .9 .93 .99 1.5 0
  9.  
  10. !gensurf blue_glass block.side 'cos(2*PI*s)*sr(t)' '1.5+8*hermite(0,1,2,1,t)' \
  11.     '-sin(2*PI*s)*sr(t)' 8 25 -e 'sr(t)=8*hermite(.7,.6,-.6,.15,t)'
  12.  
  13. void texfunc wavy
  14. 6 wave_x wave_y wave_z wave.cal -s .25
  15. 0
  16. 1 .25
  17.  
  18. wavy alias blue_surface blue_glass
  19.  
  20. blue_surface polygon block.top
  21. 0
  22. 0
  23. 24
  24.           3.3941125                9.5         -3.3941125
  25.                   0                9.5               -4.8
  26.          -3.3941125                9.5         -3.3941125
  27.                -4.8                9.5                  0
  28.          -3.3941125                9.5          3.3941125
  29.                   0                9.5                4.8
  30.           3.3941125                9.5          3.3941125
  31.                 4.8                9.5                  0
  32.  
  33. void texfunc conchoid
  34. 6 conch_x conch_y conch_z conch.cal -s .75
  35. 0
  36. 1 .175
  37.  
  38. conchoid plastic obsidian
  39. 0
  40. 0
  41. 5 .05 .05 .05 .05 .05
  42.  
  43. !gensurf obsidian base.side 'cos(2*PI*s)*sr(t)' '1.5*t' \
  44.     '-sin(2*PI*s)*sr(t)' 8 4 -e 'sr(t)=8*hermite(.73,.7,-.04,0,t)'
  45.  
  46. obsidian polygon base.top
  47. 0
  48. 0
  49. 24
  50.            3.959798                1.5          -3.959798
  51.                   0                1.5               -5.6
  52.           -3.959798                1.5          -3.959798
  53.                -5.6                1.5                  0
  54.           -3.959798                1.5           3.959798
  55.                   0                1.5                5.6
  56.            3.959798                1.5           3.959798
  57.                 5.6                1.5                  0
  58. #
  59. # A small pod of humpback whales
  60. #
  61.  
  62. !xform -e -n whale1 -ry 50 -rz -40 -t -1.5 6 2 whale1
  63.  
  64. !xform -e -n whale2 -s 1.2 -ry 140 -rx -32 -t 3 4.2 0 whale2
  65.  
  66. !xform -e -n whale3 -s 1.1 -ry -120 -rz 25 -t .4 3.5 -2.5 whale3
  67.  
  68. !cnt 400 | rcalc -f bub.cal -o bub.fmt -e 't=$1/400;x0=-1.5;y0=6;z0=2'
  69. !cnt 400 | rcalc -f bub.cal -o bub.fmt -e 't=$1/400;b0=400;x0=3;y0=4.2;z0=0'
  70. !cnt 400 | rcalc -f bub.cal -o bub.fmt -e 't=$1/400;b0=800;x0=.4;y0=3.5;z0=-2.5'
  71.