proc celldef() {
topol()
}
create soma[2], dend[370]
proc topol() { local i
connect soma[1](0), soma(0)
connect dend(0), soma(0)
for i = 1, 3 connect dend[i](0), dend[i-1](1)
connect dend[4](0), dend[2](1)
for i = 5, 6 connect dend[i](0), dend[4](1)
connect dend[7](0), dend[1](1)
for i = 8, 9 connect dend[i](0), dend[i-1](1)
connect dend[10](0), dend[8](1)
connect dend[11](0), dend[7](1)
for i = 12, 13 connect dend[i](0), dend[11](1)
for i = 14, 15 connect dend[i](0), dend[13](1)
connect dend[16](0), dend(1)
for i = 17, 18 connect dend[i](0), dend[16](1)
for i = 19, 20 connect dend[i](0), dend[i-1](1)
connect dend[21](0), dend[19](1)
for i = 22, 23 connect dend[i](0), dend[21](1)
connect dend[24](0), dend[18](1)
for i = 25, 26 connect dend[i](0), dend[i-1](1)
connect dend[27](0), dend[25](1)
connect dend[28](0), dend[24](1)
for i = 29, 30 connect dend[i](0), dend[i-1](1)
connect dend[31](0), dend[29](1)
connect dend[32](0), dend[28](1)
for i = 33, 34 connect dend[i](0), dend[32](1)
for i = 35, 36 connect dend[i](0), dend[34](1)
connect dend[37](0), soma(0)
for i = 38, 40 connect dend[i](0), dend[i-1](1)
connect dend[41](0), dend[39](1)
connect dend[42](0), dend[38](1)
for i = 43, 45 connect dend[i](0), dend[i-1](1)
connect dend[46](0), dend[44](1)
connect dend[47](0), dend[43](1)
connect dend[48](0), dend[42](1)
connect dend[49](0), dend[37](1)
for i = 50, 51 connect dend[i](0), dend[i-1](1)
connect dend[52](0), dend[50](1)
for i = 53, 54 connect dend[i](0), dend[52](1)
connect dend[55](0), dend[49](1)
for i = 56, 57 connect dend[i](0), dend[i-1](1)
connect dend[58](0), dend[56](1)
connect dend[59](0), dend[55](1)
for i = 60, 61 connect dend[i](0), dend[59](1)
for i = 62, 63 connect dend[i](0), dend[61](1)
connect dend[64](0), soma(0)
for i = 65, 67 connect dend[i](0), dend[i-1](1)
connect dend[68](0), dend[66](1)
for i = 69, 70 connect dend[i](0), dend[68](1)
connect dend[71](0), dend[65](1)
for i = 72, 73 connect dend[i](0), dend[i-1](1)
connect dend[74](0), dend[72](1)
connect dend[75](0), dend[71](1)
connect dend[76](0), dend[64](1)
for i = 77, 79 connect dend[i](0), dend[i-1](1)
connect dend[80](0), dend[78](1)
connect dend[81](0), dend[77](1)
for i = 82, 83 connect dend[i](0), dend[81](1)
connect dend[84](0), dend[76](1)
for i = 85, 86 connect dend[i](0), dend[84](1)
for i = 87, 88 connect dend[i](0), dend[i-1](1)
connect dend[89](0), dend[87](1)
connect dend[90](0), dend[86](1)
for i = 91, 92 connect dend[i](0), dend[i-1](1)
connect dend[93](0), dend[91](1)
connect dend[94](0), dend[90](1)
connect dend[95](0), soma(0)
for i = 96, 98 connect dend[i](0), dend[i-1](1)
connect dend[99](0), dend[97](1)
connect dend[100](0), dend[96](1)
for i = 101, 103 connect dend[i](0), dend[i-1](1)
connect dend[104](0), dend[102](1)
connect dend[105](0), dend[101](1)
for i = 106, 107 connect dend[i](0), dend[i-1](1)
connect dend[108](0), dend[106](1)
connect dend[109](0), dend[105](1)
for i = 110, 111 connect dend[i](0), dend[109](1)
connect dend[112](0), dend[100](1)
for i = 113, 114 connect dend[i](0), dend[112](1)
for i = 115, 116 connect dend[i](0), dend[114](1)
for i = 117, 118 connect dend[i](0), dend[116](1)
connect dend[119](0), dend[95](1)
for i = 120, 121 connect dend[i](0), dend[i-1](1)
connect dend[122](0), dend[120](1)
for i = 123, 124 connect dend[i](0), dend[122](1)
for i = 125, 126 connect dend[i](0), dend[i-1](1)
connect dend[127](0), dend[125](1)
connect dend[128](0), dend[124](1)
connect dend[129](0), dend[119](1)
for i = 130, 131 connect dend[i](0), dend[i-1](1)
connect dend[132](0), dend[130](1)
for i = 133, 134 connect dend[i](0), dend[132](1)
connect dend[135](0), dend[129](1)
for i = 136, 137 connect dend[i](0), dend[i-1](1)
connect dend[138](0), dend[136](1)
connect dend[139](0), dend[135](1)
for i = 140, 141 connect dend[i](0), dend[i-1](1)
connect dend[142](0), dend[140](1)
connect dend[143](0), dend[139](1)
for i = 144, 145 connect dend[i](0), dend[143](1)
connect dend[146](0), soma(0)
for i = 147, 150 connect dend[i](0), dend[i-1](1)
connect dend[151](0), dend[149](1)
for i = 152, 153 connect dend[i](0), dend[151](1)
connect dend[154](0), dend[148](1)
for i = 155, 156 connect dend[i](0), dend[154](1)
for i = 157, 158 connect dend[i](0), dend[i-1](1)
connect dend[159](0), dend[157](1)
connect dend[160](0), dend[156](1)
connect dend[161](0), dend[147](1)
for i = 162, 163 connect dend[i](0), dend[161](1)
connect dend[164](0), dend[146](1)
for i = 165, 166 connect dend[i](0), dend[i-1](1)
connect dend[167](0), dend[165](1)
for i = 168, 170 connect dend[i](0), dend[i-1](1)
connect dend[171](0), dend[169](1)
connect dend[172](0), dend[168](1)
for i = 173, 174 connect dend[i](0), dend[172](1)
for i = 175, 176 connect dend[i](0), dend[174](1)
connect dend[177](0), dend[167](1)
for i = 178, 179 connect dend[i](0), dend[i-1](1)
connect dend[180](0), dend[178](1)
for i = 181, 182 connect dend[i](0), dend[180](1)
connect dend[183](0), dend[177](1)
for i = 184, 185 connect dend[i](0), dend[183](1)
connect dend[186](0), dend[164](1)
for i = 187, 188 connect dend[i](0), dend[186](1)
for i = 189, 191 connect dend[i](0), dend[i-1](1)
connect dend[192](0), dend[190](1)
connect dend[193](0), dend[189](1)
for i = 194, 195 connect dend[i](0), dend[193](1)
for i = 196, 197 connect dend[i](0), dend[i-1](1)
connect dend[198](0), dend[196](1)
connect dend[199](0), dend[195](1)
connect dend[200](0), dend[188](1)
for i = 201, 202 connect dend[i](0), dend[200](1)
for i = 203, 204 connect dend[i](0), dend[202](1)
connect dend[205](0), soma(0)
for i = 206, 209 connect dend[i](0), dend[i-1](1)
connect dend[210](0), dend[208](1)
for i = 211, 212 connect dend[i](0), dend[210](1)
for i = 213, 214 connect dend[i](0), dend[212](1)
connect dend[215](0), dend[207](1)
for i = 216, 217 connect dend[i](0), dend[215](1)
for i = 218, 219 connect dend[i](0), dend[217](1)
connect dend[220](0), dend[206](1)
for i = 221, 222 connect dend[i](0), dend[i-1](1)
connect dend[223](0), dend[221](1)
connect dend[224](0), dend[220](1)
connect dend[225](0), dend[205](1)
for i = 226, 227 connect dend[i](0), dend[i-1](1)
connect dend[228](0), dend[226](1)
for i = 229, 230 connect dend[i](0), dend[i-1](1)
connect dend[231](0), dend[229](1)
for i = 232, 233 connect dend[i](0), dend[231](1)
connect dend[234](0), dend[228](1)
connect dend[235](0), dend[225](1)
for i = 236, 237 connect dend[i](0), dend[i-1](1)
connect dend[238](0), dend[236](1)
connect dend[239](0), dend[235](1)
for i = 240, 241 connect dend[i](0), dend[239](1)
for i = 242, 244 connect dend[i](0), dend[i-1](1)
connect dend[245](0), dend[243](1)
for i = 246, 247 connect dend[i](0), dend[245](1)
connect dend[248](0), dend[242](1)
connect dend[249](0), dend[241](1)
for i = 250, 251 connect dend[i](0), dend[249](1)
for i = 252, 253 connect dend[i](0), dend[i-1](1)
connect dend[254](0), dend[252](1)
for i = 255, 256 connect dend[i](0), dend[254](1)
connect dend[257](0), dend[251](1)
for i = 258, 259 connect dend[i](0), dend[257](1)
connect dend[260](0), soma(0)
for i = 261, 263 connect dend[i](0), dend[i-1](1)
connect dend[264](0), dend[262](1)
for i = 265, 266 connect dend[i](0), dend[264](1)
connect dend[267](0), dend[261](1)
for i = 268, 269 connect dend[i](0), dend[267](1)
for i = 270, 271 connect dend[i](0), dend[i-1](1)
connect dend[272](0), dend[270](1)
connect dend[273](0), dend[269](1)
for i = 274, 275 connect dend[i](0), dend[273](1)
for i = 276, 277 connect dend[i](0), dend[275](1)
connect dend[278](0), dend[260](1)
for i = 279, 281 connect dend[i](0), dend[i-1](1)
connect dend[282](0), dend[280](1)
connect dend[283](0), dend[279](1)
for i = 284, 285 connect dend[i](0), dend[i-1](1)
connect dend[286](0), dend[284](1)
for i = 287, 288 connect dend[i](0), dend[286](1)
for i = 289, 290 connect dend[i](0), dend[288](1)
connect dend[291](0), dend[283](1)
for i = 292, 293 connect dend[i](0), dend[i-1](1)
connect dend[294](0), dend[292](1)
connect dend[295](0), dend[291](1)
for i = 296, 297 connect dend[i](0), dend[i-1](1)
connect dend[298](0), dend[296](1)
connect dend[299](0), dend[295](1)
connect dend[300](0), dend[278](1)
for i = 301, 303 connect dend[i](0), dend[i-1](1)
connect dend[304](0), dend[302](1)
for i = 305, 306 connect dend[i](0), dend[304](1)
topol_1()
}
proc topol_1() {
connect dend[307](0), dend[301](1)
for i = 308, 309 connect dend[i](0), dend[307](1)
connect dend[310](0), dend[300](1)
for i = 311, 313 connect dend[i](0), dend[i-1](1)
connect dend[314](0), dend[312](1)
for i = 315, 316 connect dend[i](0), dend[314](1)
connect dend[317](0), dend[311](1)
connect dend[318](0), dend[310](1)
for i = 319, 320 connect dend[i](0), dend[i-1](1)
connect dend[321](0), dend[319](1)
connect dend[322](0), dend[318](1)
for i = 323, 325 connect dend[i](0), dend[i-1](1)
connect dend[326](0), dend[324](1)
connect dend[327](0), dend[323](1)
for i = 328, 329 connect dend[i](0), dend[327](1)
connect dend[330](0), dend[322](1)
for i = 331, 332 connect dend[i](0), dend[330](1)
connect dend[333](0), soma(0)
for i = 334, 335 connect dend[i](0), dend[i-1](1)
connect dend[336](0), dend[334](1)
for i = 337, 338 connect dend[i](0), dend[336](1)
for i = 339, 340 connect dend[i](0), dend[338](1)
for i = 341, 342 connect dend[i](0), dend[340](1)
for i = 343, 344 connect dend[i](0), dend[342](1)
connect dend[345](0), dend[333](1)
for i = 346, 347 connect dend[i](0), dend[i-1](1)
connect dend[348](0), dend[346](1)
for i = 349, 350 connect dend[i](0), dend[348](1)
for i = 351, 352 connect dend[i](0), dend[i-1](1)
connect dend[353](0), dend[351](1)
connect dend[354](0), dend[350](1)
for i = 355, 356 connect dend[i](0), dend[354](1)
connect dend[357](0), dend[345](1)
for i = 358, 359 connect dend[i](0), dend[357](1)
for i = 360, 361 connect dend[i](0), dend[i-1](1)
connect dend[362](0), dend[360](1)
connect dend[363](0), dend[359](1)
for i = 364, 365 connect dend[i](0), dend[i-1](1)
connect dend[366](0), dend[364](1)
connect dend[367](0), dend[363](1)
for i = 368, 369 connect dend[i](0), dend[367](1)
basic_shape()
}
proc shape3d_1() {
soma {pt3dclear()
pt3dadd(0, 0, 0, 109.2)
pt3dadd(0, 54.6, 0, 109.2)
}
soma[1] {pt3dclear()
pt3dadd(0, 0, 0, 109.2)
pt3dadd(0, -54.6, 0, 109.2)
}
dend {pt3dclear()
pt3dadd(0, 0, 0, 5.35)
pt3dadd(77, -55, 0, 5.35)
pt3dadd(88, -96, 75, 4.54)
}
dend[1] {pt3dclear()
pt3dadd(88, -96, 75, 4.54)
pt3dadd(95, -163, 182.7, 2.67)
pt3dadd(129, -211, 294.1, 2.94)
}
dend[2] {pt3dclear()
pt3dadd(129, -211, 294.1, 2.94)
pt3dadd(158, -222, 375, 1.6)
pt3dadd(182, -217, 450, 1.87)
}
dend[3] {pt3dclear()
pt3dadd(182, -217, 450, 1.87)
pt3dadd(256, -163, 600, 1.07)
pt3dadd(332, -137, 750, 1.07)
}
dend[4] {pt3dclear()
pt3dadd(182, -217, 450, 1.87)
pt3dadd(200, -206, 463.4, 1.33)
}
dend[5] {pt3dclear()
pt3dadd(200, -206, 463.4, 1.33)
pt3dadd(231, -188, 525, 0.53)
}
dend[6] {pt3dclear()
pt3dadd(200, -206, 463.4, 1.33)
pt3dadd(304, -254, 600, 1.07)
pt3dadd(459, -251, 747.5, 1.07)
pt3dadd(468, -302, 825, 0.26)
}
dend[7] {pt3dclear()
pt3dadd(129, -211, 294.1, 2.94)
pt3dadd(158, -283, 375, 2.14)
pt3dadd(181, -340, 450, 2.67)
}
dend[8] {pt3dclear()
pt3dadd(181, -340, 450, 2.67)
pt3dadd(140, -390, 509.7, 1.33)
pt3dadd(100, -425, 579.79, 1.33)
}
dend[9] {pt3dclear()
pt3dadd(100, -425, 579.79, 1.33)
pt3dadd(81, -489, 527.2, 0.8)
pt3dadd(99, -554, 600, 0.8)
}
dend[10] {pt3dclear()
pt3dadd(100, -425, 579.79, 1.33)
pt3dadd(36, -429, 659.1, 0.8)
pt3dadd(-35, -426, 675, 0.8)
}
dend[11] {pt3dclear()
pt3dadd(181, -340, 450, 2.67)
pt3dadd(210, -366, 523.29, 2.14)
pt3dadd(228, -394, 598.2, 2.4)
}
dend[12] {pt3dclear()
pt3dadd(228, -394, 598.2, 2.4)
pt3dadd(300, -481, 600, 0.8)
pt3dadd(363, -560, 575.4, 0.53)
}
dend[13] {pt3dclear()
pt3dadd(228, -394, 598.2, 2.4)
pt3dadd(249, -411, 545.79, 2.4)
}
dend[14] {pt3dclear()
pt3dadd(249, -411, 545.79, 2.4)
pt3dadd(305, -559, 689.9, 2.4)
pt3dadd(360, -676, 825, 2.14)
pt3dadd(441, -743, 975, 1.33)
pt3dadd(535, -884, 1050, 1.33)
pt3dadd(603, -1005, 1200, 1.07)
pt3dadd(456, -981, 1050, 0.53)
}
dend[15] {pt3dclear()
pt3dadd(249, -411, 545.79, 2.4)
pt3dadd(294, -451, 717.5, 1.07)
pt3dadd(332, -515, 882.5, 1.07)
}
dend[16] {pt3dclear()
pt3dadd(88, -96, 75, 4.54)
pt3dadd(209, -179, 130.8, 2.94)
pt3dadd(320, -262, 150, 3.47)
}
dend[17] {pt3dclear()
pt3dadd(320, -262, 150, 3.47)
pt3dadd(339, -345, 105.7, 0.8)
pt3dadd(411, -391, 147.19, 0.8)
}
dend[18] {pt3dclear()
pt3dadd(320, -262, 150, 3.47)
pt3dadd(373, -328, 205.1, 4.01)
}
dend[19] {pt3dclear()
pt3dadd(373, -328, 205.1, 4.01)
pt3dadd(413, -336, 176.2, 1.87)
}
dend[20] {pt3dclear()
pt3dadd(413, -336, 176.2, 1.87)
pt3dadd(435, -349, 150, 0.8)
}
dend[21] {pt3dclear()
pt3dadd(413, -336, 176.2, 1.87)
pt3dadd(546, -347, 211.3, 1.87)
pt3dadd(647, -381, 299, 2.14)
}
dend[22] {pt3dclear()
pt3dadd(647, -381, 299, 2.14)
pt3dadd(694, -351, 225, 0.8)
}
dend[23] {pt3dclear()
pt3dadd(647, -381, 299, 2.14)
pt3dadd(847, -412, 229.5, 1.6)
pt3dadd(1040, -418, 300, 1.07)
pt3dadd(1213, -278, 375, 0.8)
}
dend[24] {pt3dclear()
pt3dadd(373, -328, 205.1, 4.01)
pt3dadd(387, -385, 177.2, 3.47)
}
dend[25] {pt3dclear()
pt3dadd(387, -385, 177.2, 3.47)
pt3dadd(428, -456, 295.6, 2.67)
pt3dadd(473, -507, 375, 1.87)
}
dend[26] {pt3dclear()
pt3dadd(473, -507, 375, 1.87)
pt3dadd(517, -625, 525, 0.8)
pt3dadd(599, -667, 600, 1.07)
}
dend[27] {pt3dclear()
pt3dadd(473, -507, 375, 1.87)
pt3dadd(571, -597, 525, 1.6)
pt3dadd(709, -671, 600, 1.6)
pt3dadd(837, -684, 750, 1.07)
pt3dadd(1064, -719, 825, 0.53)
}
dend[28] {pt3dclear()
pt3dadd(387, -385, 177.2, 3.47)
pt3dadd(410, -409, 193.4, 2.94)
}
dend[29] {pt3dclear()
pt3dadd(410, -409, 193.4, 2.94)
pt3dadd(464, -505, 225, 2.4)
pt3dadd(550, -589, 225, 2.14)
}
dend[30] {pt3dclear()
pt3dadd(550, -589, 225, 2.14)
pt3dadd(628, -646, 285.5, 0.8)
pt3dadd(680, -731, 232.2, 0.8)
}
dend[31] {pt3dclear()
pt3dadd(550, -589, 225, 2.14)
pt3dadd(643, -764, 225, 1.87)
pt3dadd(681, -934, 225, 1.6)
pt3dadd(685, -1098, 362.4, 1.07)
pt3dadd(887, -1136, 302.89, 1.07)
pt3dadd(993, -1141, 244.7, 0.53)
}
dend[32] {pt3dclear()
pt3dadd(410, -409, 193.4, 2.94)
pt3dadd(427, -422, 225, 2.14)
}
dend[33] {pt3dclear()
pt3dadd(427, -422, 225, 2.14)
pt3dadd(447, -427, 174, 0.8)
}
dend[34] {pt3dclear()
pt3dadd(427, -422, 225, 2.14)
pt3dadd(497, -468, 176.1, 2.14)
pt3dadd(568, -528, 203.8, 2.14)
}
dend[35] {pt3dclear()
pt3dadd(568, -528, 203.8, 2.14)
pt3dadd(562, -587, 166.6, 0.53)
}
dend[36] {pt3dclear()
pt3dadd(568, -528, 203.8, 2.14)
pt3dadd(727, -640, 293.1, 1.87)
pt3dadd(904, -761, 300, 1.87)
pt3dadd(1074, -872, 367.6, 1.6)
pt3dadd(1217, -902, 450, 1.07)
pt3dadd(1326, -839, 525, 0.8)
}
dend[37] {pt3dclear()
pt3dadd(0, 0, 0, 5.08)
pt3dadd(14, -26, 103.2, 5.08)
}
dend[38] {pt3dclear()
pt3dadd(14, -26, 103.2, 5.08)
pt3dadd(36, 1, 214.9, 2.94)
pt3dadd(40, 25, 300, 2.67)
}
dend[39] {pt3dclear()
pt3dadd(40, 25, 300, 2.67)
pt3dadd(75, 29, 253.9, 1.87)
pt3dadd(98, 25, 305.89, 1.87)
}
dend[40] {pt3dclear()
pt3dadd(98, 25, 305.89, 1.87)
pt3dadd(203, -39, 450, 1.33)
pt3dadd(296, -98, 600, 1.07)
pt3dadd(386, -133, 750, 1.07)
pt3dadd(320, -122, 900, 0.53)
}
dend[41] {pt3dclear()
pt3dadd(98, 25, 305.89, 1.87)
pt3dadd(178, 75, 498, 1.6)
pt3dadd(250, 85, 600, 1.6)
pt3dadd(350, 107, 750, 1.6)
pt3dadd(369, 151, 900, 1.07)
pt3dadd(430, 175, 1050, 0.8)
pt3dadd(524, 143, 1050, 0.8)
}
dend[42] {pt3dclear()
pt3dadd(40, 25, 300, 2.67)
pt3dadd(10, 20, 375, 2.14)
pt3dadd(9, 1, 450, 2.14)
}
dend[43] {pt3dclear()
pt3dadd(9, 1, 450, 2.14)
pt3dadd(25, -23, 525, 1.6)
pt3dadd(16, -44, 525, 1.87)
}
dend[44] {pt3dclear()
pt3dadd(16, -44, 525, 1.87)
pt3dadd(14, -68, 561.79, 1.6)
}
dend[45] {pt3dclear()
pt3dadd(14, -68, 561.79, 1.6)
pt3dadd(30, -42, 750, 1.33)
pt3dadd(33, -16, 900, 1.07)
pt3dadd(49, -23, 975, 0.53)
}
dend[46] {pt3dclear()
pt3dadd(14, -68, 561.79, 1.6)
pt3dadd(-16, -93, 675, 0.8)
pt3dadd(-50, -81, 750, 0.8)
}
dend[47] {pt3dclear()
pt3dadd(16, -44, 525, 1.87)
pt3dadd(-3, -41, 495.8, 0.53)
}
dend[48] {pt3dclear()
pt3dadd(9, 1, 450, 2.14)
pt3dadd(-30, 65, 525, 1.6)
pt3dadd(-1, 119, 675, 1.33)
pt3dadd(-41, 155, 825, 1.6)
pt3dadd(-72, 178, 1035, 0.8)
pt3dadd(-78, 232, 1125, 0.53)
}
dend[49] {pt3dclear()
pt3dadd(14, -26, 103.2, 5.08)
pt3dadd(-40, -65, 300, 2.94)
pt3dadd(-40, -119, 450, 2.94)
}
dend[50] {pt3dclear()
pt3dadd(-40, -119, 450, 2.94)
pt3dadd(22, -168, 600, 2.14)
pt3dadd(41, -233, 675, 2.14)
}
dend[51] {pt3dclear()
pt3dadd(41, -233, 675, 2.14)
pt3dadd(90, -244, 825, 1.33)
pt3dadd(126, -269, 975, 0.8)
}
dend[52] {pt3dclear()
pt3dadd(41, -233, 675, 2.14)
pt3dadd(68, -246, 675, 1.87)
}
dend[53] {pt3dclear()
pt3dadd(68, -246, 675, 1.87)
pt3dadd(132, -280, 750, 0.8)
}
dend[54] {pt3dclear()
pt3dadd(68, -246, 675, 1.87)
pt3dadd(84, -355, 825, 1.6)
pt3dadd(38, -440, 975, 1.6)
pt3dadd(-101, -433, 975, 1.33)
pt3dadd(-118, -333, 786.6, 1.07)
pt3dadd(48, -322, 750, 0.8)
}
dend[55] {pt3dclear()
pt3dadd(-40, -119, 450, 2.94)
pt3dadd(-89, -134, 525, 2.67)
pt3dadd(-96, -152, 600, 2.67)
}
dend[56] {pt3dclear()
pt3dadd(-96, -152, 600, 2.67)
pt3dadd(-104, -136, 666.6, 1.33)
pt3dadd(-118, -129, 675, 1.07)
}
dend[57] {pt3dclear()
pt3dadd(-118, -129, 675, 1.07)
pt3dadd(-201, -108, 735.8, 0.8)
}
dend[58] {pt3dclear()
pt3dadd(-118, -129, 675, 1.07)
pt3dadd(-123, -141, 732.5, 0.8)
}
dend[59] {pt3dclear()
pt3dadd(-96, -152, 600, 2.67)
pt3dadd(-126, -184, 675, 2.14)
}
dend[60] {pt3dclear()
pt3dadd(-126, -184, 675, 2.14)
pt3dadd(-110, -199, 613.79, 0.53)
pt3dadd(-90, -224, 675, 0.26)
}
dend[61] {pt3dclear()
pt3dadd(-126, -184, 675, 2.14)
pt3dadd(-152, -204, 632.1, 2.67)
}
dend[62] {pt3dclear()
pt3dadd(-152, -204, 632.1, 2.67)
pt3dadd(-233, -222, 825, 1.6)
pt3dadd(-277, -316, 975, 1.6)
pt3dadd(-184, -363, 1125, 1.07)
}
}
proc shape3d_2() {
dend[62] { pt3dadd(-244, -399, 1050, 1.07)
pt3dadd(-372, -430, 900, 1.07)
}
dend[63] {pt3dclear()
pt3dadd(-152, -204, 632.1, 2.67)
pt3dadd(-319, -205, 750, 1.87)
pt3dadd(-405, -210, 900, 1.87)
pt3dadd(-502, -156, 1050, 1.33)
pt3dadd(-672, -147, 1050, 1.33)
pt3dadd(-838, -130, 1043, 0.8)
}
dend[64] {pt3dclear()
pt3dadd(0, 0, 0, 5.67)
pt3dadd(48, 19, 115.3, 5.67)
pt3dadd(56, 40, 210.7, 4.81)
}
dend[65] {pt3dclear()
pt3dadd(56, 40, 210.7, 4.81)
pt3dadd(56, 115, 170.7, 3.21)
pt3dadd(44, 195, 196.8, 2.94)
}
dend[66] {pt3dclear()
pt3dadd(44, 195, 196.8, 2.94)
pt3dadd(28, 222, 203, 1.87)
}
dend[67] {pt3dclear()
pt3dadd(28, 222, 203, 1.87)
pt3dadd(-115, 331, 86.95, 1.33)
pt3dadd(-245, 483, 150, 1.07)
pt3dadd(-407, 712, 150, 0.8)
}
dend[68] {pt3dclear()
pt3dadd(28, 222, 203, 1.87)
pt3dadd(34, 250, 175.1, 1.6)
}
dend[69] {pt3dclear()
pt3dadd(34, 250, 175.1, 1.6)
pt3dadd(-12, 402, 150, 1.07)
pt3dadd(-125, 564, 150, 1.07)
pt3dadd(-251, 653, 150, 0.53)
}
dend[70] {pt3dclear()
pt3dadd(34, 250, 175.1, 1.6)
pt3dadd(15, 377, 336.1, 1.07)
pt3dadd(-58, 552, 416.7, 0.8)
}
dend[71] {pt3dclear()
pt3dadd(44, 195, 196.8, 2.94)
pt3dadd(82, 225, 257.89, 2.14)
pt3dadd(126, 272, 300, 2.14)
}
dend[72] {pt3dclear()
pt3dadd(126, 272, 300, 2.14)
pt3dadd(190, 315, 239.5, 1.6)
}
dend[73] {pt3dclear()
pt3dadd(190, 315, 239.5, 1.6)
pt3dadd(258, 382, 300, 0.8)
pt3dadd(303, 482, 216.2, 0.8)
}
dend[74] {pt3dclear()
pt3dadd(190, 315, 239.5, 1.6)
pt3dadd(291, 352, 349.7, 0.8)
pt3dadd(352, 465, 434.7, 0.8)
}
dend[75] {pt3dclear()
pt3dadd(126, 272, 300, 2.14)
pt3dadd(156, 355, 450, 1.6)
pt3dadd(194, 465, 600, 1.6)
pt3dadd(202, 506, 750, 1.6)
pt3dadd(141, 678, 900, 1.6)
}
dend[76] {pt3dclear()
pt3dadd(56, 40, 210.7, 4.81)
pt3dadd(93, 63, 300, 3.47)
pt3dadd(94, 89, 375, 3.21)
}
dend[77] {pt3dclear()
pt3dadd(94, 89, 375, 3.21)
pt3dadd(74, 84, 429.2, 2.14)
pt3dadd(62, 97, 450, 1.87)
}
dend[78] {pt3dclear()
pt3dadd(62, 97, 450, 1.87)
pt3dadd(-4, 68, 525, 1.33)
pt3dadd(-101, 40, 600, 1.33)
}
dend[79] {pt3dclear()
pt3dadd(-101, 40, 600, 1.33)
pt3dadd(-164, 41, 541.5, 0.53)
}
dend[80] {pt3dclear()
pt3dadd(-101, 40, 600, 1.33)
pt3dadd(-133, 32, 750, 0.8)
pt3dadd(-138, 58, 900, 0.53)
}
dend[81] {pt3dclear()
pt3dadd(62, 97, 450, 1.87)
pt3dadd(124, 117, 600, 1.6)
pt3dadd(142, 129, 750, 1.87)
pt3dadd(145, 84, 900, 1.87)
pt3dadd(154, 139, 1125, 1.07)
}
dend[82] {pt3dclear()
pt3dadd(154, 139, 1125, 1.07)
pt3dadd(153, 158, 1125, 1.07)
pt3dadd(149, 182, 1200, 0.8)
}
dend[83] {pt3dclear()
pt3dadd(154, 139, 1125, 1.07)
pt3dadd(179, 126, 1095, 0.53)
}
dend[84] {pt3dclear()
pt3dadd(94, 89, 375, 3.21)
pt3dadd(130, 109, 435.3, 2.94)
pt3dadd(172, 137, 383.9, 2.94)
}
dend[85] {pt3dclear()
pt3dadd(172, 137, 383.9, 2.94)
pt3dadd(299, 70, 542.6, 0.8)
pt3dadd(391, 39, 675, 1.07)
pt3dadd(431, 68, 750, 0.53)
}
dend[86] {pt3dclear()
pt3dadd(172, 137, 383.9, 2.94)
pt3dadd(185, 155, 377.9, 2.67)
}
dend[87] {pt3dclear()
pt3dadd(185, 155, 377.9, 2.67)
pt3dadd(230, 149, 468.2, 1.6)
}
dend[88] {pt3dclear()
pt3dadd(230, 149, 468.2, 1.6)
pt3dadd(238, 181, 569.9, 1.07)
pt3dadd(256, 207, 670.1, 0.53)
}
dend[89] {pt3dclear()
pt3dadd(230, 149, 468.2, 1.6)
pt3dadd(337, 166, 652.7, 1.6)
pt3dadd(411, 199, 825, 1.33)
pt3dadd(469, 232, 1050, 1.07)
}
dend[90] {pt3dclear()
pt3dadd(185, 155, 377.9, 2.67)
pt3dadd(229, 202, 467.1, 1.87)
pt3dadd(278, 263, 543, 1.87)
}
dend[91] {pt3dclear()
pt3dadd(278, 263, 543, 1.87)
pt3dadd(283, 271, 528.9, 1.6)
}
dend[92] {pt3dclear()
pt3dadd(283, 271, 528.9, 1.6)
pt3dadd(332, 345, 675, 1.07)
pt3dadd(372, 436, 814.1, 0.8)
}
dend[93] {pt3dclear()
pt3dadd(283, 271, 528.9, 1.6)
pt3dadd(355, 356, 750, 1.07)
pt3dadd(336, 413, 975, 0.8)
}
dend[94] {pt3dclear()
pt3dadd(278, 263, 543, 1.87)
pt3dadd(275, 442, 600, 1.6)
pt3dadd(293, 570, 675, 1.33)
pt3dadd(254, 794, 675, 1.6)
pt3dadd(416, 922, 731.3, 1.33)
pt3dadd(566, 919, 750, 1.07)
}
dend[95] {pt3dclear()
pt3dadd(0, 0, 0, 7.75)
pt3dadd(-69, -17, 75, 7.75)
}
dend[96] {pt3dclear()
pt3dadd(-69, -17, 75, 7.75)
pt3dadd(-137, -49, 75, 4.81)
}
dend[97] {pt3dclear()
pt3dadd(-137, -49, 75, 4.81)
pt3dadd(-249, -190, 75, 1.87)
pt3dadd(-342, -339, 75, 1.87)
}
dend[98] {pt3dclear()
pt3dadd(-342, -339, 75, 1.87)
pt3dadd(-380, -389, 44.08, 0.8)
pt3dadd(-422, -446, 75, 0.8)
}
dend[99] {pt3dclear()
pt3dadd(-342, -339, 75, 1.87)
pt3dadd(-368, -519, -37.78, 1.6)
pt3dadd(-334, -693, 0, 1.33)
pt3dadd(-324, -661, -211.4, 1.07)
pt3dadd(-458, -579, -300, 0.8)
}
dend[100] {pt3dclear()
pt3dadd(-137, -49, 75, 4.81)
pt3dadd(-189, -26, 55.84, 2.94)
pt3dadd(-243, -26, 32.07, 3.21)
}
dend[101] {pt3dclear()
pt3dadd(-243, -26, 32.07, 3.21)
pt3dadd(-320, -44, 75, 2.94)
}
dend[102] {pt3dclear()
pt3dadd(-320, -44, 75, 2.94)
pt3dadd(-382, -37, 116.6, 1.6)
pt3dadd(-429, -9, 166.4, 1.87)
}
dend[103] {pt3dclear()
pt3dadd(-429, -9, 166.4, 1.87)
pt3dadd(-466, 42, 205.3, 0.53)
pt3dadd(-507, 109, 150, 0.53)
}
dend[104] {pt3dclear()
pt3dadd(-429, -9, 166.4, 1.87)
pt3dadd(-510, -57, 300, 1.6)
pt3dadd(-587, -95, 450, 1.6)
pt3dadd(-600, -200, 600, 1.6)
pt3dadd(-686, -247, 750, 1.6)
pt3dadd(-834, -196, 750, 1.33)
pt3dadd(-901, -130, 750, 0.8)
}
dend[105] {pt3dclear()
pt3dadd(-320, -44, 75, 2.94)
pt3dadd(-442, -94, 115.7, 2.14)
pt3dadd(-559, -129, 150, 2.14)
}
dend[106] {pt3dclear()
pt3dadd(-559, -129, 150, 2.14)
pt3dadd(-604, -158, 133.6, 1.33)
}
dend[107] {pt3dclear()
pt3dadd(-604, -158, 133.6, 1.33)
pt3dadd(-648, -235, 79.25, 0.8)
pt3dadd(-702, -321, 96.48, 0.8)
}
dend[108] {pt3dclear()
pt3dadd(-604, -158, 133.6, 1.33)
pt3dadd(-781, -114, 150, 1.07)
pt3dadd(-957, -193, 75, 1.07)
}
dend[109] {pt3dclear()
pt3dadd(-559, -129, 150, 2.14)
pt3dadd(-660, -138, 75, 1.87)
pt3dadd(-757, -126, 14.4, 1.87)
}
dend[110] {pt3dclear()
pt3dadd(-757, -126, 14.4, 1.87)
pt3dadd(-879, -215, 0, 1.6)
pt3dadd(-911, -352, 75, 1.07)
}
dend[111] {pt3dclear()
pt3dadd(-757, -126, 14.4, 1.87)
pt3dadd(-826, -120, 4.25, 0.53)
pt3dadd(-887, -130, -26.41, 0.8)
}
dend[112] {pt3dclear()
pt3dadd(-243, -26, 32.07, 3.21)
pt3dadd(-297, 8, 75.17, 2.4)
pt3dadd(-360, 5, 115.7, 2.4)
}
dend[113] {pt3dclear()
pt3dadd(-360, 5, 115.7, 2.4)
pt3dadd(-485, 100, 150, 0.8)
pt3dadd(-636, 222, 75, 0.8)
}
dend[114] {pt3dclear()
pt3dadd(-360, 5, 115.7, 2.4)
pt3dadd(-433, 16, 225, 2.14)
pt3dadd(-527, 30, 300, 2.14)
}
dend[115] {pt3dclear()
pt3dadd(-527, 30, 300, 2.14)
pt3dadd(-611, -15, 300, 0.53)
}
dend[116] {pt3dclear()
pt3dadd(-527, 30, 300, 2.14)
pt3dadd(-607, 51, 356.2, 1.87)
pt3dadd(-663, 84, 375, 2.4)
}
dend[117] {pt3dclear()
pt3dadd(-663, 84, 375, 2.4)
pt3dadd(-801, 136, 525, 1.33)
pt3dadd(-815, 149, 750, 1.33)
}
dend[118] {pt3dclear()
pt3dadd(-663, 84, 375, 2.4)
pt3dadd(-750, 34, 525, 1.6)
pt3dadd(-829, 40, 675, 1.6)
pt3dadd(-891, 92, 825, 1.07)
pt3dadd(-955, 84, 975, 0.8)
}
dend[119] {pt3dclear()
pt3dadd(-69, -17, 75, 7.75)
pt3dadd(-108, 0, 136.8, 5.61)
}
dend[120] {pt3dclear()
pt3dadd(-108, 0, 136.8, 5.61)
pt3dadd(-146, 27, 148.19, 2.94)
}
dend[121] {pt3dclear()
pt3dadd(-146, 27, 148.19, 2.94)
pt3dadd(-336, 59, 150, 1.6)
pt3dadd(-506, 88, 225, 1.6)
pt3dadd(-643, -4, 361.2, 1.6)
pt3dadd(-767, -35, 450, 1.33)
pt3dadd(-947, -7, 450, 1.33)
pt3dadd(-1012, -184, 600, 1.07)
}
dend[122] {pt3dclear()
pt3dadd(-146, 27, 148.19, 2.94)
pt3dadd(-191, 105, 150, 2.4)
pt3dadd(-173, 205, 211.9, 2.14)
}
dend[123] {pt3dclear()
pt3dadd(-173, 205, 211.9, 2.14)
pt3dadd(-131, 307, 300, 1.6)
pt3dadd(-102, 470, 375, 1.33)
pt3dadd(48, 575, 450, 0.8)
}
dend[124] {pt3dclear()
pt3dadd(-173, 205, 211.9, 2.14)
pt3dadd(-222, 187, 300, 1.87)
pt3dadd(-247, 218, 375, 1.6)
}
}
proc shape3d_3() {
dend[124] { }
dend[125] {pt3dclear()
pt3dadd(-247, 218, 375, 1.6)
pt3dadd(-246, 229, 375, 0.8)
}
dend[126] {pt3dclear()
pt3dadd(-246, 229, 375, 0.8)
pt3dadd(-228, 236, 375, 0.53)
}
dend[127] {pt3dclear()
pt3dadd(-246, 229, 375, 0.8)
pt3dadd(-260, 238, 375, 0.53)
}
dend[128] {pt3dclear()
pt3dadd(-247, 218, 375, 1.6)
pt3dadd(-348, 275, 450, 1.6)
pt3dadd(-499, 339, 525, 1.87)
pt3dadd(-454, 444, 525, 1.6)
pt3dadd(-294, 509, 525, 1.33)
pt3dadd(-83, 546, 525, 1.07)
pt3dadd(37, 546, 600, 0.53)
}
dend[129] {pt3dclear()
pt3dadd(-108, 0, 136.8, 5.61)
pt3dadd(-134, -25, 150, 4.01)
pt3dadd(-149, -53, 220.1, 4.54)
}
dend[130] {pt3dclear()
pt3dadd(-149, -53, 220.1, 4.54)
pt3dadd(-135, -84, 203.2, 1.87)
}
dend[131] {pt3dclear()
pt3dadd(-135, -84, 203.2, 1.87)
pt3dadd(-228, -182, 300, 1.07)
pt3dadd(-355, -284, 438.8, 1.07)
pt3dadd(-414, -364, 450, 0.53)
}
dend[132] {pt3dclear()
pt3dadd(-135, -84, 203.2, 1.87)
pt3dadd(-75, -222, 355.4, 2.14)
pt3dadd(9, -289, 450, 1.87)
pt3dadd(52, -339, 525, 1.87)
}
dend[133] {pt3dclear()
pt3dadd(52, -339, 525, 1.87)
pt3dadd(81, -427, 657.9, 1.6)
pt3dadd(121, -470, 750, 0.8)
}
dend[134] {pt3dclear()
pt3dadd(52, -339, 525, 1.87)
pt3dadd(187, -424, 667.6, 1.07)
pt3dadd(289, -580, 750, 1.33)
pt3dadd(234, -581, 675, 1.6)
pt3dadd(173, -409, 750, 1.07)
pt3dadd(136, -467, 825, 1.07)
}
dend[135] {pt3dclear()
pt3dadd(-149, -53, 220.1, 4.54)
pt3dadd(-183, -84, 195.9, 4.01)
}
dend[136] {pt3dclear()
pt3dadd(-183, -84, 195.9, 4.01)
pt3dadd(-341, -133, 300, 1.87)
pt3dadd(-466, -233, 375, 1.87)
pt3dadd(-585, -272, 525, 1.6)
}
dend[137] {pt3dclear()
pt3dadd(-585, -272, 525, 1.6)
pt3dadd(-683, -336, 487.2, 1.07)
pt3dadd(-738, -444, 508.2, 0.53)
}
dend[138] {pt3dclear()
pt3dadd(-585, -272, 525, 1.6)
pt3dadd(-653, -294, 600, 1.6)
pt3dadd(-680, -308, 750, 1.33)
pt3dadd(-837, -276, 825, 1.33)
pt3dadd(-996, -208, 698.9, 1.33)
pt3dadd(-1109, -158, 675, 0.53)
}
dend[139] {pt3dclear()
pt3dadd(-183, -84, 195.9, 4.01)
pt3dadd(-204, -111, 240.3, 2.4)
pt3dadd(-230, -132, 285.2, 2.67)
}
dend[140] {pt3dclear()
pt3dadd(-230, -132, 285.2, 2.67)
pt3dadd(-284, -142, 300, 1.87)
}
dend[141] {pt3dclear()
pt3dadd(-284, -142, 300, 1.87)
pt3dadd(-425, -170, 450, 1.6)
pt3dadd(-535, -195, 525, 1.6)
pt3dadd(-528, -271, 675, 1.33)
pt3dadd(-394, -283, 825, 0.8)
pt3dadd(-221, -314, 900, 0.53)
}
dend[142] {pt3dclear()
pt3dadd(-284, -142, 300, 1.87)
pt3dadd(-478, -196, 372.4, 1.33)
pt3dadd(-617, -322, 375, 1.33)
pt3dadd(-706, -353, 450, 0.8)
}
dend[143] {pt3dclear()
pt3dadd(-230, -132, 285.2, 2.67)
pt3dadd(-231, -98, 375, 1.87)
pt3dadd(-263, -21, 450, 1.87)
}
dend[144] {pt3dclear()
pt3dadd(-263, -21, 450, 1.87)
pt3dadd(-123, 29, 600, 1.6)
pt3dadd(-25, 52, 750, 1.33)
pt3dadd(101, 28, 825, 1.07)
pt3dadd(-1, -89, 825, 1.33)
pt3dadd(-215, -102, 825, 1.07)
pt3dadd(-312, -117, 775.3, 0.8)
}
dend[145] {pt3dclear()
pt3dadd(-263, -21, 450, 1.87)
pt3dadd(-348, 93, 600, 1.33)
pt3dadd(-380, 214, 675, 0.8)
}
dend[146] {pt3dclear()
pt3dadd(0, 0, 0, 7.22)
pt3dadd(81, 28, -31.48, 7.22)
}
dend[147] {pt3dclear()
pt3dadd(81, 28, -31.48, 7.22)
pt3dadd(235, 64, 52.36, 3.74)
pt3dadd(343, 113, 185.1, 3.47)
}
dend[148] {pt3dclear()
pt3dadd(343, 113, 185.1, 3.47)
pt3dadd(359, 142, 225, 2.67)
pt3dadd(351, 171, 269.8, 2.94)
}
dend[149] {pt3dclear()
pt3dadd(351, 171, 269.8, 2.94)
pt3dadd(390, 215, 375, 1.87)
pt3dadd(451, 247, 450, 1.87)
}
dend[150] {pt3dclear()
pt3dadd(451, 247, 450, 1.87)
pt3dadd(477, 230, 525, 1.07)
pt3dadd(519, 223, 662.6, 0.8)
}
dend[151] {pt3dclear()
pt3dadd(451, 247, 450, 1.87)
pt3dadd(499, 291, 525, 2.14)
}
dend[152] {pt3dclear()
pt3dadd(499, 291, 525, 2.14)
pt3dadd(559, 304, 451.2, 0.8)
pt3dadd(620, 351, 525, 0.8)
}
dend[153] {pt3dclear()
pt3dadd(499, 291, 525, 2.14)
pt3dadd(520, 403, 675, 2.14)
pt3dadd(527, 522, 750, 1.87)
pt3dadd(426, 651, 887.7, 1.6)
pt3dadd(223, 639, 821, 1.33)
pt3dadd(31, 632, 726.8, 1.07)
pt3dadd(-98, 508, 609.4, 0.8)
pt3dadd(-104, 402, 600, 0.53)
}
dend[154] {pt3dclear()
pt3dadd(351, 171, 269.8, 2.94)
pt3dadd(397, 203, 300, 2.4)
}
dend[155] {pt3dclear()
pt3dadd(397, 203, 300, 2.4)
pt3dadd(469, 255, 300, 0.8)
pt3dadd(533, 362, 232, 0.8)
}
dend[156] {pt3dclear()
pt3dadd(397, 203, 300, 2.4)
pt3dadd(408, 231, 300, 2.4)
}
dend[157] {pt3dclear()
pt3dadd(408, 231, 300, 2.4)
pt3dadd(445, 255, 250.9, 1.6)
pt3dadd(490, 267, 300, 1.33)
}
dend[158] {pt3dclear()
pt3dadd(490, 267, 300, 1.33)
pt3dadd(519, 319, 371.4, 0.8)
}
dend[159] {pt3dclear()
pt3dadd(490, 267, 300, 1.33)
pt3dadd(596, 309, 481.1, 1.6)
pt3dadd(673, 406, 600, 1.33)
pt3dadd(705, 484, 750, 0.8)
}
dend[160] {pt3dclear()
pt3dadd(408, 231, 300, 2.4)
pt3dadd(452, 366, 375, 1.87)
pt3dadd(435, 541, 375, 1.87)
pt3dadd(449, 716, 497.4, 1.6)
pt3dadd(359, 829, 655.29, 1.07)
pt3dadd(225, 821, 675, 0.8)
}
dend[161] {pt3dclear()
pt3dadd(343, 113, 185.1, 3.47)
pt3dadd(392, 109, 225, 1.6)
}
dend[162] {pt3dclear()
pt3dadd(392, 109, 225, 1.6)
pt3dadd(551, 27, 300, 1.07)
pt3dadd(695, -49, 375, 1.07)
pt3dadd(653, -98, 525, 0.8)
}
dend[163] {pt3dclear()
pt3dadd(392, 109, 225, 1.6)
pt3dadd(517, 186, 300, 1.07)
pt3dadd(682, 235, 409.5, 0.8)
}
dend[164] {pt3dclear()
pt3dadd(81, 28, -31.48, 7.22)
pt3dadd(147, 9, 0, 6.15)
}
dend[165] {pt3dclear()
pt3dadd(147, 9, 0, 6.15)
pt3dadd(204, 52, -111, 4.54)
}
dend[166] {pt3dclear()
pt3dadd(204, 52, -111, 4.54)
pt3dadd(198, -92, -269.2, 1.87)
pt3dadd(212, -181, -300, 1.87)
pt3dadd(237, -246, -502.4, 1.87)
pt3dadd(337, -334, -669.8, 1.07)
pt3dadd(284, -512, -600, 1.07)
pt3dadd(336, -724, -525, 0.53)
}
dend[167] {pt3dclear()
pt3dadd(204, 52, -111, 4.54)
pt3dadd(307, 51, -217.3, 3.21)
pt3dadd(411, 39, -225, 2.94)
}
dend[168] {pt3dclear()
pt3dadd(411, 39, -225, 2.94)
pt3dadd(453, 36, -300, 2.4)
}
dend[169] {pt3dclear()
pt3dadd(453, 36, -300, 2.4)
pt3dadd(468, 4, -333.9, 1.6)
}
dend[170] {pt3dclear()
pt3dadd(468, 4, -333.9, 1.6)
pt3dadd(499, -26, -369.6, 0.8)
pt3dadd(526, -69, -346, 0.8)
}
dend[171] {pt3dclear()
pt3dadd(468, 4, -333.9, 1.6)
pt3dadd(568, -62, -375, 1.6)
pt3dadd(580, -226, -525, 1.33)
pt3dadd(582, -396, -655, 0.8)
pt3dadd(609, -331, -525, 0.53)
}
dend[172] {pt3dclear()
pt3dadd(453, 36, -300, 2.4)
pt3dadd(487, 36, -366.9, 1.87)
pt3dadd(522, 46, -431.3, 2.14)
}
dend[173] {pt3dclear()
pt3dadd(522, 46, -431.3, 2.14)
pt3dadd(568, 52, -450, 1.07)
}
dend[174] {pt3dclear()
pt3dadd(522, 46, -431.3, 2.14)
pt3dadd(528, 40, -450, 1.87)
}
dend[175] {pt3dclear()
pt3dadd(528, 40, -450, 1.87)
pt3dadd(634, 96, -450, 1.33)
pt3dadd(688, 205, -626.1, 1.07)
pt3dadd(747, 312, -825, 0.8)
}
dend[176] {pt3dclear()
pt3dadd(528, 40, -450, 1.87)
pt3dadd(556, 56, -525, 1.33)
pt3dadd(540, 106, -600, 1.07)
pt3dadd(611, 286, -822.7, 0.8)
}
dend[177] {pt3dclear()
pt3dadd(411, 39, -225, 2.94)
pt3dadd(423, 32, -225, 2.4)
}
dend[178] {pt3dclear()
pt3dadd(423, 32, -225, 2.4)
pt3dadd(530, 53, -239.5, 1.6)
pt3dadd(631, 38, -201.3, 1.6)
}
dend[179] {pt3dclear()
pt3dadd(631, 38, -201.3, 1.6)
pt3dadd(728, 85, -150, 1.07)
pt3dadd(812, 195, -75, 0.8)
}
dend[180] {pt3dclear()
pt3dadd(631, 38, -201.3, 1.6)
pt3dadd(713, 53, -176.4, 1.6)
}
dend[181] {pt3dclear()
pt3dadd(713, 53, -176.4, 1.6)
pt3dadd(768, 85, -212.2, 0.8)
}
dend[182] {pt3dclear()
pt3dadd(713, 53, -176.4, 1.6)
pt3dadd(836, -25, -75, 1.33)
pt3dadd(994, -37, 0, 1.07)
pt3dadd(1180, -86, -75, 0.8)
}
dend[183] {pt3dclear()
pt3dadd(423, 32, -225, 2.4)
pt3dadd(456, 13, -245, 1.87)
}
dend[184] {pt3dclear()
pt3dadd(456, 13, -245, 1.87)
pt3dadd(592, -3, -300, 1.07)
pt3dadd(741, 2, -431.8, 1.07)
}
dend[185] {pt3dclear()
pt3dadd(456, 13, -245, 1.87)
pt3dadd(614, -43, -300, 1.6)
}
}
proc shape3d_4() {
dend[185] { pt3dadd(762, -162, -398.6, 1.6)
pt3dadd(1033, -220, -450, 0.8)
}
dend[186] {pt3dclear()
pt3dadd(147, 9, 0, 6.15)
pt3dadd(288, 24, -34.79, 3.21)
pt3dadd(430, 33, -6.85, 3.21)
}
dend[187] {pt3dclear()
pt3dadd(430, 33, -6.85, 3.21)
pt3dadd(607, -49, -94.85, 1.33)
pt3dadd(732, -157, 0, 1.07)
pt3dadd(844, -261, 0, 0.8)
}
dend[188] {pt3dclear()
pt3dadd(430, 33, -6.85, 3.21)
pt3dadd(527, 32, -26.63, 2.94)
}
dend[189] {pt3dclear()
pt3dadd(527, 32, -26.63, 2.94)
pt3dadd(574, 45, -58.03, 2.4)
pt3dadd(616, 44, 0, 2.4)
}
dend[190] {pt3dclear()
pt3dadd(616, 44, 0, 2.4)
pt3dadd(718, 64, 25.4, 1.6)
}
dend[191] {pt3dclear()
pt3dadd(718, 64, 25.4, 1.6)
pt3dadd(903, 119, -67.05, 1.33)
pt3dadd(1095, 157, 0, 1.07)
pt3dadd(1171, 208, -95.12, 0.8)
}
dend[192] {pt3dclear()
pt3dadd(718, 64, 25.4, 1.6)
pt3dadd(828, 218, 150, 1.33)
pt3dadd(938, 382, 150, 1.07)
}
dend[193] {pt3dclear()
pt3dadd(616, 44, 0, 2.4)
pt3dadd(631, 50, 7.93, 2.14)
}
dend[194] {pt3dclear()
pt3dadd(631, 50, 7.93, 2.14)
pt3dadd(776, 148, 150, 1.07)
pt3dadd(988, 292, 150, 0.8)
}
dend[195] {pt3dclear()
pt3dadd(631, 50, 7.93, 2.14)
pt3dadd(810, 46, 119.6, 1.87)
pt3dadd(969, 61, 225, 1.87)
}
dend[196] {pt3dclear()
pt3dadd(969, 61, 225, 1.87)
pt3dadd(1026, 84, 300, 1.6)
pt3dadd(1093, 64, 375, 1.33)
}
dend[197] {pt3dclear()
pt3dadd(1093, 64, 375, 1.33)
pt3dadd(1153, 56, 375, 0.8)
pt3dadd(1201, 15, 450, 0.53)
}
dend[198] {pt3dclear()
pt3dadd(1093, 64, 375, 1.33)
pt3dadd(1185, 129, 450, 1.07)
pt3dadd(1266, 178, 525, 0.53)
}
dend[199] {pt3dclear()
pt3dadd(969, 61, 225, 1.87)
pt3dadd(1103, 35, 225, 1.07)
pt3dadd(1250, 49, 298.6, 0.8)
}
dend[200] {pt3dclear()
pt3dadd(527, 32, -26.63, 2.94)
pt3dadd(584, 8, 0, 2.14)
}
dend[201] {pt3dclear()
pt3dadd(584, 8, 0, 2.14)
pt3dadd(745, -98, 0, 1.6)
pt3dadd(900, -159, 75, 1.07)
pt3dadd(1104, -206, 30.6, 0.8)
pt3dadd(1166, -285, 105, 0.53)
}
dend[202] {pt3dclear()
pt3dadd(584, 8, 0, 2.14)
pt3dadd(682, 13, -69.06, 1.87)
pt3dadd(783, 10, -131.9, 2.14)
}
dend[203] {pt3dclear()
pt3dadd(783, 10, -131.9, 2.14)
pt3dadd(810, -35, -107.2, 0.26)
pt3dadd(829, -81, -75, 0.26)
}
dend[204] {pt3dclear()
pt3dadd(783, 10, -131.9, 2.14)
pt3dadd(914, 4, -150, 1.87)
pt3dadd(1052, 28, -225, 1.6)
pt3dadd(1124, 63, -423.5, 1.33)
pt3dadd(1155, 9, -525, 0.8)
pt3dadd(1230, -125, -600, 0.53)
}
dend[205] {pt3dclear()
pt3dadd(0, 0, 0, 7.75)
pt3dadd(-72, 77, 0, 7.75)
}
dend[206] {pt3dclear()
pt3dadd(-72, 77, 0, 7.75)
pt3dadd(-150, 81, -75, 4.28)
pt3dadd(-232, 81, -124.9, 3.74)
}
dend[207] {pt3dclear()
pt3dadd(-232, 81, -124.9, 3.74)
pt3dadd(-292, 76, -176.1, 2.67)
pt3dadd(-345, 81, -150, 3.21)
}
dend[208] {pt3dclear()
pt3dadd(-345, 81, -150, 3.21)
pt3dadd(-485, 54, -229, 2.67)
pt3dadd(-631, 24, -292.5, 2.4)
}
dend[209] {pt3dclear()
pt3dadd(-631, 24, -292.5, 2.4)
pt3dadd(-772, -64, -157.69, 1.6)
pt3dadd(-834, -163, -75, 1.6)
pt3dadd(-879, -228, -150, 1.6)
pt3dadd(-1013, -195, -313.6, 1.33)
pt3dadd(-1085, -260, -375, 1.07)
pt3dadd(-1104, -340, -525, 0.8)
}
dend[210] {pt3dclear()
pt3dadd(-631, 24, -292.5, 2.4)
pt3dadd(-679, 11, -240.4, 2.14)
}
dend[211] {pt3dclear()
pt3dadd(-679, 11, -240.4, 2.14)
pt3dadd(-723, -73, -272.1, 0.8)
}
dend[212] {pt3dclear()
pt3dadd(-679, 11, -240.4, 2.14)
pt3dadd(-694, 13, -225, 2.94)
}
dend[213] {pt3dclear()
pt3dadd(-694, 13, -225, 2.94)
pt3dadd(-777, 0, -292.89, 1.07)
}
dend[214] {pt3dclear()
pt3dadd(-694, 13, -225, 2.94)
pt3dadd(-829, 18, -391, 2.14)
pt3dadd(-975, 81, -450, 1.6)
pt3dadd(-1093, 104, -627, 1.33)
pt3dadd(-1204, 157, -802.2, 0.8)
pt3dadd(-1252, 295, -825, 0.53)
}
dend[215] {pt3dclear()
pt3dadd(-345, 81, -150, 3.21)
pt3dadd(-409, 104, -225, 2.4)
pt3dadd(-454, 124, -285.5, 2.14)
}
dend[216] {pt3dclear()
pt3dadd(-454, 124, -285.5, 2.14)
pt3dadd(-468, 244, -300, 1.6)
pt3dadd(-512, 357, -476.3, 1.6)
pt3dadd(-567, 504, -525, 1.07)
pt3dadd(-615, 583, -600, 0.8)
pt3dadd(-578, 433, -680, 0.53)
}
dend[217] {pt3dclear()
pt3dadd(-454, 124, -285.5, 2.14)
pt3dadd(-492, 145, -225, 1.6)
pt3dadd(-546, 148, -300, 1.33)
}
dend[218] {pt3dclear()
pt3dadd(-546, 148, -300, 1.33)
pt3dadd(-563, 178, -382, 0.8)
}
dend[219] {pt3dclear()
pt3dadd(-546, 148, -300, 1.33)
pt3dadd(-731, 136, -422.1, 0.8)
pt3dadd(-787, 225, -300, 0.53)
}
dend[220] {pt3dclear()
pt3dadd(-232, 81, -124.9, 3.74)
pt3dadd(-374, 54, -150, 1.87)
pt3dadd(-509, 50, -117.1, 1.87)
}
dend[221] {pt3dclear()
pt3dadd(-509, 50, -117.1, 1.87)
pt3dadd(-731, 73, -163.69, 1.6)
pt3dadd(-925, 101, -150, 1.6)
}
dend[222] {pt3dclear()
pt3dadd(-925, 101, -150, 1.6)
pt3dadd(-962, 100, -150, 0.8)
}
dend[223] {pt3dclear()
pt3dadd(-925, 101, -150, 1.6)
pt3dadd(-1027, 202, -225, 1.33)
pt3dadd(-1144, 336, -375, 1.07)
}
dend[224] {pt3dclear()
pt3dadd(-509, 50, -117.1, 1.87)
pt3dadd(-668, -68, -75, 1.33)
pt3dadd(-750, -208, -225, 1.6)
pt3dadd(-837, -312, -300, 0.8)
}
dend[225] {pt3dclear()
pt3dadd(-72, 77, 0, 7.75)
pt3dadd(-94, 117, -28.84, 6.15)
}
dend[226] {pt3dclear()
pt3dadd(-94, 117, -28.84, 6.15)
pt3dadd(-144, 173, -59.26, 2.94)
}
dend[227] {pt3dclear()
pt3dadd(-144, 173, -59.26, 2.94)
pt3dadd(-134, 264, -150, 1.87)
pt3dadd(-119, 398, -225, 1.6)
pt3dadd(-44, 491, -402.5, 1.87)
pt3dadd(-82, 599, -450, 1.07)
pt3dadd(-100, 695, -640.4, 1.07)
pt3dadd(-137, 828, -525, 0.8)
pt3dadd(-143, 803, -704.2, 0.53)
}
dend[228] {pt3dclear()
pt3dadd(-144, 173, -59.26, 2.94)
pt3dadd(-155, 235, 0, 2.4)
pt3dadd(-176, 327, -75, 2.94)
}
dend[229] {pt3dclear()
pt3dadd(-176, 327, -75, 2.94)
pt3dadd(-198, 453, -75, 1.33)
pt3dadd(-224, 600, -75, 1.07)
}
dend[230] {pt3dclear()
pt3dadd(-224, 600, -75, 1.07)
pt3dadd(-191, 595, 75, 0.53)
pt3dadd(-167, 641, 282.6, 0.53)
pt3dadd(-131, 702, 450, 0.53)
pt3dadd(13, 769, 525, 0.26)
}
dend[231] {pt3dclear()
pt3dadd(-224, 600, -75, 1.07)
pt3dadd(-222, 617, -75, 1.07)
}
dend[232] {pt3dclear()
pt3dadd(-222, 617, -75, 1.07)
pt3dadd(-267, 603, -319.5, 0.53)
pt3dadd(-270, 544, -561.4, 0.53)
}
dend[233] {pt3dclear()
pt3dadd(-222, 617, -75, 1.07)
pt3dadd(-206, 692, -160.69, 0.53)
pt3dadd(-254, 760, -150, 0.53)
}
dend[234] {pt3dclear()
pt3dadd(-176, 327, -75, 2.94)
pt3dadd(-300, 461, -186.6, 1.6)
pt3dadd(-394, 622, -291.7, 1.6)
pt3dadd(-468, 803, -225, 1.33)
pt3dadd(-583, 938, -344.8, 1.07)
pt3dadd(-561, 991, -450, 0.8)
pt3dadd(-441, 1002, -450, 0.8)
}
dend[235] {pt3dclear()
pt3dadd(-94, 117, -28.84, 6.15)
pt3dadd(-103, 153, 35.18, 4.01)
}
dend[236] {pt3dclear()
pt3dadd(-103, 153, 35.18, 4.01)
pt3dadd(-134, 335, 75, 2.67)
pt3dadd(-203, 530, 45.08, 2.4)
}
dend[237] {pt3dclear()
pt3dadd(-203, 530, 45.08, 2.4)
pt3dadd(-236, 704, 75, 1.87)
pt3dadd(-317, 921, 0, 1.87)
pt3dadd(-391, 1066, 75, 1.6)
pt3dadd(-500, 1116, 225, 1.6)
pt3dadd(-654, 1137, 225, 1.07)
pt3dadd(-488, 1238, 375, 0.53)
}
dend[238] {pt3dclear()
pt3dadd(-203, 530, 45.08, 2.4)
pt3dadd(-232, 621, 225, 1.33)
pt3dadd(-271, 718, 375, 1.07)
pt3dadd(-374, 767, 441.4, 0.53)
}
dend[239] {pt3dclear()
pt3dadd(-103, 153, 35.18, 4.01)
pt3dadd(-110, 146, 52.56, 4.28)
}
dend[240] {pt3dclear()
pt3dadd(-110, 146, 52.56, 4.28)
pt3dadd(-211, 154, 150, 1.6)
pt3dadd(-282, 245, 300, 1.07)
pt3dadd(-453, 359, 375, 0.8)
}
dend[241] {pt3dclear()
pt3dadd(-110, 146, 52.56, 4.28)
pt3dadd(-134, 189, 4.22, 3.74)
}
dend[242] {pt3dclear()
pt3dadd(-134, 189, 4.22, 3.74)
pt3dadd(-139, 227, 75, 2.94)
pt3dadd(-161, 262, 125.2, 2.67)
}
dend[243] {pt3dclear()
pt3dadd(-161, 262, 125.2, 2.67)
pt3dadd(-171, 261, 225, 1.87)
pt3dadd(-224, 296, 359.8, 2.4)
}
dend[244] {pt3dclear()
pt3dadd(-224, 296, 359.8, 2.4)
pt3dadd(-159, 277, 525, 1.33)
pt3dadd(-120, 223, 600, 1.07)
}
dend[245] {pt3dclear()
pt3dadd(-224, 296, 359.8, 2.4)
pt3dadd(-294, 328, 450, 2.14)
pt3dadd(-346, 348, 525, 2.14)
}
}
proc shape3d_5() {
dend[245] { }
dend[246] {pt3dclear()
pt3dadd(-346, 348, 525, 2.14)
pt3dadd(-274, 418, 675, 1.07)
pt3dadd(-257, 559, 750, 0.53)
}
dend[247] {pt3dclear()
pt3dadd(-346, 348, 525, 2.14)
pt3dadd(-379, 411, 675, 2.14)
pt3dadd(-431, 514, 825, 1.87)
pt3dadd(-565, 556, 825, 1.33)
pt3dadd(-675, 528, 643.6, 1.07)
pt3dadd(-703, 397, 600, 0.8)
pt3dadd(-580, 375, 525, 0.8)
}
dend[248] {pt3dclear()
pt3dadd(-161, 262, 125.2, 2.67)
pt3dadd(-195, 340, 300, 2.4)
pt3dadd(-285, 444, 375, 1.87)
pt3dadd(-329, 536, 525, 2.4)
pt3dadd(-362, 623, 675, 1.87)
pt3dadd(-360, 773, 825, 1.87)
pt3dadd(-187, 759, 699.8, 1.07)
pt3dadd(-97, 778, 637.7, 1.07)
}
dend[249] {pt3dclear()
pt3dadd(-134, 189, 4.22, 3.74)
pt3dadd(-225, 190, 34.79, 2.94)
}
dend[250] {pt3dclear()
pt3dadd(-225, 190, 34.79, 2.94)
pt3dadd(-366, 267, 150, 1.6)
pt3dadd(-520, 296, 295.7, 1.6)
pt3dadd(-646, 344, 375, 1.6)
pt3dadd(-748, 483, 450, 1.6)
pt3dadd(-714, 596, 600, 1.33)
pt3dadd(-570, 602, 600, 0.8)
}
dend[251] {pt3dclear()
pt3dadd(-225, 190, 34.79, 2.94)
pt3dadd(-298, 168, 70.04, 2.4)
pt3dadd(-373, 179, 106.2, 2.14)
}
dend[252] {pt3dclear()
pt3dadd(-373, 179, 106.2, 2.14)
pt3dadd(-426, 206, 225, 1.87)
pt3dadd(-457, 190, 300, 1.6)
}
dend[253] {pt3dclear()
pt3dadd(-457, 190, 300, 1.6)
pt3dadd(-431, 142, 375, 0.8)
pt3dadd(-416, 94, 450, 0.8)
}
dend[254] {pt3dclear()
pt3dadd(-457, 190, 300, 1.6)
pt3dadd(-542, 134, 450, 1.33)
pt3dadd(-653, 60, 525, 1.07)
pt3dadd(-732, 8, 675, 0.8)
}
dend[255] {pt3dclear()
pt3dadd(-732, 8, 675, 0.8)
pt3dadd(-715, -4, 675, 0.26)
}
dend[256] {pt3dclear()
pt3dadd(-732, 8, 675, 0.8)
pt3dadd(-787, -36, 602.6, 0.8)
}
dend[257] {pt3dclear()
pt3dadd(-373, 179, 106.2, 2.14)
pt3dadd(-581, 173, 150, 1.6)
pt3dadd(-835, 192, 75, 1.33)
}
dend[258] {pt3dclear()
pt3dadd(-835, 192, 75, 1.33)
pt3dadd(-897, 236, 4.03, 1.07)
pt3dadd(-907, 308, -68.94, 0.8)
}
dend[259] {pt3dclear()
pt3dadd(-835, 192, 75, 1.33)
pt3dadd(-1005, 238, 75, 1.6)
pt3dadd(-1065, 288, 150, 1.07)
pt3dadd(-975, 193, 75, 0.8)
}
dend[260] {pt3dclear()
pt3dadd(0, 0, 0, 11.23)
pt3dadd(-39, -31, -6.93, 11.23)
}
dend[261] {pt3dclear()
pt3dadd(-39, -31, -6.93, 11.23)
pt3dadd(-8, -74, -75, 3.21)
pt3dadd(26, -104, -132.19, 3.47)
}
dend[262] {pt3dclear()
pt3dadd(26, -104, -132.19, 3.47)
pt3dadd(56, -85, -150, 2.14)
pt3dadd(93, -49, -263.8, 2.14)
}
dend[263] {pt3dclear()
pt3dadd(93, -49, -263.8, 2.14)
pt3dadd(281, -130, -225, 1.07)
pt3dadd(358, -222, -300, 0.8)
}
dend[264] {pt3dclear()
pt3dadd(93, -49, -263.8, 2.14)
pt3dadd(15, -77, -356.1, 1.6)
pt3dadd(-61, -85, -375, 1.87)
}
dend[265] {pt3dclear()
pt3dadd(-61, -85, -375, 1.87)
pt3dadd(-209, -105, -450, 1.33)
pt3dadd(-255, -166, -649.9, 0.8)
pt3dadd(-172, -174, -750, 1.07)
pt3dadd(-179, -323, -900, 0.53)
}
dend[266] {pt3dclear()
pt3dadd(-61, -85, -375, 1.87)
pt3dadd(-68, -118, -525, 1.07)
pt3dadd(-31, -139, -666.8, 0.8)
}
dend[267] {pt3dclear()
pt3dadd(26, -104, -132.19, 3.47)
pt3dadd(34, -194, -150, 2.67)
pt3dadd(63, -295, -234.8, 2.4)
}
dend[268] {pt3dclear()
pt3dadd(63, -295, -234.8, 2.4)
pt3dadd(165, -344, -225, 0.8)
pt3dadd(267, -396, -300, 0.8)
}
dend[269] {pt3dclear()
pt3dadd(63, -295, -234.8, 2.4)
pt3dadd(48, -331, -303.5, 2.4)
}
dend[270] {pt3dclear()
pt3dadd(48, -331, -303.5, 2.4)
pt3dadd(102, -368, -375, 0.8)
}
dend[271] {pt3dclear()
pt3dadd(102, -368, -375, 0.8)
pt3dadd(144, -360, -417.1, 0.53)
}
dend[272] {pt3dclear()
pt3dadd(102, -368, -375, 0.8)
pt3dadd(113, -355, -407.8, 0.8)
}
dend[273] {pt3dclear()
pt3dadd(48, -331, -303.5, 2.4)
pt3dadd(41, -473, -375, 1.87)
pt3dadd(73, -618, -520.7, 2.14)
}
dend[274] {pt3dclear()
pt3dadd(73, -618, -520.7, 2.14)
pt3dadd(91, -715, -461.6, 0.8)
pt3dadd(99, -808, -527, 0.53)
}
dend[275] {pt3dclear()
pt3dadd(73, -618, -520.7, 2.14)
pt3dadd(63, -698, -595.5, 1.6)
pt3dadd(70, -789, -534.1, 1.6)
}
dend[276] {pt3dclear()
pt3dadd(70, -789, -534.1, 1.6)
pt3dadd(70, -893, -580.79, 0.8)
pt3dadd(45, -988, -638.6, 0.53)
}
dend[277] {pt3dclear()
pt3dadd(70, -789, -534.1, 1.6)
pt3dadd(107, -708, -747.2, 1.07)
pt3dadd(84, -600, -750, 0.8)
}
dend[278] {pt3dclear()
pt3dadd(-39, -31, -6.93, 11.23)
pt3dadd(-53, -39, -28.59, 11.5)
}
dend[279] {pt3dclear()
pt3dadd(-53, -39, -28.59, 11.5)
pt3dadd(-73, -79, 0, 5.88)
}
dend[280] {pt3dclear()
pt3dadd(-73, -79, 0, 5.88)
pt3dadd(-52, -142, -22.14, 3.21)
pt3dadd(-66, -205, -46.55, 2.94)
}
dend[281] {pt3dclear()
pt3dadd(-66, -205, -46.55, 2.94)
pt3dadd(-143, -343, -75, 1.6)
pt3dadd(-208, -496, -225, 1.6)
pt3dadd(-201, -685, -225, 1.33)
pt3dadd(-182, -870, -225, 1.33)
pt3dadd(-89, -1015, -150, 1.07)
pt3dadd(91, -986, -150, 1.07)
pt3dadd(204, -975, -225, 0.8)
}
dend[282] {pt3dclear()
pt3dadd(-66, -205, -46.55, 2.94)
pt3dadd(-8, -396, -123.7, 2.4)
pt3dadd(80, -571, -75, 1.87)
pt3dadd(192, -752, -97.16, 1.87)
pt3dadd(243, -952, -75, 1.6)
pt3dadd(212, -1145, -75, 1.33)
pt3dadd(209, -1282, -75, 0.8)
}
dend[283] {pt3dclear()
pt3dadd(-73, -79, 0, 5.88)
pt3dadd(-101, -121, -26.48, 4.54)
pt3dadd(-155, -139, -23.48, 4.28)
}
dend[284] {pt3dclear()
pt3dadd(-155, -139, -23.48, 4.28)
pt3dadd(-162, -171, -62.57, 2.4)
pt3dadd(-158, -200, -104.3, 2.4)
}
dend[285] {pt3dclear()
pt3dadd(-158, -200, -104.3, 2.4)
pt3dadd(-193, -340, 0, 1.07)
pt3dadd(-127, -561, 0, 1.07)
pt3dadd(-93, -758, 0, 1.07)
pt3dadd(-73, -877, 70.98, 0.53)
}
dend[286] {pt3dclear()
pt3dadd(-158, -200, -104.3, 2.4)
pt3dadd(-227, -292, -150, 2.4)
pt3dadd(-291, -404, -301.5, 2.14)
}
dend[287] {pt3dclear()
pt3dadd(-291, -404, -301.5, 2.14)
pt3dadd(-335, -466, -375, 1.33)
pt3dadd(-338, -564, -565.2, 1.33)
pt3dadd(-350, -680, -600, 1.07)
}
dend[288] {pt3dclear()
pt3dadd(-291, -404, -301.5, 2.14)
pt3dadd(-362, -483, -300, 2.14)
pt3dadd(-412, -556, -375, 1.6)
}
dend[289] {pt3dclear()
pt3dadd(-412, -556, -375, 1.6)
pt3dadd(-445, -688, -583.5, 1.6)
pt3dadd(-458, -781, -675, 1.33)
}
dend[290] {pt3dclear()
pt3dadd(-412, -556, -375, 1.6)
pt3dadd(-470, -646, -525, 1.33)
pt3dadd(-506, -709, -600, 0.8)
}
dend[291] {pt3dclear()
pt3dadd(-155, -139, -23.48, 4.28)
pt3dadd(-210, -175, -17.55, 2.94)
pt3dadd(-270, -197, -5.68, 2.94)
}
dend[292] {pt3dclear()
pt3dadd(-270, -197, -5.68, 2.94)
pt3dadd(-284, -346, 38.35, 1.33)
pt3dadd(-285, -485, 75, 1.6)
}
dend[293] {pt3dclear()
pt3dadd(-285, -485, 75, 1.6)
pt3dadd(-297, -540, 35.1, 0.8)
pt3dadd(-307, -600, 0, 0.8)
}
dend[294] {pt3dclear()
pt3dadd(-285, -485, 75, 1.6)
pt3dadd(-364, -656, 75, 1.33)
pt3dadd(-333, -835, 150, 1.33)
pt3dadd(-414, -908, 150, 0.8)
}
dend[295] {pt3dclear()
pt3dadd(-270, -197, -5.68, 2.94)
pt3dadd(-347, -221, -40.89, 2.4)
pt3dadd(-417, -257, -1.54, 2.67)
}
dend[296] {pt3dclear()
pt3dadd(-417, -257, -1.54, 2.67)
pt3dadd(-549, -269, -57.83, 2.4)
pt3dadd(-680, -312, 0, 2.14)
}
dend[297] {pt3dclear()
pt3dadd(-680, -312, 0, 2.14)
pt3dadd(-864, -330, 0, 1.87)
pt3dadd(-1027, -342, -138.1, 1.87)
pt3dadd(-1204, -416, -75, 1.33)
pt3dadd(-1275, -549, -150, 1.33)
pt3dadd(-1258, -566, 0, 1.07)
}
dend[298] {pt3dclear()
pt3dadd(-680, -312, 0, 2.14)
pt3dadd(-755, -361, 44.43, 1.07)
pt3dadd(-827, -398, 75, 0.8)
}
dend[299] {pt3dclear()
pt3dadd(-417, -257, -1.54, 2.67)
pt3dadd(-577, -304, 75, 2.14)
pt3dadd(-771, -323, 150, 1.87)
pt3dadd(-940, -344, 225, 1.87)
pt3dadd(-1053, -442, 375, 1.33)
pt3dadd(-1070, -572, 450, 1.33)
pt3dadd(-1116, -653, 450, 0.8)
}
dend[300] {pt3dclear()
pt3dadd(-53, -39, -28.59, 11.5)
pt3dadd(-116, -52, -90.1, 6.15)
}
dend[301] {pt3dclear()
pt3dadd(-116, -52, -90.1, 6.15)
pt3dadd(-169, -77, -59.73, 3.21)
pt3dadd(-216, -98, -18.43, 2.94)
}
dend[302] {pt3dclear()
pt3dadd(-216, -98, -18.43, 2.94)
pt3dadd(-317, -214, 75, 1.6)
pt3dadd(-404, -335, 150, 1.6)
}
dend[303] {pt3dclear()
pt3dadd(-404, -335, 150, 1.6)
pt3dadd(-486, -503, 225, 1.07)
pt3dadd(-542, -519, 300, 0.8)
}
}
proc shape3d_6() {
dend[303] { }
dend[304] {pt3dclear()
pt3dadd(-404, -335, 150, 1.6)
pt3dadd(-459, -385, 225, 1.33)
pt3dadd(-547, -370, 225, 1.07)
}
dend[305] {pt3dclear()
pt3dadd(-547, -370, 225, 1.07)
pt3dadd(-561, -357, 257.8, 0.8)
}
dend[306] {pt3dclear()
pt3dadd(-547, -370, 225, 1.07)
pt3dadd(-631, -359, 260.89, 0.8)
pt3dadd(-686, -324, 198.8, 0.53)
}
dend[307] {pt3dclear()
pt3dadd(-216, -98, -18.43, 2.94)
pt3dadd(-302, -123, -58.22, 2.14)
}
dend[308] {pt3dclear()
pt3dadd(-302, -123, -58.22, 2.14)
pt3dadd(-473, -216, 30.7, 1.87)
pt3dadd(-653, -322, -15.78, 1.6)
pt3dadd(-851, -386, -65.73, 1.6)
pt3dadd(-940, -511, 75, 1.33)
pt3dadd(-974, -614, 150, 1.33)
pt3dadd(-1096, -636, 225, 1.07)
pt3dadd(-1043, -604, 300, 0.53)
}
dend[309] {pt3dclear()
pt3dadd(-302, -123, -58.22, 2.14)
pt3dadd(-461, -154, 75, 1.6)
pt3dadd(-662, -143, 147.6, 1.6)
pt3dadd(-801, -70, 2.2, 1.33)
pt3dadd(-978, -97, 119.4, 1.33)
pt3dadd(-1164, -147, 219.4, 0.8)
}
dend[310] {pt3dclear()
pt3dadd(-116, -52, -90.1, 6.15)
pt3dadd(-174, -58, -127, 4.01)
}
dend[311] {pt3dclear()
pt3dadd(-174, -58, -127, 4.01)
pt3dadd(-310, -162, -218.2, 2.94)
pt3dadd(-428, -223, -225, 2.4)
}
dend[312] {pt3dclear()
pt3dadd(-428, -223, -225, 2.4)
pt3dadd(-515, -285, -258.6, 2.67)
pt3dadd(-585, -327, -335.3, 2.67)
}
dend[313] {pt3dclear()
pt3dadd(-585, -327, -335.3, 2.67)
pt3dadd(-611, -519, -300, 1.6)
pt3dadd(-688, -558, -495.8, 0.8)
pt3dadd(-684, -494, -588.9, 1.07)
}
dend[314] {pt3dclear()
pt3dadd(-585, -327, -335.3, 2.67)
pt3dadd(-633, -365, -300, 2.4)
}
dend[315] {pt3dclear()
pt3dadd(-633, -365, -300, 2.4)
pt3dadd(-715, -437, -374.3, 1.07)
pt3dadd(-803, -487, -289.5, 0.8)
}
dend[316] {pt3dclear()
pt3dadd(-633, -365, -300, 2.4)
pt3dadd(-736, -442, -375, 2.14)
pt3dadd(-813, -596, -502.1, 1.33)
pt3dadd(-739, -732, -525, 1.33)
pt3dadd(-723, -781, -732.7, 0.8)
pt3dadd(-729, -823, -750, 0.53)
}
dend[317] {pt3dclear()
pt3dadd(-428, -223, -225, 2.4)
pt3dadd(-503, -301, -409.6, 1.33)
pt3dadd(-543, -429, -450, 1.33)
pt3dadd(-505, -547, -450, 0.53)
}
dend[318] {pt3dclear()
pt3dadd(-174, -58, -127, 4.01)
pt3dadd(-288, -40, -150, 2.94)
pt3dadd(-397, -31, -259.8, 3.47)
}
dend[319] {pt3dclear()
pt3dadd(-397, -31, -259.8, 3.47)
pt3dadd(-466, 41, -328.4, 1.87)
pt3dadd(-532, 78, -421.5, 1.6)
}
dend[320] {pt3dclear()
pt3dadd(-532, 78, -421.5, 1.6)
pt3dadd(-535, 108, -450, 0.53)
}
dend[321] {pt3dclear()
pt3dadd(-532, 78, -421.5, 1.6)
pt3dadd(-588, 173, -450, 1.6)
pt3dadd(-664, 327, -577.7, 1.07)
pt3dadd(-701, 438, -525, 0.8)
pt3dadd(-683, 468, -600, 0.53)
}
dend[322] {pt3dclear()
pt3dadd(-397, -31, -259.8, 3.47)
pt3dadd(-448, -39, -247.8, 2.94)
}
dend[323] {pt3dclear()
pt3dadd(-448, -39, -247.8, 2.94)
pt3dadd(-477, -50, -305, 1.87)
pt3dadd(-499, -55, -364.8, 2.14)
}
dend[324] {pt3dclear()
pt3dadd(-499, -55, -364.8, 2.14)
pt3dadd(-541, -41, -432.7, 1.6)
pt3dadd(-583, -43, -500.7, 1.33)
}
dend[325] {pt3dclear()
pt3dadd(-583, -43, -500.7, 1.33)
pt3dadd(-602, -28, -450, 0.8)
}
dend[326] {pt3dclear()
pt3dadd(-583, -43, -500.7, 1.33)
pt3dadd(-631, -37, -525, 1.6)
pt3dadd(-664, 52, -716.8, 1.33)
pt3dadd(-696, 176, -888.2, 0.8)
pt3dadd(-647, 249, -975, 0.8)
pt3dadd(-633, 297, -1073, 0.53)
}
dend[327] {pt3dclear()
pt3dadd(-499, -55, -364.8, 2.14)
pt3dadd(-554, -142, -488.6, 1.87)
pt3dadd(-586, -219, -525, 1.33)
}
dend[328] {pt3dclear()
pt3dadd(-586, -219, -525, 1.33)
pt3dadd(-627, -314, -535.5, 0.8)
pt3dadd(-676, -390, -584.79, 0.53)
}
dend[329] {pt3dclear()
pt3dadd(-586, -219, -525, 1.33)
pt3dadd(-554, -279, -597, 0.8)
pt3dadd(-475, -319, -555, 0.53)
}
dend[330] {pt3dclear()
pt3dadd(-448, -39, -247.8, 2.94)
pt3dadd(-611, -58, -300, 2.14)
pt3dadd(-800, -52, -400.2, 2.67)
pt3dadd(-1066, -58, -375, 2.4)
}
dend[331] {pt3dclear()
pt3dadd(-1066, -58, -375, 2.4)
pt3dadd(-1091, -154, -417.7, 1.07)
pt3dadd(-1116, -242, -375, 0.8)
}
dend[332] {pt3dclear()
pt3dadd(-1066, -58, -375, 2.4)
pt3dadd(-1095, -131, -300, 1.33)
pt3dadd(-1178, -251, -269.8, 1.07)
pt3dadd(-1200, -346, -300, 0.53)
}
dend[333] {pt3dclear()
pt3dadd(0, 0, 0, 8.02)
pt3dadd(28, 82, -52.48, 8.02)
}
dend[334] {pt3dclear()
pt3dadd(28, 82, -52.48, 8.02)
pt3dadd(64, 225, -186.1, 3.74)
pt3dadd(108, 346, -225, 3.21)
}
dend[335] {pt3dclear()
pt3dadd(108, 346, -225, 3.21)
pt3dadd(50, 473, -225, 1.07)
pt3dadd(-55, 570, -225, 0.8)
}
dend[336] {pt3dclear()
pt3dadd(108, 346, -225, 3.21)
pt3dadd(130, 368, -225, 2.67)
}
dend[337] {pt3dclear()
pt3dadd(130, 368, -225, 2.67)
pt3dadd(167, 425, -427.9, 1.87)
pt3dadd(151, 482, -450, 1.87)
pt3dadd(123, 545, -652.6, 1.6)
pt3dadd(56, 496, -750, 1.33)
pt3dadd(56, 583, -825, 1.07)
pt3dadd(144, 711, -1101, 0.8)
}
dend[338] {pt3dclear()
pt3dadd(130, 368, -225, 2.67)
pt3dadd(138, 405, -225, 2.14)
}
dend[339] {pt3dclear()
pt3dadd(138, 405, -225, 2.14)
pt3dadd(221, 542, -225, 1.33)
pt3dadd(235, 703, -225, 1.07)
pt3dadd(222, 880, -150, 0.8)
pt3dadd(177, 1016, -75, 0.53)
}
dend[340] {pt3dclear()
pt3dadd(138, 405, -225, 2.14)
pt3dadd(140, 444, -259.3, 1.87)
}
dend[341] {pt3dclear()
pt3dadd(140, 444, -259.3, 1.87)
pt3dadd(188, 515, -300, 1.33)
pt3dadd(217, 611, -423.4, 0.8)
}
dend[342] {pt3dclear()
pt3dadd(140, 444, -259.3, 1.87)
pt3dadd(113, 474, -226.5, 1.6)
}
dend[343] {pt3dclear()
pt3dadd(113, 474, -226.5, 1.6)
pt3dadd(-78, 572, -350.7, 1.33)
pt3dadd(-189, 711, -522.1, 0.8)
}
dend[344] {pt3dclear()
pt3dadd(113, 474, -226.5, 1.6)
pt3dadd(-3, 582, -370.3, 1.33)
pt3dadd(-48, 762, -300, 1.07)
pt3dadd(-7, 858, -225, 0.8)
}
dend[345] {pt3dclear()
pt3dadd(28, 82, -52.48, 8.02)
pt3dadd(48, 105, -75, 9.09)
}
dend[346] {pt3dclear()
pt3dadd(48, 105, -75, 9.09)
pt3dadd(144, 149, 46.53, 2.67)
pt3dadd(254, 184, 150, 2.67)
}
dend[347] {pt3dclear()
pt3dadd(254, 184, 150, 2.67)
pt3dadd(353, 188, 104.6, 0.8)
pt3dadd(442, 227, 150, 0.53)
}
dend[348] {pt3dclear()
pt3dadd(254, 184, 150, 2.67)
pt3dadd(284, 216, 205.8, 2.4)
}
dend[349] {pt3dclear()
pt3dadd(284, 216, 205.8, 2.4)
pt3dadd(434, 200, 300, 1.07)
pt3dadd(581, 192, 375, 1.33)
pt3dadd(703, 122, 525, 1.33)
pt3dadd(791, 38, 525, 0.8)
}
dend[350] {pt3dclear()
pt3dadd(284, 216, 205.8, 2.4)
pt3dadd(306, 232, 225, 1.87)
}
dend[351] {pt3dclear()
pt3dadd(306, 232, 225, 1.87)
pt3dadd(329, 242, 300, 1.6)
pt3dadd(326, 284, 375, 1.33)
}
dend[352] {pt3dclear()
pt3dadd(326, 284, 375, 1.33)
pt3dadd(240, 381, 375, 1.07)
pt3dadd(175, 498, 449.1, 0.8)
}
dend[353] {pt3dclear()
pt3dadd(326, 284, 375, 1.33)
pt3dadd(354, 357, 525, 1.07)
pt3dadd(368, 417, 675, 1.07)
pt3dadd(392, 453, 750, 0.53)
}
dend[354] {pt3dclear()
pt3dadd(306, 232, 225, 1.87)
pt3dadd(345, 271, 278.7, 1.6)
pt3dadd(384, 315, 229, 1.6)
}
dend[355] {pt3dclear()
pt3dadd(384, 315, 229, 1.6)
pt3dadd(470, 371, 278.6, 0.8)
pt3dadd(549, 445, 242.9, 0.53)
}
dend[356] {pt3dclear()
pt3dadd(384, 315, 229, 1.6)
pt3dadd(415, 488, 300, 1.33)
pt3dadd(360, 646, 166.6, 1.33)
pt3dadd(173, 709, 83.74, 1.07)
pt3dadd(-6, 756, 150, 0.8)
}
dend[357] {pt3dclear()
pt3dadd(48, 105, -75, 9.09)
pt3dadd(36, 167, -22.69, 3.21)
pt3dadd(-4, 226, 17.84, 3.47)
}
dend[358] {pt3dclear()
pt3dadd(-4, 226, 17.84, 3.47)
pt3dadd(-43, 260, 44.05, 1.07)
pt3dadd(-46, 310, 0, 0.8)
}
dend[359] {pt3dclear()
pt3dadd(-4, 226, 17.84, 3.47)
pt3dadd(-16, 272, 75, 3.21)
}
dend[360] {pt3dclear()
pt3dadd(-16, 272, 75, 3.21)
pt3dadd(-104, 333, 75, 2.4)
pt3dadd(-181, 398, 0, 2.4)
}
dend[361] {pt3dclear()
pt3dadd(-181, 398, 0, 2.4)
pt3dadd(-244, 545, 0, 0.8)
pt3dadd(-299, 683, -101.6, 0.8)
}
dend[362] {pt3dclear()
pt3dadd(-181, 398, 0, 2.4)
pt3dadd(-311, 524, -114.1, 1.33)
pt3dadd(-418, 683, -75, 1.33)
pt3dadd(-508, 870, -127.2, 0.8)
pt3dadd(-509, 989, 0, 1.07)
pt3dadd(-389, 1055, 150, 0.8)
}
dend[363] {pt3dclear()
pt3dadd(-16, 272, 75, 3.21)
pt3dadd(-16, 312, 118.4, 2.14)
pt3dadd(8, 341, 150, 2.14)
}
dend[364] {pt3dclear()
pt3dadd(8, 341, 150, 2.14)
}
}
proc shape3d_7() {
dend[364] { pt3dadd(-22, 330, 203.1, 1.07)
pt3dadd(-31, 299, 152.6, 1.33)
}
dend[365] {pt3dclear()
pt3dadd(-31, 299, 152.6, 1.33)
pt3dadd(-100, 307, 242.9, 1.07)
pt3dadd(-131, 361, 300, 0.8)
}
dend[366] {pt3dclear()
pt3dadd(-31, 299, 152.6, 1.33)
pt3dadd(42, 276, 258.89, 1.07)
pt3dadd(78, 216, 368.4, 0.8)
}
dend[367] {pt3dclear()
pt3dadd(8, 341, 150, 2.14)
pt3dadd(13, 356, 137.8, 1.87)
}
dend[368] {pt3dclear()
pt3dadd(13, 356, 137.8, 1.87)
pt3dadd(7, 503, 150, 1.6)
pt3dadd(3, 676, 150, 1.33)
pt3dadd(-138, 795, 41.58, 1.33)
pt3dadd(-206, 871, 150, 1.33)
pt3dadd(-385, 940, 300, 0.8)
}
dend[369] {pt3dclear()
pt3dadd(13, 356, 137.8, 1.87)
pt3dadd(47, 426, 225, 0.8)
pt3dadd(64, 501, 114, 0.8)
}
}
proc basic_shape() {
shape3d_1()
shape3d_2()
shape3d_3()
shape3d_4()
shape3d_5()
shape3d_6()
shape3d_7()
}
access soma
celldef()