home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / SCN / BATH / VANITY < prev    next >
Text File  |  1993-10-07  |  3KB  |  112 lines
  1. #
  2. #  A bathroom vanity and basin.
  3. #
  4. #    Origin is front left corner, x is right.
  5. #
  6.  
  7. #
  8. # The fixtures
  9. #
  10.  
  11. !xform -e -n left_fauc -rz -150 -t 11.5 19 30.75 sinkfauc
  12.  
  13. !xform -e -n right_fauc -rz -30 -t 19.5 19 30.75 sinkfauc
  14.  
  15. !genrev brass stopper 'hermite(0,.25,.09,0,t)' \
  16.     'hermite(1.0625,0,0,-.7,t)' 4 -s | xform -t 15.5 13.3 26.25
  17.  
  18. !xform -e -n spigot -rz -90 -t 15.5 19.5 30.75 sinkspig
  19.  
  20. #
  21. # The sink
  22. #
  23.  
  24. !( echo marble polygon sink_top 0 0 63 31 10.5 30.75 31 22 30.75 \
  25.     0 22 30.75 0 0 30.75 31 0 30.75 31 10.5 30.75 ; \
  26.     cnt 15 | rcalc -e '$1=15.5+x(theta(0),phi(1-$1/14))' \
  27.     -e '$2=10.5+y(theta(0),phi(1-$1/14))' -e '$3=30.75' -f basin.cal )
  28.  
  29. !gensurf marble sink '15.5+x(theta(s),phi(t))' '10.5+y(theta(s),phi(t))' \
  30.     '30.75+z(theta(s),phi(t))' 4 14 -f basin.cal -s
  31.  
  32. # edit the following:
  33. # xform -t 0 0 30
  34. # genbox marble sink 31 22 .75
  35.  
  36. marble polygon sink.1540
  37. 0
  38. 0
  39. 12
  40.                  31                  0                 30
  41.                  31                  0              30.75
  42.                   0                  0              30.75
  43.                   0                  0                 30
  44.  
  45. marble polygon sink.4620
  46. 0
  47. 0
  48. 12
  49.                   0                  0              30.75
  50.                   0                 22              30.75
  51.                   0                 22                 30
  52.                   0                  0                 30
  53.  
  54. marble polygon sink.2310
  55. 0
  56. 0
  57. 30
  58.                   0                 22                 30
  59.                  31                 22                 30
  60.                  31                  0                 30
  61.                   0                  0                 30
  62.           0    2    30
  63.           29    2    30
  64.           29    20    30
  65.           2    20    30
  66.           2    2    30
  67.           0    2    30
  68.  
  69. marble polygon sink.3267
  70. 0
  71. 0
  72. 12
  73.                  31                 22                 30
  74.                   0                 22                 30
  75.                   0                 22              30.75
  76.                  31                 22              30.75
  77.  
  78. marble polygon sink.5137
  79. 0
  80. 0
  81. 12
  82.                  31                  0              30.75
  83.                  31                  0                 30
  84.                  31                 22                 30
  85.                  31                 22              30.75
  86.  
  87. #
  88. # Changed occurrences of xwood to ywood below since we will be rotated:
  89. #
  90.  
  91. !genbox marble sink_back 31 .75 3 | xform -t 0 21.25 30.76
  92.  
  93. !genprism zwood cab_left 8 0 5 4 5 4 4 24.5 4 24.5 3 30 1.5 30 22 0 22 \
  94.     -l 0 0 .5 | xform -ry -90 -t 1 0 0
  95.  
  96. !genprism zwood cab_right 8 0 5 4 5 4 4 24.5 4 24.5 3 30 1.5 30 22 0 22 \
  97.     -l 0 0 .5 | xform -ry -90 -t 30.5 0 0
  98.  
  99. !genbox ywood cab_base 30 .5 4 | xform -t .5 4.5 0
  100.  
  101. !genbox zwood cab_front 30 .5 20.5 -r .1 | xform -t .5 3.5 4
  102.  
  103. !genbox ywood cab_front_top 30 .5 5.75 -r .1 | xform -t 0 -.5 0 -rx 15.25 -t .5 3 24.5
  104.  
  105. !genbox zwood cab_door 13.5 .5 18.5 -r .1 | xform -t 2 2.95 5
  106.  
  107. !genbox ywood cab_drawer_lower 11 .5 5.75 -r .1 | xform -t 18 2.95 5
  108.  
  109. !genbox ywood cab_drawer_middle 11 .5 5.75 -r .1 | xform -t 18 2.95 11.25
  110.  
  111. !genbox ywood cab_drawer_top 11 .5 5.75 -r .1 | xform -t 18 2.95 17.75
  112.