begintemplate l5
public apcounter,apvec
public all,dends,tcdends,ccdends,ccsyn,tcsyn,ccnetcon,tcnetcon,soma,dend

proc celldef() {
  topol()
  geom()
  geom_nseg()
}

create soma[4], dend[32], apic[99]

proc topol() { local i
  connect soma[1](0), soma(1)
  connect soma[2](0), soma(0)
  connect soma[3](0), soma[2](1)
  connect dend(0), soma[1](1)
  for i = 1, 2 connect dend[i](0), dend(1)
  connect dend[3](0), soma[1](1)
  for i = 4, 5 connect dend[i](0), dend[i-1](1)
  connect dend[6](0), dend[4](1)
  connect dend[7](0), dend[3](1)
  for i = 8, 9 connect dend[i](0), dend[7](1)
  connect dend[10](0), soma[1](1)
  for i = 11, 12 connect dend[i](0), dend[10](1)
  for i = 13, 14 connect dend[i](0), dend[12](1)
  connect dend[15](0), soma(1)
  for i = 16, 17 connect dend[i](0), dend[15](1)
  connect dend[18](0), soma[2](1)
  for i = 19, 20 connect dend[i](0), dend[18](1)
  connect dend[21](0), soma(0)
  for i = 22, 24 connect dend[i](0), dend[i-1](1)
  connect dend[25](0), dend[23](1)
  connect dend[26](0), dend[22](1)
  connect dend[27](0), dend[21](1)
  for i = 28, 29 connect dend[i](0), dend[27](1)
  for i = 30, 31 connect dend[i](0), dend[29](1)
  connect apic(0), soma[3](1)
  for i = 1, 17 connect apic[i](0), apic[i-1](1)
  connect apic[18](0), apic[16](1)
  connect apic[19](0), apic[15](1)
  for i = 20, 21 connect apic[i](0), apic[19](1)
  for i = 22, 23 connect apic[i](0), apic[21](1)
  connect apic[24](0), apic[14](1)
  for i = 25, 26 connect apic[i](0), apic[24](1)
  connect apic[27](0), apic[13](1)
  connect apic[28](0), apic[12](1)
  for i = 29, 30 connect apic[i](0), apic[28](1)
  for i = 31, 32 connect apic[i](0), apic[30](1)
  for i = 33, 34 connect apic[i](0), apic[32](1)
  connect apic[35](0), apic[11](1)
  for i = 36, 37 connect apic[i](0), apic[35](1)
  connect apic[38](0), apic[10](1)
  for i = 39, 41 connect apic[i](0), apic[i-1](1)
  connect apic[42](0), apic[40](1)
  for i = 43, 44 connect apic[i](0), apic[42](1)
  connect apic[45](0), apic[39](1)
  for i = 46, 48 connect apic[i](0), apic[i-1](1)
  connect apic[49](0), apic[47](1)
  connect apic[50](0), apic[46](1)
  for i = 51, 52 connect apic[i](0), apic[50](1)
  connect apic[53](0), apic[45](1)
  for i = 54, 55 connect apic[i](0), apic[53](1)
  connect apic[56](0), apic[38](1)
  for i = 57, 59 connect apic[i](0), apic[i-1](1)
  connect apic[60](0), apic[58](1)
  connect apic[61](0), apic[57](1)
  for i = 62, 63 connect apic[i](0), apic[61](1)
  for i = 64, 65 connect apic[i](0), apic[i-1](1)
  connect apic[66](0), apic[64](1)
  for i = 67, 68 connect apic[i](0), apic[66](1)
  connect apic[69](0), apic[63](1)
  for i = 70, 71 connect apic[i](0), apic[69](1)
  connect apic[72](0), apic[56](1)
  connect apic[73](0), apic[9](1)
  connect apic[74](0), apic[8](1)
  connect apic[75](0), apic[7](1)
  for i = 76, 77 connect apic[i](0), apic[75](1)
  connect apic[78](0), apic[6](1)
  for i = 79, 80 connect apic[i](0), apic[78](1)
  connect apic[81](0), apic[5](1)
  for i = 82, 83 connect apic[i](0), apic[i-1](1)
  connect apic[84](0), apic[82](1)
  connect apic[85](0), apic[81](1)
  connect apic[86](0), apic[4](1)
  connect apic[87](0), apic[3](1)
  connect apic[88](0), apic[2](1)
  for i = 89, 90 connect apic[i](0), apic[88](1)
  connect apic[91](0), apic[1](1)
  connect apic[92](0), apic(1)
  for i = 93, 94 connect apic[i](0), apic[i-1](1)
  connect apic[95](0), apic[93](1)
  connect apic[96](0), apic[92](1)
  for i = 97, 98 connect apic[i](0), apic[96](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(-11.2, 86.6, -0.7, 15.2)
	pt3dadd(-9.7, 80.9, -0.7, 14.18)
	pt3dadd(-9.7, 79.4, -0.7, 12)
  }
  soma[1] {pt3dclear()
	pt3dadd(-9.7, 79.4, -0.7, 12)
	pt3dadd(-9.7, 76.8, -0.7, 2.73)
	pt3dadd(-8.9, 75.7, 7, 8.11)
	pt3dadd(-8.1, 73.5, 7, 6.89)
  }
  dend {pt3dclear()
	pt3dadd(-8.1, 73.5, 7, 1.71)
	pt3dadd(-7.6, 68.4, 21.8, 1.71)
	pt3dadd(-3.3, 62.4, 21.8, 1.58)
	pt3dadd(2.9, 64.5, 21.8, 1.974)
	pt3dadd(6.1, 62.9, 27.2, 1.842)
  }
  dend[1] {pt3dclear()
	pt3dadd(6.1, 62.9, 27.2, 1.842)
	pt3dadd(13.5, 57.9, 21.4, 1.316)
	pt3dadd(21, 49.3, 21.4, 1.316)
	pt3dadd(29.6, 42.7, 21.4, 1.316)
	pt3dadd(31.3, 35, 21.4, 1.316)
	pt3dadd(49.4, 21.4, 19, 1.316)
	pt3dadd(68.3, 9.4, 19, 1.316)
	pt3dadd(72.3, 2.1, 19.8, 1.316)
	pt3dadd(77.7, -11.5, 17.1, 1.316)
	pt3dadd(92.3, -19.9, 11.5, 1.052)
	pt3dadd(94.3, -24.9, 11.5, 1.052)
	pt3dadd(94, -27.8, 11.5, 0.79)
	pt3dadd(100.7, -29.2, 14.4, 0.658)
	pt3dadd(110.4, -35.4, 16.5, 0.658)
	pt3dadd(121.9, -43.5, 16.5, 0.658)
	pt3dadd(121.9, -46, 16.5, 0.526)
	pt3dadd(128, -47.5, 16.5, 0.526)
	pt3dadd(135, -44.5, 18.3, 0.394)
  }
  dend[2] {pt3dclear()
	pt3dadd(6.1, 62.9, 27.2, 1.842)
	pt3dadd(3.6, 58.5, 27.2, 1.316)
	pt3dadd(14, 46.8, 34.5, 1.316)
  }
  dend[3] {pt3dclear()
	pt3dadd(-8.1, 73.5, 7, 0.79)
	pt3dadd(-10.4, 62.9, 15.7, 0.79)
	pt3dadd(-17.8, 56.2, 17.4, 1.448)
	pt3dadd(-19.1, 50.1, 19.5, 1.842)
  }
  dend[4] {pt3dclear()
	pt3dadd(-19.1, 50.1, 19.5, 1.842)
	pt3dadd(-32.1, 43.9, 19.5, 1.184)
	pt3dadd(-36, 31.4, 19.5, 1.316)
	pt3dadd(-44.6, 33.2, 19.5, 1.316)
	pt3dadd(-52.5, 29.2, 19.5, 1.316)
	pt3dadd(-62, 30.4, 17.4, 1.316)
	pt3dadd(-67.8, 25.3, 17.4, 1.316)
  }
  dend[5] {pt3dclear()
	pt3dadd(-67.8, 25.3, 17.4, 1.316)
	pt3dadd(-80.1, 10.9, 17.4, 1.052)
	pt3dadd(-91.4, -2.6, 20.7, 1.184)
	pt3dadd(-95.6, -2.9, 23.9, 1.184)
	pt3dadd(-106.3, -15.1, 23.9, 1.052)
	pt3dadd(-117.6, -24.6, 26.9, 1.052)
	pt3dadd(-135.4, -22.2, 38.4, 0.79)
	pt3dadd(-151, -22.9, 45.3, 0.79)
	pt3dadd(-154.4, -20, 45.3, 0.79)
	pt3dadd(-172.6, -22.5, 48.1, 0.658)
	pt3dadd(-178.6, -22, 48.1, 0.658)
	pt3dadd(-181.1, -18, 43.3, 0.394)
  }
  dend[6] {pt3dclear()
	pt3dadd(-67.8, 25.3, 17.4, 1.316)
	pt3dadd(-74, 5.9, 21.6, 0.658)
	pt3dadd(-72.4, 1.8, 26.7, 0.658)
	pt3dadd(-81.9, -8.5, 29.6, 0.658)
	pt3dadd(-83.9, -22.3, 33.7, 0.658)
	pt3dadd(-85.7, -32, 35.2, 0.658)
	pt3dadd(-99.8, -36.3, 42.6, 0.526)
  }
  dend[7] {pt3dclear()
	pt3dadd(-19.1, 50.1, 19.5, 1.842)
	pt3dadd(-19.1, 46.1, 21.2, 1.58)
	pt3dadd(-26.8, 42.3, 25.6, 1.316)
	pt3dadd(-22.3, 37.2, 32.4, 1.316)
	pt3dadd(-23.6, 31.8, 38.1, 1.316)
  }
  dend[8] {pt3dclear()
	pt3dadd(-23.6, 31.8, 38.1, 1.316)
	pt3dadd(-30.6, 25.6, 38.1, 0.79)
	pt3dadd(-36.2, 16.8, 43.1, 0.658)
  }
  dend[9] {pt3dclear()
	pt3dadd(-23.6, 31.8, 38.1, 1.316)
	pt3dadd(-27, 29.8, 38.1, 1.052)
	pt3dadd(-23.9, 22.2, 42.2, 1.052)
  }
  dend[10] {pt3dclear()
	pt3dadd(-8.1, 73.5, 7, 1.316)
	pt3dadd(-14.4, 66.3, 16.5, 1.316)
  }
  dend[11] {pt3dclear()
	pt3dadd(-14.4, 66.3, 16.5, 1.316)
	pt3dadd(-20.9, 63.4, 10, 0.79)
	pt3dadd(-29, 63.4, 10.1, 0.79)
	pt3dadd(-41.6, 57.4, 10.9, 0.79)
	pt3dadd(-48.8, 58.6, 10.5, 0.79)
	pt3dadd(-58.4, 60.1, 4.6, 0.526)
	pt3dadd(-66.3, 52.6, 1.6, 0.526)
	pt3dadd(-71, 45.1, 0.7, 0.394)
	pt3dadd(-75.1, 47.9, -2.8, 0.394)
	pt3dadd(-75, 44.6, -3.5, 0.394)
  }
  dend[12] {pt3dclear()
	pt3dadd(-14.4, 66.3, 16.5, 1.316)
	pt3dadd(-22.9, 65.8, 15.3, 0.79)
  }
  dend[13] {pt3dclear()
	pt3dadd(-22.9, 65.8, 15.3, 0.79)
	pt3dadd(-34.7, 62.3, 27.6, 1.052)
	pt3dadd(-33.6, 57.1, 31.5, 0.79)
	pt3dadd(-44.9, 56.3, 38.6, 0.79)
	pt3dadd(-50.2, 53.4, 46, 0.79)
	pt3dadd(-52.7, 51, 50.7, 0.79)
	pt3dadd(-61.6, 53.5, 55, 0.79)
	pt3dadd(-73.8, 46.9, 66.7, 0.79)
	pt3dadd(-78.3, 44.7, 67, 0.526)
  }
  dend[14] {pt3dclear()
	pt3dadd(-22.9, 65.8, 15.3, 0.79)
	pt3dadd(-25.6, 56, 22.5, 0.79)
	pt3dadd(-24, 54.5, 27.8, 0.79)
	pt3dadd(-28.7, 48, 30.4, 0.79)
	pt3dadd(-23.3, 44.4, 36.3, 0.79)
	pt3dadd(-20.7, 35.4, 37, 0.79)
	pt3dadd(-19.1, 30.1, 48.8, 0.526)
	pt3dadd(-13.7, 8.3, 52.2, 0.526)
	pt3dadd(-10, -2.3, 54.3, 0.79)
  }
  dend[15] {pt3dclear()
	pt3dadd(-9.7, 79.4, -0.7, 1.96)
	pt3dadd(-8.286, 78.286, 6.257, 1.96)
	pt3dadd(-15.586, 74.186, 13.957, 1.842)
	pt3dadd(-18.986, 67.986, 9.157, 1.842)
  }
  dend[16] {pt3dclear()
	pt3dadd(-18.986, 67.986, 9.157, 1.842)
	pt3dadd(-17.086, 64.286, 9.057, 0.394)
	pt3dadd(-23.386, 57.986, 9.057, 0.394)
	pt3dadd(-23.086, 48.986, 9.057, 0.658)
	pt3dadd(-19.386, 37.986, 6.357, 0.526)
  }
  dend[17] {pt3dclear()
	pt3dadd(-18.986, 67.986, 9.157, 1.842)
	pt3dadd(-25.486, 62.086, 7.457, 0.526)
	pt3dadd(-40.986, 64.386, 5.057, 0.526)
  }
  soma[2] {pt3dclear()
	pt3dadd(-11.2, 86.6, -0.7, 15.2)
	pt3dadd(-12.7, 88.8, -3.1, 14.17)
	pt3dadd(-12.7, 95.3, -3.1, 10.64)
  }
  soma[3] {pt3dclear()
	pt3dadd(-12.7, 95.3, -3.1, 10.64)
	pt3dadd(-9.4, 107, 1.8, 7.37)
  }
  apic {pt3dclear()
	pt3dadd(-9.4, 107, 1.8, 5.79)
	pt3dadd(-9.4, 128.1, -1.9, 5.79)
	pt3dadd(-17, 144.4, -5.1, 5.264)
  }
  apic[1] {pt3dclear()
	pt3dadd(-17, 144.4, -5.1, 5.264)
	pt3dadd(-19.1, 151.1, -3, 4.078)
	pt3dadd(-20.3, 156.3, -2.9, 4.21)
	pt3dadd(-22.4, 172.5, -2.9, 3.948)
	pt3dadd(-20.2, 182, -2.2, 4.21)
  }
  apic[2] {pt3dclear()
	pt3dadd(-20.2, 182, -2.2, 4.21)
	pt3dadd(-21.4, 182.7, 9.4, 4.606)
  }
  apic[3] {pt3dclear()
	pt3dadd(-21.4, 182.7, 9.4, 4.606)
	pt3dadd(-21.4, 187.3, 11.1, 4.606)
  }
  apic[4] {pt3dclear()
	pt3dadd(-21.4, 187.3, 11.1, 4.606)
	pt3dadd(-17.4, 203.8, 10.4, 4.736)
  }
  apic[5] {pt3dclear()
	pt3dadd(-17.4, 203.8, 10.4, 4.736)
	pt3dadd(-17.4, 227.3, 0.6, 4.474)
  }
  apic[6] {pt3dclear()
	pt3dadd(-17.4, 227.3, 0.6, 4.474)
	pt3dadd(-26, 243.2, -1.6, 3.948)
  }
  apic[7] {pt3dclear()
	pt3dadd(-26, 243.2, -1.6, 3.948)
	pt3dadd(-26, 259.5, 10.5, 4.078)
  }
  apic[8] {pt3dclear()
	pt3dadd(-26, 259.5, 10.5, 4.078)
	pt3dadd(-21.4, 281.7, 10.1, 3.948)
	pt3dadd(-18.1, 295.7, 5.6, 4.078)
	pt3dadd(-21, 303.3, 0, 4.606)
  }
  apic[9] {pt3dclear()
	pt3dadd(-21, 303.3, 0, 4.606)
	pt3dadd(-21, 317.1, 3.1, 4.736)
  }
  apic[10] {pt3dclear()
	pt3dadd(-21, 317.1, 3.1, 4.736)
	pt3dadd(-29.1, 343.9, 3.7, 3.948)
	pt3dadd(-35.4, 367, 0.9, 3.552)
	pt3dadd(-40.8, 390.1, -1.6, 3.816)
	pt3dadd(-40.9, 427.9, 5.6, 5)
	pt3dadd(-45.5, 452.1, -1, 4.606)
	pt3dadd(-40.8, 469.8, 1.1, 3.816)
	pt3dadd(-44.4, 495.8, 3.3, 3.948)
	pt3dadd(-41.6, 519.1, -1.1, 3.948)
	pt3dadd(-45.5, 542.9, 1, 3.816)
	pt3dadd(-40.7, 561.3, 0.2, 3.29)
	pt3dadd(-47.4, 574.1, 0.2, 3.684)
  }
  apic[11] {pt3dclear()
	pt3dadd(-47.4, 574.1, 0.2, 3.684)
	pt3dadd(-51.3, 585.1, 1.4, 2.894)
  }
  apic[12] {pt3dclear()
	pt3dadd(-51.3, 585.1, 1.4, 2.894)
	pt3dadd(-66.2, 596.7, 7.2, 2.106)
	pt3dadd(-74.7, 609.7, 9.9, 2.632)
	pt3dadd(-80.7, 623.9, 12.7, 2.368)
	pt3dadd(-80, 647.5, 14.3, 2.632)
	pt3dadd(-90.6, 677.6, 14.3, 2.368)
	pt3dadd(-94, 684.8, 18.6, 2.368)
	pt3dadd(-92.6, 704.3, 19.2, 2.368)
	pt3dadd(-91.3, 714.6, 19.2, 2.368)
	pt3dadd(-98.1, 728.9, 20.1, 2.368)
	pt3dadd(-97.6, 733.1, 20.1, 2.106)
	pt3dadd(-95, 746, 20.1, 2.106)
	pt3dadd(-97.4, 750.5, 20.1, 2.106)
	pt3dadd(-102.9, 772.4, 20.1, 2.106)
	pt3dadd(-102.9, 776.1, 20.1, 2.106)
	pt3dadd(-100.3, 778.4, 20.1, 2.106)
	pt3dadd(-100.3, 791, 20, 1.842)
	pt3dadd(-101.7, 804.4, 20, 1.842)
	pt3dadd(-100.9, 824.6, 20, 1.842)
	pt3dadd(-102.5, 831, 23, 1.842)
	pt3dadd(-99.9, 858.2, 20.5, 1.842)
	pt3dadd(-103.1, 866, 20.5, 1.842)
	pt3dadd(-100.7, 884.3, 21.4, 1.842)
	pt3dadd(-104.3, 891.3, 21.4, 1.842)
	pt3dadd(-104.4, 898.6, 21.4, 1.842)
	pt3dadd(-109, 902.6, 25.5, 1.842)
	pt3dadd(-104.1, 920.7, 25.5, 1.842)
	pt3dadd(-109.3, 938.3, 25.5, 1.842)
	pt3dadd(-107.7, 949.7, 24, 1.842)
	pt3dadd(-105.2, 965.1, 27.9, 1.842)
	pt3dadd(-112.7, 980, 32.1, 1.842)
	pt3dadd(-111, 985.7, 36.8, 1.842)
	pt3dadd(-114.9, 990.9, 38.3, 1.842)
  }
  apic[13] {pt3dclear()
	pt3dadd(-114.9, 990.9, 38.3, 1.842)
	pt3dadd(-118.4, 996, 40.1, 1.052)
	pt3dadd(-127.8, 1002.6, 40.4, 1.052)
  }
  apic[14] {pt3dclear()
	pt3dadd(-127.8, 1002.6, 40.4, 1.052)
  }
}
proc shape3d_2() {
  apic[14] {	pt3dadd(-132.2, 1004.3, 40.4, 1.052)
	pt3dadd(-133.3, 1006.9, 38.1, 1.052)
  }
  apic[15] {pt3dclear()
	pt3dadd(-133.3, 1006.9, 38.1, 1.052)
	pt3dadd(-141.8, 1016.5, 39.2, 1.052)
	pt3dadd(-142.2, 1017.2, 39.2, 1.052)
  }
  apic[16] {pt3dclear()
	pt3dadd(-142.2, 1017.2, 39.2, 1.052)
	pt3dadd(-148, 1025.6, 32, 1.052)
	pt3dadd(-154.9, 1039.7, 28.1, 0.922)
	pt3dadd(-161.3, 1059.6, 28.1, 0.79)
	pt3dadd(-163.3, 1067.9, 28.1, 0.79)
	pt3dadd(-176.5, 1087.1, 27, 0.79)
  }
  apic[17] {pt3dclear()
	pt3dadd(-176.5, 1087.1, 27, 0.79)
	pt3dadd(-189.2, 1087.2, 27.1, 0.658)
	pt3dadd(-195.6, 1086.3, 27.1, 0.526)
	pt3dadd(-207.6, 1086.3, 27.1, 0.526)
	pt3dadd(-220.5, 1091.1, 27.1, 0.264)
	pt3dadd(-224.2, 1097.9, 27.1, 0.264)
  }
  apic[18] {pt3dclear()
	pt3dadd(-176.5, 1087.1, 27, 0.79)
	pt3dadd(-183, 1090.8, 22.4, 0.526)
	pt3dadd(-195.9, 1091.4, 18.4, 0.526)
	pt3dadd(-203.1, 1096.5, 12.5, 0.526)
	pt3dadd(-211.9, 1105.5, 9, 0.526)
  }
  apic[19] {pt3dclear()
	pt3dadd(-142.2, 1017.2, 39.2, 1.052)
	pt3dadd(-142.2, 1020.4, 41.1, 0.79)
	pt3dadd(-149.8, 1032.4, 43.9, 0.79)
	pt3dadd(-155.9, 1049.8, 51.6, 0.79)
  }
  apic[20] {pt3dclear()
	pt3dadd(-155.9, 1049.8, 51.6, 0.79)
	pt3dadd(-163.3, 1052.4, 51.9, 0.79)
	pt3dadd(-179.2, 1057.8, 63.5, 0.79)
	pt3dadd(-185.1, 1062.9, 63.7, 0.79)
	pt3dadd(-192.7, 1067.4, 69.2, 0.79)
	pt3dadd(-197.3, 1073.8, 74.2, 0.526)
	pt3dadd(-201, 1080.5, 71.8, 0.264)
  }
  apic[21] {pt3dclear()
	pt3dadd(-155.9, 1049.8, 51.6, 0.79)
	pt3dadd(-153.4, 1071.7, 49.5, 0.79)
	pt3dadd(-155.3, 1081.5, 47.2, 0.79)
	pt3dadd(-156.6, 1089.9, 44.4, 0.526)
	pt3dadd(-159.8, 1092.3, 44, 0.526)
  }
  apic[22] {pt3dclear()
	pt3dadd(-159.8, 1092.3, 44, 0.526)
	pt3dadd(-179.2, 1086.5, 35.4, 0.264)
  }
  apic[23] {pt3dclear()
	pt3dadd(-159.8, 1092.3, 44, 0.526)
	pt3dadd(-176.6, 1100.5, 44, 0.526)
  }
  apic[24] {pt3dclear()
	pt3dadd(-133.3, 1006.9, 38.1, 1.052)
	pt3dadd(-130.5, 1011.3, 33.6, 1.052)
	pt3dadd(-131.6, 1014.8, 28.9, 1.052)
	pt3dadd(-135.3, 1022.4, 23.1, 1.052)
	pt3dadd(-137.5, 1025.4, 22.2, 0.79)
	pt3dadd(-136.8, 1028.8, 17.8, 1.052)
	pt3dadd(-144.8, 1037.5, 14.7, 0.79)
	pt3dadd(-146.8, 1039.9, 14.7, 0.79)
	pt3dadd(-146, 1041.3, 10.3, 0.79)
	pt3dadd(-150, 1052.1, 3.3, 0.658)
	pt3dadd(-151.5, 1062.8, -1.1, 0.658)
	pt3dadd(-149.3, 1074.5, -7.4, 0.526)
	pt3dadd(-152.6, 1076.9, -7.4, 0.526)
	pt3dadd(-152.6, 1079.9, -7, 0.526)
	pt3dadd(-150.1, 1083, -7, 0.526)
	pt3dadd(-153.4, 1091.6, -9.4, 0.526)
  }
  apic[25] {pt3dclear()
	pt3dadd(-153.4, 1091.6, -9.4, 0.526)
	pt3dadd(-154.3, 1101.2, -12.3, 0.394)
	pt3dadd(-163.1, 1105.9, -19.1, 0.394)
  }
  apic[26] {pt3dclear()
	pt3dadd(-153.4, 1091.6, -9.4, 0.526)
	pt3dadd(-147.7, 1115.5, -7.2, 0.394)
  }
  apic[27] {pt3dclear()
	pt3dadd(-127.8, 1002.6, 40.4, 1.052)
	pt3dadd(-138.6, 1014.6, 40.4, 0.526)
  }
  apic[28] {pt3dclear()
	pt3dadd(-114.9, 990.9, 38.3, 1.842)
	pt3dadd(-112.4, 1001.6, 35.9, 1.316)
	pt3dadd(-111, 1015.1, 41.9, 1.316)
	pt3dadd(-105.9, 1027.8, 41.9, 1.316)
	pt3dadd(-108.3, 1035.3, 44, 1.316)
	pt3dadd(-105.8, 1041.7, 47, 1.316)
  }
  apic[29] {pt3dclear()
	pt3dadd(-105.8, 1041.7, 47, 1.316)
	pt3dadd(-108.7, 1049.3, 47, 0.79)
	pt3dadd(-107.8, 1065.6, 50.5, 0.79)
	pt3dadd(-114.2, 1074.4, 53.9, 0.526)
	pt3dadd(-116.6, 1084.9, 59.2, 0.79)
	pt3dadd(-117.4, 1093.1, 68.8, 0.79)
	pt3dadd(-117.4, 1093.1, 75.6, 0.79)
	pt3dadd(-125.8, 1102.2, 88.8, 0.79)
	pt3dadd(-126.8, 1106.4, 87.6, 0.79)
  }
  apic[30] {pt3dclear()
	pt3dadd(-105.8, 1041.7, 47, 1.316)
	pt3dadd(-101.4, 1051.5, 43.9, 1.052)
	pt3dadd(-94.7, 1057.6, 46, 1.052)
	pt3dadd(-90.5, 1068.5, 49, 1.052)
	pt3dadd(-81.9, 1075.9, 55.2, 1.052)
	pt3dadd(-77, 1090.3, 55.1, 1.052)
  }
  apic[31] {pt3dclear()
	pt3dadd(-77, 1090.3, 55.1, 1.052)
	pt3dadd(-77, 1095.7, 52.5, 0.526)
	pt3dadd(-82.4, 1104.1, 52.5, 0.526)
	pt3dadd(-81, 1119.1, 61.3, 0.526)
  }
  apic[32] {pt3dclear()
	pt3dadd(-77, 1090.3, 55.1, 1.052)
	pt3dadd(-71.8, 1094.3, 53.7, 0.79)
  }
  apic[33] {pt3dclear()
	pt3dadd(-71.8, 1094.3, 53.7, 0.79)
	pt3dadd(-65.6, 1104.4, 55.6, 0.526)
	pt3dadd(-56.4, 1107.7, 60.8, 0.526)
	pt3dadd(-41.7, 1109.2, 63.6, 0.526)
	pt3dadd(-24.8, 1109.2, 80.9, 0.526)
  }
  apic[34] {pt3dclear()
	pt3dadd(-71.8, 1094.3, 53.7, 0.79)
	pt3dadd(-64.9, 1099.5, 51.7, 0.79)
	pt3dadd(-53.3, 1102.8, 46.1, 0.79)
	pt3dadd(-42.9, 1111.5, 41.9, 0.79)
	pt3dadd(-41.6, 1117.6, 42.2, 0.79)
	pt3dadd(-34.9, 1122.3, 45, 0.526)
	pt3dadd(-21.6, 1121.4, 43, 0.264)
  }
  apic[35] {pt3dclear()
	pt3dadd(-51.3, 585.1, 1.4, 2.894)
	pt3dadd(-52.5, 604.6, 1.6, 2.106)
	pt3dadd(-53.7, 618, 0.1, 2.106)
	pt3dadd(-51, 626.5, -1.2, 2.106)
	pt3dadd(-52.6, 645.4, -1.2, 2.106)
	pt3dadd(-52.9, 651.4, -4.8, 1.842)
	pt3dadd(-55.4, 671.4, -5.3, 1.842)
	pt3dadd(-55.9, 682.2, -5.1, 1.842)
	pt3dadd(-46.5, 693.8, -3.9, 1.842)
	pt3dadd(-51.9, 703.4, -6.4, 1.842)
	pt3dadd(-57.3, 720.7, -5.2, 1.842)
	pt3dadd(-62.2, 742, -5.9, 2.106)
	pt3dadd(-60.4, 758.5, -7.3, 2.106)
	pt3dadd(-63.4, 769.4, -7.7, 2.106)
	pt3dadd(-65.8, 784.7, -7.7, 2.106)
	pt3dadd(-67.4, 798.2, -7.9, 2.106)
  }
  apic[36] {pt3dclear()
	pt3dadd(-67.4, 798.2, -7.9, 2.106)
	pt3dadd(-66.3, 812.1, -9.5, 1.58)
	pt3dadd(-72, 831.5, -12.8, 1.58)
	pt3dadd(-75.3, 856.9, -12.8, 1.58)
	pt3dadd(-72.7, 877, -13, 1.316)
	pt3dadd(-75.4, 892.9, -18.1, 1.316)
	pt3dadd(-77.5, 890.4, -18.1, 1.316)
  }
  apic[37] {pt3dclear()
	pt3dadd(-67.4, 798.2, -7.9, 2.106)
	pt3dadd(-56.6, 781.2, -13.4, 0.79)
  }
  apic[38] {pt3dclear()
	pt3dadd(-47.4, 574.1, 0.2, 3.684)
	pt3dadd(-43.1, 587.2, 2.6, 2.632)
	pt3dadd(-44.1, 617.7, 0, 2.632)
	pt3dadd(-41.2, 641.7, 1.4, 2.368)
	pt3dadd(-37.4, 659.5, -1.6, 2.106)
	pt3dadd(-41.5, 665.2, -1.6, 2.106)
	pt3dadd(-36.4, 680.2, -2.9, 2.368)
	pt3dadd(-34.1, 687.4, -0.3, 2.106)
	pt3dadd(-34, 701.3, -2.9, 2.106)
	pt3dadd(-35.3, 701.8, -2.9, 2.236)
	pt3dadd(-38.2, 720.1, -0.8, 2.106)
	pt3dadd(-31.2, 741.9, 2.5, 2.106)
	pt3dadd(-34.4, 754.3, 2.9, 2.368)
	pt3dadd(-32.3, 763, 2.9, 2.5)
  }
  apic[39] {pt3dclear()
	pt3dadd(-32.3, 763, 2.9, 2.5)
	pt3dadd(-34.5, 787.6, 2.3, 1.448)
	pt3dadd(-37.1, 800.1, 5.5, 1.448)
	pt3dadd(-31.1, 819.7, 5.5, 1.58)
	pt3dadd(-30.1, 832.3, 6.9, 1.316)
	pt3dadd(-33.1, 838.5, 6.9, 1.448)
	pt3dadd(-29.5, 856.7, 9.2, 1.58)
	pt3dadd(-31, 866.5, 9.2, 1.58)
	pt3dadd(-28.7, 874.9, 10.1, 1.71)
	pt3dadd(-31.7, 892.9, 11, 1.58)
	pt3dadd(-27.6, 906.1, 10.9, 1.71)
  }
  apic[40] {pt3dclear()
	pt3dadd(-27.6, 906.1, 10.9, 1.71)
	pt3dadd(-32.8, 918.7, 14.1, 1.052)
	pt3dadd(-28.5, 937.5, 7.9, 1.184)
	pt3dadd(-34.2, 945.4, 5.9, 1.052)
	pt3dadd(-31.7, 948.6, 2.8, 1.316)
  }
  apic[41] {pt3dclear()
	pt3dadd(-31.7, 948.6, 2.8, 1.316)
	pt3dadd(-30.8, 963.5, -2.3, 0.922)
	pt3dadd(-37.7, 974.4, -9.7, 0.922)
	pt3dadd(-34.7, 988, -13.2, 0.526)
	pt3dadd(-39.9, 998.7, -18.1, 0.394)
  }
  apic[42] {pt3dclear()
	pt3dadd(-31.7, 948.6, 2.8, 1.316)
	pt3dadd(-30.8, 956.1, 2.8, 0.658)
	pt3dadd(-26.6, 961.5, 0, 0.79)
	pt3dadd(-21.8, 963.1, 0, 0.79)
	pt3dadd(-23, 972.4, -6.5, 0.658)
	pt3dadd(-18.8, 980, -6.6, 0.658)
	pt3dadd(-20.7, 987.1, -6.6, 0.658)
	pt3dadd(-18.2, 993.1, -6.6, 0.658)
	pt3dadd(-14.7, 998.2, -6.6, 0.658)
	pt3dadd(-20.8, 1009.1, -9.9, 0.658)
	pt3dadd(-24.8, 1023.6, -9.9, 0.658)
	pt3dadd(-18.8, 1036.2, -13.4, 0.394)
	pt3dadd(-19.5, 1037.5, -13.4, 0.394)
  }
  apic[43] {pt3dclear()
	pt3dadd(-19.5, 1037.5, -13.4, 0.394)
	pt3dadd(-19.6, 1047.6, -16.7, 0.394)
	pt3dadd(-18.6, 1054.3, -18.8, 0.264)
	pt3dadd(-20.5, 1056.9, -19.4, 0.264)
  }
  apic[44] {pt3dclear()
	pt3dadd(-19.5, 1037.5, -13.4, 0.394)
	pt3dadd(-11.5, 1045.6, -17.7, 0.394)
	pt3dadd(-4.7, 1055.8, -20.5, 0.394)
	pt3dadd(-10, 1063.9, -15.9, 0.394)
	pt3dadd(-16.9, 1061.5, -14.1, 0.264)
  }
  apic[45] {pt3dclear()
	pt3dadd(-27.6, 906.1, 10.9, 1.71)
	pt3dadd(-27.2, 909, 16.1, 1.71)
	pt3dadd(-27.7, 916.2, 17.6, 1.316)
	pt3dadd(-25.7, 924.4, 17.6, 1.316)
	pt3dadd(-25.4, 940.8, 23.9, 1.316)
	pt3dadd(-30.1, 947.9, 28.9, 1.316)
	pt3dadd(-25.9, 960.5, 35.7, 1.58)
	pt3dadd(-31.7, 968.9, 41.5, 1.448)
	pt3dadd(-33.7, 976.4, 48.9, 1.448)
	pt3dadd(-34.6, 989.1, 56, 1.58)
  }
  apic[46] {pt3dclear()
	pt3dadd(-34.6, 989.1, 56, 1.58)
	pt3dadd(-44.1, 1008, 61.5, 1.316)
	pt3dadd(-49.2, 1012.2, 61.5, 1.184)
	pt3dadd(-59.4, 1013.5, 61.5, 1.184)
  }
}
proc shape3d_3() {
  apic[46] {	pt3dadd(-63.6, 1019.3, 65.9, 1.184)
	pt3dadd(-69.5, 1021, 70.2, 1.184)
  }
  apic[47] {pt3dclear()
	pt3dadd(-69.5, 1021, 70.2, 1.184)
	pt3dadd(-84.6, 1024.8, 73.4, 0.658)
	pt3dadd(-90.8, 1026.9, 77, 0.526)
	pt3dadd(-99.9, 1030.3, 83, 0.526)
  }
  apic[48] {pt3dclear()
	pt3dadd(-99.9, 1030.3, 83, 0.526)
	pt3dadd(-106.5, 1044.8, 64.4, 0.394)
	pt3dadd(-114.3, 1049.1, 60.2, 0.394)
  }
  apic[49] {pt3dclear()
	pt3dadd(-99.9, 1030.3, 83, 0.526)
	pt3dadd(-119.9, 1041.7, 103.8, 0.526)
	pt3dadd(-131.5, 1051.8, 100, 0.394)
	pt3dadd(-144.3, 1054.2, 112.6, 0.264)
	pt3dadd(-175.2, 1047.6, 120.7, 0.264)
  }
  apic[50] {pt3dclear()
	pt3dadd(-69.5, 1021, 70.2, 1.184)
	pt3dadd(-64.6, 1027.1, 76, 0.526)
	pt3dadd(-67.1, 1037.5, 88.3, 0.526)
	pt3dadd(-70, 1045.7, 105.2, 0.526)
	pt3dadd(-77.6, 1048.8, 114.9, 0.394)
	pt3dadd(-81.6, 1053.2, 117, 0.394)
  }
  apic[51] {pt3dclear()
	pt3dadd(-81.6, 1053.2, 117, 0.394)
	pt3dadd(-94.7, 1061.5, 117, 0.264)
  }
  apic[52] {pt3dclear()
	pt3dadd(-81.6, 1053.2, 117, 0.394)
	pt3dadd(-89.6, 1061, 117, 0.264)
  }
  apic[53] {pt3dclear()
	pt3dadd(-34.6, 989.1, 56, 1.58)
	pt3dadd(-31.6, 996.6, 57.4, 1.052)
	pt3dadd(-27.5, 998.6, 57.4, 1.052)
	pt3dadd(-25.5, 1003.9, 57.4, 1.052)
	pt3dadd(-20.8, 1011, 57.4, 1.052)
	pt3dadd(-20.1, 1018.1, 61.5, 1.052)
	pt3dadd(-14.8, 1022.8, 59, 1.052)
	pt3dadd(-6.2, 1029.4, 57.1, 1.052)
	pt3dadd(-11, 1037.8, 56.6, 1.052)
	pt3dadd(6.8, 1049.7, 55.9, 1.052)
	pt3dadd(16.7, 1061.1, 62.2, 0.658)
	pt3dadd(22.3, 1064.6, 63.8, 0.658)
  }
  apic[54] {pt3dclear()
	pt3dadd(22.3, 1064.6, 63.8, 0.658)
	pt3dadd(36.4, 1072.4, 63.2, 0.526)
	pt3dadd(50.2, 1075.5, 59.8, 0.394)
	pt3dadd(74.1, 1077.4, 59.4, 0.264)
  }
  apic[55] {pt3dclear()
	pt3dadd(22.3, 1064.6, 63.8, 0.658)
	pt3dadd(38.4, 1069.1, 78.5, 0.394)
  }
  apic[56] {pt3dclear()
	pt3dadd(-32.3, 763, 2.9, 2.5)
	pt3dadd(-22.7, 769.9, 1.3, 1.316)
	pt3dadd(-22.3, 782.5, 3.1, 1.316)
	pt3dadd(-22.8, 786.1, 3.9, 1.58)
	pt3dadd(-22.8, 791.1, 3.9, 1.316)
	pt3dadd(-15.8, 801.9, 2.3, 1.316)
	pt3dadd(-19.6, 811.4, 2.4, 1.58)
	pt3dadd(-12.3, 820.3, 3.9, 1.448)
	pt3dadd(-15.9, 827.9, 4.9, 1.316)
	pt3dadd(-9.2, 833.5, 2.1, 1.316)
	pt3dadd(-7.9, 841.8, -0.7, 1.316)
	pt3dadd(2.5, 865.9, -5.5, 1.316)
	pt3dadd(4.2, 875.4, -5.5, 1.316)
	pt3dadd(11.2, 884.8, -8.2, 1.184)
	pt3dadd(6.4, 900.1, -6.1, 1.316)
	pt3dadd(13, 905.5, -5.7, 1.184)
	pt3dadd(8.4, 911.5, -5.1, 1.58)
  }
  apic[57] {pt3dclear()
	pt3dadd(8.4, 911.5, -5.1, 1.58)
	pt3dadd(4.8, 941.3, -6.6, 0.658)
	pt3dadd(12.4, 951.7, -4.4, 0.79)
	pt3dadd(4.4, 967.7, -4.7, 0.79)
	pt3dadd(10.4, 991.6, -8.8, 0.922)
	pt3dadd(15, 1003, -9.9, 0.79)
	pt3dadd(9.7, 1006.2, -9.9, 0.79)
	pt3dadd(21, 1029.8, -9.9, 0.79)
	pt3dadd(28.3, 1032.6, -7.1, 0.922)
	pt3dadd(28.3, 1040, -4.6, 0.922)
	pt3dadd(32.1, 1043.4, -2.2, 1.052)
  }
  apic[58] {pt3dclear()
	pt3dadd(32.1, 1043.4, -2.2, 1.052)
	pt3dadd(27.1, 1057, -8, 0.658)
	pt3dadd(24, 1064.1, -8, 0.658)
	pt3dadd(28.4, 1067.6, -3.9, 0.658)
	pt3dadd(21.7, 1082.7, -4.9, 0.526)
	pt3dadd(13.4, 1092.6, -4.1, 0.526)
  }
  apic[59] {pt3dclear()
	pt3dadd(13.4, 1092.6, -4.1, 0.526)
	pt3dadd(0.4, 1092.6, 0.3, 0.526)
	pt3dadd(-1.3, 1090.2, 0.3, 0.264)
  }
  apic[60] {pt3dclear()
	pt3dadd(13.4, 1092.6, -4.1, 0.526)
	pt3dadd(11, 1094.1, -4.1, 0.526)
	pt3dadd(0.9, 1089.3, -2.9, 0.264)
  }
  apic[61] {pt3dclear()
	pt3dadd(32.1, 1043.4, -2.2, 1.052)
	pt3dadd(41.4, 1054.7, -4, 1.052)
	pt3dadd(55.4, 1061.2, -2.8, 0.79)
	pt3dadd(58.9, 1080.5, 0.4, 0.79)
  }
  apic[62] {pt3dclear()
	pt3dadd(58.9, 1080.5, 0.4, 0.79)
	pt3dadd(51.5, 1082.9, 6, 0.394)
	pt3dadd(44.7, 1090.1, 11.7, 0.658)
	pt3dadd(35.5, 1089, 16.2, 0.658)
	pt3dadd(29.2, 1093.9, 14.3, 0.658)
	pt3dadd(22.8, 1093.4, 10.8, 0.394)
	pt3dadd(10.6, 1099, 12.7, 0.264)
  }
  apic[63] {pt3dclear()
	pt3dadd(58.9, 1080.5, 0.4, 0.79)
	pt3dadd(62, 1088.3, 8.3, 0.79)
  }
  apic[64] {pt3dclear()
	pt3dadd(62, 1088.3, 8.3, 0.79)
	pt3dadd(55, 1092.1, 26.7, 0.394)
  }
  apic[65] {pt3dclear()
	pt3dadd(55, 1092.1, 26.7, 0.394)
	pt3dadd(47.9, 1092, 27, 0.264)
  }
  apic[66] {pt3dclear()
	pt3dadd(55, 1092.1, 26.7, 0.394)
	pt3dadd(50.8, 1094.6, 31.7, 0.394)
  }
  apic[67] {pt3dclear()
	pt3dadd(50.8, 1094.6, 31.7, 0.394)
	pt3dadd(44.2, 1104.5, 38.3, 0.264)
  }
  apic[68] {pt3dclear()
	pt3dadd(50.8, 1094.6, 31.7, 0.394)
	pt3dadd(49.1, 1098.2, 30, 0.264)
  }
  apic[69] {pt3dclear()
	pt3dadd(62, 1088.3, 8.3, 0.79)
	pt3dadd(73, 1096.6, 9.6, 0.658)
	pt3dadd(78.2, 1100.6, 13.9, 0.264)
  }
  apic[70] {pt3dclear()
	pt3dadd(78.2, 1100.6, 13.9, 0.264)
	pt3dadd(75.9, 1102.3, 11.3, 0.264)
  }
  apic[71] {pt3dclear()
	pt3dadd(78.2, 1100.6, 13.9, 0.264)
	pt3dadd(82.9, 1102.4, 16.8, 0.264)
  }
  apic[72] {pt3dclear()
	pt3dadd(8.4, 911.5, -5.1, 1.58)
	pt3dadd(19.5, 918.6, -6.2, 0.79)
	pt3dadd(17.5, 925.7, -2.9, 0.79)
	pt3dadd(13.5, 933.8, -9.2, 0.658)
	pt3dadd(13.4, 941.9, -10.5, 0.922)
	pt3dadd(20.3, 944.1, -14.3, 0.526)
	pt3dadd(15.3, 949.6, -21.4, 0.264)
	pt3dadd(12.8, 962.6, -21.4, 0.264)
	pt3dadd(15, 963.8, -21.4, 0.264)
  }
  apic[73] {pt3dclear()
	pt3dadd(-21, 317.1, 3.1, 4.736)
	pt3dadd(-5.9, 319.4, 13.2, 2.11)
	pt3dadd(-13.5, 313.7, 19.2, 2.106)
	pt3dadd(-6.2, 313.4, 30.8, 2.106)
	pt3dadd(-2.7, 309.1, 46.5, 1.58)
	pt3dadd(-4.4, 301.5, 58.5, 1.58)
	pt3dadd(0.2, 295.8, 67.3, 1.58)
  }
  apic[74] {pt3dclear()
	pt3dadd(-21, 303.3, 0, 4.606)
	pt3dadd(-39.7, 310.2, 9.5, 1.58)
	pt3dadd(-47.9, 321.5, 5.1, 1.448)
	pt3dadd(-60.3, 323.2, 6.8, 1.184)
	pt3dadd(-65.1, 330.2, 6.8, 1.052)
	pt3dadd(-85, 339.2, 9.4, 1.052)
	pt3dadd(-98.8, 349.2, 16.3, 1.184)
	pt3dadd(-118.7, 369.9, 40.2, 0.922)
  }
  apic[75] {pt3dclear()
	pt3dadd(-26, 259.5, 10.5, 4.078)
	pt3dadd(-9.3, 272.4, 20.9, 2.11)
	pt3dadd(-5.5, 271.9, 27.4, 2.368)
  }
  apic[76] {pt3dclear()
	pt3dadd(-5.5, 271.9, 27.4, 2.368)
	pt3dadd(2.4, 282.2, 32.7, 1.842)
	pt3dadd(11.8, 293.4, 45.2, 1.316)
	pt3dadd(17.1, 309.8, 56.3, 0.79)
  }
  apic[77] {pt3dclear()
	pt3dadd(-5.5, 271.9, 27.4, 2.368)
	pt3dadd(-1.1, 268.3, 35.3, 2.368)
  }
  apic[78] {pt3dclear()
	pt3dadd(-26, 243.2, -1.6, 3.948)
	pt3dadd(-48.4, 259.1, 7, 1.32)
	pt3dadd(-55.8, 265.7, 2.6, 1.58)
  }
  apic[79] {pt3dclear()
	pt3dadd(-55.8, 265.7, 2.6, 1.58)
	pt3dadd(-67.9, 279.5, 10.5, 1.184)
	pt3dadd(-80.3, 285.1, 14.6, 1.316)
	pt3dadd(-84.4, 295.1, 15.9, 1.052)
	pt3dadd(-96.5, 309.8, 15.9, 0.922)
	pt3dadd(-100.1, 322.3, 15.3, 0.79)
	pt3dadd(-106.2, 329.8, 16.8, 0.658)
	pt3dadd(-116.3, 336.1, 16.8, 0.658)
	pt3dadd(-120.6, 334.9, 12.3, 0.394)
  }
  apic[80] {pt3dclear()
	pt3dadd(-55.8, 265.7, 2.6, 1.58)
	pt3dadd(-71.1, 264.7, 7.6, 1.052)
	pt3dadd(-93.4, 272.7, 15, 1.316)
	pt3dadd(-106, 275.9, 17.9, 1.316)
	pt3dadd(-127.1, 279.8, 23.3, 1.184)
	pt3dadd(-140.3, 293.5, 37.6, 1.316)
	pt3dadd(-151.5, 308.7, 38.3, 1.316)
	pt3dadd(-164.6, 319.9, 38.9, 1.316)
	pt3dadd(-183, 323.2, 32.2, 0.79)
  }
  apic[81] {pt3dclear()
	pt3dadd(-17.4, 227.3, 0.6, 4.474)
	pt3dadd(-1.2, 230.2, -4.6, 1.32)
	pt3dadd(2.2, 224.3, -4.6, 1.316)
	pt3dadd(11.6, 224.1, -4.6, 1.316)
	pt3dadd(18.7, 233, 2.7, 1.316)
  }
  apic[82] {pt3dclear()
	pt3dadd(18.7, 233, 2.7, 1.316)
	pt3dadd(18.6, 235.8, 1.5, 1.052)
  }
  apic[83] {pt3dclear()
	pt3dadd(18.6, 235.8, 1.5, 1.052)
	pt3dadd(39.9, 253.5, -5.5, 0.526)
	pt3dadd(38.1, 263.9, -5.6, 0.264)
  }
  apic[84] {pt3dclear()
	pt3dadd(18.6, 235.8, 1.5, 1.052)
	pt3dadd(40.5, 233.9, 10.3, 1.052)
	pt3dadd(49.1, 241.2, 13.3, 1.052)
	pt3dadd(45.1, 263.7, 23.3, 1.316)
	pt3dadd(47.4, 277, 30.8, 1.316)
  }
  apic[85] {pt3dclear()
	pt3dadd(18.7, 233, 2.7, 1.316)
	pt3dadd(30.9, 223.6, 5.8, 1.316)
	pt3dadd(29.5, 221.4, 10.8, 1.316)
	pt3dadd(69.6, 197.8, 15.9, 1.316)
	pt3dadd(72.9, 188.8, 15.9, 1.052)
	pt3dadd(89, 181.7, 18, 0.922)
	pt3dadd(86.4, 177.4, 23.9, 0.922)
	pt3dadd(90.9, 177.5, 23.9, 0.922)
	pt3dadd(92.5, 174.1, 29.9, 0.922)
	pt3dadd(100.8, 171.5, 34.3, 0.658)
	pt3dadd(106.6, 163.8, 47.4, 0.394)
  }
  apic[86] {pt3dclear()
	pt3dadd(-17.4, 203.8, 10.4, 4.736)
	pt3dadd(-41.7, 220.3, 14.6, 1.84)
	pt3dadd(-59.8, 236.8, 19.9, 2.106)
	pt3dadd(-71.8, 237.6, 22.2, 1.71)
	pt3dadd(-87.5, 244.1, 31.8, 1.71)
	pt3dadd(-89.4, 240.5, 37.4, 1.71)
	pt3dadd(-100.8, 260.7, 42, 1.316)
	pt3dadd(-112.5, 260.4, 40.9, 1.316)
  }
}
proc shape3d_4() {
  apic[86] {	pt3dadd(-123.8, 269.5, 47.9, 1.316)
	pt3dadd(-132.6, 267.3, 48.4, 0.658)
  }
  apic[87] {pt3dclear()
	pt3dadd(-21.4, 187.3, 11.1, 4.606)
	pt3dadd(-41.3, 188.6, 5.6, 0.66)
	pt3dadd(-54.8, 182.8, 5.6, 0.658)
  }
  apic[88] {pt3dclear()
	pt3dadd(-21.4, 182.7, 9.4, 4.606)
	pt3dadd(-28, 195.1, 17.4, 1.32)
  }
  apic[89] {pt3dclear()
	pt3dadd(-28, 195.1, 17.4, 1.32)
	pt3dadd(-28, 207.4, 26.3, 1.316)
  }
  apic[90] {pt3dclear()
	pt3dadd(-28, 195.1, 17.4, 1.32)
	pt3dadd(-5, 194.2, 32.8, 1.316)
  }
  apic[91] {pt3dclear()
	pt3dadd(-20.2, 182, -2.2, 4.21)
	pt3dadd(-31.3, 187.7, -6.9, 1.32)
	pt3dadd(-45.8, 190.8, -6.9, 0.658)
	pt3dadd(-52.1, 186.6, -6.3, 0.658)
  }
  apic[92] {pt3dclear()
	pt3dadd(-17, 144.4, -5.1, 5.264)
	pt3dadd(-10.2, 147.8, -5.1, 1.97)
	pt3dadd(-2.3, 148.8, -2.1, 2.106)
  }
  apic[93] {pt3dclear()
	pt3dadd(-2.3, 148.8, -2.1, 2.106)
	pt3dadd(6.8, 156, -4.5, 0.658)
	pt3dadd(11.1, 162.8, -8.2, 0.79)
	pt3dadd(17.5, 166, -14.2, 0.79)
  }
  apic[94] {pt3dclear()
	pt3dadd(17.5, 166, -14.2, 0.79)
	pt3dadd(11.4, 163.3, -14.2, 0.264)
	pt3dadd(9.4, 161.1, -14.2, 0.526)
  }
  apic[95] {pt3dclear()
	pt3dadd(17.5, 166, -14.2, 0.79)
	pt3dadd(18.9, 171.5, -14.2, 0.394)
	pt3dadd(20.7, 182.7, -14.6, 0.264)
  }
  apic[96] {pt3dclear()
	pt3dadd(-2.3, 148.8, -2.1, 2.106)
	pt3dadd(13.5, 154.7, 0.6, 1.58)
	pt3dadd(27.3, 159.2, 3.2, 1.448)
	pt3dadd(34.1, 157.6, 3.2, 1.448)
	pt3dadd(53.6, 162.7, 10.8, 1.316)
	pt3dadd(70.6, 170.9, 15.1, 1.448)
	pt3dadd(75.2, 179.3, 16.6, 1.71)
	pt3dadd(92.4, 186.6, 23.1, 1.184)
	pt3dadd(103.6, 194.7, 29.7, 1.316)
	pt3dadd(107, 208.3, 38.8, 1.316)
  }
  apic[97] {pt3dclear()
	pt3dadd(107, 208.3, 38.8, 1.316)
	pt3dadd(109.3, 211.3, 42.1, 0.658)
	pt3dadd(111.4, 222.2, 51.4, 0.264)
	pt3dadd(103.9, 257.1, 66.7, 0.264)
  }
  apic[98] {pt3dclear()
	pt3dadd(107, 208.3, 38.8, 1.316)
	pt3dadd(119, 210.1, 38.1, 0.658)
	pt3dadd(129.6, 209.9, 37.7, 0.394)
  }
  dend[18] {pt3dclear()
	pt3dadd(-12.7, 95.3, -3.1, 1.4)
	pt3dadd(-9.029, 97.429, 3.286, 1.4)
	pt3dadd(-15.429, 100.029, 17.186, 2.894)
  }
  dend[19] {pt3dclear()
	pt3dadd(-15.429, 100.029, 17.186, 2.894)
	pt3dadd(-21.729, 93.929, 16.886, 0.7)
	pt3dadd(-30.629, 94.029, 17.386, 0.658)
	pt3dadd(-35.129, 90.529, 17.386, 0.79)
	pt3dadd(-41.429, 85.329, 24.386, 0.79)
	pt3dadd(-44.329, 85.329, 26.986, 0.79)
	pt3dadd(-47.029, 78.229, 29.286, 0.79)
	pt3dadd(-55.429, 76.129, 32.386, 0.79)
	pt3dadd(-63.829, 76.129, 33.786, 1.052)
	pt3dadd(-75.029, 67.329, 41.086, 1.052)
	pt3dadd(-79.829, 69.529, 39.286, 1.052)
	pt3dadd(-87.529, 60.029, 39.986, 1.052)
	pt3dadd(-109.329, 48.129, 45.286, 0.79)
	pt3dadd(-128.329, 50.929, 45.086, 0.79)
	pt3dadd(-128.329, 51.029, 45.186, 0.526)
  }
  dend[20] {pt3dclear()
	pt3dadd(-15.429, 100.029, 17.186, 2.894)
	pt3dadd(-17.629, 105.129, 14.086, 1)
	pt3dadd(-22.629, 103.729, 14.786, 0.526)
	pt3dadd(-22.029, 105.929, 10.986, 0.526)
  }
  dend[21] {pt3dclear()
	pt3dadd(-11.2, 86.6, -0.7, 2.24)
	pt3dadd(-8.657, 87.857, 4.771, 2.24)
	pt3dadd(-4.757, 87.157, 19.571, 2.632)
	pt3dadd(6.743, 88.157, 15.071, 2.106)
	pt3dadd(16.043, 82.857, 17.971, 2.106)
  }
  dend[22] {pt3dclear()
	pt3dadd(16.043, 82.857, 17.971, 2.106)
	pt3dadd(22.543, 82.157, 11.671, 0.658)
	pt3dadd(32.543, 88.957, 11.071, 0.79)
  }
  dend[23] {pt3dclear()
	pt3dadd(32.543, 88.957, 11.071, 0.79)
	pt3dadd(45.343, 90.957, 13.571, 0.79)
	pt3dadd(59.543, 101.557, 23.171, 0.79)
	pt3dadd(66.143, 97.457, 26.471, 0.79)
	pt3dadd(91.943, 106.357, 37.871, 1.316)
	pt3dadd(112.843, 104.857, 47.371, 1.316)
  }
  dend[24] {pt3dclear()
	pt3dadd(112.843, 104.857, 47.371, 1.316)
	pt3dadd(129.343, 120.057, 49.971, 0.658)
	pt3dadd(131.343, 133.757, 57.971, 0.526)
  }
  dend[25] {pt3dclear()
	pt3dadd(112.843, 104.857, 47.371, 1.316)
	pt3dadd(116.443, 102.957, 47.071, 1.052)
	pt3dadd(121.143, 106.757, 46.571, 0.79)
	pt3dadd(145.243, 110.757, 54.971, 0.79)
	pt3dadd(161.243, 105.057, 48.571, 0.658)
	pt3dadd(183.443, 107.757, 51.871, 0.526)
  }
  dend[26] {pt3dclear()
	pt3dadd(32.543, 88.957, 11.071, 0.79)
	pt3dadd(41.443, 83.857, 9.871, 0.658)
	pt3dadd(50.843, 82.757, 9.871, 0.658)
	pt3dadd(58.543, 76.257, 7.471, 0.658)
	pt3dadd(74.843, 76.257, 7.471, 0.658)
	pt3dadd(99.043, 71.957, 4.471, 0.526)
  }
  dend[27] {pt3dclear()
	pt3dadd(16.043, 82.857, 17.971, 2.106)
	pt3dadd(19.443, 80.557, 17.971, 1.842)
  }
  dend[28] {pt3dclear()
	pt3dadd(19.443, 80.557, 17.971, 1.842)
	pt3dadd(42.143, 79.657, 9.171, 0.79)
	pt3dadd(49.343, 80.857, 9.171, 0.526)
	pt3dadd(75.543, 77.957, 15.771, 0.526)
	pt3dadd(83.043, 71.457, 15.771, 0.658)
	pt3dadd(97.243, 70.357, 15.771, 0.526)
	pt3dadd(106.043, 73.357, 15.671, 0.79)
	pt3dadd(119.043, 66.157, 15.671, 0.658)
	pt3dadd(127.043, 66.157, 15.671, 0.658)
	pt3dadd(132.543, 59.357, 15.671, 0.658)
	pt3dadd(145.843, 61.857, 15.671, 0.658)
	pt3dadd(150.543, 66.657, 15.671, 0.526)
	pt3dadd(159.243, 64.557, 20.671, 0.658)
	pt3dadd(167.343, 67.257, 20.671, 0.658)
	pt3dadd(176.143, 64.757, 28.171, 0.658)
	pt3dadd(183.143, 61.357, 30.971, 0.526)
	pt3dadd(188.543, 66.457, 33.471, 0.526)
	pt3dadd(198.843, 71.957, 35.671, 0.526)
  }
  dend[29] {pt3dclear()
	pt3dadd(19.443, 80.557, 17.971, 1.842)
	pt3dadd(23.543, 73.457, 17.371, 1.316)
	pt3dadd(27.143, 72.157, 17.471, 1.316)
	pt3dadd(28.843, 65.657, 17.471, 1.316)
	pt3dadd(42.043, 50.457, 18.971, 1.316)
	pt3dadd(61.743, 29.857, 18.971, 1.316)
	pt3dadd(61.843, 19.757, 23.471, 1.316)
	pt3dadd(67.543, 18.857, 26.771, 0.79)
  }
  dend[30] {pt3dclear()
	pt3dadd(67.543, 18.857, 26.771, 0.79)
	pt3dadd(76.143, 12.357, 20.471, 0.79)
	pt3dadd(78.143, 3.257, 20.071, 0.79)
	pt3dadd(83.543, -9.043, 17.571, 0.79)
  }
  dend[31] {pt3dclear()
	pt3dadd(67.543, 18.857, 26.771, 0.79)
	pt3dadd(71.643, -4.243, 26.171, 0.922)
	pt3dadd(76.843, -7.443, 26.171, 0.922)
	pt3dadd(81.843, -32.243, 28.371, 0.922)
	pt3dadd(85.843, -35.743, 32.871, 0.79)
	pt3dadd(83.343, -54.443, 37.471, 0.79)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
}
proc geom() {
}
proc geom_nseg() {
}
	objref all,dends,tcdends,ccdends,ccsyn,tcsyn,ccnetcon,tcnetcon,apcounter,apvec,nil


proc init(){
	objref all,dends,tcdends,ccdends,ccsyn,tcsyn ,ccnetcon,tcnetcon,apcounter,apvec ,nil

	all=new SectionList()
	dends = new SectionList()
	tcdends = new SectionList()
	ccdends = new SectionList()
	ccsyn=new List()
	tcsyn=new List()
	ccnetcon=new List()
	tcnetcon=new List()
	celldef()
	access soma
	distance()
	forall{

		all.append()
		for i=0,n3d()-1{
			pt3dchange(i,x3d(i)+$1,y3d(i)+$2,z3d(i),diam3d(i))	
		}
		dends.append()

		nseg=3
		insert pas
		e_pas=-60
		g_pas=1/30000//1/16000
		cm=1.5
		Ra=70
	}
	for i=0,31{
		access dend[i]
		tcdends.append()
		ccdends.append()
			}
	soma dends.remove()

	//forsec dends{diam=diam/1.2}
	objref apcounter,apvec,nil
	apvec=new Vector()
	access soma
	apcounter=new NetCon(&v(.5), nil)
	apcounter.threshold = -20 
	apcounter.record(apvec)
}

endtemplate l5