home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / SCN / BATH / TOILET < prev    next >
Text File  |  1993-10-07  |  1KB  |  51 lines
  1. #
  2. # A humble throne
  3. #
  4.  
  5. !genbox toilet_mat base0 15 9 1 -r .2 | xform -t 7 5.5 0
  6.  
  7. !genprism toilet_mat base1 7    9 .5    3 9    3 13    10 13 \
  8.     15 9    21 9    21 .5     -l 0 0 5 | xform -rx 90 -t 0 12.5 0
  9.  
  10. !genbox toilet_mat base2 11 8.5 2 -r .2 | xform -t 0 5.75 13
  11.  
  12. !genprism toilet_mat tank 10    0.25 1    0.25 19.25    1 20    5.5 20 \
  13.     6.5 19    7.5 15    7.5 5.25    6.5 1.25    5.25 0.25 \
  14.     1 0.25 -l 0 0 15 | xform -t 0 0 15
  15.  
  16. !genprism toilet_mat tank_lid 10    0 1    0 19.5    1 20.25    5.5 20.25 \
  17.     6.5 19.25    7.75 15    7.75 5.25    6.5 1    5.25 0 \
  18.     1 0 -l 0 0 2 | xform -t 0 0 28.2
  19.  
  20. !xform -e -n flusher -rx -5 -rz -14.5 -t 7 3.25 27 flushand
  21.  
  22. !gensurf toilet_mat bowl '18+8*cos(ph(s))*sin(th(t))' \
  23.     '10+7*sin(ph(s))*sin(th(t))' '14+8*cos(th(t))' 12 7 -s \
  24.     -e 'ph(s)=2*PI*s;th(t)=PI*(.9-.44*t);'
  25.  
  26. !cnt 20 | rcalc -e '$1=8*cos(th);$2=7*sin(th);th=(-150+300*$1/19)*PI/180' \
  27.     | genprism xwood lid_lower - -l 0 0 .875 \
  28.     | xform -s 1.05 -t 18 10 15.15
  29.  
  30. !cnt 20 | rcalc -e '$1=8*cos(th);$2=7*sin(th);th=(-150+300*$1/19)*PI/180' \
  31.     | genprism xwood lid_upper - -l 0 0 .875 \
  32.     | xform -s .98 -t 18 10 16.25
  33.  
  34. brass cylinder lid_hinge1
  35. 0
  36. 0
  37. 7
  38.     10    7    15.5
  39.     10    13    15.5
  40.     .15
  41.  
  42. brass sphere lid_hinge0
  43. 0
  44. 0
  45. 4    10    7    15.5    .15
  46.  
  47. brass sphere lid_hinge2
  48. 0
  49. 0
  50. 4    10    13    15.5    .15
  51.