home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser-CD 2000 January / LCD_01_2000.iso / grafik / cloe / include / pattern.inc < prev    next >
Encoding:
Text File  |  1995-04-27  |  1.5 KB  |  67 lines
  1. #define surf_check surface {
  2.   ambient    0.15
  3.   diffuse    0.4
  4.   specular  0.6
  5.   colour    Black
  6. }
  7.  
  8. #define check pattern { // checker pattern
  9.   rectangle {
  10.     size      <0 0 .5 .5>
  11.     surf_check
  12.   }
  13.   rectangle {
  14.     size      <.5 .5 1. 1.>
  15.     surface {surf_check colour Yellow}
  16.   }
  17. }
  18.  
  19. #define surf1 surface {
  20.   ambient    0.15
  21.   diffuse   0.4
  22.   specular  0.0
  23. }
  24.  
  25. #define otherbrick pattern {    // brick pattern
  26.   rectangle {
  27.     size      <0 0.04 0.225 0.46>
  28.     surface {surf1 colour <1.0 0.2 0.2>}
  29.   }
  30.   rectangle {
  31.     size      <0.775 0.04 1.0 0.46>
  32.     surface {surf1 colour <1.0 0.2 0.2>}
  33.   }
  34.   rectangle {
  35.     size      <0.275 0.04 0.725 0.46>
  36.     surface {surf1 colour <0.8 0.2 0.2>}
  37.   }
  38.   rectangle {
  39.     size      <0.025 0.54 0.475 0.96>
  40.     surface {surf1 colour <0.85 0.35 0.1>}
  41.   }
  42.   rectangle {
  43.     size      <0.525 0.54 0.975 0.96>
  44.     surface {surf1 colour <0.7 0.25 0.20>}
  45.   }
  46. }
  47.  
  48. #define hexa pattern {   // hexagonal pattern
  49.   polygon {
  50.     vertex    6 <0.0 0.25> <0.25 0.25> <0.5 0.5> <0.25 0.75> <0.0 0.75> <0. 0.25>
  51.     surface {surf1 colour Yellow}
  52.   }
  53.   polygon {
  54.     vertex    4 <1.0 0.75> <0.75 0.5> <1.0 0.25> <1.0 0.75>
  55.     surface {surf1 colour Yellow}
  56.   }
  57.   polygon {
  58.     vertex    7 <0.25 0.25> <0.5 0.0> <0.75 0.0> <1.0 0.25> <0.75 0.5> <0.5 0.5> <0.25 0.25>
  59.     surface {surf1 colour Red}
  60.   }
  61.   polygon {
  62.     vertex    7 <0.25 0.75> <0.5 0.5> <0.75 0.5> <1.0 0.75> <0.75 1.0> <0.5 1.0> <0.25 0.75>
  63.     surface {surf1 colour Blue}
  64.   }
  65. }
  66.  
  67.