//The second version that incorporates the Binzegger structure, axon only

n_nakeaxon = 367


create nakeaxon[n_nakeaxon + 1]
//create ais[10],hill

//The Hill and AIS sections must be defined in P_Hill_AIS.txt.  They are shown below only for convenience.


proc geometry0() {
/*
  hill {pt3dclear()
        pt3dadd(3134.30, 1490.08, 5067.55, 2.00)
        pt3dadd(3135.71, 1484.42, 5059.43, 2.00)
  }
  ais[0] {pt3dclear()
        pt3dadd(3135.71, 1484.42, 5059.43, 2.00)
        pt3dadd(3136.42, 1481.60, 5055.36, 2.00)
  }
  ais[1] {pt3dclear()
        pt3dadd(3136.42, 1481.60, 5055.36, 2.00)
        pt3dadd(3136.63, 1480.73, 5054.12, 2.00)
        pt3dadd(3136.18, 1478.92, 5051.19, 2.00)
  }
  ais[2] {pt3dclear()
        pt3dadd(3136.18, 1478.92, 5051.19, 2.00)
        pt3dadd(3135.53, 1476.32, 5046.97, 2.00)
  }
  ais[3] {pt3dclear()
        pt3dadd(3135.53, 1476.32, 5046.97, 2.00)
        pt3dadd(3134.88, 1473.71, 5042.76, 2.00)
  }
  ais[4] {pt3dclear()
        pt3dadd(3134.88, 1473.71, 5042.76, 2.00)
        pt3dadd(3134.22, 1471.10, 5038.54, 2.00)
  }
  ais[5] {pt3dclear()
        pt3dadd(3134.22, 1471.10, 5038.54, 2.00)
        pt3dadd(3134.07, 1470.50, 5037.56, 2.00)
        pt3dadd(3133.38, 1468.91, 5034.13, 2.00)
  }
  ais[6] {pt3dclear()
        pt3dadd(3133.38, 1468.91, 5034.13, 2.00)
        pt3dadd(3132.49, 1466.84, 5029.67, 2.00)
  }
  ais[7] {pt3dclear()
        pt3dadd(3132.49, 1466.84, 5029.67, 2.00)
        pt3dadd(3131.59, 1464.77, 5025.21, 2.00)
  }
  ais[8] {pt3dclear()
        pt3dadd(3131.59, 1464.77, 5025.21, 2.00)
        pt3dadd(3130.69, 1462.70, 5020.75, 2.00)
  }
  ais[9] {pt3dclear()
        pt3dadd(3130.69, 1462.70, 5020.75, 2.00)
        pt3dadd(3130.58, 1462.44, 5020.19, 2.00)
        pt3dadd(3130.01, 1460.48, 5016.32, 2.00)
  }

*/

  nakeaxon[0] {pt3dclear()
        pt3dadd(3130.01, 1460.48, 5016.32, 2.00)
        pt3dadd(3128.03, 1453.74, 5003.07, 2.00)
        pt3dadd(3128.03, 1451.05, 4993.65, 2.00)
  }
  nakeaxon[1] {pt3dclear()
        pt3dadd(3128.03, 1451.05, 4993.65, 2.00)
        pt3dadd(3121.75, 1438.85, 4985.97, 2.00)
        pt3dadd(3120.58, 1435.00, 4984.89, 2.00)
  }
  nakeaxon[2] {pt3dclear()
        pt3dadd(3120.58, 1435.00, 4984.89, 2.00)
        pt3dadd(3105.24, 1437.80, 4987.83, 2.00)
        pt3dadd(3101.51, 1439.37, 4988.75, 2.00)
  }
  nakeaxon[3] {pt3dclear()
        pt3dadd(3101.51, 1439.37, 4988.75, 2.00)
        pt3dadd(3090.35, 1436.19, 4996.34, 2.00)
        pt3dadd(3087.10, 1435.75, 4999.22, 2.00)
        pt3dadd(3083.61, 1437.32, 5000.13, 2.00)
  }
  nakeaxon[4] {pt3dclear()
        pt3dadd(3083.61, 1437.32, 5000.13, 2.00)
  }
  nakeaxon[5] {pt3dclear()
        pt3dadd(3083.61, 1437.32, 5000.13, 2.00)
        pt3dadd(3079.19, 1432.89, 4994.07, 2.00)
        pt3dadd(3072.68, 1433.49, 4991.63, 2.00)
  }
  nakeaxon[6] {pt3dclear()
        pt3dadd(3072.68, 1433.49, 4991.63, 2.00)
        pt3dadd(3071.51, 1426.55, 4980.05, 2.00)
        pt3dadd(3074.54, 1424.48, 4974.37, 2.00)
        pt3dadd(3075.24, 1419.03, 4960.76, 2.00)
        pt3dadd(3075.00, 1416.39, 4950.09, 2.00)
        pt3dadd(3074.77, 1414.10, 4947.21, 2.00)
        pt3dadd(3075.47, 1410.84, 4932.81, 2.00)
        pt3dadd(3074.77, 1408.77, 4927.12, 2.00)
        pt3dadd(3075.70, 1406.60, 4917.77, 2.00)
        pt3dadd(3075.47, 1401.59, 4906.72, 2.00)
        pt3dadd(3072.68, 1398.43, 4890.55, 2.00)
        pt3dadd(3072.21, 1397.28, 4886.02, 2.00)
        pt3dadd(3071.05, 1399.32, 4882.80, 2.00)
        pt3dadd(3071.28, 1396.96, 4885.14, 2.00)
  }
  nakeaxon[7] {pt3dclear()
        pt3dadd(3071.28, 1396.96, 4885.14, 2.00)
        pt3dadd(3070.12, 1389.21, 4881.53, 2.00)
        pt3dadd(3063.14, 1379.51, 4876.65, 2.00)
        pt3dadd(3061.98, 1377.40, 4874.94, 2.00)
        pt3dadd(3059.65, 1373.41, 4871.44, 2.00)
        pt3dadd(3051.98, 1362.18, 4869.84, 2.00)
        pt3dadd(3049.19, 1361.86, 4868.96, 2.00)
        pt3dadd(3041.05, 1357.37, 4868.86, 2.00)
        pt3dadd(3042.44, 1353.26, 4866.40, 2.00)
        pt3dadd(3035.93, 1340.74, 4857.84, 2.00)
        pt3dadd(3029.65, 1330.98, 4848.03, 2.00)
        pt3dadd(3030.58, 1329.01, 4843.30, 2.00)
        pt3dadd(3031.05, 1322.61, 4837.96, 2.00)
        pt3dadd(3030.35, 1320.51, 4833.53, 2.00)
        pt3dadd(3024.77, 1308.76, 4818.25, 2.00)
        pt3dadd(3018.72, 1300.63, 4811.56, 2.00)
        pt3dadd(3019.19, 1300.23, 4810.47, 2.00)
        pt3dadd(3013.84, 1290.69, 4800.57, 2.00)
        pt3dadd(3010.12, 1288.35, 4795.49, 2.00)
  }
  nakeaxon[8] {pt3dclear()
        pt3dadd(3071.28, 1396.96, 4885.14, 2.00)
        pt3dadd(3071.98, 1398.44, 4880.40, 2.00)
        pt3dadd(3074.54, 1398.82, 4867.14, 2.00)
        pt3dadd(3075.70, 1399.12, 4861.84, 2.00)
        pt3dadd(3076.63, 1399.53, 4850.06, 2.00)
        pt3dadd(3076.86, 1400.60, 4840.76, 2.00)
        pt3dadd(3076.86, 1398.35, 4831.18, 2.00)
        pt3dadd(3076.63, 1396.68, 4829.31, 2.00)
        pt3dadd(3077.09, 1396.14, 4823.07, 2.00)
        pt3dadd(3077.79, 1395.67, 4819.04, 2.00)
        pt3dadd(3076.16, 1395.29, 4810.52, 2.00)
        pt3dadd(3075.47, 1394.31, 4809.88, 2.00)
        pt3dadd(3073.61, 1399.36, 4797.90, 2.00)
        pt3dadd(3073.61, 1399.47, 4791.42, 2.00)
        pt3dadd(3071.75, 1401.52, 4785.48, 2.00)
        pt3dadd(3067.33, 1403.86, 4779.68, 2.00)
        pt3dadd(3063.84, 1403.04, 4765.87, 2.00)
        pt3dadd(3061.98, 1404.57, 4762.59, 2.00)
        pt3dadd(3052.91, 1413.43, 4752.93, 2.00)
        pt3dadd(3051.28, 1413.98, 4749.02, 2.00)
        pt3dadd(3050.35, 1417.46, 4738.84, 2.00)
        pt3dadd(3052.21, 1420.85, 4731.17, 2.00)
        pt3dadd(3052.21, 1419.50, 4730.18, 2.00)
        pt3dadd(3052.21, 1421.69, 4732.11, 2.00)
  }
  nakeaxon[9] {pt3dclear()
        pt3dadd(3072.68, 1433.49, 4991.63, 2.00)
        pt3dadd(3059.65, 1427.74, 4988.77, 2.00)
        pt3dadd(3047.10, 1420.89, 4991.02, 2.00)
        pt3dadd(3046.16, 1419.62, 4990.24, 2.00)
        pt3dadd(3037.56, 1416.91, 4988.26, 2.00)
        pt3dadd(3031.05, 1412.20, 4982.80, 2.00)
        pt3dadd(3019.42, 1407.43, 4977.85, 2.00)
        pt3dadd(3017.79, 1405.90, 4978.41, 2.00)
        pt3dadd(3012.91, 1404.00, 4975.88, 2.00)
        pt3dadd(3003.61, 1398.97, 4972.27, 2.00)
        pt3dadd(2998.49, 1394.58, 4967.68, 2.00)
        pt3dadd(2996.86, 1394.22, 4968.06, 2.00)
        pt3dadd(2991.51, 1390.86, 4960.87, 2.00)
        pt3dadd(2989.42, 1387.48, 4958.38, 2.00)
        pt3dadd(2987.33, 1385.00, 4956.32, 2.00)
  }
  nakeaxon[10] {pt3dclear()
        pt3dadd(2987.33, 1385.00, 4956.32, 2.00)
        pt3dadd(2994.54, 1381.76, 4948.09, 2.00)
        pt3dadd(3003.14, 1376.77, 4940.51, 2.00)
        pt3dadd(3010.12, 1374.38, 4933.95, 2.00)
        pt3dadd(3023.61, 1370.21, 4929.28, 2.00)
        pt3dadd(3043.37, 1365.56, 4923.30, 2.00)
        pt3dadd(3054.77, 1362.85, 4921.32, 2.00)
        pt3dadd(3063.37, 1360.81, 4919.09, 2.00)
        pt3dadd(3074.30, 1357.74, 4914.76, 2.00)
        pt3dadd(3083.14, 1353.59, 4908.11, 2.00)
        pt3dadd(3089.19, 1349.02, 4902.35, 2.00)
        pt3dadd(3089.19, 1348.14, 4902.66, 2.00)
  }
  nakeaxon[11] {pt3dclear()
        pt3dadd(2987.33, 1385.00, 4956.32, 2.00)
        pt3dadd(2982.44, 1382.63, 4950.50, 2.00)
        pt3dadd(2979.42, 1380.03, 4949.47, 2.00)
        pt3dadd(2970.12, 1372.87, 4943.41, 2.00)
        pt3dadd(2967.33, 1370.71, 4939.49, 2.00)
        pt3dadd(2959.89, 1364.23, 4933.93, 2.00)
        pt3dadd(2956.63, 1363.07, 4932.12, 2.00)
        pt3dadd(2946.40, 1356.00, 4926.28, 2.00)
        pt3dadd(2945.00, 1354.37, 4923.17, 2.00)
        pt3dadd(2935.24, 1345.72, 4916.41, 2.00)
        pt3dadd(2927.09, 1340.67, 4906.62, 2.00)
        pt3dadd(2921.98, 1333.24, 4898.44, 2.00)
        pt3dadd(2906.40, 1322.95, 4890.55, 2.00)
        pt3dadd(2895.93, 1316.31, 4884.55, 2.00)
        pt3dadd(2888.96, 1310.81, 4882.35, 2.00)
        pt3dadd(2884.54, 1305.86, 4881.67, 2.00)
        pt3dadd(2877.56, 1304.33, 4882.23, 2.00)
        pt3dadd(2871.75, 1298.35, 4881.44, 2.00)
  }
  nakeaxon[12] {pt3dclear()
        pt3dadd(3083.61, 1437.32, 5000.13, 2.00)
        pt3dadd(3075.93, 1437.52, 5004.76, 2.00)
        pt3dadd(3072.44, 1434.46, 5000.43, 2.00)
        pt3dadd(3065.93, 1428.22, 4998.25, 2.00)
        pt3dadd(3058.26, 1420.67, 4996.54, 2.00)
        pt3dadd(3054.30, 1411.25, 4993.78, 2.00)
  }
}
proc geometry1() {
  nakeaxon[12] {
        pt3dadd(3054.07, 1409.55, 4993.17, 2.00)
        pt3dadd(3053.14, 1401.06, 4995.02, 2.00)
        pt3dadd(3048.26, 1398.84, 4994.34, 2.00)
        pt3dadd(3042.91, 1386.38, 4993.43, 2.00)
        pt3dadd(3042.21, 1374.95, 4987.20, 2.00)
        pt3dadd(3040.35, 1374.20, 4986.48, 2.00)
        pt3dadd(3036.63, 1362.93, 4983.41, 2.00)
        pt3dadd(3030.12, 1353.97, 4981.22, 2.00)
        pt3dadd(3028.03, 1349.22, 4979.73, 2.00)
        pt3dadd(3021.28, 1344.07, 4979.87, 2.00)
        pt3dadd(3014.30, 1336.76, 4978.82, 2.00)
        pt3dadd(3012.21, 1338.57, 4972.23, 2.00)
        pt3dadd(3003.61, 1328.18, 4971.55, 2.00)
        pt3dadd(2998.26, 1324.76, 4970.32, 2.00)
        pt3dadd(2991.51, 1317.13, 4968.40, 2.00)
        pt3dadd(2979.89, 1310.45, 4971.82, 2.00)
        pt3dadd(2978.03, 1310.02, 4971.98, 2.00)
        pt3dadd(2972.91, 1306.24, 4973.85, 2.00)
        pt3dadd(2963.84, 1302.73, 4977.10, 2.00)
        pt3dadd(2947.33, 1292.87, 4979.95, 2.00)
        pt3dadd(2938.26, 1282.98, 4981.32, 2.00)
        pt3dadd(2934.54, 1279.38, 4981.64, 2.00)
        pt3dadd(2934.54, 1279.16, 4981.72, 2.00)
        pt3dadd(2933.61, 1273.84, 4980.69, 2.00)
        pt3dadd(2932.91, 1270.86, 4979.30, 2.00)
        pt3dadd(2931.28, 1260.84, 4978.98, 2.00)
        pt3dadd(2930.12, 1250.21, 4974.94, 2.00)
        pt3dadd(2930.35, 1249.20, 4972.83, 2.00)
        pt3dadd(2928.72, 1246.75, 4972.23, 2.00)
        pt3dadd(2927.33, 1237.44, 4970.43, 2.00)
        pt3dadd(2926.40, 1236.52, 4969.28, 2.00)
        pt3dadd(2927.09, 1227.62, 4963.85, 2.00)
        pt3dadd(2927.56, 1226.35, 4960.36, 2.00)
        pt3dadd(2929.19, 1214.30, 4955.83, 2.00)
        pt3dadd(2928.26, 1209.14, 4955.24, 2.00)
        pt3dadd(2928.26, 1210.23, 4954.84, 2.00)
        pt3dadd(2926.86, 1202.98, 4953.27, 2.00)
        pt3dadd(2930.35, 1192.82, 4950.53, 2.00)
        pt3dadd(2926.40, 1182.43, 4944.42, 2.00)
        pt3dadd(2924.77, 1180.23, 4944.48, 2.00)
        pt3dadd(2925.70, 1182.27, 4943.98, 2.00)
  }
  nakeaxon[13] {pt3dclear()
        pt3dadd(3083.61, 1437.32, 5000.13, 2.00)
        pt3dadd(3072.44, 1437.56, 5006.23, 2.00)
        pt3dadd(3072.44, 1438.22, 5005.99, 2.00)
  }
  nakeaxon[14] {pt3dclear()
        pt3dadd(3072.44, 1438.22, 5005.99, 2.00)
        pt3dadd(3066.40, 1435.04, 5013.59, 2.00)
        pt3dadd(3059.65, 1436.58, 5026.64, 2.00)
        pt3dadd(3058.03, 1436.58, 5029.36, 2.00)
        pt3dadd(3048.03, 1434.77, 5038.68, 2.00)
        pt3dadd(3039.65, 1432.37, 5050.44, 2.00)
        pt3dadd(3031.05, 1432.93, 5062.86, 2.00)
        pt3dadd(3026.63, 1430.75, 5069.10, 2.00)
        pt3dadd(3021.05, 1431.45, 5075.78, 2.00)
        pt3dadd(3020.35, 1431.92, 5077.09, 2.00)
        pt3dadd(3010.82, 1428.69, 5082.47, 2.00)
        pt3dadd(3004.77, 1423.68, 5093.20, 2.00)
        pt3dadd(3000.58, 1425.77, 5099.62, 2.00)
        pt3dadd(2999.42, 1423.33, 5104.47, 2.00)
        pt3dadd(2997.56, 1421.66, 5110.77, 2.00)
        pt3dadd(2993.84, 1422.26, 5116.49, 2.00)
        pt3dadd(2992.44, 1421.82, 5119.37, 2.00)
        pt3dadd(2986.86, 1422.78, 5130.16, 2.00)
        pt3dadd(2975.93, 1420.42, 5143.39, 2.00)
        pt3dadd(2969.19, 1424.38, 5156.30, 2.00)
        pt3dadd(2965.23, 1425.81, 5160.24, 2.00)
        pt3dadd(2965.23, 1425.37, 5160.40, 2.00)
  }
  nakeaxon[15] {pt3dclear()
        pt3dadd(2965.23, 1425.37, 5160.40, 2.00)
        pt3dadd(2958.49, 1425.61, 5169.22, 2.00)
        pt3dadd(2944.77, 1424.11, 5181.40, 2.00)
        pt3dadd(2935.47, 1423.85, 5190.90, 2.00)
        pt3dadd(2930.58, 1424.63, 5195.07, 2.00)
        pt3dadd(2926.16, 1426.83, 5200.45, 2.00)
        pt3dadd(2920.12, 1426.16, 5208.12, 2.00)
        pt3dadd(2902.68, 1431.31, 5221.59, 2.00)
        pt3dadd(2901.28, 1430.91, 5223.22, 2.00)
        pt3dadd(2894.54, 1430.87, 5227.19, 2.00)
        pt3dadd(2885.70, 1430.94, 5232.12, 2.00)
        pt3dadd(2872.91, 1431.67, 5242.99, 2.00)
        pt3dadd(2858.03, 1431.36, 5253.01, 2.00)
        pt3dadd(2845.93, 1431.56, 5260.36, 2.00)
        pt3dadd(2830.58, 1438.63, 5260.75, 2.00)
        pt3dadd(2828.72, 1440.60, 5260.04, 2.00)
        pt3dadd(2828.72, 1440.82, 5259.96, 2.00)
        pt3dadd(2820.35, 1449.24, 5261.34, 2.00)
        pt3dadd(2805.00, 1457.73, 5264.94, 2.00)
        pt3dadd(2803.37, 1458.42, 5266.17, 2.00)
        pt3dadd(2790.58, 1470.03, 5268.13, 2.00)
        pt3dadd(2771.28, 1475.36, 5274.61, 2.00)
        pt3dadd(2759.42, 1478.36, 5279.46, 2.00)
        pt3dadd(2757.56, 1478.52, 5279.89, 2.00)
        pt3dadd(2757.79, 1481.32, 5280.11, 2.00)
        pt3dadd(2751.75, 1485.75, 5280.73, 2.00)
        pt3dadd(2739.89, 1492.72, 5282.89, 2.00)
        pt3dadd(2727.56, 1499.30, 5283.96, 2.00)
        pt3dadd(2715.47, 1503.14, 5287.02, 2.00)
        pt3dadd(2710.35, 1504.76, 5287.42, 2.00)
        pt3dadd(2695.23, 1509.97, 5289.48, 2.00)
        pt3dadd(2690.12, 1510.43, 5290.06, 2.00)
        pt3dadd(2670.82, 1510.67, 5296.16, 2.00)
        pt3dadd(2664.54, 1511.68, 5295.54, 2.00)
        pt3dadd(2656.63, 1516.31, 5295.34, 2.00)
  }
  nakeaxon[16] {pt3dclear()
        pt3dadd(2965.23, 1425.37, 5160.40, 2.00)
        pt3dadd(2949.89, 1428.53, 5171.13, 2.00)
        pt3dadd(2946.86, 1429.27, 5173.83, 2.00)
        pt3dadd(2939.42, 1428.93, 5180.39, 2.00)
        pt3dadd(2922.91, 1430.53, 5195.64, 2.00)
        pt3dadd(2914.77, 1433.95, 5202.32, 2.00)
        pt3dadd(2906.63, 1436.71, 5211.95, 2.00)
        pt3dadd(2892.91, 1432.90, 5225.96, 2.00)
        pt3dadd(2888.02, 1433.72, 5228.88, 2.00)
        pt3dadd(2885.70, 1432.38, 5231.35, 2.00)
        pt3dadd(2885.00, 1428.19, 5228.67, 2.00)
        pt3dadd(2877.79, 1426.35, 5231.07, 2.00)
        pt3dadd(2861.98, 1422.29, 5238.98, 2.00)
        pt3dadd(2860.35, 1422.47, 5240.15, 2.00)
        pt3dadd(2852.44, 1419.75, 5245.60, 2.00)
        pt3dadd(2840.35, 1417.87, 5254.70, 2.00)
        pt3dadd(2837.79, 1418.82, 5257.32, 2.00)
        pt3dadd(2824.77, 1417.81, 5266.10, 2.00)
        pt3dadd(2814.54, 1416.88, 5272.38, 2.00)
        pt3dadd(2806.63, 1416.92, 5279.30, 2.00)
        pt3dadd(2799.42, 1417.62, 5288.69, 2.00)
        pt3dadd(2795.47, 1420.16, 5295.69, 2.00)
        pt3dadd(2785.93, 1419.81, 5304.23, 2.00)
        pt3dadd(2781.05, 1419.99, 5310.85, 2.00)
        pt3dadd(2778.26, 1418.68, 5314.05, 2.00)
        pt3dadd(2771.75, 1418.90, 5322.13, 2.00)
        pt3dadd(2757.33, 1418.11, 5336.28, 2.00)
        pt3dadd(2750.35, 1414.91, 5343.13, 2.00)
        pt3dadd(2747.09, 1414.70, 5345.94, 2.00)
        pt3dadd(2744.54, 1415.57, 5348.34, 2.00)
        pt3dadd(2742.68, 1415.43, 5348.64, 2.00)
        pt3dadd(2736.16, 1417.00, 5354.99, 2.00)
        pt3dadd(2729.42, 1416.95, 5360.96, 2.00)
        pt3dadd(2716.86, 1414.07, 5371.41, 2.00)
        pt3dadd(2710.12, 1413.93, 5377.15, 2.00)
        pt3dadd(2701.51, 1412.26, 5383.45, 2.00)
        pt3dadd(2693.37, 1411.65, 5387.88, 2.00)
        pt3dadd(2691.05, 1412.92, 5391.38, 2.00)
        pt3dadd(2684.54, 1413.18, 5395.49, 2.00)
        pt3dadd(2674.07, 1411.12, 5403.42, 2.00)
        pt3dadd(2658.96, 1411.97, 5410.53, 2.00)
        pt3dadd(2640.82, 1411.50, 5420.11, 2.00)
        pt3dadd(2638.96, 1411.42, 5419.89, 2.00)
        pt3dadd(2629.19, 1413.17, 5427.42, 2.00)
        pt3dadd(2619.42, 1411.86, 5438.78, 2.00)
        pt3dadd(2615.00, 1412.94, 5440.37, 2.00)
        pt3dadd(2608.26, 1407.67, 5446.99, 2.00)
        pt3dadd(2604.77, 1401.76, 5456.57, 2.00)
        pt3dadd(2605.70, 1401.50, 5457.90, 2.00)
  }
}
proc geometry2() {
  nakeaxon[16] {
  }
  nakeaxon[17] {pt3dclear()
        pt3dadd(3072.44, 1438.22, 5005.99, 2.00)
        pt3dadd(3070.58, 1436.99, 5006.69, 2.00)
        pt3dadd(3057.79, 1441.02, 5011.66, 2.00)
        pt3dadd(3046.63, 1443.99, 5020.48, 2.00)
        pt3dadd(3040.58, 1444.58, 5023.48, 2.00)
        pt3dadd(3021.98, 1447.45, 5028.62, 2.00)
        pt3dadd(3013.14, 1448.12, 5029.12, 2.00)
        pt3dadd(3002.91, 1451.16, 5035.44, 2.00)
        pt3dadd(2991.28, 1451.44, 5037.56, 2.00)
        pt3dadd(2977.33, 1452.32, 5042.69, 2.00)
        pt3dadd(2962.21, 1453.15, 5043.62, 2.00)
        pt3dadd(2954.07, 1454.48, 5043.88, 2.00)
        pt3dadd(2946.86, 1454.68, 5043.06, 2.00)
        pt3dadd(2935.00, 1453.89, 5040.88, 2.00)
        pt3dadd(2924.07, 1456.99, 5043.96, 2.00)
        pt3dadd(2919.89, 1457.68, 5045.19, 2.00)
        pt3dadd(2910.12, 1456.47, 5046.62, 2.00)
        pt3dadd(2898.96, 1456.57, 5044.85, 2.00)
        pt3dadd(2883.61, 1458.22, 5043.26, 2.00)
        pt3dadd(2867.79, 1460.41, 5047.91, 2.00)
        pt3dadd(2861.51, 1461.44, 5048.03, 2.00)
        pt3dadd(2842.91, 1464.14, 5050.02, 2.00)
        pt3dadd(2842.21, 1464.84, 5051.25, 2.00)
        pt3dadd(2837.79, 1465.97, 5052.32, 2.00)
        pt3dadd(2823.84, 1472.09, 5052.81, 2.00)
        pt3dadd(2813.84, 1476.22, 5053.29, 2.00)
        pt3dadd(2802.44, 1482.96, 5054.80, 2.00)
        pt3dadd(2791.98, 1487.21, 5054.24, 2.00)
        pt3dadd(2787.56, 1487.67, 5057.54, 2.00)
        pt3dadd(2780.35, 1488.90, 5059.57, 2.00)
        pt3dadd(2775.93, 1490.87, 5058.85, 2.00)
        pt3dadd(2772.44, 1492.54, 5060.72, 2.00)
        pt3dadd(2767.09, 1492.58, 5062.19, 2.00)
        pt3dadd(2758.96, 1495.82, 5062.24, 2.00)
        pt3dadd(2734.77, 1500.51, 5066.97, 2.00)
        pt3dadd(2713.14, 1501.52, 5069.08, 2.00)
        pt3dadd(2704.30, 1509.89, 5076.43, 2.00)
        pt3dadd(2691.28, 1514.52, 5081.67, 2.00)
        pt3dadd(2675.93, 1522.71, 5085.13, 2.00)
        pt3dadd(2670.58, 1525.98, 5086.66, 2.00)
        pt3dadd(2655.23, 1526.96, 5090.01, 2.00)
        pt3dadd(2644.54, 1527.83, 5092.42, 2.00)
        pt3dadd(2624.77, 1536.96, 5100.48, 2.00)
        pt3dadd(2618.49, 1539.54, 5103.50, 2.00)
        pt3dadd(2606.86, 1542.88, 5109.96, 2.00)
        pt3dadd(2588.96, 1548.88, 5114.21, 2.00)
        pt3dadd(2582.68, 1552.26, 5119.41, 2.00)
        pt3dadd(2561.98, 1555.20, 5124.77, 2.00)
        pt3dadd(2552.68, 1557.03, 5127.08, 2.00)
        pt3dadd(2543.84, 1558.12, 5129.40, 2.00)
        pt3dadd(2525.93, 1560.81, 5133.38, 2.00)
        pt3dadd(2520.58, 1561.90, 5135.70, 2.00)
        pt3dadd(2516.86, 1562.70, 5137.89, 2.00)
        pt3dadd(2510.58, 1563.53, 5138.82, 2.00)
        pt3dadd(2503.37, 1567.21, 5141.44, 2.00)
        pt3dadd(2482.91, 1572.87, 5149.53, 2.00)
        pt3dadd(2466.63, 1577.35, 5154.33, 2.00)
        pt3dadd(2461.28, 1578.00, 5154.09, 2.00)
        pt3dadd(2457.09, 1584.30, 5155.76, 2.00)
        pt3dadd(2449.89, 1586.72, 5155.62, 2.00)
        pt3dadd(2434.07, 1595.96, 5157.21, 2.00)
        pt3dadd(2427.09, 1597.18, 5158.50, 2.00)
        pt3dadd(2415.47, 1602.04, 5158.95, 2.00)
        pt3dadd(2407.56, 1606.26, 5159.65, 2.00)
        pt3dadd(2383.37, 1612.48, 5163.82, 2.00)
        pt3dadd(2371.98, 1616.87, 5165.69, 2.00)
        pt3dadd(2351.28, 1625.91, 5165.37, 2.00)
        pt3dadd(2337.10, 1625.95, 5164.11, 2.00)
        pt3dadd(2329.42, 1629.39, 5168.80, 2.00)
        pt3dadd(2324.07, 1631.57, 5170.73, 2.00)
        pt3dadd(2321.51, 1632.05, 5172.04, 2.00)
        pt3dadd(2313.61, 1632.73, 5175.26, 2.00)
        pt3dadd(2298.26, 1640.72, 5184.97, 2.00)
        pt3dadd(2293.37, 1645.17, 5189.04, 2.00)
        pt3dadd(2303.61, 1653.24, 5193.53, 2.00)
        pt3dadd(2303.61, 1655.68, 5194.13, 2.00)
        pt3dadd(2309.19, 1656.24, 5198.38, 2.00)
        pt3dadd(2308.03, 1657.03, 5200.56, 2.00)
        pt3dadd(2309.65, 1663.11, 5202.31, 2.00)
        pt3dadd(2315.70, 1672.10, 5213.40, 2.00)
        pt3dadd(2321.05, 1673.03, 5218.00, 2.00)
        pt3dadd(2322.68, 1677.22, 5217.96, 2.00)
        pt3dadd(2328.02, 1679.29, 5223.65, 2.00)
        pt3dadd(2327.79, 1679.47, 5224.82, 2.00)
  }
  nakeaxon[18] {pt3dclear()
        pt3dadd(3101.51, 1439.37, 4988.75, 2.00)
        pt3dadd(3095.93, 1444.43, 4993.83, 2.00)
        pt3dadd(3082.44, 1452.15, 5001.42, 2.00)
        pt3dadd(3076.40, 1457.25, 5002.53, 2.00)
        pt3dadd(3073.84, 1455.84, 5004.78, 2.00)
        pt3dadd(3068.72, 1457.89, 5007.00, 2.00)
        pt3dadd(3064.54, 1461.69, 5008.59, 2.00)
        pt3dadd(3057.56, 1465.86, 5013.26, 2.00)
        pt3dadd(3056.86, 1465.56, 5013.12, 2.00)
  }
  nakeaxon[19] {pt3dclear()
        pt3dadd(3056.86, 1465.56, 5013.12, 2.00)
        pt3dadd(3053.37, 1464.59, 5020.65, 2.00)
        pt3dadd(3049.89, 1462.47, 5031.82, 2.00)
        pt3dadd(3048.72, 1462.65, 5041.15, 2.00)
        pt3dadd(3047.56, 1462.83, 5047.77, 2.00)
        pt3dadd(3043.37, 1463.63, 5052.68, 2.00)
        pt3dadd(3041.05, 1462.79, 5054.47, 2.00)
        pt3dadd(3040.35, 1461.70, 5057.59, 2.00)
        pt3dadd(3037.79, 1458.96, 5070.46, 2.00)
        pt3dadd(3033.37, 1458.63, 5082.46, 2.00)
        pt3dadd(3029.42, 1460.34, 5091.24, 2.00)
        pt3dadd(3027.10, 1459.98, 5094.34, 2.00)
        pt3dadd(3024.54, 1460.16, 5098.24, 2.00)
        pt3dadd(3019.19, 1461.69, 5108.57, 2.00)
        pt3dadd(3014.54, 1461.00, 5118.23, 2.00)
        pt3dadd(3008.72, 1461.50, 5133.88, 2.00)
        pt3dadd(3001.98, 1462.44, 5146.66, 2.00)
        pt3dadd(2994.07, 1467.28, 5167.42, 2.00)
        pt3dadd(2987.33, 1472.88, 5181.47, 2.00)
        pt3dadd(2980.58, 1477.54, 5198.33, 2.00)
        pt3dadd(2975.24, 1480.56, 5209.36, 2.00)
        pt3dadd(2965.93, 1487.30, 5224.48, 2.00)
        pt3dadd(2964.07, 1493.12, 5233.00, 2.00)
        pt3dadd(2965.00, 1492.83, 5232.86, 2.00)
  }
  nakeaxon[20] {pt3dclear()
        pt3dadd(2965.00, 1492.83, 5232.86, 2.00)
        pt3dadd(2963.14, 1493.76, 5234.75, 2.00)
        pt3dadd(2957.79, 1497.22, 5245.61, 2.00)
        pt3dadd(2946.63, 1502.77, 5260.18, 2.00)
        pt3dadd(2938.49, 1506.27, 5272.51, 2.00)
        pt3dadd(2933.84, 1507.76, 5278.65, 2.00)
        pt3dadd(2925.70, 1511.56, 5288.41, 2.00)
        pt3dadd(2921.75, 1514.18, 5295.62, 2.00)
        pt3dadd(2911.75, 1517.44, 5301.86, 2.00)
        pt3dadd(2909.65, 1521.48, 5309.55, 2.00)
  }
  nakeaxon[21] {pt3dclear()
        pt3dadd(2965.00, 1492.83, 5232.86, 2.00)
        pt3dadd(2975.47, 1505.27, 5238.48, 2.00)
        pt3dadd(2980.12, 1506.60, 5241.46, 2.00)
  }
  nakeaxon[22] {pt3dclear()
        pt3dadd(3056.86, 1465.56, 5013.12, 2.00)
        pt3dadd(3051.51, 1469.83, 5013.30, 2.00)
        pt3dadd(3051.98, 1472.20, 5013.67, 2.00)
        pt3dadd(3043.84, 1483.44, 5016.01, 2.00)
        pt3dadd(3034.77, 1492.64, 5021.58, 2.00)
        pt3dadd(3029.42, 1498.43, 5025.90, 2.00)
        pt3dadd(3025.00, 1501.49, 5027.51, 2.00)
        pt3dadd(3025.00, 1501.71, 5027.43, 2.00)
        pt3dadd(3020.58, 1505.70, 5030.93, 2.00)
        pt3dadd(3016.16, 1508.07, 5031.31, 2.00)
        pt3dadd(3012.44, 1510.69, 5030.35, 2.00)
        pt3dadd(3013.37, 1509.81, 5030.67, 2.00)
  }
  nakeaxon[23] {pt3dclear()
        pt3dadd(3013.37, 1509.81, 5030.67, 2.00)
        pt3dadd(3010.82, 1516.55, 5029.46, 2.00)
        pt3dadd(3008.96, 1519.39, 5028.42, 2.00)
        pt3dadd(3008.96, 1519.17, 5028.50, 2.00)
  }
  nakeaxon[24] {pt3dclear()
        pt3dadd(3008.96, 1519.17, 5028.50, 2.00)
        pt3dadd(3009.89, 1527.98, 5032.97, 2.00)
        pt3dadd(3016.16, 1534.19, 5037.14, 2.00)
        pt3dadd(3017.56, 1541.25, 5044.97, 2.00)
  }
}
proc geometry3() {
  nakeaxon[24] {
        pt3dadd(3016.86, 1542.27, 5047.07, 2.00)
        pt3dadd(3014.77, 1551.98, 5055.41, 2.00)
        pt3dadd(3014.30, 1553.65, 5057.28, 2.00)
        pt3dadd(3010.35, 1557.81, 5063.94, 2.00)
        pt3dadd(3008.49, 1565.08, 5071.68, 2.00)
        pt3dadd(3004.77, 1572.62, 5083.54, 2.00)
        pt3dadd(3004.07, 1578.68, 5092.72, 2.00)
        pt3dadd(3002.21, 1585.56, 5102.10, 2.00)
        pt3dadd(3000.35, 1587.31, 5104.18, 2.00)
        pt3dadd(2998.72, 1593.96, 5113.64, 2.00)
        pt3dadd(2996.86, 1602.69, 5123.33, 2.00)
        pt3dadd(2990.58, 1617.63, 5137.19, 2.00)
        pt3dadd(2986.40, 1624.49, 5140.39, 2.00)
        pt3dadd(2980.82, 1633.19, 5146.63, 2.00)
        pt3dadd(2971.51, 1648.99, 5148.55, 2.00)
        pt3dadd(2960.58, 1659.90, 5149.28, 2.00)
        pt3dadd(2958.03, 1659.72, 5148.11, 2.00)
  }
  nakeaxon[25] {pt3dclear()
        pt3dadd(3008.96, 1519.17, 5028.50, 2.00)
        pt3dadd(3004.54, 1526.38, 5025.88, 2.00)
        pt3dadd(3004.54, 1527.04, 5025.64, 2.00)
        pt3dadd(3004.54, 1529.18, 5026.09, 2.00)
        pt3dadd(3001.51, 1534.39, 5025.44, 2.00)
        pt3dadd(2997.33, 1538.88, 5025.53, 2.00)
        pt3dadd(2985.47, 1545.28, 5022.71, 2.00)
        pt3dadd(2981.75, 1547.18, 5022.51, 2.00)
        pt3dadd(2966.63, 1552.39, 5021.86, 2.00)
        pt3dadd(2952.44, 1557.16, 5021.36, 2.00)
        pt3dadd(2947.33, 1559.22, 5010.71, 2.00)
        pt3dadd(2945.00, 1558.94, 5005.86, 2.00)
        pt3dadd(2940.12, 1563.18, 5010.01, 2.00)
  }
  nakeaxon[26] {pt3dclear()
        pt3dadd(3013.37, 1509.81, 5030.67, 2.00)
        pt3dadd(3013.37, 1510.55, 5025.21, 2.00)
        pt3dadd(3022.21, 1502.11, 5028.53, 2.00)
  }
  nakeaxon[27] {pt3dclear()
        pt3dadd(3022.21, 1502.11, 5028.53, 2.00)
        pt3dadd(3015.93, 1505.09, 5029.92, 2.00)
        pt3dadd(3004.30, 1508.76, 5032.54, 2.00)
        pt3dadd(2992.68, 1513.02, 5034.70, 2.00)
        pt3dadd(2987.33, 1513.89, 5037.11, 2.00)
        pt3dadd(2986.40, 1514.94, 5037.96, 2.00)
        pt3dadd(2973.84, 1522.69, 5041.57, 2.00)
        pt3dadd(2965.70, 1527.38, 5043.58, 2.00)
        pt3dadd(2953.61, 1534.28, 5045.52, 2.00)
        pt3dadd(2949.19, 1537.74, 5045.50, 2.00)
        pt3dadd(2944.77, 1542.78, 5049.85, 2.00)
        pt3dadd(2940.12, 1543.48, 5051.09, 2.00)
        pt3dadd(2927.09, 1549.82, 5051.50, 2.00)
        pt3dadd(2923.37, 1550.08, 5052.89, 2.00)
        pt3dadd(2918.72, 1549.58, 5050.85, 2.00)
        pt3dadd(2903.61, 1546.70, 5053.13, 2.00)
        pt3dadd(2885.47, 1542.59, 5053.39, 2.00)
        pt3dadd(2875.70, 1540.10, 5048.60, 2.00)
        pt3dadd(2862.21, 1540.86, 5052.04, 2.00)
        pt3dadd(2860.58, 1537.68, 5051.46, 2.00)
        pt3dadd(2859.65, 1538.71, 5051.58, 2.00)
        pt3dadd(2845.47, 1540.80, 5060.72, 2.00)
        pt3dadd(2828.26, 1542.73, 5061.26, 2.00)
        pt3dadd(2814.07, 1543.12, 5062.35, 2.00)
        pt3dadd(2798.72, 1542.69, 5062.51, 2.00)
        pt3dadd(2791.98, 1544.20, 5063.94, 2.00)
        pt3dadd(2771.28, 1545.75, 5069.56, 2.00)
        pt3dadd(2758.72, 1546.84, 5071.89, 2.00)
        pt3dadd(2751.51, 1545.49, 5073.62, 2.00)
        pt3dadd(2749.89, 1545.89, 5074.71, 2.00)
        pt3dadd(2731.98, 1547.34, 5079.38, 2.00)
        pt3dadd(2721.98, 1549.88, 5080.93, 2.00)
        pt3dadd(2717.33, 1555.07, 5079.53, 2.00)
        pt3dadd(2706.63, 1558.59, 5081.72, 2.00)
        pt3dadd(2692.44, 1561.31, 5084.44, 2.00)
        pt3dadd(2667.10, 1564.89, 5091.55, 2.00)
        pt3dadd(2642.68, 1572.24, 5094.07, 2.00)
        pt3dadd(2626.86, 1576.75, 5100.35, 2.00)
        pt3dadd(2613.37, 1579.54, 5108.00, 2.00)
        pt3dadd(2609.89, 1580.57, 5110.84, 2.00)
        pt3dadd(2599.89, 1585.86, 5118.57, 2.00)
        pt3dadd(2591.28, 1589.18, 5127.01, 2.00)
        pt3dadd(2578.96, 1595.60, 5138.53, 2.00)
        pt3dadd(2577.33, 1595.68, 5138.75, 2.00)
        pt3dadd(2565.24, 1602.64, 5156.51, 2.00)
        pt3dadd(2557.79, 1606.97, 5167.06, 2.00)
        pt3dadd(2556.40, 1608.03, 5170.64, 2.00)
        pt3dadd(2553.84, 1608.68, 5173.12, 2.00)
        pt3dadd(2542.68, 1610.85, 5187.92, 2.00)
        pt3dadd(2538.49, 1611.81, 5190.54, 2.00)
        pt3dadd(2525.00, 1612.19, 5204.51, 2.00)
        pt3dadd(2522.68, 1612.41, 5207.15, 2.00)
        pt3dadd(2512.44, 1612.53, 5214.29, 2.00)
        pt3dadd(2505.47, 1612.79, 5218.40, 2.00)
        pt3dadd(2502.91, 1611.78, 5221.74, 2.00)
        pt3dadd(2496.63, 1611.48, 5232.49, 2.00)
        pt3dadd(2495.00, 1610.69, 5235.74, 2.00)
  }
  nakeaxon[28] {pt3dclear()
        pt3dadd(3120.58, 1435.00, 4984.89, 2.00)
        pt3dadd(3127.33, 1429.87, 4993.94, 2.00)
        pt3dadd(3133.14, 1435.12, 5005.64, 2.00)
        pt3dadd(3133.37, 1441.84, 5017.30, 2.00)
        pt3dadd(3138.96, 1446.47, 5027.99, 2.00)
        pt3dadd(3143.37, 1453.43, 5045.75, 2.00)
        pt3dadd(3144.30, 1455.46, 5047.24, 2.00)
        pt3dadd(3145.24, 1452.58, 5049.52, 2.00)
  }
  nakeaxon[29] {pt3dclear()
        pt3dadd(3145.24, 1452.58, 5049.52, 2.00)
        pt3dadd(3146.86, 1444.69, 5054.37, 2.00)
        pt3dadd(3147.56, 1443.82, 5054.69, 2.00)
  }
  nakeaxon[30] {pt3dclear()
        pt3dadd(3147.56, 1443.82, 5054.69, 2.00)
        pt3dadd(3141.51, 1433.81, 5062.54, 2.00)
        pt3dadd(3141.51, 1429.22, 5064.21, 2.00)
        pt3dadd(3138.02, 1421.93, 5066.62, 2.00)
        pt3dadd(3135.93, 1411.69, 5069.11, 2.00)
        pt3dadd(3132.44, 1404.32, 5071.29, 2.00)
        pt3dadd(3131.51, 1402.54, 5073.18, 2.00)
        pt3dadd(3133.14, 1402.06, 5071.87, 2.00)
  }
  nakeaxon[31] {pt3dclear()
        pt3dadd(3133.14, 1402.06, 5071.87, 2.00)
        pt3dadd(3130.12, 1399.67, 5070.76, 2.00)
        pt3dadd(3122.91, 1394.65, 5072.59, 2.00)
        pt3dadd(3123.84, 1394.21, 5072.75, 2.00)
  }
  nakeaxon[32] {pt3dclear()
        pt3dadd(3123.84, 1394.21, 5072.75, 2.00)
        pt3dadd(3125.70, 1392.48, 5079.56, 2.00)
        pt3dadd(3120.58, 1386.35, 5083.78, 2.00)
        pt3dadd(3114.30, 1378.36, 5087.67, 2.00)
        pt3dadd(3115.70, 1374.09, 5087.49, 2.00)
        pt3dadd(3112.21, 1367.57, 5094.07, 2.00)
        pt3dadd(3108.03, 1359.71, 5099.66, 2.00)
        pt3dadd(3101.51, 1353.17, 5100.06, 2.00)
        pt3dadd(3095.47, 1345.82, 5105.70, 2.00)
        pt3dadd(3093.61, 1344.73, 5106.10, 2.00)
        pt3dadd(3090.12, 1341.71, 5108.68, 2.00)
        pt3dadd(3079.65, 1332.37, 5114.31, 2.00)
        pt3dadd(3076.86, 1330.45, 5116.50, 2.00)
        pt3dadd(3077.79, 1330.45, 5116.50, 2.00)
        pt3dadd(3078.49, 1324.39, 5123.65, 2.00)
        pt3dadd(3072.91, 1315.74, 5127.79, 2.00)
        pt3dadd(3071.98, 1314.97, 5129.06, 2.00)
        pt3dadd(3065.93, 1314.40, 5137.68, 2.00)
        pt3dadd(3058.03, 1312.55, 5145.53, 2.00)
        pt3dadd(3055.93, 1311.38, 5148.43, 2.00)
        pt3dadd(3052.21, 1307.43, 5154.57, 2.00)
        pt3dadd(3042.44, 1304.11, 5162.46, 2.00)
        pt3dadd(3040.82, 1303.93, 5164.01, 2.00)
        pt3dadd(3033.37, 1301.21, 5166.73, 2.00)
        pt3dadd(3022.91, 1296.15, 5175.26, 2.00)
        pt3dadd(3022.44, 1297.34, 5178.54, 2.00)
        pt3dadd(3021.51, 1296.03, 5181.74, 2.00)
        pt3dadd(3021.51, 1295.81, 5181.82, 2.00)
        pt3dadd(3019.89, 1298.65, 5183.50, 2.00)
        pt3dadd(3009.65, 1294.25, 5189.07, 2.00)
        pt3dadd(3007.79, 1293.31, 5189.90, 2.00)
        pt3dadd(3004.77, 1290.03, 5193.82, 2.00)
        pt3dadd(3000.58, 1286.46, 5200.32, 2.00)
        pt3dadd(2994.30, 1282.87, 5208.80, 2.00)
        pt3dadd(2991.98, 1283.82, 5211.42, 2.00)
        pt3dadd(2987.10, 1282.13, 5216.99, 2.00)
        pt3dadd(2976.63, 1276.81, 5224.12, 2.00)
  }
}
proc geometry4() {
  nakeaxon[32] {
        pt3dadd(2969.89, 1276.73, 5226.62, 2.00)
        pt3dadd(2964.07, 1276.06, 5231.57, 2.00)
        pt3dadd(2961.98, 1274.83, 5234.99, 2.00)
        pt3dadd(2960.58, 1274.93, 5235.94, 2.00)
        pt3dadd(2947.09, 1265.67, 5241.79, 2.00)
        pt3dadd(2945.00, 1265.83, 5242.23, 2.00)
        pt3dadd(2942.21, 1262.63, 5243.64, 2.00)
        pt3dadd(2942.21, 1262.41, 5243.72, 2.00)
        pt3dadd(2945.47, 1259.29, 5242.62, 2.00)
        pt3dadd(2942.91, 1258.95, 5243.74, 2.00)
        pt3dadd(2940.82, 1257.74, 5245.17, 2.00)
        pt3dadd(2940.12, 1255.60, 5244.71, 2.00)
        pt3dadd(2941.05, 1253.19, 5245.59, 2.00)
        pt3dadd(2938.96, 1253.11, 5248.09, 2.00)
        pt3dadd(2936.40, 1248.66, 5249.46, 2.00)
        pt3dadd(2934.54, 1248.23, 5249.62, 2.00)
        pt3dadd(2933.84, 1242.72, 5250.14, 2.00)
        pt3dadd(2932.91, 1241.63, 5250.54, 2.00)
        pt3dadd(2931.28, 1240.28, 5249.54, 2.00)
        pt3dadd(2929.42, 1237.40, 5251.83, 2.00)
        pt3dadd(2927.33, 1236.41, 5253.18, 2.00)
        pt3dadd(2925.70, 1234.26, 5255.45, 2.00)
        pt3dadd(2923.84, 1233.27, 5254.08, 2.00)
        pt3dadd(2922.91, 1229.99, 5255.27, 2.00)
        pt3dadd(2920.12, 1229.95, 5256.52, 2.00)
        pt3dadd(2917.56, 1227.90, 5257.02, 2.00)
        pt3dadd(2916.63, 1225.68, 5259.07, 2.00)
        pt3dadd(2913.14, 1224.94, 5259.09, 2.00)
        pt3dadd(2911.28, 1224.90, 5260.34, 2.00)
        pt3dadd(2910.12, 1223.91, 5261.69, 2.00)
        pt3dadd(2909.19, 1221.51, 5262.56, 2.00)
        pt3dadd(2908.26, 1219.54, 5263.28, 2.00)
        pt3dadd(2905.70, 1218.11, 5264.79, 2.00)
        pt3dadd(2903.84, 1217.63, 5266.20, 2.00)
        pt3dadd(2901.28, 1216.54, 5266.60, 2.00)
        pt3dadd(2898.26, 1212.27, 5269.14, 2.00)
        pt3dadd(2896.63, 1211.97, 5269.00, 2.00)
        pt3dadd(2896.63, 1211.75, 5269.08, 2.00)
  }
  nakeaxon[33] {pt3dclear()
        pt3dadd(3123.84, 1394.21, 5072.75, 2.00)
        pt3dadd(3112.91, 1393.74, 5085.05, 2.00)
        pt3dadd(3105.00, 1392.35, 5088.03, 2.00)
        pt3dadd(3098.96, 1390.04, 5089.85, 2.00)
        pt3dadd(3081.98, 1386.19, 5099.67, 2.00)
        pt3dadd(3078.26, 1384.86, 5099.41, 2.00)
        pt3dadd(3074.77, 1383.23, 5101.74, 2.00)
        pt3dadd(3063.84, 1377.55, 5109.25, 2.00)
        pt3dadd(3058.49, 1374.79, 5110.50, 2.00)
        pt3dadd(3055.24, 1373.74, 5112.37, 2.00)
        pt3dadd(3045.24, 1370.74, 5112.97, 2.00)
        pt3dadd(3036.16, 1370.54, 5111.06, 2.00)
        pt3dadd(3028.49, 1368.85, 5105.74, 2.00)
        pt3dadd(3029.19, 1368.67, 5101.84, 2.00)
        pt3dadd(3028.03, 1366.38, 5098.96, 2.00)
        pt3dadd(3025.23, 1367.30, 5097.39, 2.00)
        pt3dadd(3020.12, 1364.99, 5088.33, 2.00)
        pt3dadd(3018.96, 1362.78, 5085.67, 2.00)
        pt3dadd(3013.84, 1358.07, 5074.76, 2.00)
        pt3dadd(3011.28, 1354.15, 5066.04, 2.00)
        pt3dadd(3009.19, 1352.52, 5060.20, 2.00)
        pt3dadd(3010.12, 1351.65, 5060.52, 2.00)
        pt3dadd(3008.26, 1352.46, 5058.00, 2.00)
  }
  nakeaxon[34] {pt3dclear()
        pt3dadd(3133.14, 1402.06, 5071.87, 2.00)
        pt3dadd(3133.61, 1400.81, 5080.00, 2.00)
        pt3dadd(3127.33, 1395.85, 5089.48, 2.00)
        pt3dadd(3124.07, 1388.79, 5095.26, 2.00)
        pt3dadd(3125.00, 1392.73, 5093.83, 2.00)
  }
  nakeaxon[35] {pt3dclear()
        pt3dadd(3125.00, 1392.73, 5093.83, 2.00)
        pt3dadd(3124.30, 1390.94, 5095.72, 2.00)
        pt3dadd(3122.91, 1389.23, 5097.82, 2.00)
        pt3dadd(3120.35, 1380.83, 5102.61, 2.00)
        pt3dadd(3122.21, 1382.36, 5102.06, 2.00)
        pt3dadd(3117.09, 1374.57, 5110.58, 2.00)
        pt3dadd(3112.91, 1367.24, 5119.68, 2.00)
        pt3dadd(3109.65, 1366.19, 5124.27, 2.00)
        pt3dadd(3106.40, 1361.56, 5132.64, 2.00)
        pt3dadd(3098.72, 1357.06, 5139.97, 2.00)
        pt3dadd(3092.68, 1348.83, 5145.94, 2.00)
        pt3dadd(3088.49, 1344.50, 5151.72, 2.00)
        pt3dadd(3089.89, 1336.10, 5156.51, 2.00)
        pt3dadd(3083.37, 1330.54, 5162.99, 2.00)
        pt3dadd(3079.42, 1330.24, 5165.57, 2.00)
        pt3dadd(3075.47, 1324.94, 5170.72, 2.00)
        pt3dadd(3072.68, 1322.41, 5172.63, 2.00)
        pt3dadd(3061.75, 1313.22, 5177.95, 2.00)
        pt3dadd(3057.09, 1313.60, 5181.03, 2.00)
        pt3dadd(3051.28, 1310.30, 5186.94, 2.00)
        pt3dadd(3038.96, 1304.40, 5194.53, 2.00)
        pt3dadd(3033.14, 1302.26, 5202.24, 2.00)
        pt3dadd(3033.14, 1304.22, 5201.52, 2.00)
        pt3dadd(3027.33, 1305.63, 5202.00, 2.00)
        pt3dadd(3023.84, 1295.14, 5203.10, 2.00)
        pt3dadd(3018.96, 1291.19, 5201.07, 2.00)
        pt3dadd(3013.14, 1282.05, 5197.71, 2.00)
        pt3dadd(3007.79, 1278.89, 5195.15, 2.00)
        pt3dadd(3003.14, 1273.70, 5193.82, 2.00)
        pt3dadd(2998.03, 1262.24, 5188.84, 2.00)
        pt3dadd(2996.86, 1253.47, 5180.40, 2.00)
        pt3dadd(2996.86, 1246.34, 5177.80, 2.00)
        pt3dadd(2993.84, 1236.68, 5171.66, 2.00)
        pt3dadd(2993.84, 1236.46, 5171.74, 2.00)
        pt3dadd(2996.63, 1233.96, 5168.94, 2.00)
        pt3dadd(2993.84, 1232.57, 5166.48, 2.00)
        pt3dadd(2993.37, 1228.31, 5164.31, 2.00)
        pt3dadd(2993.61, 1225.33, 5160.20, 2.00)
        pt3dadd(2992.91, 1222.97, 5157.10, 2.00)
        pt3dadd(2993.14, 1221.12, 5154.06, 2.00)
        pt3dadd(2994.30, 1219.19, 5153.53, 2.00)
        pt3dadd(2994.30, 1218.06, 5152.45, 2.00)
        pt3dadd(2993.61, 1214.02, 5150.21, 2.00)
        pt3dadd(2992.21, 1209.69, 5147.82, 2.00)
        pt3dadd(2990.58, 1208.38, 5145.58, 2.00)
        pt3dadd(2989.89, 1203.43, 5144.91, 2.00)
        pt3dadd(2987.33, 1200.99, 5141.59, 2.00)
        pt3dadd(2985.93, 1198.44, 5140.04, 2.00)
        pt3dadd(2985.23, 1195.12, 5137.04, 2.00)
        pt3dadd(2986.16, 1192.62, 5136.96, 2.00)
        pt3dadd(2986.40, 1191.61, 5134.86, 2.00)
        pt3dadd(2984.77, 1190.43, 5132.31, 2.00)
        pt3dadd(2984.77, 1188.55, 5130.53, 2.00)
        pt3dadd(2983.14, 1186.66, 5128.74, 2.00)
        pt3dadd(2981.75, 1186.62, 5124.55, 2.00)
        pt3dadd(2981.98, 1185.82, 5122.36, 2.00)
        pt3dadd(2981.05, 1186.30, 5120.95, 2.00)
        pt3dadd(2979.42, 1185.56, 5118.25, 2.00)
        pt3dadd(2978.72, 1185.64, 5115.74, 2.00)
        pt3dadd(2977.09, 1185.64, 5113.02, 2.00)
        pt3dadd(2976.63, 1185.54, 5109.35, 2.00)
        pt3dadd(2974.77, 1186.19, 5106.39, 2.00)
        pt3dadd(2972.21, 1185.64, 5104.86, 2.00)
        pt3dadd(2970.58, 1187.17, 5104.30, 2.00)
        pt3dadd(2969.65, 1186.51, 5101.82, 2.00)
        pt3dadd(2968.96, 1186.81, 5099.23, 2.00)
        pt3dadd(2967.33, 1185.93, 5096.83, 2.00)
        pt3dadd(2966.63, 1186.37, 5093.95, 2.00)
        pt3dadd(2964.07, 1186.37, 5093.95, 2.00)
        pt3dadd(2961.28, 1185.49, 5091.54, 2.00)
        pt3dadd(2959.65, 1185.63, 5088.52, 2.00)
        pt3dadd(2958.26, 1186.11, 5087.11, 2.00)
        pt3dadd(2958.49, 1184.62, 5083.70, 2.00)
        pt3dadd(2955.70, 1185.45, 5081.91, 2.00)
        pt3dadd(2954.07, 1184.18, 5078.41, 2.00)
        pt3dadd(2952.44, 1183.56, 5077.40, 2.00)
        pt3dadd(2951.75, 1184.65, 5074.28, 2.00)
        pt3dadd(2950.12, 1183.16, 5070.86, 2.00)
        pt3dadd(2950.12, 1182.51, 5071.10, 2.00)
  }
  nakeaxon[36] {pt3dclear()
        pt3dadd(3125.00, 1392.73, 5093.83, 2.00)
        pt3dadd(3135.47, 1388.38, 5093.43, 2.00)
        pt3dadd(3145.24, 1384.78, 5104.64, 2.00)
        pt3dadd(3147.33, 1384.01, 5105.91, 2.00)
        pt3dadd(3151.28, 1383.99, 5107.90, 2.00)
  }
}
proc geometry5() {
  nakeaxon[36] {
        pt3dadd(3153.14, 1382.16, 5108.32, 2.00)
        pt3dadd(3163.37, 1387.89, 5118.60, 2.00)
        pt3dadd(3168.03, 1386.02, 5120.28, 2.00)
        pt3dadd(3175.47, 1380.20, 5130.81, 2.00)
        pt3dadd(3178.72, 1382.23, 5135.02, 2.00)
        pt3dadd(3180.58, 1380.36, 5136.69, 2.00)
        pt3dadd(3180.58, 1380.98, 5137.70, 2.00)
  }
  nakeaxon[37] {pt3dclear()
        pt3dadd(3147.56, 1443.82, 5054.69, 2.00)
        pt3dadd(3142.44, 1443.50, 5056.54, 2.00)
        pt3dadd(3138.02, 1441.65, 5058.94, 2.00)
        pt3dadd(3131.51, 1430.75, 5060.93, 2.00)
        pt3dadd(3130.58, 1427.47, 5062.13, 2.00)
        pt3dadd(3123.37, 1423.65, 5070.69, 2.00)
        pt3dadd(3112.91, 1427.12, 5084.28, 2.00)
        pt3dadd(3111.75, 1427.73, 5088.02, 2.00)
        pt3dadd(3111.28, 1427.38, 5091.12, 2.00)
        pt3dadd(3102.44, 1428.10, 5103.97, 2.00)
        pt3dadd(3095.00, 1426.43, 5121.16, 2.00)
        pt3dadd(3081.05, 1430.53, 5136.49, 2.00)
        pt3dadd(3070.35, 1429.46, 5151.24, 2.00)
        pt3dadd(3068.03, 1429.76, 5154.10, 2.00)
        pt3dadd(3058.03, 1429.29, 5166.40, 2.00)
        pt3dadd(3048.72, 1425.71, 5178.34, 2.00)
        pt3dadd(3041.98, 1426.39, 5187.00, 2.00)
        pt3dadd(3032.21, 1427.05, 5194.93, 2.00)
        pt3dadd(3023.61, 1427.45, 5204.19, 2.00)
        pt3dadd(3016.40, 1426.40, 5214.22, 2.00)
        pt3dadd(3008.26, 1425.93, 5226.52, 2.00)
        pt3dadd(3003.14, 1422.39, 5229.05, 2.00)
        pt3dadd(3003.37, 1423.19, 5231.23, 2.00)
        pt3dadd(3002.68, 1424.80, 5249.95, 2.00)
        pt3dadd(3002.44, 1425.26, 5261.41, 2.00)
        pt3dadd(3000.12, 1428.01, 5270.31, 2.00)
        pt3dadd(2998.72, 1428.68, 5278.97, 2.00)
        pt3dadd(2996.40, 1427.99, 5285.91, 2.00)
        pt3dadd(2991.98, 1426.68, 5289.11, 2.00)
        pt3dadd(2984.54, 1422.53, 5301.51, 2.00)
        pt3dadd(2983.84, 1422.39, 5301.81, 2.00)
        pt3dadd(2978.03, 1422.36, 5308.50, 2.00)
        pt3dadd(2975.70, 1421.88, 5315.36, 2.00)
        pt3dadd(2973.14, 1421.80, 5320.58, 2.00)
        pt3dadd(2967.10, 1421.45, 5323.68, 2.00)
        pt3dadd(2962.68, 1421.09, 5326.78, 2.00)
        pt3dadd(2956.63, 1421.09, 5329.50, 2.00)
        pt3dadd(2956.63, 1420.87, 5329.58, 2.00)
  }
  nakeaxon[38] {pt3dclear()
        pt3dadd(3145.24, 1452.58, 5049.52, 2.00)
        pt3dadd(3149.42, 1460.89, 5062.83, 2.00)
        pt3dadd(3153.37, 1466.53, 5078.35, 2.00)
        pt3dadd(3154.54, 1472.42, 5089.07, 2.00)
        pt3dadd(3160.58, 1478.09, 5102.60, 2.00)
        pt3dadd(3164.07, 1485.92, 5117.32, 2.00)
        pt3dadd(3168.49, 1491.29, 5127.99, 2.00)
        pt3dadd(3171.51, 1495.30, 5140.39, 2.00)
        pt3dadd(3179.65, 1497.75, 5149.15, 2.00)
        pt3dadd(3180.82, 1498.17, 5153.70, 2.00)
  }
  nakeaxon[39] {pt3dclear()
        pt3dadd(3180.82, 1498.17, 5153.70, 2.00)
        pt3dadd(3188.49, 1503.95, 5168.92, 2.00)
        pt3dadd(3189.89, 1505.43, 5174.32, 2.00)
  }
  nakeaxon[40] {pt3dclear()
        pt3dadd(3189.89, 1505.43, 5174.32, 2.00)
        pt3dadd(3208.03, 1504.89, 5170.81, 2.00)
        pt3dadd(3221.51, 1497.65, 5161.81, 2.00)
        pt3dadd(3232.21, 1494.46, 5163.22, 2.00)
        pt3dadd(3247.09, 1491.00, 5160.52, 2.00)
        pt3dadd(3256.17, 1490.24, 5159.80, 2.00)
        pt3dadd(3273.14, 1486.11, 5156.60, 2.00)
        pt3dadd(3288.26, 1485.05, 5153.03, 2.00)
        pt3dadd(3300.58, 1481.38, 5150.41, 2.00)
        pt3dadd(3306.63, 1479.77, 5148.02, 2.00)
        pt3dadd(3312.91, 1480.09, 5146.18, 2.00)
        pt3dadd(3335.93, 1471.00, 5136.86, 2.00)
        pt3dadd(3351.51, 1464.42, 5127.62, 2.00)
        pt3dadd(3362.91, 1460.67, 5122.06, 2.00)
        pt3dadd(3364.07, 1460.85, 5123.23, 2.00)
  }
  nakeaxon[41] {pt3dclear()
        pt3dadd(3364.07, 1460.85, 5123.23, 2.00)
        pt3dadd(3376.40, 1457.47, 5120.75, 2.00)
        pt3dadd(3390.12, 1455.14, 5116.40, 2.00)
        pt3dadd(3402.44, 1449.70, 5113.68, 2.00)
        pt3dadd(3405.93, 1448.62, 5112.09, 2.00)
        pt3dadd(3416.63, 1444.47, 5110.88, 2.00)
        pt3dadd(3436.16, 1440.59, 5103.63, 2.00)
        pt3dadd(3458.49, 1436.78, 5101.31, 2.00)
        pt3dadd(3462.68, 1435.45, 5101.05, 2.00)
        pt3dadd(3492.91, 1429.68, 5094.73, 2.00)
        pt3dadd(3512.91, 1426.46, 5089.96, 2.00)
        pt3dadd(3529.89, 1423.32, 5082.69, 2.00)
        pt3dadd(3536.63, 1420.02, 5080.43, 2.00)
        pt3dadd(3549.42, 1414.93, 5077.33, 2.00)
        pt3dadd(3568.49, 1410.44, 5071.79, 2.00)
        pt3dadd(3575.47, 1410.05, 5070.69, 2.00)
        pt3dadd(3597.56, 1406.57, 5069.98, 2.00)
        pt3dadd(3610.58, 1403.88, 5068.73, 2.00)
        pt3dadd(3639.65, 1400.98, 5062.11, 2.00)
        pt3dadd(3659.65, 1397.29, 5058.76, 2.00)
        pt3dadd(3665.00, 1397.05, 5058.10, 2.00)
        pt3dadd(3684.07, 1396.67, 5052.30, 2.00)
        pt3dadd(3697.56, 1391.32, 5053.26, 2.00)
        pt3dadd(3715.70, 1384.85, 5050.42, 2.00)
        pt3dadd(3734.30, 1381.88, 5049.76, 2.00)
        pt3dadd(3746.16, 1379.46, 5049.90, 2.00)
        pt3dadd(3762.91, 1376.18, 5048.37, 2.00)
        pt3dadd(3767.56, 1373.64, 5049.55, 2.00)
        pt3dadd(3767.56, 1373.86, 5049.47, 2.00)
  }
  nakeaxon[42] {pt3dclear()
        pt3dadd(3767.56, 1373.86, 5049.47, 2.00)
        pt3dadd(3783.37, 1369.09, 5047.24, 2.00)
        pt3dadd(3800.35, 1364.72, 5040.67, 2.00)
        pt3dadd(3812.91, 1363.70, 5041.28, 2.00)
        pt3dadd(3818.96, 1361.73, 5039.28, 2.00)
  }
  nakeaxon[43] {pt3dclear()
        pt3dadd(3818.96, 1361.73, 5039.28, 2.00)
        pt3dadd(3822.68, 1359.49, 5040.59, 2.00)
        pt3dadd(3838.72, 1356.63, 5038.17, 2.00)
        pt3dadd(3847.56, 1350.93, 5039.50, 2.00)
        pt3dadd(3858.96, 1346.79, 5039.02, 2.00)
        pt3dadd(3870.58, 1343.06, 5039.64, 2.00)
        pt3dadd(3887.56, 1339.60, 5036.94, 2.00)
        pt3dadd(3901.05, 1335.65, 5037.64, 2.00)
        pt3dadd(3909.89, 1334.14, 5036.20, 2.00)
        pt3dadd(3924.30, 1332.90, 5036.90, 2.00)
        pt3dadd(3929.89, 1333.01, 5040.58, 2.00)
  }
  nakeaxon[44] {pt3dclear()
        pt3dadd(3929.89, 1333.01, 5040.58, 2.00)
        pt3dadd(3944.30, 1337.72, 5051.48, 2.00)
        pt3dadd(3959.42, 1341.57, 5058.00, 2.00)
        pt3dadd(3965.70, 1342.03, 5058.57, 2.00)
        pt3dadd(3978.72, 1347.85, 5064.38, 2.00)
        pt3dadd(3987.79, 1350.24, 5068.21, 2.00)
        pt3dadd(4000.58, 1353.40, 5078.94, 2.00)
        pt3dadd(4015.47, 1357.00, 5089.51, 2.00)
        pt3dadd(4016.63, 1358.89, 5091.29, 2.00)
        pt3dadd(4019.65, 1359.86, 5094.65, 2.00)
        pt3dadd(4043.37, 1362.69, 5101.05, 2.00)
        pt3dadd(4047.09, 1363.80, 5104.11, 2.00)
        pt3dadd(4051.75, 1364.30, 5106.15, 2.00)
        pt3dadd(4051.75, 1365.61, 5105.68, 2.00)
  }
  nakeaxon[45] {pt3dclear()
        pt3dadd(4051.75, 1365.61, 5105.68, 2.00)
        pt3dadd(4054.54, 1376.02, 5117.97, 2.00)
        pt3dadd(4058.96, 1380.12, 5125.14, 2.00)
        pt3dadd(4061.05, 1387.56, 5141.49, 2.00)
        pt3dadd(4066.16, 1391.83, 5152.56, 2.00)
        pt3dadd(4067.56, 1392.11, 5160.13, 2.00)
        pt3dadd(4076.86, 1402.45, 5174.93, 2.00)
        pt3dadd(4085.47, 1410.92, 5196.84, 2.00)
        pt3dadd(4085.47, 1415.45, 5209.30, 2.00)
        pt3dadd(4089.42, 1417.48, 5213.51, 2.00)
        pt3dadd(4096.86, 1424.10, 5232.38, 2.00)
        pt3dadd(4099.42, 1426.96, 5240.25, 2.00)
        pt3dadd(4101.05, 1429.29, 5241.88, 2.00)
        pt3dadd(4100.35, 1429.51, 5241.80, 2.00)
        pt3dadd(4128.26, 1439.91, 5272.41, 2.00)
        pt3dadd(4130.12, 1433.23, 5278.56, 2.00)
        pt3dadd(4135.00, 1426.66, 5288.37, 2.00)
        pt3dadd(4136.16, 1425.05, 5291.43, 2.00)
  }
}
proc geometry6() {
  nakeaxon[45] {
        pt3dadd(4138.02, 1422.97, 5293.18, 2.00)
        pt3dadd(4138.26, 1422.09, 5296.22, 2.00)
        pt3dadd(4140.35, 1417.13, 5302.98, 2.00)
        pt3dadd(4144.07, 1414.64, 5306.36, 2.00)
        pt3dadd(4144.07, 1413.99, 5306.60, 2.00)
        pt3dadd(4141.98, 1411.25, 5314.03, 2.00)
        pt3dadd(4144.77, 1408.43, 5321.24, 2.00)
        pt3dadd(4145.93, 1406.17, 5324.54, 2.00)
        pt3dadd(4148.72, 1402.77, 5326.77, 2.00)
        pt3dadd(4148.72, 1401.68, 5327.16, 2.00)
  }
  nakeaxon[46] {pt3dclear()
        pt3dadd(4051.75, 1365.61, 5105.68, 2.00)
        pt3dadd(4072.44, 1368.75, 5112.95, 2.00)
        pt3dadd(4092.91, 1374.38, 5122.28, 2.00)
        pt3dadd(4110.58, 1376.33, 5131.72, 2.00)
        pt3dadd(4112.44, 1377.20, 5134.13, 2.00)
        pt3dadd(4121.98, 1378.55, 5137.84, 2.00)
        pt3dadd(4129.42, 1381.59, 5141.44, 2.00)
        pt3dadd(4140.58, 1387.06, 5147.61, 2.00)
        pt3dadd(4159.19, 1385.43, 5155.38, 2.00)
        pt3dadd(4163.84, 1383.39, 5155.88, 2.00)
        pt3dadd(4171.98, 1378.34, 5162.42, 2.00)
        pt3dadd(4178.02, 1377.01, 5167.60, 2.00)
        pt3dadd(4181.51, 1372.74, 5170.15, 2.00)
        pt3dadd(4190.12, 1369.40, 5177.30, 2.00)
        pt3dadd(4196.63, 1364.72, 5186.19, 2.00)
        pt3dadd(4202.44, 1362.73, 5191.61, 2.00)
        pt3dadd(4205.00, 1361.60, 5193.26, 2.00)
        pt3dadd(4207.10, 1362.32, 5195.23, 2.00)
        pt3dadd(4205.47, 1355.98, 5202.98, 2.00)
        pt3dadd(4203.84, 1355.07, 5204.55, 2.00)
        pt3dadd(4202.91, 1355.29, 5204.47, 2.00)
        pt3dadd(4214.54, 1354.71, 5204.93, 2.00)
        pt3dadd(4227.33, 1344.36, 5208.45, 2.00)
        pt3dadd(4232.44, 1341.86, 5211.09, 2.00)
        pt3dadd(4237.79, 1338.96, 5212.64, 2.00)
        pt3dadd(4242.21, 1336.24, 5215.36, 2.00)
        pt3dadd(4245.70, 1334.53, 5217.47, 2.00)
        pt3dadd(4259.65, 1330.81, 5221.54, 2.00)
        pt3dadd(4268.72, 1327.60, 5224.94, 2.00)
        pt3dadd(4272.91, 1326.98, 5226.65, 2.00)
        pt3dadd(4275.93, 1323.60, 5226.89, 2.00)
        pt3dadd(4285.47, 1320.35, 5231.54, 2.00)
        pt3dadd(4293.61, 1314.25, 5234.50, 2.00)
        pt3dadd(4293.61, 1316.21, 5233.79, 2.00)
        pt3dadd(4301.28, 1314.05, 5238.04, 2.00)
        pt3dadd(4313.84, 1308.59, 5245.47, 2.00)
        pt3dadd(4320.58, 1309.80, 5249.48, 2.00)
        pt3dadd(4324.77, 1307.02, 5255.45, 2.00)
        pt3dadd(4336.16, 1304.24, 5264.13, 2.00)
        pt3dadd(4353.61, 1304.66, 5274.12, 2.00)
        pt3dadd(4367.79, 1308.48, 5284.61, 2.00)
        pt3dadd(4374.07, 1310.31, 5289.64, 2.00)
        pt3dadd(4378.02, 1310.17, 5292.66, 2.00)
        pt3dadd(4380.35, 1311.80, 5295.78, 2.00)
        pt3dadd(4388.72, 1314.35, 5302.77, 2.00)
        pt3dadd(4398.49, 1317.53, 5316.96, 2.00)
        pt3dadd(4402.91, 1317.69, 5320.12, 2.00)
        pt3dadd(4408.49, 1317.23, 5324.98, 2.00)
        pt3dadd(4408.49, 1317.45, 5324.90, 2.00)
  }
  nakeaxon[47] {pt3dclear()
        pt3dadd(3929.89, 1333.01, 5040.58, 2.00)
        pt3dadd(3948.72, 1328.55, 5041.95, 2.00)
        pt3dadd(3957.09, 1326.75, 5045.82, 2.00)
        pt3dadd(3958.72, 1327.23, 5047.14, 2.00)
  }
  nakeaxon[48] {pt3dclear()
        pt3dadd(3958.72, 1327.23, 5047.14, 2.00)
        pt3dadd(3974.30, 1325.75, 5044.45, 2.00)
        pt3dadd(3986.63, 1323.85, 5041.93, 2.00)
        pt3dadd(4004.07, 1319.41, 5035.87, 2.00)
        pt3dadd(4011.05, 1316.93, 5031.08, 2.00)
        pt3dadd(4031.51, 1308.66, 5030.13, 2.00)
        pt3dadd(4049.19, 1306.56, 5028.43, 2.00)
        pt3dadd(4065.24, 1304.09, 5027.09, 2.00)
        pt3dadd(4068.72, 1303.14, 5024.47, 2.00)
        pt3dadd(4086.86, 1297.81, 5020.72, 2.00)
        pt3dadd(4106.40, 1292.61, 5018.65, 2.00)
        pt3dadd(4119.65, 1288.04, 5015.62, 2.00)
        pt3dadd(4118.72, 1288.04, 5015.62, 2.00)
  }
  nakeaxon[49] {pt3dclear()
        pt3dadd(3958.72, 1327.23, 5047.14, 2.00)
        pt3dadd(3968.96, 1325.16, 5060.51, 2.00)
        pt3dadd(3977.33, 1321.87, 5066.41, 2.00)
        pt3dadd(3977.56, 1321.57, 5068.99, 2.00)
        pt3dadd(3978.96, 1319.98, 5078.23, 2.00)
        pt3dadd(3979.19, 1320.86, 5080.64, 2.00)
  }
  nakeaxon[50] {pt3dclear()
        pt3dadd(3979.19, 1320.86, 5080.64, 2.00)
        pt3dadd(3982.68, 1319.47, 5080.89, 2.00)
        pt3dadd(3987.33, 1320.18, 5082.86, 2.00)
        pt3dadd(3999.19, 1322.05, 5083.91, 2.00)
        pt3dadd(4015.93, 1320.46, 5079.54, 2.00)
        pt3dadd(4018.72, 1319.72, 5079.56, 2.00)
        pt3dadd(4028.49, 1319.13, 5079.28, 2.00)
        pt3dadd(4044.07, 1320.84, 5082.62, 2.00)
        pt3dadd(4048.49, 1321.16, 5083.50, 2.00)
        pt3dadd(4064.77, 1321.95, 5085.68, 2.00)
        pt3dadd(4067.56, 1322.13, 5086.85, 2.00)
        pt3dadd(4075.00, 1323.32, 5087.41, 2.00)
        pt3dadd(4074.07, 1323.10, 5087.49, 2.00)
  }
  nakeaxon[51] {pt3dclear()
        pt3dadd(4074.07, 1323.10, 5087.49, 2.00)
        pt3dadd(4077.56, 1317.66, 5084.77, 2.00)
        pt3dadd(4077.56, 1316.79, 5085.09, 2.00)
        pt3dadd(4093.37, 1312.48, 5088.88, 2.00)
        pt3dadd(4103.14, 1311.30, 5089.06, 2.00)
        pt3dadd(4115.93, 1307.07, 5090.36, 2.00)
        pt3dadd(4118.49, 1307.73, 5092.84, 2.00)
        pt3dadd(4128.26, 1307.39, 5093.95, 2.00)
        pt3dadd(4138.72, 1303.77, 5096.26, 2.00)
        pt3dadd(4147.56, 1302.19, 5100.05, 2.00)
        pt3dadd(4161.28, 1301.09, 5100.45, 2.00)
        pt3dadd(4167.33, 1301.65, 5101.98, 2.00)
        pt3dadd(4172.68, 1300.72, 5102.81, 2.00)
        pt3dadd(4174.54, 1299.92, 5103.35, 2.00)
        pt3dadd(4187.79, 1298.11, 5101.78, 2.00)
        pt3dadd(4193.84, 1297.22, 5104.09, 2.00)
        pt3dadd(4200.12, 1295.81, 5106.33, 2.00)
        pt3dadd(4219.42, 1291.70, 5114.76, 2.00)
        pt3dadd(4223.61, 1292.65, 5117.38, 2.00)
  }
  nakeaxon[52] {pt3dclear()
        pt3dadd(4074.07, 1323.10, 5087.49, 2.00)
        pt3dadd(4081.98, 1325.03, 5098.91, 2.00)
        pt3dadd(4085.70, 1326.41, 5103.36, 2.00)
        pt3dadd(4087.79, 1327.38, 5106.72, 2.00)
        pt3dadd(4096.63, 1328.48, 5117.21, 2.00)
        pt3dadd(4098.49, 1328.98, 5121.98, 2.00)
        pt3dadd(4101.75, 1334.66, 5133.52, 2.00)
        pt3dadd(4101.75, 1335.10, 5133.36, 2.00)
        pt3dadd(4093.37, 1331.28, 5120.15, 2.00)
        pt3dadd(4096.16, 1329.08, 5133.82, 2.00)
        pt3dadd(4099.89, 1332.80, 5140.64, 2.00)
        pt3dadd(4099.65, 1333.23, 5143.20, 2.00)
  }
  nakeaxon[53] {pt3dclear()
        pt3dadd(4099.65, 1333.23, 5143.20, 2.00)
        pt3dadd(4104.54, 1335.60, 5149.02, 2.00)
        pt3dadd(4110.35, 1336.16, 5155.99, 2.00)
        pt3dadd(4114.30, 1336.99, 5162.37, 2.00)
        pt3dadd(4115.47, 1337.79, 5170.00, 2.00)
        pt3dadd(4127.09, 1336.13, 5181.74, 2.00)
        pt3dadd(4134.30, 1337.26, 5193.70, 2.00)
        pt3dadd(4141.28, 1340.60, 5205.61, 2.00)
        pt3dadd(4150.35, 1342.48, 5217.55, 2.00)
        pt3dadd(4160.82, 1347.11, 5230.95, 2.00)
        pt3dadd(4161.51, 1347.73, 5231.97, 2.00)
        pt3dadd(4169.42, 1351.66, 5244.15, 2.00)
        pt3dadd(4177.09, 1354.88, 5248.91, 2.00)
        pt3dadd(4189.42, 1361.56, 5261.83, 2.00)
        pt3dadd(4196.63, 1365.20, 5273.87, 2.00)
        pt3dadd(4197.79, 1366.47, 5277.36, 2.00)
        pt3dadd(4194.54, 1369.36, 5280.52, 2.00)
        pt3dadd(4204.77, 1374.09, 5297.61, 2.00)
        pt3dadd(4209.19, 1377.11, 5308.63, 2.00)
        pt3dadd(4210.58, 1379.70, 5311.65, 2.00)
        pt3dadd(4218.02, 1383.44, 5321.92, 2.00)
        pt3dadd(4225.93, 1388.82, 5336.05, 2.00)
        pt3dadd(4226.63, 1387.87, 5338.87, 2.00)
        pt3dadd(4230.58, 1390.36, 5346.38, 2.00)
  }
}
proc geometry7() {
  nakeaxon[53] {
        pt3dadd(4238.26, 1395.71, 5361.76, 2.00)
        pt3dadd(4238.49, 1396.50, 5366.66, 2.00)
        pt3dadd(4242.44, 1399.74, 5374.89, 2.00)
        pt3dadd(4248.49, 1399.67, 5388.28, 2.00)
        pt3dadd(4254.77, 1400.51, 5397.38, 2.00)
        pt3dadd(4269.19, 1403.19, 5409.52, 2.00)
        pt3dadd(4275.93, 1403.63, 5414.80, 2.00)
        pt3dadd(4278.26, 1405.68, 5417.03, 2.00)
        pt3dadd(4278.26, 1405.89, 5416.95, 2.00)
  }
  nakeaxon[54] {pt3dclear()
        pt3dadd(4099.65, 1333.23, 5143.20, 2.00)
        pt3dadd(4096.63, 1336.95, 5158.18, 2.00)
        pt3dadd(4096.16, 1347.39, 5171.21, 2.00)
        pt3dadd(4097.33, 1350.25, 5179.08, 2.00)
        pt3dadd(4101.28, 1352.70, 5185.12, 2.00)
        pt3dadd(4100.12, 1353.41, 5187.08, 2.00)
        pt3dadd(4101.51, 1359.26, 5201.78, 2.00)
        pt3dadd(4101.51, 1359.48, 5201.70, 2.00)
        pt3dadd(4116.63, 1372.94, 5223.04, 2.00)
        pt3dadd(4120.58, 1378.38, 5228.48, 2.00)
        pt3dadd(4120.58, 1378.82, 5228.32, 2.00)
  }
  nakeaxon[55] {pt3dclear()
        pt3dadd(4120.58, 1378.82, 5228.32, 2.00)
        pt3dadd(4118.96, 1387.58, 5239.49, 2.00)
        pt3dadd(4121.75, 1389.35, 5245.03, 2.00)
        pt3dadd(4125.70, 1395.91, 5258.98, 2.00)
        pt3dadd(4126.86, 1397.59, 5263.56, 2.00)
        pt3dadd(4125.23, 1402.74, 5279.76, 2.00)
        pt3dadd(4124.07, 1408.36, 5291.81, 2.00)
        pt3dadd(4120.82, 1410.97, 5306.46, 2.00)
        pt3dadd(4124.30, 1414.63, 5316.51, 2.00)
        pt3dadd(4131.28, 1420.79, 5326.64, 2.00)
        pt3dadd(4133.37, 1421.51, 5334.05, 2.00)
        pt3dadd(4135.47, 1422.40, 5337.19, 2.00)
        pt3dadd(4138.49, 1425.78, 5345.12, 2.00)
        pt3dadd(4144.54, 1428.05, 5352.71, 2.00)
        pt3dadd(4147.56, 1428.47, 5359.98, 2.00)
        pt3dadd(4155.00, 1431.41, 5368.06, 2.00)
        pt3dadd(4165.70, 1433.27, 5384.71, 2.00)
        pt3dadd(4170.58, 1438.91, 5400.23, 2.00)
        pt3dadd(4173.84, 1438.82, 5412.89, 2.00)
        pt3dadd(4176.40, 1440.81, 5421.07, 2.00)
        pt3dadd(4178.26, 1440.03, 5422.34, 2.00)
  }
  nakeaxon[56] {pt3dclear()
        pt3dadd(4120.58, 1378.82, 5228.32, 2.00)
        pt3dadd(4130.82, 1392.03, 5240.84, 2.00)
        pt3dadd(4136.63, 1396.53, 5246.38, 2.00)
        pt3dadd(4146.16, 1405.31, 5255.56, 2.00)
        pt3dadd(4152.91, 1410.90, 5260.70, 2.00)
        pt3dadd(4169.65, 1422.31, 5279.81, 2.00)
        pt3dadd(4177.79, 1427.69, 5293.94, 2.00)
        pt3dadd(4187.79, 1435.27, 5307.27, 2.00)
        pt3dadd(4188.72, 1435.59, 5308.14, 2.00)
        pt3dadd(4202.44, 1441.37, 5323.36, 2.00)
        pt3dadd(4211.28, 1445.67, 5335.16, 2.00)
        pt3dadd(4213.61, 1449.01, 5341.61, 2.00)
        pt3dadd(4219.19, 1451.83, 5342.57, 2.00)
        pt3dadd(4218.96, 1453.18, 5340.84, 2.00)
  }
  nakeaxon[57] {pt3dclear()
        pt3dadd(3979.19, 1320.86, 5080.64, 2.00)
        pt3dadd(3981.28, 1317.42, 5086.84, 2.00)
        pt3dadd(3981.98, 1310.21, 5092.18, 2.00)
        pt3dadd(3990.58, 1311.01, 5094.37, 2.00)
        pt3dadd(3992.68, 1306.04, 5103.85, 2.00)
        pt3dadd(4002.44, 1304.39, 5105.44, 2.00)
        pt3dadd(4008.72, 1301.71, 5106.91, 2.00)
        pt3dadd(4010.58, 1300.00, 5109.02, 2.00)
        pt3dadd(4017.56, 1298.20, 5110.17, 2.00)
        pt3dadd(4031.05, 1294.84, 5113.86, 2.00)
        pt3dadd(4043.37, 1290.61, 5117.88, 2.00)
        pt3dadd(4049.19, 1291.30, 5124.56, 2.00)
        pt3dadd(4050.58, 1290.83, 5128.69, 2.00)
        pt3dadd(4053.14, 1290.83, 5131.41, 2.00)
        pt3dadd(4052.91, 1292.32, 5132.10, 2.00)
  }
  nakeaxon[58] {pt3dclear()
        pt3dadd(4052.91, 1292.32, 5132.10, 2.00)
        pt3dadd(4062.21, 1288.09, 5133.40, 2.00)
        pt3dadd(4070.82, 1286.72, 5137.11, 2.00)
        pt3dadd(4078.96, 1287.65, 5136.28, 2.00)
        pt3dadd(4083.61, 1286.06, 5134.63, 2.00)
        pt3dadd(4094.77, 1286.78, 5139.32, 2.00)
        pt3dadd(4097.79, 1286.24, 5138.52, 2.00)
        pt3dadd(4112.68, 1287.26, 5140.63, 2.00)
        pt3dadd(4113.61, 1287.26, 5140.63, 2.00)
        pt3dadd(4119.65, 1288.19, 5142.52, 2.00)
        pt3dadd(4132.44, 1287.72, 5146.65, 2.00)
        pt3dadd(4141.75, 1287.04, 5154.32, 2.00)
        pt3dadd(4157.10, 1289.65, 5163.52, 2.00)
        pt3dadd(4161.51, 1288.02, 5165.84, 2.00)
        pt3dadd(4171.51, 1293.76, 5171.42, 2.00)
        pt3dadd(4187.56, 1292.97, 5182.85, 2.00)
        pt3dadd(4201.98, 1293.03, 5190.50, 2.00)
        pt3dadd(4208.03, 1293.51, 5197.25, 2.00)
        pt3dadd(4221.51, 1287.81, 5209.48, 2.00)
        pt3dadd(4243.84, 1288.38, 5224.61, 2.00)
        pt3dadd(4251.28, 1286.87, 5231.35, 2.00)
        pt3dadd(4261.98, 1286.77, 5238.56, 2.00)
        pt3dadd(4274.07, 1285.94, 5248.52, 2.00)
        pt3dadd(4280.82, 1286.06, 5252.93, 2.00)
        pt3dadd(4284.30, 1284.79, 5254.88, 2.00)
        pt3dadd(4290.82, 1285.01, 5260.24, 2.00)
        pt3dadd(4294.54, 1284.29, 5266.44, 2.00)
        pt3dadd(4296.63, 1284.81, 5269.22, 2.00)
        pt3dadd(4302.44, 1286.38, 5275.58, 2.00)
        pt3dadd(4307.56, 1284.48, 5281.22, 2.00)
        pt3dadd(4307.56, 1285.79, 5280.74, 2.00)
  }
  nakeaxon[59] {pt3dclear()
        pt3dadd(4052.91, 1292.32, 5132.10, 2.00)
        pt3dadd(4053.37, 1294.25, 5138.08, 2.00)
        pt3dadd(4061.05, 1294.43, 5152.87, 2.00)
        pt3dadd(4068.72, 1294.76, 5170.07, 2.00)
        pt3dadd(4078.03, 1292.73, 5179.47, 2.00)
        pt3dadd(4078.72, 1293.53, 5181.66, 2.00)
        pt3dadd(4096.16, 1299.07, 5190.78, 2.00)
        pt3dadd(4098.02, 1298.48, 5193.22, 2.00)
        pt3dadd(4102.44, 1296.49, 5195.92, 2.00)
        pt3dadd(4111.05, 1295.10, 5198.90, 2.00)
        pt3dadd(4120.82, 1294.67, 5201.78, 2.00)
        pt3dadd(4130.58, 1296.32, 5211.08, 2.00)
        pt3dadd(4137.33, 1299.60, 5212.61, 2.00)
        pt3dadd(4142.91, 1300.61, 5214.72, 2.00)
        pt3dadd(4151.28, 1302.24, 5217.84, 2.00)
        pt3dadd(4170.35, 1306.48, 5227.43, 2.00)
        pt3dadd(4178.02, 1307.33, 5231.82, 2.00)
        pt3dadd(4194.07, 1305.96, 5238.26, 2.00)
        pt3dadd(4198.96, 1305.90, 5241.50, 2.00)
        pt3dadd(4204.30, 1307.57, 5246.09, 2.00)
        pt3dadd(4224.07, 1304.86, 5256.98, 2.00)
        pt3dadd(4237.33, 1305.27, 5266.97, 2.00)
        pt3dadd(4242.21, 1305.30, 5267.70, 2.00)
        pt3dadd(4253.37, 1305.97, 5270.92, 2.00)
        pt3dadd(4269.19, 1305.36, 5275.36, 2.00)
        pt3dadd(4285.24, 1303.65, 5280.18, 2.00)
        pt3dadd(4290.82, 1302.02, 5282.51, 2.00)
        pt3dadd(4297.56, 1300.61, 5287.48, 2.00)
        pt3dadd(4309.42, 1299.22, 5290.46, 2.00)
        pt3dadd(4326.16, 1299.12, 5294.95, 2.00)
        pt3dadd(4341.98, 1296.76, 5297.29, 2.00)
        pt3dadd(4345.47, 1297.24, 5298.60, 2.00)
        pt3dadd(4353.61, 1295.95, 5299.82, 2.00)
        pt3dadd(4360.35, 1295.59, 5300.19, 2.00)
        pt3dadd(4371.28, 1295.57, 5304.90, 2.00)
        pt3dadd(4376.63, 1296.98, 5305.38, 2.00)
        pt3dadd(4381.28, 1295.39, 5306.45, 2.00)
        pt3dadd(4392.68, 1295.71, 5307.33, 2.00)
        pt3dadd(4408.72, 1293.78, 5306.79, 2.00)
        pt3dadd(4416.63, 1291.12, 5300.83, 2.00)
        pt3dadd(4430.35, 1282.59, 5290.32, 2.00)
        pt3dadd(4433.84, 1281.10, 5286.90, 2.00)
        pt3dadd(4434.77, 1280.96, 5287.20, 2.00)
  }
  nakeaxon[60] {pt3dclear()
        pt3dadd(3818.96, 1361.73, 5039.28, 2.00)
        pt3dadd(3825.00, 1360.74, 5037.91, 2.00)
        pt3dadd(3902.44, 1359.81, 5036.02, 2.00)
        pt3dadd(3905.47, 1360.52, 5037.99, 2.00)
        pt3dadd(3919.89, 1363.72, 5042.02, 2.00)
        pt3dadd(3938.03, 1376.52, 5044.54, 2.00)
  }
}
proc geometry8() {
  nakeaxon[60] {
        pt3dadd(3963.84, 1383.32, 5048.25, 2.00)
        pt3dadd(3986.63, 1389.20, 5053.53, 2.00)
        pt3dadd(3990.35, 1388.82, 5053.18, 2.00)
        pt3dadd(3999.65, 1393.65, 5060.33, 2.00)
        pt3dadd(4008.96, 1400.23, 5064.12, 2.00)
        pt3dadd(4019.42, 1407.92, 5070.97, 2.00)
        pt3dadd(4020.82, 1409.99, 5073.93, 2.00)
        pt3dadd(4030.82, 1414.86, 5077.11, 2.00)
        pt3dadd(4039.65, 1421.04, 5079.81, 2.00)
        pt3dadd(4042.68, 1422.55, 5081.24, 2.00)
        pt3dadd(4047.33, 1427.29, 5080.01, 2.00)
        pt3dadd(4051.51, 1428.11, 5082.93, 2.00)
        pt3dadd(4057.33, 1433.77, 5085.57, 2.00)
        pt3dadd(4064.54, 1438.54, 5090.52, 2.00)
        pt3dadd(4061.98, 1439.61, 5083.94, 2.00)
        pt3dadd(4068.72, 1445.81, 5087.37, 2.00)
        pt3dadd(4082.44, 1457.14, 5087.21, 2.00)
        pt3dadd(4086.86, 1458.37, 5086.52, 2.00)
        pt3dadd(4089.65, 1461.13, 5085.26, 2.00)
        pt3dadd(4098.72, 1466.89, 5083.41, 2.00)
        pt3dadd(4102.44, 1467.25, 5083.04, 2.00)
        pt3dadd(4118.26, 1472.50, 5078.41, 2.00)
        pt3dadd(4121.05, 1471.76, 5078.43, 2.00)
        pt3dadd(4134.07, 1478.02, 5081.34, 2.00)
        pt3dadd(4140.58, 1483.90, 5081.18, 2.00)
        pt3dadd(4151.51, 1492.29, 5081.10, 2.00)
        pt3dadd(4155.00, 1492.96, 5081.60, 2.00)
        pt3dadd(4155.00, 1493.62, 5081.36, 2.00)
  }
  nakeaxon[61] {pt3dclear()
        pt3dadd(3767.56, 1373.86, 5049.47, 2.00)
        pt3dadd(3766.63, 1372.81, 5051.33, 2.00)
        pt3dadd(3772.21, 1370.30, 5056.70, 2.00)
        pt3dadd(3775.00, 1369.37, 5060.26, 2.00)
  }
  nakeaxon[62] {pt3dclear()
        pt3dadd(3775.00, 1369.37, 5060.26, 2.00)
        pt3dadd(3775.23, 1368.38, 5064.33, 2.00)
        pt3dadd(3783.37, 1363.08, 5069.48, 2.00)
        pt3dadd(3791.75, 1357.08, 5076.11, 2.00)
        pt3dadd(3803.84, 1352.79, 5083.37, 2.00)
        pt3dadd(3814.07, 1348.46, 5089.15, 2.00)
        pt3dadd(3828.02, 1348.38, 5099.82, 2.00)
        pt3dadd(3843.61, 1345.62, 5103.80, 2.00)
        pt3dadd(3859.19, 1342.78, 5107.55, 2.00)
        pt3dadd(3873.84, 1341.15, 5112.60, 2.00)
  }
  nakeaxon[63] {pt3dclear()
        pt3dadd(3873.84, 1341.15, 5112.60, 2.00)
        pt3dadd(3873.14, 1342.03, 5115.00, 2.00)
        pt3dadd(3869.65, 1332.79, 5129.75, 2.00)
        pt3dadd(3867.56, 1333.33, 5133.26, 2.00)
        pt3dadd(3861.51, 1328.78, 5144.57, 2.00)
        pt3dadd(3860.12, 1328.43, 5161.28, 2.00)
        pt3dadd(3857.56, 1327.28, 5173.08, 2.00)
        pt3dadd(3855.00, 1324.33, 5188.76, 2.00)
        pt3dadd(3852.91, 1326.20, 5203.42, 2.00)
        pt3dadd(3850.35, 1321.33, 5213.86, 2.00)
        pt3dadd(3850.82, 1318.44, 5231.74, 2.00)
        pt3dadd(3844.07, 1319.65, 5238.47, 2.00)
        pt3dadd(3844.07, 1319.87, 5238.39, 2.00)
  }
  nakeaxon[64] {pt3dclear()
        pt3dadd(3873.84, 1341.15, 5112.60, 2.00)
        pt3dadd(3878.96, 1340.91, 5111.94, 2.00)
        pt3dadd(3887.33, 1341.45, 5118.18, 2.00)
  }
  nakeaxon[65] {pt3dclear()
        pt3dadd(3887.33, 1341.45, 5118.18, 2.00)
        pt3dadd(3889.65, 1347.34, 5128.91, 2.00)
        pt3dadd(3900.58, 1351.85, 5140.63, 2.00)
        pt3dadd(3902.21, 1352.78, 5142.52, 2.00)
        pt3dadd(3903.61, 1354.24, 5147.19, 2.00)
        pt3dadd(3910.82, 1357.48, 5160.85, 2.00)
        pt3dadd(3918.49, 1360.44, 5169.68, 2.00)
        pt3dadd(3922.21, 1361.56, 5172.74, 2.00)
        pt3dadd(3924.30, 1361.95, 5173.83, 2.00)
        pt3dadd(3933.14, 1367.38, 5186.70, 2.00)
        pt3dadd(3934.30, 1368.18, 5188.89, 2.00)
        pt3dadd(3945.70, 1371.68, 5198.50, 2.00)
        pt3dadd(3959.42, 1376.39, 5214.85, 2.00)
        pt3dadd(3964.54, 1377.38, 5218.95, 2.00)
        pt3dadd(3975.24, 1383.21, 5227.47, 2.00)
        pt3dadd(3986.63, 1386.93, 5237.00, 2.00)
        pt3dadd(3986.63, 1387.76, 5237.94, 2.00)
        pt3dadd(3988.72, 1387.90, 5240.36, 2.00)
  }
  nakeaxon[66] {pt3dclear()
        pt3dadd(3988.72, 1387.90, 5240.36, 2.00)
        pt3dadd(3988.26, 1392.29, 5244.95, 2.00)
        pt3dadd(3991.28, 1399.17, 5251.60, 2.00)
        pt3dadd(3995.93, 1406.58, 5250.89, 2.00)
  }
  nakeaxon[67] {pt3dclear()
        pt3dadd(3988.72, 1387.90, 5240.36, 2.00)
        pt3dadd(4000.12, 1391.10, 5249.84, 2.00)
        pt3dadd(4005.47, 1392.73, 5250.23, 2.00)
        pt3dadd(4011.05, 1394.07, 5253.21, 2.00)
        pt3dadd(4022.68, 1394.96, 5250.91, 2.00)
        pt3dadd(4030.82, 1394.14, 5250.71, 2.00)
        pt3dadd(4036.16, 1393.07, 5251.84, 2.00)
        pt3dadd(4051.51, 1392.93, 5252.14, 2.00)
        pt3dadd(4054.07, 1393.25, 5253.02, 2.00)
        pt3dadd(4066.86, 1393.23, 5255.00, 2.00)
        pt3dadd(4076.63, 1392.20, 5263.05, 2.00)
        pt3dadd(4084.54, 1392.38, 5275.11, 2.00)
        pt3dadd(4097.56, 1394.39, 5281.31, 2.00)
        pt3dadd(4113.61, 1393.20, 5280.75, 2.00)
        pt3dadd(4115.70, 1393.91, 5282.72, 2.00)
        pt3dadd(4125.00, 1396.08, 5286.63, 2.00)
        pt3dadd(4135.00, 1401.88, 5286.25, 2.00)
        pt3dadd(4143.84, 1406.89, 5283.69, 2.00)
        pt3dadd(4148.49, 1408.52, 5284.09, 2.00)
        pt3dadd(4158.96, 1412.25, 5280.75, 2.00)
        pt3dadd(4166.16, 1414.28, 5279.52, 2.00)
        pt3dadd(4175.23, 1415.83, 5279.69, 2.00)
        pt3dadd(4180.82, 1418.03, 5282.35, 2.00)
        pt3dadd(4188.26, 1420.64, 5283.39, 2.00)
        pt3dadd(4193.61, 1420.56, 5283.17, 2.00)
        pt3dadd(4208.26, 1428.53, 5281.26, 2.00)
        pt3dadd(4222.91, 1429.40, 5283.66, 2.00)
        pt3dadd(4231.05, 1433.53, 5284.14, 2.00)
        pt3dadd(4245.23, 1437.37, 5279.03, 2.00)
        pt3dadd(4254.30, 1441.40, 5278.55, 2.00)
        pt3dadd(4253.37, 1439.00, 5279.43, 2.00)
  }
  nakeaxon[68] {pt3dclear()
        pt3dadd(3887.33, 1341.45, 5118.18, 2.00)
        pt3dadd(3902.68, 1336.29, 5123.03, 2.00)
        pt3dadd(3912.91, 1334.32, 5131.91, 2.00)
        pt3dadd(3921.98, 1334.78, 5132.49, 2.00)
        pt3dadd(3921.98, 1334.56, 5132.57, 2.00)
        pt3dadd(3924.54, 1334.68, 5136.98, 2.00)
        pt3dadd(3926.16, 1334.72, 5138.45, 2.00)
  }
  nakeaxon[69] {pt3dclear()
        pt3dadd(3926.16, 1334.72, 5138.45, 2.00)
        pt3dadd(3926.40, 1328.46, 5138.25, 2.00)
        pt3dadd(3935.24, 1325.62, 5131.12, 2.00)
        pt3dadd(3944.54, 1316.90, 5132.32, 2.00)
        pt3dadd(3956.63, 1314.21, 5125.62, 2.00)
        pt3dadd(3966.16, 1310.02, 5120.22, 2.00)
        pt3dadd(3966.40, 1307.70, 5118.59, 2.00)
        pt3dadd(3968.26, 1306.68, 5119.20, 2.00)
        pt3dadd(3980.82, 1298.10, 5109.21, 2.00)
        pt3dadd(3982.91, 1296.86, 5107.19, 2.00)
        pt3dadd(3984.30, 1293.09, 5103.61, 2.00)
        pt3dadd(3991.05, 1289.51, 5099.22, 2.00)
        pt3dadd(3991.98, 1288.24, 5098.45, 2.00)
  }
  nakeaxon[70] {pt3dclear()
        pt3dadd(3926.16, 1334.72, 5138.45, 2.00)
        pt3dadd(3936.40, 1332.08, 5146.84, 2.00)
        pt3dadd(3941.75, 1331.19, 5146.42, 2.00)
        pt3dadd(3951.51, 1328.11, 5149.52, 2.00)
        pt3dadd(3952.91, 1326.42, 5152.36, 2.00)
        pt3dadd(3957.09, 1326.03, 5153.99, 2.00)
  }
  nakeaxon[71] {pt3dclear()
        pt3dadd(3957.09, 1326.03, 5153.99, 2.00)
        pt3dadd(3959.19, 1322.77, 5158.64, 2.00)
        pt3dadd(3970.58, 1320.46, 5163.19, 2.00)
        pt3dadd(3974.77, 1321.60, 5166.99, 2.00)
        pt3dadd(3975.70, 1320.94, 5167.22, 2.00)
  }
  nakeaxon[72] {pt3dclear()
        pt3dadd(3975.70, 1320.94, 5167.22, 2.00)
        pt3dadd(3986.16, 1325.36, 5180.71, 2.00)
        pt3dadd(3995.47, 1329.85, 5188.98, 2.00)
        pt3dadd(3996.16, 1330.72, 5191.38, 2.00)
        pt3dadd(3997.33, 1332.87, 5194.56, 2.00)
        pt3dadd(4005.47, 1337.72, 5205.17, 2.00)
        pt3dadd(4014.30, 1340.41, 5214.58, 2.00)
        pt3dadd(4015.70, 1340.85, 5217.15, 2.00)
  }
}
proc geometry9() {
  nakeaxon[72] {
        pt3dadd(4015.00, 1340.19, 5217.39, 2.00)
  }
  nakeaxon[73] {pt3dclear()
        pt3dadd(4015.00, 1340.19, 5217.39, 2.00)
        pt3dadd(4025.47, 1347.41, 5231.09, 2.00)
        pt3dadd(4030.35, 1349.66, 5246.11, 2.00)
        pt3dadd(4036.63, 1351.81, 5260.18, 2.00)
        pt3dadd(4041.98, 1352.86, 5269.20, 2.00)
        pt3dadd(4047.33, 1357.20, 5279.75, 2.00)
        pt3dadd(4050.58, 1363.92, 5294.13, 2.00)
        pt3dadd(4053.37, 1363.80, 5303.33, 2.00)
        pt3dadd(4058.49, 1366.78, 5315.61, 2.00)
        pt3dadd(4061.98, 1368.04, 5318.37, 2.00)
        pt3dadd(4063.14, 1368.06, 5324.55, 2.00)
        pt3dadd(4065.00, 1367.52, 5326.48, 2.00)
        pt3dadd(4073.37, 1371.38, 5341.16, 2.00)
        pt3dadd(4082.44, 1378.26, 5361.42, 2.00)
        pt3dadd(4086.40, 1385.68, 5374.32, 2.00)
        pt3dadd(4090.12, 1387.87, 5384.41, 2.00)
        pt3dadd(4092.68, 1388.56, 5385.64, 2.00)
        pt3dadd(4092.44, 1388.88, 5389.24, 2.00)
        pt3dadd(4094.07, 1389.93, 5392.81, 2.00)
        pt3dadd(4099.89, 1396.38, 5407.79, 2.00)
        pt3dadd(4099.89, 1398.84, 5414.57, 2.00)
        pt3dadd(4103.14, 1401.61, 5421.48, 2.00)
        pt3dadd(4104.54, 1403.61, 5424.96, 2.00)
        pt3dadd(4105.24, 1409.89, 5436.78, 2.00)
        pt3dadd(4106.86, 1412.95, 5438.39, 2.00)
        pt3dadd(4116.16, 1421.20, 5441.32, 2.00)
        pt3dadd(4118.96, 1425.50, 5450.40, 2.00)
        pt3dadd(4111.05, 1426.37, 5460.97, 2.00)
        pt3dadd(4109.65, 1427.79, 5464.17, 2.00)
        pt3dadd(4112.44, 1432.40, 5474.12, 2.00)
        pt3dadd(4112.21, 1433.71, 5476.37, 2.00)
        pt3dadd(4108.96, 1440.23, 5491.57, 2.00)
        pt3dadd(4106.40, 1448.50, 5503.41, 2.00)
        pt3dadd(4103.84, 1455.46, 5521.17, 2.00)
        pt3dadd(4102.21, 1461.12, 5529.25, 2.00)
        pt3dadd(4105.00, 1461.03, 5531.02, 2.00)
  }
  nakeaxon[74] {pt3dclear()
        pt3dadd(4015.00, 1340.19, 5217.39, 2.00)
        pt3dadd(4017.56, 1336.08, 5220.37, 2.00)
        pt3dadd(4020.58, 1331.15, 5231.32, 2.00)
        pt3dadd(4022.91, 1328.81, 5245.29, 2.00)
        pt3dadd(4025.47, 1329.87, 5248.86, 2.00)
        pt3dadd(4025.70, 1329.69, 5253.13, 2.00)
        pt3dadd(4027.56, 1333.83, 5264.50, 2.00)
        pt3dadd(4031.28, 1335.54, 5273.28, 2.00)
        pt3dadd(4031.51, 1336.00, 5282.02, 2.00)
        pt3dadd(4033.14, 1335.86, 5285.04, 2.00)
        pt3dadd(4033.84, 1335.56, 5287.62, 2.00)
        pt3dadd(4033.84, 1334.65, 5289.19, 2.00)
        pt3dadd(4044.07, 1337.21, 5299.64, 2.00)
        pt3dadd(4049.42, 1336.14, 5306.22, 2.00)
        pt3dadd(4059.19, 1335.61, 5319.04, 2.00)
        pt3dadd(4062.44, 1336.09, 5320.35, 2.00)
        pt3dadd(4073.14, 1335.06, 5331.12, 2.00)
        pt3dadd(4081.51, 1341.02, 5342.06, 2.00)
        pt3dadd(4077.33, 1351.43, 5348.91, 2.00)
        pt3dadd(4078.26, 1357.10, 5354.28, 2.00)
  }
  nakeaxon[75] {pt3dclear()
        pt3dadd(3975.70, 1320.94, 5167.22, 2.00)
        pt3dadd(3982.91, 1320.09, 5168.28, 2.00)
        pt3dadd(3986.86, 1317.94, 5173.26, 2.00)
        pt3dadd(3997.56, 1316.22, 5177.36, 2.00)
        pt3dadd(3999.89, 1317.09, 5179.76, 2.00)
        pt3dadd(4012.21, 1313.95, 5186.10, 2.00)
        pt3dadd(4016.16, 1315.49, 5190.99, 2.00)
        pt3dadd(4025.24, 1313.60, 5202.81, 2.00)
        pt3dadd(4038.96, 1310.57, 5215.55, 2.00)
        pt3dadd(4041.98, 1307.90, 5220.48, 2.00)
        pt3dadd(4041.98, 1307.69, 5220.56, 2.00)
        pt3dadd(4056.16, 1305.12, 5226.44, 2.00)
        pt3dadd(4065.24, 1302.76, 5236.95, 2.00)
        pt3dadd(4072.68, 1302.05, 5245.87, 2.00)
        pt3dadd(4079.65, 1302.17, 5247.56, 2.00)
        pt3dadd(4087.79, 1301.40, 5259.72, 2.00)
        pt3dadd(4087.56, 1304.90, 5261.17, 2.00)
        pt3dadd(4090.35, 1305.77, 5263.57, 2.00)
        pt3dadd(4100.35, 1308.00, 5272.41, 2.00)
        pt3dadd(4102.68, 1311.02, 5275.27, 2.00)
        pt3dadd(4111.28, 1316.84, 5283.79, 2.00)
        pt3dadd(4117.56, 1322.01, 5289.83, 2.00)
        pt3dadd(4123.84, 1325.11, 5295.64, 2.00)
        pt3dadd(4134.54, 1330.66, 5310.20, 2.00)
        pt3dadd(4139.42, 1336.45, 5317.25, 2.00)
        pt3dadd(4141.75, 1342.09, 5327.32, 2.00)
        pt3dadd(4152.21, 1348.19, 5337.97, 2.00)
        pt3dadd(4164.07, 1355.59, 5350.13, 2.00)
  }
  nakeaxon[76] {pt3dclear()
        pt3dadd(3957.09, 1326.03, 5153.99, 2.00)
        pt3dadd(3970.12, 1326.50, 5149.86, 2.00)
        pt3dadd(3971.98, 1326.58, 5150.08, 2.00)
        pt3dadd(3985.70, 1325.57, 5147.97, 2.00)
        pt3dadd(3998.26, 1323.04, 5149.88, 2.00)
        pt3dadd(3998.96, 1323.26, 5149.80, 2.00)
  }
  nakeaxon[77] {pt3dclear()
        pt3dadd(3998.96, 1323.26, 5149.80, 2.00)
        pt3dadd(4009.65, 1315.87, 5143.09, 2.00)
        pt3dadd(4017.79, 1312.23, 5131.05, 2.00)
        pt3dadd(4021.75, 1311.08, 5126.52, 2.00)
        pt3dadd(4031.28, 1304.82, 5120.88, 2.00)
        pt3dadd(4033.37, 1306.82, 5118.91, 2.00)
        pt3dadd(4035.00, 1304.56, 5119.48, 2.00)
  }
  nakeaxon[78] {pt3dclear()
        pt3dadd(4035.00, 1304.56, 5119.48, 2.00)
        pt3dadd(4051.28, 1300.86, 5105.24, 2.00)
        pt3dadd(4067.10, 1299.48, 5100.79, 2.00)
        pt3dadd(4071.98, 1297.57, 5095.54, 2.00)
        pt3dadd(4078.72, 1295.92, 5091.69, 2.00)
        pt3dadd(4085.24, 1295.25, 5088.47, 2.00)
        pt3dadd(4087.33, 1294.93, 5087.60, 2.00)
        pt3dadd(4089.19, 1293.96, 5084.24, 2.00)
        pt3dadd(4091.98, 1291.67, 5084.08, 2.00)
        pt3dadd(4101.51, 1289.84, 5079.06, 2.00)
        pt3dadd(4103.37, 1289.30, 5078.26, 2.00)
        pt3dadd(4107.33, 1287.97, 5075.28, 2.00)
        pt3dadd(4124.54, 1284.95, 5066.98, 2.00)
        pt3dadd(4125.47, 1281.10, 5068.63, 2.00)
  }
  nakeaxon[79] {pt3dclear()
        pt3dadd(4035.00, 1304.56, 5119.48, 2.00)
        pt3dadd(4035.70, 1303.42, 5118.41, 2.00)
        pt3dadd(4049.42, 1296.69, 5119.63, 2.00)
        pt3dadd(4059.89, 1290.75, 5117.58, 2.00)
        pt3dadd(4062.44, 1290.03, 5115.61, 2.00)
        pt3dadd(4061.75, 1288.46, 5114.70, 2.00)
        pt3dadd(4073.84, 1281.90, 5114.37, 2.00)
        pt3dadd(4080.35, 1278.47, 5112.40, 2.00)
        pt3dadd(4090.35, 1271.53, 5111.70, 2.00)
        pt3dadd(4093.84, 1269.51, 5112.94, 2.00)
        pt3dadd(4094.77, 1269.29, 5113.02, 2.00)
        pt3dadd(4101.51, 1273.04, 5113.14, 2.00)
        pt3dadd(4112.91, 1269.13, 5118.02, 2.00)
        pt3dadd(4124.77, 1267.78, 5122.47, 2.00)
        pt3dadd(4134.77, 1263.09, 5128.64, 2.00)
        pt3dadd(4142.44, 1259.10, 5130.58, 2.00)
        pt3dadd(4144.30, 1259.24, 5133.01, 2.00)
        pt3dadd(4153.14, 1256.46, 5136.25, 2.00)
        pt3dadd(4162.21, 1254.23, 5141.02, 2.00)
        pt3dadd(4166.16, 1249.59, 5143.20, 2.00)
        pt3dadd(4168.72, 1249.37, 5148.73, 2.00)
        pt3dadd(4168.72, 1252.65, 5150.26, 2.00)
        pt3dadd(4173.14, 1250.05, 5160.11, 2.00)
        pt3dadd(4178.49, 1252.77, 5162.83, 2.00)
        pt3dadd(4192.91, 1253.93, 5172.81, 2.00)
        pt3dadd(4197.56, 1254.54, 5176.54, 2.00)
        pt3dadd(4216.63, 1257.25, 5181.25, 2.00)
        pt3dadd(4225.00, 1257.35, 5182.20, 2.00)
        pt3dadd(4242.44, 1256.23, 5184.59, 2.00)
        pt3dadd(4250.58, 1258.26, 5186.08, 2.00)
        pt3dadd(4267.10, 1257.51, 5193.53, 2.00)
        pt3dadd(4271.51, 1257.19, 5192.66, 2.00)
        pt3dadd(4279.19, 1255.86, 5195.12, 2.00)
        pt3dadd(4283.14, 1257.11, 5197.88, 2.00)
        pt3dadd(4298.26, 1255.37, 5209.41, 2.00)
        pt3dadd(4302.68, 1255.61, 5210.06, 2.00)
        pt3dadd(4313.84, 1256.94, 5215.76, 2.00)
        pt3dadd(4321.51, 1257.54, 5221.48, 2.00)
  }
}
proc geometry10() {
  nakeaxon[79] {
        pt3dadd(4322.91, 1256.68, 5225.26, 2.00)
        pt3dadd(4325.00, 1252.83, 5221.47, 2.00)
        pt3dadd(4328.49, 1253.78, 5224.09, 2.00)
        pt3dadd(4331.05, 1252.51, 5226.04, 2.00)
        pt3dadd(4332.68, 1252.12, 5227.66, 2.00)
        pt3dadd(4336.16, 1251.02, 5230.78, 2.00)
        pt3dadd(4340.58, 1251.98, 5233.41, 2.00)
        pt3dadd(4343.14, 1250.49, 5235.43, 2.00)
        pt3dadd(4345.70, 1250.09, 5237.06, 2.00)
        pt3dadd(4348.96, 1252.71, 5238.83, 2.00)
        pt3dadd(4352.68, 1251.70, 5242.17, 2.00)
        pt3dadd(4354.07, 1249.04, 5244.38, 2.00)
        pt3dadd(4358.72, 1248.68, 5247.47, 2.00)
        pt3dadd(4363.14, 1247.01, 5248.33, 2.00)
        pt3dadd(4365.93, 1245.35, 5249.18, 2.00)
        pt3dadd(4369.19, 1244.99, 5252.28, 2.00)
        pt3dadd(4371.75, 1243.06, 5254.47, 2.00)
        pt3dadd(4375.47, 1243.52, 5257.77, 2.00)
        pt3dadd(4378.26, 1243.82, 5257.91, 2.00)
        pt3dadd(4381.75, 1242.94, 5260.95, 2.00)
        pt3dadd(4383.37, 1243.34, 5262.04, 2.00)
        pt3dadd(4385.23, 1242.07, 5263.99, 2.00)
        pt3dadd(4389.65, 1242.55, 5265.30, 2.00)
        pt3dadd(4393.84, 1239.57, 5269.35, 2.00)
        pt3dadd(4395.47, 1240.01, 5271.92, 2.00)
        pt3dadd(4396.40, 1240.41, 5273.01, 2.00)
        pt3dadd(4397.33, 1241.72, 5272.53, 2.00)
        pt3dadd(4398.02, 1238.30, 5274.02, 2.00)
        pt3dadd(4402.68, 1237.07, 5274.72, 2.00)
        pt3dadd(4408.03, 1236.39, 5274.22, 2.00)
        pt3dadd(4411.51, 1236.07, 5273.35, 2.00)
        pt3dadd(4413.37, 1231.48, 5275.02, 2.00)
        pt3dadd(4417.09, 1233.79, 5273.19, 2.00)
        pt3dadd(4419.65, 1231.86, 5275.38, 2.00)
        pt3dadd(4424.07, 1231.43, 5278.26, 2.00)
        pt3dadd(4427.79, 1229.40, 5279.49, 2.00)
        pt3dadd(4430.12, 1228.57, 5281.28, 2.00)
        pt3dadd(4432.91, 1228.17, 5282.91, 2.00)
        pt3dadd(4434.54, 1223.36, 5287.38, 2.00)
        pt3dadd(4435.23, 1223.32, 5288.63, 2.00)
        pt3dadd(4435.23, 1221.10, 5290.68, 2.00)
  }
  nakeaxon[80] {pt3dclear()
        pt3dadd(3998.96, 1323.26, 5149.80, 2.00)
        pt3dadd(4009.65, 1323.94, 5153.02, 2.00)
        pt3dadd(4017.33, 1321.30, 5155.96, 2.00)
        pt3dadd(4035.93, 1320.80, 5159.36, 2.00)
        pt3dadd(4047.79, 1319.11, 5162.20, 2.00)
        pt3dadd(4048.26, 1320.38, 5162.97, 2.00)
  }
  nakeaxon[81] {pt3dclear()
        pt3dadd(4048.26, 1320.38, 5162.97, 2.00)
        pt3dadd(4048.72, 1321.72, 5165.95, 2.00)
        pt3dadd(4057.79, 1329.23, 5174.35, 2.00)
        pt3dadd(4068.49, 1335.39, 5184.49, 2.00)
        pt3dadd(4074.77, 1342.35, 5191.36, 2.00)
        pt3dadd(4078.03, 1346.94, 5197.85, 2.00)
        pt3dadd(4086.63, 1356.34, 5208.04, 2.00)
        pt3dadd(4095.47, 1363.32, 5210.21, 2.00)
        pt3dadd(4094.54, 1362.88, 5210.37, 2.00)
  }
  nakeaxon[82] {pt3dclear()
        pt3dadd(4048.26, 1320.38, 5162.97, 2.00)
        pt3dadd(4059.89, 1319.39, 5167.05, 2.00)
        pt3dadd(4062.44, 1318.30, 5167.44, 2.00)
        pt3dadd(4072.68, 1318.68, 5175.97, 2.00)
        pt3dadd(4083.14, 1318.92, 5182.07, 2.00)
        pt3dadd(4095.23, 1319.02, 5188.46, 2.00)
        pt3dadd(4099.65, 1320.53, 5192.62, 2.00)
        pt3dadd(4100.58, 1318.39, 5194.88, 2.00)
  }
  nakeaxon[83] {pt3dclear()
        pt3dadd(4100.58, 1318.39, 5194.88, 2.00)
        pt3dadd(4101.28, 1318.17, 5197.68, 2.00)
        pt3dadd(4113.37, 1317.46, 5203.88, 2.00)
        pt3dadd(4122.91, 1307.11, 5210.12, 2.00)
        pt3dadd(4123.84, 1306.01, 5210.52, 2.00)
        pt3dadd(4123.84, 1307.11, 5210.12, 2.00)
        pt3dadd(4128.72, 1306.55, 5211.32, 2.00)
        pt3dadd(4131.98, 1303.61, 5214.12, 2.00)
        pt3dadd(4133.84, 1300.83, 5217.36, 2.00)
        pt3dadd(4146.63, 1300.52, 5232.82, 2.00)
        pt3dadd(4153.14, 1296.23, 5237.35, 2.00)
        pt3dadd(4166.86, 1294.24, 5242.77, 2.00)
        pt3dadd(4179.89, 1291.96, 5248.06, 2.00)
        pt3dadd(4184.54, 1290.94, 5248.68, 2.00)
        pt3dadd(4192.91, 1289.51, 5252.91, 2.00)
        pt3dadd(4203.14, 1284.65, 5257.90, 2.00)
        pt3dadd(4207.10, 1285.07, 5262.45, 2.00)
        pt3dadd(4215.23, 1276.61, 5267.75, 2.00)
        pt3dadd(4216.40, 1274.62, 5270.46, 2.00)
        pt3dadd(4217.09, 1274.92, 5270.60, 2.00)
        pt3dadd(4222.44, 1269.47, 5273.32, 2.00)
        pt3dadd(4225.93, 1267.81, 5276.89, 2.00)
        pt3dadd(4227.33, 1268.68, 5279.30, 2.00)
        pt3dadd(4230.12, 1263.62, 5282.38, 2.00)
        pt3dadd(4231.75, 1263.44, 5286.65, 2.00)
        pt3dadd(4232.44, 1258.63, 5288.40, 2.00)
        pt3dadd(4235.00, 1259.72, 5290.73, 2.00)
        pt3dadd(4236.86, 1257.80, 5292.91, 2.00)
        pt3dadd(4241.05, 1257.00, 5296.17, 2.00)
        pt3dadd(4242.91, 1256.35, 5296.41, 2.00)
        pt3dadd(4246.16, 1255.47, 5299.45, 2.00)
        pt3dadd(4251.28, 1253.45, 5303.40, 2.00)
        pt3dadd(4253.14, 1250.83, 5307.08, 2.00)
        pt3dadd(4251.98, 1248.96, 5308.75, 2.00)
        pt3dadd(4254.77, 1247.43, 5312.03, 2.00)
        pt3dadd(4258.02, 1248.60, 5314.57, 2.00)
        pt3dadd(4259.89, 1247.55, 5316.44, 2.00)
        pt3dadd(4258.72, 1244.81, 5321.15, 2.00)
        pt3dadd(4261.05, 1245.25, 5323.71, 2.00)
        pt3dadd(4262.68, 1245.47, 5326.36, 2.00)
        pt3dadd(4263.37, 1245.91, 5328.92, 2.00)
        pt3dadd(4265.23, 1243.64, 5332.22, 2.00)
        pt3dadd(4266.63, 1241.24, 5335.81, 2.00)
        pt3dadd(4269.42, 1238.74, 5338.46, 2.00)
        pt3dadd(4270.35, 1238.52, 5338.54, 2.00)
        pt3dadd(4270.35, 1238.30, 5338.62, 2.00)
  }
  nakeaxon[84] {pt3dclear()
        pt3dadd(4100.58, 1318.39, 5194.88, 2.00)
        pt3dadd(4106.40, 1320.26, 5198.66, 2.00)
        pt3dadd(4111.28, 1322.70, 5204.70, 2.00)
        pt3dadd(4115.47, 1329.91, 5204.79, 2.00)
        pt3dadd(4125.47, 1339.91, 5212.54, 2.00)
        pt3dadd(4133.14, 1352.51, 5224.04, 2.00)
        pt3dadd(4139.89, 1365.47, 5237.88, 2.00)
        pt3dadd(4140.58, 1365.87, 5238.98, 2.00)
        pt3dadd(4143.61, 1369.11, 5244.48, 2.00)
        pt3dadd(4147.10, 1373.08, 5247.24, 2.00)
        pt3dadd(4152.21, 1374.65, 5250.88, 2.00)
        pt3dadd(4154.54, 1376.04, 5253.34, 2.00)
        pt3dadd(4163.37, 1379.26, 5255.38, 2.00)
        pt3dadd(4163.37, 1380.36, 5254.99, 2.00)
        pt3dadd(4166.16, 1375.71, 5254.45, 2.00)
        pt3dadd(4168.26, 1376.50, 5256.64, 2.00)
        pt3dadd(4172.68, 1383.56, 5256.30, 2.00)
        pt3dadd(4176.86, 1382.96, 5261.46, 2.00)
        pt3dadd(4181.51, 1387.83, 5264.64, 2.00)
        pt3dadd(4184.54, 1388.98, 5266.45, 2.00)
        pt3dadd(4194.07, 1396.30, 5278.39, 2.00)
        pt3dadd(4198.03, 1397.97, 5280.26, 2.00)
        pt3dadd(4202.68, 1402.10, 5283.45, 2.00)
        pt3dadd(4206.40, 1403.08, 5286.81, 2.00)
        pt3dadd(4220.82, 1408.86, 5296.58, 2.00)
        pt3dadd(4222.68, 1409.95, 5296.19, 2.00)
        pt3dadd(4228.02, 1412.56, 5297.22, 2.00)
        pt3dadd(4231.75, 1414.62, 5300.18, 2.00)
        pt3dadd(4233.14, 1421.68, 5305.28, 2.00)
        pt3dadd(4237.10, 1428.00, 5307.69, 2.00)
        pt3dadd(4242.91, 1432.31, 5312.05, 2.00)
        pt3dadd(4243.84, 1434.71, 5311.18, 2.00)
  }
  nakeaxon[85] {pt3dclear()
        pt3dadd(3775.00, 1369.37, 5060.26, 2.00)
        pt3dadd(3775.23, 1370.03, 5060.02, 2.00)
        pt3dadd(3833.61, 1378.89, 5083.02, 2.00)
        pt3dadd(3839.19, 1379.99, 5088.07, 2.00)
        pt3dadd(3842.91, 1382.30, 5094.41, 2.00)
        pt3dadd(3852.91, 1387.27, 5103.98, 2.00)
        pt3dadd(3859.89, 1393.75, 5112.26, 2.00)
        pt3dadd(3867.79, 1396.35, 5121.46, 2.00)
  }
}
proc geometry11() {
  nakeaxon[85] {
        pt3dadd(3872.21, 1397.78, 5125.40, 2.00)
        pt3dadd(3881.98, 1402.10, 5135.21, 2.00)
        pt3dadd(3894.77, 1403.95, 5146.42, 2.00)
        pt3dadd(3903.84, 1407.33, 5151.62, 2.00)
        pt3dadd(3907.56, 1408.74, 5160.26, 2.00)
        pt3dadd(3913.14, 1411.54, 5165.93, 2.00)
        pt3dadd(3916.16, 1412.84, 5167.44, 2.00)
        pt3dadd(3923.37, 1415.78, 5178.24, 2.00)
        pt3dadd(3937.09, 1422.82, 5190.78, 2.00)
        pt3dadd(3944.54, 1429.83, 5202.58, 2.00)
        pt3dadd(3949.42, 1433.95, 5213.21, 2.00)
        pt3dadd(3949.65, 1436.41, 5219.98, 2.00)
        pt3dadd(3955.24, 1444.09, 5236.99, 2.00)
        pt3dadd(3963.14, 1451.66, 5244.87, 2.00)
        pt3dadd(3964.54, 1452.99, 5247.85, 2.00)
        pt3dadd(3977.33, 1450.12, 5255.58, 2.00)
        pt3dadd(3984.30, 1450.56, 5263.59, 2.00)
        pt3dadd(3984.30, 1452.62, 5269.27, 2.00)
        pt3dadd(3984.77, 1452.98, 5271.61, 2.00)
        pt3dadd(3986.63, 1463.40, 5283.91, 2.00)
        pt3dadd(3996.40, 1467.63, 5293.51, 2.00)
        pt3dadd(4006.17, 1472.12, 5301.77, 2.00)
        pt3dadd(4018.49, 1475.88, 5310.06, 2.00)
        pt3dadd(4024.30, 1480.69, 5316.47, 2.00)
        pt3dadd(4026.16, 1481.23, 5317.27, 2.00)
        pt3dadd(4034.07, 1484.39, 5319.83, 2.00)
        pt3dadd(4051.51, 1487.77, 5325.03, 2.00)
        pt3dadd(4056.16, 1488.46, 5326.26, 2.00)
        pt3dadd(4063.84, 1487.51, 5329.09, 2.00)
        pt3dadd(4073.84, 1489.80, 5334.69, 2.00)
        pt3dadd(4073.84, 1490.23, 5334.53, 2.00)
  }
  nakeaxon[86] {pt3dclear()
        pt3dadd(3364.07, 1460.85, 5123.23, 2.00)
        pt3dadd(3362.44, 1462.20, 5126.95, 2.00)
        pt3dadd(3355.70, 1457.65, 5132.81, 2.00)
        pt3dadd(3355.70, 1457.43, 5132.89, 2.00)
  }
  nakeaxon[87] {pt3dclear()
        pt3dadd(3189.89, 1505.43, 5174.32, 2.00)
        pt3dadd(3189.65, 1512.40, 5190.10, 2.00)
        pt3dadd(3186.16, 1517.02, 5202.77, 2.00)
        pt3dadd(3188.96, 1523.60, 5217.45, 2.00)
        pt3dadd(3192.21, 1525.81, 5222.84, 2.00)
  }
  nakeaxon[88] {pt3dclear()
        pt3dadd(3192.21, 1525.81, 5222.84, 2.00)
        pt3dadd(3194.07, 1523.82, 5220.09, 2.00)
        pt3dadd(3211.75, 1520.68, 5218.27, 2.00)
        pt3dadd(3216.40, 1518.69, 5220.97, 2.00)
        pt3dadd(3222.91, 1519.59, 5221.39, 2.00)
        pt3dadd(3234.77, 1520.24, 5223.87, 2.00)
        pt3dadd(3247.09, 1519.95, 5231.90, 2.00)
        pt3dadd(3257.10, 1520.96, 5242.17, 2.00)
        pt3dadd(3267.33, 1521.44, 5248.93, 2.00)
        pt3dadd(3284.54, 1527.78, 5260.23, 2.00)
        pt3dadd(3285.00, 1527.74, 5264.20, 2.00)
        pt3dadd(3295.24, 1528.18, 5266.77, 2.00)
        pt3dadd(3300.12, 1531.05, 5271.91, 2.00)
        pt3dadd(3312.21, 1532.50, 5276.58, 2.00)
        pt3dadd(3323.61, 1535.48, 5283.41, 2.00)
        pt3dadd(3327.56, 1535.80, 5284.29, 2.00)
        pt3dadd(3336.86, 1534.27, 5290.29, 2.00)
        pt3dadd(3349.19, 1535.33, 5299.31, 2.00)
        pt3dadd(3352.44, 1537.53, 5304.69, 2.00)
        pt3dadd(3355.24, 1536.50, 5307.30, 2.00)
        pt3dadd(3357.56, 1536.16, 5311.13, 2.00)
        pt3dadd(3364.30, 1534.02, 5318.84, 2.00)
        pt3dadd(3365.47, 1534.12, 5322.52, 2.00)
        pt3dadd(3374.54, 1533.88, 5321.86, 2.00)
        pt3dadd(3383.37, 1538.00, 5329.77, 2.00)
        pt3dadd(3389.89, 1539.21, 5333.78, 2.00)
        pt3dadd(3396.63, 1542.03, 5337.45, 2.00)
        pt3dadd(3399.65, 1542.35, 5338.33, 2.00)
        pt3dadd(3411.98, 1543.76, 5346.97, 2.00)
        pt3dadd(3418.03, 1547.90, 5358.34, 2.00)
        pt3dadd(3423.37, 1546.87, 5358.22, 2.00)
        pt3dadd(3431.05, 1553.75, 5373.04, 2.00)
        pt3dadd(3432.91, 1553.85, 5376.71, 2.00)
        pt3dadd(3439.42, 1558.38, 5391.89, 2.00)
        pt3dadd(3442.44, 1565.02, 5406.05, 2.00)
        pt3dadd(3446.40, 1570.75, 5416.34, 2.00)
        pt3dadd(3449.89, 1571.28, 5417.14, 2.00)
        pt3dadd(3456.63, 1572.97, 5422.46, 2.00)
        pt3dadd(3456.86, 1578.86, 5433.19, 2.00)
        pt3dadd(3456.86, 1579.08, 5433.11, 2.00)
  }
  nakeaxon[89] {pt3dclear()
        pt3dadd(3456.86, 1579.08, 5433.11, 2.00)
        pt3dadd(3461.05, 1582.91, 5438.89, 2.00)
        pt3dadd(3469.42, 1584.84, 5450.32, 2.00)
        pt3dadd(3467.79, 1586.12, 5453.81, 2.00)
        pt3dadd(3474.07, 1590.13, 5463.49, 2.00)
        pt3dadd(3473.61, 1592.46, 5467.84, 2.00)
        pt3dadd(3477.56, 1600.11, 5478.66, 2.00)
        pt3dadd(3478.96, 1603.23, 5482.48, 2.00)
        pt3dadd(3481.75, 1609.42, 5501.51, 2.00)
        pt3dadd(3481.75, 1616.06, 5518.40, 2.00)
        pt3dadd(3483.84, 1617.13, 5522.71, 2.00)
        pt3dadd(3484.30, 1619.68, 5529.70, 2.00)
        pt3dadd(3485.93, 1627.59, 5544.64, 2.00)
        pt3dadd(3485.23, 1631.11, 5554.99, 2.00)
        pt3dadd(3485.70, 1633.18, 5560.67, 2.00)
        pt3dadd(3484.54, 1643.10, 5576.37, 2.00)
        pt3dadd(3488.49, 1646.22, 5580.18, 2.00)
        pt3dadd(3495.93, 1654.84, 5591.64, 2.00)
        pt3dadd(3501.75, 1657.92, 5593.99, 2.00)
        pt3dadd(3501.98, 1658.10, 5595.16, 2.00)
        pt3dadd(3510.82, 1665.12, 5598.79, 2.00)
        pt3dadd(3519.19, 1671.60, 5609.80, 2.00)
        pt3dadd(3519.89, 1672.00, 5610.89, 2.00)
        pt3dadd(3527.79, 1679.29, 5616.65, 2.00)
        pt3dadd(3531.05, 1682.29, 5618.78, 2.00)
        pt3dadd(3535.93, 1686.24, 5623.52, 2.00)
        pt3dadd(3538.03, 1687.91, 5625.39, 2.00)
        pt3dadd(3542.68, 1692.91, 5638.42, 2.00)
        pt3dadd(3542.68, 1697.08, 5648.53, 2.00)
        pt3dadd(3542.44, 1698.75, 5653.12, 2.00)
        pt3dadd(3542.68, 1699.81, 5656.70, 2.00)
        pt3dadd(3541.51, 1705.10, 5672.59, 2.00)
        pt3dadd(3539.89, 1706.85, 5677.40, 2.00)
        pt3dadd(3539.65, 1708.91, 5683.08, 2.00)
        pt3dadd(3542.21, 1711.70, 5690.73, 2.00)
        pt3dadd(3542.91, 1713.29, 5697.82, 2.00)
        pt3dadd(3543.84, 1717.25, 5708.01, 2.00)
        pt3dadd(3549.89, 1723.83, 5719.97, 2.00)
        pt3dadd(3551.28, 1727.78, 5724.72, 2.00)
        pt3dadd(3554.07, 1728.85, 5718.14, 2.00)
        pt3dadd(3553.14, 1733.28, 5724.20, 2.00)
        pt3dadd(3555.93, 1737.80, 5727.76, 2.00)
        pt3dadd(3555.93, 1738.19, 5728.85, 2.00)
        pt3dadd(3555.00, 1743.10, 5733.50, 2.00)
        pt3dadd(3558.49, 1744.48, 5740.67, 2.00)
        pt3dadd(3559.42, 1745.27, 5742.86, 2.00)
        pt3dadd(3565.70, 1742.47, 5742.64, 2.00)
        pt3dadd(3571.05, 1746.21, 5750.19, 2.00)
        pt3dadd(3573.84, 1746.35, 5755.33, 2.00)
        pt3dadd(3580.12, 1740.78, 5750.92, 2.00)
        pt3dadd(3583.14, 1738.50, 5758.93, 2.00)
        pt3dadd(3587.10, 1737.55, 5761.75, 2.00)
        pt3dadd(3601.75, 1734.73, 5766.24, 2.00)
        pt3dadd(3604.77, 1734.57, 5771.25, 2.00)
        pt3dadd(3608.49, 1734.23, 5772.36, 2.00)
        pt3dadd(3614.07, 1732.29, 5773.82, 2.00)
        pt3dadd(3617.09, 1726.86, 5771.83, 2.00)
        pt3dadd(3621.75, 1721.00, 5764.56, 2.00)
        pt3dadd(3622.68, 1718.95, 5765.06, 2.00)
        pt3dadd(3622.68, 1719.17, 5764.98, 2.00)
  }
  nakeaxon[90] {pt3dclear()
        pt3dadd(3456.86, 1579.08, 5433.11, 2.00)
        pt3dadd(3456.40, 1582.45, 5435.59, 2.00)
        pt3dadd(3461.75, 1589.35, 5442.98, 2.00)
        pt3dadd(3463.84, 1592.00, 5445.49, 2.00)
        pt3dadd(3471.51, 1602.21, 5450.43, 2.00)
        pt3dadd(3471.98, 1604.24, 5454.64, 2.00)
        pt3dadd(3474.30, 1611.03, 5458.36, 2.00)
        pt3dadd(3475.47, 1624.49, 5468.80, 2.00)
        pt3dadd(3474.77, 1636.01, 5470.55, 2.00)
  }
  nakeaxon[91] {pt3dclear()
        pt3dadd(3474.77, 1636.01, 5470.55, 2.00)
  }
}
proc geometry12() {
  nakeaxon[91] {
        pt3dadd(3480.12, 1637.88, 5466.16, 2.00)
        pt3dadd(3480.12, 1638.10, 5466.08, 2.00)
        pt3dadd(3487.33, 1636.11, 5457.89, 2.00)
        pt3dadd(3497.09, 1634.51, 5448.08, 2.00)
        pt3dadd(3500.82, 1634.59, 5445.57, 2.00)
        pt3dadd(3503.37, 1630.96, 5441.70, 2.00)
  }
  nakeaxon[92] {pt3dclear()
        pt3dadd(3474.77, 1636.01, 5470.55, 2.00)
        pt3dadd(3472.21, 1638.72, 5477.98, 2.00)
        pt3dadd(3473.37, 1643.09, 5479.11, 2.00)
        pt3dadd(3472.91, 1646.74, 5478.27, 2.00)
        pt3dadd(3466.63, 1656.94, 5479.76, 2.00)
        pt3dadd(3463.14, 1665.78, 5482.98, 2.00)
        pt3dadd(3458.72, 1669.81, 5485.22, 2.00)
        pt3dadd(3456.86, 1680.80, 5488.89, 2.00)
        pt3dadd(3454.07, 1682.29, 5492.31, 2.00)
        pt3dadd(3452.44, 1686.15, 5493.38, 2.00)
        pt3dadd(3448.72, 1695.61, 5497.61, 2.00)
        pt3dadd(3446.16, 1702.92, 5504.11, 2.00)
        pt3dadd(3442.44, 1708.15, 5512.35, 2.00)
        pt3dadd(3438.72, 1711.15, 5509.03, 2.00)
        pt3dadd(3435.00, 1718.80, 5514.41, 2.00)
        pt3dadd(3431.51, 1729.51, 5515.96, 2.00)
        pt3dadd(3430.35, 1733.58, 5519.67, 2.00)
        pt3dadd(3428.72, 1735.81, 5520.35, 2.00)
        pt3dadd(3429.19, 1739.84, 5525.31, 2.00)
        pt3dadd(3430.58, 1743.22, 5530.52, 2.00)
        pt3dadd(3437.09, 1754.67, 5532.05, 2.00)
        pt3dadd(3438.26, 1755.80, 5533.12, 2.00)
        pt3dadd(3438.26, 1758.16, 5533.49, 2.00)
        pt3dadd(3443.61, 1761.28, 5531.86, 2.00)
        pt3dadd(3446.40, 1764.18, 5533.04, 2.00)
        pt3dadd(3449.42, 1766.87, 5537.01, 2.00)
        pt3dadd(3454.54, 1773.37, 5543.31, 2.00)
        pt3dadd(3457.79, 1777.76, 5547.89, 2.00)
        pt3dadd(3465.70, 1785.55, 5547.53, 2.00)
        pt3dadd(3466.40, 1791.45, 5548.11, 2.00)
        pt3dadd(3467.33, 1797.97, 5552.42, 2.00)
        pt3dadd(3468.26, 1801.38, 5553.65, 2.00)
        pt3dadd(3468.96, 1811.02, 5559.05, 2.00)
        pt3dadd(3466.86, 1816.85, 5562.13, 2.00)
        pt3dadd(3468.49, 1827.14, 5570.01, 2.00)
        pt3dadd(3465.47, 1835.50, 5574.64, 2.00)
        pt3dadd(3469.19, 1846.10, 5579.94, 2.00)
        pt3dadd(3472.44, 1852.75, 5581.23, 2.00)
        pt3dadd(3473.14, 1853.77, 5583.34, 2.00)
        pt3dadd(3474.77, 1859.55, 5587.67, 2.00)
        pt3dadd(3482.91, 1868.47, 5593.82, 2.00)
        pt3dadd(3482.91, 1872.37, 5596.37, 2.00)
        pt3dadd(3480.58, 1882.14, 5601.47, 2.00)
        pt3dadd(3480.58, 1883.67, 5600.91, 2.00)
        pt3dadd(3477.56, 1893.13, 5607.86, 2.00)
        pt3dadd(3476.40, 1898.02, 5611.78, 2.00)
        pt3dadd(3476.63, 1907.96, 5620.04, 2.00)
        pt3dadd(3476.40, 1909.71, 5622.12, 2.00)
        pt3dadd(3477.33, 1913.52, 5627.17, 2.00)
        pt3dadd(3478.26, 1919.27, 5632.75, 2.00)
        pt3dadd(3478.96, 1920.94, 5634.62, 2.00)
        pt3dadd(3477.79, 1923.86, 5636.53, 2.00)
        pt3dadd(3479.19, 1927.20, 5637.54, 2.00)
        pt3dadd(3479.89, 1929.52, 5639.17, 2.00)
        pt3dadd(3480.12, 1936.32, 5642.88, 2.00)
        pt3dadd(3475.70, 1941.72, 5646.85, 2.00)
        pt3dadd(3477.09, 1943.36, 5649.97, 2.00)
        pt3dadd(3472.68, 1946.93, 5657.08, 2.00)
        pt3dadd(3473.61, 1955.94, 5671.62, 2.00)
        pt3dadd(3472.21, 1957.55, 5674.01, 2.00)
        pt3dadd(3479.42, 1968.48, 5678.20, 2.00)
        pt3dadd(3487.56, 1968.08, 5677.11, 2.00)
        pt3dadd(3487.56, 1966.77, 5677.58, 2.00)
  }
  nakeaxon[93] {pt3dclear()
        pt3dadd(3192.21, 1525.81, 5222.84, 2.00)
        pt3dadd(3195.70, 1529.71, 5241.71, 2.00)
        pt3dadd(3194.77, 1536.43, 5258.82, 2.00)
        pt3dadd(3198.03, 1540.46, 5277.39, 2.00)
        pt3dadd(3197.79, 1546.45, 5294.52, 2.00)
        pt3dadd(3199.89, 1554.94, 5314.44, 2.00)
        pt3dadd(3202.21, 1559.14, 5330.73, 2.00)
        pt3dadd(3200.58, 1560.61, 5338.86, 2.00)
  }
  nakeaxon[94] {pt3dclear()
        pt3dadd(3200.58, 1560.61, 5338.86, 2.00)
        pt3dadd(3188.96, 1557.83, 5344.82, 2.00)
        pt3dadd(3185.70, 1557.14, 5349.03, 2.00)
        pt3dadd(3175.23, 1559.59, 5363.24, 2.00)
        pt3dadd(3165.70, 1559.85, 5378.24, 2.00)
        pt3dadd(3163.37, 1561.16, 5383.21, 2.00)
        pt3dadd(3149.19, 1564.92, 5405.10, 2.00)
        pt3dadd(3140.58, 1569.18, 5420.88, 2.00)
        pt3dadd(3132.91, 1572.90, 5433.13, 2.00)
        pt3dadd(3127.56, 1578.42, 5446.96, 2.00)
        pt3dadd(3117.09, 1583.86, 5470.72, 2.00)
        pt3dadd(3108.96, 1587.60, 5489.16, 2.00)
        pt3dadd(3104.30, 1590.22, 5499.09, 2.00)
        pt3dadd(3107.33, 1590.12, 5506.31, 2.00)
        pt3dadd(3103.61, 1590.25, 5513.44, 2.00)
        pt3dadd(3098.26, 1592.08, 5529.35, 2.00)
        pt3dadd(3094.30, 1594.78, 5539.50, 2.00)
        pt3dadd(3088.72, 1595.31, 5555.90, 2.00)
        pt3dadd(3087.33, 1595.31, 5558.62, 2.00)
        pt3dadd(3085.93, 1598.11, 5567.00, 2.00)
        pt3dadd(3085.47, 1597.71, 5568.63, 2.00)
        pt3dadd(3080.58, 1599.03, 5584.49, 2.00)
        pt3dadd(3079.19, 1599.90, 5586.89, 2.00)
        pt3dadd(3075.47, 1601.14, 5594.36, 2.00)
        pt3dadd(3074.54, 1600.05, 5594.76, 2.00)
  }
  nakeaxon[95] {pt3dclear()
        pt3dadd(3074.54, 1600.05, 5594.76, 2.00)
        pt3dadd(3070.35, 1602.33, 5597.64, 2.00)
        pt3dadd(3062.68, 1606.25, 5606.36, 2.00)
        pt3dadd(3054.54, 1611.74, 5621.44, 2.00)
        pt3dadd(3044.54, 1616.95, 5631.67, 2.00)
        pt3dadd(3039.19, 1619.69, 5637.85, 2.00)
        pt3dadd(3028.49, 1622.75, 5650.34, 2.00)
        pt3dadd(3025.70, 1624.26, 5654.50, 2.00)
        pt3dadd(3020.58, 1626.97, 5661.93, 2.00)
        pt3dadd(3016.86, 1630.37, 5670.59, 2.00)
        pt3dadd(3014.30, 1629.49, 5673.63, 2.00)
        pt3dadd(3004.54, 1633.14, 5691.11, 2.00)
        pt3dadd(3002.68, 1633.18, 5698.03, 2.00)
        pt3dadd(2993.14, 1634.95, 5711.73, 2.00)
        pt3dadd(2989.89, 1639.76, 5723.60, 2.00)
        pt3dadd(2988.96, 1648.35, 5739.03, 2.00)
        pt3dadd(2988.96, 1650.89, 5743.30, 2.00)
        pt3dadd(2989.65, 1656.30, 5752.72, 2.00)
        pt3dadd(2988.03, 1663.04, 5762.39, 2.00)
        pt3dadd(2987.79, 1665.58, 5766.66, 2.00)
        pt3dadd(2983.14, 1672.11, 5781.86, 2.00)
        pt3dadd(2981.75, 1672.98, 5784.27, 2.00)
        pt3dadd(2976.63, 1679.01, 5800.14, 2.00)
        pt3dadd(2975.24, 1680.06, 5803.71, 2.00)
        pt3dadd(2973.14, 1683.84, 5818.18, 2.00)
        pt3dadd(2970.35, 1687.82, 5829.10, 2.00)
        pt3dadd(2971.75, 1688.57, 5832.54, 2.00)
        pt3dadd(2972.21, 1692.21, 5833.69, 2.00)
  }
  nakeaxon[96] {pt3dclear()
        pt3dadd(2972.21, 1692.21, 5833.69, 2.00)
        pt3dadd(2971.28, 1691.63, 5834.15, 2.00)
  }
  nakeaxon[97] {pt3dclear()
        pt3dadd(2971.28, 1691.63, 5834.15, 2.00)
        pt3dadd(2970.35, 1691.19, 5834.31, 2.00)
        pt3dadd(2970.35, 1691.41, 5834.23, 2.00)
  }
  nakeaxon[98] {pt3dclear()
        pt3dadd(2971.28, 1691.63, 5834.15, 2.00)
        pt3dadd(2977.56, 1691.24, 5833.06, 2.00)
        pt3dadd(2988.03, 1697.99, 5832.58, 2.00)
        pt3dadd(2988.26, 1699.12, 5833.65, 2.00)
        pt3dadd(2988.72, 1700.53, 5836.85, 2.00)
        pt3dadd(2992.44, 1708.09, 5841.28, 2.00)
        pt3dadd(2993.84, 1711.11, 5838.69, 2.00)
        pt3dadd(2998.72, 1713.67, 5840.98, 2.00)
        pt3dadd(3001.98, 1717.33, 5848.31, 2.00)
        pt3dadd(3005.23, 1720.23, 5852.20, 2.00)
        pt3dadd(3005.00, 1728.81, 5856.75, 2.00)
        pt3dadd(3008.26, 1735.09, 5863.12, 2.00)
        pt3dadd(3008.03, 1737.50, 5867.69, 2.00)
        pt3dadd(3008.26, 1741.81, 5880.23, 2.00)
        pt3dadd(3011.28, 1745.51, 5886.31, 2.00)
  }
}
proc geometry13() {
  nakeaxon[98] {
        pt3dadd(3015.24, 1751.67, 5896.44, 2.00)
        pt3dadd(3013.84, 1753.82, 5902.34, 2.00)
        pt3dadd(3013.84, 1758.00, 5912.45, 2.00)
        pt3dadd(3012.68, 1760.76, 5916.64, 2.00)
        pt3dadd(3013.84, 1765.87, 5928.64, 2.00)
        pt3dadd(3014.77, 1769.57, 5932.00, 2.00)
        pt3dadd(3015.24, 1772.03, 5938.77, 2.00)
        pt3dadd(3019.19, 1779.25, 5952.48, 2.00)
        pt3dadd(3023.14, 1783.52, 5963.55, 2.00)
        pt3dadd(3023.14, 1784.14, 5964.56, 2.00)
        pt3dadd(3021.75, 1792.09, 5978.25, 2.00)
        pt3dadd(3022.21, 1795.69, 5983.37, 2.00)
        pt3dadd(3022.21, 1796.56, 5983.06, 2.00)
  }
  nakeaxon[99] {pt3dclear()
        pt3dadd(2972.21, 1692.21, 5833.69, 2.00)
        pt3dadd(2973.61, 1693.76, 5836.59, 2.00)
        pt3dadd(2970.58, 1696.76, 5838.72, 2.00)
        pt3dadd(2963.61, 1708.80, 5848.69, 2.00)
        pt3dadd(2959.65, 1713.85, 5844.87, 2.00)
        pt3dadd(2956.16, 1714.80, 5847.49, 2.00)
        pt3dadd(2953.84, 1716.73, 5850.75, 2.00)
        pt3dadd(2949.19, 1722.42, 5856.85, 2.00)
        pt3dadd(2940.58, 1734.62, 5869.98, 2.00)
        pt3dadd(2938.49, 1744.83, 5883.09, 2.00)
        pt3dadd(2937.79, 1746.15, 5885.34, 2.00)
  }
  nakeaxon[100] {pt3dclear()
        pt3dadd(3074.54, 1600.05, 5594.76, 2.00)
        pt3dadd(3070.12, 1599.95, 5607.41, 2.00)
        pt3dadd(3065.47, 1602.40, 5618.90, 2.00)
        pt3dadd(3060.12, 1607.77, 5635.01, 2.00)
        pt3dadd(3056.40, 1609.36, 5652.99, 2.00)
        pt3dadd(3055.00, 1610.32, 5655.61, 2.00)
  }
  nakeaxon[101] {pt3dclear()
        pt3dadd(3055.00, 1610.32, 5655.61, 2.00)
        pt3dadd(3053.84, 1605.87, 5667.87, 2.00)
        pt3dadd(3053.84, 1601.50, 5669.46, 2.00)
  }
  nakeaxon[102] {pt3dclear()
        pt3dadd(3055.00, 1610.32, 5655.61, 2.00)
        pt3dadd(3048.72, 1614.01, 5664.41, 2.00)
        pt3dadd(3036.16, 1619.20, 5671.19, 2.00)
        pt3dadd(3028.26, 1624.91, 5683.46, 2.00)
        pt3dadd(3027.56, 1626.58, 5688.05, 2.00)
        pt3dadd(3018.26, 1636.70, 5702.93, 2.00)
        pt3dadd(3008.72, 1642.84, 5712.33, 2.00)
        pt3dadd(3007.10, 1645.20, 5718.15, 2.00)
        pt3dadd(2996.40, 1652.04, 5734.22, 2.00)
        pt3dadd(2985.70, 1662.06, 5750.87, 2.00)
        pt3dadd(2978.96, 1670.79, 5766.01, 2.00)
        pt3dadd(2976.86, 1672.26, 5768.69, 2.00)
        pt3dadd(2975.47, 1675.20, 5776.77, 2.00)
        pt3dadd(2969.65, 1682.14, 5785.63, 2.00)
        pt3dadd(2961.98, 1690.39, 5802.18, 2.00)
        pt3dadd(2958.96, 1691.82, 5806.11, 2.00)
        pt3dadd(2953.61, 1696.75, 5816.94, 2.00)
        pt3dadd(2951.98, 1703.89, 5822.26, 2.00)
  }
  nakeaxon[103] {pt3dclear()
        pt3dadd(3200.58, 1560.61, 5338.86, 2.00)
        pt3dadd(3205.00, 1567.39, 5355.45, 2.00)
        pt3dadd(3205.47, 1572.20, 5372.75, 2.00)
        pt3dadd(3209.65, 1576.18, 5389.12, 2.00)
        pt3dadd(3211.05, 1580.08, 5405.27, 2.00)
        pt3dadd(3212.44, 1584.58, 5421.70, 2.00)
        pt3dadd(3214.30, 1591.40, 5439.76, 2.00)
        pt3dadd(3212.91, 1593.37, 5449.94, 2.00)
        pt3dadd(3214.30, 1594.64, 5453.43, 2.00)
        pt3dadd(3214.07, 1595.36, 5460.84, 2.00)
        pt3dadd(3216.16, 1597.60, 5464.98, 2.00)
  }
  nakeaxon[104] {pt3dclear()
        pt3dadd(3216.16, 1597.60, 5464.98, 2.00)
        pt3dadd(3213.84, 1603.57, 5486.81, 2.00)
        pt3dadd(3214.30, 1605.38, 5493.82, 2.00)
        pt3dadd(3216.86, 1611.29, 5510.73, 2.00)
        pt3dadd(3220.82, 1616.14, 5524.06, 2.00)
        pt3dadd(3221.05, 1617.81, 5528.65, 2.00)
        pt3dadd(3221.28, 1618.29, 5529.96, 2.00)
  }
  nakeaxon[105] {pt3dclear()
        pt3dadd(3221.28, 1618.29, 5529.96, 2.00)
        pt3dadd(3222.44, 1598.16, 5539.27, 2.00)
        pt3dadd(3220.82, 1595.46, 5548.17, 2.00)
        pt3dadd(3220.82, 1593.89, 5555.42, 2.00)
        pt3dadd(3222.21, 1591.61, 5566.15, 2.00)
        pt3dadd(3221.05, 1592.57, 5568.77, 2.00)
        pt3dadd(3222.68, 1589.93, 5574.44, 2.00)
        pt3dadd(3221.98, 1588.52, 5576.68, 2.00)
        pt3dadd(3225.93, 1596.79, 5588.52, 2.00)
        pt3dadd(3224.54, 1598.72, 5594.50, 2.00)
        pt3dadd(3226.63, 1601.72, 5602.07, 2.00)
        pt3dadd(3227.09, 1600.98, 5604.81, 2.00)
        pt3dadd(3228.03, 1603.05, 5610.49, 2.00)
        pt3dadd(3227.79, 1606.39, 5619.67, 2.00)
        pt3dadd(3227.79, 1608.54, 5625.57, 2.00)
        pt3dadd(3228.26, 1611.50, 5639.84, 2.00)
        pt3dadd(3228.03, 1612.78, 5643.33, 2.00)
        pt3dadd(3229.65, 1618.82, 5659.94, 2.00)
        pt3dadd(3228.96, 1621.15, 5661.57, 2.00)
  }
  nakeaxon[106] {pt3dclear()
        pt3dadd(3228.96, 1621.15, 5661.57, 2.00)
        pt3dadd(3217.79, 1627.89, 5679.41, 2.00)
        pt3dadd(3211.98, 1628.88, 5688.95, 2.00)
        pt3dadd(3208.72, 1630.93, 5696.62, 2.00)
        pt3dadd(3203.37, 1634.69, 5707.62, 2.00)
        pt3dadd(3198.26, 1641.07, 5725.84, 2.00)
        pt3dadd(3197.79, 1643.84, 5732.75, 2.00)
        pt3dadd(3195.00, 1647.38, 5738.39, 2.00)
        pt3dadd(3191.51, 1651.03, 5743.00, 2.00)
        pt3dadd(3185.47, 1655.75, 5756.63, 2.00)
        pt3dadd(3183.84, 1657.72, 5761.36, 2.00)
        pt3dadd(3179.65, 1664.53, 5773.98, 2.00)
        pt3dadd(3175.23, 1674.79, 5796.72, 2.00)
        pt3dadd(3174.77, 1675.05, 5798.11, 2.00)
        pt3dadd(3171.28, 1678.99, 5810.29, 2.00)
        pt3dadd(3170.12, 1679.29, 5813.15, 2.00)
        pt3dadd(3163.14, 1684.88, 5826.46, 2.00)
        pt3dadd(3160.82, 1687.50, 5833.67, 2.00)
        pt3dadd(3152.21, 1693.13, 5851.18, 2.00)
        pt3dadd(3150.58, 1694.08, 5853.80, 2.00)
        pt3dadd(3145.24, 1700.43, 5870.55, 2.00)
        pt3dadd(3142.21, 1705.20, 5883.66, 2.00)
        pt3dadd(3141.51, 1707.74, 5890.65, 2.00)
        pt3dadd(3143.14, 1712.53, 5899.05, 2.00)
        pt3dadd(3144.54, 1716.01, 5907.94, 2.00)
        pt3dadd(3144.07, 1721.72, 5920.21, 2.00)
        pt3dadd(3149.65, 1722.74, 5933.21, 2.00)
        pt3dadd(3150.35, 1723.93, 5936.48, 2.00)
        pt3dadd(3151.51, 1724.33, 5937.58, 2.00)
        pt3dadd(3153.14, 1726.52, 5944.95, 2.00)
        pt3dadd(3153.14, 1728.04, 5944.39, 2.00)
  }
  nakeaxon[107] {pt3dclear()
        pt3dadd(3228.96, 1621.15, 5661.57, 2.00)
        pt3dadd(3233.37, 1621.05, 5671.51, 2.00)
        pt3dadd(3238.49, 1621.45, 5675.32, 2.00)
        pt3dadd(3240.58, 1625.37, 5681.32, 2.00)
        pt3dadd(3243.61, 1626.00, 5688.51, 2.00)
        pt3dadd(3246.16, 1627.62, 5699.06, 2.00)
        pt3dadd(3248.72, 1631.53, 5707.78, 2.00)
        pt3dadd(3249.89, 1632.64, 5710.84, 2.00)
        pt3dadd(3251.75, 1636.17, 5721.19, 2.00)
        pt3dadd(3252.68, 1636.27, 5722.15, 2.00)
        pt3dadd(3253.14, 1637.06, 5724.33, 2.00)
        pt3dadd(3259.89, 1643.46, 5735.12, 2.00)
        pt3dadd(3261.51, 1647.64, 5745.23, 2.00)
        pt3dadd(3264.07, 1650.24, 5748.98, 2.00)
        pt3dadd(3263.84, 1651.69, 5753.65, 2.00)
        pt3dadd(3265.93, 1652.23, 5754.45, 2.00)
        pt3dadd(3267.33, 1652.69, 5757.75, 2.00)
        pt3dadd(3270.12, 1656.42, 5762.57, 2.00)
        pt3dadd(3277.79, 1662.92, 5774.31, 2.00)
        pt3dadd(3278.49, 1666.88, 5784.51, 2.00)
        pt3dadd(3282.44, 1672.62, 5792.81, 2.00)
        pt3dadd(3288.72, 1677.89, 5807.97, 2.00)
        pt3dadd(3289.19, 1679.17, 5811.46, 2.00)
        pt3dadd(3292.68, 1682.27, 5819.99, 2.00)
        pt3dadd(3292.91, 1682.93, 5822.47, 2.00)
        pt3dadd(3290.82, 1692.39, 5834.86, 2.00)
        pt3dadd(3290.82, 1694.50, 5839.30, 2.00)
        pt3dadd(3287.33, 1700.14, 5849.37, 2.00)
        pt3dadd(3285.70, 1701.10, 5851.99, 2.00)
        pt3dadd(3283.84, 1707.14, 5865.88, 2.00)
        pt3dadd(3284.54, 1712.01, 5869.05, 2.00)
  }
}
proc geometry14() {
  nakeaxon[107] {
        pt3dadd(3284.54, 1713.98, 5868.34, 2.00)
  }
  nakeaxon[108] {pt3dclear()
        pt3dadd(3221.28, 1618.29, 5529.96, 2.00)
        pt3dadd(3220.82, 1622.74, 5542.20, 2.00)
        pt3dadd(3219.19, 1623.00, 5546.31, 2.00)
  }
  nakeaxon[109] {pt3dclear()
        pt3dadd(3219.19, 1623.00, 5546.31, 2.00)
        pt3dadd(3221.51, 1630.91, 5561.25, 2.00)
        pt3dadd(3218.49, 1634.99, 5570.41, 2.00)
        pt3dadd(3216.63, 1636.62, 5578.97, 2.00)
        pt3dadd(3217.10, 1638.51, 5583.48, 2.00)
        pt3dadd(3217.10, 1641.95, 5593.61, 2.00)
        pt3dadd(3219.19, 1646.52, 5604.82, 2.00)
        pt3dadd(3219.42, 1646.27, 5608.87, 2.00)
        pt3dadd(3218.72, 1645.75, 5611.53, 2.00)
  }
  nakeaxon[110] {pt3dclear()
        pt3dadd(3218.72, 1645.75, 5611.53, 2.00)
        pt3dadd(3218.03, 1649.51, 5617.10, 2.00)
        pt3dadd(3218.96, 1654.08, 5628.30, 2.00)
        pt3dadd(3220.12, 1656.48, 5630.15, 2.00)
        pt3dadd(3220.58, 1658.29, 5634.44, 2.00)
        pt3dadd(3222.91, 1661.55, 5643.40, 2.00)
        pt3dadd(3222.91, 1661.99, 5643.24, 2.00)
  }
  nakeaxon[111] {pt3dclear()
        pt3dadd(3222.91, 1661.99, 5643.24, 2.00)
        pt3dadd(3228.26, 1665.09, 5651.76, 2.00)
        pt3dadd(3228.03, 1665.85, 5657.92, 2.00)
        pt3dadd(3230.35, 1671.80, 5673.58, 2.00)
        pt3dadd(3230.82, 1677.60, 5686.81, 2.00)
        pt3dadd(3235.23, 1677.25, 5698.07, 2.00)
        pt3dadd(3233.61, 1677.07, 5702.34, 2.00)
        pt3dadd(3232.91, 1677.21, 5704.77, 2.00)
        pt3dadd(3232.68, 1679.62, 5709.34, 2.00)
        pt3dadd(3230.58, 1683.79, 5716.73, 2.00)
        pt3dadd(3229.42, 1689.18, 5722.69, 2.00)
        pt3dadd(3228.03, 1696.23, 5733.23, 2.00)
        pt3dadd(3225.70, 1704.00, 5748.47, 2.00)
        pt3dadd(3230.35, 1709.35, 5755.68, 2.00)
        pt3dadd(3237.56, 1716.71, 5771.81, 2.00)
        pt3dadd(3238.96, 1724.44, 5785.58, 2.00)
        pt3dadd(3241.51, 1729.59, 5796.33, 2.00)
        pt3dadd(3242.68, 1730.31, 5798.30, 2.00)
        pt3dadd(3244.77, 1737.90, 5809.64, 2.00)
        pt3dadd(3248.72, 1744.76, 5821.00, 2.00)
        pt3dadd(3255.23, 1750.58, 5832.25, 2.00)
        pt3dadd(3257.56, 1753.27, 5838.94, 2.00)
        pt3dadd(3262.91, 1754.70, 5848.32, 2.00)
        pt3dadd(3265.47, 1757.27, 5858.77, 2.00)
        pt3dadd(3278.96, 1759.63, 5870.03, 2.00)
        pt3dadd(3281.51, 1755.80, 5872.42, 2.00)
        pt3dadd(3282.91, 1752.92, 5877.43, 2.00)
        pt3dadd(3287.56, 1742.21, 5873.16, 2.00)
        pt3dadd(3290.12, 1738.28, 5871.87, 2.00)
        pt3dadd(3297.79, 1730.61, 5871.19, 2.00)
        pt3dadd(3301.75, 1720.73, 5867.86, 2.00)
        pt3dadd(3302.44, 1714.21, 5868.99, 2.00)
        pt3dadd(3303.37, 1714.13, 5868.77, 2.00)
        pt3dadd(3306.63, 1709.42, 5866.03, 2.00)
        pt3dadd(3316.86, 1698.32, 5860.67, 2.00)
        pt3dadd(3318.96, 1697.14, 5858.13, 2.00)
        pt3dadd(3326.16, 1685.72, 5854.62, 2.00)
        pt3dadd(3333.37, 1681.38, 5849.51, 2.00)
        pt3dadd(3335.93, 1678.68, 5850.25, 2.00)
        pt3dadd(3345.47, 1669.46, 5843.95, 2.00)
        pt3dadd(3347.56, 1666.22, 5841.17, 2.00)
        pt3dadd(3349.19, 1663.96, 5841.75, 2.00)
        pt3dadd(3352.21, 1660.04, 5838.47, 2.00)
        pt3dadd(3352.91, 1658.12, 5837.93, 2.00)
        pt3dadd(3364.77, 1648.42, 5830.33, 2.00)
        pt3dadd(3368.49, 1645.99, 5830.47, 2.00)
        pt3dadd(3381.28, 1642.75, 5833.13, 2.00)
        pt3dadd(3381.28, 1643.41, 5832.89, 2.00)
        pt3dadd(3379.42, 1640.65, 5834.15, 2.00)
        pt3dadd(3375.24, 1632.62, 5825.68, 2.00)
        pt3dadd(3382.68, 1621.33, 5819.15, 2.00)
        pt3dadd(3382.44, 1615.87, 5818.42, 2.00)
        pt3dadd(3382.68, 1609.33, 5810.65, 2.00)
        pt3dadd(3380.12, 1592.12, 5802.81, 2.00)
        pt3dadd(3378.26, 1588.09, 5800.56, 2.00)
        pt3dadd(3377.10, 1583.79, 5799.65, 2.00)
        pt3dadd(3379.19, 1577.02, 5796.67, 2.00)
  }
  nakeaxon[112] {pt3dclear()
        pt3dadd(3222.91, 1661.99, 5643.24, 2.00)
        pt3dadd(3222.21, 1664.32, 5644.87, 2.00)
        pt3dadd(3219.42, 1674.83, 5660.84, 2.00)
        pt3dadd(3217.56, 1678.43, 5668.69, 2.00)
        pt3dadd(3212.44, 1685.35, 5679.53, 2.00)
        pt3dadd(3208.49, 1688.95, 5687.38, 2.00)
  }
  nakeaxon[113] {pt3dclear()
        pt3dadd(3208.49, 1688.95, 5687.38, 2.00)
        pt3dadd(3209.19, 1689.92, 5688.02, 2.00)
        pt3dadd(3209.19, 1690.58, 5687.78, 2.00)
  }
  nakeaxon[114] {pt3dclear()
        pt3dadd(3209.19, 1690.58, 5687.78, 2.00)
        pt3dadd(3206.40, 1697.19, 5698.48, 2.00)
        pt3dadd(3206.63, 1701.73, 5708.22, 2.00)
        pt3dadd(3206.16, 1703.30, 5711.85, 2.00)
        pt3dadd(3204.07, 1706.24, 5719.94, 2.00)
        pt3dadd(3201.75, 1707.51, 5723.44, 2.00)
        pt3dadd(3197.56, 1712.86, 5736.09, 2.00)
        pt3dadd(3196.16, 1720.89, 5750.00, 2.00)
        pt3dadd(3196.40, 1722.21, 5752.24, 2.00)
        pt3dadd(3194.77, 1729.44, 5763.96, 2.00)
        pt3dadd(3195.23, 1731.03, 5768.33, 2.00)
        pt3dadd(3193.84, 1733.18, 5771.51, 2.00)
        pt3dadd(3195.23, 1735.86, 5775.48, 2.00)
        pt3dadd(3196.16, 1737.79, 5778.74, 2.00)
        pt3dadd(3196.86, 1740.22, 5784.05, 2.00)
        pt3dadd(3196.63, 1743.68, 5789.47, 2.00)
        pt3dadd(3197.56, 1746.54, 5791.89, 2.00)
        pt3dadd(3202.68, 1754.07, 5803.75, 2.00)
        pt3dadd(3202.91, 1757.09, 5803.89, 2.00)
        pt3dadd(3206.86, 1762.85, 5807.48, 2.00)
        pt3dadd(3204.07, 1768.08, 5818.45, 2.00)
        pt3dadd(3204.07, 1773.13, 5825.52, 2.00)
        pt3dadd(3204.07, 1782.25, 5839.03, 2.00)
        pt3dadd(3204.07, 1788.06, 5849.54, 2.00)
        pt3dadd(3205.00, 1789.33, 5853.04, 2.00)
        pt3dadd(3206.86, 1796.13, 5862.19, 2.00)
        pt3dadd(3206.86, 1798.60, 5866.25, 2.00)
        pt3dadd(3206.86, 1806.37, 5878.76, 2.00)
        pt3dadd(3206.86, 1807.24, 5881.16, 2.00)
        pt3dadd(3211.28, 1815.45, 5893.52, 2.00)
        pt3dadd(3211.28, 1823.74, 5903.37, 2.00)
        pt3dadd(3213.14, 1825.23, 5904.07, 2.00)
        pt3dadd(3213.14, 1825.01, 5904.15, 2.00)
  }
  nakeaxon[115] {pt3dclear()
        pt3dadd(3209.19, 1690.58, 5687.78, 2.00)
        pt3dadd(3203.37, 1696.04, 5693.95, 2.00)
        pt3dadd(3194.77, 1703.16, 5703.99, 2.00)
        pt3dadd(3193.14, 1704.17, 5706.09, 2.00)
  }
  nakeaxon[116] {pt3dclear()
        pt3dadd(3193.14, 1704.17, 5706.09, 2.00)
        pt3dadd(3184.07, 1712.34, 5716.98, 2.00)
        pt3dadd(3173.84, 1724.15, 5729.01, 2.00)
        pt3dadd(3173.14, 1724.94, 5731.20, 2.00)
        pt3dadd(3164.54, 1733.07, 5743.34, 2.00)
        pt3dadd(3163.61, 1734.82, 5742.70, 2.00)
        pt3dadd(3163.84, 1742.03, 5742.80, 2.00)
        pt3dadd(3162.21, 1742.43, 5743.89, 2.00)
        pt3dadd(3153.84, 1754.71, 5754.52, 2.00)
        pt3dadd(3153.14, 1755.63, 5755.67, 2.00)
  }
  nakeaxon[117] {pt3dclear()
        pt3dadd(3153.14, 1755.63, 5755.67, 2.00)
        pt3dadd(3148.49, 1766.93, 5762.94, 2.00)
        pt3dadd(3143.14, 1772.72, 5767.27, 2.00)
        pt3dadd(3139.42, 1777.63, 5771.91, 2.00)
        pt3dadd(3134.07, 1785.87, 5780.30, 2.00)
        pt3dadd(3131.28, 1794.02, 5787.73, 2.00)
        pt3dadd(3124.30, 1804.08, 5803.12, 2.00)
        pt3dadd(3118.96, 1811.53, 5812.04, 2.00)
        pt3dadd(3118.02, 1813.42, 5816.55, 2.00)
        pt3dadd(3115.24, 1821.21, 5821.63, 2.00)
        pt3dadd(3113.14, 1825.51, 5827.99, 2.00)
        pt3dadd(3113.61, 1828.92, 5831.94, 2.00)
        pt3dadd(3113.61, 1831.47, 5833.49, 2.00)
        pt3dadd(3109.65, 1837.95, 5839.05, 2.00)
        pt3dadd(3104.30, 1848.98, 5849.64, 2.00)
        pt3dadd(3102.21, 1850.77, 5853.20, 2.00)
        pt3dadd(3095.70, 1859.99, 5862.21, 2.00)
  }
}
proc geometry15() {
  nakeaxon[117] {
        pt3dadd(3088.49, 1869.05, 5870.80, 2.00)
        pt3dadd(3082.21, 1879.58, 5879.34, 2.00)
        pt3dadd(3076.40, 1891.83, 5883.05, 2.00)
        pt3dadd(3072.91, 1900.23, 5891.87, 2.00)
        pt3dadd(3071.28, 1905.38, 5894.45, 2.00)
        pt3dadd(3067.56, 1905.78, 5895.54, 2.00)
        pt3dadd(3065.00, 1908.98, 5899.57, 2.00)
        pt3dadd(3055.70, 1918.18, 5902.41, 2.00)
        pt3dadd(3048.49, 1919.99, 5903.98, 2.00)
        pt3dadd(3040.35, 1926.34, 5907.85, 2.00)
        pt3dadd(3034.07, 1932.38, 5910.85, 2.00)
        pt3dadd(3031.28, 1935.58, 5912.16, 2.00)
        pt3dadd(3017.56, 1940.91, 5921.36, 2.00)
        pt3dadd(3009.42, 1943.42, 5926.88, 2.00)
        pt3dadd(3007.56, 1944.91, 5927.58, 2.00)
        pt3dadd(3003.14, 1947.27, 5925.23, 2.00)
        pt3dadd(2994.77, 1952.68, 5931.93, 2.00)
        pt3dadd(2987.56, 1959.37, 5934.69, 2.00)
        pt3dadd(2983.84, 1961.44, 5937.65, 2.00)
        pt3dadd(2974.77, 1966.85, 5944.34, 2.00)
        pt3dadd(2970.12, 1975.17, 5950.22, 2.00)
  }
  nakeaxon[118] {pt3dclear()
        pt3dadd(3153.14, 1755.63, 5755.67, 2.00)
        pt3dadd(3141.51, 1759.58, 5765.86, 2.00)
        pt3dadd(3131.51, 1763.50, 5777.30, 2.00)
        pt3dadd(3121.75, 1772.51, 5791.85, 2.00)
        pt3dadd(3118.26, 1774.22, 5795.18, 2.00)
        pt3dadd(3101.98, 1785.07, 5815.48, 2.00)
        pt3dadd(3099.42, 1786.34, 5818.98, 2.00)
        pt3dadd(3099.65, 1788.69, 5821.35, 2.00)
  }
  nakeaxon[119] {pt3dclear()
        pt3dadd(3099.65, 1788.69, 5821.35, 2.00)
        pt3dadd(3095.24, 1792.64, 5828.81, 2.00)
  }
  nakeaxon[120] {pt3dclear()
        pt3dadd(3095.24, 1792.64, 5828.81, 2.00)
        pt3dadd(3105.24, 1799.29, 5848.42, 2.00)
        pt3dadd(3106.16, 1800.08, 5850.61, 2.00)
        pt3dadd(3107.10, 1805.75, 5858.69, 2.00)
        pt3dadd(3107.10, 1809.60, 5862.49, 2.00)
        pt3dadd(3108.96, 1811.35, 5864.57, 2.00)
        pt3dadd(3107.56, 1825.30, 5874.34, 2.00)
        pt3dadd(3109.42, 1836.61, 5881.61, 2.00)
        pt3dadd(3109.42, 1838.97, 5884.71, 2.00)
        pt3dadd(3107.79, 1845.13, 5886.68, 2.00)
        pt3dadd(3108.96, 1847.10, 5888.68, 2.00)
        pt3dadd(3108.26, 1849.86, 5890.15, 2.00)
        pt3dadd(3108.72, 1853.06, 5894.19, 2.00)
        pt3dadd(3104.30, 1860.99, 5907.14, 2.00)
        pt3dadd(3100.82, 1866.38, 5915.82, 2.00)
        pt3dadd(3098.72, 1877.55, 5923.38, 2.00)
        pt3dadd(3092.91, 1886.36, 5938.74, 2.00)
        pt3dadd(3092.21, 1891.11, 5942.95, 2.00)
        pt3dadd(3089.65, 1896.41, 5954.14, 2.00)
        pt3dadd(3089.89, 1898.96, 5955.68, 2.00)
        pt3dadd(3087.56, 1903.51, 5963.43, 2.00)
        pt3dadd(3081.75, 1911.84, 5977.48, 2.00)
        pt3dadd(3074.07, 1920.51, 5993.13, 2.00)
        pt3dadd(3067.33, 1930.59, 6006.54, 2.00)
        pt3dadd(3065.70, 1931.94, 6010.26, 2.00)
        pt3dadd(3065.00, 1933.75, 6014.55, 2.00)
        pt3dadd(3063.14, 1937.64, 6022.53, 2.00)
        pt3dadd(3061.75, 1939.31, 6027.12, 2.00)
        pt3dadd(3059.42, 1943.75, 6033.18, 2.00)
        pt3dadd(3058.72, 1944.04, 6033.32, 2.00)
  }
  nakeaxon[121] {pt3dclear()
        pt3dadd(3095.24, 1792.64, 5828.81, 2.00)
        pt3dadd(3088.96, 1800.02, 5840.24, 2.00)
        pt3dadd(3078.96, 1806.84, 5855.57, 2.00)
        pt3dadd(3074.54, 1809.56, 5863.74, 2.00)
        pt3dadd(3066.16, 1814.73, 5877.94, 2.00)
        pt3dadd(3059.89, 1817.48, 5889.57, 2.00)
        pt3dadd(3054.54, 1821.22, 5899.84, 2.00)
        pt3dadd(3048.26, 1823.82, 5911.76, 2.00)
        pt3dadd(3039.19, 1826.43, 5923.68, 2.00)
        pt3dadd(3030.12, 1823.57, 5937.59, 2.00)
        pt3dadd(3028.49, 1825.78, 5942.97, 2.00)
        pt3dadd(3019.42, 1824.55, 5962.72, 2.00)
        pt3dadd(3013.14, 1828.61, 5979.31, 2.00)
        pt3dadd(3009.19, 1832.81, 5987.43, 2.00)
        pt3dadd(3000.12, 1834.14, 5998.58, 2.00)
        pt3dadd(2993.84, 1835.97, 6011.77, 2.00)
        pt3dadd(2991.28, 1832.87, 6016.86, 2.00)
        pt3dadd(2992.68, 1832.44, 6033.35, 2.00)
        pt3dadd(2996.63, 1828.57, 6039.71, 2.00)
        pt3dadd(2997.56, 1824.22, 6052.93, 2.00)
        pt3dadd(3000.12, 1824.08, 6055.95, 2.00)
        pt3dadd(2997.56, 1823.93, 6066.40, 2.00)
        pt3dadd(2996.86, 1825.86, 6069.65, 2.00)
        pt3dadd(3001.75, 1827.19, 6075.36, 2.00)
        pt3dadd(3001.75, 1826.53, 6075.60, 2.00)
  }
  nakeaxon[122] {pt3dclear()
        pt3dadd(3099.65, 1788.69, 5821.35, 2.00)
        pt3dadd(3093.37, 1789.23, 5824.86, 2.00)
        pt3dadd(3093.37, 1789.44, 5824.78, 2.00)
  }
  nakeaxon[123] {pt3dclear()
        pt3dadd(3193.14, 1704.17, 5706.09, 2.00)
        pt3dadd(3187.09, 1705.42, 5708.85, 2.00)
        pt3dadd(3181.75, 1706.93, 5710.28, 2.00)
        pt3dadd(3181.75, 1706.50, 5710.44, 2.00)
        pt3dadd(3181.75, 1706.72, 5710.36, 2.00)
  }
  nakeaxon[124] {pt3dclear()
        pt3dadd(3208.49, 1688.95, 5687.38, 2.00)
        pt3dadd(3214.30, 1693.14, 5698.23, 2.00)
        pt3dadd(3218.72, 1699.38, 5708.58, 2.00)
        pt3dadd(3220.82, 1703.44, 5719.72, 2.00)
        pt3dadd(3221.28, 1705.43, 5725.18, 2.00)
        pt3dadd(3220.82, 1709.03, 5730.31, 2.00)
        pt3dadd(3222.91, 1713.16, 5741.67, 2.00)
        pt3dadd(3225.93, 1719.42, 5750.04, 2.00)
        pt3dadd(3223.37, 1724.51, 5761.30, 2.00)
        pt3dadd(3223.84, 1726.36, 5767.06, 2.00)
        pt3dadd(3225.00, 1728.25, 5768.85, 2.00)
        pt3dadd(3224.30, 1729.78, 5771.02, 2.00)
        pt3dadd(3223.84, 1736.24, 5781.28, 2.00)
        pt3dadd(3222.21, 1738.87, 5785.78, 2.00)
        pt3dadd(3223.61, 1740.54, 5790.36, 2.00)
        pt3dadd(3227.33, 1746.92, 5800.42, 2.00)
        pt3dadd(3227.09, 1753.32, 5808.48, 2.00)
        pt3dadd(3229.19, 1759.12, 5818.99, 2.00)
        pt3dadd(3229.42, 1760.83, 5822.33, 2.00)
        pt3dadd(3229.65, 1765.12, 5823.24, 2.00)
        pt3dadd(3236.86, 1771.48, 5827.11, 2.00)
        pt3dadd(3237.79, 1773.77, 5832.72, 2.00)
        pt3dadd(3236.86, 1778.12, 5844.00, 2.00)
        pt3dadd(3238.72, 1778.92, 5846.18, 2.00)
        pt3dadd(3238.72, 1781.50, 5849.20, 2.00)
        pt3dadd(3237.79, 1781.50, 5849.20, 2.00)
        pt3dadd(3237.79, 1781.72, 5849.12, 2.00)
  }
  nakeaxon[125] {pt3dclear()
        pt3dadd(3218.72, 1645.75, 5611.53, 2.00)
        pt3dadd(3218.26, 1645.23, 5616.92, 2.00)
        pt3dadd(3215.23, 1644.40, 5632.32, 2.00)
        pt3dadd(3214.30, 1642.56, 5651.05, 2.00)
        pt3dadd(3213.37, 1641.25, 5654.25, 2.00)
        pt3dadd(3217.56, 1640.78, 5661.11, 2.00)
        pt3dadd(3216.16, 1639.79, 5676.07, 2.00)
        pt3dadd(3216.16, 1640.15, 5681.14, 2.00)
        pt3dadd(3213.84, 1640.59, 5689.14, 2.00)
        pt3dadd(3210.58, 1641.42, 5703.69, 2.00)
        pt3dadd(3210.12, 1641.86, 5706.25, 2.00)
        pt3dadd(3208.96, 1639.76, 5720.87, 2.00)
        pt3dadd(3207.33, 1640.12, 5734.11, 2.00)
        pt3dadd(3208.72, 1639.05, 5743.40, 2.00)
        pt3dadd(3209.65, 1638.86, 5749.66, 2.00)
        pt3dadd(3211.05, 1638.36, 5763.95, 2.00)
        pt3dadd(3211.75, 1639.16, 5768.86, 2.00)
        pt3dadd(3211.98, 1639.88, 5776.27, 2.00)
        pt3dadd(3217.33, 1639.18, 5788.65, 2.00)
        pt3dadd(3219.89, 1640.80, 5799.19, 2.00)
        pt3dadd(3221.75, 1636.59, 5812.11, 2.00)
        pt3dadd(3223.37, 1638.32, 5818.91, 2.00)
        pt3dadd(3225.00, 1639.40, 5831.38, 2.00)
        pt3dadd(3226.16, 1640.51, 5834.44, 2.00)
        pt3dadd(3226.40, 1640.47, 5838.42, 2.00)
        pt3dadd(3226.63, 1639.66, 5843.66, 2.00)
        pt3dadd(3225.93, 1640.36, 5847.62, 2.00)
        pt3dadd(3225.70, 1637.32, 5857.63, 2.00)
        pt3dadd(3227.09, 1634.90, 5865.94, 2.00)
  }
}
proc geometry16() {
  nakeaxon[125] {
        pt3dadd(3229.19, 1634.20, 5870.15, 2.00)
        pt3dadd(3230.58, 1630.77, 5879.07, 2.00)
        pt3dadd(3232.21, 1629.34, 5880.58, 2.00)
        pt3dadd(3233.37, 1627.29, 5883.80, 2.00)
        pt3dadd(3236.63, 1624.26, 5893.81, 2.00)
        pt3dadd(3242.68, 1621.24, 5904.56, 2.00)
        pt3dadd(3241.28, 1621.78, 5913.53, 2.00)
        pt3dadd(3245.00, 1620.43, 5912.53, 2.00)
        pt3dadd(3242.21, 1618.78, 5914.12, 2.00)
        pt3dadd(3246.16, 1615.86, 5925.83, 2.00)
        pt3dadd(3246.40, 1614.47, 5931.53, 2.00)
        pt3dadd(3248.72, 1614.00, 5938.38, 2.00)
        pt3dadd(3250.82, 1615.15, 5948.36, 2.00)
        pt3dadd(3254.07, 1613.40, 5951.72, 2.00)
        pt3dadd(3254.30, 1611.50, 5960.08, 2.00)
        pt3dadd(3258.49, 1613.35, 5974.01, 2.00)
        pt3dadd(3258.26, 1613.09, 5978.06, 2.00)
        pt3dadd(3264.54, 1613.79, 5990.18, 2.00)
        pt3dadd(3266.16, 1614.59, 5992.37, 2.00)
        pt3dadd(3267.56, 1613.97, 5996.80, 2.00)
        pt3dadd(3271.05, 1612.65, 6010.15, 2.00)
        pt3dadd(3271.75, 1612.65, 6010.15, 2.00)
        pt3dadd(3275.00, 1612.73, 6015.81, 2.00)
        pt3dadd(3277.33, 1612.99, 6019.93, 2.00)
        pt3dadd(3280.35, 1611.78, 6029.52, 2.00)
        pt3dadd(3281.05, 1614.54, 6030.99, 2.00)
  }
  nakeaxon[126] {pt3dclear()
        pt3dadd(3219.19, 1623.00, 5546.31, 2.00)
        pt3dadd(3215.47, 1632.98, 5550.60, 2.00)
        pt3dadd(3214.54, 1634.54, 5551.51, 2.00)
  }
  nakeaxon[127] {pt3dclear()
        pt3dadd(3214.54, 1634.54, 5551.51, 2.00)
        pt3dadd(3221.75, 1635.58, 5551.63, 2.00)
        pt3dadd(3228.49, 1636.61, 5557.19, 2.00)
        pt3dadd(3231.28, 1637.63, 5559.30, 2.00)
        pt3dadd(3240.35, 1641.80, 5569.41, 2.00)
        pt3dadd(3245.00, 1642.56, 5572.85, 2.00)
        pt3dadd(3249.89, 1643.41, 5574.52, 2.00)
        pt3dadd(3260.35, 1646.26, 5581.65, 2.00)
        pt3dadd(3264.07, 1647.19, 5583.54, 2.00)
        pt3dadd(3277.10, 1649.30, 5587.97, 2.00)
        pt3dadd(3285.47, 1648.11, 5590.13, 2.00)
        pt3dadd(3290.58, 1649.46, 5591.13, 2.00)
        pt3dadd(3293.37, 1649.12, 5594.96, 2.00)
        pt3dadd(3310.12, 1652.64, 5599.87, 2.00)
        pt3dadd(3313.84, 1652.40, 5601.94, 2.00)
        pt3dadd(3321.51, 1652.78, 5607.74, 2.00)
        pt3dadd(3337.56, 1657.39, 5612.24, 2.00)
        pt3dadd(3343.84, 1657.55, 5612.68, 2.00)
        pt3dadd(3344.30, 1659.22, 5617.27, 2.00)
        pt3dadd(3350.58, 1664.99, 5626.31, 2.00)
        pt3dadd(3349.89, 1666.44, 5628.26, 2.00)
        pt3dadd(3349.65, 1672.04, 5634.14, 2.00)
        pt3dadd(3348.49, 1677.79, 5642.44, 2.00)
        pt3dadd(3348.72, 1683.85, 5651.62, 2.00)
        pt3dadd(3349.19, 1687.05, 5655.65, 2.00)
        pt3dadd(3352.68, 1694.42, 5664.35, 2.00)
        pt3dadd(3355.47, 1699.97, 5673.47, 2.00)
        pt3dadd(3356.63, 1701.28, 5675.71, 2.00)
        pt3dadd(3356.86, 1702.69, 5678.91, 2.00)
        pt3dadd(3361.05, 1707.84, 5684.22, 2.00)
        pt3dadd(3365.47, 1713.98, 5690.89, 2.00)
        pt3dadd(3367.33, 1714.44, 5694.19, 2.00)
        pt3dadd(3368.49, 1715.71, 5694.96, 2.00)
        pt3dadd(3364.77, 1720.48, 5686.30, 2.00)
        pt3dadd(3365.70, 1719.17, 5686.77, 2.00)
  }
  nakeaxon[128] {pt3dclear()
        pt3dadd(3365.70, 1719.17, 5686.77, 2.00)
        pt3dadd(3371.98, 1724.00, 5696.65, 2.00)
        pt3dadd(3387.33, 1735.11, 5715.62, 2.00)
        pt3dadd(3388.02, 1736.02, 5716.77, 2.00)
        pt3dadd(3388.02, 1737.12, 5716.37, 2.00)
  }
  nakeaxon[129] {pt3dclear()
        pt3dadd(3365.70, 1719.17, 5686.77, 2.00)
        pt3dadd(3362.91, 1731.58, 5686.22, 2.00)
        pt3dadd(3362.21, 1733.95, 5686.59, 2.00)
        pt3dadd(3362.91, 1739.15, 5688.66, 2.00)
        pt3dadd(3362.21, 1745.26, 5696.58, 2.00)
        pt3dadd(3362.91, 1749.41, 5697.79, 2.00)
        pt3dadd(3361.28, 1754.68, 5704.78, 2.00)
        pt3dadd(3360.35, 1758.27, 5707.19, 2.00)
        pt3dadd(3361.28, 1768.31, 5716.40, 2.00)
        pt3dadd(3361.28, 1771.11, 5719.34, 2.00)
        pt3dadd(3361.28, 1772.78, 5721.21, 2.00)
        pt3dadd(3362.91, 1778.23, 5729.38, 2.00)
        pt3dadd(3365.70, 1788.70, 5738.43, 2.00)
        pt3dadd(3364.77, 1795.94, 5741.99, 2.00)
        pt3dadd(3366.40, 1804.84, 5747.41, 2.00)
        pt3dadd(3366.40, 1809.17, 5747.07, 2.00)
        pt3dadd(3366.63, 1810.84, 5748.94, 2.00)
        pt3dadd(3369.65, 1818.81, 5752.47, 2.00)
        pt3dadd(3368.26, 1821.39, 5755.49, 2.00)
        pt3dadd(3368.72, 1827.43, 5758.49, 2.00)
        pt3dadd(3368.26, 1834.53, 5762.34, 2.00)
        pt3dadd(3367.56, 1842.75, 5764.54, 2.00)
        pt3dadd(3369.89, 1851.52, 5767.54, 2.00)
        pt3dadd(3371.05, 1856.07, 5769.85, 2.00)
        pt3dadd(3366.86, 1860.88, 5773.54, 2.00)
        pt3dadd(3363.14, 1862.77, 5780.77, 2.00)
        pt3dadd(3363.37, 1864.42, 5781.90, 2.00)
        pt3dadd(3361.51, 1864.81, 5783.00, 2.00)
        pt3dadd(3355.24, 1868.41, 5788.12, 2.00)
        pt3dadd(3346.86, 1873.24, 5789.83, 2.00)
        pt3dadd(3339.89, 1878.90, 5795.19, 2.00)
        pt3dadd(3334.30, 1880.65, 5797.28, 2.00)
        pt3dadd(3332.44, 1881.27, 5798.29, 2.00)
        pt3dadd(3329.65, 1883.52, 5799.70, 2.00)
        pt3dadd(3324.30, 1887.37, 5803.49, 2.00)
        pt3dadd(3312.21, 1897.03, 5815.07, 2.00)
        pt3dadd(3311.28, 1900.45, 5819.03, 2.00)
        pt3dadd(3305.70, 1904.33, 5826.28, 2.00)
        pt3dadd(3302.68, 1906.87, 5830.55, 2.00)
        pt3dadd(3290.82, 1916.89, 5844.47, 2.00)
        pt3dadd(3281.75, 1926.59, 5854.80, 2.00)
        pt3dadd(3278.72, 1930.92, 5857.19, 2.00)
        pt3dadd(3269.42, 1941.67, 5868.37, 2.00)
        pt3dadd(3262.91, 1943.74, 5874.05, 2.00)
        pt3dadd(3259.42, 1946.82, 5879.12, 2.00)
        pt3dadd(3254.54, 1948.05, 5881.14, 2.00)
        pt3dadd(3254.54, 1948.49, 5880.98, 2.00)
  }
  nakeaxon[130] {pt3dclear()
        pt3dadd(3214.54, 1634.54, 5551.51, 2.00)
        pt3dadd(3214.54, 1650.33, 5566.31, 2.00)
        pt3dadd(3210.35, 1660.66, 5578.39, 2.00)
        pt3dadd(3209.42, 1665.67, 5586.71, 2.00)
        pt3dadd(3209.65, 1672.87, 5596.96, 2.00)
  }
  nakeaxon[131] {pt3dclear()
        pt3dadd(3209.65, 1672.87, 5596.96, 2.00)
        pt3dadd(3208.03, 1688.86, 5592.62, 2.00)
        pt3dadd(3198.26, 1699.27, 5591.31, 2.00)
        pt3dadd(3184.77, 1707.68, 5597.41, 2.00)
        pt3dadd(3179.42, 1713.42, 5600.27, 2.00)
        pt3dadd(3169.42, 1721.57, 5604.97, 2.00)
        pt3dadd(3158.72, 1731.54, 5609.26, 2.00)
        pt3dadd(3148.96, 1737.07, 5614.92, 2.00)
        pt3dadd(3146.16, 1741.36, 5615.84, 2.00)
        pt3dadd(3140.82, 1748.41, 5620.94, 2.00)
        pt3dadd(3141.75, 1753.66, 5619.03, 2.00)
        pt3dadd(3135.47, 1764.01, 5623.68, 2.00)
        pt3dadd(3133.14, 1768.92, 5628.33, 2.00)
        pt3dadd(3125.47, 1775.86, 5631.74, 2.00)
        pt3dadd(3118.26, 1782.75, 5630.96, 2.00)
        pt3dadd(3112.68, 1794.12, 5634.99, 2.00)
        pt3dadd(3106.16, 1802.32, 5639.18, 2.00)
        pt3dadd(3105.24, 1803.42, 5638.79, 2.00)
        pt3dadd(3096.40, 1813.63, 5641.01, 2.00)
        pt3dadd(3088.49, 1827.36, 5645.42, 2.00)
        pt3dadd(3085.00, 1828.15, 5647.60, 2.00)
        pt3dadd(3078.26, 1840.52, 5655.72, 2.00)
        pt3dadd(3072.68, 1849.58, 5661.58, 2.00)
        pt3dadd(3063.61, 1860.63, 5667.46, 2.00)
        pt3dadd(3059.89, 1868.60, 5670.99, 2.00)
        pt3dadd(3055.93, 1878.19, 5674.93, 2.00)
        pt3dadd(3050.35, 1884.09, 5672.78, 2.00)
        pt3dadd(3044.30, 1896.45, 5678.18, 2.00)
        pt3dadd(3040.82, 1898.66, 5680.84, 2.00)
  }
}
proc geometry17() {
  nakeaxon[131] {
        pt3dadd(3030.82, 1913.64, 5688.01, 2.00)
        pt3dadd(3028.26, 1915.73, 5691.70, 2.00)
        pt3dadd(3020.58, 1926.76, 5696.85, 2.00)
        pt3dadd(3018.49, 1932.60, 5700.66, 2.00)
        pt3dadd(3016.16, 1937.65, 5705.01, 2.00)
        pt3dadd(3012.91, 1941.13, 5708.45, 2.00)
        pt3dadd(3004.30, 1951.98, 5717.86, 2.00)
        pt3dadd(2997.09, 1953.27, 5722.09, 2.00)
        pt3dadd(2993.37, 1957.31, 5724.34, 2.00)
        pt3dadd(2991.51, 1958.56, 5724.38, 2.00)
        pt3dadd(2983.14, 1969.23, 5727.17, 2.00)
        pt3dadd(2976.16, 1970.96, 5728.52, 2.00)
        pt3dadd(2976.16, 1971.17, 5728.44, 2.00)
  }
  nakeaxon[132] {pt3dclear()
        pt3dadd(3209.65, 1672.87, 5596.96, 2.00)
        pt3dadd(3211.28, 1676.38, 5599.15, 2.00)
        pt3dadd(3211.28, 1677.65, 5599.92, 2.00)
  }
  nakeaxon[133] {pt3dclear()
        pt3dadd(3211.28, 1677.65, 5599.92, 2.00)
        pt3dadd(3211.28, 1677.62, 5601.17, 2.00)
        pt3dadd(3211.28, 1678.27, 5600.93, 2.00)
  }
  nakeaxon[134] {pt3dclear()
        pt3dadd(3211.28, 1678.27, 5600.93, 2.00)
        pt3dadd(3220.12, 1677.60, 5600.44, 2.00)
        pt3dadd(3223.14, 1676.74, 5601.49, 2.00)
        pt3dadd(3235.93, 1682.50, 5602.36, 2.00)
        pt3dadd(3235.93, 1688.16, 5594.12, 2.00)
        pt3dadd(3243.84, 1691.08, 5587.86, 2.00)
        pt3dadd(3248.49, 1690.90, 5586.68, 2.00)
        pt3dadd(3260.12, 1690.98, 5584.18, 2.00)
        pt3dadd(3271.75, 1692.37, 5581.20, 2.00)
        pt3dadd(3277.10, 1693.25, 5578.16, 2.00)
        pt3dadd(3282.44, 1692.27, 5574.80, 2.00)
        pt3dadd(3295.93, 1692.53, 5570.75, 2.00)
        pt3dadd(3300.35, 1691.91, 5569.74, 2.00)
        pt3dadd(3310.58, 1694.55, 5569.52, 2.00)
        pt3dadd(3318.72, 1694.77, 5566.72, 2.00)
        pt3dadd(3336.63, 1694.19, 5564.45, 2.00)
        pt3dadd(3349.19, 1694.12, 5566.95, 2.00)
        pt3dadd(3351.98, 1694.12, 5566.95, 2.00)
        pt3dadd(3359.89, 1692.85, 5568.90, 2.00)
        pt3dadd(3363.61, 1693.24, 5569.99, 2.00)
        pt3dadd(3367.09, 1691.28, 5570.71, 2.00)
        pt3dadd(3373.37, 1690.84, 5570.87, 2.00)
        pt3dadd(3378.72, 1691.67, 5571.80, 2.00)
        pt3dadd(3383.37, 1691.63, 5573.05, 2.00)
        pt3dadd(3388.72, 1693.38, 5572.42, 2.00)
        pt3dadd(3401.28, 1691.89, 5571.72, 2.00)
        pt3dadd(3406.63, 1691.28, 5567.99, 2.00)
        pt3dadd(3421.05, 1692.15, 5570.39, 2.00)
        pt3dadd(3425.47, 1690.88, 5566.89, 2.00)
        pt3dadd(3426.40, 1689.03, 5563.86, 2.00)
        pt3dadd(3429.42, 1679.71, 5553.88, 2.00)
        pt3dadd(3437.56, 1666.29, 5536.74, 2.00)
        pt3dadd(3438.26, 1664.84, 5534.79, 2.00)
        pt3dadd(3438.26, 1664.18, 5535.03, 2.00)
  }
  nakeaxon[135] {pt3dclear()
        pt3dadd(3211.28, 1678.27, 5600.93, 2.00)
        pt3dadd(3208.49, 1676.86, 5600.46, 2.00)
        pt3dadd(3198.26, 1680.56, 5606.54, 2.00)
        pt3dadd(3191.51, 1684.31, 5609.38, 2.00)
        pt3dadd(3188.26, 1698.12, 5605.84, 2.00)
        pt3dadd(3183.84, 1703.21, 5611.65, 2.00)
        pt3dadd(3182.91, 1706.01, 5614.59, 2.00)
        pt3dadd(3182.91, 1705.79, 5614.68, 2.00)
  }
  nakeaxon[136] {pt3dclear()
        pt3dadd(3182.91, 1705.79, 5614.68, 2.00)
        pt3dadd(3181.28, 1711.36, 5619.08, 2.00)
        pt3dadd(3173.14, 1723.24, 5631.34, 2.00)
        pt3dadd(3165.00, 1733.50, 5640.48, 2.00)
        pt3dadd(3158.72, 1745.20, 5654.28, 2.00)
        pt3dadd(3156.86, 1749.20, 5657.78, 2.00)
        pt3dadd(3153.37, 1753.67, 5662.58, 2.00)
        pt3dadd(3149.89, 1757.89, 5668.72, 2.00)
        pt3dadd(3143.61, 1767.62, 5680.52, 2.00)
        pt3dadd(3136.40, 1777.80, 5694.88, 2.00)
        pt3dadd(3135.47, 1776.87, 5698.44, 2.00)
        pt3dadd(3130.12, 1785.71, 5709.82, 2.00)
        pt3dadd(3126.16, 1789.65, 5713.84, 2.00)
        pt3dadd(3123.61, 1793.07, 5717.79, 2.00)
        pt3dadd(3117.33, 1800.24, 5727.30, 2.00)
        pt3dadd(3116.40, 1801.60, 5728.30, 2.00)
        pt3dadd(3112.68, 1806.98, 5734.26, 2.00)
        pt3dadd(3103.37, 1812.09, 5740.81, 2.00)
        pt3dadd(3101.05, 1814.10, 5744.29, 2.00)
        pt3dadd(3092.91, 1827.15, 5756.36, 2.00)
        pt3dadd(3084.54, 1836.08, 5765.24, 2.00)
        pt3dadd(3080.82, 1840.67, 5771.74, 2.00)
        pt3dadd(3072.68, 1850.81, 5779.19, 2.00)
        pt3dadd(3070.35, 1854.80, 5782.68, 2.00)
        pt3dadd(3068.03, 1859.17, 5789.26, 2.00)
        pt3dadd(3068.49, 1862.07, 5793.15, 2.00)
        pt3dadd(3062.21, 1872.17, 5801.85, 2.00)
        pt3dadd(3060.12, 1881.15, 5804.77, 2.00)
        pt3dadd(3056.63, 1891.31, 5810.23, 2.00)
        pt3dadd(3048.96, 1900.97, 5821.81, 2.00)
        pt3dadd(3043.37, 1909.36, 5835.34, 2.00)
        pt3dadd(3042.21, 1915.50, 5844.73, 2.00)
        pt3dadd(3041.98, 1917.13, 5850.57, 2.00)
        pt3dadd(3037.33, 1929.57, 5856.19, 2.00)
        pt3dadd(3031.75, 1936.25, 5866.38, 2.00)
        pt3dadd(3026.86, 1942.31, 5878.28, 2.00)
        pt3dadd(3024.07, 1945.17, 5880.71, 2.00)
        pt3dadd(3020.12, 1953.10, 5888.22, 2.00)
        pt3dadd(3018.49, 1956.70, 5890.62, 2.00)
  }
  nakeaxon[137] {pt3dclear()
        pt3dadd(3182.91, 1705.79, 5614.68, 2.00)
        pt3dadd(3178.49, 1706.89, 5614.28, 2.00)
        pt3dadd(3176.63, 1709.07, 5613.48, 2.00)
        pt3dadd(3171.28, 1709.07, 5613.48, 2.00)
        pt3dadd(3171.28, 1709.73, 5613.24, 2.00)
  }
  nakeaxon[138] {pt3dclear()
        pt3dadd(3211.28, 1677.65, 5599.92, 2.00)
        pt3dadd(3210.12, 1684.67, 5606.28, 2.00)
        pt3dadd(3208.49, 1694.05, 5607.57, 2.00)
        pt3dadd(3207.56, 1694.92, 5609.97, 2.00)
        pt3dadd(3208.49, 1694.53, 5608.88, 2.00)
  }
  nakeaxon[139] {pt3dclear()
        pt3dadd(3208.49, 1694.53, 5608.88, 2.00)
        pt3dadd(3201.28, 1710.05, 5622.28, 2.00)
        pt3dadd(3195.93, 1719.39, 5632.99, 2.00)
        pt3dadd(3195.93, 1719.17, 5633.07, 2.00)
  }
  nakeaxon[140] {pt3dclear()
        pt3dadd(3195.93, 1719.17, 5633.07, 2.00)
        pt3dadd(3192.91, 1721.97, 5630.56, 2.00)
        pt3dadd(3187.56, 1725.69, 5629.21, 2.00)
        pt3dadd(3179.42, 1732.60, 5631.89, 2.00)
        pt3dadd(3175.00, 1735.32, 5634.61, 2.00)
        pt3dadd(3169.42, 1739.00, 5637.24, 2.00)
        pt3dadd(3163.14, 1744.17, 5640.55, 2.00)
        pt3dadd(3160.58, 1745.62, 5642.50, 2.00)
        pt3dadd(3153.37, 1754.60, 5650.86, 2.00)
        pt3dadd(3147.10, 1759.25, 5656.84, 2.00)
        pt3dadd(3141.75, 1762.85, 5659.24, 2.00)
        pt3dadd(3134.54, 1765.61, 5663.43, 2.00)
        pt3dadd(3131.28, 1767.06, 5665.38, 2.00)
        pt3dadd(3127.79, 1768.20, 5666.45, 2.00)
        pt3dadd(3116.86, 1779.25, 5672.33, 2.00)
        pt3dadd(3113.37, 1781.87, 5674.10, 2.00)
        pt3dadd(3103.14, 1790.16, 5681.23, 2.00)
        pt3dadd(3092.44, 1796.28, 5689.89, 2.00)
        pt3dadd(3088.26, 1798.76, 5694.68, 2.00)
        pt3dadd(3086.16, 1802.22, 5697.38, 2.00)
  }
  nakeaxon[141] {pt3dclear()
        pt3dadd(3086.16, 1802.22, 5697.38, 2.00)
        pt3dadd(3083.61, 1804.77, 5701.65, 2.00)
        pt3dadd(3079.42, 1813.83, 5712.95, 2.00)
        pt3dadd(3073.61, 1821.88, 5719.43, 2.00)
        pt3dadd(3071.98, 1823.92, 5721.65, 2.00)
        pt3dadd(3067.10, 1827.90, 5727.14, 2.00)
        pt3dadd(3061.98, 1839.77, 5738.66, 2.00)
        pt3dadd(3061.28, 1840.16, 5739.75, 2.00)
        pt3dadd(3060.12, 1839.33, 5738.81, 2.00)
        pt3dadd(3055.47, 1837.96, 5737.09, 2.00)
        pt3dadd(3054.77, 1843.64, 5737.74, 2.00)
        pt3dadd(3048.96, 1854.49, 5741.71, 2.00)
        pt3dadd(3040.58, 1867.64, 5752.02, 2.00)
        pt3dadd(3033.14, 1872.73, 5757.84, 2.00)
        pt3dadd(3031.98, 1877.64, 5762.49, 2.00)
        pt3dadd(3021.98, 1887.90, 5768.90, 2.00)
  }
}
proc geometry18() {
  nakeaxon[141] {
        pt3dadd(3020.12, 1891.28, 5774.11, 2.00)
        pt3dadd(3021.05, 1893.42, 5774.56, 2.00)
        pt3dadd(3019.89, 1899.52, 5785.21, 2.00)
        pt3dadd(3018.72, 1905.23, 5792.04, 2.00)
        pt3dadd(3019.42, 1906.90, 5796.63, 2.00)
        pt3dadd(3017.33, 1920.49, 5809.50, 2.00)
        pt3dadd(3018.03, 1920.89, 5810.60, 2.00)
        pt3dadd(3018.03, 1925.62, 5814.07, 2.00)
        pt3dadd(3015.47, 1930.79, 5817.39, 2.00)
        pt3dadd(3015.47, 1931.01, 5817.31, 2.00)
  }
  nakeaxon[142] {pt3dclear()
        pt3dadd(3086.16, 1802.22, 5697.38, 2.00)
        pt3dadd(3080.12, 1804.53, 5700.99, 2.00)
        pt3dadd(3075.00, 1809.77, 5704.53, 2.00)
        pt3dadd(3068.96, 1818.88, 5714.58, 2.00)
        pt3dadd(3060.58, 1827.22, 5723.92, 2.00)
        pt3dadd(3058.03, 1829.67, 5724.51, 2.00)
        pt3dadd(3051.51, 1836.66, 5730.13, 2.00)
        pt3dadd(3050.58, 1840.38, 5728.78, 2.00)
  }
  nakeaxon[143] {pt3dclear()
        pt3dadd(3195.93, 1719.17, 5633.07, 2.00)
        pt3dadd(3195.93, 1722.37, 5637.10, 2.00)
        pt3dadd(3194.30, 1733.42, 5648.42, 2.00)
        pt3dadd(3192.44, 1744.91, 5659.59, 2.00)
        pt3dadd(3191.51, 1747.45, 5663.86, 2.00)
  }
  nakeaxon[144] {pt3dclear()
        pt3dadd(3191.51, 1747.45, 5663.86, 2.00)
  }
  nakeaxon[145] {pt3dclear()
        pt3dadd(3191.51, 1747.45, 5663.86, 2.00)
        pt3dadd(3187.56, 1750.79, 5662.15, 2.00)
        pt3dadd(3187.56, 1750.57, 5662.23, 2.00)
  }
  nakeaxon[146] {pt3dclear()
        pt3dadd(3187.56, 1750.57, 5662.23, 2.00)
  }
  nakeaxon[147] {pt3dclear()
        pt3dadd(3187.56, 1750.57, 5662.23, 2.00)
        pt3dadd(3179.42, 1760.61, 5671.44, 2.00)
        pt3dadd(3179.42, 1760.83, 5671.36, 2.00)
  }
  nakeaxon[148] {pt3dclear()
        pt3dadd(3179.42, 1760.83, 5671.36, 2.00)
        pt3dadd(3180.35, 1764.46, 5675.24, 2.00)
        pt3dadd(3178.49, 1767.25, 5688.33, 2.00)
        pt3dadd(3172.21, 1771.49, 5703.37, 2.00)
        pt3dadd(3171.28, 1773.16, 5707.96, 2.00)
        pt3dadd(3170.58, 1775.80, 5715.91, 2.00)
        pt3dadd(3170.58, 1784.77, 5734.42, 2.00)
        pt3dadd(3168.72, 1787.09, 5738.77, 2.00)
        pt3dadd(3168.72, 1794.83, 5752.54, 2.00)
        pt3dadd(3170.58, 1796.28, 5757.21, 2.00)
        pt3dadd(3170.12, 1802.62, 5768.51, 2.00)
        pt3dadd(3171.98, 1808.86, 5778.86, 2.00)
        pt3dadd(3171.98, 1809.30, 5778.70, 2.00)
  }
  nakeaxon[149] {pt3dclear()
        pt3dadd(3179.42, 1760.83, 5671.36, 2.00)
        pt3dadd(3174.07, 1761.40, 5673.63, 2.00)
        pt3dadd(3169.65, 1772.43, 5678.77, 2.00)
        pt3dadd(3164.30, 1778.10, 5684.14, 2.00)
        pt3dadd(3151.98, 1782.49, 5686.00, 2.00)
        pt3dadd(3148.03, 1785.37, 5691.88, 2.00)
        pt3dadd(3141.98, 1787.20, 5696.91, 2.00)
        pt3dadd(3139.42, 1788.08, 5699.31, 2.00)
        pt3dadd(3125.93, 1793.62, 5708.43, 2.00)
        pt3dadd(3117.79, 1804.15, 5716.97, 2.00)
        pt3dadd(3111.98, 1809.22, 5722.06, 2.00)
        pt3dadd(3110.35, 1814.51, 5721.62, 2.00)
        pt3dadd(3100.35, 1825.82, 5728.89, 2.00)
        pt3dadd(3097.79, 1826.39, 5731.15, 2.00)
        pt3dadd(3089.65, 1833.86, 5738.08, 2.00)
        pt3dadd(3089.19, 1836.37, 5738.16, 2.00)
        pt3dadd(3088.49, 1840.04, 5740.78, 2.00)
        pt3dadd(3087.10, 1841.53, 5741.48, 2.00)
        pt3dadd(3083.37, 1846.24, 5741.50, 2.00)
        pt3dadd(3081.75, 1847.81, 5739.69, 2.00)
        pt3dadd(3081.28, 1853.14, 5735.27, 2.00)
        pt3dadd(3078.72, 1855.80, 5733.07, 2.00)
        pt3dadd(3074.77, 1866.05, 5739.48, 2.00)
        pt3dadd(3074.07, 1868.46, 5741.33, 2.00)
        pt3dadd(3069.19, 1879.90, 5748.30, 2.00)
        pt3dadd(3066.40, 1885.61, 5757.86, 2.00)
        pt3dadd(3062.44, 1887.76, 5761.03, 2.00)
        pt3dadd(3057.09, 1897.31, 5763.49, 2.00)
        pt3dadd(3055.00, 1901.82, 5767.05, 2.00)
        pt3dadd(3048.49, 1911.06, 5771.36, 2.00)
        pt3dadd(3042.21, 1918.04, 5776.24, 2.00)
        pt3dadd(3034.30, 1925.71, 5771.47, 2.00)
        pt3dadd(3029.42, 1933.76, 5775.23, 2.00)
        pt3dadd(3016.40, 1934.41, 5774.99, 2.00)
        pt3dadd(3009.19, 1939.02, 5774.05, 2.00)
        pt3dadd(3007.10, 1942.02, 5776.18, 2.00)
        pt3dadd(3007.10, 1943.33, 5775.70, 2.00)
  }
  nakeaxon[150] {pt3dclear()
        pt3dadd(3187.56, 1750.57, 5662.23, 2.00)
        pt3dadd(3182.21, 1749.78, 5660.04, 2.00)
        pt3dadd(3168.72, 1755.62, 5669.30, 2.00)
        pt3dadd(3156.16, 1763.73, 5677.98, 2.00)
        pt3dadd(3149.89, 1766.19, 5684.75, 2.00)
        pt3dadd(3139.89, 1774.92, 5694.45, 2.00)
        pt3dadd(3130.12, 1780.59, 5705.25, 2.00)
        pt3dadd(3129.19, 1782.65, 5708.21, 2.00)
        pt3dadd(3125.70, 1784.98, 5712.56, 2.00)
        pt3dadd(3122.91, 1786.87, 5714.35, 2.00)
        pt3dadd(3123.37, 1784.64, 5716.40, 2.00)
        pt3dadd(3119.42, 1787.27, 5720.89, 2.00)
        pt3dadd(3114.54, 1791.20, 5727.62, 2.00)
        pt3dadd(3101.51, 1802.31, 5743.87, 2.00)
        pt3dadd(3092.68, 1806.77, 5753.39, 2.00)
        pt3dadd(3078.72, 1814.03, 5771.29, 2.00)
        pt3dadd(3065.70, 1822.55, 5784.52, 2.00)
        pt3dadd(3054.07, 1825.91, 5797.15, 2.00)
        pt3dadd(3043.37, 1827.61, 5802.48, 2.00)
        pt3dadd(3037.33, 1826.41, 5804.64, 2.00)
        pt3dadd(3028.26, 1826.54, 5814.50, 2.00)
        pt3dadd(3019.42, 1829.56, 5825.53, 2.00)
        pt3dadd(3008.72, 1834.67, 5840.25, 2.00)
        pt3dadd(3004.54, 1835.50, 5843.90, 2.00)
        pt3dadd(2998.03, 1837.47, 5854.07, 2.00)
        pt3dadd(2996.63, 1838.35, 5856.48, 2.00)
        pt3dadd(2995.00, 1838.93, 5861.47, 2.00)
        pt3dadd(2994.54, 1838.59, 5865.30, 2.00)
        pt3dadd(2993.61, 1836.66, 5867.49, 2.00)
        pt3dadd(2994.07, 1834.54, 5870.49, 2.00)
        pt3dadd(2989.65, 1836.75, 5881.31, 2.00)
        pt3dadd(2985.23, 1836.59, 5889.04, 2.00)
        pt3dadd(2985.23, 1836.95, 5891.39, 2.00)
        pt3dadd(2981.51, 1837.13, 5895.28, 2.00)
        pt3dadd(2972.68, 1839.72, 5914.63, 2.00)
        pt3dadd(2963.61, 1843.78, 5931.22, 2.00)
        pt3dadd(2961.05, 1845.80, 5938.16, 2.00)
        pt3dadd(2953.61, 1849.82, 5956.00, 2.00)
        pt3dadd(2951.05, 1852.07, 5962.85, 2.00)
        pt3dadd(2944.77, 1855.57, 5983.36, 2.00)
        pt3dadd(2941.98, 1862.37, 5992.51, 2.00)
        pt3dadd(2938.49, 1868.65, 6004.33, 2.00)
        pt3dadd(2936.63, 1873.23, 6012.82, 2.00)
        pt3dadd(2931.28, 1878.89, 6023.62, 2.00)
        pt3dadd(2925.93, 1884.60, 6030.46, 2.00)
        pt3dadd(2924.07, 1887.50, 6037.07, 2.00)
        pt3dadd(2918.72, 1891.42, 6048.52, 2.00)
        pt3dadd(2915.00, 1893.88, 6055.29, 2.00)
        pt3dadd(2914.30, 1895.99, 6059.72, 2.00)
        pt3dadd(2911.51, 1895.77, 6059.80, 2.00)
  }
  nakeaxon[151] {pt3dclear()
        pt3dadd(3187.56, 1750.57, 5662.23, 2.00)
        pt3dadd(3180.35, 1748.90, 5657.64, 2.00)
        pt3dadd(3180.35, 1748.46, 5657.80, 2.00)
  }
  nakeaxon[152] {pt3dclear()
        pt3dadd(3180.35, 1748.46, 5657.80, 2.00)
        pt3dadd(3177.56, 1749.60, 5658.87, 2.00)
        pt3dadd(3166.86, 1759.49, 5660.22, 2.00)
        pt3dadd(3164.30, 1760.15, 5659.98, 2.00)
        pt3dadd(3156.16, 1765.28, 5664.55, 2.00)
        pt3dadd(3151.75, 1763.91, 5668.26, 2.00)
        pt3dadd(3149.19, 1770.50, 5670.07, 2.00)
        pt3dadd(3150.82, 1769.37, 5666.27, 2.00)
        pt3dadd(3150.82, 1769.59, 5666.20, 2.00)
  }
  nakeaxon[153] {pt3dclear()
        pt3dadd(3180.35, 1748.46, 5657.80, 2.00)
        pt3dadd(3177.56, 1748.76, 5655.21, 2.00)
        pt3dadd(3177.56, 1748.98, 5655.13, 2.00)
  }
  nakeaxon[154] {pt3dclear()
        pt3dadd(3177.56, 1748.98, 5655.13, 2.00)
        pt3dadd(3174.07, 1750.33, 5653.41, 2.00)
        pt3dadd(3163.37, 1753.75, 5654.64, 2.00)
        pt3dadd(3150.82, 1760.62, 5661.29, 2.00)
  }
}
proc geometry19() {
  nakeaxon[154] {
        pt3dadd(3148.96, 1762.47, 5664.33, 2.00)
        pt3dadd(3139.19, 1769.27, 5670.77, 2.00)
        pt3dadd(3133.61, 1771.46, 5672.69, 2.00)
        pt3dadd(3132.21, 1767.80, 5676.25, 2.00)
        pt3dadd(3128.49, 1768.14, 5677.86, 2.00)
        pt3dadd(3123.61, 1772.25, 5683.04, 2.00)
        pt3dadd(3112.68, 1781.56, 5689.56, 2.00)
        pt3dadd(3103.61, 1792.25, 5695.81, 2.00)
        pt3dadd(3092.44, 1796.26, 5702.77, 2.00)
        pt3dadd(3084.07, 1803.81, 5707.19, 2.00)
        pt3dadd(3075.47, 1811.80, 5711.46, 2.00)
        pt3dadd(3072.21, 1816.61, 5715.16, 2.00)
        pt3dadd(3065.70, 1822.73, 5721.10, 2.00)
        pt3dadd(3051.28, 1830.66, 5728.60, 2.00)
        pt3dadd(3050.35, 1830.84, 5729.78, 2.00)
        pt3dadd(3034.07, 1839.39, 5738.30, 2.00)
        pt3dadd(3030.82, 1840.78, 5740.76, 2.00)
        pt3dadd(3018.03, 1847.24, 5748.31, 2.00)
        pt3dadd(3003.84, 1853.36, 5756.97, 2.00)
        pt3dadd(2993.61, 1856.36, 5764.54, 2.00)
        pt3dadd(2981.51, 1864.55, 5770.72, 2.00)
        pt3dadd(2977.79, 1865.96, 5773.92, 2.00)
        pt3dadd(2971.28, 1867.81, 5776.95, 2.00)
        pt3dadd(2961.28, 1875.94, 5786.37, 2.00)
        pt3dadd(2959.42, 1876.64, 5787.60, 2.00)
        pt3dadd(2943.14, 1882.88, 5795.23, 2.00)
        pt3dadd(2933.14, 1888.84, 5798.01, 2.00)
        pt3dadd(2927.56, 1889.99, 5802.54, 2.00)
        pt3dadd(2923.14, 1891.62, 5805.66, 2.00)
        pt3dadd(2909.42, 1897.25, 5812.27, 2.00)
        pt3dadd(2897.56, 1904.22, 5819.88, 2.00)
        pt3dadd(2887.33, 1909.37, 5827.91, 2.00)
        pt3dadd(2876.86, 1916.84, 5834.84, 2.00)
        pt3dadd(2868.49, 1921.38, 5841.85, 2.00)
        pt3dadd(2858.49, 1932.39, 5848.98, 2.00)
        pt3dadd(2844.77, 1940.88, 5866.18, 2.00)
        pt3dadd(2838.72, 1947.79, 5874.31, 2.00)
        pt3dadd(2834.77, 1952.84, 5881.38, 2.00)
        pt3dadd(2834.07, 1954.59, 5880.74, 2.00)
  }
  nakeaxon[155] {pt3dclear()
        pt3dadd(3177.56, 1748.98, 5655.13, 2.00)
        pt3dadd(3173.14, 1749.06, 5652.63, 2.00)
        pt3dadd(3165.00, 1746.77, 5647.03, 2.00)
        pt3dadd(3161.51, 1746.77, 5647.03, 2.00)
        pt3dadd(3143.61, 1747.51, 5644.29, 2.00)
        pt3dadd(3139.89, 1747.51, 5644.29, 2.00)
        pt3dadd(3130.12, 1750.53, 5644.43, 2.00)
        pt3dadd(3126.63, 1749.26, 5643.65, 2.00)
        pt3dadd(3124.77, 1749.69, 5643.49, 2.00)
  }
  nakeaxon[156] {pt3dclear()
        pt3dadd(3191.51, 1747.45, 5663.86, 2.00)
        pt3dadd(3192.44, 1751.96, 5667.41, 2.00)
        pt3dadd(3195.00, 1754.21, 5666.10, 2.00)
  }
  nakeaxon[157] {pt3dclear()
        pt3dadd(3195.00, 1754.21, 5666.10, 2.00)
        pt3dadd(3195.70, 1758.40, 5660.62, 2.00)
        pt3dadd(3200.12, 1760.42, 5645.77, 2.00)
        pt3dadd(3201.75, 1759.63, 5643.59, 2.00)
        pt3dadd(3201.75, 1762.25, 5642.63, 2.00)
  }
  nakeaxon[158] {pt3dclear()
        pt3dadd(3195.00, 1754.21, 5666.10, 2.00)
        pt3dadd(3208.26, 1751.81, 5666.98, 2.00)
        pt3dadd(3215.47, 1752.46, 5666.74, 2.00)
        pt3dadd(3220.82, 1751.19, 5665.96, 2.00)
        pt3dadd(3233.37, 1746.28, 5661.32, 2.00)
        pt3dadd(3243.37, 1741.99, 5657.68, 2.00)
        pt3dadd(3254.07, 1739.76, 5659.73, 2.00)
        pt3dadd(3259.42, 1738.67, 5660.12, 2.00)
        pt3dadd(3261.28, 1739.07, 5661.22, 2.00)
        pt3dadd(3273.84, 1733.28, 5659.61, 2.00)
        pt3dadd(3282.68, 1731.76, 5660.17, 2.00)
        pt3dadd(3294.54, 1728.91, 5658.48, 2.00)
        pt3dadd(3311.51, 1725.32, 5656.08, 2.00)
        pt3dadd(3314.77, 1724.68, 5654.33, 2.00)
        pt3dadd(3332.68, 1719.34, 5652.56, 2.00)
        pt3dadd(3344.30, 1718.86, 5653.97, 2.00)
        pt3dadd(3347.79, 1718.46, 5652.88, 2.00)
        pt3dadd(3360.35, 1718.38, 5655.38, 2.00)
        pt3dadd(3373.84, 1714.05, 5653.00, 2.00)
        pt3dadd(3388.26, 1715.00, 5650.18, 2.00)
        pt3dadd(3390.82, 1715.40, 5651.27, 2.00)
        pt3dadd(3395.47, 1716.75, 5649.54, 2.00)
        pt3dadd(3412.44, 1712.24, 5645.99, 2.00)
        pt3dadd(3428.96, 1707.61, 5640.74, 2.00)
        pt3dadd(3439.89, 1704.09, 5638.56, 2.00)
        pt3dadd(3440.58, 1705.72, 5636.23, 2.00)
  }
  nakeaxon[159] {pt3dclear()
        pt3dadd(3440.58, 1705.72, 5636.23, 2.00)
        pt3dadd(3445.47, 1720.67, 5658.26, 2.00)
        pt3dadd(3449.89, 1730.55, 5672.49, 2.00)
        pt3dadd(3450.82, 1733.39, 5674.17, 2.00)
        pt3dadd(3452.44, 1737.21, 5679.22, 2.00)
        pt3dadd(3458.03, 1742.73, 5684.88, 2.00)
  }
  nakeaxon[160] {pt3dclear()
        pt3dadd(3440.58, 1705.72, 5636.23, 2.00)
        pt3dadd(3446.86, 1704.01, 5632.90, 2.00)
        pt3dadd(3452.21, 1700.85, 5630.33, 2.00)
        pt3dadd(3460.35, 1694.93, 5620.86, 2.00)
        pt3dadd(3456.40, 1692.80, 5629.30, 2.00)
        pt3dadd(3462.21, 1686.13, 5624.56, 2.00)
        pt3dadd(3467.79, 1680.48, 5617.21, 2.00)
        pt3dadd(3475.24, 1673.33, 5613.87, 2.00)
        pt3dadd(3484.77, 1670.29, 5610.27, 2.00)
        pt3dadd(3494.77, 1664.74, 5603.88, 2.00)
        pt3dadd(3501.51, 1659.12, 5599.99, 2.00)
        pt3dadd(3504.07, 1656.24, 5599.55, 2.00)
        pt3dadd(3512.68, 1651.53, 5594.09, 2.00)
        pt3dadd(3526.40, 1643.99, 5587.67, 2.00)
        pt3dadd(3537.56, 1637.85, 5583.72, 2.00)
        pt3dadd(3542.44, 1635.41, 5580.40, 2.00)
        pt3dadd(3555.70, 1629.21, 5574.24, 2.00)
        pt3dadd(3558.49, 1627.20, 5573.49, 2.00)
        pt3dadd(3574.30, 1622.31, 5572.30, 2.00)
        pt3dadd(3583.84, 1624.84, 5575.84, 2.00)
        pt3dadd(3586.63, 1624.24, 5578.28, 2.00)
        pt3dadd(3590.35, 1625.17, 5577.44, 2.00)
        pt3dadd(3596.63, 1625.06, 5578.48, 2.00)
        pt3dadd(3605.47, 1625.69, 5577.50, 2.00)
        pt3dadd(3618.72, 1622.12, 5575.84, 2.00)
        pt3dadd(3625.70, 1621.16, 5573.21, 2.00)
        pt3dadd(3632.21, 1621.10, 5576.45, 2.00)
        pt3dadd(3642.68, 1618.60, 5573.65, 2.00)
        pt3dadd(3648.96, 1617.78, 5573.45, 2.00)
        pt3dadd(3653.37, 1617.19, 5573.18, 2.00)
        pt3dadd(3658.96, 1614.66, 5572.36, 2.00)
        pt3dadd(3662.21, 1612.22, 5571.77, 2.00)
  }
  nakeaxon[161] {pt3dclear()
        pt3dadd(3191.51, 1747.45, 5663.86, 2.00)
        pt3dadd(3190.58, 1761.52, 5678.04, 2.00)
        pt3dadd(3188.03, 1765.62, 5687.93, 2.00)
        pt3dadd(3188.03, 1765.84, 5687.85, 2.00)
        pt3dadd(3187.09, 1763.65, 5691.37, 2.00)
  }
  nakeaxon[162] {pt3dclear()
        pt3dadd(3187.09, 1763.65, 5691.37, 2.00)
        pt3dadd(3186.86, 1764.69, 5694.21, 2.00)
        pt3dadd(3187.09, 1774.28, 5687.26, 2.00)
        pt3dadd(3186.86, 1784.50, 5694.92, 2.00)
        pt3dadd(3178.72, 1791.79, 5700.68, 2.00)
        pt3dadd(3175.93, 1793.62, 5702.98, 2.00)
        pt3dadd(3176.16, 1796.16, 5704.53, 2.00)
        pt3dadd(3175.23, 1804.27, 5713.22, 2.00)
        pt3dadd(3175.93, 1806.40, 5715.66, 2.00)
        pt3dadd(3178.96, 1812.94, 5720.70, 2.00)
        pt3dadd(3178.26, 1815.20, 5722.85, 2.00)
        pt3dadd(3182.21, 1818.86, 5724.73, 2.00)
        pt3dadd(3186.63, 1827.98, 5732.80, 2.00)
        pt3dadd(3188.49, 1829.25, 5733.57, 2.00)
        pt3dadd(3194.07, 1842.33, 5743.66, 2.00)
        pt3dadd(3197.09, 1854.65, 5755.76, 2.00)
        pt3dadd(3199.42, 1861.23, 5756.83, 2.00)
        pt3dadd(3198.26, 1862.78, 5759.73, 2.00)
        pt3dadd(3195.23, 1873.91, 5768.55, 2.00)
        pt3dadd(3193.37, 1880.96, 5773.65, 2.00)
        pt3dadd(3193.37, 1886.09, 5778.22, 2.00)
        pt3dadd(3194.77, 1892.13, 5783.94, 2.00)
        pt3dadd(3195.70, 1895.33, 5787.97, 2.00)
        pt3dadd(3198.96, 1902.53, 5798.22, 2.00)
        pt3dadd(3201.51, 1903.94, 5801.42, 2.00)
  }
}
proc geometry20() {
  nakeaxon[162] {
        pt3dadd(3204.30, 1907.00, 5805.75, 2.00)
        pt3dadd(3204.07, 1910.20, 5809.79, 2.00)
        pt3dadd(3205.00, 1911.22, 5811.89, 2.00)
        pt3dadd(3209.19, 1918.45, 5820.89, 2.00)
        pt3dadd(3213.37, 1925.03, 5830.13, 2.00)
        pt3dadd(3215.93, 1929.17, 5841.49, 2.00)
        pt3dadd(3218.26, 1930.22, 5845.07, 2.00)
        pt3dadd(3222.68, 1934.32, 5860.40, 2.00)
        pt3dadd(3224.07, 1935.59, 5863.90, 2.00)
        pt3dadd(3225.00, 1938.06, 5870.68, 2.00)
        pt3dadd(3225.70, 1941.32, 5879.64, 2.00)
        pt3dadd(3226.40, 1942.99, 5884.22, 2.00)
        pt3dadd(3228.49, 1945.73, 5890.40, 2.00)
        pt3dadd(3228.96, 1953.07, 5903.08, 2.00)
        pt3dadd(3230.35, 1957.10, 5910.76, 2.00)
        pt3dadd(3230.35, 1958.37, 5914.26, 2.00)
        pt3dadd(3233.84, 1961.85, 5923.14, 2.00)
        pt3dadd(3235.70, 1965.49, 5924.29, 2.00)
  }
  nakeaxon[163] {pt3dclear()
        pt3dadd(3187.09, 1763.65, 5691.37, 2.00)
        pt3dadd(3182.91, 1767.55, 5702.08, 2.00)
        pt3dadd(3182.21, 1768.82, 5705.58, 2.00)
        pt3dadd(3178.49, 1772.96, 5716.94, 2.00)
        pt3dadd(3175.93, 1777.28, 5729.47, 2.00)
        pt3dadd(3169.65, 1782.31, 5746.70, 2.00)
        pt3dadd(3168.72, 1782.27, 5750.67, 2.00)
        pt3dadd(3163.37, 1787.16, 5768.20, 2.00)
        pt3dadd(3161.51, 1789.95, 5778.57, 2.00)
        pt3dadd(3162.44, 1791.00, 5782.14, 2.00)
        pt3dadd(3161.51, 1793.83, 5791.26, 2.00)
        pt3dadd(3161.51, 1795.10, 5794.76, 2.00)
  }
  nakeaxon[164] {pt3dclear()
        pt3dadd(3161.51, 1795.10, 5794.76, 2.00)
        pt3dadd(3164.54, 1793.45, 5796.35, 2.00)
        pt3dadd(3166.40, 1790.53, 5802.61, 2.00)
        pt3dadd(3169.19, 1788.96, 5804.42, 2.00)
        pt3dadd(3170.82, 1787.21, 5805.05, 2.00)
        pt3dadd(3173.61, 1785.60, 5808.11, 2.00)
        pt3dadd(3176.16, 1783.90, 5810.22, 2.00)
        pt3dadd(3178.03, 1783.22, 5820.61, 2.00)
        pt3dadd(3177.09, 1783.64, 5833.33, 2.00)
        pt3dadd(3174.54, 1781.30, 5841.85, 2.00)
        pt3dadd(3176.16, 1780.27, 5849.90, 2.00)
        pt3dadd(3172.68, 1773.99, 5857.13, 2.00)
        pt3dadd(3176.16, 1774.02, 5863.31, 2.00)
        pt3dadd(3177.79, 1774.41, 5864.40, 2.00)
        pt3dadd(3179.89, 1767.92, 5869.00, 2.00)
        pt3dadd(3185.70, 1764.98, 5877.24, 2.00)
        pt3dadd(3186.63, 1760.19, 5887.89, 2.00)
        pt3dadd(3188.03, 1756.80, 5895.57, 2.00)
        pt3dadd(3188.26, 1756.72, 5898.07, 2.00)
        pt3dadd(3193.14, 1753.64, 5906.61, 2.00)
        pt3dadd(3194.54, 1753.63, 5911.32, 2.00)
        pt3dadd(3197.79, 1747.97, 5919.57, 2.00)
        pt3dadd(3200.82, 1739.29, 5927.68, 2.00)
        pt3dadd(3205.70, 1736.29, 5928.28, 2.00)
        pt3dadd(3208.96, 1724.21, 5941.33, 2.00)
        pt3dadd(3208.96, 1718.75, 5943.32, 2.00)
        pt3dadd(3211.51, 1710.82, 5952.14, 2.00)
        pt3dadd(3209.89, 1704.23, 5961.23, 2.00)
        pt3dadd(3209.19, 1704.57, 5962.84, 2.00)
        pt3dadd(3208.49, 1700.93, 5964.41, 2.00)
        pt3dadd(3208.96, 1696.58, 5969.45, 2.00)
        pt3dadd(3209.89, 1695.27, 5969.93, 2.00)
        pt3dadd(3213.37, 1696.94, 5979.97, 2.00)
        pt3dadd(3223.37, 1687.35, 5986.92, 2.00)
        pt3dadd(3226.86, 1686.35, 5988.27, 2.00)
        pt3dadd(3236.40, 1675.98, 5996.50, 2.00)
        pt3dadd(3239.19, 1674.99, 5997.85, 2.00)
        pt3dadd(3240.82, 1672.98, 5999.82, 2.00)
        pt3dadd(3244.54, 1672.91, 5999.60, 2.00)
        pt3dadd(3244.54, 1672.69, 5999.68, 2.00)
  }
  nakeaxon[165] {pt3dclear()
        pt3dadd(3161.51, 1795.10, 5794.76, 2.00)
        pt3dadd(3160.58, 1799.45, 5806.04, 2.00)
        pt3dadd(3158.72, 1806.19, 5826.60, 2.00)
        pt3dadd(3159.65, 1807.35, 5831.13, 2.00)
        pt3dadd(3161.75, 1812.16, 5845.72, 2.00)
        pt3dadd(3161.75, 1813.31, 5850.25, 2.00)
        pt3dadd(3162.68, 1814.19, 5852.65, 2.00)
  }
  nakeaxon[166] {pt3dclear()
        pt3dadd(3162.68, 1814.19, 5852.65, 2.00)
        pt3dadd(3158.26, 1815.90, 5855.99, 2.00)
        pt3dadd(3149.19, 1820.00, 5868.60, 2.00)
        pt3dadd(3139.42, 1823.51, 5876.23, 2.00)
        pt3dadd(3131.28, 1827.07, 5885.33, 2.00)
        pt3dadd(3121.51, 1831.17, 5897.95, 2.00)
        pt3dadd(3119.65, 1831.97, 5900.13, 2.00)
        pt3dadd(3106.16, 1835.33, 5918.21, 2.00)
        pt3dadd(3096.40, 1837.94, 5930.13, 2.00)
        pt3dadd(3092.68, 1838.25, 5933.73, 2.00)
        pt3dadd(3086.40, 1840.06, 5943.46, 2.00)
        pt3dadd(3084.30, 1840.43, 5956.70, 2.00)
        pt3dadd(3085.47, 1837.95, 5973.68, 2.00)
        pt3dadd(3080.12, 1837.46, 5987.97, 2.00)
        pt3dadd(3079.19, 1837.77, 5991.57, 2.00)
        pt3dadd(3080.12, 1834.28, 5995.56, 2.00)
        pt3dadd(3078.26, 1833.98, 5998.14, 2.00)
        pt3dadd(3074.54, 1828.86, 6007.19, 2.00)
        pt3dadd(3069.65, 1828.28, 6015.81, 2.00)
        pt3dadd(3061.98, 1825.19, 6029.06, 2.00)
        pt3dadd(3060.12, 1825.67, 6030.37, 2.00)
        pt3dadd(3059.42, 1825.45, 6033.18, 2.00)
        pt3dadd(3057.56, 1824.46, 6042.69, 2.00)
        pt3dadd(3048.49, 1822.79, 6054.44, 2.00)
        pt3dadd(3042.44, 1822.24, 6069.24, 2.00)
        pt3dadd(3037.09, 1825.30, 6079.01, 2.00)
        pt3dadd(3036.40, 1825.54, 6090.56, 2.00)
        pt3dadd(3036.40, 1826.42, 6090.24, 2.00)
  }
  nakeaxon[167] {pt3dclear()
        pt3dadd(3162.68, 1814.19, 5852.65, 2.00)
        pt3dadd(3161.75, 1816.26, 5858.33, 2.00)
        pt3dadd(3161.75, 1824.53, 5878.34, 2.00)
        pt3dadd(3161.75, 1825.32, 5880.52, 2.00)
        pt3dadd(3161.75, 1824.01, 5881.00, 2.00)
  }
  nakeaxon[168] {pt3dclear()
        pt3dadd(3208.49, 1694.53, 5608.88, 2.00)
        pt3dadd(3209.42, 1695.86, 5614.58, 2.00)
        pt3dadd(3211.75, 1687.82, 5624.44, 2.00)
        pt3dadd(3213.14, 1688.97, 5628.97, 2.00)
        pt3dadd(3218.49, 1692.77, 5638.72, 2.00)
        pt3dadd(3219.42, 1692.98, 5638.64, 2.00)
  }
  nakeaxon[169] {pt3dclear()
        pt3dadd(3219.42, 1692.98, 5638.64, 2.00)
        pt3dadd(3220.35, 1692.21, 5639.91, 2.00)
        pt3dadd(3222.44, 1693.66, 5641.86, 2.00)
        pt3dadd(3224.07, 1695.00, 5650.28, 2.00)
        pt3dadd(3225.93, 1696.11, 5653.34, 2.00)
        pt3dadd(3224.77, 1695.89, 5658.87, 2.00)
        pt3dadd(3225.93, 1695.99, 5662.54, 2.00)
        pt3dadd(3228.96, 1697.11, 5665.60, 2.00)
        pt3dadd(3228.96, 1697.33, 5665.52, 2.00)
  }
  nakeaxon[170] {pt3dclear()
        pt3dadd(3228.96, 1697.33, 5665.52, 2.00)
        pt3dadd(3235.23, 1698.86, 5670.41, 2.00)
        pt3dadd(3238.26, 1700.23, 5672.14, 2.00)
        pt3dadd(3238.49, 1701.20, 5675.49, 2.00)
        pt3dadd(3240.82, 1703.41, 5680.88, 2.00)
        pt3dadd(3248.49, 1706.29, 5686.76, 2.00)
        pt3dadd(3256.40, 1709.33, 5693.08, 2.00)
  }
  nakeaxon[171] {pt3dclear()
        pt3dadd(3256.40, 1709.33, 5693.08, 2.00)
        pt3dadd(3259.65, 1706.81, 5689.54, 2.00)
        pt3dadd(3266.63, 1705.06, 5679.29, 2.00)
        pt3dadd(3270.12, 1704.36, 5675.33, 2.00)
        pt3dadd(3275.93, 1703.58, 5671.16, 2.00)
        pt3dadd(3286.63, 1699.61, 5660.24, 2.00)
        pt3dadd(3288.49, 1699.13, 5658.93, 2.00)
        pt3dadd(3299.19, 1696.35, 5648.55, 2.00)
        pt3dadd(3301.05, 1695.83, 5648.49, 2.00)
        pt3dadd(3306.86, 1693.34, 5643.71, 2.00)
        pt3dadd(3320.58, 1692.27, 5636.67, 2.00)
        pt3dadd(3332.68, 1690.64, 5630.83, 2.00)
        pt3dadd(3349.19, 1689.45, 5624.83, 2.00)
        pt3dadd(3353.37, 1687.97, 5622.15, 2.00)
        pt3dadd(3354.77, 1686.92, 5618.57, 2.00)
        pt3dadd(3355.47, 1687.14, 5615.77, 2.00)
        pt3dadd(3358.96, 1692.72, 5610.03, 2.00)
        pt3dadd(3366.86, 1699.83, 5601.01, 2.00)
  }
}
proc geometry21() {
  nakeaxon[171] {
        pt3dadd(3368.72, 1700.74, 5596.71, 2.00)
        pt3dadd(3379.42, 1704.40, 5587.71, 2.00)
        pt3dadd(3384.07, 1706.48, 5583.24, 2.00)
        pt3dadd(3391.28, 1709.80, 5578.07, 2.00)
        pt3dadd(3399.19, 1712.93, 5571.74, 2.00)
        pt3dadd(3402.91, 1714.58, 5567.42, 2.00)
        pt3dadd(3404.54, 1716.37, 5565.54, 2.00)
        pt3dadd(3410.82, 1716.45, 5560.31, 2.00)
        pt3dadd(3423.37, 1721.04, 5555.92, 2.00)
        pt3dadd(3428.96, 1719.23, 5551.63, 2.00)
        pt3dadd(3432.44, 1722.50, 5547.71, 2.00)
        pt3dadd(3435.47, 1720.18, 5546.08, 2.00)
        pt3dadd(3441.05, 1721.05, 5537.60, 2.00)
        pt3dadd(3447.79, 1718.49, 5529.87, 2.00)
        pt3dadd(3456.86, 1722.34, 5520.06, 2.00)
        pt3dadd(3461.28, 1723.07, 5514.59, 2.00)
        pt3dadd(3470.12, 1721.93, 5502.63, 2.00)
        pt3dadd(3471.98, 1721.46, 5501.32, 2.00)
        pt3dadd(3479.89, 1717.96, 5491.70, 2.00)
        pt3dadd(3482.68, 1717.48, 5490.39, 2.00)
        pt3dadd(3488.49, 1715.51, 5485.66, 2.00)
        pt3dadd(3490.82, 1714.16, 5481.95, 2.00)
        pt3dadd(3492.68, 1713.46, 5480.72, 2.00)
  }
  nakeaxon[172] {pt3dclear()
        pt3dadd(3256.40, 1709.33, 5693.08, 2.00)
        pt3dadd(3264.30, 1714.07, 5702.00, 2.00)
        pt3dadd(3269.42, 1718.16, 5706.45, 2.00)
        pt3dadd(3270.35, 1720.09, 5706.98, 2.00)
        pt3dadd(3276.17, 1726.86, 5704.51, 2.00)
        pt3dadd(3280.82, 1731.07, 5710.65, 2.00)
        pt3dadd(3287.79, 1733.54, 5717.43, 2.00)
        pt3dadd(3298.72, 1734.88, 5725.85, 2.00)
        pt3dadd(3302.91, 1730.09, 5733.78, 2.00)
        pt3dadd(3306.86, 1730.47, 5736.86, 2.00)
        pt3dadd(3311.51, 1730.53, 5741.79, 2.00)
        pt3dadd(3321.75, 1732.16, 5753.07, 2.00)
        pt3dadd(3331.28, 1740.31, 5768.67, 2.00)
        pt3dadd(3335.93, 1745.56, 5780.37, 2.00)
        pt3dadd(3341.98, 1749.83, 5785.99, 2.00)
        pt3dadd(3349.89, 1752.64, 5794.37, 2.00)
        pt3dadd(3359.65, 1754.47, 5799.40, 2.00)
        pt3dadd(3363.14, 1755.32, 5801.07, 2.00)
        pt3dadd(3378.26, 1756.77, 5808.46, 2.00)
        pt3dadd(3387.79, 1758.27, 5814.60, 2.00)
        pt3dadd(3391.75, 1757.67, 5817.04, 2.00)
        pt3dadd(3393.14, 1760.22, 5821.31, 2.00)
        pt3dadd(3398.72, 1759.84, 5831.84, 2.00)
        pt3dadd(3405.23, 1760.80, 5834.47, 2.00)
        pt3dadd(3411.28, 1758.08, 5842.63, 2.00)
        pt3dadd(3412.21, 1758.08, 5842.63, 2.00)
        pt3dadd(3416.16, 1757.04, 5845.24, 2.00)
        pt3dadd(3420.82, 1754.66, 5849.57, 2.00)
        pt3dadd(3423.61, 1754.76, 5850.52, 2.00)
        pt3dadd(3431.05, 1751.20, 5855.03, 2.00)
        pt3dadd(3437.79, 1749.98, 5861.17, 2.00)
        pt3dadd(3444.30, 1749.30, 5863.40, 2.00)
        pt3dadd(3457.56, 1751.59, 5871.72, 2.00)
        pt3dadd(3471.28, 1750.24, 5873.45, 2.00)
        pt3dadd(3485.93, 1751.25, 5875.56, 2.00)
        pt3dadd(3491.05, 1750.34, 5871.68, 2.00)
        pt3dadd(3498.26, 1750.24, 5873.45, 2.00)
        pt3dadd(3508.96, 1750.36, 5872.42, 2.00)
        pt3dadd(3511.75, 1749.84, 5872.36, 2.00)
  }
  nakeaxon[173] {pt3dclear()
        pt3dadd(3228.96, 1697.33, 5665.52, 2.00)
        pt3dadd(3231.28, 1698.78, 5670.19, 2.00)
        pt3dadd(3232.21, 1698.22, 5671.38, 2.00)
        pt3dadd(3234.30, 1698.14, 5676.61, 2.00)
        pt3dadd(3234.07, 1701.04, 5683.22, 2.00)
        pt3dadd(3235.70, 1701.82, 5692.84, 2.00)
        pt3dadd(3236.86, 1702.64, 5706.65, 2.00)
        pt3dadd(3238.03, 1703.95, 5708.89, 2.00)
        pt3dadd(3241.75, 1706.20, 5723.91, 2.00)
        pt3dadd(3241.28, 1708.41, 5729.30, 2.00)
        pt3dadd(3241.05, 1710.36, 5744.18, 2.00)
        pt3dadd(3241.51, 1713.22, 5749.32, 2.00)
        pt3dadd(3245.00, 1716.91, 5771.00, 2.00)
        pt3dadd(3243.84, 1718.18, 5777.22, 2.00)
        pt3dadd(3244.07, 1718.36, 5778.39, 2.00)
  }
  nakeaxon[174] {pt3dclear()
        pt3dadd(3219.42, 1692.98, 5638.64, 2.00)
        pt3dadd(3219.19, 1692.81, 5640.19, 2.00)
        pt3dadd(3217.79, 1694.00, 5640.75, 2.00)
  }
  nakeaxon[175] {pt3dclear()
        pt3dadd(3217.79, 1694.00, 5640.75, 2.00)
        pt3dadd(3218.49, 1691.64, 5643.09, 2.00)
        pt3dadd(3221.05, 1691.84, 5650.44, 2.00)
        pt3dadd(3221.51, 1691.54, 5655.75, 2.00)
        pt3dadd(3226.16, 1690.03, 5659.76, 2.00)
        pt3dadd(3233.14, 1688.36, 5668.78, 2.00)
        pt3dadd(3240.12, 1687.71, 5677.19, 2.00)
        pt3dadd(3245.00, 1686.32, 5680.17, 2.00)
        pt3dadd(3248.49, 1684.38, 5681.62, 2.00)
        pt3dadd(3249.65, 1682.81, 5683.43, 2.00)
        pt3dadd(3257.56, 1681.24, 5693.40, 2.00)
        pt3dadd(3261.28, 1679.89, 5695.13, 2.00)
        pt3dadd(3269.89, 1679.63, 5701.91, 2.00)
        pt3dadd(3270.12, 1679.59, 5703.16, 2.00)
        pt3dadd(3279.42, 1678.54, 5710.47, 2.00)
        pt3dadd(3279.65, 1679.12, 5712.74, 2.00)
        pt3dadd(3281.51, 1677.47, 5714.32, 2.00)
        pt3dadd(3290.58, 1678.82, 5723.48, 2.00)
        pt3dadd(3293.61, 1678.85, 5729.66, 2.00)
        pt3dadd(3302.91, 1680.92, 5743.51, 2.00)
        pt3dadd(3311.51, 1687.06, 5750.19, 2.00)
        pt3dadd(3315.24, 1688.17, 5753.24, 2.00)
        pt3dadd(3317.33, 1689.80, 5756.36, 2.00)
        pt3dadd(3323.37, 1692.03, 5762.48, 2.00)
        pt3dadd(3326.86, 1693.76, 5769.28, 2.00)
        pt3dadd(3331.51, 1699.74, 5780.96, 2.00)
        pt3dadd(3332.91, 1703.26, 5785.87, 2.00)
        pt3dadd(3337.79, 1709.25, 5800.27, 2.00)
        pt3dadd(3341.05, 1711.63, 5806.82, 2.00)
        pt3dadd(3343.61, 1716.38, 5813.76, 2.00)
        pt3dadd(3346.16, 1717.86, 5821.88, 2.00)
        pt3dadd(3348.49, 1721.33, 5828.04, 2.00)
        pt3dadd(3356.63, 1724.44, 5836.56, 2.00)
        pt3dadd(3356.16, 1726.37, 5842.54, 2.00)
        pt3dadd(3360.35, 1729.55, 5848.56, 2.00)
        pt3dadd(3359.42, 1732.98, 5853.25, 2.00)
        pt3dadd(3360.82, 1736.11, 5857.07, 2.00)
        pt3dadd(3362.21, 1738.13, 5864.00, 2.00)
        pt3dadd(3363.37, 1739.59, 5865.94, 2.00)
        pt3dadd(3362.91, 1744.49, 5870.59, 2.00)
        pt3dadd(3363.14, 1746.24, 5872.68, 2.00)
        pt3dadd(3362.91, 1750.71, 5877.49, 2.00)
        pt3dadd(3363.61, 1749.58, 5876.41, 2.00)
  }
  nakeaxon[176] {pt3dclear()
        pt3dadd(3217.79, 1694.00, 5640.75, 2.00)
        pt3dadd(3219.65, 1695.71, 5641.36, 2.00)
        pt3dadd(3221.51, 1707.81, 5634.48, 2.00)
        pt3dadd(3225.00, 1714.38, 5641.00, 2.00)
        pt3dadd(3228.72, 1722.49, 5646.96, 2.00)
        pt3dadd(3229.65, 1727.22, 5650.43, 2.00)
        pt3dadd(3230.58, 1734.93, 5658.02, 2.00)
        pt3dadd(3235.00, 1738.71, 5661.60, 2.00)
        pt3dadd(3236.86, 1742.09, 5666.80, 2.00)
        pt3dadd(3240.35, 1745.47, 5672.00, 2.00)
        pt3dadd(3247.56, 1749.14, 5674.63, 2.00)
        pt3dadd(3245.70, 1754.05, 5676.55, 2.00)
        pt3dadd(3248.49, 1761.55, 5684.22, 2.00)
        pt3dadd(3251.05, 1772.16, 5695.70, 2.00)
        pt3dadd(3249.42, 1777.68, 5701.36, 2.00)
        pt3dadd(3250.12, 1784.98, 5704.40, 2.00)
        pt3dadd(3251.98, 1786.73, 5706.48, 2.00)
        pt3dadd(3251.28, 1800.84, 5713.97, 2.00)
        pt3dadd(3251.98, 1809.16, 5722.57, 2.00)
        pt3dadd(3251.75, 1813.99, 5729.72, 2.00)
        pt3dadd(3252.21, 1819.78, 5734.05, 2.00)
        pt3dadd(3252.44, 1821.53, 5736.14, 2.00)
        pt3dadd(3254.30, 1822.36, 5737.07, 2.00)
        pt3dadd(3253.61, 1824.51, 5737.53, 2.00)
        pt3dadd(3254.54, 1827.27, 5739.00, 2.00)
        pt3dadd(3254.07, 1830.90, 5742.87, 2.00)
        pt3dadd(3257.56, 1838.50, 5751.49, 2.00)
  }
}
proc geometry22() {
  nakeaxon[176] {
        pt3dadd(3257.33, 1841.98, 5760.37, 2.00)
        pt3dadd(3253.37, 1846.57, 5766.87, 2.00)
        pt3dadd(3253.14, 1851.00, 5772.93, 2.00)
        pt3dadd(3250.35, 1858.79, 5780.73, 2.00)
        pt3dadd(3249.65, 1861.08, 5783.61, 2.00)
        pt3dadd(3246.86, 1867.86, 5792.03, 2.00)
        pt3dadd(3249.65, 1877.08, 5798.33, 2.00)
        pt3dadd(3250.58, 1880.60, 5803.24, 2.00)
        pt3dadd(3251.28, 1887.83, 5812.24, 2.00)
        pt3dadd(3251.05, 1890.20, 5815.34, 2.00)
        pt3dadd(3251.98, 1894.23, 5817.58, 2.00)
        pt3dadd(3251.05, 1895.76, 5819.74, 2.00)
        pt3dadd(3251.75, 1901.46, 5823.85, 2.00)
        pt3dadd(3248.72, 1912.16, 5835.56, 2.00)
        pt3dadd(3246.86, 1914.66, 5841.08, 2.00)
        pt3dadd(3245.93, 1917.74, 5846.14, 2.00)
        pt3dadd(3243.84, 1920.33, 5849.16, 2.00)
        pt3dadd(3241.05, 1927.44, 5856.47, 2.00)
        pt3dadd(3238.03, 1930.74, 5866.90, 2.00)
        pt3dadd(3238.03, 1937.84, 5870.76, 2.00)
        pt3dadd(3237.10, 1938.49, 5870.52, 2.00)
  }
  nakeaxon[177] {pt3dclear()
        pt3dadd(3216.16, 1597.60, 5464.98, 2.00)
        pt3dadd(3230.12, 1593.09, 5461.42, 2.00)
        pt3dadd(3240.12, 1592.91, 5462.97, 2.00)
        pt3dadd(3245.70, 1592.58, 5464.08, 2.00)
        pt3dadd(3252.21, 1592.56, 5466.07, 2.00)
        pt3dadd(3262.44, 1591.25, 5471.99, 2.00)
        pt3dadd(3272.68, 1590.16, 5475.11, 2.00)
        pt3dadd(3279.89, 1590.04, 5476.14, 2.00)
        pt3dadd(3283.61, 1589.58, 5478.29, 2.00)
        pt3dadd(3286.63, 1588.55, 5480.89, 2.00)
        pt3dadd(3290.12, 1588.87, 5481.77, 2.00)
        pt3dadd(3296.86, 1590.38, 5485.92, 2.00)
        pt3dadd(3304.30, 1587.70, 5490.11, 2.00)
        pt3dadd(3305.47, 1587.36, 5491.23, 2.00)
        pt3dadd(3314.77, 1587.88, 5496.73, 2.00)
        pt3dadd(3316.63, 1588.19, 5497.60, 2.00)
        pt3dadd(3319.42, 1588.77, 5497.15, 2.00)
        pt3dadd(3325.47, 1593.92, 5502.45, 2.00)
        pt3dadd(3326.16, 1588.06, 5503.35, 2.00)
        pt3dadd(3326.63, 1584.94, 5507.70, 2.00)
        pt3dadd(3328.49, 1584.64, 5507.56, 2.00)
        pt3dadd(3335.70, 1583.87, 5514.27, 2.00)
        pt3dadd(3338.26, 1582.88, 5518.35, 2.00)
        pt3dadd(3345.93, 1583.34, 5527.09, 2.00)
        pt3dadd(3348.02, 1583.70, 5529.43, 2.00)
        pt3dadd(3349.89, 1582.01, 5529.55, 2.00)
  }
  nakeaxon[178] {pt3dclear()
        pt3dadd(3349.89, 1582.01, 5529.55, 2.00)
        pt3dadd(3351.28, 1581.69, 5545.01, 2.00)
        pt3dadd(3350.82, 1582.61, 5548.89, 2.00)
        pt3dadd(3355.70, 1588.00, 5560.29, 2.00)
        pt3dadd(3360.58, 1590.52, 5561.10, 2.00)
        pt3dadd(3362.68, 1593.56, 5561.98, 2.00)
        pt3dadd(3368.49, 1596.34, 5564.18, 2.00)
        pt3dadd(3371.51, 1605.35, 5573.28, 2.00)
        pt3dadd(3372.68, 1610.47, 5575.12, 2.00)
        pt3dadd(3380.58, 1619.27, 5576.87, 2.00)
        pt3dadd(3390.58, 1626.15, 5586.25, 2.00)
        pt3dadd(3390.58, 1626.73, 5588.51, 2.00)
        pt3dadd(3394.07, 1630.68, 5593.26, 2.00)
        pt3dadd(3399.19, 1638.89, 5600.17, 2.00)
        pt3dadd(3402.44, 1639.79, 5606.03, 2.00)
        pt3dadd(3407.79, 1647.30, 5611.71, 2.00)
        pt3dadd(3412.91, 1649.58, 5609.15, 2.00)
        pt3dadd(3413.14, 1653.66, 5610.14, 2.00)
        pt3dadd(3417.56, 1663.69, 5613.91, 2.00)
        pt3dadd(3418.26, 1666.59, 5615.08, 2.00)
        pt3dadd(3418.03, 1670.75, 5619.02, 2.00)
        pt3dadd(3420.82, 1671.06, 5619.89, 2.00)
        pt3dadd(3421.98, 1676.23, 5620.49, 2.00)
        pt3dadd(3424.07, 1680.48, 5622.65, 2.00)
        pt3dadd(3429.19, 1686.76, 5629.03, 2.00)
        pt3dadd(3433.37, 1692.57, 5634.09, 2.00)
        pt3dadd(3437.56, 1696.74, 5638.76, 2.00)
        pt3dadd(3437.79, 1698.19, 5640.70, 2.00)
        pt3dadd(3437.79, 1698.41, 5640.63, 2.00)
  }
  nakeaxon[179] {pt3dclear()
        pt3dadd(3349.89, 1582.01, 5529.55, 2.00)
        pt3dadd(3353.84, 1583.04, 5532.40, 2.00)
        pt3dadd(3362.44, 1580.22, 5542.33, 2.00)
        pt3dadd(3366.63, 1583.00, 5544.53, 2.00)
        pt3dadd(3369.89, 1581.28, 5548.63, 2.00)
        pt3dadd(3380.35, 1580.27, 5557.41, 2.00)
        pt3dadd(3381.51, 1580.37, 5558.36, 2.00)
        pt3dadd(3390.82, 1579.08, 5567.74, 2.00)
        pt3dadd(3400.12, 1579.94, 5580.30, 2.00)
        pt3dadd(3398.72, 1579.06, 5583.34, 2.00)
        pt3dadd(3400.35, 1579.96, 5589.20, 2.00)
        pt3dadd(3405.70, 1580.47, 5591.98, 2.00)
        pt3dadd(3405.00, 1580.48, 5594.70, 2.00)
        pt3dadd(3410.12, 1579.86, 5599.14, 2.00)
        pt3dadd(3418.03, 1578.61, 5609.98, 2.00)
        pt3dadd(3425.47, 1582.31, 5621.51, 2.00)
        pt3dadd(3432.21, 1583.62, 5629.20, 2.00)
        pt3dadd(3443.14, 1583.15, 5633.33, 2.00)
        pt3dadd(3451.28, 1584.05, 5644.63, 2.00)
        pt3dadd(3459.89, 1583.19, 5653.85, 2.00)
        pt3dadd(3461.28, 1583.04, 5656.14, 2.00)
        pt3dadd(3469.42, 1582.48, 5662.77, 2.00)
        pt3dadd(3477.33, 1588.63, 5677.61, 2.00)
        pt3dadd(3477.56, 1588.81, 5678.79, 2.00)
        pt3dadd(3474.30, 1591.09, 5687.11, 2.00)
        pt3dadd(3476.63, 1592.29, 5693.11, 2.00)
        pt3dadd(3475.93, 1592.61, 5696.71, 2.00)
        pt3dadd(3476.16, 1593.18, 5701.69, 2.00)
        pt3dadd(3477.56, 1593.68, 5709.18, 2.00)
        pt3dadd(3481.05, 1595.19, 5718.78, 2.00)
        pt3dadd(3481.75, 1597.33, 5732.11, 2.00)
        pt3dadd(3484.77, 1600.15, 5738.51, 2.00)
        pt3dadd(3484.54, 1604.24, 5748.40, 2.00)
        pt3dadd(3486.86, 1606.23, 5753.86, 2.00)
        pt3dadd(3487.10, 1606.85, 5757.60, 2.00)
        pt3dadd(3490.12, 1606.91, 5762.53, 2.00)
        pt3dadd(3491.05, 1608.62, 5763.14, 2.00)
        pt3dadd(3501.51, 1609.53, 5769.74, 2.00)
        pt3dadd(3505.23, 1607.59, 5776.63, 2.00)
        pt3dadd(3507.33, 1606.16, 5780.87, 2.00)
        pt3dadd(3511.05, 1595.12, 5788.60, 2.00)
        pt3dadd(3521.98, 1589.38, 5791.18, 2.00)
        pt3dadd(3523.14, 1589.77, 5792.28, 2.00)
        pt3dadd(3530.12, 1586.55, 5795.68, 2.00)
        pt3dadd(3536.16, 1582.92, 5802.69, 2.00)
        pt3dadd(3541.51, 1577.64, 5805.85, 2.00)
        pt3dadd(3541.51, 1577.86, 5805.77, 2.00)
        pt3dadd(3536.86, 1573.37, 5805.67, 2.00)
        pt3dadd(3542.44, 1570.72, 5805.89, 2.00)
        pt3dadd(3548.26, 1561.37, 5813.51, 2.00)
        pt3dadd(3549.42, 1553.09, 5825.43, 2.00)
        pt3dadd(3551.75, 1549.63, 5830.89, 2.00)
        pt3dadd(3550.58, 1539.32, 5835.88, 2.00)
        pt3dadd(3549.65, 1539.06, 5837.21, 2.00)
        pt3dadd(3549.65, 1538.84, 5837.29, 2.00)
  }
  nakeaxon[180] {pt3dclear()
        pt3dadd(3180.82, 1498.17, 5153.70, 2.00)
        pt3dadd(3179.65, 1496.19, 5172.74, 2.00)
        pt3dadd(3174.07, 1502.15, 5191.85, 2.00)
        pt3dadd(3170.12, 1506.29, 5205.93, 2.00)
        pt3dadd(3165.00, 1508.10, 5221.11, 2.00)
        pt3dadd(3153.84, 1514.94, 5239.91, 2.00)
        pt3dadd(3145.70, 1520.25, 5259.26, 2.00)
        pt3dadd(3144.54, 1521.74, 5265.40, 2.00)
        pt3dadd(3140.35, 1523.78, 5280.50, 2.00)
        pt3dadd(3136.86, 1528.17, 5290.53, 2.00)
        pt3dadd(3131.98, 1535.49, 5305.19, 2.00)
        pt3dadd(3124.07, 1538.51, 5316.22, 2.00)
        pt3dadd(3120.82, 1542.07, 5325.31, 2.00)
        pt3dadd(3112.91, 1548.39, 5346.77, 2.00)
        pt3dadd(3108.96, 1552.97, 5363.42, 2.00)
        pt3dadd(3104.07, 1556.13, 5379.59, 2.00)
        pt3dadd(3101.98, 1557.80, 5384.18, 2.00)
        pt3dadd(3101.05, 1558.72, 5385.33, 2.00)
        pt3dadd(3099.65, 1558.64, 5390.56, 2.00)
  }
}
proc geometry23() {
  nakeaxon[180] {
  }
  nakeaxon[181] {pt3dclear()
        pt3dadd(3099.65, 1558.64, 5390.56, 2.00)
        pt3dadd(3100.35, 1570.11, 5395.54, 2.00)
        pt3dadd(3098.26, 1581.67, 5406.92, 2.00)
        pt3dadd(3094.77, 1591.97, 5417.53, 2.00)
        pt3dadd(3091.51, 1601.47, 5428.67, 2.00)
        pt3dadd(3090.82, 1611.43, 5440.39, 2.00)
        pt3dadd(3090.12, 1619.36, 5447.90, 2.00)
        pt3dadd(3090.12, 1623.19, 5453.68, 2.00)
        pt3dadd(3089.19, 1631.08, 5459.72, 2.00)
        pt3dadd(3087.10, 1638.00, 5467.84, 2.00)
        pt3dadd(3090.58, 1638.91, 5469.00, 2.00)
        pt3dadd(3090.58, 1644.84, 5475.75, 2.00)
        pt3dadd(3087.10, 1656.32, 5486.91, 2.00)
        pt3dadd(3086.16, 1661.23, 5494.28, 2.00)
        pt3dadd(3086.16, 1665.70, 5499.09, 2.00)
        pt3dadd(3084.30, 1674.83, 5507.15, 2.00)
        pt3dadd(3085.24, 1680.53, 5516.71, 2.00)
        pt3dadd(3086.16, 1690.31, 5524.53, 2.00)
        pt3dadd(3085.24, 1698.60, 5534.39, 2.00)
        pt3dadd(3085.24, 1701.76, 5539.67, 2.00)
        pt3dadd(3087.10, 1709.79, 5550.86, 2.00)
        pt3dadd(3087.10, 1712.99, 5554.89, 2.00)
        pt3dadd(3087.10, 1715.49, 5557.69, 2.00)
        pt3dadd(3083.37, 1722.33, 5565.59, 2.00)
        pt3dadd(3085.24, 1725.49, 5568.16, 2.00)
        pt3dadd(3083.84, 1730.78, 5573.16, 2.00)
        pt3dadd(3082.21, 1732.27, 5576.58, 2.00)
        pt3dadd(3084.07, 1741.35, 5585.89, 2.00)
        pt3dadd(3085.00, 1747.24, 5596.62, 2.00)
        pt3dadd(3083.61, 1752.44, 5601.41, 2.00)
        pt3dadd(3083.14, 1763.49, 5615.45, 2.00)
        pt3dadd(3083.14, 1770.17, 5625.64, 2.00)
        pt3dadd(3083.61, 1778.28, 5639.77, 2.00)
        pt3dadd(3086.86, 1789.49, 5651.53, 2.00)
        pt3dadd(3088.03, 1791.74, 5655.66, 2.00)
  }
  nakeaxon[182] {pt3dclear()
        pt3dadd(3088.03, 1791.74, 5655.66, 2.00)
        pt3dadd(3087.56, 1794.98, 5658.44, 2.00)
        pt3dadd(3087.56, 1796.03, 5659.29, 2.00)
  }
  nakeaxon[183] {pt3dclear()
        pt3dadd(3087.56, 1796.03, 5659.29, 2.00)
        pt3dadd(3087.56, 1795.41, 5661.00, 2.00)
        pt3dadd(3086.40, 1801.64, 5665.17, 2.00)
        pt3dadd(3086.40, 1800.94, 5666.66, 2.00)
  }
  nakeaxon[184] {pt3dclear()
        pt3dadd(3086.40, 1800.94, 5666.66, 2.00)
        pt3dadd(3084.54, 1807.22, 5664.87, 2.00)
        pt3dadd(3081.51, 1812.43, 5669.66, 2.00)
        pt3dadd(3081.05, 1823.75, 5672.22, 2.00)
        pt3dadd(3079.19, 1825.06, 5671.74, 2.00)
        pt3dadd(3079.65, 1831.94, 5675.67, 2.00)
        pt3dadd(3078.72, 1834.74, 5675.89, 2.00)
        pt3dadd(3081.28, 1844.12, 5682.62, 2.00)
        pt3dadd(3076.63, 1849.83, 5692.18, 2.00)
        pt3dadd(3076.40, 1857.28, 5698.38, 2.00)
        pt3dadd(3076.16, 1864.73, 5707.30, 2.00)
        pt3dadd(3078.49, 1873.39, 5709.34, 2.00)
        pt3dadd(3079.42, 1881.40, 5714.34, 2.00)
        pt3dadd(3082.91, 1885.91, 5715.18, 2.00)
        pt3dadd(3082.91, 1886.93, 5717.28, 2.00)
        pt3dadd(3085.47, 1897.30, 5719.94, 2.00)
        pt3dadd(3079.65, 1908.60, 5716.32, 2.00)
        pt3dadd(3081.51, 1919.04, 5726.63, 2.00)
        pt3dadd(3083.84, 1930.64, 5731.32, 2.00)
        pt3dadd(3083.61, 1932.83, 5733.24, 2.00)
        pt3dadd(3082.91, 1943.54, 5737.51, 2.00)
        pt3dadd(3085.93, 1946.72, 5740.81, 2.00)
        pt3dadd(3092.44, 1947.65, 5739.98, 2.00)
        pt3dadd(3098.72, 1947.63, 5739.24, 2.00)
        pt3dadd(3101.51, 1948.67, 5739.36, 2.00)
        pt3dadd(3114.77, 1954.65, 5734.71, 2.00)
        pt3dadd(3119.65, 1957.05, 5733.83, 2.00)
        pt3dadd(3128.26, 1965.06, 5738.84, 2.00)
        pt3dadd(3135.24, 1966.43, 5740.57, 2.00)
        pt3dadd(3140.12, 1971.52, 5743.66, 2.00)
        pt3dadd(3148.72, 1975.15, 5742.09, 2.00)
        pt3dadd(3149.42, 1979.23, 5745.81, 2.00)
        pt3dadd(3160.58, 1985.53, 5747.47, 2.00)
        pt3dadd(3165.93, 1989.40, 5746.56, 2.00)
        pt3dadd(3170.82, 1994.37, 5747.97, 2.00)
        pt3dadd(3178.72, 2000.92, 5751.03, 2.00)
        pt3dadd(3182.44, 2009.31, 5756.39, 2.00)
        pt3dadd(3187.09, 2021.09, 5762.25, 2.00)
        pt3dadd(3191.05, 2024.35, 5763.04, 2.00)
        pt3dadd(3193.84, 2025.90, 5763.22, 2.00)
        pt3dadd(3195.70, 2041.12, 5757.43, 2.00)
        pt3dadd(3198.03, 2043.11, 5757.45, 2.00)
        pt3dadd(3207.33, 2058.37, 5755.86, 2.00)
        pt3dadd(3208.96, 2059.88, 5754.57, 2.00)
        pt3dadd(3208.49, 2062.10, 5755.24, 2.00)
        pt3dadd(3216.16, 2068.42, 5746.76, 2.00)
        pt3dadd(3223.14, 2069.45, 5741.43, 2.00)
        pt3dadd(3225.47, 2069.91, 5739.28, 2.00)
        pt3dadd(3232.91, 2071.01, 5728.73, 2.00)
        pt3dadd(3243.37, 2069.14, 5719.52, 2.00)
        pt3dadd(3250.82, 2069.26, 5715.76, 2.00)
        pt3dadd(3254.54, 2073.93, 5714.31, 2.00)
        pt3dadd(3265.24, 2078.22, 5707.05, 2.00)
        pt3dadd(3270.58, 2081.00, 5706.54, 2.00)
        pt3dadd(3279.42, 2088.77, 5702.72, 2.00)
        pt3dadd(3281.98, 2092.37, 5702.40, 2.00)
        pt3dadd(3284.54, 2092.68, 5703.27, 2.00)
        pt3dadd(3288.49, 2094.47, 5701.39, 2.00)
        pt3dadd(3295.93, 2099.02, 5703.69, 2.00)
        pt3dadd(3304.54, 2103.26, 5705.12, 2.00)
        pt3dadd(3306.63, 2110.45, 5704.48, 2.00)
        pt3dadd(3304.77, 2116.67, 5711.37, 2.00)
        pt3dadd(3305.47, 2128.07, 5711.43, 2.00)
        pt3dadd(3308.96, 2132.84, 5716.38, 2.00)
        pt3dadd(3312.91, 2138.45, 5719.53, 2.00)
        pt3dadd(3312.91, 2139.98, 5718.98, 2.00)
  }
  nakeaxon[185] {pt3dclear()
        pt3dadd(3086.40, 1800.94, 5666.66, 2.00)
        pt3dadd(3085.93, 1805.89, 5672.78, 2.00)
        pt3dadd(3085.24, 1813.78, 5681.54, 2.00)
        pt3dadd(3084.77, 1816.54, 5685.73, 2.00)
        pt3dadd(3087.33, 1822.43, 5693.74, 2.00)
        pt3dadd(3087.33, 1829.54, 5706.49, 2.00)
        pt3dadd(3088.03, 1832.88, 5712.95, 2.00)
        pt3dadd(3089.42, 1843.24, 5728.48, 2.00)
        pt3dadd(3088.72, 1844.91, 5733.07, 2.00)
        pt3dadd(3089.19, 1845.77, 5734.74, 2.00)
  }
  nakeaxon[186] {pt3dclear()
        pt3dadd(3089.19, 1845.77, 5734.74, 2.00)
        pt3dadd(3091.05, 1850.27, 5732.85, 2.00)
        pt3dadd(3089.89, 1852.12, 5738.61, 2.00)
        pt3dadd(3092.44, 1860.89, 5747.05, 2.00)
        pt3dadd(3092.91, 1860.06, 5748.84, 2.00)
  }
  nakeaxon[187] {pt3dclear()
        pt3dadd(3092.91, 1860.06, 5748.84, 2.00)
        pt3dadd(3098.02, 1857.61, 5750.97, 2.00)
        pt3dadd(3103.37, 1862.20, 5752.02, 2.00)
        pt3dadd(3109.65, 1866.39, 5751.98, 2.00)
        pt3dadd(3113.14, 1869.59, 5753.29, 2.00)
        pt3dadd(3120.12, 1878.95, 5756.57, 2.00)
        pt3dadd(3124.54, 1881.79, 5758.25, 2.00)
        pt3dadd(3126.40, 1882.05, 5759.64, 2.00)
        pt3dadd(3128.96, 1883.11, 5760.50, 2.00)
        pt3dadd(3131.51, 1886.01, 5767.12, 2.00)
        pt3dadd(3140.35, 1887.90, 5774.35, 2.00)
        pt3dadd(3148.96, 1893.25, 5781.56, 2.00)
        pt3dadd(3158.96, 1895.61, 5787.38, 2.00)
        pt3dadd(3162.21, 1896.01, 5788.47, 2.00)
        pt3dadd(3168.49, 1898.16, 5794.37, 2.00)
        pt3dadd(3172.21, 1899.03, 5796.78, 2.00)
        pt3dadd(3175.47, 1898.60, 5799.66, 2.00)
        pt3dadd(3178.96, 1899.61, 5804.48, 2.00)
        pt3dadd(3184.30, 1901.28, 5809.07, 2.00)
        pt3dadd(3190.58, 1902.95, 5813.66, 2.00)
        pt3dadd(3195.23, 1904.82, 5822.88, 2.00)
        pt3dadd(3197.09, 1905.22, 5823.97, 2.00)
        pt3dadd(3205.70, 1906.49, 5830.19, 2.00)
        pt3dadd(3210.35, 1906.09, 5829.10, 2.00)
        pt3dadd(3213.84, 1907.07, 5832.46, 2.00)
        pt3dadd(3225.24, 1908.34, 5844.12, 2.00)
        pt3dadd(3234.07, 1908.88, 5850.36, 2.00)
  }
}
proc geometry24() {
  nakeaxon[187] {
        pt3dadd(3236.63, 1908.84, 5854.33, 2.00)
        pt3dadd(3240.35, 1909.50, 5854.09, 2.00)
        pt3dadd(3250.12, 1911.25, 5858.90, 2.00)
        pt3dadd(3250.82, 1911.61, 5861.24, 2.00)
        pt3dadd(3251.75, 1911.39, 5861.32, 2.00)
        pt3dadd(3251.75, 1911.83, 5861.17, 2.00)
  }
  nakeaxon[188] {pt3dclear()
        pt3dadd(3092.91, 1860.06, 5748.84, 2.00)
        pt3dadd(3095.70, 1866.73, 5761.76, 2.00)
        pt3dadd(3097.09, 1872.76, 5777.63, 2.00)
        pt3dadd(3097.79, 1876.02, 5786.59, 2.00)
        pt3dadd(3099.42, 1880.73, 5802.94, 2.00)
        pt3dadd(3099.19, 1883.56, 5812.06, 2.00)
        pt3dadd(3102.44, 1886.50, 5820.14, 2.00)
        pt3dadd(3102.21, 1888.97, 5826.92, 2.00)
        pt3dadd(3103.14, 1887.84, 5828.57, 2.00)
        pt3dadd(3105.70, 1890.52, 5837.98, 2.00)
        pt3dadd(3105.47, 1894.04, 5848.34, 2.00)
        pt3dadd(3107.56, 1900.03, 5865.46, 2.00)
        pt3dadd(3108.72, 1903.23, 5880.38, 2.00)
        pt3dadd(3116.63, 1908.46, 5891.35, 2.00)
        pt3dadd(3118.02, 1911.40, 5899.43, 2.00)
        pt3dadd(3116.40, 1910.88, 5902.10, 2.00)
        pt3dadd(3115.00, 1915.12, 5914.41, 2.00)
        pt3dadd(3113.14, 1916.61, 5917.83, 2.00)
        pt3dadd(3111.75, 1920.23, 5931.86, 2.00)
        pt3dadd(3107.10, 1922.36, 5945.19, 2.00)
        pt3dadd(3104.54, 1922.20, 5947.47, 2.00)
        pt3dadd(3104.54, 1922.42, 5947.39, 2.00)
        pt3dadd(3099.89, 1922.82, 5945.76, 2.00)
        pt3dadd(3087.79, 1918.69, 5953.45, 2.00)
        pt3dadd(3083.14, 1918.63, 5953.97, 2.00)
        pt3dadd(3074.54, 1917.00, 5959.02, 2.00)
        pt3dadd(3070.82, 1917.82, 5959.22, 2.00)
        pt3dadd(3064.77, 1912.87, 5963.99, 2.00)
        pt3dadd(3055.00, 1908.96, 5966.15, 2.00)
        pt3dadd(3043.61, 1901.47, 5972.10, 2.00)
        pt3dadd(3036.63, 1900.65, 5974.62, 2.00)
        pt3dadd(3024.07, 1894.85, 5977.72, 2.00)
        pt3dadd(3016.40, 1895.29, 5983.01, 2.00)
        pt3dadd(3013.84, 1891.66, 5984.58, 2.00)
        pt3dadd(3002.44, 1890.01, 5988.89, 2.00)
        pt3dadd(3001.98, 1881.37, 5995.75, 2.00)
        pt3dadd(2999.42, 1881.37, 5995.75, 2.00)
        pt3dadd(2991.28, 1879.36, 6000.44, 2.00)
        pt3dadd(2982.44, 1876.30, 6001.55, 2.00)
        pt3dadd(2975.24, 1876.92, 6002.56, 2.00)
        pt3dadd(2975.24, 1876.70, 6002.64, 2.00)
        pt3dadd(2975.24, 1876.48, 6002.72, 2.00)
  }
  nakeaxon[189] {pt3dclear()
        pt3dadd(3089.19, 1845.77, 5734.74, 2.00)
        pt3dadd(3089.19, 1846.32, 5736.27, 2.00)
        pt3dadd(3088.49, 1852.39, 5750.89, 2.00)
        pt3dadd(3092.21, 1855.45, 5755.22, 2.00)
        pt3dadd(3091.28, 1856.32, 5757.63, 2.00)
        pt3dadd(3098.26, 1860.28, 5775.98, 2.00)
        pt3dadd(3104.07, 1862.31, 5782.92, 2.00)
        pt3dadd(3114.77, 1860.92, 5791.34, 2.00)
        pt3dadd(3116.63, 1861.64, 5796.03, 2.00)
  }
  nakeaxon[190] {pt3dclear()
        pt3dadd(3087.56, 1796.03, 5659.29, 2.00)
        pt3dadd(3082.68, 1799.01, 5666.13, 2.00)
        pt3dadd(3082.68, 1797.92, 5666.52, 2.00)
  }
  nakeaxon[191] {pt3dclear()
        pt3dadd(3082.68, 1797.92, 5666.52, 2.00)
        pt3dadd(3079.65, 1804.76, 5682.60, 2.00)
        pt3dadd(3073.84, 1811.30, 5698.53, 2.00)
        pt3dadd(3072.21, 1814.32, 5701.39, 2.00)
        pt3dadd(3070.12, 1814.25, 5709.34, 2.00)
        pt3dadd(3069.42, 1815.76, 5724.38, 2.00)
        pt3dadd(3069.65, 1815.64, 5728.13, 2.00)
        pt3dadd(3063.37, 1820.24, 5740.07, 2.00)
        pt3dadd(3063.84, 1819.42, 5745.32, 2.00)
        pt3dadd(3064.07, 1819.09, 5749.15, 2.00)
        pt3dadd(3061.98, 1820.96, 5766.54, 2.00)
        pt3dadd(3059.19, 1823.84, 5783.31, 2.00)
        pt3dadd(3057.33, 1827.54, 5794.83, 2.00)
        pt3dadd(3051.51, 1832.16, 5812.95, 2.00)
        pt3dadd(3050.35, 1832.56, 5819.49, 2.00)
        pt3dadd(3048.72, 1834.21, 5834.23, 2.00)
        pt3dadd(3048.03, 1834.91, 5838.18, 2.00)
        pt3dadd(3046.86, 1837.15, 5845.03, 2.00)
        pt3dadd(3051.51, 1835.31, 5858.33, 2.00)
        pt3dadd(3054.30, 1831.71, 5858.65, 2.00)
        pt3dadd(3053.37, 1832.55, 5862.30, 2.00)
        pt3dadd(3053.37, 1833.81, 5875.95, 2.00)
        pt3dadd(3053.37, 1834.34, 5882.19, 2.00)
        pt3dadd(3054.30, 1832.98, 5896.79, 2.00)
        pt3dadd(3051.51, 1834.17, 5900.07, 2.00)
        pt3dadd(3049.65, 1834.41, 5908.89, 2.00)
  }
  nakeaxon[192] {pt3dclear()
        pt3dadd(3082.68, 1797.92, 5666.52, 2.00)
        pt3dadd(3072.91, 1803.94, 5676.95, 2.00)
        pt3dadd(3068.03, 1807.30, 5681.42, 2.00)
        pt3dadd(3065.47, 1810.21, 5685.32, 2.00)
        pt3dadd(3062.21, 1820.84, 5697.53, 2.00)
        pt3dadd(3057.09, 1830.08, 5710.01, 2.00)
        pt3dadd(3054.77, 1837.20, 5725.48, 2.00)
        pt3dadd(3052.68, 1840.84, 5732.08, 2.00)
        pt3dadd(3050.82, 1847.71, 5741.45, 2.00)
        pt3dadd(3048.72, 1860.85, 5751.03, 2.00)
        pt3dadd(3044.77, 1864.85, 5757.25, 2.00)
        pt3dadd(3041.98, 1875.02, 5766.16, 2.00)
        pt3dadd(3038.96, 1882.39, 5774.86, 2.00)
        pt3dadd(3037.09, 1883.27, 5777.27, 2.00)
        pt3dadd(3032.21, 1892.79, 5789.15, 2.00)
        pt3dadd(3028.49, 1899.03, 5799.50, 2.00)
        pt3dadd(3026.40, 1906.92, 5805.53, 2.00)
        pt3dadd(3024.54, 1910.88, 5813.00, 2.00)
        pt3dadd(3022.44, 1915.09, 5819.14, 2.00)
        pt3dadd(3018.49, 1924.87, 5832.41, 2.00)
        pt3dadd(3018.49, 1927.56, 5839.11, 2.00)
        pt3dadd(3011.28, 1937.02, 5851.50, 2.00)
        pt3dadd(3012.21, 1940.62, 5856.63, 2.00)
        pt3dadd(3012.91, 1944.97, 5865.19, 2.00)
        pt3dadd(3012.68, 1948.11, 5867.02, 2.00)
        pt3dadd(3012.68, 1948.33, 5866.94, 2.00)
  }
  nakeaxon[193] {pt3dclear()
        pt3dadd(3088.03, 1791.74, 5655.66, 2.00)
        pt3dadd(3093.84, 1793.94, 5658.32, 2.00)
        pt3dadd(3101.51, 1797.66, 5665.13, 2.00)
        pt3dadd(3103.37, 1797.66, 5665.13, 2.00)
        pt3dadd(3109.19, 1799.39, 5669.21, 2.00)
        pt3dadd(3117.56, 1800.61, 5673.22, 2.00)
        pt3dadd(3124.54, 1803.97, 5680.41, 2.00)
        pt3dadd(3129.65, 1808.38, 5688.46, 2.00)
        pt3dadd(3135.93, 1813.49, 5697.73, 2.00)
        pt3dadd(3142.44, 1816.71, 5702.50, 2.00)
        pt3dadd(3152.21, 1821.12, 5707.82, 2.00)
        pt3dadd(3154.77, 1821.88, 5708.54, 2.00)
        pt3dadd(3158.02, 1825.08, 5712.57, 2.00)
        pt3dadd(3166.63, 1830.72, 5719.92, 2.00)
        pt3dadd(3166.86, 1832.69, 5721.93, 2.00)
        pt3dadd(3175.93, 1843.06, 5732.75, 2.00)
        pt3dadd(3178.03, 1844.39, 5735.73, 2.00)
        pt3dadd(3181.05, 1849.56, 5736.33, 2.00)
        pt3dadd(3184.54, 1849.96, 5734.70, 2.00)
        pt3dadd(3192.68, 1859.47, 5732.97, 2.00)
        pt3dadd(3195.47, 1862.24, 5734.44, 2.00)
        pt3dadd(3199.65, 1865.52, 5735.97, 2.00)
        pt3dadd(3205.93, 1865.73, 5738.61, 2.00)
        pt3dadd(3212.21, 1868.50, 5742.80, 2.00)
        pt3dadd(3220.12, 1874.00, 5745.00, 2.00)
        pt3dadd(3229.89, 1876.59, 5748.02, 2.00)
        pt3dadd(3229.89, 1876.81, 5750.67, 2.00)
        pt3dadd(3232.44, 1880.11, 5758.37, 2.00)
        pt3dadd(3236.63, 1882.51, 5762.94, 2.00)
        pt3dadd(3243.84, 1884.80, 5765.82, 2.00)
        pt3dadd(3247.33, 1883.31, 5767.85, 2.00)
        pt3dadd(3250.12, 1883.96, 5770.33, 2.00)
        pt3dadd(3260.82, 1886.23, 5769.76, 2.00)
        pt3dadd(3268.03, 1885.87, 5770.14, 2.00)
        pt3dadd(3270.58, 1886.74, 5769.82, 2.00)
        pt3dadd(3275.23, 1887.36, 5770.83, 2.00)
        pt3dadd(3288.49, 1889.01, 5774.68, 2.00)
        pt3dadd(3302.44, 1889.73, 5784.82, 2.00)
  }
}
proc geometry25() {
  nakeaxon[193] {
        pt3dadd(3304.30, 1890.78, 5785.67, 2.00)
        pt3dadd(3313.61, 1888.54, 5781.54, 2.00)
        pt3dadd(3317.10, 1888.14, 5780.45, 2.00)
        pt3dadd(3328.26, 1891.56, 5781.68, 2.00)
        pt3dadd(3335.24, 1891.54, 5791.83, 2.00)
        pt3dadd(3341.98, 1891.78, 5806.10, 2.00)
        pt3dadd(3343.84, 1892.26, 5807.41, 2.00)
        pt3dadd(3353.37, 1893.49, 5814.88, 2.00)
        pt3dadd(3362.44, 1895.20, 5820.94, 2.00)
        pt3dadd(3372.21, 1892.74, 5816.88, 2.00)
        pt3dadd(3378.49, 1894.23, 5817.58, 2.00)
        pt3dadd(3381.28, 1893.87, 5817.96, 2.00)
        pt3dadd(3385.70, 1893.65, 5818.04, 2.00)
        pt3dadd(3391.98, 1893.69, 5819.51, 2.00)
  }
  nakeaxon[194] {pt3dclear()
        pt3dadd(3391.98, 1893.69, 5819.51, 2.00)
        pt3dadd(3400.82, 1900.35, 5826.24, 2.00)
        pt3dadd(3406.16, 1900.57, 5826.16, 2.00)
        pt3dadd(3405.23, 1900.57, 5826.16, 2.00)
  }
  nakeaxon[195] {pt3dclear()
        pt3dadd(3391.98, 1893.69, 5819.51, 2.00)
        pt3dadd(3396.40, 1893.30, 5818.41, 2.00)
        pt3dadd(3397.33, 1893.30, 5818.41, 2.00)
        pt3dadd(3398.49, 1893.59, 5813.11, 2.00)
  }
  nakeaxon[196] {pt3dclear()
        pt3dadd(3099.65, 1558.64, 5390.56, 2.00)
        pt3dadd(3095.93, 1561.76, 5407.98, 2.00)
        pt3dadd(3091.98, 1562.98, 5425.61, 2.00)
        pt3dadd(3085.70, 1568.95, 5447.44, 2.00)
        pt3dadd(3077.33, 1572.81, 5462.12, 2.00)
        pt3dadd(3077.09, 1579.78, 5472.45, 2.00)
        pt3dadd(3071.28, 1581.54, 5493.59, 2.00)
        pt3dadd(3066.86, 1584.68, 5506.31, 2.00)
        pt3dadd(3064.07, 1586.79, 5516.18, 2.00)
        pt3dadd(3064.07, 1586.57, 5516.26, 2.00)
  }
  nakeaxon[197] {pt3dclear()
        pt3dadd(3064.07, 1586.57, 5516.26, 2.00)
        pt3dadd(3059.42, 1590.07, 5531.32, 2.00)
  }
  nakeaxon[198] {pt3dclear()
        pt3dadd(3059.42, 1590.07, 5531.32, 2.00)
        pt3dadd(3058.49, 1591.05, 5548.29, 2.00)
        pt3dadd(3052.91, 1593.72, 5565.13, 2.00)
        pt3dadd(3053.37, 1596.90, 5579.32, 2.00)
        pt3dadd(3049.65, 1600.94, 5600.62, 2.00)
        pt3dadd(3049.19, 1604.60, 5605.23, 2.00)
        pt3dadd(3049.19, 1604.82, 5605.15, 2.00)
        pt3dadd(3049.19, 1608.53, 5609.24, 2.00)
  }
  nakeaxon[199] {pt3dclear()
        pt3dadd(3049.19, 1608.53, 5609.24, 2.00)
        pt3dadd(3039.89, 1601.03, 5622.61, 2.00)
        pt3dadd(3038.03, 1606.26, 5639.02, 2.00)
        pt3dadd(3038.96, 1607.67, 5644.94, 2.00)
        pt3dadd(3039.19, 1608.15, 5646.26, 2.00)
  }
  nakeaxon[200] {pt3dclear()
        pt3dadd(3039.19, 1608.15, 5646.26, 2.00)
        pt3dadd(3032.44, 1613.63, 5647.72, 2.00)
        pt3dadd(3024.07, 1610.32, 5652.89, 2.00)
        pt3dadd(3015.47, 1612.94, 5662.82, 2.00)
        pt3dadd(3011.51, 1613.32, 5665.90, 2.00)
        pt3dadd(2951.05, 1614.93, 5735.60, 2.00)
        pt3dadd(2949.42, 1615.41, 5736.91, 2.00)
        pt3dadd(2941.98, 1611.73, 5747.90, 2.00)
        pt3dadd(2941.51, 1614.16, 5755.93, 2.00)
        pt3dadd(2934.30, 1614.34, 5767.99, 2.00)
        pt3dadd(2931.05, 1617.11, 5772.18, 2.00)
        pt3dadd(2923.61, 1617.51, 5784.16, 2.00)
        pt3dadd(2915.93, 1620.09, 5792.62, 2.00)
        pt3dadd(2911.05, 1620.97, 5800.47, 2.00)
        pt3dadd(2910.35, 1622.06, 5802.80, 2.00)
        pt3dadd(2905.70, 1623.22, 5812.77, 2.00)
        pt3dadd(2901.28, 1623.94, 5828.35, 2.00)
        pt3dadd(2900.35, 1624.41, 5829.66, 2.00)
        pt3dadd(2894.30, 1626.84, 5845.85, 2.00)
        pt3dadd(2892.21, 1629.09, 5852.71, 2.00)
        pt3dadd(2885.00, 1633.09, 5867.09, 2.00)
        pt3dadd(2880.12, 1634.74, 5881.83, 2.00)
        pt3dadd(2878.72, 1635.54, 5886.74, 2.00)
        pt3dadd(2874.77, 1638.44, 5898.80, 2.00)
        pt3dadd(2871.75, 1639.50, 5905.10, 2.00)
        pt3dadd(2867.56, 1641.85, 5923.79, 2.00)
        pt3dadd(2868.02, 1643.08, 5928.54, 2.00)
        pt3dadd(2865.00, 1644.28, 5939.98, 2.00)
        pt3dadd(2863.37, 1648.73, 5954.95, 2.00)
        pt3dadd(2862.44, 1654.40, 5968.47, 2.00)
        pt3dadd(2862.91, 1656.73, 5983.71, 2.00)
        pt3dadd(2859.89, 1660.33, 5994.28, 2.00)
        pt3dadd(2857.79, 1662.00, 5998.87, 2.00)
        pt3dadd(2858.03, 1664.06, 6004.55, 2.00)
        pt3dadd(2853.84, 1669.87, 6020.51, 2.00)
        pt3dadd(2854.30, 1671.94, 6026.19, 2.00)
        pt3dadd(2854.30, 1677.88, 6033.68, 2.00)
        pt3dadd(2852.91, 1679.93, 6052.23, 2.00)
        pt3dadd(2853.14, 1678.40, 6055.51, 2.00)
        pt3dadd(2851.51, 1682.22, 6057.84, 2.00)
        pt3dadd(2848.72, 1690.63, 6066.65, 2.00)
        pt3dadd(2841.05, 1690.93, 6074.96, 2.00)
        pt3dadd(2837.10, 1695.22, 6081.32, 2.00)
        pt3dadd(2830.82, 1703.99, 6095.20, 2.00)
        pt3dadd(2826.63, 1708.78, 6111.77, 2.00)
        pt3dadd(2827.79, 1710.63, 6117.53, 2.00)
        pt3dadd(2826.63, 1715.02, 6124.84, 2.00)
        pt3dadd(2826.40, 1718.76, 6135.11, 2.00)
        pt3dadd(2824.77, 1720.25, 6138.53, 2.00)
        pt3dadd(2822.21, 1721.51, 6144.01, 2.00)
        pt3dadd(2818.72, 1723.87, 6149.84, 2.00)
        pt3dadd(2812.44, 1728.82, 6161.40, 2.00)
        pt3dadd(2810.12, 1730.10, 6164.89, 2.00)
        pt3dadd(2808.72, 1734.35, 6169.78, 2.00)
        pt3dadd(2808.72, 1735.18, 6170.71, 2.00)
  }
  nakeaxon[201] {pt3dclear()
        pt3dadd(3039.19, 1608.15, 5646.26, 2.00)
        pt3dadd(3037.09, 1606.36, 5650.86, 2.00)
        pt3dadd(3044.30, 1606.94, 5661.30, 2.00)
        pt3dadd(3045.47, 1606.56, 5663.66, 2.00)
        pt3dadd(3049.19, 1603.52, 5665.51, 2.00)
        pt3dadd(3054.54, 1599.01, 5667.40, 2.00)
        pt3dadd(3054.77, 1599.49, 5668.71, 2.00)
  }
  nakeaxon[202] {pt3dclear()
        pt3dadd(3054.77, 1599.49, 5668.71, 2.00)
        pt3dadd(3059.65, 1595.90, 5671.75, 2.00)
        pt3dadd(3061.28, 1592.68, 5672.43, 2.00)
        pt3dadd(3061.28, 1590.71, 5673.14, 2.00)
        pt3dadd(3068.96, 1589.40, 5676.34, 2.00)
        pt3dadd(3078.49, 1580.56, 5684.01, 2.00)
        pt3dadd(3089.19, 1577.88, 5685.48, 2.00)
        pt3dadd(3092.68, 1573.65, 5686.78, 2.00)
        pt3dadd(3099.89, 1572.36, 5687.99, 2.00)
        pt3dadd(3105.24, 1570.97, 5688.25, 2.00)
        pt3dadd(3116.86, 1563.87, 5689.84, 2.00)
        pt3dadd(3120.58, 1564.27, 5690.93, 2.00)
        pt3dadd(3123.14, 1563.14, 5689.86, 2.00)
        pt3dadd(3128.72, 1562.80, 5690.97, 2.00)
        pt3dadd(3140.35, 1555.75, 5691.31, 2.00)
        pt3dadd(3153.84, 1551.97, 5693.18, 2.00)
        pt3dadd(3160.35, 1550.82, 5696.82, 2.00)
        pt3dadd(3167.33, 1547.20, 5696.40, 2.00)
        pt3dadd(3176.63, 1544.74, 5703.24, 2.00)
        pt3dadd(3180.35, 1542.84, 5706.16, 2.00)
        pt3dadd(3180.35, 1543.06, 5706.08, 2.00)
        pt3dadd(3183.61, 1539.30, 5705.96, 2.00)
        pt3dadd(3185.24, 1537.59, 5708.07, 2.00)
        pt3dadd(3196.63, 1535.07, 5712.70, 2.00)
        pt3dadd(3202.91, 1532.39, 5714.17, 2.00)
        pt3dadd(3212.68, 1526.99, 5718.36, 2.00)
        pt3dadd(3217.79, 1524.40, 5720.79, 2.00)
        pt3dadd(3223.37, 1519.24, 5731.08, 2.00)
        pt3dadd(3223.14, 1517.71, 5734.36, 2.00)
        pt3dadd(3223.14, 1517.23, 5735.77, 2.00)
        pt3dadd(3226.63, 1515.92, 5738.97, 2.00)
        pt3dadd(3228.96, 1514.18, 5742.33, 2.00)
        pt3dadd(3234.30, 1514.30, 5746.74, 2.00)
        pt3dadd(3235.70, 1513.52, 5750.73, 2.00)
        pt3dadd(3243.84, 1513.61, 5761.84, 2.00)
        pt3dadd(3243.84, 1510.55, 5762.95, 2.00)
        pt3dadd(3249.42, 1501.69, 5767.17, 2.00)
        pt3dadd(3250.35, 1502.64, 5769.79, 2.00)
        pt3dadd(3256.86, 1501.63, 5778.57, 2.00)
        pt3dadd(3263.14, 1495.12, 5782.43, 2.00)
        pt3dadd(3264.30, 1494.22, 5782.01, 2.00)
  }
}
proc geometry26() {
  nakeaxon[202] {
        pt3dadd(3268.49, 1491.14, 5785.11, 2.00)
        pt3dadd(3272.68, 1489.30, 5787.52, 2.00)
        pt3dadd(3276.40, 1486.23, 5788.63, 2.00)
        pt3dadd(3284.54, 1481.83, 5799.64, 2.00)
        pt3dadd(3295.24, 1480.36, 5807.85, 2.00)
        pt3dadd(3301.98, 1483.98, 5819.15, 2.00)
        pt3dadd(3307.33, 1485.39, 5827.79, 2.00)
        pt3dadd(3311.75, 1486.98, 5837.61, 2.00)
        pt3dadd(3316.16, 1489.12, 5850.94, 2.00)
        pt3dadd(3315.70, 1490.47, 5854.65, 2.00)
        pt3dadd(3315.70, 1491.78, 5854.18, 2.00)
  }
  nakeaxon[203] {pt3dclear()
        pt3dadd(3054.77, 1599.49, 5668.71, 2.00)
        pt3dadd(3055.47, 1601.78, 5671.59, 2.00)
        pt3dadd(3060.12, 1601.74, 5683.73, 2.00)
        pt3dadd(3062.21, 1599.10, 5692.12, 2.00)
        pt3dadd(3066.16, 1597.97, 5699.21, 2.00)
        pt3dadd(3066.40, 1598.59, 5700.22, 2.00)
        pt3dadd(3065.70, 1594.75, 5708.05, 2.00)
        pt3dadd(3068.26, 1592.51, 5717.53, 2.00)
        pt3dadd(3069.42, 1591.34, 5723.15, 2.00)
        pt3dadd(3070.35, 1590.43, 5727.44, 2.00)
        pt3dadd(3068.49, 1588.58, 5740.74, 2.00)
        pt3dadd(3060.82, 1585.59, 5754.94, 2.00)
        pt3dadd(3056.16, 1586.57, 5766.47, 2.00)
        pt3dadd(3052.44, 1588.12, 5777.53, 2.00)
        pt3dadd(3051.75, 1588.95, 5781.19, 2.00)
        pt3dadd(3049.19, 1586.73, 5788.68, 2.00)
        pt3dadd(3046.63, 1587.59, 5803.96, 2.00)
        pt3dadd(3045.24, 1586.20, 5809.66, 2.00)
        pt3dadd(3042.68, 1582.09, 5812.64, 2.00)
        pt3dadd(3037.79, 1579.09, 5818.69, 2.00)
        pt3dadd(3037.33, 1579.49, 5822.50, 2.00)
        pt3dadd(3037.33, 1577.92, 5824.31, 2.00)
        pt3dadd(3036.63, 1574.88, 5834.32, 2.00)
        pt3dadd(3038.26, 1575.84, 5836.94, 2.00)
        pt3dadd(3034.07, 1575.55, 5853.14, 2.00)
        pt3dadd(3033.37, 1575.94, 5854.23, 2.00)
        pt3dadd(3031.51, 1576.66, 5864.36, 2.00)
        pt3dadd(3028.26, 1576.64, 5871.80, 2.00)
        pt3dadd(3024.07, 1567.33, 5883.60, 2.00)
        pt3dadd(3025.47, 1565.62, 5885.71, 2.00)
        pt3dadd(3021.28, 1560.32, 5896.30, 2.00)
        pt3dadd(3022.21, 1560.62, 5896.44, 2.00)
        pt3dadd(3021.98, 1562.11, 5897.13, 2.00)
        pt3dadd(3018.96, 1561.67, 5900.01, 2.00)
        pt3dadd(3014.07, 1559.47, 5905.52, 2.00)
        pt3dadd(3005.70, 1560.01, 5917.20, 2.00)
        pt3dadd(2999.89, 1560.13, 5927.06, 2.00)
        pt3dadd(2997.09, 1558.07, 5937.70, 2.00)
        pt3dadd(2992.68, 1560.35, 5946.03, 2.00)
        pt3dadd(2983.84, 1559.90, 5961.79, 2.00)
        pt3dadd(2978.96, 1558.65, 5972.63, 2.00)
        pt3dadd(2978.03, 1559.01, 5974.98, 2.00)
        pt3dadd(2960.58, 1562.71, 5994.67, 2.00)
        pt3dadd(2957.09, 1563.77, 5998.24, 2.00)
        pt3dadd(2951.51, 1559.73, 6001.44, 2.00)
        pt3dadd(2951.51, 1556.45, 5999.91, 2.00)
        pt3dadd(2951.51, 1556.24, 5999.99, 2.00)
        pt3dadd(2942.68, 1539.79, 6022.81, 2.00)
        pt3dadd(2938.96, 1539.99, 6027.44, 2.00)
        pt3dadd(2935.93, 1540.53, 6030.95, 2.00)
        pt3dadd(2934.07, 1537.53, 6034.27, 2.00)
        pt3dadd(2931.98, 1537.97, 6036.84, 2.00)
        pt3dadd(2930.82, 1537.55, 6040.45, 2.00)
        pt3dadd(2927.33, 1536.34, 6041.88, 2.00)
        pt3dadd(2927.33, 1536.74, 6042.98, 2.00)
        pt3dadd(2925.23, 1534.99, 6046.34, 2.00)
        pt3dadd(2924.07, 1535.23, 6049.71, 2.00)
        pt3dadd(2921.28, 1534.63, 6054.88, 2.00)
        pt3dadd(2919.19, 1535.65, 6056.98, 2.00)
        pt3dadd(2916.16, 1534.04, 6060.04, 2.00)
        pt3dadd(2914.54, 1533.74, 6062.63, 2.00)
        pt3dadd(2913.37, 1534.06, 6063.50, 2.00)
        pt3dadd(2911.28, 1534.50, 6066.06, 2.00)
        pt3dadd(2909.42, 1532.19, 6067.89, 2.00)
        pt3dadd(2906.63, 1532.43, 6071.27, 2.00)
        pt3dadd(2902.91, 1531.04, 6074.25, 2.00)
        pt3dadd(2899.19, 1530.67, 6076.62, 2.00)
        pt3dadd(2897.10, 1530.37, 6079.20, 2.00)
        pt3dadd(2894.54, 1530.55, 6080.37, 2.00)
  }
  nakeaxon[204] {pt3dclear()
        pt3dadd(3049.19, 1608.53, 5609.24, 2.00)
        pt3dadd(3048.03, 1618.17, 5617.36, 2.00)
        pt3dadd(3048.49, 1621.23, 5618.97, 2.00)
        pt3dadd(3048.49, 1623.64, 5618.10, 2.00)
  }
  nakeaxon[205] {pt3dclear()
        pt3dadd(3048.49, 1623.64, 5618.10, 2.00)
        pt3dadd(3056.40, 1627.99, 5626.66, 2.00)
        pt3dadd(3056.86, 1630.58, 5629.68, 2.00)
        pt3dadd(3059.65, 1634.15, 5639.51, 2.00)
        pt3dadd(3062.91, 1637.34, 5648.25, 2.00)
        pt3dadd(3067.10, 1642.94, 5662.30, 2.00)
        pt3dadd(3074.54, 1650.58, 5677.83, 2.00)
        pt3dadd(3074.30, 1651.67, 5671.99, 2.00)
        pt3dadd(3075.00, 1654.13, 5678.77, 2.00)
        pt3dadd(3076.63, 1656.76, 5683.26, 2.00)
  }
  nakeaxon[206] {pt3dclear()
        pt3dadd(3076.63, 1656.76, 5683.26, 2.00)
        pt3dadd(3075.93, 1657.08, 5684.13, 2.00)
        pt3dadd(3074.30, 1653.08, 5686.08, 2.00)
        pt3dadd(3068.72, 1654.38, 5690.31, 2.00)
        pt3dadd(3055.47, 1654.54, 5704.36, 2.00)
        pt3dadd(3048.72, 1654.09, 5720.11, 2.00)
        pt3dadd(3046.63, 1652.30, 5730.17, 2.00)
        pt3dadd(3044.77, 1654.41, 5742.76, 2.00)
        pt3dadd(3042.21, 1655.19, 5757.82, 2.00)
        pt3dadd(3041.75, 1657.26, 5766.23, 2.00)
        pt3dadd(3041.28, 1658.02, 5775.11, 2.00)
        pt3dadd(3042.44, 1658.73, 5777.08, 2.00)
        pt3dadd(3040.12, 1656.81, 5784.71, 2.00)
        pt3dadd(3036.40, 1657.98, 5795.41, 2.00)
        pt3dadd(3029.42, 1659.32, 5809.28, 2.00)
        pt3dadd(3025.70, 1658.88, 5820.33, 2.00)
        pt3dadd(3025.93, 1659.05, 5834.38, 2.00)
        pt3dadd(3025.70, 1659.81, 5845.98, 2.00)
        pt3dadd(3024.54, 1661.44, 5854.54, 2.00)
        pt3dadd(3021.98, 1660.47, 5862.07, 2.00)
        pt3dadd(3023.37, 1659.89, 5876.14, 2.00)
        pt3dadd(3027.10, 1665.44, 5882.54, 2.00)
        pt3dadd(3027.10, 1665.48, 5884.01, 2.00)
        pt3dadd(3027.56, 1665.32, 5891.74, 2.00)
        pt3dadd(3027.79, 1664.99, 5895.57, 2.00)
        pt3dadd(3025.00, 1667.81, 5910.14, 2.00)
        pt3dadd(3023.37, 1668.21, 5911.23, 2.00)
        pt3dadd(3021.98, 1668.07, 5914.25, 2.00)
        pt3dadd(3016.40, 1668.39, 5926.01, 2.00)
        pt3dadd(3013.84, 1670.24, 5931.77, 2.00)
        pt3dadd(3012.68, 1669.11, 5941.59, 2.00)
        pt3dadd(3008.49, 1670.13, 5946.41, 2.00)
        pt3dadd(3007.79, 1671.36, 5951.16, 2.00)
        pt3dadd(3005.70, 1670.19, 5959.51, 2.00)
        pt3dadd(3003.61, 1670.25, 5969.88, 2.00)
        pt3dadd(3001.98, 1670.83, 5974.87, 2.00)
        pt3dadd(2998.72, 1674.79, 5990.50, 2.00)
        pt3dadd(2995.00, 1677.22, 6001.25, 2.00)
        pt3dadd(2995.24, 1677.00, 6004.05, 2.00)
        pt3dadd(2991.28, 1679.94, 6012.14, 2.00)
        pt3dadd(2984.77, 1685.81, 6022.13, 2.00)
        pt3dadd(2981.75, 1690.18, 6034.15, 2.00)
        pt3dadd(2982.68, 1689.88, 6036.73, 2.00)
        pt3dadd(2981.98, 1689.63, 6040.78, 2.00)
        pt3dadd(2983.14, 1691.12, 6044.20, 2.00)
        pt3dadd(2979.19, 1694.50, 6052.13, 2.00)
        pt3dadd(2977.79, 1695.69, 6055.41, 2.00)
        pt3dadd(2975.47, 1697.14, 6065.52, 2.00)
        pt3dadd(2968.26, 1698.60, 6078.36, 2.00)
        pt3dadd(2966.63, 1698.82, 6081.00, 2.00)
        pt3dadd(2964.30, 1698.74, 6086.22, 2.00)
        pt3dadd(2961.28, 1699.54, 6093.85, 2.00)
        pt3dadd(2958.72, 1699.94, 6097.67, 2.00)
        pt3dadd(2954.77, 1699.86, 6105.61, 2.00)
        pt3dadd(2947.33, 1698.47, 6119.48, 2.00)
        pt3dadd(2944.30, 1700.40, 6125.46, 2.00)
  }
}
proc geometry27() {
  nakeaxon[206] {
        pt3dadd(2939.42, 1699.57, 6132.70, 2.00)
        pt3dadd(2933.37, 1697.64, 6137.60, 2.00)
  }
  nakeaxon[207] {pt3dclear()
        pt3dadd(3076.63, 1656.76, 5683.26, 2.00)
        pt3dadd(3079.65, 1659.86, 5691.78, 2.00)
        pt3dadd(3084.77, 1667.65, 5705.03, 2.00)
        pt3dadd(3089.89, 1670.87, 5712.52, 2.00)
        pt3dadd(3092.21, 1673.48, 5718.99, 2.00)
        pt3dadd(3093.84, 1676.86, 5724.20, 2.00)
        pt3dadd(3094.77, 1678.74, 5725.99, 2.00)
  }
  nakeaxon[208] {pt3dclear()
        pt3dadd(3094.77, 1678.74, 5725.99, 2.00)
        pt3dadd(3098.72, 1682.38, 5732.58, 2.00)
        pt3dadd(3106.86, 1684.51, 5732.30, 2.00)
        pt3dadd(3107.10, 1692.98, 5743.33, 2.00)
        pt3dadd(3107.79, 1697.01, 5751.02, 2.00)
        pt3dadd(3107.33, 1698.86, 5756.78, 2.00)
        pt3dadd(3107.56, 1698.78, 5759.28, 2.00)
  }
  nakeaxon[209] {pt3dclear()
        pt3dadd(3107.56, 1698.78, 5759.28, 2.00)
        pt3dadd(3110.58, 1702.02, 5759.34, 2.00)
        pt3dadd(3111.51, 1700.45, 5761.15, 2.00)
  }
  nakeaxon[210] {pt3dclear()
        pt3dadd(3111.51, 1700.45, 5761.15, 2.00)
        pt3dadd(3114.30, 1702.48, 5762.64, 2.00)
        pt3dadd(3118.49, 1706.83, 5765.76, 2.00)
        pt3dadd(3129.89, 1713.97, 5771.08, 2.00)
        pt3dadd(3134.54, 1717.52, 5774.73, 2.00)
        pt3dadd(3140.35, 1719.17, 5778.59, 2.00)
        pt3dadd(3145.70, 1726.07, 5785.98, 2.00)
        pt3dadd(3148.49, 1726.39, 5786.85, 2.00)
        pt3dadd(3158.26, 1732.51, 5792.79, 2.00)
        pt3dadd(3164.54, 1736.92, 5800.84, 2.00)
        pt3dadd(3167.33, 1740.26, 5804.57, 2.00)
        pt3dadd(3170.35, 1741.89, 5804.97, 2.00)
        pt3dadd(3174.07, 1743.62, 5806.32, 2.00)
        pt3dadd(3175.23, 1746.86, 5809.10, 2.00)
        pt3dadd(3183.37, 1754.91, 5818.30, 2.00)
        pt3dadd(3184.77, 1756.10, 5821.57, 2.00)
        pt3dadd(3183.84, 1756.10, 5821.57, 2.00)
  }
  nakeaxon[211] {pt3dclear()
        pt3dadd(3111.51, 1700.45, 5761.15, 2.00)
        pt3dadd(3114.07, 1699.10, 5760.16, 2.00)
        pt3dadd(3123.37, 1698.19, 5764.45, 2.00)
        pt3dadd(3128.96, 1698.07, 5765.48, 2.00)
        pt3dadd(3131.51, 1698.39, 5766.35, 2.00)
        pt3dadd(3144.54, 1696.64, 5772.44, 2.00)
  }
  nakeaxon[212] {pt3dclear()
        pt3dadd(3144.54, 1696.64, 5772.44, 2.00)
        pt3dadd(3153.61, 1694.53, 5773.45, 2.00)
        pt3dadd(3160.35, 1695.79, 5776.21, 2.00)
        pt3dadd(3162.21, 1692.87, 5779.75, 2.00)
        pt3dadd(3160.12, 1687.58, 5788.35, 2.00)
        pt3dadd(3171.28, 1680.43, 5785.02, 2.00)
        pt3dadd(3178.72, 1676.18, 5782.85, 2.00)
        pt3dadd(3185.00, 1672.76, 5784.34, 2.00)
        pt3dadd(3187.56, 1670.28, 5782.28, 2.00)
        pt3dadd(3191.98, 1670.44, 5782.71, 2.00)
        pt3dadd(3195.00, 1670.46, 5783.45, 2.00)
        pt3dadd(3204.30, 1665.39, 5781.09, 2.00)
        pt3dadd(3212.91, 1661.81, 5779.42, 2.00)
        pt3dadd(3227.79, 1659.41, 5783.02, 2.00)
        pt3dadd(3233.14, 1656.03, 5783.26, 2.00)
        pt3dadd(3243.37, 1655.44, 5785.70, 2.00)
        pt3dadd(3247.33, 1656.07, 5787.45, 2.00)
        pt3dadd(3253.84, 1656.61, 5793.69, 2.00)
        pt3dadd(3257.33, 1658.56, 5797.68, 2.00)
        pt3dadd(3274.77, 1659.04, 5801.71, 2.00)
        pt3dadd(3278.72, 1659.38, 5803.32, 2.00)
        pt3dadd(3286.16, 1658.11, 5805.27, 2.00)
        pt3dadd(3297.10, 1658.70, 5805.55, 2.00)
        pt3dadd(3304.54, 1657.65, 5807.42, 2.00)
        pt3dadd(3312.44, 1654.91, 5812.13, 2.00)
        pt3dadd(3324.07, 1652.70, 5812.19, 2.00)
        pt3dadd(3339.65, 1654.41, 5818.25, 2.00)
        pt3dadd(3343.61, 1654.75, 5819.85, 2.00)
        pt3dadd(3350.82, 1654.75, 5819.85, 2.00)
        pt3dadd(3358.49, 1655.85, 5822.18, 2.00)
        pt3dadd(3362.21, 1653.90, 5823.63, 2.00)
        pt3dadd(3368.49, 1655.43, 5823.07, 2.00)
        pt3dadd(3378.96, 1657.08, 5829.65, 2.00)
        pt3dadd(3381.98, 1658.67, 5831.30, 2.00)
        pt3dadd(3384.54, 1658.59, 5831.08, 2.00)
        pt3dadd(3383.61, 1658.37, 5831.16, 2.00)
  }
  nakeaxon[213] {pt3dclear()
        pt3dadd(3144.54, 1696.64, 5772.44, 2.00)
        pt3dadd(3148.49, 1694.87, 5775.06, 2.00)
        pt3dadd(3154.54, 1694.12, 5782.51, 2.00)
        pt3dadd(3162.91, 1693.41, 5785.99, 2.00)
        pt3dadd(3162.91, 1693.62, 5785.91, 2.00)
  }
  nakeaxon[214] {pt3dclear()
        pt3dadd(3107.56, 1698.78, 5759.28, 2.00)
        pt3dadd(3104.30, 1702.58, 5763.59, 2.00)
        pt3dadd(3114.54, 1711.38, 5773.50, 2.00)
        pt3dadd(3119.19, 1720.31, 5785.10, 2.00)
        pt3dadd(3121.28, 1719.57, 5787.85, 2.00)
        pt3dadd(3124.54, 1721.16, 5792.22, 2.00)
        pt3dadd(3131.05, 1732.19, 5802.80, 2.00)
        pt3dadd(3132.44, 1733.47, 5806.30, 2.00)
        pt3dadd(3134.30, 1741.12, 5819.85, 2.00)
        pt3dadd(3138.26, 1746.89, 5831.61, 2.00)
        pt3dadd(3137.33, 1747.62, 5831.59, 2.00)
  }
  nakeaxon[215] {pt3dclear()
        pt3dadd(3137.33, 1747.62, 5831.59, 2.00)
        pt3dadd(3139.42, 1749.55, 5837.57, 2.00)
        pt3dadd(3145.24, 1758.12, 5849.55, 2.00)
        pt3dadd(3149.89, 1763.11, 5859.86, 2.00)
        pt3dadd(3152.91, 1770.84, 5873.62, 2.00)
        pt3dadd(3161.05, 1780.02, 5881.17, 2.00)
        pt3dadd(3163.84, 1787.32, 5892.38, 2.00)
        pt3dadd(3167.10, 1792.19, 5895.55, 2.00)
        pt3dadd(3168.96, 1799.78, 5898.73, 2.00)
        pt3dadd(3172.68, 1812.32, 5913.47, 2.00)
        pt3dadd(3171.75, 1814.72, 5915.32, 2.00)
        pt3dadd(3174.30, 1828.00, 5924.59, 2.00)
        pt3dadd(3175.23, 1829.01, 5926.70, 2.00)
        pt3dadd(3172.68, 1834.80, 5931.03, 2.00)
        pt3dadd(3174.30, 1844.57, 5941.58, 2.00)
        pt3dadd(3174.30, 1848.31, 5949.12, 2.00)
        pt3dadd(3175.70, 1859.28, 5957.51, 2.00)
        pt3dadd(3176.63, 1862.22, 5960.15, 2.00)
        pt3dadd(3179.42, 1866.04, 5965.19, 2.00)
        pt3dadd(3178.49, 1878.18, 5976.12, 2.00)
  }
  nakeaxon[216] {pt3dclear()
        pt3dadd(3137.33, 1747.62, 5831.59, 2.00)
        pt3dadd(3136.63, 1745.40, 5833.64, 2.00)
        pt3dadd(3132.21, 1739.46, 5847.92, 2.00)
        pt3dadd(3130.12, 1737.71, 5854.01, 2.00)
        pt3dadd(3129.89, 1737.34, 5861.81, 2.00)
        pt3dadd(3127.33, 1737.80, 5876.00, 2.00)
        pt3dadd(3127.33, 1736.23, 5877.81, 2.00)
        pt3dadd(3129.65, 1735.64, 5882.97, 2.00)
        pt3dadd(3125.70, 1741.12, 5898.05, 2.00)
        pt3dadd(3120.82, 1745.20, 5920.82, 2.00)
        pt3dadd(3120.35, 1745.78, 5923.09, 2.00)
        pt3dadd(3113.37, 1753.83, 5935.01, 2.00)
        pt3dadd(3110.82, 1754.53, 5936.24, 2.00)
        pt3dadd(3109.65, 1757.55, 5941.82, 2.00)
        pt3dadd(3108.03, 1760.57, 5944.68, 2.00)
        pt3dadd(3107.33, 1759.74, 5946.47, 2.00)
        pt3dadd(3107.33, 1759.95, 5946.39, 2.00)
  }
  nakeaxon[217] {pt3dclear()
        pt3dadd(3094.77, 1678.74, 5725.99, 2.00)
        pt3dadd(3091.51, 1681.15, 5730.56, 2.00)
        pt3dadd(3086.16, 1693.35, 5735.52, 2.00)
        pt3dadd(3083.84, 1694.88, 5740.41, 2.00)
        pt3dadd(3084.30, 1706.33, 5752.82, 2.00)
        pt3dadd(3085.93, 1713.96, 5760.19, 2.00)
        pt3dadd(3086.63, 1721.74, 5775.43, 2.00)
        pt3dadd(3087.10, 1724.38, 5777.93, 2.00)
        pt3dadd(3089.42, 1730.76, 5787.98, 2.00)
        pt3dadd(3092.21, 1741.29, 5799.24, 2.00)
        pt3dadd(3091.05, 1743.40, 5803.68, 2.00)
        pt3dadd(3092.68, 1750.63, 5809.95, 2.00)
        pt3dadd(3091.75, 1759.14, 5817.00, 2.00)
        pt3dadd(3092.21, 1762.12, 5821.11, 2.00)
        pt3dadd(3092.21, 1765.18, 5820.00, 2.00)
        pt3dadd(3101.28, 1761.78, 5814.06, 2.00)
        pt3dadd(3102.21, 1764.87, 5824.57, 2.00)
        pt3dadd(3103.61, 1768.37, 5839.63, 2.00)
        pt3dadd(3105.00, 1771.57, 5843.66, 2.00)
  }
}
proc geometry28() {
  nakeaxon[217] {
        pt3dadd(3105.47, 1772.58, 5848.49, 2.00)
        pt3dadd(3110.12, 1769.31, 5860.57, 2.00)
        pt3dadd(3110.35, 1770.18, 5862.98, 2.00)
        pt3dadd(3113.37, 1769.33, 5869.47, 2.00)
        pt3dadd(3124.54, 1770.88, 5883.26, 2.00)
        pt3dadd(3127.79, 1773.23, 5891.07, 2.00)
        pt3dadd(3127.56, 1774.96, 5892.42, 2.00)
  }
  nakeaxon[218] {pt3dclear()
        pt3dadd(3127.56, 1774.96, 5892.42, 2.00)
        pt3dadd(3130.82, 1776.32, 5907.02, 2.00)
        pt3dadd(3132.21, 1776.60, 5914.59, 2.00)
        pt3dadd(3134.77, 1778.29, 5925.36, 2.00)
        pt3dadd(3140.12, 1778.37, 5933.75, 2.00)
        pt3dadd(3145.24, 1778.75, 5942.27, 2.00)
        pt3dadd(3150.12, 1779.21, 5945.57, 2.00)
        pt3dadd(3149.65, 1777.52, 5953.85, 2.00)
        pt3dadd(3151.75, 1778.10, 5956.12, 2.00)
        pt3dadd(3154.07, 1778.73, 5960.59, 2.00)
  }
  nakeaxon[219] {pt3dclear()
        pt3dadd(3127.56, 1774.96, 5892.42, 2.00)
        pt3dadd(3124.30, 1775.52, 5893.95, 2.00)
        pt3dadd(3120.82, 1774.94, 5897.13, 2.00)
  }
  nakeaxon[220] {pt3dclear()
        pt3dadd(3048.49, 1623.64, 5618.10, 2.00)
        pt3dadd(3048.03, 1633.28, 5628.94, 2.00)
        pt3dadd(3046.86, 1633.59, 5624.37, 2.00)
        pt3dadd(3045.47, 1644.21, 5635.85, 2.00)
        pt3dadd(3044.77, 1646.13, 5639.11, 2.00)
        pt3dadd(3045.93, 1647.41, 5639.89, 2.00)
  }
  nakeaxon[221] {pt3dclear()
        pt3dadd(3045.93, 1647.41, 5639.89, 2.00)
        pt3dadd(3046.63, 1662.15, 5654.56, 2.00)
        pt3dadd(3046.16, 1671.79, 5665.41, 2.00)
        pt3dadd(3047.33, 1674.65, 5667.83, 2.00)
        pt3dadd(3046.63, 1684.51, 5678.60, 2.00)
        pt3dadd(3044.77, 1694.41, 5688.11, 2.00)
        pt3dadd(3044.07, 1700.08, 5696.20, 2.00)
        pt3dadd(3038.96, 1709.79, 5707.26, 2.00)
        pt3dadd(3036.16, 1718.20, 5716.08, 2.00)
        pt3dadd(3036.40, 1719.25, 5716.94, 2.00)
  }
  nakeaxon[222] {pt3dclear()
        pt3dadd(3036.40, 1719.25, 5716.94, 2.00)
        pt3dadd(3045.47, 1725.87, 5714.03, 2.00)
        pt3dadd(3047.33, 1729.49, 5714.45, 2.00)
        pt3dadd(3050.12, 1737.79, 5711.43, 2.00)
        pt3dadd(3051.05, 1744.53, 5710.21, 2.00)
        pt3dadd(3051.05, 1746.06, 5709.66, 2.00)
        pt3dadd(3051.98, 1751.30, 5707.75, 2.00)
        pt3dadd(3052.91, 1761.24, 5707.84, 2.00)
        pt3dadd(3054.54, 1764.08, 5706.81, 2.00)
        pt3dadd(3061.75, 1773.69, 5703.31, 2.00)
        pt3dadd(3066.16, 1780.31, 5703.13, 2.00)
        pt3dadd(3066.16, 1781.40, 5702.73, 2.00)
        pt3dadd(3067.79, 1783.47, 5702.97, 2.00)
        pt3dadd(3075.00, 1792.45, 5700.44, 2.00)
        pt3dadd(3076.86, 1793.94, 5698.42, 2.00)
        pt3dadd(3078.49, 1796.16, 5696.37, 2.00)
        pt3dadd(3081.98, 1800.45, 5691.84, 2.00)
        pt3dadd(3082.68, 1808.40, 5686.47, 2.00)
        pt3dadd(3083.37, 1816.56, 5681.02, 2.00)
        pt3dadd(3085.24, 1819.54, 5679.69, 2.00)
        pt3dadd(3084.77, 1824.65, 5672.64, 2.00)
        pt3dadd(3084.77, 1826.83, 5671.84, 2.00)
        pt3dadd(3086.16, 1831.22, 5668.26, 2.00)
        pt3dadd(3087.10, 1839.86, 5661.41, 2.00)
        pt3dadd(3090.82, 1847.37, 5653.48, 2.00)
        pt3dadd(3093.61, 1856.67, 5649.10, 2.00)
        pt3dadd(3092.68, 1858.45, 5647.22, 2.00)
        pt3dadd(3093.61, 1860.60, 5647.67, 2.00)
        pt3dadd(3093.37, 1863.76, 5652.96, 2.00)
        pt3dadd(3098.49, 1871.33, 5660.84, 2.00)
        pt3dadd(3103.14, 1872.21, 5657.80, 2.00)
        pt3dadd(3106.63, 1875.66, 5660.50, 2.00)
        pt3dadd(3104.77, 1880.45, 5658.02, 2.00)
        pt3dadd(3108.03, 1885.12, 5659.29, 2.00)
        pt3dadd(3112.68, 1887.53, 5661.13, 2.00)
        pt3dadd(3115.00, 1892.32, 5661.37, 2.00)
        pt3dadd(3121.05, 1898.93, 5663.91, 2.00)
        pt3dadd(3129.65, 1904.44, 5663.39, 2.00)
        pt3dadd(3134.07, 1910.04, 5663.83, 2.00)
        pt3dadd(3135.24, 1912.84, 5666.77, 2.00)
        pt3dadd(3140.35, 1920.37, 5670.46, 2.00)
        pt3dadd(3145.24, 1930.71, 5674.37, 2.00)
        pt3dadd(3152.21, 1937.38, 5684.56, 2.00)
        pt3dadd(3153.84, 1939.27, 5686.35, 2.00)
        pt3dadd(3156.40, 1944.24, 5690.48, 2.00)
        pt3dadd(3165.47, 1950.24, 5694.73, 2.00)
        pt3dadd(3168.03, 1953.50, 5695.53, 2.00)
        pt3dadd(3172.91, 1955.87, 5695.90, 2.00)
        pt3dadd(3173.61, 1959.07, 5697.21, 2.00)
        pt3dadd(3176.63, 1962.94, 5699.02, 2.00)
        pt3dadd(3182.44, 1965.98, 5694.45, 2.00)
        pt3dadd(3187.79, 1971.42, 5691.73, 2.00)
        pt3dadd(3191.98, 1976.03, 5693.51, 2.00)
        pt3dadd(3202.44, 1985.79, 5695.16, 2.00)
        pt3dadd(3208.96, 1992.86, 5695.55, 2.00)
        pt3dadd(3212.21, 1997.47, 5697.34, 2.00)
        pt3dadd(3216.86, 2002.08, 5696.41, 2.00)
        pt3dadd(3221.05, 2004.11, 5695.18, 2.00)
        pt3dadd(3232.44, 2012.37, 5687.96, 2.00)
        pt3dadd(3244.30, 2021.01, 5683.82, 2.00)
        pt3dadd(3245.70, 2021.99, 5684.46, 2.00)
        pt3dadd(3250.58, 2025.22, 5684.52, 2.00)
        pt3dadd(3260.35, 2032.54, 5682.85, 2.00)
        pt3dadd(3263.37, 2037.82, 5682.41, 2.00)
        pt3dadd(3267.33, 2040.16, 5682.05, 2.00)
        pt3dadd(3269.19, 2042.81, 5681.83, 2.00)
        pt3dadd(3276.63, 2048.17, 5678.89, 2.00)
        pt3dadd(3286.40, 2052.72, 5678.47, 2.00)
        pt3dadd(3292.44, 2057.51, 5678.71, 2.00)
        pt3dadd(3299.42, 2061.42, 5679.26, 2.00)
        pt3dadd(3308.03, 2067.50, 5681.01, 2.00)
        pt3dadd(3308.03, 2067.72, 5680.93, 2.00)
  }
  nakeaxon[223] {pt3dclear()
        pt3dadd(3036.40, 1719.25, 5716.94, 2.00)
        pt3dadd(3034.07, 1729.41, 5727.84, 2.00)
        pt3dadd(3032.68, 1732.83, 5731.79, 2.00)
        pt3dadd(3037.09, 1733.71, 5734.20, 2.00)
  }
  nakeaxon[224] {pt3dclear()
        pt3dadd(3037.09, 1733.71, 5734.20, 2.00)
        pt3dadd(3036.86, 1736.05, 5733.84, 2.00)
        pt3dadd(3035.93, 1742.45, 5739.18, 2.00)
        pt3dadd(3034.30, 1749.11, 5743.19, 2.00)
        pt3dadd(3034.30, 1748.45, 5743.43, 2.00)
  }
  nakeaxon[225] {pt3dclear()
        pt3dadd(3034.30, 1748.45, 5743.43, 2.00)
        pt3dadd(3039.42, 1752.27, 5745.76, 2.00)
        pt3dadd(3037.56, 1760.99, 5755.45, 2.00)
        pt3dadd(3039.42, 1766.52, 5763.83, 2.00)
        pt3dadd(3039.42, 1767.75, 5765.86, 2.00)
        pt3dadd(3039.42, 1769.42, 5770.45, 2.00)
        pt3dadd(3039.42, 1770.61, 5773.72, 2.00)
        pt3dadd(3039.42, 1773.52, 5783.06, 2.00)
        pt3dadd(3039.42, 1772.64, 5783.38, 2.00)
  }
  nakeaxon[226] {pt3dclear()
        pt3dadd(3039.42, 1772.64, 5783.38, 2.00)
        pt3dadd(3036.63, 1773.00, 5785.73, 2.00)
        pt3dadd(3034.07, 1781.77, 5794.17, 2.00)
        pt3dadd(3033.14, 1786.63, 5797.34, 2.00)
        pt3dadd(3033.14, 1789.00, 5800.44, 2.00)
        pt3dadd(3033.14, 1792.82, 5805.49, 2.00)
        pt3dadd(3033.14, 1799.36, 5813.26, 2.00)
        pt3dadd(3034.77, 1811.72, 5826.82, 2.00)
        pt3dadd(3034.07, 1824.62, 5841.18, 2.00)
        pt3dadd(3031.05, 1832.96, 5845.07, 2.00)
        pt3dadd(3028.03, 1838.71, 5853.38, 2.00)
        pt3dadd(3026.63, 1842.03, 5856.38, 2.00)
        pt3dadd(3025.93, 1849.00, 5866.71, 2.00)
        pt3dadd(3024.54, 1851.15, 5872.61, 2.00)
        pt3dadd(3021.98, 1860.35, 5883.61, 2.00)
        pt3dadd(3019.89, 1865.88, 5892.00, 2.00)
        pt3dadd(3016.63, 1873.77, 5903.48, 2.00)
        pt3dadd(3012.44, 1881.44, 5917.76, 2.00)
        pt3dadd(3011.05, 1890.88, 5929.42, 2.00)
        pt3dadd(3011.05, 1895.90, 5940.47, 2.00)
        pt3dadd(3008.03, 1901.90, 5947.44, 2.00)
        pt3dadd(3006.17, 1907.28, 5953.40, 2.00)
        pt3dadd(3006.17, 1907.07, 5953.48, 2.00)
  }
  nakeaxon[227] {pt3dclear()
        pt3dadd(3039.42, 1772.64, 5783.38, 2.00)
  }
}
proc geometry29() {
  nakeaxon[227] {
        pt3dadd(3039.42, 1775.68, 5792.42, 2.00)
        pt3dadd(3041.28, 1781.09, 5804.56, 2.00)
        pt3dadd(3040.35, 1780.18, 5808.85, 2.00)
        pt3dadd(3036.63, 1782.93, 5823.19, 2.00)
        pt3dadd(3036.63, 1783.50, 5828.18, 2.00)
        pt3dadd(3035.70, 1785.06, 5833.80, 2.00)
        pt3dadd(3032.21, 1787.44, 5845.80, 2.00)
        pt3dadd(3029.42, 1791.22, 5854.82, 2.00)
        pt3dadd(3026.40, 1793.77, 5867.26, 2.00)
        pt3dadd(3024.54, 1796.31, 5871.53, 2.00)
  }
  nakeaxon[228] {pt3dclear()
        pt3dadd(3034.30, 1748.45, 5743.43, 2.00)
        pt3dadd(3046.86, 1750.85, 5742.56, 2.00)
        pt3dadd(3055.70, 1756.46, 5745.71, 2.00)
        pt3dadd(3058.49, 1758.09, 5748.83, 2.00)
        pt3dadd(3069.19, 1761.51, 5750.06, 2.00)
        pt3dadd(3072.68, 1764.13, 5751.83, 2.00)
        pt3dadd(3080.82, 1772.42, 5761.68, 2.00)
        pt3dadd(3084.54, 1776.19, 5765.26, 2.00)
        pt3dadd(3085.24, 1776.41, 5765.18, 2.00)
  }
  nakeaxon[229] {pt3dclear()
        pt3dadd(3085.24, 1776.41, 5765.18, 2.00)
        pt3dadd(3075.70, 1788.43, 5771.69, 2.00)
        pt3dadd(3074.07, 1792.37, 5772.98, 2.00)
        pt3dadd(3077.56, 1800.49, 5766.07, 2.00)
        pt3dadd(3077.79, 1802.82, 5767.69, 2.00)
        pt3dadd(3081.51, 1808.46, 5764.16, 2.00)
        pt3dadd(3082.91, 1808.90, 5761.28, 2.00)
        pt3dadd(3084.77, 1813.92, 5759.45, 2.00)
        pt3dadd(3083.14, 1818.21, 5760.36, 2.00)
        pt3dadd(3080.82, 1822.45, 5761.79, 2.00)
        pt3dadd(3081.98, 1829.32, 5763.00, 2.00)
        pt3dadd(3077.09, 1839.38, 5767.51, 2.00)
        pt3dadd(3072.21, 1847.25, 5772.81, 2.00)
        pt3dadd(3065.00, 1860.62, 5777.59, 2.00)
        pt3dadd(3062.68, 1865.53, 5782.24, 2.00)
        pt3dadd(3060.58, 1876.04, 5781.88, 2.00)
        pt3dadd(3056.63, 1888.66, 5788.67, 2.00)
        pt3dadd(3055.47, 1893.69, 5789.56, 2.00)
        pt3dadd(3057.33, 1907.12, 5791.11, 2.00)
        pt3dadd(3061.75, 1914.98, 5790.97, 2.00)
        pt3dadd(3061.51, 1921.28, 5792.64, 2.00)
  }
  nakeaxon[230] {pt3dclear()
        pt3dadd(3085.24, 1776.41, 5765.18, 2.00)
        pt3dadd(3088.96, 1780.96, 5767.48, 2.00)
        pt3dadd(3091.51, 1781.36, 5768.58, 2.00)
        pt3dadd(3097.79, 1787.03, 5776.66, 2.00)
        pt3dadd(3097.09, 1787.68, 5779.14, 2.00)
        pt3dadd(3107.79, 1797.06, 5785.88, 2.00)
        pt3dadd(3115.24, 1801.91, 5793.76, 2.00)
        pt3dadd(3120.58, 1807.00, 5799.58, 2.00)
        pt3dadd(3123.84, 1815.05, 5803.34, 2.00)
        pt3dadd(3126.16, 1817.00, 5807.33, 2.00)
        pt3dadd(3130.82, 1821.43, 5810.67, 2.00)
        pt3dadd(3132.91, 1824.59, 5810.51, 2.00)
        pt3dadd(3137.56, 1826.44, 5813.55, 2.00)
        pt3dadd(3145.47, 1831.78, 5815.31, 2.00)
        pt3dadd(3157.09, 1835.18, 5813.09, 2.00)
        pt3dadd(3166.16, 1840.09, 5809.57, 2.00)
        pt3dadd(3169.65, 1840.54, 5810.14, 2.00)
        pt3dadd(3172.91, 1846.11, 5814.55, 2.00)
        pt3dadd(3177.09, 1855.80, 5819.44, 2.00)
        pt3dadd(3180.58, 1862.96, 5828.22, 2.00)
        pt3dadd(3182.68, 1863.97, 5830.32, 2.00)
        pt3dadd(3190.35, 1869.26, 5835.33, 2.00)
        pt3dadd(3191.51, 1871.15, 5839.84, 2.00)
        pt3dadd(3192.68, 1872.42, 5843.34, 2.00)
        pt3dadd(3192.68, 1873.29, 5843.02, 2.00)
  }
  nakeaxon[231] {pt3dclear()
        pt3dadd(3037.09, 1733.71, 5734.20, 2.00)
        pt3dadd(3042.91, 1733.71, 5736.92, 2.00)
        pt3dadd(3055.24, 1734.11, 5743.46, 2.00)
        pt3dadd(3059.89, 1734.74, 5745.20, 2.00)
        pt3dadd(3068.96, 1734.25, 5748.60, 2.00)
        pt3dadd(3069.89, 1733.07, 5748.78, 2.00)
  }
  nakeaxon[232] {pt3dclear()
        pt3dadd(3069.89, 1733.07, 5748.78, 2.00)
        pt3dadd(3079.89, 1737.72, 5752.04, 2.00)
        pt3dadd(3079.89, 1738.16, 5751.88, 2.00)
  }
  nakeaxon[233] {pt3dclear()
        pt3dadd(3079.89, 1738.16, 5751.88, 2.00)
        pt3dadd(3083.84, 1738.14, 5756.59, 2.00)
  }
  nakeaxon[234] {pt3dclear()
        pt3dadd(3083.84, 1738.14, 5756.59, 2.00)
        pt3dadd(3082.91, 1740.80, 5757.10, 2.00)
        pt3dadd(3083.84, 1740.73, 5756.88, 2.00)
  }
  nakeaxon[235] {pt3dclear()
        pt3dadd(3083.84, 1740.73, 5756.88, 2.00)
        pt3dadd(3084.30, 1741.08, 5761.95, 2.00)
        pt3dadd(3091.05, 1748.70, 5776.75, 2.00)
        pt3dadd(3091.05, 1748.92, 5776.67, 2.00)
  }
  nakeaxon[236] {pt3dclear()
        pt3dadd(3083.84, 1740.73, 5756.88, 2.00)
        pt3dadd(3085.93, 1741.42, 5758.12, 2.00)
        pt3dadd(3088.96, 1743.88, 5759.45, 2.00)
        pt3dadd(3090.12, 1743.86, 5755.99, 2.00)
        pt3dadd(3091.05, 1744.08, 5755.91, 2.00)
        pt3dadd(3098.26, 1744.74, 5755.67, 2.00)
        pt3dadd(3105.47, 1742.49, 5748.82, 2.00)
        pt3dadd(3113.37, 1741.58, 5747.67, 2.00)
        pt3dadd(3127.79, 1739.59, 5739.48, 2.00)
        pt3dadd(3133.14, 1743.56, 5736.80, 2.00)
        pt3dadd(3138.49, 1746.70, 5733.18, 2.00)
        pt3dadd(3142.21, 1749.80, 5728.09, 2.00)
        pt3dadd(3142.21, 1755.84, 5728.37, 2.00)
        pt3dadd(3146.63, 1761.12, 5725.21, 2.00)
        pt3dadd(3148.49, 1762.87, 5724.57, 2.00)
        pt3dadd(3151.98, 1763.21, 5720.74, 2.00)
        pt3dadd(3156.40, 1767.76, 5720.32, 2.00)
        pt3dadd(3163.61, 1775.88, 5713.40, 2.00)
        pt3dadd(3165.00, 1784.11, 5712.88, 2.00)
        pt3dadd(3166.16, 1784.80, 5714.11, 2.00)
        pt3dadd(3174.77, 1794.86, 5718.62, 2.00)
        pt3dadd(3180.12, 1797.54, 5717.15, 2.00)
        pt3dadd(3187.56, 1803.64, 5716.91, 2.00)
        pt3dadd(3190.12, 1806.36, 5716.91, 2.00)
        pt3dadd(3196.16, 1811.05, 5718.91, 2.00)
        pt3dadd(3197.79, 1813.73, 5720.17, 2.00)
        pt3dadd(3205.47, 1825.08, 5720.74, 2.00)
        pt3dadd(3208.49, 1835.23, 5720.76, 2.00)
        pt3dadd(3208.72, 1839.30, 5721.75, 2.00)
        pt3dadd(3210.58, 1841.19, 5723.54, 2.00)
        pt3dadd(3215.47, 1844.65, 5718.07, 2.00)
        pt3dadd(3218.03, 1850.55, 5718.65, 2.00)
        pt3dadd(3223.37, 1858.28, 5716.08, 2.00)
        pt3dadd(3228.96, 1864.85, 5703.54, 2.00)
        pt3dadd(3229.19, 1865.37, 5700.88, 2.00)
        pt3dadd(3229.19, 1870.25, 5696.62, 2.00)
        pt3dadd(3232.68, 1876.49, 5690.64, 2.00)
        pt3dadd(3234.54, 1883.92, 5687.94, 2.00)
        pt3dadd(3233.84, 1887.87, 5684.52, 2.00)
        pt3dadd(3234.30, 1902.12, 5678.10, 2.00)
        pt3dadd(3237.79, 1910.02, 5671.26, 2.00)
        pt3dadd(3241.98, 1914.43, 5673.86, 2.00)
        pt3dadd(3246.63, 1919.02, 5669.47, 2.00)
        pt3dadd(3252.44, 1922.66, 5665.18, 2.00)
        pt3dadd(3254.30, 1927.27, 5664.24, 2.00)
        pt3dadd(3261.98, 1934.42, 5662.13, 2.00)
        pt3dadd(3265.24, 1946.99, 5659.29, 2.00)
        pt3dadd(3267.33, 1955.76, 5659.56, 2.00)
        pt3dadd(3269.19, 1956.95, 5660.12, 2.00)
        pt3dadd(3273.14, 1960.50, 5661.05, 2.00)
        pt3dadd(3276.17, 1968.79, 5662.74, 2.00)
        pt3dadd(3277.33, 1973.08, 5663.65, 2.00)
        pt3dadd(3278.72, 1974.83, 5657.57, 2.00)
        pt3dadd(3281.05, 1976.80, 5654.13, 2.00)
        pt3dadd(3284.30, 1985.24, 5648.09, 2.00)
        pt3dadd(3285.70, 1986.95, 5645.98, 2.00)
        pt3dadd(3286.63, 1989.39, 5643.86, 2.00)
  }
  nakeaxon[237] {pt3dclear()
        pt3dadd(3083.84, 1738.14, 5756.59, 2.00)
        pt3dadd(3087.33, 1736.43, 5753.25, 2.00)
        pt3dadd(3088.26, 1734.47, 5753.97, 2.00)
  }
  nakeaxon[238] {pt3dclear()
        pt3dadd(3079.89, 1738.16, 5751.88, 2.00)
        pt3dadd(3079.89, 1737.76, 5750.79, 2.00)
        pt3dadd(3092.68, 1730.31, 5744.59, 2.00)
        pt3dadd(3093.84, 1731.11, 5746.78, 2.00)
        pt3dadd(3101.51, 1727.67, 5744.81, 2.00)
        pt3dadd(3104.07, 1725.70, 5742.80, 2.00)
        pt3dadd(3107.33, 1719.42, 5741.87, 2.00)
  }
}
proc geometry30() {
  nakeaxon[238] {
        pt3dadd(3107.33, 1722.70, 5740.68, 2.00)
  }
  nakeaxon[239] {pt3dclear()
        pt3dadd(3069.89, 1733.07, 5748.78, 2.00)
        pt3dadd(3070.35, 1733.83, 5752.22, 2.00)
        pt3dadd(3073.14, 1732.54, 5764.32, 2.00)
        pt3dadd(3071.51, 1734.02, 5777.89, 2.00)
        pt3dadd(3070.35, 1735.77, 5782.70, 2.00)
        pt3dadd(3067.56, 1735.97, 5790.05, 2.00)
        pt3dadd(3065.24, 1738.14, 5802.13, 2.00)
        pt3dadd(3067.33, 1738.30, 5816.17, 2.00)
        pt3dadd(3067.33, 1736.99, 5816.65, 2.00)
        pt3dadd(3067.33, 1737.21, 5816.57, 2.00)
  }
  nakeaxon[240] {pt3dclear()
        pt3dadd(3045.93, 1647.41, 5639.89, 2.00)
        pt3dadd(3044.30, 1648.90, 5643.30, 2.00)
        pt3dadd(3038.49, 1651.19, 5657.07, 2.00)
        pt3dadd(3032.68, 1655.01, 5673.01, 2.00)
        pt3dadd(3021.51, 1662.04, 5688.26, 2.00)
        pt3dadd(3015.00, 1673.65, 5703.84, 2.00)
        pt3dadd(3013.84, 1676.71, 5710.89, 2.00)
        pt3dadd(3004.54, 1683.38, 5725.79, 2.00)
        pt3dadd(3001.98, 1685.96, 5728.81, 2.00)
        pt3dadd(2994.54, 1691.64, 5743.07, 2.00)
        pt3dadd(2986.40, 1699.18, 5760.37, 2.00)
        pt3dadd(2978.72, 1707.89, 5774.78, 2.00)
        pt3dadd(2973.84, 1710.33, 5780.82, 2.00)
        pt3dadd(2972.91, 1710.77, 5780.66, 2.00)
  }
  nakeaxon[241] {pt3dclear()
        pt3dadd(2972.91, 1710.77, 5780.66, 2.00)
        pt3dadd(2971.75, 1717.25, 5794.39, 2.00)
        pt3dadd(2967.10, 1722.86, 5805.71, 2.00)
        pt3dadd(2967.10, 1725.98, 5812.24, 2.00)
        pt3dadd(2962.21, 1733.83, 5827.70, 2.00)
        pt3dadd(2955.70, 1739.00, 5844.63, 2.00)
        pt3dadd(2951.28, 1743.30, 5856.43, 2.00)
        pt3dadd(2948.03, 1749.44, 5868.55, 2.00)
        pt3dadd(2942.91, 1756.68, 5882.99, 2.00)
        pt3dadd(2942.44, 1757.08, 5884.08, 2.00)
        pt3dadd(2941.05, 1760.35, 5888.33, 2.00)
        pt3dadd(2936.63, 1764.47, 5898.96, 2.00)
        pt3dadd(2931.05, 1767.93, 5907.10, 2.00)
        pt3dadd(2926.40, 1777.31, 5922.00, 2.00)
        pt3dadd(2919.19, 1784.81, 5943.28, 2.00)
        pt3dadd(2911.75, 1794.47, 5963.03, 2.00)
        pt3dadd(2910.35, 1796.14, 5967.62, 2.00)
        pt3dadd(2909.89, 1799.08, 5972.98, 2.00)
        pt3dadd(2906.16, 1804.35, 5990.86, 2.00)
        pt3dadd(2908.49, 1811.13, 6004.73, 2.00)
        pt3dadd(2911.28, 1811.93, 6006.91, 2.00)
        pt3dadd(2915.70, 1815.17, 6026.03, 2.00)
        pt3dadd(2914.30, 1817.28, 6030.46, 2.00)
        pt3dadd(2914.07, 1818.48, 6039.18, 2.00)
        pt3dadd(2915.47, 1825.12, 6053.34, 2.00)
        pt3dadd(2922.91, 1827.01, 6066.02, 2.00)
        pt3dadd(2932.68, 1823.27, 6074.80, 2.00)
        pt3dadd(2936.86, 1821.07, 6080.31, 2.00)
        pt3dadd(2951.28, 1818.73, 6091.55, 2.00)
        pt3dadd(2957.56, 1818.51, 6102.52, 2.00)
        pt3dadd(2955.70, 1817.50, 6103.14, 2.00)
        pt3dadd(2955.70, 1817.72, 6103.06, 2.00)
  }
  nakeaxon[242] {pt3dclear()
        pt3dadd(2972.91, 1710.77, 5780.66, 2.00)
        pt3dadd(2969.65, 1712.92, 5783.84, 2.00)
        pt3dadd(2959.89, 1719.97, 5797.11, 2.00)
        pt3dadd(2950.12, 1725.44, 5811.45, 2.00)
        pt3dadd(2947.33, 1727.59, 5817.35, 2.00)
        pt3dadd(2934.07, 1732.38, 5831.20, 2.00)
        pt3dadd(2921.98, 1740.91, 5844.43, 2.00)
        pt3dadd(2920.82, 1742.84, 5850.41, 2.00)
        pt3dadd(2914.54, 1745.44, 5859.61, 2.00)
        pt3dadd(2913.37, 1746.36, 5863.48, 2.00)
        pt3dadd(2911.05, 1749.38, 5869.06, 2.00)
        pt3dadd(2899.65, 1749.86, 5883.98, 2.00)
        pt3dadd(2891.05, 1751.91, 5897.10, 2.00)
        pt3dadd(2884.54, 1756.49, 5916.47, 2.00)
        pt3dadd(2876.63, 1762.24, 5935.66, 2.00)
        pt3dadd(2875.00, 1761.84, 5940.01, 2.00)
        pt3dadd(2868.49, 1767.86, 5953.16, 2.00)
        pt3dadd(2857.56, 1774.17, 5971.16, 2.00)
        pt3dadd(2856.40, 1777.15, 5975.27, 2.00)
        pt3dadd(2855.24, 1782.60, 5991.60, 2.00)
        pt3dadd(2855.24, 1783.61, 5993.71, 2.00)
        pt3dadd(2855.47, 1782.66, 5996.53, 2.00)
        pt3dadd(2859.19, 1786.76, 6006.42, 2.00)
        pt3dadd(2862.44, 1788.01, 6014.63, 2.00)
        pt3dadd(2863.37, 1790.18, 6023.99, 2.00)
        pt3dadd(2867.33, 1793.04, 6026.41, 2.00)
        pt3dadd(2872.21, 1798.07, 6040.91, 2.00)
        pt3dadd(2870.58, 1799.73, 6061.10, 2.00)
        pt3dadd(2866.86, 1799.15, 6064.28, 2.00)
        pt3dadd(2863.84, 1800.09, 6066.16, 2.00)
        pt3dadd(2858.03, 1805.04, 6077.73, 2.00)
        pt3dadd(2853.14, 1806.59, 6094.24, 2.00)
        pt3dadd(2854.30, 1805.86, 6099.70, 2.00)
        pt3dadd(2854.30, 1805.64, 6099.78, 2.00)
  }
  nakeaxon[243] {pt3dclear()
        pt3dadd(3059.42, 1590.07, 5531.32, 2.00)
        pt3dadd(3058.26, 1591.17, 5536.37, 2.00)
        pt3dadd(3057.09, 1597.25, 5543.56, 2.00)
        pt3dadd(3052.91, 1606.83, 5554.92, 2.00)
        pt3dadd(3052.68, 1608.40, 5558.55, 2.00)
        pt3dadd(3048.72, 1611.02, 5563.04, 2.00)
        pt3dadd(3048.26, 1612.62, 5567.41, 2.00)
        pt3dadd(3046.16, 1618.22, 5576.02, 2.00)
        pt3dadd(3046.63, 1620.25, 5580.23, 2.00)
        pt3dadd(3044.07, 1625.20, 5589.07, 2.00)
        pt3dadd(3044.30, 1626.39, 5592.35, 2.00)
        pt3dadd(3045.47, 1632.89, 5604.09, 2.00)
        pt3dadd(3040.35, 1639.99, 5616.11, 2.00)
        pt3dadd(3037.09, 1643.01, 5621.69, 2.00)
        pt3dadd(3035.47, 1646.93, 5627.69, 2.00)
        pt3dadd(3033.61, 1651.18, 5635.30, 2.00)
        pt3dadd(3028.72, 1656.79, 5649.34, 2.00)
        pt3dadd(3026.86, 1661.14, 5660.62, 2.00)
        pt3dadd(3023.84, 1665.36, 5674.93, 2.00)
        pt3dadd(3020.12, 1674.92, 5691.00, 2.00)
        pt3dadd(3019.42, 1676.01, 5693.32, 2.00)
        pt3dadd(3017.79, 1679.75, 5703.60, 2.00)
        pt3dadd(3016.86, 1680.07, 5715.36, 2.00)
        pt3dadd(3015.24, 1680.87, 5717.54, 2.00)
        pt3dadd(3017.56, 1681.07, 5724.89, 2.00)
        pt3dadd(3017.79, 1681.51, 5727.46, 2.00)
        pt3dadd(3018.72, 1680.16, 5742.80, 2.00)
        pt3dadd(3019.65, 1680.08, 5745.30, 2.00)
        pt3dadd(3020.58, 1679.45, 5754.44, 2.00)
        pt3dadd(3019.89, 1680.03, 5759.43, 2.00)
        pt3dadd(3019.89, 1680.90, 5759.11, 2.00)
  }
  nakeaxon[244] {pt3dclear()
        pt3dadd(3019.89, 1680.90, 5759.11, 2.00)
        pt3dadd(3020.35, 1684.06, 5761.67, 2.00)
        pt3dadd(3024.07, 1697.14, 5779.93, 2.00)
        pt3dadd(3024.77, 1706.11, 5795.72, 2.00)
        pt3dadd(3026.40, 1709.62, 5803.35, 2.00)
        pt3dadd(3025.93, 1710.86, 5810.82, 2.00)
        pt3dadd(3030.35, 1711.67, 5816.46, 2.00)
        pt3dadd(3034.54, 1713.15, 5824.59, 2.00)
        pt3dadd(3036.86, 1714.30, 5829.12, 2.00)
        pt3dadd(3040.58, 1715.59, 5833.35, 2.00)
        pt3dadd(3041.05, 1715.55, 5837.32, 2.00)
        pt3dadd(3041.51, 1717.72, 5843.96, 2.00)
        pt3dadd(3050.12, 1718.66, 5859.45, 2.00)
        pt3dadd(3054.77, 1718.11, 5863.37, 2.00)
        pt3dadd(3059.42, 1718.33, 5868.73, 2.00)
        pt3dadd(3068.96, 1716.06, 5872.03, 2.00)
        pt3dadd(3073.84, 1719.62, 5886.57, 2.00)
        pt3dadd(3076.16, 1721.29, 5888.44, 2.00)
        pt3dadd(3078.02, 1723.28, 5893.90, 2.00)
        pt3dadd(3080.12, 1724.69, 5894.38, 2.00)
  }
  nakeaxon[245] {pt3dclear()
        pt3dadd(3019.89, 1680.90, 5759.11, 2.00)
        pt3dadd(3017.56, 1680.29, 5760.82, 2.00)
        pt3dadd(3021.51, 1679.49, 5766.80, 2.00)
        pt3dadd(3015.00, 1676.60, 5779.24, 2.00)
        pt3dadd(3012.91, 1679.36, 5794.32, 2.00)
        pt3dadd(3011.75, 1682.78, 5803.71, 2.00)
        pt3dadd(3011.75, 1685.07, 5809.31, 2.00)
        pt3dadd(3011.28, 1684.20, 5812.36, 2.00)
  }
}
proc geometry31() {
  nakeaxon[245] {
        pt3dadd(3011.28, 1688.37, 5827.91, 2.00)
        pt3dadd(3012.21, 1691.34, 5839.45, 2.00)
        pt3dadd(3011.28, 1694.64, 5855.33, 2.00)
        pt3dadd(3010.12, 1696.49, 5866.53, 2.00)
        pt3dadd(3010.35, 1701.66, 5886.18, 2.00)
        pt3dadd(3008.72, 1703.59, 5892.16, 2.00)
        pt3dadd(3008.96, 1703.87, 5899.73, 2.00)
        pt3dadd(3009.65, 1706.91, 5914.22, 2.00)
        pt3dadd(3009.89, 1707.63, 5921.63, 2.00)
        pt3dadd(3008.72, 1712.07, 5938.57, 2.00)
        pt3dadd(3010.35, 1712.31, 5941.95, 2.00)
        pt3dadd(3007.79, 1713.44, 5948.47, 2.00)
        pt3dadd(3006.86, 1715.59, 5954.37, 2.00)
        pt3dadd(3006.40, 1714.94, 5957.33, 2.00)
        pt3dadd(3004.54, 1720.20, 5972.49, 2.00)
        pt3dadd(3005.93, 1722.63, 5980.51, 2.00)
        pt3dadd(3005.23, 1726.94, 5990.33, 2.00)
        pt3dadd(3000.35, 1735.61, 6008.70, 2.00)
        pt3dadd(2994.54, 1740.68, 6021.95, 2.00)
        pt3dadd(2989.89, 1743.07, 6031.23, 2.00)
        pt3dadd(2986.16, 1745.48, 6043.97, 2.00)
        pt3dadd(2982.68, 1746.43, 6049.31, 2.00)
        pt3dadd(2979.65, 1746.77, 6059.09, 2.00)
        pt3dadd(2979.19, 1745.68, 6056.76, 2.00)
  }
  nakeaxon[246] {pt3dclear()
        pt3dadd(2979.19, 1745.68, 6056.76, 2.00)
        pt3dadd(2969.42, 1747.93, 6074.51, 2.00)
        pt3dadd(2964.07, 1753.58, 6092.74, 2.00)
        pt3dadd(2967.56, 1758.91, 6107.39, 2.00)
        pt3dadd(2970.82, 1758.83, 6112.61, 2.00)
        pt3dadd(2974.54, 1759.61, 6119.51, 2.00)
        pt3dadd(2974.30, 1759.31, 6124.81, 2.00)
        pt3dadd(2975.70, 1756.53, 6128.05, 2.00)
        pt3dadd(2974.07, 1757.23, 6134.73, 2.00)
        pt3dadd(2968.72, 1756.99, 6136.79, 2.00)
        pt3dadd(2967.10, 1756.41, 6137.25, 2.00)
        pt3dadd(2966.86, 1755.58, 6136.31, 2.00)
  }
  nakeaxon[247] {pt3dclear()
        pt3dadd(2979.19, 1745.68, 6056.76, 2.00)
        pt3dadd(2980.35, 1747.09, 6057.24, 2.00)
        pt3dadd(3024.07, 1650.09, 5630.25, 2.00)
  }
  nakeaxon[248] {pt3dclear()
        pt3dadd(3024.07, 1650.09, 5630.25, 2.00)
        pt3dadd(3016.63, 1652.53, 5636.29, 2.00)
        pt3dadd(3015.00, 1652.61, 5639.23, 2.00)
        pt3dadd(3015.00, 1652.83, 5639.15, 2.00)
  }
  nakeaxon[249] {pt3dclear()
        pt3dadd(3064.07, 1586.57, 5516.26, 2.00)
        pt3dadd(3053.84, 1597.42, 5528.40, 2.00)
        pt3dadd(3052.21, 1599.65, 5529.07, 2.00)
        pt3dadd(3046.63, 1597.09, 5532.23, 2.00)
        pt3dadd(3044.30, 1601.10, 5533.74, 2.00)
        pt3dadd(3038.72, 1613.58, 5549.00, 2.00)
        pt3dadd(3035.24, 1615.01, 5550.21, 2.00)
        pt3dadd(3035.47, 1614.24, 5554.20, 2.00)
        pt3dadd(3030.35, 1616.11, 5557.98, 2.00)
        pt3dadd(3029.65, 1618.69, 5558.27, 2.00)
        pt3dadd(3024.77, 1625.73, 5562.64, 2.00)
        pt3dadd(3020.12, 1630.58, 5567.81, 2.00)
        pt3dadd(3008.49, 1637.39, 5577.70, 2.00)
        pt3dadd(3005.47, 1639.44, 5582.65, 2.00)
        pt3dadd(2999.89, 1644.47, 5591.70, 2.00)
        pt3dadd(2993.84, 1654.57, 5605.85, 2.00)
        pt3dadd(2993.14, 1657.37, 5608.79, 2.00)
        pt3dadd(2985.70, 1667.13, 5624.04, 2.00)
        pt3dadd(2978.26, 1673.99, 5629.96, 2.00)
        pt3dadd(2971.75, 1678.80, 5636.38, 2.00)
        pt3dadd(2966.86, 1683.47, 5640.37, 2.00)
        pt3dadd(2965.47, 1687.40, 5644.38, 2.00)
        pt3dadd(2961.98, 1698.22, 5657.77, 2.00)
        pt3dadd(2962.44, 1703.38, 5661.09, 2.00)
        pt3dadd(2966.63, 1715.17, 5664.23, 2.00)
        pt3dadd(2960.35, 1724.98, 5673.52, 2.00)
        pt3dadd(2958.49, 1733.05, 5683.45, 2.00)
        pt3dadd(2955.93, 1737.74, 5688.18, 2.00)
        pt3dadd(2954.07, 1748.62, 5695.61, 2.00)
        pt3dadd(2949.65, 1758.83, 5706.00, 2.00)
        pt3dadd(2949.65, 1761.02, 5707.92, 2.00)
        pt3dadd(2943.37, 1774.35, 5724.85, 2.00)
        pt3dadd(2942.44, 1775.55, 5728.12, 2.00)
        pt3dadd(2934.77, 1786.88, 5738.85, 2.00)
        pt3dadd(2931.05, 1797.71, 5750.25, 2.00)
        pt3dadd(2930.35, 1799.24, 5752.42, 2.00)
        pt3dadd(2925.23, 1800.35, 5758.20, 2.00)
        pt3dadd(2924.54, 1801.80, 5760.15, 2.00)
        pt3dadd(2921.51, 1807.85, 5768.59, 2.00)
        pt3dadd(2917.79, 1814.15, 5775.70, 2.00)
        pt3dadd(2915.00, 1820.33, 5783.84, 2.00)
        pt3dadd(2916.86, 1820.65, 5784.72, 2.00)
        pt3dadd(2922.91, 1825.36, 5792.90, 2.00)
        pt3dadd(2925.47, 1830.15, 5801.31, 2.00)
        pt3dadd(2927.79, 1831.48, 5807.01, 2.00)
        pt3dadd(2931.75, 1834.52, 5813.32, 2.00)
        pt3dadd(2934.30, 1841.28, 5821.01, 2.00)
        pt3dadd(2938.26, 1843.71, 5826.32, 2.00)
        pt3dadd(2941.51, 1847.22, 5831.22, 2.00)
        pt3dadd(2946.63, 1855.67, 5838.79, 2.00)
        pt3dadd(2948.26, 1863.66, 5845.78, 2.00)
        pt3dadd(2950.35, 1865.73, 5851.46, 2.00)
        pt3dadd(2949.65, 1872.88, 5862.97, 2.00)
        pt3dadd(2948.26, 1881.17, 5878.26, 2.00)
        pt3dadd(2948.49, 1887.78, 5893.68, 2.00)
        pt3dadd(2948.03, 1889.44, 5898.27, 2.00)
        pt3dadd(2948.26, 1893.84, 5908.30, 2.00)
        pt3dadd(2948.96, 1896.66, 5917.42, 2.00)
        pt3dadd(2949.89, 1897.72, 5920.99, 2.00)
        pt3dadd(2950.12, 1898.95, 5923.02, 2.00)
  }
  nakeaxon[250] {pt3dclear()
        pt3dadd(3128.03, 1451.05, 4993.65, 2.00)
        pt3dadd(3131.51, 1454.13, 4976.94, 2.00)
        pt3dadd(3134.54, 1456.09, 4970.78, 2.00)
        pt3dadd(3130.12, 1457.36, 4974.28, 2.00)
        pt3dadd(3132.68, 1459.27, 4965.91, 2.00)
        pt3dadd(3132.68, 1461.89, 4964.96, 2.00)
        pt3dadd(3133.61, 1461.67, 4965.04, 2.00)
  }
  nakeaxon[251] {pt3dclear()
        pt3dadd(3133.61, 1461.67, 4965.04, 2.00)
        pt3dadd(3138.02, 1459.43, 4958.18, 2.00)
        pt3dadd(3148.03, 1462.72, 4944.11, 2.00)
        pt3dadd(3154.30, 1465.50, 4932.71, 2.00)
  }
  nakeaxon[252] {pt3dclear()
        pt3dadd(3154.30, 1465.50, 4932.71, 2.00)
  }
  nakeaxon[253] {pt3dclear()
        pt3dadd(3154.30, 1465.50, 4932.71, 2.00)
        pt3dadd(3149.89, 1455.50, 4924.96, 2.00)
        pt3dadd(3148.03, 1455.90, 4926.06, 2.00)
  }
  nakeaxon[254] {pt3dclear()
        pt3dadd(3148.03, 1455.90, 4926.06, 2.00)
        pt3dadd(3136.40, 1453.04, 4918.19, 2.00)
        pt3dadd(3125.47, 1453.07, 4914.22, 2.00)
        pt3dadd(3121.05, 1453.11, 4912.96, 2.00)
        pt3dadd(3113.84, 1453.63, 4910.30, 2.00)
        pt3dadd(3103.14, 1453.71, 4905.08, 2.00)
        pt3dadd(3087.56, 1454.64, 4901.52, 2.00)
        pt3dadd(3076.63, 1454.90, 4900.19, 2.00)
        pt3dadd(3067.79, 1451.84, 4901.30, 2.00)
        pt3dadd(3052.44, 1451.30, 4897.78, 2.00)
        pt3dadd(3038.26, 1449.15, 4894.61, 2.00)
        pt3dadd(3021.98, 1447.05, 4892.90, 2.00)
        pt3dadd(3019.42, 1447.05, 4892.90, 2.00)
        pt3dadd(3006.86, 1445.12, 4892.36, 2.00)
        pt3dadd(3004.07, 1444.21, 4891.21, 2.00)
        pt3dadd(2997.79, 1436.32, 4887.90, 2.00)
        pt3dadd(2998.26, 1433.46, 4888.19, 2.00)
        pt3dadd(2997.33, 1430.80, 4890.40, 2.00)
  }
  nakeaxon[255] {pt3dclear()
        pt3dadd(2997.33, 1430.80, 4890.40, 2.00)
        pt3dadd(2990.12, 1430.51, 4882.83, 2.00)
        pt3dadd(2985.70, 1431.90, 4879.85, 2.00)
        pt3dadd(2982.91, 1433.87, 4876.41, 2.00)
        pt3dadd(2976.63, 1435.04, 4873.51, 2.00)
        pt3dadd(2957.79, 1440.76, 4867.47, 2.00)
        pt3dadd(2930.82, 1447.73, 4856.02, 2.00)
        pt3dadd(2928.26, 1448.43, 4854.53, 2.00)
        pt3dadd(2905.00, 1454.27, 4844.73, 2.00)
        pt3dadd(2895.00, 1456.09, 4838.87, 2.00)
        pt3dadd(2882.44, 1459.19, 4833.78, 2.00)
        pt3dadd(2883.37, 1454.16, 4835.61, 2.00)
  }
  nakeaxon[256] {pt3dclear()
        pt3dadd(2997.33, 1430.80, 4890.40, 2.00)
        pt3dadd(2993.61, 1426.17, 4893.32, 2.00)
  }
}
proc geometry32() {
  nakeaxon[256] {
        pt3dadd(2992.68, 1425.51, 4893.56, 2.00)
        pt3dadd(2993.61, 1422.85, 4893.04, 2.00)
        pt3dadd(2988.26, 1417.62, 4901.13, 2.00)
        pt3dadd(2981.05, 1415.74, 4912.95, 2.00)
        pt3dadd(2977.33, 1416.76, 4923.23, 2.00)
        pt3dadd(2970.82, 1414.14, 4932.35, 2.00)
        pt3dadd(2966.63, 1413.19, 4946.06, 2.00)
        pt3dadd(2963.84, 1413.91, 4958.91, 2.00)
        pt3dadd(2964.07, 1414.48, 4961.18, 2.00)
        pt3dadd(2959.65, 1410.95, 4974.59, 2.00)
        pt3dadd(2953.84, 1409.20, 4980.67, 2.00)
        pt3dadd(2947.56, 1409.54, 4987.72, 2.00)
        pt3dadd(2937.09, 1405.63, 4995.33, 2.00)
        pt3dadd(2932.91, 1406.77, 4999.13, 2.00)
        pt3dadd(2930.35, 1403.27, 5003.12, 2.00)
        pt3dadd(2931.05, 1396.61, 5004.56, 2.00)
        pt3dadd(2926.40, 1396.34, 5010.60, 2.00)
        pt3dadd(2925.47, 1390.40, 5019.44, 2.00)
        pt3dadd(2922.44, 1384.80, 5029.89, 2.00)
        pt3dadd(2919.89, 1381.78, 5032.48, 2.00)
        pt3dadd(2919.89, 1381.34, 5032.64, 2.00)
  }
  nakeaxon[257] {pt3dclear()
        pt3dadd(2919.89, 1381.34, 5032.64, 2.00)
        pt3dadd(2915.47, 1383.57, 5036.03, 2.00)
        pt3dadd(2912.91, 1384.27, 5042.71, 2.00)
        pt3dadd(2905.23, 1384.03, 5058.38, 2.00)
        pt3dadd(2905.23, 1385.13, 5057.99, 2.00)
  }
  nakeaxon[258] {pt3dclear()
        pt3dadd(2919.89, 1381.34, 5032.64, 2.00)
        pt3dadd(2905.00, 1389.97, 5038.65, 2.00)
        pt3dadd(2886.40, 1398.06, 5052.04, 2.00)
        pt3dadd(2871.05, 1400.71, 5062.71, 2.00)
        pt3dadd(2851.51, 1404.24, 5076.52, 2.00)
        pt3dadd(2839.89, 1407.17, 5083.87, 2.00)
        pt3dadd(2828.02, 1409.00, 5094.34, 2.00)
        pt3dadd(2825.00, 1409.82, 5097.26, 2.00)
        pt3dadd(2816.86, 1410.53, 5104.67, 2.00)
        pt3dadd(2805.47, 1411.23, 5119.51, 2.00)
        pt3dadd(2802.91, 1411.31, 5125.17, 2.00)
        pt3dadd(2795.93, 1413.12, 5132.19, 2.00)
        pt3dadd(2787.56, 1413.27, 5142.78, 2.00)
        pt3dadd(2786.16, 1413.05, 5145.58, 2.00)
        pt3dadd(2774.07, 1411.38, 5157.32, 2.00)
        pt3dadd(2757.10, 1411.94, 5172.46, 2.00)
        pt3dadd(2753.14, 1413.02, 5176.77, 2.00)
        pt3dadd(2744.54, 1414.57, 5190.56, 2.00)
        pt3dadd(2744.54, 1414.35, 5190.64, 2.00)
  }
  nakeaxon[259] {pt3dclear()
        pt3dadd(3148.03, 1455.90, 4926.06, 2.00)
        pt3dadd(3140.82, 1445.43, 4917.00, 2.00)
        pt3dadd(3131.05, 1434.95, 4907.94, 2.00)
        pt3dadd(3127.33, 1429.65, 4904.92, 2.00)
        pt3dadd(3127.79, 1427.52, 4894.31, 2.00)
        pt3dadd(3127.79, 1427.74, 4894.23, 2.00)
  }
  nakeaxon[260] {pt3dclear()
        pt3dadd(3127.79, 1427.74, 4894.23, 2.00)
        pt3dadd(3126.86, 1424.97, 4892.77, 2.00)
        pt3dadd(3124.77, 1411.56, 4883.79, 2.00)
        pt3dadd(3120.12, 1404.01, 4873.92, 2.00)
        pt3dadd(3117.79, 1400.53, 4867.76, 2.00)
        pt3dadd(3114.77, 1389.78, 4856.58, 2.00)
        pt3dadd(3114.54, 1388.90, 4854.17, 2.00)
        pt3dadd(3113.14, 1378.59, 4840.11, 2.00)
        pt3dadd(3111.28, 1374.17, 4837.51, 2.00)
        pt3dadd(3107.79, 1370.73, 4830.10, 2.00)
        pt3dadd(3106.86, 1369.22, 4828.67, 2.00)
  }
  nakeaxon[261] {pt3dclear()
        pt3dadd(3106.86, 1369.22, 4828.67, 2.00)
        pt3dadd(3108.72, 1364.26, 4824.53, 2.00)
        pt3dadd(3108.26, 1362.45, 4822.97, 2.00)
        pt3dadd(3097.33, 1351.95, 4810.45, 2.00)
        pt3dadd(3090.12, 1342.57, 4798.27, 2.00)
        pt3dadd(3083.37, 1333.98, 4788.28, 2.00)
        pt3dadd(3078.96, 1329.75, 4784.13, 2.00)
        pt3dadd(3075.93, 1326.09, 4779.52, 2.00)
        pt3dadd(3076.86, 1324.78, 4780.00, 2.00)
  }
  nakeaxon[262] {pt3dclear()
        pt3dadd(3076.86, 1324.78, 4780.00, 2.00)
        pt3dadd(3069.19, 1316.75, 4763.37, 2.00)
        pt3dadd(3070.58, 1315.66, 4763.77, 2.00)
        pt3dadd(3066.63, 1305.12, 4755.23, 2.00)
        pt3dadd(3062.91, 1297.43, 4742.93, 2.00)
        pt3dadd(3061.75, 1296.89, 4742.14, 2.00)
        pt3dadd(3055.70, 1287.47, 4731.21, 2.00)
        pt3dadd(3053.37, 1283.30, 4723.82, 2.00)
        pt3dadd(3044.77, 1276.36, 4714.96, 2.00)
        pt3dadd(3042.21, 1275.03, 4711.98, 2.00)
        pt3dadd(3041.75, 1273.32, 4708.65, 2.00)
  }
  nakeaxon[263] {pt3dclear()
        pt3dadd(3076.86, 1324.78, 4780.00, 2.00)
        pt3dadd(3079.89, 1321.78, 4777.88, 2.00)
        pt3dadd(3085.00, 1320.97, 4777.68, 2.00)
        pt3dadd(3090.35, 1311.77, 4774.84, 2.00)
        pt3dadd(3096.40, 1301.33, 4769.97, 2.00)
        pt3dadd(3105.93, 1291.93, 4765.23, 2.00)
        pt3dadd(3108.03, 1287.23, 4762.49, 2.00)
        pt3dadd(3115.93, 1274.63, 4759.15, 2.00)
        pt3dadd(3121.05, 1260.88, 4756.73, 2.00)
        pt3dadd(3125.93, 1255.47, 4755.48, 2.00)
        pt3dadd(3125.93, 1252.19, 4756.68, 2.00)
        pt3dadd(3136.63, 1249.61, 4750.93, 2.00)
        pt3dadd(3141.51, 1239.56, 4749.15, 2.00)
        pt3dadd(3145.70, 1228.41, 4747.76, 2.00)
        pt3dadd(3149.89, 1222.03, 4745.88, 2.00)
        pt3dadd(3152.44, 1219.81, 4745.20, 2.00)
        pt3dadd(3161.98, 1210.80, 4741.55, 2.00)
        pt3dadd(3164.07, 1199.78, 4736.41, 2.00)
        pt3dadd(3157.56, 1191.93, 4734.56, 2.00)
        pt3dadd(3156.63, 1192.32, 4735.65, 2.00)
  }
  nakeaxon[264] {pt3dclear()
        pt3dadd(3106.86, 1369.22, 4828.67, 2.00)
        pt3dadd(3101.28, 1365.92, 4818.23, 2.00)
        pt3dadd(3093.84, 1362.10, 4805.02, 2.00)
        pt3dadd(3091.75, 1361.96, 4802.60, 2.00)
        pt3dadd(3087.33, 1357.07, 4793.24, 2.00)
        pt3dadd(3085.93, 1355.48, 4788.87, 2.00)
        pt3dadd(3083.14, 1348.94, 4778.38, 2.00)
        pt3dadd(3077.79, 1346.97, 4768.21, 2.00)
        pt3dadd(3072.68, 1344.59, 4761.65, 2.00)
        pt3dadd(3065.47, 1340.91, 4753.59, 2.00)
        pt3dadd(3058.26, 1343.21, 4746.32, 2.00)
        pt3dadd(3049.42, 1344.56, 4736.42, 2.00)
        pt3dadd(3048.96, 1341.44, 4732.61, 2.00)
  }
  nakeaxon[265] {pt3dclear()
        pt3dadd(3127.79, 1427.74, 4894.23, 2.00)
        pt3dadd(3132.21, 1429.01, 4889.57, 2.00)
        pt3dadd(3130.82, 1422.27, 4888.06, 2.00)
        pt3dadd(3130.12, 1420.76, 4878.46, 2.00)
        pt3dadd(3134.54, 1416.30, 4860.78, 2.00)
        pt3dadd(3135.47, 1416.56, 4859.45, 2.00)
        pt3dadd(3139.89, 1412.50, 4845.58, 2.00)
        pt3dadd(3142.68, 1410.59, 4832.17, 2.00)
        pt3dadd(3144.30, 1411.36, 4822.73, 2.00)
        pt3dadd(3148.03, 1411.42, 4811.33, 2.00)
        pt3dadd(3155.23, 1410.56, 4798.77, 2.00)
        pt3dadd(3163.14, 1410.32, 4787.23, 2.00)
        pt3dadd(3165.93, 1410.00, 4780.91, 2.00)
        pt3dadd(3166.86, 1409.20, 4778.72, 2.00)
        pt3dadd(3167.79, 1407.53, 4774.13, 2.00)
        pt3dadd(3167.79, 1407.83, 4771.55, 2.00)
  }
  nakeaxon[266] {pt3dclear()
        pt3dadd(3167.79, 1407.83, 4771.55, 2.00)
        pt3dadd(3162.21, 1407.85, 4758.68, 2.00)
        pt3dadd(3161.51, 1408.74, 4748.20, 2.00)
        pt3dadd(3163.14, 1407.44, 4735.81, 2.00)
        pt3dadd(3161.98, 1407.80, 4729.99, 2.00)
        pt3dadd(3161.05, 1405.27, 4715.56, 2.00)
        pt3dadd(3161.98, 1406.22, 4710.02, 2.00)
        pt3dadd(3161.98, 1406.90, 4699.63, 2.00)
        pt3dadd(3161.98, 1407.11, 4699.55, 2.00)
  }
  nakeaxon[267] {pt3dclear()
        pt3dadd(3167.79, 1407.83, 4771.55, 2.00)
        pt3dadd(3165.00, 1410.12, 4774.43, 2.00)
        pt3dadd(3165.00, 1409.90, 4774.51, 2.00)
  }
  nakeaxon[268] {pt3dclear()
        pt3dadd(3154.30, 1465.50, 4932.71, 2.00)
        pt3dadd(3157.79, 1469.73, 4928.70, 2.00)
        pt3dadd(3172.21, 1469.11, 4924.96, 2.00)
        pt3dadd(3189.19, 1473.15, 4929.93, 2.00)
        pt3dadd(3207.09, 1474.86, 4933.26, 2.00)
        pt3dadd(3219.65, 1473.76, 4933.66, 2.00)
  }
  nakeaxon[269] {pt3dclear()
        pt3dadd(3219.65, 1473.76, 4933.66, 2.00)
  }
}
proc geometry33() {
  nakeaxon[269] {
        pt3dadd(3221.98, 1474.18, 4935.49, 2.00)
        pt3dadd(3221.98, 1473.96, 4935.57, 2.00)
  }
  nakeaxon[270] {pt3dclear()
        pt3dadd(3221.98, 1473.96, 4935.57, 2.00)
        pt3dadd(3237.56, 1480.16, 4941.73, 2.00)
        pt3dadd(3249.19, 1483.22, 4943.33, 2.00)
        pt3dadd(3262.68, 1484.24, 4945.44, 2.00)
        pt3dadd(3275.23, 1487.08, 4944.41, 2.00)
        pt3dadd(3285.93, 1492.68, 4947.56, 2.00)
        pt3dadd(3290.35, 1493.52, 4948.50, 2.00)
        pt3dadd(3298.49, 1496.24, 4951.22, 2.00)
        pt3dadd(3313.84, 1500.57, 4953.60, 2.00)
        pt3dadd(3328.96, 1501.41, 4954.53, 2.00)
        pt3dadd(3340.58, 1503.16, 4956.62, 2.00)
        pt3dadd(3348.49, 1504.67, 4958.05, 2.00)
        pt3dadd(3363.61, 1508.40, 4962.88, 2.00)
        pt3dadd(3372.68, 1510.15, 4964.96, 2.00)
        pt3dadd(3372.44, 1512.90, 4968.42, 2.00)
        pt3dadd(3383.84, 1513.63, 4965.68, 2.00)
        pt3dadd(3394.07, 1518.16, 4967.25, 2.00)
        pt3dadd(3411.05, 1518.08, 4967.03, 2.00)
        pt3dadd(3423.61, 1519.69, 4966.69, 2.00)
        pt3dadd(3423.61, 1519.91, 4966.61, 2.00)
  }
  nakeaxon[271] {pt3dclear()
        pt3dadd(3423.61, 1519.91, 4966.61, 2.00)
        pt3dadd(3431.75, 1533.44, 4960.94, 2.00)
        pt3dadd(3433.61, 1532.48, 4961.04, 2.00)
        pt3dadd(3435.70, 1534.11, 4961.44, 2.00)
  }
  nakeaxon[272] {pt3dclear()
        pt3dadd(3435.70, 1534.11, 4961.44, 2.00)
        pt3dadd(3450.12, 1543.35, 4949.42, 2.00)
        pt3dadd(3458.72, 1543.45, 4942.20, 2.00)
        pt3dadd(3464.77, 1544.42, 4937.40, 2.00)
        pt3dadd(3472.44, 1545.57, 4933.76, 2.00)
        pt3dadd(3474.07, 1546.52, 4930.94, 2.00)
        pt3dadd(3488.03, 1548.82, 4923.66, 2.00)
        pt3dadd(3500.12, 1553.87, 4914.41, 2.00)
        pt3dadd(3500.12, 1553.65, 4914.48, 2.00)
  }
  nakeaxon[273] {pt3dclear()
        pt3dadd(3435.70, 1534.11, 4961.44, 2.00)
        pt3dadd(3441.05, 1536.00, 4960.51, 2.00)
        pt3dadd(3445.47, 1535.80, 4961.32, 2.00)
        pt3dadd(3452.68, 1538.27, 4959.93, 2.00)
        pt3dadd(3463.37, 1544.72, 4956.59, 2.00)
        pt3dadd(3470.35, 1548.32, 4953.55, 2.00)
        pt3dadd(3473.14, 1548.20, 4954.58, 2.00)
  }
  nakeaxon[274] {pt3dclear()
        pt3dadd(3423.61, 1519.91, 4966.61, 2.00)
        pt3dadd(3441.75, 1520.92, 4968.72, 2.00)
        pt3dadd(3460.82, 1525.17, 4968.16, 2.00)
        pt3dadd(3471.75, 1529.45, 4968.34, 2.00)
        pt3dadd(3485.23, 1531.27, 4967.92, 2.00)
        pt3dadd(3494.54, 1529.21, 4970.40, 2.00)
        pt3dadd(3498.72, 1533.40, 4970.36, 2.00)
        pt3dadd(3512.21, 1536.06, 4970.88, 2.00)
        pt3dadd(3527.10, 1539.05, 4977.71, 2.00)
        pt3dadd(3539.19, 1542.28, 4980.49, 2.00)
        pt3dadd(3543.14, 1545.27, 4981.88, 2.00)
        pt3dadd(3544.77, 1545.44, 4983.05, 2.00)
        pt3dadd(3555.00, 1548.55, 4986.13, 2.00)
        pt3dadd(3567.79, 1549.06, 4986.19, 2.00)
        pt3dadd(3573.14, 1546.50, 4986.63, 2.00)
        pt3dadd(3585.00, 1545.41, 4989.75, 2.00)
        pt3dadd(3595.00, 1547.02, 4994.86, 2.00)
        pt3dadd(3609.65, 1549.64, 4996.62, 2.00)
        pt3dadd(3627.79, 1552.21, 4998.91, 2.00)
        pt3dadd(3641.28, 1555.23, 5001.77, 2.00)
        pt3dadd(3654.30, 1558.90, 5007.11, 2.00)
        pt3dadd(3660.12, 1561.03, 5009.55, 2.00)
        pt3dadd(3664.07, 1563.32, 5012.43, 2.00)
        pt3dadd(3681.51, 1565.66, 5020.24, 2.00)
        pt3dadd(3697.56, 1567.51, 5026.00, 2.00)
        pt3dadd(3703.14, 1570.99, 5029.44, 2.00)
        pt3dadd(3719.42, 1575.42, 5038.22, 2.00)
        pt3dadd(3728.49, 1576.78, 5041.94, 2.00)
        pt3dadd(3741.98, 1580.12, 5045.67, 2.00)
        pt3dadd(3747.56, 1580.53, 5047.50, 2.00)
  }
  nakeaxon[275] {pt3dclear()
        pt3dadd(3747.56, 1580.53, 5047.50, 2.00)
        pt3dadd(3758.72, 1584.66, 5047.97, 2.00)
        pt3dadd(3774.54, 1588.01, 5054.43, 2.00)
        pt3dadd(3778.49, 1589.02, 5056.53, 2.00)
        pt3dadd(3790.35, 1591.86, 5060.95, 2.00)
        pt3dadd(3792.44, 1592.36, 5062.99, 2.00)
        pt3dadd(3797.10, 1595.48, 5064.08, 2.00)
        pt3dadd(3812.44, 1597.45, 5066.09, 2.00)
        pt3dadd(3825.47, 1598.32, 5071.22, 2.00)
        pt3dadd(3836.63, 1598.70, 5066.13, 2.00)
        pt3dadd(3838.49, 1600.15, 5065.35, 2.00)
  }
  nakeaxon[276] {pt3dclear()
        pt3dadd(3838.49, 1600.15, 5065.35, 2.00)
        pt3dadd(3850.58, 1600.92, 5069.53, 2.00)
        pt3dadd(3852.44, 1601.02, 5070.48, 2.00)
        pt3dadd(3860.58, 1599.43, 5071.55, 2.00)
        pt3dadd(3867.09, 1597.53, 5074.47, 2.00)
        pt3dadd(3876.16, 1592.80, 5079.16, 2.00)
        pt3dadd(3878.03, 1592.28, 5079.11, 2.00)
        pt3dadd(3879.19, 1591.81, 5080.52, 2.00)
        pt3dadd(3885.00, 1589.56, 5087.27, 2.00)
        pt3dadd(3891.05, 1585.07, 5087.17, 2.00)
        pt3dadd(3893.84, 1582.99, 5088.92, 2.00)
        pt3dadd(3905.23, 1580.11, 5096.65, 2.00)
        pt3dadd(3915.47, 1576.48, 5103.67, 2.00)
        pt3dadd(3928.03, 1574.67, 5110.27, 2.00)
        pt3dadd(3929.89, 1571.93, 5112.25, 2.00)
        pt3dadd(3933.61, 1572.03, 5115.93, 2.00)
        pt3dadd(3944.07, 1570.02, 5123.34, 2.00)
        pt3dadd(3949.65, 1564.50, 5125.85, 2.00)
        pt3dadd(3957.79, 1558.27, 5131.83, 2.00)
        pt3dadd(3966.63, 1554.87, 5139.50, 2.00)
        pt3dadd(3971.98, 1554.17, 5140.99, 2.00)
        pt3dadd(3981.05, 1549.29, 5150.69, 2.00)
        pt3dadd(3985.47, 1545.97, 5153.13, 2.00)
        pt3dadd(3990.82, 1542.87, 5155.50, 2.00)
        pt3dadd(4003.37, 1540.61, 5161.52, 2.00)
        pt3dadd(4011.51, 1534.99, 5168.51, 2.00)
        pt3dadd(4015.93, 1534.55, 5168.67, 2.00)
        pt3dadd(4020.58, 1537.33, 5170.88, 2.00)
  }
  nakeaxon[277] {pt3dclear()
        pt3dadd(4020.58, 1537.33, 5170.88, 2.00)
        pt3dadd(4029.42, 1529.51, 5183.38, 2.00)
        pt3dadd(4030.35, 1529.51, 5183.38, 2.00)
        pt3dadd(4038.03, 1524.53, 5194.84, 2.00)
        pt3dadd(4049.65, 1520.52, 5204.22, 2.00)
        pt3dadd(4053.14, 1520.36, 5203.78, 2.00)
        pt3dadd(4062.91, 1515.33, 5213.78, 2.00)
        pt3dadd(4069.42, 1514.94, 5226.30, 2.00)
        pt3dadd(4079.19, 1513.77, 5237.36, 2.00)
        pt3dadd(4089.19, 1507.54, 5251.51, 2.00)
        pt3dadd(4095.23, 1509.15, 5259.34, 2.00)
        pt3dadd(4101.75, 1506.90, 5263.37, 2.00)
        pt3dadd(4101.51, 1505.97, 5266.93, 2.00)
        pt3dadd(4106.63, 1508.06, 5273.35, 2.00)
        pt3dadd(4108.72, 1508.46, 5277.16, 2.00)
        pt3dadd(4121.05, 1509.59, 5294.57, 2.00)
        pt3dadd(4129.19, 1513.49, 5305.27, 2.00)
        pt3dadd(4138.96, 1517.03, 5313.64, 2.00)
        pt3dadd(4147.79, 1519.66, 5320.85, 2.00)
        pt3dadd(4148.96, 1520.15, 5322.90, 2.00)
        pt3dadd(4157.56, 1522.38, 5329.02, 2.00)
        pt3dadd(4161.51, 1523.49, 5334.80, 2.00)
        pt3dadd(4161.51, 1523.28, 5334.88, 2.00)
        pt3dadd(4161.51, 1523.06, 5334.96, 2.00)
  }
  nakeaxon[278] {pt3dclear()
        pt3dadd(4020.58, 1537.33, 5170.88, 2.00)
        pt3dadd(4019.65, 1538.19, 5172.54, 2.00)
        pt3dadd(4018.72, 1554.88, 5185.77, 2.00)
        pt3dadd(4018.72, 1558.98, 5195.67, 2.00)
        pt3dadd(4020.35, 1563.63, 5201.65, 2.00)
        pt3dadd(4018.72, 1571.05, 5214.54, 2.00)
        pt3dadd(4018.72, 1574.64, 5219.66, 2.00)
        pt3dadd(4019.65, 1576.89, 5223.79, 2.00)
        pt3dadd(4020.35, 1581.72, 5233.67, 2.00)
        pt3dadd(4021.28, 1584.05, 5238.02, 2.00)
        pt3dadd(4021.28, 1589.23, 5247.51, 2.00)
        pt3dadd(4023.14, 1592.61, 5252.72, 2.00)
        pt3dadd(4025.93, 1599.33, 5264.38, 2.00)
        pt3dadd(4025.93, 1607.98, 5276.58, 2.00)
        pt3dadd(4026.16, 1616.83, 5293.40, 2.00)
  }
}
proc geometry34() {
  nakeaxon[278] {
        pt3dadd(4028.96, 1619.51, 5300.10, 2.00)
        pt3dadd(4032.44, 1625.97, 5313.09, 2.00)
        pt3dadd(4034.30, 1630.90, 5326.64, 2.00)
        pt3dadd(4032.44, 1632.49, 5333.73, 2.00)
        pt3dadd(4038.03, 1637.37, 5342.35, 2.00)
        pt3dadd(4036.16, 1636.23, 5344.00, 2.00)
        pt3dadd(4036.16, 1641.98, 5352.31, 2.00)
        pt3dadd(4037.09, 1645.97, 5358.52, 2.00)
        pt3dadd(4036.16, 1643.97, 5357.77, 2.00)
  }
  nakeaxon[279] {pt3dclear()
        pt3dadd(3838.49, 1600.15, 5065.35, 2.00)
        pt3dadd(3843.14, 1602.43, 5065.51, 2.00)
        pt3dadd(3853.14, 1606.61, 5064.74, 2.00)
        pt3dadd(3863.14, 1608.73, 5067.18, 2.00)
        pt3dadd(3875.70, 1613.00, 5067.36, 2.00)
        pt3dadd(3884.77, 1614.83, 5064.22, 2.00)
        pt3dadd(3894.54, 1615.17, 5065.83, 2.00)
        pt3dadd(3904.54, 1616.96, 5063.94, 2.00)
        pt3dadd(3918.03, 1616.16, 5067.20, 2.00)
        pt3dadd(3922.44, 1617.22, 5068.05, 2.00)
        pt3dadd(3923.37, 1617.43, 5067.97, 2.00)
  }
  nakeaxon[280] {pt3dclear()
        pt3dadd(3923.37, 1617.43, 5067.97, 2.00)
        pt3dadd(3935.00, 1619.52, 5068.94, 2.00)
        pt3dadd(3949.19, 1620.22, 5070.18, 2.00)
        pt3dadd(3963.61, 1619.50, 5068.21, 2.00)
        pt3dadd(3975.00, 1621.33, 5070.51, 2.00)
        pt3dadd(3989.42, 1621.01, 5069.64, 2.00)
        pt3dadd(4000.82, 1622.82, 5071.21, 2.00)
        pt3dadd(4000.82, 1623.04, 5071.13, 2.00)
  }
  nakeaxon[281] {pt3dclear()
        pt3dadd(4000.82, 1623.04, 5071.13, 2.00)
        pt3dadd(4008.72, 1621.55, 5073.16, 2.00)
        pt3dadd(4014.07, 1622.42, 5072.84, 2.00)
        pt3dadd(4025.00, 1621.01, 5072.36, 2.00)
        pt3dadd(4028.49, 1620.83, 5071.19, 2.00)
        pt3dadd(4041.05, 1622.70, 5072.24, 2.00)
        pt3dadd(4052.68, 1622.74, 5070.99, 2.00)
        pt3dadd(4058.96, 1619.98, 5072.24, 2.00)
        pt3dadd(4072.44, 1620.10, 5073.93, 2.00)
        pt3dadd(4088.72, 1618.51, 5072.28, 2.00)
        pt3dadd(4099.42, 1620.34, 5074.59, 2.00)
        pt3dadd(4102.91, 1620.95, 5075.60, 2.00)
        pt3dadd(4109.19, 1619.94, 5076.22, 2.00)
        pt3dadd(4120.58, 1623.10, 5076.06, 2.00)
        pt3dadd(4130.58, 1620.89, 5070.67, 2.00)
        pt3dadd(4136.86, 1621.15, 5069.34, 2.00)
        pt3dadd(4153.84, 1624.55, 5069.84, 2.00)
        pt3dadd(4170.12, 1626.24, 5069.72, 2.00)
        pt3dadd(4173.37, 1626.24, 5069.72, 2.00)
        pt3dadd(4185.00, 1627.07, 5073.37, 2.00)
        pt3dadd(4186.86, 1627.29, 5073.29, 2.00)
        pt3dadd(4190.58, 1626.71, 5073.75, 2.00)
        pt3dadd(4196.86, 1627.33, 5074.76, 2.00)
        pt3dadd(4203.84, 1625.66, 5075.62, 2.00)
        pt3dadd(4212.91, 1626.00, 5077.23, 2.00)
        pt3dadd(4221.98, 1626.08, 5077.45, 2.00)
        pt3dadd(4232.68, 1625.50, 5077.90, 2.00)
        pt3dadd(4241.28, 1624.69, 5080.43, 2.00)
        pt3dadd(4246.63, 1624.03, 5080.67, 2.00)
        pt3dadd(4269.65, 1624.12, 5083.61, 2.00)
        pt3dadd(4286.63, 1623.76, 5086.71, 2.00)
        pt3dadd(4301.05, 1623.58, 5090.98, 2.00)
        pt3dadd(4316.16, 1629.88, 5098.09, 2.00)
        pt3dadd(4318.72, 1631.81, 5101.35, 2.00)
        pt3dadd(4318.49, 1636.02, 5107.48, 2.00)
        pt3dadd(4321.05, 1641.41, 5110.72, 2.00)
        pt3dadd(4327.33, 1645.96, 5113.03, 2.00)
        pt3dadd(4329.89, 1648.11, 5116.20, 2.00)
        pt3dadd(4338.72, 1653.49, 5119.44, 2.00)
        pt3dadd(4351.05, 1658.56, 5127.25, 2.00)
        pt3dadd(4357.56, 1665.52, 5136.84, 2.00)
        pt3dadd(4373.61, 1667.49, 5144.29, 2.00)
        pt3dadd(4386.63, 1673.71, 5153.91, 2.00)
        pt3dadd(4388.49, 1674.19, 5155.22, 2.00)
        pt3dadd(4390.12, 1676.21, 5162.15, 2.00)
        pt3dadd(4397.10, 1675.92, 5167.46, 2.00)
        pt3dadd(4397.10, 1665.75, 5177.59, 2.00)
        pt3dadd(4400.58, 1665.23, 5180.26, 2.00)
        pt3dadd(4399.42, 1658.48, 5194.35, 2.00)
        pt3dadd(4401.98, 1658.76, 5201.91, 2.00)
        pt3dadd(4397.79, 1654.61, 5214.31, 2.00)
        pt3dadd(4397.56, 1655.23, 5215.33, 2.00)
        pt3dadd(4397.56, 1655.45, 5215.25, 2.00)
  }
  nakeaxon[282] {pt3dclear()
        pt3dadd(4000.82, 1623.04, 5071.13, 2.00)
        pt3dadd(4001.51, 1626.42, 5073.61, 2.00)
        pt3dadd(4003.14, 1634.21, 5078.70, 2.00)
        pt3dadd(4005.93, 1636.79, 5078.99, 2.00)
        pt3dadd(4007.56, 1642.47, 5079.65, 2.00)
        pt3dadd(4009.19, 1645.59, 5083.46, 2.00)
        pt3dadd(4012.91, 1648.08, 5085.53, 2.00)
        pt3dadd(4025.47, 1656.13, 5089.28, 2.00)
        pt3dadd(4032.21, 1667.23, 5091.92, 2.00)
        pt3dadd(4035.24, 1676.97, 5084.66, 2.00)
        pt3dadd(4041.98, 1690.24, 5080.33, 2.00)
        pt3dadd(4045.93, 1690.32, 5080.55, 2.00)
        pt3dadd(4045.47, 1693.82, 5082.00, 2.00)
        pt3dadd(4047.79, 1698.25, 5082.61, 2.00)
        pt3dadd(4049.65, 1707.15, 5082.59, 2.00)
        pt3dadd(4051.51, 1709.17, 5081.36, 2.00)
        pt3dadd(4058.02, 1718.51, 5089.34, 2.00)
        pt3dadd(4067.33, 1727.18, 5096.83, 2.00)
        pt3dadd(4074.54, 1731.71, 5101.12, 2.00)
        pt3dadd(4093.14, 1733.84, 5098.12, 2.00)
        pt3dadd(4102.68, 1747.49, 5105.03, 2.00)
        pt3dadd(4107.56, 1761.95, 5112.14, 2.00)
        pt3dadd(4111.28, 1767.10, 5117.44, 2.00)
        pt3dadd(4118.96, 1773.74, 5120.72, 2.00)
        pt3dadd(4126.16, 1778.94, 5125.50, 2.00)
        pt3dadd(4128.96, 1785.48, 5130.55, 2.00)
        pt3dadd(4131.75, 1786.72, 5132.57, 2.00)
        pt3dadd(4133.61, 1789.22, 5132.65, 2.00)
        pt3dadd(4135.70, 1791.29, 5132.89, 2.00)
        pt3dadd(4140.58, 1797.39, 5135.37, 2.00)
        pt3dadd(4142.21, 1801.08, 5138.73, 2.00)
        pt3dadd(4141.51, 1800.03, 5140.60, 2.00)
  }
  nakeaxon[283] {pt3dclear()
        pt3dadd(3923.37, 1617.43, 5067.97, 2.00)
        pt3dadd(3918.26, 1631.15, 5077.09, 2.00)
        pt3dadd(3924.30, 1639.95, 5084.28, 2.00)
        pt3dadd(3925.23, 1642.14, 5086.20, 2.00)
        pt3dadd(3927.79, 1654.66, 5094.76, 2.00)
        pt3dadd(3929.65, 1655.85, 5098.04, 2.00)
        pt3dadd(3930.12, 1658.17, 5099.67, 2.00)
        pt3dadd(3931.05, 1661.63, 5102.37, 2.00)
        pt3dadd(3933.61, 1668.83, 5112.62, 2.00)
        pt3dadd(3934.30, 1671.59, 5116.81, 2.00)
        pt3dadd(3935.24, 1674.00, 5118.66, 2.00)
        pt3dadd(3935.24, 1677.63, 5119.81, 2.00)
        pt3dadd(3940.35, 1685.56, 5127.32, 2.00)
        pt3dadd(3946.16, 1689.16, 5124.28, 2.00)
        pt3dadd(3949.19, 1693.39, 5128.43, 2.00)
        pt3dadd(3951.05, 1695.96, 5130.71, 2.00)
        pt3dadd(3955.47, 1704.84, 5140.84, 2.00)
        pt3dadd(3963.61, 1709.25, 5148.89, 2.00)
        pt3dadd(3964.77, 1709.79, 5149.68, 2.00)
        pt3dadd(3967.56, 1723.68, 5162.69, 2.00)
        pt3dadd(3969.65, 1727.52, 5165.75, 2.00)
        pt3dadd(3967.79, 1741.03, 5172.96, 2.00)
        pt3dadd(3974.54, 1748.40, 5178.94, 2.00)
        pt3dadd(3980.58, 1758.66, 5190.80, 2.00)
        pt3dadd(3982.21, 1765.45, 5194.51, 2.00)
        pt3dadd(3983.84, 1769.33, 5199.04, 2.00)
        pt3dadd(3983.84, 1769.11, 5199.12, 2.00)
  }
  nakeaxon[284] {pt3dclear()
        pt3dadd(3747.56, 1580.53, 5047.50, 2.00)
        pt3dadd(3762.44, 1578.72, 5043.21, 2.00)
        pt3dadd(3776.63, 1575.31, 5039.25, 2.00)
        pt3dadd(3785.47, 1573.50, 5040.41, 2.00)
        pt3dadd(3808.03, 1574.25, 5038.40, 2.00)
        pt3dadd(3827.79, 1569.80, 5039.77, 2.00)
        pt3dadd(3840.82, 1565.07, 5039.02, 2.00)
        pt3dadd(3858.96, 1562.01, 5040.13, 2.00)
        pt3dadd(3867.79, 1561.02, 5041.48, 2.00)
        pt3dadd(3881.98, 1557.34, 5041.58, 2.00)
  }
}
proc geometry35() {
  nakeaxon[284] {
        pt3dadd(3900.58, 1556.65, 5040.35, 2.00)
        pt3dadd(3910.82, 1553.67, 5041.68, 2.00)
        pt3dadd(3929.42, 1551.22, 5041.09, 2.00)
        pt3dadd(3948.96, 1547.73, 5039.64, 2.00)
        pt3dadd(3953.61, 1546.87, 5040.69, 2.00)
        pt3dadd(3972.44, 1542.90, 5040.65, 2.00)
        pt3dadd(3990.82, 1540.95, 5039.38, 2.00)
        pt3dadd(4010.12, 1538.43, 5035.85, 2.00)
        pt3dadd(4024.54, 1535.92, 5033.05, 2.00)
        pt3dadd(4033.37, 1536.08, 5033.48, 2.00)
  }
  nakeaxon[285] {pt3dclear()
        pt3dadd(4033.37, 1536.08, 5033.48, 2.00)
  }
  nakeaxon[286] {pt3dclear()
        pt3dadd(4033.37, 1536.08, 5033.48, 2.00)
        pt3dadd(4034.30, 1537.20, 5036.54, 2.00)
        pt3dadd(4031.51, 1533.18, 5040.48, 2.00)
        pt3dadd(4032.44, 1532.96, 5040.56, 2.00)
        pt3dadd(4033.37, 1523.79, 5046.62, 2.00)
        pt3dadd(4035.24, 1520.69, 5046.26, 2.00)
        pt3dadd(4037.79, 1517.59, 5051.35, 2.00)
        pt3dadd(4040.58, 1516.86, 5054.09, 2.00)
        pt3dadd(4043.37, 1515.68, 5059.72, 2.00)
        pt3dadd(4045.00, 1511.49, 5065.20, 2.00)
        pt3dadd(4048.72, 1509.15, 5073.73, 2.00)
        pt3dadd(4049.65, 1507.25, 5082.09, 2.00)
        pt3dadd(4050.35, 1499.70, 5091.27, 2.00)
        pt3dadd(4053.14, 1499.54, 5099.00, 2.00)
        pt3dadd(4055.23, 1498.63, 5106.02, 2.00)
        pt3dadd(4056.63, 1497.46, 5111.64, 2.00)
        pt3dadd(4057.10, 1495.51, 5118.53, 2.00)
        pt3dadd(4056.63, 1496.13, 5124.99, 2.00)
        pt3dadd(4055.47, 1491.78, 5135.48, 2.00)
        pt3dadd(4058.02, 1490.46, 5143.39, 2.00)
        pt3dadd(4058.96, 1487.90, 5154.72, 2.00)
        pt3dadd(4062.68, 1485.79, 5169.34, 2.00)
        pt3dadd(4061.98, 1483.75, 5172.56, 2.00)
        pt3dadd(4066.16, 1473.46, 5183.73, 2.00)
        pt3dadd(4067.56, 1474.08, 5187.47, 2.00)
        pt3dadd(4067.56, 1473.86, 5187.54, 2.00)
  }
  nakeaxon[287] {pt3dclear()
        pt3dadd(4033.37, 1536.08, 5033.48, 2.00)
        pt3dadd(4036.86, 1535.86, 5030.84, 2.00)
        pt3dadd(4043.84, 1536.16, 5017.37, 2.00)
        pt3dadd(4048.96, 1536.30, 5014.35, 2.00)
        pt3dadd(4048.49, 1535.32, 5008.27, 2.00)
        pt3dadd(4046.63, 1534.78, 5004.75, 2.00)
        pt3dadd(4053.14, 1534.34, 4996.75, 2.00)
        pt3dadd(4058.26, 1535.61, 4992.08, 2.00)
        pt3dadd(4058.49, 1536.75, 4993.15, 2.00)
        pt3dadd(4059.19, 1535.43, 4990.90, 2.00)
  }
  nakeaxon[288] {pt3dclear()
        pt3dadd(4059.19, 1535.43, 4990.90, 2.00)
        pt3dadd(4070.58, 1544.77, 4985.28, 2.00)
        pt3dadd(4083.84, 1550.61, 4978.20, 2.00)
        pt3dadd(4091.51, 1554.12, 4974.94, 2.00)
        pt3dadd(4106.86, 1563.64, 4970.49, 2.00)
        pt3dadd(4111.28, 1565.63, 4970.51, 2.00)
        pt3dadd(4116.63, 1570.36, 4968.54, 2.00)
  }
  nakeaxon[289] {pt3dclear()
        pt3dadd(4059.19, 1535.43, 4990.90, 2.00)
        pt3dadd(4065.00, 1534.30, 4984.39, 2.00)
        pt3dadd(4068.02, 1532.59, 4978.33, 2.00)
        pt3dadd(4075.93, 1532.96, 4967.80, 2.00)
        pt3dadd(4082.44, 1530.95, 4961.60, 2.00)
        pt3dadd(4086.86, 1531.53, 4958.42, 2.00)
        pt3dadd(4095.47, 1529.62, 4953.18, 2.00)
        pt3dadd(4098.72, 1528.75, 4950.77, 2.00)
        pt3dadd(4106.40, 1529.58, 4943.54, 2.00)
        pt3dadd(4118.26, 1527.93, 4934.24, 2.00)
        pt3dadd(4131.05, 1525.38, 4921.80, 2.00)
        pt3dadd(4143.84, 1522.81, 4911.35, 2.00)
        pt3dadd(4151.51, 1523.47, 4905.67, 2.00)
        pt3dadd(4162.44, 1523.70, 4895.44, 2.00)
        pt3dadd(4162.21, 1523.13, 4893.17, 2.00)
        pt3dadd(4175.00, 1520.16, 4884.35, 2.00)
        pt3dadd(4176.86, 1519.69, 4883.04, 2.00)
        pt3dadd(4191.28, 1518.75, 4872.99, 2.00)
        pt3dadd(4199.42, 1515.07, 4862.20, 2.00)
        pt3dadd(4207.10, 1513.06, 4856.00, 2.00)
        pt3dadd(4207.10, 1512.62, 4856.16, 2.00)
  }
  nakeaxon[290] {pt3dclear()
        pt3dadd(4033.37, 1536.08, 5033.48, 2.00)
        pt3dadd(4056.16, 1534.99, 5028.44, 2.00)
        pt3dadd(4060.82, 1535.05, 5027.92, 2.00)
  }
  nakeaxon[291] {pt3dclear()
        pt3dadd(4060.82, 1535.05, 5027.92, 2.00)
        pt3dadd(4060.35, 1541.64, 5029.73, 2.00)
        pt3dadd(4065.93, 1544.65, 5034.57, 2.00)
        pt3dadd(4068.96, 1542.30, 5037.65, 2.00)
        pt3dadd(4075.93, 1543.04, 5045.80, 2.00)
        pt3dadd(4076.86, 1543.84, 5047.98, 2.00)
        pt3dadd(4076.86, 1544.71, 5047.67, 2.00)
  }
  nakeaxon[292] {pt3dclear()
        pt3dadd(4060.82, 1535.05, 5027.92, 2.00)
        pt3dadd(4072.91, 1530.87, 5020.53, 2.00)
        pt3dadd(4081.75, 1527.45, 5008.41, 2.00)
        pt3dadd(4091.28, 1520.93, 4995.94, 2.00)
        pt3dadd(4104.30, 1516.46, 4982.96, 2.00)
        pt3dadd(4114.07, 1511.61, 4972.35, 2.00)
        pt3dadd(4118.26, 1510.33, 4968.86, 2.00)
        pt3dadd(4122.91, 1516.89, 4955.58, 2.00)
        pt3dadd(4125.47, 1516.01, 4953.18, 2.00)
        pt3dadd(4133.14, 1515.03, 4938.93, 2.00)
        pt3dadd(4140.58, 1515.82, 4927.51, 2.00)
        pt3dadd(4145.00, 1515.78, 4926.04, 2.00)
        pt3dadd(4159.65, 1513.97, 4919.03, 2.00)
        pt3dadd(4169.42, 1510.22, 4905.30, 2.00)
        pt3dadd(4186.86, 1505.05, 4899.26, 2.00)
        pt3dadd(4204.77, 1503.75, 4886.86, 2.00)
        pt3dadd(4211.05, 1502.30, 4882.19, 2.00)
        pt3dadd(4214.54, 1501.17, 4881.12, 2.00)
        pt3dadd(4219.65, 1501.52, 4875.30, 2.00)
        pt3dadd(4236.86, 1499.79, 4865.78, 2.00)
        pt3dadd(4244.54, 1498.58, 4861.77, 2.00)
        pt3dadd(4256.40, 1499.87, 4852.39, 2.00)
        pt3dadd(4268.49, 1500.62, 4844.94, 2.00)
        pt3dadd(4274.54, 1500.50, 4840.53, 2.00)
        pt3dadd(4283.14, 1500.32, 4839.36, 2.00)
        pt3dadd(4298.72, 1501.75, 4832.40, 2.00)
        pt3dadd(4311.98, 1501.47, 4830.28, 2.00)
        pt3dadd(4315.70, 1501.87, 4828.65, 2.00)
        pt3dadd(4321.98, 1502.80, 4827.81, 2.00)
        pt3dadd(4331.28, 1500.59, 4822.43, 2.00)
        pt3dadd(4344.54, 1501.45, 4818.65, 2.00)
        pt3dadd(4354.30, 1501.92, 4811.80, 2.00)
        pt3dadd(4365.93, 1502.49, 4797.73, 2.00)
        pt3dadd(4386.63, 1497.98, 4788.73, 2.00)
        pt3dadd(4396.40, 1501.10, 4784.38, 2.00)
        pt3dadd(4397.33, 1501.24, 4784.08, 2.00)
  }
  nakeaxon[293] {pt3dclear()
        pt3dadd(3221.98, 1473.96, 4935.57, 2.00)
        pt3dadd(3224.77, 1469.65, 4944.81, 2.00)
        pt3dadd(3226.63, 1461.09, 4949.16, 2.00)
        pt3dadd(3227.56, 1461.09, 4949.16, 2.00)
  }
  nakeaxon[294] {pt3dclear()
        pt3dadd(3227.56, 1461.09, 4949.16, 2.00)
        pt3dadd(3229.42, 1458.49, 4953.57, 2.00)
        pt3dadd(3231.28, 1452.83, 4964.54, 2.00)
        pt3dadd(3236.63, 1448.54, 4960.91, 2.00)
        pt3dadd(3238.03, 1447.37, 4966.53, 2.00)
        pt3dadd(3240.35, 1437.34, 4976.37, 2.00)
        pt3dadd(3246.16, 1431.20, 4983.31, 2.00)
        pt3dadd(3246.40, 1427.80, 4988.25, 2.00)
        pt3dadd(3250.58, 1423.85, 4994.39, 2.00)
        pt3dadd(3249.65, 1421.49, 4996.74, 2.00)
        pt3dadd(3251.75, 1411.28, 5005.41, 2.00)
        pt3dadd(3251.75, 1409.31, 5006.12, 2.00)
        pt3dadd(3251.51, 1400.61, 5013.50, 2.00)
        pt3dadd(3253.37, 1398.70, 5013.70, 2.00)
        pt3dadd(3256.86, 1390.34, 5022.68, 2.00)
        pt3dadd(3259.89, 1381.36, 5033.37, 2.00)
        pt3dadd(3260.12, 1381.11, 5034.70, 2.00)
        pt3dadd(3262.44, 1372.96, 5040.88, 2.00)
        pt3dadd(3265.00, 1368.00, 5047.64, 2.00)
        pt3dadd(3264.77, 1366.65, 5052.09, 2.00)
        pt3dadd(3263.14, 1358.21, 5063.58, 2.00)
        pt3dadd(3261.51, 1358.13, 5066.08, 2.00)
        pt3dadd(3261.05, 1355.33, 5068.59, 2.00)
        pt3dadd(3259.65, 1348.47, 5079.00, 2.00)
        pt3dadd(3258.72, 1346.03, 5081.12, 2.00)
  }
}
proc geometry36() {
  nakeaxon[294] {
        pt3dadd(3260.82, 1334.99, 5088.86, 2.00)
        pt3dadd(3263.61, 1331.15, 5093.97, 2.00)
        pt3dadd(3262.68, 1332.28, 5092.32, 2.00)
  }
  nakeaxon[295] {pt3dclear()
        pt3dadd(3262.68, 1332.28, 5092.32, 2.00)
        pt3dadd(3256.40, 1332.82, 5104.00, 2.00)
        pt3dadd(3251.28, 1332.35, 5113.57, 2.00)
        pt3dadd(3249.65, 1330.94, 5113.10, 2.00)
        pt3dadd(3248.49, 1328.93, 5112.34, 2.00)
        pt3dadd(3248.49, 1328.28, 5112.58, 2.00)
        pt3dadd(3250.12, 1326.53, 5107.78, 2.00)
        pt3dadd(3242.44, 1317.23, 5106.70, 2.00)
        pt3dadd(3230.58, 1310.06, 5110.80, 2.00)
        pt3dadd(3222.68, 1301.81, 5110.58, 2.00)
        pt3dadd(3216.40, 1295.53, 5112.37, 2.00)
        pt3dadd(3213.37, 1290.49, 5118.91, 2.00)
        pt3dadd(3211.51, 1287.39, 5121.28, 2.00)
        pt3dadd(3208.96, 1284.29, 5123.64, 2.00)
        pt3dadd(3202.44, 1281.61, 5125.11, 2.00)
        pt3dadd(3199.19, 1277.96, 5131.39, 2.00)
        pt3dadd(3188.96, 1270.43, 5133.14, 2.00)
        pt3dadd(3187.56, 1269.57, 5134.20, 2.00)
        pt3dadd(3171.51, 1257.81, 5142.69, 2.00)
        pt3dadd(3159.19, 1248.18, 5148.17, 2.00)
        pt3dadd(3157.09, 1248.04, 5148.47, 2.00)
        pt3dadd(3140.12, 1240.27, 5155.01, 2.00)
        pt3dadd(3138.96, 1240.07, 5155.82, 2.00)
        pt3dadd(3129.19, 1230.54, 5159.54, 2.00)
        pt3dadd(3125.00, 1228.59, 5160.99, 2.00)
        pt3dadd(3125.00, 1228.37, 5161.07, 2.00)
        pt3dadd(3125.24, 1230.95, 5158.65, 2.00)
        pt3dadd(3121.75, 1231.49, 5159.44, 2.00)
        pt3dadd(3118.96, 1228.79, 5160.18, 2.00)
        pt3dadd(3115.47, 1227.58, 5161.61, 2.00)
        pt3dadd(3111.75, 1224.22, 5162.58, 2.00)
        pt3dadd(3109.19, 1224.14, 5162.37, 2.00)
        pt3dadd(3105.47, 1219.91, 5163.66, 2.00)
        pt3dadd(3101.98, 1218.78, 5165.31, 2.00)
        pt3dadd(3099.89, 1219.02, 5168.69, 2.00)
        pt3dadd(3095.24, 1219.99, 5172.04, 2.00)
        pt3dadd(3092.21, 1217.47, 5173.95, 2.00)
        pt3dadd(3088.03, 1216.99, 5172.64, 2.00)
        pt3dadd(3084.54, 1216.69, 5172.50, 2.00)
        pt3dadd(3081.75, 1215.08, 5172.84, 2.00)
        pt3dadd(3078.02, 1214.31, 5174.11, 2.00)
        pt3dadd(3075.24, 1214.41, 5175.06, 2.00)
        pt3dadd(3074.07, 1214.98, 5177.33, 2.00)
        pt3dadd(3074.07, 1213.67, 5177.81, 2.00)
        pt3dadd(3074.07, 1213.89, 5177.73, 2.00)
  }
  nakeaxon[296] {pt3dclear()
        pt3dadd(3262.68, 1332.28, 5092.32, 2.00)
        pt3dadd(3263.61, 1321.97, 5097.31, 2.00)
        pt3dadd(3261.98, 1321.76, 5097.39, 2.00)
        pt3dadd(3261.98, 1321.54, 5097.47, 2.00)
        pt3dadd(3267.56, 1313.37, 5097.47, 2.00)
        pt3dadd(3271.98, 1302.57, 5103.13, 2.00)
        pt3dadd(3272.68, 1302.70, 5105.56, 2.00)
        pt3dadd(3271.98, 1294.88, 5107.17, 2.00)
        pt3dadd(3268.96, 1282.52, 5112.66, 2.00)
        pt3dadd(3271.05, 1274.34, 5114.65, 2.00)
        pt3dadd(3273.14, 1271.79, 5113.10, 2.00)
        pt3dadd(3273.14, 1270.92, 5113.41, 2.00)
        pt3dadd(3273.14, 1270.70, 5113.49, 2.00)
        pt3dadd(3276.63, 1266.03, 5117.67, 2.00)
        pt3dadd(3276.40, 1252.96, 5121.19, 2.00)
        pt3dadd(3275.70, 1248.86, 5122.18, 2.00)
  }
  nakeaxon[297] {pt3dclear()
        pt3dadd(3275.70, 1248.86, 5122.18, 2.00)
        pt3dadd(3273.14, 1245.71, 5122.34, 2.00)
        pt3dadd(3265.93, 1234.88, 5124.55, 2.00)
        pt3dadd(3265.00, 1232.83, 5125.05, 2.00)
        pt3dadd(3260.12, 1230.59, 5126.36, 2.00)
        pt3dadd(3253.37, 1225.34, 5128.27, 2.00)
        pt3dadd(3252.91, 1221.51, 5127.93, 2.00)
  }
  nakeaxon[298] {pt3dclear()
        pt3dadd(3275.70, 1248.86, 5122.18, 2.00)
        pt3dadd(3280.58, 1246.00, 5122.48, 2.00)
        pt3dadd(3281.51, 1243.62, 5126.81, 2.00)
        pt3dadd(3285.70, 1237.84, 5127.93, 2.00)
        pt3dadd(3290.58, 1227.85, 5133.79, 2.00)
        pt3dadd(3292.21, 1220.95, 5140.01, 2.00)
        pt3dadd(3292.21, 1221.39, 5139.85, 2.00)
        pt3dadd(3292.68, 1225.31, 5137.69, 2.00)
        pt3dadd(3295.24, 1223.42, 5138.62, 2.00)
        pt3dadd(3295.24, 1222.94, 5140.03, 2.00)
        pt3dadd(3295.00, 1222.94, 5142.76, 2.00)
        pt3dadd(3295.00, 1220.10, 5143.79, 2.00)
        pt3dadd(3295.93, 1217.00, 5146.15, 2.00)
        pt3dadd(3296.86, 1216.13, 5146.47, 2.00)
        pt3dadd(3298.72, 1215.51, 5148.18, 2.00)
        pt3dadd(3299.42, 1215.25, 5149.51, 2.00)
        pt3dadd(3300.12, 1214.42, 5151.30, 2.00)
        pt3dadd(3301.98, 1211.66, 5152.55, 2.00)
        pt3dadd(3301.05, 1209.83, 5152.97, 2.00)
        pt3dadd(3301.05, 1207.87, 5153.69, 2.00)
        pt3dadd(3300.82, 1208.01, 5156.11, 2.00)
        pt3dadd(3301.75, 1206.34, 5156.97, 2.00)
        pt3dadd(3301.75, 1206.30, 5158.22, 2.00)
        pt3dadd(3302.68, 1205.60, 5159.71, 2.00)
        pt3dadd(3303.37, 1204.03, 5161.52, 2.00)
        pt3dadd(3304.30, 1201.19, 5162.55, 2.00)
        pt3dadd(3304.30, 1200.14, 5164.42, 2.00)
        pt3dadd(3305.00, 1199.92, 5167.22, 2.00)
        pt3dadd(3306.63, 1197.96, 5167.94, 2.00)
        pt3dadd(3305.70, 1194.86, 5170.30, 2.00)
        pt3dadd(3305.70, 1194.38, 5171.71, 2.00)
        pt3dadd(3307.33, 1193.33, 5173.58, 2.00)
        pt3dadd(3307.33, 1189.18, 5175.09, 2.00)
        pt3dadd(3306.40, 1188.04, 5176.74, 2.00)
        pt3dadd(3306.40, 1187.13, 5178.31, 2.00)
        pt3dadd(3308.03, 1184.98, 5180.58, 2.00)
  }
  nakeaxon[299] {pt3dclear()
        pt3dadd(3227.56, 1461.09, 4949.16, 2.00)
        pt3dadd(3213.14, 1460.64, 4962.20, 2.00)
        pt3dadd(3210.35, 1461.43, 4964.38, 2.00)
        pt3dadd(3210.35, 1460.82, 4963.37, 2.00)
  }
  nakeaxon[300] {pt3dclear()
        pt3dadd(3210.35, 1460.82, 4963.37, 2.00)
        pt3dadd(3202.68, 1462.78, 4954.49, 2.00)
        pt3dadd(3202.68, 1461.77, 4952.38, 2.00)
        pt3dadd(3201.75, 1459.02, 4938.04, 2.00)
        pt3dadd(3199.89, 1454.97, 4924.17, 2.00)
        pt3dadd(3196.40, 1453.15, 4914.43, 2.00)
        pt3dadd(3193.61, 1452.36, 4909.53, 2.00)
        pt3dadd(3188.26, 1452.48, 4905.77, 2.00)
        pt3dadd(3182.91, 1454.34, 4898.66, 2.00)
        pt3dadd(3180.12, 1452.63, 4895.32, 2.00)
        pt3dadd(3172.91, 1454.06, 4891.09, 2.00)
        pt3dadd(3163.14, 1456.25, 4887.57, 2.00)
        pt3dadd(3161.28, 1456.90, 4887.33, 2.00)
        pt3dadd(3159.65, 1456.98, 4884.83, 2.00)
        pt3dadd(3156.86, 1459.17, 4884.03, 2.00)
        pt3dadd(3155.47, 1458.65, 4878.53, 2.00)
        pt3dadd(3148.26, 1458.55, 4872.13, 2.00)
        pt3dadd(3142.91, 1458.01, 4865.89, 2.00)
        pt3dadd(3139.19, 1458.48, 4861.76, 2.00)
        pt3dadd(3132.91, 1461.62, 4858.14, 2.00)
        pt3dadd(3125.93, 1461.60, 4849.24, 2.00)
        pt3dadd(3117.79, 1463.82, 4844.47, 2.00)
  }
  nakeaxon[301] {pt3dclear()
        pt3dadd(3210.35, 1460.82, 4963.37, 2.00)
        pt3dadd(3191.51, 1464.44, 4977.39, 2.00)
        pt3dadd(3176.63, 1464.74, 4985.70, 2.00)
        pt3dadd(3164.07, 1466.73, 4993.88, 2.00)
        pt3dadd(3145.24, 1470.13, 5007.99, 2.00)
        pt3dadd(3140.82, 1470.13, 5010.71, 2.00)
        pt3dadd(3135.24, 1473.31, 5014.01, 2.00)
        pt3dadd(3121.75, 1473.12, 5025.71, 2.00)
        pt3dadd(3120.35, 1476.36, 5028.49, 2.00)
        pt3dadd(3108.96, 1477.87, 5040.81, 2.00)
        pt3dadd(3104.54, 1479.14, 5044.31, 2.00)
        pt3dadd(3092.91, 1478.51, 5056.17, 2.00)
        pt3dadd(3078.49, 1478.27, 5066.40, 2.00)
        pt3dadd(3074.30, 1477.92, 5069.50, 2.00)
        pt3dadd(3062.91, 1476.85, 5076.08, 2.00)
        pt3dadd(3059.65, 1477.88, 5078.92, 2.00)
        pt3dadd(3045.47, 1479.53, 5090.94, 2.00)
  }
}
proc geometry37() {
  nakeaxon[301] {
        pt3dadd(3033.37, 1480.07, 5097.18, 2.00)
        pt3dadd(3020.82, 1479.40, 5107.57, 2.00)
        pt3dadd(3008.72, 1478.78, 5112.00, 2.00)
        pt3dadd(2999.65, 1480.91, 5119.89, 2.00)
        pt3dadd(2997.09, 1481.79, 5122.29, 2.00)
        pt3dadd(2993.84, 1480.81, 5124.38, 2.00)
        pt3dadd(2985.23, 1481.15, 5131.43, 2.00)
        pt3dadd(2975.24, 1482.41, 5139.64, 2.00)
        pt3dadd(2970.12, 1483.32, 5143.51, 2.00)
        pt3dadd(2966.63, 1483.40, 5146.45, 2.00)
        pt3dadd(2956.86, 1478.69, 5146.43, 2.00)
        pt3dadd(2948.26, 1479.39, 5161.28, 2.00)
        pt3dadd(2937.09, 1479.56, 5169.88, 2.00)
        pt3dadd(2934.54, 1480.25, 5171.11, 2.00)
        pt3dadd(2930.12, 1483.37, 5174.93, 2.00)
        pt3dadd(2923.61, 1484.47, 5182.69, 2.00)
        pt3dadd(2906.63, 1487.93, 5193.56, 2.00)
        pt3dadd(2891.98, 1487.87, 5204.96, 2.00)
        pt3dadd(2887.79, 1488.43, 5206.49, 2.00)
        pt3dadd(2870.82, 1491.19, 5218.85, 2.00)
        pt3dadd(2867.56, 1490.10, 5221.97, 2.00)
        pt3dadd(2855.93, 1493.36, 5230.93, 2.00)
        pt3dadd(2850.82, 1493.84, 5234.97, 2.00)
        pt3dadd(2831.98, 1498.43, 5246.90, 2.00)
        pt3dadd(2826.40, 1497.38, 5254.22, 2.00)
        pt3dadd(2814.54, 1502.12, 5265.86, 2.00)
        pt3dadd(2813.14, 1503.07, 5268.48, 2.00)
        pt3dadd(2801.98, 1507.44, 5283.22, 2.00)
        pt3dadd(2796.16, 1509.75, 5292.28, 2.00)
        pt3dadd(2788.72, 1508.50, 5303.13, 2.00)
        pt3dadd(2779.42, 1510.77, 5316.16, 2.00)
        pt3dadd(2771.98, 1513.46, 5325.58, 2.00)
        pt3dadd(2761.51, 1514.73, 5339.97, 2.00)
        pt3dadd(2760.35, 1515.47, 5342.67, 2.00)
        pt3dadd(2758.49, 1516.64, 5342.49, 2.00)
  }
  nakeaxon[302] {pt3dclear()
        pt3dadd(3219.65, 1473.76, 4933.66, 2.00)
        pt3dadd(3220.35, 1471.12, 4933.88, 2.00)
        pt3dadd(3222.91, 1458.11, 4926.00, 2.00)
        pt3dadd(3224.77, 1446.10, 4917.50, 2.00)
        pt3dadd(3224.77, 1443.48, 4915.73, 2.00)
        pt3dadd(3222.91, 1436.90, 4911.94, 2.00)
        pt3dadd(3222.91, 1430.94, 4906.43, 2.00)
        pt3dadd(3222.21, 1428.41, 4900.18, 2.00)
        pt3dadd(3222.21, 1418.30, 4893.46, 2.00)
        pt3dadd(3220.12, 1412.63, 4888.10, 2.00)
        pt3dadd(3218.26, 1403.04, 4881.45, 2.00)
        pt3dadd(3215.23, 1394.17, 4872.05, 2.00)
        pt3dadd(3211.75, 1384.65, 4865.62, 2.00)
        pt3dadd(3208.03, 1378.23, 4854.10, 2.00)
        pt3dadd(3202.44, 1366.25, 4843.61, 2.00)
        pt3dadd(3200.82, 1360.68, 4839.20, 2.00)
        pt3dadd(3198.72, 1355.81, 4836.02, 2.00)
        pt3dadd(3197.56, 1351.98, 4832.96, 2.00)
  }
  nakeaxon[303] {pt3dclear()
        pt3dadd(3197.56, 1351.98, 4832.96, 2.00)
        pt3dadd(3197.56, 1351.10, 4833.28, 2.00)
        pt3dadd(3208.49, 1339.48, 4827.86, 2.00)
        pt3dadd(3210.58, 1338.21, 4824.36, 2.00)
        pt3dadd(3214.30, 1328.33, 4815.58, 2.00)
        pt3dadd(3214.30, 1321.75, 4806.35, 2.00)
        pt3dadd(3210.58, 1316.90, 4795.74, 2.00)
        pt3dadd(3209.89, 1313.70, 4791.71, 2.00)
        pt3dadd(3205.00, 1301.24, 4779.91, 2.00)
        pt3dadd(3207.33, 1297.22, 4772.95, 2.00)
        pt3dadd(3204.07, 1288.18, 4765.11, 2.00)
        pt3dadd(3196.40, 1281.23, 4766.40, 2.00)
        pt3dadd(3192.91, 1277.17, 4763.42, 2.00)
        pt3dadd(3189.19, 1268.13, 4758.30, 2.00)
        pt3dadd(3185.93, 1262.07, 4751.85, 2.00)
        pt3dadd(3186.63, 1260.93, 4750.77, 2.00)
        pt3dadd(3186.86, 1251.62, 4748.97, 2.00)
        pt3dadd(3187.56, 1243.03, 4741.70, 2.00)
        pt3dadd(3183.37, 1237.54, 4734.78, 2.00)
        pt3dadd(3181.75, 1229.22, 4728.91, 2.00)
        pt3dadd(3181.05, 1228.78, 4729.07, 2.00)
  }
  nakeaxon[304] {pt3dclear()
        pt3dadd(3197.56, 1351.98, 4832.96, 2.00)
        pt3dadd(3194.77, 1346.95, 4826.63, 2.00)
        pt3dadd(3193.84, 1345.18, 4823.81, 2.00)
        pt3dadd(3189.42, 1338.64, 4818.76, 2.00)
        pt3dadd(3187.09, 1331.87, 4818.50, 2.00)
        pt3dadd(3184.54, 1322.31, 4810.60, 2.00)
        pt3dadd(3180.82, 1312.51, 4802.04, 2.00)
        pt3dadd(3181.51, 1311.95, 4800.51, 2.00)
        pt3dadd(3178.26, 1302.12, 4793.20, 2.00)
        pt3dadd(3176.40, 1300.09, 4788.99, 2.00)
        pt3dadd(3177.33, 1294.40, 4785.61, 2.00)
        pt3dadd(3178.03, 1293.27, 4784.54, 2.00)
  }
  nakeaxon[305] {pt3dclear()
        pt3dadd(3178.03, 1293.27, 4784.54, 2.00)
        pt3dadd(3185.47, 1282.28, 4783.59, 2.00)
        pt3dadd(3195.47, 1270.62, 4782.14, 2.00)
        pt3dadd(3201.51, 1263.35, 4782.56, 2.00)
        pt3dadd(3208.03, 1265.25, 4776.92, 2.00)
        pt3dadd(3208.96, 1264.38, 4774.51, 2.00)
        pt3dadd(3213.84, 1260.78, 4769.39, 2.00)
        pt3dadd(3215.23, 1255.02, 4768.52, 2.00)
        pt3dadd(3215.23, 1257.64, 4767.56, 2.00)
  }
  nakeaxon[306] {pt3dclear()
        pt3dadd(3178.03, 1293.27, 4784.54, 2.00)
        pt3dadd(3173.14, 1284.53, 4779.56, 2.00)
        pt3dadd(3171.98, 1276.72, 4773.74, 2.00)
        pt3dadd(3168.03, 1267.06, 4764.88, 2.00)
        pt3dadd(3167.79, 1266.05, 4762.77, 2.00)
        pt3dadd(3165.00, 1256.31, 4753.69, 2.00)
        pt3dadd(3168.96, 1248.77, 4744.56, 2.00)
        pt3dadd(3167.33, 1241.76, 4735.48, 2.00)
        pt3dadd(3168.03, 1230.17, 4720.64, 2.00)
        pt3dadd(3167.56, 1225.92, 4715.75, 2.00)
        pt3dadd(3168.49, 1218.28, 4705.66, 2.00)
        pt3dadd(3172.21, 1212.62, 4692.13, 2.00)
        pt3dadd(3171.75, 1207.57, 4685.06, 2.00)
        pt3dadd(3173.37, 1200.95, 4674.36, 2.00)
        pt3dadd(3179.19, 1197.01, 4664.90, 2.00)
        pt3dadd(3180.12, 1198.54, 4664.34, 2.00)
  }
  nakeaxon[307] {pt3dclear()
        pt3dadd(3154.30, 1465.50, 4932.71, 2.00)
        pt3dadd(3157.79, 1479.82, 4921.06, 2.00)
        pt3dadd(3152.44, 1488.82, 4919.27, 2.00)
        pt3dadd(3155.93, 1494.86, 4919.55, 2.00)
        pt3dadd(3154.77, 1508.01, 4913.52, 2.00)
        pt3dadd(3156.86, 1520.94, 4910.30, 2.00)
        pt3dadd(3152.44, 1531.26, 4908.03, 2.00)
        pt3dadd(3150.82, 1536.98, 4907.44, 2.00)
        pt3dadd(3150.82, 1537.20, 4907.36, 2.00)
  }
  nakeaxon[308] {pt3dclear()
        pt3dadd(3150.82, 1537.20, 4907.36, 2.00)
        pt3dadd(3156.86, 1539.00, 4906.20, 2.00)
        pt3dadd(3163.14, 1538.88, 4904.51, 2.00)
        pt3dadd(3175.00, 1538.11, 4894.90, 2.00)
        pt3dadd(3183.84, 1533.77, 4881.63, 2.00)
        pt3dadd(3182.68, 1524.87, 4870.76, 2.00)
        pt3dadd(3182.44, 1522.68, 4868.84, 2.00)
        pt3dadd(3181.51, 1522.46, 4868.91, 2.00)
  }
  nakeaxon[309] {pt3dclear()
        pt3dadd(3181.51, 1522.46, 4868.91, 2.00)
        pt3dadd(3178.26, 1516.44, 4853.04, 2.00)
        pt3dadd(3176.63, 1513.83, 4846.56, 2.00)
        pt3dadd(3177.09, 1509.72, 4841.38, 2.00)
        pt3dadd(3176.63, 1500.63, 4826.62, 2.00)
        pt3dadd(3176.40, 1497.91, 4823.90, 2.00)
        pt3dadd(3175.93, 1495.15, 4819.71, 2.00)
        pt3dadd(3175.93, 1493.66, 4819.01, 2.00)
  }
  nakeaxon[310] {pt3dclear()
        pt3dadd(3175.93, 1493.66, 4819.01, 2.00)
        pt3dadd(3172.21, 1492.59, 4817.42, 2.00)
        pt3dadd(3167.56, 1489.88, 4804.55, 2.00)
        pt3dadd(3166.63, 1489.08, 4802.36, 2.00)
        pt3dadd(3161.51, 1482.34, 4787.25, 2.00)
        pt3dadd(3157.33, 1479.60, 4778.35, 2.00)
        pt3dadd(3156.16, 1478.33, 4774.85, 2.00)
        pt3dadd(3147.79, 1474.98, 4760.23, 2.00)
        pt3dadd(3138.72, 1473.75, 4747.31, 2.00)
        pt3dadd(3136.16, 1468.74, 4736.27, 2.00)
        pt3dadd(3131.51, 1466.03, 4726.11, 2.00)
        pt3dadd(3127.33, 1463.69, 4718.31, 2.00)
        pt3dadd(3123.61, 1459.13, 4707.84, 2.00)
        pt3dadd(3118.96, 1462.67, 4694.42, 2.00)
  }
}
proc geometry38() {
  nakeaxon[310] {
        pt3dadd(3112.21, 1464.91, 4687.67, 2.00)
        pt3dadd(3104.54, 1466.58, 4681.37, 2.00)
        pt3dadd(3101.05, 1466.48, 4680.42, 2.00)
        pt3dadd(3101.05, 1465.60, 4680.73, 2.00)
  }
  nakeaxon[311] {pt3dclear()
        pt3dadd(3175.93, 1493.66, 4819.01, 2.00)
        pt3dadd(3175.93, 1487.52, 4809.62, 2.00)
        pt3dadd(3175.47, 1485.63, 4805.11, 2.00)
        pt3dadd(3175.93, 1481.63, 4798.89, 2.00)
        pt3dadd(3175.70, 1476.70, 4785.34, 2.00)
        pt3dadd(3175.23, 1474.02, 4778.65, 2.00)
        pt3dadd(3175.70, 1470.86, 4773.36, 2.00)
        pt3dadd(3180.12, 1463.50, 4762.67, 2.00)
        pt3dadd(3181.05, 1455.79, 4752.36, 2.00)
        pt3dadd(3183.37, 1449.86, 4740.17, 2.00)
        pt3dadd(3183.37, 1448.15, 4739.55, 2.00)
        pt3dadd(3183.37, 1441.87, 4730.45, 2.00)
        pt3dadd(3185.00, 1440.60, 4726.96, 2.00)
        pt3dadd(3184.77, 1439.41, 4723.68, 2.00)
        pt3dadd(3185.24, 1428.02, 4710.75, 2.00)
        pt3dadd(3184.30, 1426.61, 4707.55, 2.00)
        pt3dadd(3185.24, 1420.82, 4700.50, 2.00)
        pt3dadd(3183.84, 1417.74, 4695.43, 2.00)
        pt3dadd(3180.58, 1410.88, 4673.18, 2.00)
        pt3dadd(3179.89, 1399.51, 4655.54, 2.00)
        pt3dadd(3182.21, 1394.34, 4649.50, 2.00)
        pt3dadd(3182.21, 1393.91, 4649.66, 2.00)
  }
  nakeaxon[312] {pt3dclear()
        pt3dadd(3181.51, 1522.46, 4868.91, 2.00)
        pt3dadd(3180.35, 1519.16, 4863.93, 2.00)
        pt3dadd(3175.00, 1510.52, 4857.18, 2.00)
        pt3dadd(3174.07, 1508.93, 4855.53, 2.00)
        pt3dadd(3173.14, 1506.09, 4853.84, 2.00)
        pt3dadd(3166.86, 1496.83, 4848.80, 2.00)
        pt3dadd(3161.51, 1485.08, 4841.69, 2.00)
        pt3dadd(3160.58, 1483.41, 4839.82, 2.00)
        pt3dadd(3153.84, 1472.72, 4839.01, 2.00)
        pt3dadd(3148.72, 1466.12, 4831.76, 2.00)
        pt3dadd(3145.24, 1463.34, 4824.11, 2.00)
        pt3dadd(3137.33, 1455.53, 4810.12, 2.00)
        pt3dadd(3134.54, 1452.63, 4806.23, 2.00)
        pt3dadd(3131.98, 1448.75, 4798.98, 2.00)
        pt3dadd(3131.98, 1448.53, 4799.06, 2.00)
  }
  nakeaxon[313] {pt3dclear()
        pt3dadd(3150.82, 1537.20, 4907.36, 2.00)
        pt3dadd(3153.14, 1544.37, 4903.26, 2.00)
        pt3dadd(3155.00, 1562.76, 4898.05, 2.00)
        pt3dadd(3150.58, 1572.74, 4896.89, 2.00)
        pt3dadd(3151.51, 1579.16, 4894.81, 2.00)
        pt3dadd(3148.72, 1585.71, 4889.70, 2.00)
        pt3dadd(3148.03, 1597.67, 4880.40, 2.00)
        pt3dadd(3143.14, 1608.02, 4879.60, 2.00)
        pt3dadd(3141.75, 1620.86, 4880.87, 2.00)
        pt3dadd(3144.77, 1622.03, 4880.69, 2.00)
        pt3dadd(3147.10, 1633.67, 4878.68, 2.00)
        pt3dadd(3145.47, 1646.72, 4871.70, 2.00)
        pt3dadd(3147.79, 1653.58, 4869.45, 2.00)
        pt3dadd(3145.24, 1654.79, 4870.74, 2.00)
        pt3dadd(3146.40, 1667.40, 4861.20, 2.00)
        pt3dadd(3143.61, 1675.94, 4850.67, 2.00)
        pt3dadd(3145.93, 1678.64, 4839.04, 2.00)
        pt3dadd(3151.98, 1682.95, 4840.69, 2.00)
        pt3dadd(3146.86, 1695.02, 4845.95, 2.00)
        pt3dadd(3140.12, 1703.62, 4848.52, 2.00)
        pt3dadd(3139.19, 1706.10, 4847.86, 2.00)
        pt3dadd(3135.93, 1722.37, 4840.20, 2.00)
        pt3dadd(3129.19, 1732.70, 4835.95, 2.00)
        pt3dadd(3131.98, 1743.31, 4831.10, 2.00)
        pt3dadd(3131.28, 1753.27, 4821.04, 2.00)
        pt3dadd(3128.49, 1762.44, 4814.98, 2.00)
        pt3dadd(3126.63, 1770.59, 4808.80, 2.00)
        pt3dadd(3126.16, 1773.17, 4806.37, 2.00)
        pt3dadd(3130.35, 1771.20, 4815.25, 2.00)
        pt3dadd(3141.28, 1774.33, 4829.96, 2.00)
        pt3dadd(3154.77, 1771.11, 4833.36, 2.00)
        pt3dadd(3158.49, 1771.63, 4833.41, 2.00)
        pt3dadd(3165.00, 1770.12, 4834.71, 2.00)
        pt3dadd(3171.28, 1770.79, 4835.20, 2.00)
        pt3dadd(3187.33, 1771.83, 4840.77, 2.00)
        pt3dadd(3193.61, 1770.62, 4842.20, 2.00)
        pt3dadd(3194.54, 1771.13, 4842.26, 2.00)
  }
  nakeaxon[314] {pt3dclear()
        pt3dadd(3194.54, 1771.13, 4842.26, 2.00)
        pt3dadd(3200.58, 1770.24, 4844.56, 2.00)
        pt3dadd(3212.68, 1766.46, 4846.43, 2.00)
        pt3dadd(3225.47, 1769.64, 4847.01, 2.00)
        pt3dadd(3227.79, 1768.61, 4849.61, 2.00)
        pt3dadd(3231.05, 1770.02, 4850.09, 2.00)
        pt3dadd(3245.24, 1768.27, 4850.72, 2.00)
        pt3dadd(3249.19, 1768.87, 4851.00, 2.00)
        pt3dadd(3255.70, 1761.34, 4850.03, 2.00)
        pt3dadd(3260.35, 1760.25, 4850.43, 2.00)
        pt3dadd(3278.49, 1759.03, 4849.14, 2.00)
        pt3dadd(3286.16, 1759.81, 4853.31, 2.00)
        pt3dadd(3292.44, 1761.62, 4854.88, 2.00)
        pt3dadd(3294.54, 1759.67, 4856.33, 2.00)
        pt3dadd(3301.98, 1758.44, 4857.02, 2.00)
        pt3dadd(3307.09, 1758.62, 4858.20, 2.00)
        pt3dadd(3318.49, 1758.74, 4859.88, 2.00)
        pt3dadd(3334.77, 1759.99, 4859.92, 2.00)
        pt3dadd(3336.86, 1759.93, 4860.44, 2.00)
        pt3dadd(3346.86, 1759.85, 4860.22, 2.00)
        pt3dadd(3354.54, 1760.59, 4860.20, 2.00)
        pt3dadd(3358.96, 1761.46, 4859.88, 2.00)
        pt3dadd(3376.40, 1764.70, 4859.94, 2.00)
        pt3dadd(3378.03, 1771.51, 4856.22, 2.00)
        pt3dadd(3391.05, 1773.72, 4853.44, 2.00)
        pt3dadd(3396.16, 1774.36, 4852.47, 2.00)
        pt3dadd(3400.12, 1774.39, 4851.22, 2.00)
        pt3dadd(3401.98, 1776.30, 4851.02, 2.00)
        pt3dadd(3410.35, 1777.04, 4848.28, 2.00)
        pt3dadd(3421.28, 1781.80, 4845.06, 2.00)
        pt3dadd(3430.82, 1785.72, 4840.17, 2.00)
        pt3dadd(3441.51, 1787.42, 4835.34, 2.00)
        pt3dadd(3444.77, 1789.87, 4833.21, 2.00)
        pt3dadd(3446.86, 1788.75, 4830.15, 2.00)
        pt3dadd(3456.16, 1793.50, 4823.47, 2.00)
        pt3dadd(3465.93, 1797.31, 4814.91, 2.00)
        pt3dadd(3481.28, 1802.16, 4811.91, 2.00)
        pt3dadd(3488.49, 1804.76, 4807.50, 2.00)
        pt3dadd(3497.33, 1813.18, 4803.44, 2.00)
        pt3dadd(3498.72, 1814.81, 4806.56, 2.00)
        pt3dadd(3505.00, 1821.95, 4806.44, 2.00)
        pt3dadd(3517.56, 1832.68, 4808.72, 2.00)
        pt3dadd(3521.05, 1836.17, 4807.45, 2.00)
        pt3dadd(3530.12, 1843.92, 4805.62, 2.00)
        pt3dadd(3538.96, 1853.72, 4803.29, 2.00)
        pt3dadd(3540.82, 1860.01, 4796.79, 2.00)
        pt3dadd(3539.89, 1859.14, 4797.11, 2.00)
  }
  nakeaxon[315] {pt3dclear()
        pt3dadd(3194.54, 1771.13, 4842.26, 2.00)
        pt3dadd(3195.70, 1764.77, 4841.11, 2.00)
        pt3dadd(3124.54, 1779.05, 4798.05, 2.00)
  }
  nakeaxon[316] {pt3dclear()
        pt3dadd(3124.54, 1779.05, 4798.05, 2.00)
        pt3dadd(3124.77, 1788.92, 4793.22, 2.00)
        pt3dadd(3125.24, 1796.61, 4786.46, 2.00)
        pt3dadd(3125.00, 1805.79, 4780.40, 2.00)
        pt3dadd(3121.51, 1817.29, 4778.68, 2.00)
        pt3dadd(3120.35, 1831.97, 4772.10, 2.00)
        pt3dadd(3115.24, 1845.92, 4770.98, 2.00)
        pt3dadd(3121.51, 1856.41, 4767.17, 2.00)
        pt3dadd(3124.30, 1861.69, 4758.56, 2.00)
        pt3dadd(3128.03, 1874.66, 4751.37, 2.00)
        pt3dadd(3133.37, 1887.69, 4746.38, 2.00)
        pt3dadd(3140.35, 1896.22, 4743.27, 2.00)
        pt3dadd(3139.65, 1903.90, 4739.24, 2.00)
        pt3dadd(3136.86, 1907.20, 4736.06, 2.00)
        pt3dadd(3146.16, 1917.01, 4726.30, 2.00)
        pt3dadd(3152.68, 1924.57, 4725.28, 2.00)
        pt3dadd(3155.93, 1933.01, 4724.69, 2.00)
        pt3dadd(3161.51, 1940.82, 4722.34, 2.00)
        pt3dadd(3159.89, 1951.35, 4719.99, 2.00)
        pt3dadd(3159.89, 1952.52, 4719.81, 2.00)
        pt3dadd(3164.30, 1964.28, 4714.05, 2.00)
        pt3dadd(3167.79, 1974.03, 4707.53, 2.00)
  }
}
proc geometry39() {
  nakeaxon[316] {
        pt3dadd(3173.14, 1984.66, 4703.41, 2.00)
        pt3dadd(3172.44, 1993.62, 4702.87, 2.00)
        pt3dadd(3173.14, 1999.09, 4698.16, 2.00)
        pt3dadd(3181.05, 2011.26, 4696.95, 2.00)
        pt3dadd(3185.47, 2021.28, 4694.54, 2.00)
        pt3dadd(3188.96, 2028.75, 4690.58, 2.00)
        pt3dadd(3193.14, 2036.00, 4686.70, 2.00)
        pt3dadd(3197.56, 2044.92, 4681.97, 2.00)
        pt3dadd(3200.12, 2052.82, 4680.58, 2.00)
        pt3dadd(3200.12, 2055.19, 4680.96, 2.00)
        pt3dadd(3210.12, 2054.33, 4679.29, 2.00)
        pt3dadd(3212.21, 2056.36, 4680.78, 2.00)
        pt3dadd(3215.00, 2056.60, 4681.43, 2.00)
        pt3dadd(3219.19, 2064.23, 4677.91, 2.00)
        pt3dadd(3221.05, 2065.24, 4680.02, 2.00)
        pt3dadd(3217.56, 2066.28, 4680.14, 2.00)
        pt3dadd(3213.84, 2075.43, 4678.79, 2.00)
        pt3dadd(3214.77, 2079.43, 4679.56, 2.00)
        pt3dadd(3215.70, 2077.38, 4680.06, 2.00)
        pt3dadd(3218.03, 2078.18, 4682.24, 2.00)
        pt3dadd(3218.49, 2077.30, 4679.84, 2.00)
        pt3dadd(3221.75, 2078.06, 4677.83, 2.00)
        pt3dadd(3224.07, 2080.78, 4675.11, 2.00)
        pt3dadd(3224.07, 2085.55, 4674.61, 2.00)
        pt3dadd(3223.14, 2087.12, 4675.52, 2.00)
        pt3dadd(3225.00, 2089.36, 4674.21, 2.00)
        pt3dadd(3222.44, 2091.27, 4676.73, 2.00)
        pt3dadd(3225.93, 2094.61, 4675.02, 2.00)
        pt3dadd(3222.21, 2099.32, 4675.04, 2.00)
        pt3dadd(3224.07, 2103.13, 4674.64, 2.00)
        pt3dadd(3225.24, 2103.85, 4676.61, 2.00)
        pt3dadd(3225.70, 2106.33, 4673.23, 2.00)
        pt3dadd(3224.77, 2107.82, 4673.93, 2.00)
        pt3dadd(3228.26, 2110.06, 4672.62, 2.00)
        pt3dadd(3228.72, 2112.94, 4670.33, 2.00)
        pt3dadd(3229.89, 2114.36, 4670.81, 2.00)
        pt3dadd(3228.72, 2115.53, 4670.63, 2.00)
        pt3dadd(3226.63, 2118.27, 4668.64, 2.00)
        pt3dadd(3225.00, 2124.21, 4667.96, 2.00)
        pt3dadd(3226.63, 2124.53, 4668.84, 2.00)
        pt3dadd(3226.63, 2125.62, 4668.44, 2.00)
        pt3dadd(3228.03, 2118.35, 4671.58, 2.00)
        pt3dadd(3230.12, 2117.57, 4672.85, 2.00)
        pt3dadd(3228.72, 2119.62, 4675.08, 2.00)
        pt3dadd(3225.70, 2124.95, 4673.39, 2.00)
        pt3dadd(3225.00, 2128.70, 4673.50, 2.00)
        pt3dadd(3225.70, 2127.53, 4673.68, 2.00)
        pt3dadd(3228.72, 2128.07, 4674.48, 2.00)
        pt3dadd(3225.93, 2127.93, 4674.78, 2.00)
        pt3dadd(3225.70, 2128.62, 4673.29, 2.00)
        pt3dadd(3225.00, 2133.47, 4673.01, 2.00)
        pt3dadd(3225.24, 2136.93, 4675.71, 2.00)
        pt3dadd(3226.86, 2136.85, 4675.49, 2.00)
        pt3dadd(3229.42, 2138.69, 4673.09, 2.00)
        pt3dadd(3227.56, 2143.94, 4673.90, 2.00)
        pt3dadd(3230.35, 2144.87, 4673.06, 2.00)
        pt3dadd(3232.91, 2146.50, 4673.46, 2.00)
        pt3dadd(3231.51, 2148.77, 4670.16, 2.00)
        pt3dadd(3232.91, 2152.37, 4672.56, 2.00)
        pt3dadd(3231.98, 2153.86, 4673.26, 2.00)
        pt3dadd(3230.82, 2155.11, 4670.58, 2.00)
        pt3dadd(3230.82, 2157.29, 4669.78, 2.00)
        pt3dadd(3227.09, 2160.03, 4670.52, 2.00)
        pt3dadd(3226.16, 2162.40, 4670.89, 2.00)
        pt3dadd(3225.70, 2161.28, 4667.83, 2.00)
        pt3dadd(3225.93, 2165.28, 4668.61, 2.00)
        pt3dadd(3224.30, 2166.85, 4669.52, 2.00)
        pt3dadd(3223.37, 2169.11, 4668.94, 2.00)
        pt3dadd(3224.77, 2171.00, 4670.73, 2.00)
        pt3dadd(3222.68, 2172.87, 4669.06, 2.00)
        pt3dadd(3219.19, 2172.71, 4665.90, 2.00)
        pt3dadd(3221.75, 2176.22, 4665.37, 2.00)
        pt3dadd(3224.30, 2179.74, 4667.55, 2.00)
        pt3dadd(3221.51, 2179.68, 4668.07, 2.00)
        pt3dadd(3219.65, 2183.52, 4668.40, 2.00)
        pt3dadd(3216.63, 2185.94, 4665.54, 2.00)
        pt3dadd(3216.63, 2193.21, 4665.12, 2.00)
        pt3dadd(3218.26, 2195.93, 4665.12, 2.00)
        pt3dadd(3218.26, 2199.61, 4665.02, 2.00)
        pt3dadd(3218.49, 2200.01, 4666.11, 2.00)
        pt3dadd(3204.54, 2199.75, 4667.44, 2.00)
        pt3dadd(3204.54, 2198.48, 4663.95, 2.00)
        pt3dadd(3204.07, 2207.00, 4663.57, 2.00)
        pt3dadd(3206.16, 2207.80, 4665.75, 2.00)
        pt3dadd(3205.24, 2208.51, 4667.72, 2.00)
        pt3dadd(3202.44, 2207.58, 4665.83, 2.00)
        pt3dadd(3202.21, 2208.27, 4664.34, 2.00)
        pt3dadd(3201.05, 2214.13, 4663.45, 2.00)
        pt3dadd(3201.05, 2215.94, 4665.02, 2.00)
        pt3dadd(3199.89, 2220.39, 4663.64, 2.00)
        pt3dadd(3197.33, 2219.08, 4664.12, 2.00)
        pt3dadd(3198.03, 2219.78, 4662.63, 2.00)
        pt3dadd(3196.16, 2221.96, 4661.83, 2.00)
        pt3dadd(3194.30, 2225.42, 4664.53, 2.00)
        pt3dadd(3192.44, 2225.90, 4663.12, 2.00)
        pt3dadd(3187.56, 2228.96, 4662.01, 2.00)
        pt3dadd(3186.16, 2232.10, 4663.84, 2.00)
        pt3dadd(3184.07, 2235.37, 4659.92, 2.00)
        pt3dadd(3182.91, 2236.94, 4660.84, 2.00)
        pt3dadd(3184.07, 2237.66, 4662.80, 2.00)
        pt3dadd(3182.21, 2237.74, 4663.02, 2.00)
        pt3dadd(3179.42, 2238.61, 4662.70, 2.00)
        pt3dadd(3181.05, 2241.81, 4664.01, 2.00)
        pt3dadd(3178.26, 2242.29, 4662.60, 2.00)
        pt3dadd(3175.47, 2244.63, 4659.52, 2.00)
        pt3dadd(3174.30, 2251.98, 4659.32, 2.00)
        pt3dadd(3175.00, 2256.45, 4661.41, 2.00)
        pt3dadd(3175.93, 2256.35, 4660.45, 2.00)
        pt3dadd(3173.14, 2259.95, 4657.41, 2.00)
        pt3dadd(3173.14, 2263.01, 4659.02, 2.00)
        pt3dadd(3172.21, 2264.98, 4661.03, 2.00)
        pt3dadd(3168.26, 2266.15, 4658.13, 2.00)
        pt3dadd(3168.96, 2269.74, 4657.81, 2.00)
        pt3dadd(3167.79, 2273.90, 4659.02, 2.00)
        pt3dadd(3168.03, 2271.32, 4658.72, 2.00)
        pt3dadd(3179.42, 2275.43, 4658.46, 2.00)
        pt3dadd(3177.79, 2278.27, 4662.87, 2.00)
        pt3dadd(3177.09, 2281.41, 4664.70, 2.00)
        pt3dadd(3175.93, 2283.12, 4662.59, 2.00)
        pt3dadd(3175.47, 2283.42, 4660.01, 2.00)
        pt3dadd(3176.16, 2288.80, 4657.80, 2.00)
        pt3dadd(3177.09, 2290.51, 4655.69, 2.00)
        pt3dadd(3173.84, 2294.30, 4660.01, 2.00)
        pt3dadd(3172.91, 2298.06, 4660.12, 2.00)
        pt3dadd(3172.68, 2302.43, 4658.53, 2.00)
        pt3dadd(3170.58, 2305.79, 4657.56, 2.00)
        pt3dadd(3172.44, 2304.22, 4656.64, 2.00)
        pt3dadd(3176.16, 2305.07, 4658.31, 2.00)
        pt3dadd(3172.68, 2307.20, 4658.03, 2.00)
        pt3dadd(3169.65, 2307.67, 4656.62, 2.00)
        pt3dadd(3168.72, 2310.34, 4657.14, 2.00)
        pt3dadd(3168.72, 2315.50, 4657.73, 2.00)
        pt3dadd(3167.79, 2317.29, 4655.85, 2.00)
        pt3dadd(3166.86, 2315.88, 4655.37, 2.00)
        pt3dadd(3165.24, 2316.14, 4656.76, 2.00)
        pt3dadd(3164.07, 2316.91, 4655.49, 2.00)
        pt3dadd(3164.77, 2315.34, 4654.57, 2.00)
        pt3dadd(3165.70, 2315.48, 4654.28, 2.00)
        pt3dadd(3167.33, 2321.96, 4651.67, 2.00)
        pt3dadd(3167.56, 2322.18, 4648.87, 2.00)
        pt3dadd(3170.12, 2323.99, 4653.16, 2.00)
        pt3dadd(3167.79, 2323.05, 4651.27, 2.00)
        pt3dadd(3166.63, 2324.36, 4648.08, 2.00)
        pt3dadd(3164.77, 2326.49, 4647.80, 2.00)
        pt3dadd(3164.54, 2330.78, 4645.99, 2.00)
        pt3dadd(3163.61, 2334.53, 4646.11, 2.00)
        pt3dadd(3164.07, 2332.57, 4644.10, 2.00)
        pt3dadd(3165.47, 2338.86, 4640.32, 2.00)
        pt3dadd(3163.84, 2333.26, 4642.61, 2.00)
        pt3dadd(3160.82, 2339.10, 4638.26, 2.00)
  }
}
proc geometry40() {
  nakeaxon[316] {
        pt3dadd(3160.58, 2340.19, 4637.86, 2.00)
        pt3dadd(3157.33, 2344.15, 4642.60, 2.00)
        pt3dadd(3160.12, 2343.49, 4640.12, 2.00)
        pt3dadd(3159.42, 2349.04, 4635.63, 2.00)
        pt3dadd(3156.16, 2349.99, 4638.25, 2.00)
        pt3dadd(3152.21, 2354.70, 4638.27, 2.00)
        pt3dadd(3153.84, 2356.01, 4635.07, 2.00)
        pt3dadd(3154.54, 2358.12, 4634.06, 2.00)
        pt3dadd(3156.16, 2361.93, 4633.66, 2.00)
        pt3dadd(3154.30, 2363.58, 4632.07, 2.00)
        pt3dadd(3157.56, 2369.10, 4629.56, 2.00)
        pt3dadd(3154.54, 2375.82, 4627.61, 2.00)
        pt3dadd(3155.47, 2388.85, 4622.62, 2.00)
        pt3dadd(3153.61, 2390.50, 4621.03, 2.00)
        pt3dadd(3154.54, 2390.74, 4624.41, 2.00)
        pt3dadd(3151.98, 2389.88, 4622.74, 2.00)
        pt3dadd(3149.89, 2389.56, 4621.87, 2.00)
        pt3dadd(3151.28, 2389.19, 4624.23, 2.00)
        pt3dadd(3149.19, 2390.91, 4622.86, 2.00)
        pt3dadd(3147.33, 2392.78, 4621.19, 2.00)
        pt3dadd(3147.10, 2397.15, 4619.60, 2.00)
        pt3dadd(3144.77, 2400.83, 4616.78, 2.00)
        pt3dadd(3145.00, 2404.11, 4618.31, 2.00)
        pt3dadd(3144.77, 2407.17, 4617.19, 2.00)
        pt3dadd(3143.61, 2406.77, 4616.10, 2.00)
        pt3dadd(3143.14, 2407.64, 4618.51, 2.00)
        pt3dadd(3142.44, 2400.69, 4619.80, 2.00)
        pt3dadd(3141.98, 2409.43, 4616.62, 2.00)
        pt3dadd(3145.47, 2413.17, 4616.00, 2.00)
        pt3dadd(3143.84, 2407.96, 4619.38, 2.00)
        pt3dadd(3143.84, 2409.05, 4618.98, 2.00)
        pt3dadd(3145.93, 2406.47, 4621.41, 2.00)
        pt3dadd(3148.49, 2407.88, 4621.88, 2.00)
        pt3dadd(3149.65, 2409.91, 4623.37, 2.00)
        pt3dadd(3145.93, 2415.31, 4621.90, 2.00)
        pt3dadd(3145.47, 2424.05, 4618.72, 2.00)
        pt3dadd(3146.40, 2424.53, 4620.03, 2.00)
        pt3dadd(3146.40, 2425.33, 4622.22, 2.00)
        pt3dadd(3145.93, 2427.21, 4624.00, 2.00)
        pt3dadd(3143.84, 2426.28, 4622.12, 2.00)
        pt3dadd(3146.63, 2427.21, 4624.00, 2.00)
        pt3dadd(3148.72, 2431.43, 4624.70, 2.00)
        pt3dadd(3148.03, 2433.29, 4620.31, 2.00)
        pt3dadd(3147.33, 2434.09, 4622.49, 2.00)
        pt3dadd(3145.00, 2439.41, 4623.52, 2.00)
        pt3dadd(3145.00, 2442.11, 4617.34, 2.00)
        pt3dadd(3146.16, 2445.57, 4620.04, 2.00)
        pt3dadd(3145.47, 2445.57, 4620.04, 2.00)
        pt3dadd(3145.00, 2443.61, 4618.04, 2.00)
        pt3dadd(3143.37, 2444.96, 4619.03, 2.00)
        pt3dadd(3143.84, 2447.44, 4615.65, 2.00)
        pt3dadd(3141.05, 2451.19, 4615.77, 2.00)
        pt3dadd(3140.58, 2453.28, 4611.30, 2.00)
        pt3dadd(3139.42, 2455.86, 4611.60, 2.00)
        pt3dadd(3137.79, 2454.63, 4612.29, 2.00)
        pt3dadd(3140.35, 2463.21, 4611.40, 2.00)
        pt3dadd(3140.82, 2465.70, 4608.02, 2.00)
        pt3dadd(3142.68, 2468.60, 4609.19, 2.00)
        pt3dadd(3142.68, 2471.88, 4608.00, 2.00)
        pt3dadd(3144.07, 2471.62, 4606.61, 2.00)
        pt3dadd(3143.14, 2470.82, 4604.42, 2.00)
        pt3dadd(3140.12, 2478.11, 4604.73, 2.00)
        pt3dadd(3138.49, 2478.51, 4605.83, 2.00)
        pt3dadd(3136.16, 2478.77, 4607.22, 2.00)
        pt3dadd(3144.77, 2477.66, 4609.60, 2.00)
        pt3dadd(3145.00, 2478.45, 4611.79, 2.00)
        pt3dadd(3143.37, 2481.59, 4613.62, 2.00)
        pt3dadd(3141.98, 2487.61, 4610.43, 2.00)
        pt3dadd(3140.58, 2488.09, 4611.75, 2.00)
        pt3dadd(3137.56, 2488.72, 4610.77, 2.00)
        pt3dadd(3140.58, 2489.58, 4612.44, 2.00)
        pt3dadd(3136.63, 2495.06, 4611.19, 2.00)
        pt3dadd(3135.93, 2497.65, 4611.48, 2.00)
        pt3dadd(3135.70, 2504.60, 4610.19, 2.00)
        pt3dadd(3133.61, 2506.73, 4612.64, 2.00)
        pt3dadd(3130.35, 2506.27, 4612.06, 2.00)
        pt3dadd(3133.14, 2506.11, 4611.62, 2.00)
        pt3dadd(3136.86, 2512.03, 4610.21, 2.00)
        pt3dadd(3135.00, 2501.58, 4615.50, 2.00)
        pt3dadd(3134.77, 2510.72, 4613.41, 2.00)
        pt3dadd(3132.68, 2514.85, 4608.44, 2.00)
        pt3dadd(3135.70, 2520.47, 4609.61, 2.00)
        pt3dadd(3136.63, 2522.98, 4609.69, 2.00)
        pt3dadd(3137.56, 2523.20, 4609.61, 2.00)
        pt3dadd(3140.12, 2527.33, 4607.36, 2.00)
        pt3dadd(3140.35, 2529.30, 4609.37, 2.00)
        pt3dadd(3141.05, 2534.07, 4608.87, 2.00)
        pt3dadd(3142.21, 2533.51, 4610.06, 2.00)
        pt3dadd(3143.14, 2533.83, 4610.94, 2.00)
        pt3dadd(3139.42, 2535.24, 4608.69, 2.00)
        pt3dadd(3137.33, 2541.26, 4608.23, 2.00)
        pt3dadd(3140.35, 2542.91, 4609.37, 2.00)
        pt3dadd(3140.58, 2537.44, 4611.35, 2.00)
        pt3dadd(3141.05, 2530.65, 4613.09, 2.00)
        pt3dadd(3139.89, 2532.22, 4614.00, 2.00)
        pt3dadd(3140.58, 2535.42, 4612.59, 2.00)
        pt3dadd(3139.65, 2539.17, 4612.70, 2.00)
        pt3dadd(3142.21, 2543.68, 4610.82, 2.00)
        pt3dadd(3141.05, 2544.16, 4609.40, 2.00)
        pt3dadd(3142.91, 2543.50, 4606.92, 2.00)
        pt3dadd(3143.84, 2544.99, 4607.62, 2.00)
        pt3dadd(3142.68, 2546.78, 4605.73, 2.00)
        pt3dadd(3138.72, 2550.00, 4605.05, 2.00)
        pt3dadd(3137.56, 2557.65, 4602.27, 2.00)
        pt3dadd(3136.86, 2561.03, 4604.75, 2.00)
        pt3dadd(3134.77, 2570.03, 4602.96, 2.00)
        pt3dadd(3135.24, 2573.62, 4602.64, 2.00)
        pt3dadd(3133.61, 2575.27, 4603.77, 2.00)
        pt3dadd(3131.28, 2576.62, 4604.77, 2.00)
        pt3dadd(3129.19, 2576.62, 4604.77, 2.00)
        pt3dadd(3127.33, 2578.19, 4605.68, 2.00)
        pt3dadd(3126.16, 2581.25, 4604.57, 2.00)
        pt3dadd(3124.77, 2584.23, 4605.96, 2.00)
        pt3dadd(3124.54, 2589.70, 4603.97, 2.00)
        pt3dadd(3128.72, 2590.93, 4603.27, 2.00)
        pt3dadd(3130.58, 2593.11, 4602.48, 2.00)
        pt3dadd(3131.75, 2594.64, 4599.20, 2.00)
        pt3dadd(3132.68, 2597.52, 4596.91, 2.00)
        pt3dadd(3132.68, 2597.22, 4599.49, 2.00)
        pt3dadd(3132.44, 2600.80, 4595.72, 2.00)
        pt3dadd(3132.91, 2603.68, 4593.43, 2.00)
        pt3dadd(3133.61, 2605.31, 4591.11, 2.00)
        pt3dadd(3133.84, 2599.85, 4593.10, 2.00)
        pt3dadd(3134.77, 2600.94, 4592.70, 2.00)
        pt3dadd(3132.91, 2596.94, 4591.93, 2.00)
        pt3dadd(3131.75, 2602.94, 4588.01, 2.00)
        pt3dadd(3129.65, 2606.08, 4587.11, 2.00)
        pt3dadd(3135.00, 2607.24, 4586.20, 2.00)
        pt3dadd(3134.07, 2612.48, 4587.01, 2.00)
        pt3dadd(3132.91, 2613.26, 4585.74, 2.00)
        pt3dadd(3128.26, 2611.23, 4584.25, 2.00)
        pt3dadd(3126.40, 2610.83, 4583.16, 2.00)
        pt3dadd(3125.47, 2612.80, 4582.44, 2.00)
        pt3dadd(3122.91, 2619.61, 4584.17, 2.00)
        pt3dadd(3124.77, 2623.29, 4584.07, 2.00)
        pt3dadd(3123.61, 2627.58, 4582.26, 2.00)
        pt3dadd(3124.77, 2634.53, 4580.97, 2.00)
        pt3dadd(3126.40, 2637.95, 4579.48, 2.00)
        pt3dadd(3128.26, 2640.45, 4579.55, 2.00)
        pt3dadd(3130.58, 2641.37, 4577.98, 2.00)
        pt3dadd(3129.89, 2642.06, 4576.49, 2.00)
        pt3dadd(3129.89, 2646.14, 4577.49, 2.00)
        pt3dadd(3130.35, 2644.64, 4576.79, 2.00)
        pt3dadd(3129.42, 2649.89, 4574.88, 2.00)
        pt3dadd(3131.28, 2648.54, 4573.89, 2.00)
        pt3dadd(3131.05, 2649.63, 4573.49, 2.00)
        pt3dadd(3135.70, 2638.61, 4576.51, 2.00)
        pt3dadd(3136.16, 2645.86, 4572.64, 2.00)
        pt3dadd(3137.56, 2652.33, 4570.03, 2.00)
        pt3dadd(3137.33, 2659.98, 4567.25, 2.00)
  }
}
proc geometry41() {
  nakeaxon[316] {
        pt3dadd(3137.09, 2664.75, 4566.75, 2.00)
        pt3dadd(3135.93, 2668.03, 4565.56, 2.00)
        pt3dadd(3138.96, 2665.66, 4565.18, 2.00)
        pt3dadd(3138.49, 2669.64, 4562.50, 2.00)
        pt3dadd(3141.28, 2669.95, 4563.37, 2.00)
        pt3dadd(3141.98, 2671.74, 4561.48, 2.00)
        pt3dadd(3144.77, 2674.86, 4562.57, 2.00)
        pt3dadd(3148.03, 2677.96, 4560.21, 2.00)
        pt3dadd(3145.93, 2678.44, 4558.80, 2.00)
        pt3dadd(3149.89, 2681.16, 4558.80, 2.00)
        pt3dadd(3151.51, 2683.96, 4559.02, 2.00)
        pt3dadd(3149.65, 2687.42, 4559.00, 2.00)
        pt3dadd(3151.28, 2690.22, 4559.21, 2.00)
        pt3dadd(3151.05, 2694.19, 4556.53, 2.00)
        pt3dadd(3151.75, 2698.19, 4557.30, 2.00)
        pt3dadd(3148.49, 2696.97, 4561.46, 2.00)
        pt3dadd(3150.82, 2699.52, 4557.56, 2.00)
        pt3dadd(3148.26, 2703.13, 4557.98, 2.00)
        pt3dadd(3150.35, 2703.49, 4554.88, 2.00)
        pt3dadd(3153.14, 2707.09, 4554.56, 2.00)
        pt3dadd(3153.84, 2709.27, 4553.76, 2.00)
        pt3dadd(3155.47, 2715.35, 4552.79, 2.00)
        pt3dadd(3157.79, 2718.07, 4550.06, 2.00)
        pt3dadd(3158.49, 2722.36, 4548.26, 2.00)
        pt3dadd(3158.26, 2722.66, 4545.67, 2.00)
        pt3dadd(3160.35, 2722.88, 4545.59, 2.00)
        pt3dadd(3161.28, 2728.96, 4541.90, 2.00)
        pt3dadd(3164.07, 2732.77, 4541.50, 2.00)
        pt3dadd(3165.00, 2734.96, 4540.70, 2.00)
        pt3dadd(3166.63, 2737.46, 4540.78, 2.00)
        pt3dadd(3167.56, 2739.17, 4541.40, 2.00)
        pt3dadd(3170.12, 2740.88, 4539.29, 2.00)
        pt3dadd(3169.65, 2748.53, 4536.51, 2.00)
        pt3dadd(3169.89, 2744.85, 4536.61, 2.00)
        pt3dadd(3179.42, 2746.12, 4531.94, 2.00)
        pt3dadd(3177.56, 2747.00, 4534.34, 2.00)
        pt3dadd(3179.19, 2749.80, 4531.84, 2.00)
        pt3dadd(3179.42, 2754.35, 4534.14, 2.00)
        pt3dadd(3178.26, 2758.72, 4532.55, 2.00)
        pt3dadd(3178.26, 2761.30, 4532.85, 2.00)
        pt3dadd(3177.33, 2762.87, 4533.76, 2.00)
        pt3dadd(3176.40, 2764.28, 4534.24, 2.00)
        pt3dadd(3176.86, 2772.01, 4531.67, 2.00)
        pt3dadd(3181.51, 2772.07, 4531.15, 2.00)
        pt3dadd(3185.24, 2772.61, 4531.95, 2.00)
        pt3dadd(3185.24, 2771.51, 4532.35, 2.00)
        pt3dadd(3187.79, 2771.04, 4531.03, 2.00)
        pt3dadd(3189.42, 2772.27, 4530.34, 2.00)
        pt3dadd(3191.51, 2771.57, 4531.83, 2.00)
        pt3dadd(3192.21, 2771.18, 4530.74, 2.00)
        pt3dadd(3194.07, 2774.99, 4530.34, 2.00)
        pt3dadd(3195.23, 2775.21, 4527.54, 2.00)
        pt3dadd(3196.63, 2774.91, 4530.12, 2.00)
        pt3dadd(3198.26, 2778.41, 4528.85, 2.00)
        pt3dadd(3197.33, 2778.70, 4526.26, 2.00)
        pt3dadd(3195.93, 2787.23, 4523.16, 2.00)
        pt3dadd(3193.37, 2789.89, 4523.68, 2.00)
        pt3dadd(3194.54, 2792.69, 4521.17, 2.00)
        pt3dadd(3198.26, 2792.83, 4520.88, 2.00)
        pt3dadd(3197.33, 2792.11, 4518.91, 2.00)
        pt3dadd(3199.65, 2794.22, 4517.90, 2.00)
        pt3dadd(3203.14, 2796.94, 4517.89, 2.00)
        pt3dadd(3203.14, 2799.82, 4515.61, 2.00)
        pt3dadd(3203.84, 2799.96, 4512.59, 2.00)
        pt3dadd(3203.84, 2801.05, 4512.19, 2.00)
        pt3dadd(3207.33, 2807.57, 4505.61, 2.00)
        pt3dadd(3206.86, 2818.89, 4502.73, 2.00)
        pt3dadd(3206.63, 2827.81, 4503.44, 2.00)
        pt3dadd(3207.56, 2831.41, 4503.12, 2.00)
        pt3dadd(3207.56, 2833.30, 4504.91, 2.00)
        pt3dadd(3209.42, 2837.59, 4505.82, 2.00)
        pt3dadd(3211.98, 2840.79, 4504.41, 2.00)
        pt3dadd(3216.40, 2845.70, 4503.61, 2.00)
        pt3dadd(3219.19, 2847.33, 4504.01, 2.00)
        pt3dadd(3221.51, 2850.84, 4503.47, 2.00)
        pt3dadd(3226.16, 2852.15, 4503.00, 2.00)
        pt3dadd(3227.79, 2852.29, 4502.70, 2.00)
        pt3dadd(3231.51, 2856.03, 4502.08, 2.00)
        pt3dadd(3237.56, 2859.15, 4503.17, 2.00)
        pt3dadd(3238.72, 2860.64, 4503.87, 2.00)
        pt3dadd(3240.35, 2861.87, 4503.17, 2.00)
        pt3dadd(3242.21, 2862.48, 4501.46, 2.00)
  }
  nakeaxon[317] {pt3dclear()
        pt3dadd(3133.61, 1461.67, 4965.04, 2.00)
        pt3dadd(3134.54, 1470.81, 4962.95, 2.00)
        pt3dadd(3131.75, 1479.08, 4961.18, 2.00)
        pt3dadd(3124.77, 1491.89, 4958.99, 2.00)
        pt3dadd(3117.56, 1507.07, 4959.90, 2.00)
        pt3dadd(3117.33, 1514.01, 4963.31, 2.00)
        pt3dadd(3112.44, 1528.87, 4966.07, 2.00)
        pt3dadd(3105.47, 1537.55, 4966.13, 2.00)
        pt3dadd(3101.28, 1546.55, 4967.06, 2.00)
        pt3dadd(3099.65, 1549.30, 4967.79, 2.00)
  }
  nakeaxon[318] {pt3dclear()
        pt3dadd(3099.65, 1549.30, 4967.79, 2.00)
        pt3dadd(3108.96, 1554.42, 4958.75, 2.00)
        pt3dadd(3120.12, 1558.15, 4949.97, 2.00)
        pt3dadd(3123.61, 1558.07, 4947.03, 2.00)
        pt3dadd(3123.61, 1558.29, 4946.95, 2.00)
  }
  nakeaxon[319] {pt3dclear()
        pt3dadd(3123.61, 1558.29, 4946.95, 2.00)
        pt3dadd(3126.86, 1562.82, 4956.68, 2.00)
        pt3dadd(3127.79, 1563.82, 4958.05, 2.00)
  }
  nakeaxon[320] {pt3dclear()
        pt3dadd(3127.79, 1563.82, 4958.05, 2.00)
        pt3dadd(3125.47, 1573.43, 4957.28, 2.00)
        pt3dadd(3125.47, 1575.36, 4957.81, 2.00)
        pt3dadd(3115.47, 1590.74, 4968.79, 2.00)
        pt3dadd(3108.96, 1597.32, 4972.59, 2.00)
        pt3dadd(3097.09, 1609.94, 4979.38, 2.00)
        pt3dadd(3092.44, 1612.66, 4984.82, 2.00)
        pt3dadd(3080.58, 1622.62, 4991.10, 2.00)
        pt3dadd(3080.58, 1623.67, 4991.95, 2.00)
        pt3dadd(3072.44, 1632.04, 4993.86, 2.00)
        pt3dadd(3069.42, 1639.09, 4998.96, 2.00)
        pt3dadd(3061.51, 1648.21, 5004.30, 2.00)
        pt3dadd(3045.47, 1654.79, 5008.10, 2.00)
        pt3dadd(3029.65, 1661.07, 5009.03, 2.00)
        pt3dadd(3016.63, 1667.77, 5014.51, 2.00)
        pt3dadd(3012.44, 1667.51, 5015.84, 2.00)
        pt3dadd(3000.35, 1671.03, 5018.02, 2.00)
        pt3dadd(2984.30, 1677.38, 5021.90, 2.00)
        pt3dadd(2964.77, 1686.39, 5025.55, 2.00)
        pt3dadd(2946.63, 1696.00, 5027.49, 2.00)
        pt3dadd(2931.51, 1699.22, 5029.54, 2.00)
        pt3dadd(2924.77, 1700.04, 5032.46, 2.00)
        pt3dadd(2918.96, 1705.62, 5032.16, 2.00)
        pt3dadd(2918.96, 1707.59, 5031.45, 2.00)
  }
  nakeaxon[321] {pt3dclear()
        pt3dadd(3127.79, 1563.82, 4958.05, 2.00)
        pt3dadd(3128.96, 1563.58, 4957.40, 2.00)
        pt3dadd(3130.12, 1565.90, 4961.75, 2.00)
  }
  nakeaxon[322] {pt3dclear()
        pt3dadd(3130.12, 1565.90, 4961.75, 2.00)
        pt3dadd(3134.54, 1564.47, 4960.54, 2.00)
        pt3dadd(3140.82, 1561.65, 4962.31, 2.00)
        pt3dadd(3151.51, 1558.31, 4964.02, 2.00)
        pt3dadd(3158.96, 1554.10, 4966.04, 2.00)
        pt3dadd(3161.98, 1552.45, 4970.35, 2.00)
        pt3dadd(3169.89, 1547.43, 4980.35, 2.00)
        pt3dadd(3174.77, 1541.77, 4988.60, 2.00)
        pt3dadd(3184.07, 1539.23, 4992.49, 2.00)
        pt3dadd(3190.35, 1536.85, 4994.10, 2.00)
        pt3dadd(3198.96, 1526.55, 4994.38, 2.00)
        pt3dadd(3205.24, 1520.53, 4994.84, 2.00)
        pt3dadd(3208.72, 1519.50, 4994.72, 2.00)
        pt3dadd(3211.28, 1518.77, 4997.47, 2.00)
        pt3dadd(3215.70, 1512.57, 5004.92, 2.00)
        pt3dadd(3217.56, 1513.33, 5011.08, 2.00)
        pt3dadd(3218.49, 1509.85, 5018.53, 2.00)
        pt3dadd(3220.35, 1508.86, 5025.32, 2.00)
        pt3dadd(3221.28, 1505.03, 5033.15, 2.00)
        pt3dadd(3227.56, 1497.96, 5040.93, 2.00)
        pt3dadd(3233.84, 1494.30, 5049.93, 2.00)
        pt3dadd(3235.47, 1491.68, 5050.88, 2.00)
        pt3dadd(3240.82, 1487.01, 5055.06, 2.00)
  }
}
proc geometry42() {
  nakeaxon[322] {
        pt3dadd(3251.28, 1485.64, 5050.60, 2.00)
        pt3dadd(3256.63, 1482.56, 5053.71, 2.00)
        pt3dadd(3267.33, 1477.91, 5053.17, 2.00)
        pt3dadd(3270.58, 1475.71, 5058.68, 2.00)
        pt3dadd(3274.77, 1471.36, 5069.17, 2.00)
        pt3dadd(3281.05, 1468.06, 5069.62, 2.00)
        pt3dadd(3285.47, 1465.06, 5072.94, 2.00)
        pt3dadd(3291.51, 1457.25, 5072.57, 2.00)
        pt3dadd(3300.12, 1448.81, 5078.61, 2.00)
        pt3dadd(3308.26, 1440.45, 5082.15, 2.00)
        pt3dadd(3308.26, 1439.83, 5083.86, 2.00)
        pt3dadd(3316.40, 1434.37, 5085.85, 2.00)
        pt3dadd(3322.68, 1421.38, 5089.59, 2.00)
        pt3dadd(3326.63, 1419.90, 5086.90, 2.00)
        pt3dadd(3334.30, 1411.06, 5086.41, 2.00)
        pt3dadd(3335.00, 1409.45, 5086.75, 2.00)
        pt3dadd(3342.68, 1400.31, 5086.12, 2.00)
        pt3dadd(3345.47, 1396.44, 5087.03, 2.00)
        pt3dadd(3351.05, 1387.50, 5085.58, 2.00)
        pt3dadd(3353.14, 1382.09, 5084.33, 2.00)
        pt3dadd(3355.70, 1376.95, 5084.47, 2.00)
  }
  nakeaxon[323] {pt3dclear()
        pt3dadd(3130.12, 1565.90, 4961.75, 2.00)
        pt3dadd(3133.37, 1574.13, 4969.39, 2.00)
        pt3dadd(3134.30, 1575.23, 4971.72, 2.00)
        pt3dadd(3134.30, 1575.01, 4971.80, 2.00)
  }
  nakeaxon[324] {pt3dclear()
        pt3dadd(3134.30, 1575.01, 4971.80, 2.00)
        pt3dadd(3135.00, 1577.08, 4977.48, 2.00)
        pt3dadd(3133.14, 1579.36, 4983.08, 2.00)
        pt3dadd(3129.65, 1586.10, 4990.03, 2.00)
        pt3dadd(3128.49, 1585.03, 4991.17, 2.00)
  }
  nakeaxon[325] {pt3dclear()
        pt3dadd(3128.49, 1585.03, 4991.17, 2.00)
        pt3dadd(3126.16, 1591.70, 4993.19, 2.00)
        pt3dadd(3123.14, 1598.36, 4994.48, 2.00)
        pt3dadd(3118.49, 1610.24, 5006.74, 2.00)
        pt3dadd(3116.16, 1618.97, 5016.43, 2.00)
        pt3dadd(3113.37, 1624.67, 5023.27, 2.00)
        pt3dadd(3111.51, 1627.62, 5028.63, 2.00)
        pt3dadd(3110.58, 1628.89, 5032.12, 2.00)
  }
  nakeaxon[326] {pt3dclear()
        pt3dadd(3110.58, 1628.89, 5032.12, 2.00)
        pt3dadd(3109.42, 1636.48, 5040.75, 2.00)
        pt3dadd(3107.10, 1648.01, 5050.66, 2.00)
        pt3dadd(3107.10, 1650.12, 5055.09, 2.00)
        pt3dadd(3105.93, 1660.81, 5064.06, 2.00)
        pt3dadd(3105.00, 1661.82, 5066.17, 2.00)
        pt3dadd(3102.21, 1670.29, 5071.75, 2.00)
        pt3dadd(3100.35, 1671.20, 5072.90, 2.00)
        pt3dadd(3100.12, 1671.82, 5073.92, 2.00)
  }
  nakeaxon[327] {pt3dclear()
        pt3dadd(3110.58, 1628.89, 5032.12, 2.00)
        pt3dadd(3115.93, 1630.20, 5028.93, 2.00)
        pt3dadd(3117.79, 1629.84, 5026.58, 2.00)
        pt3dadd(3118.72, 1627.99, 5026.26, 2.00)
  }
  nakeaxon[328] {pt3dclear()
        pt3dadd(3128.49, 1585.03, 4991.17, 2.00)
        pt3dadd(3127.33, 1589.56, 5003.62, 2.00)
        pt3dadd(3129.42, 1596.68, 5016.38, 2.00)
        pt3dadd(3127.56, 1603.36, 5032.01, 2.00)
        pt3dadd(3126.40, 1603.76, 5033.11, 2.00)
        pt3dadd(3126.16, 1607.59, 5047.05, 2.00)
        pt3dadd(3128.49, 1609.25, 5061.80, 2.00)
        pt3dadd(3131.75, 1614.80, 5079.08, 2.00)
        pt3dadd(3133.14, 1616.25, 5083.75, 2.00)
        pt3dadd(3133.14, 1616.47, 5083.67, 2.00)
  }
  nakeaxon[329] {pt3dclear()
        pt3dadd(3133.14, 1616.47, 5083.67, 2.00)
        pt3dadd(3125.00, 1621.46, 5099.42, 2.00)
        pt3dadd(3123.84, 1623.92, 5106.20, 2.00)
        pt3dadd(3118.26, 1631.54, 5121.00, 2.00)
        pt3dadd(3113.61, 1637.48, 5133.93, 2.00)
        pt3dadd(3109.89, 1644.20, 5145.59, 2.00)
        pt3dadd(3110.82, 1645.00, 5147.78, 2.00)
        pt3dadd(3105.47, 1655.63, 5168.16, 2.00)
        pt3dadd(3101.75, 1658.57, 5176.24, 2.00)
        pt3dadd(3100.82, 1659.69, 5179.30, 2.00)
        pt3dadd(3094.54, 1663.05, 5175.61, 2.00)
        pt3dadd(3094.54, 1665.23, 5174.81, 2.00)
        pt3dadd(3092.68, 1668.69, 5174.79, 2.00)
        pt3dadd(3090.12, 1670.65, 5174.07, 2.00)
        pt3dadd(3086.40, 1676.65, 5172.88, 2.00)
        pt3dadd(3081.05, 1681.03, 5174.01, 2.00)
        pt3dadd(3080.12, 1682.77, 5173.38, 2.00)
        pt3dadd(3072.68, 1689.97, 5175.46, 2.00)
        pt3dadd(3064.77, 1695.71, 5183.76, 2.00)
        pt3dadd(3057.09, 1704.16, 5199.50, 2.00)
        pt3dadd(3044.54, 1716.25, 5213.66, 2.00)
        pt3dadd(3041.05, 1718.61, 5216.76, 2.00)
        pt3dadd(3037.09, 1723.88, 5218.31, 2.00)
  }
  nakeaxon[330] {pt3dclear()
        pt3dadd(3133.14, 1616.47, 5083.67, 2.00)
        pt3dadd(3134.77, 1619.73, 5092.63, 2.00)
        pt3dadd(3133.61, 1623.46, 5102.90, 2.00)
        pt3dadd(3132.91, 1621.72, 5111.70, 2.00)
        pt3dadd(3134.77, 1625.46, 5121.97, 2.00)
        pt3dadd(3135.70, 1629.18, 5134.23, 2.00)
        pt3dadd(3135.00, 1630.09, 5138.11, 2.00)
        pt3dadd(3136.40, 1631.50, 5141.30, 2.00)
        pt3dadd(3138.72, 1633.75, 5148.16, 2.00)
        pt3dadd(3137.56, 1624.69, 5155.91, 2.00)
        pt3dadd(3136.63, 1624.32, 5163.72, 2.00)
        pt3dadd(3136.86, 1621.26, 5167.55, 2.00)
        pt3dadd(3141.28, 1613.85, 5170.99, 2.00)
        pt3dadd(3148.26, 1605.21, 5172.41, 2.00)
        pt3dadd(3147.56, 1603.38, 5175.55, 2.00)
        pt3dadd(3147.79, 1600.42, 5180.33, 2.00)
        pt3dadd(3147.10, 1601.77, 5181.33, 2.00)
  }
  nakeaxon[331] {pt3dclear()
        pt3dadd(3134.30, 1575.01, 4971.80, 2.00)
        pt3dadd(3135.24, 1569.52, 4970.33, 2.00)
        pt3dadd(3135.70, 1564.56, 4977.09, 2.00)
        pt3dadd(3135.47, 1561.16, 4987.48, 2.00)
        pt3dadd(3132.91, 1559.38, 4992.09, 2.00)
        pt3dadd(3125.70, 1557.37, 5004.95, 2.00)
        pt3dadd(3114.30, 1554.24, 5016.73, 2.00)
        pt3dadd(3110.35, 1548.48, 5026.74, 2.00)
        pt3dadd(3104.54, 1546.99, 5034.21, 2.00)
        pt3dadd(3101.28, 1542.40, 5038.61, 2.00)
        pt3dadd(3095.93, 1536.42, 5037.82, 2.00)
        pt3dadd(3085.93, 1532.47, 5052.12, 2.00)
        pt3dadd(3072.44, 1531.32, 5063.92, 2.00)
        pt3dadd(3069.89, 1529.99, 5077.28, 2.00)
        pt3dadd(3069.89, 1533.40, 5094.10, 2.00)
        pt3dadd(3068.96, 1533.28, 5097.86, 2.00)
        pt3dadd(3068.03, 1528.97, 5109.82, 2.00)
        pt3dadd(3067.10, 1527.54, 5114.05, 2.00)
        pt3dadd(3062.68, 1528.54, 5129.03, 2.00)
        pt3dadd(3058.96, 1525.76, 5140.44, 2.00)
        pt3dadd(3058.96, 1523.68, 5147.63, 2.00)
        pt3dadd(3060.82, 1522.98, 5149.12, 2.00)
        pt3dadd(3058.96, 1521.77, 5156.00, 2.00)
        pt3dadd(3058.96, 1524.65, 5153.71, 2.00)
        pt3dadd(3060.35, 1523.47, 5172.21, 2.00)
        pt3dadd(3058.96, 1525.60, 5188.26, 2.00)
        pt3dadd(3051.98, 1527.31, 5202.49, 2.00)
        pt3dadd(3044.07, 1526.70, 5215.09, 2.00)
        pt3dadd(3038.49, 1527.79, 5222.86, 2.00)
        pt3dadd(3035.47, 1530.34, 5229.85, 2.00)
        pt3dadd(3028.72, 1534.42, 5244.45, 2.00)
        pt3dadd(3025.00, 1537.44, 5252.75, 2.00)
        pt3dadd(3017.56, 1537.04, 5259.83, 2.00)
        pt3dadd(3015.24, 1537.48, 5265.11, 2.00)
        pt3dadd(3004.07, 1538.44, 5281.35, 2.00)
        pt3dadd(3000.12, 1538.14, 5289.37, 2.00)
        pt3dadd(2996.86, 1537.17, 5294.18, 2.00)
  }
  nakeaxon[332] {pt3dclear()
        pt3dadd(3123.61, 1558.29, 4946.95, 2.00)
        pt3dadd(3133.14, 1563.16, 4944.68, 2.00)
        pt3dadd(3145.00, 1573.19, 4934.84, 2.00)
        pt3dadd(3155.93, 1579.94, 4928.92, 2.00)
        pt3dadd(3167.56, 1587.97, 4921.05, 2.00)
        pt3dadd(3175.93, 1592.71, 4917.09, 2.00)
        pt3dadd(3178.49, 1594.03, 4916.62, 2.00)
        pt3dadd(3182.91, 1597.02, 4913.30, 2.00)
        pt3dadd(3193.84, 1601.55, 4906.70, 2.00)
        pt3dadd(3200.35, 1605.82, 4901.44, 2.00)
        pt3dadd(3207.09, 1613.73, 4894.60, 2.00)
        pt3dadd(3215.23, 1618.91, 4885.04, 2.00)
  }
}
proc geometry43() {
  nakeaxon[332] {
        pt3dadd(3221.05, 1623.86, 4880.27, 2.00)
        pt3dadd(3230.82, 1626.26, 4873.95, 2.00)
        pt3dadd(3242.21, 1637.88, 4868.48, 2.00)
        pt3dadd(3251.75, 1644.87, 4863.22, 2.00)
        pt3dadd(3257.79, 1648.49, 4852.74, 2.00)
        pt3dadd(3267.56, 1655.74, 4846.14, 2.00)
        pt3dadd(3272.91, 1659.11, 4837.74, 2.00)
        pt3dadd(3279.65, 1663.18, 4830.57, 2.00)
        pt3dadd(3287.79, 1668.15, 4823.81, 2.00)
        pt3dadd(3291.51, 1669.99, 4821.40, 2.00)
        pt3dadd(3300.12, 1679.73, 4816.87, 2.00)
        pt3dadd(3309.19, 1687.42, 4812.84, 2.00)
        pt3dadd(3316.63, 1692.09, 4811.38, 2.00)
        pt3dadd(3323.61, 1698.04, 4803.28, 2.00)
        pt3dadd(3324.54, 1696.43, 4803.61, 2.00)
        pt3dadd(3331.05, 1699.47, 4799.04, 2.00)
        pt3dadd(3338.26, 1706.19, 4791.65, 2.00)
        pt3dadd(3339.89, 1707.34, 4790.74, 2.00)
        pt3dadd(3343.84, 1709.60, 4790.16, 2.00)
        pt3dadd(3346.16, 1711.77, 4788.63, 2.00)
        pt3dadd(3355.47, 1716.43, 4779.01, 2.00)
        pt3dadd(3362.21, 1722.28, 4774.66, 2.00)
        pt3dadd(3371.51, 1729.23, 4767.92, 2.00)
        pt3dadd(3376.16, 1730.76, 4764.64, 2.00)
        pt3dadd(3376.16, 1737.21, 4758.58, 2.00)
        pt3dadd(3383.37, 1746.43, 4756.71, 2.00)
        pt3dadd(3392.44, 1752.27, 4749.63, 2.00)
        pt3dadd(3396.40, 1754.93, 4744.71, 2.00)
        pt3dadd(3402.91, 1760.02, 4739.64, 2.00)
        pt3dadd(3410.58, 1767.01, 4734.37, 2.00)
        pt3dadd(3412.21, 1768.99, 4731.67, 2.00)
        pt3dadd(3415.47, 1774.64, 4728.13, 2.00)
        pt3dadd(3419.19, 1774.99, 4727.75, 2.00)
        pt3dadd(3424.30, 1781.09, 4719.34, 2.00)
        pt3dadd(3430.12, 1789.26, 4713.90, 2.00)
        pt3dadd(3438.96, 1795.59, 4708.87, 2.00)
        pt3dadd(3448.03, 1806.74, 4702.09, 2.00)
        pt3dadd(3449.89, 1815.95, 4694.78, 2.00)
        pt3dadd(3455.24, 1824.95, 4687.54, 2.00)
        pt3dadd(3461.28, 1828.03, 4681.72, 2.00)
        pt3dadd(3471.05, 1831.56, 4671.03, 2.00)
        pt3dadd(3473.84, 1838.42, 4666.06, 2.00)
        pt3dadd(3478.26, 1845.47, 4665.72, 2.00)
        pt3dadd(3483.61, 1851.01, 4661.23, 2.00)
        pt3dadd(3488.96, 1855.96, 4659.18, 2.00)
        pt3dadd(3497.09, 1862.55, 4655.54, 2.00)
        pt3dadd(3504.30, 1870.56, 4649.66, 2.00)
        pt3dadd(3510.58, 1875.59, 4647.83, 2.00)
        pt3dadd(3513.61, 1868.41, 4638.32, 2.00)
        pt3dadd(3521.51, 1878.36, 4633.70, 2.00)
        pt3dadd(3529.65, 1883.77, 4629.51, 2.00)
        pt3dadd(3535.70, 1885.83, 4627.02, 2.00)
        pt3dadd(3537.79, 1889.47, 4625.45, 2.00)
        pt3dadd(3548.26, 1895.01, 4620.96, 2.00)
        pt3dadd(3552.68, 1900.27, 4617.07, 2.00)
        pt3dadd(3561.75, 1907.64, 4612.16, 2.00)
        pt3dadd(3566.86, 1908.62, 4612.79, 2.00)
        pt3dadd(3582.21, 1917.16, 4604.98, 2.00)
        pt3dadd(3593.37, 1924.55, 4595.36, 2.00)
        pt3dadd(3600.58, 1925.96, 4593.12, 2.00)
        pt3dadd(3601.98, 1928.36, 4589.52, 2.00)
        pt3dadd(3611.98, 1933.31, 4584.75, 2.00)
        pt3dadd(3610.35, 1942.94, 4579.26, 2.00)
        pt3dadd(3618.49, 1950.99, 4574.85, 2.00)
        pt3dadd(3618.96, 1954.38, 4572.62, 2.00)
        pt3dadd(3619.89, 1956.81, 4572.48, 2.00)
        pt3dadd(3618.02, 1958.08, 4573.26, 2.00)
        pt3dadd(3616.40, 1964.95, 4577.19, 2.00)
        pt3dadd(3615.47, 1966.37, 4580.39, 2.00)
        pt3dadd(3614.54, 1969.61, 4583.17, 2.00)
        pt3dadd(3613.61, 1971.28, 4585.04, 2.00)
        pt3dadd(3614.54, 1973.68, 4586.88, 2.00)
        pt3dadd(3614.30, 1978.37, 4588.89, 2.00)
        pt3dadd(3613.37, 1981.39, 4591.75, 2.00)
        pt3dadd(3613.61, 1983.93, 4596.02, 2.00)
        pt3dadd(3613.61, 1987.53, 4598.42, 2.00)
        pt3dadd(3613.61, 1990.55, 4601.28, 2.00)
        pt3dadd(3612.44, 1993.10, 4602.83, 2.00)
        pt3dadd(3613.37, 1996.08, 4604.22, 2.00)
        pt3dadd(3613.37, 2000.59, 4607.78, 2.00)
        pt3dadd(3613.37, 2004.44, 4608.85, 2.00)
        pt3dadd(3612.44, 2004.48, 4610.32, 2.00)
        pt3dadd(3613.37, 2008.95, 4612.40, 2.00)
        pt3dadd(3614.30, 2012.23, 4613.93, 2.00)
        pt3dadd(3613.37, 2013.64, 4617.13, 2.00)
        pt3dadd(3613.37, 2016.45, 4620.07, 2.00)
        pt3dadd(3612.21, 2018.16, 4620.69, 2.00)
        pt3dadd(3613.37, 2018.37, 4620.61, 2.00)
  }
  nakeaxon[333] {pt3dclear()
        pt3dadd(3613.37, 2018.37, 4620.61, 2.00)
        pt3dadd(3614.07, 2017.94, 4620.77, 2.00)
        pt3dadd(3615.93, 2016.41, 4621.32, 2.00)
        pt3dadd(3617.56, 2019.43, 4621.46, 2.00)
        pt3dadd(3617.56, 2019.86, 4621.30, 2.00)
  }
  nakeaxon[334] {pt3dclear()
        pt3dadd(3617.56, 2019.86, 4621.30, 2.00)
        pt3dadd(3619.19, 2025.55, 4619.23, 2.00)
        pt3dadd(3619.42, 2021.87, 4619.33, 2.00)
        pt3dadd(3617.56, 2017.90, 4619.30, 2.00)
        pt3dadd(3617.56, 2015.75, 4618.84, 2.00)
        pt3dadd(3618.49, 2014.26, 4618.14, 2.00)
        pt3dadd(3619.42, 2010.33, 4619.58, 2.00)
        pt3dadd(3617.56, 2009.93, 4618.48, 2.00)
        pt3dadd(3617.56, 2007.82, 4616.77, 2.00)
        pt3dadd(3616.86, 2006.08, 4617.41, 2.00)
        pt3dadd(3615.24, 2003.85, 4616.74, 2.00)
        pt3dadd(3612.44, 2001.27, 4616.44, 2.00)
        pt3dadd(3612.44, 1999.12, 4615.98, 2.00)
        pt3dadd(3612.44, 1997.15, 4616.70, 2.00)
        pt3dadd(3611.51, 1994.35, 4616.48, 2.00)
        pt3dadd(3613.37, 1993.04, 4616.96, 2.00)
        pt3dadd(3611.51, 1991.51, 4614.79, 2.00)
        pt3dadd(3611.75, 1989.14, 4614.42, 2.00)
        pt3dadd(3610.82, 1985.73, 4613.19, 2.00)
        pt3dadd(3610.12, 1984.63, 4613.58, 2.00)
  }
  nakeaxon[335] {pt3dclear()
        pt3dadd(3617.56, 2019.86, 4621.30, 2.00)
        pt3dadd(3621.05, 2024.45, 4619.63, 2.00)
        pt3dadd(3623.61, 2026.64, 4618.84, 2.00)
        pt3dadd(3624.54, 2029.44, 4619.05, 2.00)
        pt3dadd(3627.33, 2030.93, 4619.75, 2.00)
        pt3dadd(3628.96, 2032.90, 4621.76, 2.00)
        pt3dadd(3631.98, 2029.28, 4624.06, 2.00)
        pt3dadd(3633.61, 2029.10, 4622.89, 2.00)
        pt3dadd(3637.09, 2031.73, 4621.93, 2.00)
        pt3dadd(3637.56, 2033.24, 4620.64, 2.00)
        pt3dadd(3640.58, 2033.69, 4621.22, 2.00)
        pt3dadd(3643.14, 2033.83, 4620.92, 2.00)
        pt3dadd(3643.61, 2035.03, 4624.20, 2.00)
        pt3dadd(3646.40, 2037.53, 4624.28, 2.00)
        pt3dadd(3648.26, 2038.76, 4623.58, 2.00)
        pt3dadd(3651.51, 2038.12, 4621.83, 2.00)
        pt3dadd(3652.44, 2038.26, 4621.53, 2.00)
        pt3dadd(3655.00, 2039.75, 4622.23, 2.00)
        pt3dadd(3658.96, 2039.04, 4622.98, 2.00)
        pt3dadd(3659.89, 2040.53, 4623.68, 2.00)
        pt3dadd(3662.68, 2042.48, 4624.95, 2.00)
        pt3dadd(3664.54, 2047.25, 4624.45, 2.00)
        pt3dadd(3667.33, 2042.42, 4630.91, 2.00)
        pt3dadd(3672.21, 2043.67, 4633.67, 2.00)
        pt3dadd(3674.54, 2044.60, 4635.56, 2.00)
        pt3dadd(3677.33, 2044.23, 4637.93, 2.00)
        pt3dadd(3679.19, 2053.90, 4636.63, 2.00)
  }
  nakeaxon[336] {pt3dclear()
        pt3dadd(3613.37, 2018.37, 4620.61, 2.00)
        pt3dadd(3612.44, 2019.86, 4621.30, 2.00)
        pt3dadd(3612.44, 2023.28, 4622.53, 2.00)
        pt3dadd(3613.37, 2024.41, 4623.61, 2.00)
        pt3dadd(3612.21, 2025.91, 4624.30, 2.00)
  }
  nakeaxon[337] {pt3dclear()
        pt3dadd(3612.21, 2025.91, 4624.30, 2.00)
        pt3dadd(3612.21, 2024.16, 4624.94, 2.00)
        pt3dadd(3610.35, 2025.21, 4623.07, 2.00)
        pt3dadd(3609.65, 2026.12, 4621.50, 2.00)
        pt3dadd(3608.49, 2025.55, 4619.23, 2.00)
  }
}
proc geometry44() {
  nakeaxon[337] {
        pt3dadd(3607.56, 2026.32, 4617.96, 2.00)
        pt3dadd(3605.70, 2026.72, 4616.33, 2.00)
        pt3dadd(3603.84, 2026.72, 4616.33, 2.00)
        pt3dadd(3602.21, 2026.54, 4615.16, 2.00)
        pt3dadd(3599.42, 2027.02, 4613.75, 2.00)
        pt3dadd(3596.86, 2027.67, 4613.51, 2.00)
        pt3dadd(3594.07, 2027.93, 4612.18, 2.00)
        pt3dadd(3591.51, 2029.42, 4612.88, 2.00)
        pt3dadd(3589.65, 2029.12, 4615.46, 2.00)
        pt3dadd(3585.93, 2028.90, 4615.54, 2.00)
        pt3dadd(3583.37, 2029.68, 4616.99, 2.00)
        pt3dadd(3583.37, 2030.55, 4616.67, 2.00)
        pt3dadd(3578.02, 2029.92, 4620.36, 2.00)
        pt3dadd(3577.09, 2031.01, 4619.97, 2.00)
        pt3dadd(3571.75, 2029.32, 4620.09, 2.00)
        pt3dadd(3568.96, 2028.39, 4620.92, 2.00)
        pt3dadd(3566.16, 2030.51, 4620.64, 2.00)
        pt3dadd(3560.35, 2031.92, 4618.40, 2.00)
        pt3dadd(3557.33, 2028.98, 4621.20, 2.00)
        pt3dadd(3553.61, 2028.93, 4621.72, 2.00)
        pt3dadd(3549.19, 2028.55, 4621.36, 2.00)
        pt3dadd(3547.33, 2028.63, 4621.58, 2.00)
        pt3dadd(3544.77, 2028.57, 4622.09, 2.00)
        pt3dadd(3540.58, 2036.38, 4619.75, 2.00)
        pt3dadd(3535.93, 2035.30, 4618.16, 2.00)
        pt3dadd(3533.14, 2034.59, 4616.19, 2.00)
        pt3dadd(3527.33, 2034.29, 4616.05, 2.00)
        pt3dadd(3524.77, 2034.15, 4616.35, 2.00)
        pt3dadd(3521.05, 2036.27, 4616.07, 2.00)
        pt3dadd(3518.49, 2037.53, 4616.11, 2.00)
        pt3dadd(3513.84, 2037.15, 4615.75, 2.00)
        pt3dadd(3511.98, 2037.01, 4616.05, 2.00)
        pt3dadd(3507.33, 2035.00, 4618.02, 2.00)
        pt3dadd(3500.12, 2035.98, 4618.66, 2.00)
        pt3dadd(3495.93, 2031.63, 4620.98, 2.00)
        pt3dadd(3490.35, 2032.34, 4620.22, 2.00)
        pt3dadd(3485.47, 2037.43, 4617.88, 2.00)
        pt3dadd(3480.82, 2037.66, 4615.81, 2.00)
        pt3dadd(3477.09, 2038.78, 4616.15, 2.00)
        pt3dadd(3475.24, 2038.86, 4616.37, 2.00)
        pt3dadd(3473.61, 2039.81, 4616.27, 2.00)
        pt3dadd(3470.35, 2044.88, 4613.19, 2.00)
        pt3dadd(3468.49, 2049.66, 4613.43, 2.00)
        pt3dadd(3468.96, 2043.94, 4611.30, 2.00)
        pt3dadd(3467.56, 2042.93, 4611.92, 2.00)
        pt3dadd(3466.16, 2045.89, 4609.85, 2.00)
        pt3dadd(3464.07, 2046.44, 4608.66, 2.00)
        pt3dadd(3461.05, 2045.73, 4606.69, 2.00)
        pt3dadd(3458.03, 2048.07, 4603.61, 2.00)
        pt3dadd(3453.84, 2052.07, 4601.66, 2.00)
        pt3dadd(3449.89, 2060.35, 4597.90, 2.00)
        pt3dadd(3445.70, 2067.46, 4594.33, 2.00)
        pt3dadd(3442.91, 2069.81, 4593.97, 2.00)
        pt3dadd(3440.35, 2064.20, 4596.25, 2.00)
        pt3dadd(3435.93, 2066.41, 4596.19, 2.00)
        pt3dadd(3430.58, 2066.43, 4596.93, 2.00)
        pt3dadd(3427.09, 2066.37, 4597.45, 2.00)
        pt3dadd(3424.30, 2066.13, 4596.79, 2.00)
        pt3dadd(3422.21, 2065.60, 4595.99, 2.00)
        pt3dadd(3418.03, 2067.11, 4597.43, 2.00)
        pt3dadd(3415.00, 2070.46, 4596.45, 2.00)
        pt3dadd(3411.28, 2075.87, 4594.98, 2.00)
        pt3dadd(3409.42, 2075.73, 4595.28, 2.00)
        pt3dadd(3407.79, 2075.41, 4594.40, 2.00)
        pt3dadd(3405.47, 2081.91, 4592.53, 2.00)
        pt3dadd(3402.91, 2078.71, 4593.94, 2.00)
  }
  nakeaxon[338] {pt3dclear()
        pt3dadd(3612.21, 2025.91, 4624.30, 2.00)
        pt3dadd(3614.30, 2025.43, 4625.71, 2.00)
        pt3dadd(3614.30, 2027.97, 4627.26, 2.00)
        pt3dadd(3613.37, 2031.87, 4629.80, 2.00)
        pt3dadd(3613.37, 2033.76, 4631.59, 2.00)
        pt3dadd(3614.30, 2035.90, 4632.05, 2.00)
        pt3dadd(3613.37, 2036.78, 4634.45, 2.00)
        pt3dadd(3613.37, 2037.00, 4634.37, 2.00)
        pt3dadd(3609.65, 2071.03, 4619.76, 2.00)
        pt3dadd(3609.42, 2072.22, 4623.03, 2.00)
        pt3dadd(3608.49, 2073.79, 4623.95, 2.00)
        pt3dadd(3611.75, 2077.31, 4626.13, 2.00)
        pt3dadd(3610.82, 2081.46, 4627.34, 2.00)
        pt3dadd(3612.21, 2082.26, 4629.53, 2.00)
        pt3dadd(3610.35, 2085.79, 4629.73, 2.00)
        pt3dadd(3610.82, 2088.30, 4632.53, 2.00)
        pt3dadd(3611.98, 2089.09, 4634.71, 2.00)
        pt3dadd(3611.98, 2090.58, 4635.41, 2.00)
        pt3dadd(3613.14, 2090.98, 4636.50, 2.00)
        pt3dadd(3611.51, 2092.95, 4638.51, 2.00)
        pt3dadd(3613.61, 2098.43, 4639.97, 2.00)
        pt3dadd(3613.14, 2099.31, 4642.38, 2.00)
        pt3dadd(3612.21, 2100.88, 4643.29, 2.00)
        pt3dadd(3611.51, 2102.45, 4644.21, 2.00)
        pt3dadd(3610.82, 2103.24, 4646.39, 2.00)
        pt3dadd(3610.35, 2103.02, 4649.19, 2.00)
        pt3dadd(3610.35, 2110.45, 4649.21, 2.00)
        pt3dadd(3612.21, 2112.88, 4649.07, 2.00)
        pt3dadd(3612.44, 2111.09, 4650.96, 2.00)
        pt3dadd(3610.82, 2110.08, 4651.57, 2.00)
        pt3dadd(3611.75, 2112.66, 4651.87, 2.00)
        pt3dadd(3613.61, 2117.83, 4652.47, 2.00)
        pt3dadd(3613.84, 2119.32, 4653.16, 2.00)
        pt3dadd(3611.98, 2121.98, 4653.68, 2.00)
        pt3dadd(3611.28, 2126.05, 4654.67, 2.00)
        pt3dadd(3611.51, 2128.02, 4656.68, 2.00)
  }
  nakeaxon[339] {pt3dclear()
        pt3dadd(3611.51, 2128.02, 4656.68, 2.00)
        pt3dadd(3611.75, 2126.23, 4658.56, 2.00)
        pt3dadd(3611.98, 2131.80, 4660.25, 2.00)
        pt3dadd(3613.14, 2135.87, 4661.24, 2.00)
        pt3dadd(3613.14, 2139.55, 4661.14, 2.00)
        pt3dadd(3612.44, 2142.61, 4662.75, 2.00)
        pt3dadd(3611.98, 2141.30, 4665.95, 2.00)
        pt3dadd(3610.35, 2141.77, 4667.26, 2.00)
        pt3dadd(3608.72, 2144.61, 4668.95, 2.00)
        pt3dadd(3608.96, 2148.77, 4670.16, 2.00)
        pt3dadd(3609.42, 2151.27, 4672.96, 2.00)
        pt3dadd(3608.49, 2158.48, 4673.06, 2.00)
        pt3dadd(3607.79, 2162.64, 4674.27, 2.00)
        pt3dadd(3608.96, 2163.35, 4676.24, 2.00)
        pt3dadd(3609.42, 2149.94, 4683.59, 2.00)
        pt3dadd(3610.12, 2151.36, 4686.79, 2.00)
        pt3dadd(3611.98, 2152.15, 4688.98, 2.00)
        pt3dadd(3611.75, 2152.95, 4691.16, 2.00)
        pt3dadd(3609.65, 2157.79, 4690.88, 2.00)
        pt3dadd(3610.12, 2160.16, 4693.98, 2.00)
        pt3dadd(3611.28, 2160.56, 4695.07, 2.00)
        pt3dadd(3610.82, 2167.21, 4696.36, 2.00)
        pt3dadd(3611.05, 2170.27, 4697.97, 2.00)
        pt3dadd(3612.21, 2170.59, 4698.85, 2.00)
        pt3dadd(3611.28, 2173.65, 4700.45, 2.00)
        pt3dadd(3610.58, 2175.14, 4701.15, 2.00)
        pt3dadd(3609.89, 2178.28, 4702.98, 2.00)
        pt3dadd(3610.35, 2179.00, 4704.94, 2.00)
        pt3dadd(3611.51, 2180.49, 4705.64, 2.00)
        pt3dadd(3611.98, 2182.85, 4708.74, 2.00)
        pt3dadd(3610.35, 2184.82, 4710.74, 2.00)
        pt3dadd(3608.72, 2190.07, 4711.55, 2.00)
        pt3dadd(3609.19, 2191.95, 4713.34, 2.00)
        pt3dadd(3609.65, 2193.84, 4715.13, 2.00)
        pt3dadd(3609.65, 2195.41, 4716.04, 2.00)
        pt3dadd(3610.12, 2196.21, 4718.23, 2.00)
        pt3dadd(3609.42, 2197.00, 4720.41, 2.00)
        pt3dadd(3608.72, 2202.33, 4721.45, 2.00)
        pt3dadd(3610.82, 2204.14, 4723.02, 2.00)
        pt3dadd(3610.35, 2206.03, 4724.80, 2.00)
        pt3dadd(3609.42, 2207.60, 4725.72, 2.00)
        pt3dadd(3609.42, 2214.95, 4725.52, 2.00)
        pt3dadd(3608.72, 2216.91, 4727.52, 2.00)
        pt3dadd(3609.89, 2220.99, 4728.51, 2.00)
        pt3dadd(3608.26, 2222.56, 4729.43, 2.00)
        pt3dadd(3610.12, 2222.88, 4730.30, 2.00)
        pt3dadd(3611.51, 2223.19, 4731.18, 2.00)
        pt3dadd(3609.65, 2224.76, 4732.09, 2.00)
  }
}
proc geometry45() {
  nakeaxon[339] {
        pt3dadd(3609.89, 2227.83, 4733.70, 2.00)
        pt3dadd(3608.49, 2231.36, 4736.62, 2.00)
        pt3dadd(3608.03, 2233.41, 4738.84, 2.00)
        pt3dadd(3607.33, 2239.45, 4739.12, 2.00)
        pt3dadd(3606.40, 2260.07, 4734.58, 2.00)
        pt3dadd(3605.70, 2263.13, 4736.19, 2.00)
  }
  nakeaxon[340] {pt3dclear()
        pt3dadd(3605.70, 2263.13, 4736.19, 2.00)
        pt3dadd(3601.75, 2261.76, 4739.91, 2.00)
        pt3dadd(3598.26, 2263.89, 4742.35, 2.00)
        pt3dadd(3596.40, 2268.12, 4741.06, 2.00)
        pt3dadd(3593.61, 2270.54, 4740.92, 2.00)
  }
  nakeaxon[341] {pt3dclear()
        pt3dadd(3605.70, 2263.13, 4736.19, 2.00)
        pt3dadd(3605.24, 2268.16, 4739.81, 2.00)
        pt3dadd(3605.93, 2273.94, 4738.69, 2.00)
        pt3dadd(3608.26, 2274.88, 4740.58, 2.00)
  }
  nakeaxon[342] {pt3dclear()
        pt3dadd(3611.51, 2128.02, 4656.68, 2.00)
        pt3dadd(3613.84, 2126.99, 4653.84, 2.00)
        pt3dadd(3615.70, 2128.12, 4649.46, 2.00)
        pt3dadd(3616.40, 2127.32, 4647.28, 2.00)
        pt3dadd(3617.33, 2139.88, 4640.98, 2.00)
        pt3dadd(3614.54, 2132.61, 4641.40, 2.00)
        pt3dadd(3613.61, 2142.74, 4635.23, 2.00)
        pt3dadd(3613.37, 2142.04, 4634.00, 2.00)
        pt3dadd(3613.37, 2136.40, 4632.10, 2.00)
        pt3dadd(3615.24, 2137.55, 4631.18, 2.00)
        pt3dadd(3615.47, 2146.29, 4628.00, 2.00)
        pt3dadd(3617.09, 2145.74, 4626.47, 2.00)
        pt3dadd(3615.47, 2171.96, 4616.93, 2.00)
        pt3dadd(3618.02, 2174.82, 4613.90, 2.00)
        pt3dadd(3621.75, 2176.96, 4608.92, 2.00)
        pt3dadd(3624.30, 2176.80, 4608.48, 2.00)
        pt3dadd(3626.63, 2178.73, 4606.29, 2.00)
        pt3dadd(3629.19, 2178.01, 4604.33, 2.00)
        pt3dadd(3630.35, 2177.36, 4601.84, 2.00)
        pt3dadd(3631.75, 2176.48, 4599.44, 2.00)
        pt3dadd(3633.14, 2175.53, 4596.82, 2.00)
        pt3dadd(3635.00, 2175.27, 4595.43, 2.00)
        pt3dadd(3636.40, 2174.79, 4594.12, 2.00)
        pt3dadd(3636.16, 2174.40, 4593.02, 2.00)
        pt3dadd(3638.49, 2174.53, 4590.00, 2.00)
        pt3dadd(3639.42, 2178.86, 4584.22, 2.00)
        pt3dadd(3639.65, 2177.99, 4581.82, 2.00)
        pt3dadd(3641.05, 2178.21, 4579.01, 2.00)
        pt3dadd(3641.98, 2178.13, 4578.80, 2.00)
        pt3dadd(3644.07, 2182.93, 4574.32, 2.00)
        pt3dadd(3641.98, 2188.26, 4572.63, 2.00)
        pt3dadd(3641.98, 2187.86, 4571.54, 2.00)
        pt3dadd(3643.14, 2182.93, 4574.32, 2.00)
        pt3dadd(3642.21, 2179.73, 4573.01, 2.00)
        pt3dadd(3641.75, 2184.11, 4571.42, 2.00)
  }
  nakeaxon[343] {pt3dclear()
        pt3dadd(3099.65, 1549.30, 4967.79, 2.00)
        pt3dadd(3089.19, 1560.34, 4968.23, 2.00)
        pt3dadd(3084.30, 1570.83, 4972.57, 2.00)
        pt3dadd(3082.44, 1581.58, 4975.59, 2.00)
        pt3dadd(3074.30, 1590.46, 4974.84, 2.00)
        pt3dadd(3065.93, 1603.26, 4974.63, 2.00)
        pt3dadd(3055.70, 1613.65, 4980.75, 2.00)
        pt3dadd(3049.19, 1629.19, 4984.00, 2.00)
        pt3dadd(3043.84, 1637.24, 4985.03, 2.00)
        pt3dadd(3040.58, 1645.51, 4988.71, 2.00)
        pt3dadd(3040.58, 1643.76, 4989.34, 2.00)
  }
  nakeaxon[344] {pt3dclear()
        pt3dadd(3040.58, 1643.76, 4989.34, 2.00)
        pt3dadd(3030.35, 1652.18, 4993.45, 2.00)
        pt3dadd(3024.30, 1660.35, 4996.17, 2.00)
        pt3dadd(3009.42, 1669.83, 5006.58, 2.00)
        pt3dadd(2991.28, 1680.24, 5016.16, 2.00)
        pt3dadd(2974.77, 1688.57, 5024.76, 2.00)
        pt3dadd(2956.63, 1697.63, 5033.34, 2.00)
        pt3dadd(2944.30, 1707.79, 5036.08, 2.00)
        pt3dadd(2935.47, 1716.71, 5039.51, 2.00)
        pt3dadd(2917.33, 1724.56, 5044.08, 2.00)
        pt3dadd(2903.37, 1728.87, 5051.17, 2.00)
        pt3dadd(2886.40, 1735.23, 5057.76, 2.00)
        pt3dadd(2873.14, 1743.88, 5059.07, 2.00)
        pt3dadd(2863.84, 1750.06, 5061.77, 2.00)
        pt3dadd(2857.79, 1753.14, 5061.40, 2.00)
        pt3dadd(2859.65, 1753.71, 5060.94, 2.00)
  }
  nakeaxon[345] {pt3dclear()
        pt3dadd(2859.65, 1753.71, 5060.94, 2.00)
        pt3dadd(2858.03, 1755.90, 5062.86, 2.00)
        pt3dadd(2858.26, 1760.05, 5064.07, 2.00)
        pt3dadd(2853.84, 1765.96, 5075.54, 2.00)
        pt3dadd(2842.21, 1795.47, 5094.74, 2.00)
        pt3dadd(2843.14, 1801.23, 5092.89, 2.00)
        pt3dadd(2838.49, 1807.53, 5100.00, 2.00)
        pt3dadd(2836.63, 1807.89, 5102.35, 2.00)
        pt3dadd(2837.10, 1809.70, 5101.19, 2.00)
  }
  nakeaxon[346] {pt3dclear()
        pt3dadd(2837.10, 1809.70, 5101.19, 2.00)
        pt3dadd(2851.05, 1819.61, 5106.00, 2.00)
        pt3dadd(2852.68, 1825.31, 5110.11, 2.00)
        pt3dadd(2855.47, 1834.75, 5113.61, 2.00)
        pt3dadd(2859.42, 1844.19, 5117.10, 2.00)
        pt3dadd(2861.98, 1850.47, 5120.75, 2.00)
        pt3dadd(2864.07, 1866.77, 5130.17, 2.00)
        pt3dadd(2869.65, 1873.28, 5131.75, 2.00)
        pt3dadd(2870.12, 1885.74, 5135.39, 2.00)
        pt3dadd(2870.35, 1887.53, 5136.22, 2.00)
        pt3dadd(2872.21, 1892.14, 5138.01, 2.00)
        pt3dadd(2873.14, 1900.31, 5143.45, 2.00)
        pt3dadd(2871.75, 1902.12, 5145.02, 2.00)
        pt3dadd(2874.30, 1913.55, 5153.98, 2.00)
        pt3dadd(2873.37, 1921.77, 5158.90, 2.00)
        pt3dadd(2879.42, 1932.42, 5166.41, 2.00)
        pt3dadd(2880.58, 1938.74, 5168.81, 2.00)
        pt3dadd(2879.42, 1943.13, 5170.68, 2.00)
        pt3dadd(2877.56, 1948.84, 5172.07, 2.00)
  }
  nakeaxon[347] {pt3dclear()
        pt3dadd(2837.10, 1809.70, 5101.19, 2.00)
        pt3dadd(2826.86, 1822.85, 5103.34, 2.00)
        pt3dadd(2820.35, 1825.67, 5109.73, 2.00)
        pt3dadd(2810.12, 1841.53, 5113.86, 2.00)
        pt3dadd(2795.70, 1852.24, 5118.13, 2.00)
        pt3dadd(2789.42, 1854.84, 5121.89, 2.00)
        pt3dadd(2776.86, 1865.57, 5126.89, 2.00)
        pt3dadd(2774.54, 1866.81, 5128.91, 2.00)
        pt3dadd(2774.54, 1867.02, 5128.84, 2.00)
  }
  nakeaxon[348] {pt3dclear()
        pt3dadd(2859.65, 1753.71, 5060.94, 2.00)
        pt3dadd(2843.37, 1762.95, 5059.80, 2.00)
        pt3dadd(2838.96, 1763.77, 5060.00, 2.00)
        pt3dadd(2826.16, 1772.15, 5062.64, 2.00)
        pt3dadd(2810.12, 1783.20, 5068.52, 2.00)
        pt3dadd(2798.03, 1789.76, 5071.58, 2.00)
        pt3dadd(2792.21, 1793.75, 5072.35, 2.00)
        pt3dadd(2778.72, 1799.99, 5071.81, 2.00)
        pt3dadd(2764.07, 1810.60, 5072.40, 2.00)
        pt3dadd(2747.79, 1820.68, 5080.37, 2.00)
        pt3dadd(2732.68, 1828.01, 5084.88, 2.00)
        pt3dadd(2716.16, 1841.24, 5084.52, 2.00)
        pt3dadd(2705.00, 1844.32, 5086.86, 2.00)
        pt3dadd(2691.28, 1850.70, 5086.02, 2.00)
        pt3dadd(2684.30, 1854.89, 5088.70, 2.00)
        pt3dadd(2667.56, 1866.97, 5091.98, 2.00)
        pt3dadd(2650.35, 1872.20, 5097.50, 2.00)
        pt3dadd(2632.68, 1881.94, 5098.41, 2.00)
        pt3dadd(2617.79, 1889.91, 5101.95, 2.00)
        pt3dadd(2603.84, 1897.63, 5104.82, 2.00)
        pt3dadd(2585.47, 1905.32, 5103.51, 2.00)
        pt3dadd(2570.12, 1914.47, 5106.87, 2.00)
        pt3dadd(2555.00, 1920.37, 5107.44, 2.00)
        pt3dadd(2546.63, 1928.63, 5108.39, 2.00)
        pt3dadd(2532.44, 1940.18, 5110.87, 2.00)
        pt3dadd(2523.61, 1951.64, 5118.58, 2.00)
        pt3dadd(2510.12, 1960.35, 5122.09, 2.00)
        pt3dadd(2498.49, 1968.14, 5124.45, 2.00)
        pt3dadd(2486.16, 1976.84, 5127.97, 2.00)
        pt3dadd(2475.47, 1988.86, 5129.04, 2.00)
        pt3dadd(2468.96, 1990.77, 5128.84, 2.00)
        pt3dadd(2457.56, 1995.24, 5130.92, 2.00)
        pt3dadd(2440.35, 1997.98, 5134.38, 2.00)
        pt3dadd(2430.82, 2001.16, 5148.56, 2.00)
        pt3dadd(2421.28, 2007.52, 5157.88, 2.00)
        pt3dadd(2415.93, 2009.49, 5162.61, 2.00)
  }
}
proc geometry46() {
  nakeaxon[348] {
        pt3dadd(2402.68, 2019.27, 5178.60, 2.00)
        pt3dadd(2385.00, 2027.38, 5190.00, 2.00)
        pt3dadd(2375.24, 2030.80, 5196.68, 2.00)
        pt3dadd(2360.58, 2038.97, 5204.84, 2.00)
        pt3dadd(2343.84, 2048.53, 5223.64, 2.00)
        pt3dadd(2324.54, 2056.01, 5244.18, 2.00)
        pt3dadd(2305.93, 2064.26, 5260.73, 2.00)
        pt3dadd(2285.24, 2072.61, 5275.51, 2.00)
        pt3dadd(2278.96, 2076.90, 5279.14, 2.00)
        pt3dadd(2262.21, 2081.77, 5290.48, 2.00)
        pt3dadd(2247.09, 2088.14, 5302.52, 2.00)
        pt3dadd(2229.42, 2093.78, 5312.60, 2.00)
        pt3dadd(2217.10, 2099.96, 5323.46, 2.00)
        pt3dadd(2199.19, 2111.17, 5340.66, 2.00)
        pt3dadd(2186.86, 2119.32, 5353.54, 2.00)
        pt3dadd(2175.47, 2125.47, 5362.93, 2.00)
        pt3dadd(2163.84, 2131.87, 5373.72, 2.00)
        pt3dadd(2149.89, 2140.73, 5391.28, 2.00)
        pt3dadd(2135.70, 2146.74, 5400.97, 2.00)
        pt3dadd(2126.86, 2151.71, 5413.27, 2.00)
        pt3dadd(2123.14, 2156.18, 5418.08, 2.00)
        pt3dadd(2105.47, 2167.61, 5435.20, 2.00)
        pt3dadd(2096.63, 2174.37, 5445.61, 2.00)
        pt3dadd(2087.79, 2179.34, 5452.47, 2.00)
        pt3dadd(2087.79, 2179.12, 5452.55, 2.00)
  }
  nakeaxon[349] {pt3dclear()
        pt3dadd(2087.79, 2179.12, 5452.55, 2.00)
        pt3dadd(2078.72, 2187.15, 5458.28, 2.00)
        pt3dadd(2071.28, 2195.89, 5471.43, 2.00)
        pt3dadd(2060.12, 2199.53, 5475.31, 2.00)
        pt3dadd(2049.65, 2200.98, 5471.81, 2.00)
  }
  nakeaxon[350] {pt3dclear()
        pt3dadd(2087.79, 2179.12, 5452.55, 2.00)
        pt3dadd(2099.65, 2185.22, 5463.19, 2.00)
        pt3dadd(2102.91, 2186.26, 5466.03, 2.00)
        pt3dadd(2109.42, 2185.90, 5477.30, 2.00)
        pt3dadd(2110.58, 2186.22, 5480.90, 2.00)
  }
  nakeaxon[351] {pt3dclear()
        pt3dadd(2110.58, 2186.22, 5480.90, 2.00)
        pt3dadd(2112.44, 2187.81, 5482.54, 2.00)
        pt3dadd(2115.70, 2185.65, 5486.80, 2.00)
        pt3dadd(2120.35, 2188.57, 5496.87, 2.00)
        pt3dadd(2133.37, 2190.30, 5509.11, 2.00)
        pt3dadd(2141.51, 2195.25, 5517.95, 2.00)
        pt3dadd(2152.68, 2199.55, 5532.47, 2.00)
  }
  nakeaxon[352] {pt3dclear()
        pt3dadd(2110.58, 2186.22, 5480.90, 2.00)
        pt3dadd(2108.72, 2188.99, 5487.81, 2.00)
        pt3dadd(2101.98, 2197.77, 5499.71, 2.00)
        pt3dadd(2098.02, 2200.75, 5503.82, 2.00)
        pt3dadd(2097.33, 2199.08, 5507.40, 2.00)
  }
  nakeaxon[353] {pt3dclear()
        pt3dadd(3040.58, 1643.76, 4989.34, 2.00)
        pt3dadd(3034.54, 1660.13, 4985.36, 2.00)
        pt3dadd(3028.72, 1666.11, 4986.16, 2.00)
        pt3dadd(3023.14, 1681.13, 4983.91, 2.00)
        pt3dadd(3021.51, 1682.34, 4985.20, 2.00)
        pt3dadd(3016.63, 1689.12, 4985.45, 2.00)
        pt3dadd(3014.77, 1698.16, 4982.41, 2.00)
        pt3dadd(3015.47, 1704.67, 4978.56, 2.00)
        pt3dadd(3014.54, 1706.06, 4978.30, 2.00)
  }
  nakeaxon[354] {pt3dclear()
        pt3dadd(3014.54, 1706.06, 4978.30, 2.00)
        pt3dadd(3013.61, 1705.63, 4978.46, 2.00)
        pt3dadd(3018.26, 1705.72, 4979.41, 2.00)
        pt3dadd(3028.03, 1706.20, 4978.00, 2.00)
        pt3dadd(3036.16, 1705.11, 4978.40, 2.00)
        pt3dadd(3058.03, 1705.43, 4979.27, 2.00)
        pt3dadd(3069.65, 1705.61, 4977.72, 2.00)
        pt3dadd(3090.12, 1705.13, 4976.41, 2.00)
        pt3dadd(3108.49, 1705.86, 4979.11, 2.00)
        pt3dadd(3119.19, 1704.99, 4976.71, 2.00)
        pt3dadd(3132.21, 1710.89, 4971.84, 2.00)
        pt3dadd(3141.98, 1713.59, 4968.38, 2.00)
        pt3dadd(3144.77, 1714.92, 4968.64, 2.00)
        pt3dadd(3147.79, 1719.57, 4969.17, 2.00)
        pt3dadd(3158.49, 1730.78, 4972.77, 2.00)
        pt3dadd(3166.16, 1735.67, 4973.96, 2.00)
        pt3dadd(3170.12, 1739.36, 4974.59, 2.00)
        pt3dadd(3181.05, 1747.67, 4974.29, 2.00)
        pt3dadd(3184.77, 1749.00, 4974.55, 2.00)
        pt3dadd(3186.86, 1751.46, 4975.88, 2.00)
        pt3dadd(3189.89, 1754.84, 4975.64, 2.00)
        pt3dadd(3196.40, 1761.48, 4976.19, 2.00)
        pt3dadd(3207.09, 1765.07, 4975.88, 2.00)
        pt3dadd(3216.16, 1770.67, 4973.59, 2.00)
        pt3dadd(3222.44, 1780.31, 4978.99, 2.00)
        pt3dadd(3227.09, 1784.78, 4981.08, 2.00)
        pt3dadd(3235.23, 1791.94, 4984.41, 2.00)
        pt3dadd(3242.44, 1798.36, 4987.77, 2.00)
        pt3dadd(3245.47, 1801.46, 4990.85, 2.00)
        pt3dadd(3249.89, 1808.01, 4993.90, 2.00)
        pt3dadd(3255.70, 1816.38, 4998.53, 2.00)
        pt3dadd(3257.10, 1817.75, 5000.26, 2.00)
        pt3dadd(3258.96, 1817.51, 4999.60, 2.00)
        pt3dadd(3267.33, 1822.40, 5000.79, 2.00)
        pt3dadd(3269.65, 1823.04, 4999.82, 2.00)
        pt3dadd(3270.58, 1822.96, 4999.60, 2.00)
  }
  nakeaxon[355] {pt3dclear()
        pt3dadd(3270.58, 1822.96, 4999.60, 2.00)
        pt3dadd(3276.63, 1823.81, 5001.27, 2.00)
  }
  nakeaxon[356] {pt3dclear()
        pt3dadd(3270.58, 1822.96, 4999.60, 2.00)
        pt3dadd(3271.75, 1821.92, 4996.76, 2.00)
        pt3dadd(3274.07, 1821.35, 4997.22, 2.00)
        pt3dadd(3278.72, 1821.21, 4997.52, 2.00)
        pt3dadd(3290.58, 1826.49, 4997.08, 2.00)
        pt3dadd(3302.44, 1827.49, 4998.45, 2.00)
        pt3dadd(3302.91, 1829.71, 4999.12, 2.00)
  }
  nakeaxon[357] {pt3dclear()
        pt3dadd(3014.54, 1706.06, 4978.30, 2.00)
        pt3dadd(3008.03, 1708.31, 4976.98, 2.00)
        pt3dadd(3006.40, 1713.19, 4975.45, 2.00)
  }
  nakeaxon[358] {pt3dclear()
        pt3dadd(3006.40, 1713.19, 4975.45, 2.00)
        pt3dadd(3016.16, 1699.74, 4962.28, 2.00)
        pt3dadd(3023.61, 1686.50, 4954.48, 2.00)
        pt3dadd(3029.42, 1680.12, 4944.43, 2.00)
        pt3dadd(3029.89, 1676.67, 4941.73, 2.00)
        pt3dadd(3029.89, 1678.85, 4940.93, 2.00)
  }
  nakeaxon[359] {pt3dclear()
        pt3dadd(3006.40, 1713.19, 4975.45, 2.00)
        pt3dadd(2995.93, 1727.00, 4974.64, 2.00)
        pt3dadd(2991.75, 1729.75, 4975.37, 2.00)
        pt3dadd(2982.44, 1744.09, 4975.35, 2.00)
        pt3dadd(2974.54, 1751.14, 4975.01, 2.00)
        pt3dadd(2969.65, 1765.01, 4976.39, 2.00)
        pt3dadd(2960.82, 1774.89, 4974.28, 2.00)
        pt3dadd(2956.40, 1784.98, 4972.10, 2.00)
        pt3dadd(2956.16, 1786.77, 4970.21, 2.00)
        pt3dadd(2949.42, 1794.83, 4969.25, 2.00)
        pt3dadd(2941.51, 1802.36, 4964.78, 2.00)
        pt3dadd(2935.47, 1807.85, 4960.80, 2.00)
        pt3dadd(2927.56, 1819.55, 4955.55, 2.00)
        pt3dadd(2920.82, 1828.67, 4952.73, 2.00)
        pt3dadd(2912.68, 1839.22, 4951.12, 2.00)
        pt3dadd(2906.40, 1847.10, 4940.82, 2.00)
        pt3dadd(2900.82, 1856.56, 4936.89, 2.00)
        pt3dadd(2899.89, 1868.72, 4934.94, 2.00)
        pt3dadd(2891.05, 1880.26, 4931.97, 2.00)
        pt3dadd(2883.84, 1892.58, 4927.74, 2.00)
        pt3dadd(2877.56, 1903.94, 4923.60, 2.00)
        pt3dadd(2871.28, 1914.69, 4921.17, 2.00)
        pt3dadd(2873.37, 1918.48, 4914.60, 2.00)
        pt3dadd(2870.58, 1931.91, 4913.42, 2.00)
        pt3dadd(2868.02, 1942.84, 4909.44, 2.00)
        pt3dadd(2866.16, 1952.97, 4906.00, 2.00)
        pt3dadd(2861.75, 1961.49, 4902.90, 2.00)
        pt3dadd(2858.96, 1966.78, 4899.74, 2.00)
        pt3dadd(2854.30, 1970.89, 4899.48, 2.00)
        pt3dadd(2847.09, 1983.66, 4893.10, 2.00)
        pt3dadd(2842.91, 1989.90, 4892.56, 2.00)
        pt3dadd(2833.84, 2001.41, 4888.12, 2.00)
        pt3dadd(2833.61, 2013.61, 4887.65, 2.00)
        pt3dadd(2825.24, 2018.16, 4887.23, 2.00)
        pt3dadd(2820.35, 2028.54, 4879.73, 2.00)
        pt3dadd(2814.07, 2037.80, 4876.61, 2.00)
        pt3dadd(2809.65, 2048.41, 4874.48, 2.00)
        pt3dadd(2802.44, 2057.09, 4869.09, 2.00)
        pt3dadd(2793.61, 2065.74, 4867.68, 2.00)
        pt3dadd(2792.68, 2066.49, 4865.67, 2.00)
  }
}
proc geometry47() {
  nakeaxon[359] {
        pt3dadd(2790.58, 2074.91, 4856.17, 2.00)
        pt3dadd(2783.37, 2083.93, 4863.28, 2.00)
        pt3dadd(2782.21, 2095.30, 4859.15, 2.00)
        pt3dadd(2779.65, 2103.38, 4858.93, 2.00)
        pt3dadd(2775.70, 2111.87, 4859.80, 2.00)
        pt3dadd(2770.35, 2117.99, 4857.57, 2.00)
        pt3dadd(2773.14, 2118.86, 4857.25, 2.00)
        pt3dadd(2772.21, 2117.27, 4861.05, 2.00)
        pt3dadd(2769.65, 2120.41, 4860.15, 2.00)
        pt3dadd(2767.79, 2125.66, 4860.97, 2.00)
        pt3dadd(2771.51, 2125.90, 4861.62, 2.00)
        pt3dadd(2775.00, 2129.23, 4859.91, 2.00)
        pt3dadd(2771.75, 2128.30, 4858.03, 2.00)
        pt3dadd(2768.26, 2134.32, 4857.57, 2.00)
        pt3dadd(2764.77, 2134.74, 4859.40, 2.00)
        pt3dadd(2768.49, 2137.30, 4858.96, 2.00)
        pt3dadd(2764.77, 2139.98, 4860.21, 2.00)
        pt3dadd(2763.37, 2140.38, 4861.30, 2.00)
        pt3dadd(2762.44, 2141.33, 4861.20, 2.00)
        pt3dadd(2761.51, 2144.03, 4855.02, 2.00)
        pt3dadd(2760.35, 2147.39, 4854.05, 2.00)
        pt3dadd(2763.14, 2142.25, 4859.63, 2.00)
        pt3dadd(2763.14, 2145.84, 4859.31, 2.00)
        pt3dadd(2761.28, 2147.27, 4860.52, 2.00)
        pt3dadd(2759.65, 2146.66, 4862.23, 2.00)
        pt3dadd(2760.12, 2149.06, 4858.64, 2.00)
        pt3dadd(2759.42, 2153.21, 4859.85, 2.00)
        pt3dadd(2758.03, 2156.28, 4861.45, 2.00)
        pt3dadd(2761.51, 2156.12, 4861.02, 2.00)
        pt3dadd(2760.82, 2156.99, 4863.42, 2.00)
        pt3dadd(2760.35, 2157.79, 4865.61, 2.00)
        pt3dadd(2757.33, 2156.53, 4862.85, 2.00)
        pt3dadd(2756.63, 2157.33, 4865.03, 2.00)
        pt3dadd(2756.86, 2158.12, 4867.22, 2.00)
        pt3dadd(2756.17, 2161.96, 4867.55, 2.00)
        pt3dadd(2754.07, 2163.13, 4867.37, 2.00)
        pt3dadd(2752.21, 2162.12, 4865.27, 2.00)
        pt3dadd(2751.75, 2163.51, 4862.29, 2.00)
        pt3dadd(2749.65, 2169.05, 4860.52, 2.00)
        pt3dadd(2746.63, 2172.27, 4859.84, 2.00)
        pt3dadd(2744.77, 2179.30, 4858.77, 2.00)
        pt3dadd(2745.00, 2179.70, 4859.86, 2.00)
        pt3dadd(2726.63, 2169.11, 4868.17, 2.00)
        pt3dadd(2724.77, 2169.59, 4869.48, 2.00)
        pt3dadd(2722.68, 2170.44, 4868.43, 2.00)
        pt3dadd(2721.28, 2175.99, 4863.93, 2.00)
        pt3dadd(2719.65, 2188.16, 4860.00, 2.00)
        pt3dadd(2718.49, 2195.81, 4857.21, 2.00)
        pt3dadd(2719.65, 2180.22, 4865.36, 2.00)
        pt3dadd(2719.42, 2182.19, 4867.37, 2.00)
        pt3dadd(2718.49, 2186.34, 4868.58, 2.00)
        pt3dadd(2721.28, 2178.31, 4873.73, 2.00)
        pt3dadd(2717.79, 2185.64, 4870.07, 2.00)
        pt3dadd(2714.77, 2189.95, 4869.00, 2.00)
        pt3dadd(2713.14, 2190.73, 4867.72, 2.00)
        pt3dadd(2712.21, 2193.17, 4868.32, 2.00)
        pt3dadd(2710.58, 2196.75, 4864.54, 2.00)
        pt3dadd(2708.72, 2197.92, 4864.36, 2.00)
        pt3dadd(2708.26, 2198.80, 4866.77, 2.00)
        pt3dadd(2707.33, 2201.94, 4865.87, 2.00)
        pt3dadd(2708.96, 2204.58, 4865.65, 2.00)
        pt3dadd(2708.03, 2208.33, 4865.77, 2.00)
        pt3dadd(2707.56, 2211.25, 4867.68, 2.00)
        pt3dadd(2710.82, 2215.60, 4865.35, 2.00)
        pt3dadd(2709.65, 2217.47, 4863.68, 2.00)
        pt3dadd(2706.86, 2219.60, 4863.40, 2.00)
        pt3dadd(2705.70, 2219.89, 4860.82, 2.00)
        pt3dadd(2704.30, 2221.68, 4858.93, 2.00)
        pt3dadd(2702.68, 2224.13, 4859.53, 2.00)
        pt3dadd(2703.84, 2224.13, 4862.25, 2.00)
        pt3dadd(2704.07, 2228.20, 4863.24, 2.00)
        pt3dadd(2705.24, 2232.19, 4864.02, 2.00)
        pt3dadd(2705.24, 2231.10, 4864.41, 2.00)
        pt3dadd(2704.30, 2267.26, 4854.97, 2.00)
        pt3dadd(2706.16, 2269.15, 4856.75, 2.00)
        pt3dadd(2707.79, 2274.93, 4858.36, 2.00)
        pt3dadd(2710.12, 2274.37, 4856.83, 2.00)
        pt3dadd(2711.98, 2275.69, 4856.35, 2.00)
        pt3dadd(2713.37, 2282.24, 4853.97, 2.00)
        pt3dadd(2714.30, 2281.55, 4855.46, 2.00)
        pt3dadd(2711.75, 2284.61, 4857.07, 2.00)
        pt3dadd(2709.89, 2286.57, 4856.35, 2.00)
        pt3dadd(2706.16, 2288.76, 4855.56, 2.00)
        pt3dadd(2704.30, 2287.45, 4856.03, 2.00)
        pt3dadd(2702.21, 2291.20, 4856.15, 2.00)
        pt3dadd(2705.00, 2290.81, 4855.06, 2.00)
        pt3dadd(2704.07, 2293.31, 4855.14, 2.00)
        pt3dadd(2704.07, 2295.20, 4856.92, 2.00)
        pt3dadd(2703.84, 2294.40, 4854.74, 2.00)
        pt3dadd(2705.70, 2297.90, 4853.47, 2.00)
        pt3dadd(2706.40, 2301.57, 4853.37, 2.00)
        pt3dadd(2707.09, 2307.83, 4853.56, 2.00)
        pt3dadd(2705.47, 2304.16, 4853.66, 2.00)
        pt3dadd(2706.86, 2308.45, 4851.85, 2.00)
        pt3dadd(2708.49, 2311.72, 4850.66, 2.00)
        pt3dadd(2710.35, 2312.64, 4849.09, 2.00)
        pt3dadd(2709.19, 2316.79, 4847.58, 2.00)
        pt3dadd(2711.05, 2318.90, 4849.29, 2.00)
        pt3dadd(2711.05, 2317.41, 4848.59, 2.00)
        pt3dadd(2708.96, 2318.28, 4848.27, 2.00)
        pt3dadd(2709.89, 2320.86, 4851.29, 2.00)
        pt3dadd(2707.33, 2321.74, 4850.98, 2.00)
        pt3dadd(2709.19, 2321.04, 4852.47, 2.00)
        pt3dadd(2710.12, 2323.55, 4855.27, 2.00)
        pt3dadd(2714.54, 2326.75, 4856.58, 2.00)
        pt3dadd(2714.30, 2331.52, 4856.08, 2.00)
        pt3dadd(2715.23, 2334.10, 4856.38, 2.00)
        pt3dadd(2715.93, 2341.53, 4856.39, 2.00)
        pt3dadd(2716.86, 2341.45, 4856.18, 2.00)
        pt3dadd(2715.93, 2348.54, 4851.86, 2.00)
        pt3dadd(2719.65, 2348.60, 4851.35, 2.00)
        pt3dadd(2715.47, 2349.42, 4854.27, 2.00)
        pt3dadd(2712.91, 2350.77, 4855.26, 2.00)
        pt3dadd(2711.75, 2349.36, 4854.78, 2.00)
        pt3dadd(2712.68, 2351.46, 4853.77, 2.00)
        pt3dadd(2714.07, 2360.74, 4851.38, 2.00)
        pt3dadd(2714.07, 2365.51, 4850.88, 2.00)
        pt3dadd(2713.61, 2366.39, 4853.29, 2.00)
        pt3dadd(2713.37, 2365.99, 4852.19, 2.00)
        pt3dadd(2715.47, 2367.22, 4848.78, 2.00)
        pt3dadd(2717.33, 2369.94, 4848.78, 2.00)
        pt3dadd(2715.70, 2376.54, 4850.58, 2.00)
        pt3dadd(2715.70, 2382.80, 4850.78, 2.00)
        pt3dadd(2715.00, 2383.59, 4852.96, 2.00)
        pt3dadd(2711.05, 2382.34, 4850.20, 2.00)
        pt3dadd(2715.23, 2388.18, 4848.57, 2.00)
        pt3dadd(2712.68, 2391.93, 4848.69, 2.00)
        pt3dadd(2711.75, 2392.89, 4848.59, 2.00)
        pt3dadd(2711.51, 2398.35, 4846.60, 2.00)
  }
  nakeaxon[360] {pt3dclear()
        pt3dadd(2711.51, 2398.35, 4846.60, 2.00)
        pt3dadd(2712.68, 2392.33, 4849.78, 2.00)
        pt3dadd(2710.12, 2391.66, 4852.01, 2.00)
        pt3dadd(2711.28, 2394.56, 4853.18, 2.00)
        pt3dadd(2707.56, 2398.69, 4850.93, 2.00)
        pt3dadd(2705.70, 2400.04, 4851.93, 2.00)
        pt3dadd(2704.77, 2401.53, 4852.62, 2.00)
        pt3dadd(2702.21, 2405.84, 4851.55, 2.00)
        pt3dadd(2701.05, 2413.20, 4851.35, 2.00)
        pt3dadd(2702.21, 2415.78, 4851.64, 2.00)
        pt3dadd(2704.77, 2410.85, 4854.43, 2.00)
        pt3dadd(2702.21, 2410.49, 4857.53, 2.00)
        pt3dadd(2702.68, 2412.38, 4859.31, 2.00)
        pt3dadd(2700.82, 2417.63, 4860.13, 2.00)
        pt3dadd(2698.96, 2420.29, 4860.64, 2.00)
        pt3dadd(2698.26, 2421.86, 4861.56, 2.00)
        pt3dadd(2697.56, 2422.12, 4862.95, 2.00)
        pt3dadd(2697.09, 2423.31, 4866.23, 2.00)
        pt3dadd(2695.70, 2422.78, 4868.15, 2.00)
        pt3dadd(2695.00, 2423.25, 4869.46, 2.00)
        pt3dadd(2694.07, 2423.65, 4870.56, 2.00)
  }
}
proc geometry48() {
  nakeaxon[360] {
        pt3dadd(2692.21, 2424.92, 4871.33, 2.00)
        pt3dadd(2690.58, 2431.26, 4871.75, 2.00)
        pt3dadd(2689.89, 2431.82, 4873.28, 2.00)
        pt3dadd(2689.19, 2433.71, 4875.06, 2.00)
        pt3dadd(2687.56, 2436.55, 4876.75, 2.00)
        pt3dadd(2686.40, 2438.81, 4876.17, 2.00)
        pt3dadd(2686.86, 2439.69, 4878.58, 2.00)
        pt3dadd(2685.47, 2440.09, 4879.67, 2.00)
        pt3dadd(2684.30, 2440.35, 4881.06, 2.00)
        pt3dadd(2682.68, 2448.25, 4882.39, 2.00)
        pt3dadd(2681.28, 2449.05, 4884.58, 2.00)
        pt3dadd(2680.35, 2449.53, 4885.89, 2.00)
        pt3dadd(2680.12, 2456.48, 4884.59, 2.00)
        pt3dadd(2679.19, 2454.95, 4887.87, 2.00)
        pt3dadd(2678.26, 2456.92, 4889.88, 2.00)
        pt3dadd(2676.40, 2460.67, 4890.00, 2.00)
        pt3dadd(2676.40, 2461.07, 4891.09, 2.00)
        pt3dadd(2675.00, 2461.81, 4893.79, 2.00)
        pt3dadd(2673.61, 2462.28, 4895.10, 2.00)
        pt3dadd(2670.82, 2463.93, 4896.23, 2.00)
        pt3dadd(2669.89, 2463.72, 4896.31, 2.00)
        pt3dadd(2669.42, 2463.50, 4899.12, 2.00)
        pt3dadd(2669.65, 2463.89, 4900.21, 2.00)
        pt3dadd(2668.96, 2464.99, 4899.81, 2.00)
        pt3dadd(2668.03, 2467.65, 4900.33, 2.00)
        pt3dadd(2666.16, 2469.22, 4901.24, 2.00)
        pt3dadd(2665.24, 2469.40, 4902.41, 2.00)
        pt3dadd(2663.37, 2470.57, 4902.23, 2.00)
        pt3dadd(2663.37, 2474.25, 4902.13, 2.00)
        pt3dadd(2662.44, 2480.27, 4901.67, 2.00)
        pt3dadd(2663.37, 2481.68, 4902.15, 2.00)
        pt3dadd(2661.51, 2486.53, 4901.87, 2.00)
        pt3dadd(2661.05, 2478.74, 4904.95, 2.00)
        pt3dadd(2660.58, 2480.63, 4906.74, 2.00)
        pt3dadd(2659.65, 2485.55, 4906.68, 2.00)
        pt3dadd(2658.26, 2486.43, 4909.08, 2.00)
        pt3dadd(2659.65, 2486.13, 4911.67, 2.00)
        pt3dadd(2657.79, 2491.46, 4912.70, 2.00)
        pt3dadd(2655.23, 2493.21, 4914.78, 2.00)
        pt3dadd(2653.84, 2497.28, 4915.77, 2.00)
        pt3dadd(2651.98, 2497.62, 4917.39, 2.00)
        pt3dadd(2650.82, 2503.56, 4916.71, 2.00)
        pt3dadd(2651.05, 2507.63, 4917.70, 2.00)
        pt3dadd(2649.65, 2510.08, 4921.02, 2.00)
        pt3dadd(2649.42, 2509.78, 4923.60, 2.00)
        pt3dadd(2648.49, 2511.35, 4924.51, 2.00)
        pt3dadd(2646.63, 2515.98, 4924.31, 2.00)
        pt3dadd(2644.77, 2519.12, 4926.14, 2.00)
        pt3dadd(2644.07, 2519.52, 4927.23, 2.00)
        pt3dadd(2638.72, 2525.79, 4928.16, 2.00)
        pt3dadd(2636.63, 2531.62, 4931.24, 2.00)
        pt3dadd(2635.00, 2532.97, 4934.96, 2.00)
        pt3dadd(2634.30, 2535.95, 4936.35, 2.00)
        pt3dadd(2632.91, 2541.45, 4938.55, 2.00)
        pt3dadd(2629.19, 2545.21, 4938.67, 2.00)
        pt3dadd(2626.86, 2545.55, 4940.28, 2.00)
        pt3dadd(2625.24, 2547.12, 4941.19, 2.00)
        pt3dadd(2625.24, 2547.52, 4942.28, 2.00)
        pt3dadd(2623.84, 2548.65, 4946.08, 2.00)
        pt3dadd(2623.84, 2551.23, 4946.38, 2.00)
        pt3dadd(2622.91, 2552.72, 4947.07, 2.00)
        pt3dadd(2622.21, 2553.28, 4948.60, 2.00)
        pt3dadd(2621.05, 2560.93, 4945.82, 2.00)
        pt3dadd(2617.56, 2563.85, 4947.73, 2.00)
        pt3dadd(2616.16, 2563.63, 4950.53, 2.00)
        pt3dadd(2615.70, 2564.03, 4951.62, 2.00)
        pt3dadd(2613.14, 2564.45, 4953.45, 2.00)
        pt3dadd(2615.24, 2559.92, 4954.60, 2.00)
        pt3dadd(2615.70, 2570.77, 4953.13, 2.00)
        pt3dadd(2615.47, 2571.86, 4952.73, 2.00)
        pt3dadd(2617.56, 2576.43, 4958.49, 2.00)
        pt3dadd(2616.40, 2581.06, 4961.01, 2.00)
        pt3dadd(2616.86, 2584.36, 4963.28, 2.00)
        pt3dadd(2615.70, 2587.72, 4962.30, 2.00)
        pt3dadd(2616.86, 2591.79, 4963.29, 2.00)
        pt3dadd(2615.93, 2597.03, 4964.11, 2.00)
        pt3dadd(2616.40, 2598.92, 4965.89, 2.00)
        pt3dadd(2616.40, 2599.40, 4967.21, 2.00)
        pt3dadd(2616.16, 2600.19, 4969.39, 2.00)
        pt3dadd(2615.24, 2600.28, 4969.61, 2.00)
        pt3dadd(2613.61, 2603.12, 4971.30, 2.00)
        pt3dadd(2612.68, 2605.30, 4970.50, 2.00)
        pt3dadd(2612.91, 2608.36, 4972.11, 2.00)
        pt3dadd(2613.14, 2607.67, 4973.60, 2.00)
        pt3dadd(2611.28, 2614.78, 4972.74, 2.00)
        pt3dadd(2607.79, 2615.12, 4974.35, 2.00)
        pt3dadd(2605.24, 2615.46, 4975.96, 2.00)
        pt3dadd(2603.37, 2616.81, 4979.68, 2.00)
        pt3dadd(2601.05, 2615.98, 4981.47, 2.00)
        pt3dadd(2602.21, 2615.90, 4983.97, 2.00)
        pt3dadd(2599.65, 2618.50, 4985.00, 2.00)
        pt3dadd(2598.72, 2622.25, 4985.12, 2.00)
        pt3dadd(2597.79, 2625.93, 4985.02, 2.00)
        pt3dadd(2598.02, 2630.48, 4987.32, 2.00)
        pt3dadd(2597.09, 2631.36, 4989.73, 2.00)
        pt3dadd(2595.47, 2632.01, 4992.21, 2.00)
        pt3dadd(2595.70, 2632.41, 4993.30, 2.00)
        pt3dadd(2595.93, 2635.47, 4994.91, 2.00)
        pt3dadd(2593.14, 2636.64, 4994.73, 2.00)
        pt3dadd(2591.51, 2640.18, 4994.93, 2.00)
        pt3dadd(2589.42, 2645.72, 4993.16, 2.00)
        pt3dadd(2590.58, 2649.18, 4995.86, 2.00)
        pt3dadd(2590.82, 2644.81, 4997.45, 2.00)
        pt3dadd(2598.26, 2643.44, 4995.72, 2.00)
        pt3dadd(2596.16, 2650.09, 4997.01, 2.00)
        pt3dadd(2596.16, 2653.15, 4998.62, 2.00)
        pt3dadd(2596.86, 2659.41, 4998.82, 2.00)
        pt3dadd(2598.72, 2664.58, 4999.41, 2.00)
        pt3dadd(2599.89, 2668.65, 5000.41, 2.00)
        pt3dadd(2600.82, 2670.76, 5002.11, 2.00)
        pt3dadd(2599.89, 2674.43, 5002.01, 2.00)
        pt3dadd(2599.89, 2677.49, 5003.62, 2.00)
        pt3dadd(2599.89, 2678.29, 5005.81, 2.00)
        pt3dadd(2600.58, 2683.46, 5006.40, 2.00)
        pt3dadd(2602.44, 2684.95, 5007.10, 2.00)
        pt3dadd(2600.82, 2686.91, 5009.10, 2.00)
        pt3dadd(2600.12, 2688.80, 5010.89, 2.00)
        pt3dadd(2600.35, 2690.77, 5012.90, 2.00)
        pt3dadd(2599.42, 2695.10, 5015.28, 2.00)
        pt3dadd(2598.26, 2699.10, 5016.05, 2.00)
        pt3dadd(2597.56, 2699.65, 5017.58, 2.00)
        pt3dadd(2596.63, 2700.74, 5017.18, 2.00)
        pt3dadd(2596.63, 2701.62, 5019.59, 2.00)
        pt3dadd(2595.24, 2700.85, 5020.86, 2.00)
        pt3dadd(2596.63, 2708.36, 5021.10, 2.00)
        pt3dadd(2594.07, 2712.21, 5022.17, 2.00)
        pt3dadd(2594.30, 2714.10, 5023.96, 2.00)
        pt3dadd(2595.93, 2718.39, 5024.87, 2.00)
        pt3dadd(2597.56, 2720.97, 5025.17, 2.00)
        pt3dadd(2596.86, 2722.86, 5026.95, 2.00)
        pt3dadd(2596.16, 2723.74, 5029.36, 2.00)
        pt3dadd(2597.09, 2724.61, 5031.76, 2.00)
        pt3dadd(2598.26, 2724.93, 5032.64, 2.00)
        pt3dadd(2602.68, 2724.99, 5032.12, 2.00)
        pt3dadd(2602.21, 2726.34, 5035.84, 2.00)
        pt3dadd(2601.28, 2727.14, 5038.02, 2.00)
        pt3dadd(2601.28, 2733.00, 5037.12, 2.00)
        pt3dadd(2601.28, 2733.40, 5038.22, 2.00)
        pt3dadd(2601.98, 2745.99, 5038.83, 2.00)
        pt3dadd(2601.75, 2752.95, 5037.53, 2.00)
        pt3dadd(2602.44, 2745.88, 5045.31, 2.00)
        pt3dadd(2603.37, 2745.72, 5047.59, 2.00)
        pt3dadd(2603.61, 2748.08, 5050.69, 2.00)
        pt3dadd(2602.91, 2752.63, 5052.99, 2.00)
        pt3dadd(2601.98, 2755.00, 5053.37, 2.00)
        pt3dadd(2601.75, 2749.02, 5060.74, 2.00)
        pt3dadd(2603.84, 2750.11, 5063.07, 2.00)
        pt3dadd(2604.07, 2761.76, 5061.06, 2.00)
        pt3dadd(2604.07, 2764.74, 5062.45, 2.00)
        pt3dadd(2607.56, 2755.60, 5067.26, 2.00)
  }
}
proc geometry49() {
  nakeaxon[360] {
        pt3dadd(2608.49, 2755.92, 5068.13, 2.00)
  }
  nakeaxon[361] {pt3dclear()
        pt3dadd(2711.51, 2398.35, 4846.60, 2.00)
        pt3dadd(2710.82, 2401.93, 4842.83, 2.00)
        pt3dadd(2710.58, 2408.80, 4841.31, 2.00)
        pt3dadd(2712.44, 2409.71, 4839.74, 2.00)
        pt3dadd(2712.44, 2413.09, 4842.23, 2.00)
        pt3dadd(2708.03, 2409.97, 4841.13, 2.00)
        pt3dadd(2705.24, 2413.99, 4842.64, 2.00)
        pt3dadd(2710.58, 2404.91, 4844.22, 2.00)
        pt3dadd(2709.19, 2406.18, 4847.71, 2.00)
        pt3dadd(2711.05, 2405.70, 4846.40, 2.00)
        pt3dadd(2711.75, 2405.52, 4845.23, 2.00)
        pt3dadd(2713.37, 2407.33, 4846.80, 2.00)
        pt3dadd(2715.47, 2407.57, 4847.45, 2.00)
        pt3dadd(2714.77, 2418.50, 4843.48, 2.00)
        pt3dadd(2714.54, 2418.79, 4840.89, 2.00)
        pt3dadd(2713.84, 2420.76, 4842.90, 2.00)
        pt3dadd(2711.98, 2421.93, 4842.72, 2.00)
        pt3dadd(2711.05, 2423.98, 4842.22, 2.00)
        pt3dadd(2709.89, 2426.17, 4841.43, 2.00)
        pt3dadd(2713.14, 2429.11, 4838.62, 2.00)
        pt3dadd(2708.96, 2426.25, 4841.65, 2.00)
        pt3dadd(2707.09, 2430.70, 4840.27, 2.00)
        pt3dadd(2707.33, 2431.57, 4842.68, 2.00)
        pt3dadd(2708.03, 2436.96, 4840.47, 2.00)
        pt3dadd(2707.56, 2437.17, 4837.67, 2.00)
        pt3dadd(2708.49, 2436.08, 4838.07, 2.00)
        pt3dadd(2709.65, 2437.57, 4838.76, 2.00)
        pt3dadd(2709.19, 2437.67, 4842.44, 2.00)
        pt3dadd(2710.35, 2438.47, 4844.62, 2.00)
        pt3dadd(2712.21, 2445.38, 4839.14, 2.00)
        pt3dadd(2710.58, 2445.46, 4839.36, 2.00)
        pt3dadd(2708.49, 2444.60, 4837.69, 2.00)
        pt3dadd(2710.35, 2443.35, 4837.65, 2.00)
        pt3dadd(2711.75, 2449.35, 4836.45, 2.00)
        pt3dadd(2713.61, 2449.27, 4836.24, 2.00)
        pt3dadd(2712.91, 2451.24, 4838.24, 2.00)
        pt3dadd(2715.47, 2461.61, 4835.46, 2.00)
        pt3dadd(2711.51, 2462.17, 4834.26, 2.00)
        pt3dadd(2709.89, 2463.12, 4834.16, 2.00)
        pt3dadd(2712.68, 2466.32, 4835.47, 2.00)
        pt3dadd(2710.82, 2469.68, 4834.50, 2.00)
        pt3dadd(2707.79, 2470.15, 4833.09, 2.00)
        pt3dadd(2708.03, 2470.63, 4834.40, 2.00)
        pt3dadd(2714.54, 2469.12, 4835.69, 2.00)
        pt3dadd(2712.21, 2468.37, 4837.70, 2.00)
        pt3dadd(2710.58, 2469.16, 4839.89, 2.00)
        pt3dadd(2713.37, 2470.17, 4839.27, 2.00)
        pt3dadd(2714.54, 2479.06, 4835.79, 2.00)
        pt3dadd(2716.40, 2478.98, 4835.57, 2.00)
        pt3dadd(2717.33, 2480.55, 4836.48, 2.00)
        pt3dadd(2717.56, 2479.85, 4837.97, 2.00)
        pt3dadd(2715.70, 2481.02, 4837.80, 2.00)
        pt3dadd(2713.14, 2479.79, 4838.49, 2.00)
        pt3dadd(2713.84, 2487.44, 4835.71, 2.00)
        pt3dadd(2713.84, 2485.26, 4836.50, 2.00)
        pt3dadd(2713.14, 2488.35, 4831.41, 2.00)
        pt3dadd(2714.07, 2492.64, 4832.33, 2.00)
        pt3dadd(2712.68, 2495.88, 4835.11, 2.00)
        pt3dadd(2712.21, 2498.37, 4831.73, 2.00)
        pt3dadd(2713.84, 2501.09, 4831.73, 2.00)
        pt3dadd(2714.77, 2505.86, 4831.23, 2.00)
        pt3dadd(2715.70, 2506.17, 4832.11, 2.00)
        pt3dadd(2713.37, 2506.04, 4832.40, 2.00)
        pt3dadd(2715.00, 2507.13, 4834.73, 2.00)
        pt3dadd(2713.84, 2508.44, 4831.53, 2.00)
        pt3dadd(2717.33, 2512.04, 4831.21, 2.00)
        pt3dadd(2718.26, 2513.67, 4831.61, 2.00)
        pt3dadd(2718.49, 2516.65, 4833.00, 2.00)
        pt3dadd(2717.56, 2517.60, 4832.90, 2.00)
        pt3dadd(2718.49, 2521.81, 4833.59, 2.00)
        pt3dadd(2718.49, 2529.24, 4833.61, 2.00)
        pt3dadd(2718.49, 2532.92, 4833.51, 2.00)
        pt3dadd(2718.96, 2534.19, 4837.01, 2.00)
        pt3dadd(2715.47, 2539.58, 4832.08, 2.00)
        pt3dadd(2716.63, 2540.29, 4834.04, 2.00)
        pt3dadd(2717.56, 2540.91, 4835.06, 2.00)
        pt3dadd(2719.42, 2544.50, 4834.74, 2.00)
        pt3dadd(2719.65, 2548.58, 4835.73, 2.00)
        pt3dadd(2718.49, 2548.26, 4834.86, 2.00)
        pt3dadd(2715.70, 2551.00, 4832.87, 2.00)
        pt3dadd(2714.54, 2555.85, 4832.59, 2.00)
        pt3dadd(2712.91, 2558.91, 4834.20, 2.00)
        pt3dadd(2715.00, 2560.32, 4834.67, 2.00)
        pt3dadd(2716.40, 2561.63, 4831.47, 2.00)
        pt3dadd(2717.10, 2565.44, 4831.07, 2.00)
        pt3dadd(2715.70, 2571.46, 4827.89, 2.00)
        pt3dadd(2719.42, 2575.60, 4828.37, 2.00)
        pt3dadd(2721.98, 2577.84, 4827.06, 2.00)
        pt3dadd(2719.89, 2576.91, 4825.17, 2.00)
        pt3dadd(2721.28, 2581.02, 4822.19, 2.00)
        pt3dadd(2722.44, 2583.22, 4824.85, 2.00)
        pt3dadd(2722.21, 2584.00, 4823.58, 2.00)
        pt3dadd(2724.30, 2583.07, 4824.41, 2.00)
        pt3dadd(2720.82, 2583.30, 4825.07, 2.00)
        pt3dadd(2719.89, 2589.50, 4825.78, 2.00)
        pt3dadd(2721.75, 2590.74, 4825.09, 2.00)
        pt3dadd(2722.44, 2590.65, 4824.87, 2.00)
        pt3dadd(2722.21, 2591.35, 4823.38, 2.00)
        pt3dadd(2723.84, 2593.38, 4822.14, 2.00)
        pt3dadd(2726.40, 2595.70, 4821.05, 2.00)
        pt3dadd(2723.14, 2600.89, 4822.38, 2.00)
        pt3dadd(2721.51, 2604.64, 4822.50, 2.00)
        pt3dadd(2718.96, 2605.99, 4823.49, 2.00)
        pt3dadd(2715.93, 2582.47, 4824.14, 2.00)
        pt3dadd(2716.16, 2585.67, 4825.45, 2.00)
        pt3dadd(2717.79, 2590.44, 4824.95, 2.00)
        pt3dadd(2718.26, 2594.81, 4823.36, 2.00)
        pt3dadd(2716.40, 2596.60, 4821.47, 2.00)
        pt3dadd(2717.10, 2584.58, 4825.84, 2.00)
        pt3dadd(2716.16, 2601.44, 4821.19, 2.00)
  }
  nakeaxon[362] {pt3dclear()
        pt3dadd(2716.16, 2601.44, 4821.19, 2.00)
        pt3dadd(2718.03, 2586.07, 4826.54, 2.00)
        pt3dadd(2718.49, 2593.42, 4826.34, 2.00)
        pt3dadd(2718.96, 2595.31, 4828.12, 2.00)
        pt3dadd(2720.58, 2593.74, 4829.93, 2.00)
        pt3dadd(2720.58, 2599.38, 4831.84, 2.00)
        pt3dadd(2719.89, 2603.93, 4831.42, 2.00)
        pt3dadd(2718.96, 2604.33, 4832.51, 2.00)
        pt3dadd(2718.26, 2605.20, 4834.92, 2.00)
        pt3dadd(2717.33, 2606.77, 4835.83, 2.00)
        pt3dadd(2716.63, 2607.49, 4837.80, 2.00)
        pt3dadd(2715.93, 2608.84, 4841.51, 2.00)
        pt3dadd(2716.16, 2608.94, 4845.19, 2.00)
        pt3dadd(2715.70, 2609.82, 4847.59, 2.00)
        pt3dadd(2712.68, 2615.93, 4848.09, 2.00)
        pt3dadd(2711.05, 2618.92, 4849.48, 2.00)
        pt3dadd(2710.12, 2619.25, 4851.09, 2.00)
        pt3dadd(2708.49, 2621.22, 4853.09, 2.00)
        pt3dadd(2708.49, 2622.32, 4852.69, 2.00)
  }
  nakeaxon[363] {pt3dclear()
        pt3dadd(2708.49, 2622.32, 4852.69, 2.00)
        pt3dadd(2708.03, 2621.38, 4853.53, 2.00)
        pt3dadd(2708.49, 2622.18, 4855.72, 2.00)
        pt3dadd(2706.63, 2628.30, 4858.93, 2.00)
        pt3dadd(2704.54, 2631.75, 4858.91, 2.00)
        pt3dadd(2702.68, 2633.32, 4859.82, 2.00)
        pt3dadd(2701.05, 2634.60, 4860.60, 2.00)
        pt3dadd(2699.42, 2635.55, 4863.22, 2.00)
        pt3dadd(2699.65, 2636.35, 4865.41, 2.00)
        pt3dadd(2700.82, 2639.80, 4868.11, 2.00)
        pt3dadd(2700.82, 2640.60, 4870.29, 2.00)
        pt3dadd(2698.26, 2642.49, 4872.08, 2.00)
        pt3dadd(2696.40, 2645.33, 4873.77, 2.00)
        pt3dadd(2696.63, 2647.91, 4874.07, 2.00)
        pt3dadd(2697.09, 2649.58, 4878.65, 2.00)
        pt3dadd(2697.09, 2650.60, 4880.76, 2.00)
        pt3dadd(2697.33, 2652.27, 4885.35, 2.00)
        pt3dadd(2696.40, 2654.71, 4885.95, 2.00)
        pt3dadd(2696.40, 2657.29, 4886.24, 2.00)
        pt3dadd(2695.47, 2659.26, 4888.25, 2.00)
  }
}
proc geometry50() {
  nakeaxon[363] {
        pt3dadd(2692.91, 2660.14, 4890.65, 2.00)
        pt3dadd(2691.51, 2660.71, 4892.92, 2.00)
        pt3dadd(2691.05, 2660.97, 4897.03, 2.00)
        pt3dadd(2691.05, 2661.37, 4898.12, 2.00)
        pt3dadd(2690.12, 2664.35, 4899.51, 2.00)
        pt3dadd(2687.56, 2667.27, 4901.42, 2.00)
        pt3dadd(2687.33, 2668.76, 4902.11, 2.00)
        pt3dadd(2688.49, 2669.70, 4904.00, 2.00)
        pt3dadd(2686.63, 2671.05, 4905.00, 2.00)
        pt3dadd(2686.16, 2671.92, 4907.40, 2.00)
        pt3dadd(2684.54, 2673.20, 4910.90, 2.00)
        pt3dadd(2682.68, 2677.13, 4912.19, 2.00)
        pt3dadd(2682.91, 2677.53, 4913.28, 2.00)
        pt3dadd(2682.91, 2678.32, 4915.46, 2.00)
        pt3dadd(2682.21, 2679.20, 4917.87, 2.00)
        pt3dadd(2680.58, 2681.17, 4919.87, 2.00)
        pt3dadd(2680.82, 2681.56, 4920.97, 2.00)
        pt3dadd(2680.12, 2682.84, 4924.46, 2.00)
        pt3dadd(2679.19, 2683.71, 4926.87, 2.00)
        pt3dadd(2679.19, 2687.39, 4926.77, 2.00)
        pt3dadd(2677.56, 2689.53, 4929.94, 2.00)
        pt3dadd(2677.56, 2689.93, 4931.04, 2.00)
        pt3dadd(2675.23, 2690.73, 4933.22, 2.00)
        pt3dadd(2674.30, 2690.99, 4934.61, 2.00)
        pt3dadd(2673.61, 2691.46, 4935.93, 2.00)
        pt3dadd(2671.75, 2696.01, 4938.23, 2.00)
        pt3dadd(2670.12, 2695.32, 4939.72, 2.00)
        pt3dadd(2670.12, 2698.38, 4941.33, 2.00)
        pt3dadd(2669.65, 2697.46, 4942.90, 2.00)
        pt3dadd(2667.10, 2698.74, 4946.39, 2.00)
        pt3dadd(2665.24, 2700.79, 4948.62, 2.00)
        pt3dadd(2664.54, 2700.27, 4951.28, 2.00)
        pt3dadd(2662.91, 2704.42, 4952.49, 2.00)
        pt3dadd(2662.91, 2705.99, 4953.40, 2.00)
        pt3dadd(2660.35, 2706.97, 4956.76, 2.00)
        pt3dadd(2658.72, 2707.76, 4958.95, 2.00)
        pt3dadd(2658.26, 2708.72, 4961.57, 2.00)
        pt3dadd(2658.49, 2711.00, 4964.45, 2.00)
        pt3dadd(2657.56, 2714.06, 4966.06, 2.00)
        pt3dadd(2657.56, 2715.95, 4967.85, 2.00)
        pt3dadd(2656.63, 2718.93, 4969.24, 2.00)
        pt3dadd(2655.00, 2720.76, 4971.54, 2.00)
        pt3dadd(2654.07, 2722.33, 4972.45, 2.00)
        pt3dadd(2654.07, 2723.82, 4973.15, 2.00)
        pt3dadd(2651.75, 2724.70, 4975.55, 2.00)
        pt3dadd(2653.14, 2746.87, 4968.47, 2.00)
        pt3dadd(2652.21, 2748.86, 4973.94, 2.00)
        pt3dadd(2650.58, 2749.99, 4977.73, 2.00)
        pt3dadd(2648.96, 2755.31, 4978.76, 2.00)
        pt3dadd(2648.49, 2760.00, 4978.05, 2.00)
        pt3dadd(2647.10, 2763.06, 4979.65, 2.00)
        pt3dadd(2647.56, 2764.65, 4984.02, 2.00)
        pt3dadd(2646.63, 2766.70, 4986.25, 2.00)
        pt3dadd(2643.37, 2769.25, 4990.52, 2.00)
        pt3dadd(2642.68, 2772.38, 4992.35, 2.00)
        pt3dadd(2642.68, 2772.78, 4993.44, 2.00)
        pt3dadd(2642.91, 2773.58, 4995.63, 2.00)
        pt3dadd(2640.58, 2776.82, 4998.41, 2.00)
        pt3dadd(2640.82, 2779.10, 5001.29, 2.00)
        pt3dadd(2639.19, 2780.38, 5004.78, 2.00)
        pt3dadd(2638.26, 2780.85, 5006.10, 2.00)
        pt3dadd(2638.02, 2784.01, 5011.38, 2.00)
        pt3dadd(2637.56, 2785.37, 5015.09, 2.00)
        pt3dadd(2638.49, 2787.57, 5017.76, 2.00)
        pt3dadd(2638.02, 2786.96, 5019.47, 2.00)
        pt3dadd(2637.79, 2799.93, 5017.71, 2.00)
        pt3dadd(2638.02, 2800.11, 5021.61, 2.00)
        pt3dadd(2637.09, 2803.27, 5026.89, 2.00)
        pt3dadd(2636.16, 2804.62, 5027.88, 2.00)
        pt3dadd(2635.47, 2805.89, 5031.38, 2.00)
        pt3dadd(2635.70, 2806.69, 5033.57, 2.00)
        pt3dadd(2635.70, 2812.33, 5035.47, 2.00)
        pt3dadd(2635.00, 2813.13, 5037.66, 2.00)
        pt3dadd(2634.07, 2818.69, 5039.34, 2.00)
        pt3dadd(2634.54, 2819.97, 5042.84, 2.00)
        pt3dadd(2635.00, 2821.24, 5046.34, 2.00)
        pt3dadd(2633.14, 2821.72, 5047.65, 2.00)
        pt3dadd(2632.68, 2824.08, 5050.75, 2.00)
        pt3dadd(2632.21, 2825.27, 5054.03, 2.00)
        pt3dadd(2632.21, 2826.07, 5056.21, 2.00)
        pt3dadd(2632.21, 2828.65, 5056.51, 2.00)
        pt3dadd(2632.44, 2830.14, 5057.20, 2.00)
        pt3dadd(2633.37, 2832.11, 5059.21, 2.00)
        pt3dadd(2632.91, 2831.81, 5061.79, 2.00)
        pt3dadd(2631.98, 2835.35, 5064.71, 2.00)
        pt3dadd(2630.35, 2834.91, 5067.59, 2.00)
        pt3dadd(2630.82, 2836.50, 5071.96, 2.00)
        pt3dadd(2631.05, 2838.39, 5073.75, 2.00)
        pt3dadd(2632.91, 2842.76, 5074.88, 2.00)
        pt3dadd(2633.14, 2843.16, 5075.97, 2.00)
        pt3dadd(2633.37, 2844.36, 5079.25, 2.00)
        pt3dadd(2632.44, 2845.23, 5081.66, 2.00)
        pt3dadd(2631.75, 2846.03, 5083.84, 2.00)
        pt3dadd(2631.05, 2846.20, 5085.01, 2.00)
        pt3dadd(2631.28, 2848.17, 5087.02, 2.00)
        pt3dadd(2630.35, 2849.05, 5089.42, 2.00)
        pt3dadd(2632.44, 2849.90, 5091.09, 2.00)
        pt3dadd(2632.21, 2856.32, 5091.73, 2.00)
        pt3dadd(2631.05, 2854.02, 5096.28, 2.00)
        pt3dadd(2631.28, 2856.06, 5098.50, 2.00)
        pt3dadd(2631.28, 2854.97, 5098.90, 2.00)
        pt3dadd(2631.28, 2855.77, 5101.09, 2.00)
        pt3dadd(2631.28, 2856.96, 5104.36, 2.00)
        pt3dadd(2631.51, 2857.14, 5108.26, 2.00)
        pt3dadd(2630.58, 2860.04, 5109.43, 2.00)
        pt3dadd(2629.89, 2863.18, 5111.26, 2.00)
        pt3dadd(2628.03, 2864.06, 5113.66, 2.00)
        pt3dadd(2627.33, 2864.45, 5114.75, 2.00)
        pt3dadd(2626.40, 2866.20, 5116.84, 2.00)
        pt3dadd(2624.30, 2867.16, 5119.46, 2.00)
        pt3dadd(2622.44, 2867.73, 5121.72, 2.00)
        pt3dadd(2622.44, 2870.40, 5122.24, 2.00)
        pt3dadd(2623.14, 2873.28, 5122.68, 2.00)
        pt3dadd(2624.07, 2874.07, 5124.86, 2.00)
        pt3dadd(2622.68, 2874.11, 5129.06, 2.00)
        pt3dadd(2623.14, 2876.62, 5131.86, 2.00)
        pt3dadd(2623.37, 2878.98, 5134.95, 2.00)
        pt3dadd(2622.68, 2883.93, 5138.35, 2.00)
        pt3dadd(2621.05, 2885.60, 5140.22, 2.00)
        pt3dadd(2621.28, 2887.49, 5142.01, 2.00)
        pt3dadd(2620.82, 2890.33, 5146.42, 2.00)
        pt3dadd(2619.65, 2891.82, 5147.11, 2.00)
        pt3dadd(2618.96, 2894.19, 5150.21, 2.00)
        pt3dadd(2620.35, 2897.57, 5152.69, 2.00)
        pt3dadd(2619.42, 2899.53, 5154.70, 2.00)
        pt3dadd(2619.42, 2902.12, 5155.00, 2.00)
        pt3dadd(2616.16, 2900.27, 5157.40, 2.00)
        pt3dadd(2615.24, 2902.77, 5157.48, 2.00)
        pt3dadd(2614.77, 2904.12, 5161.19, 2.00)
        pt3dadd(2612.21, 2902.60, 5164.47, 2.00)
        pt3dadd(2612.68, 2896.91, 5169.26, 2.00)
        pt3dadd(2610.58, 2900.37, 5171.96, 2.00)
        pt3dadd(2607.10, 2901.90, 5176.85, 2.00)
        pt3dadd(2606.63, 2903.87, 5178.86, 2.00)
        pt3dadd(2606.63, 2904.27, 5179.95, 2.00)
        pt3dadd(2606.86, 2903.18, 5180.35, 2.00)
        pt3dadd(2606.86, 2904.05, 5182.75, 2.00)
        pt3dadd(2603.37, 2906.20, 5185.93, 2.00)
        pt3dadd(2604.30, 2907.61, 5186.41, 2.00)
        pt3dadd(2604.77, 2909.10, 5189.82, 2.00)
        pt3dadd(2603.84, 2913.03, 5191.11, 2.00)
        pt3dadd(2600.58, 2915.08, 5193.34, 2.00)
        pt3dadd(2598.96, 2916.83, 5195.42, 2.00)
        pt3dadd(2598.02, 2917.55, 5197.39, 2.00)
        pt3dadd(2597.56, 2918.50, 5200.01, 2.00)
        pt3dadd(2597.33, 2918.90, 5201.11, 2.00)
        pt3dadd(2597.79, 2919.69, 5203.29, 2.00)
        pt3dadd(2597.09, 2920.09, 5204.38, 2.00)
        pt3dadd(2596.16, 2926.51, 5205.02, 2.00)
        pt3dadd(2595.70, 2921.44, 5208.10, 2.00)
  }
}
proc geometry51() {
  nakeaxon[363] {
        pt3dadd(2594.77, 2924.21, 5209.57, 2.00)
        pt3dadd(2594.54, 2925.30, 5209.17, 2.00)
        pt3dadd(2598.26, 2933.04, 5250.16, 2.00)
        pt3dadd(2598.49, 2935.11, 5255.84, 2.00)
        pt3dadd(2598.49, 2940.35, 5256.65, 2.00)
        pt3dadd(2597.79, 2942.56, 5259.31, 2.00)
        pt3dadd(2596.63, 2944.13, 5260.23, 2.00)
        pt3dadd(2596.16, 2944.61, 5261.54, 2.00)
        pt3dadd(2596.16, 2945.70, 5261.14, 2.00)
  }
  nakeaxon[364] {pt3dclear()
        pt3dadd(2596.16, 2945.70, 5261.14, 2.00)
        pt3dadd(2597.09, 2952.93, 5267.42, 2.00)
        pt3dadd(2597.09, 2953.73, 5269.60, 2.00)
        pt3dadd(2595.93, 2949.14, 5274.00, 2.00)
        pt3dadd(2595.24, 2950.19, 5277.57, 2.00)
        pt3dadd(2595.24, 2951.07, 5279.98, 2.00)
        pt3dadd(2594.30, 2953.28, 5282.64, 2.00)
        pt3dadd(2593.61, 2953.75, 5283.95, 2.00)
        pt3dadd(2593.84, 2955.03, 5287.44, 2.00)
        pt3dadd(2591.28, 2955.42, 5288.54, 2.00)
        pt3dadd(2592.21, 2957.09, 5293.13, 2.00)
        pt3dadd(2590.82, 2958.07, 5296.48, 2.00)
        pt3dadd(2591.05, 2959.74, 5301.07, 2.00)
        pt3dadd(2591.05, 2966.00, 5303.99, 2.00)
        pt3dadd(2590.35, 2968.54, 5308.26, 2.00)
        pt3dadd(2589.89, 2962.78, 5312.84, 2.00)
        pt3dadd(2589.19, 2960.78, 5317.52, 2.00)
        pt3dadd(2588.49, 2961.73, 5320.15, 2.00)
        pt3dadd(2588.49, 2962.13, 5321.24, 2.00)
        pt3dadd(2588.03, 2965.21, 5326.30, 2.00)
        pt3dadd(2586.40, 2964.99, 5326.39, 2.00)
  }
  nakeaxon[365] {pt3dclear()
        pt3dadd(2596.16, 2945.70, 5261.14, 2.00)
        pt3dadd(2593.37, 2946.36, 5263.62, 2.00)
        pt3dadd(2592.44, 2948.24, 5265.41, 2.00)
        pt3dadd(2592.68, 2948.72, 5266.72, 2.00)
        pt3dadd(2592.68, 2949.52, 5268.91, 2.00)
  }
  nakeaxon[366] {pt3dclear()
        pt3dadd(2708.49, 2622.32, 4852.69, 2.00)
        pt3dadd(2709.65, 2623.03, 4854.66, 2.00)
        pt3dadd(2711.05, 2626.84, 4854.26, 2.00)
        pt3dadd(2710.12, 2631.95, 4855.37, 2.00)
        pt3dadd(2711.28, 2634.38, 4857.96, 2.00)
        pt3dadd(2710.35, 2634.72, 4859.57, 2.00)
        pt3dadd(2710.58, 2637.22, 4862.37, 2.00)
        pt3dadd(2711.51, 2639.72, 4862.44, 2.00)
        pt3dadd(2713.61, 2641.00, 4865.94, 2.00)
        pt3dadd(2714.54, 2643.90, 4867.11, 2.00)
        pt3dadd(2714.54, 2645.86, 4869.12, 2.00)
        pt3dadd(2713.84, 2647.83, 4871.13, 2.00)
        pt3dadd(2714.77, 2648.37, 4871.92, 2.00)
        pt3dadd(2714.77, 2653.32, 4872.59, 2.00)
        pt3dadd(2715.00, 2654.81, 4876.01, 2.00)
        pt3dadd(2715.23, 2657.79, 4877.40, 2.00)
        pt3dadd(2715.23, 2659.76, 4879.41, 2.00)
        pt3dadd(2717.10, 2660.47, 4881.37, 2.00)
        pt3dadd(2716.16, 2662.74, 4880.80, 2.00)
        pt3dadd(2716.16, 2663.53, 4882.98, 2.00)
        pt3dadd(2717.33, 2666.51, 4884.37, 2.00)
        pt3dadd(2715.70, 2666.29, 4887.17, 2.00)
        pt3dadd(2716.63, 2667.17, 4889.58, 2.00)
        pt3dadd(2715.00, 2668.36, 4892.86, 2.00)
        pt3dadd(2715.23, 2668.76, 4893.95, 2.00)
        pt3dadd(2715.47, 2669.63, 4896.35, 2.00)
        pt3dadd(2715.47, 2670.03, 4897.45, 2.00)
        pt3dadd(2715.70, 2670.83, 4899.63, 2.00)
        pt3dadd(2715.47, 2678.18, 4899.43, 2.00)
        pt3dadd(2716.40, 2678.58, 4900.52, 2.00)
        pt3dadd(2716.40, 2680.46, 4902.31, 2.00)
        pt3dadd(2715.00, 2681.34, 4904.71, 2.00)
        pt3dadd(2715.93, 2682.61, 4908.21, 2.00)
        pt3dadd(2717.10, 2682.93, 4909.09, 2.00)
        pt3dadd(2716.16, 2694.97, 4908.17, 2.00)
        pt3dadd(2715.23, 2698.03, 4909.78, 2.00)
        pt3dadd(2714.77, 2711.94, 4907.19, 2.00)
        pt3dadd(2714.07, 2708.74, 4908.60, 2.00)
  }
  nakeaxon[367] {pt3dclear()
        pt3dadd(2716.16, 2601.44, 4821.19, 2.00)
        pt3dadd(2716.86, 2607.22, 4820.07, 2.00)
        pt3dadd(2716.86, 2607.62, 4821.17, 2.00)
        pt3dadd(2714.77, 2613.34, 4820.57, 2.00)
        pt3dadd(2716.86, 2614.97, 4820.97, 2.00)
        pt3dadd(2717.56, 2616.76, 4819.08, 2.00)
        pt3dadd(2715.47, 2620.12, 4818.10, 2.00)
        pt3dadd(2718.49, 2619.74, 4820.47, 2.00)
        pt3dadd(2716.40, 2623.71, 4817.78, 2.00)
        pt3dadd(2714.30, 2627.95, 4816.49, 2.00)
        pt3dadd(2713.37, 2628.82, 4818.90, 2.00)
        pt3dadd(2713.61, 2629.62, 4821.08, 2.00)
        pt3dadd(2711.51, 2630.61, 4817.01, 2.00)
        pt3dadd(2714.30, 2633.59, 4818.40, 2.00)
        pt3dadd(2712.68, 2634.38, 4820.58, 2.00)
        pt3dadd(2711.98, 2635.95, 4821.50, 2.00)
        pt3dadd(2715.00, 2638.97, 4818.91, 2.00)
        pt3dadd(2714.30, 2642.13, 4821.48, 2.00)
        pt3dadd(2715.23, 2644.32, 4823.40, 2.00)
        pt3dadd(2716.63, 2650.00, 4818.61, 2.00)
        pt3dadd(2714.77, 2648.51, 4817.92, 2.00)
        pt3dadd(2718.03, 2652.59, 4818.91, 2.00)
        pt3dadd(2717.56, 2654.08, 4819.60, 2.00)
        pt3dadd(2714.77, 2655.64, 4820.52, 2.00)
        pt3dadd(2713.61, 2657.13, 4818.49, 2.00)
        pt3dadd(2716.63, 2657.75, 4819.50, 2.00)
        pt3dadd(2716.16, 2685.73, 4814.77, 2.00)
        pt3dadd(2719.42, 2685.17, 4815.96, 2.00)
        pt3dadd(2716.86, 2698.06, 4811.27, 2.00)
        pt3dadd(2718.72, 2703.05, 4810.69, 2.00)
        pt3dadd(2719.89, 2703.45, 4811.78, 2.00)
        pt3dadd(2718.96, 2703.84, 4812.87, 2.00)
        pt3dadd(2718.72, 2707.52, 4812.77, 2.00)
        pt3dadd(2718.72, 2712.29, 4812.27, 2.00)
        pt3dadd(2720.58, 2714.87, 4812.57, 2.00)
        pt3dadd(2720.58, 2716.76, 4814.36, 2.00)
        pt3dadd(2721.75, 2720.87, 4811.38, 2.00)
        pt3dadd(2721.75, 2724.15, 4810.18, 2.00)
        pt3dadd(2722.68, 2724.47, 4811.06, 2.00)
        pt3dadd(2722.68, 2724.77, 4808.48, 2.00)
        pt3dadd(2724.54, 2727.75, 4809.87, 2.00)
        pt3dadd(2725.47, 2732.12, 4811.00, 2.00)
        pt3dadd(2727.09, 2737.50, 4808.79, 2.00)
        pt3dadd(2729.65, 2738.51, 4808.18, 2.00)
        pt3dadd(2727.09, 2745.68, 4804.08, 2.00)
        pt3dadd(2736.40, 2754.19, 4792.08, 2.00)
        pt3dadd(2734.54, 2756.07, 4793.86, 2.00)
        pt3dadd(2737.33, 2757.96, 4795.65, 2.00)
        pt3dadd(2738.03, 2762.73, 4795.15, 2.00)
        pt3dadd(2737.56, 2761.93, 4792.97, 2.00)
        pt3dadd(2739.42, 2769.90, 4793.78, 2.00)
        pt3dadd(2741.28, 2772.49, 4794.08, 2.00)
        pt3dadd(2741.98, 2774.19, 4791.97, 2.00)
        pt3dadd(2741.05, 2778.82, 4794.49, 2.00)
        pt3dadd(2741.98, 2777.17, 4793.36, 2.00)
        pt3dadd(2743.37, 2783.73, 4793.70, 2.00)
        pt3dadd(2745.00, 2791.30, 4790.69, 2.00)
        pt3dadd(2746.86, 2793.70, 4789.82, 2.00)
        pt3dadd(2747.56, 2799.88, 4789.80, 2.00)
        pt3dadd(2747.33, 2800.36, 4791.11, 2.00)
        pt3dadd(2748.49, 2801.85, 4791.80, 2.00)
        pt3dadd(2749.89, 2803.96, 4790.79, 2.00)
        pt3dadd(2750.82, 2800.50, 4790.81, 2.00)
        pt3dadd(2752.44, 2805.88, 4788.60, 2.00)
        pt3dadd(2754.30, 2807.37, 4789.30, 2.00)
        pt3dadd(2755.00, 2810.87, 4788.03, 2.00)
        pt3dadd(2753.84, 2813.53, 4785.82, 2.00)
        pt3dadd(2755.70, 2813.45, 4788.32, 2.00)
        pt3dadd(2754.07, 2814.41, 4788.22, 2.00)
        pt3dadd(2756.40, 2817.05, 4788.00, 2.00)
        pt3dadd(2757.10, 2817.37, 4788.88, 2.00)
        pt3dadd(2756.40, 2822.22, 4788.60, 2.00)
        pt3dadd(2756.86, 2827.60, 4786.39, 2.00)
        pt3dadd(2757.33, 2835.65, 4784.70, 2.00)
        pt3dadd(2757.33, 2836.12, 4786.01, 2.00)
        pt3dadd(2756.63, 2837.61, 4786.71, 2.00)
        pt3dadd(2756.40, 2843.47, 4785.81, 2.00)
  }
}
proc geometry52() {
  nakeaxon[367] {
        pt3dadd(2755.93, 2847.63, 4787.02, 2.00)
        pt3dadd(2757.33, 2849.04, 4787.50, 2.00)
        pt3dadd(2757.56, 2849.51, 4788.81, 2.00)
        pt3dadd(2757.79, 2849.91, 4789.90, 2.00)
        pt3dadd(2755.00, 2849.59, 4789.03, 2.00)
        pt3dadd(2755.93, 2854.36, 4788.53, 2.00)
        pt3dadd(2756.40, 2856.47, 4787.52, 2.00)
        pt3dadd(2757.56, 2856.87, 4788.61, 2.00)
        pt3dadd(2757.79, 2858.36, 4792.03, 2.00)
        pt3dadd(2758.72, 2863.05, 4791.31, 2.00)
        pt3dadd(2759.42, 2866.72, 4791.21, 2.00)
        pt3dadd(2757.33, 2867.68, 4791.11, 2.00)
        pt3dadd(2760.12, 2871.49, 4790.71, 2.00)
        pt3dadd(2762.21, 2872.03, 4791.51, 2.00)
        pt3dadd(2762.91, 2873.92, 4793.29, 2.00)
        pt3dadd(2763.84, 2876.58, 4793.81, 2.00)
        pt3dadd(2764.07, 2876.98, 4794.90, 2.00)
        pt3dadd(2762.68, 2880.87, 4792.00, 2.00)
        pt3dadd(2762.91, 2881.27, 4793.09, 2.00)
        pt3dadd(2762.21, 2881.35, 4793.31, 2.00)
        pt3dadd(2762.21, 2880.55, 4791.12, 2.00)
        pt3dadd(2763.84, 2886.12, 4792.81, 2.00)
        pt3dadd(2762.21, 2888.62, 4792.89, 2.00)
        pt3dadd(2761.75, 2893.76, 4790.03, 2.00)
        pt3dadd(2761.98, 2897.22, 4792.73, 2.00)
        pt3dadd(2760.82, 2899.88, 4790.52, 2.00)
        pt3dadd(2756.63, 2904.37, 4793.34, 2.00)
        pt3dadd(2759.19, 2904.51, 4793.05, 2.00)
        pt3dadd(2757.33, 2904.61, 4796.72, 2.00)
        pt3dadd(2758.49, 2905.71, 4796.32, 2.00)
        pt3dadd(2759.19, 2911.96, 4796.52, 2.00)
        pt3dadd(2757.33, 2913.14, 4796.34, 2.00)
        pt3dadd(2754.54, 2916.28, 4795.45, 2.00)
        pt3dadd(2755.47, 2918.09, 4797.02, 2.00)
        pt3dadd(2758.03, 2921.98, 4796.84, 2.00)
        pt3dadd(2759.65, 2926.35, 4795.24, 2.00)
        pt3dadd(2762.44, 2927.98, 4795.64, 2.00)
        pt3dadd(2766.16, 2929.61, 4796.04, 2.00)
        pt3dadd(2767.79, 2931.71, 4795.02, 2.00)
        pt3dadd(2769.19, 2935.47, 4795.14, 2.00)
        pt3dadd(2771.28, 2933.96, 4793.71, 2.00)
        pt3dadd(2773.84, 2935.27, 4793.24, 2.00)
        pt3dadd(2775.23, 2938.47, 4791.82, 2.00)
        pt3dadd(2776.17, 2940.65, 4791.03, 2.00)
        pt3dadd(2775.23, 2941.53, 4793.43, 2.00)
        pt3dadd(2776.40, 2944.11, 4793.73, 2.00)
        pt3dadd(2778.96, 2950.11, 4792.53, 2.00)
        pt3dadd(2779.65, 2953.39, 4791.34, 2.00)
        pt3dadd(2782.21, 2955.71, 4790.25, 2.00)
        pt3dadd(2781.98, 2957.90, 4789.45, 2.00)
        pt3dadd(2781.75, 2966.82, 4787.44, 2.00)
        pt3dadd(2783.61, 2966.34, 4788.85, 2.00)
        pt3dadd(2784.30, 2970.71, 4787.26, 2.00)
        pt3dadd(2784.07, 2976.18, 4785.28, 2.00)
        pt3dadd(2783.84, 2987.50, 4782.39, 2.00)
        pt3dadd(2783.37, 2972.90, 4786.47, 2.00)
        pt3dadd(2784.07, 2972.90, 4786.47, 2.00)
        pt3dadd(2784.54, 2956.43, 4792.21, 2.00)
        pt3dadd(2787.33, 2962.83, 4792.11, 2.00)
        pt3dadd(2784.30, 2969.24, 4790.03, 2.00)
        pt3dadd(2785.00, 2973.40, 4791.24, 2.00)
        pt3dadd(2784.54, 2971.61, 4793.12, 2.00)
        pt3dadd(2783.37, 2975.98, 4791.53, 2.00)
        pt3dadd(2784.77, 2984.03, 4789.84, 2.00)
        pt3dadd(2787.33, 2987.44, 4788.35, 2.00)
        pt3dadd(2787.09, 2992.21, 4787.85, 2.00)
        pt3dadd(2786.63, 2993.70, 4788.55, 2.00)
        pt3dadd(2787.79, 2998.47, 4788.05, 2.00)
        pt3dadd(2788.72, 3002.92, 4786.68, 2.00)
        pt3dadd(2791.28, 3007.35, 4784.57, 2.00)
        pt3dadd(2792.91, 3007.35, 4784.57, 2.00)
        pt3dadd(2794.77, 3007.89, 4785.36, 2.00)
        pt3dadd(2795.00, 3008.29, 4786.46, 2.00)
        pt3dadd(2793.84, 3015.02, 4785.24, 2.00)
        pt3dadd(2794.77, 3016.73, 4785.86, 2.00)
        pt3dadd(2793.84, 3017.21, 4787.17, 2.00)
        pt3dadd(2794.54, 3020.48, 4785.98, 2.00)
        pt3dadd(2795.70, 3019.71, 4787.25, 2.00)
        pt3dadd(2798.03, 3022.99, 4786.06, 2.00)
  }
}
  geometry0()
  geometry1()
  geometry2()
  geometry3()
  geometry4()
  geometry5()
  geometry6()
  geometry7()
  geometry8()
  geometry9()
  geometry10()
  geometry11()
  geometry12()
  geometry13()
  geometry14()
  geometry15()
  geometry16()
  geometry17()
  geometry18()
  geometry19()
  geometry20()
  geometry21()
  geometry22()
  geometry23()
  geometry24()
  geometry25()
  geometry26()
  geometry27()
  geometry28()
  geometry29()
  geometry30()
  geometry31()
  geometry32()
  geometry33()
  geometry34()
  geometry35()
  geometry36()
  geometry37()
  geometry38()
  geometry39()
  geometry40()
  geometry41()
  geometry42()
  geometry43()
  geometry44()
  geometry45()
  geometry46()
  geometry47()
  geometry48()
  geometry49()
  geometry50()
  geometry51()
  geometry52()




//create section lists to define different sections of the neuron.


objref wholeaxon
wholeaxon = new SectionList()
for i=0, n_nakeaxon nakeaxon[i] wholeaxon.append()
forsec wholeaxon nseg=L/10 + 1  //10


//Build specific section lists:

//0th order
objref binzeggerCorticofugal
binzeggerCorticofugal = new SectionList()
for i = 0,6  nakeaxon[fscan()]  binzeggerCorticofugal.append()

//corticofugal
0
250
251
268
302
304
306


//1st order

objref firstOrder
firstOrder = new SectionList()
for i = 0,5 nakeaxon[fscan()]  firstOrder.append()

1
250
251
268
302
304



//2nd order

objref secondOrder
secondOrder = new SectionList()
for i = 0,7 nakeaxon[fscan()]  secondOrder.append()

2
28
253
269
303
305
307
317


//everything else
objref thirdOrder
thirdOrder = new SectionList()
for i = 0,346 nakeaxon[fscan()]  thirdOrder.append()


3
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
145
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
254
255
256
257
258
259
260
261
262
263
264
265
266
267
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
308
309
310
311
312
313
314
315
316
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367