VTA neurons: Morphofunctional alterations in acute opiates withdrawal (Enrico et al. 2016)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:185330
" ... Here we present a biophysical model of a DA VTA neuron based on 3D morphological reconstruction and electrophysiological data, showing how opiates withdrawal-driven morphological and electrophysiological changes could affect the firing rate and discharge pattern...."
Reference:
1 . Enrico P, Migliore M, Spiga S, Mulas G, Caboni F, Diana M (2016) Morphofunctional alterations in ventral tegmental area dopamine neurons in acute and prolonged opiates withdrawal. A computational perspective. Neuroscience 322:195-207 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Neuron or other electrically excitable cell;
Brain Region(s)/Organism:
Cell Type(s): Ventral tegmental area dopamine neuron;
Channel(s):
Gap Junctions:
Receptor(s):
Gene(s):
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s): Activity Patterns; Addiction;
Implementer(s): Enrico, Paolo [enrico at uniss.it];
/
EnricoEtAl2016
README.html
cabal.mod *
cachan.mod
capump.mod *
dop.mod *
hh3.mod
IhDA.mod
kca.mod
nabalan.mod
netstimd.mod
newleak.mod
nmdanet.mod *
pump.mod *
CellDef.hoc
ctrlfiring_cnt.txt
DA_release.ses
DA_release_final.hoc
DA_release_withdrawal_final.hoc
DA_release_withdrawal_final_noGLU.hoc
firing_cnt.txt
fixnseg.hoc *
mosinit.hoc
screenshot.png
screenshot2.png
                            
proc celldef() {
  topol()
  subsets()
  geom_nseg()
}

create prox[11], soma, dist[16]
access soma


proc topol() { local i
	for i = 1, 2 connect prox[i](0), prox(0)
	for i = 3, 4 connect prox[i](0), prox(1)
	for i = 5, 6 connect prox[i](0), soma(1)
	for i = 7, 8 connect prox[i](0), prox[1](1)
	connect prox[9](0), prox[2](1)
	connect prox[10](0), prox[7](1)
	connect soma(0), prox(0)
	for i = 0, 1 connect dist[i](0), prox[i+2](1)
	for i = 2, 3 connect dist[i](0), prox[i+1](1)
	connect dist[4](0), prox[4](1)
	connect dist[5](0), prox[7](1)
	for i = 6, 7 connect dist[i](0), dist(1)
	for i = 8, 9 connect dist[i](0), dist[2](1)
	for i = 10, 11 connect dist[i](0), dist[5](1)
	for i = 12, 13 connect dist[i](0), dist[8](1)
	for i = 14, 15 connect dist[i](0), dist[11](1)
	basic_shape()
}

proc shape3d_1() {
  prox {pt3dclear()
	pt3dadd(100.711, 202.081, 18.5684, 15)
	pt3dadd(100.598, 201.287, 18.3251, 4.8525)
	pt3dadd(100.608, 200.511, 18.1354, 1.4735)
	pt3dadd(100.803, 199.787, 18.015, 1.5015)
	pt3dadd(101.179, 199.158, 17.9465, 1.60071)
	pt3dadd(101.694, 198.664, 17.9063, 1.80679)
	pt3dadd(102.298, 198.337, 17.8757, 2.08879)
	pt3dadd(102.945, 198.204, 17.8383, 2.36166)
	pt3dadd(103.595, 198.259, 17.7822, 2.55401)
	pt3dadd(104.214, 198.454, 17.7054, 2.6429)
	pt3dadd(104.793, 198.71, 17.6169, 2.6575)
	pt3dadd(105.337, 198.966, 17.53, 2.668)
	pt3dadd(105.856, 199.194, 17.4539, 2.72404)
	pt3dadd(106.358, 199.395, 17.3902, 2.80364)
	pt3dadd(106.846, 199.582, 17.3345, 2.86113)
	pt3dadd(107.322, 199.769, 17.2799, 2.90382)
	pt3dadd(107.784, 199.967, 17.2217, 2.99647)
	pt3dadd(108.232, 200.181, 17.1592, 3.20834)
	pt3dadd(108.663, 200.41, 17.0927, 3.55911)
	pt3dadd(109.073, 200.65, 17.0222, 4.00204)
	pt3dadd(109.46, 200.896, 16.9481, 4.45306)
	pt3dadd(109.829, 201.141, 16.8722, 4.8305)
	pt3dadd(110.193, 201.381, 16.7976, 5.06982)
	pt3dadd(110.572, 201.608, 16.727, 5.12426)
	pt3dadd(110.988, 201.804, 16.6603, 4.9847)
	pt3dadd(111.454, 201.952, 16.5923, 4.70219)
	pt3dadd(111.967, 202.041, 16.5136, 4.35926)
	pt3dadd(112.514, 202.076, 16.4152, 4.01339)
	pt3dadd(113.076, 202.065, 16.2923, 3.6975)
	pt3dadd(113.638, 202.01, 16.1467, 3.45928)
	pt3dadd(114.193, 201.914, 15.9863, 3.34767)
	pt3dadd(114.737, 201.785, 15.8202, 3.36777)
	pt3dadd(115.269, 201.631, 15.6539, 3.4677)
	pt3dadd(115.789, 201.464, 15.488, 3.54899)
	pt3dadd(116.298, 201.289, 15.3202, 3.52656)
	pt3dadd(116.792, 201.103, 15.145, 3.41464)
	pt3dadd(117.265, 200.898, 14.9564, 3.29781)
	pt3dadd(117.712, 200.675, 14.7578, 3.22121)
	pt3dadd(118.142, 200.444, 14.5645, 3.18207)
	pt3dadd(118.563, 200.219, 14.3916, 3.18919)
	pt3dadd(118.977, 199.999, 14.2374, 3.2476)
	pt3dadd(119.378, 199.782, 14.0854, 3.31452)
	pt3dadd(119.77, 199.572, 13.9238, 3.33155)
	pt3dadd(120.165, 199.379, 13.7543, 3.28896)
	pt3dadd(120.568, 199.193, 13.5811, 3.2328)
	pt3dadd(120.975, 198.996, 13.4039, 3.21546)
	pt3dadd(121.385, 198.779, 13.224, 3.25026)
	pt3dadd(121.804, 198.554, 13.0441, 3.30799)
	pt3dadd(122.239, 198.341, 12.8626, 3.35109)
	pt3dadd(122.694, 198.157, 12.6751, 3.38899)
	pt3dadd(123.169, 198.002, 12.481, 3.49093)
	pt3dadd(123.654, 197.857, 12.2844, 3.70652)
	pt3dadd(124.134, 197.691, 12.0898, 4.00418)
	pt3dadd(124.602, 197.497, 11.8979, 4.32593)
  }
  soma {pt3dclear()
	pt3dadd(100.711, 202.081, 18.5684, 15)
	pt3dadd(100.468, 201.61, 18.4726, 13.4617)
	pt3dadd(100.242, 201.136, 18.3861, 12.0714)
	pt3dadd(100.045, 200.655, 18.3166, 10.9377)
	pt3dadd(99.8857, 200.166, 18.2686, 10.1073)
	pt3dadd(99.7645, 199.669, 18.244, 9.56766)
	pt3dadd(99.6746, 199.166, 18.2425, 9.26749)
	pt3dadd(99.6037, 198.66, 18.2628, 9.14238)
	pt3dadd(99.5356, 198.155, 18.3036, 9.1343)
	pt3dadd(99.4534, 197.653, 18.3633, 9.20033)
	pt3dadd(99.3425, 197.159, 18.44, 9.31228)
	pt3dadd(99.1926, 196.673, 18.5307, 9.45135)
	pt3dadd(98.9996, 196.197, 18.6305, 9.60152)
	pt3dadd(98.7662, 195.73, 18.7325, 9.74392)
	pt3dadd(98.501, 195.268, 18.8278, 9.85368)
	pt3dadd(98.2172, 194.807, 18.9056, 9.90047)
	pt3dadd(97.9296, 194.344, 18.955, 9.8531)
	pt3dadd(97.6521, 193.877, 18.9659, 9.68732)
	pt3dadd(97.3957, 193.406, 18.9308, 9.39383)
	pt3dadd(97.1667, 192.933, 18.8461, 8.98298)
	pt3dadd(96.9663, 192.462, 18.7127, 8.48358)
	pt3dadd(96.7916, 191.998, 18.5353, 7.93615)
	pt3dadd(96.6373, 191.543, 18.3211, 7.38325)
	pt3dadd(96.4973, 191.099, 18.078, 6.86074)
	pt3dadd(96.3662, 190.668, 17.813, 6.39279)
	pt3dadd(96.2403, 190.249, 17.5307, 5.99134)
	pt3dadd(96.1177, 189.842, 17.2337, 5.6588)
	pt3dadd(95.9976, 189.448, 16.9223, 5.39176)
	pt3dadd(95.88, 189.067, 16.5951, 5.18369)
	pt3dadd(95.7648, 188.702, 16.2504, 5.02579)
	pt3dadd(95.6519, 188.352, 15.8867, 4.90636)
	pt3dadd(95.541, 188.017, 15.5038, 4.80986)
	pt3dadd(95.4316, 187.695, 15.1029, 4.71723)
	pt3dadd(95.3241, 187.381, 14.6876, 4.60818)
	pt3dadd(95.219, 187.071, 14.2632, 4.46547)
	pt3dadd(95.1177, 186.755, 13.8371, 4.27979)
	pt3dadd(95.0214, 186.426, 13.4183, 4.05308)
	pt3dadd(94.931, 186.077, 13.0177, 3.79806)
	pt3dadd(94.8459, 185.7, 12.647, 3.53318)
	pt3dadd(94.7631, 185.293, 12.3176, 3.27473)
	pt3dadd(94.6778, 184.857, 12.0386, 3.0303)
	pt3dadd(94.5835, 184.398, 11.8153, 2.79761)
	pt3dadd(94.4735, 183.922, 11.6482, 2.56988)
	pt3dadd(94.343, 183.44, 11.5338, 2.34386)
	pt3dadd(94.1894, 182.958, 11.4658, 2.125)
	pt3dadd(94.0136, 182.482, 11.4363, 1.92622)
	pt3dadd(93.8187, 182.013, 11.4376, 1.76147)
	pt3dadd(93.6097, 181.552, 11.4618, 1.63892)
	pt3dadd(93.3923, 181.097, 11.5017, 1.55794)
	pt3dadd(93.1721, 180.645, 11.5508, 1.51074)
	pt3dadd(92.9538, 180.196, 11.6039, 1.48663)
	pt3dadd(92.7404, 179.748, 11.657, 1.47592)
	pt3dadd(92.533, 179.301, 11.7079, 1.47181)
	pt3dadd(92.3312, 178.855, 11.7555, 1.47047)
	pt3dadd(92.1336, 178.41, 11.7996, 1.4701)
	pt3dadd(91.9399, 177.966, 11.8401, 1.47002)
	pt3dadd(91.7518, 177.524, 11.8769, 1.47)
	pt3dadd(91.5739, 177.079, 11.9096, 1.47)
	pt3dadd(91.4117, 176.629, 11.9375, 1.47)
	pt3dadd(91.2702, 176.171, 11.96, 1.47)
	pt3dadd(91.1522, 175.703, 11.9763, 1.47)
	pt3dadd(91.0578, 175.227, 11.9855, 1.47)
	pt3dadd(90.9851, 174.744, 11.9868, 1.47001)
	pt3dadd(90.9312, 174.259, 11.9791, 1.47008)
	pt3dadd(90.8935, 173.775, 11.9612, 1.47034)
	pt3dadd(90.8695, 173.294, 11.9322, 1.4712)
	pt3dadd(90.8573, 172.819, 11.8916, 1.4736)
	pt3dadd(90.8555, 172.348, 11.8393, 1.4792)
	pt3dadd(90.863, 171.881, 11.7756, 1.49024)
	pt3dadd(90.8787, 171.419, 11.7012, 1.50864)
	pt3dadd(90.9018, 170.958, 11.6174, 1.5344)
	pt3dadd(90.9308, 170.497, 11.525, 1.56412)
	pt3dadd(90.9645, 170.036, 11.4248, 1.59102)
	pt3dadd(91.0018, 169.572, 11.3174, 1.60715)
	pt3dadd(91.043, 169.107, 11.2036, 1.60718)
	pt3dadd(91.0897, 168.641, 11.0841, 1.59115)
	pt3dadd(91.1452, 168.177, 10.96, 1.5647)
	pt3dadd(91.2135, 167.717, 10.8329, 1.53645)
	pt3dadd(91.2984, 167.263, 10.7043, 1.5148)
	pt3dadd(91.402, 166.814, 10.5753, 1.50614)
	pt3dadd(91.5242, 166.368, 10.4467, 1.5148)
	pt3dadd(91.6624, 165.923, 10.3186, 1.54359)
	pt3dadd(91.8129, 165.477, 10.1902, 1.59325)
	pt3dadd(91.9712, 165.031, 10.0603, 1.66101)
	pt3dadd(92.1334, 164.586, 9.92724, 1.73985)
	pt3dadd(92.2969, 164.144, 9.7892, 1.81969)
	pt3dadd(92.4602, 163.708, 9.64462, 1.89041)
	pt3dadd(92.6227, 163.278, 9.49261, 1.94472)
	pt3dadd(92.7854, 162.854, 9.33336, 1.97927)
	pt3dadd(92.9502, 162.435, 9.16846, 1.99392)
	pt3dadd(93.1205, 162.019, 9.0008, 1.99022)
	pt3dadd(93.2998, 161.606, 8.83416, 1.9703)
	pt3dadd(93.4917, 161.197, 8.67243, 1.93607)
	pt3dadd(93.6979, 160.791, 8.5189, 1.88902)
	pt3dadd(93.9178, 160.389, 8.37575, 1.83089)
	pt3dadd(94.1487, 159.989, 8.2438, 1.76522)
	pt3dadd(94.3868, 159.59, 8.12248, 1.6986)
	pt3dadd(94.6278, 159.19, 8.01006, 1.63997)
	pt3dadd(94.868, 158.789, 7.90408, 1.5976)
	pt3dadd(95.1044, 158.385, 7.80208, 1.57523)
	pt3dadd(95.3342, 157.978, 7.70229, 1.57004)
	pt3dadd(95.5552, 157.567, 7.60414, 1.57392)
	pt3dadd(95.7666, 157.151, 7.50806, 1.57761)
	pt3dadd(95.9697, 156.729, 7.41499, 1.57568)
	pt3dadd(96.1679, 156.302, 7.32561, 1.56966)
	pt3dadd(96.3664, 155.872, 7.24007, 1.56807)
	pt3dadd(96.5704, 155.442, 7.15811, 1.58342)
	pt3dadd(96.7834, 155.014, 7.07948, 1.62754)
	pt3dadd(97.0065, 154.588, 7.00439, 1.70712)
	pt3dadd(97.2387, 154.167, 6.93372, 1.82061)
	pt3dadd(97.4773, 153.749, 6.86909, 1.95767)
	pt3dadd(97.7193, 153.334, 6.81285, 2.10116)
	pt3dadd(97.9616, 152.921, 6.76782, 2.23112)
	pt3dadd(98.2009, 152.508, 6.7368, 2.32926)
	pt3dadd(98.4336, 152.091, 6.72171, 2.38306)
	pt3dadd(98.6565, 151.669, 6.72282, 2.38848)
	pt3dadd(98.8672, 151.241, 6.73839, 2.35084)
	pt3dadd(99.0652, 150.804, 6.76511, 2.28303)
	pt3dadd(99.2522, 150.36, 6.79913, 2.20115)
	pt3dadd(99.4315, 149.912, 6.83712, 2.11885)
	pt3dadd(99.6077, 149.461, 6.87707, 2.04358)
	pt3dadd(99.7846, 149.009, 6.91823, 1.97698)
	pt3dadd(99.9656, 148.559, 6.96084, 1.91941)
	pt3dadd(100.152, 148.111, 7.00558, 1.8753)
	pt3dadd(100.345, 147.665, 7.05327, 1.8554)
	pt3dadd(100.543, 147.221, 7.10478, 1.87459)
	pt3dadd(100.746, 146.778, 7.16089, 1.94672)
	pt3dadd(100.953, 146.335, 7.22213, 2.07937)
	pt3dadd(101.161, 145.893, 7.28844, 2.27065)
	pt3dadd(101.37, 145.452, 7.35892, 2.5084)
	pt3dadd(101.58, 145.01, 7.43177, 2.77186)
  }
  prox[1] {pt3dclear()
	pt3dadd(100.711, 202.081, 18.5684, 15)
	pt3dadd(99.8905, 201.948, 18.4386, 4.88782)
	pt3dadd(99.0916, 201.958, 18.4019, 1.62129)
	pt3dadd(98.3572, 202.184, 18.4737, 1.85538)
	pt3dadd(97.7396, 202.611, 18.6108, 2.16052)
	pt3dadd(97.27, 203.168, 18.7701, 2.46286)
	pt3dadd(96.9449, 203.781, 18.9298, 2.74202)
	pt3dadd(96.7365, 204.401, 19.0776, 3.02075)
	pt3dadd(96.6124, 205.004, 19.2026, 3.29683)
	pt3dadd(96.5505, 205.585, 19.2996, 3.46254)
	pt3dadd(96.5459, 206.147, 19.3708, 3.38614)
	pt3dadd(96.6063, 206.696, 19.4185, 3.13691)
	pt3dadd(96.7413, 207.235, 19.4388, 2.91028)
	pt3dadd(96.9498, 207.761, 19.4248, 2.73863)
	pt3dadd(97.2152, 208.271, 19.376, 2.52642)
  }
}

proc shape3d_2() {
  prox[1] {	pt3dadd(97.5134, 208.759, 19.3002, 2.2464)
	pt3dadd(97.8273, 209.221, 19.2104, 1.94231)
	pt3dadd(98.15, 209.656, 19.1213, 1.68284)
	pt3dadd(98.4758, 210.069, 19.045, 1.52994)
	pt3dadd(98.793, 210.474, 18.9893, 1.47766)
	pt3dadd(99.0869, 210.884, 18.9565, 1.47)
	pt3dadd(99.345, 211.307, 18.9417, 1.47)
	pt3dadd(99.5694, 211.742, 18.9375, 1.47)
	pt3dadd(99.7849, 212.181, 18.942, 1.47)
	pt3dadd(100.021, 212.615, 18.9562, 1.47)
	pt3dadd(100.287, 213.045, 18.9756, 1.47)
	pt3dadd(100.569, 213.478, 18.9884, 1.47766)
	pt3dadd(100.858, 213.923, 18.9805, 1.53628)
	pt3dadd(101.157, 214.385, 18.9333, 1.7321)
	pt3dadd(101.485, 214.846, 18.8218, 2.10957)
	pt3dadd(101.826, 215.294, 18.6271, 2.57059)
	pt3dadd(102.058, 215.773, 18.3612, 2.92362)
	pt3dadd(102.078, 216.318, 18.0692, 3.05458)
	pt3dadd(101.961, 216.869, 17.7947, 3.00974)
	pt3dadd(101.828, 217.364, 17.5492, 2.89513)
	pt3dadd(101.716, 217.82, 17.3217, 2.7522)
	pt3dadd(101.621, 218.272, 17.1075, 2.57181)
	pt3dadd(101.548, 218.737, 16.9169, 2.3842)
	pt3dadd(101.504, 219.219, 16.7557, 2.27314)
	pt3dadd(101.484, 219.707, 16.6074, 2.28687)
	pt3dadd(101.469, 220.19, 16.4439, 2.41531)
	pt3dadd(101.444, 220.666, 16.2571, 2.66412)
	pt3dadd(101.41, 221.15, 16.07, 2.99513)
	pt3dadd(101.378, 221.652, 15.9122, 3.24944)
	pt3dadd(101.353, 222.169, 15.7859, 3.34593)
  }
  prox[2] {pt3dclear()
	pt3dadd(100.711, 202.081, 18.5684, 15)
	pt3dadd(100.839, 202.959, 18.1105, 4.8525)
	pt3dadd(101.032, 203.854, 17.7651, 1.47)
	pt3dadd(101.308, 204.763, 17.5838, 1.47)
	pt3dadd(101.64, 205.672, 17.5535, 1.47)
	pt3dadd(101.994, 206.568, 17.6346, 1.47001)
	pt3dadd(102.363, 207.449, 17.792, 1.47007)
	pt3dadd(102.764, 208.307, 18.0048, 1.47037)
	pt3dadd(103.216, 209.126, 18.2656, 1.47155)
	pt3dadd(103.72, 209.886, 18.5718, 1.47544)
	pt3dadd(104.262, 210.577, 18.9129, 1.48614)
	pt3dadd(104.825, 211.207, 19.2626, 1.51112)
	pt3dadd(105.397, 211.803, 19.589, 1.56106)
	pt3dadd(105.97, 212.392, 19.8764, 1.64785)
	pt3dadd(106.542, 212.973, 20.1413, 1.7814)
	pt3dadd(107.095, 213.508, 20.4274, 1.9635)
	pt3dadd(107.592, 213.953, 20.7758, 2.17155)
	pt3dadd(107.994, 214.317, 21.1908, 2.34223)
	pt3dadd(108.293, 214.664, 21.6329, 2.39464)
	pt3dadd(108.508, 215.057, 22.0471, 2.29691)
	pt3dadd(108.673, 215.509, 22.3942, 2.10053)
	pt3dadd(108.812, 216.001, 22.6595, 1.89068)
	pt3dadd(108.94, 216.507, 22.8467, 1.71913)
	pt3dadd(109.059, 217.014, 22.9697, 1.59702)
	pt3dadd(109.173, 217.515, 23.0462, 1.52158)
	pt3dadd(109.28, 218.01, 23.0928, 1.48522)
	pt3dadd(109.377, 218.5, 23.1231, 1.47536)
	pt3dadd(109.453, 218.99, 23.1473, 1.4851)
	pt3dadd(109.5, 219.481, 23.173, 1.52152)
	pt3dadd(109.524, 219.975, 23.204, 1.59481)
	pt3dadd(109.536, 220.469, 23.2393, 1.69741)
  }
  prox[3] {pt3dclear()
	pt3dadd(124.602, 197.497, 11.8979, 4.32593)
	pt3dadd(124.912, 197.076, 11.7439, 3.81077)
	pt3dadd(125.174, 196.618, 11.5987, 3.27158)
	pt3dadd(125.407, 196.152, 11.4572, 2.85618)
	pt3dadd(125.645, 195.707, 11.3141, 2.67218)
	pt3dadd(125.896, 195.284, 11.1693, 2.68088)
	pt3dadd(126.155, 194.874, 11.0262, 2.74058)
	pt3dadd(126.413, 194.463, 10.8904, 2.74234)
	pt3dadd(126.661, 194.037, 10.7635, 2.71283)
	pt3dadd(126.912, 193.607, 10.6437, 2.71283)
	pt3dadd(127.185, 193.197, 10.5336, 2.74234)
	pt3dadd(127.468, 192.803, 10.4407, 2.76596)
	pt3dadd(127.749, 192.412, 10.3666, 2.77186)
	pt3dadd(128.044, 192.03, 10.3018, 2.77186)
	pt3dadd(128.38, 191.677, 10.236, 2.77186)
	pt3dadd(128.745, 191.35, 10.167, 2.74649)
	pt3dadd(129.092, 191.013, 10.0977, 2.67038)
	pt3dadd(129.408, 190.652, 10.0321, 2.61373)
	pt3dadd(129.721, 190.288, 9.97396, 2.62139)
	pt3dadd(130.051, 189.925, 9.92704, 2.58422)
	pt3dadd(130.364, 189.538, 9.89457, 2.4438)
	pt3dadd(130.607, 189.101, 9.87716, 2.28391)
	pt3dadd(130.775, 188.626, 9.87412, 2.21371)
	pt3dadd(130.915, 188.149, 9.88573, 2.23908)
	pt3dadd(131.066, 187.687, 9.91094, 2.25854)
	pt3dadd(131.234, 187.233, 9.94474, 2.29158)
	pt3dadd(131.413, 186.782, 9.9798, 2.35588)
	pt3dadd(131.601, 186.334, 10.0103, 2.34232)
	pt3dadd(131.793, 185.887, 10.0334, 2.35412)
	pt3dadd(131.995, 185.44, 10.0471, 2.51991)
	pt3dadd(132.211, 184.993, 10.0496, 2.6857)
	pt3dadd(132.431, 184.543, 10.0396, 2.74825)
	pt3dadd(132.645, 184.091, 10.0178, 2.76596)
	pt3dadd(132.849, 183.641, 9.98822, 2.74649)
	pt3dadd(133.041, 183.198, 9.95797, 2.67038)
	pt3dadd(133.23, 182.766, 9.93315, 2.61373)
	pt3dadd(133.437, 182.344, 9.91852, 2.66623)
	pt3dadd(133.684, 181.931, 9.91772, 2.78894)
	pt3dadd(133.984, 181.53, 9.93052, 2.86505)
	pt3dadd(134.306, 181.139, 9.95104, 2.84383)
	pt3dadd(134.597, 180.735, 9.97215, 2.79133)
	pt3dadd(134.84, 180.31, 9.99239, 2.77186)
	pt3dadd(135.087, 179.893, 10.0142, 2.77186)
	pt3dadd(135.389, 179.523, 10.0352, 2.74649)
	pt3dadd(135.731, 179.185, 10.0523, 2.67038)
	pt3dadd(136.069, 178.843, 10.0702, 2.61963)
	pt3dadd(136.407, 178.5, 10.097, 2.67038)
	pt3dadd(136.773, 178.188, 10.1347, 2.74649)
	pt3dadd(137.155, 177.896, 10.1812, 2.77186)
	pt3dadd(137.526, 177.599, 10.2337, 2.74649)
	pt3dadd(137.887, 177.293, 10.2874, 2.67038)
	pt3dadd(138.242, 176.974, 10.3373, 2.61963)
	pt3dadd(138.579, 176.622, 10.3875, 2.67038)
	pt3dadd(138.899, 176.248, 10.4554, 2.74649)
	pt3dadd(139.232, 175.898, 10.5533, 2.77186)
	pt3dadd(139.588, 175.583, 10.6678, 2.77186)
	pt3dadd(139.932, 175.259, 10.7699, 2.77186)
	pt3dadd(140.231, 174.893, 10.8431, 2.77186)
	pt3dadd(140.505, 174.497, 10.8905, 2.77186)
	pt3dadd(140.788, 174.102, 10.9229, 2.77186)
	pt3dadd(141.078, 173.718, 10.9522, 2.77186)
	pt3dadd(141.365, 173.341, 10.985, 2.77186)
	pt3dadd(141.661, 172.975, 11.0185, 2.77186)
	pt3dadd(141.975, 172.628, 11.0467, 2.79133)
	pt3dadd(142.305, 172.294, 11.0678, 2.8692)
	pt3dadd(142.653, 171.968, 11.083, 2.96653)
	pt3dadd(143.019, 171.64, 11.094, 2.96653)
	pt3dadd(143.38, 171.295, 11.0992, 2.8692)
	pt3dadd(143.72, 170.927, 11.0968, 2.79133)
	pt3dadd(144.053, 170.56, 11.0886, 2.77186)
	pt3dadd(144.394, 170.205, 11.0783, 2.79133)
	pt3dadd(144.729, 169.85, 11.0681, 2.8692)
	pt3dadd(145.051, 169.489, 11.06, 2.986)
	pt3dadd(145.372, 169.135, 11.0597, 3.0444)
	pt3dadd(145.706, 168.802, 11.0749, 2.986)
	pt3dadd(146.061, 168.497, 11.1076, 2.84383)
	pt3dadd(146.447, 168.23, 11.1498, 2.68984)
	pt3dadd(146.867, 167.995, 11.1942, 2.59426)
	pt3dadd(147.313, 167.769, 11.2401, 2.51815)
	pt3dadd(147.759, 167.534, 11.2851, 2.41667)
	pt3dadd(148.189, 167.298, 11.3246, 2.36593)
	pt3dadd(148.607, 167.077, 11.3582, 2.36593)
	pt3dadd(149.024, 166.865, 11.3894, 2.3854)
	pt3dadd(149.439, 166.632, 11.4207, 2.46327)
	pt3dadd(149.84, 166.35, 11.4494, 2.58007)
	pt3dadd(150.216, 166.023, 11.4691, 2.63847)
	pt3dadd(150.58, 165.687, 11.4774, 2.58007)
	pt3dadd(150.946, 165.371, 11.4778, 2.46327)
	pt3dadd(151.298, 165.05, 11.4738, 2.3854)
	pt3dadd(151.624, 164.698, 11.4681, 2.36593)
	pt3dadd(151.953, 164.34, 11.4655, 2.3913)
	pt3dadd(152.305, 164.002, 11.4713, 2.49278)
	pt3dadd(152.665, 163.669, 11.4884, 2.64501)
	pt3dadd(153.03, 163.332, 11.5188, 2.74649)
	pt3dadd(153.417, 163.009, 11.5624, 2.80774)
	pt3dadd(153.829, 162.71, 11.6204, 2.98713)
	pt3dadd(154.254, 162.426, 11.6921, 3.34593)
  }
  prox[4] {pt3dclear()
	pt3dadd(124.602, 197.497, 11.8979, 4.32593)
	pt3dadd(125.062, 197.85, 11.7726, 3.70505)
	pt3dadd(125.525, 198.135, 11.672, 3.25834)
	pt3dadd(125.989, 198.361, 11.6, 2.94116)
	pt3dadd(126.458, 198.561, 11.5498, 2.65857)
	pt3dadd(126.933, 198.746, 11.5165, 2.3913)
	pt3dadd(127.414, 198.923, 11.4967, 2.21371)
	pt3dadd(127.898, 199.096, 11.4879, 2.13759)
	pt3dadd(128.388, 199.263, 11.4904, 2.10632)
	pt3dadd(128.885, 199.413, 11.5054, 2.21546)
	pt3dadd(129.396, 199.523, 11.5328, 2.48273)
	pt3dadd(129.92, 199.573, 11.5734, 2.69751)
	pt3dadd(130.439, 199.582, 11.6285, 2.77646)
	pt3dadd(130.932, 199.592, 11.6943, 2.80799)
	pt3dadd(131.399, 199.62, 11.7612, 2.78593)
	pt3dadd(131.857, 199.657, 11.8188, 2.65162)
	pt3dadd(132.32, 199.698, 11.8649, 2.45431)
	pt3dadd(132.791, 199.752, 11.9085, 2.25854)
	pt3dadd(133.272, 199.82, 11.9612, 2.08685)
	pt3dadd(133.758, 199.894, 12.0245, 1.98537)
	pt3dadd(134.249, 199.962, 12.0906, 1.96)
	pt3dadd(134.743, 200.025, 12.1517, 1.96)
	pt3dadd(135.234, 200.091, 12.2057, 1.96)
	pt3dadd(135.713, 200.147, 12.2565, 1.96)
	pt3dadd(136.181, 200.169, 12.3091, 1.96)
	pt3dadd(136.651, 200.156, 12.3665, 1.96)
	pt3dadd(137.136, 200.137, 12.4301, 1.96)
	pt3dadd(137.634, 200.139, 12.5019, 1.96)
	pt3dadd(138.129, 200.173, 12.5835, 1.98537)
	pt3dadd(138.609, 200.238, 12.6749, 2.06148)
	pt3dadd(139.064, 200.332, 12.7746, 2.11222)
	pt3dadd(139.496, 200.452, 12.8768, 2.06148)
	pt3dadd(139.918, 200.585, 12.9737, 2.06148)
	pt3dadd(140.355, 200.71, 13.0624, 2.21371)
	pt3dadd(140.818, 200.826, 13.143, 2.36593)
	pt3dadd(141.291, 200.969, 13.2139, 2.44204)
	pt3dadd(141.753, 201.166, 13.2779, 2.41667)
	pt3dadd(142.21, 201.39, 13.3365, 2.31519)
	pt3dadd(142.682, 201.59, 13.3775, 2.31519)
	pt3dadd(143.164, 201.751, 13.3914, 2.44204)
	pt3dadd(143.632, 201.896, 13.3891, 2.51815)
	pt3dadd(144.077, 202.055, 13.3815, 2.49278)
  }
}

proc shape3d_3() {
  prox[4] {	pt3dadd(144.511, 202.243, 13.368, 2.51225)
	pt3dadd(144.953, 202.449, 13.348, 2.60959)
	pt3dadd(145.41, 202.658, 13.3249, 2.67741)
  }
  prox[5] {pt3dclear()
	pt3dadd(101.58, 145.01, 7.43177, 2.77186)
	pt3dadd(101.674, 144.539, 7.50889, 2.46216)
	pt3dadd(101.715, 144.059, 7.56365, 2.11132)
	pt3dadd(101.706, 143.575, 7.59475, 1.74998)
	pt3dadd(101.67, 143.092, 7.61421, 1.526)
	pt3dadd(101.619, 142.611, 7.63037, 1.47)
	pt3dadd(101.557, 142.128, 7.64484, 1.47)
	pt3dadd(101.486, 141.64, 7.65915, 1.47)
	pt3dadd(101.403, 141.148, 7.67842, 1.48421)
	pt3dadd(101.314, 140.66, 7.7073, 1.55748)
	pt3dadd(101.238, 140.184, 7.74502, 1.7084)
	pt3dadd(101.209, 139.715, 7.78775, 1.86373)
	pt3dadd(101.239, 139.234, 7.83366, 1.94359)
	pt3dadd(101.307, 138.737, 7.88366, 1.92937)
	pt3dadd(101.376, 138.241, 7.94057, 1.80687)
	pt3dadd(101.425, 137.766, 8.00891, 1.65375)
	pt3dadd(101.453, 137.312, 8.09209, 1.62312)
	pt3dadd(101.458, 136.869, 8.18734, 1.65375)
	pt3dadd(101.442, 136.424, 8.28629, 1.5925)
	pt3dadd(101.413, 135.971, 8.38323, 1.53125)
	pt3dadd(101.376, 135.51, 8.48057, 1.62312)
	pt3dadd(101.328, 135.05, 8.58477, 1.80687)
	pt3dadd(101.269, 134.595, 8.69934, 1.92937)
	pt3dadd(101.198, 134.147, 8.82359, 1.92937)
	pt3dadd(101.107, 133.701, 8.95512, 1.8375)
	pt3dadd(100.996, 133.249, 9.08995, 1.77625)
	pt3dadd(100.873, 132.79, 9.22525, 1.8375)
	pt3dadd(100.743, 132.331, 9.36369, 1.89875)
	pt3dadd(100.599, 131.881, 9.50714, 1.80687)
	pt3dadd(100.438, 131.441, 9.64902, 1.62312)
	pt3dadd(100.26, 131.006, 9.78089, 1.50062)
	pt3dadd(100.069, 130.571, 9.90139, 1.47)
	pt3dadd(99.8726, 130.137, 10.0138, 1.47)
	pt3dadd(99.6858, 129.7, 10.1189, 1.47)
	pt3dadd(99.5164, 129.254, 10.2125, 1.47)
	pt3dadd(99.357, 128.803, 10.2891, 1.47)
	pt3dadd(99.1987, 128.354, 10.347, 1.47)
	pt3dadd(99.0422, 127.908, 10.388, 1.47)
	pt3dadd(98.891, 127.463, 10.4148, 1.47)
	pt3dadd(98.7431, 127.015, 10.4282, 1.47)
	pt3dadd(98.5954, 126.565, 10.4271, 1.47)
	pt3dadd(98.4475, 126.118, 10.4105, 1.47)
	pt3dadd(98.296, 125.673, 10.3807, 1.47)
	pt3dadd(98.1384, 125.224, 10.345, 1.47)
	pt3dadd(97.983, 124.757, 10.3119, 1.47)
	pt3dadd(97.8362, 124.271, 10.2878, 1.47)
	pt3dadd(97.6938, 123.778, 10.2743, 1.50062)
	pt3dadd(97.5601, 123.294, 10.2728, 1.62312)
	pt3dadd(97.4557, 122.825, 10.2856, 1.80687)
	pt3dadd(97.3944, 122.369, 10.3134, 1.89875)
	pt3dadd(97.3694, 121.914, 10.3532, 1.80687)
	pt3dadd(97.3637, 121.449, 10.4004, 1.62312)
	pt3dadd(97.3613, 120.968, 10.4502, 1.50062)
	pt3dadd(97.3497, 120.48, 10.4988, 1.47)
	pt3dadd(97.3286, 119.996, 10.5444, 1.47)
	pt3dadd(97.3112, 119.518, 10.5887, 1.47)
	pt3dadd(97.3031, 119.038, 10.6356, 1.50062)
	pt3dadd(97.2863, 118.55, 10.6886, 1.62312)
	pt3dadd(97.2392, 118.061, 10.7485, 1.80687)
	pt3dadd(97.1647, 117.583, 10.8118, 1.89875)
	pt3dadd(97.0827, 117.121, 10.8735, 1.80687)
	pt3dadd(96.9992, 116.668, 10.9332, 1.65375)
	pt3dadd(96.8986, 116.212, 10.9923, 1.63734)
	pt3dadd(96.769, 115.745, 11.0432, 1.7106)
	pt3dadd(96.6126, 115.276, 11.0803, 1.67778)
	pt3dadd(96.433, 114.818, 11.1211, 1.55748)
	pt3dadd(96.2359, 114.378, 11.1827, 1.48421)
	pt3dadd(96.0355, 113.944, 11.253, 1.50062)
	pt3dadd(95.8418, 113.508, 11.3167, 1.6485)
	pt3dadd(95.6545, 113.067, 11.3817, 1.9591)
	pt3dadd(95.4747, 112.626, 11.4653, 2.3353)
	pt3dadd(95.315, 112.183, 11.5737, 2.61373)
	pt3dadd(95.1938, 111.735, 11.6953, 2.67213)
	pt3dadd(95.1073, 111.276, 11.8115, 2.48273)
	pt3dadd(95.0246, 110.812, 11.9137, 2.15947)
	pt3dadd(94.9224, 110.349, 12.0035, 1.85171)
	pt3dadd(94.8055, 109.887, 12.0829, 1.62312)
	pt3dadd(94.6869, 109.425, 12.153, 1.50062)
	pt3dadd(94.5682, 108.961, 12.2172, 1.47)
	pt3dadd(94.4495, 108.497, 12.2827, 1.50062)
	pt3dadd(94.3415, 108.029, 12.3604, 1.62312)
	pt3dadd(94.2548, 107.56, 12.4612, 1.80687)
	pt3dadd(94.1934, 107.094, 12.5909, 1.92937)
	pt3dadd(94.1582, 106.64, 12.7475, 1.96)
	pt3dadd(94.1378, 106.203, 12.9154, 1.96)
	pt3dadd(94.1075, 105.771, 13.0671, 1.98537)
	pt3dadd(94.0549, 105.326, 13.1809, 2.06148)
	pt3dadd(93.9916, 104.86, 13.2562, 2.11222)
	pt3dadd(93.9303, 104.381, 13.306, 2.03086)
	pt3dadd(93.868, 103.9, 13.3412, 1.83225)
	pt3dadd(93.794, 103.423, 13.3677, 1.62312)
	pt3dadd(93.6973, 102.954, 13.389, 1.50062)
	pt3dadd(93.5672, 102.496, 13.4074, 1.47)
	pt3dadd(93.3999, 102.05, 13.4222, 1.47)
	pt3dadd(93.2005, 101.617, 13.4328, 1.47)
	pt3dadd(92.9782, 101.195, 13.4483, 1.47)
	pt3dadd(92.7474, 100.779, 13.484, 1.47)
	pt3dadd(92.5279, 100.356, 13.5393, 1.47)
	pt3dadd(92.338, 99.9198, 13.5955, 1.47)
	pt3dadd(92.188, 99.4693, 13.6409, 1.47)
	pt3dadd(92.0656, 99.012, 13.6807, 1.47)
	pt3dadd(91.9385, 98.5594, 13.7253, 1.47)
	pt3dadd(91.7849, 98.119, 13.7819, 1.526)
	pt3dadd(91.5997, 97.6937, 13.8557, 1.74998)
	pt3dadd(91.3822, 97.2855, 13.9487, 2.08595)
	pt3dadd(91.1474, 96.8899, 14.0522, 2.30993)
	pt3dadd(90.9308, 96.4924, 14.1477, 2.34056)
	pt3dadd(90.7577, 96.0774, 14.2229, 2.23908)
	pt3dadd(90.6136, 95.6407, 14.2825, 2.08685)
	pt3dadd(90.465, 95.1893, 14.3404, 1.95475)
	pt3dadd(90.2961, 94.7327, 14.405, 1.80687)
	pt3dadd(90.1082, 94.2782, 14.4759, 1.62312)
	pt3dadd(89.9029, 93.8302, 14.5504, 1.55662)
	pt3dadd(89.6828, 93.3919, 14.628, 1.72461)
	pt3dadd(89.4568, 92.9672, 14.7102, 1.94269)
	pt3dadd(89.2429, 92.5519, 14.7942, 1.96521)
	pt3dadd(89.0529, 92.1306, 14.8699, 1.85627)
	pt3dadd(88.8703, 91.6946, 14.9289, 1.75544)
	pt3dadd(88.6654, 91.2528, 14.9712, 1.66357)
	pt3dadd(88.4262, 90.8199, 14.9998, 1.5859)
	pt3dadd(88.16, 90.4037, 15.0159, 1.52685)
	pt3dadd(87.8906, 89.9968, 15.0171, 1.49843)
	pt3dadd(87.6509, 89.5793, 14.998, 1.54107)
	pt3dadd(87.4545, 89.1416, 14.9569, 1.61213)
	pt3dadd(87.2932, 88.6966, 14.8952, 1.62634)
	pt3dadd(87.166, 88.2604, 14.8042, 1.61213)
	pt3dadd(87.0797, 87.8358, 14.6686, 1.62634)
	pt3dadd(87.0288, 87.4122, 14.4968, 1.64276)
	pt3dadd(86.9953, 86.9759, 14.3257, 1.69419)
	pt3dadd(86.9608, 86.5226, 14.1874, 1.82109)
	pt3dadd(86.9144, 86.0599, 14.0869, 1.92937)
	pt3dadd(86.8565, 85.5976, 14.0124, 1.96)
	pt3dadd(86.7944, 85.1404, 13.9529, 1.98537)
	pt3dadd(86.7362, 84.6883, 13.9039, 2.11222)
	pt3dadd(86.6871, 84.2381, 13.864, 2.36593)
	pt3dadd(86.647, 83.7851, 13.8299, 2.61963)
	pt3dadd(86.6124, 83.3243, 13.7982, 2.74649)
	pt3dadd(86.5826, 82.8527, 13.7709, 2.77186)
	pt3dadd(86.5596, 82.3702, 13.7554, 2.77186)
	pt3dadd(86.5433, 81.8796, 13.7557, 2.76596)
	pt3dadd(86.5308, 81.3854, 13.7687, 2.72288)
	pt3dadd(86.5191, 80.8912, 13.7892, 2.60959)
	pt3dadd(86.5064, 80.3994, 13.814, 2.46917)
	pt3dadd(86.4895, 79.9111, 13.8413, 2.40486)
	pt3dadd(86.4635, 79.4266, 13.8685, 2.46327)
	pt3dadd(86.4233, 78.9455, 13.8923, 2.5606)
	pt3dadd(86.3667, 78.4667, 13.9098, 2.50461)
	pt3dadd(86.2941, 77.9886, 13.9227, 2.18329)
	pt3dadd(86.2054, 77.5104, 13.9371, 1.76945)
	pt3dadd(86.1, 77.0337, 13.9543, 1.55662)
	pt3dadd(85.9791, 76.5612, 13.9682, 1.62312)
	pt3dadd(85.8463, 76.0958, 13.9793, 1.83225)
	pt3dadd(85.7117, 75.6369, 13.9924, 2.05623)
	pt3dadd(85.5878, 75.1788, 13.9992, 2.23908)
	pt3dadd(85.4739, 74.7145, 13.9907, 2.31519)
	pt3dadd(85.3539, 74.2448, 13.9772, 2.23908)
	pt3dadd(85.2135, 73.7775, 13.9741, 2.07044)
	pt3dadd(85.0539, 73.3182, 13.9836, 1.90331)
	pt3dadd(84.8848, 72.8649, 13.999, 1.76526)
	pt3dadd(84.7134, 72.4134, 14.0147, 1.64276)
	pt3dadd(84.5473, 71.96, 14.0269, 1.54107)
	pt3dadd(84.4031, 71.5012, 14.0339, 1.48421)
	pt3dadd(84.2943, 71.0349, 14.0361, 1.47)
	pt3dadd(84.212, 70.5627, 14.0349, 1.47)
	pt3dadd(84.1331, 70.0877, 14.0314, 1.48421)
	pt3dadd(84.0471, 69.6113, 14.0275, 1.55748)
	pt3dadd(83.961, 69.134, 14.0271, 1.73377)
	pt3dadd(83.8785, 68.6581, 14.0325, 2.01005)
	pt3dadd(83.7855, 68.1881, 14.0388, 2.30053)
	pt3dadd(83.6699, 67.7228, 14.0387, 2.41558)
	pt3dadd(83.5431, 67.256, 14.0325, 2.22067)
	pt3dadd(83.4234, 66.7845, 14.0243, 1.86894)
	pt3dadd(83.3147, 66.3106, 14.0155, 1.6397)
	pt3dadd(83.2134, 65.8362, 14.0065, 1.56949)
	pt3dadd(83.1176, 65.3614, 14.0005, 1.54107)
	pt3dadd(83.024, 64.887, 14.0008, 1.54107)
	pt3dadd(82.9241, 64.4156, 14.0093, 1.55528)
	pt3dadd(82.8063, 63.9508, 14.0257, 1.52685)
	pt3dadd(82.6623, 63.4941, 14.0471, 1.48421)
	pt3dadd(82.4884, 63.0463, 14.0688, 1.47)
	pt3dadd(82.2847, 62.6077, 14.0861, 1.47)
	pt3dadd(82.0688, 62.1727, 14.0958, 1.47)
	pt3dadd(81.8771, 61.7294, 14.0975, 1.47)
	pt3dadd(81.7204, 61.276, 14.0929, 1.47)
	pt3dadd(81.5699, 60.8266, 14.0834, 1.47)
	pt3dadd(81.4035, 60.3916, 14.0691, 1.47)
	pt3dadd(81.2245, 59.9701, 14.0494, 1.50062)
	pt3dadd(81.0392, 59.5585, 14.0235, 1.6485)
	pt3dadd(80.854, 59.1521, 13.9904, 1.93373)
	pt3dadd(80.6797, 58.7444, 13.9477, 2.22792)
	pt3dadd(80.521, 58.334, 13.8863, 2.4379)
	pt3dadd(80.3789, 57.9284, 13.7862, 2.5606)
	pt3dadd(80.2566, 57.5378, 13.6319, 2.53523)
	pt3dadd(80.1464, 57.1672, 13.4266, 2.33641)
	pt3dadd(80.0235, 56.8144, 13.1792, 2.13169)
	pt3dadd(79.8647, 56.4727, 12.8936, 2.13759)
	pt3dadd(79.6737, 56.1347, 12.5817, 2.36593)
  }
}

proc shape3d_4() {
//  prox[5] {  }
  prox[6] {pt3dclear()
	pt3dadd(101.58, 145.01, 7.43177, 2.77186)
	pt3dadd(102.07, 144.509, 7.67337, 2.23382)
	pt3dadd(102.514, 144.128, 7.85629, 1.85762)
	pt3dadd(102.924, 143.849, 7.98443, 1.62312)
	pt3dadd(103.323, 143.601, 8.09129, 1.50062)
	pt3dadd(103.702, 143.334, 8.19658, 1.47)
	pt3dadd(104.046, 143.033, 8.3072, 1.47)
	pt3dadd(104.364, 142.713, 8.42324, 1.50062)
	pt3dadd(104.659, 142.384, 8.53752, 1.62312)
	pt3dadd(104.912, 142.024, 8.64624, 1.77625)
	pt3dadd(105.126, 141.627, 8.75914, 1.80687)
	pt3dadd(105.344, 141.219, 8.88574, 1.74562)
	pt3dadd(105.595, 140.826, 9.01996, 1.68437)
	pt3dadd(105.88, 140.45, 9.14833, 1.5925)
	pt3dadd(106.189, 140.089, 9.26245, 1.50062)
	pt3dadd(106.503, 139.731, 9.36119, 1.47)
	pt3dadd(106.807, 139.359, 9.45185, 1.50062)
	pt3dadd(107.095, 138.972, 9.54601, 1.5925)
	pt3dadd(107.372, 138.575, 9.64758, 1.66796)
	pt3dadd(107.634, 138.175, 9.7538, 1.67998)
	pt3dadd(107.886, 137.784, 9.8664, 1.73903)
	pt3dadd(108.137, 137.406, 9.98658, 1.8891)
	pt3dadd(108.39, 137.028, 10.102, 2.01445)
	pt3dadd(108.654, 136.644, 10.1943, 1.9591)
	pt3dadd(108.949, 136.27, 10.2568, 1.72461)
	pt3dadd(109.277, 135.922, 10.297, 1.526)
	pt3dadd(109.627, 135.596, 10.3232, 1.47)
	pt3dadd(109.989, 135.292, 10.3382, 1.47)
	pt3dadd(110.369, 135.011, 10.342, 1.47)
	pt3dadd(110.755, 134.727, 10.3353, 1.47)
	pt3dadd(111.125, 134.402, 10.3191, 1.47)
	pt3dadd(111.477, 134.043, 10.2955, 1.47)
	pt3dadd(111.838, 133.699, 10.2685, 1.47)
	pt3dadd(112.218, 133.395, 10.242, 1.47)
	pt3dadd(112.592, 133.102, 10.2176, 1.47)
	pt3dadd(112.944, 132.788, 10.1945, 1.47)
	pt3dadd(113.287, 132.462, 10.1709, 1.47)
	pt3dadd(113.631, 132.135, 10.1447, 1.526)
	pt3dadd(113.969, 131.802, 10.1142, 1.69398)
	pt3dadd(114.305, 131.47, 10.0792, 1.86197)
	pt3dadd(114.655, 131.152, 10.0423, 1.97396)
	pt3dadd(115.021, 130.842, 10.0064, 2.14195)
	pt3dadd(115.392, 130.527, 9.97276, 2.30993)
	pt3dadd(115.76, 130.202, 9.93953, 2.36593)
	pt3dadd(116.12, 129.867, 9.90382, 2.36593)
	pt3dadd(116.476, 129.529, 9.86387, 2.30993)
	pt3dadd(116.835, 129.196, 9.82114, 2.08595)
	pt3dadd(117.202, 128.874, 9.77918, 1.74998)
	pt3dadd(117.564, 128.551, 9.73929, 1.526)
	pt3dadd(117.901, 128.206, 9.69914, 1.47)
	pt3dadd(118.22, 127.84, 9.65643, 1.50062)
	pt3dadd(118.547, 127.474, 9.61129, 1.62312)
	pt3dadd(118.89, 127.115, 9.56588, 1.77625)
	pt3dadd(119.226, 126.747, 9.52398, 1.77625)
	pt3dadd(119.532, 126.359, 9.49009, 1.65375)
	pt3dadd(119.792, 125.953, 9.46695, 1.65375)
	pt3dadd(120.015, 125.536, 9.45425, 1.80687)
	pt3dadd(120.229, 125.121, 9.44995, 1.92937)
	pt3dadd(120.453, 124.715, 9.45266, 1.96)
	pt3dadd(120.675, 124.313, 9.46219, 1.92937)
	pt3dadd(120.868, 123.902, 9.47759, 1.80687)
	pt3dadd(121.014, 123.473, 9.49773, 1.65375)
	pt3dadd(121.123, 123.02, 9.52569, 1.62312)
	pt3dadd(121.234, 122.554, 9.56807, 1.65375)
	pt3dadd(121.376, 122.092, 9.62954, 1.62312)
	pt3dadd(121.553, 121.646, 9.71463, 1.67912)
	pt3dadd(121.762, 121.222, 9.83289, 1.93373)
	pt3dadd(121.995, 120.823, 9.99449, 2.20845)
	pt3dadd(122.241, 120.448, 10.1976, 2.34056)
	pt3dadd(122.496, 120.105, 10.421, 2.34056)
	pt3dadd(122.774, 119.798, 10.6344, 2.23908)
	pt3dadd(123.088, 119.525, 10.8187, 2.05623)
	pt3dadd(123.445, 119.28, 10.9761, 1.88824)
	pt3dadd(123.839, 119.051, 11.1181, 1.9031)
	pt3dadd(124.253, 118.82, 11.2526, 2.09121)
	pt3dadd(124.664, 118.574, 11.3825, 2.20845)
	pt3dadd(125.07, 118.324, 11.5103, 2.21371)
	pt3dadd(125.479, 118.091, 11.6393, 2.28982)
	pt3dadd(125.892, 117.88, 11.7713, 2.41667)
	pt3dadd(126.301, 117.68, 11.9017, 2.41667)
	pt3dadd(126.711, 117.484, 12.0193, 2.31519)
	pt3dadd(127.129, 117.281, 12.1167, 2.31519)
	pt3dadd(127.555, 117.059, 12.1994, 2.41667)
	pt3dadd(127.972, 116.81, 12.2804, 2.41667)
	pt3dadd(128.362, 116.528, 12.369, 2.28982)
	pt3dadd(128.714, 116.212, 12.467, 2.13234)
	pt3dadd(129.04, 115.874, 12.5701, 1.90836)
	pt3dadd(129.356, 115.53, 12.6736, 1.6485)
	pt3dadd(129.677, 115.194, 12.7746, 1.50062)
	pt3dadd(130.008, 114.873, 12.8714, 1.47)
	pt3dadd(130.334, 114.55, 12.9661, 1.47)
	pt3dadd(130.648, 114.22, 13.0678, 1.50062)
	pt3dadd(130.974, 113.91, 13.1833, 1.62312)
	pt3dadd(131.326, 113.637, 13.3149, 1.83225)
	pt3dadd(131.688, 113.395, 13.4732, 2.05623)
	pt3dadd(132.033, 113.17, 13.6728, 2.21371)
	pt3dadd(132.34, 112.935, 13.9054, 2.21371)
	pt3dadd(132.604, 112.653, 14.1357, 2.05623)
	pt3dadd(132.85, 112.32, 14.3333, 1.83225)
	pt3dadd(133.106, 111.962, 14.4922, 1.62312)
	pt3dadd(133.371, 111.591, 14.6152, 1.50062)
	pt3dadd(133.603, 111.192, 14.705, 1.47)
	pt3dadd(133.787, 110.763, 14.781, 1.47)
	pt3dadd(133.965, 110.331, 14.8722, 1.50062)
	pt3dadd(134.168, 109.915, 14.9886, 1.6485)
	pt3dadd(134.374, 109.509, 15.1241, 1.90836)
	pt3dadd(134.554, 109.102, 15.278, 2.12644)
	pt3dadd(134.72, 108.701, 15.453, 2.26621)
	pt3dadd(134.902, 108.308, 15.6399, 2.32526)
	pt3dadd(135.108, 107.92, 15.8219, 2.13845)
	pt3dadd(135.332, 107.528, 15.9885, 1.76945)
	pt3dadd(135.575, 107.135, 16.1358, 1.526)
	pt3dadd(135.836, 106.737, 16.2571, 1.47)
	pt3dadd(136.085, 106.322, 16.3519, 1.47)
	pt3dadd(136.295, 105.883, 16.4407, 1.47)
	pt3dadd(136.479, 105.435, 16.5415, 1.47)
	pt3dadd(136.673, 104.997, 16.6422, 1.47)
	pt3dadd(136.888, 104.575, 16.7241, 1.47)
	pt3dadd(137.112, 104.165, 16.7889, 1.526)
	pt3dadd(137.344, 103.762, 16.8488, 1.72461)
	pt3dadd(137.588, 103.369, 16.9167, 2.00984)
	pt3dadd(137.85, 102.99, 17.0065, 2.32044)
	pt3dadd(138.125, 102.626, 17.1329, 2.68704)
	pt3dadd(138.387, 102.264, 17.3003, 2.9469)
	pt3dadd(138.606, 101.881, 17.4917, 2.95741)
	pt3dadd(138.789, 101.475, 17.6823, 2.84542)
	pt3dadd(138.968, 101.058, 17.861, 2.66167)
	pt3dadd(139.159, 100.643, 18.0303, 2.34581)
	pt3dadd(139.355, 100.229, 18.1931, 1.98972)
	pt3dadd(139.55, 99.8093, 18.3497, 1.80162)
	pt3dadd(139.746, 99.3832, 18.4993, 1.8375)
	pt3dadd(139.936, 98.9524, 18.6411, 1.92937)
	pt3dadd(140.099, 98.523, 18.7769, 1.96)
	pt3dadd(140.233, 98.1027, 18.9154, 1.96)
	pt3dadd(140.351, 97.6889, 19.0712, 1.96)
	pt3dadd(140.458, 97.2689, 19.2475, 1.94359)
	pt3dadd(140.557, 96.8361, 19.4275, 1.87794)
	pt3dadd(140.662, 96.3962, 19.5912, 1.76526)
	pt3dadd(140.777, 95.9538, 19.7307, 1.64276)
	pt3dadd(140.887, 95.5036, 19.8446, 1.54107)
	pt3dadd(140.978, 95.0385, 19.9298, 1.48421)
	pt3dadd(141.076, 94.5683, 19.9976, 1.47)
	pt3dadd(141.228, 94.1213, 20.0865, 1.47)
	pt3dadd(141.421, 93.7094, 20.2227, 1.47)
	pt3dadd(141.588, 93.3036, 20.3838, 1.47)
	pt3dadd(141.688, 92.867, 20.5317, 1.47)
	pt3dadd(141.752, 92.3975, 20.655, 1.47)
	pt3dadd(141.836, 91.9216, 20.7623, 1.47)
	pt3dadd(141.96, 91.4596, 20.8612, 1.47)
	pt3dadd(142.111, 91.0119, 20.9544, 1.526)
	pt3dadd(142.271, 90.5707, 21.0428, 1.74998)
	pt3dadd(142.43, 90.1318, 21.1327, 2.11132)
	pt3dadd(142.583, 89.7037, 21.2493, 2.4473)
	pt3dadd(142.737, 89.3041, 21.4267, 2.70806)
	pt3dadd(142.892, 88.9337, 21.6621, 2.94)
  }
  prox[7] {pt3dclear()
	pt3dadd(101.353, 222.169, 15.7859, 3.34593)
	pt3dadd(101.433, 222.691, 15.7612, 2.85683)
	pt3dadd(101.558, 223.199, 15.7571, 2.29072)
	pt3dadd(101.72, 223.691, 15.7678, 1.78586)
	pt3dadd(101.887, 224.177, 15.782, 1.54021)
	pt3dadd(102.04, 224.666, 15.795, 1.55748)
	pt3dadd(102.169, 225.159, 15.8025, 1.72482)
	pt3dadd(102.281, 225.649, 15.8039, 1.96)
  }
  prox[8] {pt3dclear()
	pt3dadd(101.353, 222.169, 15.7859, 3.34593)
	pt3dadd(101.114, 222.462, 15.4809, 3.22623)
	pt3dadd(100.895, 222.801, 15.2154, 2.70276)
	pt3dadd(100.684, 223.174, 14.9898, 2.02336)
	pt3dadd(100.46, 223.548, 14.7834, 1.60822)
	pt3dadd(100.218, 223.912, 14.5773, 1.48421)
	pt3dadd(99.9716, 224.27, 14.3557, 1.47)
	pt3dadd(99.7445, 224.638, 14.1239, 1.47)
	pt3dadd(99.5455, 225.031, 13.9123, 1.47)
	pt3dadd(99.3587, 225.437, 13.7235, 1.50062)
	pt3dadd(99.1666, 225.826, 13.5136, 1.62312)
	pt3dadd(98.9728, 226.202, 13.2649, 1.80687)
	pt3dadd(98.8011, 226.594, 13.0109, 1.92937)
	pt3dadd(98.674, 227.011, 12.7765, 1.96)
	pt3dadd(98.6033, 227.448, 12.5583, 1.96)
	pt3dadd(98.5898, 227.908, 12.3533, 1.96)
	pt3dadd(98.6031, 228.386, 12.1684, 1.96)
	pt3dadd(98.5934, 228.863, 12.0149, 1.96)
	pt3dadd(98.5471, 229.334, 11.9021, 1.96)
	pt3dadd(98.4884, 229.81, 11.8227, 1.96)
	pt3dadd(98.4321, 230.293, 11.7563, 1.96)
	pt3dadd(98.3749, 230.777, 11.6895, 1.96)
	pt3dadd(98.3087, 231.261, 11.6229, 1.96)
	pt3dadd(98.2285, 231.742, 11.5598, 1.96)
	pt3dadd(98.1426, 232.221, 11.4988, 1.96)
	pt3dadd(98.0717, 232.699, 11.4377, 1.96)
	pt3dadd(98.0277, 233.179, 11.3763, 1.96)
	pt3dadd(98.0034, 233.662, 11.318, 1.96)
	pt3dadd(97.9865, 234.148, 11.267, 1.96)
	pt3dadd(97.9718, 234.636, 11.2261, 1.92937)
	pt3dadd(97.9571, 235.129, 11.1961, 1.80687)
	pt3dadd(97.9339, 235.627, 11.1771, 1.62312)
	pt3dadd(97.89, 236.125, 11.1695, 1.50062)
	pt3dadd(97.8274, 236.616, 11.1734, 1.47)
	pt3dadd(97.7709, 237.098, 11.1884, 1.47)
	pt3dadd(97.7409, 237.58, 11.2133, 1.50062)
	pt3dadd(97.7279, 238.071, 11.2457, 1.62312)
  }
}

proc shape3d_5() {
  prox[8] {	pt3dadd(97.7124, 238.57, 11.2819, 1.80687)
	pt3dadd(97.694, 239.068, 11.3173, 1.92937)
	pt3dadd(97.687, 239.565, 11.3471, 1.96)
	pt3dadd(97.7011, 240.061, 11.3676, 1.96)
	pt3dadd(97.735, 240.556, 11.3756, 1.96)
	pt3dadd(97.7762, 241.044, 11.3677, 1.96)
	pt3dadd(97.8044, 241.52, 11.3399, 1.96)
	pt3dadd(97.8016, 241.984, 11.2904, 1.96)
	pt3dadd(97.7645, 242.446, 11.2212, 1.96)
	pt3dadd(97.6991, 242.907, 11.1361, 1.96)
	pt3dadd(97.6048, 243.365, 11.0375, 1.96)
	pt3dadd(97.475, 243.815, 10.9284, 1.96)
	pt3dadd(97.316, 244.26, 10.8169, 1.94359)
	pt3dadd(97.1454, 244.705, 10.7125, 1.86373)
	pt3dadd(96.9731, 245.151, 10.6179, 1.7084)
	pt3dadd(96.8052, 245.599, 10.5307, 1.55748)
	pt3dadd(96.6577, 246.052, 10.4501, 1.49843)
	pt3dadd(96.5365, 246.511, 10.3733, 1.54107)
	pt3dadd(96.4102, 246.965, 10.2846, 1.61213)
	pt3dadd(96.2346, 247.399, 10.166, 1.64276)
	pt3dadd(96.0077, 247.812, 10.0172, 1.66357)
	pt3dadd(95.7721, 248.207, 9.84687, 1.69859)
	pt3dadd(95.5654, 248.601, 9.6584, 1.74562)
	pt3dadd(95.3909, 249.01, 9.45843, 1.8375)
	pt3dadd(95.234, 249.436, 9.26234, 1.89875)
	pt3dadd(95.089, 249.868, 9.08105, 1.8375)
	pt3dadd(94.953, 250.294, 8.90818, 1.77625)
	pt3dadd(94.8107, 250.707, 8.72526, 1.80687)
	pt3dadd(94.6508, 251.108, 8.52474, 1.80687)
	pt3dadd(94.4831, 251.51, 8.31808, 1.75984)
	pt3dadd(94.3251, 251.926, 8.12131, 1.74123)
	pt3dadd(94.1858, 252.36, 7.94987, 1.67778)
	pt3dadd(94.0636, 252.806, 7.81341, 1.5881)
	pt3dadd(93.9452, 253.253, 7.69881, 1.63734)
	pt3dadd(93.8147, 253.696, 7.57776, 1.77625)
	pt3dadd(93.6689, 254.138, 7.43444, 1.80687)
	pt3dadd(93.5111, 254.58, 7.2688, 1.77625)
	pt3dadd(93.341, 255.014, 7.08176, 1.8375)
	pt3dadd(93.168, 255.435, 6.87457, 1.92937)
	pt3dadd(93.0116, 255.853, 6.6575, 1.96)
	pt3dadd(92.8788, 256.28, 6.44518, 1.96)
	pt3dadd(92.7606, 256.711, 6.23929, 1.96)
	pt3dadd(92.6473, 257.136, 6.02383, 1.96)
	pt3dadd(92.538, 257.543, 5.78426, 1.98537)
	pt3dadd(92.4393, 257.932, 5.52706, 2.11222)
	pt3dadd(92.3603, 258.32, 5.27604, 2.36593)
	pt3dadd(92.3075, 258.73, 5.0508, 2.59426)
	pt3dadd(92.2747, 259.17, 4.85129, 2.59426)
	pt3dadd(92.2448, 259.629, 4.66754, 2.3353)
	pt3dadd(92.2082, 260.093, 4.49775, 1.9591)
	pt3dadd(92.1731, 260.557, 4.34303, 1.6485)
	pt3dadd(92.1566, 261.016, 4.19568, 1.50062)
	pt3dadd(92.1684, 261.469, 4.04737, 1.47)
	pt3dadd(92.1999, 261.921, 3.89693, 1.47)
	pt3dadd(92.2353, 262.374, 3.74171, 1.50062)
	pt3dadd(92.2642, 262.828, 3.57271, 1.62312)
	pt3dadd(92.2743, 263.276, 3.38506, 1.83225)
	pt3dadd(92.2498, 263.716, 3.19397, 2.03086)
	pt3dadd(92.1868, 264.158, 3.03563, 2.11222)
	pt3dadd(92.0959, 264.611, 2.93858, 2.03086)
	pt3dadd(91.9889, 265.076, 2.89632, 1.83225)
	pt3dadd(91.8722, 265.546, 2.88115, 1.62312)
	pt3dadd(91.751, 266.015, 2.87371, 1.51484)
	pt3dadd(91.6345, 266.488, 2.86919, 1.55748)
	pt3dadd(91.5312, 266.971, 2.8684, 1.7084)
	pt3dadd(91.4457, 267.459, 2.87222, 1.86373)
	pt3dadd(91.3846, 267.941, 2.88034, 1.94359)
	pt3dadd(91.3573, 268.41, 2.89122, 1.92937)
	pt3dadd(91.3679, 268.876, 2.90267, 1.80687)
	pt3dadd(91.4061, 269.355, 2.91231, 1.62312)
	pt3dadd(91.4482, 269.848, 2.91676, 1.50062)
	pt3dadd(91.4743, 270.346, 2.91326, 1.50062)
	pt3dadd(91.484, 270.84, 2.90974, 1.62312)
	pt3dadd(91.4912, 271.327, 2.92684, 1.80687)
	pt3dadd(91.5039, 271.809, 2.97074, 1.96)
  }
  dist {pt3dclear()
	pt3dadd(109.536, 220.469, 23.2393, 1.69741)
	pt3dadd(109.618, 220.939, 23.2961, 1.55528)
	pt3dadd(109.7, 221.412, 23.3615, 1.49843)
	pt3dadd(109.773, 221.888, 23.4365, 1.55748)
	pt3dadd(109.839, 222.363, 23.5166, 1.7084)
	pt3dadd(109.91, 222.834, 23.5992, 1.86373)
	pt3dadd(109.994, 223.302, 23.685, 1.94359)
	pt3dadd(110.091, 223.766, 23.7749, 1.96)
	pt3dadd(110.2, 224.22, 23.8664, 1.98537)
	pt3dadd(110.313, 224.663, 23.9564, 2.11222)
	pt3dadd(110.417, 225.099, 24.0455, 2.36593)
	pt3dadd(110.502, 225.54, 24.1387, 2.59426)
	pt3dadd(110.566, 225.996, 24.2394, 2.59426)
	pt3dadd(110.621, 226.469, 24.3442, 2.41667)
	pt3dadd(110.679, 226.953, 24.4468, 2.36593)
	pt3dadd(110.74, 227.433, 24.5444, 2.49278)
	pt3dadd(110.797, 227.907, 24.6362, 2.43679)
	pt3dadd(110.842, 228.373, 24.7183, 2.06058)
	pt3dadd(110.881, 228.838, 24.7876, 1.67387)
	pt3dadd(110.925, 229.302, 24.849, 1.50062)
	pt3dadd(110.991, 229.768, 24.9088, 1.47)
	pt3dadd(111.091, 230.234, 24.9561, 1.47)
	pt3dadd(111.227, 230.695, 24.9687, 1.47)
	pt3dadd(111.402, 231.135, 24.9469, 1.526)
	pt3dadd(111.608, 231.553, 24.9203, 1.74998)
	pt3dadd(111.825, 231.969, 24.9127, 2.08595)
	pt3dadd(112.032, 232.404, 24.9183, 2.26815)
	pt3dadd(112.211, 232.858, 24.9192, 2.1428)
	pt3dadd(112.353, 233.325, 24.9079, 1.84947)
	pt3dadd(112.457, 233.801, 24.885, 1.67033)
	pt3dadd(112.538, 234.281, 24.8523, 1.72262)
	pt3dadd(112.631, 234.76, 24.8218, 1.8891)
	pt3dadd(112.763, 235.236, 24.8103, 2.08991)
	pt3dadd(112.917, 235.71, 24.8167, 2.33641)
	pt3dadd(113.057, 236.181, 24.8265, 2.53523)
	pt3dadd(113.175, 236.647, 24.8323, 2.58598)
	pt3dadd(113.292, 237.105, 24.8368, 2.59012)
	pt3dadd(113.424, 237.554, 24.8474, 2.6391)
	pt3dadd(113.573, 237.994, 24.8706, 2.59426)
	pt3dadd(113.732, 238.431, 24.9056, 2.3353)
	pt3dadd(113.906, 238.867, 24.9471, 1.9591)
	pt3dadd(114.099, 239.292, 24.9972, 1.6485)
	pt3dadd(114.301, 239.697, 25.0647, 1.50062)
	pt3dadd(114.485, 240.09, 25.1419, 1.47)
	pt3dadd(114.636, 240.487, 25.2032, 1.47)
	pt3dadd(114.773, 240.89, 25.2507, 1.47)
	pt3dadd(114.917, 241.292, 25.3212, 1.55137)
	pt3dadd(115.052, 241.697, 25.4265, 1.87683)
	pt3dadd(115.162, 242.114, 25.5464, 2.3845)
	pt3dadd(115.253, 242.538, 25.6767, 2.82371)
	pt3dadd(115.335, 242.956, 25.8313, 3.14899)
	pt3dadd(115.402, 243.361, 26.0099, 3.35702)
	pt3dadd(115.446, 243.766, 26.192, 3.36007)
	pt3dadd(115.479, 244.191, 26.3515, 3.24327)
	pt3dadd(115.53, 244.643, 26.4736, 3.0532)
	pt3dadd(115.623, 245.111, 26.5621, 2.68114)
	pt3dadd(115.754, 245.579, 26.6318, 2.27496)
	pt3dadd(115.902, 246.045, 26.7007, 2.11222)
	pt3dadd(116.044, 246.512, 26.7797, 2.11222)
	pt3dadd(116.186, 246.974, 26.8629, 2.06148)
	pt3dadd(116.355, 247.418, 26.9492, 2.01074)
	pt3dadd(116.55, 247.844, 27.0476, 2.06148)
	pt3dadd(116.739, 248.266, 27.1267, 2.11222)
	pt3dadd(116.897, 248.697, 27.1154, 2.06148)
	pt3dadd(117.003, 249.139, 26.9863, 1.96896)
	pt3dadd(117.051, 249.587, 26.7824, 1.87794)
	pt3dadd(117.061, 250.038, 26.562, 1.76526)
	pt3dadd(117.065, 250.492, 26.3602, 1.64276)
	pt3dadd(117.075, 250.952, 26.1927, 1.54107)
	pt3dadd(117.094, 251.42, 26.0636, 1.51484)
	pt3dadd(117.123, 251.897, 25.9663, 1.62312)
	pt3dadd(117.162, 252.382, 25.8929, 1.80687)
	pt3dadd(117.208, 252.876, 25.843, 1.92937)
	pt3dadd(117.26, 253.381, 25.8179, 1.96)
	pt3dadd(117.316, 253.894, 25.8119, 1.96)
	pt3dadd(117.364, 254.403, 25.8182, 1.96)
	pt3dadd(117.388, 254.897, 25.833, 1.96)
	pt3dadd(117.382, 255.375, 25.8545, 1.94359)
	pt3dadd(117.357, 255.842, 25.8787, 1.86373)
	pt3dadd(117.322, 256.304, 25.9004, 1.7084)
	pt3dadd(117.277, 256.765, 25.9155, 1.55748)
	pt3dadd(117.209, 257.224, 25.9215, 1.49843)
	pt3dadd(117.108, 257.683, 25.9141, 1.52685)
	pt3dadd(116.98, 258.147, 25.8919, 1.55528)
	pt3dadd(116.848, 258.62, 25.8618, 1.52685)
	pt3dadd(116.725, 259.1, 25.8363, 1.48421)
	pt3dadd(116.612, 259.578, 25.8245, 1.47)
	pt3dadd(116.516, 260.05, 25.828, 1.47)
	pt3dadd(116.452, 260.52, 25.8481, 1.47)
	pt3dadd(116.421, 260.987, 25.8891, 1.47)
	pt3dadd(116.41, 261.444, 25.9529, 1.47)
	pt3dadd(116.417, 261.882, 26.0387, 1.47)
	pt3dadd(116.445, 262.3, 26.1438, 1.47)
	pt3dadd(116.496, 262.701, 26.2672, 1.47)
	pt3dadd(116.589, 263.079, 26.4157, 1.526)
	pt3dadd(116.746, 263.419, 26.5983, 1.74998)
	pt3dadd(116.971, 263.716, 26.8045, 2.08595)
	pt3dadd(117.246, 263.982, 27.0024, 2.30993)
	pt3dadd(117.561, 264.243, 27.1646, 2.34056)
	pt3dadd(117.91, 264.514, 27.2831, 2.22266)
	pt3dadd(118.285, 264.791, 27.3617, 2.00479)
	pt3dadd(118.676, 265.066, 27.4075, 1.79063)
	pt3dadd(119.067, 265.346, 27.429, 1.64276)
	pt3dadd(119.434, 265.655, 27.4308, 1.55528)
	pt3dadd(119.775, 265.992, 27.4134, 1.54107)
	pt3dadd(120.098, 266.332, 27.3862, 1.5859)
	pt3dadd(120.38, 266.686, 27.3682, 1.67998)
	pt3dadd(120.603, 267.089, 27.3644, 1.79046)
	pt3dadd(120.805, 267.535, 27.3616, 1.80687)
	pt3dadd(121.029, 267.984, 27.3539, 1.77625)
	pt3dadd(121.275, 268.418, 27.3501, 1.86287)
	pt3dadd(121.525, 268.845, 27.3589, 2.01445)
	pt3dadd(121.772, 269.268, 27.3814, 2.07195)
	pt3dadd(122.02, 269.689, 27.4134, 2.08986)
	pt3dadd(122.265, 270.11, 27.4489, 2.22417)
	pt3dadd(122.492, 270.54, 27.4829, 2.451)
	pt3dadd(122.689, 270.982, 27.5127, 2.64501)
	pt3dadd(122.884, 271.422, 27.5361, 2.74649)
	pt3dadd(123.121, 271.838, 27.548, 2.77186)
	pt3dadd(123.412, 272.222, 27.5401, 2.80774)
	pt3dadd(123.72, 272.598, 27.5112, 2.95126)
	pt3dadd(124.007, 272.989, 27.469, 3.1919)
	pt3dadd(124.274, 273.389, 27.405, 3.37565)
	pt3dadd(124.546, 273.776, 27.2944, 3.25751)
	pt3dadd(124.829, 274.147, 27.1399, 2.77186)
  }
}

proc shape3d_6() {
//  dist {  }
  prox[9] {pt3dclear()
	pt3dadd(109.536, 220.469, 23.2393, 1.69741)
	pt3dadd(109.611, 220.911, 22.7954, 1.55528)
	pt3dadd(109.648, 221.338, 22.3336, 1.48421)
	pt3dadd(109.646, 221.715, 21.8603, 1.47)
	pt3dadd(109.625, 222.02, 21.3906, 1.47)
	pt3dadd(109.601, 222.261, 20.9311, 1.47)
	pt3dadd(109.583, 222.455, 20.4845, 1.47)
	pt3dadd(109.578, 222.629, 20.0572, 1.47)
	pt3dadd(109.584, 222.817, 19.6603, 1.47)
	pt3dadd(109.598, 223.047, 19.3046, 1.47)
	pt3dadd(109.62, 223.328, 18.9955, 1.47)
	pt3dadd(109.653, 223.658, 18.7312, 1.47)
	pt3dadd(109.692, 224.029, 18.5019, 1.47)
	pt3dadd(109.738, 224.427, 18.2836, 1.47)
	pt3dadd(109.794, 224.832, 18.0434, 1.47)
	pt3dadd(109.852, 225.225, 17.7615, 1.47)
	pt3dadd(109.899, 225.594, 17.4391, 1.47)
	pt3dadd(109.944, 225.931, 17.0863, 1.47)
	pt3dadd(110.008, 226.241, 16.7165, 1.47)
	pt3dadd(110.089, 226.551, 16.3499, 1.47)
	pt3dadd(110.162, 226.885, 16.0047, 1.47)
	pt3dadd(110.217, 227.243, 15.6856, 1.47)
	pt3dadd(110.256, 227.615, 15.3883, 1.47)
	pt3dadd(110.285, 227.999, 15.1203, 1.47)
	pt3dadd(110.308, 228.406, 14.9022, 1.47)
	pt3dadd(110.324, 228.838, 14.7288, 1.47)
	pt3dadd(110.329, 229.28, 14.5534, 1.47)
	pt3dadd(110.318, 229.713, 14.3329, 1.47)
	pt3dadd(110.287, 230.127, 14.0648, 1.47)
	pt3dadd(110.232, 230.532, 13.7861, 1.47)
	pt3dadd(110.16, 230.95, 13.5534, 1.47)
	pt3dadd(110.088, 231.397, 13.3996, 1.47)
	pt3dadd(110.03, 231.874, 13.3043, 1.47)
	pt3dadd(109.988, 232.365, 13.2239, 1.47)
	pt3dadd(109.956, 232.855, 13.1363, 1.47)
	pt3dadd(109.93, 233.339, 13.0409, 1.47)
	pt3dadd(109.913, 233.819, 12.9394, 1.47)
	pt3dadd(109.909, 234.298, 12.8289, 1.47)
	pt3dadd(109.918, 234.775, 12.7034, 1.47)
	pt3dadd(109.938, 235.246, 12.5599, 1.47)
	pt3dadd(109.951, 235.703, 12.4032, 1.47)
	pt3dadd(109.936, 236.144, 12.2357, 1.47)
	pt3dadd(109.88, 236.571, 12.0482, 1.47)
	pt3dadd(109.8, 236.982, 11.827, 1.47)
	pt3dadd(109.729, 237.372, 11.5646, 1.47)
	pt3dadd(109.698, 237.737, 11.2666, 1.47)
	pt3dadd(109.714, 238.086, 10.9487, 1.47)
	pt3dadd(109.769, 238.431, 10.6291, 1.47)
	pt3dadd(109.852, 238.783, 10.326, 1.47)
	pt3dadd(109.958, 239.151, 10.05, 1.47)
	pt3dadd(110.084, 239.531, 9.79547, 1.47)
	pt3dadd(110.227, 239.914, 9.55307, 1.47)
	pt3dadd(110.379, 240.305, 9.32832, 1.47)
	pt3dadd(110.531, 240.713, 9.13718, 1.47)
	pt3dadd(110.675, 241.142, 8.98895, 1.47)
	pt3dadd(110.803, 241.591, 8.87795, 1.47)
	pt3dadd(110.925, 242.049, 8.7868, 1.47)
	pt3dadd(111.063, 242.502, 8.69789, 1.47)
	pt3dadd(111.222, 242.948, 8.60257, 1.47)
	pt3dadd(111.385, 243.387, 8.49878, 1.47)
	pt3dadd(111.545, 243.823, 8.38426, 1.47)
	pt3dadd(111.696, 244.258, 8.25355, 1.48421)
	pt3dadd(111.834, 244.695, 8.10077, 1.52685)
	pt3dadd(111.947, 245.134, 7.92872, 1.55528)
	pt3dadd(112.02, 245.58, 7.75359, 1.52685)
	pt3dadd(112.052, 246.037, 7.59479, 1.48421)
	pt3dadd(112.059, 246.507, 7.46132, 1.47)
	pt3dadd(112.058, 246.982, 7.35092, 1.47)
	pt3dadd(112.052, 247.452, 7.25519, 1.47)
	pt3dadd(112.037, 247.914, 7.15939, 1.47)
	pt3dadd(112.012, 248.377, 7.05094, 1.47)
	pt3dadd(111.983, 248.851, 6.93556, 1.47)
	pt3dadd(111.958, 249.341, 6.83164, 1.47)
	pt3dadd(111.948, 249.845, 6.75045, 1.47)
	pt3dadd(111.96, 250.352, 6.69198, 1.47)
	pt3dadd(111.985, 250.847, 6.65135, 1.47)
	pt3dadd(112.006, 251.324, 6.62225, 1.47)
	pt3dadd(112, 251.79, 6.59954, 1.47)
	pt3dadd(111.964, 252.262, 6.58154, 1.47)
	pt3dadd(111.907, 252.75, 6.56952, 1.47)
	pt3dadd(111.847, 253.245, 6.56503, 1.47)
	pt3dadd(111.793, 253.739, 6.5682, 1.47)
	pt3dadd(111.745, 254.226, 6.57812, 1.47)
	pt3dadd(111.7, 254.709, 6.59405, 1.47)
	pt3dadd(111.66, 255.191, 6.61574, 1.47)
	pt3dadd(111.623, 255.675, 6.64306, 1.47)
	pt3dadd(111.585, 256.158, 6.67554, 1.50062)
	pt3dadd(111.554, 256.637, 6.71159, 1.62312)
	pt3dadd(111.556, 257.107, 6.74776, 1.77625)
	pt3dadd(111.612, 257.574, 6.77936, 1.77625)
	pt3dadd(111.713, 258.042, 6.80249, 1.62312)
	pt3dadd(111.839, 258.509, 6.81564, 1.50062)
	pt3dadd(111.976, 258.97, 6.81948, 1.47)
	pt3dadd(112.124, 259.423, 6.8146, 1.47)
	pt3dadd(112.286, 259.868, 6.79994, 1.47)
	pt3dadd(112.458, 260.308, 6.77407, 1.47)
	pt3dadd(112.627, 260.752, 6.73881, 1.47)
	pt3dadd(112.782, 261.203, 6.69829, 1.47)
	pt3dadd(112.933, 261.657, 6.65092, 1.47)
	pt3dadd(113.1, 262.101, 6.58701, 1.47)
	pt3dadd(113.288, 262.53, 6.49859, 1.47)
	pt3dadd(113.491, 262.943, 6.38452, 1.50062)
	pt3dadd(113.702, 263.345, 6.24374, 1.62312)
	pt3dadd(113.909, 263.737, 6.07226, 1.85171)
	pt3dadd(114.101, 264.119, 5.86603, 2.15357)
	pt3dadd(114.266, 264.483, 5.62224, 2.43375)
	pt3dadd(114.391, 264.829, 5.34894, 2.50986)
	pt3dadd(114.484, 265.181, 5.07464, 2.30579)
	pt3dadd(114.581, 265.557, 4.8289, 1.9532)
	pt3dadd(114.721, 265.951, 4.61678, 1.6485)
	pt3dadd(114.908, 266.347, 4.42759, 1.50062)
	pt3dadd(115.118, 266.745, 4.25365, 1.47)
	pt3dadd(115.334, 267.148, 4.08916, 1.47)
	pt3dadd(115.566, 267.543, 3.92576, 1.47)
	pt3dadd(115.827, 267.917, 3.75948, 1.47)
	pt3dadd(116.112, 268.278, 3.59707, 1.47)
	pt3dadd(116.401, 268.642, 3.44815, 1.47)
	pt3dadd(116.689, 269.013, 3.3123, 1.47)
	pt3dadd(116.984, 269.381, 3.18201, 1.47)
	pt3dadd(117.281, 269.746, 3.05634, 1.47)
	pt3dadd(117.566, 270.119, 2.93882, 1.47)
	pt3dadd(117.845, 270.495, 2.82176, 1.47)
	pt3dadd(118.13, 270.86, 2.68638, 1.50062)
	pt3dadd(118.424, 271.205, 2.51956, 1.62312)
	pt3dadd(118.718, 271.535, 2.32217, 1.80687)
	pt3dadd(119.009, 271.858, 2.10623, 1.96)
  }
  dist[1] {pt3dclear()
	pt3dadd(154.254, 162.426, 11.6921, 3.34593)
	pt3dadd(154.684, 162.219, 11.8505, 3.28468)
	pt3dadd(155.123, 162.08, 12.0493, 3.1919)
	pt3dadd(155.577, 162.026, 12.2662, 2.85873)
	pt3dadd(156.046, 162.026, 12.4641, 2.34512)
	pt3dadd(156.515, 162.042, 12.6367, 1.91748)
	pt3dadd(156.979, 162.05, 12.7935, 1.68234)
	pt3dadd(157.438, 162.041, 12.9411, 1.62854)
	pt3dadd(157.896, 162.013, 13.0805, 1.72262)
	pt3dadd(158.358, 161.969, 13.2116, 1.86373)
	pt3dadd(158.827, 161.914, 13.3379, 1.94359)
	pt3dadd(159.303, 161.859, 13.4675, 1.96)
	pt3dadd(159.783, 161.818, 13.6043, 1.96)
	pt3dadd(160.263, 161.791, 13.7358, 1.96)
	pt3dadd(160.735, 161.765, 13.8402, 1.96)
	pt3dadd(161.198, 161.724, 13.9205, 1.96)
	pt3dadd(161.657, 161.657, 14.0047, 1.96)
	pt3dadd(162.117, 161.564, 14.1088, 1.96)
	pt3dadd(162.576, 161.451, 14.2285, 1.96)
	pt3dadd(163.025, 161.326, 14.3648, 1.98537)
	pt3dadd(163.456, 161.186, 14.5261, 2.08685)
	pt3dadd(163.878, 161.027, 14.7077, 2.21371)
	pt3dadd(164.304, 160.842, 14.8902, 2.21371)
	pt3dadd(164.738, 160.637, 15.0544, 2.05623)
	pt3dadd(165.181, 160.435, 15.196, 1.83225)
	pt3dadd(165.63, 160.254, 15.325, 1.65375)
	pt3dadd(166.057, 160.063, 15.4558, 1.67912)
	pt3dadd(166.433, 159.804, 15.601, 1.93373)
	pt3dadd(166.775, 159.488, 15.768, 2.20845)
	pt3dadd(167.123, 159.185, 15.9529, 2.31519)
	pt3dadd(167.491, 158.93, 16.1413, 2.26445)
	pt3dadd(167.869, 158.71, 16.3229, 2.18834)
	pt3dadd(168.258, 158.511, 16.4979, 2.13759)
	pt3dadd(168.665, 158.335, 16.6665, 2.06148)
	pt3dadd(169.089, 158.18, 16.823, 2.01074)
	pt3dadd(169.524, 158.034, 16.9598, 2.06148)
	pt3dadd(169.959, 157.887, 17.0795, 2.13759)
	pt3dadd(170.393, 157.748, 17.2074, 2.18834)
	pt3dadd(170.833, 157.648, 17.3749, 2.23908)
	pt3dadd(171.287, 157.609, 17.5894, 2.21371)
	pt3dadd(171.736, 157.612, 17.831, 2.08685)
	pt3dadd(172.159, 157.611, 18.0698, 2.01074)
	pt3dadd(172.564, 157.579, 18.2857, 2.08685)
	pt3dadd(172.982, 157.525, 18.4839, 2.26445)
	pt3dadd(173.419, 157.462, 18.6813, 2.44204)
	pt3dadd(173.866, 157.395, 18.8787, 2.49278)
	pt3dadd(174.315, 157.318, 19.0631, 2.34056)
	pt3dadd(174.761, 157.229, 19.2293, 2.0816)
	pt3dadd(175.202, 157.13, 19.3819, 1.83225)
	pt3dadd(175.642, 157.031, 19.5263, 1.62312)
	pt3dadd(176.086, 156.936, 19.667, 1.53125)
	pt3dadd(176.535, 156.845, 19.8055, 1.62312)
	pt3dadd(176.988, 156.763, 19.9396, 1.80687)
	pt3dadd(177.446, 156.71, 20.0685, 1.92938)
	pt3dadd(177.918, 156.694, 20.193, 1.96)
	pt3dadd(178.409, 156.697, 20.309, 1.96)
	pt3dadd(178.915, 156.691, 20.4107, 1.96)
	pt3dadd(179.434, 156.665, 20.4974, 1.96)
	pt3dadd(179.961, 156.614, 20.5694, 1.96)
	pt3dadd(180.488, 156.523, 20.6112, 1.96)
	pt3dadd(180.976, 156.393, 20.6358, 1.98537)
	pt3dadd(181.405, 156.234, 20.6811, 2.03086)
	pt3dadd(181.816, 156.038, 20.7345, 2.01509)
	pt3dadd(182.229, 155.79, 20.7844, 2.00459)
	pt3dadd(182.627, 155.502, 20.848, 2.08595)
	pt3dadd(183.018, 155.212, 20.9297, 2.02996)
	pt3dadd(183.417, 154.955, 21.0235, 1.74998)
	pt3dadd(183.837, 154.752, 21.1173, 1.526)
	pt3dadd(184.278, 154.608, 21.2002, 1.47)
	pt3dadd(184.735, 154.502, 21.276, 1.47)
	pt3dadd(185.193, 154.394, 21.3602, 1.47)
	pt3dadd(185.643, 154.269, 21.4667, 1.50062)
	pt3dadd(186.079, 154.133, 21.6105, 1.6485)
	pt3dadd(186.491, 153.991, 21.8051, 1.9532)
  }
}

proc shape3d_7() {
  dist[1] {	pt3dadd(186.883, 153.85, 22.0458, 2.28632)
	pt3dadd(187.261, 153.721, 22.3183, 2.43199)
	pt3dadd(187.624, 153.608, 22.6189, 2.31695)
	pt3dadd(187.975, 153.508, 22.9421, 2.15116)
	pt3dadd(188.326, 153.415, 23.2699, 2.20956)
	pt3dadd(188.679, 153.332, 23.5936, 2.45912)
	pt3dadd(189.021, 153.252, 23.9125, 2.63672)
	pt3dadd(189.358, 153.157, 24.2049, 2.61549)
	pt3dadd(189.712, 153.04, 24.4422, 2.48688)
	pt3dadd(190.09, 152.893, 24.628, 2.3913)
	pt3dadd(190.484, 152.702, 24.7893, 2.36593)
	pt3dadd(190.889, 152.473, 24.9373, 2.36593)
	pt3dadd(191.303, 152.241, 25.0672, 2.34056)
	pt3dadd(191.721, 152.046, 25.1824, 2.26445)
	pt3dadd(192.149, 151.903, 25.2908, 2.21371)
	pt3dadd(192.597, 151.797, 25.3918, 2.26445)
	pt3dadd(193.06, 151.707, 25.4814, 2.31519)
	pt3dadd(193.526, 151.628, 25.5653, 2.26445)
	pt3dadd(193.984, 151.567, 25.6622, 2.23908)
	pt3dadd(194.436, 151.531, 25.7882, 2.3913)
	pt3dadd(194.893, 151.51, 25.939, 2.59426)
	pt3dadd(195.356, 151.479, 26.0962, 2.59426)
	pt3dadd(195.818, 151.413, 26.244, 2.3913)
	pt3dadd(196.271, 151.301, 26.3758, 2.23908)
	pt3dadd(196.713, 151.155, 26.4915, 2.23908)
	pt3dadd(197.15, 150.991, 26.5936, 2.21371)
	pt3dadd(197.588, 150.824, 26.6831, 2.07044)
	pt3dadd(198.032, 150.662, 26.7597, 1.91972)
	pt3dadd(198.484, 150.51, 26.8238, 1.86153)
	pt3dadd(198.94, 150.368, 26.8785, 1.87794)
	pt3dadd(199.396, 150.223, 26.9294, 1.84732)
	pt3dadd(199.848, 150.064, 26.9828, 1.73903)
	pt3dadd(200.293, 149.886, 27.0411, 1.7106)
	pt3dadd(200.73, 149.69, 27.104, 1.82109)
	pt3dadd(201.161, 149.486, 27.1714, 1.92938)
	pt3dadd(201.592, 149.287, 27.2432, 1.96)
	pt3dadd(202.026, 149.1, 27.317, 1.96)
	pt3dadd(202.466, 148.93, 27.3896, 1.96)
	pt3dadd(202.913, 148.786, 27.4575, 1.96)
	pt3dadd(203.37, 148.676, 27.5163, 1.96)
	pt3dadd(203.832, 148.595, 27.5676, 1.98537)
	pt3dadd(204.29, 148.527, 27.6212, 2.10632)
	pt3dadd(204.742, 148.477, 27.6852, 2.31695)
	pt3dadd(205.197, 148.472, 27.7591, 2.4379)
	pt3dadd(205.661, 148.513, 27.8378, 2.36593)
  }
  dist[2] {pt3dclear()
	pt3dadd(154.254, 162.426, 11.6921, 3.34593)
	pt3dadd(154.573, 162.028, 11.8267, 3.49996)
	pt3dadd(154.861, 161.624, 11.8852, 3.36259)
	pt3dadd(155.1, 161.196, 11.8733, 3.04148)
	pt3dadd(155.304, 160.744, 11.837, 2.68449)
	pt3dadd(155.502, 160.289, 11.7991, 2.36773)
	pt3dadd(155.712, 159.842, 11.7605, 2.14285)
	pt3dadd(155.933, 159.401, 11.7206, 1.93898)
	pt3dadd(156.159, 158.96, 11.6809, 1.80162)
	pt3dadd(156.389, 158.516, 11.6431, 1.80687)
	pt3dadd(156.631, 158.073, 11.6095, 1.80687)
	pt3dadd(156.888, 157.644, 11.5823, 1.74562)
	pt3dadd(157.148, 157.232, 11.5634, 1.74037)
	pt3dadd(157.4, 156.831, 11.5532, 1.87248)
	pt3dadd(157.657, 156.44, 11.5516, 2.11658)
	pt3dadd(157.929, 156.058, 11.5596, 2.30993)
	pt3dadd(158.205, 155.676, 11.5791, 2.36593)
	pt3dadd(158.457, 155.276, 11.6094, 2.34056)
	pt3dadd(158.67, 154.848, 11.6447, 2.23908)
	pt3dadd(158.855, 154.397, 11.6787, 2.05623)
	pt3dadd(159.037, 153.938, 11.7092, 1.86287)
	pt3dadd(159.225, 153.479, 11.7358, 1.77625)
	pt3dadd(159.422, 153.022, 11.7579, 1.8375)
	pt3dadd(159.635, 152.576, 11.7746, 1.92937)
	pt3dadd(159.86, 152.147, 11.7845, 1.92937)
	pt3dadd(160.072, 151.726, 11.7861, 1.82109)
	pt3dadd(160.249, 151.288, 11.7792, 1.7106)
	pt3dadd(160.404, 150.825, 11.7662, 1.7084)
	pt3dadd(160.568, 150.357, 11.751, 1.74123)
	pt3dadd(160.747, 149.896, 11.7364, 1.75984)
	pt3dadd(160.92, 149.439, 11.7232, 1.86287)
	pt3dadd(161.091, 148.985, 11.7119, 2.05623)
	pt3dadd(161.287, 148.541, 11.7054, 2.26445)
	pt3dadd(161.522, 148.111, 11.7101, 2.44204)
	pt3dadd(161.778, 147.685, 11.7337, 2.54352)
	pt3dadd(162.018, 147.252, 11.7809, 2.58836)
	pt3dadd(162.214, 146.806, 11.8487, 2.62139)
	pt3dadd(162.374, 146.36, 11.9198, 2.60959)
	pt3dadd(162.532, 145.924, 11.9696, 2.59602)
	pt3dadd(162.714, 145.492, 11.9857, 2.6391)
	pt3dadd(162.919, 145.053, 11.9729, 2.59426)
	pt3dadd(163.143, 144.612, 11.9389, 2.3913)
	pt3dadd(163.388, 144.184, 11.8832, 2.23908)
	pt3dadd(163.65, 143.772, 11.8078, 2.26445)
	pt3dadd(163.921, 143.368, 11.7285, 2.34056)
	pt3dadd(164.196, 142.966, 11.6568, 2.36593)
	pt3dadd(164.473, 142.565, 11.5812, 2.36593)
	pt3dadd(164.754, 142.174, 11.4882, 2.36593)
	pt3dadd(165.047, 141.808, 11.3824, 2.36593)
	pt3dadd(165.348, 141.467, 11.2735, 2.36593)
	pt3dadd(165.659, 141.144, 11.1646, 2.36593)
	pt3dadd(165.989, 140.834, 11.0564, 2.36593)
	pt3dadd(166.337, 140.525, 10.95, 2.36593)
	pt3dadd(166.689, 140.202, 10.8449, 2.36593)
	pt3dadd(167.031, 139.858, 10.739, 2.36593)
	pt3dadd(167.359, 139.501, 10.6308, 2.36593)
	pt3dadd(167.684, 139.143, 10.5222, 2.36593)
	pt3dadd(168.022, 138.799, 10.4162, 2.36593)
	pt3dadd(168.371, 138.462, 10.3177, 2.36593)
	pt3dadd(168.713, 138.118, 10.2346, 2.36593)
	pt3dadd(169.044, 137.759, 10.1731, 2.36593)
	pt3dadd(169.373, 137.395, 10.1336, 2.36593)
	pt3dadd(169.707, 137.031, 10.1139, 2.36593)
	pt3dadd(170.043, 136.667, 10.1125, 2.36593)
	pt3dadd(170.386, 136.31, 10.1272, 2.36593)
	pt3dadd(170.741, 135.968, 10.1563, 2.36593)
	pt3dadd(171.106, 135.644, 10.196, 2.34056)
	pt3dadd(171.479, 135.344, 10.2403, 2.26445)
	pt3dadd(171.866, 135.077, 10.2849, 2.21371)
	pt3dadd(172.269, 134.84, 10.329, 2.26445)
	pt3dadd(172.677, 134.605, 10.3711, 2.34056)
	pt3dadd(173.084, 134.353, 10.4065, 2.36593)
	pt3dadd(173.481, 134.078, 10.4315, 2.36593)
	pt3dadd(173.845, 133.764, 10.448, 2.36593)
	pt3dadd(174.182, 133.415, 10.4598, 2.32415)
	pt3dadd(174.527, 133.066, 10.4689, 2.17343)
	pt3dadd(174.892, 132.737, 10.4754, 1.95776)
	pt3dadd(175.247, 132.417, 10.4784, 1.7666)
	pt3dadd(175.582, 132.095, 10.4769, 1.63734)
	pt3dadd(175.902, 131.762, 10.4695, 1.65375)
	pt3dadd(176.209, 131.403, 10.4539, 1.80687)
	pt3dadd(176.498, 131.013, 10.4257, 1.95475)
	pt3dadd(176.778, 130.602, 10.3815, 2.06148)
	pt3dadd(177.053, 130.179, 10.3235, 2.13759)
	pt3dadd(177.318, 129.741, 10.2566, 2.16296)
	pt3dadd(177.575, 129.281, 10.1815, 2.16296)
	pt3dadd(177.831, 128.798, 10.1022, 2.16296)
	pt3dadd(178.084, 128.295, 10.0574, 2.11222)
	pt3dadd(178.292, 127.807, 10.0467, 2.08685)
	pt3dadd(178.442, 127.365, 10.0219, 2.18833)
	pt3dadd(178.595, 126.928, 10.0057, 2.21371)
	pt3dadd(178.777, 126.47, 10.0238, 2.08685)
	pt3dadd(178.969, 126.006, 10.057, 1.95475)
	pt3dadd(179.167, 125.549, 10.0981, 1.86287)
	pt3dadd(179.375, 125.101, 10.1457, 1.9031)
	pt3dadd(179.598, 124.662, 10.1983, 2.11658)
	pt3dadd(179.836, 124.228, 10.2526, 2.28456)
	pt3dadd(180.076, 123.795, 10.3013, 2.28982)
	pt3dadd(180.3, 123.358, 10.3322, 2.34056)
	pt3dadd(180.513, 122.928, 10.3285, 2.54352)
	pt3dadd(180.744, 122.524, 10.2737, 2.69575)
	pt3dadd(181.006, 122.148, 10.1599, 2.67038)
	pt3dadd(181.281, 121.782, 9.99898, 2.59426)
	pt3dadd(181.542, 121.404, 9.8187, 2.54352)
	pt3dadd(181.785, 121.01, 9.64185, 2.46741)
	pt3dadd(182.027, 120.613, 9.47224, 2.3913)
	pt3dadd(182.282, 120.228, 9.3055, 2.34056)
	pt3dadd(182.54, 119.847, 9.14213, 2.23908)
	pt3dadd(182.777, 119.455, 8.98913, 2.08685)
	pt3dadd(182.975, 119.044, 8.85283, 1.98537)
	pt3dadd(183.141, 118.618, 8.72694, 1.96)
	pt3dadd(183.295, 118.185, 8.59812, 1.96)
	pt3dadd(183.444, 117.746, 8.46433, 1.96)
	pt3dadd(183.577, 117.295, 8.33057, 1.92937)
	pt3dadd(183.691, 116.834, 8.19682, 1.8375)
	pt3dadd(183.8, 116.38, 8.06565, 1.75984)
	pt3dadd(183.931, 115.944, 7.94697, 1.74123)
	pt3dadd(184.096, 115.516, 7.84711, 1.69199)
	pt3dadd(184.284, 115.079, 7.76447, 1.61433)
	pt3dadd(184.464, 114.626, 7.69713, 1.56949)
	pt3dadd(184.614, 114.162, 7.64556, 1.52685)
	pt3dadd(184.743, 113.693, 7.60756, 1.51484)
	pt3dadd(184.881, 113.228, 7.57829, 1.6485)
	pt3dadd(185.044, 112.768, 7.55587, 1.9532)
	pt3dadd(185.224, 112.311, 7.54206, 2.28632)
	pt3dadd(185.407, 111.851, 7.53735, 2.45736)
	pt3dadd(185.572, 111.382, 7.53668, 2.46327)
	pt3dadd(185.716, 110.91, 7.52941, 2.46327)
	pt3dadd(185.853, 110.45, 7.50576, 2.45736)
	pt3dadd(186.004, 110.009, 7.46409, 2.34232)
	pt3dadd(186.172, 109.58, 7.41178, 2.2078)
	pt3dadd(186.339, 109.15, 7.35951, 2.13759)
	pt3dadd(186.491, 108.709, 7.31299, 2.11222)
	pt3dadd(186.628, 108.257, 7.27074, 2.23908)
	pt3dadd(186.768, 107.8, 7.22908, 2.49278)
	pt3dadd(186.923, 107.342, 7.18487, 2.59426)
	pt3dadd(187.082, 106.887, 7.13343, 2.51815)
	pt3dadd(187.238, 106.434, 7.06859, 2.49278)
	pt3dadd(187.395, 105.986, 6.98599, 2.51815)
	pt3dadd(187.554, 105.543, 6.88243, 2.49278)
	pt3dadd(187.714, 105.11, 6.75154, 2.49278)
	pt3dadd(187.892, 104.689, 6.58999, 2.53762)
	pt3dadd(188.102, 104.275, 6.40924, 2.56475)
	pt3dadd(188.311, 103.853, 6.22964, 2.58598)
	pt3dadd(188.472, 103.416, 6.06411, 2.5606)
	pt3dadd(188.607, 102.976, 5.91225, 2.46327)
	pt3dadd(188.769, 102.553, 5.76414, 2.3854)
	pt3dadd(188.962, 102.148, 5.60818, 2.36593)
	pt3dadd(189.149, 101.748, 5.44036, 2.3913)
	pt3dadd(189.305, 101.337, 5.2709, 2.49278)
	pt3dadd(189.433, 100.906, 5.11905, 2.59426)
	pt3dadd(189.542, 100.452, 4.9963, 2.49278)
	pt3dadd(189.651, 99.981, 4.89786, 2.23908)
	pt3dadd(189.783, 99.5064, 4.81279, 2.11222)
	pt3dadd(189.957, 99.0473, 4.73672, 2.11222)
  }
}

proc shape3d_8() {
  dist[2] {	pt3dadd(190.181, 98.6174, 4.66758, 2.03086)
	pt3dadd(190.438, 98.2102, 4.59737, 1.86287)
	pt3dadd(190.695, 97.8053, 4.52498, 1.80162)
	pt3dadd(190.936, 97.3911, 4.46348, 1.96435)
	pt3dadd(191.159, 96.9669, 4.42093, 2.20845)
	pt3dadd(191.373, 96.5364, 4.39452, 2.36593)
	pt3dadd(191.597, 96.1076, 4.3868, 2.49278)
	pt3dadd(191.846, 95.6909, 4.4085, 2.64501)
	pt3dadd(192.122, 95.2945, 4.46362, 2.74649)
	pt3dadd(192.411, 94.9139, 4.53871, 2.77186)
	pt3dadd(192.69, 94.5343, 4.61058, 2.74649)
	pt3dadd(192.954, 94.1516, 4.66407, 2.64501)
	pt3dadd(193.223, 93.7742, 4.69595, 2.451)
	pt3dadd(193.504, 93.3995, 4.70643, 2.22417)
	pt3dadd(193.784, 93.0098, 4.69858, 2.11523)
	pt3dadd(194.048, 92.5952, 4.67934, 2.21827)
	pt3dadd(194.31, 92.1735, 4.64888, 2.40202)
	pt3dadd(194.6, 91.7735, 4.5967, 2.5081)
	pt3dadd(194.912, 91.3936, 4.51747, 2.54528)
	pt3dadd(195.203, 91.0044, 4.42157, 2.53762)
	pt3dadd(195.457, 90.5969, 4.32473, 2.42563)
	pt3dadd(195.714, 90.1993, 4.23622, 2.22417)
	pt3dadd(196.014, 89.8342, 4.16081, 2.11523)
	pt3dadd(196.342, 89.4811, 4.10415, 2.1988)
	pt3dadd(196.65, 89.104, 4.06884, 2.32415)
	pt3dadd(196.93, 88.7023, 4.0492, 2.3913)
	pt3dadd(197.212, 88.3029, 4.03627, 2.49278)
	pt3dadd(197.513, 87.9198, 4.02444, 2.66447)
	pt3dadd(197.82, 87.5458, 4.00977, 2.84383)
	pt3dadd(198.113, 87.1675, 3.98839, 2.96653)
	pt3dadd(198.387, 86.7788, 3.96133, 2.91579)
	pt3dadd(198.666, 86.3923, 3.93602, 2.64086)
	pt3dadd(198.975, 86.0305, 3.92026, 2.30403)
	pt3dadd(199.319, 85.6989, 3.91814, 2.00984)
	pt3dadd(199.685, 85.3889, 3.92881, 1.72461)
	pt3dadd(200.075, 85.1066, 3.94446, 1.526)
	pt3dadd(200.501, 84.8657, 3.95533, 1.47)
	pt3dadd(200.957, 84.6514, 3.96189, 1.47)
	pt3dadd(201.427, 84.4238, 3.97488, 1.47)
	pt3dadd(201.901, 84.1544, 3.99879, 1.47)
	pt3dadd(202.346, 83.8223, 4.01491, 1.526)
	pt3dadd(202.687, 83.4044, 3.98121, 1.69398)
	pt3dadd(202.887, 82.913, 3.86611, 1.80597)
	pt3dadd(203.005, 82.4054, 3.69166, 1.69398)
	pt3dadd(203.134, 81.9304, 3.52314, 1.526)
	pt3dadd(203.321, 81.4977, 3.41172, 1.47)
	pt3dadd(203.558, 81.0966, 3.36117, 1.47)
	pt3dadd(203.83, 80.7201, 3.34257, 1.47)
	pt3dadd(204.133, 80.3704, 3.32678, 1.47)
	pt3dadd(204.471, 80.0474, 3.304, 1.47)
	pt3dadd(204.828, 79.7338, 3.2808, 1.50062)
	pt3dadd(205.187, 79.4097, 3.26646, 1.67387)
	pt3dadd(205.556, 79.081, 3.26449, 2.08005)
	pt3dadd(205.954, 78.7702, 3.2726, 2.58487)
	pt3dadd(206.379, 78.479, 3.28696, 2.91579)
	pt3dadd(206.806, 78.1823, 3.30406, 2.96653)
	pt3dadd(207.207, 77.8488, 3.31708, 2.8692)
	pt3dadd(207.554, 77.4598, 3.31419, 2.74058)
	pt3dadd(207.839, 77.0211, 3.28697, 2.48753)
	pt3dadd(208.074, 76.5571, 3.24076, 2.06058)
	pt3dadd(208.271, 76.0849, 3.1912, 1.67387)
	pt3dadd(208.434, 75.6078, 3.15026, 1.50062)
	pt3dadd(208.571, 75.1274, 3.12087, 1.47)
	pt3dadd(208.689, 74.6481, 3.10309, 1.47)
	pt3dadd(208.797, 74.1738, 3.09787, 1.47)
	pt3dadd(208.901, 73.7053, 3.10257, 1.47)
  }
  dist[3] {pt3dclear()
	pt3dadd(145.41, 202.658, 13.3249, 2.67741)
	pt3dadd(145.9, 202.814, 13.3004, 2.51882)
	pt3dadd(146.394, 202.941, 13.2957, 2.27908)
	pt3dadd(146.887, 203.037, 13.3328, 1.91313)
	pt3dadd(147.371, 203.108, 13.4213, 1.60232)
	pt3dadd(147.845, 203.159, 13.5557, 1.48421)
	pt3dadd(148.302, 203.206, 13.7266, 1.47)
	pt3dadd(148.744, 203.273, 13.9208, 1.47)
	pt3dadd(149.17, 203.386, 14.1216, 1.526)
	pt3dadd(149.584, 203.558, 14.3143, 1.69398)
	pt3dadd(149.992, 203.769, 14.485, 1.8366)
	pt3dadd(150.404, 203.978, 14.625, 1.81648)
	pt3dadd(150.816, 204.16, 14.7518, 1.74037)
	pt3dadd(151.222, 204.322, 14.8916, 1.74562)
	pt3dadd(151.633, 204.462, 15.0406, 1.8375)
	pt3dadd(152.061, 204.566, 15.1789, 1.92938)
	pt3dadd(152.507, 204.628, 15.3038, 1.96)
	pt3dadd(152.968, 204.653, 15.4219, 1.96)
	pt3dadd(153.446, 204.656, 15.5321, 1.96)
	pt3dadd(153.937, 204.659, 15.6295, 1.96)
	pt3dadd(154.427, 204.684, 15.7126, 1.92938)
	pt3dadd(154.908, 204.735, 15.7825, 1.80687)
	pt3dadd(155.38, 204.8, 15.8405, 1.65375)
	pt3dadd(155.846, 204.867, 15.889, 1.65375)
	pt3dadd(156.313, 204.925, 15.9324, 1.79046)
	pt3dadd(156.785, 204.973, 15.9764, 1.8331)
	pt3dadd(157.261, 205.025, 16.0244, 1.7084)
	pt3dadd(157.74, 205.085, 16.0746, 1.55748)
	pt3dadd(158.22, 205.129, 16.1236, 1.48421)
	pt3dadd(158.709, 205.134, 16.1715, 1.48421)
	pt3dadd(159.214, 205.114, 16.2257, 1.55748)
	pt3dadd(159.745, 205.103, 16.2974, 1.7084)
	pt3dadd(160.303, 205.111, 16.3971, 1.90857)
	pt3dadd(160.87, 205.137, 16.5467, 2.21262)
	pt3dadd(161.444, 205.148, 16.7243, 2.5547)
	pt3dadd(162.021, 205.109, 16.874, 2.68746)
	pt3dadd(162.538, 205.077, 17.0074, 2.57831)
	pt3dadd(162.991, 205.095, 17.1424, 2.36769)
	pt3dadd(163.438, 205.148, 17.2684, 2.2078)
	pt3dadd(163.894, 205.238, 17.3895, 2.13759)
	pt3dadd(164.354, 205.367, 17.5105, 2.06148)
	pt3dadd(164.817, 205.519, 17.6295, 1.95475)
	pt3dadd(165.282, 205.669, 17.7418, 1.86287)
	pt3dadd(165.741, 205.811, 17.8429, 1.87773)
	pt3dadd(166.183, 205.956, 17.9367, 1.98972)
	pt3dadd(166.603, 206.127, 18.0393, 2.05623)
	pt3dadd(167.003, 206.345, 18.161, 2.11222)
	pt3dadd(167.391, 206.609, 18.2935, 2.21371)
	pt3dadd(167.784, 206.889, 18.4225, 2.21371)
	pt3dadd(168.192, 207.154, 18.5411, 2.08685)
	pt3dadd(168.615, 207.39, 18.6464, 1.95475)
	pt3dadd(169.051, 207.586, 18.7353, 1.80687)
	pt3dadd(169.503, 207.73, 18.8081, 1.65375)
	pt3dadd(169.965, 207.839, 18.8757, 1.65375)
	pt3dadd(170.428, 207.953, 18.9527, 1.80687)
	pt3dadd(170.885, 208.082, 19.0415, 1.92938)
	pt3dadd(171.344, 208.208, 19.1339, 1.98537)
	pt3dadd(171.81, 208.317, 19.2245, 2.08685)
	pt3dadd(172.284, 208.413, 19.3134, 2.21371)
	pt3dadd(172.758, 208.507, 19.3993, 2.21371)
	pt3dadd(173.222, 208.605, 19.4808, 2.13759)
	pt3dadd(173.672, 208.703, 19.5625, 2.21371)
	pt3dadd(174.111, 208.796, 19.6509, 2.36593)
	pt3dadd(174.545, 208.888, 19.747, 2.31519)
	pt3dadd(174.986, 208.987, 19.8522, 2.11222)
	pt3dadd(175.444, 209.095, 19.9793, 2.03021)
	pt3dadd(175.911, 209.191, 20.1408, 2.16472)
	pt3dadd(176.363, 209.249, 20.3376, 2.33051)
	pt3dadd(176.791, 209.28, 20.5641, 2.29158)
	pt3dadd(177.204, 209.32, 20.8075, 2.10632)
	pt3dadd(177.615, 209.385, 21.0475, 1.98537)
	pt3dadd(178.032, 209.475, 21.2675, 1.94359)
	pt3dadd(178.463, 209.576, 21.4591, 1.89435)
	pt3dadd(178.906, 209.676, 21.6199, 1.86153)
	pt3dadd(179.354, 209.784, 21.759, 1.89435)
	pt3dadd(179.795, 209.921, 21.8999, 1.96896)
	pt3dadd(180.223, 210.09, 22.0704, 2.08685)
	pt3dadd(180.638, 210.269, 22.2765, 2.21371)
	pt3dadd(181.039, 210.445, 22.4896, 2.23908)
	pt3dadd(181.432, 210.617, 22.6794, 2.21371)
	pt3dadd(181.834, 210.782, 22.8488, 2.23908)
	pt3dadd(182.251, 210.944, 23.0194, 2.21371)
	pt3dadd(182.672, 211.119, 23.2013, 2.08685)
	pt3dadd(183.087, 211.316, 23.3845, 1.98537)
	pt3dadd(183.502, 211.532, 23.5517, 1.98537)
	pt3dadd(183.92, 211.762, 23.7006, 2.08685)
	pt3dadd(184.333, 211.999, 23.8387, 2.23908)
	pt3dadd(184.744, 212.214, 23.9595, 2.36003)
	pt3dadd(185.175, 212.38, 24.0487, 2.4438)
	pt3dadd(185.637, 212.509, 24.1048, 2.48273)
	pt3dadd(186.108, 212.663, 24.1374, 2.41843)
	pt3dadd(186.555, 212.885, 24.1575, 2.28391)
	pt3dadd(186.969, 213.155, 24.1775, 2.21371)
	pt3dadd(187.368, 213.42, 24.2089, 2.26445)
	pt3dadd(187.775, 213.654, 24.2532, 2.28456)
	pt3dadd(188.204, 213.853, 24.299, 2.11658)
	pt3dadd(188.655, 214.015, 24.3317, 1.88669)
	pt3dadd(189.118, 214.149, 24.3456, 1.7666)
	pt3dadd(189.578, 214.271, 24.3417, 1.67778)
	pt3dadd(190.033, 214.381, 24.3205, 1.55748)
	pt3dadd(190.488, 214.46, 24.283, 1.48421)
	pt3dadd(190.947, 214.501, 24.2338, 1.50062)
	pt3dadd(191.412, 214.515, 24.18, 1.62312)
	pt3dadd(191.883, 214.517, 24.1272, 1.80687)
	pt3dadd(192.361, 214.518, 24.0789, 1.89875)
	pt3dadd(192.843, 214.53, 24.0363, 1.80687)
	pt3dadd(193.326, 214.559, 23.9995, 1.62312)
	pt3dadd(193.81, 214.607, 23.9678, 1.50062)
	pt3dadd(194.3, 214.651, 23.9392, 1.47)
	pt3dadd(194.798, 214.677, 23.9172, 1.48421)
	pt3dadd(195.292, 214.706, 23.9141, 1.55748)
	pt3dadd(195.762, 214.771, 23.9423, 1.69199)
	pt3dadd(196.206, 214.882, 24.0052, 1.79808)
	pt3dadd(196.634, 215.033, 24.1017, 1.8287)
	pt3dadd(197.061, 215.218, 24.2271, 1.79808)
	pt3dadd(197.496, 215.423, 24.367, 1.69199)
	pt3dadd(197.931, 215.632, 24.5083, 1.55748)
	pt3dadd(198.349, 215.851, 24.6511, 1.48421)
	pt3dadd(198.745, 216.091, 24.798, 1.47)
	pt3dadd(199.127, 216.351, 24.9405, 1.47)
	pt3dadd(199.509, 216.613, 25.0661, 1.47)
	pt3dadd(199.905, 216.849, 25.1696, 1.47)
	pt3dadd(200.326, 217.038, 25.2538, 1.47)
	pt3dadd(200.758, 217.191, 25.3194, 1.47)
	pt3dadd(201.187, 217.334, 25.358, 1.47)
	pt3dadd(201.619, 217.462, 25.3641, 1.47)
	pt3dadd(202.063, 217.565, 25.3461, 1.47)
	pt3dadd(202.519, 217.656, 25.3172, 1.47)
	pt3dadd(202.977, 217.754, 25.2849, 1.47)
	pt3dadd(203.431, 217.873, 25.2512, 1.47)
	pt3dadd(203.882, 218.009, 25.2173, 1.47)
	pt3dadd(204.329, 218.16, 25.1849, 1.47)
	pt3dadd(204.773, 218.328, 25.1549, 1.47)
	pt3dadd(205.208, 218.529, 25.1282, 1.47)
  }
}

proc shape3d_9() {
  dist[3] {	pt3dadd(205.627, 218.772, 25.109, 1.47)
	pt3dadd(206.023, 219.05, 25.1015, 1.47)
	pt3dadd(206.407, 219.343, 25.1053, 1.47)
	pt3dadd(206.801, 219.613, 25.1173, 1.47)
	pt3dadd(207.217, 219.841, 25.1386, 1.47)
	pt3dadd(207.644, 220.043, 25.1757, 1.48421)
	pt3dadd(208.071, 220.237, 25.2355, 1.58285)
	pt3dadd(208.495, 220.425, 25.3232, 1.83526)
	pt3dadd(208.917, 220.606, 25.4444, 2.1428)
	pt3dadd(209.334, 220.779, 25.6012, 2.32415)
	pt3dadd(209.741, 220.942, 25.7922, 2.3854)
	pt3dadd(210.126, 221.081, 26.0282, 2.46327)
	pt3dadd(210.481, 221.178, 26.3289, 2.58007)
	pt3dadd(210.812, 221.235, 26.6852, 2.67741)
  }
  dist[4] {pt3dclear()
	pt3dadd(145.41, 202.658, 13.3249, 2.67741)
	pt3dadd(145.777, 202.905, 13.1456, 2.71107)
	pt3dadd(146.179, 203.149, 12.978, 2.6391)
	pt3dadd(146.592, 203.405, 12.8149, 2.451)
	pt3dadd(146.98, 203.692, 12.6422, 2.16817)
	pt3dadd(147.328, 204.007, 12.4537, 1.83526)
	pt3dadd(147.643, 204.337, 12.2478, 1.58285)
	pt3dadd(147.936, 204.667, 12.0245, 1.48421)
	pt3dadd(148.222, 204.982, 11.7944, 1.50062)
	pt3dadd(148.528, 205.264, 11.5749, 1.5925)
	pt3dadd(148.868, 205.507, 11.3712, 1.68437)
	pt3dadd(149.228, 205.739, 11.1754, 1.715)
	pt3dadd(149.586, 205.983, 10.9798, 1.68437)
	pt3dadd(149.938, 206.239, 10.7817, 1.60671)
	pt3dadd(150.282, 206.505, 10.5879, 1.61347)
	pt3dadd(150.633, 206.777, 10.406, 1.83526)
	pt3dadd(151.01, 207.028, 10.2278, 2.1428)
	pt3dadd(151.402, 207.263, 10.0437, 2.32415)
	pt3dadd(151.774, 207.531, 9.86161, 2.34056)
	pt3dadd(152.123, 207.847, 9.68886, 2.23908)
	pt3dadd(152.472, 208.154, 9.52334, 2.11222)
	pt3dadd(152.841, 208.404, 9.36431, 2.08685)
	pt3dadd(153.227, 208.607, 9.20524, 2.13759)
	pt3dadd(153.621, 208.796, 9.03057, 2.16296)
	pt3dadd(154.018, 208.985, 8.83875, 2.13759)
	pt3dadd(154.423, 209.171, 8.65037, 2.06148)
	pt3dadd(154.836, 209.347, 8.48359, 2.01074)
	pt3dadd(155.251, 209.522, 8.33414, 2.08685)
	pt3dadd(155.653, 209.719, 8.18781, 2.23908)
	pt3dadd(156.036, 209.955, 8.04204, 2.34056)
	pt3dadd(156.425, 210.208, 7.90404, 2.36593)
	pt3dadd(156.84, 210.44, 7.77322, 2.36593)
	pt3dadd(157.261, 210.653, 7.63224, 2.34056)
	pt3dadd(157.644, 210.89, 7.46374, 2.26445)
	pt3dadd(157.991, 211.166, 7.27442, 2.15771)
	pt3dadd(158.336, 211.444, 7.0834, 2.04046)
	pt3dadd(158.699, 211.698, 6.8982, 2.00459)
	pt3dadd(159.065, 211.955, 6.72163, 2.14195)
	pt3dadd(159.417, 212.25, 6.5621, 2.30993)
	pt3dadd(159.758, 212.577, 6.42393, 2.36593)
	pt3dadd(160.102, 212.909, 6.30154, 2.32415)
	pt3dadd(160.446, 213.242, 6.1874, 2.1988)
	pt3dadd(160.776, 213.59, 6.07821, 2.11523)
	pt3dadd(161.087, 213.956, 5.97112, 2.1988)
	pt3dadd(161.395, 214.328, 5.8611, 2.32415)
	pt3dadd(161.719, 214.684, 5.74346, 2.36593)
	pt3dadd(162.067, 215.017, 5.61319, 2.36593)
	pt3dadd(162.428, 215.333, 5.46431, 2.36593)
	pt3dadd(162.785, 215.642, 5.29382, 2.36593)
	pt3dadd(163.122, 215.944, 5.10138, 2.36593)
	pt3dadd(163.438, 216.219, 4.88526, 2.36593)
	pt3dadd(163.755, 216.447, 4.64752, 2.3913)
	pt3dadd(164.094, 216.643, 4.40114, 2.46741)
	pt3dadd(164.458, 216.838, 4.16213, 2.51815)
	pt3dadd(164.838, 217.043, 3.94002, 2.42563)
	pt3dadd(165.237, 217.24, 3.74222, 2.1988)
	pt3dadd(165.654, 217.416, 3.57044, 1.98838)
	pt3dadd(166.076, 217.584, 3.40804, 1.8891)
	pt3dadd(166.49, 217.769, 3.23373, 1.82109)
	pt3dadd(166.888, 217.985, 3.0442, 1.77625)
	pt3dadd(167.274, 218.222, 2.84392, 1.8375)
	pt3dadd(167.65, 218.448, 2.62895, 1.95475)
	pt3dadd(168.028, 218.63, 2.39791, 2.08685)
	pt3dadd(168.422, 218.764, 2.16189, 2.23908)
	pt3dadd(168.835, 218.87, 1.93021, 2.36593)
  }
  dist[5] {pt3dclear()
	pt3dadd(102.281, 225.649, 15.8039, 1.96)
	pt3dadd(102.379, 226.115, 15.7876, 2.24984)
	pt3dadd(102.48, 226.574, 15.7587, 2.50685)
	pt3dadd(102.593, 227.027, 15.7128, 2.4994)
	pt3dadd(102.718, 227.481, 15.6509, 2.36333)
	pt3dadd(102.836, 227.944, 15.5744, 2.48868)
	pt3dadd(102.926, 228.415, 15.4894, 2.88155)
	pt3dadd(102.991, 228.886, 15.4089, 3.28053)
	pt3dadd(103.058, 229.347, 15.339, 3.5406)
	pt3dadd(103.159, 229.799, 15.2672, 3.61672)
	pt3dadd(103.311, 230.247, 15.1741, 3.49401)
	pt3dadd(103.483, 230.695, 15.057, 3.31466)
	pt3dadd(103.629, 231.147, 14.9319, 3.24445)
	pt3dadd(103.734, 231.612, 14.8149, 3.19371)
	pt3dadd(103.822, 232.088, 14.7115, 3.06685)
	pt3dadd(103.917, 232.563, 14.619, 2.96537)
	pt3dadd(104.018, 233.032, 14.5315, 2.94)
	pt3dadd(104.114, 233.496, 14.4463, 2.92949)
	pt3dadd(104.203, 233.958, 14.3623, 2.88746)
	pt3dadd(104.282, 234.414, 14.276, 2.8244)
	pt3dadd(104.335, 234.863, 14.1867, 2.78237)
	pt3dadd(104.334, 235.317, 14.1016, 2.77186)
	pt3dadd(104.294, 235.78, 14.0257, 2.77186)
	pt3dadd(104.261, 236.244, 13.9564, 2.76596)
	pt3dadd(104.256, 236.704, 13.8902, 2.74234)
	pt3dadd(104.265, 237.168, 13.8212, 2.66209)
	pt3dadd(104.273, 237.639, 13.7405, 2.48449)
	pt3dadd(104.276, 238.115, 13.6487, 2.33051)
	pt3dadd(104.274, 238.599, 13.5549, 2.39766)
	pt3dadd(104.27, 239.09, 13.4631, 2.63676)
	pt3dadd(104.261, 239.585, 13.3714, 2.82796)
	pt3dadd(104.248, 240.079, 13.2794, 2.88155)
	pt3dadd(104.234, 240.569, 13.191, 2.87695)
	pt3dadd(104.218, 241.052, 13.1116, 2.89796)
	pt3dadd(104.197, 241.529, 13.046, 2.92949)
	pt3dadd(104.166, 241.998, 12.9964, 2.94)
	pt3dadd(104.127, 242.46, 12.9605, 2.94)
	pt3dadd(104.088, 242.916, 12.932, 2.94)
	pt3dadd(104.057, 243.367, 12.9051, 2.94)
	pt3dadd(104.034, 243.82, 12.8741, 2.94)
	pt3dadd(104.019, 244.283, 12.8324, 2.94)
	pt3dadd(104.01, 244.758, 12.7746, 2.92949)
	pt3dadd(104.005, 245.244, 12.6993, 2.89796)
	pt3dadd(104.003, 245.735, 12.6086, 2.87695)
	pt3dadd(104.007, 246.228, 12.5055, 2.89796)
	pt3dadd(104.025, 246.72, 12.3911, 2.92949)
	pt3dadd(104.063, 247.205, 12.2629, 2.92949)
	pt3dadd(104.106, 247.672, 12.1141, 2.89796)
	pt3dadd(104.127, 248.114, 11.9447, 2.87695)
	pt3dadd(104.11, 248.547, 11.7733, 2.88746)
	pt3dadd(104.056, 248.989, 11.6194, 2.89641)
	pt3dadd(103.968, 249.444, 11.4727, 2.92174)
	pt3dadd(103.853, 249.898, 11.3016, 3.01292)
	pt3dadd(103.734, 250.337, 11.093, 3.1654)
	pt3dadd(103.643, 250.757, 10.8641, 3.34174)
	pt3dadd(103.595, 251.174, 10.6407, 3.38507)
	pt3dadd(103.592, 251.604, 10.4422, 3.06155)
	pt3dadd(103.625, 252.061, 10.2824, 2.41167)
	pt3dadd(103.678, 252.537, 10.1634, 1.81123)
	pt3dadd(103.726, 253.017, 10.0708, 1.526)
	pt3dadd(103.754, 253.485, 9.98586, 1.526)
	pt3dadd(103.767, 253.935, 9.89765, 1.78586)
	pt3dadd(103.771, 254.376, 9.80338, 2.26535)
	pt3dadd(103.767, 254.816, 9.70139, 2.76586)
	pt3dadd(103.753, 255.262, 9.58305, 3.19986)
	pt3dadd(103.73, 255.713, 9.43758, 3.53584)
	pt3dadd(103.7, 256.164, 9.26909, 3.59093)
	pt3dadd(103.663, 256.607, 9.09924, 3.35644)
	pt3dadd(103.62, 257.046, 8.94552, 3.11759)
	pt3dadd(103.581, 257.484, 8.80533, 3.11169)
	pt3dadd(103.551, 257.927, 8.66875, 3.32232)
	pt3dadd(103.525, 258.384, 8.53608, 3.56422)
	pt3dadd(103.488, 258.866, 8.41413, 3.65213)
	pt3dadd(103.423, 259.375, 8.30604, 3.49225)
	pt3dadd(103.336, 259.898, 8.21152, 3.19371)
	pt3dadd(103.253, 260.413, 8.12899, 2.99074)
	pt3dadd(103.189, 260.909, 8.05308, 2.94)
	pt3dadd(103.132, 261.391, 7.97526, 2.94)
	pt3dadd(103.074, 261.862, 7.88837, 2.96537)
	pt3dadd(103.019, 262.327, 7.79064, 3.06685)
	pt3dadd(102.963, 262.791, 7.68909, 3.19371)
	pt3dadd(102.894, 263.255, 7.59697, 3.19371)
	pt3dadd(102.803, 263.718, 7.52281, 3.09222)
	pt3dadd(102.687, 264.182, 7.46512, 3.09222)
	pt3dadd(102.556, 264.65, 7.41835, 3.19371)
	pt3dadd(102.428, 265.12, 7.37894, 3.19371)
	pt3dadd(102.327, 265.587, 7.34703, 3.06685)
	pt3dadd(102.255, 266.05, 7.32491, 2.96537)
	pt3dadd(102.207, 266.521, 7.31052, 2.94)
	pt3dadd(102.187, 267.014, 7.29499, 2.94)
	pt3dadd(102.181, 267.521, 7.27359, 2.94)
	pt3dadd(102.153, 268.019, 7.25317, 2.92949)
	pt3dadd(102.084, 268.5, 7.24246, 2.86209)
	pt3dadd(101.99, 268.98, 7.24237, 2.72292)
	pt3dadd(101.88, 269.466, 7.24836, 2.62424)
	pt3dadd(101.749, 269.954, 7.25496, 2.62139)
	pt3dadd(101.607, 270.432, 7.25688, 2.58422)
	pt3dadd(101.481, 270.9, 7.24961, 2.48864)
	pt3dadd(101.396, 271.367, 7.23194, 2.49915)
	pt3dadd(101.347, 271.848, 7.206, 2.66213)
	pt3dadd(101.306, 272.342, 7.17108, 2.86384)
	pt3dadd(101.235, 272.827, 7.12161, 3.01456)
	pt3dadd(101.125, 273.282, 7.0537, 3.07556)
	pt3dadd(100.988, 273.705, 6.96791, 3.07991)
	pt3dadd(100.83, 274.11, 6.87005, 3.06505)
	pt3dadd(100.648, 274.52, 6.77361, 3.01431)
	pt3dadd(100.458, 274.946, 6.69108, 3.02917)
	pt3dadd(100.296, 275.385, 6.62006, 3.15167)
	pt3dadd(100.173, 275.836, 6.54687, 3.17269)
	pt3dadd(100.07, 276.304, 6.46264, 3.05019)
	pt3dadd(99.9562, 276.781, 6.37023, 3.0038)
	pt3dadd(99.8182, 277.257, 6.2809, 3.03968)
	pt3dadd(99.6682, 277.731, 6.20854, 3.01431)
	pt3dadd(99.5259, 278.211, 6.1616, 3.0038)
	pt3dadd(99.3956, 278.696, 6.13868, 3.05019)
	pt3dadd(99.27, 279.183, 6.13381, 3.03097)
	pt3dadd(99.1477, 279.669, 6.14358, 2.96537)
	pt3dadd(99.034, 280.157, 6.16982, 2.96537)
	pt3dadd(98.9259, 280.64, 6.21771, 3.06685)
	pt3dadd(98.8074, 281.104, 6.28875, 3.19371)
	pt3dadd(98.6653, 281.543, 6.3753, 3.19371)
  }
}

proc shape3d_10() {
  dist[5] {	pt3dadd(98.4991, 281.967, 6.46603, 3.09222)
	pt3dadd(98.3141, 282.391, 6.55318, 3.05634)
	pt3dadd(98.1263, 282.821, 6.6309, 3.03968)
	pt3dadd(97.9696, 283.256, 6.69296, 2.93639)
	pt3dadd(97.8677, 283.699, 6.73838, 2.88565)
	pt3dadd(97.798, 284.155, 6.77728, 3.03968)
	pt3dadd(97.7163, 284.62, 6.82348, 3.28468)
	pt3dadd(97.6113, 285.084, 6.88023, 3.3713)
	pt3dadd(97.5023, 285.541, 6.93906, 3.29519)
	pt3dadd(97.4, 285.992, 6.9901, 3.26982)
	pt3dadd(97.3031, 286.445, 7.02897, 3.29519)
	pt3dadd(97.2175, 286.907, 7.05935, 3.21908)
	pt3dadd(97.1599, 287.385, 7.09293, 3.06685)
	pt3dadd(97.1365, 287.884, 7.14082, 2.94896)
	pt3dadd(97.1161, 288.388, 7.20096, 2.86384)
	pt3dadd(97.0516, 288.882, 7.25841, 2.79949)
	pt3dadd(96.9369, 289.371, 7.29909, 2.8113)
	pt3dadd(96.8082, 289.863, 7.31716, 2.88155)
	pt3dadd(96.6932, 290.349, 7.31346, 2.98023)
	pt3dadd(96.5883, 290.812, 7.29574, 3.20421)
	pt3dadd(96.4805, 291.248, 7.27751, 3.54019)
	pt3dadd(96.3725, 291.67, 7.26951, 3.76417)
	pt3dadd(96.2801, 292.092, 7.2736, 3.76852)
	pt3dadd(96.2061, 292.522, 7.28681, 3.61014)
	pt3dadd(96.1377, 292.963, 7.30676, 3.3713)
	pt3dadd(96.0688, 293.422, 7.33127, 3.23854)
	pt3dadd(96.0037, 293.899, 7.35755, 3.28053)
	pt3dadd(95.9462, 294.392, 7.38339, 3.1672)
	pt3dadd(95.8963, 294.895, 7.40773, 2.64373)
	pt3dadd(95.8557, 295.406, 7.43063, 2.00806)
	pt3dadd(95.8279, 295.92, 7.45232, 1.73463)
	pt3dadd(95.8087, 296.427, 7.47078, 1.96322)
	pt3dadd(95.7852, 296.917, 7.48315, 2.43901)
	pt3dadd(95.7501, 297.391, 7.49138, 2.78618)
	pt3dadd(95.7104, 297.855, 7.50211, 2.84567)
	pt3dadd(95.6754, 298.312, 7.52036, 2.67218)
	pt3dadd(95.6379, 298.759, 7.54857, 2.34581)
	pt3dadd(95.5775, 299.202, 7.58739, 1.9591)
	pt3dadd(95.4847, 299.648, 7.63101, 1.6485)
	pt3dadd(95.3653, 300.097, 7.66999, 1.51484)
	pt3dadd(95.2219, 300.55, 7.70134, 1.60232)
	pt3dadd(95.056, 301.015, 7.7259, 1.99384)
	pt3dadd(94.8828, 301.501, 7.74211, 2.6691)
	pt3dadd(94.7091, 301.991, 7.76056, 3.32533)
	pt3dadd(94.5261, 302.461, 7.79534, 3.75186)
  }
  prox[10] {pt3dclear()
	pt3dadd(102.281, 225.649, 15.8039, 1.96)
	pt3dadd(102.325, 226.189, 15.9961, 1.92937)
	pt3dadd(102.249, 226.653, 16.3051, 1.80687)
	pt3dadd(102.04, 227.014, 16.7043, 1.62312)
	pt3dadd(101.772, 227.3, 17.0983, 1.50062)
	pt3dadd(101.507, 227.553, 17.4473, 1.47)
	pt3dadd(101.253, 227.791, 17.7677, 1.47)
	pt3dadd(100.997, 228.014, 18.0827, 1.47)
	pt3dadd(100.736, 228.226, 18.4036, 1.47)
	pt3dadd(100.486, 228.441, 18.7299, 1.47)
	pt3dadd(100.257, 228.677, 19.0475, 1.47)
	pt3dadd(100.044, 228.939, 19.339, 1.47)
	pt3dadd(99.84, 229.22, 19.6044, 1.47)
	pt3dadd(99.6445, 229.508, 19.8597, 1.47)
	pt3dadd(99.4602, 229.804, 20.1135, 1.47)
	pt3dadd(99.2916, 230.116, 20.3633, 1.47)
	pt3dadd(99.1502, 230.442, 20.6178, 1.47)
	pt3dadd(99.0335, 230.762, 20.9038, 1.47)
	pt3dadd(98.92, 231.046, 21.2413, 1.47)
	pt3dadd(98.8103, 231.291, 21.6239, 1.47)
	pt3dadd(98.7279, 231.528, 22.0221, 1.47)
	pt3dadd(98.6709, 231.802, 22.4025, 1.47)
	pt3dadd(98.6053, 232.127, 22.7513, 1.47)
	pt3dadd(98.5006, 232.478, 23.073, 1.47)
	pt3dadd(98.3558, 232.841, 23.3673, 1.47)
	pt3dadd(98.1943, 233.217, 23.6294, 1.47)
	pt3dadd(98.0295, 233.598, 23.8725, 1.47)
	pt3dadd(97.8563, 233.957, 24.1304, 1.47)
	pt3dadd(97.68, 234.277, 24.4288, 1.47)
	pt3dadd(97.5129, 234.574, 24.7636, 1.47)
	pt3dadd(97.3538, 234.866, 25.1143, 1.47)
  }
  dist[6] {pt3dclear()
	pt3dadd(124.829, 274.147, 27.1399, 2.77186)
	pt3dadd(125.022, 274.587, 26.9964, 2.61964)
	pt3dadd(125.162, 275.061, 26.8878, 2.36593)
	pt3dadd(125.26, 275.553, 26.8128, 2.0816)
	pt3dadd(125.349, 276.039, 26.7533, 1.83225)
	pt3dadd(125.45, 276.511, 26.6983, 1.65375)
	pt3dadd(125.572, 276.971, 26.6431, 1.65375)
	pt3dadd(125.715, 277.424, 26.5864, 1.77625)
	pt3dadd(125.864, 277.878, 26.531, 1.77625)
	pt3dadd(126.009, 278.334, 26.4791, 1.62312)
	pt3dadd(126.168, 278.786, 26.4241, 1.50062)
	pt3dadd(126.366, 279.224, 26.3552, 1.47)
	pt3dadd(126.601, 279.648, 26.2717, 1.48421)
	pt3dadd(126.855, 280.062, 26.1806, 1.55748)
	pt3dadd(127.111, 280.471, 26.0858, 1.73377)
	pt3dadd(127.353, 280.881, 25.9896, 1.99058)
	pt3dadd(127.566, 281.303, 25.8957, 2.19729)
	pt3dadd(127.752, 281.736, 25.8062, 2.23908)
	pt3dadd(127.938, 282.173, 25.7192, 2.18833)
	pt3dadd(128.138, 282.607, 25.6304, 2.13759)
	pt3dadd(128.343, 283.041, 25.5346, 2.08685)
	pt3dadd(128.542, 283.474, 25.4267, 2.08685)
	pt3dadd(128.738, 283.9, 25.3089, 2.13759)
	pt3dadd(128.928, 284.322, 25.1953, 2.18833)
	pt3dadd(129.099, 284.764, 25.0986, 2.23908)
	pt3dadd(129.239, 285.243, 25.0187, 2.25854)
	pt3dadd(129.352, 285.745, 24.953, 2.29158)
	pt3dadd(129.461, 286.235, 24.9082, 2.35588)
	pt3dadd(129.583, 286.696, 24.8904, 2.31695)
	pt3dadd(129.726, 287.143, 24.8977, 2.25264)
	pt3dadd(129.895, 287.595, 24.9277, 2.31695)
	pt3dadd(130.092, 288.053, 24.9796, 2.35588)
	pt3dadd(130.309, 288.507, 25.0467, 2.26621)
	pt3dadd(130.543, 288.951, 25.1155, 2.18243)
	pt3dadd(130.788, 289.387, 25.1762, 2.16296)
	pt3dadd(131.044, 289.818, 25.2256, 2.16296)
	pt3dadd(131.312, 290.241, 25.2652, 2.16296)
	pt3dadd(131.578, 290.656, 25.2996, 2.13759)
	pt3dadd(131.81, 291.071, 25.3338, 2.06148)
	pt3dadd(131.989, 291.504, 25.371, 1.98537)
	pt3dadd(132.137, 291.965, 25.4173, 1.98537)
	pt3dadd(132.313, 292.43, 25.4791, 2.06148)
	pt3dadd(132.549, 292.871, 25.5509, 2.11222)
	pt3dadd(132.811, 293.291, 25.6162, 2.06148)
	pt3dadd(133.057, 293.708, 25.6609, 1.98537)
	pt3dadd(133.279, 294.125, 25.6813, 1.96)
	pt3dadd(133.464, 294.551, 25.6794, 1.96)
	pt3dadd(133.588, 295.006, 25.6602, 1.96)
	pt3dadd(133.679, 295.487, 25.6289, 1.96)
	pt3dadd(133.803, 295.961, 25.5903, 1.96)
	pt3dadd(133.976, 296.407, 25.5481, 1.92937)
	pt3dadd(134.153, 296.839, 25.4997, 1.8375)
	pt3dadd(134.305, 297.284, 25.4386, 1.80162)
	pt3dadd(134.457, 297.749, 25.3709, 1.98972)
	pt3dadd(134.649, 298.211, 25.3186, 2.15246)
	pt3dadd(134.877, 298.659, 25.2968, 1.98972)
	pt3dadd(135.099, 299.11, 25.3, 1.80162)
	pt3dadd(135.284, 299.573, 25.3165, 1.8375)
	pt3dadd(135.44, 300.042, 25.3406, 1.92937)
	pt3dadd(135.586, 300.508, 25.3639, 1.98537)
	pt3dadd(135.735, 300.971, 25.3665, 2.11222)
	pt3dadd(135.896, 301.432, 25.3265, 2.40181)
	pt3dadd(136.069, 301.888, 25.2378, 2.79903)
	pt3dadd(136.231, 302.341, 25.1292, 3.07991)
	pt3dadd(136.328, 302.789, 25.0527, 2.9478)
	pt3dadd(136.328, 303.232, 25.0319, 2.42283)
	pt3dadd(136.26, 303.665, 25.0376, 1.96435)
	pt3dadd(136.186, 304.093, 25.0278, 1.84646)
	pt3dadd(136.14, 304.524, 24.9867, 1.86373)
	pt3dadd(136.124, 304.967, 24.9209, 1.86153)
	pt3dadd(136.136, 305.423, 24.84, 1.86373)
	pt3dadd(136.181, 305.891, 24.7516, 1.79046)
	pt3dadd(136.264, 306.367, 24.6611, 1.65375)
	pt3dadd(136.377, 306.841, 24.5699, 1.65375)
	pt3dadd(136.489, 307.304, 24.4745, 1.80687)
	pt3dadd(136.574, 307.757, 24.3727, 1.92937)
	pt3dadd(136.632, 308.212, 24.2707, 1.94359)
	pt3dadd(136.669, 308.684, 24.1771, 1.89435)
	pt3dadd(136.696, 309.171, 24.0906, 1.86153)
	pt3dadd(136.727, 309.658, 24.0002, 1.89435)
	pt3dadd(136.766, 310.132, 23.8991, 1.96896)
	pt3dadd(136.805, 310.595, 23.7861, 2.11222)
	pt3dadd(136.836, 311.054, 23.6579, 2.40181)
	pt3dadd(136.857, 311.515, 23.5097, 2.78262)
	pt3dadd(136.873, 311.978, 23.3454, 3.03373)
	pt3dadd(136.886, 312.437, 23.1817, 2.9832)
	pt3dadd(136.89, 312.884, 23.0362, 2.69797)
	pt3dadd(136.885, 313.322, 22.9101, 2.36178)
	pt3dadd(136.892, 313.762, 22.7919, 2.13169)
	pt3dadd(136.928, 314.208, 22.673, 2.11222)
	pt3dadd(136.987, 314.664, 22.5491, 2.21371)
	pt3dadd(137.039, 315.129, 22.4192, 2.21371)
	pt3dadd(137.069, 315.607, 22.2929, 2.08685)
	pt3dadd(137.081, 316.1, 22.1862, 1.98537)
	pt3dadd(137.082, 316.6, 22.1086, 1.96)
	pt3dadd(137.071, 317.1, 22.0595, 1.96)
	pt3dadd(137.041, 317.596, 22.034, 1.96)
	pt3dadd(136.992, 318.087, 22.0269, 1.94359)
	pt3dadd(136.928, 318.572, 22.0321, 1.86373)
	pt3dadd(136.86, 319.056, 22.044, 1.7084)
	pt3dadd(136.795, 319.541, 22.058, 1.5881)
	pt3dadd(136.715, 320.03, 22.069, 1.63734)
	pt3dadd(136.611, 320.521, 22.0727, 1.80687)
	pt3dadd(136.506, 321.007, 22.0688, 1.92937)
	pt3dadd(136.431, 321.483, 22.0598, 1.96)
	pt3dadd(136.389, 321.949, 22.0478, 1.96)
	pt3dadd(136.37, 322.409, 22.0317, 1.96)
	pt3dadd(136.37, 322.871, 22.0083, 1.96)
	pt3dadd(136.404, 323.346, 21.976, 1.96)
	pt3dadd(136.488, 323.836, 21.9364, 1.92937)
	pt3dadd(136.606, 324.326, 21.8918, 1.8375)
	pt3dadd(136.718, 324.8, 21.8443, 1.77625)
	pt3dadd(136.799, 325.264, 21.7955, 1.86287)
	pt3dadd(136.864, 325.729, 21.7463, 2.03086)
	pt3dadd(136.943, 326.191, 21.6951, 2.11222)
	pt3dadd(137.044, 326.644, 21.6376, 2.10632)
	pt3dadd(137.152, 327.091, 21.5684, 2.22597)
	pt3dadd(137.256, 327.539, 21.4833, 2.53528)
	pt3dadd(137.353, 327.99, 21.3824, 2.8131)
	pt3dadd(137.429, 328.443, 21.2744, 2.91308)
	pt3dadd(137.464, 328.9, 21.1749, 2.86209)
	pt3dadd(137.452, 329.369, 21.0947, 2.67218)
	pt3dadd(137.41, 329.856, 21.0332, 2.37644)
	pt3dadd(137.363, 330.354, 20.9815, 2.11222)
  }
}

proc shape3d_11() {
  dist[6] {	pt3dadd(137.326, 330.855, 20.9321, 1.98537)
	pt3dadd(137.302, 331.354, 20.8822, 1.96)
	pt3dadd(137.295, 331.852, 20.8331, 1.96)
	pt3dadd(137.308, 332.349, 20.788, 1.96)
	pt3dadd(137.345, 332.842, 20.7507, 1.96)
	pt3dadd(137.399, 333.325, 20.723, 1.96)
	pt3dadd(137.458, 333.798, 20.7043, 1.96)
	pt3dadd(137.495, 334.274, 20.6925, 1.96)
	pt3dadd(137.483, 334.77, 20.6848, 1.96)
	pt3dadd(137.44, 335.276, 20.6792, 1.96)
	pt3dadd(137.427, 335.77, 20.6815, 1.96)
	pt3dadd(137.481, 336.251, 20.7054, 1.96)
	pt3dadd(137.588, 336.733, 20.7526, 1.96)
  }
  dist[7] {pt3dclear()
	pt3dadd(124.829, 274.147, 27.1399, 2.77186)
	pt3dadd(125.271, 274.138, 26.9276, 3.15008)
	pt3dadd(125.702, 274.132, 26.7269, 3.05931)
	pt3dadd(126.126, 274.106, 26.5368, 2.62185)
	pt3dadd(126.551, 274.046, 26.3552, 2.17894)
	pt3dadd(126.974, 273.966, 26.1825, 1.85171)
	pt3dadd(127.389, 273.866, 26.0133, 1.62312)
	pt3dadd(127.79, 273.742, 25.8392, 1.50062)
	pt3dadd(128.178, 273.6, 25.6621, 1.47)
	pt3dadd(128.565, 273.455, 25.4938, 1.47)
	pt3dadd(128.962, 273.321, 25.3452, 1.47)
	pt3dadd(129.375, 273.205, 25.2168, 1.47)
	pt3dadd(129.802, 273.104, 25.0991, 1.47)
	pt3dadd(130.24, 273.012, 24.9833, 1.47)
	pt3dadd(130.69, 272.932, 24.8707, 1.47)
	pt3dadd(131.149, 272.87, 24.7666, 1.47)
	pt3dadd(131.617, 272.827, 24.6704, 1.47)
	pt3dadd(132.088, 272.798, 24.5764, 1.47)
	pt3dadd(132.559, 272.777, 24.4776, 1.50062)
	pt3dadd(133.028, 272.763, 24.3682, 1.6485)
	pt3dadd(133.494, 272.756, 24.243, 1.9591)
	pt3dadd(133.949, 272.761, 24.093, 2.30993)
	pt3dadd(134.377, 272.789, 23.901, 2.49278)
	pt3dadd(134.747, 272.866, 23.652, 2.46741)
	pt3dadd(135.048, 273.023, 23.3563, 2.36593)
	pt3dadd(135.307, 273.262, 23.0524, 2.23908)
	pt3dadd(135.561, 273.556, 22.7768, 2.05623)
	pt3dadd(135.831, 273.879, 22.5375, 1.83225)
	pt3dadd(136.115, 274.216, 22.3271, 1.62312)
	pt3dadd(136.393, 274.573, 22.1426, 1.50062)
	pt3dadd(136.651, 274.948, 21.9783, 1.47)
	pt3dadd(136.908, 275.322, 21.8176, 1.50062)
	pt3dadd(137.179, 275.68, 21.646, 1.62312)
	pt3dadd(137.459, 276.03, 21.4622, 1.80687)
	pt3dadd(137.758, 276.363, 21.2705, 1.89875)
	pt3dadd(138.095, 276.661, 21.0773, 1.80687)
	pt3dadd(138.451, 276.945, 20.8931, 1.62312)
	pt3dadd(138.793, 277.237, 20.7244, 1.50062)
	pt3dadd(139.117, 277.54, 20.5607, 1.48421)
	pt3dadd(139.44, 277.84, 20.3816, 1.52685)
	pt3dadd(139.772, 278.116, 20.1745, 1.5859)
	pt3dadd(140.11, 278.354, 19.9399, 1.64935)
	pt3dadd(140.436, 278.565, 19.6904, 1.72396)
	pt3dadd(140.75, 278.772, 19.4432, 1.84711)
	pt3dadd(141.068, 278.983, 19.2024, 1.98972)
	pt3dadd(141.397, 279.197, 18.9577, 2.03086)
	pt3dadd(141.73, 279.412, 18.7049, 1.96)
  }
  dist[8] {pt3dclear()
	pt3dadd(208.901, 73.7053, 3.10257, 1.47)
	pt3dadd(209.005, 73.2509, 3.12614, 1.62312)
	pt3dadd(209.109, 72.8021, 3.15997, 1.80687)
	pt3dadd(209.216, 72.36, 3.20932, 1.95475)
	pt3dadd(209.33, 71.923, 3.27786, 2.08685)
	pt3dadd(209.457, 71.4907, 3.37189, 2.23908)
	pt3dadd(209.605, 71.0674, 3.49971, 2.36593)
	pt3dadd(209.793, 70.6642, 3.66107, 2.51815)
	pt3dadd(210.038, 70.287, 3.83301, 2.69575)
	pt3dadd(210.327, 69.9196, 3.97456, 2.74649)
	pt3dadd(210.626, 69.5342, 4.0542, 2.67038)
	pt3dadd(210.907, 69.1194, 4.07074, 2.61963)
	pt3dadd(211.179, 68.6917, 4.04712, 2.64501)
	pt3dadd(211.469, 68.2824, 4.0096, 2.61964)
	pt3dadd(211.787, 67.9052, 3.97285, 2.49278)
	pt3dadd(212.108, 67.5395, 3.93818, 2.3913)
	pt3dadd(212.419, 67.1704, 3.90186, 2.3854)
	pt3dadd(212.74, 66.8117, 3.86127, 2.46917)
	pt3dadd(213.076, 66.4615, 3.81198, 2.58422)
	pt3dadd(213.399, 66.0917, 3.74874, 2.62139)
	pt3dadd(213.71, 65.7043, 3.67069, 2.61373)
	pt3dadd(214.028, 65.3324, 3.57877, 2.67038)
	pt3dadd(214.354, 64.9842, 3.48035, 2.74649)
	pt3dadd(214.682, 64.6382, 3.4025, 2.76596)
	pt3dadd(215.023, 64.2822, 3.37871, 2.72288)
	pt3dadd(215.378, 63.9214, 3.42, 2.55359)
	pt3dadd(215.721, 63.5555, 3.51419, 2.24519)
	pt3dadd(216.027, 63.1767, 3.6416, 2.04942)
	pt3dadd(216.309, 62.7959, 3.77833, 2.08595)
	pt3dadd(216.598, 62.4372, 3.9005, 2.06058)
	pt3dadd(216.879, 62.0905, 3.99871, 1.9031)
	pt3dadd(217.123, 61.7203, 4.0809, 1.86287)
	pt3dadd(217.334, 61.3206, 4.1549, 1.99062)
	pt3dadd(217.535, 60.9072, 4.21456, 2.26625)
	pt3dadd(217.719, 60.4799, 4.25292, 2.63375)
	pt3dadd(217.877, 60.0348, 4.29123, 2.87875)
	pt3dadd(218.018, 59.5812, 4.35358, 2.94)
  }
  dist[9] {pt3dclear()
	pt3dadd(208.901, 73.7053, 3.10257, 1.47)
	pt3dadd(209.337, 73.4039, 3.05683, 1.47)
	pt3dadd(209.736, 73.0532, 3.03635, 1.47)
	pt3dadd(210.117, 72.6721, 3.0368, 1.47)
	pt3dadd(210.514, 72.2955, 3.04119, 1.47)
	pt3dadd(210.94, 71.9329, 3.04097, 1.47)
	pt3dadd(211.399, 71.5914, 3.03348, 1.47)
	pt3dadd(211.884, 71.2897, 3.01638, 1.47)
	pt3dadd(212.379, 71.0506, 2.98828, 1.47)
	pt3dadd(212.867, 70.8835, 2.94801, 1.47)
	pt3dadd(213.345, 70.7714, 2.88895, 1.47)
	pt3dadd(213.824, 70.696, 2.79587, 1.526)
	pt3dadd(214.317, 70.6694, 2.6554, 1.80597)
	pt3dadd(214.825, 70.6947, 2.47723, 2.36593)
  }
  dist[10] {pt3dclear()
	pt3dadd(94.5261, 302.461, 7.79534, 3.75186)
	pt3dadd(94.2629, 302.781, 7.91343, 3.26276)
	pt3dadd(94.0168, 303.063, 8.03504, 2.51905)
	pt3dadd(93.821, 303.334, 8.1409, 1.8366)
	pt3dadd(93.6709, 303.628, 8.22566, 1.526)
	pt3dadd(93.5276, 303.954, 8.30334, 1.47)
	pt3dadd(93.3624, 304.313, 8.38511, 1.47)
	pt3dadd(93.1596, 304.7, 8.47529, 1.47)
	pt3dadd(92.9049, 305.096, 8.57392, 1.47)
	pt3dadd(92.5887, 305.475, 8.6804, 1.47)
	pt3dadd(92.2176, 305.818, 8.79789, 1.47)
	pt3dadd(91.8186, 306.128, 8.93154, 1.47)
	pt3dadd(91.4282, 306.434, 9.07887, 1.47)
	pt3dadd(91.0731, 306.766, 9.22917, 1.47)
	pt3dadd(90.7557, 307.13, 9.37681, 1.47)
	pt3dadd(90.4575, 307.51, 9.52434, 1.47)
	pt3dadd(90.1613, 307.889, 9.67252, 1.47)
	pt3dadd(89.8595, 308.258, 9.81808, 1.47)
	pt3dadd(89.539, 308.603, 9.95743, 1.47)
	pt3dadd(89.1876, 308.912, 10.0872, 1.47)
	pt3dadd(88.8133, 309.199, 10.206, 1.47)
	pt3dadd(88.4283, 309.475, 10.3172, 1.47)
	pt3dadd(88.0303, 309.735, 10.425, 1.47)
	pt3dadd(87.6131, 309.961, 10.528, 1.47)
	pt3dadd(87.1749, 310.146, 10.6201, 1.47)
	pt3dadd(86.7175, 310.298, 10.6997, 1.47)
	pt3dadd(86.2483, 310.442, 10.7708, 1.47)
	pt3dadd(85.777, 310.593, 10.8358, 1.47)
	pt3dadd(85.3137, 310.754, 10.8913, 1.47)
	pt3dadd(84.8673, 310.928, 10.9314, 1.47)
	pt3dadd(84.4384, 311.122, 10.9551, 1.47)
	pt3dadd(84.0203, 311.341, 10.9686, 1.47)
	pt3dadd(83.6103, 311.593, 10.9796, 1.47)
	pt3dadd(83.2084, 311.874, 10.9914, 1.47)
	pt3dadd(82.8048, 312.146, 11.0028, 1.47)
	pt3dadd(82.3875, 312.378, 11.0125, 1.47)
	pt3dadd(81.9575, 312.589, 11.0224, 1.47)
	pt3dadd(81.5228, 312.81, 11.0364, 1.47)
	pt3dadd(81.086, 313.045, 11.0553, 1.47)
	pt3dadd(80.646, 313.265, 11.077, 1.47)
	pt3dadd(80.2044, 313.451, 11.0976, 1.47)
	pt3dadd(79.7609, 313.602, 11.1129, 1.47)
	pt3dadd(79.3101, 313.728, 11.1215, 1.47)
	pt3dadd(78.8472, 313.833, 11.126, 1.47)
	pt3dadd(78.3653, 313.896, 11.1301, 1.47)
	pt3dadd(77.8583, 313.893, 11.1337, 1.47)
	pt3dadd(77.3406, 313.845, 11.1328, 1.47)
	pt3dadd(76.8421, 313.806, 11.124, 1.50062)
	pt3dadd(76.3736, 313.804, 11.1071, 1.62312)
	pt3dadd(75.9202, 313.83, 11.0835, 1.79046)
	pt3dadd(75.4674, 313.881, 11.0532, 1.8331)
	pt3dadd(75.0125, 313.972, 11.0155, 1.7084)
	pt3dadd(74.5584, 314.113, 10.9727, 1.55748)
	pt3dadd(74.1072, 314.297, 10.928, 1.48421)
	pt3dadd(73.6618, 314.505, 10.8811, 1.47)
	pt3dadd(73.2222, 314.719, 10.8264, 1.47)
	pt3dadd(72.7834, 314.928, 10.7603, 1.47)
	pt3dadd(72.3424, 315.135, 10.6896, 1.47)
	pt3dadd(71.903, 315.35, 10.6231, 1.50062)
	pt3dadd(71.4663, 315.56, 10.561, 1.62312)
	pt3dadd(71.0286, 315.748, 10.4995, 1.80687)
	pt3dadd(70.5912, 315.915, 10.4344, 1.95475)
	pt3dadd(70.1614, 316.08, 10.3606, 2.06148)
	pt3dadd(69.7413, 316.256, 10.2751, 2.13759)
	pt3dadd(69.3226, 316.436, 10.1807, 2.2078)
	pt3dadd(68.8944, 316.608, 10.0843, 2.34232)
	pt3dadd(68.4538, 316.767, 9.99347, 2.47683)
	pt3dadd(68.0082, 316.914, 9.91348, 2.54114)
	pt3dadd(67.5701, 317.06, 9.84174, 2.59954)
	pt3dadd(67.1445, 317.228, 9.76919, 2.63847)
	pt3dadd(66.7261, 317.424, 9.68995, 2.58007)
	pt3dadd(66.3088, 317.631, 9.60641, 2.4379)
	pt3dadd(65.8918, 317.834, 9.52466, 2.24213)
	pt3dadd(65.4755, 318.03, 9.44836, 1.99058)
	pt3dadd(65.0577, 318.229, 9.37642, 1.73377)
	pt3dadd(64.6303, 318.418, 9.30924, 1.55748)
	pt3dadd(64.1846, 318.574, 9.25347, 1.51484)
	pt3dadd(63.7258, 318.705, 9.20729, 1.5925)
	pt3dadd(63.2714, 318.857, 9.15177, 1.68437)
	pt3dadd(62.8318, 319.052, 9.07239, 1.74562)
	pt3dadd(62.404, 319.27, 8.97241, 1.8375)
	pt3dadd(61.9836, 319.491, 8.85838, 1.92938)
	pt3dadd(61.5708, 319.712, 8.72808, 1.98537)
	pt3dadd(61.1721, 319.932, 8.57433, 2.11222)
	pt3dadd(60.8003, 320.148, 8.39122, 2.34056)
	pt3dadd(60.4583, 320.362, 8.17793, 2.49278)
	pt3dadd(60.1211, 320.567, 7.94619, 2.46741)
	pt3dadd(59.756, 320.759, 7.71867, 2.3913)
	pt3dadd(59.3643, 320.952, 7.50641, 2.34056)
  }
}

proc shape3d_12() {
  dist[10] {	pt3dadd(58.9738, 321.167, 7.3003, 2.26445)
	pt3dadd(58.593, 321.398, 7.09523, 2.18834)
	pt3dadd(58.2035, 321.609, 6.90253, 2.13759)
	pt3dadd(57.7914, 321.768, 6.72797, 2.06148)
	pt3dadd(57.3624, 321.883, 6.55885, 1.98537)
	pt3dadd(56.9303, 322.001, 6.3841, 1.96)
	pt3dadd(56.5017, 322.156, 6.20906, 1.92938)
	pt3dadd(56.0776, 322.343, 6.04442, 1.86287)
	pt3dadd(55.6615, 322.547, 5.89476, 1.9031)
	pt3dadd(55.2586, 322.76, 5.7551, 2.11658)
	pt3dadd(54.8765, 322.99, 5.61059, 2.30993)
	pt3dadd(54.523, 323.253, 5.44796, 2.34056)
	pt3dadd(54.189, 323.543, 5.26937, 2.26445)
	pt3dadd(53.8504, 323.832, 5.08988, 2.18834)
	pt3dadd(53.494, 324.108, 4.9243, 2.10697)
	pt3dadd(53.1267, 324.384, 4.7784, 1.90836)
	pt3dadd(52.7544, 324.666, 4.6506, 1.6485)
	pt3dadd(52.3742, 324.947, 4.53649, 1.50062)
	pt3dadd(51.9894, 325.227, 4.42822, 1.47)
	pt3dadd(51.6093, 325.512, 4.31867, 1.47)
	pt3dadd(51.2395, 325.804, 4.21018, 1.47)
	pt3dadd(50.8894, 326.111, 4.10981, 1.47)
	pt3dadd(50.5735, 326.451, 4.01751, 1.47)
	pt3dadd(50.2809, 326.812, 3.92772, 1.47)
	pt3dadd(49.9745, 327.158, 3.83873, 1.47)
	pt3dadd(49.6451, 327.486, 3.75525, 1.47)
	pt3dadd(49.3223, 327.825, 3.68097, 1.48421)
	pt3dadd(49.0239, 328.188, 3.6097, 1.54107)
	pt3dadd(48.7397, 328.559, 3.52637, 1.62634)
	pt3dadd(48.46, 328.918, 3.41192, 1.72498)
	pt3dadd(48.1941, 329.253, 3.24467, 1.90632)
	pt3dadd(47.9593, 329.573, 3.01179, 2.15702)
	pt3dadd(47.7544, 329.893, 2.7307, 2.36593)
  }
  dist[11] {pt3dclear()
	pt3dadd(94.5261, 302.461, 7.79534, 3.75186)
	pt3dadd(94.6042, 303.072, 7.80629, 3.59963)
	pt3dadd(94.674, 303.631, 7.83087, 3.34593)
	pt3dadd(94.7268, 304.144, 7.87162, 3.09222)
	pt3dadd(94.766, 304.641, 7.92235, 2.96537)
	pt3dadd(94.8034, 305.132, 7.97717, 2.94)
	pt3dadd(94.8461, 305.619, 8.0344, 2.92949)
	pt3dadd(94.8952, 306.104, 8.09534, 2.86209)
	pt3dadd(94.9481, 306.586, 8.16179, 2.67218)
	pt3dadd(94.9995, 307.062, 8.23345, 2.43769)
	pt3dadd(95.0455, 307.532, 8.30772, 2.41847)
	pt3dadd(95.0897, 307.994, 8.38149, 2.65912)
	pt3dadd(95.1352, 308.444, 8.45035, 2.87875)
	pt3dadd(95.166, 308.878, 8.50714, 2.94)
	pt3dadd(95.157, 309.304, 8.54524, 2.90412)
	pt3dadd(95.1086, 309.74, 8.56347, 2.78007)
	pt3dadd(95.0494, 310.2, 8.56529, 2.64857)
	pt3dadd(94.9993, 310.679, 8.55417, 2.6201)
	pt3dadd(94.9548, 311.164, 8.53355, 2.59602)
	pt3dadd(94.9065, 311.644, 8.51157, 2.46151)
	pt3dadd(94.847, 312.121, 8.50087, 2.26445)
	pt3dadd(94.7783, 312.604, 8.51157, 2.11222)
	pt3dadd(94.7201, 313.098, 8.54491, 2.13169)
	pt3dadd(94.6927, 313.595, 8.59111, 2.36178)
	pt3dadd(94.6938, 314.086, 8.63511, 2.71743)
	pt3dadd(94.7105, 314.565, 8.66752, 3.09695)
	pt3dadd(94.7401, 315.036, 8.68626, 3.3553)
	pt3dadd(94.7846, 315.496, 8.68994, 3.38202)
	pt3dadd(94.8335, 315.948, 8.67998, 3.23854)
	pt3dadd(94.869, 316.402, 8.66661, 3.06685)
	pt3dadd(94.8866, 316.872, 8.66312, 2.96537)
	pt3dadd(94.9006, 317.36, 8.67432, 2.94)
	pt3dadd(94.9234, 317.855, 8.69707, 2.92949)
	pt3dadd(94.95, 318.346, 8.73134, 2.87695)
	pt3dadd(94.9716, 318.829, 8.77741, 2.77186)
  }
  dist[12] {pt3dclear()
	pt3dadd(218.018, 59.5812, 4.35358, 2.94)
	pt3dadd(218.181, 59.1503, 4.50494, 2.71882)
	pt3dadd(218.356, 58.7268, 4.65133, 2.33641)
	pt3dadd(218.547, 58.3086, 4.77549, 1.92799)
	pt3dadd(218.755, 57.895, 4.87943, 1.66813)
	pt3dadd(218.989, 57.4898, 4.97885, 1.54107)
	pt3dadd(219.246, 57.0941, 5.07831, 1.48421)
	pt3dadd(219.506, 56.6967, 5.17442, 1.47)
	pt3dadd(219.739, 56.2844, 5.26403, 1.48421)
	pt3dadd(219.951, 55.8613, 5.34584, 1.55748)
	pt3dadd(220.168, 55.4419, 5.41985, 1.75324)
	pt3dadd(220.402, 55.0307, 5.48446, 2.06845)
	pt3dadd(220.638, 54.6207, 5.53526, 2.3141)
	pt3dadd(220.851, 54.2013, 5.57024, 2.29158)
	pt3dadd(221.034, 53.7649, 5.5935, 2.10632)
	pt3dadd(221.205, 53.3144, 5.61218, 1.98537)
	pt3dadd(221.387, 52.8604, 5.63157, 1.96)
	pt3dadd(221.588, 52.4132, 5.65355, 1.92937)
	pt3dadd(221.809, 51.9793, 5.67898, 1.80687)
	pt3dadd(222.057, 51.5613, 5.70976, 1.65375)
	pt3dadd(222.335, 51.16, 5.7482, 1.67912)
	pt3dadd(222.642, 50.7783, 5.79428, 1.90836)
	pt3dadd(222.959, 50.4173, 5.84371, 2.05097)
	pt3dadd(223.266, 50.0665, 5.89102, 1.92257)
	pt3dadd(223.554, 49.7051, 5.93463, 1.71956)
	pt3dadd(223.819, 49.3168, 5.97639, 1.64276)
	pt3dadd(224.06, 48.904, 6.01972, 1.62634)
	pt3dadd(224.297, 48.4893, 6.07098, 1.59792)
	pt3dadd(224.56, 48.092, 6.13539, 1.60012)
	pt3dadd(224.837, 47.7037, 6.21096, 1.67998)
	pt3dadd(225.1, 47.3048, 6.29318, 1.84646)
	pt3dadd(225.345, 46.8901, 6.38215, 2.05623)
	pt3dadd(225.579, 46.4644, 6.48044, 2.23908)
	pt3dadd(225.804, 46.0334, 6.58965, 2.36003)
	pt3dadd(226.022, 45.6142, 6.71692, 2.4438)
	pt3dadd(226.249, 45.2343, 6.8808, 2.5022)
	pt3dadd(226.481, 44.8995, 7.09612, 2.52167)
	pt3dadd(226.7, 44.582, 7.35469, 2.52757)
	pt3dadd(226.903, 44.252, 7.63212, 2.54528)
	pt3dadd(227.107, 43.8956, 7.90049, 2.51225)
	pt3dadd(227.31, 43.5031, 8.12899, 2.30993)
	pt3dadd(227.501, 43.0722, 8.29573, 1.9591)
	pt3dadd(227.671, 42.6154, 8.4054, 1.66271)
	pt3dadd(227.827, 42.1503, 8.48271, 1.55748)
	pt3dadd(227.986, 41.6903, 8.55093, 1.55528)
	pt3dadd(228.165, 41.2421, 8.6217, 1.54107)
	pt3dadd(228.368, 40.8062, 8.69737, 1.54107)
	pt3dadd(228.586, 40.3782, 8.77581, 1.5859)
	pt3dadd(228.802, 39.9497, 8.85443, 1.67998)
	pt3dadd(229.007, 39.5151, 8.9331, 1.84646)
	pt3dadd(229.205, 39.0768, 9.01434, 2.05623)
	pt3dadd(229.406, 38.6398, 9.10029, 2.23908)
	pt3dadd(229.605, 38.2064, 9.19139, 2.34056)
	pt3dadd(229.808, 37.7847, 9.29266, 2.36593)
	pt3dadd(230.034, 37.3882, 9.41484, 2.3854)
	pt3dadd(230.291, 37.0127, 9.55831, 2.46327)
	pt3dadd(230.566, 36.6375, 9.70485, 2.58007)
	pt3dadd(230.849, 36.255, 9.83592, 2.63847)
	pt3dadd(231.149, 35.8769, 9.94746, 2.5547)
	pt3dadd(231.472, 35.5122, 10.0425, 2.33641)
	pt3dadd(231.808, 35.1547, 10.1223, 2.0757)
	pt3dadd(232.142, 34.7943, 10.1888, 1.83225)
	pt3dadd(232.48, 34.4394, 10.2472, 1.62312)
	pt3dadd(232.836, 34.1037, 10.3031, 1.53125)
	pt3dadd(233.192, 33.766, 10.3615, 1.6485)
	pt3dadd(233.522, 33.3972, 10.4203, 1.87773)
	pt3dadd(233.836, 33.0168, 10.4603, 1.92847)
	pt3dadd(234.168, 32.6597, 10.462, 1.75523)
	pt3dadd(234.517, 32.321, 10.4324, 1.6485)
	pt3dadd(234.865, 31.9778, 10.3949, 1.65375)
	pt3dadd(235.207, 31.6253, 10.3624, 1.5925)
	pt3dadd(235.534, 31.2621, 10.3356, 1.50062)
	pt3dadd(235.834, 30.8791, 10.313, 1.47)
	pt3dadd(236.119, 30.485, 10.2941, 1.47)
	pt3dadd(236.418, 30.1042, 10.2778, 1.47)
	pt3dadd(236.721, 29.7321, 10.2626, 1.47)
	pt3dadd(236.985, 29.337, 10.2475, 1.47)
	pt3dadd(237.219, 28.9169, 10.232, 1.47)
	pt3dadd(237.48, 28.5064, 10.2152, 1.47)
	pt3dadd(237.789, 28.1253, 10.1952, 1.48421)
	pt3dadd(238.111, 27.7559, 10.1708, 1.52685)
	pt3dadd(238.408, 27.3724, 10.1416, 1.61127)
	pt3dadd(238.685, 26.9744, 10.1085, 1.80683)
	pt3dadd(238.973, 26.5828, 10.0733, 2.05838)
	pt3dadd(239.283, 26.2074, 10.0382, 2.1428)
	pt3dadd(239.591, 25.833, 10.0052, 2.05924)
	pt3dadd(239.874, 25.4408, 9.97485, 1.97482)
	pt3dadd(240.146, 25.039, 9.94587, 1.98817)
	pt3dadd(240.447, 24.6537, 9.91519, 2.14195)
	pt3dadd(240.78, 24.2933, 9.87954, 2.30993)
	pt3dadd(241.103, 23.9405, 9.83808, 2.36593)
	pt3dadd(241.381, 23.574, 9.79461, 2.36593)
	pt3dadd(241.621, 23.1853, 9.75702, 2.34056)
	pt3dadd(241.853, 22.7776, 9.73319, 2.20845)
	pt3dadd(242.097, 22.3594, 9.72556, 1.96435)
	pt3dadd(242.342, 21.9364, 9.72964, 1.80162)
	pt3dadd(242.576, 21.5091, 9.73884, 1.80687)
	pt3dadd(242.809, 21.086, 9.75045, 1.80687)
	pt3dadd(243.069, 20.6828, 9.76619, 1.74562)
	pt3dadd(243.357, 20.2969, 9.78885, 1.68437)
	pt3dadd(243.643, 19.9115, 9.81994, 1.60671)
	pt3dadd(243.919, 19.5247, 9.86021, 1.55748)
	pt3dadd(244.197, 19.1441, 9.91066, 1.5859)
	pt3dadd(244.48, 18.7646, 9.9715, 1.70535)
	pt3dadd(244.759, 18.3784, 10.0405, 1.94794)
	pt3dadd(245.038, 17.988, 10.113, 2.20845)
	pt3dadd(245.324, 17.6004, 10.1839, 2.36593)
	pt3dadd(245.624, 17.2237, 10.2497, 2.49278)
	pt3dadd(245.938, 16.86, 10.3074, 2.6391)
	pt3dadd(246.257, 16.5021, 10.3554, 2.71697)
	pt3dadd(246.577, 16.1539, 10.3968, 2.68746)
	pt3dadd(246.911, 15.8275, 10.4388, 2.58598)
	pt3dadd(247.247, 15.5062, 10.4845, 2.46327)
	pt3dadd(247.548, 15.1558, 10.5333, 2.41077)
	pt3dadd(247.812, 14.7731, 10.5886, 2.46741)
	pt3dadd(248.069, 14.3833, 10.6602, 2.54352)
	pt3dadd(248.339, 13.9998, 10.7568, 2.59426)
	pt3dadd(248.605, 13.6136, 10.8832, 2.67038)
	pt3dadd(248.849, 13.2194, 11.043, 2.74649)
	pt3dadd(249.074, 12.8315, 11.2401, 2.77186)
	pt3dadd(249.289, 12.4641, 11.4668, 2.74649)
	pt3dadd(249.486, 12.1008, 11.6936, 2.64501)
	pt3dadd(249.639, 11.7071, 11.8886, 2.46741)
	pt3dadd(249.742, 11.2662, 12.045, 2.28982)
	pt3dadd(249.806, 10.7877, 12.1751, 2.18833)
	pt3dadd(249.853, 10.2915, 12.2877, 2.18243)
	pt3dadd(249.899, 9.79395, 12.382, 2.26621)
	pt3dadd(249.952, 9.30282, 12.4561, 2.32526)
	pt3dadd(250.023, 8.81608, 12.5162, 2.13845)
	pt3dadd(250.121, 8.32149, 12.5763, 1.76945)
	pt3dadd(250.226, 7.80049, 12.6477, 1.54021)
	pt3dadd(250.274, 7.24711, 12.7325, 1.52685)
  }
}

proc shape3d_13() {
  dist[12] {	pt3dadd(250.198, 6.68678, 12.827, 1.55528)
	pt3dadd(249.984, 6.16225, 12.9233, 1.52685)
	pt3dadd(249.679, 5.69877, 13.0102, 1.48421)
	pt3dadd(249.331, 5.29318, 13.081, 1.47)
	pt3dadd(248.959, 4.92886, 13.1379, 1.47)
	pt3dadd(248.567, 4.58894, 13.1879, 1.47)
	pt3dadd(248.157, 4.26349, 13.2382, 1.47)
	pt3dadd(247.728, 3.95206, 13.2946, 1.47)
	pt3dadd(247.286, 3.65306, 13.3573, 1.47)
  }
  dist[13] {pt3dclear()
	pt3dadd(218.018, 59.5812, 4.35358, 2.94)
	pt3dadd(217.953, 58.9495, 4.06194, 2.86209)
	pt3dadd(217.926, 58.4123, 3.90525, 2.64155)
	pt3dadd(217.948, 57.9607, 3.87829, 2.22331)
	pt3dadd(218.018, 57.5518, 3.92073, 1.77535)
	pt3dadd(218.141, 57.1694, 4.00624, 1.526)
	pt3dadd(218.316, 56.7965, 4.12337, 1.47)
	pt3dadd(218.532, 56.4006, 4.25316, 1.47)
	pt3dadd(218.766, 55.95, 4.36551, 1.47)
	pt3dadd(218.977, 55.4317, 4.43156, 1.47)
	pt3dadd(219.111, 54.861, 4.44704, 1.47)
	pt3dadd(219.12, 54.2804, 4.42591, 1.47)
	pt3dadd(218.985, 53.7423, 4.36986, 1.47)
	pt3dadd(218.726, 53.2769, 4.2715, 1.47)
	pt3dadd(218.42, 52.8633, 4.15186, 1.50062)
	pt3dadd(218.158, 52.4469, 4.06011, 1.62312)
	pt3dadd(217.99, 51.9925, 4.02951, 1.77625)
	pt3dadd(217.891, 51.5066, 4.06006, 1.77625)
	pt3dadd(217.809, 51.0124, 4.13553, 1.62312)
	pt3dadd(217.72, 50.5268, 4.23687, 1.50062)
	pt3dadd(217.638, 50.0555, 4.35278, 1.47)
	pt3dadd(217.575, 49.6, 4.48684, 1.50062)
	pt3dadd(217.521, 49.1617, 4.64756, 1.62312)
	pt3dadd(217.481, 48.7367, 4.83589, 1.80687)
	pt3dadd(217.482, 48.3116, 5.04696, 1.92937)
	pt3dadd(217.527, 47.8786, 5.27258, 1.96)
  }
  dist[14] {pt3dclear()
	pt3dadd(94.9716, 318.829, 8.77741, 2.77186)
	pt3dadd(94.9762, 319.288, 8.86454, 2.86644)
	pt3dadd(94.9848, 319.733, 8.96178, 2.85158)
	pt3dadd(94.9998, 320.164, 9.05849, 2.67218)
	pt3dadd(95.0177, 320.591, 9.14234, 2.37644)
	pt3dadd(95.0329, 321.024, 9.21446, 2.11222)
	pt3dadd(95.0442, 321.47, 9.28429, 1.98537)
	pt3dadd(95.0574, 321.932, 9.36629, 1.96)
	pt3dadd(95.0772, 322.406, 9.47581, 1.96)
	pt3dadd(95.0928, 322.885, 9.61585, 1.96)
	pt3dadd(95.0908, 323.365, 9.77455, 1.96)
	pt3dadd(95.0898, 323.841, 9.94334, 1.96)
	pt3dadd(95.1258, 324.311, 10.1278, 1.96)
	pt3dadd(95.1904, 324.772, 10.3371, 1.96)
	pt3dadd(95.2285, 325.215, 10.5732, 1.96)
	pt3dadd(95.2112, 325.641, 10.8303, 1.98537)
	pt3dadd(95.1671, 326.062, 11.0927, 2.08685)
	pt3dadd(95.1368, 326.486, 11.3349, 2.25854)
	pt3dadd(95.1319, 326.913, 11.5391, 2.45431)
	pt3dadd(95.143, 327.338, 11.7152, 2.66213)
	pt3dadd(95.1607, 327.762, 11.8904, 2.82796)
	pt3dadd(95.1821, 328.186, 12.0767, 2.84567)
	pt3dadd(95.2086, 328.617, 12.2656, 2.67218)
	pt3dadd(95.2406, 329.058, 12.4472, 2.37644)
	pt3dadd(95.2757, 329.511, 12.618, 2.11222)
	pt3dadd(95.3118, 329.973, 12.7793, 1.98537)
	pt3dadd(95.349, 330.441, 12.9346, 1.96)
	pt3dadd(95.3851, 330.914, 13.0837, 1.96)
	pt3dadd(95.4128, 331.391, 13.2238, 1.92937)
	pt3dadd(95.4237, 331.869, 13.3558, 1.80687)
	pt3dadd(95.4123, 332.346, 13.4821, 1.62312)
	pt3dadd(95.3884, 332.819, 13.6017, 1.53125)
	pt3dadd(95.3737, 333.29, 13.7135, 1.62312)
	pt3dadd(95.3752, 333.763, 13.8193, 1.80687)
	pt3dadd(95.3775, 334.239, 13.9215, 1.92937)
	pt3dadd(95.3707, 334.714, 14.0286, 1.98537)
	pt3dadd(95.3614, 335.182, 14.1559, 2.11222)
	pt3dadd(95.3555, 335.641, 14.3058, 2.36593)
  }
  dist[15] {pt3dclear()
	pt3dadd(94.9716, 318.829, 8.77741, 2.77186)
	pt3dadd(95.118, 319.111, 8.23477, 2.79903)
	pt3dadd(95.2611, 319.412, 7.75262, 2.68704)
	pt3dadd(95.4049, 319.704, 7.30796, 2.52276)
	pt3dadd(95.5586, 319.965, 6.86969, 2.4438)
	pt3dadd(95.7347, 320.213, 6.45104, 2.38125)
	pt3dadd(95.9406, 320.468, 6.06831, 2.26621)
	pt3dadd(96.1741, 320.731, 5.71671, 2.18243)
	pt3dadd(96.4311, 320.993, 5.3847, 2.13234)
	pt3dadd(96.7053, 321.252, 5.06567, 2.04046)
	pt3dadd(96.983, 321.52, 4.75811, 2.00459)
	pt3dadd(97.2603, 321.806, 4.46798, 2.14195)
	pt3dadd(97.5461, 322.093, 4.19729, 2.30993)
	pt3dadd(97.8404, 322.356, 3.92613, 2.36593)
	pt3dadd(98.1392, 322.58, 3.63238, 2.36593)
	pt3dadd(98.4515, 322.774, 3.31914, 2.36593)
	pt3dadd(98.7807, 322.955, 3.00063, 2.36593)
  }
}

proc basic_shape() {
	shape3d_1()
	shape3d_2()
	shape3d_3()
	shape3d_4()
	shape3d_5()
	shape3d_6()
	shape3d_7()
	shape3d_8()
	shape3d_9()
	shape3d_10()
	shape3d_11()
	shape3d_12()
	shape3d_13()
}

objref all

proc subsets() { local i
	all = new SectionList()
	soma all.append()
	for i=0, 10 prox[i] all.append()
	for i=0, 15 dist[i] all.append()
}

proc geom_nseg() {
	forsec all { nseg = int((L/(0.1*lambda_f(100))+.999)/2)*2 + 1  }
}

celldef()

Loading data, please wait...