home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4613 / column.inc < prev    next >
Text File  |  1994-01-15  |  5KB  |  229 lines
  1. // Real Ray Tracer v1.0
  2. // A column
  3.  
  4. #include "colors.inc"
  5. #include "shapes.inc"
  6.  
  7. #declare Cylinder = intersection {
  8.   Cylinder_Y
  9.   slab { <0 1 0> -0.85 0.85 }
  10. }
  11.  
  12. #declare Column = bound {
  13.   object {
  14.     Cylinder
  15.     scale <0.10442 1 0.10442>
  16.     translate <0.80000 0 0.00000>
  17.   }
  18.   object {
  19.     Cylinder
  20.     scale <0.10442 1 0.10442>
  21.     translate <0.77274 0 0.20706>
  22.   }
  23.   object {
  24.     Cylinder
  25.     scale <0.10442 1 0.10442>
  26.     translate <0.69282 0 0.40000>
  27.   }
  28.   object {
  29.     Cylinder
  30.     scale <0.10442 1 0.10442>
  31.     translate <0.56569 0 0.56569>
  32.   }
  33.   object {
  34.     Cylinder
  35.     scale <0.10442 1 0.10442>
  36.     translate <0.40000 0 0.69282>
  37.   }
  38.   object {
  39.     Cylinder
  40.     scale <0.10442 1 0.10442>
  41.     translate <0.20706 0 0.77274>
  42.   }
  43.   object {
  44.     Cylinder
  45.     scale <0.10442 1 0.10442>
  46.     translate <-0.00000 0 0.80000>
  47.   }
  48.   object {
  49.     Cylinder
  50.     scale <0.10442 1 0.10442>
  51.     translate <-0.20706 0 0.77274>
  52.   }
  53.   object {
  54.     Cylinder
  55.     scale <0.10442 1 0.10442>
  56.     translate <-0.40000 0 0.69282>
  57.   }
  58.   object {
  59.     Cylinder
  60.     scale <0.10442 1 0.10442>
  61.     translate <-0.56569 0 0.56569>
  62.   }
  63.   object {
  64.     Cylinder
  65.     scale <0.10442 1 0.10442>
  66.     translate <-0.69282 0 0.40000>
  67.   }
  68.   object {
  69.     Cylinder
  70.     scale <0.10442 1 0.10442>
  71.     translate <-0.77274 0 0.20706>
  72.   }
  73.   object {
  74.     Cylinder
  75.     scale <0.10442 1 0.10442>
  76.     translate <-0.80000 0 -0.00000>
  77.   }
  78.   object {
  79.     Cylinder
  80.     scale <0.10442 1 0.10442>
  81.     translate <-0.77274 0 -0.20706>
  82.   }
  83.   object {
  84.     Cylinder
  85.     scale <0.10442 1 0.10442>
  86.     translate <-0.69282 0 -0.40000>
  87.   }
  88.   object {
  89.     Cylinder
  90.     scale <0.10442 1 0.10442>
  91.     translate <-0.56569 0 -0.56569>
  92.   }
  93.   object {
  94.     Cylinder
  95.     scale <0.10442 1 0.10442>
  96.     translate <-0.40000 0 -0.69282>
  97.   }
  98.   object {
  99.     Cylinder
  100.     scale <0.10442 1 0.10442>
  101.     translate <-0.20706 0 -0.77274>
  102.   }
  103.   object {
  104.     Cylinder
  105.     scale <0.10442 1 0.10442>
  106.     translate <0.00000 0 -0.80000>
  107.   }
  108.   object {
  109.     Cylinder
  110.     scale <0.10442 1 0.10442>
  111.     translate <0.20706 0 -0.77274>
  112.   }
  113.   object {
  114.     Cylinder
  115.     scale <0.10442 1 0.10442>
  116.     translate <0.40000 0 -0.69282>
  117.   }
  118.   object {
  119.     Cylinder
  120.     scale <0.10442 1 0.10442>
  121.     translate <0.56569 0 -0.56569>
  122.   }
  123.   object {
  124.     Cylinder
  125.     scale <0.10442 1 0.10442>
  126.     translate <0.69282 0 -0.40000>
  127.   }
  128.   object {
  129.     Cylinder
  130.     scale <0.10442 1 0.10442>
  131.     translate <0.77274 0 -0.20706>
  132.   }
  133.   object { box { <-1 0.85 -1> <1 1 1> } }
  134.   object { box { <-1 -1 -1> <1 -0.85 1> } }
  135. }
  136. by box { <-1 -1 -1> <1 1 1> }
  137. #declare Column2 = bound {
  138.   object {
  139.     difference {
  140.     difference {
  141.     difference {
  142.     difference {
  143.     difference {
  144.     difference {
  145.     difference {
  146.     difference {
  147.     difference {
  148.     difference {
  149.     difference {
  150.     difference {
  151.       object { Cylinder scale <0.8 1 0.8> }
  152.       object {
  153.         Cylinder
  154.         scale <0.10442 1.1 0.10442>
  155.         translate <0.80000 0 0.00000>
  156.       }
  157.     }
  158.       object {
  159.         Cylinder
  160.         scale <0.10442 1.1 0.10442>
  161.         translate <0.69282 0 0.40000>
  162.       }
  163.     }
  164.       object {
  165.         Cylinder
  166.         scale <0.10442 1.1 0.10442>
  167.         translate <0.40000 0 0.69282>
  168.       }
  169.     }
  170.       object {
  171.         Cylinder
  172.         scale <0.10442 1.1 0.10442>
  173.         translate <-0.00000 0 0.80000>
  174.       }
  175.     }
  176.       object {
  177.         Cylinder
  178.         scale <0.10442 1.1 0.10442>
  179.         translate <-0.40000 0 0.69282>
  180.       }
  181.     }
  182.       object {
  183.         Cylinder
  184.         scale <0.10442 1.1 0.10442>
  185.         translate <-0.69282 0 0.40000>
  186.       }
  187.     }
  188.       object {
  189.         Cylinder
  190.         scale <0.10442 1.1 0.10442>
  191.         translate <-0.80000 0 -0.00000>
  192.       }
  193.     }
  194.       object {
  195.         Cylinder
  196.         scale <0.10442 1.1 0.10442>
  197.         translate <-0.69282 0 -0.40000>
  198.       }
  199.     }
  200.       object {
  201.         Cylinder
  202.         scale <0.10442 1.1 0.10442>
  203.         translate <-0.40000 0 -0.69282>
  204.       }
  205.     }
  206.       object {
  207.         Cylinder
  208.         scale <0.10442 1.1 0.10442>
  209.         translate <0.00000 0 -0.80000>
  210.       }
  211.     }
  212.       object {
  213.         Cylinder
  214.         scale <0.10442 1.1 0.10442>
  215.         translate <0.40000 0 -0.69282>
  216.       }
  217.     }
  218.       object {
  219.         Cylinder
  220.         scale <0.10442 1.1 0.10442>
  221.         translate <0.69282 0 -0.40000>
  222.       }
  223.     }
  224.   }
  225.   object { box { <-1 0.85 -1> <1 1 1> } }
  226.   object { box { <-1 -1 -1> <1 -0.85 1> } }
  227. }
  228. by box { <-1 -1 -1> <1 1 1> }
  229. end.