home *** CD-ROM | disk | FTP | other *** search
/ World of Graphics / WOGRAPH.BIN / 509.CLIP5.V < prev    next >
Text File  |  1992-02-20  |  956b  |  73 lines
  1.  
  2. //      clip.v -- test out clipping spheres
  3.  
  4. #include color.vc
  5.  
  6. studio {
  7.     from 1 -6 4
  8.     at 0 -0.5 0.5
  9.     up 0 0 1
  10.     angle 35
  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 spheres
  41.  
  42. surf {
  43.     diff 0 .5 1
  44.     shine 20 white
  45. }
  46.  
  47. sphere {
  48.     center -.5 0 .5
  49.     radius .5
  50.     clip {
  51.         center -.5 0 1
  52.         radius .2
  53.         inside
  54.     }
  55. }
  56. sphere {
  57.     center 0.5 0 .5
  58.     radius .5
  59.     clip {
  60.         center .5 0 1
  61.         radius .2
  62.         outside
  63.     }
  64.     clip { center 0 0 .5 normal 0 0 1 }
  65. }
  66. cone {
  67.     apex -1 -1 .5
  68.     base 1 -1 .5
  69.     radius .3
  70.     clip { center 0 -1 .8 radius .5 outside }
  71.     clip { center 0 -1 0 radius 1 inside }
  72. }
  73.