home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 564a.lha / igensurf_v1.0 / examples / teapot.cal < prev    next >
Text File  |  1991-09-27  |  20KB  |  688 lines
  1. {
  2.     teapot.cal: Data functions to be used together with the 
  3.             bpatch.cal routines.
  4.  
  5.     These functions define the famous UTAH teapot.
  6.     Four objects will be generated: teapot, handle, spout and lid.
  7.  
  8.     igensurf -v bpatch.cal teapot.cal | writetddd >teapot.obj
  9. }
  10.  
  11. step_s : 7;
  12. step_t : 7;
  13.  
  14. #scale 100
  15. #phong on
  16.  
  17. Px(i,j) = select( i*4+j+1,
  18.      1.400000, 1.400000, 0.784000, 0.000000,
  19.      1.337500, 1.337500, 0.749000, 0.000000,
  20.      1.437500, 1.437500, 0.805000, 0.000000,
  21.      1.500000, 1.500000, 0.840000, 0.000000
  22. );
  23. Py(i,j) = select( i*4+j+1,
  24.      0.000000, -0.784000, -1.400000, -1.400000,
  25.      0.000000, -0.749000, -1.337500, -1.337500,
  26.      0.000000, -0.805000, -1.437500, -1.437500,
  27.      0.000000, -0.840000, -1.500000, -1.500000
  28. );
  29. Pz(i,j) = select( i*4+j+1,
  30.      2.400000, 2.400000, 2.400000, 2.400000,
  31.      2.531250, 2.531250, 2.531250, 2.531250,
  32.      2.531250, 2.531250, 2.531250, 2.531250,
  33.      2.400000, 2.400000, 2.400000, 2.400000
  34. );
  35.  
  36. #ADD
  37.  
  38. Px(i,j) = select( i*4+j+1,
  39.      0.000000, -0.784000, -1.400000, -1.400000,
  40.      0.000000, -0.749000, -1.337500, -1.337500,
  41.      0.000000, -0.805000, -1.437500, -1.437500,
  42.      0.000000, -0.840000, -1.500000, -1.500000
  43. );
  44. Py(i,j) = select( i*4+j+1,
  45.      -1.400000, -1.400000, -0.784000, 0.000000,
  46.      -1.337500, -1.337500, -0.749000, 0.000000,
  47.      -1.437500, -1.437500, -0.805000, 0.000000,
  48.      -1.500000, -1.500000, -0.840000, 0.000000
  49. );
  50. Pz(i,j) = select( i*4+j+1,
  51.      2.400000, 2.400000, 2.400000, 2.400000,
  52.      2.531250, 2.531250, 2.531250, 2.531250,
  53.      2.531250, 2.531250, 2.531250, 2.531250,
  54.      2.400000, 2.400000, 2.400000, 2.400000
  55. );
  56.  
  57. #ADD
  58.  
  59. Px(i,j) = select( i*4+j+1,
  60.      -1.400000, -1.400000, -0.784000, 0.000000,
  61.      -1.337500, -1.337500, -0.749000, 0.000000,
  62.      -1.437500, -1.437500, -0.805000, 0.000000,
  63.      -1.500000, -1.500000, -0.840000, 0.000000
  64. );
  65. Py(i,j) = select( i*4+j+1,
  66.      0.000000, 0.784000, 1.400000, 1.400000,
  67.      0.000000, 0.749000, 1.337500, 1.337500,
  68.      0.000000, 0.805000, 1.437500, 1.437500,
  69.      0.000000, 0.840000, 1.500000, 1.500000
  70. );
  71. Pz(i,j) = select( i*4+j+1,
  72.      2.400000, 2.400000, 2.400000, 2.400000,
  73.      2.531250, 2.531250, 2.531250, 2.531250,
  74.      2.531250, 2.531250, 2.531250, 2.531250,
  75.      2.400000, 2.400000, 2.400000, 2.400000
  76. );
  77.  
  78. #ADD
  79.  
  80. Px(i,j) = select( i*4+j+1,
  81.      0.000000, 0.784000, 1.400000, 1.400000,
  82.      0.000000, 0.749000, 1.337500, 1.337500,
  83.      0.000000, 0.805000, 1.437500, 1.437500,
  84.      0.000000, 0.840000, 1.500000, 1.500000
  85. );
  86. Py(i,j) = select( i*4+j+1,
  87.      1.400000, 1.400000, 0.784000, 0.000000,
  88.      1.337500, 1.337500, 0.749000, 0.000000,
  89.      1.437500, 1.437500, 0.805000, 0.000000,
  90.      1.500000, 1.500000, 0.840000, 0.000000
  91. );
  92. Pz(i,j) = select( i*4+j+1,
  93.      2.400000, 2.400000, 2.400000, 2.400000,
  94.      2.531250, 2.531250, 2.531250, 2.531250,
  95.      2.531250, 2.531250, 2.531250, 2.531250,
  96.      2.400000, 2.400000, 2.400000, 2.400000
  97. );
  98.  
  99. #ADD
  100.  
  101. Px(i,j) = select( i*4+j+1,
  102.      1.500000, 1.500000, 0.840000, 0.000000,
  103.      1.750000, 1.750000, 0.980000, 0.000000,
  104.      2.000000, 2.000000, 1.120000, 0.000000,
  105.      2.000000, 2.000000, 1.120000, 0.000000
  106. );
  107. Py(i,j) = select( i*4+j+1,
  108.      0.000000, -0.840000, -1.500000, -1.500000,
  109.      0.000000, -0.980000, -1.750000, -1.750000,
  110.      0.000000, -1.120000, -2.000000, -2.000000,
  111.      0.000000, -1.120000, -2.000000, -2.000000
  112. );
  113. Pz(i,j) = select( i*4+j+1,
  114.      2.400000, 2.400000, 2.400000, 2.400000,
  115.      1.875000, 1.875000, 1.875000, 1.875000,
  116.      1.350000, 1.350000, 1.350000, 1.350000,
  117.      0.900000, 0.900000, 0.900000, 0.900000
  118. );
  119.  
  120. #ADD
  121.  
  122. Px(i,j) = select( i*4+j+1,
  123.      0.000000, -0.840000, -1.500000, -1.500000,
  124.      0.000000, -0.980000, -1.750000, -1.750000,
  125.      0.000000, -1.120000, -2.000000, -2.000000,
  126.      0.000000, -1.120000, -2.000000, -2.000000
  127. );
  128. Py(i,j) = select( i*4+j+1,
  129.      -1.500000, -1.500000, -0.840000, 0.000000,
  130.      -1.750000, -1.750000, -0.980000, 0.000000,
  131.      -2.000000, -2.000000, -1.120000, 0.000000,
  132.      -2.000000, -2.000000, -1.120000, 0.000000
  133. );
  134. Pz(i,j) = select( i*4+j+1,
  135.      2.400000, 2.400000, 2.400000, 2.400000,
  136.      1.875000, 1.875000, 1.875000, 1.875000,
  137.      1.350000, 1.350000, 1.350000, 1.350000,
  138.      0.900000, 0.900000, 0.900000, 0.900000
  139. );
  140.  
  141. #ADD
  142.  
  143. Px(i,j) = select( i*4+j+1,
  144.      -1.500000, -1.500000, -0.840000, 0.000000,
  145.      -1.750000, -1.750000, -0.980000, 0.000000,
  146.      -2.000000, -2.000000, -1.120000, 0.000000,
  147.      -2.000000, -2.000000, -1.120000, 0.000000
  148. );
  149. Py(i,j) = select( i*4+j+1,
  150.      0.000000, 0.840000, 1.500000, 1.500000,
  151.      0.000000, 0.980000, 1.750000, 1.750000,
  152.      0.000000, 1.120000, 2.000000, 2.000000,
  153.      0.000000, 1.120000, 2.000000, 2.000000
  154. );
  155. Pz(i,j) = select( i*4+j+1,
  156.      2.400000, 2.400000, 2.400000, 2.400000,
  157.      1.875000, 1.875000, 1.875000, 1.875000,
  158.      1.350000, 1.350000, 1.350000, 1.350000,
  159.      0.900000, 0.900000, 0.900000, 0.900000
  160. );
  161.  
  162. #ADD
  163.  
  164. Px(i,j) = select( i*4+j+1,
  165.      0.000000, 0.840000, 1.500000, 1.500000,
  166.      0.000000, 0.980000, 1.750000, 1.750000,
  167.      0.000000, 1.120000, 2.000000, 2.000000,
  168.      0.000000, 1.120000, 2.000000, 2.000000
  169. );
  170. Py(i,j) = select( i*4+j+1,
  171.      1.500000, 1.500000, 0.840000, 0.000000,
  172.      1.750000, 1.750000, 0.980000, 0.000000,
  173.      2.000000, 2.000000, 1.120000, 0.000000,
  174.      2.000000, 2.000000, 1.120000, 0.000000
  175. );
  176. Pz(i,j) = select( i*4+j+1,
  177.      2.400000, 2.400000, 2.400000, 2.400000,
  178.      1.875000, 1.875000, 1.875000, 1.875000,
  179.      1.350000, 1.350000, 1.350000, 1.350000,
  180.      0.900000, 0.900000, 0.900000, 0.900000
  181. );
  182.  
  183. #ADD
  184.  
  185. Px(i,j) = select( i*4+j+1,
  186.      2.000000, 2.000000, 1.120000, 0.000000,
  187.      2.000000, 2.000000, 1.120000, 0.000000,
  188.      1.500000, 1.500000, 0.840000, 0.000000,
  189.      1.500000, 1.500000, 0.840000, 0.000000
  190. );
  191. Py(i,j) = select( i*4+j+1,
  192.      0.000000, -1.120000, -2.000000, -2.000000,
  193.      0.000000, -1.120000, -2.000000, -2.000000,
  194.      0.000000, -0.840000, -1.500000, -1.500000,
  195.      0.000000, -0.840000, -1.500000, -1.500000
  196. );
  197. Pz(i,j) = select( i*4+j+1,
  198.      0.900000, 0.900000, 0.900000, 0.900000,
  199.      0.450000, 0.450000, 0.450000, 0.450000,
  200.      0.225000, 0.225000, 0.225000, 0.225000,
  201.      0.150000, 0.150000, 0.150000, 0.150000
  202. );
  203.  
  204. #ADD
  205.  
  206. Px(i,j) = select( i*4+j+1,
  207.      0.000000, -1.120000, -2.000000, -2.000000,
  208.      0.000000, -1.120000, -2.000000, -2.000000,
  209.      0.000000, -0.840000, -1.500000, -1.500000,
  210.      0.000000, -0.840000, -1.500000, -1.500000
  211. );
  212. Py(i,j) = select( i*4+j+1,
  213.      -2.000000, -2.000000, -1.120000, 0.000000,
  214.      -2.000000, -2.000000, -1.120000, 0.000000,
  215.      -1.500000, -1.500000, -0.840000, 0.000000,
  216.      -1.500000, -1.500000, -0.840000, 0.000000
  217. );
  218. Pz(i,j) = select( i*4+j+1,
  219.      0.900000, 0.900000, 0.900000, 0.900000,
  220.      0.450000, 0.450000, 0.450000, 0.450000,
  221.      0.225000, 0.225000, 0.225000, 0.225000,
  222.      0.150000, 0.150000, 0.150000, 0.150000
  223. );
  224.  
  225. #ADD
  226.  
  227. Px(i,j) = select( i*4+j+1,
  228.      -2.000000, -2.000000, -1.120000, 0.000000,
  229.      -2.000000, -2.000000, -1.120000, 0.000000,
  230.      -1.500000, -1.500000, -0.840000, 0.000000,
  231.      -1.500000, -1.500000, -0.840000, 0.000000
  232. );
  233. Py(i,j) = select( i*4+j+1,
  234.      0.000000, 1.120000, 2.000000, 2.000000,
  235.      0.000000, 1.120000, 2.000000, 2.000000,
  236.      0.000000, 0.840000, 1.500000, 1.500000,
  237.      0.000000, 0.840000, 1.500000, 1.500000
  238. );
  239. Pz(i,j) = select( i*4+j+1,
  240.      0.900000, 0.900000, 0.900000, 0.900000,
  241.      0.450000, 0.450000, 0.450000, 0.450000,
  242.      0.225000, 0.225000, 0.225000, 0.225000,
  243.      0.150000, 0.150000, 0.150000, 0.150000
  244. );
  245.  
  246. #ADD
  247.  
  248. Px(i,j) = select( i*4+j+1,
  249.      0.000000, 1.120000, 2.000000, 2.000000,
  250.      0.000000, 1.120000, 2.000000, 2.000000,
  251.      0.000000, 0.840000, 1.500000, 1.500000,
  252.      0.000000, 0.840000, 1.500000, 1.500000
  253. );
  254. Py(i,j) = select( i*4+j+1,
  255.      2.000000, 2.000000, 1.120000, 0.000000,
  256.      2.000000, 2.000000, 1.200000, 0.000000,
  257.      1.500000, 1.500000, 0.840000, 0.000000,
  258.      1.500000, 1.500000, 0.840000, 0.000000
  259. );
  260. Pz(i,j) = select( i*4+j+1,
  261.      0.900000, 0.900000, 0.900000, 0.900000,
  262.      0.450000, 0.450000, 0.450000, 0.450000,
  263.      0.225000, 0.225000, 0.225000, 0.225000,
  264.      0.150000, 0.150000, 0.150000, 0.150000
  265. );
  266.  
  267. #ADD
  268.  
  269. Px(i,j) = select( i*4+j+1,
  270.      0.000000, 0.000000, 0.000000, 0.000000,
  271.      1.425000, 1.425000, 0.798000, 0.000000,
  272.      1.500000, 1.500000, 0.840000, 0.000000,
  273.      1.500000, 1.500000, 0.840000, 0.000000
  274. );
  275. Py(i,j) = select( i*4+j+1,
  276.      0.000000, 0.000000, 0.000000, 0.000000,
  277.      0.000000, 0.798000, 1.425000, 1.425000,
  278.      0.000000, 0.840000, 1.500000, 1.500000,
  279.      0.000000, 0.840000, 1.500000, 1.500000
  280. );
  281. Pz(i,j) = select( i*4+j+1,
  282.      0.000000, 0.000000, 0.000000, 0.000000,
  283.      0.000000, 0.000000, 0.000000, 0.000000,
  284.      0.075000, 0.075000, 0.075000, 0.075000,
  285.      0.150000, 0.150000, 0.150000, 0.150000
  286. );
  287.  
  288. #ADD
  289.  
  290. Px(i,j) = select( i*4+j+1,
  291.      0.000000, 0.000000, 0.000000, 0.000000,
  292.      0.000000, -0.798000, -1.425000, -1.425000,
  293.      0.000000, -0.840000, -1.500000, -1.500000,
  294.      0.000000, -0.840000, -1.500000, -1.500000
  295. );
  296. Py(i,j) = select( i*4+j+1,
  297.      0.000000, 0.000000, 0.000000, 0.000000,
  298.      1.425000, 1.425000, 0.798000, 0.000000,
  299.      1.500000, 1.500000, 0.840000, 0.000000,
  300.      1.500000, 1.500000, 0.840000, 0.000000
  301. );
  302. Pz(i,j) = select( i*4+j+1,
  303.      0.000000, 0.000000, 0.000000, 0.000000,
  304.      0.000000, 0.000000, 0.000000, 0.000000,
  305.      0.075000, 0.075000, 0.075000, 0.075000,
  306.      0.150000, 0.150000, 0.150000, 0.150000
  307. );
  308.  
  309. #ADD
  310.  
  311. Px(i,j) = select( i*4+j+1,
  312.      0.000000, 0.000000, 0.000000, 0.000000,
  313.      -1.425000, -1.425000, -0.798000, 0.000000,
  314.      -1.500000, -1.500000, -0.840000, 0.000000,
  315.      -1.500000, -1.500000, -0.840000, 0.000000
  316. );
  317. Py(i,j) = select( i*4+j+1,
  318.      0.000000, 0.000000, 0.000000, 0.000000,
  319.      0.000000, -0.798000, -1.425000, -1.425000,
  320.      0.000000, -0.840000, -1.500000, -1.500000,
  321.      0.000000, -0.840000, -1.500000, -1.500000
  322. );
  323. Pz(i,j) = select( i*4+j+1,
  324.      0.000000, 0.000000, 0.000000, 0.000000,
  325.      0.000000, 0.000000, 0.000000, 0.000000,
  326.      0.075000, 0.075000, 0.075000, 0.075000,
  327.      0.150000, 0.150000, 0.150000, 0.150000
  328. );
  329.  
  330. #ADD
  331.  
  332. Px(i,j) = select( i*4+j+1,
  333.      0.000000, 0.000000, 0.000000, 0.000000,
  334.      0.000000, 0.798000, 1.425000, 1.425000,
  335.      0.000000, 0.840000, 1.500000, 1.500000,
  336.      0.000000, 0.840000, 1.500000, 1.500000
  337. );
  338. Py(i,j) = select( i*4+j+1,
  339.      0.000000, 0.000000, 0.000000, 0.000000,
  340.      -1.425000, -1.425000, -0.798000, 0.000000,
  341.      -1.500000, -1.500000, -0.840000, 0.000000,
  342.      -1.500000, -1.500000, -0.840000, 0.000000
  343. );
  344. Pz(i,j) = select( i*4+j+1,
  345.      0.000000, 0.000000, 0.000000, 0.000000,
  346.      0.000000, 0.000000, 0.000000, 0.000000,
  347.      0.075000, 0.075000, 0.075000, 0.075000,
  348.      0.150000, 0.150000, 0.150000, 0.150000
  349. );
  350.  
  351. #GENERATE Teapot
  352.  
  353. Px(i,j) = select( i*4+j+1,
  354.      -1.600000, -1.600000, -1.500000, -1.500000,
  355.      -2.300000, -2.300000, -2.500000, -2.500000,
  356.      -2.700000, -2.700000, -3.000000, -3.000000,
  357.      -2.700000, -2.700000, -3.000000, -3.000000
  358. );
  359. Py(i,j) = select( i*4+j+1,
  360.      0.000000, -0.300000, -0.300000, 0.000000,
  361.      0.000000, -0.300000, -0.300000, 0.000000,
  362.      0.000000, -0.300000, -0.300000, 0.000000,
  363.      0.000000, -0.300000, -0.300000, 0.000000
  364. );
  365. Pz(i,j) = select( i*4+j+1,
  366.      2.025000, 2.025000, 2.250000, 2.250000,
  367.      2.025000, 2.025000, 2.250000, 2.250000,
  368.      2.025000, 2.025000, 2.250000, 2.250000,
  369.      1.800000, 1.800000, 1.800000, 1.800000
  370. );
  371.  
  372. #ADD
  373.  
  374. Px(i,j) = select( i*4+j+1,
  375.      -1.500000, -1.500000, -1.600000, -1.600000,
  376.      -2.500000, -2.500000, -2.300000, -2.300000,
  377.      -3.000000, -3.000000, -2.700000, -2.700000,
  378.      -3.000000, -3.000000, -2.700000, -2.700000
  379. );
  380. Py(i,j) = select( i*4+j+1,
  381.      0.000000, 0.300000, 0.300000, 0.000000,
  382.      0.000000, 0.300000, 0.300000, 0.000000,
  383.      0.000000, 0.300000, 0.300000, 0.000000,
  384.      0.000000, 0.300000, 0.300000, 0.000000
  385. );
  386. Pz(i,j) = select( i*4+j+1,
  387.      2.250000, 2.250000, 2.025000, 2.025000,
  388.      2.250000, 2.250000, 2.025000, 2.025000,
  389.      2.250000, 2.250000, 2.025000, 2.025000,
  390.      1.800000, 1.800000, 1.800000, 1.800000
  391. );
  392.  
  393. #ADD
  394.  
  395. Px(i,j) = select( i*4+j+1,
  396.      -2.700000, -2.700000, -3.000000, -3.000000,
  397.      -2.700000, -2.700000, -3.000000, -3.000000,
  398.      -2.500000, -2.500000, -2.650000, -2.650000,
  399.      -2.000000, -2.000000, -1.900000, -1.900000
  400. );
  401. Py(i,j) = select( i*4+j+1,
  402.      0.000000, -0.300000, -0.300000, 0.000000,
  403.      0.000000, -0.300000, -0.300000, 0.000000,
  404.      0.000000, -0.300000, -0.300000, 0.000000,
  405.      0.000000, -0.300000, -0.300000, 0.000000
  406. );
  407. Pz(i,j) = select( i*4+j+1,
  408.      1.800000, 1.800000, 1.800000, 1.800000,
  409.      1.575000, 1.575000, 1.350000, 1.350000,
  410.      1.125000, 1.125000, 0.937500, 0.937500,
  411.      0.900000, 0.900000, 0.600000, 0.600000
  412. );
  413.  
  414. #ADD
  415.  
  416. Px(i,j) = select( i*4+j+1,
  417.      -3.000000, -3.000000, -2.700000, -2.700000,
  418.      -3.000000, -3.000000, -2.700000, -2.700000,
  419.      -2.650000, -2.650000, -2.500000, -2.500000,
  420.      -1.900000, -1.900000, -2.000000, -2.000000
  421. );
  422. Py(i,j) = select( i*4+j+1,
  423.      0.000000, 0.300000, 0.300000, 0.000000,
  424.      0.000000, 0.300000, 0.300000, 0.000000,
  425.      0.000000, 0.300000, 0.300000, 0.000000,
  426.      0.000000, 0.300000, 0.300000, 0.000000
  427. );
  428. Pz(i,j) = select( i*4+j+1,
  429.      1.800000, 1.800000, 1.800000, 1.800000,
  430.      1.350000, 1.350000, 1.575000, 1.575000,
  431.      0.937500, 0.937500, 1.125000, 1.125000,
  432.      0.600000, 0.600000, 0.900000, 0.900000
  433. );
  434.  
  435. #GENERATE Handle
  436.  
  437. Px(i,j) = select( i*4+j+1,
  438.      1.700000, 1.700000, 1.700000, 1.700000,
  439.      2.600000, 2.600000, 3.100000, 3.100000,
  440.      2.300000, 2.300000, 2.400000, 2.400000,
  441.      2.700000, 2.700000, 3.300000, 3.300000
  442. );
  443. Py(i,j) = select( i*4+j+1,
  444.      0.000000, -0.660000, -0.660000, 0.000000,
  445.      0.000000, -0.660000, -0.660000, 0.000000,
  446.      0.000000, -0.250000, -0.250000, 0.000000,
  447.      0.000000, -0.250000, -0.250000, 0.000000
  448. );
  449. Pz(i,j) = select( i*4+j+1,
  450.      1.425000, 1.425000, 0.600000, 0.600000,
  451.      1.425000, 1.425000, 0.825000, 0.825000,
  452.      2.100000, 2.100000, 2.025000, 2.025000,
  453.      2.400000, 2.400000, 2.400000, 2.400000
  454. );
  455.  
  456. #ADD
  457.  
  458. Px(i,j) = select( i*4+j+1,
  459.      1.700000, 1.700000, 1.700000, 1.700000,
  460.      3.100000, 3.100000, 2.600000, 2.600000,
  461.      2.400000, 2.400000, 2.300000, 2.300000,
  462.      3.300000, 3.300000, 2.700000, 2.700000
  463. );
  464. Py(i,j) = select( i*4+j+1,
  465.      0.000000, 0.660000, 0.660000, 0.000000,
  466.      0.000000, 0.660000, 0.660000, 0.000000,
  467.      0.000000, 0.250000, 0.250000, 0.000000,
  468.      0.000000, 0.250000, 0.250000, 0.000000
  469. );
  470. Pz(i,j) = select( i*4+j+1,
  471.      0.600000, 0.600000, 1.425000, 1.425000,
  472.      0.825000, 0.825000, 1.425000, 1.425000,
  473.      2.025000, 2.025000, 2.100000, 2.100000,
  474.      2.400000, 2.400000, 2.400000, 2.400000
  475. );
  476.  
  477. #ADD
  478.  
  479. Px(i,j) = select( i*4+j+1,
  480.      2.700000, 2.700000, 3.300000, 3.300000,
  481.      2.800000, 2.800000, 3.525000, 3.525000,
  482.      2.900000, 2.900000, 3.450000, 3.450000,
  483.      2.800000, 2.800000, 3.200000, 3.200000
  484. );
  485. Py(i,j) = select( i*4+j+1,
  486.      0.000000, -0.250000, -0.250000, 0.000000,
  487.      0.000000, -0.250000, -0.250000, 0.000000,
  488.      0.000000, -0.150000, -0.150000, 0.000000,
  489.      0.000000, -0.150000, 0.000000, 0.000000
  490. );
  491. Pz(i,j) = select( i*4+j+1,
  492.      2.400000, 2.400000, 2.400000, 2.400000,
  493.      2.475000, 2.475000, 2.493750, 2.493750,
  494.      2.475000, 2.475000, 2.512500, 2.512500,
  495.      2.400000, 2.400000, 2.400000, 2.400000
  496. );
  497.  
  498. #ADD
  499.  
  500. Px(i,j) = select( i*4+j+1,
  501.      3.300000, 3.300000, 2.700000, 2.700000,
  502.      3.525000, 3.525000, 2.800000, 2.800000,
  503.      3.450000, 3.450000, 2.900000, 2.900000,
  504.      3.200000, 3.200000, 2.800000, 2.800000
  505. );
  506. Py(i,j) = select( i*4+j+1,
  507.      0.000000, 0.250000, 0.250000, 0.000000,
  508.      0.000000, 0.250000, 0.250000, 0.000000,
  509.      0.000000, 0.150000, 0.150000, 0.000000,
  510.      0.000000, 0.150000, 0.150000, 0.000000
  511. );
  512. Pz(i,j) = select( i*4+j+1,
  513.      2.400000, 2.400000, 2.400000, 2.400000,
  514.      2.493750, 2.493750, 2.475000, 2.475000,
  515.      2.512500, 2.512500, 2.475000, 2.475000,
  516.      2.400000, 2.400000, 2.400000, 2.400000
  517. );
  518.  
  519. #GENERATE Spout
  520.  
  521. Px(i,j) = select( i*4+j+1,
  522.      0.000000, 0.000000, 0.000000, 0.000000,
  523.      0.800000, 0.800000, 0.450000, 0.000000,
  524.      0.000000, 0.000000, 0.000000, 0.000000,
  525.      0.200000, 0.200000, 0.112000, 0.000000
  526. );
  527. Py(i,j) = select( i*4+j+1,
  528.      0.000000, 0.000000, 0.000000, 0.000000,
  529.      0.000000, -0.450000, -0.800000, -0.800000,
  530.      0.000000, 0.000000, 0.000000, 0.000000,
  531.      0.000000, -0.112000, -0.200000, -0.200000
  532. );
  533. Pz(i,j) = select( i*4+j+1,
  534.      3.150000, 3.150000, 3.150000, 3.150000,
  535.      3.150000, 3.150000, 3.150000, 3.150000,
  536.      2.850000, 2.850000, 2.850000, 2.850000,
  537.      2.700000, 2.700000, 2.700000, 2.700000
  538. );
  539.  
  540. #ADD
  541.  
  542. Px(i,j) = select( i*4+j+1,
  543.      0.000000, 0.000000, 0.000000, 0.000000,
  544.      0.000000, -0.450000, -0.800000, -0.800000,
  545.      0.000000, 0.000000, 0.000000, 0.000000,
  546.      0.000000, -0.112000, -0.200000, -0.200000
  547. );
  548. Py(i,j) = select( i*4+j+1,
  549.      0.000000, 0.000000, 0.000000, 0.000000,
  550.      -0.800000, -0.800000, -0.450000, 0.000000,
  551.      0.000000, 0.000000, 0.000000, 0.000000,
  552.      -0.200000, -0.200000, -0.112000, 0.000000
  553. );
  554. Pz(i,j) = select( i*4+j+1,
  555.      3.150000, 3.150000, 3.150000, 3.150000,
  556.      3.150000, 3.150000, 3.150000, 3.150000,
  557.      2.850000, 2.850000, 2.850000, 2.850000,
  558.      2.700000, 2.700000, 2.700000, 2.700000
  559. );
  560.  
  561. #ADD
  562.  
  563. Px(i,j) = select( i*4+j+1,
  564.      0.000000, 0.000000, 0.000000, 0.000000,
  565.      -0.800000, -0.800000, -0.450000, 0.000000,
  566.      0.000000, 0.000000, 0.000000, 0.000000,
  567.      -0.200000, -0.200000, -0.112000, 0.000000
  568. );
  569. Py(i,j) = select( i*4+j+1,
  570.      0.000000, 0.000000, 0.000000, 0.000000,
  571.      0.000000, 0.450000, 0.800000, 0.800000,
  572.      0.000000, 0.000000, 0.000000, 0.000000,
  573.      0.000000, 0.112000, 0.200000, 0.200000
  574. );
  575. Pz(i,j) = select( i*4+j+1,
  576.      3.150000, 3.150000, 3.150000, 3.150000,
  577.      3.150000, 3.150000, 3.150000, 3.150000,
  578.      2.850000, 2.850000, 2.850000, 2.850000,
  579.      2.700000, 2.700000, 2.700000, 2.700000
  580. );
  581.  
  582. #ADD
  583.  
  584. Px(i,j) = select( i*4+j+1,
  585.      0.000000, 0.000000, 0.000000, 0.000000,
  586.      0.000000, 0.450000, 0.800000, 0.800000,
  587.      0.000000, 0.000000, 0.000000, 0.000000,
  588.      0.000000, 0.112000, 0.200000, 0.200000
  589. );
  590. Py(i,j) = select( i*4+j+1,
  591.      0.000000, 0.000000, 0.000000, 0.000000,
  592.      0.800000, 0.800000, 0.450000, 0.000000,
  593.      0.000000, 0.000000, 0.000000, 0.000000,
  594.      0.200000, 0.200000, 0.112000, 0.000000
  595. );
  596. Pz(i,j) = select( i*4+j+1,
  597.      3.150000, 3.150000, 3.150000, 3.150000,
  598.      3.150000, 3.150000, 3.150000, 3.150000,
  599.      2.850000, 2.850000, 2.850000, 2.850000,
  600.      2.700000, 2.700000, 2.700000, 2.700000
  601. );
  602.  
  603. #ADD
  604.  
  605. Px(i,j) = select( i*4+j+1,
  606.      0.200000, 0.200000, 0.112000, 0.000000,
  607.      0.400000, 0.400000, 0.224000, 0.000000,
  608.      1.300000, 1.300000, 0.728000, 0.000000,
  609.      1.300000, 1.300000, 0.728000, 0.000000
  610. );
  611. Py(i,j) = select( i*4+j+1,
  612.      0.000000, -0.112000, -0.200000, -0.200000,
  613.      0.000000, -0.224000, -0.400000, -0.400000,
  614.      0.000000, -0.728000, -1.300000, -1.300000,
  615.      0.000000, -0.728000, -1.300000, -1.300000
  616. );
  617. Pz(i,j) = select( i*4+j+1,
  618.      2.700000, 2.700000, 2.700000, 2.700000,
  619.      2.550000, 2.550000, 2.550000, 2.550000,
  620.      2.550000, 2.550000, 2.550000, 2.550000,
  621.      2.400000, 2.400000, 2.400000, 2.400000
  622. );
  623.  
  624. #ADD
  625.  
  626. Px(i,j) = select( i*4+j+1,
  627.      0.000000, -0.112000, -0.200000, -0.200000,
  628.      0.000000, -0.224000, -0.400000, -0.400000,
  629.      0.000000, -0.728000, -1.300000, -1.300000,
  630.      0.000000, -0.728000, -1.300000, -1.300000
  631. );
  632. Py(i,j) = select( i*4+j+1,
  633.      -0.200000, -0.200000, -0.112000, 0.000000,
  634.      -0.400000, -0.400000, -0.224000, 0.000000,
  635.      -1.300000, -1.300000, -0.728000, 0.000000,
  636.      -1.300000, -1.300000, -0.728000, 0.000000
  637. );
  638. Pz(i,j) = select( i*4+j+1,
  639.      2.700000, 2.700000, 2.700000, 2.700000,
  640.      2.550000, 2.550000, 2.550000, 2.550000,
  641.      2.550000, 2.550000, 2.550000, 2.550000,
  642.      2.400000, 2.400000, 2.400000, 2.400000
  643. );
  644.  
  645. #ADD
  646.  
  647. Px(i,j) = select( i*4+j+1,
  648.      -0.200000, -0.200000, -0.112000, 0.000000,
  649.      -0.400000, -0.400000, -0.224000, 0.000000,
  650.      -1.300000, -1.300000, -0.728000, 0.000000,
  651.      -1.300000, -1.300000, -0.728000, 0.000000
  652. );
  653. Py(i,j) = select( i*4+j+1,
  654.      0.000000, 0.112000, 0.200000, 0.200000,
  655.      0.000000, 0.224000, 0.400000, 0.400000,
  656.      0.000000, 0.728000, 1.300000, 1.300000,
  657.      0.000000, 0.728000, 1.300000, 1.300000
  658. );
  659. Pz(i,j) = select( i*4+j+1,
  660.      2.700000, 2.700000, 2.700000, 2.700000,
  661.      2.550000, 2.550000, 2.550000, 2.550000,
  662.      2.550000, 2.550000, 2.550000, 2.550000,
  663.      2.400000, 2.400000, 2.400000, 2.400000
  664. );
  665.  
  666. #ADD
  667.  
  668. Px(i,j) = select( i*4+j+1,
  669.      0.000000, 0.112000, 0.200000, 0.200000,
  670.      0.000000, 0.224000, 0.400000, 0.400000,
  671.      0.000000, 0.728000, 1.300000, 1.300000,
  672.      0.000000, 0.728000, 1.300000, 1.300000
  673. );
  674. Py(i,j) = select( i*4+j+1,
  675.      0.200000, 0.200000, 0.112000, 0.000000,
  676.      0.400000, 0.400000, 0.224000, 0.000000,
  677.      1.300000, 1.300000, 0.728000, 0.000000,
  678.      1.300000, 1.300000, 0.728000, 0.000000
  679. );
  680. Pz(i,j) = select( i*4+j+1,
  681.      2.700000, 2.700000, 2.700000, 2.700000,
  682.      2.550000, 2.550000, 2.550000, 2.550000,
  683.      2.550000, 2.550000, 2.550000, 2.550000,
  684.      2.400000, 2.400000, 2.400000, 2.400000
  685. );
  686.  
  687. #GENERATE Lid
  688.