proc celldef() {
  topol()
}

create soma[2], dend[362]

proc topol() { local i
  connect soma[1](0), soma(0)
  connect dend(0), soma(0)
  for i = 1, 4 connect dend[i](0), dend[i-1](1)
  connect dend[5](0), dend[3](1)
  connect dend[6](0), dend[2](1)
  for i = 7, 8 connect dend[i](0), dend[i-1](1)
  connect dend[9](0), dend[7](1)
  connect dend[10](0), dend[6](1)
  connect dend[11](0), dend[1](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[18](1)
  for i = 21, 22 connect dend[i](0), dend[20](1)
  connect dend[23](0), soma(0)
  for i = 24, 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[28](1)
  for i = 31, 32 connect dend[i](0), dend[30](1)
  connect dend[33](0), dend[23](1)
  for i = 34, 35 connect dend[i](0), dend[i-1](1)
  connect dend[36](0), dend[34](1)
  connect dend[37](0), dend[33](1)
  for i = 38, 39 connect dend[i](0), dend[i-1](1)
  connect dend[40](0), dend[38](1)
  connect dend[41](0), dend[37](1)
  for i = 42, 43 connect dend[i](0), dend[41](1)
  for i = 44, 45 connect dend[i](0), dend[43](1)
  connect dend[46](0), soma(0)
  for i = 47, 48 connect dend[i](0), dend[46](1)
  for i = 49, 50 connect dend[i](0), dend[48](1)
  for i = 51, 52 connect dend[i](0), dend[50](1)
  for i = 53, 54 connect dend[i](0), soma(0)
  for i = 55, 58 connect dend[i](0), dend[i-1](1)
  connect dend[59](0), dend[57](1)
  connect dend[60](0), dend[56](1)
  for i = 61, 62 connect dend[i](0), dend[60](1)
  for i = 63, 64 connect dend[i](0), dend[62](1)
  connect dend[65](0), dend[55](1)
  for i = 66, 67 connect dend[i](0), dend[65](1)
  connect dend[68](0), dend[54](1)
  for i = 69, 71 connect dend[i](0), dend[i-1](1)
  connect dend[72](0), dend[70](1)
  connect dend[73](0), dend[69](1)
  for i = 74, 75 connect dend[i](0), dend[73](1)
  connect dend[76](0), dend[68](1)
  for i = 77, 78 connect dend[i](0), dend[i-1](1)
  connect dend[79](0), dend[77](1)
  for i = 80, 81 connect dend[i](0), dend[79](1)
  connect dend[82](0), dend[76](1)
  for i = 83, 84 connect dend[i](0), dend[82](1)
  for i = 85, 86 connect dend[i](0), dend[84](1)
  for i = 87, 88 connect dend[i](0), dend[86](1)
  connect dend[89](0), soma(0)
  for i = 90, 91 connect dend[i](0), dend[i-1](1)
  connect dend[92](0), dend[90](1)
  for i = 93, 94 connect dend[i](0), dend[92](1)
  connect dend[95](0), dend[89](1)
  for i = 96, 97 connect dend[i](0), dend[95](1)
  for i = 98, 99 connect dend[i](0), dend[97](1)
  for i = 100, 101 connect dend[i](0), dend[99](1)
  for i = 102, 103 connect dend[i](0), dend[101](1)
  connect dend[104](0), soma(0)
  for i = 105, 107 connect dend[i](0), dend[i-1](1)
  connect dend[108](0), dend[106](1)
  for i = 109, 110 connect dend[i](0), dend[i-1](1)
  connect dend[111](0), dend[109](1)
  for i = 112, 113 connect dend[i](0), dend[111](1)
  connect dend[114](0), dend[108](1)
  connect dend[115](0), dend[105](1)
  for i = 116, 117 connect dend[i](0), dend[115](1)
  for i = 118, 119 connect dend[i](0), dend[117](1)
  connect dend[120](0), dend[104](1)
  for i = 121, 125 connect dend[i](0), dend[i-1](1)
  connect dend[126](0), dend[124](1)
  connect dend[127](0), dend[123](1)
  connect dend[128](0), dend[122](1)
  connect dend[129](0), dend[121](1)
  for i = 130, 131 connect dend[i](0), dend[i-1](1)
  connect dend[132](0), dend[130](1)
  connect dend[133](0), dend[129](1)
  for i = 134, 135 connect dend[i](0), dend[133](1)
  connect dend[136](0), dend[120](1)
  for i = 137, 138 connect dend[i](0), dend[136](1)
  for i = 139, 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)
  for i = 146, 147 connect dend[i](0), dend[145](1)
  for i = 148, 149 connect dend[i](0), dend[147](1)
  connect dend[150](0), dend[138](1)
  for i = 151, 152 connect dend[i](0), dend[150](1)
  for i = 153, 154 connect dend[i](0), dend[152](1)
  connect dend[155](0), soma(0)
  for i = 156, 159 connect dend[i](0), dend[i-1](1)
  connect dend[160](0), dend[158](1)
  connect dend[161](0), dend[157](1)
  for i = 162, 163 connect dend[i](0), dend[161](1)
  connect dend[164](0), dend[156](1)
  for i = 165, 167 connect dend[i](0), dend[i-1](1)
  connect dend[168](0), dend[166](1)
  connect dend[169](0), dend[165](1)
  connect dend[170](0), dend[164](1)
  for i = 171, 172 connect dend[i](0), dend[170](1)
  connect dend[173](0), dend[155](1)
  for i = 174, 176 connect dend[i](0), dend[i-1](1)
  connect dend[177](0), dend[175](1)
  connect dend[178](0), dend[174](1)
  connect dend[179](0), dend[173](1)
  for i = 180, 181 connect dend[i](0), dend[179](1)
  connect dend[182](0), soma(0)
  for i = 183, 186 connect dend[i](0), dend[i-1](1)
  connect dend[187](0), dend[185](1)
  connect dend[188](0), dend[184](1)
  for i = 189, 190 connect dend[i](0), dend[i-1](1)
  connect dend[191](0), dend[189](1)
  connect dend[192](0), dend[188](1)
  for i = 193, 194 connect dend[i](0), dend[i-1](1)
  connect dend[195](0), dend[193](1)
  connect dend[196](0), dend[192](1)
  connect dend[197](0), dend[183](1)
  for i = 198, 199 connect dend[i](0), dend[197](1)
  for i = 200, 201 connect dend[i](0), dend[199](1)
  connect dend[202](0), dend[182](1)
  for i = 203, 205 connect dend[i](0), dend[i-1](1)
  connect dend[206](0), dend[204](1)
  for i = 207, 208 connect dend[i](0), dend[206](1)
  for i = 209, 210 connect dend[i](0), dend[208](1)
  for i = 211, 212 connect dend[i](0), dend[210](1)
  connect dend[213](0), dend[203](1)
  for i = 214, 215 connect dend[i](0), dend[213](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[202](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)
  for i = 225, 226 connect dend[i](0), dend[224](1)
  for i = 227, 228 connect dend[i](0), dend[i-1](1)
  connect dend[229](0), dend[227](1)
  connect dend[230](0), dend[226](1)
  connect dend[231](0), soma(0)
  for i = 232, 233 connect dend[i](0), dend[i-1](1)
  connect dend[234](0), dend[232](1)
  connect dend[235](0), dend[231](1)
  for i = 236, 237 connect dend[i](0), dend[235](1)
  for i = 238, 240 connect dend[i](0), dend[i-1](1)
  connect dend[241](0), dend[239](1)
  for i = 242, 243 connect dend[i](0), dend[241](1)
  connect dend[244](0), dend[238](1)
  for i = 245, 246 connect dend[i](0), dend[244](1)
  for i = 247, 248 connect dend[i](0), dend[246](1)
  connect dend[249](0), dend[237](1)
  for i = 250, 251 connect dend[i](0), dend[249](1)
  for i = 252, 253 connect dend[i](0), dend[251](1)
  for i = 254, 255 connect dend[i](0), dend[253](1)
  connect dend[256](0), soma(0)
  for i = 257, 259 connect dend[i](0), dend[i-1](1)
  connect dend[260](0), dend[258](1)
  for i = 261, 262 connect dend[i](0), dend[260](1)
  connect dend[263](0), dend[257](1)
  for i = 264, 265 connect dend[i](0), dend[263](1)
  connect dend[266](0), dend[256](1)
  for i = 267, 269 connect dend[i](0), dend[i-1](1)
  connect dend[270](0), dend[268](1)
  for i = 271, 272 connect dend[i](0), dend[270](1)
  connect dend[273](0), dend[267](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[266](1)
  for i = 279, 280 connect dend[i](0), dend[i-1](1)
  connect dend[281](0), dend[279](1)
  connect dend[282](0), dend[278](1)
  for i = 283, 285 connect dend[i](0), dend[i-1](1)
  connect dend[286](0), dend[284](1)
  connect dend[287](0), dend[283](1)
  for i = 288, 289 connect dend[i](0), dend[i-1](1)
  connect dend[290](0), dend[288](1)
  connect dend[291](0), dend[287](1)
  connect dend[292](0), dend[282](1)
  for i = 293, 295 connect dend[i](0), dend[i-1](1)
  connect dend[296](0), dend[294](1)
  connect dend[297](0), dend[293](1)
  for i = 298, 299 connect dend[i](0), dend[297](1)
  for i = 300, 301 connect dend[i](0), dend[299](1)
  connect dend[302](0), dend[292](1)
  for i = 303, 304 connect dend[i](0), dend[i-1](1)
  connect dend[305](0), dend[303](1)
  connect dend[306](0), dend[302](1)
  for i = 307, 308 connect dend[i](0), dend[i-1](1)
  connect dend[309](0), dend[307](1)
  for i = 310, 311 connect dend[i](0), dend[i-1](1)
  connect dend[312](0), dend[310](1)
  for i = 313, 314 connect dend[i](0), dend[312](1)
  connect dend[315](0), dend[309](1)
  connect dend[316](0), dend[306](1)
  for i = 317, 318 connect dend[i](0), dend[i-1](1)
  connect dend[319](0), dend[317](1)
  topol_1()
}
proc topol_1() {
  connect dend[320](0), dend[316](1)
  for i = 321, 322 connect dend[i](0), dend[320](1)
  connect dend[323](0), soma(0)
  for i = 324, 325 connect dend[i](0), dend[i-1](1)
  connect dend[326](0), dend[324](1)
  for i = 327, 328 connect dend[i](0), dend[i-1](1)
  connect dend[329](0), dend[327](1)
  connect dend[330](0), dend[326](1)
  for i = 331, 332 connect dend[i](0), dend[i-1](1)
  connect dend[333](0), dend[331](1)
  for i = 334, 335 connect dend[i](0), dend[333](1)
  for i = 336, 337 connect dend[i](0), dend[335](1)
  connect dend[338](0), dend[330](1)
  connect dend[339](0), dend[323](1)
  for i = 340, 342 connect dend[i](0), dend[i-1](1)
  connect dend[343](0), dend[341](1)
  connect dend[344](0), dend[340](1)
  for i = 345, 346 connect dend[i](0), dend[344](1)
  connect dend[347](0), dend[339](1)
  for i = 348, 350 connect dend[i](0), dend[i-1](1)
  connect dend[351](0), dend[349](1)
  for i = 352, 353 connect dend[i](0), dend[i-1](1)
  connect dend[354](0), dend[352](1)
  connect dend[355](0), dend[351](1)
  connect dend[356](0), dend[348](1)
  connect dend[357](0), dend[347](1)
  for i = 358, 359 connect dend[i](0), dend[357](1)
  for i = 360, 361 connect dend[i](0), dend[359](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(0, 0, 0, 98.4)
	pt3dadd(0, 49.2, 0, 98.4)
  }
  soma[1] {pt3dclear()
	pt3dadd(0, 0, 0, 98.4)
	pt3dadd(0, -49.2, 0, 98.4)
  }
  dend {pt3dclear()
	pt3dadd(0, 0, 0, 5.3)
	pt3dadd(-13, -107, 75, 5.3)
	pt3dadd(-5, -196, 150, 4.5)
  }
  dend[1] {pt3dclear()
	pt3dadd(-5, -196, 150, 4.5)
	pt3dadd(17, -299, 256.8, 2.91)
	pt3dadd(16, -398, 369.5, 3.18)
  }
  dend[2] {pt3dclear()
	pt3dadd(16, -398, 369.5, 3.18)
	pt3dadd(28, -445, 309.7, 1.59)
	pt3dadd(46, -481, 375.3, 2.12)
  }
  dend[3] {pt3dclear()
	pt3dadd(46, -481, 375.3, 2.12)
	pt3dadd(82, -505, 396.1, 0.79)
  }
  dend[4] {pt3dclear()
	pt3dadd(82, -505, 396.1, 0.79)
	pt3dadd(171, -490, 413.9, 0.79)
  }
  dend[5] {pt3dclear()
	pt3dadd(82, -505, 396.1, 0.79)
	pt3dadd(110, -546, 428, 0.26)
	pt3dadd(142, -540, 469.8, 0.26)
  }
  dend[6] {pt3dclear()
	pt3dadd(46, -481, 375.3, 2.12)
	pt3dadd(57, -536, 375, 1.85)
  }
  dend[7] {pt3dclear()
	pt3dadd(57, -536, 375, 1.85)
	pt3dadd(85, -604, 450, 1.32)
	pt3dadd(112, -674, 499.7, 1.59)
  }
  dend[8] {pt3dclear()
	pt3dadd(112, -674, 499.7, 1.59)
	pt3dadd(106, -740, 471.6, 0.79)
	pt3dadd(102, -800, 509.3, 0.53)
  }
  dend[9] {pt3dclear()
	pt3dadd(112, -674, 499.7, 1.59)
	pt3dadd(142, -719, 554.5, 0.53)
	pt3dadd(185, -766, 600, 0.53)
  }
  dend[10] {pt3dclear()
	pt3dadd(57, -536, 375, 1.85)
	pt3dadd(82, -776, 451.1, 1.32)
	pt3dadd(279, -885, 566.5, 0.79)
  }
  dend[11] {pt3dclear()
	pt3dadd(16, -398, 369.5, 3.18)
	pt3dadd(-21, -457, 412.8, 2.12)
	pt3dadd(-56, -509, 450, 2.12)
  }
  dend[12] {pt3dclear()
	pt3dadd(-56, -509, 450, 2.12)
	pt3dadd(-103, -617, 600, 1.06)
	pt3dadd(-125, -713, 787.7, 1.06)
	pt3dadd(-135, -749, 898.6, 0.53)
  }
  dend[13] {pt3dclear()
	pt3dadd(-56, -509, 450, 2.12)
	pt3dadd(-82, -639, 450, 2.12)
	pt3dadd(-115, -743, 525, 1.59)
  }
  dend[14] {pt3dclear()
	pt3dadd(-115, -743, 525, 1.59)
	pt3dadd(-139, -980, 456, 1.32)
	pt3dadd(-92, -1217, 525, 0.53)
  }
  dend[15] {pt3dclear()
	pt3dadd(-115, -743, 525, 1.59)
	pt3dadd(-159, -795, 525, 0.79)
	pt3dadd(-179, -866, 525, 0.79)
  }
  dend[16] {pt3dclear()
	pt3dadd(-5, -196, 150, 4.5)
	pt3dadd(-10, -231, 225, 2.65)
	pt3dadd(-30, -254, 300, 2.65)
  }
  dend[17] {pt3dclear()
	pt3dadd(-30, -254, 300, 2.65)
	pt3dadd(-143, -344, 450, 1.06)
	pt3dadd(-107, -442, 600, 1.06)
  }
  dend[18] {pt3dclear()
	pt3dadd(-30, -254, 300, 2.65)
	pt3dadd(-82, -241, 375, 2.12)
	pt3dadd(-112, -284, 450, 2.12)
  }
  dend[19] {pt3dclear()
	pt3dadd(-112, -284, 450, 2.12)
	pt3dadd(-265, -368, 525, 1.59)
	pt3dadd(-420, -529, 525, 1.32)
	pt3dadd(-584, -667, 525, 1.32)
	pt3dadd(-759, -667, 525, 0.53)
  }
  dend[20] {pt3dclear()
	pt3dadd(-112, -284, 450, 2.12)
	pt3dadd(-107, -265, 521.29, 1.06)
	pt3dadd(-123, -268, 525, 1.32)
  }
  dend[21] {pt3dclear()
	pt3dadd(-123, -268, 525, 1.32)
	pt3dadd(-155, -260, 600, 0.79)
	pt3dadd(-209, -272, 647.6, 0.79)
  }
  dend[22] {pt3dclear()
	pt3dadd(-123, -268, 525, 1.32)
	pt3dadd(-118, -246, 600, 1.06)
	pt3dadd(-115, -217, 658.1, 0.53)
  }
  dend[23] {pt3dclear()
	pt3dadd(0, 0, 0, 6.36)
	pt3dadd(29, -30, 138.4, 6.36)
  }
  dend[24] {pt3dclear()
	pt3dadd(29, -30, 138.4, 6.36)
	pt3dadd(33, 18, 150, 2.65)
  }
  dend[25] {pt3dclear()
	pt3dadd(33, 18, 150, 2.65)
	pt3dadd(51, 25, 105, 1.59)
  }
  dend[26] {pt3dclear()
	pt3dadd(51, 25, 105, 1.59)
	pt3dadd(83, 34, 171.1, 1.06)
	pt3dadd(109, 13, 247.1, 0.84)
  }
  dend[27] {pt3dclear()
	pt3dadd(51, 25, 105, 1.59)
	pt3dadd(96, 95, 300, 1.06)
	pt3dadd(141, 158, 421.4, 0.84)
  }
  dend[28] {pt3dclear()
	pt3dadd(33, 18, 150, 2.65)
	pt3dadd(3, 124, 186.3, 2.12)
	pt3dadd(-30, 234, 225, 1.59)
  }
  dend[29] {pt3dclear()
	pt3dadd(-30, 234, 225, 1.59)
	pt3dadd(-94, 363, 225, 0.53)
  }
  dend[30] {pt3dclear()
	pt3dadd(-30, 234, 225, 1.59)
	pt3dadd(-38, 262, 190.7, 1.06)
  }
  dend[31] {pt3dclear()
	pt3dadd(-38, 262, 190.7, 1.06)
	pt3dadd(-116, 367, 357.5, 1.06)
	pt3dadd(-211, 477, 450, 0.84)
	pt3dadd(-376, 438, 375, 0.53)
  }
  dend[32] {pt3dclear()
	pt3dadd(-38, 262, 190.7, 1.06)
	pt3dadd(-64, 306, 283.6, 0.84)
	pt3dadd(-72, 362, 354.8, 0.53)
  }
  dend[33] {pt3dclear()
	pt3dadd(29, -30, 138.4, 6.36)
	pt3dadd(50, -79, 76.14, 4.77)
  }
  dend[34] {pt3dclear()
	pt3dadd(50, -79, 76.14, 4.77)
	pt3dadd(17, -122, 150, 2.12)
  }
  dend[35] {pt3dclear()
	pt3dadd(17, -122, 150, 2.12)
	pt3dadd(-116, -211, 289, 1.59)
	pt3dadd(-230, -234, 450, 1.59)
	pt3dadd(-271, -213, 675, 1.37)
  }
  dend[36] {pt3dclear()
	pt3dadd(17, -122, 150, 2.12)
	pt3dadd(-72, -205, 323.6, 1.37)
	pt3dadd(-212, -255, 474.7, 1.59)
	pt3dadd(-275, -228, 675, 0.53)
  }
  dend[37] {pt3dclear()
	pt3dadd(50, -79, 76.14, 4.77)
	pt3dadd(94, -143, 150, 3.18)
	pt3dadd(121, -205, 225, 3.49)
  }
  dend[38] {pt3dclear()
	pt3dadd(121, -205, 225, 3.49)
	pt3dadd(315, -345, 300, 2.12)
	pt3dadd(478, -449, 450, 1.9)
  }
  dend[39] {pt3dclear()
	pt3dadd(478, -449, 450, 1.9)
	pt3dadd(559, -484, 414.8, 0.84)
	pt3dadd(607, -535, 450, 0.84)
  }
  dend[40] {pt3dclear()
	pt3dadd(478, -449, 450, 1.9)
	pt3dadd(596, -618, 499.6, 1.9)
	pt3dadd(667, -796, 525, 1.37)
	pt3dadd(763, -937, 650.9, 0.84)
	pt3dadd(821, -1084, 716.2, 0.53)
  }
  dend[41] {pt3dclear()
	pt3dadd(121, -205, 225, 3.49)
	pt3dadd(126, -234, 281.8, 2.65)
  }
  dend[42] {pt3dclear()
	pt3dadd(126, -234, 281.8, 2.65)
	pt3dadd(108, -234, 450, 1.06)
	pt3dadd(179, -209, 525, 0.84)
  }
  dend[43] {pt3dclear()
	pt3dadd(126, -234, 281.8, 2.65)
	pt3dadd(137, -272, 355.9, 2.43)
	pt3dadd(149, -304, 375, 2.12)
  }
  dend[44] {pt3dclear()
	pt3dadd(149, -304, 375, 2.12)
	pt3dadd(260, -384, 525, 1.59)
	pt3dadd(374, -529, 629.5, 1.06)
	pt3dadd(413, -598, 750, 0.53)
  }
  dend[45] {pt3dclear()
	pt3dadd(149, -304, 375, 2.12)
	pt3dadd(129, -431, 525, 1.9)
	pt3dadd(132, -500, 725.4, 1.59)
	pt3dadd(121, -570, 900, 1.37)
	pt3dadd(70, -621, 1050, 1.06)
  }
  dend[46] {pt3dclear()
	pt3dadd(0, 0, 0, 4.39)
	pt3dadd(65, -12, -225, 4.39)
	pt3dadd(81, -49, -300, 4.24)
  }
  dend[47] {pt3dclear()
	pt3dadd(81, -49, -300, 4.24)
	pt3dadd(262, -130, -375, 1.06)
	pt3dadd(334, -226, -549.79, 0.79)
	pt3dadd(342, -335, -600, 0.79)
  }
  dend[48] {pt3dclear()
	pt3dadd(81, -49, -300, 4.24)
	pt3dadd(105, -86, -375, 2.65)
  }
  dend[49] {pt3dclear()
	pt3dadd(105, -86, -375, 2.65)
	pt3dadd(245, -140, -375, 1.06)
	pt3dadd(394, -166, -523.5, 1.06)
	pt3dadd(509, -207, -525, 0.53)
  }
  dend[50] {pt3dclear()
	pt3dadd(105, -86, -375, 2.65)
	pt3dadd(201, -146, -586.6, 2.38)
	pt3dadd(330, -172, -675, 1.85)
  }
  dend[51] {pt3dclear()
	pt3dadd(330, -172, -675, 1.85)
	pt3dadd(363, -142, -825, 0.79)
	pt3dadd(326, -119, -947.5, 0.79)
  }
  dend[52] {pt3dclear()
	pt3dadd(330, -172, -675, 1.85)
	pt3dadd(436, -151, -900, 1.32)
	pt3dadd(457, -81, -1067, 1.06)
	pt3dadd(428, -13, -1200, 0.79)
	pt3dadd(467, 151, -1200, 0.63)
  }
  dend[53] {pt3dclear()
	pt3dadd(0, 0, 0, 1.85)
	pt3dadd(-13, 28, -126.9, 1.85)
	pt3dadd(-168, 142, -75, 1.85)
	pt3dadd(-338, 243, -151.4, 1.32)
	pt3dadd(-533, 349, -150, 1.06)
	pt3dadd(-692, 419, -150, 0.79)
	pt3dadd(-890, 491, -300, 0.79)
	pt3dadd(-1058, 563, -300, 0.53)
  }
  dend[54] {pt3dclear()
	pt3dadd(0, 0, 0, 7.68)
	pt3dadd(-21, -27, -150, 7.68)
	pt3dadd(-6, -41, -86.22, 6.62)
  }
  dend[55] {pt3dclear()
	pt3dadd(-6, -41, -86.22, 6.62)
	pt3dadd(-4, -89, -300, 4.5)
	pt3dadd(-17, -119, -365.3, 4.5)
  }
  dend[56] {pt3dclear()
	pt3dadd(-17, -119, -365.3, 4.5)
	pt3dadd(-14, -179, -375, 2.12)
	pt3dadd(-8, -233, -375, 2.38)
  }
  dend[57] {pt3dclear()
	pt3dadd(-8, -233, -375, 2.38)
	pt3dadd(77, -285, -375, 1.06)
  }
  dend[58] {pt3dclear()
	pt3dadd(77, -285, -375, 1.06)
	pt3dadd(228, -413, -375, 1.06)
	pt3dadd(200, -613, -300, 0.79)
  }
  dend[59] {pt3dclear()
	pt3dadd(77, -285, -375, 1.06)
	pt3dadd(98, -309, -417.3, 0.26)
  }
  dend[60] {pt3dclear()
	pt3dadd(-8, -233, -375, 2.38)
	pt3dadd(-9, -252, -398.2, 1.85)
  }
  dend[61] {pt3dclear()
	pt3dadd(-9, -252, -398.2, 1.85)
	pt3dadd(-217, -280, -525, 0.79)
	pt3dadd(-234, -356, -675, 0.53)
  }
  dend[62] {pt3dclear()
	pt3dadd(-9, -252, -398.2, 1.85)
	pt3dadd(-10, -322, -375, 1.32)
  }
  dend[63] {pt3dclear()
	pt3dadd(-10, -322, -375, 1.32)
	pt3dadd(48, -316, -578.79, 1.06)
	pt3dadd(168, -313, -675, 0.79)
  }
}
proc shape3d_2() {
  dend[63] {	pt3dadd(181, -479, -675, 0.53)
  }
  dend[64] {pt3dclear()
	pt3dadd(-10, -322, -375, 1.32)
	pt3dadd(-64, -338, -375, 0.79)
	pt3dadd(-106, -377, -375, 0.53)
  }
  dend[65] {pt3dclear()
	pt3dadd(-17, -119, -365.3, 4.5)
	pt3dadd(-31, -228, -574.1, 3.44)
	pt3dadd(-30, -345, -675, 3.44)
  }
  dend[66] {pt3dclear()
	pt3dadd(-30, -345, -675, 3.44)
	pt3dadd(57, -508, -825, 1.32)
	pt3dadd(88, -626, -900, 1.32)
	pt3dadd(55, -664, -1124, 0.79)
  }
  dend[67] {pt3dclear()
	pt3dadd(-30, -345, -675, 3.44)
	pt3dadd(12, -522, -855.1, 1.59)
	pt3dadd(72, -704, -1025, 1.06)
  }
  dend[68] {pt3dclear()
	pt3dadd(-6, -41, -86.22, 6.62)
	pt3dadd(-33, -37, -300, 4.5)
  }
  dend[69] {pt3dclear()
	pt3dadd(-33, -37, -300, 4.5)
	pt3dadd(-126, 91, -452.9, 3.71)
	pt3dadd(-222, 223, -601.9, 2.91)
  }
  dend[70] {pt3dclear()
	pt3dadd(-222, 223, -601.9, 2.91)
	pt3dadd(-210, 268, -689.2, 1.85)
	pt3dadd(-194, 313, -775.9, 1.59)
  }
  dend[71] {pt3dclear()
	pt3dadd(-194, 313, -775.9, 1.59)
	pt3dadd(-229, 343, -815.9, 0.79)
	pt3dadd(-279, 353, -782.4, 0.53)
  }
  dend[72] {pt3dclear()
	pt3dadd(-194, 313, -775.9, 1.59)
	pt3dadd(-128, 392, -961.3, 1.06)
	pt3dadd(-58, 435, -1050, 1.06)
	pt3dadd(-97, 494, -1250, 0.79)
	pt3dadd(-162, 419, -1200, 0.53)
  }
  dend[73] {pt3dclear()
	pt3dadd(-222, 223, -601.9, 2.91)
	pt3dadd(-237, 267, -631.29, 1.59)
	pt3dadd(-241, 304, -675, 1.32)
  }
  dend[74] {pt3dclear()
	pt3dadd(-241, 304, -675, 1.32)
	pt3dadd(-181, 362, -684.6, 0.53)
	pt3dadd(-93, 384, -675, 0.53)
  }
  dend[75] {pt3dclear()
	pt3dadd(-241, 304, -675, 1.32)
	pt3dadd(-274, 459, -772.4, 1.06)
	pt3dadd(-330, 604, -900, 0.79)
	pt3dadd(-435, 642, -900, 0.53)
  }
  dend[76] {pt3dclear()
	pt3dadd(-33, -37, -300, 4.5)
	pt3dadd(-54, -47, -358.5, 4.24)
  }
  dend[77] {pt3dclear()
	pt3dadd(-54, -47, -358.5, 4.24)
	pt3dadd(-104, -120, -479.7, 2.91)
	pt3dadd(-168, -165, -450, 2.65)
  }
  dend[78] {pt3dclear()
	pt3dadd(-168, -165, -450, 2.65)
	pt3dadd(-233, -179, -525, 0.53)
	pt3dadd(-294, -189, -525, 0.26)
  }
  dend[79] {pt3dclear()
	pt3dadd(-168, -165, -450, 2.65)
	pt3dadd(-193, -206, -525, 2.38)
  }
  dend[80] {pt3dclear()
	pt3dadd(-193, -206, -525, 2.38)
	pt3dadd(-121, -312, -608.6, 1.06)
	pt3dadd(-115, -435, -699.4, 0.79)
  }
  dend[81] {pt3dclear()
	pt3dadd(-193, -206, -525, 2.38)
	pt3dadd(-333, -321, -635.1, 1.85)
	pt3dadd(-414, -547, -600, 1.59)
	pt3dadd(-549, -752, -600, 0.79)
	pt3dadd(-646, -975, -600, 0.53)
  }
  dend[82] {pt3dclear()
	pt3dadd(-54, -47, -358.5, 4.24)
	pt3dadd(-83, -33, -511.2, 4.5)
	pt3dadd(-105, -5, -663.1, 3.71)
  }
  dend[83] {pt3dclear()
	pt3dadd(-105, -5, -663.1, 3.71)
	pt3dadd(-248, -19, -819, 0.79)
	pt3dadd(-321, -7, -900, 0.53)
  }
  dend[84] {pt3dclear()
	pt3dadd(-105, -5, -663.1, 3.71)
	pt3dadd(-117, 32, -718.8, 2.91)
	pt3dadd(-129, 74, -675, 2.91)
  }
  dend[85] {pt3dclear()
	pt3dadd(-129, 74, -675, 2.91)
	pt3dadd(-70, 100, -750, 0.79)
	pt3dadd(-16, 134, -796.6, 0.53)
  }
  dend[86] {pt3dclear()
	pt3dadd(-129, 74, -675, 2.91)
	pt3dadd(-137, 90, -750, 2.91)
  }
  dend[87] {pt3dclear()
	pt3dadd(-137, 90, -750, 2.91)
	pt3dadd(-111, 145, -953.1, 1.06)
	pt3dadd(-101, 264, -1050, 1.32)
	pt3dadd(-119, 399, -1212, 1.06)
	pt3dadd(-98, 683, -1200, 0.53)
  }
  dend[88] {pt3dclear()
	pt3dadd(-137, 90, -750, 2.91)
	pt3dadd(-227, 200, -825, 1.85)
	pt3dadd(-361, 355, -980.1, 1.32)
	pt3dadd(-506, 443, -1050, 0.79)
  }
  dend[89] {pt3dclear()
	pt3dadd(0, 0, 0, 5.83)
	pt3dadd(19, 80, -150, 5.83)
	pt3dadd(-6, 138, -208.4, 4.5)
  }
  dend[90] {pt3dclear()
	pt3dadd(-6, 138, -208.4, 4.5)
	pt3dadd(29, 268, -225, 2.91)
	pt3dadd(13, 412, -312, 2.38)
  }
  dend[91] {pt3dclear()
	pt3dadd(13, 412, -312, 2.38)
	pt3dadd(56, 504, -375, 0.26)
  }
  dend[92] {pt3dclear()
	pt3dadd(13, 412, -312, 2.38)
	pt3dadd(12, 469, -375, 1.59)
	pt3dadd(15, 522, -405.1, 1.85)
  }
  dend[93] {pt3dclear()
	pt3dadd(15, 522, -405.1, 1.85)
	pt3dadd(73, 701, -525, 0.79)
	pt3dadd(148, 826, -525, 0.79)
  }
  dend[94] {pt3dclear()
	pt3dadd(15, 522, -405.1, 1.85)
	pt3dadd(28, 652, -598, 1.06)
	pt3dadd(9, 852, -600, 1.06)
	pt3dadd(-123, 1044, -599, 0.79)
	pt3dadd(-178, 970, -525, 0.53)
  }
  dend[95] {pt3dclear()
	pt3dadd(-6, 138, -208.4, 4.5)
	pt3dadd(-52, 215, -242.6, 3.18)
	pt3dadd(-75, 287, -300.1, 2.91)
  }
  dend[96] {pt3dclear()
	pt3dadd(-75, 287, -300.1, 2.91)
	pt3dadd(-149, 314, -329.3, 0.53)
  }
  dend[97] {pt3dclear()
	pt3dadd(-75, 287, -300.1, 2.91)
	pt3dadd(-76, 308, -300, 3.44)
  }
  dend[98] {pt3dclear()
	pt3dadd(-76, 308, -300, 3.44)
	pt3dadd(-105, 419, -525, 1.59)
	pt3dadd(-129, 556, -600, 1.32)
	pt3dadd(-146, 714, -750, 1.59)
	pt3dadd(-183, 885, -869.7, 0.79)
	pt3dadd(-229, 1018, -1028, 1.06)
	pt3dadd(-166, 1108, -1125, 0.79)
  }
  dend[99] {pt3dclear()
	pt3dadd(-76, 308, -300, 3.44)
	pt3dadd(-69, 338, -327.1, 2.38)
  }
  dend[100] {pt3dclear()
	pt3dadd(-69, 338, -327.1, 2.38)
	pt3dadd(-81, 380, -302.7, 0.53)
  }
  dend[101] {pt3dclear()
	pt3dadd(-69, 338, -327.1, 2.38)
	pt3dadd(-49, 399, -388.7, 1.85)
	pt3dadd(-45, 496, -375, 2.12)
  }
  dend[102] {pt3dclear()
	pt3dadd(-45, 496, -375, 2.12)
	pt3dadd(-70, 640, -525, 1.59)
	pt3dadd(-122, 800, -623.6, 1.06)
	pt3dadd(-247, 946, -675, 0.79)
	pt3dadd(-202, 776, -675, 0.53)
  }
  dend[103] {pt3dclear()
	pt3dadd(-45, 496, -375, 2.12)
	pt3dadd(-21, 697, -438, 1.32)
	pt3dadd(28, 841, -300, 1.06)
	pt3dadd(136, 921, -150, 0.79)
  }
  dend[104] {pt3dclear()
	pt3dadd(0, 0, 0, 8.21)
	pt3dadd(23, -16, -150, 8.21)
  }
  dend[105] {pt3dclear()
	pt3dadd(23, -16, -150, 8.21)
	pt3dadd(55, -100, -271.3, 3.97)
	pt3dadd(113, -188, -300, 4.5)
  }
  dend[106] {pt3dclear()
	pt3dadd(113, -188, -300, 4.5)
	pt3dadd(133, -200, -300, 3.18)
  }
  dend[107] {pt3dclear()
	pt3dadd(133, -200, -300, 3.18)
	pt3dadd(164, -242, -525, 1.32)
	pt3dadd(273, -312, -600, 1.06)
	pt3dadd(376, -410, -750, 0.79)
	pt3dadd(489, -497, -894.5, 0.53)
  }
  dend[108] {pt3dclear()
	pt3dadd(133, -200, -300, 3.18)
	pt3dadd(185, -257, -375, 2.12)
  }
  dend[109] {pt3dclear()
	pt3dadd(185, -257, -375, 2.12)
	pt3dadd(219, -305, -423.1, 1.85)
	pt3dadd(249, -335, -485, 1.59)
  }
  dend[110] {pt3dclear()
	pt3dadd(249, -335, -485, 1.59)
	pt3dadd(273, -325, -542.4, 0.53)
	pt3dadd(298, -311, -597.29, 0.53)
  }
  dend[111] {pt3dclear()
	pt3dadd(249, -335, -485, 1.59)
	pt3dadd(279, -435, -600, 1.32)
	pt3dadd(346, -539, -797.4, 1.59)
	pt3dadd(568, -669, -825, 1.06)
  }
  dend[112] {pt3dclear()
	pt3dadd(568, -669, -825, 1.06)
	pt3dadd(496, -672, -825, 0.53)
  }
  dend[113] {pt3dclear()
	pt3dadd(568, -669, -825, 1.06)
	pt3dadd(569, -707, -825, 0.53)
  }
  dend[114] {pt3dclear()
	pt3dadd(185, -257, -375, 2.12)
	pt3dadd(399, -296, -375, 1.06)
	pt3dadd(527, -346, -536.4, 1.06)
	pt3dadd(642, -288, -600, 0.53)
  }
  dend[115] {pt3dclear()
	pt3dadd(113, -188, -300, 4.5)
	pt3dadd(110, -230, -387.4, 1.85)
	pt3dadd(125, -252, -479.6, 1.59)
  }
  dend[116] {pt3dclear()
	pt3dadd(125, -252, -479.6, 1.59)
	pt3dadd(138, -238, -462, 0.53)
  }
  dend[117] {pt3dclear()
	pt3dadd(125, -252, -479.6, 1.59)
	pt3dadd(117, -268, -525, 1.32)
  }
  dend[118] {pt3dclear()
	pt3dadd(117, -268, -525, 1.32)
	pt3dadd(98, -265, -525, 0.79)
	pt3dadd(81, -263, -606.2, 0.79)
  }
  dend[119] {pt3dclear()
	pt3dadd(117, -268, -525, 1.32)
	pt3dadd(-21, -295, -600, 1.59)
	pt3dadd(-115, -408, -675, 1.06)
	pt3dadd(-95, -599, -675, 0.79)
	pt3dadd(-92, -800, -600, 0.79)
  }
  dend[120] {pt3dclear()
	pt3dadd(23, -16, -150, 8.21)
	pt3dadd(65, -46, -180.6, 6.36)
  }
  dend[121] {pt3dclear()
	pt3dadd(65, -46, -180.6, 6.36)
	pt3dadd(168, -89, -314.1, 4.5)
  }
  dend[122] {pt3dclear()
	pt3dadd(168, -89, -314.1, 4.5)
	pt3dadd(228, -133, -300, 2.65)
	pt3dadd(298, -162, -300, 2.38)
  }
  dend[123] {pt3dclear()
	pt3dadd(298, -162, -300, 2.38)
	pt3dadd(368, -183, -327.3, 2.12)
	pt3dadd(442, -213, -300, 2.12)
  }
  dend[124] {pt3dclear()
	pt3dadd(442, -213, -300, 2.12)
	pt3dadd(560, -227, -375, 1.85)
	pt3dadd(694, -218, -414.5, 1.32)
  }
  dend[125] {pt3dclear()
	pt3dadd(694, -218, -414.5, 1.32)
	pt3dadd(827, -188, -533.6, 0.79)
	pt3dadd(1034, -115, -525, 0.79)
	pt3dadd(1123, -37, -660.6, 0.53)
  }
  dend[126] {pt3dclear()
	pt3dadd(694, -218, -414.5, 1.32)
	pt3dadd(757, -234, -375, 0.53)
	pt3dadd(775, -269, -308.8, 0.79)
  }
  dend[127] {pt3dclear()
	pt3dadd(442, -213, -300, 2.12)
	pt3dadd(514, -308, -375, 1.32)
	pt3dadd(624, -468, -450, 0.79)
  }
}
proc shape3d_3() {
  dend[127] {	pt3dadd(640, -458, -651.1, 0.53)
  }
  dend[128] {pt3dclear()
	pt3dadd(298, -162, -300, 2.38)
	pt3dadd(295, -251, -326.8, 0.53)
	pt3dadd(288, -325, -300, 0.53)
  }
  dend[129] {pt3dclear()
	pt3dadd(168, -89, -314.1, 4.5)
	pt3dadd(182, -81, -389.4, 3.44)
  }
  dend[130] {pt3dclear()
	pt3dadd(182, -81, -389.4, 3.44)
	pt3dadd(355, -97, -510.9, 1.59)
	pt3dadd(514, -115, -525, 1.85)
  }
  dend[131] {pt3dclear()
	pt3dadd(514, -115, -525, 1.85)
	pt3dadd(616, -133, -525, 0.53)
  }
  dend[132] {pt3dclear()
	pt3dadd(514, -115, -525, 1.85)
	pt3dadd(567, 6, -690.8, 1.06)
	pt3dadd(614, -28, -975, 0.53)
	pt3dadd(699, -20, -1050, 0.53)
	pt3dadd(708, 39, -1050, 0.53)
  }
  dend[133] {pt3dclear()
	pt3dadd(182, -81, -389.4, 3.44)
	pt3dadd(238, -89, -450, 2.38)
	pt3dadd(348, -109, -660.1, 2.12)
  }
  dend[134] {pt3dclear()
	pt3dadd(348, -109, -660.1, 2.12)
	pt3dadd(412, -118, -798.8, 0.79)
	pt3dadd(493, -204, -896, 0.26)
  }
  dend[135] {pt3dclear()
	pt3dadd(348, -109, -660.1, 2.12)
	pt3dadd(439, -92, -850.8, 1.32)
	pt3dadd(503, -123, -975, 1.06)
	pt3dadd(590, -255, -1125, 0.79)
	pt3dadd(670, -459, -1200, 0.53)
	pt3dadd(659, -590, -1169, 0.53)
  }
  dend[136] {pt3dclear()
	pt3dadd(65, -46, -180.6, 6.36)
	pt3dadd(129, -52, -150, 3.97)
  }
  dend[137] {pt3dclear()
	pt3dadd(129, -52, -150, 3.97)
	pt3dadd(194, 6, -375, 2.38)
	pt3dadd(210, 74, -575.2, 1.32)
	pt3dadd(298, 188, -730.7, 1.06)
	pt3dadd(345, 319, -750, 0.53)
	pt3dadd(397, 541, -825, 0.79)
	pt3dadd(412, 684, -947.7, 0.53)
  }
  dend[138] {pt3dclear()
	pt3dadd(129, -52, -150, 3.97)
	pt3dadd(258, -82, -150, 3.44)
	pt3dadd(383, -82, -150, 3.44)
  }
  dend[139] {pt3dclear()
	pt3dadd(383, -82, -150, 3.44)
	pt3dadd(492, -59, -225, 2.91)
  }
  dend[140] {pt3dclear()
	pt3dadd(492, -59, -225, 2.91)
	pt3dadd(528, -32, -166.3, 1.06)
	pt3dadd(579, -11, -214.1, 1.06)
  }
  dend[141] {pt3dclear()
	pt3dadd(579, -11, -214.1, 1.06)
	pt3dadd(617, -1, -225, 0.26)
  }
  dend[142] {pt3dclear()
	pt3dadd(579, -11, -214.1, 1.06)
	pt3dadd(742, 65, -101.8, 1.06)
	pt3dadd(904, 70, 0, 0.79)
	pt3dadd(1022, -18, 75, 0.53)
  }
  dend[143] {pt3dclear()
	pt3dadd(492, -59, -225, 2.91)
	pt3dadd(540, -47, -258.89, 2.38)
  }
  dend[144] {pt3dclear()
	pt3dadd(540, -47, -258.89, 2.38)
	pt3dadd(704, -99, -300, 1.06)
	pt3dadd(828, -229, -412.6, 0.79)
	pt3dadd(833, -304, -450, 0.53)
  }
  dend[145] {pt3dclear()
	pt3dadd(540, -47, -258.89, 2.38)
	pt3dadd(557, -39, -225, 2.12)
  }
  dend[146] {pt3dclear()
	pt3dadd(557, -39, -225, 2.12)
	pt3dadd(589, 12, -258.7, 0.53)
  }
  dend[147] {pt3dclear()
	pt3dadd(557, -39, -225, 2.12)
	pt3dadd(645, -24, -225, 1.85)
  }
  dend[148] {pt3dclear()
	pt3dadd(645, -24, -225, 1.85)
	pt3dadd(716, -31, -138.69, 0.53)
	pt3dadd(831, 0, -150, 0.53)
  }
  dend[149] {pt3dclear()
	pt3dadd(645, -24, -225, 1.85)
	pt3dadd(722, 94, -225, 1.59)
	pt3dadd(870, 193, -340.1, 1.32)
	pt3dadd(876, 397, -450, 0.79)
	pt3dadd(862, 597, -518.9, 0.79)
	pt3dadd(721, 647, -451.7, 0.53)
  }
  dend[150] {pt3dclear()
	pt3dadd(383, -82, -150, 3.44)
	pt3dadd(455, -86, -150, 2.12)
  }
  dend[151] {pt3dclear()
	pt3dadd(455, -86, -150, 2.12)
	pt3dadd(622, -103, -150, 1.32)
	pt3dadd(804, -164, -75, 1.06)
	pt3dadd(1095, -234, -75, 0.53)
	pt3dadd(1135, -193, -75, 0.26)
  }
  dend[152] {pt3dclear()
	pt3dadd(455, -86, -150, 2.12)
	pt3dadd(548, -115, -225, 1.06)
  }
  dend[153] {pt3dclear()
	pt3dadd(548, -115, -225, 1.06)
	pt3dadd(628, -151, -261.5, 0.53)
	pt3dadd(686, -224, -249.5, 0.53)
  }
  dend[154] {pt3dclear()
	pt3dadd(548, -115, -225, 1.06)
	pt3dadd(624, -103, -150, 0.79)
	pt3dadd(769, -77, -209.8, 0.79)
	pt3dadd(859, -18, -96.9, 0.79)
  }
  dend[155] {pt3dclear()
	pt3dadd(0, 0, 0, 7.42)
	pt3dadd(-46, 37, -75, 7.42)
  }
  dend[156] {pt3dclear()
	pt3dadd(-46, 37, -75, 7.42)
	pt3dadd(-52, 48, -150, 7.68)
  }
  dend[157] {pt3dclear()
	pt3dadd(-52, 48, -150, 7.68)
	pt3dadd(-145, 161, -258.2, 3.97)
	pt3dadd(-208, 327, -300, 3.44)
  }
  dend[158] {pt3dclear()
	pt3dadd(-208, 327, -300, 3.44)
	pt3dadd(-270, 403, -375, 2.38)
  }
  dend[159] {pt3dclear()
	pt3dadd(-270, 403, -375, 2.38)
	pt3dadd(-390, 551, -375, 1.06)
	pt3dadd(-439, 769, -375, 0.79)
	pt3dadd(-476, 908, -375, 0.26)
  }
  dend[160] {pt3dclear()
	pt3dadd(-270, 403, -375, 2.38)
	pt3dadd(-350, 549, -506.3, 2.12)
	pt3dadd(-440, 689, -637.6, 1.59)
	pt3dadd(-584, 742, -675, 1.59)
	pt3dadd(-758, 732, -795.7, 1.32)
	pt3dadd(-799, 810, -825, 0.53)
  }
  dend[161] {pt3dclear()
	pt3dadd(-208, 327, -300, 3.44)
	pt3dadd(-216, 505, -381.7, 1.85)
	pt3dadd(-225, 669, -486.8, 1.85)
  }
  dend[162] {pt3dclear()
	pt3dadd(-225, 669, -486.8, 1.85)
	pt3dadd(-241, 701, -525, 0.53)
  }
  dend[163] {pt3dclear()
	pt3dadd(-225, 669, -486.8, 1.85)
	pt3dadd(-199, 847, -450, 1.59)
	pt3dadd(-159, 1035, -375, 1.59)
	pt3dadd(-84, 1091, -225, 0.79)
  }
  dend[164] {pt3dclear()
	pt3dadd(-52, 48, -150, 7.68)
	pt3dadd(-84, 83, -296.5, 4.24)
	pt3dadd(-79, 113, -447.5, 4.24)
  }
  dend[165] {pt3dclear()
	pt3dadd(-79, 113, -447.5, 4.24)
	pt3dadd(-69, 138, -497.7, 2.65)
  }
  dend[166] {pt3dclear()
	pt3dadd(-69, 138, -497.7, 2.65)
	pt3dadd(-53, 168, -581.1, 1.85)
	pt3dadd(-35, 199, -663.6, 1.85)
  }
  dend[167] {pt3dclear()
	pt3dadd(-35, 199, -663.6, 1.85)
	pt3dadd(-21, 176, -671.3, 0.53)
  }
  dend[168] {pt3dclear()
	pt3dadd(-35, 199, -663.6, 1.85)
	pt3dadd(-18, 317, -750, 1.32)
	pt3dadd(52, 478, -900, 0.79)
	pt3dadd(122, 501, -1099, 0.79)
	pt3dadd(206, 492, -1200, 0.79)
	pt3dadd(273, 355, -1275, 0.53)
  }
  dend[169] {pt3dclear()
	pt3dadd(-69, 138, -497.7, 2.65)
	pt3dadd(-103, 260, -667.7, 1.06)
	pt3dadd(-166, 427, -750, 0.53)
  }
  dend[170] {pt3dclear()
	pt3dadd(-79, 113, -447.5, 4.24)
	pt3dadd(-4, 80, -450, 2.38)
	pt3dadd(102, 77, -525, 1.85)
  }
  dend[171] {pt3dclear()
	pt3dadd(102, 77, -525, 1.85)
	pt3dadd(119, 96, -547.5, 0.53)
  }
  dend[172] {pt3dclear()
	pt3dadd(102, 77, -525, 1.85)
	pt3dadd(242, 87, -683.9, 1.32)
	pt3dadd(298, 110, -887.1, 1.32)
	pt3dadd(299, 48, -975, 1.06)
	pt3dadd(368, 43, -1200, 0.79)
	pt3dadd(507, 86, -1479, 0.53)
  }
  dend[173] {pt3dclear()
	pt3dadd(-46, 37, -75, 7.42)
	pt3dadd(-148, 38, -75, 3.44)
  }
  dend[174] {pt3dclear()
	pt3dadd(-148, 38, -75, 3.44)
	pt3dadd(-201, 37, 0, 2.65)
  }
  dend[175] {pt3dclear()
	pt3dadd(-201, 37, 0, 2.65)
	pt3dadd(-234, 45, -33.93, 1.85)
  }
  dend[176] {pt3dclear()
	pt3dadd(-234, 45, -33.93, 1.85)
	pt3dadd(-304, 42, 15.94, 0.79)
	pt3dadd(-362, 44, 78.05, 0.53)
  }
  dend[177] {pt3dclear()
	pt3dadd(-234, 45, -33.93, 1.85)
	pt3dadd(-402, 130, 63.52, 1.85)
	pt3dadd(-563, 181, 150, 1.32)
	pt3dadd(-676, 282, 298.2, 1.06)
	pt3dadd(-841, 339, 375, 0.79)
	pt3dadd(-992, 352, 375, 0.53)
	pt3dadd(-1007, 240, 201.6, 0.53)
  }
  dend[178] {pt3dclear()
	pt3dadd(-201, 37, 0, 2.65)
	pt3dadd(-384, -14, 34.04, 0.79)
	pt3dadd(-495, -87, 150, 0.79)
  }
  dend[179] {pt3dclear()
	pt3dadd(-148, 38, -75, 3.44)
	pt3dadd(-230, 31, -75, 2.12)
	pt3dadd(-292, 46, -124.9, 1.85)
  }
  dend[180] {pt3dclear()
	pt3dadd(-292, 46, -124.9, 1.85)
	pt3dadd(-353, 140, -75, 1.06)
	pt3dadd(-393, 256, -150, 0.79)
  }
  dend[181] {pt3dclear()
	pt3dadd(-292, 46, -124.9, 1.85)
	pt3dadd(-478, 56, -150, 1.85)
	pt3dadd(-678, 70, -225, 1.59)
	pt3dadd(-875, 168, -225, 1.32)
	pt3dadd(-947, 276, -300, 0.79)
	pt3dadd(-1056, 379, -449.8, 0.53)
	pt3dadd(-1151, 537, -450, 0.53)
	pt3dadd(-1171, 570, -525, 0.53)
  }
  dend[182] {pt3dclear()
	pt3dadd(0, 0, 0, 7.95)
	pt3dadd(24, -37, -30.46, 7.95)
  }
  dend[183] {pt3dclear()
	pt3dadd(24, -37, -30.46, 7.95)
	pt3dadd(47, -116, 36.36, 6.09)
	pt3dadd(94, -176, 75, 4.24)
  }
  dend[184] {pt3dclear()
	pt3dadd(94, -176, 75, 4.24)
	pt3dadd(129, -210, 116.4, 2.91)
	pt3dadd(147, -246, 164.9, 3.18)
  }
  dend[185] {pt3dclear()
	pt3dadd(147, -246, 164.9, 3.18)
	pt3dadd(178, -251, 0, 1.59)
	pt3dadd(186, -269, 62.99, 1.32)
  }
  dend[186] {pt3dclear()
	pt3dadd(186, -269, 62.99, 1.32)
	pt3dadd(208, -345, 375, 0.79)
	pt3dadd(245, -386, 450, 0.53)
  }
  dend[187] {pt3dclear()
	pt3dadd(186, -269, 62.99, 1.32)
	pt3dadd(326, -285, 225, 1.85)
	pt3dadd(529, -243, 300, 1.32)
	pt3dadd(693, -291, 450, 1.06)
	pt3dadd(916, -348, 525, 0.53)
  }
  dend[188] {pt3dclear()
	pt3dadd(147, -246, 164.9, 3.18)
	pt3dadd(122, -277, 224.9, 2.38)
  }
}
proc shape3d_4() {
  dend[188] {	pt3dadd(114, -316, 284.89, 2.38)
  }
  dend[189] {pt3dclear()
	pt3dadd(114, -316, 284.89, 2.38)
	pt3dadd(114, -452, 375, 1.59)
	pt3dadd(114, -594, 450, 1.59)
  }
  dend[190] {pt3dclear()
	pt3dadd(114, -594, 450, 1.59)
	pt3dadd(142, -616, 450, 0.26)
  }
  dend[191] {pt3dclear()
	pt3dadd(114, -594, 450, 1.59)
	pt3dadd(136, -762, 525, 1.32)
	pt3dadd(70, -917, 675, 1.06)
	pt3dadd(-51, -1012, 675, 0.53)
  }
  dend[192] {pt3dclear()
	pt3dadd(114, -316, 284.89, 2.38)
	pt3dadd(73, -354, 374.9, 1.85)
	pt3dadd(77, -405, 450, 2.12)
  }
  dend[193] {pt3dclear()
	pt3dadd(77, -405, 450, 2.12)
	pt3dadd(98, -435, 406.3, 1.85)
  }
  dend[194] {pt3dclear()
	pt3dadd(98, -435, 406.3, 1.85)
	pt3dadd(98, -548, 600, 1.32)
	pt3dadd(17, -646, 675, 0.79)
  }
  dend[195] {pt3dclear()
	pt3dadd(98, -435, 406.3, 1.85)
	pt3dadd(114, -482, 525, 1.32)
	pt3dadd(138, -517, 636.2, 0.26)
  }
  dend[196] {pt3dclear()
	pt3dadd(77, -405, 450, 2.12)
	pt3dadd(88, -537, 600, 1.06)
	pt3dadd(36, -644, 750, 0.53)
  }
  dend[197] {pt3dclear()
	pt3dadd(94, -176, 75, 4.24)
	pt3dadd(126, -235, 108.5, 2.38)
	pt3dadd(152, -289, 150, 2.38)
  }
  dend[198] {pt3dclear()
	pt3dadd(152, -289, 150, 2.38)
	pt3dadd(356, -397, 150, 1.32)
	pt3dadd(596, -469, 150, 1.32)
	pt3dadd(823, -485, 150, 0.79)
	pt3dadd(902, -490, 375, 0.53)
  }
  dend[199] {pt3dclear()
	pt3dadd(152, -289, 150, 2.38)
	pt3dadd(185, -466, 150, 1.85)
	pt3dadd(262, -618, 375, 1.85)
	pt3dadd(345, -835, 450, 1.85)
	pt3dadd(408, -976, 595.2, 2.12)
  }
  dend[200] {pt3dclear()
	pt3dadd(408, -976, 595.2, 2.12)
	pt3dadd(482, -1046, 600, 0.79)
  }
  dend[201] {pt3dclear()
	pt3dadd(408, -976, 595.2, 2.12)
	pt3dadd(404, -974, 675, 0.79)
	pt3dadd(443, -1015, 750, 0.53)
  }
  dend[202] {pt3dclear()
	pt3dadd(24, -37, -30.46, 7.95)
	pt3dadd(84, -85, 0, 5.3)
	pt3dadd(134, -146, 0, 5.56)
  }
  dend[203] {pt3dclear()
	pt3dadd(134, -146, 0, 5.56)
	pt3dadd(151, -199, -27.31, 3.18)
  }
  dend[204] {pt3dclear()
	pt3dadd(151, -199, -27.31, 3.18)
	pt3dadd(200, -224, -78.29, 2.38)
  }
  dend[205] {pt3dclear()
	pt3dadd(200, -224, -78.29, 2.38)
	pt3dadd(187, -278, -150, 0.79)
	pt3dadd(145, -337, -201.7, 0.26)
  }
  dend[206] {pt3dclear()
	pt3dadd(200, -224, -78.29, 2.38)
	pt3dadd(229, -245, -150, 2.12)
	pt3dadd(258, -254, -225, 2.12)
  }
  dend[207] {pt3dclear()
	pt3dadd(258, -254, -225, 2.12)
	pt3dadd(245, -194, -427.9, 1.06)
	pt3dadd(151, -116, -525, 1.32)
	pt3dadd(134, 26, -681.5, 0.79)
	pt3dadd(130, 209, -728.6, 0.53)
  }
  dend[208] {pt3dclear()
	pt3dadd(258, -254, -225, 2.12)
	pt3dadd(273, -258, -237.6, 1.59)
  }
  dend[209] {pt3dclear()
	pt3dadd(273, -258, -237.6, 1.59)
	pt3dadd(364, -354, -300, 0.79)
	pt3dadd(399, -484, -463.8, 0.79)
	pt3dadd(326, -446, -450, 0.26)
  }
  dend[210] {pt3dclear()
	pt3dadd(273, -258, -237.6, 1.59)
	pt3dadd(376, -262, -300, 1.32)
	pt3dadd(492, -252, -436, 1.06)
  }
  dend[211] {pt3dclear()
	pt3dadd(492, -252, -436, 1.06)
	pt3dadd(622, -175, -375, 1.06)
	pt3dadd(784, -247, -456.2, 0.53)
  }
  dend[212] {pt3dclear()
	pt3dadd(492, -252, -436, 1.06)
	pt3dadd(510, -282, -368.5, 0.53)
  }
  dend[213] {pt3dclear()
	pt3dadd(151, -199, -27.31, 3.18)
	pt3dadd(175, -262, 0, 2.65)
	pt3dadd(196, -318, -4.79, 2.65)
  }
  dend[214] {pt3dclear()
	pt3dadd(196, -318, -4.79, 2.65)
	pt3dadd(213, -459, 150, 1.06)
	pt3dadd(240, -576, 300, 0.79)
  }
  dend[215] {pt3dclear()
	pt3dadd(196, -318, -4.79, 2.65)
	pt3dadd(246, -402, -37.25, 2.12)
  }
  dend[216] {pt3dclear()
	pt3dadd(246, -402, -37.25, 2.12)
	pt3dadd(285, -560, 75, 1.59)
	pt3dadd(449, -688, 34.21, 1.06)
	pt3dadd(558, -866, 75, 0.79)
	pt3dadd(649, -1005, 300, 0.53)
  }
  dend[217] {pt3dclear()
	pt3dadd(246, -402, -37.25, 2.12)
	pt3dadd(315, -446, 0, 1.32)
  }
  dend[218] {pt3dclear()
	pt3dadd(315, -446, 0, 1.32)
	pt3dadd(301, -494, 0, 0.53)
  }
  dend[219] {pt3dclear()
	pt3dadd(315, -446, 0, 1.32)
	pt3dadd(468, -582, -55.13, 1.06)
	pt3dadd(610, -748, 0, 0.53)
	pt3dadd(751, -868, 75, 0.53)
  }
  dend[220] {pt3dclear()
	pt3dadd(134, -146, 0, 5.56)
	pt3dadd(216, -195, 0, 3.18)
  }
  dend[221] {pt3dclear()
	pt3dadd(216, -195, 0, 3.18)
	pt3dadd(305, -230, -75, 1.85)
	pt3dadd(360, -262, -24.88, 1.59)
  }
  dend[222] {pt3dclear()
	pt3dadd(360, -262, -24.88, 1.59)
	pt3dadd(374, -256, 0, 1.06)
	pt3dadd(502, -216, -196.6, 1.32)
	pt3dadd(665, -180, -366.3, 1.06)
  }
  dend[223] {pt3dclear()
	pt3dadd(360, -262, -24.88, 1.59)
	pt3dadd(547, -356, 75, 0.79)
	pt3dadd(731, -394, 232.2, 0.53)
  }
  dend[224] {pt3dclear()
	pt3dadd(216, -195, 0, 3.18)
	pt3dadd(249, -221, -13.08, 3.18)
  }
  dend[225] {pt3dclear()
	pt3dadd(249, -221, -13.08, 3.18)
	pt3dadd(302, -337, 75, 1.32)
	pt3dadd(400, -529, 150, 1.06)
	pt3dadd(649, -708, 225, 0.79)
  }
  dend[226] {pt3dclear()
	pt3dadd(249, -221, -13.08, 3.18)
	pt3dadd(261, -233, -54.75, 2.91)
  }
  dend[227] {pt3dclear()
	pt3dadd(261, -233, -54.75, 2.91)
	pt3dadd(289, -221, 0, 2.38)
  }
  dend[228] {pt3dclear()
	pt3dadd(289, -221, 0, 2.38)
	pt3dadd(454, -244, 131.1, 1.32)
	pt3dadd(638, -219, 225, 1.32)
	pt3dadd(844, -185, 188.2, 1.06)
	pt3dadd(960, -97, 342.3, 0.79)
	pt3dadd(996, 16, 422.2, 0.26)
  }
  dend[229] {pt3dclear()
	pt3dadd(289, -221, 0, 2.38)
	pt3dadd(476, -233, 75, 1.06)
	pt3dadd(672, -292, 130.19, 0.79)
	pt3dadd(872, -365, 225, 0.79)
	pt3dadd(916, -256, 300, 0.53)
  }
  dend[230] {pt3dclear()
	pt3dadd(261, -233, -54.75, 2.91)
	pt3dadd(372, -313, 107.2, 1.59)
	pt3dadd(506, -436, 225, 1.06)
	pt3dadd(611, -538, 378.3, 1.32)
	pt3dadd(716, -626, 525, 1.32)
	pt3dadd(884, -683, 600, 1.06)
	pt3dadd(874, -584, 426.5, 0.79)
  }
  dend[231] {pt3dclear()
	pt3dadd(0, 0, 0, 5.03)
	pt3dadd(24, 45, -61.12, 5.03)
	pt3dadd(40, 73, 0, 4.77)
  }
  dend[232] {pt3dclear()
	pt3dadd(40, 73, 0, 4.77)
	pt3dadd(50, 83, 66.51, 1.59)
	pt3dadd(61, 90, 132.19, 1.59)
  }
  dend[233] {pt3dclear()
	pt3dadd(61, 90, 132.19, 1.59)
	pt3dadd(-10, 135, 300, 1.06)
	pt3dadd(-158, 156, 450, 1.06)
  }
  dend[234] {pt3dclear()
	pt3dadd(61, 90, 132.19, 1.59)
	pt3dadd(44, 158, 211.8, 0.79)
	pt3dadd(32, 210, 225, 0.79)
  }
  dend[235] {pt3dclear()
	pt3dadd(40, 73, 0, 4.77)
	pt3dadd(41, 108, 0, 4.5)
  }
  dend[236] {pt3dclear()
	pt3dadd(41, 108, 0, 4.5)
	pt3dadd(37, 145, 132.9, 0.79)
  }
  dend[237] {pt3dclear()
	pt3dadd(41, 108, 0, 4.5)
	pt3dadd(50, 125, 33.93, 3.97)
  }
  dend[238] {pt3dclear()
	pt3dadd(50, 125, 33.93, 3.97)
	pt3dadd(54, 277, -15.87, 2.38)
	pt3dadd(139, 393, -86.01, 2.65)
  }
  dend[239] {pt3dclear()
	pt3dadd(139, 393, -86.01, 2.65)
	pt3dadd(188, 461, -109.3, 2.12)
	pt3dadd(257, 516, -75, 1.85)
  }
  dend[240] {pt3dclear()
	pt3dadd(257, 516, -75, 1.85)
	pt3dadd(304, 676, -75, 1.32)
	pt3dadd(325, 881, -25.22, 0.79)
	pt3dadd(432, 835, 0, 0.26)
  }
  dend[241] {pt3dclear()
	pt3dadd(257, 516, -75, 1.85)
	pt3dadd(344, 542, -150, 0.79)
	pt3dadd(430, 605, -150, 0.79)
  }
  dend[242] {pt3dclear()
	pt3dadd(430, 605, -150, 0.79)
	pt3dadd(444, 641, -160.4, 0.53)
  }
  dend[243] {pt3dclear()
	pt3dadd(430, 605, -150, 0.79)
	pt3dadd(481, 605, -193.5, 0.53)
	pt3dadd(537, 601, -158.8, 0.26)
  }
  dend[244] {pt3dclear()
	pt3dadd(139, 393, -86.01, 2.65)
	pt3dadd(141, 406, -75, 1.32)
  }
  dend[245] {pt3dclear()
	pt3dadd(141, 406, -75, 1.32)
	pt3dadd(201, 423, -150, 0.79)
  }
  dend[246] {pt3dclear()
	pt3dadd(141, 406, -75, 1.32)
	pt3dadd(123, 446, -150, 1.06)
	pt3dadd(115, 500, -179.4, 1.06)
  }
  dend[247] {pt3dclear()
	pt3dadd(115, 500, -179.4, 1.06)
	pt3dadd(94, 605, -154.19, 0.79)
	pt3dadd(62, 722, -150, 0.53)
  }
  dend[248] {pt3dclear()
	pt3dadd(115, 500, -179.4, 1.06)
	pt3dadd(137, 588, -352, 0.79)
	pt3dadd(125, 810, -375, 0.53)
  }
  dend[249] {pt3dclear()
	pt3dadd(50, 125, 33.93, 3.97)
	pt3dadd(66, 169, 75, 2.65)
	pt3dadd(82, 226, 114.2, 2.38)
  }
  dend[250] {pt3dclear()
	pt3dadd(82, 226, 114.2, 2.38)
	pt3dadd(67, 285, 150, 0.53)
  }
  dend[251] {pt3dclear()
	pt3dadd(82, 226, 114.2, 2.38)
	pt3dadd(108, 286, 150, 2.12)
  }
  dend[252] {pt3dclear()
	pt3dadd(108, 286, 150, 2.12)
	pt3dadd(86, 338, 150, 0.53)
  }
  dend[253] {pt3dclear()
	pt3dadd(108, 286, 150, 2.12)
	pt3dadd(124, 327, 118.7, 2.12)
  }
  dend[254] {pt3dclear()
	pt3dadd(124, 327, 118.7, 2.12)
	pt3dadd(156, 532, 75.18, 1.32)
	pt3dadd(221, 690, 150, 1.06)
  }
  dend[255] {pt3dclear()
	pt3dadd(124, 327, 118.7, 2.12)
	pt3dadd(228, 527, 225, 1.85)
  }
}
proc shape3d_5() {
  dend[255] {	pt3dadd(300, 701, 300, 1.85)
	pt3dadd(297, 755, 225, 1.32)
	pt3dadd(437, 718, 225, 0.53)
  }
  dend[256] {pt3dclear()
	pt3dadd(0, 0, 0, 10.86)
	pt3dadd(-50, -31, -18.26, 10.86)
  }
  dend[257] {pt3dclear()
	pt3dadd(-50, -31, -18.26, 10.86)
	pt3dadd(-142, -61, -84.03, 3.97)
	pt3dadd(-244, -67, -150, 3.71)
  }
  dend[258] {pt3dclear()
	pt3dadd(-244, -67, -150, 3.71)
	pt3dadd(-270, -43, -182.4, 2.38)
  }
  dend[259] {pt3dclear()
	pt3dadd(-270, -43, -182.4, 2.38)
	pt3dadd(-444, -10, -150, 1.59)
	pt3dadd(-601, -27, -150, 1.32)
	pt3dadd(-781, -85, -75, 1.06)
	pt3dadd(-963, -170, -150, 0.79)
	pt3dadd(-1099, -206, -300, 0.79)
  }
  dend[260] {pt3dclear()
	pt3dadd(-270, -43, -182.4, 2.38)
	pt3dadd(-288, -53, -151.69, 1.85)
  }
  dend[261] {pt3dclear()
	pt3dadd(-288, -53, -151.69, 1.85)
	pt3dadd(-288, -65, -300, 1.06)
	pt3dadd(-303, -60, -407.8, 0.79)
  }
  dend[262] {pt3dclear()
	pt3dadd(-288, -53, -151.69, 1.85)
	pt3dadd(-397, -56, -333.5, 1.59)
	pt3dadd(-548, -38, -481.2, 1.06)
	pt3dadd(-665, -32, -657.9, 1.06)
	pt3dadd(-674, 48, -864.8, 0.53)
  }
  dend[263] {pt3dclear()
	pt3dadd(-244, -67, -150, 3.71)
	pt3dadd(-297, -97, -150, 2.38)
  }
  dend[264] {pt3dclear()
	pt3dadd(-297, -97, -150, 2.38)
	pt3dadd(-482, -133, -75, 1.85)
	pt3dadd(-680, -132, -150.8, 1.59)
	pt3dadd(-881, -155, -214.1, 1.32)
	pt3dadd(-991, -154, -300, 0.79)
	pt3dadd(-1042, 19, -411.4, 0.53)
	pt3dadd(-1064, 125, -335.9, 0.53)
  }
  dend[265] {pt3dclear()
	pt3dadd(-297, -97, -150, 2.38)
	pt3dadd(-359, -222, -225, 1.85)
	pt3dadd(-464, -357, -350.3, 1.32)
	pt3dadd(-563, -542, -450, 0.79)
	pt3dadd(-534, -800, -552.2, 0.79)
  }
  dend[266] {pt3dclear()
	pt3dadd(-50, -31, -18.26, 10.86)
	pt3dadd(-59, -44, -9.66, 11.13)
  }
  dend[267] {pt3dclear()
	pt3dadd(-59, -44, -9.66, 11.13)
	pt3dadd(-49, -191, -60.92, 2.38)
	pt3dadd(-55, -332, 3.17, 2.38)
  }
  dend[268] {pt3dclear()
	pt3dadd(-55, -332, 3.17, 2.38)
	pt3dadd(0, -408, 94.61, 1.85)
	pt3dadd(-9, -499, 188.4, 1.59)
  }
  dend[269] {pt3dclear()
	pt3dadd(-9, -499, 188.4, 1.59)
	pt3dadd(114, -596, 366.3, 1.06)
	pt3dadd(225, -700, 548, 0.79)
  }
  dend[270] {pt3dclear()
	pt3dadd(-9, -499, 188.4, 1.59)
	pt3dadd(-19, -589, 300, 1.32)
	pt3dadd(24, -645, 419.7, 1.32)
  }
  dend[271] {pt3dclear()
	pt3dadd(24, -645, 419.7, 1.32)
	pt3dadd(46, -703, 505.7, 0.79)
	pt3dadd(49, -755, 592.2, 0.53)
  }
  dend[272] {pt3dclear()
	pt3dadd(24, -645, 419.7, 1.32)
	pt3dadd(53, -790, 571.6, 1.59)
	pt3dadd(244, -922, 600, 0.53)
  }
  dend[273] {pt3dclear()
	pt3dadd(-55, -332, 3.17, 2.38)
	pt3dadd(-89, -368, 0, 1.85)
  }
  dend[274] {pt3dclear()
	pt3dadd(-89, -368, 0, 1.85)
	pt3dadd(-75, -401, 75, 0.53)
	pt3dadd(-77, -441, 114.1, 0.53)
  }
  dend[275] {pt3dclear()
	pt3dadd(-89, -368, 0, 1.85)
	pt3dadd(-136, -417, 75, 1.85)
	pt3dadd(-158, -464, 133.19, 1.85)
  }
  dend[276] {pt3dclear()
	pt3dadd(-158, -464, 133.19, 1.85)
	pt3dadd(-188, -582, 150, 0.79)
  }
  dend[277] {pt3dclear()
	pt3dadd(-158, -464, 133.19, 1.85)
	pt3dadd(-256, -596, 267.1, 1.59)
	pt3dadd(-310, -754, 397.7, 1.32)
	pt3dadd(-407, -885, 525, 1.32)
	pt3dadd(-542, -1026, 525, 1.06)
	pt3dadd(-435, -1123, 450, 0.53)
  }
  dend[278] {pt3dclear()
	pt3dadd(-59, -44, -9.66, 11.13)
	pt3dadd(-169, -55, 0, 7.15)
  }
  dend[279] {pt3dclear()
	pt3dadd(-169, -55, 0, 7.15)
	pt3dadd(-173, -29, 75, 2.12)
	pt3dadd(-201, -21, 150, 1.59)
  }
  dend[280] {pt3dclear()
	pt3dadd(-201, -21, 150, 1.59)
	pt3dadd(-245, -22, 225, 0.79)
	pt3dadd(-284, -9, 300, 0.79)
  }
  dend[281] {pt3dclear()
	pt3dadd(-201, -21, 150, 1.59)
	pt3dadd(-268, -115, 300, 1.32)
	pt3dadd(-287, -256, 457.2, 1.59)
	pt3dadd(-308, -417, 666.6, 1.06)
  }
  dend[282] {pt3dclear()
	pt3dadd(-169, -55, 0, 7.15)
	pt3dadd(-213, -70, -34.68, 6.62)
  }
  dend[283] {pt3dclear()
	pt3dadd(-213, -70, -34.68, 6.62)
	pt3dadd(-314, -43, 0, 3.44)
  }
  dend[284] {pt3dclear()
	pt3dadd(-314, -43, 0, 3.44)
	pt3dadd(-347, 8, 25.81, 1.32)
	pt3dadd(-394, 3, 70.43, 1.06)
  }
  dend[285] {pt3dclear()
	pt3dadd(-394, 3, 70.43, 1.06)
	pt3dadd(-415, 2, 225, 1.06)
	pt3dadd(-312, 102, 300, 0.79)
  }
  dend[286] {pt3dclear()
	pt3dadd(-394, 3, 70.43, 1.06)
	pt3dadd(-441, 26, 95.45, 0.53)
  }
  dend[287] {pt3dclear()
	pt3dadd(-314, -43, 0, 3.44)
	pt3dadd(-370, -54, -24.23, 2.65)
  }
  dend[288] {pt3dclear()
	pt3dadd(-370, -54, -24.23, 2.65)
	pt3dadd(-443, -39, 0, 2.12)
  }
  dend[289] {pt3dclear()
	pt3dadd(-443, -39, 0, 2.12)
	pt3dadd(-594, 26, 75, 1.32)
	pt3dadd(-728, 89, 225, 1.32)
	pt3dadd(-764, 221, 300, 1.06)
	pt3dadd(-795, 301, 333.2, 1.06)
  }
  dend[290] {pt3dclear()
	pt3dadd(-443, -39, 0, 2.12)
	pt3dadd(-620, -50, -116.2, 1.59)
	pt3dadd(-808, -64, -225, 1.32)
	pt3dadd(-925, -37, -399.7, 0.79)
	pt3dadd(-1030, -105, -450, 0.79)
	pt3dadd(-1096, -114, -600, 0.26)
  }
  dend[291] {pt3dclear()
	pt3dadd(-370, -54, -24.23, 2.65)
	pt3dadd(-614, 21, -75, 1.85)
	pt3dadd(-810, 50, 0, 1.59)
	pt3dadd(-956, 179, -83.59, 0.53)
	pt3dadd(-1043, 310, -150, 0.53)
	pt3dadd(-1130, 494, -225, 0.53)
	pt3dadd(-1178, 648, -300, 0.53)
  }
  dend[292] {pt3dclear()
	pt3dadd(-213, -70, -34.68, 6.62)
	pt3dadd(-246, -84, 0, 7.15)
  }
  dend[293] {pt3dclear()
	pt3dadd(-246, -84, 0, 7.15)
	pt3dadd(-297, -70, 21.26, 3.71)
	pt3dadd(-349, -57, 5.04, 3.18)
  }
  dend[294] {pt3dclear()
	pt3dadd(-349, -57, 5.04, 3.18)
	pt3dadd(-411, -31, 289.2, 2.38)
  }
  dend[295] {pt3dclear()
	pt3dadd(-411, -31, 289.2, 2.38)
	pt3dadd(-465, -17, 496.8, 1.06)
	pt3dadd(-458, 0, 675, 0.79)
  }
  dend[296] {pt3dclear()
	pt3dadd(-411, -31, 289.2, 2.38)
	pt3dadd(-497, -99, 450, 1.32)
	pt3dadd(-509, -202, 600, 1.59)
	pt3dadd(-564, -262, 675, 1.06)
	pt3dadd(-564, -384, 501.6, 0.79)
	pt3dadd(-701, -436, 375, 0.79)
  }
  dend[297] {pt3dclear()
	pt3dadd(-349, -57, 5.04, 3.18)
	pt3dadd(-431, -64, 76.51, 2.38)
	pt3dadd(-518, -74, 150, 2.38)
  }
  dend[298] {pt3dclear()
	pt3dadd(-518, -74, 150, 2.38)
	pt3dadd(-541, -9, 249.4, 0.79)
	pt3dadd(-585, 66, 332.1, 0.53)
  }
  dend[299] {pt3dclear()
	pt3dadd(-518, -74, 150, 2.38)
	pt3dadd(-602, -106, 225, 1.59)
	pt3dadd(-690, -114, 225, 1.32)
  }
  dend[300] {pt3dclear()
	pt3dadd(-690, -114, 225, 1.32)
	pt3dadd(-786, -99, 165.4, 0.79)
	pt3dadd(-890, -88, 210.8, 0.53)
  }
  dend[301] {pt3dclear()
	pt3dadd(-690, -114, 225, 1.32)
	pt3dadd(-812, -173, 300, 1.32)
	pt3dadd(-985, -307, 300, 1.85)
	pt3dadd(-1134, -389, 300, 0.79)
	pt3dadd(-1206, -337, 114.1, 0.53)
  }
  dend[302] {pt3dclear()
	pt3dadd(-246, -84, 0, 7.15)
	pt3dadd(-287, -111, 24.8, 4.77)
  }
  dend[303] {pt3dclear()
	pt3dadd(-287, -111, 24.8, 4.77)
	pt3dadd(-443, -143, -14.39, 2.38)
	pt3dadd(-612, -144, 0, 1.85)
  }
  dend[304] {pt3dclear()
	pt3dadd(-612, -144, 0, 1.85)
	pt3dadd(-692, -123, 0, 0.79)
	pt3dadd(-806, -125, -75, 0.79)
  }
  dend[305] {pt3dclear()
	pt3dadd(-612, -144, 0, 1.85)
	pt3dadd(-838, -184, 0, 1.32)
	pt3dadd(-958, -232, -168, 1.06)
	pt3dadd(-985, -180, -371.8, 0.79)
	pt3dadd(-1008, -142, -491.8, 0.53)
  }
  dend[306] {pt3dclear()
	pt3dadd(-287, -111, 24.8, 4.77)
	pt3dadd(-328, -137, 75, 4.24)
	pt3dadd(-356, -175, 130.69, 4.24)
  }
  dend[307] {pt3dclear()
	pt3dadd(-356, -175, 130.69, 4.24)
	pt3dadd(-386, -200, 150, 2.91)
  }
  dend[308] {pt3dclear()
	pt3dadd(-386, -200, 150, 2.91)
	pt3dadd(-552, -267, 150, 1.06)
	pt3dadd(-743, -335, 75, 0.79)
	pt3dadd(-897, -284, -75, 0.53)
	pt3dadd(-1056, -212, -150, 0.53)
  }
  dend[309] {pt3dclear()
	pt3dadd(-386, -200, 150, 2.91)
	pt3dadd(-451, -308, 150, 1.85)
	pt3dadd(-485, -379, 225, 2.12)
  }
  dend[310] {pt3dclear()
	pt3dadd(-485, -379, 225, 2.12)
	pt3dadd(-506, -408, 207.2, 2.12)
  }
  dend[311] {pt3dclear()
	pt3dadd(-506, -408, 207.2, 2.12)
	pt3dadd(-647, -399, 300, 1.06)
	pt3dadd(-824, -427, 375, 0.53)
  }
  dend[312] {pt3dclear()
	pt3dadd(-506, -408, 207.2, 2.12)
	pt3dadd(-521, -481, 300, 1.85)
	pt3dadd(-599, -561, 377.5, 1.85)
  }
  dend[313] {pt3dclear()
	pt3dadd(-599, -561, 377.5, 1.85)
	pt3dadd(-662, -591, 489.6, 1.32)
	pt3dadd(-720, -648, 592.29, 0.79)
  }
  dend[314] {pt3dclear()
	pt3dadd(-599, -561, 377.5, 1.85)
	pt3dadd(-688, -693, 517.5, 1.32)
	pt3dadd(-732, -858, 643.2, 1.06)
	pt3dadd(-892, -972, 750, 0.53)
  }
  dend[315] {pt3dclear()
	pt3dadd(-485, -379, 225, 2.12)
	pt3dadd(-525, -448, 225, 0.53)
	pt3dadd(-566, -461, 168.5, 0.53)
  }
  dend[316] {pt3dclear()
	pt3dadd(-356, -175, 130.69, 4.24)
  }
}
proc shape3d_6() {
  dend[316] {	pt3dadd(-373, -228, 225, 2.12)
	pt3dadd(-398, -253, 343.9, 2.38)
  }
  dend[317] {pt3dclear()
	pt3dadd(-398, -253, 343.9, 2.38)
	pt3dadd(-460, -374, 464.8, 2.12)
	pt3dadd(-542, -481, 585.6, 1.85)
  }
  dend[318] {pt3dclear()
	pt3dadd(-542, -481, 585.6, 1.85)
	pt3dadd(-555, -546, 600, 0.53)
  }
  dend[319] {pt3dclear()
	pt3dadd(-542, -481, 585.6, 1.85)
	pt3dadd(-489, -608, 675, 1.06)
	pt3dadd(-710, -611, 675, 1.06)
	pt3dadd(-825, -583, 750, 0.53)
  }
  dend[320] {pt3dclear()
	pt3dadd(-398, -253, 343.9, 2.38)
	pt3dadd(-452, -260, 375, 1.85)
  }
  dend[321] {pt3dclear()
	pt3dadd(-452, -260, 375, 1.85)
	pt3dadd(-495, -225, 330.6, 0.79)
	pt3dadd(-546, -185, 354.3, 0.53)
  }
  dend[322] {pt3dclear()
	pt3dadd(-452, -260, 375, 1.85)
	pt3dadd(-584, -283, 525, 1.85)
	pt3dadd(-661, -364, 675, 1.59)
	pt3dadd(-910, -436, 750, 0.53)
  }
  dend[323] {pt3dclear()
	pt3dadd(0, 0, 0, 6.62)
	pt3dadd(74, -8, -40.21, 6.62)
	pt3dadd(135, -36, -75, 6.89)
  }
  dend[324] {pt3dclear()
	pt3dadd(135, -36, -75, 6.89)
	pt3dadd(208, -42, -75, 3.97)
	pt3dadd(281, -55, -75, 3.71)
  }
  dend[325] {pt3dclear()
	pt3dadd(281, -55, -75, 3.71)
	pt3dadd(440, 12, -75, 1.32)
	pt3dadd(649, -18, -150, 1.06)
	pt3dadd(830, -118, -150, 0.53)
  }
  dend[326] {pt3dclear()
	pt3dadd(281, -55, -75, 3.71)
	pt3dadd(355, -60, 0, 3.44)
	pt3dadd(418, -45, 66.75, 3.18)
  }
  dend[327] {pt3dclear()
	pt3dadd(418, -45, 66.75, 3.18)
	pt3dadd(444, -29, 127.5, 1.59)
	pt3dadd(465, -6, 150, 1.32)
  }
  dend[328] {pt3dclear()
	pt3dadd(465, -6, 150, 1.32)
	pt3dadd(461, 28, 207.6, 0.79)
  }
  dend[329] {pt3dclear()
	pt3dadd(465, -6, 150, 1.32)
	pt3dadd(502, 81, 300, 1.06)
	pt3dadd(595, 236, 225, 1.06)
	pt3dadd(691, 303, 300, 0.53)
  }
  dend[330] {pt3dclear()
	pt3dadd(418, -45, 66.75, 3.18)
	pt3dadd(450, -37, 75, 2.91)
  }
  dend[331] {pt3dclear()
	pt3dadd(450, -37, 75, 2.91)
	pt3dadd(539, -6, 97.96, 2.65)
  }
  dend[332] {pt3dclear()
	pt3dadd(539, -6, 97.96, 2.65)
	pt3dadd(584, 159, 75, 1.06)
	pt3dadd(617, 401, 150, 0.79)
  }
  dend[333] {pt3dclear()
	pt3dadd(539, -6, 97.96, 2.65)
	pt3dadd(571, 0, 75, 2.38)
  }
  dend[334] {pt3dclear()
	pt3dadd(571, 0, 75, 2.38)
	pt3dadd(639, 75, 75, 0.79)
	pt3dadd(706, 143, 75, 0.53)
  }
  dend[335] {pt3dclear()
	pt3dadd(571, 0, 75, 2.38)
	pt3dadd(597, -13, 75, 2.12)
  }
  dend[336] {pt3dclear()
	pt3dadd(597, -13, 75, 2.12)
	pt3dadd(690, 28, 140.69, 0.53)
	pt3dadd(781, 81, 198.2, 0.53)
  }
  dend[337] {pt3dclear()
	pt3dadd(597, -13, 75, 2.12)
	pt3dadd(714, -125, 211.8, 1.85)
	pt3dadd(877, -236, 289.6, 1.32)
	pt3dadd(1105, -262, 300, 1.32)
	pt3dadd(1214, -293, 375, 0.79)
	pt3dadd(1195, -452, 450, 1.06)
  }
  dend[338] {pt3dclear()
	pt3dadd(450, -37, 75, 2.91)
	pt3dadd(563, -115, 225, 1.32)
	pt3dadd(652, -179, 300, 1.06)
	pt3dadd(791, -193, 450, 1.32)
	pt3dadd(828, -228, 525, 0.79)
  }
  dend[339] {pt3dclear()
	pt3dadd(135, -36, -75, 6.89)
	pt3dadd(191, -93, -75, 5.56)
  }
  dend[340] {pt3dclear()
	pt3dadd(191, -93, -75, 5.56)
	pt3dadd(230, -112, -67.65, 3.18)
  }
  dend[341] {pt3dclear()
	pt3dadd(230, -112, -67.65, 3.18)
	pt3dadd(363, -127, 20.02, 2.38)
	pt3dadd(489, -145, 115.3, 2.12)
  }
  dend[342] {pt3dclear()
	pt3dadd(489, -145, 115.3, 2.12)
	pt3dadd(588, -100, 297.3, 1.59)
	pt3dadd(783, -47, 361.4, 1.59)
	pt3dadd(865, 81, 300, 1.32)
	pt3dadd(853, 159, 103.2, 0.53)
	pt3dadd(763, 233, -99.69, 0.53)
  }
  dend[343] {pt3dclear()
	pt3dadd(489, -145, 115.3, 2.12)
	pt3dadd(579, -264, 237.7, 1.32)
	pt3dadd(771, -298, 225, 1.06)
	pt3dadd(869, -144, 150, 0.79)
	pt3dadd(856, -20, 3.99, 0.53)
  }
  dend[344] {pt3dclear()
	pt3dadd(230, -112, -67.65, 3.18)
	pt3dadd(240, -210, 75, 1.85)
	pt3dadd(280, -295, 199.5, 1.59)
  }
  dend[345] {pt3dclear()
	pt3dadd(280, -295, 199.5, 1.59)
	pt3dadd(357, -373, 375, 1.85)
	pt3dadd(492, -392, 525, 1.59)
	pt3dadd(628, -380, 675, 0.79)
  }
  dend[346] {pt3dclear()
	pt3dadd(280, -295, 199.5, 1.59)
	pt3dadd(386, -347, 237.4, 0.79)
	pt3dadd(469, -402, 300, 0.53)
  }
  dend[347] {pt3dclear()
	pt3dadd(191, -93, -75, 5.56)
	pt3dadd(251, -150, -22.51, 3.44)
  }
  dend[348] {pt3dclear()
	pt3dadd(251, -150, -22.51, 3.44)
	pt3dadd(301, -225, -75, 3.44)
  }
  dend[349] {pt3dclear()
	pt3dadd(301, -225, -75, 3.44)
	pt3dadd(309, -241, -75, 3.18)
  }
  dend[350] {pt3dclear()
	pt3dadd(309, -241, -75, 3.18)
	pt3dadd(446, -162, -216.2, 1.59)
	pt3dadd(635, -144, -225, 1.59)
	pt3dadd(849, -172, -300, 1.32)
	pt3dadd(1049, -223, -251.6, 1.06)
	pt3dadd(1306, -315, -225, 0.53)
  }
  dend[351] {pt3dclear()
	pt3dadd(309, -241, -75, 3.18)
	pt3dadd(308, -275, -97.89, 1.85)
  }
  dend[352] {pt3dclear()
	pt3dadd(308, -275, -97.89, 1.85)
	pt3dadd(359, -290, -121.1, 0.79)
  }
  dend[353] {pt3dclear()
	pt3dadd(359, -290, -121.1, 0.79)
	pt3dadd(378, -294, -108.8, 0.53)
  }
  dend[354] {pt3dclear()
	pt3dadd(359, -290, -121.1, 0.79)
	pt3dadd(347, -321, -77.27, 0.53)
  }
  dend[355] {pt3dclear()
	pt3dadd(308, -275, -97.89, 1.85)
	pt3dadd(363, -429, 37.03, 1.32)
	pt3dadd(363, -602, 150, 1.06)
	pt3dadd(395, -789, 225, 1.06)
	pt3dadd(473, -969, 300, 0.79)
	pt3dadd(538, -1099, 450, 0.79)
  }
  dend[356] {pt3dclear()
	pt3dadd(301, -225, -75, 3.44)
	pt3dadd(314, -230, -233.4, 0.79)
	pt3dadd(400, -246, -370.9, 0.53)
  }
  dend[357] {pt3dclear()
	pt3dadd(251, -150, -22.51, 3.44)
	pt3dadd(312, -213, 0, 1.59)
  }
  dend[358] {pt3dclear()
	pt3dadd(312, -213, 0, 1.59)
	pt3dadd(416, -333, 75, 1.32)
	pt3dadd(540, -403, 150, 1.06)
	pt3dadd(718, -519, 150, 0.79)
	pt3dadd(840, -656, 225, 1.06)
	pt3dadd(1021, -825, 150, 0.53)
  }
  dend[359] {pt3dclear()
	pt3dadd(312, -213, 0, 1.59)
	pt3dadd(268, -267, -13.75, 1.06)
	pt3dadd(225, -335, 0, 0.79)
  }
  dend[360] {pt3dclear()
	pt3dadd(225, -335, 0, 0.79)
	pt3dadd(230, -368, 49.86, 0.53)
  }
  dend[361] {pt3dclear()
	pt3dadd(225, -335, 0, 0.79)
	pt3dadd(197, -366, 43.07, 0.53)
	pt3dadd(159, -389, 4.23, 0.53)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
  shape3d_5()
  shape3d_6()
}
access soma

celldef()