home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / p / ply15dat.zip / TEAPOT.INC < prev    next >
Text File  |  1992-09-02  |  12KB  |  234 lines
  1. define teapot
  2. object {
  3. // Rim
  4.    object {
  5.       bezier 2, 0.01, 3, 3,
  6.          <1.4, 2.4, 0>, <1.4, 2.4, -0.784>, <0.784, 2.4, -1.4>, <0, 2.4, -1.4>,
  7.          <1.3375, 2.53125, 0>, <1.3375, 2.53125, -0.749>, <0.749, 2.53125, -1.3375>, <0, 2.53125, -1.3375>,
  8.          <1.4375, 2.53125, 0>, <1.4375, 2.53125, -0.805>, <0.805, 2.53125, -1.4375>, <0, 2.53125, -1.4375>,
  9.          <1.5, 2.4, 0>, <1.5, 2.4, -0.84>, <0.84, 2.4, -1.5>, <0, 2.4, -1.5>
  10.       }
  11.  + object {
  12.       bezier 2, 0.01, 3, 3,
  13.          <0, 2.4, -1.4>, <-0.784, 2.4, -1.4>, <-1.4, 2.4, -0.784>, <-1.4, 2.4, 0>,
  14.          <0, 2.53125, -1.3375>, <-0.749, 2.53125, -1.3375>, <-1.3375, 2.53125, -0.749>, <-1.3375, 2.53125, 0>,
  15.          <0, 2.53125, -1.4375>, <-0.805, 2.53125, -1.4375>, <-1.4375, 2.53125, -0.805>, <-1.4375, 2.53125, 0>,
  16.          <0, 2.4, -1.5>, <-0.84, 2.4, -1.5>, <-1.5, 2.4, -0.84>, <-1.5, 2.4, 0>
  17.       }
  18.  + object {
  19.       bezier 2, 0.01, 3, 3,
  20.          <-1.4, 2.4, 0>, <-1.4, 2.4, 0.784>, <-0.784, 2.4, 1.4>, <0, 2.4, 1.4>,
  21.          <-1.3375, 2.53125, 0>, <-1.3375, 2.53125, 0.749>, <-0.749, 2.53125, 1.3375>, <0, 2.53125, 1.3375>,
  22.          <-1.4375, 2.53125, 0>, <-1.4375, 2.53125, 0.805>, <-0.805, 2.53125, 1.4375>, <0, 2.53125, 1.4375>,
  23.          <-1.5, 2.4, 0>, <-1.5, 2.4, 0.84>, <-0.84, 2.4, 1.5>, <0, 2.4, 1.5>
  24.       }
  25.  + object {
  26.       bezier 2, 0.01, 3, 3,
  27.          <0, 2.4, 1.4>, <0.784, 2.4, 1.4>, <1.4, 2.4, 0.784>, <1.4, 2.4, 0>,
  28.          <0, 2.53125, 1.3375>, <0.749, 2.53125, 1.3375>, <1.3375, 2.53125, 0.749>, <1.3375, 2.53125, 0>,
  29.          <0, 2.53125, 1.4375>, <0.805, 2.53125, 1.4375>, <1.4375, 2.53125, 0.805>, <1.4375, 2.53125, 0>,
  30.          <0, 2.4, 1.5>, <0.84, 2.4, 1.5>, <1.5, 2.4, 0.84>, <1.5, 2.4, 0>
  31.       }
  32. // Body
  33.  + object {
  34.       bezier 2, 0.01, 3, 3,
  35.          <1.5, 2.4, 0>, <1.5, 2.4, -0.84>, <0.84, 2.4, -1.5>, <0, 2.4, -1.5>,
  36.          <1.75, 1.875, 0>, <1.75, 1.875, -0.98>, <0.98, 1.875, -1.75>, <0, 1.875, -1.75>,
  37.          <2, 1.35, 0>, <2, 1.35, -1.12>, <1.12, 1.35, -2>, <0, 1.35, -2>,
  38.          <2, 0.9, 0>, <2, 0.9, -1.12>, <1.12, 0.9, -2>, <0, 0.9, -2>
  39.       }
  40.  + object {
  41.       bezier 2, 0.01, 3, 3,
  42.          <0, 2.4, -1.5>, <-0.84, 2.4, -1.5>, <-1.5, 2.4, -0.84>, <-1.5, 2.4, 0>,
  43.          <0, 1.875, -1.75>, <-0.98, 1.875, -1.75>, <-1.75, 1.875, -0.98>, <-1.75, 1.875, 0>,
  44.          <0, 1.35, -2>, <-1.12, 1.35, -2>, <-2, 1.35, -1.12>, <-2, 1.35, 0>,
  45.          <0, 0.9, -2>, <-1.12, 0.9, -2>, <-2, 0.9, -1.12>, <-2, 0.9, 0>
  46.       }
  47.  + object {
  48.       bezier 2, 0.01, 3, 3,
  49.          <-1.5, 2.4, 0>, <-1.5, 2.4, 0.84>, <-0.84, 2.4, 1.5>, <0, 2.4, 1.5>,
  50.          <-1.75, 1.875, 0>, <-1.75, 1.875, 0.98>, <-0.98, 1.875, 1.75>, <0, 1.875, 1.75>,
  51.          <-2, 1.35, 0>, <-2, 1.35, 1.12>, <-1.12, 1.35, 2>, <0, 1.35, 2>,
  52.          <-2, 0.9, 0>, <-2, 0.9, 1.12>, <-1.12, 0.9, 2>, <0, 0.9, 2>
  53.       }
  54.  + object {
  55.       bezier 2, 0.01, 3, 3,
  56.          <0, 2.4, 1.5>, <0.84, 2.4, 1.5>, <1.5, 2.4, 0.84>, <1.5, 2.4, 0>,
  57.          <0, 1.875, 1.75>, <0.98, 1.875, 1.75>, <1.75, 1.875, 0.98>, <1.75, 1.875, 0>,
  58.          <0, 1.35, 2>, <1.12, 1.35, 2>, <2, 1.35, 1.12>, <2, 1.35, 0>,
  59.          <0, 0.9, 2>, <1.12, 0.9, 2>, <2, 0.9, 1.12>, <2, 0.9, 0>
  60.       }
  61.  + object {
  62.       bezier 2, 0.01, 3, 3,
  63.          <2, 0.9, 0>, <2, 0.9, -1.12>, <1.12, 0.9, -2>, <0, 0.9, -2>,
  64.          <2, 0.45, 0>, <2, 0.45, -1.12>, <1.12, 0.45, -2>, <0, 0.45, -2>,
  65.          <1.5, 0.225, 0>, <1.5, 0.225, -0.84>, <0.84, 0.225, -1.5>, <0, 0.225, -1.5>,
  66.          <1.5, 0.15, 0>, <1.5, 0.15, -0.84>, <0.84, 0.15, -1.5>, <0, 0.15, -1.5>
  67.       }
  68.  + object {
  69.       bezier 2, 0.01, 3, 3,
  70.          <0, 0.9, -2>, <-1.12, 0.9, -2>, <-2, 0.9, -1.12>, <-2, 0.9, 0>,
  71.          <0, 0.45, -2>, <-1.12, 0.45, -2>, <-2, 0.45, -1.12>, <-2, 0.45, 0>,
  72.          <0, 0.225, -1.5>, <-0.84, 0.225, -1.5>, <-1.5, 0.225, -0.84>, <-1.5, 0.225, 0>,
  73.          <0, 0.15, -1.5>, <-0.84, 0.15, -1.5>, <-1.5, 0.15, -0.84>, <-1.5, 0.15, 0>
  74.       }
  75.  + object {
  76.       bezier 2, 0.01, 3, 3,
  77.          <-2, 0.9, 0>, <-2, 0.9, 1.12>, <-1.12, 0.9, 2>, <0, 0.9, 2>,
  78.          <-2, 0.45, 0>, <-2, 0.45, 1.12>, <-1.12, 0.45, 2>, <0, 0.45, 2>,
  79.          <-1.5, 0.225, 0>, <-1.5, 0.225, 0.84>, <-0.84, 0.225, 1.5>, <0, 0.225, 1.5>,
  80.          <-1.5, 0.15, 0>, <-1.5, 0.15, 0.84>, <-0.84, 0.15, 1.5>, <0, 0.15, 1.5>
  81.       }
  82.  + object {
  83.       bezier 2, 0.01, 3, 3,
  84.          <0, 0.9, 2>, <1.12, 0.9, 2>, <2, 0.9, 1.12>, <2, 0.9, 0>,
  85.          <0, 0.45, 2>, <1.12, 0.45, 2>, <2, 0.45, 1.2>, <2, 0.45, 0>,
  86.          <0, 0.225, 1.5>, <0.84, 0.225, 1.5>, <1.5, 0.225, 0.84>, <1.5, 0.225, 0>,
  87.          <0, 0.15, 1.5>, <0.84, 0.15, 1.5>, <1.5, 0.15, 0.84>, <1.5, 0.15, 0>
  88.       }
  89. // Handle
  90.  + object {
  91.       bezier 2, 0.01, 3, 3,
  92.          <-1.6, 2.025, 0>, <-1.6, 2.025, -0.3>, <-1.5, 2.25, -0.3>, <-1.5, 2.25, 0>,
  93.          <-2.3, 2.025, 0>, <-2.3, 2.025, -0.3>, <-2.5, 2.25, -0.3>, <-2.5, 2.25, 0>,
  94.          <-2.7, 2.025, 0>, <-2.7, 2.025, -0.3>, <-3, 2.25, -0.3>, <-3, 2.25, 0>,
  95.          <-2.7, 1.8, 0>, <-2.7, 1.8, -0.3>, <-3, 1.8, -0.3>, <-3, 1.8, 0>
  96.       }
  97.  + object {
  98.       bezier 2, 0.01, 3, 3,
  99.          <-1.5, 2.25, 0>, <-1.5, 2.25, 0.3>, <-1.6, 2.025, 0.3>, <-1.6, 2.025, 0>,
  100.          <-2.5, 2.25, 0>, <-2.5, 2.25, 0.3>, <-2.3, 2.025, 0.3>, <-2.3, 2.025, 0>,
  101.          <-3, 2.25, 0>, <-3, 2.25, 0.3>, <-2.7, 2.025, 0.3>, <-2.7, 2.025, 0>,
  102.          <-3, 1.8, 0>, <-3, 1.8, 0.3>, <-2.7, 1.8, 0.3>, <-2.7, 1.8, 0>
  103.       }
  104.  + object {
  105.       bezier 2, 0.01, 3, 3,
  106.          <-2.7, 1.8, 0>, <-2.7, 1.8, -0.3>, <-3, 1.8, -0.3>, <-3, 1.8, 0>,
  107.          <-2.7, 1.575, 0>, <-2.7, 1.575, -0.3>, <-3, 1.35, -0.3>, <-3, 1.35, 0>,
  108.          <-2.5, 1.125, 0>, <-2.5, 1.125, -0.3>, <-2.65, 0.9375, -0.3>, <-2.65, 0.9375, 0>,
  109.          <-2, 0.9, 0>, <-2, 0.9, -0.3>, <-1.9, 0.6, -0.3>, <-1.9, 0.6, 0>
  110.       }
  111.  + object {
  112.       bezier 2, 0.01, 3, 3,
  113.          <-3, 1.8, 0>, <-3, 1.8, 0.3>, <-2.7, 1.8, 0.3>, <-2.7, 1.8, 0>,
  114.          <-3, 1.35, 0>, <-3, 1.35, 0.3>, <-2.7, 1.575, 0.3>, <-2.7, 1.575, 0>,
  115.          <-2.65, 0.9375, 0>, <-2.65, 0.9375, 0.3>, <-2.5, 1.125, 0.3>, <-2.5, 1.125, 0>,
  116.          <-1.9, 0.6, 0>, <-1.9, 0.6, 0.3>, <-2, 0.9, 0.3>, <-2, 0.9, 0>
  117.       }
  118. // Spout
  119.  + object {
  120.       bezier 2, 0.01, 3, 3,
  121.          <1.7, 1.425, 0>, <1.7, 1.425, -0.66>, <1.7, 0.6, -0.66>, <1.7, 0.6, 0>,
  122.          <2.6, 1.425, 0>, <2.6, 1.425, -0.66>, <3.1, 0.825, -0.66>, <3.1, 0.825, 0>,
  123.          <2.3, 2.1, 0>, <2.3, 2.1, -0.25>, <2.4, 2.025, -0.25>, <2.4, 2.025, 0>,
  124.          <2.7, 2.4, 0>, <2.7, 2.4, -0.25>, <3.3, 2.4, -0.25>, <3.3, 2.4, 0>
  125.       }
  126.  + object {
  127.       bezier 2, 0.01, 3, 3,
  128.          <1.7, 0.6, 0>, <1.7, 0.6, 0.66>, <1.7, 1.425, 0.66>, <1.7, 1.425, 0>,
  129.          <3.1, 0.825, 0>, <3.1, 0.825, 0.66>, <2.6, 1.425, 0.66>, <2.6, 1.425, 0>,
  130.          <2.4, 2.025, 0>, <2.4, 2.025, 0.25>, <2.3, 2.1, 0.25>, <2.3, 2.1, 0>,
  131.          <3.3, 2.4, 0>, <3.3, 2.4, 0.25>, <2.7, 2.4, 0.25>, <2.7, 2.4, 0>
  132.       }
  133.  + object {
  134.       bezier 2, 0.01, 3, 3,
  135.          <2.7, 2.4, 0>, <2.7, 2.4, -0.25>, <3.3, 2.4, -0.25>, <3.3, 2.4, 0>,
  136.          <2.8, 2.475, 0>, <2.8, 2.475, -0.25>, <3.525, 2.49375, -0.25>, <3.525, 2.49375, 0>,
  137.          <2.9, 2.475, 0>, <2.9, 2.475, -0.15>, <3.45, 2.5125, -0.15>, <3.45, 2.5125, 0>,
  138.          <2.8, 2.4, 0>, <2.8, 2.4, -0.15>, <3.2, 2.4, 0>, <3.2, 2.4, 0>
  139.       }
  140.  + object {
  141.       bezier 2, 0.01, 3, 3,
  142.          <3.3, 2.4, 0>, <3.3, 2.4, 0.25>, <2.7, 2.4, 0.25>, <2.7, 2.4, 0>,
  143.          <3.525, 2.49375, 0>, <3.525, 2.49375, 0.25>, <2.8, 2.475, 0.25>, <2.8, 2.475, 0>,
  144.          <3.45, 2.5125, 0>, <3.45, 2.5125, 0.15>, <2.9, 2.475, 0.15>, <2.9, 2.475, 0>,
  145.          <3.2, 2.4, 0>, <3.2, 2.4, 0.15>, <2.8, 2.4, 0.15>, <2.8, 2.4, 0>
  146.       }
  147. // Lid
  148.  + object {
  149.       bezier 2, 0.01, 3, 3,
  150.          <0, 3.15, 0>, <0, 3.15, 0>, <0, 3.15, 0>, <0, 3.15, 0>,
  151.          <0.8, 3.15, 0>, <0.8, 3.15, -0.45>, <0.45, 3.15, -0.8>, <0, 3.15, -0.8>,
  152.          <0, 2.85, 0>, <0, 2.85, 0>, <0, 2.85, 0>, <0, 2.85, 0>,
  153.          <0.2, 2.7, 0>, <0.2, 2.7, -0.112>, <0.112, 2.7, -0.2>, <0, 2.7, -0.2>
  154.       }
  155.  + object {
  156.       bezier 2, 0.01, 3, 3,
  157.          <0, 3.15, 0>, <0, 3.15, 0>, <0, 3.15, 0>, <0, 3.15, 0>,
  158.          <0, 3.15, -0.8>, <-0.45, 3.15, -0.8>, <-0.8, 3.15, -0.45>, <-0.8, 3.15, 0>,
  159.          <0, 2.85, 0>, <0, 2.85, 0>, <0, 2.85, 0>, <0, 2.85, 0>,
  160.          <0, 2.7, -0.2>, <-0.112, 2.7, -0.2>, <-0.2, 2.7, -0.112>, <-0.2, 2.7, 0>
  161.       }
  162.  + object {
  163.       bezier 2, 0.01, 3, 3,
  164.          <0, 3.15, 0>, <0, 3.15, 0>, <0, 3.15, 0>, <0, 3.15, 0>,
  165.          <-0.8, 3.15, 0>, <-0.8, 3.15, 0.45>, <-0.45, 3.15, 0.8>, <0, 3.15, 0.8>,
  166.          <0, 2.85, 0>, <0, 2.85, 0>, <0, 2.85, 0>, <0, 2.85, 0>,
  167.          <-0.2, 2.7, 0>, <-0.2, 2.7, 0.112>, <-0.112, 2.7, 0.2>, <0, 2.7, 0.2>
  168.       }
  169.  + object {
  170.       bezier 2, 0.01, 3, 3,
  171.          <0, 3.15, 0>, <0, 3.15, 0>, <0, 3.15, 0>, <0, 3.15, 0>,
  172.          <0, 3.15, 0.8>, <0.45, 3.15, 0.8>, <0.8, 3.15, 0.45>, <0.8, 3.15, 0>,
  173.          <0, 2.85, 0>, <0, 2.85, 0>, <0, 2.85, 0>, <0, 2.85, 0>,
  174.          <0, 2.7, 0.2>, <0.112, 2.7, 0.2>, <0.2, 2.7, 0.112>, <0.2, 2.7, 0>
  175.       }
  176.  + object {
  177.       bezier 2, 0.01, 3, 3,
  178.          <0.2, 2.7, 0>, <0.2, 2.7, -0.112>, <0.112, 2.7, -0.2>, <0, 2.7, -0.2>,
  179.          <0.4, 2.55, 0>, <0.4, 2.55, -0.224>, <0.224, 2.55, -0.4>, <0, 2.55, -0.4>,
  180.          <1.3, 2.55, 0>, <1.3, 2.55, -0.728>, <0.728, 2.55, -1.3>, <0, 2.55, -1.3>,
  181.          <1.3, 2.4, 0>, <1.3, 2.4, -0.728>, <0.728, 2.4, -1.3>, <0, 2.4, -1.3>
  182.       }
  183.  + object {
  184.       bezier 2, 0.01, 3, 3,
  185.          <0, 2.7, -0.2>, <-0.112, 2.7, -0.2>, <-0.2, 2.7, -0.112>, <-0.2, 2.7, 0>,
  186.          <0, 2.55, -0.4>, <-0.224, 2.55, -0.4>, <-0.4, 2.55, -0.224>, <-0.4, 2.55, 0>,
  187.          <0, 2.55, -1.3>, <-0.728, 2.55, -1.3>, <-1.3, 2.55, -0.728>, <-1.3, 2.55, 0>,
  188.          <0, 2.4, -1.3>, <-0.728, 2.4, -1.3>, <-1.3, 2.4, -0.728>, <-1.3, 2.4, 0>
  189.       }
  190.  + object {
  191.       bezier 2, 0.01, 3, 3,
  192.          <-0.2, 2.7, 0>, <-0.2, 2.7, 0.112>, <-0.112, 2.7, 0.2>, <0, 2.7, 0.2>,
  193.          <-0.4, 2.55, 0>, <-0.4, 2.55, 0.224>, <-0.224, 2.55, 0.4>, <0, 2.55, 0.4>,
  194.          <-1.3, 2.55, 0>, <-1.3, 2.55, 0.728>, <-0.728, 2.55, 1.3>, <0, 2.55, 1.3>,
  195.          <-1.3, 2.4, 0>, <-1.3, 2.4, 0.728>, <-0.728, 2.4, 1.3>, <0, 2.4, 1.3>
  196.       }
  197.  + object {
  198.       bezier 2, 0.01, 3, 3,
  199.          <0, 2.7, 0.2>, <0.112, 2.7, 0.2>, <0.2, 2.7, 0.112>, <0.2, 2.7, 0>,
  200.          <0, 2.55, 0.4>, <0.224, 2.55, 0.4>, <0.4, 2.55, 0.224>, <0.4, 2.55, 0>,
  201.          <0, 2.55, 1.3>, <0.728, 2.55, 1.3>, <1.3, 2.55, 0.728>, <1.3, 2.55, 0>,
  202.          <0, 2.4, 1.3>, <0.728, 2.4, 1.3>, <1.3, 2.4, 0.728>, <1.3, 2.4, 0>
  203.       }
  204. // Bottom
  205.  + object {
  206.       bezier 2, 0.01, 3, 3,
  207.          <0, 0, 0>, <0, 0, 0>, <0, 0, 0>, <0, 0, 0>,
  208.          <1.425, 0, 0>, <1.425, 0, 0.798>, <0.798, 0, 1.425>, <0, 0, 1.425>,
  209.          <1.5, 0.075, 0>, <1.5, 0.075, 0.84>, <0.84, 0.075, 1.5>, <0, 0.075, 1.5>,
  210.          <1.5, 0.15, 0>, <1.5, 0.15, 0.84>, <0.84, 0.15, 1.5>, <0, 0.15, 1.5>
  211.       }
  212.  + object {
  213.       bezier 2, 0.01, 3, 3,
  214.          <0, 0, 0>, <0, 0, 0>, <0, 0, 0>, <0, 0, 0>,
  215.          <0, 0, 1.425>, <-0.798, 0, 1.425>, <-1.425, 0, 0.798>, <-1.425, 0, 0>,
  216.          <0, 0.075, 1.5>, <-0.84, 0.075, 1.5>, <-1.5, 0.075, 0.84>, <-1.5, 0.075, 0>,
  217.          <0, 0.15, 1.5>, <-0.84, 0.15, 1.5>, <-1.5, 0.15, 0.84>, <-1.5, 0.15, 0>
  218.       }
  219.  + object {
  220.       bezier 2, 0.01, 3, 3,
  221.          <0, 0, 0>, <0, 0, 0>, <0, 0, 0>, <0, 0, 0>,
  222.          <-1.425, 0, 0>, <-1.425, 0, -0.798>, <-0.798, 0, -1.425>, <0, 0, -1.425>,
  223.          <-1.5, 0.075, 0>, <-1.5, 0.075, -0.84>, <-0.84, 0.075, -1.5>, <0, 0.075, -1.5>,
  224.          <-1.5, 0.15, 0>, <-1.5, 0.15, -0.84>, <-0.84, 0.15, -1.5>, <0, 0.15, -1.5>
  225.       }
  226.  + object {
  227.       bezier 2, 0.01, 3, 3,
  228.          <0, 0, 0>, <0, 0, 0>, <0, 0, 0>, <0, 0, 0>,
  229.          <0, 0, -1.425>, <0.798, 0, -1.425>, <1.425, 0, -0.798>, <1.425, 0, 0>,
  230.          <0, 0.075, -1.5>, <0.84, 0.075, -1.5>, <1.5, 0.075, -0.84>, <1.5, 0.075, 0>,
  231.          <0, 0.15, -1.5>, <0.84, 0.15, -1.5>, <1.5, 0.15, -0.84>, <1.5, 0.15, 0>
  232.       }
  233.    }
  234.