home *** CD-ROM | disk | FTP | other *** search
/ World of Graphics / WOGRAPH.BIN / 512.CLIP8.V < prev    next >
Text File  |  1992-02-26  |  1KB  |  74 lines
  1.  
  2. //      clip.v -- test out clipping cones
  3.  
  4. #include color.vc
  5.  
  6. studio {
  7.     from 3 3 3
  8.     at 0 0 1
  9.     up 0 0 1
  10.     angle 60
  11.     res 160 100
  12.     antialias quick
  13.     aspect 4/3
  14.     background {
  15.         greys.map
  16.     }
  17.     ambient white * .2
  18. }
  19.  
  20. light {
  21.     type point
  22.     falloff 0
  23.     position 1 -.5 5
  24.     color white * .5
  25. }
  26. light {
  27.     type point
  28.     falloff 0
  29.     position -2 -4 5
  30.     color white * .5
  31. }
  32.  
  33. //      base surface
  34.  
  35. surface {
  36.     diff plum * .5          // dark plum
  37. }
  38. ring { center 0 0 0 normal 0 0 1 radius 1000 }
  39.  
  40. //      outside surface
  41.  
  42. surf {
  43.     diff 0 .5 1
  44.     shine 20 white
  45. }
  46.  
  47. sphere { center -1 -1 1 radius 1
  48.     clip { apex -2 -2 1.5 base 1 3 1.5 radius .5 outside }
  49. }
  50. cone { apex 2 1.5 1 base -2 1.5 1 radius .5
  51.     clip { apex -2 -2 1.5 base 1 3 1.5 radius .5 outside }
  52. }
  53. ring { center 2 1.5 1 normal -1 0 0 radius .5 }
  54. ring { center -2 1.5 1 normal 1 0 0 radius .5 }
  55.  
  56.  
  57. //      inside surface
  58.  
  59. surf {
  60.     diff red
  61.     shine 20 white
  62. }
  63.  
  64. cone { apex -2 -2 1.5 base 1 3 1.5 radius .5
  65.     clip { center -1 -1 1 radius 1 inside }
  66. }
  67. cone { apex -2 -2 1.5 base 1 3 1.5 radius .5
  68.     clip { apex 2 1.5 1 base -2 1.5 1 radius .5 inside }
  69. }
  70.  
  71.  
  72.  
  73.  
  74.