home *** CD-ROM | disk | FTP | other *** search
/ World of Graphics / WOGRAPH.BIN / 495.CLIP2.V < prev    next >
Text File  |  1992-03-14  |  1KB  |  81 lines
  1.  
  2. //      clip2.v -- test out new clipping planes with cones
  3.  
  4. #include color.vc
  5.  
  6. studio {
  7.     from 1 -6 5
  8.     at 0 -1 0
  9.     up 0 0 1
  10.     angle 45
  11.     res 640 480
  12.     antialias adaptive
  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. //      clip cone
  41.  
  42. surf {
  43.     diff 0 .5 1
  44.     shine 20 white
  45. }
  46.  
  47. cone {          //      45° diagonal clips at end of cylinder
  48.     apex -2 0 .5
  49.     base 2 0 .5
  50.     radius .5
  51.     clip {
  52.         center -1.5 0 .5
  53.         normal  1 1 0           // face normal inward toward the
  54.     }                               // part we want to keep
  55.     clip {
  56.         center 1.5 0 .5
  57.         normal -1 1 0
  58.     }
  59. }
  60.  
  61. cone {          //      clip in half, lengthwise
  62.     apex -2 -1.1 .5
  63.     base 2 -1.1 .5
  64.     radius .5
  65.     clip {
  66.         center 0 -1.1 .5
  67.         normal 0 0 -1   // keep the bottom half
  68.     }
  69. }
  70.  
  71. cone {          //      clip in half at a diagonal, lengthwise
  72.     apex -2 -2.2 .5
  73.     base 2 -2.2 .5
  74.     radius .5
  75.     clip {
  76.         center 0 -2.2 .5
  77.         normal -.3 0 -1   // keep the bottom half
  78.     }
  79. }
  80.  
  81.