NMDA spikes in basal dendrites of L5 pyramidal neurons (Polsky et al. 2009)

 Download zip file   Auto-launch 
Help downloading and running models
Accession:184725
"... In apical dendrites of neocortical pyramidal neurons, calcium spikes are known to contribute to burst generation, but a comparable understanding of basal dendritic mechanisms is lacking. Here we show that NMDA spikes in basal dendrites mediate both detection and generation of bursts through a postsynaptic mechanism. High-frequency inputs to basal dendrites markedly facilitated NMDA spike initiation compared with low-frequency activation or single inputs. ..."
Reference:
1 . Polsky A, Mel B, Schiller J (2009) Encoding and decoding bursts by NMDA spikes in basal dendrites of layer 5 pyramidal neurons. J Neurosci 29:11891-903 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Neuron or other electrically excitable cell;
Brain Region(s)/Organism:
Cell Type(s): Neocortex V1 L6 pyramidal corticothalamic cell;
Channel(s):
Gap Junctions:
Receptor(s): AMPA; NMDA; Glutamate;
Gene(s):
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s): Action Potential Initiation; Bursting; Action Potentials; Synaptic Integration;
Implementer(s): Polsky, Alon [alonpol at tx.technion.ac.il];
Search NeuronDB for information about:  Neocortex V1 L6 pyramidal corticothalamic cell; AMPA; NMDA; Glutamate;
begintemplate celltemplate
public apcounter,apvec
public all,dends,tcdends,ccdends,ccsyn,tcsyn,ccnetcon,tcnetcon,soma,dend,apic
	public Esyn,Enetcon,Isyn,Inetcon,Esourse,numdend,Vvec,spikevec,segdends
	objref Esyn,Enetcon[2],Isyn,Inetcon,Esourse[2]
	objref apcounter,apvec,nil,Vvec[2],spikevec[2]
	objref all,dends,segdends,Esyn

//load_file("nrngui.hoc")
proc celldef() {
  topol()
}

create soma, dend[84], apic[115]

proc topol() { local i

  connect dend(0), soma(0.5)
  for i = 1, 2 connect dend[i](0), dend[i-1](1)
  connect dend[3](0), dend[1](1)
  connect dend[4](0), dend(1)
  for i = 5, 6 connect dend[i](0), dend[i-1](1)
  connect dend[7](0), dend[5](1)
  connect dend[8](0), dend[4](1)
  connect dend[9](0), soma(0.5)
  for i = 10, 11 connect dend[i](0), dend[i-1](1)
  connect dend[12](0), dend[10](1)
  for i = 13, 14 connect dend[i](0), dend[12](1)
  connect dend[15](0), dend[9](1)
  for i = 16, 17 connect dend[i](0), soma(0.5)
  for i = 18, 19 connect dend[i](0), dend[17](1)
  for i = 20, 21 connect dend[i](0), dend[i-1](1)
  connect dend[22](0), dend[20](1)
  connect dend[23](0), dend[19](1)
  connect dend[24](0), soma(0.5)
  for i = 25, 26 connect dend[i](0), dend[i-1](1)
  connect dend[27](0), dend[25](1)
  for i = 28, 29 connect dend[i](0), dend[27](1)
  for i = 30, 31 connect dend[i](0), dend[29](1)
  connect dend[32](0), dend[27](1)
  for i = 33, 34 connect dend[i](0), dend[i-1](1)
  connect dend[35](0), dend[33](1)
  connect dend[36](0), dend[32](1)
  connect dend[37](0), dend[24](1)
  for i = 38, 39 connect dend[i](0), dend[37](1)
  for i = 40, 41 connect dend[i](0), dend[39](1)
  for i = 42, 43 connect dend[i](0), dend[i-1](1)
  connect dend[44](0), dend[42](1)
  connect dend[45](0), dend[41](1)
  connect dend[46](0), soma(0.5)
  for i = 47, 48 connect dend[i](0), dend[46](1)
  connect dend[49](0), soma(0.5)
  for i = 50, 52 connect dend[i](0), dend[49](1)
  connect dend[53](0), soma(0.5)
  for i = 54, 55 connect dend[i](0), dend[i-1](1)
  connect dend[56](0), dend[54](1)
  connect dend[57](0), dend[53](1)
  connect dend[58](0), soma(0.5)
  for i = 59, 60 connect dend[i](0), dend[58](1)
  for i = 61, 62 connect dend[i](0), dend[i-1](1)
  connect dend[63](0), dend[61](1)
  connect dend[64](0), dend[60](1)
  for i = 65, 67 connect dend[i](0), dend[64](1)
  connect dend[68](0), soma(0.5)
  for i = 69, 70 connect dend[i](0), dend[i-1](1)
  connect dend[71](0), dend[69](1)
  connect dend[72](0), dend[68](1)
  for i = 73, 74 connect dend[i](0), dend[72](1)
  for i = 75, 76 connect dend[i](0), dend[i-1](1)
  connect dend[77](0), dend[75](1)
  connect dend[78](0), dend[74](1)
  for i = 79, 80 connect dend[i](0), dend[78](1)
  for i = 81, 82 connect dend[i](0), dend[80](1)
  connect dend[83](0), soma(0.5)
  connect apic(0), soma(0.5)
  for i = 1, 16 connect apic[i](0), apic[i-1](1)
  connect apic[17](0), apic[15](1)
  for i = 18, 20 connect apic[i](0), apic[i-1](1)
  connect apic[21](0), apic[19](1)
  for i = 22, 23 connect apic[i](0), apic[21](1)
  connect apic[24](0), apic[18](1)
  for i = 25, 26 connect apic[i](0), apic[24](1)
  connect apic[27](0), apic[17](1)
  connect apic[28](0), apic[14](1)
  for i = 29, 32 connect apic[i](0), apic[i-1](1)
  connect apic[33](0), apic[31](1)
  connect apic[34](0), apic[30](1)
  connect apic[35](0), apic[29](1)
  for i = 36, 37 connect apic[i](0), apic[35](1)
  for i = 38, 39 connect apic[i](0), apic[37](1)
  connect apic[40](0), apic[28](1)
  for i = 41, 42 connect apic[i](0), apic[40](1)
  connect apic[43](0), apic[13](1)
  for i = 44, 45 connect apic[i](0), apic[43](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, 53 connect apic[i](0), apic[i-1](1)
  connect apic[54](0), apic[52](1)
  connect apic[55](0), apic[51](1)
  connect apic[56](0), apic[50](1)
  connect apic[57](0), apic[45](1)
  connect apic[58](0), apic[12](1)
  connect apic[59](0), apic[11](1)
  for i = 60, 61 connect apic[i](0), apic[59](1)
  for i = 62, 63 connect apic[i](0), apic[61](1)
  connect apic[64](0), apic[10](1)
  for i = 65, 66 connect apic[i](0), apic[64](1)
  connect apic[67](0), apic[9](1)
  for i = 68, 69 connect apic[i](0), apic[67](1)
  connect apic[70](0), apic[8](1)
  connect apic[71](0), apic[7](1)
  for i = 72, 73 connect apic[i](0), apic[i-1](1)
  connect apic[74](0), apic[72](1)
  connect apic[75](0), apic[71](1)
  for i = 76, 77 connect apic[i](0), apic[i-1](1)
  connect apic[78](0), apic[76](1)
  connect apic[79](0), apic[75](1)
  connect apic[80](0), apic[6](1)
  for i = 81, 82 connect apic[i](0), apic[i-1](1)
  connect apic[83](0), apic[81](1)
  for i = 84, 85 connect apic[i](0), apic[83](1)
  connect apic[86](0), apic[80](1)
  connect apic[87](0), apic[5](1)
  for i = 88, 89 connect apic[i](0), apic[i-1](1)
  connect apic[90](0), apic[88](1)
  for i = 91, 92 connect apic[i](0), apic[90](1)
  connect apic[93](0), apic[87](1)
  for i = 94, 95 connect apic[i](0), apic[93](1)
  connect apic[96](0), apic[4](1)
  for i = 97, 98 connect apic[i](0), apic[i-1](1)
  connect apic[99](0), apic[97](1)
  connect apic[100](0), apic[96](1)
  connect apic[101](0), apic[3](1)
  connect apic[102](0), apic[2](1)
  for i = 103, 104 connect apic[i](0), apic[102](1)
  for i = 105, 106 connect apic[i](0), apic[104](1)
  connect apic[107](0), apic[1](1)
  for i = 108, 109 connect apic[i](0), apic[i-1](1)
  connect apic[110](0), apic[108](1)
  connect apic[111](0), apic[107](1)
  connect apic[112](0), apic(1)
  for i = 113, 114 connect apic[i](0), apic[112](1)
  basic_shape()
}
proc shape3d_1() {
  soma {pt3dclear()
	pt3dadd(-8.33578, -10.6832, 5.08048, 3.79872)
	pt3dadd(-6.97072, -11.217, 5.16735, 7.5118)
	pt3dadd(-5.60566, -11.7509, 5.25421, 9.2805)
	pt3dadd(-4.2406, -12.2847, 5.34108, 11.0329)
	pt3dadd(-2.87554, -12.8186, 5.42794, 11.3137)
	pt3dadd(-1.51048, -13.3524, 5.5148, 12.4047)
	pt3dadd(-0.145418, -13.8863, 5.60167, 12.5529)
	pt3dadd(1.21964, -14.4201, 5.68853, 12.4774)
	pt3dadd(2.5847, -14.954, 5.77539, 13.1474)
	pt3dadd(3.94976, -15.4878, 5.86226, 14.8582)
	pt3dadd(5.31482, -16.0216, 5.94912, 14.6246)
	pt3dadd(6.67988, -16.5555, 6.03599, 13.2753)
	pt3dadd(8.04494, -17.0893, 6.12285, 13.0582)
	pt3dadd(9.41, -17.6232, 6.20971, 13.4107)
	pt3dadd(10.7751, -18.157, 6.29658, 11.4813)
	pt3dadd(12.1401, -18.6909, 6.38344, 9.3488)
	pt3dadd(13.5052, -19.2247, 6.4703, 7.9678)
	pt3dadd(14.8702, -19.7586, 6.55717, 16.479)
	pt3dadd(16.2353, -20.2924, 6.64403, 5.5539)
	pt3dadd(17.6004, -20.8263, 6.73089, 4.02437)
	pt3dadd(18.9654, -21.3601, 6.81776, 2.60698)
  }
  dend {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(-9.41, -12.24, 7.04, 4.33)
	pt3dadd(-11.11, -12.43, 7.04, 3.77)
	pt3dadd(-13.37, -12.81, 7.04, 3.39)
	pt3dadd(-15.44, -13, 7.12, 3.2)
	pt3dadd(-17.32, -13.37, 7.12, 3.2)
	pt3dadd(-18.45, -14.5, 7.12, 3.2)
	pt3dadd(-20.52, -14.13, 7.12, 3.2)
	pt3dadd(-22.22, -13.37, 7.12, 3.2)
	pt3dadd(-24.85, -13.37, 7.12, 3.2)
  }
  dend[1] {pt3dclear()
	pt3dadd(-24.85, -13.37, 7.12, 1.88)
	pt3dadd(-26.74, -13, 7.12, 1.88)
	pt3dadd(-28.99, -12.81, 7.12, 1.88)
	pt3dadd(-30.88, -12.62, 7.12, 1.88)
	pt3dadd(-33.14, -12.62, 9.17, 1.88)
	pt3dadd(-34.83, -12.43, 9.32, 1.88)
	pt3dadd(-36.34, -11.3, 9.32, 1.88)
	pt3dadd(-37.66, -10.36, 9.39, 1.88)
	pt3dadd(-38.78, -8.85, 9.39, 1.88)
	pt3dadd(-39.54, -6.97, 9.39, 1.88)
	pt3dadd(-40.1, -5.27, 9.47, 1.69)
	pt3dadd(-41.99, -4.52, 9.47, 1.69)
	pt3dadd(-43.68, -4.52, 9.47, 1.69)
	pt3dadd(-45.19, -5.46, 9.47, 1.69)
	pt3dadd(-46.32, -6.22, 9.47, 1.69)
	pt3dadd(-48.39, -5.84, 10.15, 1.69)
	pt3dadd(-50.46, -5.09, 9.92, 1.69)
	pt3dadd(-52.15, -4.33, 9.7, 1.69)
	pt3dadd(-53.85, -3.2, 9.62, 1.69)
	pt3dadd(-55.54, -2.26, 9.47, 1.69)
	pt3dadd(-57.24, -1.32, 9.47, 1.69)
	pt3dadd(-58.74, -0.38, 9.39, 1.69)
	pt3dadd(-59.87, 1.32, 9.39, 1.69)
	pt3dadd(-60.44, 2.45, 9.39, 1.69)
	pt3dadd(-61.38, 3.39, 9.39, 1.69)
	pt3dadd(-62.7, 4.33, 9.32, 1.69)
	pt3dadd(-64.58, 4.52, 7.73, 1.69)
	pt3dadd(-66.46, 4.33, 7.57, 1.69)
  }
  dend[2] {pt3dclear()
	pt3dadd(-66.46, 4.33, 7.57, 1.69)
	pt3dadd(-69.47, 3.77, 4.92, 1.69)
	pt3dadd(-71.36, 3.2, 4.85, 1.69)
	pt3dadd(-73.43, 3.39, 4.85, 1.69)
	pt3dadd(-74.37, 2.26, 4.85, 1.69)
	pt3dadd(-76.06, 2.64, 2.42, 1.69)
	pt3dadd(-78.13, 2.45, 2.35, 1.69)
	pt3dadd(-79.83, 2.45, 2.35, 1.69)
	pt3dadd(-81.34, 3.2, 2.35, 1.69)
	pt3dadd(-83.59, 3.58, 2.35, 1.69)
	pt3dadd(-86.23, 3.77, 0.76, 1.69)
	pt3dadd(-88.68, 3.2, 0.68, 1.69)
	pt3dadd(-90.75, 2.26, 0.68, 1.69)
	pt3dadd(-91.5, 0.94, 0.68, 1.69)
	pt3dadd(-93.2, -0.57, 0.68, 1.69)
	pt3dadd(-95.27, 0.19, 0.68, 1.69)
	pt3dadd(-95.83, 1.51, 0.68, 1.69)
	pt3dadd(-96.21, 3.39, -1.06, 1.69)
	pt3dadd(-97.15, 5.09, -1.06, 1.69)
	pt3dadd(-98.28, 5.84, -1.06, 1.69)
	pt3dadd(-99.79, 6.97, -1.06, 1.69)
	pt3dadd(-101.1, 7.91, -3.64, 1.69)
	pt3dadd(-103.18, 8.85, -3.64, 2.07)
	pt3dadd(-105.33, 9.38, -3.26, 2.07)
	pt3dadd(-107.96, 10.13, -3.41, 2.07)
	pt3dadd(-109.84, 11.27, -3.41, 2.07)
	pt3dadd(-111.35, 12.77, -3.48, 2.07)
	pt3dadd(-113.42, 13.15, -3.48, 2.07)
	pt3dadd(-115.49, 12.77, -3.48, 2.07)
	pt3dadd(-117.38, 13.53, -3.48, 2.07)
	pt3dadd(-119.07, 14.47, -4.62, 2.07)
	pt3dadd(-121.52, 15.6, -4.7, 2.07)
	pt3dadd(-123.21, 16.54, -4.7, 1.69)
	pt3dadd(-125.1, 17.67, -4.77, 1.51)
	pt3dadd(-126.98, 18.42, -4.77, 1.51)
	pt3dadd(-128.86, 19.55, -4.77, 1.51)
	pt3dadd(-130.74, 18.61, -4.77, 1.51)
	pt3dadd(-132.44, 18.23, -4.77, 1.51)
	pt3dadd(-134.32, 17.67, -4.77, 1.88)
	pt3dadd(-135.83, 17.29, -4.77, 1.88)
	pt3dadd(-137.33, 16.54, -4.77, 1.88)
	pt3dadd(-139.03, 16.16, -4.77, 1.88)
	pt3dadd(-139.97, 15.79, -4.77, 1.88)
	pt3dadd(-141.1, 16.54, -4.77, 1.69)
	pt3dadd(-142.6, 16.92, -4.77, 1.69)
	pt3dadd(-143.55, 15.97, -4.77, 1.69)
	pt3dadd(-143.73, 14.47, -4.77, 1.69)
	pt3dadd(-144.86, 13.53, -4.7, 1.69)
	pt3dadd(-146.94, 13.53, -4.55, 1.69)
	pt3dadd(-148.63, 14.47, -4.39, 1.69)
	pt3dadd(-150.7, 14.84, -4.32, 1.69)
	pt3dadd(-151.83, 15.6, -4.24, 1.69)
	pt3dadd(-153.34, 15.6, -4.24, 1.69)
	pt3dadd(-154.84, 14.84, -4.17, 1.32)
	pt3dadd(-156.35, 13.9, -4.17, 1.32)
	pt3dadd(-158.8, 13.71, -3.26, 1.32)
	pt3dadd(-161.24, 13.71, -3.11, 1.32)
	pt3dadd(-163.13, 14.09, -3.03, 1.32)
	pt3dadd(-164.82, 14.66, -2.95, 1.32)
	pt3dadd(-167.27, 13.71, -1.14, 1.32)
	pt3dadd(-168.21, 14.66, -0.98, 1.32)
	pt3dadd(-168.4, 15.79, 0.68, 1.13)
	pt3dadd(-169.9, 16.35, 0.83, 1.13)
	pt3dadd(-171.79, 15.6, 0.91, 1.13)
	pt3dadd(-173.11, 15.22, 0.98, 1.13)
	pt3dadd(-174.61, 15.6, 0.98, 1.13)
	pt3dadd(-176.31, 15.22, 2.65, 1.13)
	pt3dadd(-177.81, 14.66, 2.73, 1.13)
	pt3dadd(-179.51, 14.09, 2.8, 1.13)
	pt3dadd(-181.2, 14.47, 2.8, 1.13)
	pt3dadd(-181.95, 15.6, 2.88, 1.13)
	pt3dadd(-182.52, 16.73, 2.88, 1.13)
	pt3dadd(-182.33, 18.23, 2.88, 1.13)
  }
  dend[3] {pt3dclear()
	pt3dadd(-66.46, 4.33, 7.57, 1.69)
	pt3dadd(-68.05, 5.8, 9.24, 1.69)
	pt3dadd(-69.55, 6.93, 9.39, 1.69)
	pt3dadd(-71.06, 7.87, 9.47, 1.69)
	pt3dadd(-72.75, 9, 9.54, 1.69)
	pt3dadd(-74.07, 9.38, 9.62, 1.51)
	pt3dadd(-75.39, 8.82, 11.67, 1.51)
	pt3dadd(-76.52, 8.06, 11.74, 1.51)
	pt3dadd(-77.84, 6.74, 11.82, 1.51)
  }
}
proc shape3d_2() {
  dend[3] {	pt3dadd(-79.16, 6.74, 11.97, 1.51)
	pt3dadd(-78.97, 8.44, 14.92, 1.32)
	pt3dadd(-78.21, 10.13, 15, 1.32)
	pt3dadd(-78.59, 11.83, 16.59, 1.13)
	pt3dadd(-80.66, 12.02, 16.66, 1.13)
	pt3dadd(-82.17, 11.45, 16.74, 1.13)
	pt3dadd(-83.49, 11.64, 16.74, 1.13)
	pt3dadd(-84.8, 12.4, 18.63, 1.13)
	pt3dadd(-86.31, 13.53, 18.79, 1.13)
	pt3dadd(-86.69, 14.66, 18.79, 1.13)
	pt3dadd(-87.82, 15.22, 18.86, 1.13)
	pt3dadd(-89.13, 15.03, 18.86, 1.13)
  }
  dend[4] {pt3dclear()
	pt3dadd(-24.85, -13.37, 7.12, 2.07)
	pt3dadd(-26.82, -14.17, 12.12, 2.07)
	pt3dadd(-28.89, -15.11, 12.2, 2.07)
	pt3dadd(-31.52, -15.11, 12.2, 2.07)
	pt3dadd(-33.78, -14.73, 12.2, 2.07)
	pt3dadd(-36.23, -15.11, 12.2, 2.07)
	pt3dadd(-38.11, -15.86, 12.2, 2.07)
	pt3dadd(-39.62, -16.43, 12.2, 2.07)
	pt3dadd(-41.31, -16.61, 12.2, 2.07)
	pt3dadd(-43.2, -17.18, 12.2, 2.07)
	pt3dadd(-45.83, -17.93, 11.36, 2.07)
	pt3dadd(-47.9, -18.69, 11.06, 2.07)
	pt3dadd(-50.16, -19.82, 9.17, 2.07)
	pt3dadd(-52.61, -19.82, 9.01, 2.07)
	pt3dadd(-54.68, -19.44, 9.01, 2.07)
	pt3dadd(-56.56, -17.93, 11.89, 2.07)
	pt3dadd(-59.2, -16.8, 12.2, 2.07)
	pt3dadd(-62.02, -15.67, 12.42, 2.07)
  }
  dend[5] {pt3dclear()
	pt3dadd(-62.02, -15.67, 12.42, 1.51)
	pt3dadd(-62.59, -14.35, 15.91, 1.51)
	pt3dadd(-64.66, -13.6, 16.06, 1.51)
	pt3dadd(-66.92, -13.6, 16.13, 1.51)
	pt3dadd(-68.61, -14.17, 16.21, 1.51)
	pt3dadd(-70.12, -14.92, 16.21, 1.51)
	pt3dadd(-71.62, -15.48, 16.29, 1.51)
	pt3dadd(-73.32, -16.24, 16.29, 1.51)
	pt3dadd(-74.83, -15.67, 16.29, 1.51)
	pt3dadd(-76.14, -14.54, 16.29, 1.51)
	pt3dadd(-77.27, -13.79, 16.29, 1.51)
	pt3dadd(-79.16, -13.79, 18.03, 1.51)
	pt3dadd(-80.85, -14.92, 18.1, 1.51)
	pt3dadd(-82.73, -15.48, 18.18, 1.51)
	pt3dadd(-84.62, -16.43, 18.18, 1.51)
	pt3dadd(-86.5, -16.43, 18.18, 1.51)
	pt3dadd(-88.19, -15.86, 18.18, 1.51)
	pt3dadd(-89.89, -14.92, 18.26, 1.51)
	pt3dadd(-91.58, -13.98, 18.26, 1.51)
	pt3dadd(-93.28, -13.6, 18.33, 1.51)
	pt3dadd(-95.16, -13.79, 18.33, 1.51)
	pt3dadd(-96.85, -15.11, 18.41, 1.51)
	pt3dadd(-98.36, -16.05, 18.48, 1.51)
	pt3dadd(-99.49, -16.61, 18.56, 1.51)
  }
  dend[6] {pt3dclear()
	pt3dadd(-99.49, -16.61, 18.56, 1.51)
	pt3dadd(-100.62, -17.37, 16.21, 1.51)
	pt3dadd(-103.07, -17.74, 15.98, 1.51)
	pt3dadd(-104.2, -16.24, 15.83, 1.51)
	pt3dadd(-104.01, -14.35, 15.76, 1.51)
	pt3dadd(-104.95, -13.98, 19.39, 1.51)
	pt3dadd(-107.02, -13.79, 19.54, 1.51)
	pt3dadd(-109.09, -14.17, 19.62, 1.51)
	pt3dadd(-111.16, -14.35, 19.69, 1.51)
	pt3dadd(-113.05, -14.73, 19.77, 1.51)
	pt3dadd(-114.93, -15.67, 17.88, 1.51)
	pt3dadd(-117.56, -16.05, 17.65, 1.51)
	pt3dadd(-119.45, -17.18, 17.57, 1.51)
	pt3dadd(-122.08, -17.37, 17.5, 1.51)
	pt3dadd(-124.34, -16.61, 17.5, 1.51)
	pt3dadd(-126.22, -15.48, 17.5, 1.51)
	pt3dadd(-127.35, -13.6, 17.42, 1.51)
	pt3dadd(-128.11, -12.09, 17.42, 1.51)
	pt3dadd(-129.24, -10.96, 17.42, 1.51)
	pt3dadd(-130.56, -9.83, 17.42, 1.51)
	pt3dadd(-131.87, -9.46, 16.44, 1.51)
	pt3dadd(-134.32, -8.89, 16.29, 1.51)
	pt3dadd(-135.64, -7.76, 16.21, 1.51)
	pt3dadd(-137.14, -7.01, 16.13, 1.51)
	pt3dadd(-139.03, -6.44, 16.13, 1.51)
	pt3dadd(-139.97, -4.93, 16.13, 1.51)
	pt3dadd(-140.72, -3.8, 16.06, 1.51)
	pt3dadd(-141.29, -2.3, 16.06, 1.13)
	pt3dadd(-142.79, -1.17, 16.06, 1.13)
	pt3dadd(-143.36, -0.23, 16.06, 1.13)
	pt3dadd(-143.17, 0.72, 11.97, 1.69)
	pt3dadd(-142.98, 2.22, 11.97, 1.69)
	pt3dadd(-143.73, 3.17, 12.12, 1.32)
	pt3dadd(-145.81, 3.35, 12.2, 1.32)
	pt3dadd(-146.37, 1.66, 12.27, 1.32)
	pt3dadd(-146.94, 0.34, 8.71, 1.32)
	pt3dadd(-148.63, -0.41, 5.45, 1.69)
	pt3dadd(-150.89, -1.36, 5.45, 1.69)
	pt3dadd(-152.58, -2.3, 5.45, 1.69)
	pt3dadd(-153.71, -3.8, 5.45, 1.69)
	pt3dadd(-154.28, -5.69, 5.45, 1.69)
	pt3dadd(-154.09, -7.38, 5.45, 1.69)
	pt3dadd(-153.34, -9.27, 5.45, 1.69)
	pt3dadd(-152.4, -10.59, 5.45, 1.69)
  }
  dend[7] {pt3dclear()
	pt3dadd(-99.49, -16.61, 18.56, 1.13)
	pt3dadd(-100.62, -15.48, 18.94, 1.13)
	pt3dadd(-101.94, -13.98, 19.09, 1.13)
	pt3dadd(-103.26, -13.22, 19.16, 1.13)
	pt3dadd(-105.33, -12.85, 19.24, 1.13)
	pt3dadd(-107.21, -13.22, 19.24, 1.13)
	pt3dadd(-108.53, -13.41, 19.32, 1.13)
  }
  dend[8] {pt3dclear()
	pt3dadd(-62.02, -15.67, 12.42, 1.69)
	pt3dadd(-64.28, -17.18, 16.51, 1.69)
	pt3dadd(-65.98, -19.06, 16.66, 1.69)
	pt3dadd(-67.67, -20.38, 16.66, 1.69)
	pt3dadd(-69.37, -21.32, 16.74, 1.69)
	pt3dadd(-69.74, -23.77, 16.74, 1.69)
	pt3dadd(-69.18, -26.03, 12.88, 1.69)
	pt3dadd(-68.8, -27.92, 12.73, 1.69)
	pt3dadd(-69.55, -30.74, 12.65, 1.69)
	pt3dadd(-71.25, -32.63, 8.71, 1.69)
	pt3dadd(-72.94, -33.94, 8.56, 1.69)
	pt3dadd(-73.7, -36.58, 8.48, 1.69)
	pt3dadd(-74.83, -39.6, 8.41, 1.69)
	pt3dadd(-75.2, -42.23, 8.41, 1.69)
	pt3dadd(-76.9, -44.12, 8.41, 1.69)
	pt3dadd(-78.4, -46.19, 8.41, 1.69)
	pt3dadd(-79.72, -48.07, 8.33, 1.69)
	pt3dadd(-80.85, -49.96, 8.33, 1.69)
	pt3dadd(-81.6, -51.65, 8.33, 1.69)
	pt3dadd(-83.49, -52.59, 8.33, 1.69)
	pt3dadd(-85.56, -52.97, 6.89, 1.69)
	pt3dadd(-87.44, -53.16, 6.82, 1.69)
	pt3dadd(-88.76, -54.66, 6.82, 1.69)
	pt3dadd(-90.08, -56.55, 6.74, 1.69)
	pt3dadd(-91.39, -58.06, 6.74, 1.69)
	pt3dadd(-93.84, -57.87, 6.74, 1.69)
	pt3dadd(-95.72, -58.24, 6.74, 1.69)
	pt3dadd(-97.42, -59.94, 1.97, 1.69)
	pt3dadd(-97.61, -62.58, 1.97, 1.69)
	pt3dadd(-97.98, -64.46, 1.97, 1.69)
	pt3dadd(-98.92, -66.72, 1.97, 1.69)
	pt3dadd(-100.62, -68.6, 1.97, 1.69)
	pt3dadd(-102.13, -69.73, 1.89, 1.69)
	pt3dadd(-104.01, -69.36, -0.38, 1.69)
	pt3dadd(-105.33, -68.04, -0.83, 1.69)
	pt3dadd(-107.4, -67.29, -0.83, 1.69)
	pt3dadd(-109.47, -66.91, -0.83, 1.69)
	pt3dadd(-111.16, -67.1, -0.83, 1.69)
	pt3dadd(-112.86, -68.04, -4.39, 1.69)
	pt3dadd(-114.55, -69.92, -4.47, 1.69)
	pt3dadd(-115.12, -71.81, -4.47, 1.69)
	pt3dadd(-116.62, -72.37, -4.47, 1.69)
	pt3dadd(-118.32, -72.37, -4.47, 1.69)
	pt3dadd(-120.2, -72.94, -5.76, 1.69)
	pt3dadd(-122.08, -73.5, -5.76, 1.69)
	pt3dadd(-123.97, -74.63, -5.83, 1.69)
	pt3dadd(-124.91, -77.08, -5.83, 1.69)
	pt3dadd(-126.56, -78.76, -4.85, 1.69)
	pt3dadd(-128.07, -80.07, -5.08, 1.69)
	pt3dadd(-129.76, -81.2, -5.15, 1.69)
	pt3dadd(-131.27, -81.96, -7.8, 1.69)
	pt3dadd(-133.34, -82.52, -7.8, 1.69)
	pt3dadd(-134.09, -84.78, -7.88, 1.69)
	pt3dadd(-135.22, -85.91, -7.88, 1.69)
	pt3dadd(-137.29, -87.61, -7.88, 1.69)
	pt3dadd(-139.36, -89.12, -7.88, 1.69)
	pt3dadd(-141.25, -90.06, -7.88, 1.69)
	pt3dadd(-142.75, -91.38, -7.95, 1.69)
	pt3dadd(-142.94, -93.64, -10, 1.69)
	pt3dadd(-144.26, -95.71, -10, 1.69)
	pt3dadd(-145.2, -97.78, -10, 1.69)
	pt3dadd(-147.08, -98.72, -10, 1.69)
	pt3dadd(-148.21, -100.04, -10, 1.69)
	pt3dadd(-150.66, -101.36, -12.2, 1.69)
	pt3dadd(-151.79, -102.87, -12.2, 1.69)
	pt3dadd(-153.11, -103.81, -12.2, 1.69)
	pt3dadd(-154.43, -104.75, -12.2, 1.69)
	pt3dadd(-155.93, -103.81, -12.73, 1.69)
	pt3dadd(-157.82, -104.37, -16.29, 1.69)
	pt3dadd(-159.7, -104.56, -16.59, 1.69)
	pt3dadd(-161.58, -103.62, -16.66, 1.69)
	pt3dadd(-162.71, -102.49, -16.66, 1.69)
	pt3dadd(-164.4, -102.11, -16.66, 1.69)
	pt3dadd(-166.29, -102.11, -15, 1.69)
	pt3dadd(-169.11, -102.3, -14.54, 1.69)
	pt3dadd(-170.99, -101.55, -14.32, 1.69)
	pt3dadd(-173.25, -100.8, -14.17, 1.69)
	pt3dadd(-174.76, -100.98, -14.01, 1.69)
	pt3dadd(-176.64, -101.17, -13.86, 1.69)
	pt3dadd(-178.34, -102.3, -13.79, 1.69)
	pt3dadd(-179.66, -103.62, -13.79, 1.69)
	pt3dadd(-180.78, -102.49, -13.71, 1.69)
	pt3dadd(-182.67, -101.36, -13.71, 1.69)
	pt3dadd(-183.99, -100.8, -13.71, 1.69)
	pt3dadd(-186.06, -100.8, -13.71, 1.69)
	pt3dadd(-187.94, -101.36, -13.64, 1.51)
	pt3dadd(-189.45, -101.55, -13.64, 1.32)
	pt3dadd(-191.14, -102.11, -13.64, 1.32)
	pt3dadd(-192.27, -102.49, -13.64, 0.94)
	pt3dadd(-194.15, -102.87, -13.64, 0.56)
  }
  dend[9] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(-7.52, -19.66, 9.85, 2.64)
	pt3dadd(-9.22, -20.98, 9.85, 2.64)
	pt3dadd(-11.85, -22.87, 10.76, 2.45)
	pt3dadd(-14.86, -24.75, 12.12, 3.01)
  }
}
proc shape3d_3() {
  dend[9] {	pt3dadd(-16.75, -26.07, 12.35, 3.01)
	pt3dadd(-18.06, -27.95, 12.35, 3.01)
  }
  dend[10] {pt3dclear()
	pt3dadd(-18.06, -27.95, 12.35, 2.45)
	pt3dadd(-19.57, -30.4, 15, 2.45)
	pt3dadd(-20.51, -31.91, 14.92, 2.45)
  }
  dend[11] {pt3dclear()
	pt3dadd(-20.51, -31.91, 14.92, 2.07)
	pt3dadd(-22.02, -33.79, 15.45, 2.07)
	pt3dadd(-23.9, -35.49, 15.45, 2.07)
	pt3dadd(-26.16, -36.99, 15.45, 2.07)
	pt3dadd(-28.04, -37.93, 15.45, 2.07)
	pt3dadd(-29.93, -39.25, 15.76, 2.07)
	pt3dadd(-32.37, -40.76, 15.91, 2.07)
	pt3dadd(-33.5, -42.46, 12.27, 1.69)
	pt3dadd(-34.63, -43.59, 12.2, 1.32)
	pt3dadd(-36.33, -44.15, 15.07, 1.32)
	pt3dadd(-37.65, -44.53, 15.23, 1.32)
	pt3dadd(-37.27, -46.41, 15.38, 1.32)
	pt3dadd(-37.27, -48.11, 17.2, 1.13)
	pt3dadd(-39.34, -49.05, 16.97, 1.13)
	pt3dadd(-40.47, -50.37, 13.56, 1.13)
	pt3dadd(-41.79, -52.06, 16.82, 1.13)
	pt3dadd(-43.11, -53.57, 16.97, 1.13)
	pt3dadd(-44.05, -54.89, 17.2, 1.69)
	pt3dadd(-43.11, -56.58, 17.2, 1.69)
	pt3dadd(-43.67, -58.66, 17.27, 1.69)
	pt3dadd(-42.54, -59.97, 19.39, 1.13)
	pt3dadd(-41.6, -60.73, 19.47, 1.13)
	pt3dadd(-41.98, -62.61, 19.47, 1.13)
  }
  dend[12] {pt3dclear()
	pt3dadd(-20.51, -31.91, 14.92, 1.69)
	pt3dadd(-20.89, -34.36, 12.8, 1.69)
	pt3dadd(-22.02, -37.18, 12.57, 1.69)
	pt3dadd(-22.4, -39.44, 12.5, 1.69)
	pt3dadd(-22.02, -41.7, 12.42, 1.69)
	pt3dadd(-20.14, -42.83, 12.42, 1.69)
	pt3dadd(-19.19, -45.28, 8.48, 1.69)
	pt3dadd(-19.19, -47.92, 8.33, 2.07)
	pt3dadd(-20.51, -50.18, 5.45, 2.07)
	pt3dadd(-22.77, -51.69, 5.45, 2.07)
	pt3dadd(-23.9, -54.13, 5.45, 2.07)
	pt3dadd(-23.9, -55.45, 5.45, 2.07)
  }
  dend[13] {pt3dclear()
	pt3dadd(-23.9, -55.45, 5.45, 1.88)
	pt3dadd(-24.28, -58.28, 2.8, 1.88)
	pt3dadd(-24.84, -60.92, 2.8, 1.88)
	pt3dadd(-24.28, -62.99, 2.8, 1.88)
	pt3dadd(-23.52, -64.68, 2.8, 1.88)
	pt3dadd(-22.77, -66.76, 2.73, 1.88)
	pt3dadd(-21.64, -68.45, 2.73, 1.88)
	pt3dadd(-21.83, -70.52, 0.23, 1.88)
	pt3dadd(-22.96, -72.97, 0.15, 1.88)
	pt3dadd(-23.34, -75.04, 0.15, 1.88)
	pt3dadd(-24.09, -76.93, 0.15, 1.88)
	pt3dadd(-23.52, -78.81, 0.15, 1.88)
	pt3dadd(-24.65, -80.32, 0.15, 1.88)
	pt3dadd(-25.6, -81.64, 0.15, 1.88)
	pt3dadd(-26.16, -82.96, 0.15, 1.88)
	pt3dadd(-27.1, -85.78, 0.15, 1.88)
	pt3dadd(-27.26, -87.3, 1.59, 1.88)
	pt3dadd(-26.31, -89.75, 1.82, 1.88)
	pt3dadd(-25.37, -91.63, 1.89, 1.88)
	pt3dadd(-25.56, -93.52, 1.97, 1.88)
	pt3dadd(-24.62, -95.59, 0.15, 1.51)
	pt3dadd(-25.18, -97.66, 0, 1.51)
	pt3dadd(-26.5, -98.98, -0.08, 1.51)
	pt3dadd(-26.69, -101.43, -0.15, 1.88)
	pt3dadd(-26.31, -104.44, 0.3, 2.26)
	pt3dadd(-25.18, -106.7, 0.45, 2.26)
	pt3dadd(-25.75, -109.34, 0.53, 2.26)
	pt3dadd(-25.56, -111.79, 0.61, 2.26)
	pt3dadd(-26.31, -113.86, 0.61, 2.26)
	pt3dadd(-26.88, -116.31, 0.68, 2.26)
	pt3dadd(-27.63, -117.44, 0.68, 2.26)
	pt3dadd(-28.38, -119.33, 0.68, 2.26)
	pt3dadd(-29.33, -120.83, 0.68, 2.26)
	pt3dadd(-30.27, -122.72, 0.76, 2.26)
	pt3dadd(-31.59, -124.03, 0.76, 2.26)
	pt3dadd(-33.09, -125.54, 0.76, 2.26)
	pt3dadd(-34.41, -127.43, 0.76, 2.26)
	pt3dadd(-34.97, -129.12, 0.76, 2.26)
	pt3dadd(-35.73, -131.19, 0.76, 2.26)
	pt3dadd(-36.1, -132.89, 0.76, 2.26)
	pt3dadd(-37.8, -134.77, 0.76, 2.26)
	pt3dadd(-37.8, -136.66, 0.76, 2.26)
	pt3dadd(-37.42, -139.1, 0.76, 2.26)
	pt3dadd(-37.42, -141.74, 0.76, 2.26)
	pt3dadd(-38.36, -144.38, 0.76, 2.26)
	pt3dadd(-39.49, -147.2, 0.76, 2.26)
	pt3dadd(-40.43, -148.9, 0.76, 2.26)
	pt3dadd(-40.81, -151.35, 0.76, 2.26)
	pt3dadd(-41.75, -153.42, -0.15, 2.26)
	pt3dadd(-43.45, -155.49, -0.38, 2.26)
	pt3dadd(-44.2, -157.19, -0.45, 2.26)
	pt3dadd(-45.14, -158.88, -0.53, 2.26)
	pt3dadd(-47.02, -159.26, -0.53, 2.26)
	pt3dadd(-48.72, -159.64, -0.53, 2.26)
	pt3dadd(-49.85, -161.9, -1.21, 1.88)
	pt3dadd(-51.35, -164.16, -0.98, 1.88)
	pt3dadd(-51.35, -166.61, -0.91, 1.88)
	pt3dadd(-53.24, -167.17, -0.98, 1.88)
	pt3dadd(-54.74, -167.93, -1.06, 1.88)
	pt3dadd(-56.44, -167.36, -1.14, 1.88)
	pt3dadd(-58.51, -167.36, -1.14, 1.88)
	pt3dadd(-60.2, -168.3, 3.33, 1.51)
	pt3dadd(-62.09, -168.3, 3.41, 1.51)
	pt3dadd(-64.53, -169.43, 3.41, 1.51)
	pt3dadd(-65.29, -172.26, 6.67, 1.51)
	pt3dadd(-66.21, -173.6, 6.82, 1.51)
	pt3dadd(-66.96, -174.54, 6.89, 1.51)
	pt3dadd(-67.15, -176.43, 6.89, 1.51)
	pt3dadd(-67.15, -178.69, 8.33, 1.51)
	pt3dadd(-68.09, -180.76, 8.48, 1.51)
	pt3dadd(-69.41, -182.83, 8.48, 1.51)
	pt3dadd(-69.6, -184.53, 8.56, 1.51)
	pt3dadd(-68.84, -185.85, 8.56, 1.51)
	pt3dadd(-67.9, -186.98, 8.64, 1.13)
	pt3dadd(-68.47, -188.11, 8.64, 1.13)
  }
  dend[14] {pt3dclear()
	pt3dadd(-23.9, -55.45, 5.45, 1.51)
	pt3dadd(-26.34, -55.22, -0.68, 1.51)
	pt3dadd(-28.79, -55.22, -0.53, 1.51)
	pt3dadd(-30.1, -55.78, 1.21, 1.51)
	pt3dadd(-32.36, -56.35, 1.36, 1.51)
	pt3dadd(-34.25, -55.97, 1.44, 1.51)
	pt3dadd(-36.13, -55.03, -1.29, 1.51)
	pt3dadd(-37.45, -54.65, -1.51, 1.51)
	pt3dadd(-39.52, -55.22, -1.67, 1.51)
	pt3dadd(-41.59, -56.16, -1.74, 1.51)
	pt3dadd(-42.91, -57.29, -2.35, 1.51)
	pt3dadd(-44.79, -58.23, -2.5, 1.51)
	pt3dadd(-46.67, -58.8, -3.86, 1.51)
	pt3dadd(-47.99, -60.12, -3.94, 1.51)
	pt3dadd(-49.31, -60.3, -4.01, 1.51)
	pt3dadd(-51.38, -59.55, -4.09, 1.51)
	pt3dadd(-53.64, -59.17, -4.09, 1.51)
	pt3dadd(-55.52, -58.8, -4.17, 1.51)
	pt3dadd(-57.03, -58.99, -4.17, 1.51)
	pt3dadd(-58.91, -60.49, -6.29, 1.51)
	pt3dadd(-60.23, -61.81, -6.36, 1.51)
	pt3dadd(-61.55, -63.51, -6.36, 1.51)
	pt3dadd(-63.05, -65.01, -6.44, 1.51)
	pt3dadd(-64.93, -64.26, -6.44, 1.51)
	pt3dadd(-66.63, -63.88, -8.94, 1.51)
	pt3dadd(-68.7, -63.7, -9.01, 1.51)
	pt3dadd(-70.58, -64.07, -9.01, 1.51)
	pt3dadd(-72.28, -65.01, -9.01, 1.51)
	pt3dadd(-73.41, -65.96, -9.01, 1.51)
	pt3dadd(-74.35, -66.9, -9.01, 1.51)
	pt3dadd(-75.85, -68.59, -9.01, 1.51)
	pt3dadd(-77.55, -69.35, -10.38, 1.51)
	pt3dadd(-79.24, -69.72, -10.45, 1.51)
	pt3dadd(-80.94, -69.72, -10.45, 1.51)
	pt3dadd(-82.26, -69.16, -10.45, 1.51)
	pt3dadd(-83.57, -68.97, -10.45, 1.51)
	pt3dadd(-85.64, -69.16, -13.56, 1.51)
	pt3dadd(-86.02, -70.67, -13.56, 1.51)
	pt3dadd(-86.02, -72.93, -13.56, 1.51)
	pt3dadd(-85.83, -74.81, -13.56, 1.51)
	pt3dadd(-85.83, -76.88, -16.13, 1.51)
	pt3dadd(-86.96, -77.82, -16.21, 1.51)
	pt3dadd(-88.66, -78.58, -16.21, 1.51)
	pt3dadd(-90.54, -78.77, -16.21, 1.51)
	pt3dadd(-92.42, -78.58, -18.56, 1.51)
	pt3dadd(-94.49, -78.77, -18.63, 1.51)
	pt3dadd(-96, -79.33, -18.63, 1.51)
	pt3dadd(-97.88, -78.58, -20.6, 1.88)
	pt3dadd(-99.58, -77.82, -20.6, 1.88)
	pt3dadd(-101.46, -76.88, -18.41, 1.88)
	pt3dadd(-103.91, -76.69, -18.1, 1.88)
	pt3dadd(-106.54, -76.69, -18.03, 1.88)
	pt3dadd(-108.61, -76.32, -17.8, 2.45)
	pt3dadd(-110.69, -76.5, -17.73, 2.45)
	pt3dadd(-112.57, -76.88, -13.64, 1.13)
	pt3dadd(-114.83, -77.45, -13.64, 1.13)
	pt3dadd(-115.96, -78.01, -27.28, 1.13)
  }
  dend[15] {pt3dclear()
	pt3dadd(-18.06, -27.95, 12.35, 1.69)
	pt3dadd(-19.85, -28.15, 11.82, 1.69)
	pt3dadd(-21.54, -29.28, 12.12, 1.51)
	pt3dadd(-23.42, -28.9, 12.27, 1.51)
	pt3dadd(-24.55, -28.15, 16.06, 1.88)
	pt3dadd(-26.06, -27.77, 16.13, 1.88)
	pt3dadd(-27, -25.89, 16.21, 1.69)
	pt3dadd(-27.57, -24.76, 16.21, 1.69)
	pt3dadd(-28.32, -23.25, 19.01, 1.13)
	pt3dadd(-29.07, -21.93, 19.01, 1.13)
	pt3dadd(-31.71, -22.69, 19.01, 1.13)
	pt3dadd(-33.78, -22.31, 19.01, 1.13)
	pt3dadd(-33.78, -20.62, 19.01, 1.13)
	pt3dadd(-32.46, -19.3, 19.09, 0.75)
  }
  dend[16] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(-4.6, -22.69, 15.68, 4.33)
	pt3dadd(-6.29, -24.38, 15.76, 4.33)
	pt3dadd(-7.42, -26.08, 15.76, 4.33)
	pt3dadd(-8.74, -27.59, 15.76, 4.33)
	pt3dadd(-10.81, -28.15, 15.76, 4.33)
	pt3dadd(-12.5, -28.9, 15.76, 4.33)
	pt3dadd(-13.63, -29.66, 15.76, 4.33)
  }
  dend[17] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(14.8, -24.76, 16.21, 3.39)
	pt3dadd(16.11, -25.89, 16.21, 3.39)
	pt3dadd(18.56, -27.77, 16.21, 3.39)
	pt3dadd(20.63, -29.66, 15.45, 3.39)
	pt3dadd(22.51, -30.98, 15.38, 3.39)
  }
}
proc shape3d_4() {
  dend[17] {  }
  dend[18] {pt3dclear()
	pt3dadd(22.51, -30.98, 15.38, 1.88)
	pt3dadd(21.57, -33.61, 14.39, 1.88)
	pt3dadd(21.2, -37, 14.24, 1.88)
	pt3dadd(20.07, -39.83, 14.09, 1.88)
	pt3dadd(19.31, -42.09, 14.01, 1.88)
	pt3dadd(18.94, -45.29, 13.64, 1.88)
	pt3dadd(19.31, -47.93, 13.48, 1.88)
	pt3dadd(19.88, -50.38, 13.41, 1.88)
	pt3dadd(20.07, -53.02, 13.41, 1.88)
	pt3dadd(20.07, -55.46, 11.82, 1.69)
	pt3dadd(20.82, -58.1, 11.74, 1.69)
	pt3dadd(21.76, -60.74, 13.26, 1.51)
	pt3dadd(23.27, -63.19, 13.48, 1.51)
	pt3dadd(24.59, -66.01, 13.56, 1.51)
	pt3dadd(24.4, -67.9, 15.6, 1.51)
	pt3dadd(22.33, -68.46, 15.76, 1.51)
	pt3dadd(20.44, -69.22, 15.83, 1.51)
	pt3dadd(18.94, -70.16, 15.91, 1.51)
	pt3dadd(17.24, -71.85, 16.36, 1.51)
	pt3dadd(16.87, -74.87, 17.73, 1.51)
	pt3dadd(16.87, -77.13, 17.95, 1.51)
	pt3dadd(17.81, -79.2, 17.95, 1.51)
	pt3dadd(17.81, -81.65, 18.03, 1.51)
	pt3dadd(15.92, -83.16, 18.1, 1.51)
	pt3dadd(14.61, -84.47, 18.1, 1.51)
	pt3dadd(13.48, -86.55, 18.1, 1.51)
	pt3dadd(12.88, -88.64, 20, 1.51)
	pt3dadd(13.63, -90.72, 20.07, 1.51)
	pt3dadd(14.39, -92.98, 20.15, 1.51)
	pt3dadd(14.95, -95.61, 20.15, 1.51)
	pt3dadd(15.89, -96.93, 20.23, 1.51)
	pt3dadd(17.02, -98.25, 20.23, 1.51)
	pt3dadd(18.34, -99.57, 20.23, 1.51)
	pt3dadd(18.72, -101.64, 20.76, 1.51)
	pt3dadd(18.72, -103.34, 20.53, 1.51)
	pt3dadd(18.53, -105.03, 20.38, 1.51)
	pt3dadd(17.78, -106.54, 20, 0.75)
	pt3dadd(17.02, -107.86, 20, 0.75)
	pt3dadd(17.4, -109.74, 20, 0.75)
	pt3dadd(17.96, -111.44, 20, 0.75)
	pt3dadd(17.02, -112.38, 19.92, 2.07)
	pt3dadd(16.46, -114.64, 19.92, 2.07)
	pt3dadd(15.14, -116.52, 19.92, 1.13)
	pt3dadd(13.63, -118.22, 19.92, 1.13)
	pt3dadd(11.37, -119.91, 19.92, 1.13)
	pt3dadd(10.06, -121.04, 19.92, 1.13)
	pt3dadd(9.3, -122.74, 19.92, 1.13)
	pt3dadd(9.3, -124.81, 19.92, 1.13)
	pt3dadd(9.87, -126.32, 19.92, 1.13)
	pt3dadd(11, -128.2, 19.92, 1.13)
  }
  dend[19] {pt3dclear()
	pt3dadd(22.51, -30.98, 15.38, 1.69)
	pt3dadd(23.99, -30.81, 18.63, 1.69)
	pt3dadd(24.74, -32.7, 15.76, 1.69)
	pt3dadd(25.49, -35.34, 15.45, 1.69)
	pt3dadd(27.57, -35.15, 15.3, 1.69)
	pt3dadd(29.64, -35.71, 15.3, 1.69)
	pt3dadd(31.33, -37.03, 15.23, 1.69)
	pt3dadd(33.59, -39.29, 12.95, 1.69)
	pt3dadd(34.72, -41.74, 12.8, 1.69)
	pt3dadd(36.04, -43.62, 12.73, 1.69)
	pt3dadd(37.92, -45.32, 12.73, 1.69)
	pt3dadd(40.18, -46.83, 12.65, 1.69)
	pt3dadd(43.38, -47.39, 12.65, 1.69)
  }
  dend[20] {pt3dclear()
	pt3dadd(43.38, -47.39, 12.65, 1.51)
	pt3dadd(45.83, -48.52, 13.64, 1.51)
	pt3dadd(47.71, -50.59, 13.56, 1.51)
	pt3dadd(48.46, -52.48, 13.48, 1.51)
	pt3dadd(50.54, -55.49, 12.95, 1.51)
	pt3dadd(52.61, -56.06, 12.73, 1.51)
	pt3dadd(55.05, -56.81, 12.65, 1.51)
	pt3dadd(56.37, -58.13, 12.65, 1.51)
	pt3dadd(57.88, -60.39, 14.32, 1.51)
	pt3dadd(59.2, -62.27, 14.54, 1.51)
	pt3dadd(60.51, -64.91, 14.7, 1.51)
	pt3dadd(61.27, -66.42, 14.77, 1.51)
	pt3dadd(62.21, -67.55, 14.85, 1.51)
	pt3dadd(63.9, -68.49, 14.92, 1.51)
	pt3dadd(66.16, -69.24, 14.92, 1.51)
	pt3dadd(68.23, -70.37, 14.92, 1.51)
	pt3dadd(69.17, -71.88, 15, 1.51)
	pt3dadd(69.93, -73.57, 15, 1.51)
	pt3dadd(71.06, -75.27, 15, 1.51)
	pt3dadd(72.75, -76.97, 15, 1.51)
  }
  dend[21] {pt3dclear()
	pt3dadd(72.75, -76.97, 15, 1.88)
	pt3dadd(73.88, -78.85, 15, 1.88)
	pt3dadd(75.39, -80.92, 15, 1.88)
	pt3dadd(77.08, -82.8, 15, 1.88)
	pt3dadd(78.21, -84.5, 15, 1.88)
	pt3dadd(80.28, -85.63, 15, 1.88)
	pt3dadd(82.54, -86.76, 15.07, 1.88)
	pt3dadd(83.48, -88.46, 15.07, 1.88)
	pt3dadd(84.61, -90.53, 17.88, 1.13)
	pt3dadd(84.24, -92.6, 17.88, 1.13)
	pt3dadd(83.3, -93.73, 17.88, 1.13)
	pt3dadd(82.35, -94.67, 17.95, 1.13)
	pt3dadd(81.22, -95.8, 17.95, 1.13)
	pt3dadd(82.73, -97.69, 17.95, 1.13)
	pt3dadd(82.54, -99.76, 19.01, 0.94)
	pt3dadd(82.73, -102.02, 19.09, 0.94)
	pt3dadd(81.98, -104.28, 19.16, 0.94)
	pt3dadd(82.35, -106.16, 19.24, 0.56)
	pt3dadd(83.11, -107.48, 19.24, 0.56)
	pt3dadd(83.3, -108.99, 19.24, 0.56)
  }
  dend[22] {pt3dclear()
	pt3dadd(72.75, -76.97, 15, 1.32)
	pt3dadd(75.39, -77.53, 15.6, 1.32)
	pt3dadd(77.84, -77.53, 15.6, 1.32)
	pt3dadd(79.91, -77.53, 15.68, 1.32)
	pt3dadd(83.3, -77.15, 15.38, 1.32)
	pt3dadd(84.99, -77.15, 15.15, 1.32)
	pt3dadd(87.25, -76.97, 15.07, 1.32)
	pt3dadd(88.57, -76.97, 15, 1.32)
	pt3dadd(90.26, -77.34, 14.92, 1.32)
	pt3dadd(91.58, -76.78, 14.85, 1.32)
	pt3dadd(93.46, -77.34, 15.76, 0.75)
	pt3dadd(94.4, -78.85, 15.76, 0.75)
	pt3dadd(95.16, -80.92, 15.76, 0.75)
	pt3dadd(96.66, -82.24, 19.16, 0.75)
	pt3dadd(97.42, -84.5, 19.24, 0.75)
	pt3dadd(99.11, -85.63, 19.32, 0.75)
	pt3dadd(99.11, -86.76, 19.39, 0.75)
  }
  dend[23] {pt3dclear()
	pt3dadd(43.38, -47.39, 12.65, 0.75)
	pt3dadd(43, -49.09, 18.71, 0.75)
	pt3dadd(41.87, -50.78, 18.41, 0.75)
	pt3dadd(41.5, -52.85, 18.18, 0.75)
	pt3dadd(42.63, -54.93, 18.1, 0.75)
	pt3dadd(43.57, -56.43, 18.03, 0.75)
	pt3dadd(43.57, -59.26, 17.95, 0.75)
	pt3dadd(44.7, -60.58, 17.88, 0.75)
	pt3dadd(45.26, -61.9, 17.88, 0.75)
	pt3dadd(46.2, -63.97, 20.15, 0.75)
	pt3dadd(47.15, -65.47, 20.3, 0.75)
	pt3dadd(49.03, -65.85, 20.38, 0.75)
	pt3dadd(49.03, -67.92, 20.45, 0.75)
	pt3dadd(50.35, -69.24, 20.53, 0.75)
	pt3dadd(52.79, -69.62, 20.53, 0.75)
	pt3dadd(53.74, -68.87, 20.53, 0.75)
	pt3dadd(54.3, -67.92, 20.6, 0.75)
  }
  dend[24] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(18.23, -21.45, 7.8, 5.08)
	pt3dadd(21.81, -22.2, 7.8, 4.9)
	pt3dadd(24.26, -23.14, 7.8, 4.9)
	pt3dadd(26.14, -24.08, 7.88, 3.95)
	pt3dadd(27.64, -24.46, 8.18, 3.95)
	pt3dadd(30.66, -24.08, 8.11, 3.95)
  }
  dend[25] {pt3dclear()
	pt3dadd(30.66, -24.08, 8.11, 2.07)
	pt3dadd(31.79, -22.2, 17.42, 2.07)
	pt3dadd(34.61, -20.88, 17.27, 2.07)
	pt3dadd(36.12, -20.88, 17.04, 1.88)
  }
  dend[26] {pt3dclear()
	pt3dadd(36.12, -20.88, 17.04, 1.69)
	pt3dadd(35.93, -19.19, 17.04, 1.69)
	pt3dadd(36.49, -17.3, 17.04, 1.69)
	pt3dadd(38.56, -17.3, 17.04, 1.69)
	pt3dadd(40.07, -18.06, 17.04, 1.69)
	pt3dadd(40.07, -19.56, 17.04, 1.69)
  }
  dend[27] {pt3dclear()
	pt3dadd(36.12, -20.88, 17.04, 1.51)
	pt3dadd(38.75, -21.63, 17.04, 1.51)
  }
  dend[28] {pt3dclear()
	pt3dadd(38.75, -21.63, 17.04, 1.32)
	pt3dadd(40.82, -20.13, 17.04, 1.32)
	pt3dadd(42.33, -18.43, 17.12, 1.32)
	pt3dadd(44.02, -16.93, 17.12, 1.32)
	pt3dadd(45.53, -15.23, 17.12, 1.32)
	pt3dadd(45.15, -13.53, 20.07, 1.13)
	pt3dadd(44.21, -11.84, 20.07, 1.13)
	pt3dadd(44.59, -9.77, 20.07, 1.13)
	pt3dadd(45.91, -8.26, 20.07, 1.13)
	pt3dadd(46.66, -7.32, 19.62, 1.13)
	pt3dadd(47.41, -5.25, 19.47, 1.13)
	pt3dadd(48.92, -4.49, 19.39, 1.13)
	pt3dadd(50.43, -3.55, 18.03, 1.13)
	pt3dadd(50.43, -1.48, 17.8, 1.13)
	pt3dadd(49.67, -0.35, 17.73, 1.13)
	pt3dadd(50.05, 1.35, 17.65, 1.13)
	pt3dadd(50.05, 2.67, 17.65, 1.13)
	pt3dadd(50.99, 4.55, 17.57, 1.13)
	pt3dadd(51.93, 5.49, 17.57, 1.13)
	pt3dadd(51.74, 7.37, 17.57, 1.13)
	pt3dadd(51.56, 9.07, 17.57, 1.13)
  }
  dend[29] {pt3dclear()
	pt3dadd(38.75, -21.63, 17.04, 0.94)
	pt3dadd(40.26, -22.58, 19.92, 0.94)
	pt3dadd(42.14, -22.95, 19.92, 0.94)
	pt3dadd(44.97, -21.26, 20, 0.94)
	pt3dadd(47.04, -20.69, 20, 0.94)
  }
  dend[30] {pt3dclear()
	pt3dadd(47.04, -20.69, 20, 0.94)
	pt3dadd(47.6, -19.19, 20.07, 0.94)
	pt3dadd(47.98, -17.3, 20.07, 0.94)
	pt3dadd(49.11, -16.36, 20.07, 0.94)
	pt3dadd(51.37, -16.36, 20.07, 0.94)
	pt3dadd(52.12, -16.93, 20.07, 0.94)
  }
  dend[31] {pt3dclear()
	pt3dadd(47.04, -20.69, 20, 0.94)
	pt3dadd(48.92, -21.45, 19.47, 0.94)
	pt3dadd(50.8, -22.01, 19.39, 0.94)
	pt3dadd(50.99, -23.52, 19.39, 0.94)
	pt3dadd(50.61, -25.4, 19.32, 0.94)
	pt3dadd(51.56, -27.1, 19.32, 0.94)
  }
  dend[32] {pt3dclear()
	pt3dadd(38.75, -21.63, 17.04, 1.51)
	pt3dadd(40.64, -22.77, 18.41, 1.51)
	pt3dadd(42.71, -22.58, 18.48, 1.51)
	pt3dadd(44.4, -22.01, 18.48, 1.51)
	pt3dadd(46.85, -21.07, 18.48, 1.51)
	pt3dadd(48.54, -19.94, 18.56, 1.51)
  }
}
proc shape3d_5() {
  dend[32] {	pt3dadd(51.56, -19.37, 18.56, 1.51)
	pt3dadd(53.25, -20.13, 15, 1.51)
	pt3dadd(54.57, -21.63, 14.7, 1.69)
	pt3dadd(57.39, -21.63, 14.62, 1.69)
	pt3dadd(59.09, -22.39, 14.62, 1.69)
	pt3dadd(61.72, -23.14, 14.54, 1.69)
	pt3dadd(64.36, -23.33, 14.54, 1.69)
	pt3dadd(66.62, -22.58, 14.54, 1.69)
	pt3dadd(67.94, -21.07, 14.54, 1.69)
	pt3dadd(67.75, -18.81, 16.21, 1.69)
	pt3dadd(68.69, -16.93, 16.44, 1.69)
	pt3dadd(70.2, -15.61, 16.51, 1.69)
	pt3dadd(72.08, -14.1, 16.59, 1.69)
	pt3dadd(73.58, -12.97, 14.92, 1.69)
	pt3dadd(76.6, -13.35, 14.62, 1.69)
	pt3dadd(79.04, -14.48, 14.54, 1.69)
  }
  dend[33] {pt3dclear()
	pt3dadd(79.04, -14.48, 14.54, 1.69)
	pt3dadd(82.81, -16.17, 14.47, 1.69)
	pt3dadd(85.45, -17.68, 14.47, 1.69)
	pt3dadd(86.76, -18.06, 14.47, 1.69)
	pt3dadd(89.02, -18.24, 14.39, 1.69)
	pt3dadd(91.28, -18.43, 14.39, 1.69)
	pt3dadd(93.35, -17.68, 14.39, 1.69)
	pt3dadd(94.67, -16.74, 14.39, 1.69)
	pt3dadd(96.55, -15.61, 14.39, 1.69)
  }
  dend[34] {pt3dclear()
	pt3dadd(96.55, -15.61, 14.39, 1.69)
	pt3dadd(98.44, -14.29, 14.39, 1.69)
	pt3dadd(100.7, -13.35, 14.39, 1.69)
	pt3dadd(102.96, -11.27, 14.39, 1.69)
	pt3dadd(103.52, -9.77, 14.39, 1.69)
	pt3dadd(104.08, -8.07, 14.39, 1.13)
	pt3dadd(105.59, -6.19, 14.39, 1.13)
	pt3dadd(105.78, -3.93, 14.39, 1.13)
	pt3dadd(107.29, -2.8, 14.39, 1.13)
	pt3dadd(108.98, -2.04, 14.7, 1.13)
	pt3dadd(110.86, -2.04, 14.85, 1.13)
	pt3dadd(113.12, -2.42, 14.85, 1.13)
	pt3dadd(114.63, -3.17, 14.85, 1.13)
	pt3dadd(116.13, -2.61, 14.92, 1.13)
	pt3dadd(117.64, -1.29, 14.92, 1.13)
	pt3dadd(118.77, -0.16, 14.92, 1.13)
	pt3dadd(120.28, 1.16, 14.92, 1.13)
	pt3dadd(121.97, 2.1, 14.92, 1.13)
	pt3dadd(123.48, 2.48, 14.92, 1.13)
	pt3dadd(125.74, 2.1, 14.92, 1.13)
	pt3dadd(126.69, 1.31, 15.07, 1.13)
	pt3dadd(128.57, 0.93, 15.07, 1.13)
	pt3dadd(130.26, 1.12, 15.07, 1.13)
	pt3dadd(131.77, 2.06, 13.1, 1.13)
	pt3dadd(133.28, 3.19, 12.88, 1.13)
	pt3dadd(135.16, 3.95, 12.73, 1.13)
	pt3dadd(136.66, 4.51, 15.6, 1.13)
	pt3dadd(138.74, 5.08, 15.83, 1.13)
	pt3dadd(140.43, 5.45, 15.91, 1.13)
	pt3dadd(142.31, 5.64, 15.98, 1.13)
	pt3dadd(144.01, 6.02, 16.06, 1.13)
	pt3dadd(145.14, 5.27, 16.06, 1.13)
	pt3dadd(146.08, 4.7, 16.06, 1.13)
	pt3dadd(147.77, 4.13, 18.79, 1.32)
	pt3dadd(149.84, 4.13, 18.86, 1.32)
	pt3dadd(151.35, 5.45, 18.86, 1.32)
	pt3dadd(153.99, 6.21, 18.86, 1.32)
	pt3dadd(155.68, 6.58, 18.86, 1.32)
	pt3dadd(157.75, 6.02, 18.86, 1.32)
	pt3dadd(159.63, 5.64, 18.86, 1.32)
	pt3dadd(161.71, 5.27, 18.86, 1.32)
	pt3dadd(163.59, 5.83, 18.86, 1.32)
	pt3dadd(164.15, 6.77, 18.86, 0.94)
	pt3dadd(164.72, 8.84, 18.86, 0.94)
	pt3dadd(164.15, 10.35, 18.86, 0.94)
	pt3dadd(162.08, 11.1, 18.86, 0.94)
  }
  dend[35] {pt3dclear()
	pt3dadd(96.55, -15.61, 14.39, 1.32)
	pt3dadd(98.26, -16.96, 15.15, 1.32)
	pt3dadd(100.33, -17.53, 15.15, 1.32)
	pt3dadd(101.83, -17.72, 15.15, 1.32)
	pt3dadd(103.53, -18.66, 15.15, 1.32)
	pt3dadd(104.66, -19.6, 16.74, 1.13)
	pt3dadd(106.92, -19.03, 16.82, 1.13)
	pt3dadd(108.99, -19.79, 16.89, 1.13)
	pt3dadd(110.68, -20.54, 16.89, 1.13)
	pt3dadd(112.38, -21.11, 16.97, 1.13)
	pt3dadd(113.51, -22.61, 16.97, 1.13)
	pt3dadd(115.39, -22.05, 18.33, 1.13)
	pt3dadd(118.4, -22.8, 18.41, 1.13)
	pt3dadd(119.91, -24.12, 18.48, 1.13)
	pt3dadd(122.36, -24.5, 18.48, 1.13)
	pt3dadd(124.05, -24.12, 18.48, 1.13)
	pt3dadd(127.06, -24.69, 18.56, 1.13)
	pt3dadd(128.95, -24.69, 18.41, 1.32)
	pt3dadd(131.58, -26, 18.48, 1.32)
	pt3dadd(133.46, -25.82, 18.56, 1.32)
	pt3dadd(135.35, -26.19, 18.56, 1.32)
	pt3dadd(137.04, -26.76, 18.63, 1.32)
	pt3dadd(138.74, -27.7, 18.63, 1.32)
	pt3dadd(140.43, -28.45, 18.63, 1.32)
	pt3dadd(142.31, -27.89, 18.71, 1.32)
	pt3dadd(143.82, -29.21, 18.71, 1.32)
	pt3dadd(146.08, -29.21, 17.04, 1.32)
	pt3dadd(147.21, -27.89, 16.82, 1.32)
	pt3dadd(148.9, -26.57, 16.59, 1.32)
	pt3dadd(150.6, -26.95, 16.51, 1.32)
	pt3dadd(153.23, -26.95, 16.44, 1.32)
	pt3dadd(155.12, -27.7, 16.44, 1.32)
	pt3dadd(155.68, -28.45, 16.36, 1.32)
	pt3dadd(156.62, -30.15, 16.36, 1.32)
	pt3dadd(157.19, -32.41, 16.29, 1.32)
	pt3dadd(157.38, -34.67, 16.29, 1.32)
	pt3dadd(158.13, -36.74, 16.29, 1.32)
	pt3dadd(158.88, -37.12, 16.29, 1.32)
	pt3dadd(160.39, -37.5, 16.29, 1.32)
	pt3dadd(162.08, -38.06, 16.29, 1.32)
	pt3dadd(164.34, -39, 16.29, 1.32)
	pt3dadd(165.66, -40.13, 16.29, 1.32)
	pt3dadd(167.54, -41.45, 16.13, 1.32)
	pt3dadd(168.67, -42.77, 16.06, 1.13)
	pt3dadd(170.18, -44.28, 13.94, 1.13)
	pt3dadd(172.06, -45.6, 13.79, 1.13)
	pt3dadd(174.13, -48.04, 13.71, 1.13)
	pt3dadd(175.64, -51.06, 13.64, 1.13)
	pt3dadd(177.33, -54.07, 13.64, 1.13)
	pt3dadd(178.09, -57.27, 13.64, 1.13)
	pt3dadd(178.84, -60.85, 13.56, 1.13)
  }
  dend[36] {pt3dclear()
	pt3dadd(79.04, -14.48, 14.54, 1.32)
	pt3dadd(80.56, -14.51, 14.09, 1.32)
	pt3dadd(83.01, -15.08, 14.09, 1.32)
	pt3dadd(86.21, -16.02, 14.09, 1.32)
	pt3dadd(88.28, -16.59, 14.09, 1.32)
	pt3dadd(90.16, -16.59, 14.09, 1.32)
	pt3dadd(91.1, -15.83, 14.09, 1.32)
	pt3dadd(92.98, -15.27, 14.09, 1.32)
	pt3dadd(94.49, -15.27, 14.01, 1.32)
	pt3dadd(95.81, -15.27, 14.01, 1.32)
	pt3dadd(98.26, -14.51, 14.01, 1.32)
	pt3dadd(99.76, -13.38, 14.01, 1.32)
	pt3dadd(101.08, -12.63, 14.01, 1.32)
	pt3dadd(102.78, -11.31, 14.01, 1.32)
	pt3dadd(103.9, -10.56, 14.01, 1.32)
	pt3dadd(105.03, -9.62, 14.01, 1.32)
	pt3dadd(107.11, -9.05, 10.3, 1.32)
	pt3dadd(108.8, -9.24, 10.23, 1.32)
	pt3dadd(110.49, -10.37, 10.15, 1.32)
	pt3dadd(112.19, -10.93, 10.15, 1.32)
	pt3dadd(113.13, -10.75, 10.15, 1.32)
	pt3dadd(114.82, -10.56, 10.15, 1.32)
	pt3dadd(116.71, -10.18, 10.07, 1.32)
	pt3dadd(119.16, -9.8, 8.86, 1.32)
	pt3dadd(120.85, -10.18, 7.95, 1.32)
	pt3dadd(122.17, -11.31, 7.73, 1.32)
	pt3dadd(124.05, -12.25, 6.74, 1.32)
	pt3dadd(126.31, -13.76, 6.67, 1.32)
	pt3dadd(128, -15.46, 6.67, 1.32)
	pt3dadd(129.89, -17.15, 6.67, 1.32)
	pt3dadd(131.77, -17.15, 3.33, 1.32)
	pt3dadd(133.65, -16.02, 3.11, 1.32)
	pt3dadd(134.03, -14.14, 3.11, 1.32)
	pt3dadd(134.03, -12.44, 2.95, 1.32)
	pt3dadd(134.03, -11.12, 2.65, 1.32)
	pt3dadd(133.84, -9.24, 2.35, 1.32)
	pt3dadd(135.72, -8.67, -0.15, 1.32)
	pt3dadd(137.79, -8.86, -0.15, 1.32)
	pt3dadd(139.49, -8.67, -0.15, 1.32)
	pt3dadd(141.18, -7.73, -0.15, 1.32)
	pt3dadd(142.31, -7.17, -0.23, 1.32)
	pt3dadd(143.44, -6.79, -0.23, 1.32)
	pt3dadd(144.57, -5.85, -1.06, 1.32)
	pt3dadd(145.14, -4.53, -1.06, 1.32)
	pt3dadd(145.89, -3.21, -1.06, 1.32)
	pt3dadd(146.08, -1.33, -1.06, 1.32)
	pt3dadd(146.64, -1.14, -1.06, 1.32)
	pt3dadd(148.34, -0.95, -1.06, 1.13)
	pt3dadd(149.47, -1.7, -1.06, 1.13)
	pt3dadd(150.97, -1.7, -1.06, 1.13)
	pt3dadd(151.73, -0.57, -1.06, 1.13)
  }
  dend[37] {pt3dclear()
	pt3dadd(30.66, -24.08, 8.11, 1.88)
	pt3dadd(31.23, -24.5, 5.3, 1.88)
	pt3dadd(33.49, -25.63, 5.3, 1.88)
	pt3dadd(34.81, -26.57, 5.3, 1.88)
  }
  dend[38] {pt3dclear()
	pt3dadd(34.81, -26.57, 5.3, 1.88)
	pt3dadd(37.26, -26.38, 0.91, 1.88)
	pt3dadd(39.33, -25.63, 0.91, 1.88)
	pt3dadd(40.83, -24.5, 0.91, 1.88)
	pt3dadd(42.53, -23.74, 7.42, 1.88)
	pt3dadd(44.6, -23.56, 7.5, 1.88)
	pt3dadd(46.48, -23.37, 7.73, 1.51)
	pt3dadd(48.36, -22.05, 9.09, 1.32)
	pt3dadd(49.3, -20.17, 9.17, 1.32)
  }
  dend[39] {pt3dclear()
	pt3dadd(34.81, -26.57, 5.3, 1.32)
	pt3dadd(33.3, -27.89, 7.8, 1.32)
	pt3dadd(32.92, -29.77, 7.88, 1.32)
	pt3dadd(35, -30.34, 2.42, 1.32)
	pt3dadd(37.63, -29.58, 2.12, 1.32)
	pt3dadd(39.33, -28.27, 1.97, 1.32)
	pt3dadd(41.02, -27.32, 1.89, 1.32)
	pt3dadd(43.28, -26.76, -0.91, 1.32)
	pt3dadd(46.29, -27.51, -1.06, 1.32)
	pt3dadd(47.99, -29.96, -1.14, 1.32)
	pt3dadd(48.36, -31.47, -1.14, 1.32)
	pt3dadd(49.87, -33.35, -1.21, 1.32)
	pt3dadd(51.38, -35.61, -6.51, 2.64)
  }
  dend[40] {pt3dclear()
	pt3dadd(51.38, -35.61, -6.51, 1.88)
  }
}
proc shape3d_6() {
  dend[40] {	pt3dadd(51.75, -38.06, -6.44, 1.88)
	pt3dadd(51.19, -40.89, -6.44, 1.88)
	pt3dadd(50.06, -42.96, -8.26, 1.88)
	pt3dadd(48.74, -45.03, -10.15, 1.88)
	pt3dadd(47.99, -47.67, -10.15, 1.88)
	pt3dadd(49.3, -48.99, -10.23, 1.88)
	pt3dadd(51.19, -50.87, -10.23, 1.88)
	pt3dadd(52.88, -53.13, -10.23, 1.88)
	pt3dadd(53.45, -55.2, -10.23, 1.88)
	pt3dadd(55.33, -56.33, -10.23, 1.88)
	pt3dadd(57.02, -57.84, -10.3, 1.88)
	pt3dadd(57.78, -59.91, -10.23, 1.88)
	pt3dadd(57.21, -63.11, -10.23, 1.88)
	pt3dadd(56.84, -65.19, -10.23, 1.88)
	pt3dadd(56.84, -67.63, -10.3, 1.88)
	pt3dadd(58.72, -69.9, -8.64, 1.88)
	pt3dadd(60.04, -71.78, -8.41, 1.88)
	pt3dadd(61.54, -73.85, -14.09, 1.88)
	pt3dadd(62.67, -77.05, -14.24, 1.88)
	pt3dadd(63.05, -79.88, -14.24, 1.88)
	pt3dadd(63.05, -81.39, -14.32, 1.88)
	pt3dadd(62.86, -83.08, -14.32, 1.88)
	pt3dadd(62.82, -86.29, -13.56, 2.45)
	pt3dadd(63.95, -89.3, -13.64, 2.45)
	pt3dadd(65.08, -93.07, -13.71, 2.45)
	pt3dadd(65.46, -95.7, -13.79, 2.45)
	pt3dadd(65.83, -99.1, -13.79, 2.45)
	pt3dadd(65.27, -102.3, -15, 2.45)
	pt3dadd(65.46, -105.31, -15.07, 2.45)
	pt3dadd(64.89, -107.57, -15.15, 2.45)
	pt3dadd(65.27, -111.15, -11.36, 2.07)
	pt3dadd(65.83, -113.98, -11.29, 2.07)
	pt3dadd(67.72, -116.24, -11.29, 2.07)
	pt3dadd(70.16, -116.43, -11.21, 2.07)
	pt3dadd(72.05, -117.93, -11.21, 2.07)
	pt3dadd(73.74, -119.82, -11.21, 2.07)
	pt3dadd(76.38, -122.08, -7.95, 1.88)
	pt3dadd(76.75, -124.9, -7.8, 1.88)
	pt3dadd(77.88, -127.54, -7.8, 1.88)
	pt3dadd(78.82, -129.99, -7.73, 1.88)
	pt3dadd(79.77, -131.68, -7.73, 1.88)
	pt3dadd(81.65, -133, -7.73, 1.88)
	pt3dadd(82.78, -134.89, -7.73, 1.88)
	pt3dadd(82.03, -137.9, -7.73, 1.88)
	pt3dadd(81.65, -141.29, -7.73, 1.88)
	pt3dadd(82.4, -144.12, -5.68, 1.88)
	pt3dadd(83.53, -146.94, -5.45, 1.88)
	pt3dadd(85.79, -149.58, -5.38, 1.88)
	pt3dadd(87.11, -151.65, -5.38, 1.88)
	pt3dadd(90.12, -152.78, -5.3, 1.88)
	pt3dadd(92.57, -154.1, -5.3, 1.88)
	pt3dadd(94.83, -155.8, -5.3, 1.88)
	pt3dadd(96.52, -157.49, -5.3, 1.88)
	pt3dadd(96.9, -159.56, -5.3, 1.88)
	pt3dadd(96.33, -162.58, -4.24, 1.88)
	pt3dadd(95.58, -165.4, -4.24, 1.88)
	pt3dadd(94.45, -167.66, -4.17, 1.88)
	pt3dadd(94.08, -168.98, -4.17, 1.88)
	pt3dadd(92.78, -170.93, -3.33, 1.88)
	pt3dadd(92.4, -173.19, -3.26, 1.88)
	pt3dadd(90.71, -174.89, -3.18, 1.88)
	pt3dadd(89.96, -176.96, -3.18, 1.88)
	pt3dadd(89.96, -178.84, -3.11, 1.88)
	pt3dadd(90.33, -180.54, 0.15, 1.88)
	pt3dadd(89.96, -182.42, 0.23, 1.88)
	pt3dadd(89.39, -184.12, 0.3, 1.88)
	pt3dadd(88.45, -185.63, 0.3, 1.88)
	pt3dadd(87.13, -186.94, 3.56, 1.69)
	pt3dadd(85.44, -188.64, 3.56, 1.51)
	pt3dadd(85.44, -190.52, 3.56, 1.51)
	pt3dadd(85.44, -192.97, 3.56, 1.51)
	pt3dadd(84.68, -193.54, 3.56, 1.51)
	pt3dadd(82.99, -195.61, 3.56, 1.51)
	pt3dadd(81.3, -197.12, 3.11, 1.51)
	pt3dadd(80.54, -198.62, 3.03, 1.51)
	pt3dadd(80.73, -200.13, 2.95, 1.51)
	pt3dadd(80.54, -201.83, 2.88, 1.51)
	pt3dadd(79.6, -203.52, 2.88, 1.51)
	pt3dadd(78.85, -204.65, 2.8, 1.51)
	pt3dadd(77.34, -204.84, 2.8, 1.51)
	pt3dadd(75.27, -203.9, 2.8, 1.51)
  }
  dend[41] {pt3dclear()
	pt3dadd(51.38, -35.61, -6.51, 2.07)
	pt3dadd(53, -36.14, -6.14, 2.07)
	pt3dadd(54.89, -37.27, -6.14, 2.07)
	pt3dadd(55.45, -39.72, -6.14, 2.07)
	pt3dadd(55.83, -42.35, -8.18, 2.07)
	pt3dadd(57.15, -43.86, -8.11, 2.07)
	pt3dadd(58.65, -45.18, -8.03, 2.07)
	pt3dadd(60.54, -45.93, -8.03, 2.07)
	pt3dadd(61.29, -49.13, -10.15, 2.07)
	pt3dadd(60.91, -51.96, -10.45, 2.07)
	pt3dadd(61.85, -54.03, -10.68, 2.07)
	pt3dadd(63.36, -56.29, -10.76, 2.07)
	pt3dadd(65.43, -58.18, -10.83, 2.07)
	pt3dadd(67.88, -58.93, -10.91, 2.07)
	pt3dadd(69.95, -60.06, -10.91, 2.07)
  }
  dend[42] {pt3dclear()
	pt3dadd(69.95, -60.06, -10.91, 1.69)
	pt3dadd(72.4, -60.06, -14.77, 1.69)
	pt3dadd(74.47, -59.87, -14.85, 1.69)
	pt3dadd(76.54, -60.81, -14.92, 1.69)
	pt3dadd(78.42, -62.13, -14.92, 1.69)
	pt3dadd(79.55, -63.26, -17.65, 1.69)
	pt3dadd(82, -64.02, -17.73, 1.69)
	pt3dadd(84.07, -63.83, -17.73, 1.69)
	pt3dadd(85.39, -63.07, -23.48, 1.69)
	pt3dadd(87.46, -63.26, -23.56, 1.69)
	pt3dadd(89.91, -64.02, -23.56, 1.69)
	pt3dadd(90.09, -65.9, -23.63, 1.69)
	pt3dadd(90.85, -68.16, -28.48, 1.51)
	pt3dadd(92.35, -70.42, -28.48, 1.51)
	pt3dadd(94.05, -71.36, -28.48, 2.07)
	pt3dadd(95.93, -71.74, -28.48, 2.07)
	pt3dadd(98.57, -72.68, -28.48, 2.07)
	pt3dadd(100.26, -73.06, -28.48, 2.07)
  }
  dend[43] {pt3dclear()
	pt3dadd(100.26, -73.06, -28.48, 1.88)
	pt3dadd(103.27, -74.19, -27.88, 1.88)
	pt3dadd(105.72, -74.75, -27.8, 1.88)
	pt3dadd(107.23, -75.7, -27.8, 1.88)
	pt3dadd(108.73, -77.01, -27.72, 1.88)
	pt3dadd(111.18, -77.58, -27.72, 1.88)
	pt3dadd(113.25, -78.14, -25.53, 1.88)
	pt3dadd(114.76, -79.27, -25.38, 1.88)
	pt3dadd(117.21, -80.78, -25.3, 1.88)
	pt3dadd(120.22, -81.53, -25.22, 1.88)
	pt3dadd(122.67, -82.1, -25.15, 1.88)
	pt3dadd(125.49, -82.66, -22.88, 1.88)
	pt3dadd(128.13, -83.8, -22.8, 1.88)
	pt3dadd(129.44, -85.49, -22.73, 1.88)
	pt3dadd(131.14, -86.62, -22.73, 1.88)
	pt3dadd(130.95, -88.69, -22.65, 1.32)
	pt3dadd(131.7, -90.95, -22.65, 1.32)
	pt3dadd(134.53, -91.14, -22.65, 1.32)
	pt3dadd(136.79, -89.63, -22.57, 1.13)
	pt3dadd(138.29, -90.01, -22.57, 1.13)
	pt3dadd(140.18, -89.63, -22.57, 1.13)
  }
  dend[44] {pt3dclear()
	pt3dadd(100.26, -73.06, -28.48, 1.51)
	pt3dadd(101.39, -71.55, -33.63, 1.51)
	pt3dadd(101.39, -69.67, -33.71, 1.51)
	pt3dadd(102.33, -68.16, -33.78, 1.51)
	pt3dadd(104.78, -69.1, -36.66, 1.51)
	pt3dadd(107.42, -69.86, -36.74, 1.51)
	pt3dadd(109.86, -69.67, -36.74, 1.51)
	pt3dadd(112.12, -69.48, -36.81, 1.51)
	pt3dadd(114.57, -69.1, -36.81, 1.51)
	pt3dadd(115.32, -70.04, -38.94, 1.51)
	pt3dadd(115.14, -72.87, -39.01, 1.51)
	pt3dadd(116.26, -74, -39.01, 1.51)
	pt3dadd(118.15, -75.51, -43.1, 1.32)
	pt3dadd(118.9, -74, -43.1, 1.32)
	pt3dadd(120.97, -73.43, -43.1, 1.32)
	pt3dadd(122.48, -72.49, -43.1, 1.32)
	pt3dadd(124.55, -71.55, -43.1, 1.32)
	pt3dadd(124.74, -73.43, -49.24, 1.32)
	pt3dadd(122.85, -75.7, -49.24, 1.32)
	pt3dadd(125.3, -75.51, -49.24, 1.32)
	pt3dadd(127.18, -74.19, -49.24, 1.32)
	pt3dadd(128.88, -74, -52.42, 0.94)
	pt3dadd(130.2, -73.25, -52.42, 0.94)
	pt3dadd(132.27, -73.25, -52.42, 0.94)
	pt3dadd(133.59, -73.43, -52.42, 0.94)
	pt3dadd(133.02, -74.38, -56.74, 0.94)
	pt3dadd(131.33, -76.07, -56.96, 0.94)
	pt3dadd(130.39, -76.83, -56.96, 0.94)
	pt3dadd(132.27, -76.64, -61.05, 0.94)
	pt3dadd(134.15, -76.45, -61.21, 0.94)
	pt3dadd(135.66, -76.26, -61.28, 0.94)
	pt3dadd(136.03, -74.19, -61.28, 0.94)
	pt3dadd(137.54, -74.19, -61.28, 0.94)
//	pt3dadd(139.61, -74.38, -122.56, 0.94)
  }
  dend[45] {pt3dclear()
	pt3dadd(69.95, -60.06, -10.91, 1.51)
	pt3dadd(71.38, -62.11, -10.15, 1.51)
	pt3dadd(72.7, -64.75, -12.88, 1.51)
	pt3dadd(74.01, -66.26, -12.95, 1.51)
	pt3dadd(75.71, -66.82, -12.95, 1.51)
	pt3dadd(77.78, -68.52, -14.54, 1.51)
	pt3dadd(78.91, -70.78, -14.54, 1.51)
	pt3dadd(77.97, -72.66, -14.62, 1.51)
	pt3dadd(78.91, -75.11, -14.62, 1.51)
	pt3dadd(80.23, -77.18, -16.13, 1.51)
	pt3dadd(82.11, -78.5, -16.13, 1.51)
	pt3dadd(84.93, -79.82, -16.13, 1.51)
	pt3dadd(87.19, -80.38, -16.13, 1.51)
	pt3dadd(89.26, -82.64, -18.63, 1.88)
	pt3dadd(89.83, -85.47, -18.63, 1.88)
	pt3dadd(89.63, -88.06, -16.66, 1.88)
	pt3dadd(90.57, -90.32, -16.59, 1.88)
	pt3dadd(92.83, -91.63, -21.89, 1.88)
	pt3dadd(94.9, -92.77, -22.04, 1.88)
	pt3dadd(96.41, -94.84, -22.12, 1.88)
	pt3dadd(97.73, -98.04, -22.12, 1.88)
	pt3dadd(98.67, -101.05, -22.12, 1.88)
	pt3dadd(100.55, -102.75, -22.19, 1.88)
	pt3dadd(103, -103.13, -24.09, 1.88)
	pt3dadd(105.82, -104.26, -24.16, 1.88)
	pt3dadd(106.95, -106.52, -24.16, 1.88)
	pt3dadd(108.65, -108.78, -24.16, 1.88)
	pt3dadd(109.4, -111.04, -24.16, 1.88)
	pt3dadd(110.16, -114.05, -24.24, 1.88)
	pt3dadd(112.04, -116.12, -27.35, 1.88)
	pt3dadd(113.73, -117.63, -27.42, 1.88)
  }
}
proc shape3d_7() {
  dend[45] {	pt3dadd(115.43, -117.63, -27.42, 1.88)
	pt3dadd(117.31, -118.57, -27.42, 1.88)
	pt3dadd(118.63, -119.51, -27.42, 1.88)
	pt3dadd(120.51, -121.96, -27.42, 1.88)
	pt3dadd(120.7, -123.47, -27.42, 1.88)
	pt3dadd(121.26, -125.92, -27.42, 1.88)
	pt3dadd(122.02, -127.8, -27.42, 1.88)
	pt3dadd(122.77, -129.87, -27.42, 1.88)
	pt3dadd(123.9, -131.38, -27.42, 1.88)
	pt3dadd(124.84, -133.26, -27.42, 1.88)
	pt3dadd(125.97, -134.96, -27.42, 1.88)
	pt3dadd(126.72, -137.22, -27.42, 1.88)
	pt3dadd(128.23, -139.67, -27.42, 1.88)
	pt3dadd(130.49, -140.42, -27.42, 1.88)
	pt3dadd(132.18, -142.31, -27.42, 1.88)
	pt3dadd(132.75, -145.51, -27.42, 1.88)
	pt3dadd(132.94, -148.15, -27.42, 1.88)
	pt3dadd(133.12, -151.73, -27.42, 1.88)
	pt3dadd(133.12, -155.3, -27.42, 1.88)
	pt3dadd(132.94, -157.94, -27.42, 1.88)
	pt3dadd(132.18, -160.01, -27.42, 1.88)
	pt3dadd(131.43, -162.27, -27.42, 1.88)
	pt3dadd(131.24, -165.29, -27.42, 1.88)
	pt3dadd(132.18, -167.93, -30, 1.88)
	pt3dadd(132.75, -170.19, -30.07, 1.88)
	pt3dadd(132.94, -172.45, -30.07, 1.88)
	pt3dadd(133.32, -175.06, -30.07, 1.88)
	pt3dadd(134.83, -176.56, -30.07, 1.88)
	pt3dadd(135.77, -178.26, -30.07, 1.88)
	pt3dadd(137.09, -179.95, -30.07, 1.88)
	pt3dadd(138.59, -181.46, -30.07, 1.88)
	pt3dadd(139.72, -182.78, -30.07, 1.88)
	pt3dadd(141.04, -184.66, -30.07, 1.88)
	pt3dadd(143.11, -185.6, -30.07, 1.88)
	pt3dadd(145.18, -185.98, -30.07, 1.88)
	pt3dadd(146.69, -187.68, -30.07, 1.88)
	pt3dadd(148.38, -188.62, -30.07, 1.88)
	pt3dadd(150.08, -189.94, -30.07, 1.88)
	pt3dadd(152.15, -189.94, -30.07, 1.88)
	pt3dadd(154.41, -191.26, -30.07, 1.88)
	pt3dadd(155.35, -192.76, -30.07, 1.88)
	pt3dadd(157.42, -194.27, -30.07, 1.88)
	pt3dadd(158.93, -194.65, -30.07, 1.88)
	pt3dadd(161, -195.02, -30.07, 1.88)
	pt3dadd(161.94, -197.1, -30.07, 1.88)
	pt3dadd(163.82, -197.28, -32.12, 1.51)
	pt3dadd(165.52, -199.17, -32.12, 1.51)
	pt3dadd(166.46, -201.05, -32.12, 1.51)
	pt3dadd(167.96, -202.75, -32.12, 1.51)
	pt3dadd(168.53, -205.01, -32.19, 1.51)
//	pt3dadd(170.41, -203.69, -64.24, 1.51)
  }
  dend[46] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(-8.35, -17.9, -16.29, 2.07)
	pt3dadd(-10.42, -18.66, -16.29, 2.07)
	pt3dadd(-13.43, -18.47, -16.29, 2.07)
	pt3dadd(-15.69, -18.84, -16.29, 2.07)
	pt3dadd(-17.76, -19.6, -16.29, 2.07)
	pt3dadd(-19.46, -20.54, -16.29, 2.07)
	pt3dadd(-20.4, -22.05, -16.29, 2.07)
	pt3dadd(-21.53, -23.74, -16.29, 2.07)
	pt3dadd(-22.85, -24.87, -16.29, 2.07)
	pt3dadd(-24.17, -26.19, -16.13, 1.88)
	pt3dadd(-25.11, -27.13, -16.13, 1.88)
	pt3dadd(-26.61, -28.26, -16.13, 1.88)
	pt3dadd(-28.31, -29.02, -16.13, 1.88)
	pt3dadd(-29.44, -30.52, -16.13, 1.88)
	pt3dadd(-31.13, -31.65, -16.13, 1.88)
	pt3dadd(-32.83, -32.97, -16.29, 1.88)
	pt3dadd(-34.14, -33.54, -16.29, 1.88)
	pt3dadd(-35.65, -34.29, -16.29, 1.88)
	pt3dadd(-35.84, -35.99, -16.29, 1.88)
	pt3dadd(-36.03, -38.43, -16.29, 1.88)
	pt3dadd(-36.03, -41.07, -14.62, 1.88)
	pt3dadd(-37.16, -42.58, -19.77, 1.88)
	pt3dadd(-39.23, -42.96, -19.92, 1.88)
	pt3dadd(-40.92, -43.71, -20, 1.88)
	pt3dadd(-42.05, -44.46, -20.07, 1.88)
	pt3dadd(-42.99, -45.97, -20.15, 1.88)
	pt3dadd(-43.94, -48.8, -22.73, 1.88)
	pt3dadd(-45.25, -49.93, -22.8, 1.88)
	pt3dadd(-45.63, -52.19, -22.8, 1.88)
	pt3dadd(-46.19, -54.26, -22.8, 1.88)
	pt3dadd(-47.14, -56.14, -24.09, 1.88)
	pt3dadd(-47.89, -58.03, -24.09, 1.88)
	pt3dadd(-49.02, -59.16, -24.16, 1.88)
	pt3dadd(-50.52, -60.1, -24.16, 1.88)
	pt3dadd(-52.97, -59.72, -24.16, 1.88)
	pt3dadd(-54.48, -59.91, -24.16, 1.88)
	pt3dadd(-55.61, -61.6, -24.16, 1.88)
	pt3dadd(-55.42, -64.05, -24.16, 1.88)
	pt3dadd(-54.48, -67.07, -26.66, 1.88)
	pt3dadd(-54.48, -69.52, -26.66, 1.88)
	pt3dadd(-54.29, -71.78, -26.66, 1.88)
	pt3dadd(-54.67, -73.28, -26.74, 1.88)
	pt3dadd(-54.67, -75.17, -26.74, 1.88)
	pt3dadd(-55.8, -77.62, -26.74, 1.88)
  }
  dend[47] {pt3dclear()
	pt3dadd(-55.8, -77.62, -26.74, 1.88)
	pt3dadd(-56.93, -79.5, -28.48, 1.88)
	pt3dadd(-57.87, -81.01, -28.48, 1.88)
	pt3dadd(-59.19, -82.7, -28.48, 1.88)
	pt3dadd(-60.69, -84.21, -28.48, 1.88)
	pt3dadd(-61.44, -86.28, -28.48, 1.88)
	pt3dadd(-62.21, -88.44, -28.56, 1.88)
	pt3dadd(-61.46, -89.76, -28.56, 1.88)
	pt3dadd(-61.08, -91.83, -28.56, 1.88)
	pt3dadd(-61.46, -93.91, -28.56, 1.88)
	pt3dadd(-62.21, -95.6, -28.56, 1.88)
	pt3dadd(-62.77, -97.11, -28.56, 1.88)
	pt3dadd(-64.47, -98.8, -28.56, 1.88)
	pt3dadd(-65.79, -101.07, -28.56, 1.88)
	pt3dadd(-67.86, -102.57, -28.56, 1.88)
	pt3dadd(-69.74, -103.14, -28.56, 1.88)
	pt3dadd(-71.06, -103.51, -28.56, 1.88)
	pt3dadd(-74.07, -104.46, -28.56, 1.88)
	pt3dadd(-75.2, -102.95, -28.56, 1.88)
	pt3dadd(-74.63, -100.5, -28.56, 1.88)
	pt3dadd(-75.01, -98.05, -28.56, 1.88)
	pt3dadd(-76.14, -96.36, -28.56, 1.88)
	pt3dadd(-77.84, -94.85, -28.56, 1.88)
	pt3dadd(-79.15, -94.47, -28.56, 1.88)
  }
  dend[48] {pt3dclear()
	pt3dadd(-55.8, -77.62, -26.74, 1.51)
	pt3dadd(-57.31, -76.95, -31.74, 1.51)
	pt3dadd(-59.38, -74.88, -31.82, 1.51)
	pt3dadd(-60.33, -73.94, -31.89, 1.51)
	pt3dadd(-62.21, -73.37, -31.89, 1.51)
	pt3dadd(-63.71, -74.5, -31.89, 1.51)
	pt3dadd(-64.28, -76.2, -32.88, 1.51)
	pt3dadd(-64.28, -78.65, -34.77, 1.51)
	pt3dadd(-64.47, -80.72, -35.53, 1.51)
	pt3dadd(-63.71, -82.42, -35.91, 1.51)
	pt3dadd(-63.71, -84.68, -36.06, 1.51)
	pt3dadd(-62.77, -86.75, -36.06, 1.51)
	pt3dadd(-60.89, -86.18, -36.21, 1.51)
	pt3dadd(-59.2, -84.49, -36.81, 1.51)
	pt3dadd(-58.25, -84.68, -37.19, 1.51)
	pt3dadd(-56.94, -86.18, -37.34, 1.51)
	pt3dadd(-56, -87.88, -37.8, 1.51)
	pt3dadd(-54.87, -89.39, -43.78, 1.51)
	pt3dadd(-53.55, -90.14, -44.01, 1.51)
	pt3dadd(-52.61, -90.89, -44.09, 1.51)
	pt3dadd(-51.48, -92.21, -44.09, 1.51)
	pt3dadd(-50.35, -94.1, -44.24, 1.51)
	pt3dadd(-50.72, -95.41, -48.25, 1.51)
	pt3dadd(-50.72, -97.3, -48.33, 1.51)
	pt3dadd(-50.35, -99.56, -48.33, 1.51)
	pt3dadd(-49.41, -102.2, -48.4, 1.51)
	pt3dadd(-48.84, -103.89, -48.56, 1.51)
	pt3dadd(-46.96, -104.83, -51.59, 1.51)
	pt3dadd(-46.2, -106.34, -51.81, 1.51)
	pt3dadd(-45.45, -107.47, -51.81, 1.51)
	pt3dadd(-43.57, -107.47, -51.81, 1.51)
	pt3dadd(-42.63, -107.85, -51.81, 1.51)
  }
  dend[49] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(-8.73, -18.16, -9.92, 1.51)
	pt3dadd(-10.05, -18.16, -9.92, 1.51)
	pt3dadd(-11.93, -17.97, -10, 1.51)
	pt3dadd(-14.38, -18.16, -10, 1.51)
	pt3dadd(-16.82, -18.72, -10, 1.51)
	pt3dadd(-18.52, -19.66, -10, 1.51)
	pt3dadd(-20.78, -21.17, -10, 1.51)
	pt3dadd(-22.85, -22.68, -10, 1.51)
	pt3dadd(-24.54, -22.87, -14.01, 1.51)
	pt3dadd(-26.05, -23.62, -14.01, 1.51)
	pt3dadd(-28.31, -24.56, -14.09, 1.51)
	pt3dadd(-30.57, -24.56, -14.09, 1.51)
	pt3dadd(-31.89, -24, -14.09, 2.07)
	pt3dadd(-36.12, -23.5, -14.09, 2.07)
  }
  dend[50] {pt3dclear()
	pt3dadd(-36.12, -23.5, -14.09, 2.64)
	pt3dadd(-33.58, -24, -14.09, 2.64)
  }
  dend[51] {pt3dclear()
	pt3dadd(-36.12, -23.5, -14.09, 1.69)
	pt3dadd(-38.57, -24.06, -14.47, 1.69)
	pt3dadd(-40.27, -24.44, -14.7, 1.69)
	pt3dadd(-41.96, -24.25, -14.77, 1.69)
	pt3dadd(-43.66, -24.44, -14.85, 1.69)
	pt3dadd(-45.92, -24.63, -14.92, 1.69)
	pt3dadd(-47.61, -25.19, -14.92, 1.69)
	pt3dadd(-48.93, -25.38, -14.92, 1.69)
	pt3dadd(-50.43, -25.76, -14.92, 1.69)
	pt3dadd(-52.13, -25, -14.92, 1.69)
	pt3dadd(-53.82, -25.76, -14.92, 1.69)
	pt3dadd(-55.52, -26.51, -15, 1.69)
	pt3dadd(-56.84, -27.08, -15, 1.69)
	pt3dadd(-58.91, -27.64, -17.12, 1.69)
	pt3dadd(-60.6, -28.4, -17.2, 1.69)
	pt3dadd(-62.48, -28.4, -17.27, 1.69)
	pt3dadd(-64.74, -29.15, -17.27, 1.69)
	pt3dadd(-66.63, -29.71, -17.27, 1.69)
	pt3dadd(-68.13, -30.84, -17.35, 1.69)
	pt3dadd(-69.83, -32.16, -17.35, 1.69)
	pt3dadd(-71.33, -32.73, -17.35, 1.69)
	pt3dadd(-73.97, -33.48, -17.35, 1.69)
	pt3dadd(-75.66, -34.61, -17.35, 1.69)
	pt3dadd(-77.73, -34.05, -17.35, 1.69)
	pt3dadd(-79.24, -32.92, -18.33, 1.69)
	pt3dadd(-81.12, -32.16, -18.56, 1.69)
	pt3dadd(-82.82, -31.03, -18.63, 1.69)
	pt3dadd(-84.89, -30.66, -18.56, 1.69)
	pt3dadd(-86.96, -30.66, -18.56, 1.69)
	pt3dadd(-89.41, -30.28, -18.41, 1.69)
	pt3dadd(-90.91, -29.9, -18.56, 1.69)
  }
}
proc shape3d_8() {
  dend[51] {	pt3dadd(-93.55, -29.53, -18.56, 1.69)
	pt3dadd(-95.81, -29.9, -18.63, 1.69)
	pt3dadd(-97.5, -30.84, -18.63, 1.69)
	pt3dadd(-99.2, -32.54, -16.13, 1.69)
	pt3dadd(-100.33, -33.48, -15.91, 1.69)
	pt3dadd(-102.02, -34.8, -15.6, 1.69)
	pt3dadd(-104.47, -35.37, -15.53, 1.69)
	pt3dadd(-105.79, -35.74, -15.53, 1.69)
	pt3dadd(-107.86, -36.68, -15.45, 1.69)
	pt3dadd(-109.55, -36.87, -15.45, 1.69)
	pt3dadd(-111.25, -36.68, -14.62, 1.69)
	pt3dadd(-112.94, -35.93, -13.26, 1.69)
	pt3dadd(-114.07, -35.18, -12.95, 1.69)
	pt3dadd(-115.95, -34.99, -11.89, 1.69)
	pt3dadd(-116.9, -35.55, -11.44, 1.69)
	pt3dadd(-118.78, -36.5, -10.68, 1.69)
	pt3dadd(-120.1, -37.06, -10.45, 1.69)
	pt3dadd(-121.6, -37.25, -9.85, 1.69)
	pt3dadd(-123.48, -36.31, -9.24, 1.69)
	pt3dadd(-124.43, -35.37, -8.18, 1.69)
	pt3dadd(-124.8, -33.48, -8.11, 1.69)
	pt3dadd(-124.99, -32.16, -7.73, 1.69)
	pt3dadd(-126.69, -32.54, -5.15, 1.69)
	pt3dadd(-127.25, -33.67, -5.08, 1.69)
	pt3dadd(-128.57, -34.99, -5, 1.69)
	pt3dadd(-130.07, -34.23, -5, 1.69)
	pt3dadd(-131.2, -32.92, -4.85, 1.69)
	pt3dadd(-132.33, -31.6, -4.47, 1.69)
	pt3dadd(-133.84, -31.22, -3.26, 1.51)
	pt3dadd(-136.29, -30.84, -3.26, 1.51)
	pt3dadd(-137.23, -30.84, -3.26, 1.51)
  }
  dend[52] {pt3dclear()
	pt3dadd(-36.12, -23.5, -14.09, 1.51)
	pt3dadd(-36.53, -21.89, -15.45, 1.51)
	pt3dadd(-37.66, -20.19, -15.45, 1.51)
	pt3dadd(-39.17, -19.82, -15.45, 1.51)
	pt3dadd(-40.86, -19.25, -15.45, 1.51)
	pt3dadd(-42.56, -19.63, -15.76, 1.51)
	pt3dadd(-44.06, -18.69, -16.36, 1.51)
	pt3dadd(-45.19, -17.74, -16.66, 1.51)
	pt3dadd(-46.13, -16.99, -17.65, 1.51)
	pt3dadd(-47.64, -16.24, -18.41, 1.51)
	pt3dadd(-49.52, -16.43, -18.56, 1.51)
	pt3dadd(-51.22, -17.56, -18.86, 1.51)
	pt3dadd(-52.91, -16.8, -19.01, 1.51)
	pt3dadd(-54.61, -15.67, -19.16, 1.51)
	pt3dadd(-56.49, -14.73, -19.24, 1.51)
	pt3dadd(-58.37, -13.98, -19.24, 1.51)
	pt3dadd(-59.88, -13.41, -19.39, 1.51)
	pt3dadd(-61.01, -12.66, -19.62, 1.51)
	pt3dadd(-62.89, -12.66, -19.77, 1.51)
	pt3dadd(-64.77, -11.72, -20.23, 1.51)
	pt3dadd(-66.66, -10.59, -20.53, 1.51)
	pt3dadd(-68.35, -8.51, -20.6, 1.51)
	pt3dadd(-69.48, -7.01, -20.6, 1.51)
	pt3dadd(-70.61, -5.88, -21.36, 1.51)
	pt3dadd(-72.3, -4.75, -19.32, 1.51)
	pt3dadd(-74.19, -3.43, -19.01, 1.51)
	pt3dadd(-75.88, -2.49, -18.94, 1.51)
	pt3dadd(-77.39, -1.36, -18.79, 1.51)
	pt3dadd(-78.71, -0.41, -18.63, 1.51)
	pt3dadd(-80.4, 0.53, -18.48, 1.51)
	pt3dadd(-82.09, 1.09, -18.41, 1.51)
	pt3dadd(-84.73, 1.09, -18.33, 1.51)
	pt3dadd(-86.42, 0.72, -18.26, 1.51)
	pt3dadd(-88.12, 0.72, -18.26, 1.51)
	pt3dadd(-89.06, 1.85, -18.18, 1.51)
	pt3dadd(-89.81, 3.16, -18.18, 1.51)
	pt3dadd(-90.38, 4.48, -17.57, 1.51)
	pt3dadd(-91.13, 5.61, -17.27, 1.51)
	pt3dadd(-92.26, 6.56, -21.97, 1.51)
	pt3dadd(-94.33, 6.56, -22.19, 1.51)
	pt3dadd(-96.4, 6.56, -22.27, 1.51)
	pt3dadd(-98.29, 7.5, -22.35, 1.51)
	pt3dadd(-99.6, 8.82, -22.88, 1.51)
	pt3dadd(-100.73, 10.13, -23.41, 1.51)
	pt3dadd(-101.86, 10.51, -23.48, 1.51)
	pt3dadd(-102.99, 9.95, -23.63, 1.51)
	pt3dadd(-104.12, 9.19, -23.71, 1.51)
	pt3dadd(-105.06, 8.44, -23.79, 1.51)
	pt3dadd(-105.82, 7.69, -23.79, 1.51)
	pt3dadd(-108.08, 7.69, -23.86, 1.51)
	pt3dadd(-109.02, 9.19, -24.32, 1.51)
	pt3dadd(-109.02, 10.89, -25.3, 1.51)
	pt3dadd(-109.77, 11.83, -25.83, 1.51)
	pt3dadd(-110.9, 12.4, -26.44, 1.51)
	pt3dadd(-112.41, 13.15, -26.66, 1.51)
	pt3dadd(-112.6, 14.66, -26.66, 1.51)
	pt3dadd(-112.78, 16.92, -27.12, 1.51)
	pt3dadd(-114.1, 17.86, -27.42, 1.51)
	pt3dadd(-115.61, 18.8, -27.88, 1.51)
	pt3dadd(-116.74, 20.31, -28.18, 1.51)
	pt3dadd(-117.87, 21.25, -28.71, 1.51)
	pt3dadd(-119, 22.38, -28.94, 1.51)
	pt3dadd(-119.94, 24.45, -29.09, 1.51)
	pt3dadd(-120.5, 26.33, -29.24, 1.51)
	pt3dadd(-122.2, 27.46, -29.32, 1.51)
	pt3dadd(-123.14, 28.97, -29.32, 1.51)
	pt3dadd(-123.14, 31.23, -29.32, 1.51)
	pt3dadd(-123.89, 33.3, -29.39, 1.51)
	pt3dadd(-125.02, 34.06, -29.69, 1.51)
	pt3dadd(-125.77, 35.19, -30.3, 1.51)
	pt3dadd(-126.9, 36.51, -30.38, 1.51)
	pt3dadd(-127.85, 37.45, -30.38, 1.51)
	pt3dadd(-128.41, 39.33, -30.38, 1.51)
  }
  dend[53] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(-7.73, -12.47, -17.65, 1.88)
	pt3dadd(-9.98, -12.28, -17.65, 1.88)
	pt3dadd(-12.06, -11.72, -17.57, 1.88)
	pt3dadd(-13, -10.4, -17.57, 1.88)
	pt3dadd(-12.62, -9.27, -17.57, 1.88)
	pt3dadd(-11.87, -7.76, -17.5, 1.88)
	pt3dadd(-10.36, -6.44, -17.5, 1.88)
	pt3dadd(-9.04, -5.88, -21.82, 1.88)
	pt3dadd(-8.67, -3.99, -21.97, 1.88)
	pt3dadd(-8.67, -2.67, -22.04, 1.88)
	pt3dadd(-9.42, -1.73, -22.04, 1.88)
	pt3dadd(-11.3, -0.98, -22.04, 1.88)
	pt3dadd(-13.19, -0.98, -22.12, 1.88)
	pt3dadd(-12.81, -2.86, -22.12, 1.88)
	pt3dadd(-10.93, -3.24, -22.12, 1.88)
	pt3dadd(-8.48, -3.62, -22.12, 1.88)
	pt3dadd(-7.35, -2.49, -22.12, 1.88)
	pt3dadd(-5.84, -1.36, -27.27, 1.88)
	pt3dadd(-7.54, 0.34, -28.33, 1.88)
	pt3dadd(-8.1, 2.22, -28.94, 1.88)
	pt3dadd(-8.86, 2.98, -31.44, 1.88)
	pt3dadd(-10.55, 3.54, -31.59, 1.88)
  }
  dend[54] {pt3dclear()
	pt3dadd(-10.55, 3.54, -31.59, 1.88)
	pt3dadd(-11.87, 3.92, -31.59, 1.88)
	pt3dadd(-13.56, 3.92, -31.59, 1.88)
	pt3dadd(-15.44, 4.86, -31.59, 1.88)
	pt3dadd(-16.76, 4.11, -31.59, 1.88)
	pt3dadd(-18.83, 4.11, -31.59, 1.88)
	pt3dadd(-21.09, 4.3, -31.59, 1.88)
	pt3dadd(-20.34, 6.18, -34.31, 1.88)
	pt3dadd(-20.15, 8.06, -34.47, 1.88)
	pt3dadd(-20.53, 9.76, -34.47, 1.88)
	pt3dadd(-21.09, 11.45, -34.47, 1.88)
	pt3dadd(-22.41, 13.71, -34.47, 1.88)
	pt3dadd(-23.73, 14.66, -34.47, 1.88)
	pt3dadd(-25.42, 14.66, -38.86, 1.88)
	pt3dadd(-27.68, 15.03, -38.94, 1.88)
	pt3dadd(-29.19, 14.84, -38.94, 1.88)
	pt3dadd(-31.07, 15.6, -38.94, 1.88)
	pt3dadd(-32.58, 16.54, -38.94, 1.88)
	pt3dadd(-34.08, 17.67, -38.94, 1.88)
	pt3dadd(-34.65, 18.8, -38.94, 1.88)
	pt3dadd(-36.16, 19.74, -38.94, 1.88)
	pt3dadd(-37.28, 21.06, -38.94, 1.88)
	pt3dadd(-37.85, 22.19, -38.94, 1.88)
	pt3dadd(-38.41, 23.89, -38.94, 1.88)
	pt3dadd(-38.79, 25.96, -39.62, 1.88)
	pt3dadd(-39.54, 27.84, -40.15, 1.88)
	pt3dadd(-39.54, 29.73, -40.15, 1.88)
	pt3dadd(-38.98, 30.86, -40.15, 1.88)
	pt3dadd(-37.47, 32.55, -40.15, 1.88)
	pt3dadd(-35.78, 33.68, -40.22, 1.88)
	pt3dadd(-34.84, 35, -40.45, 1.88)
	pt3dadd(-34.84, 36.32, -41.28, 1.88)
	pt3dadd(-35.59, 38.77, -41.51, 1.88)
	pt3dadd(-35.97, 40.09, -42.57, 1.88)
	pt3dadd(-37.1, 41.22, -42.87, 1.88)
	pt3dadd(-37.66, 42.91, -43.56, 1.88)
	pt3dadd(-37.85, 43.85, -43.78, 1.88)
	pt3dadd(-39.17, 45.17, -44.09, 1.88)
	pt3dadd(-40.3, 46.68, -44.84, 1.88)
  }
  dend[55] {pt3dclear()
	pt3dadd(-40.3, 46.68, -44.84, 1.88)
	pt3dadd(-41.62, 46.3, -49.99, 1.88)
	pt3dadd(-43.5, 46.87, -50.07, 1.88)
	pt3dadd(-45.38, 47.43, -50.07, 1.88)
	pt3dadd(-47.83, 48.19, -50.07, 1.88)
	pt3dadd(-49.71, 48.75, -51.28, 1.88)
	pt3dadd(-51.59, 49.88, -51.36, 1.88)
	pt3dadd(-53.48, 49.69, -51.43, 1.88)
	pt3dadd(-56.11, 49.5, -53.71, 1.88)
	pt3dadd(-58, 49.13, -53.71, 1.88)
	pt3dadd(-59.69, 49.13, -53.71, 1.88)
	pt3dadd(-60.63, 50.26, -53.71, 1.88)
	pt3dadd(-59.88, 52.14, -53.71, 1.88)
	pt3dadd(-58.75, 54.03, -53.78, 1.88)
	pt3dadd(-58.18, 56.29, -56.36, 1.88)
	pt3dadd(-58.56, 58.17, -56.36, 1.88)
	pt3dadd(-59.88, 59.11, -56.36, 1.88)
	pt3dadd(-61.01, 59.68, -56.36, 1.88)
	pt3dadd(-61.98, 60.08, -57.87, 1.88)
	pt3dadd(-63.87, 61.21, -58.02, 1.88)
	pt3dadd(-65.37, 60.08, -58.1, 1.88)
	pt3dadd(-66.32, 59.14, -58.1, 1.88)
	pt3dadd(-67.44, 60.65, -63.18, 1.88)
	pt3dadd(-67.63, 62.53, -63.18, 1.88)
	pt3dadd(-68.39, 64.04, -63.18, 1.88)
	pt3dadd(-69.52, 64.6, -64.61, 1.88)
	pt3dadd(-71.21, 64.6, -66.05, 1.88)
	pt3dadd(-73.09, 64.23, -66.81, 1.88)
	pt3dadd(-74.6, 64.04, -67.04, 1.88)
	pt3dadd(-76.11, 64.79, -67.8, 1.88)
	pt3dadd(-77.99, 65.36, -68.48, 1.88)
	pt3dadd(-78.36, 66.86, -69.24, 1.88)
	pt3dadd(-78.74, 68.93, -69.77, 1.88)
	pt3dadd(-80.06, 70.25, -70.14, 1.88)
  }
}
proc shape3d_9() {
  dend[55] {	pt3dadd(-81.38, 71.2, -70.37, 1.88)
	pt3dadd(-83.07, 71.57, -70.37, 1.88)
	pt3dadd(-84.95, 71.95, -70.52, 1.88)
	pt3dadd(-86.46, 73.08, -74.46, 1.88)
	pt3dadd(-88.16, 74.21, -74.54, 1.88)
	pt3dadd(-89.66, 76.09, -74.61, 1.88)
	pt3dadd(-91.73, 75.72, -74.69, 1.88)
	pt3dadd(-93.43, 75.53, -78.17, 1.69)
	pt3dadd(-94.74, 75.53, -78.17, 1.69)
	pt3dadd(-96.06, 75.72, -78.93, 1.69)
	pt3dadd(-98.13, 75.34, -79.23, 1.69)
	pt3dadd(-100.39, 74.96, -79.23, 1.69)
	pt3dadd(-102.65, 74.4, -79.23, 1.69)
//	pt3dadd(-104.35, 73.27, -158.46, 1.69)
  }
  dend[56] {pt3dclear()
	pt3dadd(-40.3, 46.68, -44.84, 1.69)
	pt3dadd(-39.96, 48.03, -44.54, 1.69)
	pt3dadd(-40.9, 49.34, -44.84, 1.69)
	pt3dadd(-41.84, 49.72, -44.92, 1.69)
	pt3dadd(-43.53, 49.53, -45.07, 1.69)
	pt3dadd(-44.29, 50.29, -47.95, 1.69)
	pt3dadd(-44.66, 51.6, -48.03, 1.69)
	pt3dadd(-45.98, 53.3, -48.03, 1.69)
	pt3dadd(-46.55, 54.24, -48.1, 1.69)
	pt3dadd(-47.11, 55.56, -48.1, 1.69)
	pt3dadd(-47.86, 56.31, -48.1, 1.69)
	pt3dadd(-49.37, 57.07, -48.1, 1.69)
	pt3dadd(-50.69, 57.07, -48.18, 1.69)
	pt3dadd(-52.76, 58.01, -49.46, 1.69)
	pt3dadd(-53.32, 59.7, -49.92, 1.69)
	pt3dadd(-53.14, 60.83, -50.07, 1.69)
	pt3dadd(-51.82, 61.4, -50.22, 1.69)
	pt3dadd(-50.31, 61.97, -50.9, 1.69)
	pt3dadd(-49.37, 63.1, -50.98, 1.69)
	pt3dadd(-48.99, 64.6, -51.36, 1.69)
	pt3dadd(-48.99, 65.92, -54.54, 1.69)
	pt3dadd(-49.37, 67.43, -54.69, 1.69)
	pt3dadd(-49.56, 68.37, -54.77, 1.69)
	pt3dadd(-50.5, 68.37, -54.84, 1.51)
	pt3dadd(-52.01, 69.31, -54.99, 1.51)
	pt3dadd(-53.14, 69.5, -55.68, 1.51)
	pt3dadd(-52.57, 71.01, -55.9, 1.51)
	pt3dadd(-52.19, 72.51, -56.06, 1.51)
	pt3dadd(-52.38, 74.02, -56.51, 1.51)
	pt3dadd(-52.57, 75.15, -56.74, 1.51)
	pt3dadd(-53.32, 76.09, -56.96, 1.51)
	pt3dadd(-53.89, 77.41, -57.42, 1.51)
	pt3dadd(-54.27, 79.3, -57.49, 1.51)
	pt3dadd(-54.27, 81.18, -57.49, 1.51)
	pt3dadd(-54.08, 82.87, -57.87, 1.51)
	pt3dadd(-53.7, 84, -58.63, 1.51)
	pt3dadd(-54.08, 85.51, -58.78, 1.51)
	pt3dadd(-54.08, 87.21, -58.86, 1.51)
	pt3dadd(-52.57, 87.58, -58.93, 1.51)
	pt3dadd(-52.01, 88.53, -62.49, 1.51)
	pt3dadd(-52.01, 89.84, -62.57, 1.51)
	pt3dadd(-53.32, 90.79, -63.18, 1.51)
	pt3dadd(-54.27, 92.1, -63.86, 1.51)
	pt3dadd(-54.64, 93.42, -64.08, 1.51)
	pt3dadd(-54.64, 94.74, -64.16, 1.51)
//	pt3dadd(-54.27, 97, -128.48, 1.51)
  }
  dend[57] {pt3dclear()
	pt3dadd(-10.55, 3.54, -31.59, 1.51)
	pt3dadd(-9.89, 4.33, -33.03, 1.51)
	pt3dadd(-10.64, 5.28, -33.1, 1.51)
	pt3dadd(-10.64, 7.35, -33.18, 1.51)
	pt3dadd(-10.27, 7.54, -33.25, 1.51)
	pt3dadd(-8.38, 6.22, -33.25, 1.51)
	pt3dadd(-6.69, 5.09, -33.94, 1.51)
	pt3dadd(-5.37, 3.96, -35.68, 1.51)
	pt3dadd(-3.87, 3.2, -35.83, 1.51)
	pt3dadd(-1.98, 2.26, -36.21, 1.51)
	pt3dadd(-0.1, 4.15, -39.77, 1.51)
	pt3dadd(0.65, 6.22, -39.77, 1.51)
	pt3dadd(1.59, 7.73, -39.84, 1.51)
	pt3dadd(3.1, 8.86, -39.92, 1.51)
	pt3dadd(5.17, 9.04, -46.59, 1.51)
	pt3dadd(8.18, 8.48, -46.59, 1.51)
	pt3dadd(7.24, 5.09, -46.59, 1.51)
	pt3dadd(7.62, 4.33, -46.59, 1.51)
	pt3dadd(9.5, 5.09, -46.59, 1.51)
	pt3dadd(10.26, 6.97, -52.49, 1.51)
	pt3dadd(11.38, 8.67, -52.72, 1.51)
	pt3dadd(12.33, 9.8, -52.87, 1.51)
	pt3dadd(14.77, 10.93, -52.95, 1.51)
	pt3dadd(16.47, 11.87, -53.02, 1.51)
	pt3dadd(18.16, 12.25, -53.02, 1.51)
	pt3dadd(19.29, 12.06, -53.02, 1.51)
	pt3dadd(20.61, 11.12, -53.02, 1.51)
	pt3dadd(21.55, 9.99, -53.02, 1.51)
	pt3dadd(23.43, 9.61, -53.02, 1.51)
	pt3dadd(24.56, 8.67, -53.02, 1.51)
	pt3dadd(26.26, 7.35, -53.1, 1.51)
	pt3dadd(28.14, 6.03, -53.1, 1.51)
	pt3dadd(29.08, 4.71, -53.1, 1.51)
	pt3dadd(29.08, 3.39, -53.1, 1.51)
	pt3dadd(28.89, 1.89, -53.1, 1.51)
	pt3dadd(28.71, -0.56, -53.1, 1.51)
	pt3dadd(29.27, -2.26, -53.1, 1.51)
	pt3dadd(30.78, -3.58, -53.1, 1.51)
	pt3dadd(31.15, -4.52, -53.1, 1.51)
	pt3dadd(31.91, -6.03, -53.1, 1.51)
	pt3dadd(32.85, -8.29, -53.1, 1.51)
  }
  dend[58] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(-7.25, -19.02, -18.48, 1.88)
	pt3dadd(-8.57, -19.78, -18.56, 1.88)
	pt3dadd(-10.08, -20.72, -18.63, 1.88)
	pt3dadd(-12.15, -21.66, -18.71, 1.88)
  }
  dend[59] {pt3dclear()
	pt3dadd(-12.15, -21.66, -18.71, 1.69)
	pt3dadd(-14.6, -21.28, -20.98, 1.69)
	pt3dadd(-16.29, -21.66, -21.06, 1.69)
	pt3dadd(-17.42, -21.66, -21.13, 1.32)
	pt3dadd(-18.74, -20.72, -21.13, 1.32)
	pt3dadd(-19.68, -18.83, -21.13, 1.32)
	pt3dadd(-20.81, -17.89, -21.13, 1.32)
	pt3dadd(-22.88, -16.95, -21.13, 1.32)
	pt3dadd(-24.01, -17.52, -21.13, 1.32)
	pt3dadd(-23.26, -19.97, -25.15, 1.32)
	pt3dadd(-22.32, -21.66, -25.3, 1.32)
	pt3dadd(-22.88, -23.36, -25.68, 1.32)
	pt3dadd(-24.95, -24.86, -25.83, 1.32)
  }
  dend[60] {pt3dclear()
	pt3dadd(-12.15, -21.66, -18.71, 1.32)
	pt3dadd(-11.4, -23.73, -24.69, 1.32)
	pt3dadd(-11.21, -25.8, -25, 2.26)
	pt3dadd(-11.02, -27.12, -25, 2.26)
	pt3dadd(-10.83, -29.2, -25, 2.26)
	pt3dadd(-11.4, -31.08, -25, 2.26)
	pt3dadd(-11.96, -33.34, -25.07, 2.26)
	pt3dadd(-12.15, -35.03, -25.07, 2.26)
	pt3dadd(-10.83, -32.77, -33.25, 1.13)
	pt3dadd(-9.89, -31.27, -33.33, 1.13)
  }
  dend[61] {pt3dclear()
	pt3dadd(-9.89, -31.27, -33.33, 1.88)
	pt3dadd(-8.2, -32.77, -38.33, 1.88)
	pt3dadd(-7.44, -34.66, -38.33, 1.88)
	pt3dadd(-7.82, -36.73, -38.33, 1.88)
	pt3dadd(-8.95, -38.43, -38.33, 1.88)
	pt3dadd(-9.89, -39.18, -38.33, 1.88)
  }
  dend[62] {pt3dclear()
	pt3dadd(-9.89, -39.18, -38.33, 1.51)
	pt3dadd(-11.21, -38.8, -40.15, 1.51)
	pt3dadd(-12.34, -38.8, -40.15, 1.51)
	pt3dadd(-14.6, -38.8, -40.15, 1.51)
	pt3dadd(-15.92, -40.12, -40.15, 1.51)
	pt3dadd(-16.67, -41.82, -40.15, 1.51)
	pt3dadd(-16.48, -43.7, -40.22, 1.51)
	pt3dadd(-16.48, -45.4, -42.65, 1.51)
	pt3dadd(-17.23, -46.9, -42.65, 1.51)
	pt3dadd(-17.99, -48.22, -45.22, 1.51)
	pt3dadd(-18.93, -47.09, -45.3, 1.51)
	pt3dadd(-20.06, -45.58, -45.3, 1.51)
	pt3dadd(-20.81, -47.09, -45.3, 1.51)
	pt3dadd(-21, -49.16, -54.09, 1.51)
	pt3dadd(-22.5, -49.73, -54.16, 1.51)
	pt3dadd(-24.2, -50.86, -54.16, 1.51)
	pt3dadd(-25.14, -51.61, -54.16, 1.51)
	pt3dadd(-25.89, -52.93, -54.16, 1.51)
	pt3dadd(-26.65, -54.25, -54.16, 1.51)
	pt3dadd(-27.78, -55.19, -54.16, 1.51)
	pt3dadd(-25.71, -55.57, -54.16, 1.51)
	pt3dadd(-24.58, -55.94, -54.16, 1.51)
	pt3dadd(-24.76, -57.64, -58.02, 1.51)
	pt3dadd(-24.95, -59.33, -58.02, 1.51)
	pt3dadd(-25.14, -61.03, -58.1, 1.51)
	pt3dadd(-25.52, -62.16, -58.1, 1.51)
	pt3dadd(-27.02, -63.29, -58.1, 1.51)
	pt3dadd(-28.34, -64.23, -58.1, 1.51)
	pt3dadd(-29.85, -64.8, -58.1, 1.51)
	pt3dadd(-31.35, -65.17, -58.1, 1.51)
	pt3dadd(-32.3, -65.55, -58.1, 1.51)
	pt3dadd(-33.8, -66.12, -58.48, 1.51)
	pt3dadd(-35.31, -66.87, -58.71, 1.51)
	pt3dadd(-36.81, -67.06, -58.71, 1.51)
	pt3dadd(-37.94, -67.81, -58.71, 1.51)
	pt3dadd(-39.07, -70.26, -63.55, 1.51)
	pt3dadd(-39.26, -71.2, -63.55, 1.51)
	pt3dadd(-39.45, -72.71, -63.55, 1.51)
	pt3dadd(-39.45, -73.84, -63.63, 1.51)
	pt3dadd(-39.64, -74.97, -63.63, 1.51)
	pt3dadd(-40.01, -76.1, -63.63, 1.51)
	pt3dadd(-40.39, -77.04, -63.63, 1.51)
	pt3dadd(-41.14, -77.98, -63.63, 1.51)
	pt3dadd(-41.33, -79.3, -63.63, 1.51)
	pt3dadd(-41.71, -80.43, -63.63, 1.51)
	pt3dadd(-41.9, -81.19, -63.63, 1.51)
	pt3dadd(-42.09, -82.5, -63.63, 1.51)
	pt3dadd(-42.16, -83.51, -65.22, 1.51)
	pt3dadd(-40.84, -84.83, -65.3, 1.51)
	pt3dadd(-39.71, -85.96, -65.3, 1.51)
	pt3dadd(-39.14, -86.9, -65.3, 1.51)
	pt3dadd(-37.82, -87.85, -65.3, 1.51)
	pt3dadd(-36.51, -88.98, -65.3, 1.51)
	pt3dadd(-36.32, -89.92, -65.3, 1.51)
	pt3dadd(-35.75, -91.05, -65.37, 1.51)
	pt3dadd(-34.25, -91.61, -66.89, 1.51)
	pt3dadd(-33.87, -92.93, -67.27, 1.51)
	pt3dadd(-34.06, -94.44, -67.27, 1.51)
	pt3dadd(-35, -95.95, -67.27, 1.51)
	pt3dadd(-35.19, -96.89, -67.27, 1.51)
//	pt3dadd(-35.57, -99.53, -134.54, 1.51)
  }
  dend[63] {pt3dclear()
	pt3dadd(-9.89, -39.18, -38.33, 1.69)
	pt3dadd(-10.52, -41.32, -38.03, 1.69)
	pt3dadd(-11.28, -43.58, -38.03, 1.69)
	pt3dadd(-10.71, -45.84, -38.94, 1.69)
  }
}
proc shape3d_10() {
  dend[63] {	pt3dadd(-9.58, -48.29, -38.71, 1.69)
	pt3dadd(-8.45, -50.36, -38.63, 1.69)
	pt3dadd(-7.89, -52.24, -38.63, 1.69)
	pt3dadd(-9.02, -53.56, -38.56, 1.69)
	pt3dadd(-9.77, -55.07, -38.56, 1.69)
	pt3dadd(-9.02, -56.95, -38.56, 1.69)
	pt3dadd(-8.27, -59.03, -38.56, 1.69)
	pt3dadd(-8.45, -61.66, -40.68, 1.69)
	pt3dadd(-9.21, -63.55, -40.83, 1.69)
	pt3dadd(-9.58, -65.05, -40.9, 1.69)
	pt3dadd(-10.34, -66.94, -40.98, 1.69)
	pt3dadd(-10.52, -68.07, -41.06, 1.69)
	pt3dadd(-10.34, -69.57, -41.06, 1.69)
	pt3dadd(-10.15, -71.46, -41.06, 1.69)
	pt3dadd(-10.52, -73.15, -43.25, 1.69)
	pt3dadd(-11.28, -75.79, -43.33, 1.69)
	pt3dadd(-11.84, -77.11, -43.33, 1.69)
	pt3dadd(-11.65, -78.62, -43.4, 1.69)
	pt3dadd(-11.65, -80.5, -43.4, 1.69)
	pt3dadd(-10.9, -82.01, -43.4, 1.69)
	pt3dadd(-9.77, -83.14, -43.4, 1.69)
	pt3dadd(-9.02, -84.64, -43.4, 1.69)
	pt3dadd(-8.08, -85.96, -44.69, 1.69)
	pt3dadd(-7.7, -87.85, -47.19, 1.69)
	pt3dadd(-6.95, -89.73, -47.27, 1.69)
	pt3dadd(-7.14, -91.61, -47.27, 1.69)
	pt3dadd(-7.14, -93.12, -47.34, 1.69)
	pt3dadd(-6.76, -94.63, -47.34, 1.69)
	pt3dadd(-4.5, -95.95, -47.34, 1.69)
	pt3dadd(-2.99, -96.89, -47.34, 1.69)
	pt3dadd(-1.49, -97.83, -47.34, 1.69)
	pt3dadd(-0.55, -99.15, -47.34, 1.69)
	pt3dadd(-0.36, -100.09, -47.34, 1.69)
	pt3dadd(0.02, -102.16, -50.22, 1.69)
	pt3dadd(0.58, -104.23, -50.22, 1.69)
	pt3dadd(1.71, -105.74, -50.22, 1.69)
	pt3dadd(3.03, -107.06, -50.22, 1.69)
	pt3dadd(3.97, -109.13, -50.22, 1.69)
	pt3dadd(3.6, -110.45, -50.22, 1.69)
	pt3dadd(4.16, -112.52, -50.22, 1.69)
	pt3dadd(6.04, -113.65, -50.22, 1.69)
	pt3dadd(8.11, -114.41, -50.22, 1.69)
	pt3dadd(9.81, -115.16, -50.15, 1.69)
	pt3dadd(11.88, -116.29, -52.95, 1.51)
	pt3dadd(12.63, -117.8, -53.02, 1.51)
	pt3dadd(12.82, -119.12, -53.02, 1.51)
	pt3dadd(13.2, -120.81, -53.02, 1.51)
	pt3dadd(12.82, -122.88, -53.1, 1.51)
	pt3dadd(12.63, -124.96, -53.1, 1.51)
	pt3dadd(13.01, -127.59, -53.1, 1.51)
	pt3dadd(12.82, -129.1, -53.1, 1.51)
	pt3dadd(12.07, -131.17, -53.1, 1.51)
	pt3dadd(11.13, -132.49, -53.1, 1.51)
	pt3dadd(10.75, -134.56, -53.1, 1.51)
	pt3dadd(10.75, -136.26, -53.1, 1.51)
	pt3dadd(11.69, -137.76, -53.1, 1.51)
	pt3dadd(12.63, -140.03, -53.1, 1.51)
	pt3dadd(12.82, -142.1, -53.1, 1.51)
	pt3dadd(12.44, -143.23, -53.1, 1.51)
	pt3dadd(12.26, -145.11, -53.1, 1.51)
	pt3dadd(13.2, -147, -53.1, 1.51)
	pt3dadd(13.2, -148.88, -53.1, 1.51)
	pt3dadd(13.2, -150.57, -56.06, 1.51)
	pt3dadd(12.82, -152.65, -56.06, 1.13)
	pt3dadd(13.2, -153.59, -56.06, 1.13)
  }
  dend[64] {pt3dclear()
	pt3dadd(-9.89, -31.27, -33.33, 1.13)
	pt3dadd(-9.68, -29.83, -39.92, 1.13)
	pt3dadd(-8.55, -28.33, -39.92, 1.13)
	pt3dadd(-6.67, -28.33, -39.92, 1.13)
	pt3dadd(-6.29, -27.57, -42.42, 1.13)
	pt3dadd(-6.29, -26.07, -45, 1.32)
	pt3dadd(-5.35, -24.75, -45.07, 1.32)
	pt3dadd(-4.03, -24.18, -45.07, 1.32)
	pt3dadd(-0.83, -24.37, -45.07, 1.32)
	pt3dadd(0.67, -24.94, -45.07, 1.32)
	pt3dadd(2.18, -26.26, -45.15, 1.32)
	pt3dadd(2.56, -27.76, -47.27, 1.32)
	pt3dadd(1.99, -30.02, -47.34, 1.32)
	pt3dadd(2.75, -32.47, -47.34, 1.32)
	pt3dadd(3.69, -34.73, -47.34, 1.32)
	pt3dadd(5, -36.62, -47.34, 1.32)
	pt3dadd(7.08, -36.24, -50.6, 1.32)
	pt3dadd(9.52, -37.37, -50.6, 1.32)
  }
  dend[65] {pt3dclear()
	pt3dadd(9.52, -37.37, -50.6, 1.32)
	pt3dadd(11.41, -36.43, -50.22, 1.32)
	pt3dadd(12.72, -35.49, -50.07, 1.32)
	pt3dadd(14.61, -34.36, -49.99, 1.32)
	pt3dadd(13.67, -33.04, -49.92, 1.32)
	pt3dadd(11.97, -32.47, -49.84, 1.32)
	pt3dadd(10.65, -31.91, -49.84, 1.32)
	pt3dadd(9.15, -30.97, -49.77, 1.32)
	pt3dadd(8.39, -29.27, -49.77, 1.32)
	pt3dadd(8.96, -27.2, -49.77, 1.32)
	pt3dadd(8.96, -25.13, -49.77, 1.32)
	pt3dadd(9.15, -23.81, -49.77, 1.32)
	pt3dadd(9.71, -22.49, -49.77, 1.32)
	pt3dadd(10.28, -20.79, -49.77, 1.32)
	pt3dadd(11.03, -19.66, -49.77, 1.32)
	pt3dadd(11.97, -18.53, -49.77, 1.32)
	pt3dadd(13.48, -17.03, -49.77, 1.32)
	pt3dadd(14.42, -16.08, -49.69, 1.32)
	pt3dadd(15.92, -15.33, -49.69, 1.32)
	pt3dadd(18, -14.2, -49.46, 1.32)
	pt3dadd(19.69, -12.88, -49.69, 1.32)
	pt3dadd(21.2, -11.56, -49.84, 1.32)
	pt3dadd(22.51, -10.62, -49.92, 1.32)
	pt3dadd(24.02, -10.24, -49.99, 1.32)
	pt3dadd(25.72, -9.49, -49.99, 1.32)
	pt3dadd(27.79, -9.3, -49.99, 1.32)
	pt3dadd(29.48, -10.24, -50.07, 1.32)
	pt3dadd(29.86, -12.13, -46.51, 1.13)
	pt3dadd(30.8, -13.45, -46.51, 1.13)
	pt3dadd(32.12, -15.14, -46.43, 1.13)
	pt3dadd(33.62, -15.52, -44.69, 1.13)
	pt3dadd(35.32, -16.84, -44.62, 1.13)
	pt3dadd(35.88, -18.72, -44.62, 1.13)
	pt3dadd(35.13, -20.79, -44.62, 1.13)
	pt3dadd(33.43, -21.17, -44.62, 1.13)
  }
  dend[66] {pt3dclear()
	pt3dadd(9.52, -37.37, -50.6, 1.13)
	pt3dadd(8.39, -38.69, -49.39, 1.13)
	pt3dadd(8.39, -40.2, -49.24, 1.13)
	pt3dadd(8.96, -42.08, -49.16, 1.13)
	pt3dadd(8.02, -43.96, -49.16, 1.13)
	pt3dadd(7.26, -44.72, -49.09, 1.13)
	pt3dadd(5.38, -44.9, -50.98, 1.69)
	pt3dadd(3.69, -45.28, -51.13, 1.69)
	pt3dadd(1.99, -45.47, -51.21, 1.69)
	pt3dadd(1.05, -46.41, -51.28, 1.51)
	pt3dadd(0.3, -47.54, -51.28, 1.51)
	pt3dadd(-0.08, -49.8, -51.28, 1.51)
	pt3dadd(0.49, -51.31, -51.36, 1.51)
	pt3dadd(1.99, -52.06, -52.42, 1.32)
	pt3dadd(2.37, -53.76, -52.42, 1.32)
	pt3dadd(1.05, -55.83, -52.49, 1.32)
	pt3dadd(0.3, -57.34, -58.48, 1.32)
	pt3dadd(-1.02, -58.28, -58.48, 1.32)
	pt3dadd(-2.34, -59.97, -58.55, 1.32)
	pt3dadd(-3.84, -60.35, -58.55, 1.32)
	pt3dadd(-5.16, -59.6, -58.55, 1.32)
	pt3dadd(-5.73, -58.28, -58.55, 1.32)
	pt3dadd(-4.79, -57.34, -58.55, 1.32)
	pt3dadd(-4.03, -57.15, -58.55, 1.32)
	pt3dadd(-3.09, -56.77, -58.55, 1.32)
	pt3dadd(-1.96, -56.21, -58.55, 1.32)
	pt3dadd(-0.46, -55.26, -58.55, 1.32)
  }
  dend[67] {pt3dclear()
	pt3dadd(9.52, -37.37, -50.6, 1.32)
	pt3dadd(10.46, -39.07, -49.77, 1.32)
	pt3dadd(11.41, -40.2, -49.54, 1.32)
	pt3dadd(12.91, -42.08, -49.46, 1.32)
	pt3dadd(13.67, -42.83, -49.46, 1.32)
	pt3dadd(14.61, -44.15, -49.39, 1.32)
	pt3dadd(15.74, -45.47, -49.39, 1.32)
	pt3dadd(16.3, -46.41, -49.31, 1.32)
	pt3dadd(17.43, -46.41, -49.31, 1.32)
	pt3dadd(18.75, -44.9, -49.31, 1.32)
	pt3dadd(19.69, -45.85, -49.31, 1.32)
	pt3dadd(20.82, -47.35, -53.33, 1.32)
	pt3dadd(22.89, -48.48, -53.56, 1.32)
	pt3dadd(24.4, -48.67, -53.63, 1.32)
	pt3dadd(26.47, -48.11, -56.66, 1.32)
	pt3dadd(27.79, -48.3, -56.74, 1.32)
	pt3dadd(28.92, -49.61, -56.81, 1.32)
	pt3dadd(29.48, -50.56, -62.49, 1.32)
	pt3dadd(28.73, -51.5, -62.49, 1.32)
	pt3dadd(26.84, -52.25, -62.57, 1.32)
	pt3dadd(28.54, -53.76, -65.37, 1.32)
	pt3dadd(31.18, -54.32, -65.37, 1.32)
	pt3dadd(32.87, -54.13, -65.37, 1.32)
	pt3dadd(34.19, -54.13, -65.37, 1.32)
	pt3dadd(36.26, -54.32, -65.37, 1.32)
	pt3dadd(37.2, -55.08, -65.37, 1.32)
	pt3dadd(36.64, -56.4, -70.3, 1.32)
	pt3dadd(34.75, -57.34, -70.37, 1.32)
	pt3dadd(34.19, -58.28, -70.6, 1.32)
	pt3dadd(33.43, -59.6, -71.21, 1.32)
	pt3dadd(33.06, -61.29, -71.43, 1.32)
	pt3dadd(34.38, -62.05, -71.66, 1.32)
	pt3dadd(36.45, -62.8, -75.98, 1.32)
	pt3dadd(37.95, -62.61, -76.05, 1.32)
	pt3dadd(39.65, -62.61, -76.05, 1.32)
	pt3dadd(40.78, -61.86, -76.05, 1.32)
	pt3dadd(40.78, -62.99, -76.05, 1.32)
	pt3dadd(40.78, -64.31, -76.05, 1.32)
	pt3dadd(40.21, -65.44, -76.05, 1.32)
	pt3dadd(39.08, -65.81, -80.37, 1.32)
	pt3dadd(37.58, -66.94, -80.37, 1.32)
	pt3dadd(37.95, -68.07, -80.37, 1.32)
	pt3dadd(40.02, -69.58, -80.37, 1.32)
	pt3dadd(40.97, -70.9, -80.45, 1.32)
	pt3dadd(43.22, -71.28, -83.86, 1.32)
  }
  dend[68] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(18.57, -19.49, -20.45, 2.45)
	pt3dadd(19.89, -20.05, -20.45, 2.45)
	pt3dadd(21.58, -19.67, -20.45, 2.45)
  }
  dend[69] {pt3dclear()
	pt3dadd(21.58, -19.67, -20.45, 1.88)
	pt3dadd(24.03, -18.17, -20.45, 1.88)
	pt3dadd(25.35, -17.6, -20.45, 1.88)
	pt3dadd(26.86, -16.47, -20.45, 1.88)
	pt3dadd(28.17, -15.15, -20.45, 1.88)
	pt3dadd(29.87, -14.21, -20, 1.88)
  }
}
proc shape3d_11() {
  dend[69] {	pt3dadd(31.56, -13.83, -19.85, 1.88)
	pt3dadd(33.82, -13.65, -19.77, 1.88)
	pt3dadd(35.52, -13.27, -19.77, 1.88)
	pt3dadd(38.15, -13.46, -19.24, 1.88)
	pt3dadd(41.35, -13.83, -19.01, 1.88)
	pt3dadd(43.42, -13.46, -18.94, 1.88)
	pt3dadd(46.06, -12.89, -17.88, 1.88)
	pt3dadd(48.88, -12.89, -17.73, 1.88)
	pt3dadd(50.01, -13.27, -17.65, 1.88)
	pt3dadd(51.52, -13.65, -17.57, 1.88)
	pt3dadd(53.03, -14.21, -17.57, 1.88)
	pt3dadd(55.47, -14.78, -17.5, 1.88)
	pt3dadd(56.6, -14.4, -17.5, 1.88)
	pt3dadd(58.11, -12.7, -17.42, 1.51)
	pt3dadd(59.05, -11.95, -21.44, 1.51)
	pt3dadd(59.8, -10.82, -21.51, 1.51)
	pt3dadd(61.12, -9.69, -21.59, 1.51)
	pt3dadd(61.69, -7.81, -21.66, 1.51)
	pt3dadd(61.5, -5.17, -23.86, 1.51)
	pt3dadd(60.93, -3.85, -25.3, 1.51)
	pt3dadd(60.37, -2.72, -25.45, 1.51)
	pt3dadd(59.62, -1.03, -26.13, 1.51)
	pt3dadd(58.86, 0.67, -26.74, 1.51)
	pt3dadd(59.05, 2.55, -27.04, 1.51)
	pt3dadd(59.43, 3.68, -27.12, 1.51)
	pt3dadd(61.5, 5, -28.56, 1.51)
	pt3dadd(63.76, 5.57, -29.01, 1.51)
	pt3dadd(65.26, 6.89, -29.01, 1.51)
	pt3dadd(64.89, 8.58, -29.09, 1.51)
	pt3dadd(64.89, 10.09, -29.85, 1.51)
	pt3dadd(64.7, 12.16, -30.38, 1.51)
	pt3dadd(65.83, 14.23, -30.38, 1.51)
	pt3dadd(66.58, 15.55, -30.45, 1.51)
	pt3dadd(66.21, 17.06, -32.8, 1.51)
	pt3dadd(66.96, 18.56, -32.8, 1.51)
	pt3dadd(67.52, 20.64, -32.8, 1.51)
	pt3dadd(66.96, 21.58, -32.8, 1.51)
	pt3dadd(66.39, 23.27, -32.8, 1.51)
	pt3dadd(66.77, 24.59, -32.8, 1.51)
	pt3dadd(66.39, 25.91, -37.8, 1.51)
	pt3dadd(67.52, 27.23, -37.8, 1.51)
	pt3dadd(68.28, 28.93, -37.8, 1.51)
	pt3dadd(70.16, 30.24, -37.8, 1.51)
	pt3dadd(71.85, 30.81, -37.8, 1.51)
	pt3dadd(72.8, 31.75, -41.97, 1.51)
	pt3dadd(73.55, 33.45, -41.97, 1.51)
  }
  dend[70] {pt3dclear()
	pt3dadd(73.55, 33.45, -41.97, 1.51)
	pt3dadd(74.87, 34.76, -41.66, 1.51)
	pt3dadd(75.06, 36.46, -41.51, 1.51)
	pt3dadd(75.81, 38.91, -41.21, 1.51)
	pt3dadd(77.88, 39.85, -41.13, 1.51)
	pt3dadd(79.2, 41.55, -42.65, 1.51)
	pt3dadd(80.7, 43.24, -42.72, 1.51)
	pt3dadd(82.02, 44, -42.72, 1.51)
	pt3dadd(83.72, 44.94, -42.72, 1.51)
	pt3dadd(84.28, 46.26, -42.72, 1.51)
	pt3dadd(84.47, 47.95, -42.8, 1.51)
	pt3dadd(85.03, 49.46, -42.8, 1.51)
	pt3dadd(84.85, 50.78, -42.8, 1.51)
	pt3dadd(85.03, 52.85, -42.8, 1.51)
	pt3dadd(85.03, 54.17, -42.8, 1.51)
	pt3dadd(85.22, 55.49, -42.8, 1.51)
	pt3dadd(85.41, 56.62, -42.8, 1.51)
	pt3dadd(85.22, 58.69, -42.8, 1.51)
	pt3dadd(84.66, 60.57, -42.8, 1.51)
	pt3dadd(84.85, 62.46, -44.01, 1.51)
	pt3dadd(85.03, 63.96, -45.3, 1.51)
	pt3dadd(85.22, 66.03, -46.89, 1.51)
	pt3dadd(84.66, 67.16, -47.72, 1.51)
	pt3dadd(83.9, 67.54, -48.78, 1.51)
	pt3dadd(82.77, 68.67, -50.07, 1.51)
	pt3dadd(82.02, 69.43, -50.53, 1.51)
	pt3dadd(80.89, 69.99, -51.74, 1.51)
	pt3dadd(79.2, 70.37, -51.74, 1.51)
	pt3dadd(76.94, 70.74, -52.19, 1.51)
	pt3dadd(75.06, 71.31, -52.87, 1.51)
	pt3dadd(74.11, 72.25, -53.1, 1.51)
	pt3dadd(72.98, 73.38, -53.18, 1.51)
	pt3dadd(71.48, 74.89, -53.48, 1.51)
	pt3dadd(70.35, 76.58, -53.56, 1.51)
	pt3dadd(69.78, 77.15, -54.01, 1.51)
	pt3dadd(69.22, 77.71, -56.81, 1.51)
	pt3dadd(66.77, 78.66, -56.89, 1.51)
	pt3dadd(66.96, 79.6, -56.89, 1.51)
//	pt3dadd(68.28, 80.92, -113.78, 1.51)
  }
  dend[71] {pt3dclear()
	pt3dadd(73.55, 33.45, -41.97, 1.51)
	pt3dadd(72.98, 34.58, -36.74, 1.51)
	pt3dadd(72.61, 35.52, -36.59, 1.51)
	pt3dadd(71.29, 37.03, -36.51, 1.13)
	pt3dadd(71.1, 38.53, -36.44, 1.13)
	pt3dadd(70.35, 39.66, -36.44, 1.13)
	pt3dadd(69.6, 40.98, -36.44, 1.13)
	pt3dadd(69.03, 41.92, -35.45, 1.13)
	pt3dadd(68.47, 43.81, -35.07, 1.13)
	pt3dadd(67.71, 44.75, -38.33, 1.13)
	pt3dadd(66.39, 46.44, -38.71, 1.13)
	pt3dadd(65.45, 48.14, -38.86, 1.13)
	pt3dadd(65.08, 50.78, -39.01, 1.13)
	pt3dadd(65.08, 52.1, -39.16, 1.13)
	pt3dadd(65.64, 53.79, -39.24, 1.13)
	pt3dadd(66.02, 55.11, -39.31, 1.13)
	pt3dadd(66.39, 56.62, -39.39, 1.13)
	pt3dadd(66.77, 58.12, -40.07, 1.13)
	pt3dadd(65.83, 58.88, -41.06, 1.13)
	pt3dadd(65.08, 60.01, -41.74, 1.13)
	pt3dadd(64.51, 61.51, -41.36, 1.13)
	pt3dadd(63.57, 64.15, -39.01, 1.13)
	pt3dadd(63.01, 65.66, -37.19, 1.13)
	pt3dadd(62.63, 66.98, -35.75, 1.13)
	pt3dadd(61.5, 69.05, -35, 1.13)
	pt3dadd(61.12, 70.37, -34.69, 1.13)
	pt3dadd(60.75, 71.87, -34.62, 1.13)
	pt3dadd(60.37, 73.38, -34.54, 1.13)
	pt3dadd(59.24, 75.08, -34.47, 1.13)
	pt3dadd(58.86, 78.09, -34.47, 1.13)
	pt3dadd(58.86, 80.54, -34.39, 1.13)
	pt3dadd(58.3, 81.86, -34.39, 1.13)
	pt3dadd(57.55, 83.74, -34.31, 1.13)
	pt3dadd(56.94, 84.73, -34.01, 1.13)
	pt3dadd(56.94, 86.81, -34.24, 1.13)
	pt3dadd(57.7, 88.13, -34.39, 1.13)
	pt3dadd(58.64, 89.63, -34.92, 1.13)
	pt3dadd(59.39, 91.89, -36.28, 0.75)
	pt3dadd(59.2, 93.02, -36.36, 0.75)
	pt3dadd(58.45, 94.72, -36.44, 1.69)
	pt3dadd(57.7, 96.04, -36.44, 1.69)
	pt3dadd(58.26, 97.92, -36.44, 1.69)
	pt3dadd(58.45, 99.62, -36.51, 1.69)
	pt3dadd(58.64, 101.12, -36.51, 1.69)
	pt3dadd(58.83, 103.38, -36.97, 1.69)
	pt3dadd(59.39, 105.08, -37.12, 1.69)
	pt3dadd(59.39, 106.77, -37.12, 1.69)
	pt3dadd(58.45, 108.28, -37.19, 1.69)
	pt3dadd(57.51, 109.6, -37.19, 1.69)
	pt3dadd(56.38, 109.98, -37.19, 1.69)
	pt3dadd(54.87, 112.05, -37.19, 1.69)
	pt3dadd(53.93, 113.56, -37.19, 1.69)
	pt3dadd(53.74, 116.38, -37.19, 1.69)
  }
  dend[72] {pt3dclear()
	pt3dadd(21.58, -19.67, -20.45, 1.69)
	pt3dadd(22.3, -20.73, -20.98, 1.69)
	pt3dadd(23.99, -21.29, -20.98, 1.69)
	pt3dadd(24.93, -20.91, -21.06, 1.69)
	pt3dadd(26.06, -20.35, -21.06, 1.69)
	pt3dadd(27.95, -20.35, -21.06, 1.69)
	pt3dadd(30.02, -21.1, -14.47, 1.69)
	pt3dadd(31.15, -22.42, -14.47, 1.69)
	pt3dadd(31.52, -23.93, -14.39, 1.69)
	pt3dadd(31.9, -25.43, -15.38, 1.69)
	pt3dadd(32.28, -27.51, -15.6, 1.69)
	pt3dadd(31.71, -29.77, -15.68, 1.69)
	pt3dadd(31.52, -31.46, -15.76, 1.69)
  }
  dend[73] {pt3dclear()
	pt3dadd(31.52, -31.46, -15.76, 1.51)
	pt3dadd(31.9, -33.91, -15.76, 1.51)
	pt3dadd(32.84, -35.98, -15.83, 1.51)
	pt3dadd(33.03, -38.06, -15.83, 1.51)
	pt3dadd(33.22, -40.32, -15.83, 1.51)
	pt3dadd(33.78, -42.77, -15.83, 1.51)
	pt3dadd(35.29, -44.46, -18.56, 1.51)
	pt3dadd(36.61, -46.53, -18.63, 1.51)
	pt3dadd(38.11, -48.98, -18.71, 1.51)
	pt3dadd(39.43, -50.87, -18.71, 1.51)
	pt3dadd(40.37, -52.37, -18.79, 1.51)
	pt3dadd(42.26, -53.31, -20.53, 1.51)
	pt3dadd(43.76, -53.5, -20.6, 1.51)
	pt3dadd(44.89, -55.95, -20.6, 1.51)
	pt3dadd(44.89, -58.4, -20.6, 1.51)
	pt3dadd(46.02, -59.53, -20.6, 1.51)
	pt3dadd(47.53, -60.66, -20.68, 1.51)
	pt3dadd(48.84, -61.79, -20.68, 1.51)
	pt3dadd(50.54, -62.73, -20.68, 1.51)
	pt3dadd(51.1, -64.43, -20.68, 1.51)
	pt3dadd(52.23, -66.12, -20.68, 1.51)
	pt3dadd(52.8, -68.01, -20.68, 1.51)
	pt3dadd(52.05, -70.27, -20.68, 1.51)
	pt3dadd(51.86, -72.15, -20.68, 1.51)
	pt3dadd(50.92, -73.85, -20.68, 1.51)
	pt3dadd(50.54, -75.92, -20.68, 1.51)
	pt3dadd(50.73, -77.43, -20.68, 1.51)
	pt3dadd(51.48, -79.31, -20.68, 1.51)
	pt3dadd(52.99, -79.87, -20.68, 1.51)
	pt3dadd(54.49, -81.19, -22.35, 1.51)
	pt3dadd(54.87, -83.26, -22.35, 1.51)
	pt3dadd(53.74, -85.53, -22.35, 1.51)
	pt3dadd(54.49, -87.97, -22.42, 1.51)
	pt3dadd(54.68, -90.99, -22.42, 1.51)
	pt3dadd(56.94, -93.06, -22.42, 1.51)
	pt3dadd(59.58, -94.76, -22.42, 1.51)
	pt3dadd(61.08, -95.89, -22.42, 1.51)
	pt3dadd(61.84, -96.64, -22.42, 1.51)
	pt3dadd(63.15, -100.03, -22.42, 1.51)
	pt3dadd(64.1, -101.91, -22.42, 1.51)
	pt3dadd(65.79, -102.29, -22.42, 1.51)
	pt3dadd(67.3, -102.48, -22.42, 1.51)
	pt3dadd(68.61, -103.23, -22.42, 1.51)
	pt3dadd(69.74, -104.17, -22.42, 1.51)
	pt3dadd(70.87, -105.12, -22.42, 1.51)
	pt3dadd(70.83, -106.69, -25.45, 1.51)
	pt3dadd(71.21, -108.39, -25.45, 1.51)
	pt3dadd(71.96, -110.08, -25.45, 1.51)
	pt3dadd(73.66, -111.59, -25.53, 1.51)
  }
}
proc shape3d_12() {
  dend[73] {	pt3dadd(75.35, -112.53, -25.53, 1.51)
	pt3dadd(78.18, -113.66, -25.53, 1.51)
	pt3dadd(79.68, -115.54, -25.53, 1.51)
	pt3dadd(80.44, -117.43, -25.53, 1.51)
	pt3dadd(81.19, -119.12, -25.53, 1.51)
	pt3dadd(82.51, -121.01, -25.6, 1.51)
	pt3dadd(83.07, -123.27, -26.13, 1.51)
	pt3dadd(84.39, -125.15, -26.44, 1.51)
	pt3dadd(85.14, -126.47, -26.74, 1.51)
	pt3dadd(85.52, -129.3, -27.19, 1.51)
	pt3dadd(86.84, -130.61, -28.18, 1.51)
	pt3dadd(87.21, -132.12, -30.07, 1.51)
	pt3dadd(88.72, -134.38, -30.15, 1.51)
	pt3dadd(90.6, -136.45, -30.15, 1.51)
	pt3dadd(91.92, -138.15, -30.15, 1.51)
	pt3dadd(93.8, -139.84, -30.15, 1.51)
	pt3dadd(94.74, -141.16, -30.15, 1.51)
	pt3dadd(95.69, -142.48, -30.15, 1.51)
	pt3dadd(97.19, -143.23, -30.15, 1.51)
	pt3dadd(98.7, -143.99, -30.22, 1.51)
	pt3dadd(100.77, -144.74, -30.53, 1.51)
	pt3dadd(101.9, -144.93, -30.6, 1.51)
	pt3dadd(103.03, -146.25, -30.68, 1.51)
	pt3dadd(102.65, -147.94, -33.18, 1.51)
	pt3dadd(102.28, -149.64, -33.33, 1.51)
	pt3dadd(103.22, -150.96, -33.86, 1.51)
	pt3dadd(104.53, -152.28, -34.01, 1.51)
	pt3dadd(105.48, -153.41, -34.01, 1.51)
	pt3dadd(107.17, -153.6, -34.01, 1.51)
	pt3dadd(109.05, -154.54, -34.01, 1.51)
	pt3dadd(110.18, -156.8, -34.01, 1.51)
	pt3dadd(110.37, -158.87, -37.42, 1.51)
	pt3dadd(110.37, -161.7, -37.5, 1.51)
	pt3dadd(110.94, -164.33, -37.5, 1.51)
	pt3dadd(110.94, -166.97, -37.57, 1.51)
	pt3dadd(109.81, -169.23, -37.8, 1.51)
	pt3dadd(108.68, -171.68, -38.94, 1.51)
	pt3dadd(107.74, -173.75, -40.6, 1.51)
	pt3dadd(107.74, -176.39, -41.81, 1.51)
	pt3dadd(108.86, -178.65, -41.81, 1.51)
	pt3dadd(110.75, -179.4, -41.81, 1.51)
	pt3dadd(111.88, -180.72, -41.81, 1.51)
	pt3dadd(113.57, -181.85, -41.81, 1.51)
	pt3dadd(113.76, -183.92, -41.81, 1.51)
	pt3dadd(114.89, -185.62, -41.81, 1.51)
	pt3dadd(116.77, -186.37, -41.81, 1.51)
	pt3dadd(117.9, -186.18, -41.81, 1.51)
	pt3dadd(119.6, -187.5, -41.81, 1.51)
	pt3dadd(121.48, -189.2, -41.81, 1.51)
	pt3dadd(122.8, -190.7, -41.81, 1.51)
	pt3dadd(123.66, -191.81, -41.81, 1.51)
	pt3dadd(124.98, -192.94, -41.89, 1.51)
	pt3dadd(126.3, -194.26, -41.89, 1.51)
	pt3dadd(126.68, -195.58, -41.89, 1.51)
	pt3dadd(127.43, -196.9, -41.89, 1.51)
	pt3dadd(127.8, -198.41, -41.89, 1.51)
	pt3dadd(128.18, -200.29, -41.89, 1.51)
//	pt3dadd(128.18, -202.17, -83.78, 1.51)
  }
  dend[74] {pt3dclear()
	pt3dadd(31.52, -31.46, -15.76, 2.07)
	pt3dadd(32.62, -31.91, -20.45, 2.07)
	pt3dadd(35.06, -32.85, -20.53, 2.07)
	pt3dadd(37.14, -32.66, -20.6, 2.07)
	pt3dadd(39.02, -32.47, -20.6, 2.07)
  }
  dend[75] {pt3dclear()
	pt3dadd(39.02, -32.47, -20.6, 1.51)
	pt3dadd(39.77, -34.36, -23.71, 1.51)
	pt3dadd(41.65, -35.67, -23.71, 1.51)
	pt3dadd(42.78, -36.99, -23.71, 1.51)
	pt3dadd(44.85, -38.31, -32.65, 1.51)
	pt3dadd(46.17, -40.2, -32.57, 1.51)
  }
  dend[76] {pt3dclear()
	pt3dadd(46.17, -40.2, -32.57, 1.51)
	pt3dadd(44.67, -41.14, -30.22, 1.51)
	pt3dadd(42.78, -41.51, -30.15, 1.51)
	pt3dadd(41.09, -42.27, -30.07, 1.51)
	pt3dadd(40.15, -43.96, -30, 1.51)
	pt3dadd(39.77, -45.66, -30, 1.51)
	pt3dadd(41.28, -46.98, -32.88, 1.51)
	pt3dadd(43.35, -47.73, -32.88, 1.51)
	pt3dadd(45.04, -48.11, -32.95, 1.51)
	pt3dadd(46.36, -48.67, -32.95, 1.51)
	pt3dadd(48.06, -49.99, -33.03, 1.51)
	pt3dadd(48.62, -51.31, -33.03, 1.51)
	pt3dadd(49.56, -52.63, -33.03, 1.51)
	pt3dadd(50.5, -53.95, -33.03, 1.51)
	pt3dadd(51.07, -55.64, -33.03, 1.51)
	pt3dadd(50.31, -56.96, -36.06, 1.51)
	pt3dadd(48.62, -58.28, -36.21, 1.51)
	pt3dadd(48.81, -59.97, -36.21, 1.51)
	pt3dadd(48.24, -61.48, -36.21, 1.51)
	pt3dadd(48.43, -62.99, -36.21, 1.51)
	pt3dadd(48.81, -64.68, -36.21, 1.51)
	pt3dadd(49.56, -66.19, -36.21, 1.51)
	pt3dadd(50.69, -67.32, -36.21, 1.51)
	pt3dadd(52.39, -68.64, -36.21, 1.51)
	pt3dadd(54.27, -69.39, -36.21, 1.51)
	pt3dadd(55.21, -69.58, -36.21, 1.51)
	pt3dadd(56.9, -69.58, -36.21, 1.51)
	pt3dadd(58.6, -69.77, -36.21, 1.51)
	pt3dadd(59.92, -70.9, -36.21, 1.51)
	pt3dadd(60.1, -72.6, -36.21, 1.51)
	pt3dadd(58.79, -74.29, -36.21, 1.51)
	pt3dadd(57.09, -75.04, -36.21, 1.51)
	pt3dadd(55.77, -76.36, -32.12, 1.51)
	pt3dadd(55.21, -77.68, -31.97, 1.51)
	pt3dadd(56.72, -79.56, -31.89, 1.51)
	pt3dadd(57.47, -81.26, -31.89, 1.51)
	pt3dadd(58.03, -83.71, -31.89, 1.51)
	pt3dadd(58.6, -84.84, -31.82, 1.51)
	pt3dadd(59.94, -85.56, -39.69, 1.32)
	pt3dadd(61.26, -87.07, -39.77, 1.32)
	pt3dadd(62.2, -88.76, -39.84, 1.32)
	pt3dadd(63.33, -90.83, -39.84, 1.32)
	pt3dadd(64.46, -93.28, -39.84, 1.32)
	pt3dadd(65.21, -94.6, -39.92, 1.32)
	pt3dadd(65.78, -97.24, -39.92, 1.32)
	pt3dadd(65.02, -99.5, -39.92, 1.32)
	pt3dadd(63.89, -101.2, -39.92, 1.32)
	pt3dadd(63.7, -102.7, -39.92, 1.32)
	pt3dadd(64.83, -104.21, -39.92, 1.32)
	pt3dadd(65.59, -105.9, -39.92, 1.32)
	pt3dadd(66.34, -107.41, -39.92, 1.32)
	pt3dadd(68.22, -109.3, -39.92, 1.32)
	pt3dadd(69.54, -110.43, -45.15, 1.32)
	pt3dadd(70.11, -112.5, -45.15, 1.32)
	pt3dadd(71.42, -113.63, -45.15, 1.32)
	pt3dadd(72.74, -114.38, -45.15, 1.32)
	pt3dadd(74.62, -114, -45.15, 1.32)
	pt3dadd(75.75, -114.95, -45.15, 1.32)
	pt3dadd(76.13, -116.64, -45.15, 1.32)
	pt3dadd(74.62, -118.34, -45.15, 1.32)
	pt3dadd(74.62, -120.41, -49.69, 1.32)
	pt3dadd(75.19, -122.29, -49.69, 1.32)
	pt3dadd(75.75, -124.18, -49.77, 1.32)
	pt3dadd(77.26, -126.25, -49.77, 1.32)
	pt3dadd(78.39, -126.81, -49.84, 1.32)
	pt3dadd(80.08, -127.57, -53.78, 1.32)
	pt3dadd(82.16, -128.89, -53.86, 1.32)
	pt3dadd(80.84, -130.77, -53.86, 1.32)
	pt3dadd(81.03, -133.03, -53.86, 1.32)
	pt3dadd(82.34, -134.54, -53.86, 1.32)
	pt3dadd(82.72, -136.61, -54.09, 1.32)
	pt3dadd(83.47, -138.12, -54.09, 1.32)
	pt3dadd(83.85, -140, -56.21, 1.32)
	pt3dadd(84.23, -142.45, -56.21, 1.32)
	pt3dadd(84.42, -144.33, -56.28, 1.32)
	pt3dadd(84.04, -146.59, -56.96, 1.32)
	pt3dadd(82.72, -148.66, -57.49, 1.32)
	pt3dadd(84.23, -150.17, -58.18, 1.32)
	pt3dadd(85.36, -152.06, -58.33, 1.32)
	pt3dadd(86.86, -153.75, -59.54, 1.32)
//	pt3dadd(88.18, -154.13, -119.08, 1.32)
  }
  dend[77] {pt3dclear()
	pt3dadd(46.17, -40.2, -32.57, 1.51)
	pt3dadd(47.21, -41.55, -10.68, 1.51)
	pt3dadd(47.78, -42.3, -10.68, 1.51)
	pt3dadd(48.53, -44.37, -10.6, 1.51)
	pt3dadd(48.34, -46.45, -10.6, 1.51)
	pt3dadd(51.36, -47.76, -10.6, 1.51)
	pt3dadd(54.74, -46.26, -10.6, 1.51)
	pt3dadd(56.63, -45.13, -10.6, 1.51)
  }
  dend[78] {pt3dclear()
	pt3dadd(39.02, -32.47, -20.6, 0.94)
	pt3dadd(40.25, -32.13, -19.92, 0.94)
	pt3dadd(41.57, -32.13, -20, 0.94)
	pt3dadd(43.64, -31.94, -20.07, 0.94)
	pt3dadd(45.71, -32.32, -20.15, 0.94)
	pt3dadd(47.97, -32.13, -20.23, 0.94)
	pt3dadd(48.91, -32.13, -20.23, 0.94)
	pt3dadd(46.84, -33.07, -20.23, 0.94)
	pt3dadd(45.14, -34.2, -24.09, 0.94)
	pt3dadd(43.82, -35.71, -24.09, 0.94)
	pt3dadd(45.33, -37.4, -24.16, 0.94)
	pt3dadd(48.34, -37.59, -24.16, 0.94)
	pt3dadd(50.23, -37.78, -31.21, 0.94)
	pt3dadd(52.67, -37.03, -31.28, 0.94)
	pt3dadd(55.69, -37.03, -31.28, 0.94)
	pt3dadd(57.19, -38.53, -37.72, 0.94)
	pt3dadd(57.95, -40.04, -37.65, 0.94)
	pt3dadd(58.7, -40.8, -37.65, 0.94)
  }
  dend[79] {pt3dclear()
	pt3dadd(58.7, -40.8, -37.65, 0.94)
	pt3dadd(58.89, -42.11, -37.5, 0.94)
	pt3dadd(59.83, -42.87, -37.5, 0.94)
	pt3dadd(62.84, -41.93, -37.5, 0.94)
  }
  dend[80] {pt3dclear()
	pt3dadd(58.7, -40.8, -37.65, 0.94)
	pt3dadd(59.64, -40.23, -47.04, 0.94)
	pt3dadd(59.83, -38.35, -47.19, 0.94)
	pt3dadd(60.77, -37.97, -47.27, 0.94)
	pt3dadd(62.84, -38.35, -47.34, 0.94)
	pt3dadd(65.29, -39.85, -49.92, 0.94)
  }
  dend[81] {pt3dclear()
	pt3dadd(65.29, -39.85, -49.92, 0.94)
	pt3dadd(66.42, -40.8, -45.83, 0.94)
	pt3dadd(67.17, -41.93, -45.75, 0.94)
	pt3dadd(68.87, -43.43, -45.68, 0.94)
	pt3dadd(69.81, -44.19, -45.6, 0.94)
	pt3dadd(70.56, -46.26, -45.6, 0.94)
	pt3dadd(68.68, -46.82, -49.62, 1.51)
	pt3dadd(67.55, -47.76, -49.69, 1.51)
	pt3dadd(66.61, -49.08, -49.77, 1.51)
	pt3dadd(66.42, -51.16, -49.77, 1.51)
	pt3dadd(66.04, -52.85, -49.77, 1.51)
	pt3dadd(67.17, -53.98, -49.77, 1.51)
	pt3dadd(69.81, -55.3, -49.84, 1.51)
	pt3dadd(68.87, -57, -49.84, 1.51)
  }
}
proc shape3d_13() {
  dend[81] {	pt3dadd(68.3, -57.75, -54.39, 1.51)
	pt3dadd(66.42, -58.69, -54.69, 1.51)
	pt3dadd(66.23, -59.82, -54.77, 1.51)
	pt3dadd(66.98, -60.76, -55.07, 1.51)
	pt3dadd(67.36, -62.08, -58.1, 1.51)
	pt3dadd(67.74, -63.96, -58.25, 1.51)
	pt3dadd(67.55, -65.1, -58.25, 1.51)
	pt3dadd(66.61, -66.04, -58.33, 1.51)
	pt3dadd(64.91, -66.04, -58.33, 1.51)
	pt3dadd(63.22, -66.04, -58.33, 1.51)
	pt3dadd(61.33, -66.23, -58.33, 1.51)
	pt3dadd(61.15, -67.73, -58.33, 1.51)
	pt3dadd(61.33, -69.62, -58.33, 1.51)
	pt3dadd(62.46, -70.37, -58.33, 1.51)
	pt3dadd(63.59, -71.12, -58.33, 1.51)
	pt3dadd(63.59, -73.38, -63.48, 1.51)
	pt3dadd(63.03, -74.7, -63.55, 1.51)
	pt3dadd(61.9, -75.46, -63.63, 1.51)
	pt3dadd(59.64, -75.46, -64.92, 1.51)
	pt3dadd(58.32, -75.46, -65.07, 1.51)
	pt3dadd(55.5, -75.27, -65.07, 1.51)
	pt3dadd(55.87, -78.66, -68.4, 1.51)
	pt3dadd(56.82, -81.3, -68.55, 1.51)
	pt3dadd(56.63, -82.99, -68.55, 1.51)
	pt3dadd(54.93, -84.31, -68.55, 1.51)
	pt3dadd(52.86, -84.5, -68.63, 1.51)
  }
  dend[82] {pt3dclear()
	pt3dadd(65.29, -39.85, -49.92, 1.51)
	pt3dadd(67.17, -39.67, -54.39, 1.51)
	pt3dadd(68.49, -39.48, -54.46, 1.51)
	pt3dadd(70.56, -39.85, -54.46, 1.51)
	pt3dadd(71.88, -40.8, -54.46, 1.51)
	pt3dadd(73.01, -41.55, -54.46, 1.51)
	pt3dadd(74.51, -42.68, -60.22, 1.51)
	pt3dadd(76.02, -42.87, -60.22, 1.51)
	pt3dadd(77.15, -42.87, -60.3, 1.51)
	pt3dadd(78.66, -43.43, -60.3, 1.51)
	pt3dadd(77.71, -44.94, -60.3, 1.51)
	pt3dadd(75.64, -45.32, -60.3, 1.51)
	pt3dadd(78.47, -45.5, -60.3, 1.51)
	pt3dadd(79.41, -44, -60.3, 1.51)
	pt3dadd(80.73, -45.32, -66.36, 1.51)
	pt3dadd(83.17, -46.07, -66.58, 1.51)
	pt3dadd(84.3, -47.2, -66.81, 1.51)
	pt3dadd(85.25, -49.46, -67.11, 1.51)
	pt3dadd(85.81, -51.16, -67.11, 1.51)
	pt3dadd(87.69, -50.59, -76.13, 1.51)
	pt3dadd(88.26, -48.71, -78.33, 1.51)
	pt3dadd(88.45, -46.26, -78.4, 1.51)
	pt3dadd(89.76, -44.94, -78.4, 1.51)
	pt3dadd(90.89, -43.43, -78.4, 1.51)
	pt3dadd(92.4, -43.62, -78.4, 1.51)
	pt3dadd(92.96, -44.94, -78.4, 1.51)
	pt3dadd(91.65, -47.2, -78.4, 1.51)
	pt3dadd(90.33, -49.65, -78.4, 1.51)
	pt3dadd(91.46, -49.46, -78.4, 1.51)
	pt3dadd(93.53, -49.65, -86.43, 1.51)
	pt3dadd(95.41, -48.71, -86.66, 1.51)
	pt3dadd(96.73, -47.58, -87.42, 1.51)
	pt3dadd(97.86, -46.82, -88.1, 1.51)
	pt3dadd(97.67, -45.69, -89.23, 1.51)
	pt3dadd(97.3, -43.81, -89.76, 1.51)
	pt3dadd(97.86, -42.49, -91.13, 1.51)
	pt3dadd(98.99, -42.49, -91.35, 1.51)
	pt3dadd(100.12, -44.37, -94.69, 1.51)
	pt3dadd(101.25, -45.5, -94.91, 1.51)
	pt3dadd(102, -44.19, -96.28, 1.51)
	pt3dadd(103.51, -43.43, -96.58, 1.51)
	pt3dadd(104.83, -42.68, -96.81, 1.51)
	pt3dadd(106.52, -40.98, -97.34, 1.51)
	pt3dadd(104.26, -41.17, -97.79, 1.51)
	pt3dadd(102.76, -40.42, -98.1, 1.51)
	pt3dadd(103.32, -39.1, -103.02, 1.51)
	pt3dadd(104.83, -37.4, -103.17, 1.51)
	pt3dadd(105.77, -35.71, -103.63, 1.51)
	pt3dadd(106.52, -34.58, -104.23, 1.51)
  }
  dend[83] {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(18.6, -17.25, -34.47, 1.51)
	pt3dadd(19.54, -15.93, -34.47, 1.51)
	pt3dadd(21.23, -14.61, -34.47, 1.51)
	pt3dadd(22.36, -14.05, -34.47, 1.51)
	pt3dadd(23.3, -12.54, -34.47, 1.51)
	pt3dadd(23.3, -10.84, -34.47, 1.51)
	pt3dadd(22.36, -9.9, -34.47, 1.51)
	pt3dadd(20.1, -9.53, -34.54, 1.51)
	pt3dadd(18.41, -9.9, -34.47, 1.51)
	pt3dadd(17.09, -10.09, -34.47, 1.51)
	pt3dadd(15.96, -10.28, -34.47, 1.51)
	pt3dadd(14.27, -10.84, -34.54, 1.51)
	pt3dadd(11.82, -11.03, -34.54, 1.51)
	pt3dadd(12.01, -9.9, -34.54, 1.51)
	pt3dadd(13.7, -8.96, -34.54, 1.51)
	pt3dadd(15.02, -7.64, -34.54, 1.51)
	pt3dadd(15.4, -6.51, -35.07, 1.51)
	pt3dadd(15.58, -5.76, -36.13, 1.51)
	pt3dadd(15.21, -4.25, -30.38, 1.51)
	pt3dadd(14.45, -3.31, -29.09, 1.51)
	pt3dadd(13.51, -2.18, -28.1, 1.51)
	pt3dadd(12.76, -0.86, -27.88, 1.51)
	pt3dadd(12.19, -0.3, -27.35, 1.51)
	pt3dadd(10.88, -0.11, -25.83, 1.51)
	pt3dadd(8.99, 0.46, -25.75, 1.51)
	pt3dadd(6.73, 1.78, -25.75, 1.51)
	pt3dadd(7.11, 3.1, -25.68, 1.51)
	pt3dadd(8.43, 4.79, -25.68, 1.51)
	pt3dadd(11.06, 5.73, -25.68, 1.51)
	pt3dadd(13.32, 7.24, -25.6, 1.51)
	pt3dadd(15.21, 7.05, -25.6, 1.51)
	pt3dadd(16.34, 5.73, -25.45, 1.51)
	pt3dadd(18.22, 4.98, -25.3, 1.51)
	pt3dadd(19.91, 4.6, -25, 1.51)
	pt3dadd(21.42, 4.6, -24.47, 1.51)
	pt3dadd(23.49, 5.73, -25.98, 1.51)
	pt3dadd(24.62, 7.62, -25.22, 1.51)
	pt3dadd(25.37, 8.18, -25.07, 1.51)
	pt3dadd(27.07, 6.86, -25, 1.51)
	pt3dadd(29.52, 5.73, -24.92, 1.51)
	pt3dadd(31.96, 5.73, -24.85, 1.51)
	pt3dadd(33.28, 7.24, -24.85, 1.51)
	pt3dadd(34.98, 8.18, -30, 1.51)
	pt3dadd(37.24, 8.18, -30.15, 1.51)
	pt3dadd(39.31, 7.43, -30.3, 1.51)
	pt3dadd(41, 6.49, -30.38, 1.51)
	pt3dadd(41.94, 5.36, -30.45, 1.51)
	pt3dadd(42.13, 7.43, -30.75, 1.51)
	pt3dadd(42.13, 8.93, -31.82, 1.51)
	pt3dadd(42.7, 10.25, -32.88, 1.51)
	pt3dadd(44.01, 11.76, -33.78, 1.51)
	pt3dadd(45.71, 12.51, -35.07, 1.51)
	pt3dadd(47.59, 13.64, -35.38, 1.51)
	pt3dadd(49.28, 14.96, -36.66, 1.51)
	pt3dadd(49.28, 16.66, -39.16, 1.51)
	pt3dadd(47.97, 17.41, -39.47, 1.51)
	pt3dadd(45.52, 17.03, -39.47, 1.51)
	pt3dadd(44.39, 16.09, -39.77, 1.51)
	pt3dadd(42.51, 15.9, -40.45, 1.51)
	pt3dadd(41, 16.28, -41.59, 1.51)
	pt3dadd(40.44, 17.22, -45.75, 1.51)
	pt3dadd(39.87, 17.98, -48.1, 1.51)
	pt3dadd(39.68, 19.48, -48.25, 1.51)
	pt3dadd(40.06, 20.99, -49.39, 1.51)
	pt3dadd(40.44, 22.31, -50.22, 1.51)
	pt3dadd(40.62, 23.63, -51.36, 1.51)
	pt3dadd(40.62, 25.13, -52.34, 1.51)
	pt3dadd(40.62, 27.21, -54.24, 1.51)
	pt3dadd(39.31, 27.58, -54.99, 1.51)
	pt3dadd(37.99, 28.15, -56.28, 1.51)
	pt3dadd(37.24, 29.28, -57.27, 1.51)
	pt3dadd(37.24, 31.35, -57.57, 1.51)
	pt3dadd(36.86, 32.67, -61.58, 1.51)
	pt3dadd(35.54, 33.23, -61.66, 1.51)
	pt3dadd(34.22, 34.74, -61.66, 1.51)
	pt3dadd(34.6, 36.06, -62.27, 1.51)
	pt3dadd(35.35, 37, -63.02, 1.51)
	pt3dadd(36.48, 36.44, -63.1, 1.51)
	pt3dadd(37.61, 35.5, -63.48, 1.51)
	pt3dadd(38.74, 34.55, -64.54, 1.51)
	pt3dadd(41.19, 33.99, -65.75, 1.51)
	pt3dadd(43.07, 33.99, -69.24, 1.51)
	pt3dadd(43.07, 34.55, -68.1, 1.51)
	pt3dadd(41.75, 36.63, -67.95, 1.51)
	pt3dadd(41.75, 37.76, -67.87, 1.51)
	pt3dadd(43.64, 36.44, -67.8, 1.51)
	pt3dadd(44.95, 35.31, -67.72, 1.51)
	pt3dadd(47.21, 32.86, -67.72, 1.51)
	pt3dadd(48.16, 34.36, -67.64, 1.51)
	pt3dadd(47.97, 35.87, -75.6, 1.51)
	pt3dadd(46.84, 37, -75.9, 1.51)
	pt3dadd(46.08, 37.94, -75.9, 1.51)
	pt3dadd(44.77, 38.7, -75.98, 1.51)
  }
  apic {pt3dclear()
	pt3dstyle(1, 5.05327, -15.9194, 5.93248)
	pt3dadd(5.86, -0.55, 0, 12.43)
	pt3dadd(5.1, 2.09, 0, 12.43)
	pt3dadd(4.16, 5.86, 0, 9.79)
	pt3dadd(3.6, 9.43, 0, 9.79)
	pt3dadd(3.22, 12.64, 0, 9.23)
	pt3dadd(3.6, 15.27, -2.27, 9.23)
	pt3dadd(4.16, 17.16, -2.27, 9.23)
  }
  apic[1] {pt3dclear()
	pt3dadd(4.16, 17.16, -2.27, 8.47)
	pt3dadd(4.16, 19.23, -2.27, 8.47)
	pt3dadd(4.16, 22.62, -2.27, 8.47)
  }
  apic[2] {pt3dclear()
	pt3dadd(4.16, 22.62, -2.27, 8.47)
	pt3dadd(3.6, 25.63, -2.27, 8.47)
	pt3dadd(3.22, 28.27, -2.27, 8.47)
  }
  apic[3] {pt3dclear()
	pt3dadd(3.22, 28.27, -2.27, 7.15)
	pt3dadd(4.16, 32.98, -2.2, 7.15)
	pt3dadd(5.67, 37.31, -2.2, 7.15)
	pt3dadd(6.05, 41.65, -2.2, 8.28)
  }
  apic[4] {pt3dclear()
	pt3dadd(6.05, 41.65, -2.2, 8.28)
	pt3dadd(7.18, 45.04, -2.2, 8.28)
	pt3dadd(9.06, 47.86, -2.2, 8.28)
  }
  apic[5] {pt3dclear()
	pt3dadd(9.06, 47.86, -2.2, 6.97)
	pt3dadd(10, 52.2, -2.2, 6.97)
	pt3dadd(11.51, 55.96, -2.2, 6.97)
	pt3dadd(12.82, 60.3, -2.2, 6.97)
  }
  apic[6] {pt3dclear()
	pt3dadd(12.82, 60.3, -2.2, 6.4)
	pt3dadd(14.9, 64.63, -2.2, 6.4)
	pt3dadd(15.84, 68.96, -2.2, 6.21)
	pt3dadd(17.15, 73.29, -2.2, 6.21)
	pt3dadd(18.47, 78.19, -2.2, 6.21)
	pt3dadd(19.41, 81.2, -2.2, 6.21)
  }
}
proc shape3d_14() {
  apic[6] {	pt3dadd(20.36, 84.03, -2.2, 6.02)
	pt3dadd(21.16, 87.68, -2.2, 6.02)
	pt3dadd(22.86, 91.45, -2.2, 5.65)
	pt3dadd(24.18, 95.6, -2.2, 5.65)
	pt3dadd(24.36, 99.17, -2.2, 5.65)
	pt3dadd(25.12, 102.19, -2.2, 5.65)
  }
  apic[7] {pt3dclear()
	pt3dadd(25.12, 102.19, -2.2, 5.65)
	pt3dadd(23.8, 105.39, -2.2, 5.65)
	pt3dadd(21.16, 110.85, -2.2, 5.08)
	pt3dadd(20.03, 114.43, -2.2, 5.08)
	pt3dadd(17.77, 119.14, -2.2, 5.08)
	pt3dadd(16.08, 122.53, 4.24, 5.08)
	pt3dadd(14.76, 127.24, 4.32, 5.08)
	pt3dadd(14.2, 130.82, 4.32, 5.08)
	pt3dadd(13.07, 134.02, 4.32, 5.08)
	pt3dadd(12.31, 136.85, 4.32, 5.08)
  }
  apic[8] {pt3dclear()
	pt3dadd(12.31, 136.85, 4.32, 5.08)
	pt3dadd(12.13, 141.75, 8.64, 5.08)
	pt3dadd(13.07, 145.33, 8.56, 5.46)
	pt3dadd(13.26, 149.09, 8.56, 5.46)
	pt3dadd(13.82, 152.86, 8.56, 5.46)
	pt3dadd(13.82, 156.63, 8.56, 5.46)
  }
  apic[9] {pt3dclear()
	pt3dadd(13.82, 156.63, 8.56, 5.08)
	pt3dadd(13.44, 160.77, 8.56, 5.08)
	pt3dadd(13.07, 164.35, 8.56, 5.08)
	pt3dadd(13.07, 166.99, 8.56, 5.08)
	pt3dadd(13.04, 171.25, 3.33, 5.08)
	pt3dadd(12.67, 175.58, 3.03, 5.08)
	pt3dadd(12.67, 179.91, 2.88, 5.08)
	pt3dadd(13.42, 183.49, 2.8, 5.08)
	pt3dadd(14.36, 186.88, 2.73, 5.08)
	pt3dadd(15.87, 190.27, 2.73, 5.08)
  }
  apic[10] {pt3dclear()
	pt3dadd(15.87, 190.27, 2.73, 5.08)
	pt3dadd(16.62, 194.98, 2.73, 5.08)
	pt3dadd(17.56, 199.32, 2.65, 5.08)
	pt3dadd(18.13, 203.08, 2.73, 5.08)
	pt3dadd(18.5, 205.91, 2.65, 5.08)
	pt3dadd(19.26, 209.3, 2.65, 5.08)
  }
  apic[11] {pt3dclear()
	pt3dadd(19.26, 209.3, 2.65, 5.08)
	pt3dadd(19.45, 213.07, 2.65, 5.08)
	pt3dadd(19.45, 216.83, 2.65, 5.08)
	pt3dadd(19.26, 221.54, 2.65, 5.08)
  }
  apic[12] {pt3dclear()
	pt3dadd(19.26, 221.54, 2.65, 5.08)
	pt3dadd(20.39, 225.88, 2.65, 5.08)
	pt3dadd(21.52, 230.21, 2.65, 5.08)
	pt3dadd(20.76, 234.73, 2.65, 5.08)
	pt3dadd(19.82, 239.44, 2.65, 5.08)
	pt3dadd(18.88, 243.58, 2.65, 5.08)
	pt3dadd(19.82, 247.16, 2.65, 5.08)
	pt3dadd(20.39, 250.93, 2.65, 5.08)
	pt3dadd(21.07, 254.58, 2.65, 5.08)
	pt3dadd(21.26, 258.35, 6.14, 5.08)
	pt3dadd(21.83, 261.93, 6.29, 5.08)
	pt3dadd(22.2, 265.7, 6.44, 5.08)
	pt3dadd(21.64, 269.65, 6.44, 5.08)
	pt3dadd(22.2, 273.23, 8.86, 5.08)
	pt3dadd(22.02, 277, 8.41, 5.08)
	pt3dadd(21.26, 280.01, 5.23, 5.08)
	pt3dadd(20.89, 283.22, 4.01, 5.08)
	pt3dadd(20.51, 286.8, 3.71, 5.08)
	pt3dadd(21.45, 290.56, 3.56, 5.08)
	pt3dadd(21.83, 294.71, 3.48, 5.08)
	pt3dadd(22.58, 298.85, 3.48, 5.08)
	pt3dadd(23.15, 303.37, 3.41, 5.08)
	pt3dadd(23.52, 307.89, 3.41, 5.08)
	pt3dadd(23.33, 311.66, 3.41, 5.08)
	pt3dadd(22.58, 315.62, 3.41, 5.08)
	pt3dadd(22.02, 320.14, 3.41, 5.08)
	pt3dadd(21.45, 323.53, 3.41, 5.08)
	pt3dadd(20.7, 327.11, 3.41, 5.08)
	pt3dadd(19.76, 331.06, 3.41, 5.08)
	pt3dadd(19.76, 334.26, 3.41, 5.08)
	pt3dadd(19.33, 337.31, 3.41, 5.08)
	pt3dadd(18.96, 340.89, 3.41, 5.08)
	pt3dadd(18.58, 345.6, 3.41, 5.08)
	pt3dadd(18.2, 350.68, 3.41, 5.08)
	pt3dadd(18.77, 355.2, 3.41, 5.08)
	pt3dadd(19.9, 359.16, 3.41, 5.08)
	pt3dadd(20.46, 363.11, 3.41, 5.08)
	pt3dadd(20.84, 366.69, 3.41, 5.08)
	pt3dadd(21.22, 371.21, 3.41, 5.08)
	pt3dadd(21.59, 375.17, 3.41, 5.46)
	pt3dadd(22.91, 380.44, 3.41, 5.46)
	pt3dadd(24.04, 384.59, 3.41, 5.46)
	pt3dadd(23.85, 389.67, 3.41, 5.46)
	pt3dadd(26.3, 394.38, 3.41, 5.46)
	pt3dadd(26.49, 399.09, 3.41, 5.46)
	pt3dadd(27.43, 404.37, 3.41, 5.46)
	pt3dadd(28.18, 408.7, 3.41, 5.46)
	pt3dadd(28.94, 413.03, 3.41, 5.46)
	pt3dadd(29.31, 415.86, 3.41, 5.46)
	pt3dadd(29.31, 417.74, 3.41, 5.46)
	pt3dadd(29.89, 421.47, 3.41, 5.46)
	pt3dadd(29.51, 425.99, 3.41, 5.46)
	pt3dadd(28.57, 431.64, 3.41, 5.46)
	pt3dadd(28.76, 435.79, 3.41, 5.46)
	pt3dadd(28.19, 440.31, 3.41, 5.46)
	pt3dadd(27.25, 444.26, 3.41, 5.46)
	pt3dadd(26.5, 448.6, 3.41, 5.46)
	pt3dadd(26.69, 452.55, 3.41, 5.46)
	pt3dadd(26.31, 457.07, 3.41, 5.46)
	pt3dadd(26.5, 461.41, 3.41, 5.46)
	pt3dadd(25.56, 465.17, 3.41, 5.46)
	pt3dadd(24.8, 470.07, 3.41, 5.46)
	pt3dadd(24.99, 474.22, 3.41, 5.46)
	pt3dadd(24.61, 478.36, 3.41, 5.46)
	pt3dadd(24.24, 482.32, 3.41, 5.46)
	pt3dadd(24.8, 486.46, 3.41, 5.46)
	pt3dadd(25.37, 490.42, 3.41, 5.46)
	pt3dadd(24.61, 495.5, 3.41, 5.46)
	pt3dadd(23.67, 499.08, 3.41, 5.46)
	pt3dadd(24.24, 501.34, 3.41, 5.46)
	pt3dadd(24.32, 504.4, 3.41, 5.46)
	pt3dadd(24.7, 508.35, 0.45, 5.46)
	pt3dadd(25.07, 513.25, 0.15, 5.46)
	pt3dadd(25.07, 517.58, 0.08, 5.46)
	pt3dadd(25.83, 522.29, 0.08, 5.46)
	pt3dadd(26.39, 525.68, 0, 5.46)
	pt3dadd(27.71, 529.45, 0, 5.46)
	pt3dadd(28.65, 533.22, 0, 5.46)
	pt3dadd(29.59, 537.55, 0, 5.46)
	pt3dadd(26.77, 541.69, 0, 5.46)
	pt3dadd(27.71, 545.84, 0, 5.46)
	pt3dadd(27.52, 551.11, 0, 5.46)
	pt3dadd(27.15, 555.63, 0, 5.46)
	pt3dadd(26.39, 562.79, 0, 5.46)
  }
  apic[13] {pt3dclear()
	pt3dadd(26.39, 562.79, 0, 5.46)
	pt3dadd(26.2, 566.18, 0, 5.46)
	pt3dadd(26.39, 569.57, 0, 5.46)
	pt3dadd(26.58, 572.96, 0, 5.46)
	pt3dadd(26.96, 577.29, -0.08, 5.46)
	pt3dadd(27.15, 580.87, -0.08, 5.46)
	pt3dadd(27.33, 583.7, -0.08, 5.46)
	pt3dadd(28.09, 585.02, -0.08, 5.46)
	pt3dadd(28.21, 588.13, -0.68, 5.46)
	pt3dadd(28.96, 592.46, -0.76, 5.46)
	pt3dadd(30.09, 595.66, -0.83, 5.46)
	pt3dadd(30.66, 600.94, -0.83, 5.46)
	pt3dadd(30.28, 605.65, -0.83, 5.46)
	pt3dadd(29.9, 609.98, -0.83, 5.46)
	pt3dadd(29.34, 615.26, -0.83, 5.46)
	pt3dadd(29.9, 620.15, -0.83, 5.46)
	pt3dadd(30.28, 624.86, -0.83, 5.46)
	pt3dadd(29.9, 629.57, -0.83, 5.46)
	pt3dadd(30.66, 633.72, -0.83, 5.46)
	pt3dadd(31.22, 638.43, -0.83, 5.46)
	pt3dadd(31.03, 642.76, -0.83, 5.46)
	pt3dadd(30.28, 646.71, -0.83, 5.46)
	pt3dadd(29.9, 650.67, -0.83, 4.9)
	pt3dadd(31.03, 654.25, -0.83, 4.9)
	pt3dadd(31.22, 657.07, -0.83, 4.9)
	pt3dadd(31.22, 660.65, -0.83, 4.9)
	pt3dadd(31.03, 664.61, -0.83, 4.9)
	pt3dadd(29.72, 668.56, -0.83, 4.9)
	pt3dadd(28.78, 672.56, -0.91, 4.33)
	pt3dadd(28.4, 678.4, -0.91, 4.33)
	pt3dadd(28.97, 682.36, -0.91, 4.33)
	pt3dadd(30.85, 685.75, -0.91, 4.33)
	pt3dadd(32.36, 688.95, -0.91, 4.33)
	pt3dadd(35.75, 692.9, -0.91, 4.33)
	pt3dadd(37.06, 695.73, -0.91, 4.33)
	pt3dadd(38.38, 698.74, -0.91, 4.33)
	pt3dadd(39.89, 701.38, -0.91, 4.33)
	pt3dadd(41.39, 704.77, -0.91, 4.33)
  }
  apic[14] {pt3dclear()
	pt3dadd(41.39, 704.77, -0.91, 2.45)
	pt3dadd(39.7, 706.47, -0.91, 2.45)
	pt3dadd(38.01, 710.05, -0.91, 2.45)
	pt3dadd(36.5, 712.68, -0.91, 2.45)
	pt3dadd(34.43, 715.89, -0.91, 2.45)
	pt3dadd(31.98, 718.33, -0.91, 2.45)
	pt3dadd(30.1, 721.91, -0.91, 2.45)
	pt3dadd(28.22, 725.3, -0.91, 2.45)
	pt3dadd(28.4, 729.07, -0.91, 2.45)
	pt3dadd(30.1, 732.27, -0.91, 2.45)
	pt3dadd(29.91, 735.85, -0.91, 2.45)
	pt3dadd(28.97, 739.43, -0.91, 2.45)
	pt3dadd(28.4, 742.26, -0.91, 2.45)
	pt3dadd(27.09, 745.46, -0.91, 2.45)
	pt3dadd(26.14, 748.1, 0, 2.45)
	pt3dadd(24.64, 750.92, -0.08, 2.45)
	pt3dadd(23.88, 753.37, -0.23, 2.45)
	pt3dadd(22.99, 756.21, -5.53, 2.45)
	pt3dadd(23.37, 759.97, -5.61, 2.45)
	pt3dadd(22.24, 763.74, -5.61, 2.45)
	pt3dadd(21.49, 767.32, -5.61, 2.45)
	pt3dadd(21.86, 770.52, -5.61, 2.45)
	pt3dadd(22.05, 774.29, -5.68, 2.45)
  }
  apic[15] {pt3dclear()
	pt3dadd(22.05, 774.29, -5.68, 2.07)
	pt3dadd(20.73, 777.87, -5.68, 2.07)
	pt3dadd(20.54, 782.2, -5.68, 2.07)
	pt3dadd(19.79, 785.59, -5.68, 2.07)
	pt3dadd(17.72, 788.23, -5.68, 2.07)
	pt3dadd(18.47, 790.87, -5.68, 2.07)
	pt3dadd(18.66, 793.13, -5.68, 2.07)
	pt3dadd(16.4, 796.14, -5.68, 2.07)
	pt3dadd(15.27, 798.03, -5.68, 2.07)
	pt3dadd(13.95, 801.79, -5.68, 2.07)
	pt3dadd(12.26, 805.56, -5.68, 2.07)
	pt3dadd(10, 808.01, -5.68, 2.07)
	pt3dadd(8.49, 811.59, -5.68, 2.07)
  }
}
proc shape3d_15() {
  apic[15] {	pt3dadd(10.19, 814.41, -5.68, 2.07)
	pt3dadd(11.32, 817.43, -5.68, 2.07)
	pt3dadd(10.94, 820.63, -5.68, 2.07)
	pt3dadd(9.62, 823.83, -5.68, 2.07)
	pt3dadd(8.49, 827.22, -6.36, 2.07)
	pt3dadd(6.61, 829.86, -6.59, 2.07)
	pt3dadd(3.98, 833.82, -6.67, 2.07)
	pt3dadd(3.6, 836.83, -6.67, 2.07)
	pt3dadd(4.11, 840.21, -6.97, 2.07)
  }
  apic[16] {pt3dclear()
	pt3dadd(4.11, 840.21, -6.97, 1.69)
	pt3dadd(3.17, 841.9, -7.04, 1.69)
	pt3dadd(2.04, 844.54, -7.04, 1.51)
	pt3dadd(1.47, 847.55, -7.04, 1.51)
	pt3dadd(0.34, 850.19, -7.04, 1.51)
	pt3dadd(-0.6, 852.26, -7.04, 1.51)
	pt3dadd(-1.73, 854.33, -7.04, 1.51)
	pt3dadd(-2.1, 856.78, -7.04, 1.51)
	pt3dadd(-3.99, 858.29, -7.04, 1.51)
	pt3dadd(-5.87, 860.17, -7.04, 1.51)
	pt3dadd(-6.62, 861.87, -7.04, 1.51)
	pt3dadd(-8.13, 863.38, -7.04, 1.51)
	pt3dadd(-9.26, 865.26, -7.04, 1.51)
	pt3dadd(-11.33, 867.14, -7.04, 1.51)
	pt3dadd(-14.91, 867.9, -7.04, 1.51)
	pt3dadd(-14.53, 869.78, -7.04, 1.51)
	pt3dadd(-13.78, 872.04, -7.04, 1.51)
	pt3dadd(-12.84, 874.3, -7.04, 1.51)
	pt3dadd(-12.65, 876.75, -7.04, 1.51)
	pt3dadd(-14.15, 879.01, -7.04, 1.51)
	pt3dadd(-15.47, 881.27, -7.04, 1.51)
	pt3dadd(-16.22, 882.4, -7.04, 1.51)
  }
  apic[17] {pt3dclear()
	pt3dadd(4.11, 840.21, -6.97, 1.51)
	pt3dadd(5.05, 842.28, -9.32, 1.51)
	pt3dadd(5.05, 844.35, -9.47, 1.51)
	pt3dadd(3.54, 846.05, -9.47, 1.51)
	pt3dadd(2.23, 847.93, -9.47, 1.51)
	pt3dadd(2.42, 850.19, -9.54, 1.51)
	pt3dadd(3.36, 852.26, -9.54, 1.51)
	pt3dadd(4.3, 854.15, -12.04, 1.51)
	pt3dadd(3.92, 856.22, -14.01, 1.51)
	pt3dadd(2.23, 858.29, -14.47, 1.51)
	pt3dadd(0.53, 860.36, -14.54, 1.51)
	pt3dadd(1.1, 862.25, -14.54, 1.51)
	pt3dadd(2.04, 864.13, -15.45, 1.51)
	pt3dadd(3.73, 866.2, -16.59, 1.51)
	pt3dadd(3.54, 869.22, -16.74, 1.51)
	pt3dadd(3.36, 871.85, -16.74, 1.51)
	pt3dadd(1.66, 874.49, -16.74, 1.51)
	pt3dadd(-0.03, 876.56, -19.77, 1.51)
	pt3dadd(-1.92, 877.32, -19.92, 1.51)
	pt3dadd(-2.1, 880.9, -19.92, 1.51)
	pt3dadd(-1.54, 883.16, -19.92, 1.51)
	pt3dadd(-0.79, 884.29, -19.92, 1.51)
	pt3dadd(0.34, 886.92, -20, 1.51)
	pt3dadd(0.72, 889.37, -20, 1.51)
	pt3dadd(0.16, 891.26, -21.97, 1.51)
	pt3dadd(-2.1, 892.39, -22.73, 1.51)
	pt3dadd(-3.99, 893.14, -23.1, 1.51)
	pt3dadd(-5.87, 896.15, -23.94, 1.51)
	pt3dadd(-6.62, 898.98, -24.01, 1.51)
	pt3dadd(-5.68, 901.8, -25.3, 1.51)
	pt3dadd(-4.74, 904.44, -26.36, 1.51)
	pt3dadd(-5.3, 906.14, -26.74, 1.51)
	pt3dadd(-7, 908.77, -27.72, 1.51)
	pt3dadd(-8.13, 910.85, -28.48, 1.51)
	pt3dadd(-7.94, 912.92, -32.88, 1.51)
  }
  apic[18] {pt3dclear()
	pt3dadd(-7.94, 912.92, -32.88, 1.51)
	pt3dadd(-8.13, 914.99, -32.88, 1.51)
	pt3dadd(-7.56, 917.44, -32.88, 1.51)
	pt3dadd(-7.38, 920.45, -32.88, 1.51)
	pt3dadd(-7.73, 923.32, -32.88, 1.51)
	pt3dadd(-7.54, 925.58, -32.88, 1.51)
	pt3dadd(-8.3, 927.65, -32.88, 1.51)
	pt3dadd(-10.18, 929.16, -32.88, 1.51)
	pt3dadd(-12.06, 930.29, -32.88, 1.51)
	pt3dadd(-13.57, 931.23, -32.88, 1.51)
	pt3dadd(-14.32, 933.11, -32.88, 1.51)
	pt3dadd(-14.32, 935.75, -34.01, 1.51)
	pt3dadd(-14.13, 937.63, -36.28, 1.51)
	pt3dadd(-13.19, 939.9, -37.95, 1.51)
	pt3dadd(-12.06, 941.21, -38.18, 1.51)
	pt3dadd(-10.18, 942.91, -38.86, 1.51)
	pt3dadd(-12.44, 943.85, -38.86, 1.51)
	pt3dadd(-14.51, 944.6, -39.84, 1.51)
	pt3dadd(-16.39, 945.55, -40.22, 1.51)
	pt3dadd(-15.83, 947.62, -41.59, 1.51)
	pt3dadd(-15.64, 949.31, -41.89, 1.51)
	pt3dadd(-14.51, 951.76, -41.89, 1.51)
  }
  apic[19] {pt3dclear()
	pt3dadd(-14.51, 951.76, -41.89, 1.32)
	pt3dadd(-15.26, 953.46, -45.3, 1.32)
	pt3dadd(-16.58, 955.72, -45.3, 1.32)
	pt3dadd(-18.09, 956.28, -45.3, 1.32)
	pt3dadd(-19.59, 956.66, -45.37, 1.32)
	pt3dadd(-19.4, 960.43, -45.37, 1.32)
	pt3dadd(-19.22, 962.12, -45.37, 1.32)
  }
  apic[20] {pt3dclear()
	pt3dadd(-19.22, 962.12, -45.37, 1.32)
	pt3dadd(-20.35, 962.69, -48.1, 1.32)
	pt3dadd(-22.23, 964.57, -48.18, 1.32)
	pt3dadd(-24.3, 963.82, -48.18, 1.32)
	pt3dadd(-25.99, 965.14, -48.18, 1.32)
	pt3dadd(-27.88, 968.15, -48.18, 1.32)
	pt3dadd(-28.82, 970.03, -48.18, 1.32)
	pt3dadd(-29.76, 971.92, -49.46, 1.32)
	pt3dadd(-32.21, 972.67, -50.6, 1.32)
	pt3dadd(-33.9, 973.61, -51.51, 1.32)
	pt3dadd(-35.22, 975.87, -52.42, 1.32)
	pt3dadd(-36.73, 978.51, -53.25, 1.32)
	pt3dadd(-36.91, 980.4, -53.93, 1.32)
	pt3dadd(-37.48, 982.84, -54.16, 1.13)
	pt3dadd(-38.04, 983.97, -54.24, 1.13)
	pt3dadd(-40.3, 984.92, -54.77, 1.13)
	pt3dadd(-42.19, 986.05, -55.3, 1.13)
	pt3dadd(-43.5, 988.68, -55.45, 1.13)
	pt3dadd(-44.26, 990.19, -55.52, 1.13)
	pt3dadd(-44.63, 992.45, -55.52, 1.13)
	pt3dadd(-44.26, 995.65, -55.52, 1.13)
	pt3dadd(-45.76, 996.78, -55.6, 1.13)
	pt3dadd(-47.46, 999.61, -55.98, 1.13)
	pt3dadd(-49.72, 998.1, -56.74, 1.13)
	pt3dadd(-51.41, 996.78, -56.96, 1.13)
	pt3dadd(-53.48, 998.29, -58.18, 1.13)
	pt3dadd(-55.55, 999.23, -59.24, 1.13)
	pt3dadd(-57.62, 999.8, -60.3, 1.13)
	pt3dadd(-59.51, 1000.55, -61.43, 1.13)
	pt3dadd(-61.01, 1001.68, -62.19, 1.13)
	pt3dadd(-61.96, 1002.81, -63.33, 1.13)
	pt3dadd(-62.9, 1004.13, -63.55, 1.13)
	pt3dadd(-63.33, 1005.42, -65.68, 1.13)
	pt3dadd(-64.84, 1006.55, -67.34, 1.13)
	pt3dadd(-67.66, 1006.74, -68.4, 1.13)
	pt3dadd(-69.36, 1007.31, -69.92, 1.13)
	pt3dadd(-70.11, 1008.25, -70.83, 1.13)
	pt3dadd(-71.24, 1011.26, -71.96, 1.13)
	pt3dadd(-72.37, 1012.39, -73.1, 1.13)
	pt3dadd(-74.06, 1013.15, -74.46, 1.13)
	pt3dadd(-76.51, 1013.15, -75.45, 1.13)
	pt3dadd(-77.45, 1014.09, -78.17, 1.13)
	pt3dadd(-79.52, 1015.22, -79.01, 1.13)
	pt3dadd(-79.9, 1017.29, -80.37, 1.13)
	pt3dadd(-81.03, 1019.17, -80.45, 1.13)
	pt3dadd(-82.72, 1018.8, -81.51, 1.13)
	pt3dadd(-84.23, 1019.36, -82.04, 1.13)
	pt3dadd(-85.55, 1020.87, -83.17, 1.13)
	pt3dadd(-86.87, 1021.25, -83.63, 1.13)
	pt3dadd(-88, 1022, -85.22, 1.13)
	pt3dadd(-88.37, 1023.32, -88.48, 1.13)
	pt3dadd(-88.18, 1024.83, -89.23, 1.13)
	pt3dadd(-89.31, 1026.14, -89.99, 1.13)
	pt3dadd(-89.31, 1027.27, -92.42, 1.13)
	pt3dadd(-88.94, 1029.72, -92.87, 1.13)
	pt3dadd(-90.44, 1030.1, -92.87, 1.13)
	pt3dadd(-91.95, 1029.16, -94.08, 1.13)
	pt3dadd(-92.33, 1031.8, -95.07, 1.13)
	pt3dadd(-93.08, 1034.06, -95.98, 1.13)
	pt3dadd(-93.64, 1035.56, -96.28, 1.13)
	pt3dadd(-93.08, 1037.26, -97.49, 1.13)
	pt3dadd(-92.89, 1038.76, -97.87, 1.13)
	pt3dadd(-92.14, 1040.08, -100.29, 1.13)
	pt3dadd(-94.4, 1041.97, -100.82, 1.13)
	pt3dadd(-96.09, 1043.1, -101.58, 1.13)
	pt3dadd(-97.41, 1044.79, -102.57, 1.13)
	pt3dadd(-96.84, 1047.43, -102.79, 1.13)
	pt3dadd(-95.9, 1050.82, -104.76, 1.13)
	pt3dadd(-98.35, 1052.14, -106.05, 1.13)
	pt3dadd(-99.48, 1054.21, -107.03, 1.13)
	pt3dadd(-101.36, 1054.78, -108.1, 1.13)
	pt3dadd(-102.49, 1057.23, -109, 1.13)
	pt3dadd(-103.62, 1060.62, -109.91, 1.13)
	pt3dadd(-105.13, 1062.31, -110.9, 1.13)
	pt3dadd(-105.88, 1063.63, -111.88, 1.13)
	pt3dadd(-108.14, 1063.63, -112.79, 1.13)
	pt3dadd(-109.08, 1064.38, -113.85, 1.13)
	pt3dadd(-109.65, 1065.89, -114.69, 1.13)
	pt3dadd(-109.65, 1067.96, -115.44, 1.13)
	pt3dadd(-110.59, 1069.85, -116.5, 1.13)
	pt3dadd(-111.91, 1070.79, -116.81, 1.13)
	pt3dadd(-113.22, 1070.6, -117.94, 1.13)
	pt3dadd(-115.3, 1070.79, -118.62, 1.13)
	pt3dadd(-117.18, 1071.92, -119.08, 1.13)
	pt3dadd(-119.44, 1072.86, -119.76, 1.13)
	pt3dadd(-121.32, 1071.73, -119.84, 1.13)
	pt3dadd(-123.2, 1072.3, -119.84, 1.13)
	pt3dadd(-124.33, 1073.8, -120.29, 1.13)
	pt3dadd(-125.46, 1076.06, -120.29, 1.13)
//	pt3dadd(-126.03, 1078.51, -240.58, 1.13)
  }
  apic[21] {pt3dclear()
	pt3dadd(-19.22, 962.12, -45.37, 1.13)
	pt3dadd(-18.71, 963.23, -47.87, 1.13)
	pt3dadd(-17.58, 964.74, -47.87, 1.13)
	pt3dadd(-17.58, 967, -47.87, 1.13)
	pt3dadd(-18.71, 967.18, -47.87, 1.13)
	pt3dadd(-20.03, 967, -47.87, 1.13)
	pt3dadd(-21.91, 967.37, -47.87, 1.13)
	pt3dadd(-22.48, 968.5, -48.03, 1.13)
	pt3dadd(-22.48, 970.57, -48.18, 1.13)
	pt3dadd(-22.85, 971.14, -48.4, 1.13)
	pt3dadd(-23.79, 972.08, -48.71, 1.13)
	pt3dadd(-24.92, 972.84, -48.86, 1.13)
	pt3dadd(-26.05, 974.15, -49.01, 1.13)
	pt3dadd(-26.05, 975.47, -49.24, 1.13)
	pt3dadd(-26.05, 976.79, -49.46, 1.13)
  }
}
proc shape3d_16() {
  apic[21] {	pt3dadd(-26.43, 978.86, -49.69, 1.13)
	pt3dadd(-25.49, 980.37, -49.92, 1.13)
	pt3dadd(-24.92, 981.69, -50.15, 1.13)
	pt3dadd(-24.36, 982.82, -50.37, 1.13)
	pt3dadd(-26.24, 983.95, -53.63, 1.13)
	pt3dadd(-27.56, 984.7, -53.86, 1.13)
	pt3dadd(-28.88, 986.4, -53.93, 1.13)
	pt3dadd(-28.31, 988.28, -54.16, 1.13)
	pt3dadd(-27.75, 989.6, -55.15, 1.13)
	pt3dadd(-28.31, 991.67, -55.3, 1.13)
	pt3dadd(-29.07, 993.18, -55.9, 1.13)
	pt3dadd(-29.63, 995.25, -56.43, 1.13)
	pt3dadd(-29.07, 997.13, -56.66, 1.13)
	pt3dadd(-28.5, 998.64, -56.89, 1.13)
	pt3dadd(-29.07, 1000.71, -58.1, 1.13)
	pt3dadd(-30.2, 1002.03, -58.4, 1.13)
	pt3dadd(-31.14, 1002.41, -59.08, 1.13)
	pt3dadd(-33.02, 1002.97, -60.15, 1.13)
	pt3dadd(-34.71, 1004.29, -60.37, 1.13)
	pt3dadd(-35.09, 1005.23, -61.21, 1.13)
	pt3dadd(-33.58, 1007.68, -61.58, 1.13)
	pt3dadd(-35.84, 1007.12, -63.86, 1.13)
	pt3dadd(-37.54, 1009.38, -64.01, 1.13)
	pt3dadd(-38.1, 1011.64, -64.08, 1.13)
	pt3dadd(-37.16, 1014.84, -64.08, 1.13)
	pt3dadd(-35.84, 1017.29, -64.08, 1.13)
	pt3dadd(-35.47, 1018.61, -66.51, 1.13)
	pt3dadd(-35.84, 1021.06, -66.89, 1.13)
	pt3dadd(-34.34, 1023.13, -66.96, 1.13)
	pt3dadd(-33.77, 1025.96, -67.42, 1.13)
	pt3dadd(-34.53, 1027.46, -67.95, 1.13)
	pt3dadd(-34.9, 1029.72, -68.18, 1.13)
	pt3dadd(-34.53, 1031.42, -69.01, 1.13)
	pt3dadd(-35.09, 1033.49, -69.69, 1.13)
	pt3dadd(-33.96, 1035.19, -69.92, 1.13)
	pt3dadd(-33.4, 1037.07, -70.52, 1.13)
	pt3dadd(-33.96, 1038.58, -70.98, 1.13)
	pt3dadd(-35.09, 1041.03, -71.74, 1.13)
	pt3dadd(-35.66, 1043.47, -72.42, 1.13)
	pt3dadd(-36.03, 1044.79, -73.78, 1.13)
	pt3dadd(-37.54, 1045.55, -73.93, 1.13)
	pt3dadd(-38.67, 1049.13, -73.93, 1.13)
  }
  apic[22] {pt3dclear()
	pt3dadd(-38.67, 1049.13, -73.93, 1.13)
	pt3dadd(-40.74, 1049.31, -74.01, 1.13)
	pt3dadd(-42.24, 1050.82, -74.01, 1.13)
	pt3dadd(-43.19, 1052.89, -74.01, 1.13)
	pt3dadd(-43.94, 1053.83, -74.01, 1.13)
	pt3dadd(-46.39, 1054.78, -74.01, 1.13)
  }
  apic[23] {pt3dclear()
	pt3dadd(-38.67, 1049.13, -73.93, 1.13)
	pt3dadd(-38.48, 1051.01, -73.33, 1.13)
	pt3dadd(-39.04, 1052.33, -73.25, 1.13)
	pt3dadd(-38.29, 1054.59, -73.25, 1.13)
	pt3dadd(-37.35, 1056.1, -73.48, 1.13)
	pt3dadd(-37.73, 1058.36, -73.55, 1.13)
	pt3dadd(-37.73, 1060.8, -74.61, 1.13)
	pt3dadd(-37.91, 1062.31, -74.69, 1.13)
	pt3dadd(-37.54, 1064.57, -75.22, 1.13)
	pt3dadd(-36.97, 1065.89, -75.45, 1.13)
	pt3dadd(-36.03, 1067.4, -75.6, 1.13)
	pt3dadd(-36.6, 1069.66, -76.28, 1.13)
	pt3dadd(-36.97, 1070.79, -76.43, 1.13)
	pt3dadd(-37.16, 1072.3, -76.73, 1.13)
	pt3dadd(-36.41, 1073.24, -76.89, 1.13)
	pt3dadd(-35.66, 1074.56, -77.34, 1.13)
	pt3dadd(-36.78, 1076.06, -77.8, 1.13)
	pt3dadd(-37.35, 1077, -82.26, 1.13)
	pt3dadd(-36.22, 1078.7, -82.42, 1.13)
	pt3dadd(-35.47, 1079.83, -82.49, 1.13)
	pt3dadd(-34.34, 1081.53, -83.02, 1.13)
	pt3dadd(-32.64, 1082.47, -83.4, 1.13)
	pt3dadd(-30.57, 1083.41, -83.7, 1.13)
	pt3dadd(-30.01, 1083.41, -83.86, 1.13)
	pt3dadd(-28.12, 1083.22, -84.08, 1.13)
	pt3dadd(-26.43, 1083.22, -89.69, 1.13)
	pt3dadd(-26.62, 1084.92, -89.76, 1.13)
	pt3dadd(-26.62, 1086.61, -89.76, 1.13)
	pt3dadd(-25.17, 1086.65, -94.91, 1.13)
	pt3dadd(-24.04, 1088.72, -95.37, 1.13)
	pt3dadd(-23.85, 1089.85, -101.43, 1.13)
	pt3dadd(-25.55, 1090.61, -101.73, 1.13)
	pt3dadd(-28, 1091.17, -101.73, 1.13)
	pt3dadd(-29.69, 1091.36, -101.81, 1.13)
	pt3dadd(-31.01, 1089.85, -101.81, 1.13)
	pt3dadd(-30.44, 1088.16, -101.81, 1.13)
  }
  apic[24] {pt3dclear()
	pt3dadd(-14.51, 951.76, -41.89, 1.32)
	pt3dadd(-12.02, 953.28, -41.89, 1.32)
	pt3dadd(-11.27, 954.98, -41.89, 1.32)
	pt3dadd(-11.27, 956.48, -41.59, 1.32)
	pt3dadd(-11.27, 958.18, -42.12, 1.32)
	pt3dadd(-10.89, 959.69, -43.18, 1.32)
	pt3dadd(-9.76, 960.25, -44.01, 1.32)
	pt3dadd(-8.25, 960.82, -44.84, 1.32)
	pt3dadd(-7.5, 961.95, -45.75, 1.32)
	pt3dadd(-6.94, 963.27, -45.83, 1.32)
	pt3dadd(-6.37, 964.58, -45.83, 1.32)
	pt3dadd(-5.62, 965.9, -45.83, 1.32)
	pt3dadd(-5.24, 967.6, -45.83, 1.32)
	pt3dadd(-5.24, 969.1, -45.9, 1.32)
	pt3dadd(-5.24, 970.61, -45.9, 1.32)
	pt3dadd(-5.05, 972.31, -45.9, 1.32)
	pt3dadd(-4.49, 974, -45.9, 1.32)
	pt3dadd(-4.3, 975.89, -45.9, 1.32)
	pt3dadd(-4.3, 977.2, -45.9, 1.32)
	pt3dadd(-3.74, 979.46, -45.9, 1.32)
	pt3dadd(-3.17, 980.78, -45.9, 1.32)
	pt3dadd(-2.61, 983.23, -45.9, 1.32)
	pt3dadd(-3.55, 983.42, -45.9, 1.32)
	pt3dadd(-4.3, 984.17, -45.9, 1.32)
	pt3dadd(-5.05, 986.43, -45.9, 1.32)
	pt3dadd(-5.24, 988.7, -45.9, 1.32)
	pt3dadd(-5.24, 990.01, -45.9, 1.32)
	pt3dadd(-4.49, 992.27, -45.9, 1.32)
	pt3dadd(-4.49, 994.16, -45.9, 1.32)
	pt3dadd(-5.43, 995.1, -48.1, 1.32)
	pt3dadd(-6.37, 996.23, -48.33, 1.32)
	pt3dadd(-7.12, 997.36, -48.4, 1.32)
	pt3dadd(-8.07, 999.06, -48.4, 1.32)
	pt3dadd(-8.25, 1002.26, -48.4, 1.32)
	pt3dadd(-8.25, 1003.76, -48.48, 1.32)
	pt3dadd(-7.69, 1005.65, -48.48, 1.32)
	pt3dadd(-7.5, 1007.34, -48.56, 1.32)
	pt3dadd(-6.94, 1009.6, -48.63, 1.32)
	pt3dadd(-8.07, 1011.11, -49.01, 1.32)
	pt3dadd(-9.01, 1012.24, -49.77, 1.32)
	pt3dadd(-9.38, 1014.31, -50.07, 1.32)
	pt3dadd(-9.2, 1016.39, -51.06, 1.32)
	pt3dadd(-9.38, 1019.21, -51.36, 1.32)
	pt3dadd(-9.2, 1021.28, -51.66, 1.32)
	pt3dadd(-8.82, 1022.98, -51.74, 1.32)
	pt3dadd(-7.5, 1025.24, -52.04, 1.32)
	pt3dadd(-6.18, 1026.75, -52.12, 1.32)
	pt3dadd(-5.24, 1028.06, -52.12, 1.32)
	pt3dadd(-3.92, 1029.19, -52.19, 1.32)
	pt3dadd(-2.61, 1031.08, -52.34, 1.32)
	pt3dadd(-1.48, 1033.72, -52.42, 1.32)
	pt3dadd(1.16, 1035.6, -52.49, 1.32)
	pt3dadd(2.27, 1036.98, -54.01, 1.32)
	pt3dadd(3.4, 1039.05, -54.01, 1.32)
	pt3dadd(4.35, 1040, -54.09, 1.32)
	pt3dadd(5.29, 1042.44, -54.09, 1.32)
	pt3dadd(5.85, 1045.27, -54.09, 1.32)
  }
  apic[25] {pt3dclear()
	pt3dadd(5.85, 1045.27, -54.09, 1.32)
	pt3dadd(5.66, 1046.21, -54.09, 1.32)
	pt3dadd(5.85, 1048.47, -54.09, 1.32)
	pt3dadd(6.98, 1049.79, -54.09, 1.32)
	pt3dadd(7.92, 1051.49, -54.09, 1.32)
	pt3dadd(7.17, 1052.8, -54.09, 1.32)
	pt3dadd(4.91, 1054.5, -54.09, 1.32)
	pt3dadd(5.48, 1056.57, -54.09, 1.32)
	pt3dadd(6.04, 1059.21, -55.3, 1.32)
	pt3dadd(6.79, 1061.09, -55.3, 1.32)
	pt3dadd(6.79, 1063.35, -55.37, 1.32)
	pt3dadd(6.98, 1065.05, -55.37, 1.32)
	pt3dadd(7.73, 1066.74, -55.37, 1.32)
	pt3dadd(8.68, 1068.06, -55.37, 1.32)
	pt3dadd(9.81, 1069.76, -55.37, 1.32)
	pt3dadd(9.81, 1071.64, -55.37, 1.32)
	pt3dadd(7.92, 1072.02, -55.37, 1.32)
	pt3dadd(7.36, 1073.34, -55.37, 1.32)
	pt3dadd(7.36, 1075.03, -56.28, 1.32)
	pt3dadd(6.79, 1076.35, -56.43, 1.32)
	pt3dadd(6.98, 1078.05, -56.51, 1.32)
	pt3dadd(7.55, 1080.12, -56.51, 1.32)
	pt3dadd(8.3, 1081.25, -52.95, 1.32)
	pt3dadd(8.11, 1082.76, -52.12, 1.32)
	pt3dadd(8.68, 1084.45, -51.96, 1.32)
	pt3dadd(9.99, 1086.71, -51.89, 1.32)
	pt3dadd(6.98, 1085.2, -51.81, 1.32)
	pt3dadd(6.04, 1084.83, -45.07, 1.32)
	pt3dadd(3.59, 1083.7, -44.69, 1.32)
	pt3dadd(1.52, 1082.94, -44.47, 1.32)
	pt3dadd(-0.55, 1083.89, -42.34, 1.32)
	pt3dadd(-1.3, 1085.2, -42.12, 1.32)
	pt3dadd(1.33, 1085.96, -40.07, 1.32)
	pt3dadd(4.53, 1085.2, -40.07, 0.94)
	pt3dadd(4.72, 1083.7, -40, 0.94)
	pt3dadd(6.6, 1083.51, -40, 0.94)
	pt3dadd(8.68, 1083.51, -40, 0.94)
	pt3dadd(10.56, 1083.51, -40, 0.94)
	pt3dadd(12.44, 1082.57, -40, 0.94)
	pt3dadd(13.95, 1081.44, -40, 0.94)
	pt3dadd(16.02, 1080.87, -39.31, 0.94)
	pt3dadd(16.77, 1080.5, -38.63, 0.94)
	pt3dadd(18.09, 1079.36, -37.27, 0.94)
	pt3dadd(19.03, 1078.23, -36.89, 0.94)
	pt3dadd(20.35, 1077.67, -35.75, 0.94)
	pt3dadd(21.48, 1077.67, -35.38, 0.94)
	pt3dadd(23.17, 1077.67, -34.39, 0.94)
	pt3dadd(24.3, 1078.05, -34.09, 0.94)
  }
  apic[26] {pt3dclear()
	pt3dadd(5.85, 1045.27, -54.09, 0.94)
	pt3dadd(6.98, 1046.4, -53.78, 0.94)
	pt3dadd(9.05, 1047.53, -53.78, 0.94)
	pt3dadd(10.56, 1048.66, -53.78, 0.94)
	pt3dadd(11.12, 1049.98, -53.71, 0.94)
	pt3dadd(11.69, 1051.11, -53.71, 0.94)
	pt3dadd(12.25, 1052.43, -53.71, 0.94)
	pt3dadd(12.82, 1053.93, -53.71, 0.94)
	pt3dadd(13.01, 1056.01, -53.71, 0.94)
	pt3dadd(13.38, 1057.33, -53.71, 0.94)
	pt3dadd(14.14, 1059.02, -53.71, 0.94)
  }
}
proc shape3d_17() {
  apic[26] {	pt3dadd(15.27, 1060.34, -53.71, 0.94)
	pt3dadd(17.52, 1061.85, -53.71, 0.94)
	pt3dadd(19.03, 1062.98, -53.71, 0.94)
	pt3dadd(20.54, 1064.48, -53.71, 0.94)
	pt3dadd(21.67, 1065.99, -53.71, 0.94)
  }
  apic[27] {pt3dclear()
	pt3dadd(-7.94, 912.92, -32.88, 0.94)
	pt3dadd(-6.45, 913.36, -34.01, 0.94)
	pt3dadd(-5.32, 912.61, -34.09, 0.94)
	pt3dadd(-4, 912.23, -34.09, 0.94)
	pt3dadd(-2.68, 912.61, -34.09, 0.94)
	pt3dadd(-2.87, 914.68, -34.16, 0.94)
	pt3dadd(-5.32, 915.81, -34.16, 0.94)
	pt3dadd(-4.38, 913.74, -34.16, 0.94)
	pt3dadd(-3.62, 914.87, -34.24, 0.94)
	pt3dadd(-4.94, 916.57, -34.24, 0.94)
	pt3dadd(-3.81, 917.51, -34.24, 0.94)
	pt3dadd(-2.5, 917.32, -34.24, 0.94)
	pt3dadd(-0.24, 916.57, -34.24, 0.94)
	pt3dadd(1.27, 917.51, -34.24, 0.94)
	pt3dadd(3.15, 919.2, -34.24, 0.94)
	pt3dadd(4.85, 921.09, -34.24, 0.94)
	pt3dadd(5.41, 922.97, -46.13, 0.94)
	pt3dadd(6.92, 924.85, -46.28, 0.94)
	pt3dadd(6.17, 926.36, -46.36, 0.94)
	pt3dadd(5.41, 927.3, -46.74, 0.94)
	pt3dadd(5.04, 928.06, -46.97, 0.94)
	pt3dadd(3.72, 929, -47.95, 0.94)
	pt3dadd(3.15, 930.5, -49.01, 0.94)
	pt3dadd(3.34, 932.2, -49.31, 0.94)
	pt3dadd(4.09, 933.71, -50.53, 0.94)
	pt3dadd(4.66, 935.21, -50.75, 0.94)
	pt3dadd(5.04, 936.34, -51.89, 0.94)
	pt3dadd(5.6, 938.04, -52.12, 0.94)
	pt3dadd(5.6, 939.55, -53.02, 0.94)
	pt3dadd(4.47, 939.92, -53.48, 0.94)
	pt3dadd(5.98, 941.81, -53.86, 0.94)
	pt3dadd(6.54, 943.5, -54.62, 0.94)
	pt3dadd(7.86, 944.07, -54.92, 0.94)
	pt3dadd(8.05, 945.39, -55.22, 0.94)
	pt3dadd(9.93, 945.95, -56.06, 0.94)
  }
  apic[28] {pt3dclear()
	pt3dadd(22.05, 774.29, -5.68, 2.26)
	pt3dadd(23.65, 776.45, -3.94, 2.26)
	pt3dadd(25.35, 778.52, -4.01, 2.26)
	pt3dadd(25.72, 780.97, -4.09, 2.26)
	pt3dadd(25.72, 784.17, -4.17, 2.26)
	pt3dadd(25.53, 787, -4.17, 2.26)
	pt3dadd(25.35, 790.01, -4.17, 2.26)
	pt3dadd(24.97, 792.27, -4.17, 2.26)
	pt3dadd(24.59, 794.72, -4.24, 2.26)
	pt3dadd(23.27, 796.79, -4.24, 2.26)
	pt3dadd(23.27, 799.62, -4.24, 2.26)
	pt3dadd(24.78, 801.5, -4.24, 2.26)
	pt3dadd(26.48, 803.57, -4.24, 1.69)
	pt3dadd(28.36, 805.64, -4.24, 1.69)
	pt3dadd(28.55, 808.09, -4.24, 1.69)
	pt3dadd(28.92, 811.3, -4.24, 1.69)
	pt3dadd(28.17, 814.12, -4.24, 1.69)
	pt3dadd(27.42, 816.57, -4.24, 1.69)
	pt3dadd(27.6, 820.15, -4.47, 1.69)
	pt3dadd(28.73, 822.6, -5.83, 1.69)
	pt3dadd(30.99, 825.23, -7.12, 1.69)
	pt3dadd(32.31, 827.87, -7.27, 1.69)
	pt3dadd(33.25, 830.51, -7.35, 1.69)
	pt3dadd(34.19, 833.15, -7.35, 1.69)
	pt3dadd(33.25, 836.16, -7.42, 1.69)
	pt3dadd(32.5, 838.99, -7.95, 1.69)
	pt3dadd(31.37, 842.75, -8.03, 1.69)
	pt3dadd(31.75, 845.77, -8.11, 1.69)
	pt3dadd(32.12, 849.35, -8.26, 1.69)
	pt3dadd(30.99, 851.98, -8.48, 1.69)
	pt3dadd(29.86, 854.81, -8.56, 1.69)
	pt3dadd(29.3, 856.88, -8.56, 1.69)
	pt3dadd(29.68, 858.2, -8.56, 1.69)
	pt3dadd(30.47, 861, -10.23, 1.69)
	pt3dadd(32.36, 863.26, -10.38, 1.69)
	pt3dadd(32.55, 866.84, -10.45, 1.69)
	pt3dadd(32.55, 869.48, -10.45, 1.69)
	pt3dadd(32.36, 873.81, -10.45, 1.69)
	pt3dadd(31.98, 877.01, -10.45, 1.69)
	pt3dadd(31.04, 879.08, -10.45, 1.69)
	pt3dadd(30.47, 882.47, -10.45, 1.69)
	pt3dadd(31.42, 884.73, -10.45, 1.69)
	pt3dadd(33.3, 888.31, -10.45, 1.69)
  }
  apic[29] {pt3dclear()
	pt3dadd(33.3, 888.31, -10.45, 1.69)
	pt3dadd(33.86, 890.76, -12.35, 1.69)
	pt3dadd(33.3, 893.4, -12.35, 1.69)
	pt3dadd(31.98, 896.04, -12.35, 1.69)
	pt3dadd(30.85, 899.24, -12.35, 1.69)
	pt3dadd(31.42, 902.06, -12.35, 1.69)
	pt3dadd(32.36, 905.46, -12.35, 1.69)
	pt3dadd(31.6, 907.9, -12.35, 1.69)
	pt3dadd(29.91, 910.35, -13.64, 1.69)
	pt3dadd(27.65, 913.93, -13.64, 1.69)
	pt3dadd(27.65, 917.89, -13.71, 1.69)
	pt3dadd(27.46, 921.66, -13.71, 1.69)
  }
  apic[30] {pt3dclear()
	pt3dadd(27.46, 921.66, -13.71, 1.32)
	pt3dadd(29.16, 922.41, -13.79, 1.32)
	pt3dadd(30.1, 925.23, -13.79, 1.32)
	pt3dadd(28.97, 926.36, -13.79, 1.32)
	pt3dadd(27.27, 926.74, -13.79, 1.32)
	pt3dadd(26.14, 929.94, -13.79, 1.32)
	pt3dadd(26.52, 932.58, -13.79, 1.32)
	pt3dadd(27.09, 935.03, -13.79, 1.13)
	pt3dadd(26.33, 936.91, -13.79, 1.13)
	pt3dadd(24.83, 938.8, -13.79, 1.13)
	pt3dadd(23.13, 940.3, -13.79, 1.13)
	pt3dadd(23.13, 941.62, -13.79, 1.13)
	pt3dadd(22.78, 943.57, -14.62, 1.13)
	pt3dadd(23.34, 945.83, -14.7, 1.13)
	pt3dadd(24.1, 947.71, -14.7, 1.13)
	pt3dadd(24.85, 948.66, -12.2, 1.13)
	pt3dadd(22.59, 949.97, -12.04, 1.13)
	pt3dadd(21.46, 951.1, -11.97, 1.13)
	pt3dadd(20.52, 955.06, -11.89, 1.13)
	pt3dadd(19.58, 957.13, -11.82, 1.13)
	pt3dadd(18.07, 958.64, -11.82, 1.13)
	pt3dadd(17.13, 961.65, -11.74, 1.13)
	pt3dadd(16.94, 962.97, -11.89, 1.13)
	pt3dadd(16.94, 965.42, -11.67, 1.32)
	pt3dadd(16.76, 967.68, -11.59, 1.32)
	pt3dadd(16.94, 969.38, -11.51, 1.32)
	pt3dadd(15.44, 970.51, -11.51, 1.32)
	pt3dadd(14.31, 972.58, -11.51, 1.32)
	pt3dadd(13.18, 974.84, -11.51, 1.32)
	pt3dadd(13.74, 977.67, -10.23, 1.32)
	pt3dadd(14.68, 980.49, -10.07, 1.32)
	pt3dadd(15.06, 982.75, -10, 1.32)
	pt3dadd(15.63, 984.63, -9.92, 1.32)
  }
  apic[31] {pt3dclear()
	pt3dadd(15.63, 984.63, -9.92, 1.13)
	pt3dadd(14.87, 986.71, -9.85, 1.13)
	pt3dadd(13.93, 988.78, -9.85, 1.13)
	pt3dadd(13.74, 992.36, -9.85, 1.13)
	pt3dadd(14.12, 995, -9.85, 1.13)
	pt3dadd(15.25, 997.07, -9.85, 1.13)
	pt3dadd(14.12, 1000.08, -9.85, 1.13)
	pt3dadd(13.37, 1002.53, -9.85, 1.13)
	pt3dadd(12.05, 1005.54, -9.85, 1.13)
	pt3dadd(10.54, 1007.24, -9.85, 1.13)
	pt3dadd(10.17, 1010.06, -9.85, 1.13)
	pt3dadd(8.66, 1013.27, -9.85, 1.13)
	pt3dadd(8.28, 1016.47, -9.85, 1.13)
	pt3dadd(9.22, 1019.67, -9.85, 1.13)
	pt3dadd(10.54, 1022.87, -9.85, 1.13)
	pt3dadd(9.79, 1026.08, -9.85, 1.13)
  }
  apic[32] {pt3dclear()
	pt3dadd(9.79, 1026.08, -9.85, 1.13)
	pt3dadd(9.86, 1028.89, -9.77, 1.13)
	pt3dadd(8.54, 1030.96, -9.77, 1.13)
	pt3dadd(7.6, 1032.09, -9.77, 1.13)
	pt3dadd(7.79, 1034.54, -9.85, 1.13)
	pt3dadd(7.41, 1036.42, -9.85, 1.13)
	pt3dadd(7.79, 1038.87, -9.85, 1.13)
	pt3dadd(7.03, 1041.32, -9.85, 1.13)
	pt3dadd(5.34, 1042.64, -9.85, 1.13)
	pt3dadd(5.15, 1044.33, -9.85, 1.13)
	pt3dadd(5.34, 1047.35, -9.85, 1.13)
	pt3dadd(5.53, 1050.17, -9.85, 1.13)
	pt3dadd(4.96, 1052.25, -9.85, 1.13)
	pt3dadd(4.4, 1054.32, -9.85, 1.13)
	pt3dadd(3.08, 1056.01, -9.85, 1.13)
	pt3dadd(1.38, 1057.52, -9.85, 1.13)
	pt3dadd(0.07, 1059.22, -9.85, 1.13)
	pt3dadd(-0.12, 1061.48, -9.85, 1.13)
	pt3dadd(-1.44, 1063.17, -9.85, 1.13)
	pt3dadd(-2.19, 1065.24, -9.85, 1.13)
	pt3dadd(-2.95, 1066.56, -9.85, 1.13)
	pt3dadd(-4.26, 1068.82, -9.85, 1.13)
	pt3dadd(-5.39, 1071.46, -9.92, 1.13)
	pt3dadd(-6.9, 1073.91, -9.92, 1.13)
	pt3dadd(-7.84, 1076.73, -10, 1.13)
	pt3dadd(-8.97, 1079.18, -10, 1.13)
	pt3dadd(-9.72, 1081.63, -10, 1.13)
	pt3dadd(-9.72, 1083.33, -10, 1.13)
	pt3dadd(-9.91, 1085.4, -10, 1.13)
	pt3dadd(-9.72, 1088.79, -10, 1.13)
  }
  apic[33] {pt3dclear()
	pt3dadd(9.79, 1026.08, -9.85, 1.13)
	pt3dadd(10.61, 1027.95, -11.14, 1.13)
	pt3dadd(10.99, 1030.21, -11.44, 1.13)
	pt3dadd(10.04, 1032.28, -11.67, 1.13)
	pt3dadd(10.8, 1034.16, -11.82, 1.13)
	pt3dadd(11.17, 1036.05, -11.89, 1.13)
	pt3dadd(12.68, 1037.93, -11.89, 1.13)
	pt3dadd(12.87, 1038.68, -11.97, 1.13)
	pt3dadd(13.62, 1039.81, -11.97, 1.13)
	pt3dadd(14.56, 1041.7, -11.97, 1.13)
  }
  apic[34] {pt3dclear()
	pt3dadd(15.63, 984.63, -9.92, 1.13)
	pt3dadd(14.75, 986.32, -10.3, 1.13)
	pt3dadd(13.62, 988.01, -10.38, 1.13)
	pt3dadd(12.49, 988.95, -10.38, 1.13)
	pt3dadd(11.74, 989.52, -10.38, 1.13)
	pt3dadd(9.67, 989.52, -10.38, 1.13)
	pt3dadd(8.35, 990.65, -10.38, 1.13)
	pt3dadd(7.41, 991.59, -10.38, 1.13)
	pt3dadd(6.09, 993.29, -10.38, 1.13)
	pt3dadd(4.96, 994.6, -10.38, 1.13)
	pt3dadd(4.77, 995.92, -10.38, 1.13)
	pt3dadd(3.64, 996.68, -7.5, 1.13)
	pt3dadd(1.38, 996.49, -7.35, 1.13)
	pt3dadd(-0.12, 997.43, -7.27, 1.13)
	pt3dadd(-2.38, 998.18, -7.2, 1.13)
	pt3dadd(-4.45, 998.94, -7.2, 1.13)
  }
}
proc shape3d_18() {
  apic[34] {	pt3dadd(-5.58, 1000.07, -7.2, 1.13)
	pt3dadd(-6.71, 1000.63, -7.12, 1.13)
	pt3dadd(-7.65, 1000.63, -7.12, 1.13)
	pt3dadd(-9.35, 1001.57, -7.12, 1.13)
	pt3dadd(-12.17, 1002.7, -7.12, 1.13)
  }
  apic[35] {pt3dclear()
	pt3dadd(27.46, 921.66, -13.71, 1.69)
	pt3dadd(27.43, 923.16, -17.27, 1.69)
	pt3dadd(29.32, 925.04, -17.35, 1.69)
	pt3dadd(28.56, 928.06, -17.35, 1.69)
	pt3dadd(27.81, 930.32, -17.35, 1.69)
	pt3dadd(26.87, 931.26, -17.35, 1.69)
	pt3dadd(25.74, 933.14, -17.35, 1.69)
	pt3dadd(24.99, 934.65, -17.42, 1.69)
	pt3dadd(24.42, 936.34, -17.42, 1.69)
	pt3dadd(24.23, 938.6, -17.42, 1.69)
	pt3dadd(23.48, 940.11, -17.42, 1.69)
	pt3dadd(22.54, 941.24, -17.42, 1.69)
	pt3dadd(20.66, 943.13, -17.42, 1.69)
  }
  apic[36] {pt3dclear()
	pt3dadd(20.66, 943.13, -17.42, 1.13)
	pt3dadd(19.71, 944.82, -19.62, 1.13)
	pt3dadd(18.58, 946.7, -19.69, 1.13)
	pt3dadd(17.08, 948.97, -19.69, 1.13)
	pt3dadd(17.45, 950.85, -19.69, 1.13)
	pt3dadd(18.02, 953.11, -19.69, 1.13)
	pt3dadd(16.51, 954.8, -19.69, 1.13)
	pt3dadd(15.57, 956.88, -19.69, 1.13)
	pt3dadd(13.5, 958.57, -19.69, 1.13)
	pt3dadd(11.99, 960.83, -19.77, 1.13)
	pt3dadd(10.68, 963.28, -19.77, 1.13)
	pt3dadd(9.36, 965.35, -19.77, 1.13)
	pt3dadd(9.17, 968.56, -19.77, 1.13)
	pt3dadd(8.42, 970.44, -19.77, 1.13)
	pt3dadd(6.35, 971.38, -19.77, 1.13)
	pt3dadd(5.4, 972.32, -21.74, 1.13)
	pt3dadd(5.4, 974.77, -21.74, 1.13)
	pt3dadd(5.4, 977.79, -21.74, 1.13)
	pt3dadd(3.9, 980.23, -21.82, 1.13)
	pt3dadd(2.39, 981.18, -21.82, 1.13)
	pt3dadd(0.89, 980.42, -22.88, 1.13)
	pt3dadd(-0.62, 981.74, -24.01, 1.13)
	pt3dadd(-1.56, 983.25, -24.24, 1.13)
	pt3dadd(-2.5, 986.07, -26.13, 1.13)
	pt3dadd(-4.01, 987.39, -26.51, 1.13)
	pt3dadd(-4.57, 989.09, -27.04, 1.13)
	pt3dadd(-6.27, 990.78, -27.12, 1.13)
	pt3dadd(-9.28, 991.73, -27.5, 1.13)
	pt3dadd(-10.79, 994.55, -27.8, 1.13)
	pt3dadd(-12.48, 998.32, -28.33, 1.13)
	pt3dadd(-13.23, 1000.2, -29.62, 1.13)
	pt3dadd(-14.36, 1001.52, -29.69, 1.13)
	pt3dadd(-15.49, 1002.27, -29.69, 1.13)
	pt3dadd(-17, 1003.59, -29.69, 1.13)
	pt3dadd(-18.13, 1005.29, -29.69, 1.13)
	pt3dadd(-18.06, 1007.82, -29.69, 1.13)
	pt3dadd(-18.43, 1009.9, -29.69, 1.13)
	pt3dadd(-19.75, 1011.78, -29.69, 1.13)
	pt3dadd(-20.5, 1013.47, -29.69, 1.13)
	pt3dadd(-21.07, 1016.11, -29.69, 1.13)
	pt3dadd(-21.82, 1017.81, -32.57, 1.13)
	pt3dadd(-23.14, 1020.26, -32.95, 1.13)
	pt3dadd(-22.76, 1022.7, -33.03, 1.13)
	pt3dadd(-22.57, 1024.78, -33.1, 1.13)
	pt3dadd(-22.2, 1026.85, -33.1, 1.13)
	pt3dadd(-23.52, 1027.79, -33.1, 1.13)
	pt3dadd(-25.4, 1029.67, -33.1, 1.13)
	pt3dadd(-25.59, 1033.82, -33.1, 1.13)
	pt3dadd(-26.15, 1035.89, -33.1, 1.13)
	pt3dadd(-26.9, 1037.96, -34.69, 1.13)
	pt3dadd(-28.41, 1040.41, -34.69, 1.13)
	pt3dadd(-29.92, 1044.56, -34.69, 1.13)
	pt3dadd(-31.8, 1047.95, -34.77, 1.13)
	pt3dadd(-32.36, 1048.7, -34.77, 1.13)
	pt3dadd(-32.93, 1050.77, -34.77, 1.13)
	pt3dadd(-34.81, 1052.47, -34.77, 1.13)
	pt3dadd(-36.13, 1054.35, -34.77, 1.13)
	pt3dadd(-37.26, 1056.61, -34.77, 1.13)
	pt3dadd(-37.82, 1060.19, -34.77, 1.13)
	pt3dadd(-37.64, 1061.13, -34.77, 1.13)
	pt3dadd(-38.01, 1063.39, -34.77, 1.13)
	pt3dadd(-39.14, 1064.52, -34.77, 1.13)
	pt3dadd(-39.33, 1066.22, -34.77, 1.13)
	pt3dadd(-39.14, 1069.04, -34.77, 1.13)
	pt3dadd(-39.14, 1071.49, -34.77, 1.13)
	pt3dadd(-39.14, 1073.56, -34.77, 1.13)
	pt3dadd(-39.9, 1075.45, -34.77, 1.13)
	pt3dadd(-40.27, 1077.52, -34.77, 1.13)
	pt3dadd(-39.33, 1081.29, -34.77, 1.13)
	pt3dadd(-38.2, 1083.17, -34.77, 1.13)
	pt3dadd(-37.26, 1085.06, -34.77, 1.13)
	pt3dadd(-37.64, 1086.37, -34.77, 1.13)
	pt3dadd(-37.64, 1088.26, -34.77, 1.13)
	pt3dadd(-37.37, 1090.16, -35.6, 1.13)
	pt3dadd(-36.99, 1092.04, -35.6, 1.13)
	pt3dadd(-35.48, 1093.74, -35.6, 1.13)
	pt3dadd(-34.35, 1094.87, -35.6, 1.13)
	pt3dadd(-32.85, 1095.62, -35.6, 1.13)
	pt3dadd(-30.97, 1095.24, -35.68, 1.13)
	pt3dadd(-28.71, 1094.3, -35.68, 1.13)
	pt3dadd(-27.2, 1093.93, -35.68, 1.13)
	pt3dadd(-24.94, 1093.17, -35.68, 1.13)
	pt3dadd(-22.3, 1093.74, -35.68, 1.13)
	pt3dadd(-19.48, 1093.74, -35.68, 1.13)
	pt3dadd(-18.92, 1092.98, -35.68, 1.13)
	pt3dadd(-18.73, 1090.53, -35.68, 1.13)
  }
  apic[37] {pt3dclear()
	pt3dadd(20.66, 943.13, -17.42, 1.13)
	pt3dadd(21.4, 944.96, -20.76, 1.13)
	pt3dadd(21.96, 947.22, -20.76, 1.13)
	pt3dadd(22.15, 948.73, -20.76, 1.13)
	pt3dadd(22.53, 950.8, -20.76, 1.13)
	pt3dadd(24.03, 952.12, -20.83, 1.13)
	pt3dadd(23.85, 954.38, -20.83, 1.13)
	pt3dadd(24.03, 956.26, -23.86, 1.13)
	pt3dadd(23.47, 958.52, -23.86, 1.13)
	pt3dadd(24.41, 959.27, -23.86, 1.13)
	pt3dadd(25.73, 957.77, -23.86, 1.13)
	pt3dadd(27.05, 956.64, -23.86, 1.13)
	pt3dadd(28.55, 956.64, -23.86, 1.13)
	pt3dadd(29.68, 958.14, -23.86, 1.13)
	pt3dadd(29.31, 960.22, -23.86, 1.13)
	pt3dadd(28.36, 960.78, -23.86, 1.13)
	pt3dadd(27.05, 962.29, -23.86, 1.13)
	pt3dadd(26.86, 963.98, -28.56, 1.13)
	pt3dadd(28.36, 965.3, -29.16, 1.13)
	pt3dadd(29.12, 966.43, -30.07, 1.13)
	pt3dadd(28.18, 967.75, -30.53, 1.13)
	pt3dadd(27.8, 969.63, -31.13, 1.13)
	pt3dadd(27.23, 971.33, -31.21, 1.13)
	pt3dadd(26.86, 973.03, -32.12, 1.13)
	pt3dadd(27.99, 975.29, -32.35, 1.13)
	pt3dadd(29.87, 976.98, -33.1, 1.13)
	pt3dadd(29.68, 978.68, -33.33, 1.13)
	pt3dadd(29.12, 979.62, -34.39, 1.13)
	pt3dadd(28.36, 980.56, -35.38, 1.13)
	pt3dadd(27.23, 982.07, -36.28, 1.13)
	pt3dadd(26.48, 983.39, -36.81, 1.13)
	pt3dadd(27.61, 985.65, -37.5, 1.13)
	pt3dadd(28.18, 988.28, -38.33, 1.13)
	pt3dadd(28.55, 990.54, -39.09, 1.13)
	pt3dadd(27.42, 991.3, -40.75, 1.13)
	pt3dadd(26.1, 991.67, -41.66, 1.13)
	pt3dadd(24.6, 991.67, -42.87, 1.13)
	pt3dadd(23.85, 992.62, -43.4, 1.13)
	pt3dadd(24.41, 994.12, -44.01, 1.13)
	pt3dadd(25.35, 996.01, -44.39, 1.13)
	pt3dadd(24.6, 997.51, -45.3, 1.13)
	pt3dadd(24.03, 998.46, -46.28, 1.13)
	pt3dadd(23.47, 1000.15, -47.04, 1.13)
	pt3dadd(22.9, 1001.85, -48.78, 1.13)
	pt3dadd(22.9, 1003.73, -49.99, 1.13)
	pt3dadd(22.34, 1005.8, -50.83, 1.13)
	pt3dadd(21.96, 1007.87, -51.59, 1.13)
	pt3dadd(22.34, 1010.32, -52.57, 1.13)
	pt3dadd(23.09, 1012.02, -53.33, 1.13)
	pt3dadd(24.6, 1013.9, -54.09, 1.13)
	pt3dadd(25.73, 1012.96, -60.3, 1.13)
	pt3dadd(25.54, 1010.89, -60.3, 1.13)
	pt3dadd(23.85, 1012.4, -60.3, 1.13)
	pt3dadd(22.72, 1013.9, -60.3, 1.13)
	pt3dadd(21.59, 1014.66, -60.37, 1.13)
	pt3dadd(22.15, 1016.54, -60.37, 1.13)
	pt3dadd(23.85, 1019.55, -60.37, 1.13)
	pt3dadd(24.03, 1021.25, -64.84, 1.13)
	pt3dadd(24.03, 1023.32, -65.14, 1.13)
	pt3dadd(23.85, 1024.83, -65.37, 1.13)
	pt3dadd(24.22, 1026.33, -65.45, 1.13)
	pt3dadd(23.86, 1028.15, -69.31, 1.13)
	pt3dadd(23.86, 1030.97, -69.46, 1.13)
	pt3dadd(23.86, 1032.1, -70.9, 1.13)
	pt3dadd(22.73, 1034.55, -70.9, 1.13)
	pt3dadd(23.48, 1037.19, -70.9, 1.13)
	pt3dadd(24.42, 1040.77, -70.9, 1.13)
	pt3dadd(24.8, 1043.59, -70.9, 1.13)
	pt3dadd(24.42, 1045.67, -74.77, 1.13)
	pt3dadd(23.48, 1047.17, -74.84, 1.13)
	pt3dadd(20.28, 1047.36, -74.84, 1.13)
	pt3dadd(17.64, 1047.74, -74.84, 1.13)
	pt3dadd(16.14, 1048.3, -74.84, 1.13)
	pt3dadd(14.63, 1049.06, -74.84, 1.13)
	pt3dadd(13.31, 1050.19, -74.92, 1.13)
	pt3dadd(12.18, 1051.13, -74.84, 1.13)
	pt3dadd(10.68, 1052.63, -75.22, 1.13)
	pt3dadd(9.55, 1056.03, -76.05, 1.13)
	pt3dadd(9.17, 1059.79, -76.89, 1.13)
	pt3dadd(9.74, 1062.43, -77.19, 1.13)
	pt3dadd(9.92, 1063.56, -77.26, 1.13)
  }
  apic[38] {pt3dclear()
	pt3dadd(9.92, 1063.56, -77.26, 1.13)
	pt3dadd(9.55, 1064.5, -77.26, 1.13)
	pt3dadd(8.04, 1066.01, -77.26, 1.13)
	pt3dadd(6.72, 1067.7, -77.26, 1.13)
	pt3dadd(5.22, 1069.21, -77.26, 1.13)
	pt3dadd(4.46, 1069.96, -77.26, 1.13)
	pt3dadd(3.15, 1070.34, -77.26, 1.13)
	pt3dadd(2.2, 1071.66, -77.26, 1.13)
	pt3dadd(2.39, 1074.3, -77.26, 1.13)
  }
  apic[39] {pt3dclear()
	pt3dadd(9.92, 1063.56, -77.26, 1.13)
	pt3dadd(11.05, 1064.88, -77.8, 1.13)
	pt3dadd(11.43, 1066.57, -78.4, 1.13)
	pt3dadd(11.43, 1067.89, -79.08, 1.13)
	pt3dadd(10.3, 1069.02, -79.54, 1.13)
	pt3dadd(10.87, 1070.91, -81.89, 1.13)
  }
}
proc shape3d_19() {
  apic[39] {	pt3dadd(10.87, 1072.79, -82.26, 1.13)
	pt3dadd(11.62, 1074.3, -84.31, 1.13)
	pt3dadd(10.68, 1075.8, -84.61, 1.13)
	pt3dadd(9.92, 1077.88, -84.76, 1.13)
  }
  apic[40] {pt3dclear()
	pt3dadd(33.3, 888.31, -10.45, 1.51)
	pt3dadd(34.65, 891.28, -14.85, 1.51)
	pt3dadd(36.16, 893.16, -14.92, 1.51)
	pt3dadd(37.29, 895.23, -14.92, 1.51)
	pt3dadd(38.6, 897.3, -15, 1.51)
	pt3dadd(39.55, 899.38, -15, 1.51)
	pt3dadd(41.05, 900.88, -15, 1.51)
	pt3dadd(42.75, 902.2, -15.07, 1.51)
	pt3dadd(42.94, 903.71, -15.07, 1.51)
	pt3dadd(43.69, 905.59, -15.07, 1.51)
	pt3dadd(44.06, 907.67, -15.07, 1.51)
	pt3dadd(45.38, 908.98, -15.07, 1.51)
	pt3dadd(46.7, 909.93, -15.07, 1.51)
	pt3dadd(48.4, 910.49, -15.07, 1.51)
	pt3dadd(49.15, 911.81, -15.07, 1.51)
	pt3dadd(50.09, 914.45, -15.07, 1.51)
	pt3dadd(50.09, 915.39, -15.07, 1.51)
	pt3dadd(50.47, 918.21, -15.07, 1.51)
  }
  apic[41] {pt3dclear()
	pt3dadd(50.47, 918.21, -15.07, 1.51)
	pt3dadd(50.84, 919.91, -15.07, 1.51)
	pt3dadd(52.73, 921.79, -15.07, 1.51)
	pt3dadd(53.67, 922.92, -15.07, 1.51)
	pt3dadd(55.17, 923.86, -15.07, 1.51)
	pt3dadd(56.11, 925.37, -15.07, 1.51)
	pt3dadd(56.3, 926.5, -15.07, 1.51)
	pt3dadd(57.62, 929.33, -15.07, 1.51)
	pt3dadd(58.37, 930.27, -15.07, 1.13)
	pt3dadd(59.5, 931.21, -15.07, 1.13)
	pt3dadd(59.88, 934.23, -15.07, 1.13)
	pt3dadd(61.01, 936.11, -15.07, 1.13)
	pt3dadd(61.95, 936.3, -14.54, 1.13)
	pt3dadd(62.7, 938.37, -14.47, 1.13)
	pt3dadd(63.65, 940.82, -14.39, 1.13)
	pt3dadd(63.46, 942.51, -14.39, 1.13)
	pt3dadd(63.46, 943.64, -14.32, 1.13)
	pt3dadd(62.52, 944.4, -14.32, 1.13)
	pt3dadd(62.52, 946.09, -14.32, 1.13)
	pt3dadd(62.89, 947.41, -14.24, 1.13)
	pt3dadd(63.65, 948.16, -14.24, 1.13)
	pt3dadd(64.21, 949.86, -14.24, 1.13)
	pt3dadd(65.53, 951.74, -10.98, 1.13)
	pt3dadd(66.85, 953.06, -10.91, 1.13)
	pt3dadd(67.79, 953.82, -10.83, 1.13)
	pt3dadd(68.35, 957.02, -10.83, 1.13)
	pt3dadd(67.98, 958.71, -10.76, 1.13)
	pt3dadd(67.6, 960.22, -10.76, 1.13)
	pt3dadd(68.16, 961.54, -10.76, 1.13)
	pt3dadd(69.48, 963.61, -10.76, 1.13)
	pt3dadd(69.86, 965.31, -10.68, 1.13)
	pt3dadd(68.92, 966.25, -10.68, 1.13)
	pt3dadd(67.98, 967.76, -10.6, 1.13)
	pt3dadd(69.86, 969.64, -10.6, 1.13)
	pt3dadd(70.99, 971.15, -10.6, 1.13)
	pt3dadd(70.27, 972.1, -10.38, 1.13)
	pt3dadd(68.76, 973.61, -10.38, 1.13)
	pt3dadd(68.39, 976.06, -10.38, 1.13)
	pt3dadd(68.01, 979.26, -10.38, 1.13)
	pt3dadd(68.01, 981.9, -10.38, 1.13)
	pt3dadd(69.7, 983.6, -10.53, 1.13)
	pt3dadd(72.15, 983.78, -10.6, 1.13)
	pt3dadd(71.4, 985.1, -10.68, 1.13)
	pt3dadd(70.83, 986.61, -10.68, 1.13)
	pt3dadd(69.33, 988.49, -10.76, 1.13)
	pt3dadd(68.57, 990, -10.76, 1.13)
	pt3dadd(67.26, 991.88, -10.76, 1.13)
	pt3dadd(67.07, 995.27, -10.76, 1.13)
	pt3dadd(66.88, 996.97, -10.76, 1.13)
	pt3dadd(66.69, 999.23, -10.76, 1.13)
	pt3dadd(66.31, 1001.68, -10.76, 1.13)
	pt3dadd(65.18, 1003.19, -10.76, 1.13)
	pt3dadd(64.62, 1005.63, -10.76, 1.13)
  }
  apic[42] {pt3dclear()
	pt3dadd(50.47, 918.21, -15.07, 1.13)
	pt3dadd(52.57, 919.93, -14.77, 1.13)
	pt3dadd(54.26, 920.68, -14.77, 1.13)
	pt3dadd(55.58, 920.87, -14.7, 1.13)
	pt3dadd(57.09, 920.87, -14.7, 1.13)
	pt3dadd(58.97, 921.06, -14.7, 1.13)
	pt3dadd(60.1, 922.75, -14.7, 1.13)
	pt3dadd(59.91, 924.07, -20.15, 1.13)
	pt3dadd(59.35, 924.82, -20.45, 1.13)
	pt3dadd(59.54, 927.27, -20.98, 1.13)
	pt3dadd(59.72, 929.16, -21.13, 1.13)
	pt3dadd(60.29, 930.85, -21.21, 1.13)
	pt3dadd(61.04, 932.36, -21.21, 1.13)
	pt3dadd(62.36, 934.05, -21.29, 1.13)
	pt3dadd(63.68, 935.94, -21.29, 1.13)
	pt3dadd(64.24, 938.39, -21.29, 1.13)
	pt3dadd(63.68, 939.7, -23.86, 1.13)
	pt3dadd(61.8, 939.89, -23.94, 1.13)
	pt3dadd(60.67, 940.84, -23.94, 1.13)
	pt3dadd(60.48, 942.53, -24.01, 1.13)
	pt3dadd(61.42, 944.23, -24.32, 1.13)
	pt3dadd(61.98, 945.73, -24.77, 1.13)
	pt3dadd(60.67, 946.67, -25, 1.13)
	pt3dadd(59.54, 947.24, -25.22, 1.13)
	pt3dadd(59.35, 948.56, -25.3, 1.13)
	pt3dadd(59.72, 950.07, -25.38, 1.13)
	pt3dadd(60.1, 951.57, -26.36, 1.13)
	pt3dadd(59.72, 953.27, -27.42, 1.13)
	pt3dadd(59.16, 954.4, -28.41, 1.13)
	pt3dadd(58.97, 955.53, -28.71, 1.13)
	pt3dadd(57.65, 957.04, -29.24, 1.13)
	pt3dadd(57.65, 958.54, -29.77, 1.13)
	pt3dadd(58.6, 959.86, -29.92, 1.13)
	pt3dadd(58.41, 961.93, -30.15, 1.13)
	pt3dadd(58.03, 962.87, -30.3, 1.13)
	pt3dadd(56.71, 963.82, -30.53, 1.13)
	pt3dadd(56.34, 965.32, -31.06, 1.13)
	pt3dadd(55.39, 967.02, -31.06, 1.13)
	pt3dadd(54.08, 967.77, -31.06, 1.13)
	pt3dadd(52.95, 969.28, -31.13, 1.13)
	pt3dadd(51.25, 970.97, -32.27, 1.13)
	pt3dadd(51.44, 972.67, -32.35, 1.13)
	pt3dadd(51.06, 974.18, -32.5, 1.13)
	pt3dadd(50.5, 975.12, -32.57, 1.13)
	pt3dadd(48.62, 976.81, -32.65, 1.13)
	pt3dadd(47.3, 977.38, -32.65, 1.13)
	pt3dadd(45.79, 977.57, -32.88, 1.13)
	pt3dadd(44.1, 978.32, -34.09, 1.13)
	pt3dadd(42.78, 980.39, -34.69, 1.13)
	pt3dadd(41.84, 982.65, -34.77, 1.13)
	pt3dadd(41.46, 984.35, -34.77, 1.13)
	pt3dadd(40.9, 985.48, -34.85, 1.13)
	pt3dadd(39.77, 986.23, -34.85, 1.13)
	pt3dadd(38.83, 988.12, -34.85, 1.13)
	pt3dadd(38.64, 990.94, -38.56, 1.13)
	pt3dadd(39.39, 992.26, -38.56, 1.13)
	pt3dadd(39.39, 994.14, -38.56, 1.13)
	pt3dadd(37.7, 994.71, -38.56, 1.13)
	pt3dadd(35.44, 995.09, -38.56, 1.13)
	pt3dadd(33.55, 995.27, -41.51, 1.13)
	pt3dadd(32.05, 996.03, -42.27, 1.13)
	pt3dadd(30.54, 996.59, -42.5, 1.13)
	pt3dadd(29.04, 998.48, -42.65, 1.13)
	pt3dadd(28.09, 999.61, -43.03, 1.13)
	pt3dadd(27.72, 1001.3, -43.03, 1.13)
	pt3dadd(26.96, 1003.37, -43.1, 1.13)
	pt3dadd(26.4, 1004.69, -43.18, 1.13)
	pt3dadd(25.46, 1006.01, -44.24, 1.13)
	pt3dadd(23.58, 1006.39, -45.22, 1.13)
	pt3dadd(22.26, 1007.33, -46.13, 1.13)
	pt3dadd(21.13, 1007.33, -46.43, 1.13)
	pt3dadd(20, 1007.71, -47.65, 1.13)
	pt3dadd(18.12, 1008.27, -49.01, 1.13)
	pt3dadd(16.04, 1008.84, -49.54, 1.13)
	pt3dadd(14.92, 1009.78, -50.22, 1.13)
	pt3dadd(14.16, 1011.1, -50.83, 1.13)
	pt3dadd(13.97, 1012.04, -50.9, 1.13)
	pt3dadd(14.35, 1013.92, -51.74, 1.13)
	pt3dadd(13.22, 1015.81, -52.27, 1.13)
	pt3dadd(11.9, 1016, -53.63, 1.13)
	pt3dadd(11.15, 1016.75, -54.54, 1.13)
	pt3dadd(10.58, 1018.07, -55.45, 1.13)
	pt3dadd(10.02, 1019.76, -55.52, 1.13)
	pt3dadd(9.08, 1021.27, -55.83, 1.13)
	pt3dadd(8.33, 1022.59, -55.98, 1.13)
	pt3dadd(7.76, 1023.72, -56.28, 1.13)
	pt3dadd(8.89, 1025.41, -56.36, 1.13)
	pt3dadd(8.51, 1026.92, -57.19, 1.13)
	pt3dadd(7.38, 1027.67, -57.49, 1.13)
	pt3dadd(6.25, 1028.43, -57.95, 1.13)
	pt3dadd(5.88, 1030.69, -58.4, 1.13)
	pt3dadd(6.63, 1032.76, -58.55, 1.13)
	pt3dadd(6.63, 1033.89, -58.78, 1.13)
	pt3dadd(7.2, 1035.59, -59.16, 1.13)
	pt3dadd(6.82, 1037.09, -59.46, 1.13)
	pt3dadd(6.07, 1038.22, -59.77, 1.13)
	pt3dadd(4, 1038.98, -60.52, 1.13)
	pt3dadd(2.3, 1039.92, -61.36, 1.13)
	pt3dadd(0.04, 1040.86, -63.18, 1.13)
	pt3dadd(-1.84, 1041.99, -64.01, 1.13)
	pt3dadd(-3.54, 1043.12, -64.46, 1.13)
	pt3dadd(-5.04, 1044.06, -64.54, 1.13)
	pt3dadd(-5.04, 1045.38, -64.61, 1.13)
	pt3dadd(-5.23, 1047.26, -64.77, 1.13)
	pt3dadd(-5.61, 1049.71, -64.92, 1.13)
	pt3dadd(-5.23, 1051.41, -65.14, 1.13)
	pt3dadd(-4.1, 1052.54, -65.22, 1.13)
	pt3dadd(-2.94, 1053.33, -66.43, 1.13)
	pt3dadd(-3.69, 1054.84, -66.51, 1.13)
	pt3dadd(-3.69, 1056.54, -66.51, 1.13)
	pt3dadd(-2.56, 1058.04, -66.51, 1.13)
	pt3dadd(-2.18, 1058.98, -66.51, 1.13)
	pt3dadd(-2.37, 1061.06, -66.51, 1.13)
	pt3dadd(-3.13, 1062.37, -66.51, 1.13)
	pt3dadd(-3.69, 1063.69, -67.49, 1.13)
	pt3dadd(-3.69, 1064.82, -67.8, 1.13)
	pt3dadd(-4.44, 1067.08, -68.18, 1.13)
	pt3dadd(-4.63, 1068.97, -68.63, 1.13)
	pt3dadd(-5.01, 1071.6, -68.86, 1.13)
	pt3dadd(-5.01, 1073.11, -68.86, 1.13)
	pt3dadd(-5.01, 1074.62, -69.61, 1.13)
	pt3dadd(-6.7, 1075.56, -70.14, 1.13)
	pt3dadd(-8.02, 1075.75, -71.21, 1.13)
	pt3dadd(-8.77, 1077.63, -73.1, 1.13)
	pt3dadd(-8.59, 1079.33, -73.25, 1.13)
  }
}
proc shape3d_20() {
  apic[42] {	pt3dadd(-9.34, 1081.4, -73.4, 1.13)
	pt3dadd(-9.72, 1082.91, -73.78, 1.13)
  }
  apic[43] {pt3dclear()
	pt3dadd(41.39, 704.77, -0.91, 3.01)
	pt3dadd(42.73, 706.66, 2.35, 3.01)
	pt3dadd(43.29, 710.05, 2.42, 3.01)
	pt3dadd(43.86, 713.63, 2.5, 3.01)
  }
  apic[44] {pt3dclear()
	pt3dadd(43.86, 713.63, 2.5, 2.26)
	pt3dadd(42.98, 714.6, 0, 2.26)
	pt3dadd(41.47, 716.68, 0, 2.26)
	pt3dadd(40.34, 718.37, -0.45, 2.07)
	pt3dadd(38.84, 720.26, -0.45, 2.07)
	pt3dadd(38.08, 723.08, -0.53, 2.07)
	pt3dadd(38.27, 725.91, -0.53, 2.07)
	pt3dadd(37.9, 727.98, -0.53, 2.07)
	pt3dadd(37.52, 731.37, -0.53, 2.07)
	pt3dadd(36.58, 733.44, -0.53, 1.88)
	pt3dadd(35.45, 735.89, -0.53, 1.88)
	pt3dadd(35.45, 739.47, -0.53, 1.88)
	pt3dadd(36.58, 742.3, -0.53, 1.88)
	pt3dadd(39.03, 745.31, -0.53, 1.88)
	pt3dadd(40.53, 747.95, -0.53, 1.88)
	pt3dadd(42.98, 750.21, -0.53, 1.88)
	pt3dadd(44.3, 753.79, -0.53, 1.88)
	pt3dadd(44.11, 758.5, -0.53, 1.88)
	pt3dadd(43.92, 761.89, -0.53, 1.88)
	pt3dadd(43.54, 764.9, -3.11, 1.88)
	pt3dadd(43.17, 768.1, -3.18, 1.88)
	pt3dadd(44.49, 770.93, -3.26, 1.88)
	pt3dadd(47.12, 772.81, -3.33, 1.88)
	pt3dadd(49, 774.7, -3.33, 1.88)
	pt3dadd(50.32, 777.71, -3.41, 1.51)
	pt3dadd(51.83, 780.72, -3.41, 1.51)
	pt3dadd(52.39, 784.11, -3.41, 1.51)
	pt3dadd(51.64, 788.26, -3.41, 1.51)
	pt3dadd(51.26, 792.59, -3.41, 1.51)
	pt3dadd(52.21, 794.85, -3.41, 1.51)
	pt3dadd(52.39, 797.11, -3.41, 1.51)
	pt3dadd(53.46, 799.7, -3.41, 1.51)
	pt3dadd(54.59, 802.9, -3.41, 1.51)
	pt3dadd(55.72, 806.86, -3.41, 1.51)
	pt3dadd(56.85, 810.06, -3.41, 1.51)
	pt3dadd(58.36, 813.07, -3.41, 1.51)
	pt3dadd(59.68, 816.09, -3.41, 1.51)
	pt3dadd(60.43, 819.67, -3.41, 1.51)
	pt3dadd(61.75, 822.3, -3.41, 1.51)
	pt3dadd(63.44, 824, -3.41, 1.51)
	pt3dadd(66.64, 825.51, -3.41, 1.51)
	pt3dadd(67.96, 827.39, -3.41, 1.32)
	pt3dadd(68.52, 830.22, -3.41, 1.32)
	pt3dadd(68.15, 832.66, -3.41, 1.32)
	pt3dadd(67.58, 834.93, -3.41, 1.32)
	pt3dadd(67.21, 837.37, -3.41, 1.32)
	pt3dadd(66.45, 839.82, -3.41, 1.32)
	pt3dadd(65.89, 842.46, -3.41, 1.32)
	pt3dadd(65.32, 845.1, -3.41, 1.32)
	pt3dadd(65.32, 847.17, -3.41, 1.13)
	pt3dadd(65.89, 849.81, -3.41, 1.13)
	pt3dadd(67.02, 852.07, -3.41, 1.13)
	pt3dadd(68.15, 854.89, -3.41, 1.13)
	pt3dadd(69.47, 856.96, -3.41, 1.13)
	pt3dadd(70.78, 858.28, -3.41, 1.13)
	pt3dadd(70.03, 859.98, -3.41, 1.13)
	pt3dadd(69.09, 862.62, -3.41, 1.13)
	pt3dadd(68.52, 866.01, -3.41, 1.13)
	pt3dadd(68.34, 867.89, -3.41, 1.13)
	pt3dadd(69.84, 869.4, -3.41, 1.13)
	pt3dadd(70.97, 871.09, -3.41, 1.13)
	pt3dadd(70.41, 873.92, -3.41, 1.13)
  }
  apic[45] {pt3dclear()
	pt3dadd(43.86, 713.63, 2.5, 3.58)
	pt3dadd(44.99, 717.01, -4.47, 3.58)
	pt3dadd(46.87, 719.45, -4.55, 3.58)
	pt3dadd(47.81, 721.9, -4.55, 3.2)
	pt3dadd(46.87, 723.97, -4.55, 3.2)
	pt3dadd(46.68, 727.37, -4.55, 3.2)
	pt3dadd(47.25, 730.76, -4.55, 3.2)
	pt3dadd(48.38, 734.9, -4.55, 3.2)
	pt3dadd(49.7, 737.91, -4.55, 3.2)
	pt3dadd(52.14, 739.61, -4.55, 2.45)
	pt3dadd(54.78, 741.68, -4.55, 2.45)
	pt3dadd(56.29, 745.26, -4.55, 2.45)
	pt3dadd(57.04, 749.03, -4.55, 2.45)
	pt3dadd(57.6, 752.8, -4.62, 2.45)
	pt3dadd(58.17, 755.62, -4.55, 2.45)
	pt3dadd(58.92, 759.01, -4.62, 2.45)
	pt3dadd(59.49, 761.27, -4.62, 2.45)
  }
  apic[46] {pt3dclear()
	pt3dadd(59.49, 761.27, -4.62, 2.26)
	pt3dadd(58.17, 764.47, -4.55, 2.26)
	pt3dadd(60.05, 767.49, -4.55, 2.26)
	pt3dadd(63.25, 770.5, -4.55, 2.26)
	pt3dadd(65.7, 773.33, -6.89, 2.26)
	pt3dadd(66.08, 777.1, -4.01, 2.26)
	pt3dadd(65.14, 781.05, -3.64, 2.26)
	pt3dadd(64.19, 784.44, -3.56, 2.26)
	pt3dadd(64.01, 788.4, -3.41, 2.26)
	pt3dadd(63.63, 792.35, -3.33, 2.26)
	pt3dadd(62.12, 795.18, -3.33, 2.26)
	pt3dadd(62.12, 800.45, -3.26, 2.26)
	pt3dadd(61.18, 803.84, -3.26, 2.26)
	pt3dadd(60.99, 807.05, -3.26, 2.26)
	pt3dadd(63.06, 809.68, -3.26, 2.26)
	pt3dadd(64.76, 812.13, -3.26, 2.26)
	pt3dadd(66.45, 815.15, -3.26, 2.26)
	pt3dadd(67.77, 818.35, -3.26, 2.26)
	pt3dadd(68.52, 821.36, -3.26, 2.26)
	pt3dadd(67.96, 824, -2.42, 2.26)
	pt3dadd(67.77, 827.01, -2.27, 2.26)
	pt3dadd(67.02, 829.65, -2.2, 2.26)
	pt3dadd(67.58, 832.48, -2.12, 2.26)
	pt3dadd(66.64, 836.24, -2.05, 2.26)
	pt3dadd(63.82, 839.26, -1.97, 2.26)
	pt3dadd(63.25, 842.65, -1.97, 2.26)
	pt3dadd(62.69, 845.85, -1.97, 2.26)
	pt3dadd(62.69, 849.05, -1.97, 2.26)
	pt3dadd(64.19, 851.5, -1.97, 2.26)
	pt3dadd(65.32, 854.14, -1.97, 2.26)
	pt3dadd(66.83, 857.15, -7.2, 2.26)
	pt3dadd(68.34, 859.41, -7.5, 2.26)
	pt3dadd(69.28, 861.3, -7.65, 1.88)
	pt3dadd(70.03, 864.12, -7.73, 1.88)
	pt3dadd(69.84, 866.57, -7.73, 1.88)
	pt3dadd(69.09, 869.21, -7.73, 1.88)
	pt3dadd(68.39, 870.57, -9.01, 1.51)
	pt3dadd(67.45, 872.26, -9.01, 1.51)
	pt3dadd(68.39, 874.52, -8.94, 1.51)
	pt3dadd(70.65, 876.41, -8.94, 1.51)
	pt3dadd(73.29, 877.73, -8.94, 1.51)
	pt3dadd(74.79, 879.42, -8.94, 1.51)
	pt3dadd(75.73, 881.12, -8.94, 1.51)
	pt3dadd(75.36, 883.38, -8.94, 1.51)
	pt3dadd(74.98, 884.88, -8.94, 1.51)
	pt3dadd(74.6, 886.2, -8.94, 1.51)
	pt3dadd(73.85, 888.27, -8.94, 1.51)
  }
  apic[47] {pt3dclear()
	pt3dadd(73.85, 888.27, -8.94, 1.51)
	pt3dadd(73.47, 891.1, -8.94, 1.51)
	pt3dadd(73.66, 893.55, -8.94, 1.51)
	pt3dadd(73.47, 895.81, -8.94, 1.51)
	pt3dadd(72.91, 897.69, -8.94, 1.51)
	pt3dadd(72.34, 899.58, -8.94, 1.51)
	pt3dadd(72.72, 901.84, -8.94, 1.51)
	pt3dadd(73.29, 903.16, -8.94, 1.51)
	pt3dadd(74.6, 904.66, -8.94, 1.51)
	pt3dadd(74.98, 907.3, -8.94, 1.51)
	pt3dadd(74.42, 909, -8.94, 1.51)
	pt3dadd(74.6, 911.44, -8.94, 1.51)
	pt3dadd(73.29, 912.76, -8.94, 1.51)
	pt3dadd(72.16, 915.4, -8.94, 1.51)
	pt3dadd(71.21, 917.47, -8.94, 1.51)
	pt3dadd(70.08, 918.79, -8.94, 1.51)
	pt3dadd(68.96, 920.49, -8.94, 1.51)
	pt3dadd(68.39, 922.18, -8.94, 1.51)
	pt3dadd(69.52, 923.5, -8.94, 1.51)
	pt3dadd(71.03, 924.25, -8.94, 1.32)
	pt3dadd(71.4, 925.95, -8.94, 1.32)
	pt3dadd(69.71, 927.08, -8.94, 1.32)
	pt3dadd(67.45, 927.08, -8.94, 1.32)
	pt3dadd(65.94, 928.02, -8.94, 1.32)
  }
  apic[48] {pt3dclear()
	pt3dadd(65.94, 928.02, -8.94, 1.13)
	pt3dadd(64.44, 929.34, -8.94, 1.13)
	pt3dadd(64.06, 930.47, -8.64, 1.13)
	pt3dadd(63.5, 932.73, -8.86, 1.13)
	pt3dadd(62.55, 934.61, -8.94, 1.13)
	pt3dadd(61.24, 936.31, -9.01, 1.13)
	pt3dadd(61.05, 937.63, -9.01, 1.13)
	pt3dadd(59.92, 938.95, -9.01, 1.13)
	pt3dadd(59.92, 941.21, -9.09, 1.13)
	pt3dadd(60.29, 942.9, -9.09, 1.13)
	pt3dadd(59.92, 944.03, -9.09, 1.13)
	pt3dadd(58.98, 945.16, -9.09, 1.13)
	pt3dadd(58.04, 946.48, -9.09, 1.13)
	pt3dadd(57.28, 947.99, -9.09, 1.13)
	pt3dadd(56.34, 949.68, -9.09, 1.13)
	pt3dadd(54.65, 949.68, -9.09, 1.13)
	pt3dadd(53.89, 950.63, -9.09, 1.13)
	pt3dadd(54.08, 951.94, -9.09, 1.13)
	pt3dadd(54.08, 953.26, -9.09, 1.13)
  }
  apic[49] {pt3dclear()
	pt3dadd(65.94, 928.02, -8.94, 0.94)
	pt3dadd(67.07, 931.6, -7.35, 0.94)
	pt3dadd(67.26, 933.48, -7.27, 0.94)
	pt3dadd(68.2, 935.74, -7.27, 0.94)
	pt3dadd(69.52, 937.63, -7.2, 0.94)
	pt3dadd(70.65, 938.95, -7.2, 0.94)
	pt3dadd(71.03, 940.45, -7.12, 0.94)
	pt3dadd(71.4, 942.34, -7.12, 0.94)
	pt3dadd(72.16, 944.6, -7.12, 0.94)
	pt3dadd(72.16, 947.42, -7.12, 0.94)
	pt3dadd(72.34, 949.68, -7.12, 0.94)
	pt3dadd(72.72, 951.94, -7.04, 0.94)
	pt3dadd(72.91, 954.58, -7.04, 0.94)
	pt3dadd(73.47, 957.41, -7.04, 0.94)
	pt3dadd(73.29, 959.1, -7.04, 0.94)
	pt3dadd(73.1, 961.55, -7.04, 0.94)
	pt3dadd(73.1, 963.43, -7.04, 0.94)
	pt3dadd(72.96, 964.98, -7.04, 0.94)
	pt3dadd(72.77, 968.56, -7.04, 0.94)
	pt3dadd(73.14, 970.82, -7.04, 0.94)
	pt3dadd(73.9, 974.02, -7.04, 0.94)
	pt3dadd(74.09, 977.41, -7.04, 0.94)
	pt3dadd(74.84, 980.05, -7.04, 0.94)
	pt3dadd(75.97, 984.2, -7.04, 0.94)
  }
  apic[50] {pt3dclear()
	pt3dadd(73.85, 888.27, -8.94, 1.13)
  }
}
proc shape3d_21() {
  apic[50] {	pt3dadd(74.09, 889.44, -8.26, 1.13)
	pt3dadd(74.09, 891.89, -8.26, 1.13)
	pt3dadd(74.46, 893.97, -8.26, 1.13)
	pt3dadd(74.09, 896.23, -8.26, 1.13)
	pt3dadd(74.09, 898.67, -8.26, 1.13)
	pt3dadd(75.78, 900.18, -8.26, 1.13)
	pt3dadd(77.66, 901.12, -11.97, 1.32)
	pt3dadd(78.98, 901.88, -12.04, 1.32)
	pt3dadd(79.55, 904.14, -12.12, 1.32)
	pt3dadd(79.73, 906.21, -12.12, 1.32)
	pt3dadd(80.3, 909.6, -12.2, 1.32)
	pt3dadd(80.86, 911.86, -12.2, 1.32)
	pt3dadd(82.56, 913.93, -12.2, 1.32)
  }
  apic[51] {pt3dclear()
	pt3dadd(82.56, 913.93, -12.2, 1.32)
	pt3dadd(83.88, 916.38, -12.73, 1.32)
	pt3dadd(84.44, 919.02, -12.88, 1.32)
	pt3dadd(84.44, 921.66, -12.88, 1.32)
	pt3dadd(86.14, 923.54, -12.88, 1.32)
  }
  apic[52] {pt3dclear()
	pt3dadd(86.14, 923.54, -12.88, 0.94)
	pt3dadd(88.58, 925.24, -18.41, 0.94)
	pt3dadd(91.22, 926.74, -18.41, 0.94)
	pt3dadd(91.6, 928.63, -18.48, 0.94)
	pt3dadd(92.91, 930.51, -18.48, 0.94)
	pt3dadd(95.36, 932.2, -18.48, 0.94)
	pt3dadd(97.43, 934.09, -18.48, 0.94)
  }
  apic[53] {pt3dclear()
	pt3dadd(97.43, 934.09, -18.48, 0.94)
	pt3dadd(100.26, 935.97, -18.48, 0.94)
	pt3dadd(101.2, 938.42, -18.48, 0.94)
	pt3dadd(100.44, 940.12, -18.48, 0.94)
	pt3dadd(100.26, 941.62, -18.48, 0.94)
	pt3dadd(100.07, 943.32, -18.48, 0.94)
	pt3dadd(100.44, 945.77, -18.48, 0.94)
	pt3dadd(101.76, 947.46, -18.48, 0.94)
	pt3dadd(104.21, 948.4, -18.48, 0.94)
	pt3dadd(106.28, 948.97, -18.48, 0.94)
	pt3dadd(107.6, 949.91, -18.48, 0.94)
	pt3dadd(108.54, 951.42, -18.48, 0.94)
	pt3dadd(109.67, 953.11, -18.48, 0.94)
	pt3dadd(110.99, 954.62, -18.48, 0.94)
	pt3dadd(112.68, 955.94, -17.04, 0.94)
	pt3dadd(115.13, 955.75, -16.89, 0.94)
	pt3dadd(116.82, 955, -16.82, 0.94)
	pt3dadd(118.52, 955.19, -16.74, 0.94)
	pt3dadd(119.65, 955.94, -16.74, 0.94)
	pt3dadd(122.28, 955.94, -16.66, 0.94)
	pt3dadd(124.36, 955.94, -16.66, 0.94)
	pt3dadd(126.8, 955.94, -14.01, 0.94)
	pt3dadd(130.19, 956.13, -13.86, 0.94)
	pt3dadd(130.95, 957.07, -13.86, 0.94)
	pt3dadd(132.83, 958.58, -13.79, 0.94)
	pt3dadd(135.46, 958.58, -13.71, 0.94)
	pt3dadd(136.97, 959.52, -13.71, 0.94)
	pt3dadd(138.29, 960.27, -13.71, 0.94)
	pt3dadd(139.61, 961.59, -13.71, 0.94)
	pt3dadd(140.36, 964.04, -13.71, 0.94)
	pt3dadd(141.87, 965.92, -13.64, 0.94)
	pt3dadd(143, 967.24, -13.64, 0.94)
	pt3dadd(144.5, 968.75, -13.64, 0.94)
	pt3dadd(145.82, 970.44, -13.64, 0.94)
	pt3dadd(148.08, 973.27, -13.64, 0.94)
	pt3dadd(149.21, 975.15, -13.64, 0.94)
	pt3dadd(150.15, 977.41, -13.64, 0.94)
	pt3dadd(151.66, 978.36, -13.64, 0.94)
	pt3dadd(153.54, 980.43, -13.64, 0.94)
	pt3dadd(154.67, 982.69, -13.64, 0.94)
	pt3dadd(155.99, 983.25, -13.64, 0.94)
	pt3dadd(156.93, 984.76, -13.64, 0.94)
	pt3dadd(158.06, 986.64, -13.64, 0.94)
	pt3dadd(159.56, 989.09, -13.64, 0.94)
	pt3dadd(159.94, 991.54, -13.64, 0.94)
	pt3dadd(160.5, 993.61, -13.64, 0.94)
	pt3dadd(160.69, 995.87, -13.64, 0.94)
	pt3dadd(162.2, 996.82, -13.64, 0.94)
	pt3dadd(163.71, 997, -13.64, 0.94)
	pt3dadd(165.78, 997.95, -13.64, 0.94)
	pt3dadd(166.91, 1000.02, -13.64, 0.94)
	pt3dadd(168.79, 1001.15, -13.64, 0.94)
	pt3dadd(171.05, 1001.53, -13.64, 0.94)
	pt3dadd(173.12, 1002.09, -13.64, 0.94)
	pt3dadd(175.19, 1002.66, -13.64, 0.94)
	pt3dadd(177.07, 1004.73, -13.64, 0.94)
	pt3dadd(178.96, 1003.79, -13.64, 0.94)
	pt3dadd(181.78, 1003.03, -13.64, 0.94)
	pt3dadd(183.29, 1002.84, -13.64, 0.94)
	pt3dadd(184.79, 1003.41, -13.64, 0.94)
	pt3dadd(187.24, 1004.16, -13.64, 0.94)
	pt3dadd(188.75, 1003.22, -13.64, 0.94)
	pt3dadd(190.82, 1001.71, -13.64, 0.94)
	pt3dadd(192.32, 1002.47, -13.64, 0.94)
	pt3dadd(193.08, 1003.97, -13.56, 0.94)
	pt3dadd(194.58, 1005.86, -13.64, 0.94)
	pt3dadd(195.52, 1006.61, -13.64, 0.94)
	pt3dadd(196.84, 1007.37, -13.64, 0.94)
	pt3dadd(199.29, 1008.12, -13.56, 0.94)
	pt3dadd(201.02, 1008.69, -13.56, 0.94)
	pt3dadd(203.09, 1009.06, -13.56, 0.94)
	pt3dadd(204.22, 1009.25, -13.56, 0.94)
	pt3dadd(205.72, 1008.69, -13.71, 0.94)
	pt3dadd(207.04, 1007.18, -13.86, 0.94)
	pt3dadd(208.74, 1007.18, -14.17, 0.94)
	pt3dadd(210.99, 1007.37, -8.86, 0.94)
	pt3dadd(212.69, 1006.43, -8.56, 0.94)
	pt3dadd(214.2, 1005.67, -8.48, 0.94)
	pt3dadd(215.32, 1004.35, -8.48, 0.94)
	pt3dadd(216.27, 1003.22, -8.41, 0.94)
  }
  apic[54] {pt3dclear()
	pt3dadd(97.43, 934.09, -18.48, 1.13)
	pt3dadd(97.65, 935.79, -17.5, 1.13)
	pt3dadd(96.71, 939.37, -17.42, 1.13)
	pt3dadd(96.15, 941.25, -17.42, 1.13)
	pt3dadd(94.64, 940.87, -17.35, 1.13)
	pt3dadd(92.19, 941.06, -17.35, 1.13)
	pt3dadd(91.44, 942.57, -17.35, 1.13)
	pt3dadd(93.32, 943.51, -17.27, 1.13)
	pt3dadd(95.39, 944.45, -22.27, 1.13)
	pt3dadd(97.84, 945.96, -22.42, 1.13)
	pt3dadd(99.54, 947.65, -22.5, 1.13)
	pt3dadd(100.48, 949.16, -22.5, 1.13)
	pt3dadd(101.04, 951.23, -22.5, 1.13)
	pt3dadd(103.49, 952.74, -22.5, 1.13)
	pt3dadd(104.62, 953.68, -22.5, 1.13)
	pt3dadd(105.18, 955.19, -22.5, 1.13)
	pt3dadd(106.5, 958.01, -27.88, 1.13)
	pt3dadd(107.63, 960.46, -27.95, 1.13)
	pt3dadd(109.14, 962.35, -27.95, 1.13)
	pt3dadd(108.95, 964.04, -27.95, 1.13)
	pt3dadd(109.14, 965.93, -27.95, 1.13)
	pt3dadd(111.21, 968.19, -31.51, 1.13)
	pt3dadd(113.47, 969.69, -31.66, 1.13)
	pt3dadd(114.6, 971.77, -31.74, 1.13)
	pt3dadd(113.66, 974.03, -31.74, 1.13)
	pt3dadd(115.16, 975.91, -32.35, 1.13)
	pt3dadd(115.54, 977.04, -32.42, 1.13)
	pt3dadd(115.35, 978.55, -34.09, 1.13)
	pt3dadd(115.73, 980.05, -34.62, 1.13)
	pt3dadd(117.04, 981.94, -35.15, 1.13)
	pt3dadd(116.1, 982.69, -36.36, 1.13)
	pt3dadd(115.16, 983.44, -36.51, 1.13)
	pt3dadd(115.54, 985.52, -36.89, 1.13)
	pt3dadd(115.35, 987.02, -37.5, 1.13)
	pt3dadd(115.35, 989.1, -38.71, 1.13)
	pt3dadd(115.73, 990.6, -39.47, 1.13)
	pt3dadd(115.73, 991.92, -40.3, 1.13)
	pt3dadd(115.35, 993.43, -40.98, 1.13)
	pt3dadd(114.6, 994.37, -41.74, 1.13)
	pt3dadd(113.28, 996.25, -42.65, 1.13)
	pt3dadd(115.35, 997.2, -43.63, 1.13)
	pt3dadd(116.1, 998.33, -43.71, 1.13)
	pt3dadd(116.48, 1000.02, -43.78, 1.13)
	pt3dadd(116.29, 1001.9, -44.77, 1.13)
	pt3dadd(117.23, 1003.6, -44.84, 1.13)
	pt3dadd(117.61, 1005.11, -45.15, 1.13)
	pt3dadd(117.04, 1006.43, -45.75, 1.13)
	pt3dadd(117.23, 1008.69, -45.98, 1.13)
	pt3dadd(118.17, 1009.63, -45.98, 1.13)
	pt3dadd(118.93, 1011.13, -46.06, 1.13)
	pt3dadd(120.25, 1013.4, -46.06, 1.13)
	pt3dadd(119.49, 1015.66, -46.06, 1.13)
	pt3dadd(118.74, 1017.35, -46.06, 1.13)
	pt3dadd(116.86, 1018.48, -46.06, 1.13)
	pt3dadd(114.97, 1018.1, -46.13, 1.13)
  }
  apic[55] {pt3dclear()
	pt3dadd(86.14, 923.54, -12.88, 1.13)
	pt3dadd(87.45, 923.31, -16.21, 1.13)
	pt3dadd(88.77, 923.31, -16.36, 1.13)
	pt3dadd(89.52, 924.63, -16.36, 1.13)
	pt3dadd(89.33, 926.51, -16.74, 1.13)
	pt3dadd(89.71, 927.64, -16.89, 1.13)
	pt3dadd(89.71, 929.53, -17.12, 1.13)
	pt3dadd(89.9, 931.03, -17.65, 1.13)
	pt3dadd(89.9, 932.35, -18.48, 1.13)
	pt3dadd(90.65, 934.23, -18.63, 1.13)
	pt3dadd(91.4, 935.74, -18.63, 1.13)
	pt3dadd(91.78, 939.32, -18.71, 1.13)
	pt3dadd(92.35, 940.26, -20.6, 1.13)
	pt3dadd(93.48, 940.83, -20.6, 1.13)
	pt3dadd(94.04, 942.52, -20.6, 1.13)
	pt3dadd(94.61, 944.78, -20.6, 1.13)
	pt3dadd(96.3, 945.73, -20.6, 1.13)
	pt3dadd(96.49, 948.17, -21.06, 1.13)
	pt3dadd(95.36, 949.49, -22.04, 1.13)
	pt3dadd(94.04, 950.06, -24.92, 1.13)
	pt3dadd(92.91, 950.81, -26.89, 1.13)
	pt3dadd(92.91, 951.75, -27.27, 1.13)
	pt3dadd(93.85, 952.88, -28.1, 1.13)
	pt3dadd(94.79, 955.14, -29.16, 1.13)
	pt3dadd(95.92, 956.46, -29.39, 1.13)
	pt3dadd(96.11, 960.61, -29.92, 1.13)
	pt3dadd(95.74, 961.55, -30.38, 1.13)
	pt3dadd(95.36, 962.68, -31.44, 1.13)
	pt3dadd(94.42, 965.88, -31.66, 1.13)
	pt3dadd(95.17, 967.39, -35.22, 1.13)
	pt3dadd(95.36, 968.9, -35.38, 1.13)
	pt3dadd(96.11, 971.16, -35.38, 1.13)
	pt3dadd(97.43, 972.47, -35.45, 1.13)
	pt3dadd(96.86, 974.17, -35.68, 1.13)
	pt3dadd(96.68, 975.68, -36.51, 1.13)
	pt3dadd(96.68, 977.37, -37.72, 1.13)
	pt3dadd(96.3, 978.69, -38.48, 1.13)
	pt3dadd(95.36, 979.26, -39.31, 1.13)
	pt3dadd(94.61, 980.57, -39.69, 1.13)
	pt3dadd(93.85, 982.08, -40, 1.13)
  }
}
proc shape3d_22() {
  apic[55] {	pt3dadd(94.61, 983.59, -40.45, 1.13)
	pt3dadd(95.17, 984.53, -41.06, 1.13)
	pt3dadd(96.49, 987.73, -41.51, 1.13)
	pt3dadd(96.68, 990.18, -42.04, 1.13)
	pt3dadd(95.36, 993.01, -42.65, 1.13)
	pt3dadd(93.66, 994.89, -43.56, 1.13)
	pt3dadd(91.97, 996.77, -44.62, 1.13)
	pt3dadd(90.84, 997.34, -45.3, 1.13)
	pt3dadd(88.96, 997.34, -45.98, 1.13)
	pt3dadd(87.64, 998.47, -46.59, 1.13)
	pt3dadd(85.94, 999.98, -47.27, 1.13)
	pt3dadd(84.06, 1002.05, -47.27, 1.13)
	pt3dadd(81.24, 1001.86, -47.34, 1.13)
	pt3dadd(80.86, 1002.61, -47.34, 1.13)
	pt3dadd(80.67, 1005.06, -47.5, 1.13)
	pt3dadd(79.73, 1006.57, -47.5, 1.13)
	pt3dadd(78.23, 1007.32, -47.5, 1.13)
	pt3dadd(76.56, 1008.03, -49.77, 1.13)
	pt3dadd(74.3, 1007.09, -49.84, 1.13)
	pt3dadd(73.36, 1007.27, -49.84, 1.13)
	pt3dadd(72.42, 1008.22, -49.92, 1.13)
	pt3dadd(71.1, 1008.4, -52.34, 1.13)
	pt3dadd(69.03, 1007.84, -54.09, 1.13)
	pt3dadd(66.96, 1007.27, -55.68, 1.13)
	pt3dadd(66.02, 1007.84, -55.9, 1.13)
	pt3dadd(65.83, 1008.97, -56.66, 1.13)
	pt3dadd(65.27, 1009.72, -56.89, 1.13)
	pt3dadd(64.14, 1010.48, -57.27, 1.13)
	pt3dadd(63.19, 1011.23, -57.87, 1.13)
	pt3dadd(63.01, 1011.98, -58.18, 1.13)
	pt3dadd(62.82, 1013.49, -59.99, 1.13)
	pt3dadd(61.31, 1014.43, -61.51, 1.13)
	pt3dadd(59.99, 1014.43, -62.34, 1.13)
	pt3dadd(58.49, 1013.3, -63.1, 1.13)
	pt3dadd(56.98, 1012.93, -63.86, 1.13)
	pt3dadd(55.66, 1013.68, -64.77, 1.13)
	pt3dadd(54.72, 1014.81, -65.3, 1.13)
	pt3dadd(52.84, 1014.81, -65.98, 1.13)
	pt3dadd(50.39, 1015.75, -66.51, 1.13)
	pt3dadd(48.13, 1015.56, -66.96, 1.13)
	pt3dadd(47, 1015.94, -68.02, 1.13)
	pt3dadd(45.87, 1016.88, -68.25, 1.13)
	pt3dadd(45.68, 1018.01, -69.08, 1.13)
	pt3dadd(44.56, 1018.01, -69.39, 1.13)
	pt3dadd(42.3, 1018.39, -70.45, 1.13)
	pt3dadd(40.98, 1018.58, -70.67, 1.13)
	pt3dadd(40.22, 1019.9, -71.96, 1.13)
	pt3dadd(39.28, 1021.21, -71.81, 1.13)
	pt3dadd(38.72, 1021.97, -68.4, 1.13)
	pt3dadd(37.02, 1023.85, -67.95, 1.13)
	pt3dadd(36.65, 1025.17, -67.27, 1.13)
	pt3dadd(36.46, 1026.68, -66.96, 1.13)
	pt3dadd(35.33, 1027.24, -66.81, 1.13)
	pt3dadd(34.2, 1027.43, -66.51, 1.13)
	pt3dadd(32.69, 1027.62, -66.28, 1.13)
	pt3dadd(30.62, 1027.62, -66.21, 1.13)
	pt3dadd(29.49, 1028.18, -66.21, 1.13)
	pt3dadd(28.55, 1028.94, -66.36, 1.13)
	pt3dadd(27.99, 1029.5, -66.58, 1.13)
	pt3dadd(27.05, 1031.76, -66.74, 1.13)
	pt3dadd(25.73, 1031.57, -68.55, 1.13)
	pt3dadd(23.47, 1032.89, -68.63, 1.13)
	pt3dadd(23.47, 1034.4, -68.71, 1.13)
	pt3dadd(23.84, 1036.85, -71.05, 1.13)
	pt3dadd(24.22, 1038.36, -71.13, 1.13)
	pt3dadd(23.09, 1038.92, -71.13, 1.13)
	pt3dadd(22.53, 1039.86, -76.05, 1.13)
	pt3dadd(22.15, 1041.18, -76.13, 1.13)
	pt3dadd(23.09, 1043.25, -76.13, 1.13)
	pt3dadd(22.34, 1043.25, -76.13, 1.13)
	pt3dadd(21.4, 1041.56, -78.78, 1.13)
	pt3dadd(19.89, 1040.99, -78.86, 1.13)
	pt3dadd(18.57, 1040.99, -78.93, 1.13)
	pt3dadd(17.07, 1042.5, -79.01, 1.13)
	pt3dadd(16.5, 1043.63, -79.01, 1.13)
	pt3dadd(18.38, 1044.2, -85.14, 1.13)
	pt3dadd(18.76, 1045.14, -85.14, 1.13)
	pt3dadd(18.57, 1047.21, -85.14, 1.13)
  }
  apic[56] {pt3dclear()
	pt3dadd(82.56, 913.93, -12.2, 1.13)
	pt3dadd(84.42, 914.56, -14.62, 1.13)
	pt3dadd(86.68, 915.13, -14.7, 1.13)
	pt3dadd(88.93, 914.37, -14.77, 1.13)
	pt3dadd(91.01, 912.49, -15.53, 1.13)
	pt3dadd(92.7, 911.36, -15.98, 1.13)
	pt3dadd(94.58, 910.98, -16.97, 1.13)
	pt3dadd(95.9, 910.98, -17.8, 1.13)
	pt3dadd(97.6, 911.36, -18.33, 1.13)
	pt3dadd(99.1, 912.11, -18.79, 1.13)
	pt3dadd(99.85, 913.62, -19.01, 1.13)
	pt3dadd(101.17, 914.75, -19.09, 1.13)
	pt3dadd(103.62, 914.56, -19.54, 1.13)
	pt3dadd(104.75, 913.81, -20.91, 1.13)
	pt3dadd(105.31, 912.11, -21.13, 1.13)
	pt3dadd(107.01, 911.17, -21.36, 1.13)
	pt3dadd(108.89, 910.8, -21.82, 1.13)
	pt3dadd(109.83, 910.61, -21.97, 1.13)
	pt3dadd(111.53, 910.8, -22.19, 1.13)
	pt3dadd(112.85, 910.61, -23.71, 1.13)
	pt3dadd(115.48, 909.67, -23.71, 1.13)
	pt3dadd(114.73, 908.16, -23.71, 1.13)
	pt3dadd(113.41, 909.48, -23.71, 1.13)
	pt3dadd(115.1, 910.8, -23.71, 1.13)
	pt3dadd(116.99, 912.68, -25.98, 1.13)
	pt3dadd(118.87, 913.06, -26.29, 1.13)
	pt3dadd(119.81, 914.19, -26.36, 1.13)
	pt3dadd(119.62, 915.69, -26.36, 1.13)
	pt3dadd(120.56, 918.14, -26.51, 1.13)
	pt3dadd(122.82, 918.71, -26.51, 1.13)
	pt3dadd(123.95, 920.4, -31.13, 1.13)
	pt3dadd(124.33, 923.04, -31.44, 1.13)
	pt3dadd(122.45, 924.36, -31.82, 1.13)
	pt3dadd(121.88, 926.81, -31.89, 1.13)
	pt3dadd(122.45, 928.31, -31.97, 1.13)
	pt3dadd(123.39, 930.39, -32.04, 1.13)
	pt3dadd(122.45, 932.08, -32.12, 1.13)
	pt3dadd(123.77, 933.96, -32.19, 1.13)
	pt3dadd(125.84, 935.28, -36.51, 1.13)
	pt3dadd(128.66, 935.1, -36.89, 1.13)
	pt3dadd(130.36, 936.23, -37.5, 1.13)
	pt3dadd(131.86, 938.11, -37.72, 1.13)
	pt3dadd(134.12, 938.11, -37.72, 1.13)
	pt3dadd(134.69, 942.06, -37.8, 1.13)
	pt3dadd(136.57, 943.01, -45.98, 1.13)
	pt3dadd(138.64, 944.7, -47.12, 1.13)
	pt3dadd(138.64, 946.21, -47.27, 1.13)
	pt3dadd(139.39, 947.9, -47.42, 1.13)
	pt3dadd(140.15, 949.6, -47.8, 1.13)
	pt3dadd(140.52, 950.54, -48.56, 1.13)
	pt3dadd(141.09, 952.61, -50.83, 1.13)
	pt3dadd(141.28, 954.12, -50.9, 1.13)
	pt3dadd(142.97, 955.44, -50.9, 1.13)
	pt3dadd(144.48, 955.63, -50.9, 1.13)
	pt3dadd(145.79, 957.32, -56.21, 1.13)
	pt3dadd(146.74, 959.02, -56.36, 1.13)
	pt3dadd(147.49, 960.53, -56.36, 1.13)
	pt3dadd(147.68, 962.6, -56.36, 1.13)
	pt3dadd(147.49, 964.67, -56.96, 1.13)
	pt3dadd(147.49, 966.55, -61.81, 1.13)
	pt3dadd(150.12, 967.12, -61.89, 1.13)
	pt3dadd(151.63, 968.44, -61.89, 1.13)
	pt3dadd(152.95, 970.7, -63.48, 1.13)
	pt3dadd(153.51, 972.58, -64.16, 1.13)
	pt3dadd(153.89, 974.46, -65.75, 1.13)
	pt3dadd(154.45, 975.97, -66.36, 1.13)
	pt3dadd(156.15, 977.86, -66.43, 1.13)
	pt3dadd(156.71, 979.36, -67.04, 1.13)
	pt3dadd(157.09, 980.87, -69.16, 1.13)
	//pt3dadd(158.6, 981.62, -138.48, 1.13)
  }
  apic[57] {pt3dclear()
	pt3dadd(59.49, 761.27, -4.62, 1.13)
	pt3dadd(60.39, 763.46, -4.17, 1.13)
	pt3dadd(61.9, 764.59, -3.94, 1.13)
	pt3dadd(63.78, 766.09, -3.86, 1.13)
	pt3dadd(65.85, 766.85, -3.79, 1.13)
	pt3dadd(67.92, 767.79, -3.79, 1.13)
	pt3dadd(69.62, 768.92, -3.79, 1.13)
	pt3dadd(70.94, 769.86, -3.71, 1.13)
  }
  apic[58] {pt3dclear()
	pt3dadd(26.39, 562.79, 0, 1.51)
	pt3dadd(27.54, 562.82, -3.79, 1.51)
	pt3dadd(29.42, 562.25, -3.94, 1.51)
	pt3dadd(30.55, 562.25, -4.01, 1.51)
	pt3dadd(32.62, 562.25, -4.01, 1.51)
	pt3dadd(33.75, 563.38, -4.09, 1.51)
	pt3dadd(35.26, 564.14, -4.09, 1.51)
	pt3dadd(37.7, 564.7, -5.91, 1.51)
	pt3dadd(39.21, 565.83, -6.14, 1.51)
	pt3dadd(39.4, 567.72, -8.11, 2.07)
	pt3dadd(39.78, 569.6, -8.11, 2.07)
	pt3dadd(39.4, 571.67, -8.11, 1.51)
	pt3dadd(37.89, 572.43, -8.11, 1.51)
	pt3dadd(35.63, 573.56, -8.11, 1.51)
	pt3dadd(36.95, 571.67, -11.14, 1.13)
	pt3dadd(37.89, 569.6, -11.21, 1.13)
	pt3dadd(39.59, 568.47, -11.21, 1.13)
	pt3dadd(40.91, 567.34, -17.42, 1.13)
	pt3dadd(42.04, 566.4, -17.73, 1.13)
	pt3dadd(43.35, 565.27, -17.8, 1.13)
	pt3dadd(45.61, 564.14, -17.8, 1.13)
  }
  apic[59] {pt3dclear()
	pt3dadd(19.26, 221.54, 2.65, 2.07)
	pt3dadd(16.86, 222.45, 0.23, 2.07)
	pt3dadd(14.23, 223.96, 0.23, 2.07)
	pt3dadd(12.72, 225.65, 0.23, 2.07)
	pt3dadd(10.84, 226.78, 0.23, 2.07)
	pt3dadd(8.77, 227.73, 0.15, 2.07)
	pt3dadd(7.64, 229.42, 0.15, 2.07)
	pt3dadd(6.7, 231.49, 0.15, 2.07)
	pt3dadd(5.75, 233, 0.15, 2.07)
	pt3dadd(5, 235.26, 0.15, 2.07)
	pt3dadd(3.49, 236.77, 0.15, 2.07)
	pt3dadd(1.42, 237.9, 0.15, 2.07)
	pt3dadd(-1.21, 239.22, 0.15, 2.07)
	pt3dadd(-4.04, 240.16, 0.15, 2.07)
	pt3dadd(-6.11, 240.91, 0.15, 2.07)
	pt3dadd(-8.74, 241.29, 0.15, 2.07)
	pt3dadd(-11.19, 241.48, -0.83, 2.07)
	pt3dadd(-13.26, 242.23, -0.83, 2.07)
	pt3dadd(-15.33, 243.17, -0.91, 2.07)
	pt3dadd(-17.4, 244.68, -0.91, 2.07)
	pt3dadd(-20.23, 244.11, -0.91, 2.07)
	pt3dadd(-22.49, 243.36, -0.91, 2.07)
	pt3dadd(-25.12, 242.98, -1.97, 2.07)
  }
}
proc shape3d_23() {
  apic[59] {	pt3dadd(-27.38, 243.55, -2.05, 2.07)
	pt3dadd(-29.64, 244.68, -2.2, 2.07)
	pt3dadd(-31.15, 246, -2.58, 2.07)
	pt3dadd(-32.28, 248.82, -3.64, 2.07)
	pt3dadd(-34.16, 250.71, -3.86, 2.07)
	pt3dadd(-36.04, 252.4, -3.94, 2.07)
	pt3dadd(-38.49, 253.53, -3.94, 2.07)
	pt3dadd(-42.26, 255.04, -4.09, 2.07)
  }
  apic[60] {pt3dclear()
	pt3dadd(-42.26, 255.04, -4.09, 1.69)
	pt3dadd(-43.39, 257.11, -3.56, 1.69)
	pt3dadd(-46.02, 257.86, -5.15, 1.69)
	pt3dadd(-48.28, 257.49, -6.67, 1.69)
	pt3dadd(-50.54, 257.3, -7.57, 1.69)
	pt3dadd(-52.8, 258.43, -7.73, 1.69)
	pt3dadd(-53.74, 259.94, -8.03, 1.69)
	pt3dadd(-53.74, 262.39, -8.86, 1.69)
	pt3dadd(-53.74, 264.83, -6.74, 1.69)
	pt3dadd(-54.68, 266.72, -6.44, 1.69)
	pt3dadd(-56.19, 267.85, -6.29, 1.69)
	pt3dadd(-57.7, 268.41, -6.21, 1.69)
	pt3dadd(-59.58, 268.6, -6.14, 1.69)
	pt3dadd(-61.46, 268.98, -6.14, 1.69)
	pt3dadd(-63.53, 270.11, -6.14, 1.69)
	pt3dadd(-65.23, 271.43, -6.06, 1.69)
	pt3dadd(-67.3, 273.12, -6.06, 1.69)
	pt3dadd(-68.8, 274.82, -6.06, 1.69)
	pt3dadd(-69.74, 277.08, -5.08, 1.69)
	pt3dadd(-71.82, 278.59, -4.92, 1.69)
	pt3dadd(-73.7, 280.47, -4.77, 1.51)
	pt3dadd(-75.02, 282.54, -2.95, 1.51)
	pt3dadd(-76.52, 284.24, -2.88, 1.51)
	pt3dadd(-77.09, 286.5, -2.8, 1.51)
	pt3dadd(-76.52, 288.76, -2.8, 1.51)
	pt3dadd(-76.71, 291.02, -2.73, 1.51)
	pt3dadd(-77.84, 293.47, -2.73, 1.51)
	pt3dadd(-79.35, 295.54, -2.65, 1.51)
	pt3dadd(-80.85, 297.61, -2.65, 1.51)
	pt3dadd(-81.79, 298.18, -0.83, 1.51)
	pt3dadd(-83.3, 298.93, -0.76, 1.51)
	pt3dadd(-84.62, 301.19, -0.68, 1.51)
	pt3dadd(-86.12, 302.7, -0.68, 1.51)
	pt3dadd(-85.18, 303.64, -0.61, 1.51)
	pt3dadd(-83.68, 304.58, -0.61, 1.51)
	pt3dadd(-84.81, 305.52, 1.67, 1.51)
	pt3dadd(-86.48, 304.93, 3.03, 1.51)
	pt3dadd(-88.37, 304.37, 3.11, 1.51)
	pt3dadd(-90.06, 304.56, 3.26, 1.51)
	pt3dadd(-91.38, 305.31, 6.36, 1.51)
	pt3dadd(-92.89, 306.25, 7.5, 1.51)
	pt3dadd(-94.96, 306.06, 7.95, 1.51)
	pt3dadd(-96.28, 305.12, 8.03, 1.51)
  }
  apic[61] {pt3dclear()
	pt3dadd(-42.26, 255.04, -4.09, 1.69)
	pt3dadd(-43.93, 253.7, -6.67, 1.69)
	pt3dadd(-46.01, 252, -6.97, 1.69)
	pt3dadd(-47.89, 251.44, -7.12, 1.69)
	pt3dadd(-50.34, 251.06, -7.27, 1.69)
	pt3dadd(-52.41, 249.74, -7.35, 1.69)
	pt3dadd(-54.67, 248.61, -7.42, 1.69)
	pt3dadd(-56.36, 248.04, -7.42, 1.69)
	pt3dadd(-58.62, 248.99, -7.5, 1.69)
	pt3dadd(-60.88, 249.93, -7.5, 1.69)
	pt3dadd(-61.82, 251.81, -7.5, 1.69)
	pt3dadd(-63.14, 254.64, -7.5, 1.69)
	pt3dadd(-63.52, 256.9, -7.57, 1.69)
	pt3dadd(-63.52, 258.59, -7.57, 1.69)
	pt3dadd(-65.02, 260.67, -7.57, 1.69)
	pt3dadd(-68.03, 262.36, -7.57, 1.69)
  }
  apic[62] {pt3dclear()
	pt3dadd(-68.03, 262.36, -7.57, 1.69)
	pt3dadd(-70.48, 263.11, -7.57, 1.69)
	pt3dadd(-72.93, 263.87, -7.57, 1.69)
	pt3dadd(-74.44, 265.56, -7.65, 1.51)
	pt3dadd(-76.51, 266.5, -7.65, 1.51)
	pt3dadd(-78.58, 267.82, -7.65, 1.51)
	pt3dadd(-80.84, 268.95, -7.65, 1.51)
	pt3dadd(-82.72, 270.65, -7.65, 1.51)
	pt3dadd(-84.41, 272.91, -7.65, 1.51)
	pt3dadd(-86.67, 276.11, -7.65, 1.51)
	pt3dadd(-88.18, 277.81, -7.65, 1.51)
	pt3dadd(-90.06, 279.31, -7.65, 1.51)
	pt3dadd(-92.32, 280.82, -7.27, 1.51)
	pt3dadd(-95.52, 281.76, -7.12, 1.51)
	pt3dadd(-98.53, 282.14, -7.12, 1.51)
	pt3dadd(-100.61, 282.14, -7.04, 1.51)
	pt3dadd(-102.49, 282.33, -7.04, 1.51)
	pt3dadd(-104.37, 284.78, -6.97, 1.51)
	pt3dadd(-107.01, 285.34, -6.97, 1.51)
	pt3dadd(-109.45, 285.53, -6.97, 1.51)
	pt3dadd(-111.53, 286.85, -7.04, 1.51)
	pt3dadd(-113.22, 288.17, -7.04, 1.51)
	pt3dadd(-114.91, 290.05, -7.04, 1.51)
  }
  apic[63] {pt3dclear()
	pt3dadd(-68.03, 262.36, -7.57, 1.51)
	pt3dadd(-69.16, 264.24, -7.57, 1.51)
	pt3dadd(-69.73, 265.75, -7.8, 1.51)
	pt3dadd(-71.8, 266.88, -7.95, 1.51)
	pt3dadd(-72.93, 268.77, -8.11, 1.51)
	pt3dadd(-74.44, 269.9, -8.11, 1.51)
	pt3dadd(-76.13, 270.08, -8.18, 1.51)
	pt3dadd(-77.26, 271.4, -8.18, 1.51)
	pt3dadd(-78.77, 272.91, -8.26, 1.51)
	pt3dadd(-80.08, 275.17, -8.56, 1.51)
	pt3dadd(-80.46, 277.43, -9.77, 1.51)
	pt3dadd(-80.27, 279.5, -10.07, 1.51)
	pt3dadd(-81.02, 282.14, -11.14, 1.51)
	pt3dadd(-81.97, 284.21, -11.21, 1.51)
	pt3dadd(-81.97, 286.28, -11.21, 1.51)
	pt3dadd(-83.1, 287.98, -11.29, 1.51)
	pt3dadd(-84.04, 289.3, -11.29, 1.51)
	pt3dadd(-84.98, 291.18, -11.82, 1.51)
	pt3dadd(-86.67, 292.88, -12.04, 1.51)
	pt3dadd(-87.61, 294.2, -12.12, 1.51)
	pt3dadd(-88.37, 295.7, -12.12, 1.51)
	pt3dadd(-88.56, 297.96, -13.18, 1.51)
	pt3dadd(-90.25, 300.03, -13.41, 1.51)
	pt3dadd(-92.32, 301.35, -13.48, 1.51)
	pt3dadd(-93.83, 302.3, -13.64, 1.51)
	pt3dadd(-94.77, 303.8, -13.71, 1.51)
	pt3dadd(-97.22, 304.93, -13.79, 1.51)
  }
  apic[64] {pt3dclear()
	pt3dadd(19.26, 209.3, 2.65, 2.45)
	pt3dadd(20.42, 210.4, 7.88, 2.45)
	pt3dadd(21.92, 211.35, 8.18, 2.45)
	pt3dadd(23.8, 212.85, 8.48, 2.45)
	pt3dadd(25.88, 214.17, 8.86, 2.45)
  }
  apic[65] {pt3dclear()
	pt3dadd(25.88, 214.17, 8.86, 1.88)
	pt3dadd(26.63, 216.43, 10.83, 1.88)
	pt3dadd(27.19, 218.5, 10.91, 1.88)
	pt3dadd(26.44, 219.63, 10.91, 1.88)
	pt3dadd(25.5, 220.58, 10.98, 1.69)
	pt3dadd(24.56, 222.65, 10.98, 1.32)
	pt3dadd(25.31, 223.4, 10.98, 1.32)
	pt3dadd(27.57, 222.84, 12.57, 1.32)
	pt3dadd(30.58, 223.03, 12.73, 1.13)
	pt3dadd(32.47, 222.65, 12.8, 1.13)
	pt3dadd(34.54, 222.65, 12.8, 1.13)
	pt3dadd(36.61, 223.59, 12.8, 1.13)
	pt3dadd(38.11, 224.91, 13.26, 1.13)
	pt3dadd(38.3, 226.23, 13.94, 1.13)
	pt3dadd(37.93, 227.92, 15.15, 1.13)
	pt3dadd(38.87, 229.24, 15.38, 1.13)
	pt3dadd(41.31, 230.37, 15.38, 1.13)
	pt3dadd(40.37, 230.94, 15.45, 1.13)
	pt3dadd(40, 233.2, 15.76, 1.13)
	pt3dadd(38.68, 234.52, 15.83, 1.13)
	pt3dadd(39.06, 235.83, 15.91, 1.13)
	pt3dadd(38.11, 236.59, 15.91, 1.13)
	pt3dadd(38.68, 238.85, 15.91, 1.13)
	pt3dadd(36.42, 239.04, 15.98, 0.75)
	pt3dadd(34.72, 238.47, 15.98, 0.75)
	pt3dadd(34.72, 239.98, 15.98, 0.75)
	pt3dadd(35.48, 241.67, 15.98, 0.38)
	pt3dadd(33.97, 243.56, 15.98, 0.38)
  }
  apic[66] {pt3dclear()
	pt3dadd(25.88, 214.17, 8.86, 1.32)
	pt3dadd(28.51, 214.17, 11.97, 1.32)
	pt3dadd(29.83, 215.68, 12.04, 1.32)
	pt3dadd(31.34, 217.56, 12.04, 1.32)
	pt3dadd(32.09, 219.82, 12.12, 1.32)
	pt3dadd(30.96, 221.71, 12.12, 1.32)
	pt3dadd(30.77, 223.03, 12.12, 1.32)
	pt3dadd(31.52, 224.91, 12.12, 1.32)
	pt3dadd(33.41, 225.29, 12.12, 1.32)
	pt3dadd(33.41, 226.6, 18.71, 1.13)
	pt3dadd(34.54, 228.11, 18.79, 1.13)
	pt3dadd(33.03, 228.3, 18.86, 1.13)
	pt3dadd(33.03, 230.18, 18.86, 1.13)
	pt3dadd(33.41, 232.07, 18.86, 1.13)
	pt3dadd(31.9, 233.57, 18.86, 1.13)
	pt3dadd(30.21, 235.65, 18.94, 1.13)
  }
  apic[67] {pt3dclear()
	pt3dadd(15.87, 190.27, 2.73, 1.69)
	pt3dadd(17.03, 191, -0.45, 1.69)
	pt3dadd(19.85, 190.81, -0.76, 1.69)
	pt3dadd(21.36, 190.25, -0.91, 1.69)
	pt3dadd(24.37, 189.87, -0.98, 1.69)
	pt3dadd(26.63, 190.06, -1.14, 1.69)
	pt3dadd(29.26, 190.06, -1.51, 1.69)
	pt3dadd(32.28, 190.25, -9.32, 1.69)
	pt3dadd(35.29, 189.68, -9.39, 1.69)
	pt3dadd(35.29, 186.67, -9.47, 1.69)
	pt3dadd(37.17, 184.97, -9.47, 1.69)
	pt3dadd(39.24, 184.41, -9.47, 1.69)
	pt3dadd(40.37, 186.48, -16.21, 1.69)
	pt3dadd(41.31, 189.31, -16.59, 1.69)
	pt3dadd(42.26, 191.19, -16.66, 1.69)
	pt3dadd(44.33, 191.38, -16.74, 1.69)
	pt3dadd(44.89, 189.12, -17.42, 1.69)
	pt3dadd(43.95, 186.29, -24.54, 1.69)
	pt3dadd(43.95, 184.41, -24.62, 1.69)
	pt3dadd(44.89, 182.34, -24.69, 1.69)
	pt3dadd(47.15, 181.21, -24.69, 1.69)
	pt3dadd(46.96, 182.9, -27.72, 1.51)
	pt3dadd(46.4, 185.16, -28.03, 1.51)
	pt3dadd(47.15, 187.42, -28.03, 1.51)
	pt3dadd(49.22, 187.05, -32.72, 1.51)
	pt3dadd(50.92, 185.16, -33.1, 1.51)
	pt3dadd(52.61, 183.47, -33.41, 1.51)
	pt3dadd(53.74, 181.77, -33.94, 1.51)
	pt3dadd(55.44, 179.51, -34.31, 1.51)
	pt3dadd(57.69, 178.38, -36.74, 2.45)
	pt3dadd(59.77, 177.63, -36.74, 2.45)
	pt3dadd(62.97, 177.25, -36.81, 2.45)
	pt3dadd(65.23, 176.69, -36.81, 2.45)
	pt3dadd(68.05, 175.37, -36.81, 2.26)
  }
}
proc shape3d_24() {
  apic[67] {	pt3dadd(68.99, 172.92, -41.44, 2.07)
	pt3dadd(71.25, 172.54, -41.44, 2.07)
	pt3dadd(74.26, 171.79, -41.44, 2.07)
	pt3dadd(76.9, 170.28, -43.86, 2.07)
	pt3dadd(80.1, 168.59, -43.94, 2.07)
	pt3dadd(82.36, 166.33, -43.94, 2.07)
	pt3dadd(85.18, 165.01, -43.94, 2.07)
	pt3dadd(88.01, 164.44, -47.04, 2.07)
	pt3dadd(90.83, 163.12, -46.81, 2.07)
	pt3dadd(93.47, 162.37, -46.43, 2.07)
	pt3dadd(96.86, 161.43, -45.6, 2.07)
	pt3dadd(99.12, 160.3, -44.69, 2.07)
	pt3dadd(101.37, 159.36, -44.01, 2.07)
	pt3dadd(103.26, 157.1, -43.86, 2.07)
	pt3dadd(105.14, 155.97, -43.71, 2.07)
	pt3dadd(107.78, 156.34, -43.56, 2.07)
	pt3dadd(109.09, 157.47, -47.72, 2.07)
	pt3dadd(109.66, 159.73, -47.95, 2.07)
	pt3dadd(110.98, 161.62, -48.03, 2.07)
	pt3dadd(113.8, 162.37, -48.1, 2.07)
	pt3dadd(115.87, 163.88, -48.4, 2.07)
	pt3dadd(118.88, 164.44, -51.59, 2.07)
	pt3dadd(121.71, 165.38, -52.04, 2.07)
	pt3dadd(124.16, 165.95, -52.12, 2.07)
	pt3dadd(126.42, 165.2, -52.12, 2.07)
	pt3dadd(128.86, 164.63, -52.19, 2.07)
	pt3dadd(131.88, 164.25, -52.19, 2.07)
	pt3dadd(131.5, 165.57, -56.36, 1.69)
	pt3dadd(131.5, 167.46, -56.36, 1.69)
	pt3dadd(133.57, 169.15, -56.43, 1.69)
	pt3dadd(136.21, 170.09, -56.43, 1.69)
	pt3dadd(139.03, 170.28, -56.43, 1.69)
	pt3dadd(141.67, 170.47, -64.24, 1.69)
	pt3dadd(143.55, 169.72, -64.24, 1.69)
	pt3dadd(143.71, 167.98, -64.31, 1.51)
	pt3dadd(142.77, 167.79, -64.31, 1.51)
	pt3dadd(140.13, 167.6, -64.31, 1.51)
	pt3dadd(137.12, 167.98, -64.31, 1.51)
	pt3dadd(140.7, 166.47, -64.31, 1.51)
	pt3dadd(143.33, 167.23, -64.31, 1.51)
	pt3dadd(143.71, 165.91, -70.98, 1.51)
	pt3dadd(145.97, 166.47, -71.43, 1.51)
	pt3dadd(147.85, 168.36, -71.51, 1.51)
	pt3dadd(149.17, 168.92, -71.66, 1.51)
	pt3dadd(151.62, 168.54, -72.19, 1.51)
	pt3dadd(151.62, 166.1, -72.57, 1.51)
	pt3dadd(153.69, 165.34, -72.95, 1.51)
	pt3dadd(154.82, 166.28, -74.84, 1.51)
	pt3dadd(155.57, 166.66, -75.75, 1.51)
	pt3dadd(157.08, 167.6, -76.66, 1.51)
	pt3dadd(158.58, 167.6, -77.95, 1.51)
	pt3dadd(158.77, 168.73, -78.7, 1.51)
	pt3dadd(158.4, 170.99, -79.84, 1.51)
	pt3dadd(159.71, 172.88, -81.05, 1.51)
	pt3dadd(160.84, 174.2, -82.19, 1.51)
	pt3dadd(162.73, 174.01, -83.4, 1.51)
	pt3dadd(163.48, 173.44, -84.16, 1.51)
	pt3dadd(165.55, 173.25, -84.99, 1.51)
	pt3dadd(166.49, 173.63, -85.9, 1.51)
	pt3dadd(167.62, 174.2, -86.58, 1.51)
	pt3dadd(168, 175.51, -87.72, 1.51)
	pt3dadd(169.13, 176.27, -88.7, 1.51)
	pt3dadd(169.69, 177.21, -89.16, 1.51)
	pt3dadd(169.13, 178.9, -89.92, 1.51)
	pt3dadd(168.94, 180.6, -91.2, 1.51)
  }
  apic[68] {pt3dclear()
	pt3dadd(168.94, 180.6, -91.2, 1.51)
	pt3dadd(168.75, 181.54, -95.07, 1.51)
	pt3dadd(168.37, 183.61, -93.63, 1.51)
	pt3dadd(168.19, 185.69, -93.48, 1.51)
	pt3dadd(167.43, 187.19, -93.78, 1.51)
	pt3dadd(165.74, 187.19, -95.98, 1.51)
	pt3dadd(164.04, 187.38, -98.7, 1.51)
	pt3dadd(162.91, 187.95, -99.84, 1.51)
	pt3dadd(162.35, 189.45, -101.13, 1.51)
	pt3dadd(161.03, 190.02, -101.43, 1.51)
	pt3dadd(159.34, 190.58, -102.49, 1.51)
	pt3dadd(158.21, 191.34, -103.17, 1.51)
	pt3dadd(156.7, 191.71, -103.93, 1.51)
	pt3dadd(156.14, 191.34, -104.31, 1.13)
	pt3dadd(154.82, 189.64, -104.38, 1.13)
	pt3dadd(154.82, 191.53, -104.69, 1.13)
	pt3dadd(154.63, 193.03, -105.52, 1.13)
	pt3dadd(152.75, 192.84, -106.73, 1.13)
	pt3dadd(151.43, 192.84, -107.72, 1.13)
	pt3dadd(150.11, 193.97, -108.55, 1.13)
	pt3dadd(148.42, 194.73, -109.61, 1.13)
	pt3dadd(147.48, 193.6, -109.76, 1.13)
	pt3dadd(147.48, 191.71, -110.22, 1.13)
	pt3dadd(147.66, 188.51, -110.6, 1.13)
	pt3dadd(146.16, 191.15, -110.9, 1.13)
	pt3dadd(144.46, 189.64, -111.28, 1.13)
	pt3dadd(143.33, 190.96, -112.11, 1.13)
  }
  apic[69] {pt3dclear()
	pt3dadd(168.94, 180.6, -91.2, 1.13)
	pt3dadd(170.44, 180.22, -96.13, 1.13)
	pt3dadd(172.52, 180.79, -96.13, 1.13)
	pt3dadd(173.65, 181.73, -96.13, 1.13)
	pt3dadd(174.21, 183.05, -96.13, 1.13)
	pt3dadd(172.7, 183.99, -96.13, 1.13)
	pt3dadd(170.63, 183.24, -96.13, 1.13)
  }
  apic[70] {pt3dclear()
	pt3dadd(13.82, 156.63, 8.56, 1.69)
	pt3dadd(15.43, 158.53, 6.59, 1.69)
	pt3dadd(16.37, 160.98, 6.67, 1.69)
	pt3dadd(16.56, 163.24, 6.74, 1.69)
	pt3dadd(17.69, 165.32, 6.74, 1.69)
	pt3dadd(19.19, 165.88, 6.82, 1.69)
	pt3dadd(21.83, 166.07, 6.82, 1.69)
	pt3dadd(23.52, 166.63, 6.82, 1.69)
	pt3dadd(24.46, 169.08, 6.89, 1.69)
	pt3dadd(24.46, 170.78, 6.89, 1.69)
	pt3dadd(24.28, 172.47, 6.89, 1.69)
	pt3dadd(25.03, 174.36, 6.89, 1.69)
	pt3dadd(25.78, 175.87, 7.5, 1.69)
	pt3dadd(26.91, 176.81, 8.03, 1.69)
	pt3dadd(29.55, 178.31, 4.55, 1.69)
	pt3dadd(31.24, 179.44, 4.24, 1.69)
	pt3dadd(33.31, 181.14, 4.09, 1.69)
	pt3dadd(33.88, 182.65, 3.94, 1.69)
	pt3dadd(35.2, 183.97, 3.94, 1.69)
	pt3dadd(35.95, 185.1, 3.86, 1.69)
	pt3dadd(37.27, 186.6, 3.86, 1.69)
	pt3dadd(37.27, 188.49, 3.79, 1.69)
	pt3dadd(37.64, 190.18, 3.79, 1.69)
	pt3dadd(38.02, 192.06, 2.73, 1.69)
	pt3dadd(38.21, 194.14, 2.5, 1.69)
	pt3dadd(38.96, 196.21, 2.42, 1.69)
	pt3dadd(40.84, 198.09, 2.35, 1.69)
	pt3dadd(43.48, 199.79, 2.35, 1.69)
	pt3dadd(44.8, 202.05, 2.27, 1.69)
	pt3dadd(45.93, 204.12, 2.2, 1.69)
	pt3dadd(45.55, 206.38, 2.2, 1.69)
	pt3dadd(44.61, 209.02, 2.2, 1.69)
	pt3dadd(44.05, 211.09, 2.2, 1.69)
	pt3dadd(43.1, 213.35, 2.2, 1.69)
	pt3dadd(43.29, 215.61, 2.12, 1.69)
	pt3dadd(43.86, 217.87, 2.12, 1.69)
	pt3dadd(44.42, 219.94, 1.44, 1.69)
	pt3dadd(44.8, 221.64, 0.98, 1.69)
	pt3dadd(44.99, 223.33, 0.3, 1.69)
	pt3dadd(44.61, 224.46, 0.15, 1.69)
	pt3dadd(44.23, 226.35, -1.74, 1.69)
	pt3dadd(43.67, 227.67, -1.89, 1.69)
	pt3dadd(41.97, 229.93, -1.97, 1.69)
	pt3dadd(43.29, 231.62, -2.05, 1.69)
	pt3dadd(44.8, 233.32, -2.05, 1.69)
	pt3dadd(46.12, 234.45, -2.05, 1.69)
	pt3dadd(47.25, 235.77, -2.12, 1.51)
	pt3dadd(48.19, 236.9, -2.12, 1.51)
	pt3dadd(50.07, 237.65, -2.12, 1.51)
	pt3dadd(50.64, 238.97, -2.12, 1.51)
	pt3dadd(50.82, 240.29, -2.12, 1.51)
	pt3dadd(51.02, 242.75, -2.12, 1.51)
	pt3dadd(50.83, 244.83, -2.12, 1.51)
	pt3dadd(51.21, 246.33, -2.12, 1.51)
  }
  apic[71] {pt3dclear()
	pt3dadd(12.31, 136.85, 4.32, 2.45)
	pt3dadd(10.17, 138.32, -7.27, 2.45)
	pt3dadd(7.91, 138.7, -7.12, 2.45)
	pt3dadd(5.66, 140.02, -7.04, 2.45)
	pt3dadd(6.22, 142.09, -11.36, 2.45)
  }
  apic[72] {pt3dclear()
	pt3dadd(6.22, 142.09, -11.36, 1.69)
	pt3dadd(5.84, 144.73, -13.18, 1.69)
	pt3dadd(6.03, 146.61, -13.33, 1.69)
	pt3dadd(8.48, 147.18, -13.41, 1.69)
	pt3dadd(10.93, 147.55, -15.23, 1.51)
	pt3dadd(12.81, 147.18, -15.38, 1.51)
	pt3dadd(14.88, 147.93, -15.45, 1.51)
	pt3dadd(16.58, 149.25, -15.45, 1.51)
	pt3dadd(17.14, 151.13, -15.53, 1.51)
	pt3dadd(16.2, 152.26, -23.41, 2.07)
	pt3dadd(14.88, 153.02, -23.41, 2.07)
	pt3dadd(12.62, 153.58, -23.48, 2.07)
	pt3dadd(10.36, 153.58, -23.86, 2.07)
	pt3dadd(8.48, 153.96, -24.69, 2.07)
	pt3dadd(6.41, 154.52, -24.77, 2.07)
	pt3dadd(4.9, 155.09, -24.77, 2.07)
	pt3dadd(3.58, 156.22, -24.85, 2.07)
	pt3dadd(2.45, 157.35, -24.85, 2.07)
	pt3dadd(1.14, 158.48, -25.22, 2.07)
	pt3dadd(0.2, 159.99, -25.3, 2.07)
	pt3dadd(-1.5, 160.93, -26.89, 2.07)
	pt3dadd(-3.95, 161.3, -27.12, 2.07)
	pt3dadd(-6.39, 161.68, -27.19, 2.07)
	pt3dadd(-9.03, 161.68, -27.35, 2.07)
	pt3dadd(-11.1, 162.43, -27.42, 2.07)
	pt3dadd(-13.74, 162.62, -27.5, 2.07)
	pt3dadd(-15.81, 161.87, -28.1, 2.07)
	pt3dadd(-17.31, 161.3, -28.33, 2.07)
	pt3dadd(-19.01, 161.68, -33.33, 2.07)
	pt3dadd(-21.27, 164.7, -33.33, 2.07)
  }
  apic[73] {pt3dclear()
	pt3dadd(-21.27, 164.7, -33.33, 1.51)
	pt3dadd(-21.27, 166.58, -36.21, 1.51)
	pt3dadd(-22.02, 168.27, -36.28, 1.51)
	pt3dadd(-23.34, 169.22, -36.59, 1.51)
	pt3dadd(-24.66, 169.97, -37.04, 1.51)
	pt3dadd(-25.79, 171.29, -37.72, 1.51)
	pt3dadd(-27.48, 173.74, -37.88, 1.51)
	pt3dadd(-28.23, 175.81, -37.95, 1.51)
	pt3dadd(-29.74, 176.75, -38.1, 1.51)
	pt3dadd(-31.06, 178.26, -39.16, 1.51)
	pt3dadd(-32.38, 179.2, -39.16, 1.51)
	pt3dadd(-33.88, 180.14, -39.24, 1.51)
  }
}
proc shape3d_25() {
  apic[73] {	pt3dadd(-34.64, 182.03, -39.62, 1.51)
	pt3dadd(-35.2, 183.91, -42.27, 1.51)
	pt3dadd(-36.71, 184.47, -42.42, 1.51)
	pt3dadd(-38.4, 185.6, -42.65, 1.51)
	pt3dadd(-40.66, 185.98, -43.78, 1.51)
	pt3dadd(-42.92, 186.73, -43.78, 1.51)
	pt3dadd(-45.37, 186.92, -44.39, 1.51)
	pt3dadd(-47.63, 187.3, -44.62, 1.51)
	pt3dadd(-48.57, 189, -45.75, 1.51)
	pt3dadd(-49.89, 190.31, -46.13, 1.51)
	pt3dadd(-50.26, 192.01, -46.06, 1.51)
	pt3dadd(-51.2, 194.08, -45.75, 1.51)
	pt3dadd(-51.77, 195.4, -45.45, 1.51)
	pt3dadd(-52.33, 197.28, -45.22, 1.51)
	pt3dadd(-53.65, 198.04, -45.15, 1.51)
	pt3dadd(-55.35, 199.54, -45, 1.51)
	pt3dadd(-56.48, 201.62, -46.51, 1.32)
	pt3dadd(-57.79, 203.12, -46.59, 1.32)
	pt3dadd(-60.24, 203.12, -46.66, 1.32)
	pt3dadd(-62.88, 202.93, -46.66, 1.32)
	pt3dadd(-64.95, 201.8, -48.86, 1.32)
	pt3dadd(-66.27, 200.67, -48.86, 1.32)
	pt3dadd(-66.27, 198.41, -48.93, 1.32)
	pt3dadd(-68.53, 199.36, -52.27, 0.94)
	pt3dadd(-70.97, 198.79, -52.34, 0.94)
	pt3dadd(-72.86, 197.85, -52.34, 0.94)
	pt3dadd(-73.8, 195.4, -53.93, 0.94)
	pt3dadd(-75.68, 195.78, -54.31, 0.94)
	pt3dadd(-77.19, 196.34, -55.15, 0.94)
	pt3dadd(-79.07, 197.66, -55.68, 0.94)
	pt3dadd(-80.01, 199.17, -56.13, 0.94)
	pt3dadd(-81.33, 199.73, -56.43, 0.94)
	pt3dadd(-82.83, 199.73, -57.42, 0.94)
	pt3dadd(-84.72, 199.17, -57.87, 0.94)
	pt3dadd(-87.16, 197.85, -59.39, 0.94)
	pt3dadd(-89.05, 197.1, -59.54, 0.94)
	pt3dadd(-90.74, 196.34, -59.84, 0.94)
	pt3dadd(-91.5, 195.78, -59.99, 0.94)
//	pt3dadd(-93.75, 195.21, -122.42, 0.94)
  }
  apic[74] {pt3dclear()
	pt3dadd(-21.27, 164.7, -33.33, 1.69)
	pt3dadd(-23.53, 165.45, -32.27, 1.69)
	pt3dadd(-25.6, 165.83, -32.04, 1.69)
	pt3dadd(-27.67, 165.64, -31.97, 1.69)
	pt3dadd(-29.93, 165.26, -29.62, 1.69)
	pt3dadd(-31.44, 166.2, -31.74, 1.69)
	pt3dadd(-32.56, 166.2, -32.65, 1.69)
	pt3dadd(-34.07, 165.45, -33.1, 1.69)
	pt3dadd(-36.14, 165.26, -33.56, 1.69)
	pt3dadd(-38.02, 166.01, -34.01, 1.69)
	pt3dadd(-39.53, 166.77, -34.69, 1.69)
	pt3dadd(-42.54, 166.96, -30.3, 1.69)
	pt3dadd(-44.24, 166.2, -30.38, 1.69)
	pt3dadd(-46.31, 165.26, -30.45, 1.69)
	pt3dadd(-47.82, 164.32, -30.6, 1.69)
	pt3dadd(-49.7, 163.94, -30.75, 1.69)
	pt3dadd(-51.58, 163.75, -32.19, 1.69)
	pt3dadd(-53.46, 163.75, -32.27, 1.69)
	pt3dadd(-55.35, 162.62, -32.35, 1.69)
	pt3dadd(-57.61, 162.62, -32.35, 1.69)
	pt3dadd(-59.68, 162.62, -32.42, 1.69)
	pt3dadd(-62.31, 162.06, -32.42, 1.69)
	pt3dadd(-63.82, 160.93, -32.42, 1.69)
	pt3dadd(-65.89, 159.61, -32.42, 1.69)
	pt3dadd(-66.83, 157.16, -32.42, 1.69)
	pt3dadd(-66.45, 155.28, -32.42, 1.69)
	pt3dadd(-66.27, 153.58, -32.42, 1.69)
	pt3dadd(-67.4, 151.89, -33.18, 1.69)
	pt3dadd(-68.71, 150.19, -33.18, 1.69)
	pt3dadd(-69.66, 147.93, -33.18, 1.69)
	pt3dadd(-71.91, 146.42, -33.18, 1.69)
	pt3dadd(-73.61, 144.92, -33.18, 1.69)
	pt3dadd(-74.93, 143.6, -33.25, 1.51)
	pt3dadd(-76.06, 142.28, -33.25, 1.51)
	pt3dadd(-77.75, 140.77, -34.69, 1.51)
	pt3dadd(-80.01, 139.45, -35.3, 1.51)
	pt3dadd(-82.27, 139.27, -36.21, 1.51)
	pt3dadd(-84.72, 139.45, -36.36, 1.51)
	pt3dadd(-86.22, 140.4, -36.44, 1.51)
	pt3dadd(-88.29, 140.58, -36.44, 1.51)
	pt3dadd(-90.74, 140.4, -36.44, 1.51)
	pt3dadd(-93, 139.64, -36.44, 1.51)
	pt3dadd(-94.7, 138.13, -36.44, 1.51)
	pt3dadd(-96.39, 137.19, -36.44, 1.51)
	pt3dadd(-98.65, 135.5, -36.44, 1.51)
	pt3dadd(-100.72, 135.87, -36.44, 1.51)
	pt3dadd(-102.6, 136.25, -36.44, 1.51)
	pt3dadd(-104.11, 137, -36.44, 1.51)
	pt3dadd(-105.99, 135.87, -38.18, 1.32)
	pt3dadd(-106.56, 133.61, -38.18, 1.32)
	pt3dadd(-106.93, 131.73, -38.18, 1.32)
	pt3dadd(-108.82, 130.41, -38.18, 1.32)
	pt3dadd(-109.76, 129.66, -38.18, 1.32)
	pt3dadd(-111.35, 129.89, -40.45, 1.32)
	pt3dadd(-113.61, 128.95, -40.53, 1.13)
	pt3dadd(-114.74, 127.26, -40.53, 1.13)
	pt3dadd(-115.49, 125.75, -42.72, 1.13)
	pt3dadd(-117.19, 125.56, -42.87, 1.13)
	pt3dadd(-119.07, 125.56, -42.95, 1.13)
	pt3dadd(-120.76, 126.31, -42.95, 1.13)
	pt3dadd(-123.02, 125.94, -42.95, 1.13)
	pt3dadd(-124.91, 125.18, -42.95, 1.13)
//	pt3dadd(-126.04, 126.5, -85.9, 1.13)
  }
  apic[75] {pt3dclear()
	pt3dadd(6.22, 142.09, -11.36, 3.01)
	pt3dadd(6.29, 142.14, -10.23, 3.01)
	pt3dadd(8.36, 142.89, -10.23, 3.01)
	pt3dadd(10.62, 142.89, -10.23, 3.01)
	pt3dadd(13.25, 144.02, -10.23, 3.01)
	pt3dadd(15.7, 145.53, -10.23, 3.01)
	pt3dadd(17.58, 146.66, -10.23, 3.01)
	pt3dadd(19.84, 148.36, -10.23, 3.01)
	pt3dadd(21.91, 150.24, -10.23, 3.01)
	pt3dadd(23.42, 151.56, -10.15, 3.01)
  }
  apic[76] {pt3dclear()
	pt3dadd(23.42, 151.56, -10.15, 2.45)
	pt3dadd(24.17, 153.44, -18.48, 2.45)
	pt3dadd(27.19, 154.76, -18.48, 2.45)
	pt3dadd(29.26, 154.57, -18.48, 2.45)
  }
  apic[77] {pt3dclear()
	pt3dadd(29.26, 154.57, -18.48, 1.88)
	pt3dadd(31.33, 155.89, -25.22, 1.88)
	pt3dadd(31.7, 157.77, -25.3, 1.88)
	pt3dadd(32.65, 159.47, -25.38, 1.88)
	pt3dadd(34.34, 160.79, -21.66, 1.88)
	pt3dadd(36.04, 161.92, -21.44, 1.88)
	pt3dadd(36.79, 163.99, -21.29, 1.88)
	pt3dadd(36.6, 165.5, -21.21, 1.88)
	pt3dadd(35.66, 167.38, -21.21, 1.88)
	pt3dadd(34.72, 168.51, -20.76, 1.88)
	pt3dadd(32.46, 168.7, -20.07, 1.88)
	pt3dadd(32.08, 166.63, -26.21, 1.88)
	pt3dadd(33.96, 164.37, -26.29, 1.88)
	pt3dadd(36.41, 162.48, -26.36, 1.88)
	pt3dadd(38.67, 161.35, -26.36, 1.88)
  }
  apic[78] {pt3dclear()
	pt3dadd(29.26, 154.57, -18.48, 1.88)
	pt3dadd(30.95, 153.25, -18.86, 1.88)
	pt3dadd(34.34, 152.31, -18.86, 1.88)
	pt3dadd(35.85, 151.93, -18.86, 1.88)
	pt3dadd(37.92, 152.31, -18.86, 1.88)
	pt3dadd(40.74, 152.31, -18.86, 1.88)
	pt3dadd(43.57, 152.5, -18.86, 1.88)
	pt3dadd(46.77, 154.57, -21.66, 1.88)
	pt3dadd(48.84, 155.89, -21.66, 1.88)
	pt3dadd(48.84, 158.34, -21.51, 1.88)
	pt3dadd(50.53, 159.66, -21.44, 1.88)
	pt3dadd(53.17, 162.11, -21.36, 1.88)
	pt3dadd(55.43, 163.05, -22.8, 1.88)
	pt3dadd(58.44, 163.43, -22.88, 1.88)
	pt3dadd(60.7, 163.61, -22.95, 1.88)
	pt3dadd(63.15, 163.61, -20.6, 1.88)
	pt3dadd(64.65, 163.8, -20.45, 1.88)
	pt3dadd(65.59, 162.3, -26.06, 1.88)
	pt3dadd(66.35, 160.6, -26.29, 1.88)
	pt3dadd(67.1, 158.72, -26.36, 1.88)
	pt3dadd(69.74, 158.53, -29.39, 1.69)
	pt3dadd(72.18, 159.28, -29.39, 1.69)
	pt3dadd(73.69, 160.6, -29.47, 1.69)
	pt3dadd(75.95, 160.22, -29.47, 1.51)
	pt3dadd(77.46, 159.47, -30.83, 1.51)
	pt3dadd(78.59, 158.53, -31.21, 1.51)
	pt3dadd(80.09, 159.47, -31.28, 1.51)
	pt3dadd(81.41, 159.47, -31.28, 1.51)
	pt3dadd(83.86, 158.72, -31.36, 1.51)
	pt3dadd(85.74, 158.15, -31.36, 1.51)
	pt3dadd(87.43, 158.72, -33.86, 1.51)
	pt3dadd(89.13, 160.03, -34.01, 1.51)
	pt3dadd(90.82, 160.79, -34.09, 1.51)
	pt3dadd(91.39, 162.11, -34.09, 1.51)
	pt3dadd(91.58, 163.99, -34.31, 1.51)
	pt3dadd(91.58, 165.5, -34.62, 1.51)
	pt3dadd(93.46, 167.19, -37.65, 1.51)
	pt3dadd(95.15, 166.82, -37.95, 1.51)
	pt3dadd(96.47, 166.06, -37.95, 1.51)
	pt3dadd(99.11, 165.12, -38.94, 1.51)
	pt3dadd(100.24, 164.37, -39.31, 1.51)
	pt3dadd(101.56, 163.24, -39.84, 1.51)
	pt3dadd(103.25, 161.73, -79.68, 1.51)
  }
  apic[79] {pt3dclear()
	pt3dadd(23.42, 151.56, -10.15, 1.51)
	pt3dadd(25.12, 151.53, -13.48, 1.51)
	pt3dadd(27.38, 150.59, -13.64, 1.51)
	pt3dadd(29.26, 148.33, -13.71, 1.51)
	pt3dadd(31.33, 145.88, -13.71, 1.51)
	pt3dadd(32.46, 144.37, -17.88, 1.51)
	pt3dadd(33.59, 142.11, -17.95, 1.51)
	pt3dadd(35.09, 141.17, -18.03, 1.51)
	pt3dadd(37.17, 140.04, -18.26, 1.51)
	pt3dadd(39.42, 138.91, -20.91, 1.51)
	pt3dadd(41.5, 137.59, -24.39, 1.51)
	pt3dadd(43, 136.27, -20.76, 1.51)
	pt3dadd(44.88, 134.95, -20.98, 1.51)
	pt3dadd(45.83, 133.07, -21.06, 1.51)
	pt3dadd(46.01, 131, -23.79, 1.51)
	pt3dadd(46.2, 127.79, -23.79, 1.51)
	pt3dadd(45.83, 125.72, -23.86, 1.51)
	pt3dadd(45.83, 123.46, -23.94, 1.51)
	pt3dadd(46.58, 120.45, -23.79, 1.51)
	pt3dadd(48.27, 119.5, -23.63, 1.51)
	pt3dadd(50.72, 118, -23.56, 1.51)
	pt3dadd(52.42, 116.87, -23.56, 1.51)
	pt3dadd(53.92, 117.06, -23.56, 1.51)
	pt3dadd(56.18, 116.87, -20.23, 1.51)
	pt3dadd(59.76, 115.93, -20.07, 1.51)
	pt3dadd(62.39, 116.3, -20, 1.51)
  }
}
proc shape3d_26() {
  apic[79] {	pt3dadd(64.28, 117.62, -19.85, 1.51)
	pt3dadd(65.97, 118, -19.62, 1.51)
	pt3dadd(68.42, 118.94, -19.47, 1.51)
	pt3dadd(70.87, 118.75, -19.39, 1.51)
	pt3dadd(73.5, 117.81, -19.32, 1.51)
	pt3dadd(75.2, 116.87, -19.24, 1.51)
	pt3dadd(77.83, 115.93, -19.16, 1.51)
	pt3dadd(80.09, 114.98, -19.09, 1.51)
	pt3dadd(82.54, 114.42, -19.01, 1.51)
	pt3dadd(85.93, 113.48, -18.94, 1.51)
	pt3dadd(88.19, 112.91, -18.86, 1.51)
	pt3dadd(90.45, 113.48, -18.71, 1.51)
	pt3dadd(93.08, 113.85, -18.63, 1.51)
	pt3dadd(94.21, 114.98, -18.63, 1.51)
	pt3dadd(95.72, 114.42, -18.56, 1.51)
	pt3dadd(98.54, 113.48, -18.56, 1.51)
	pt3dadd(100.43, 113.48, -18.56, 1.51)
	pt3dadd(103.06, 112.72, -18.48, 1.51)
	pt3dadd(105.7, 111.97, -18.48, 1.51)
	pt3dadd(108.15, 110.65, -18.48, 1.51)
	pt3dadd(110.78, 110.27, -18.48, 1.51)
	pt3dadd(113.98, 110.09, -18.48, 1.51)
	pt3dadd(116.62, 111.03, -18.48, 1.51)
	pt3dadd(118.5, 112.54, -17.65, 1.51)
	pt3dadd(120.2, 113.67, -18.26, 1.51)
	pt3dadd(122.08, 113.29, -18.56, 1.51)
	pt3dadd(124.9, 113.29, -19.01, 1.51)
	pt3dadd(127.73, 114.42, -19.39, 1.51)
	pt3dadd(130.36, 115.74, -19.62, 1.51)
	pt3dadd(132.43, 116.68, -19.85, 1.51)
	pt3dadd(134.88, 116.68, -20, 1.51)
	pt3dadd(137.89, 115.93, -20.07, 1.51)
	pt3dadd(139.78, 115.17, -20.15, 1.51)
	pt3dadd(142.04, 115.17, -20.15, 1.51)
	pt3dadd(144.48, 115.36, -20.23, 1.51)
	pt3dadd(145.8, 115.93, -20.23, 1.51)
	pt3dadd(147.31, 115.93, -20.23, 1.51)
	pt3dadd(149.19, 115.93, -20.3, 1.51)
	pt3dadd(151, 114.7, -20.3, 1.51)
	pt3dadd(152.32, 113.76, -20.38, 1.51)
	pt3dadd(154.39, 113.57, -20.38, 1.51)
	pt3dadd(156.28, 113, -20.38, 1.51)
	pt3dadd(158.35, 114.13, -20.38, 1.51)
	pt3dadd(161.17, 115.64, -20.38, 1.51)
	pt3dadd(162.87, 116.58, -21.36, 1.51)
	pt3dadd(164.94, 116.58, -21.82, 1.51)
	pt3dadd(166.25, 116.39, -21.59, 1.51)
	pt3dadd(166.82, 117.33, -18.79, 1.51)
	pt3dadd(167.57, 118.84, -16.06, 1.51)
	pt3dadd(167.95, 119.78, -14.7, 1.51)
	pt3dadd(168.14, 121.86, -14.24, 1.51)
	pt3dadd(169.46, 122.04, -14.01, 1.51)
	pt3dadd(170.4, 123.17, -13.79, 0.56)
	pt3dadd(170.21, 124.49, -13.71, 0.56)
	pt3dadd(168.33, 125.43, -13.71, 0.56)
  }
  apic[80] {pt3dclear()
	pt3dadd(25.12, 102.19, -2.2, 3.39)
	pt3dadd(26.82, 103.09, -1.82, 3.39)
	pt3dadd(29.26, 103.47, -1.82, 3.39)
  }
  apic[81] {pt3dclear()
	pt3dadd(29.26, 103.47, -1.82, 2.26)
	pt3dadd(32.84, 103.47, 1.21, 2.26)
	pt3dadd(35.1, 103.28, 1.21, 2.26)
	pt3dadd(36.61, 105.35, 1.29, 2.26)
	pt3dadd(36.42, 107.43, 1.29, 2.26)
	pt3dadd(37.36, 109.69, 1.29, 2.26)
	pt3dadd(38.49, 111.95, 1.44, 2.26)
	pt3dadd(39.62, 114.21, 3.94, 2.26)
	pt3dadd(41.31, 116.09, 3.94, 2.26)
	pt3dadd(43.38, 116.28, 4.01, 2.26)
	pt3dadd(45.64, 115.9, 4.01, 2.26)
	pt3dadd(47.71, 114.96, 4.01, 2.26)
	pt3dadd(50.16, 114.02, 4.09, 2.26)
	pt3dadd(52.42, 112.89, 7.42, 2.26)
	pt3dadd(54.49, 112.89, 7.5, 2.26)
  }
  apic[82] {pt3dclear()
	pt3dadd(54.49, 112.89, 7.5, 2.26)
	pt3dadd(57.13, 112.13, 7.5, 2.26)
	pt3dadd(59.58, 112.51, 7.57, 2.26)
	pt3dadd(62.02, 112.89, 7.57, 2.26)
	pt3dadd(64.47, 112.7, 7.57, 2.26)
	pt3dadd(67.11, 112.13, 7.57, 2.26)
	pt3dadd(70.5, 112.51, 7.57, 2.26)
	pt3dadd(73.32, 113.08, 7.57, 2.26)
	pt3dadd(75.77, 114.02, 5.91, 2.26)
	pt3dadd(78.59, 114.02, 5.76, 2.26)
	pt3dadd(81.23, 113.83, 5.68, 2.26)
	pt3dadd(83.49, 113.08, 5.53, 2.26)
	pt3dadd(86.31, 114.21, 5.45, 2.26)
	pt3dadd(88.19, 112.32, 5.45, 2.26)
	pt3dadd(90.26, 110.06, 5.45, 2.07)
	pt3dadd(91.21, 107.99, 1.82, 1.88)
	pt3dadd(93.47, 106.67, 1.74, 1.88)
	pt3dadd(96.1, 106.3, 1.67, 1.88)
	pt3dadd(98.17, 106.67, 1.59, 1.88)
	pt3dadd(100.81, 106.3, 0, 1.88)
	pt3dadd(103.26, 105.35, -0.15, 1.88)
	pt3dadd(104.95, 104.22, -0.23, 1.88)
	pt3dadd(106.64, 103.47, -0.23, 1.88)
	pt3dadd(109.47, 102.53, -0.23, 1.88)
	pt3dadd(111.35, 102.9, -0.23, 1.88)
	pt3dadd(114.55, 102.72, -0.23, 1.88)
	pt3dadd(116.81, 103.47, -0.23, 1.88)
	pt3dadd(118.51, 104.03, -0.23, 1.88)
	pt3dadd(120.2, 102.34, -2.12, 1.88)
	pt3dadd(122.08, 100.27, -2.2, 1.88)
	pt3dadd(124.34, 98.76, -2.27, 1.88)
	pt3dadd(126.98, 98.95, -2.35, 1.88)
	pt3dadd(129.61, 99.89, -2.8, 1.88)
	pt3dadd(132.25, 100.46, -3.03, 1.88)
	pt3dadd(133.38, 99.14, -8.41, 1.51)
	pt3dadd(135.45, 98.01, -8.56, 1.51)
	pt3dadd(137.15, 99.33, -8.56, 1.51)
	pt3dadd(137.9, 101.02, -8.56, 1.51)
	pt3dadd(138.65, 103.47, -9.54, 1.51)
	pt3dadd(139.78, 104.41, -9.85, 1.51)
	pt3dadd(142.61, 104.79, -10.15, 1.51)
	pt3dadd(145.62, 104.6, -10.98, 1.51)
	pt3dadd(146.75, 103.28, -11.36, 1.51)
	pt3dadd(146.37, 101.21, -12.42, 1.51)
	pt3dadd(146.56, 98.95, -12.8, 1.51)
	pt3dadd(147.31, 97.44, -14.54, 1.51)
	pt3dadd(149.2, 96.31, -14.92, 1.51)
	pt3dadd(150.32, 95.37, -15.38, 1.51)
	pt3dadd(151.42, 93.62, -20.38, 1.13)
	pt3dadd(151.79, 91.55, -20.23, 1.13)
	pt3dadd(153.3, 89.85, -20.15, 1.13)
	pt3dadd(153.11, 88.16, -20.07, 1.13)
	pt3dadd(154.8, 89.67, -25.45, 1.13)
	pt3dadd(156.12, 89.48, -25.68, 1.13)
	pt3dadd(158.38, 89.48, -25.83, 1.13)
	pt3dadd(159.7, 88.53, -25.91, 1.13)
	pt3dadd(160.26, 87.22, -25.98, 1.13)
//	pt3dadd(160.08, 85.71, -51.96, 1.13)
  }
  apic[83] {pt3dclear()
	pt3dadd(54.49, 112.89, 7.5, 1.69)
	pt3dadd(55.55, 112.31, 12.2, 1.69)
	pt3dadd(57.62, 113.07, 12.27, 1.69)
	pt3dadd(59.69, 115.14, 12.27, 1.69)
	pt3dadd(59.31, 117.78, 12.35, 1.69)
	pt3dadd(59.5, 120.23, 12.35, 1.69)
	pt3dadd(59.31, 121.17, 14.54, 1.69)
	pt3dadd(58.37, 122.86, 15.38, 1.69)
	pt3dadd(57.43, 124.56, 15.38, 1.69)
	pt3dadd(59.13, 126.44, 15.45, 1.69)
  }
  apic[84] {pt3dclear()
	pt3dadd(59.13, 126.44, 15.45, 1.13)
	pt3dadd(60.26, 128.33, 16.74, 1.13)
	pt3dadd(61.2, 129.83, 16.74, 1.13)
	pt3dadd(60.44, 131.15, 18.56, 1.13)
	pt3dadd(60.82, 133.22, 18.79, 1.13)
	pt3dadd(61.01, 135.3, 18.79, 1.13)
	pt3dadd(59.69, 136.61, 18.79, 1.13)
	pt3dadd(58.75, 139.25, 18.79, 1.13)
	pt3dadd(59.13, 141.32, 18.79, 1.13)
	pt3dadd(60.07, 141.7, 18.79, 1.13)
	pt3dadd(61.2, 140, 18.86, 1.13)
  }
  apic[85] {pt3dclear()
	pt3dadd(59.13, 126.44, 15.45, 1.13)
	pt3dadd(60.82, 126.25, 15.6, 1.13)
	pt3dadd(62.52, 125.5, 16.97, 1.13)
	pt3dadd(64.21, 123.62, 17.27, 1.13)
	pt3dadd(65.34, 122.49, 17.73, 1.13)
	pt3dadd(66.66, 122.86, 18.18, 1.13)
	pt3dadd(68.73, 124.37, 19.47, 1.13)
	pt3dadd(70.42, 123.8, 20.07, 1.13)
	pt3dadd(71.55, 122.86, 20.38, 1.13)
	pt3dadd(73.81, 122.49, 20.76, 1.13)
	pt3dadd(73.06, 123.8, 20.76, 1.13)
	pt3dadd(72.12, 126.25, 20.83, 1.13)
	pt3dadd(71.55, 128.14, 20.83, 1.13)
	pt3dadd(70.61, 129.46, 20.83, 1.13)
  }
  apic[86] {pt3dclear()
	pt3dadd(29.26, 103.47, -1.82, 2.26)
	pt3dadd(31.01, 106.25, -1.29, 2.26)
	pt3dadd(31.58, 108.88, -1.14, 2.26)
	pt3dadd(31.76, 111.9, -0.98, 2.26)
	pt3dadd(32.7, 114.53, -0.98, 2.26)
	pt3dadd(34.96, 115.85, -0.91, 2.26)
	pt3dadd(36.66, 118.49, -3.94, 2.26)
	pt3dadd(38.16, 120.56, -4.09, 2.26)
	pt3dadd(39.67, 122.45, -4.17, 2.26)
	pt3dadd(42.31, 123.77, -4.24, 2.26)
	pt3dadd(44.94, 124.33, -9.77, 2.26)
	pt3dadd(46.83, 123.58, -9.77, 2.26)
	pt3dadd(49.27, 123.01, -9.85, 2.26)
	pt3dadd(51.72, 122.45, -12.95, 2.26)
	pt3dadd(54.36, 121.69, -13.03, 2.26)
	pt3dadd(56.62, 120.75, -13.03, 2.26)
	pt3dadd(59.44, 120.19, -13.03, 2.26)
	pt3dadd(61.13, 121.32, -13.03, 2.26)
	pt3dadd(63.39, 122.26, -13.03, 2.26)
	pt3dadd(65.65, 123.39, -19.24, 2.26)
	pt3dadd(68.85, 124.14, -19.24, 2.26)
	pt3dadd(70.36, 125.84, -19.24, 2.26)
	pt3dadd(71.87, 127.91, -19.24, 2.26)
	pt3dadd(75.26, 128.66, -19.32, 2.26)
	pt3dadd(77.51, 129.79, -19.32, 2.26)
	pt3dadd(78.64, 131.11, -19.32, 2.26)
	pt3dadd(79.96, 132.81, -19.32, 2.26)
	pt3dadd(82.03, 131.49, -23.03, 2.07)
	pt3dadd(83.35, 129.6, -23.03, 2.07)
	pt3dadd(85.61, 127.91, -23.03, 2.07)
	pt3dadd(89.19, 128.85, -27.27, 2.07)
	pt3dadd(90.13, 130.92, -27.35, 2.07)
	pt3dadd(90.88, 132.62, -27.35, 2.07)
//	pt3dadd(92.39, 134.5, -27.35, 2.07)
  }
}
proc shape3d_27() {
  apic[86] {	pt3dadd(95.21, 136.76, -29.16, 2.07)
	pt3dadd(97.85, 137.89, -29.16, 2.07)
	pt3dadd(100.67, 138.65, -29.16, 2.07)
	pt3dadd(103.87, 139.59, -31.89, 2.07)
	pt3dadd(107.07, 139.02, -31.97, 2.07)
	pt3dadd(109.9, 138.65, -31.97, 2.07)
	pt3dadd(111.97, 139.4, -31.97, 2.07)
	pt3dadd(114.23, 139.4, -32.04, 2.07)
	pt3dadd(116.49, 140.53, -36.74, 2.07)
	pt3dadd(118.18, 142.41, -36.89, 2.07)
	pt3dadd(118.37, 144.3, -39.09, 2.07)
	pt3dadd(116.49, 145.62, -39.16, 2.07)
	pt3dadd(118.94, 145.8, -44.62, 1.88)
	pt3dadd(121.76, 145.8, -44.84, 1.88)
	pt3dadd(124.58, 146.56, -44.84, 1.88)
	pt3dadd(126.65, 147.69, -44.84, 1.88)
	pt3dadd(127.78, 149.57, -44.84, 1.88)
	pt3dadd(129.29, 151.64, -44.84, 1.88)
	pt3dadd(130.23, 153.53, -44.84, 1.88)
	pt3dadd(130.61, 155.41, -44.92, 1.88)
	pt3dadd(133.24, 155.79, -49.39, 1.88)
	pt3dadd(134.94, 154.47, -49.62, 1.88)
	pt3dadd(136.44, 152.77, -49.62, 1.88)
	pt3dadd(138.52, 151.27, -49.62, 1.88)
	pt3dadd(140.02, 153.15, -54.99, 1.88)
	pt3dadd(140.59, 155.22, -55.52, 1.88)
	pt3dadd(142.09, 156.35, -56.13, 1.88)
	pt3dadd(144.16, 155.79, -56.21, 1.88)
	pt3dadd(146.05, 154.28, -56.43, 1.88)
	pt3dadd(147.93, 153.72, -56.96, 1.88)
	pt3dadd(149.25, 154.85, -57.72, 1.88)
	pt3dadd(149.62, 156.35, -57.87, 1.88)
	pt3dadd(152.45, 157.67, -62.42, 1.88)
	pt3dadd(154.9, 158.05, -63.1, 1.88)
	pt3dadd(156.59, 158.24, -63.63, 1.88)
	pt3dadd(157.91, 158.43, -63.93, 1.88)
	pt3dadd(159.98, 158.43, -64.16, 1.88)
	pt3dadd(161.49, 158.43, -64.24, 1.88)
	pt3dadd(160.73, 159.93, -64.31, 1.88)
	pt3dadd(159.6, 161.82, -64.31, 1.88)
	pt3dadd(160.92, 163.32, -67.8, 1.51)
	pt3dadd(162.05, 164.26, -67.8, 1.51)
	pt3dadd(164.87, 163.51, -67.8, 1.51)
	pt3dadd(165.44, 162, -67.8, 1.51)
	pt3dadd(165.63, 159.74, -67.8, 1.51)
	pt3dadd(166.19, 158.05, -67.8, 1.51)
	pt3dadd(166.95, 157.3, -67.8, 1.51)
	pt3dadd(168.26, 157.11, -67.87, 1.51)
	pt3dadd(170.9, 157.86, -76.13, 1.51)
	pt3dadd(171.28, 159.56, -76.2, 1.51)
	pt3dadd(169.39, 160.12, -76.2, 1.51)
	pt3dadd(169.2, 161.63, -76.2, 1.51)
	pt3dadd(169.96, 164.08, -76.2, 1.51)
	pt3dadd(172.03, 163.89, -84.08, 1.51)
	pt3dadd(174.29, 164.26, -84.08, 1.51)
	pt3dadd(174.66, 163.32, -84.08, 1.51)
	pt3dadd(172.97, 162, -84.08, 1.51)
	pt3dadd(172.41, 163.51, -84.16, 1.51)
	pt3dadd(171.65, 165.77, -84.16, 1.51)
	pt3dadd(170.33, 166.34, -84.16, 1.51)
	pt3dadd(168.83, 168.22, -84.16, 1.51)
	pt3dadd(170.9, 169.54, -84.16, 1.51)
	pt3dadd(172.97, 170.1, -88.55, 1.51)
	pt3dadd(174.85, 169.54, -88.85, 1.51)
	pt3dadd(175.61, 168.6, -88.93, 1.51)
	pt3dadd(174.85, 171.99, -89.46, 1.51)
	pt3dadd(174.48, 173.68, -89.54, 1.51)
	pt3dadd(174.66, 176.51, -89.61, 1.51)
	pt3dadd(175.04, 178.39, -89.61, 1.51)
	pt3dadd(175.23, 180.09, -89.61, 1.51)
	pt3dadd(175.61, 181.97, -89.61, 1.51)
	pt3dadd(177.11, 183.67, -93.25, 1.51)
	pt3dadd(177.3, 186.12, -94.16, 1.51)
	pt3dadd(176.74, 187.43, -96.35, 1.51)
	pt3dadd(175.79, 188.75, -98.4, 1.51)
	pt3dadd(175.04, 189.7, -99.01, 1.51)
	pt3dadd(172.41, 191.2, -99.84, 1.51)
	pt3dadd(171.09, 192.14, -100.82, 1.51)
	pt3dadd(170.52, 193.09, -101.05, 1.51)
	pt3dadd(169.13, 193.88, -103.78, 1.32)
	pt3dadd(168.38, 195.76, -103.78, 1.32)
	pt3dadd(168, 197.46, -103.78, 1.13)
	pt3dadd(168, 199.53, -103.78, 1.13)
	pt3dadd(166.87, 200.66, -103.78, 1.13)
	pt3dadd(165.37, 201.41, -103.78, 1.13)
	pt3dadd(164.8, 202.36, -103.78, 1.13)
//	pt3dadd(165.93, 203.67, -207.56, 1.13)
  }
  apic[87] {pt3dclear()
	pt3dadd(12.82, 60.3, -2.2, 2.07)
	pt3dadd(10.44, 61.26, -1.44, 2.07)
	pt3dadd(9.12, 62.96, -1.29, 2.07)
	pt3dadd(7.99, 65.78, -1.21, 2.07)
	pt3dadd(6.86, 67.48, -1.29, 2.07)
	pt3dadd(6.48, 69.17, -1.59, 2.07)
	pt3dadd(4.98, 71.24, -1.82, 2.07)
  }
  apic[88] {pt3dclear()
	pt3dadd(4.98, 71.24, -1.82, 2.07)
	pt3dadd(2.72, 71.43, -1.74, 2.07)
	pt3dadd(0.65, 71.62, -1.74, 2.07)
	pt3dadd(-1.23, 72.37, -1.67, 2.07)
	pt3dadd(-3.37, 74.37, -5.3, 2.07)
	pt3dadd(-5.81, 75.51, -5.3, 2.07)
	pt3dadd(-8.07, 76.64, -5.3, 2.07)
	pt3dadd(-9.96, 78.14, -5.3, 2.07)
	pt3dadd(-12.4, 79.08, -5.3, 2.07)
	pt3dadd(-14.66, 80.78, -5.3, 2.07)
	pt3dadd(-16.36, 82.1, -5.3, 2.07)
	pt3dadd(-18.24, 83.23, -5.3, 2.07)
	pt3dadd(-19.56, 84.92, -5.3, 2.07)
	pt3dadd(-21.25, 85.68, -5.3, 2.82)
	pt3dadd(-24.64, 87, -5.3, 2.82)
	pt3dadd(-27.28, 88.31, -5.3, 2.82)
	pt3dadd(-29.35, 90.57, -5.3, 2.82)
  }
  apic[89] {pt3dclear()
	pt3dadd(-29.35, 90.57, -5.3, 2.26)
	pt3dadd(-29.91, 93.02, -8.86, 2.26)
	pt3dadd(-30.67, 93.78, -4.92, 2.26)
	pt3dadd(-31.8, 95.1, -5.08, 2.26)
	pt3dadd(-32.55, 96.79, -5.08, 2.26)
	pt3dadd(-33.87, 99.05, -5.15, 2.26)
	pt3dadd(-33.68, 101.69, -5.3, 2.26)
	pt3dadd(-33.87, 103.95, -6.44, 2.26)
	pt3dadd(-34.43, 106.21, -6.89, 2.26)
	pt3dadd(-35.94, 108.09, -7.8, 2.26)
	pt3dadd(-38.01, 110.35, -7.95, 2.26)
	pt3dadd(-39.33, 112.61, -8.03, 2.26)
	pt3dadd(-41.02, 114.31, -9.17, 2.26)
	pt3dadd(-42.34, 116.76, -9.17, 2.26)
	pt3dadd(-43.47, 118.45, -8.79, 2.26)
	pt3dadd(-44.6, 120.53, -8.41, 2.26)
	pt3dadd(-43.85, 122.79, -8.11, 2.26)
	pt3dadd(-43.47, 124.86, -7.04, 2.26)
	pt3dadd(-44.03, 126.18, -6.82, 2.26)
	pt3dadd(-44.41, 130.32, -6.67, 2.26)
	pt3dadd(-43.66, 132.58, -6.59, 2.26)
	pt3dadd(-42.72, 135.03, -6.51, 2.26)
	pt3dadd(-42.15, 138.04, -6.44, 2.26)
	pt3dadd(-42.72, 141.43, -5.83, 2.26)
	pt3dadd(-42.9, 145.58, -5.68, 2.26)
	pt3dadd(-42.72, 147.84, -5.68, 2.26)
	pt3dadd(-42.72, 150.85, -5.61, 2.26)
	pt3dadd(-44.03, 152.74, -5.61, 2.26)
	pt3dadd(-46.29, 155, -5.61, 2.26)
	pt3dadd(-47.8, 155.75, -5.53, 2.26)
	pt3dadd(-49.12, 155.75, -3.26, 1.88)
	pt3dadd(-50.81, 157.07, -3.03, 1.88)
	pt3dadd(-50.81, 159.71, -2.95, 1.88)
	pt3dadd(-49.49, 160.84, -2.95, 1.88)
	pt3dadd(-47.8, 162.72, 1.59, 1.69)
	pt3dadd(-48.55, 164.98, 1.67, 1.69)
	pt3dadd(-50.81, 166.68, 1.74, 1.69)
	pt3dadd(-52.18, 168.42, 1.74, 1.69)
	pt3dadd(-54.62, 170.31, 1.82, 1.69)
	pt3dadd(-56.88, 170.68, 2.42, 1.69)
	pt3dadd(-58.77, 171.63, 4.24, 1.69)
	pt3dadd(-60.27, 174.07, 4.7, 1.69)
	pt3dadd(-58.95, 176.9, 5, 1.69)
	pt3dadd(-57.82, 178.78, 5.15, 1.69)
	pt3dadd(-55.56, 180.29, 5.15, 1.69)
	pt3dadd(-55.75, 182.74, 7.57, 1.69)
	pt3dadd(-56.51, 185.57, 8.11, 1.69)
	pt3dadd(-57.45, 187.26, 8.48, 1.69)
	pt3dadd(-57.82, 189.52, 8.94, 1.69)
	pt3dadd(-59.52, 191.03, 9.39, 1.69)
	pt3dadd(-62.15, 191.22, 10.45, 1.69)
	pt3dadd(-63.47, 192.72, 10.6, 1.69)
	pt3dadd(-63.1, 194.42, 10.6, 1.69)
	pt3dadd(-62.53, 196.49, 11.06, 1.69)
	pt3dadd(-62.53, 198.75, 11.44, 1.69)
	pt3dadd(-62.53, 200.64, 11.51, 1.69)
	pt3dadd(-62.15, 202.14, 11.51, 1.69)
	pt3dadd(-64.04, 204.4, 11.59, 0.94)
	pt3dadd(-64.79, 206.1, 11.59, 0.94)
	pt3dadd(-65.92, 207.98, 11.67, 0.94)
	pt3dadd(-67.43, 210.24, 11.67, 0.94)
  }
  apic[90] {pt3dclear()
	pt3dadd(-29.35, 90.57, -5.3, 2.26)
	pt3dadd(-31.09, 91.19, -3.71, 2.26)
	pt3dadd(-33.72, 91.94, -3.71, 2.26)
	pt3dadd(-35.98, 92.13, -3.71, 2.26)
	pt3dadd(-38.06, 93.45, -3.71, 2.26)
	pt3dadd(-38.62, 95.34, -3.71, 2.26)
	pt3dadd(-38.81, 97.41, -7.12, 2.26)
	pt3dadd(-41.07, 99.86, -8.18, 2.26)
  }
  apic[91] {pt3dclear()
	pt3dadd(-41.07, 99.86, -8.18, 1.88)
	pt3dadd(-41.07, 102.49, -13.18, 1.88)
	pt3dadd(-42.39, 104.38, -15.38, 1.88)
	pt3dadd(-44.27, 105.88, -15.91, 2.45)
	pt3dadd(-46.53, 106.83, -15.91, 2.45)
	pt3dadd(-50.29, 108.33, -15.98, 2.45)
	pt3dadd(-53.12, 110.59, -15.98, 2.45)
	pt3dadd(-53.68, 113.8, -16.06, 2.45)
	pt3dadd(-55.38, 115.49, -17.57, 2.45)
	pt3dadd(-56.69, 116.24, -19.62, 2.07)
	pt3dadd(-59.52, 115.87, -19.77, 2.07)
	pt3dadd(-61.02, 117.37, -19.77, 2.07)
	pt3dadd(-60.65, 119.82, -19.92, 2.07)
	pt3dadd(-60.46, 122.65, -21.06, 2.07)
	pt3dadd(-62.15, 124.34, -21.36, 2.07)
	pt3dadd(-64.6, 125.85, -22.27, 2.07)
	pt3dadd(-67.24, 128.3, -22.65, 2.07)
	pt3dadd(-69.69, 130.75, -23.1, 2.07)
	pt3dadd(-71.57, 132.63, -23.41, 2.07)
//	pt3dadd(-74.77, 134.71, -23.63, 2.07)
  }
}
proc shape3d_28() {
  apic[91] {	pt3dadd(-77.97, 135.65, -24.85, 2.07)
	pt3dadd(-81.36, 135.65, -25.3, 2.07)
	pt3dadd(-83.62, 136.97, -25.45, 2.07)
	pt3dadd(-86.07, 138.66, -25.91, 2.07)
	pt3dadd(-88.51, 140.92, -26.21, 2.07)
	pt3dadd(-88.7, 143.75, -26.29, 2.07)
	pt3dadd(-90.02, 146.95, -28.63, 2.07)
	pt3dadd(-93.41, 148.64, -28.71, 2.07)
	pt3dadd(-95.86, 150.72, -28.71, 2.07)
	pt3dadd(-96.61, 154.48, -28.86, 2.07)
	pt3dadd(-95.1, 156.74, -28.86, 2.07)
	pt3dadd(-96.23, 159.76, -29.39, 2.07)
	pt3dadd(-99.06, 161.27, -29.77, 2.07)
	pt3dadd(-100.94, 161.45, -31.44, 1.88)
	pt3dadd(-103.39, 161.83, -31.66, 1.88)
	pt3dadd(-104.89, 163.34, -31.74, 1.69)
	pt3dadd(-108.09, 164.84, -32.27, 1.69)
	pt3dadd(-110.16, 166.92, -32.42, 1.69)
	pt3dadd(-111.86, 168.99, -32.42, 1.69)
	pt3dadd(-112.61, 171.25, -32.65, 1.69)
	pt3dadd(-115.06, 174.26, -32.65, 1.69)
	pt3dadd(-117.7, 175.77, -33.18, 1.69)
	pt3dadd(-120.52, 177.84, -33.86, 1.69)
	pt3dadd(-123.16, 180.29, -34.77, 1.69)
	pt3dadd(-124.85, 180.86, -34.77, 1.69)
	pt3dadd(-126.54, 181.23, -34.85, 1.69)
	pt3dadd(-126.92, 185.19, -34.92, 1.69)
	pt3dadd(-128.43, 185.57, -35.15, 1.69)
	pt3dadd(-130.5, 186.7, -38.48, 1.51)
	pt3dadd(-132.57, 188.77, -38.48, 1.51)
	pt3dadd(-134.26, 191.03, -38.48, 1.51)
	pt3dadd(-136.9, 192.35, -38.56, 1.51)
	pt3dadd(-137.84, 194.23, -38.78, 1.51)
	pt3dadd(-136.15, 196.3, -38.78, 1.51)
	pt3dadd(-136.15, 198.94, -38.86, 1.51)
	pt3dadd(-137.65, 200.26, -39.84, 1.51)
	pt3dadd(-139.91, 201.2, -40.37, 1.51)
	pt3dadd(-141.42, 202.14, -41.21, 1.51)
	pt3dadd(-141.98, 204.4, -41.59, 1.51)
	pt3dadd(-141.98, 206.47, -41.66, 1.32)
	pt3dadd(-143.68, 208.17, -41.66, 1.32)
	pt3dadd(-145.56, 209.87, -41.66, 1.32)
	pt3dadd(-147.07, 211.18, -41.66, 1.32)
	pt3dadd(-148.76, 212.31, -41.66, 1.32)
	pt3dadd(-149.89, 213.82, -41.66, 1.32)
//	pt3dadd(-151.4, 214.01, -83.32, 1.32)
  }
  apic[92] {pt3dclear()
	pt3dadd(-41.07, 99.86, -8.18, 1.51)
	pt3dadd(-43.14, 98.91, -9.09, 1.51)
	pt3dadd(-46.34, 97.41, -9.32, 1.51)
	pt3dadd(-48.03, 97.03, -9.62, 1.51)
	pt3dadd(-50.29, 96.84, -10.38, 1.51)
	pt3dadd(-52.55, 96.65, -11.29, 1.51)
	pt3dadd(-55.56, 97.41, -11.82, 1.51)
	pt3dadd(-57.26, 97.78, -12.42, 1.51)
	pt3dadd(-60.08, 97.22, -12.95, 1.51)
	pt3dadd(-61.97, 95.71, -13.1, 1.51)
	pt3dadd(-61.02, 94.21, -22.27, 1.51)
	pt3dadd(-62.34, 92.13, -22.27, 1.51)
	pt3dadd(-64.04, 91.38, -22.27, 1.51)
	pt3dadd(-66.67, 89.31, -22.27, 1.51)
	pt3dadd(-68.74, 90.25, -22.27, 1.51)
	pt3dadd(-67.99, 93.08, -22.27, 1.51)
	pt3dadd(-65.36, 91.94, -22.27, 1.51)
	pt3dadd(-63.85, 89.12, -22.27, 1.51)
	pt3dadd(-62.15, 89.68, -22.27, 1.51)
	pt3dadd(-63.1, 92.51, -22.27, 1.51)
	pt3dadd(-64.79, 94.39, -24.69, 1.32)
	pt3dadd(-65.92, 95.9, -26.97, 1.32)
	pt3dadd(-67.24, 98.16, -29.32, 1.32)
	pt3dadd(-68.56, 98.73, -29.85, 1.32)
	pt3dadd(-71.94, 97.22, -30.98, 1.32)
	pt3dadd(-71, 99.86, -32.19, 1.32)
	pt3dadd(-69.87, 101.93, -32.8, 1.32)
	pt3dadd(-71, 103.81, -35.07, 1.32)
	pt3dadd(-73.83, 104.94, -37.8, 1.32)
	pt3dadd(-75.33, 106.83, -39.62, 1.32)
	pt3dadd(-77.59, 107.01, -40.75, 1.32)
	pt3dadd(-79.85, 107.58, -42.5, 1.32)
	pt3dadd(-82.49, 107.77, -43.71, 1.32)
	pt3dadd(-84.56, 105.13, -45.75, 1.32)
	pt3dadd(-83.43, 103.62, -45.9, 1.32)
	pt3dadd(-83.05, 101.74, -46.89, 1.32)
//	pt3dadd(-83.05, 99.67, -95, 1.32)
  }
  apic[93] {pt3dclear()
	pt3dadd(4.98, 71.24, -1.82, 1.69)
	pt3dadd(5.32, 73.38, -3.56, 1.69)
	pt3dadd(4.38, 75.45, -4.32, 1.69)
	pt3dadd(4, 77.71, -4.62, 1.69)
	pt3dadd(4, 79.4, -5.23, 1.69)
	pt3dadd(4.75, 81.85, -5.38, 1.69)
	pt3dadd(3.25, 81.85, -5.38, 1.69)
	pt3dadd(1.55, 79.4, -7.04, 1.69)
	pt3dadd(0.24, 77.52, -8.56, 1.69)
	pt3dadd(-1.46, 76.96, -13.48, 1.69)
	pt3dadd(-2.78, 75.45, -13.48, 1.69)
	pt3dadd(-5.04, 73.57, -13.48, 1.69)
	pt3dadd(-7.3, 73.94, -13.56, 1.69)
	pt3dadd(-8.24, 74.51, -17.04, 1.32)
	pt3dadd(-10.12, 74.13, -17.04, 1.32)
	pt3dadd(-13.13, 75.26, -20, 1.32)
  }
  apic[94] {pt3dclear()
	pt3dadd(-13.13, 75.26, -20, 1.32)
	pt3dadd(-13.51, 76.39, -20.07, 1.32)
	pt3dadd(-12, 79.03, -20.07, 1.32)
	pt3dadd(-10.68, 80.35, -20.07, 1.32)
	pt3dadd(-8.99, 80.16, -24.47, 1.32)
	pt3dadd(-7.11, 80.54, -25.38, 1.32)
	pt3dadd(-6.17, 82.42, -26.89, 1.32)
	pt3dadd(-4.1, 83.17, -26.97, 1.32)
	pt3dadd(-2.59, 82.98, -26.97, 1.32)
	pt3dadd(-2.4, 80.35, -26.97, 1.32)
	pt3dadd(-5.04, 81.67, -26.97, 1.32)
	pt3dadd(-7.67, 82.04, -26.97, 1.32)
	pt3dadd(-9.37, 82.42, -30.68, 1.32)
	pt3dadd(-10.87, 83.93, -30.83, 1.32)
	pt3dadd(-9.18, 84.87, -31.66, 1.32)
	pt3dadd(-6.17, 85.24, -37.8, 1.32)
	pt3dadd(-4.66, 86.56, -37.95, 1.32)
	pt3dadd(-4.85, 88.82, -38.41, 1.32)
	pt3dadd(-6.54, 88.82, -38.86, 1.32)
	pt3dadd(-9.37, 88.26, -41.13, 1.32)
	pt3dadd(-11.25, 88.64, -42.12, 1.32)
	pt3dadd(-13.13, 89.77, -43.33, 1.32)
	pt3dadd(-12, 91.46, -44.24, 1.32)
	pt3dadd(-10.87, 92.4, -45.45, 1.32)
	pt3dadd(-9.18, 95.79, -46.13, 1.32)
	pt3dadd(-8.43, 93.72, -46.13, 1.32)
	pt3dadd(-7.11, 92.78, -46.66, 1.32)
	pt3dadd(-5.79, 93.34, -47.5, 1.32)
	pt3dadd(-5.04, 95.23, -48.18, 1.32)
	pt3dadd(-4.85, 97.3, -49.31, 1.32)
	pt3dadd(-4.85, 100.88, -51.28, 1.32)
	pt3dadd(-4.28, 101.63, -52.95, 1.32)
	pt3dadd(-3.53, 104.46, -55.68, 1.32)
	pt3dadd(-1.84, 106.15, -58.25, 1.32)
	pt3dadd(-0.71, 108.98, -59.46, 1.32)
	pt3dadd(-0.33, 111.8, -60.37, 1.32)
	pt3dadd(-0.14, 114.82, -60.9, 1.32)
	pt3dadd(0.42, 117.64, -61.89, 1.32)
	pt3dadd(1.74, 120.66, -63.18, 1.32)
	pt3dadd(3.44, 122.54, -64.24, 1.32)
	pt3dadd(5.32, 123.3, -65.22, 1.32)
	pt3dadd(7.2, 125.18, -66.36, 1.32)
	pt3dadd(9.65, 127.82, -67.64, 1.32)
	pt3dadd(11.16, 129.7, -67.49, 1.32)
	pt3dadd(12.28, 131.58, -67.19, 1.32)
	pt3dadd(13.04, 133.84, -64.24, 1.32)
	pt3dadd(13.41, 134.97, -62.57, 1.32)
	pt3dadd(14.73, 136.86, -66.13, 1.32)
	pt3dadd(17.18, 137.8, -66.28, 1.32)
	pt3dadd(20, 139.12, -67.27, 1.32)
	pt3dadd(21.7, 141.57, -67.34, 1.32)
	pt3dadd(23.2, 141.19, -67.42, 1.32)
	pt3dadd(24.52, 141.76, -67.42, 1.32)
  }
  apic[95] {pt3dclear()
	pt3dadd(-13.13, 75.26, -20, 1.32)
	pt3dadd(-14.07, 76.2, -25.6, 1.32)
	pt3dadd(-16.33, 76.2, -25.68, 1.32)
	pt3dadd(-17.27, 77.71, -25.68, 1.32)
	pt3dadd(-16.9, 79.4, -25.68, 1.32)
	pt3dadd(-15.96, 80.72, -25.68, 1.32)
	pt3dadd(-14.45, 82.98, -25.68, 1.32)
	pt3dadd(-12.76, 85.62, -25.75, 1.32)
	pt3dadd(-13.89, 86.19, -25.75, 1.32)
	pt3dadd(-16.14, 83.17, -25.75, 1.32)
	pt3dadd(-18.03, 82.04, -25.75, 1.32)
	pt3dadd(-19.53, 83.55, -30.83, 1.32)
	pt3dadd(-20.85, 84.3, -31.59, 1.32)
	pt3dadd(-22.92, 84.3, -32.65, 1.32)
	pt3dadd(-24.81, 83.93, -34.47, 1.32)
	pt3dadd(-27.06, 83.74, -35, 1.32)
	pt3dadd(-28.95, 83.55, -35.98, 1.32)
	pt3dadd(-30.45, 82.61, -36.97, 1.32)
	pt3dadd(-30.83, 81.29, -37.34, 1.32)
	pt3dadd(-28.19, 81.48, -37.5, 1.32)
	pt3dadd(-27.25, 80.91, -37.95, 1.32)
	pt3dadd(-28.76, 79.22, -39.39, 1.32)
	pt3dadd(-31.21, 77.71, -40.22, 1.32)
	pt3dadd(-33.28, 78.09, -41.36, 1.32)
	pt3dadd(-33.65, 78.46, -42.87, 1.32)
	pt3dadd(-34.22, 79.22, -43.86, 1.32)
	pt3dadd(-34.97, 79.78, -45.75, 1.32)
	pt3dadd(-35.35, 80.72, -47.04, 1.32)
	pt3dadd(-35.54, 82.23, -47.57, 1.32)
	pt3dadd(-34.78, 83.36, -49.24, 1.32)
	pt3dadd(-33.09, 85.06, -49.24, 1.32)
	pt3dadd(-33.84, 86.56, -50.22, 1.32)
	pt3dadd(-35.54, 84.49, -50.6, 1.32)
	pt3dadd(-37.23, 84.11, -51.74, 1.32)
	pt3dadd(-38.93, 83.74, -52.72, 1.32)
	pt3dadd(-40.62, 82.61, -53.93, 1.32)
	pt3dadd(-40.06, 80.91, -58.93, 1.32)
	pt3dadd(-37.8, 79.97, -59.54, 1.32)
	pt3dadd(-39.11, 79.03, -59.62, 1.32)
	pt3dadd(-40.81, 79.97, -60.45, 1.32)
	pt3dadd(-42.88, 79.78, -61.05, 1.32)
	pt3dadd(-44.57, 77.9, -61.96, 1.32)
	pt3dadd(-41.75, 78.27, -69.39, 1.32)
	pt3dadd(-40.06, 77.33, -69.39, 1.32)
	pt3dadd(-38.36, 76.01, -69.39, 1.32)
	pt3dadd(-35.73, 75.83, -69.46, 1.32)
	pt3dadd(-34.97, 77.9, -69.46, 1.32)
	pt3dadd(-36.67, 80.35, -69.46, 1.32)
  }
}
proc shape3d_29() {
  apic[95] {  }
  apic[96] {pt3dclear()
	pt3dadd(9.06, 47.86, -2.2, 2.07)
	pt3dadd(11.91, 48.14, -0.91, 2.07)
	pt3dadd(14.17, 47.76, -0.91, 2.07)
	pt3dadd(16.05, 47.76, -0.91, 2.07)
	pt3dadd(18.5, 47.19, -0.91, 2.07)
	pt3dadd(20.38, 47.01, -0.91, 2.07)
	pt3dadd(22.64, 46.25, -0.91, 2.07)
	pt3dadd(25.46, 46.06, -0.91, 2.07)
	pt3dadd(28.85, 46.82, -0.91, 2.07)
	pt3dadd(31.68, 46.44, -0.91, 2.07)
	pt3dadd(33.37, 47.19, -0.91, 2.07)
	pt3dadd(34.88, 48.14, -0.91, 2.07)
	pt3dadd(37.51, 48.14, -0.91, 2.07)
	pt3dadd(39.21, 47.57, -0.98, 2.07)
	pt3dadd(40.9, 47.57, -0.98, 2.07)
	pt3dadd(43.16, 47.57, -1.06, 2.07)
	pt3dadd(44.48, 47.76, -1.14, 2.07)
	pt3dadd(46.17, 47.95, -1.21, 2.07)
	pt3dadd(47.87, 48.14, -1.29, 2.07)
	pt3dadd(49.94, 48.89, -1.29, 2.07)
  }
  apic[97] {pt3dclear()
	pt3dadd(49.94, 48.89, -1.29, 1.88)
	pt3dadd(53.52, 49.64, -1.74, 1.88)
	pt3dadd(55.96, 48.89, -1.82, 1.88)
	pt3dadd(58.41, 48.32, -1.82, 1.88)
	pt3dadd(60.67, 47.38, -1.89, 1.88)
	pt3dadd(62.55, 47.38, -1.89, 1.88)
	pt3dadd(64.06, 48.51, -1.89, 1.88)
	pt3dadd(66.13, 49.64, -1.89, 1.88)
	pt3dadd(68.2, 50.21, -1.97, 1.88)
	pt3dadd(69.33, 50.58, -1.97, 1.88)
	pt3dadd(71.59, 51.34, -6.44, 1.88)
	pt3dadd(74.23, 50.96, -7.65, 1.88)
	pt3dadd(77.05, 49.08, -7.95, 1.88)
	pt3dadd(78.75, 46.82, -8.26, 1.88)
	pt3dadd(80.63, 44.56, -8.48, 1.88)
	pt3dadd(82.51, 43.99, -8.56, 1.88)
	pt3dadd(85.9, 44.56, -9.01, 1.88)
	pt3dadd(88.91, 44.56, -9.24, 1.88)
	pt3dadd(91.55, 44.37, -10, 1.88)
	pt3dadd(93.06, 43.99, -10.07, 1.88)
	pt3dadd(96.26, 43.8, -10.23, 1.88)
	pt3dadd(99.08, 43.61, -10.76, 1.88)
	pt3dadd(101.72, 43.61, -11.51, 1.88)
	pt3dadd(103.41, 42.67, -11.97, 1.88)
	pt3dadd(105.48, 41.54, -12.35, 1.88)
	pt3dadd(108.68, 40.22, -12.57, 1.88)
	pt3dadd(112.64, 40.04, -12.73, 1.88)
	pt3dadd(115.65, 40.41, -12.95, 1.88)
	pt3dadd(117.34, 40.41, -13.18, 1.88)
  }
  apic[98] {pt3dclear()
	pt3dadd(117.34, 40.41, -13.18, 1.88)
	pt3dadd(120.36, 39.09, -18.48, 1.88)
	pt3dadd(122.05, 38.15, -18.56, 1.88)
	pt3dadd(123.18, 36.46, -18.56, 1.88)
	pt3dadd(124.31, 35.7, -18.56, 1.88)
	pt3dadd(126.94, 35.51, -18.63, 1.88)
	pt3dadd(128.64, 35.7, -19.09, 1.88)
	pt3dadd(130.33, 36.64, -19.16, 1.88)
	pt3dadd(132.69, 36.93, -19.24, 1.88)
	pt3dadd(133.44, 36.17, -19.24, 1.88)
	pt3dadd(136.27, 34.86, -19.24, 1.88)
	pt3dadd(139.28, 35.42, -19.24, 1.88)
	pt3dadd(140.79, 35.8, -19.24, 1.88)
	pt3dadd(142.86, 34.48, -19.24, 1.88)
	pt3dadd(145.12, 33.73, -19.24, 1.88)
	pt3dadd(146.25, 34.48, -19.24, 1.88)
	pt3dadd(148.32, 34.48, -19.24, 1.88)
	pt3dadd(149.63, 33.16, -19.24, 1.88)
	pt3dadd(151.71, 32.97, -19.24, 1.88)
	pt3dadd(153.4, 33.35, -19.24, 1.88)
	pt3dadd(155.85, 32.41, -19.24, 1.88)
	pt3dadd(156.41, 31.47, -19.24, 1.88)
	pt3dadd(158.3, 29.96, -19.24, 1.88)
	pt3dadd(161.31, 28.83, -19.24, 1.88)
	pt3dadd(164.88, 27.89, -19.24, 1.88)
	pt3dadd(168.65, 27.7, -19.24, 1.88)
	pt3dadd(171.85, 27.7, -19.24, 1.88)
	pt3dadd(173.92, 29.02, -19.24, 1.88)
	pt3dadd(175.24, 28.07, -19.24, 1.88)
	pt3dadd(176.56, 26.76, -19.24, 1.32)
	pt3dadd(178.82, 25.81, -19.24, 1.32)
	pt3dadd(180.32, 27.13, -19.24, 1.32)
	pt3dadd(182.39, 28.07, -19.24, 1.32)
	pt3dadd(185.22, 28.07, -19.24, 1.32)
	pt3dadd(186.91, 26.38, -19.24, 1.32)
	pt3dadd(189.36, 25.81, -19.24, 1.32)
	pt3dadd(191.06, 26.38, -19.24, 1.32)
	pt3dadd(193.31, 26.94, -16.82, 1.32)
	pt3dadd(195.39, 25.81, -16.59, 1.32)
	pt3dadd(197.83, 23.74, -16.51, 1.32)
	pt3dadd(200.47, 21.67, -16.44, 1.32)
	pt3dadd(201.98, 20.73, -16.36, 1.32)
	pt3dadd(204.61, 19.41, -16.36, 1.32)
	pt3dadd(207.06, 18.47, -16.29, 1.32)
	pt3dadd(209.51, 17.34, -16.29, 1.32)
	pt3dadd(211.01, 15.83, -16.29, 1.32)
	pt3dadd(212.33, 13.38, -16.29, 1.32)
	pt3dadd(212.9, 12.82, -16.29, 1.32)
  }
  apic[99] {pt3dclear()
	pt3dadd(117.34, 40.41, -13.18, 1.32)
	pt3dadd(116.87, 41.64, -20.76, 1.32)
	pt3dadd(118, 44.09, -20.83, 1.32)
	pt3dadd(119.89, 43.14, -20.91, 1.32)
	pt3dadd(121.77, 40.51, -21.74, 1.32)
	pt3dadd(122.15, 39.57, -22.5, 1.32)
	pt3dadd(123.28, 39.38, -22.95, 1.32)
	pt3dadd(124.97, 39.19, -22.95, 1.32)
	pt3dadd(127.79, 38.81, -23.03, 1.32)
	pt3dadd(128.74, 39.94, -23.03, 1.32)
	pt3dadd(129.11, 42.58, -23.03, 1.32)
	pt3dadd(129.49, 43.9, -23.03, 1.32)
	pt3dadd(130.43, 45.78, -23.03, 1.32)
	pt3dadd(132.69, 46.16, -23.03, 1.32)
	pt3dadd(134.38, 46.16, -23.03, 1.32)
	pt3dadd(136.64, 46.16, -24.54, 1.32)
	pt3dadd(138.15, 47.1, -26.97, 1.32)
	pt3dadd(139.47, 49.17, -27.95, 1.32)
	pt3dadd(141.16, 50.11, -28.86, 1.32)
	pt3dadd(143.8, 51.62, -28.86, 1.32)
	pt3dadd(145.3, 51.62, -28.86, 1.32)
	pt3dadd(147, 52.94, -28.86, 1.32)
	pt3dadd(147.56, 54.26, -28.94, 1.32)
	pt3dadd(149.82, 55.77, -28.94, 1.32)
	pt3dadd(152.08, 56.52, -28.94, 1.32)
	pt3dadd(155.09, 57.08, -28.94, 1.32)
	pt3dadd(156.6, 56.71, -28.94, 1.32)
//	pt3dadd(157.92, 55.2, -57.88, 1.32)
  }
  apic[100] {pt3dclear()
	pt3dadd(49.94, 48.89, -1.29, 1.32)
	pt3dadd(51.09, 47.32, -3.48, 1.32)
	pt3dadd(53.54, 45.63, -3.56, 1.32)
	pt3dadd(55.42, 44.87, -3.64, 1.32)
	pt3dadd(56.36, 44.87, -3.71, 1.32)
	pt3dadd(59.56, 44.31, -3.71, 1.32)
	pt3dadd(61.63, 42.99, -3.71, 1.32)
	pt3dadd(62.76, 41.48, -5, 1.32)
	pt3dadd(61.26, 39.22, -7.04, 1.32)
	pt3dadd(59.94, 37.34, -7.57, 1.32)
	pt3dadd(59.18, 35.45, -11.82, 1.32)
	pt3dadd(59.37, 32.44, -12.35, 1.32)
	pt3dadd(59.75, 29.99, -13.33, 1.32)
	pt3dadd(61.07, 27.73, -13.94, 1.32)
	pt3dadd(63.14, 26.79, -14.47, 1.32)
	pt3dadd(64.83, 27.73, -16.59, 1.32)
	pt3dadd(66.53, 29.43, -17.65, 1.32)
	pt3dadd(67.66, 31.5, -18.71, 1.32)
	pt3dadd(69.16, 32.44, -19.62, 1.32)
	pt3dadd(70.48, 32.44, -20.3, 1.32)
	pt3dadd(72.36, 31.87, -20.98, 1.32)
	pt3dadd(72.74, 30.74, -21.89, 1.32)
	pt3dadd(72.18, 29.05, -22.27, 1.32)
	pt3dadd(70.86, 26.41, -23.26, 1.32)
	pt3dadd(70.86, 24.34, -23.86, 1.32)
	pt3dadd(72.74, 24.53, -24.32, 1.32)
	pt3dadd(74.06, 26.41, -26.51, 1.32)
	pt3dadd(75, 27.73, -27.8, 1.32)
	pt3dadd(75.75, 29.61, -29.16, 1.32)
	pt3dadd(76.32, 31.12, -30.75, 1.32)
	pt3dadd(77.26, 32.06, -31.89, 1.32)
	pt3dadd(79.14, 32.25, -33.18, 1.32)
	pt3dadd(79.89, 31.31, -34.24, 1.32)
	pt3dadd(80.46, 29.24, -34.54, 1.32)
	pt3dadd(81.4, 27.54, -35.91, 1.32)
	pt3dadd(83.1, 26.98, -36.81, 1.32)
	pt3dadd(85.73, 26.04, -37.8, 1.32)
	pt3dadd(87.05, 27.54, -38.78, 1.32)
	pt3dadd(88.18, 28.86, -39.69, 1.32)
	pt3dadd(89.68, 30.18, -40.37, 1.32)
	pt3dadd(91, 30.37, -40.75, 1.32)
	pt3dadd(93.07, 30.18, -45.22, 1.32)
	pt3dadd(94.02, 28.48, -45.3, 1.32)
	pt3dadd(93.64, 25.47, -45.53, 1.32)
	pt3dadd(95.71, 24.9, -46.66, 1.32)
	pt3dadd(97.97, 25.09, -47.72, 1.32)
	pt3dadd(99.66, 25.09, -49.24, 1.32)
	pt3dadd(100.79, 25.85, -50.68, 1.32)
	pt3dadd(102.49, 27.17, -51.36, 1.32)
	pt3dadd(104.18, 26.79, -52.42, 1.32)
	pt3dadd(107.76, 25.85, -53.48, 1.32)
	pt3dadd(110.21, 26.79, -54.62, 1.32)
	pt3dadd(111.9, 25.85, -54.69, 1.32)
	pt3dadd(112.84, 24.34, -54.69, 1.32)
  }
  apic[101] {pt3dclear()
	pt3dadd(6.05, 41.65, -2.2, 1.32)
	pt3dadd(4.58, 42.24, 3.18, 1.32)
	pt3dadd(2.7, 43.37, 3.26, 1.32)
	pt3dadd(1.76, 42.8, 3.41, 1.32)
	pt3dadd(0.63, 41.48, 3.48, 1.32)
	pt3dadd(-0.12, 39.41, 3.56, 1.32)
	pt3dadd(-1.44, 38.66, 3.64, 1.32)
	pt3dadd(-2.57, 38.84, 4.32, 1.32)
	pt3dadd(-4.08, 38.66, 5.91, 1.32)
	pt3dadd(-5.02, 40.16, 6.51, 1.32)
	pt3dadd(-5.96, 40.54, 6.97, 1.32)
	pt3dadd(-7.84, 40.92, 7.35, 1.32)
	pt3dadd(-9.91, 41.29, 7.57, 1.32)
	pt3dadd(-11.98, 40.73, 7.88, 1.32)
	pt3dadd(-13.11, 39.97, 14.09, 1.32)
	pt3dadd(-15.18, 39.03, 14.09, 1.32)
	pt3dadd(-17.44, 39.03, 14.17, 1.32)
	pt3dadd(-18.76, 38.28, 15.07, 1.32)
	pt3dadd(-22.15, 37.53, 15.07, 1.32)
	pt3dadd(-23.85, 39.03, 15.07, 1.32)
	pt3dadd(-23.66, 41.1, 15.15, 1.32)
  }
}
proc shape3d_30() {
  apic[101] {	pt3dadd(-23.09, 43.37, 15.15, 1.32)
	pt3dadd(-22.53, 45.44, 15.15, 1.32)
	pt3dadd(-23.47, 46.57, 16.97, 1.32)
	pt3dadd(-24.22, 47.51, 17.2, 1.32)
	pt3dadd(-23.66, 49.39, 17.65, 1.32)
	pt3dadd(-22.72, 50.9, 17.8, 1.32)
	pt3dadd(-22.34, 52.78, 17.95, 1.32)
	pt3dadd(-23.09, 53.73, 18.1, 1.32)
	pt3dadd(-25.35, 53.91, 18.63, 1.32)
	pt3dadd(-27.61, 54.1, 18.94, 1.32)
	pt3dadd(-29.31, 54.86, 19.24, 1.32)
	pt3dadd(-30.62, 55.99, 19.32, 1.32)
	pt3dadd(-31.75, 57.3, 19.39, 1.32)
	pt3dadd(-31.56, 58.81, 19.47, 1.32)
	pt3dadd(-31.56, 60.32, 19.47, 0.75)
	pt3dadd(-32.88, 62.01, 19.47, 0.75)
	pt3dadd(-33.64, 64.27, 19.47, 0.75)
	pt3dadd(-33.26, 65.4, 19.47, 0.75)
	pt3dadd(-31.19, 65.78, 19.47, 0.75)
	pt3dadd(-30.06, 68.04, 19.47, 0.75)
	pt3dadd(-29.68, 70.11, 19.54, 0.75)
	pt3dadd(-28.74, 70.68, 19.54, 0.75)
	pt3dadd(-26.86, 70.68, 19.54, 0.75)
  }
  apic[102] {pt3dclear()
	pt3dadd(3.22, 28.27, -2.27, 2.07)
	pt3dadd(1.01, 28.11, 1.89, 2.07)
	pt3dadd(-0.69, 28.11, 1.97, 2.07)
	pt3dadd(-2.95, 28.48, 1.97, 2.07)
	pt3dadd(-5.21, 29.24, 1.97, 2.07)
	pt3dadd(-5.77, 31.69, 1.97, 2.07)
	pt3dadd(-6.15, 33.19, 1.97, 2.07)
	pt3dadd(-7.28, 35.27, 4.92, 2.07)
	pt3dadd(-8.6, 36.4, 5.08, 2.07)
	pt3dadd(-11.04, 37.53, 5.08, 2.07)
	pt3dadd(-14.06, 37.15, 5.23, 2.07)
	pt3dadd(-15.75, 35.83, 11.97, 2.07)
	pt3dadd(-18.76, 35.64, 12.04, 2.07)
	pt3dadd(-20.83, 35.83, 12.04, 2.07)
  }
  apic[103] {pt3dclear()
	pt3dadd(-20.83, 35.83, 12.04, 2.07)
	pt3dadd(-23.28, 35.27, 12.5, 2.07)
	pt3dadd(-25.16, 36.02, 12.57, 2.07)
	pt3dadd(-27.8, 36.96, 12.57, 2.07)
	pt3dadd(-31, 36.4, 12.65, 2.07)
	pt3dadd(-32.32, 39.22, 14.01, 2.07)
	pt3dadd(-33.64, 41.1, 14.01, 2.07)
	pt3dadd(-35.33, 41.86, 12.35, 2.07)
	pt3dadd(-38.15, 42.05, 6.51, 2.07)
	pt3dadd(-40.79, 42.05, 5.15, 2.07)
	pt3dadd(-44.18, 41.48, 4.01, 2.07)
	pt3dadd(-47, 42.05, 3.41, 2.07)
	pt3dadd(-50.2, 42.61, 3.03, 2.07)
	pt3dadd(-52.28, 42.8, 2.8, 2.07)
	pt3dadd(-54.72, 42.99, 2.73, 2.07)
	pt3dadd(-57.74, 42.24, 2.58, 2.07)
	pt3dadd(-59.81, 43.37, 2.5, 2.07)
	pt3dadd(-62.25, 44.87, 2.42, 2.07)
	pt3dadd(-64.51, 45.81, 2.27, 2.07)
	pt3dadd(-66.77, 47.32, 2.05, 2.07)
	pt3dadd(-69.22, 47.89, 1.97, 2.07)
	pt3dadd(-70.91, 49.39, 1.89, 2.07)
	pt3dadd(-71.29, 51.65, 1.67, 2.07)
	pt3dadd(-70.91, 54.29, 0.68, 2.07)
	pt3dadd(-72.23, 56.55, -0.3, 2.07)
	pt3dadd(-73.93, 57.12, -2.05, 2.07)
	pt3dadd(-76.56, 57.68, -2.73, 2.07)
	pt3dadd(-79.76, 58.25, -3.18, 2.07)
	pt3dadd(-81.65, 59.38, -3.26, 2.07)
	pt3dadd(-84.09, 60.7, -3.41, 2.07)
	pt3dadd(-85.98, 61.83, -3.48, 2.07)
	pt3dadd(-87.48, 62.96, -3.56, 2.07)
	pt3dadd(-89.93, 62.77, -3.64, 2.07)
	pt3dadd(-92.57, 62.58, -3.71, 2.07)
	pt3dadd(-94.64, 62.2, -3.79, 2.07)
	pt3dadd(-96.9, 64.46, -3.79, 2.07)
	pt3dadd(-98.97, 66.16, -3.79, 2.07)
	pt3dadd(-99.72, 67.1, -3.79, 1.88)
	pt3dadd(-101.6, 68.61, -3.86, 1.88)
	pt3dadd(-103.86, 68.98, -3.86, 1.88)
	pt3dadd(-105.93, 69.55, -3.86, 1.88)
	pt3dadd(-108, 70.11, -4.85, 1.88)
	pt3dadd(-110.26, 70.3, -5, 1.88)
	pt3dadd(-111.58, 72, -5.08, 1.88)
	pt3dadd(-112.9, 73.88, -5.15, 1.88)
	pt3dadd(-114.41, 75.95, -5.23, 1.88)
	pt3dadd(-115.72, 77.65, -5.23, 1.88)
	pt3dadd(-117.98, 79.72, -5.23, 1.88)
	pt3dadd(-119.87, 82.17, -5.23, 1.88)
	pt3dadd(-120.62, 83.11, -5.3, 1.88)
	pt3dadd(-120.35, 84.54, -5.3, 1.88)
	pt3dadd(-121.66, 85.67, -5.3, 1.88)
	pt3dadd(-123.55, 86.04, -5.3, 1.88)
	pt3dadd(-124.86, 87.74, -5.3, 1.88)
	pt3dadd(-127.31, 88.3, -5.53, 1.88)
	pt3dadd(-129.76, 88.11, -6.74, 1.88)
	pt3dadd(-132.77, 89.43, -7.04, 1.88)
	pt3dadd(-134.66, 91.69, -7.04, 1.88)
	pt3dadd(-135.97, 93.39, -7.04, 1.88)
	pt3dadd(-135.97, 95.65, -7.04, 1.88)
	pt3dadd(-137.86, 96.4, -7.04, 1.88)
	pt3dadd(-139.93, 97.91, -7.04, 1.88)
	pt3dadd(-141.81, 98.85, -7.73, 1.88)
	pt3dadd(-143.88, 99.79, -8.18, 1.88)
	pt3dadd(-145.76, 100.92, -8.48, 1.88)
	pt3dadd(-147.65, 102.43, -9.09, 1.88)
	pt3dadd(-149.72, 103.18, -9.47, 1.88)
	pt3dadd(-152.16, 104.13, -9.54, 1.88)
	pt3dadd(-154.8, 104.31, -9.62, 1.88)
	pt3dadd(-154.8, 105.44, -9.7, 1.51)
	pt3dadd(-155.55, 107.33, -9.7, 1.51)
	pt3dadd(-156.5, 109.02, -9.7, 1.51)
	pt3dadd(-156.5, 109.97, -9.7, 1.51)
  }
  apic[104] {pt3dclear()
	pt3dadd(-20.83, 35.83, 12.04, 1.88)
	pt3dadd(-21.69, 37.07, 16.06, 1.88)
	pt3dadd(-22.25, 39.33, 16.13, 1.88)
	pt3dadd(-21.69, 42.53, 16.21, 1.88)
	pt3dadd(-21.69, 44.41, 16.29, 1.88)
	pt3dadd(-20.56, 48.18, 16.36, 1.88)
	pt3dadd(-20.37, 50.25, 16.59, 1.88)
	pt3dadd(-20.56, 53.08, 16.74, 1.88)
	pt3dadd(-20.18, 56.28, 16.82, 1.88)
	pt3dadd(-19.62, 57.6, 16.82, 1.88)
	pt3dadd(-17.55, 60.24, 16.89, 1.88)
  }
  apic[105] {pt3dclear()
	pt3dadd(-17.55, 60.24, 16.89, 1.51)
	pt3dadd(-18.11, 63.44, 16.97, 1.51)
	pt3dadd(-19.43, 66.07, 16.97, 1.51)
	pt3dadd(-20.75, 68.15, 16.97, 1.51)
	pt3dadd(-20.75, 70.97, 16.97, 1.51)
	pt3dadd(-20.18, 73.8, 16.97, 1.51)
	pt3dadd(-20.18, 76.62, 18.18, 1.51)
	pt3dadd(-21.69, 78.32, 18.33, 1.51)
	pt3dadd(-22.63, 80.2, 18.1, 1.51)
	pt3dadd(-23.76, 82.65, 17.88, 1.51)
	pt3dadd(-24.51, 85.29, 17.73, 1.51)
	pt3dadd(-23.01, 87.36, 17.57, 1.51)
	pt3dadd(-20.56, 87.36, 17.5, 1.51)
	pt3dadd(-18.49, 90.37, 17.42, 1.51)
	pt3dadd(-19.24, 91.5, 14.77, 1.51)
	pt3dadd(-20.56, 92.82, 13.86, 1.51)
	pt3dadd(-21.69, 94.52, 12.95, 1.51)
	pt3dadd(-22.63, 96.78, 11.89, 1.51)
	pt3dadd(-23.57, 98.29, 9.62, 1.51)
	pt3dadd(-24.7, 99.79, 7.8, 1.51)
	pt3dadd(-25.83, 100.92, 6.36, 1.51)
	pt3dadd(-27.53, 101.68, 5.3, 1.51)
	pt3dadd(-29.6, 100.92, 5.3, 1.51)
	pt3dadd(-31.1, 100.36, 5.15, 1.51)
	pt3dadd(-32.8, 100.74, 3.94, 1.51)
	pt3dadd(-34.68, 100.92, 3.03, 1.51)
	pt3dadd(-36.38, 102.24, 2.42, 1.51)
	pt3dadd(-37.88, 104.5, 2.05, 1.51)
	pt3dadd(-38.82, 106.76, 2.35, 1.51)
	pt3dadd(-38.07, 107.7, 7.27, 1.51)
	pt3dadd(-37.69, 109.97, 7.42, 1.51)
	pt3dadd(-37.69, 111.85, 7.57, 1.51)
  }
  apic[106] {pt3dclear()
	pt3dadd(-17.55, 60.24, 16.89, 1.13)
	pt3dadd(-18.87, 60.61, 19.62, 1.13)
	pt3dadd(-20.56, 60.42, 19.85, 1.13)
	pt3dadd(-22.82, 61.18, 20, 1.13)
	pt3dadd(-24.14, 63.63, 20.07, 1.13)
	pt3dadd(-24.33, 65.89, 20.15, 1.13)
	pt3dadd(-24.89, 67.58, 20.15, 1.13)
	pt3dadd(-24.33, 69.28, 20.23, 1.13)
	pt3dadd(-23.95, 71.35, 20.23, 1.13)
  }
  apic[107] {pt3dclear()
	pt3dadd(4.16, 22.62, -2.27, 2.45)
	pt3dadd(5.58, 23.66, -0.08, 2.45)
	pt3dadd(6.9, 25.17, -0.08, 2.45)
	pt3dadd(9.72, 27.62, 6.29, 2.26)
	pt3dadd(12.54, 27.24, 6.36, 2.26)
	pt3dadd(15.37, 26.49, 6.44, 2.26)
	pt3dadd(18, 25.92, 6.89, 2.26)
	pt3dadd(20.26, 26.49, 7.42, 2.26)
	pt3dadd(22.52, 27.81, 7.73, 2.26)
	pt3dadd(24.97, 28, 7.73, 2.26)
	pt3dadd(27.42, 27.43, 7.8, 2.26)
	pt3dadd(29.49, 26.49, 7.8, 1.88)
	pt3dadd(31.18, 25.55, 7.8, 1.88)
	pt3dadd(33.44, 24.6, 7.88, 1.88)
	pt3dadd(36.83, 24.79, 7.88, 1.88)
	pt3dadd(38.9, 26.49, 7.88, 1.88)
	pt3dadd(41.73, 28, 11.21, 1.88)
	pt3dadd(43.99, 29.13, 11.21, 1.88)
	pt3dadd(46.25, 30.63, 11.29, 1.88)
	pt3dadd(49.07, 31.2, 11.29, 1.88)
	pt3dadd(52.65, 31.01, 14.7, 1.88)
	pt3dadd(55.85, 31.39, 14.77, 1.88)
	pt3dadd(59.24, 31.95, 14.77, 1.88)
	pt3dadd(61.12, 32.14, 14.85, 1.88)
	pt3dadd(63.57, 32.7, 14.85, 1.88)
	pt3dadd(66.77, 34.21, 14.85, 1.88)
  }
  apic[108] {pt3dclear()
	pt3dadd(66.77, 34.21, 14.85, 1.88)
	pt3dadd(68.84, 36.85, 14.85, 1.88)
	pt3dadd(70.16, 39.49, 14.85, 1.88)
	pt3dadd(70.72, 41.56, 14.85, 1.88)
	pt3dadd(72.42, 43.82, 14.85, 1.88)
	pt3dadd(74.49, 46.27, 14.85, 1.88)
	pt3dadd(76.75, 48.34, 14.85, 1.88)
	pt3dadd(78.44, 50.41, 14.92, 1.88)
  }
  apic[109] {pt3dclear()
	pt3dadd(78.44, 50.41, 14.92, 1.88)
	pt3dadd(78.25, 53.05, 17.2, 1.88)
	pt3dadd(77.31, 55.69, 17.27, 1.88)
	pt3dadd(75.43, 57.57, 17.27, 1.88)
  }
}
proc shape3d_31() {
  apic[109] {	pt3dadd(75.05, 59.83, 17.27, 1.88)
	pt3dadd(73.55, 61.15, 17.27, 1.88)
	pt3dadd(73.73, 63.41, 17.27, 1.88)
	pt3dadd(74.49, 66.61, 17.35, 1.88)
	pt3dadd(75.05, 69.81, 17.27, 1.88)
	pt3dadd(75.24, 72.45, 17.35, 1.88)
	pt3dadd(76.56, 75.28, 19.24, 1.88)
	pt3dadd(78.06, 77.35, 19.39, 1.88)
	pt3dadd(77.88, 80.36, 19.39, 1.88)
	pt3dadd(78.25, 83.19, 19.47, 1.88)
	pt3dadd(78.52, 85.19, 19.54, 1.88)
	pt3dadd(78.9, 88.2, 19.54, 1.88)
	pt3dadd(78.33, 92.16, 19.54, 1.88)
	pt3dadd(78.9, 94.23, 19.54, 1.88)
	pt3dadd(79.65, 95.93, 19.54, 1.88)
	pt3dadd(80.78, 97.24, 19.54, 1.88)
	pt3dadd(81.15, 99.32, 19.54, 1.88)
	pt3dadd(81.15, 101.77, 19.54, 1.88)
	pt3dadd(80.59, 103.46, 19.54, 1.88)
	pt3dadd(79.84, 106.66, 19.54, 1.88)
	pt3dadd(79.65, 109.11, 19.54, 1.88)
	pt3dadd(78.9, 111.37, 19.54, 1.88)
	pt3dadd(80.02, 114.76, 19.54, 1.88)
	pt3dadd(81.15, 116.27, 19.54, 1.88)
	pt3dadd(81.91, 117.78, 19.54, 1.32)
	pt3dadd(81.72, 120.41, 19.54, 1.32)
	pt3dadd(82.28, 122.11, 19.54, 1.32)
	pt3dadd(83.79, 124.94, 19.54, 1.32)
  }
  apic[110] {pt3dclear()
	pt3dadd(78.44, 50.41, 14.92, 1.51)
	pt3dadd(79.46, 51.28, 13.86, 1.51)
	pt3dadd(80.4, 50.72, 13.71, 1.51)
	pt3dadd(82.66, 50.34, 13.64, 1.51)
	pt3dadd(83.6, 51.28, 13.56, 1.51)
	pt3dadd(85.11, 52.98, 13.71, 1.51)
	pt3dadd(86.99, 53.73, 13.79, 1.51)
	pt3dadd(88.5, 53.73, 13.41, 1.51)
	pt3dadd(89.44, 53.54, 11.82, 1.51)
	pt3dadd(90.57, 52.79, 11.74, 1.51)
	pt3dadd(93.2, 52.22, 13.41, 1.51)
	pt3dadd(95.09, 52.79, 15.3, 1.51)
	pt3dadd(97.35, 53.92, 17.12, 1.51)
	pt3dadd(100.17, 55.8, 17.65, 1.51)
	pt3dadd(102.05, 57.12, 19.16, 1.51)
	pt3dadd(103.94, 58.44, 19.54, 1.51)
	pt3dadd(105.44, 57.69, 20.15, 1.51)
	pt3dadd(107.14, 56.74, 20.45, 1.51)
	pt3dadd(109.4, 57.87, 20.68, 1.51)
	pt3dadd(111.09, 59.19, 21.06, 1.51)
	pt3dadd(113.54, 59.76, 21.36, 1.51)
	pt3dadd(115.61, 59.76, 21.66, 1.51)
	pt3dadd(118.06, 59.57, 21.89, 1.51)
	pt3dadd(119.75, 59.38, 22.04, 1.51)
	pt3dadd(121.26, 61.08, 22.19, 1.51)
	pt3dadd(123.52, 61.45, 22.5, 1.32)
	pt3dadd(125.02, 62.77, 22.57, 0.94)
	pt3dadd(126.72, 63.53, 22.57, 0.94)
	pt3dadd(128.41, 64.28, 22.57, 0.94)
	pt3dadd(127.47, 67.11, 22.65, 0.94)
  }
  apic[111] {pt3dclear()
	pt3dadd(66.77, 34.21, 14.85, 0.94)
	pt3dadd(68.73, 35.46, 15.15, 0.94)
	pt3dadd(70.8, 36.4, 15.15, 0.94)
	pt3dadd(72.49, 37.72, 15.98, 0.94)
	pt3dadd(73.62, 39.6, 16.66, 0.94)
	pt3dadd(74.19, 42.24, 17.12, 0.94)
	pt3dadd(75.69, 42.62, 17.35, 0.94)
	pt3dadd(78.52, 42.62, 17.42, 0.94)
	pt3dadd(80.97, 42.62, 17.5, 0.94)
	pt3dadd(83.98, 41.49, 18.33, 0.94)
	pt3dadd(84.36, 39.23, 18.41, 0.94)
  }
  apic[112] {pt3dclear()
	pt3dadd(4.16, 17.16, -2.27, 1.88)
	pt3dadd(5.86, 17.74, -1.29, 1.88)
	pt3dadd(8.11, 17.92, -1.21, 1.88)
	pt3dadd(10.19, 16.79, -1.14, 1.88)
	pt3dadd(13.57, 15.1, -1.14, 1.88)
	pt3dadd(15.65, 13.78, -3.33, 1.88)
	pt3dadd(17.15, 11.14, -3.48, 1.88)
  }
  apic[113] {pt3dclear()
	pt3dadd(17.15, 11.14, -3.48, 1.69)
	pt3dadd(19.98, 10.01, -3.64, 1.69)
	pt3dadd(23.55, 7.75, -6.51, 1.69)
	pt3dadd(26.38, 7.19, -6.59, 1.69)
	pt3dadd(28.45, 6.24, -6.67, 1.69)
	pt3dadd(29.2, 4.74, -6.67, 1.69)
	pt3dadd(30.71, 2.67, -6.67, 1.69)
	pt3dadd(32.59, 2.1, -7.2, 1.69)
	pt3dadd(35.79, 2.1, -9.7, 1.69)
	pt3dadd(38.05, 0.4, -9.7, 1.69)
	pt3dadd(40.12, -1.67, -9.77, 1.69)
	pt3dadd(41.25, -3.93, -9.77, 1.69)
	pt3dadd(43.51, -6.19, -11.74, 1.69)
	pt3dadd(45.58, -7.88, -11.82, 1.69)
	pt3dadd(48.03, -8.64, -11.89, 1.69)
	pt3dadd(50.29, -9.58, -12.12, 1.69)
	pt3dadd(52.17, -9.77, -12.35, 1.69)
	pt3dadd(54.43, -10.33, -12.5, 1.69)
	pt3dadd(56.31, -10.33, -12.57, 1.69)
	pt3dadd(58.2, -9.96, -12.88, 1.69)
	pt3dadd(60.64, -9.39, -13.03, 1.69)
	pt3dadd(62.34, -10.71, -13.03, 1.69)
	pt3dadd(64.41, -12.78, -13.79, 1.69)
	pt3dadd(67.42, -14.85, -13.86, 1.69)
	pt3dadd(68.93, -15.98, -14.85, 1.69)
	pt3dadd(71.38, -16.93, -15.15, 1.69)
	pt3dadd(74.01, -17.68, -15.38, 1.69)
	pt3dadd(76.08, -19, -15.91, 1.69)
	pt3dadd(77.4, -22.2, -16.29, 1.69)
	pt3dadd(79.47, -24.46, -16.59, 1.69)
	pt3dadd(82.3, -25.21, -18.33, 1.69)
	pt3dadd(85.12, -26.72, -18.41, 1.69)
	pt3dadd(87.38, -28.79, -18.48, 1.69)
	pt3dadd(89.26, -30.11, -18.48, 1.69)
	pt3dadd(91.52, -32.75, -18.86, 1.69)
	pt3dadd(94.72, -34.44, -19.01, 1.69)
	pt3dadd(97.92, -36.52, -19.01, 1.69)
	pt3dadd(100.93, -39.53, -19.09, 1.69)
	pt3dadd(101.31, -40.66, -19.16, 1.69)
	pt3dadd(102.63, -42.92, -19.24, 1.69)
	pt3dadd(105.26, -43.3, -19.24, 1.69)
	pt3dadd(108.28, -44.43, -19.24, 1.69)
	pt3dadd(110.72, -46.31, -21.29, 1.69)
	pt3dadd(112.8, -48.95, -21.36, 1.69)
	pt3dadd(115.06, -51.4, -21.36, 1.69)
	pt3dadd(117.5, -52.53, -21.36, 1.69)
	pt3dadd(119.39, -52.9, -21.36, 1.69)
	pt3dadd(121.27, -55.16, -21.36, 1.69)
	pt3dadd(122.4, -56.86, -21.36, 1.69)
	pt3dadd(125.03, -58.93, -21.36, 1.69)
	pt3dadd(126.07, -60.33, -21.36, 1.69)
	pt3dadd(128.14, -61.64, -21.36, 1.69)
	pt3dadd(128.9, -63.34, -21.36, 1.69)
	pt3dadd(128.9, -65.22, -21.36, 1.69)
	pt3dadd(129.27, -66.73, -21.36, 1.69)
	pt3dadd(130.21, -68.24, -21.36, 1.69)
	pt3dadd(132.1, -69.37, -21.36, 1.69)
	pt3dadd(134.92, -69.56, -21.36, 1.69)
	pt3dadd(136.99, -70.87, -19.69, 1.51)
	pt3dadd(139.82, -73.89, -19.62, 1.51)
	pt3dadd(141.51, -75.96, -19.54, 1.51)
	pt3dadd(144.33, -77.28, -19.47, 1.51)
	pt3dadd(146.59, -78.22, -19.47, 1.51)
	pt3dadd(148.29, -80.1, -19.47, 1.51)
	pt3dadd(149.04, -82.36, -18.18, 1.51)
	pt3dadd(149.98, -85.19, -18.48, 1.51)
	pt3dadd(152.05, -86.32, -19.32, 1.51)
	pt3dadd(154.31, -87.07, -20.38, 1.51)
	pt3dadd(155.82, -88.58, -23.41, 1.51)
	pt3dadd(157.14, -92.16, -23.63, 1.51)
	pt3dadd(157.7, -94.99, -23.71, 1.51)
	pt3dadd(158.27, -97.43, -23.86, 1.51)
	pt3dadd(160.15, -99.88, -23.94, 1.51)
	pt3dadd(159.4, -103.65, -24.01, 1.51)
	pt3dadd(160.15, -107.04, -24.01, 1.51)
	pt3dadd(160.9, -109.87, -24.09, 1.51)
	pt3dadd(159.21, -111.94, -24.16, 1.51)
	pt3dadd(160.34, -114.95, -24.16, 1.51)
	pt3dadd(161.47, -115.89, -24.16, 1.51)
	pt3dadd(161.66, -117.78, -25.83, 1.13)
	pt3dadd(162.79, -119.66, -25.91, 1.13)
	pt3dadd(162.03, -123.24, -25.91, 1.13)
	pt3dadd(161.84, -124.37, -25.91, 1.13)
	pt3dadd(161.28, -125.88, -25.91, 1.13)
	pt3dadd(160.53, -127.95, -25.91, 1.13)
  }
  apic[114] {pt3dclear()
	pt3dadd(17.15, 11.14, -3.48, 1.32)
	pt3dadd(16.81, 9.79, -6.59, 1.32)
	pt3dadd(18.32, 8.09, -8.86, 1.32)
	pt3dadd(17.56, 6.21, -8.94, 1.32)
	pt3dadd(16.25, 7.72, -10.45, 1.32)
	pt3dadd(14.17, 8.66, -10.53, 1.32)
	pt3dadd(11.54, 9.22, -10.53, 1.32)
	pt3dadd(10.22, 6.4, -10.53, 1.32)
  }
}
proc basic_shape() {
  shape3d_1()
  shape3d_2()
  shape3d_3()
  shape3d_4()
  shape3d_5()
  shape3d_6()
  shape3d_7()
  shape3d_8()
  shape3d_9()
  shape3d_10()
  shape3d_11()
  shape3d_12()
  shape3d_13()
  shape3d_14()
  shape3d_15()
  shape3d_16()
  shape3d_17()
  shape3d_18()
  shape3d_19()
  shape3d_20()
  shape3d_21()
  shape3d_22()
  shape3d_23()
  shape3d_24()
  shape3d_25()
  shape3d_26()
  shape3d_27()
  shape3d_28()
  shape3d_29()
  shape3d_30()
  shape3d_31()
}
access soma

celldef()

	objref all,dends,tcdends,ccdends,ccsyn,tcsyn,ccnetcon,tcnetcon,apcounter,apvec,nil

proc init(){
		objref all,dends,segdends,Esyn,Esourse[2]
		all=new SectionList()
		dends = new SectionList()
		segdends = new SectionList()
		Esyn=new List()
		Enetcon=new List()
		Esourse[0]=new Vector()
		Esourse[1]=new Vector()
		Isyn=new List()
		Inetcon=new List()
		topol()
basic_shape()
		access soma
		L=15
		//dends.append()
		distance()
		//numdend=-1
		forall{
			//dends.append()
			all.append()
			for i=0,n3d()-1{
				pt3dchange(i,x3d(i)+$1,y3d(i)+$2,z3d(i),diam3d(i))	
			}
			if (diam<=2){diam=1}
			nseg=9

			insert pas
			e_pas=-60
			g_pas=1/30000
			cm=1
			Ra=100

		}
		//soma dends.append()		
		for i=0,83{dend[i] dends.append()}
		 for i=0,114{
			 access apic[i]
			// if (distance(1)>700){ dends.append()}
		 }

		objref apcounter,apvec,nil
		numdend=0
		forsec dends{numdend=numdend+1 segdends.append()}
		apvec=new Vector()
		access soma
		apcounter=new NetCon(&v(.5), nil)
		apcounter.threshold = -20 
		apcounter.record(apvec)
		//saving voltage vectors
		objref Vvec[numdend+1],spikevec[numdend+1]
		i=0
		forsec dends {
			Vvec[i]=new Vector()
			Vvec[i].record(&v(0.9))
			spikevec[i]=new Vector()
			i=i+1
		}
		Vvec[numdend]=new Vector()
		Vvec[numdend].record(&soma.v(0.5))
		//Vvec[numdend].record(&apic[13].v(0.5))

}

endtemplate celltemplate

Loading data, please wait...