Retinal ganglion cells responses and activity (Tsai et al 2012, Guo et al 2016)

 Download zip file 
Help downloading and running models
Accession:260653
From the abstracts: "Retinal ganglion cells (RGCs), which survive in large numbers following neurodegenerative diseases, could be stimulated with extracellular electric pulses to elicit artificial percepts. How do the RGCs respond to electrical stimulation at the sub-cellular level under different stimulus configurations, and how does this influence the whole-cell response? At the population level, why have experiments yielded conflicting evidence regarding the extent of passing axon activation? We addressed these questions through simulations of morphologically and biophysically detailed computational RGC models on high performance computing clusters. We conducted the analyses on both large-field RGCs and small-field midget RGCs. ...", "... In this study, an existing RGC ionic model was extended by including a hyperpolarization activated non-selective cationic current as well as a T-type calcium current identified in recent experimental findings. Biophysically-defined model parameters were simultaneously optimized against multiple experimental recordings from ON and OFF RGCs. ...
References:
1 . Guo T, Tsai D, Morley JW, Suaning GJ, Kameneva T, Lovell NH, Dokos S (2016) Electrical activity of ON and OFF retinal ganglion cells: a modelling study. J Neural Eng 13:025005 [PubMed]
2 . Tsai D, Chen S, Protti DA, Morley JW, Suaning GJ, Lovell NH (2012) Responses of retinal ganglion cells to extracellular electrical stimulation, from single cell to population: model-based analysis. PLoS One 7:e53357 [PubMed]
Model Information (Click on a link to find other models with that property)
Model Type: Synapse; Extracellular;
Brain Region(s)/Organism: Retina;
Cell Type(s): Retina ganglion GLU cell;
Channel(s):
Gap Junctions:
Receptor(s):
Gene(s):
Transmitter(s):
Simulation Environment: NEURON;
Model Concept(s): Oscillations; Activity Patterns; Development;
Implementer(s): Tsai, David [d.tsai at unsw.edu.au];
Search NeuronDB for information about:  Retina ganglion GLU cell;
begintemplate RGC121203

    public all, dendrites, dend, soma, hillock, ais, axon

    create soma[2], dend[152], hillock, ais, axon
    objref all, dendrites

    proc init() { local x, y, z
        // for specifying positions of a cell network
        if (numarg() == 3) {
            x = $1
            y = $2
            z = $3
        } else {
            x = 0
            y = 0
            z = 0
        }

        // build cell
        access soma
        topol(x, y, z)
        customizeTopol(x, y, z)
        biophysics()
    }

    proc customizeTopol() {
        //section lists
        all = new SectionList()
        all.wholetree()
        dendrites = new SectionList()
        dend dendrites.append()

        // added axon convergence point
        axon {
            pt3dadd($1+800, $2+427, $3-4.85, 0.27)
        }
        define_shape()

        forall {
            // segments length < 12um
            if (L/nseg > 12) {
                nseg = int( (L/nseg) / 12 + 1 )
            }
            // ensure odd nseg count
            if (nseg % 2 == 0) {
                nseg += 1
            }
        }

        // additional geometry for ais narrowr axon
        hillock { diam = 1.0 }
        ais     { diam = 0.8 }
        axon    { diam = 1.0 }
    }

    proc biophysics() {
        // all conductances are in S/cm^2
        forall insert pas
        forall insert spike
        forall ena = 35.0
        forall ek = -75
        forall insert cad
        forall g_pas = 0.000005
        forall e_pas = -62.5
        forall Ra=110

        forsec dendrites {  //XXX: only applies to first seg
            gnabar_spike = 0.025
            gkbar_spike  = 0.012
            gabar_spike  = 0.036
            gcabar_spike = 0.002
            gkcbar_spike = 0.000001
        }
        /*for i = 0,151 {
            dend[i] {
                gnabar_spike = 0.040
                gkbar_spike  = 0.012
                gabar_spike  = 0.036
                gcabar_spike = 0.002
                gkcbar_spike = 0.00005
            }
        }*/

        soma {
            gnabar_spike = 0.070
            gkbar_spike  = 0.018
            gabar_spike  = 0.054
            gcabar_spike = 0.0015
            gkcbar_spike = 0.000065
        }

        hillock {
            gnabar_spike = 0.070
            gkbar_spike  = 0.018
            gabar_spike  = 0.054
            gcabar_spike = 0.0015
            gkcbar_spike = 0.000065
        }

        ais {
            gnabar_spike = 0.700  //10x of soma
            gkbar_spike  = 0.018  //matched
            gabar_spike  = 0.054
            gcabar_spike = 0.0015
            gkcbar_spike = 0.000065
        }

        axon {
            gnabar_spike = 0.070
            gkbar_spike  = 0.018
            gabar_spike  = 0
            gcabar_spike = 0
            gkcbar_spike = 0.000065
        }

        forall depth_cad = diam / 2
    }

    proc topol() { local i
      connect soma[1](0), soma(0)
      connect dend(0), soma(0)
      for i = 1, 3 connect dend[i](0), dend[i-1](1)
      connect dend[4](0), dend[2](1)
      for i = 5, 6 connect dend[i](0), dend[4](1)
      connect dend[7](0), dend[1](1)
      for i = 8, 9 connect dend[i](0), dend[i-1](1)
      connect dend[10](0), dend[8](1)
      connect dend[11](0), dend[7](1)
      connect dend[12](0), dend(1)
      for i = 13, 14 connect dend[i](0), dend[12](1)
      for i = 15, 16 connect dend[i](0), dend[i-1](1)
      connect dend[17](0), dend[15](1)
      for i = 18, 19 connect dend[i](0), dend[i-1](1)
      connect dend[20](0), dend[18](1)
      connect dend[21](0), dend[17](1)
      for i = 22, 23 connect dend[i](0), dend[i-1](1)
      connect dend[24](0), dend[22](1)
      connect dend[25](0), dend[21](1)
      connect dend[26](0), dend[14](1)
      for i = 27, 28 connect dend[i](0), dend[i-1](1)
      connect dend[29](0), dend[27](1)
      for i = 30, 31 connect dend[i](0), dend[i-1](1)
      connect dend[32](0), dend[30](1)
      connect dend[33](0), dend[29](1)
      connect dend[34](0), dend[26](1)
      for i = 35, 36 connect dend[i](0), dend[34](1)
      for i = 37, 38 connect dend[i](0), dend[i-1](1)
      connect dend[39](0), dend[37](1)
      connect dend[40](0), dend[36](1)
      for i = 41, 42 connect dend[i](0), dend[40](1)
      connect dend[43](0), soma(0)
      for i = 44, 45 connect dend[i](0), dend[i-1](1)
      connect dend[46](0), dend[44](1)
      for i = 47, 48 connect dend[i](0), dend[i-1](1)
      connect dend[49](0), dend[47](1)
      connect dend[50](0), dend[46](1)
      connect dend[51](0), dend[43](1)
      for i = 52, 53 connect dend[i](0), dend[51](1)
      connect dend[54](0), soma(0)
      for i = 55, 57 connect dend[i](0), dend[i-1](1)
      connect dend[58](0), dend[56](1)
      connect dend[59](0), dend[55](1)
      connect dend[60](0), dend[54](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)
      connect dend[65](0), soma(0)
      for i = 66, 67 connect dend[i](0), dend[i-1](1)
      connect dend[68](0), dend[66](1)
      connect dend[69](0), dend[65](1)
      for i = 70, 71 connect dend[i](0), soma(0)
      for i = 72, 73 connect dend[i](0), dend[71](1)
      for i = 74, 75 connect dend[i](0), dend[73](1)
      for i = 76, 78 connect dend[i](0), soma(0)
      for i = 79, 82 connect dend[i](0), dend[i-1](1)
      connect dend[83](0), dend[81](1)
      connect dend[84](0), dend[80](1)
      for i = 85, 86 connect dend[i](0), dend[84](1)
      for i = 87, 88 connect dend[i](0), dend[86](1)
      connect dend[89](0), dend[79](1)
      for i = 90, 91 connect dend[i](0), dend[i-1](1)
      connect dend[92](0), dend[90](1)
      connect dend[93](0), dend[89](1)
      connect dend[94](0), dend[78](1)
      for i = 95, 96 connect dend[i](0), dend[94](1)
      for i = 97, 98 connect dend[i](0), dend[i-1](1)
      connect dend[99](0), dend[97](1)
      connect dend[100](0), dend[96](1)
      for i = 101, 102 connect dend[i](0), dend[i-1](1)
      connect dend[103](0), dend[101](1)
      connect dend[104](0), dend[100](1)
      connect dend[105](0), soma(0)
      for i = 106, 108 connect dend[i](0), dend[i-1](1)
      connect dend[109](0), dend[107](1)
      connect dend[110](0), dend[106](1)
      connect dend[111](0), dend[105](1)
      for i = 112, 114 connect dend[i](0), dend[i-1](1)
      connect dend[115](0), dend[113](1)
      for i = 116, 117 connect dend[i](0), dend[115](1)
      connect dend[118](0), dend[112](1)
      connect dend[119](0), dend[111](1)
      connect dend[120](0), soma(0)
      for i = 121, 122 connect dend[i](0), dend[120](1)
      connect dend[123](0), soma(0)
      for i = 124, 125 connect dend[i](0), dend[123](1)
      for i = 126, 127 connect dend[i](0), dend[125](1)
      connect dend[128](0), soma(0)
      for i = 129, 130 connect dend[i](0), dend[i-1](1)
      connect dend[131](0), dend[129](1)
      connect dend[132](0), dend[128](1)
      for i = 133, 137 connect dend[i](0), dend[i-1](1)
      connect dend[138](0), dend[136](1)
      connect dend[139](0), dend[135](1)
      connect dend[140](0), dend[134](1)
      connect dend[141](0), dend[133](1)
      connect dend[142](0), dend[132](1)
      for i = 143, 144 connect dend[i](0), dend[142](1)
      connect dend[145](0), soma(0)
      for i = 146, 148 connect dend[i](0), dend[i-1](1)
      connect dend[149](0), dend[147](1)
      connect dend[150](0), dend[146](1)
      connect dend[151](0), dend[145](1)
      connect hillock(0), soma(0)
      connect ais(0), hillock(1)
      connect axon(0), ais(1)
      basic_shape($1, $2, $3)
    }
    proc shape3d_1() {
      soma {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 16.6794)
        pt3dadd($1+0, $2+8.33, $3+0, 16.6794)
      }
      soma[1] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 16.6794)
        pt3dadd($1+0, $2+-8.33, $3+0, 16.6794)
      }
      dend {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.2)
        pt3dadd($1+-4.25, $2+7.93, $3+2.95, 0.2)
        pt3dadd($1+-5.76, $2+9.63, $3+2.95, 0.2)
        pt3dadd($1+-6.04, $2+10.69, $3+2.94, 0.2)
        pt3dadd($1+-7.06, $2+11.71, $3+2.93, 0.2)
        pt3dadd($1+-8.2, $2+12.91, $3+2.93, 0.2)
        pt3dadd($1+-9.47, $2+14.26, $3+2.92, 0.2)
        pt3dadd($1+-10.08, $2+15.07, $3+2.92, 0.2)
      }
      dend[1] {pt3dclear()
        pt3dadd($1+-10.08, $2+15.07, $3+2.92, 0.2)
        pt3dadd($1+-12.29, $2+14.97, $3+3.92, 0.2)
        pt3dadd($1+-13.19, $2+14.81, $3+4.92, 0.2)
        pt3dadd($1+-15.37, $2+13.97, $3+5.93, 0.2)
        pt3dadd($1+-16.88, $2+13.6, $3+5.93, 0.2)
        pt3dadd($1+-19.21, $2+12.63, $3+6.94, 0.2)
        pt3dadd($1+-19.67, $2+12.55, $3+6.94, 0.2)
      }
      dend[2] {pt3dclear()
        pt3dadd($1+-19.67, $2+12.55, $3+6.94, 0.2)
        pt3dadd($1+-20.16, $2+10.14, $3+6.95, 0.2)
        pt3dadd($1+-20.66, $2+8.75, $3+6.96, 0.2)
        pt3dadd($1+-22.38, $2+6.95, $3+6.97, 0.2)
      }
      dend[3] {pt3dclear()
        pt3dadd($1+-22.38, $2+6.95, $3+6.97, 0.2)
        pt3dadd($1+-21.16, $2+5.32, $3+6.98, 0.2)
        pt3dadd($1+-20.14, $2+3.26, $3+6.99, 0.2)
        pt3dadd($1+-19.33, $2+1.83, $3+7, 0.2)
        pt3dadd($1+-18.63, $2+0.55, $3+7, 0.2)
        pt3dadd($1+-19.05, $2+-1.27, $3+7.02, 0.2)
        pt3dadd($1+-19.42, $2+-2.83, $3+7.02, 0.2)
        pt3dadd($1+-20.29, $2+-3.73, $3+7.03, 0.2)
        pt3dadd($1+-21.52, $2+-5.15, $3+7.04, 0.2)
      }
      dend[4] {pt3dclear()
        pt3dadd($1+-22.38, $2+6.95, $3+6.97, 0.2)
        pt3dadd($1+-22.92, $2+6.3, $3+6.98, 0.2)
        pt3dadd($1+-23.74, $2+5.69, $3+6.98, 0.2)
      }
      dend[5] {pt3dclear()
        pt3dadd($1+-23.74, $2+5.69, $3+6.98, 0.2)
        pt3dadd($1+-25.25, $2+6.35, $3+6.98, 0.2)
        pt3dadd($1+-26.56, $2+6.39, $3+6.98, 0.2)
        pt3dadd($1+-27.96, $2+6.89, $3+6.98, 0.2)
        pt3dadd($1+-29.46, $2+7.55, $3+6.97, 0.2)
        pt3dadd($1+-31.13, $2+9.11, $3+6.97, 0.2)
        pt3dadd($1+-32.73, $2+10.22, $3+6.96, 0.2)
      }
      dend[6] {pt3dclear()
        pt3dadd($1+-23.74, $2+5.69, $3+6.98, 0.2)
        pt3dadd($1+-23.87, $2+3.81, $3+6.99, 0.2)
        pt3dadd($1+-25.84, $2+2.34, $3+7, 0.2)
        pt3dadd($1+-28.62, $2+1.28, $3+7.01, 0.2)
        pt3dadd($1+-31, $2+0.02, $3+7.02, 0.2)
        pt3dadd($1+-33.46, $2+-1.8, $3+7.03, 0.2)
        pt3dadd($1+-35.1, $2+-3.03, $3+7.04, 0.2)
        pt3dadd($1+-36.14, $2+-5.07, $3+7.05, 0.2)
        pt3dadd($1+-37.61, $2+-7.19, $3+7.06, 0.2)
        pt3dadd($1+-38.32, $2+-8.99, $3+7.07, 0.2)
        pt3dadd($1+-38.61, $2+-12.02, $3+7.09, 0.2)
        pt3dadd($1+-38.9, $2+-13.01, $3+7.09, 0.2)
        pt3dadd($1+-39.06, $2+-14.15, $3+7.1, 0.2)
        pt3dadd($1+-40.75, $2+-15.66, $3+7.11, 0.2)
        pt3dadd($1+-43.17, $2+-17.21, $3+7.12, 0.2)
        pt3dadd($1+-44.15, $2+-17.94, $3+7.13, 0.2)
        pt3dadd($1+-45.19, $2+-19.98, $3+7.14, 0.2)
        pt3dadd($1+-44.66, $2+-22.4, $3+7.15, 0.2)
        pt3dadd($1+-46.35, $2+-23.9, $3+7.16, 0.2)
        pt3dadd($1+-47.74, $2+-25.46, $3+7.17, 0.2)
        pt3dadd($1+-48.11, $2+-27.01, $3+7.18, 0.2)
        pt3dadd($1+-48.85, $2+-28.07, $3+7.19, 0.2)
        pt3dadd($1+-49.14, $2+-29.05, $3+7.19, 0.2)
      }
      dend[7] {pt3dclear()
        pt3dadd($1+-19.67, $2+12.55, $3+6.94, 0.2)
        pt3dadd($1+-20.52, $2+13.7, $3+6.93, 0.2)
        pt3dadd($1+-21.95, $2+14.93, $3+6.93, 0.2)
        pt3dadd($1+-23.99, $2+16.99, $3+6.92, 0.2)
        pt3dadd($1+-25.51, $2+17.64, $3+6.91, 0.2)
        pt3dadd($1+-26.6, $2+18.1, $3+6.91, 0.2)
        pt3dadd($1+-27.83, $2+18.72, $3+6.91, 0.2)
        pt3dadd($1+-28.82, $2+19, $3+6.91, 0.2)
        pt3dadd($1+-30.57, $2+18.97, $3+6.91, 0.2)
        pt3dadd($1+-32.25, $2+19.51, $3+6.91, 0.2)
      }
      dend[8] {pt3dclear()
        pt3dadd($1+-32.25, $2+19.51, $3+6.91, 0.2)
        pt3dadd($1+-34.49, $2+18.71, $3+6.91, 0.2)
      }
      dend[9] {pt3dclear()
        pt3dadd($1+-34.49, $2+18.71, $3+6.91, 0.2)
        pt3dadd($1+-34.87, $2+18.57, $3+6.92, 0.2)
        pt3dadd($1+-36.35, $2+17.47, $3+6.92, 0.2)
        pt3dadd($1+-38.23, $2+16.58, $3+6.93, 0.2)
        pt3dadd($1+-39.67, $2+15.77, $3+6.93, 0.2)
        pt3dadd($1+-41.15, $2+14.67, $3+6.94, 0.2)
        pt3dadd($1+-42.95, $2+13.32, $3+6.95, 0.2)
        pt3dadd($1+-44.8, $2+10.67, $3+7.97, 0.2)
        pt3dadd($1+-45.54, $2+9.61, $3+7.97, 0.2)
        pt3dadd($1+-45.34, $2+7.97, $3+7.98, 0.2)
        pt3dadd($1+-45.51, $2+6.82, $3+7.99, 0.2)
        pt3dadd($1+-46.95, $2+4.99, $3+8, 0.2)
        pt3dadd($1+-48.58, $2+3.77, $3+8.01, 0.2)
        pt3dadd($1+-48.51, $2+1.26, $3+8.02, 0.2)
        pt3dadd($1+-48.77, $2+-0.44, $3+8.03, 0.2)
        pt3dadd($1+-50.04, $2+-2.16, $3+8.04, 0.2)
        pt3dadd($1+-54.88, $2+-4.23, $3+8.06, 0.2)
        pt3dadd($1+-56.47, $2+-4.14, $3+8.06, 0.2)
      }
      dend[10] {pt3dclear()
        pt3dadd($1+-34.49, $2+18.71, $3+6.91, 0.2)
        pt3dadd($1+-34.99, $2+19.76, $3+6.91, 0.2)
        pt3dadd($1+-37.04, $2+19.77, $3+6.91, 0.2)
        pt3dadd($1+-38.35, $2+20.83, $3+6.91, 0.2)
        pt3dadd($1+-39.9, $2+22.23, $3+6.9, 0.2)
        pt3dadd($1+-41.86, $2+22.82, $3+6.9, 0.2)
        pt3dadd($1+-43.95, $2+21.51, $3+6.91, 0.2)
        pt3dadd($1+-45.51, $2+20.86, $3+6.91, 0.2)
        pt3dadd($1+-47.64, $2+19.27, $3+6.92, 0.2)
        pt3dadd($1+-49.45, $2+17.92, $3+6.93, 0.2)
        pt3dadd($1+-51.46, $2+16.17, $3+6.94, 0.2)
        pt3dadd($1+-52.45, $2+15.44, $3+6.94, 0.2)
        pt3dadd($1+-54.03, $2+15.53, $3+6.95, 0.2)
        pt3dadd($1+-57.79, $2+17.83, $3+6.94, 0.2)
        pt3dadd($1+-61.19, $2+19.64, $3+6.93, 0.2)
        pt3dadd($1+-62.41, $2+20.26, $3+6.92, 0.2)
      }
      dend[11] {pt3dclear()
        pt3dadd($1+-32.25, $2+19.51, $3+6.91, 0.2)
        pt3dadd($1+-32.78, $2+20.91, $3+6.9, 0.2)
        pt3dadd($1+-33.71, $2+22.5, $3+6.89, 0.2)
        pt3dadd($1+-35.14, $2+23.73, $3+6.89, 0.2)
        pt3dadd($1+-36.94, $2+24.44, $3+6.88, 0.2)
        pt3dadd($1+-39.22, $2+25.79, $3+6.88, 0.2)
        pt3dadd($1+-41.77, $2+25.43, $3+6.88, 0.2)
        pt3dadd($1+-42.91, $2+25.6, $3+6.88, 0.2)
        pt3dadd($1+-44.34, $2+25.8, $3+6.88, 0.2)
        pt3dadd($1+-45.78, $2+26.02, $3+6.88, 0.2)
        pt3dadd($1+-46.76, $2+26.31, $3+6.88, 0.2)
        pt3dadd($1+-48.6, $2+27.75, $3+6.87, 0.2)
        pt3dadd($1+-49.21, $2+28.56, $3+6.87, 0.2)
        pt3dadd($1+-50.27, $2+31.36, $3+6.85, 0.2)
        pt3dadd($1+-50.22, $2+32.66, $3+6.85, 0.2)
        pt3dadd($1+-50.29, $2+34.14, $3+6.84, 0.2)
        pt3dadd($1+-51.07, $2+35.86, $3+6.83, 0.2)
        pt3dadd($1+-52.61, $2+38.27, $3+6.82, 0.2)
        pt3dadd($1+-53.55, $2+39.88, $3+6.81, 0.2)
        pt3dadd($1+-55.11, $2+40.24, $3+6.81, 0.2)
        pt3dadd($1+-58.42, $2+41.61, $3+6.8, 0.2)
        pt3dadd($1+-59.97, $2+41.98, $3+6.8, 0.2)
        pt3dadd($1+-61.86, $2+42.11, $3+6.8, 0.2)
        pt3dadd($1+-63.69, $2+42.53, $3+6.8, 0.2)
        pt3dadd($1+-67.45, $2+45.85, $3+6.79, 0.2)
        pt3dadd($1+-69.74, $2+45.16, $3+6.79, 0.2)
        pt3dadd($1+-71.02, $2+44.48, $3+6.8, 0.2)
      }
      dend[12] {pt3dclear()
        pt3dadd($1+-10.08, $2+15.07, $3+2.92, 0.2)
        pt3dadd($1+-10.98, $2+16.96, $3+2.91, 0.2)
        pt3dadd($1+-11.22, $2+18.32, $3+3.9, 0.2)
        pt3dadd($1+-12.2, $2+19.64, $3+4.89, 0.2)
        pt3dadd($1+-13.38, $2+21.57, $3+5.88, 0.2)
        pt3dadd($1+-13.73, $2+24.11, $3+5.87, 0.2)
      }
      dend[13] {pt3dclear()
        pt3dadd($1+-13.73, $2+24.11, $3+5.87, 0.2)
        pt3dadd($1+-15.25, $2+24.77, $3+5.87, 0.2)
        pt3dadd($1+-16.8, $2+25.15, $3+5.87, 0.2)
        pt3dadd($1+-19.25, $2+26.38, $3+5.86, 0.2)
        pt3dadd($1+-21.01, $2+27.37, $3+5.86, 0.2)
        pt3dadd($1+-23.17, $2+28.57, $3+5.85, 0.2)
        pt3dadd($1+-24.74, $2+28.94, $3+5.85, 0.2)
        pt3dadd($1+-26.12, $2+28.4, $3+5.85, 0.2)
      }
      dend[14] {pt3dclear()
        pt3dadd($1+-13.73, $2+24.11, $3+5.87, 0.2)
        pt3dadd($1+-13.2, $2+25.79, $3+5.86, 0.2)
        pt3dadd($1+-12.09, $2+27.38, $3+5.85, 0.2)
        pt3dadd($1+-10.86, $2+28.8, $3+5.84, 0.2)
        pt3dadd($1+-10.36, $2+29.17, $3+5.84, 0.2)
      }
      dend[15] {pt3dclear()
        pt3dadd($1+-10.36, $2+29.17, $3+5.84, 0.2)
        pt3dadd($1+-9.83, $2+29.83, $3+5.84, 0.2)
        pt3dadd($1+-8.97, $2+30.72, $3+5.83, 0.2)
        pt3dadd($1+-8.47, $2+32.11, $3+5.82, 0.2)
        pt3dadd($1+-9.28, $2+34.58, $3+5.81, 0.2)
        pt3dadd($1+-9.69, $2+35.81, $3+5.8, 0.2)
        pt3dadd($1+-10.87, $2+37.73, $3+5.79, 0.2)
      }
      dend[16] {pt3dclear()
        pt3dadd($1+-10.87, $2+37.73, $3+5.79, 0.2)
        pt3dadd($1+-12.51, $2+37.53, $3+5.79, 0.2)
        pt3dadd($1+-13.86, $2+37.29, $3+5.8, 0.2)
        pt3dadd($1+-16.56, $2+36.81, $3+5.8, 0.2)
        pt3dadd($1+-18.28, $2+36.04, $3+5.81, 0.2)
        pt3dadd($1+-20.58, $2+35.35, $3+5.81, 0.2)
        pt3dadd($1+-22.67, $2+35.07, $3+5.81, 0.2)
        pt3dadd($1+-24.1, $2+35.27, $3+5.81, 0.2)
        pt3dadd($1+-25.56, $2+36.22, $3+5.81, 0.2)
        pt3dadd($1+-27.08, $2+37.9, $3+5.8, 0.2)
        pt3dadd($1+-27.27, $2+39.54, $3+5.79, 0.2)
        pt3dadd($1+-27.35, $2+42.04, $3+5.78, 0.2)
        pt3dadd($1+-27.75, $2+45.31, $3+5.76, 0.2)
        pt3dadd($1+-28.2, $2+46.26, $3+5.76, 0.2)
        pt3dadd($1+-28.59, $2+48.51, $3+5.74, 0.2)
        pt3dadd($1+-29.05, $2+49.45, $3+5.74, 0.2)
        pt3dadd($1+-29.86, $2+50.89, $3+5.73, 0.2)
        pt3dadd($1+-30.55, $2+52.16, $3+5.72, 0.2)
        pt3dadd($1+-35.05, $2+55.45, $3+5.71, 0.2)
        pt3dadd($1+-36.64, $2+54.51, $3+5.72, 0.2)
        pt3dadd($1+-37.79, $2+53.65, $3+5.72, 0.2)
        pt3dadd($1+-39.18, $2+53.13, $3+5.73, 0.2)
        pt3dadd($1+-41.07, $2+53.25, $3+5.73, 0.2)
        pt3dadd($1+-43.44, $2+54.04, $3+5.72, 0.2)
        pt3dadd($1+-43.97, $2+55.43, $3+5.72, 0.2)
        pt3dadd($1+-44.33, $2+56.95, $3+5.71, 0.2)
      }
      dend[17] {pt3dclear()
        pt3dadd($1+-10.87, $2+37.73, $3+5.79, 0.2)
        pt3dadd($1+-10.13, $2+38.79, $3+5.79, 0.2)
        pt3dadd($1+-9.87, $2+40.51, $3+5.78, 0.2)
        pt3dadd($1+-9.67, $2+41.94, $3+5.77, 0.2)
        pt3dadd($1+-11.79, $2+43.42, $3+5.76, 0.2)
        pt3dadd($1+-13.06, $2+44.78, $3+5.75, 0.2)
        pt3dadd($1+-14.19, $2+45.97, $3+5.75, 0.2)
      }
      dend[18] {pt3dclear()
        pt3dadd($1+-14.19, $2+45.97, $3+5.75, 0.2)
        pt3dadd($1+-13.5, $2+47.77, $3+5.74, 0.2)
        pt3dadd($1+-12.31, $2+49.93, $3+5.72, 0.2)
      }
    }
    proc shape3d_2() {
      dend[18] {	pt3dadd($1+-11.52, $2+51.28, $3+5.72, 0.2)
        pt3dadd($1+-10.78, $2+53.37, $3+5.7, 0.2)
        pt3dadd($1+-10.81, $2+55.12, $3+5.69, 0.2)
        pt3dadd($1+-11.05, $2+56.48, $3+5.69, 0.2)
        pt3dadd($1+-11.38, $2+58.28, $3+5.68, 0.2)
        pt3dadd($1+-11.05, $2+60.57, $3+5.66, 0.2)
        pt3dadd($1+-10.62, $2+64.46, $3+5.64, 0.2)
        pt3dadd($1+-8.57, $2+66.5, $3+5.63, 0.2)
        pt3dadd($1+-7.78, $2+67.84, $3+5.62, 0.2)
        pt3dadd($1+-7.33, $2+69.98, $3+6.61, 0.2)
        pt3dadd($1+-6.83, $2+73.41, $3+6.59, 0.2)
        pt3dadd($1+-6.58, $2+75.13, $3+6.58, 0.2)
        pt3dadd($1+-6.2, $2+76.69, $3+6.57, 0.2)
        pt3dadd($1+-6.85, $2+79.27, $3+6.56, 0.2)
        pt3dadd($1+-7.61, $2+82.02, $3+6.54, 0.2)
        pt3dadd($1+-8.84, $2+83.66, $3+6.53, 0.2)
        pt3dadd($1+-10.1, $2+87.06, $3+6.52, 0.2)
        pt3dadd($1+-10.26, $2+87.95, $3+6.51, 0.2)
      }
      dend[19] {pt3dclear()
        pt3dadd($1+-10.26, $2+87.95, $3+6.51, 0.2)
        pt3dadd($1+-12.18, $2+89.85, $3+6.5, 0.2)
        pt3dadd($1+-13.94, $2+91.86, $3+6.49, 0.2)
        pt3dadd($1+-16.06, $2+92.31, $3+6.49, 0.2)
        pt3dadd($1+-19.66, $2+92.69, $3+6.49, 0.2)
        pt3dadd($1+-20.92, $2+94.05, $3+6.48, 0.2)
        pt3dadd($1+-21.33, $2+96.3, $3+6.47, 0.2)
      }
      dend[20] {pt3dclear()
        pt3dadd($1+-10.26, $2+87.95, $3+6.51, 0.2)
        pt3dadd($1+-8.38, $2+88.85, $3+6.5, 0.2)
        pt3dadd($1+-5.95, $2+91.42, $3+6.49, 0.2)
        pt3dadd($1+-3.74, $2+92.56, $3+6.48, 0.2)
        pt3dadd($1+0.39, $2+92.84, $3+6.48, 0.2)
        pt3dadd($1+1.33, $2+92.26, $3+6.48, 0.2)
      }
      dend[21] {pt3dclear()
        pt3dadd($1+-14.19, $2+45.97, $3+5.75, 0.2)
        pt3dadd($1+-15.1, $2+46.83, $3+5.74, 0.2)
        pt3dadd($1+-15.83, $2+47.83, $3+7.74, 0.2)
        pt3dadd($1+-16.73, $2+48.7, $3+8.73, 0.2)
        pt3dadd($1+-18.73, $2+50.02, $3+9.73, 0.2)
        pt3dadd($1+-19.09, $2+50.51, $3+9.73, 0.2)
        pt3dadd($1+-19.87, $2+51.2, $3+9.72, 0.2)
        pt3dadd($1+-20.97, $2+52.68, $3+9.72, 0.2)
        pt3dadd($1+-21.67, $2+52.93, $3+10.71, 0.2)
      }
      dend[22] {pt3dclear()
        pt3dadd($1+-21.67, $2+52.93, $3+10.71, 0.2)
        pt3dadd($1+-22.65, $2+54.25, $3+11.71, 0.2)
        pt3dadd($1+-24.64, $2+56.6, $3+11.7, 0.2)
        pt3dadd($1+-25.53, $2+59.5, $3+11.68, 0.2)
        pt3dadd($1+-26.54, $2+62.58, $3+11.66, 0.2)
        pt3dadd($1+-29.23, $2+66.2, $3+12.65, 0.2)
        pt3dadd($1+-30.87, $2+68.04, $3+12.64, 0.2)
        pt3dadd($1+-33.36, $2+68.99, $3+12.63, 0.2)
        pt3dadd($1+-35.6, $2+69.61, $3+13.63, 0.2)
        pt3dadd($1+-36.14, $2+69.99, $3+13.63, 0.2)
        pt3dadd($1+-37.35, $2+72.65, $3+13.62, 0.2)
        pt3dadd($1+-39.89, $2+76.39, $3+13.6, 0.2)
      }
      dend[23] {pt3dclear()
        pt3dadd($1+-39.89, $2+76.39, $3+13.6, 0.2)
        pt3dadd($1+-42, $2+78.89, $3+14.58, 0.2)
        pt3dadd($1+-42.86, $2+80.04, $3+14.58, 0.2)
        pt3dadd($1+-44, $2+82.25, $3+14.57, 0.2)
        pt3dadd($1+-45.22, $2+84.92, $3+14.55, 0.2)
        pt3dadd($1+-45.78, $2+87.05, $3+14.54, 0.2)
        pt3dadd($1+-47.46, $2+89.63, $3+14.53, 0.2)
        pt3dadd($1+-50.19, $2+91.93, $3+14.52, 0.2)
        pt3dadd($1+-52.2, $2+92.22, $3+14.52, 0.2)
        pt3dadd($1+-54.85, $2+92.03, $3+14.52, 0.2)
        pt3dadd($1+-56.9, $2+91.01, $3+14.53, 0.2)
        pt3dadd($1+-59.12, $2+89.87, $3+14.53, 0.2)
        pt3dadd($1+-61.05, $2+88.69, $3+14.54, 0.2)
        pt3dadd($1+-63.18, $2+88.13, $3+14.55, 0.2)
        pt3dadd($1+-65.06, $2+88.25, $3+14.55, 0.2)
        pt3dadd($1+-67.1, $2+89.28, $3+14.54, 0.2)
        pt3dadd($1+-68.41, $2+89.33, $3+14.54, 0.2)
      }
      dend[24] {pt3dclear()
        pt3dadd($1+-39.89, $2+76.39, $3+13.6, 0.2)
        pt3dadd($1+-39.79, $2+79, $3+13.58, 0.2)
        pt3dadd($1+-38.93, $2+81.95, $3+14.56, 0.2)
        pt3dadd($1+-38.26, $2+83.46, $3+14.56, 0.2)
        pt3dadd($1+-37.11, $2+85.34, $3+14.54, 0.2)
        pt3dadd($1+-36.29, $2+86.98, $3+14.53, 0.2)
        pt3dadd($1+-36.16, $2+88.86, $3+14.52, 0.2)
        pt3dadd($1+-37.42, $2+91.24, $3+14.51, 0.2)
        pt3dadd($1+-37.74, $2+96.11, $3+14.48, 0.2)
        pt3dadd($1+-37.86, $2+98.32, $3+14.47, 0.2)
        pt3dadd($1+-37.47, $2+100.9, $3+14.46, 0.2)
        pt3dadd($1+-36.36, $2+103.51, $3+14.44, 0.2)
        pt3dadd($1+-34.06, $2+106.25, $3+14.43, 0.2)
      }
      dend[25] {pt3dclear()
        pt3dadd($1+-21.67, $2+52.93, $3+10.71, 0.2)
        pt3dadd($1+-21.17, $2+54.33, $3+10.71, 0.2)
        pt3dadd($1+-20.47, $2+55.1, $3+11.7, 0.2)
        pt3dadd($1+-19.89, $2+56.05, $3+12.7, 0.2)
        pt3dadd($1+-19.39, $2+58.47, $3+13.68, 0.2)
        pt3dadd($1+-19.76, $2+59.98, $3+13.67, 0.2)
        pt3dadd($1+-21.06, $2+63.11, $3+14.66, 0.2)
        pt3dadd($1+-21.87, $2+64.54, $3+14.65, 0.2)
        pt3dadd($1+-23.13, $2+66.93, $3+14.64, 0.2)
        pt3dadd($1+-25.29, $2+69.15, $3+15.63, 0.2)
        pt3dadd($1+-26.35, $2+69.88, $3+15.62, 0.2)
        pt3dadd($1+-27.7, $2+71.69, $3+15.61, 0.2)
        pt3dadd($1+-28.51, $2+74.15, $3+15.6, 0.2)
        pt3dadd($1+-30.46, $2+76.77, $3+15.59, 0.2)
        pt3dadd($1+-33.28, $2+78.5, $3+15.58, 0.2)
        pt3dadd($1+-34.8, $2+79.16, $3+15.58, 0.2)
      }
      dend[26] {pt3dclear()
        pt3dadd($1+-10.36, $2+29.17, $3+5.84, 0.2)
        pt3dadd($1+-11.51, $2+30.36, $3+5.83, 0.2)
        pt3dadd($1+-12.28, $2+31.07, $3+6.83, 0.2)
        pt3dadd($1+-13.14, $2+32.23, $3+7.82, 0.2)
        pt3dadd($1+-13.91, $2+32.92, $3+8.82, 0.2)
      }
      dend[27] {pt3dclear()
        pt3dadd($1+-13.91, $2+32.92, $3+8.82, 0.2)
        pt3dadd($1+-15.63, $2+32.17, $3+10.83, 0.2)
        pt3dadd($1+-17.35, $2+31.39, $3+10.83, 0.2)
      }
      dend[28] {pt3dclear()
        pt3dadd($1+-17.35, $2+31.39, $3+10.83, 0.2)
        pt3dadd($1+-18.06, $2+29.6, $3+10.84, 0.2)
        pt3dadd($1+-19.62, $2+27.93, $3+11.85, 0.2)
        pt3dadd($1+-20.56, $2+25.43, $3+11.87, 0.2)
        pt3dadd($1+-22.04, $2+24.33, $3+11.87, 0.2)
        pt3dadd($1+-23.27, $2+23.93, $3+11.88, 0.2)
        pt3dadd($1+-25.11, $2+24.34, $3+11.88, 0.2)
        pt3dadd($1+-27.2, $2+25.09, $3+11.87, 0.2)
        pt3dadd($1+-28.01, $2+25.5, $3+11.87, 0.2)
        pt3dadd($1+-29.52, $2+26.16, $3+11.87, 0.2)
        pt3dadd($1+-31.12, $2+26.24, $3+11.87, 0.2)
        pt3dadd($1+-32.23, $2+26.7, $3+11.87, 0.2)
      }
      dend[29] {pt3dclear()
        pt3dadd($1+-17.35, $2+31.39, $3+10.83, 0.2)
        pt3dadd($1+-19.07, $2+32.68, $3+11.83, 0.2)
        pt3dadd($1+-20.33, $2+34.03, $3+11.82, 0.2)
        pt3dadd($1+-21.4, $2+34.77, $3+11.82, 0.2)
      }
      dend[30] {pt3dclear()
        pt3dadd($1+-21.4, $2+34.77, $3+11.82, 0.2)
        pt3dadd($1+-23.03, $2+34.57, $3+11.82, 0.2)
        pt3dadd($1+-25.24, $2+34.45, $3+11.82, 0.2)
        pt3dadd($1+-26.8, $2+34.82, $3+11.82, 0.2)
        pt3dadd($1+-27.86, $2+34.54, $3+11.82, 0.2)
      }
      dend[31] {pt3dclear()
        pt3dadd($1+-27.86, $2+34.54, $3+11.82, 0.2)
        pt3dadd($1+-28.8, $2+34.09, $3+11.82, 0.2)
        pt3dadd($1+-30.93, $2+33.53, $3+11.83, 0.2)
        pt3dadd($1+-32.61, $2+34.07, $3+11.83, 0.2)
        pt3dadd($1+-34, $2+34.56, $3+11.83, 0.2)
        pt3dadd($1+-36.17, $2+34.74, $3+11.83, 0.2)
        pt3dadd($1+-38.1, $2+34.57, $3+11.83, 0.2)
        pt3dadd($1+-39.85, $2+34.54, $3+11.83, 0.2)
        pt3dadd($1+-41.33, $2+34.46, $3+11.83, 0.2)
        pt3dadd($1+-42.88, $2+34.84, $3+11.83, 0.2)
        pt3dadd($1+-44.6, $2+35.09, $3+11.83, 0.2)
      }
      dend[32] {pt3dclear()
        pt3dadd($1+-27.86, $2+34.54, $3+11.82, 0.2)
        pt3dadd($1+-29.09, $2+36.19, $3+12.81, 0.2)
        pt3dadd($1+-30.35, $2+37.55, $3+12.81, 0.2)
        pt3dadd($1+-31.65, $2+38.62, $3+12.8, 0.2)
        pt3dadd($1+-33.17, $2+39.28, $3+12.8, 0.2)
      }
      dend[33] {pt3dclear()
        pt3dadd($1+-21.4, $2+34.77, $3+11.82, 0.2)
        pt3dadd($1+-21.38, $2+35.79, $3+11.81, 0.2)
        pt3dadd($1+-21.79, $2+38.04, $3+11.8, 0.2)
        pt3dadd($1+-23.46, $2+39.6, $3+11.79, 0.2)
        pt3dadd($1+-24.86, $2+40.1, $3+11.79, 0.2)
        pt3dadd($1+-26.12, $2+40.43, $3+11.79, 0.2)
        pt3dadd($1+-28.49, $2+41.22, $3+11.78, 0.2)
        pt3dadd($1+-28.9, $2+43.47, $3+11.77, 0.2)
        pt3dadd($1+-28.64, $2+45.18, $3+11.76, 0.2)
        pt3dadd($1+-28.27, $2+45.72, $3+11.76, 0.2)
      }
      dend[34] {pt3dclear()
        pt3dadd($1+-13.91, $2+32.92, $3+8.82, 0.2)
        pt3dadd($1+-12.35, $2+34.6, $3+8.81, 0.2)
        pt3dadd($1+-12.84, $2+36.29, $3+9.8, 0.2)
        pt3dadd($1+-11.97, $2+38.21, $3+10.79, 0.2)
        pt3dadd($1+-11.26, $2+40.02, $3+11.78, 0.2)
      }
      dend[35] {pt3dclear()
        pt3dadd($1+-11.26, $2+40.02, $3+11.78, 0.2)
        pt3dadd($1+-9.84, $2+39.81, $3+11.78, 0.2)
        pt3dadd($1+-8.08, $2+39.84, $3+11.78, 0.2)
        pt3dadd($1+-5.86, $2+39.96, $3+11.78, 0.2)
        pt3dadd($1+-4.64, $2+40.36, $3+11.77, 0.2)
      }
      dend[36] {pt3dclear()
        pt3dadd($1+-11.26, $2+40.02, $3+11.78, 0.2)
        pt3dadd($1+-11.23, $2+40.3, $3+11.78, 0.2)
        pt3dadd($1+-11.51, $2+41.37, $3+11.77, 0.2)
        pt3dadd($1+-11.34, $2+42.51, $3+11.77, 0.2)
        pt3dadd($1+-11.22, $2+43.37, $3+11.76, 0.2)
        pt3dadd($1+-11.45, $2+44.73, $3+12.75, 0.2)
        pt3dadd($1+-10.22, $2+46.16, $3+12.74, 0.2)
        pt3dadd($1+-9.85, $2+47.71, $3+12.74, 0.2)
        pt3dadd($1+-9.1, $2+48.77, $3+12.73, 0.2)
        pt3dadd($1+-9.68, $2+50.9, $3+12.72, 0.2)
        pt3dadd($1+-10.45, $2+52.62, $3+12.71, 0.2)
        pt3dadd($1+-10.9, $2+53.57, $3+12.7, 0.2)
      }
      dend[37] {pt3dclear()
        pt3dadd($1+-10.9, $2+53.57, $3+12.7, 0.2)
        pt3dadd($1+-12.66, $2+55.58, $3+12.69, 0.2)
        pt3dadd($1+-15.18, $2+56.24, $3+12.69, 0.2)
        pt3dadd($1+-16.7, $2+56.91, $3+12.69, 0.2)
        pt3dadd($1+-18.82, $2+57.36, $3+12.69, 0.2)
        pt3dadd($1+-21.7, $2+56.75, $3+12.69, 0.2)
        pt3dadd($1+-24.88, $2+56.93, $3+12.69, 0.2)
        pt3dadd($1+-27.21, $2+56.98, $3+12.7, 0.2)
        pt3dadd($1+-29.87, $2+56.78, $3+12.7, 0.2)
        pt3dadd($1+-31.64, $2+56.75, $3+12.7, 0.2)
        pt3dadd($1+-34.25, $2+56.83, $3+12.7, 0.2)
        pt3dadd($1+-36.02, $2+56.8, $3+12.7, 0.2)
        pt3dadd($1+-38.14, $2+56.23, $3+12.71, 0.2)
        pt3dadd($1+-40.35, $2+56.11, $3+11.71, 0.2)
        pt3dadd($1+-41.59, $2+55.71, $3+11.71, 0.2)
        pt3dadd($1+-43.64, $2+55.71, $3+11.71, 0.2)
        pt3dadd($1+-45.15, $2+55.35, $3+11.72, 0.2)
        pt3dadd($1+-46.1, $2+54.9, $3+11.72, 0.2)
      }
      dend[38] {pt3dclear()
        pt3dadd($1+-46.1, $2+54.9, $3+11.72, 0.2)
        pt3dadd($1+-44.71, $2+54.4, $3+11.72, 0.2)
        pt3dadd($1+-45.03, $2+52.12, $3+11.74, 0.2)
        pt3dadd($1+-46.31, $2+50.4, $3+11.75, 0.2)
        pt3dadd($1+-48.12, $2+49.06, $3+11.75, 0.2)
        pt3dadd($1+-49.51, $2+48.53, $3+11.76, 0.2)
      }
      dend[39] {pt3dclear()
        pt3dadd($1+-46.1, $2+54.9, $3+11.72, 0.2)
      }
    }
    proc shape3d_3() {
      dend[39] {	pt3dadd($1+-48.34, $2+54.5, $3+11.72, 0.2)
        pt3dadd($1+-50.22, $2+54.63, $3+11.72, 0.2)
        pt3dadd($1+-52.85, $2+54.72, $3+11.73, 0.2)
        pt3dadd($1+-54.69, $2+54.11, $3+11.73, 0.2)
        pt3dadd($1+-57.12, $2+52.56, $3+11.74, 0.2)
        pt3dadd($1+-58.96, $2+52.98, $3+11.74, 0.2)
        pt3dadd($1+-61.03, $2+53.72, $3+11.74, 0.2)
        pt3dadd($1+-62.47, $2+52.9, $3+11.74, 0.2)
        pt3dadd($1+-64.65, $2+51.03, $3+11.75, 0.2)
        pt3dadd($1+-67.15, $2+48.91, $3+11.77, 0.2)
        pt3dadd($1+-66.71, $2+46.94, $3+11.78, 0.2)
        pt3dadd($1+-65.85, $2+44.77, $3+11.79, 0.2)
        pt3dadd($1+-63.94, $2+41.86, $3+11.81, 0.2)
        pt3dadd($1+-63.87, $2+40.39, $3+11.81, 0.2)
        pt3dadd($1+-63.58, $2+38.3, $3+11.82, 0.2)
        pt3dadd($1+-63.75, $2+37.15, $3+11.83, 0.2)
        pt3dadd($1+-64.37, $2+35.92, $3+11.84, 0.2)
        pt3dadd($1+-66.87, $2+34.82, $3+11.85, 0.2)
        pt3dadd($1+-68.14, $2+34.14, $3+11.85, 0.2)
      }
      dend[40] {pt3dclear()
        pt3dadd($1+-10.9, $2+53.57, $3+12.7, 0.2)
        pt3dadd($1+-10.23, $2+55.08, $3+12.69, 0.2)
        pt3dadd($1+-10.44, $2+56.72, $3+12.69, 0.2)
        pt3dadd($1+-9.45, $2+58.48, $3+12.68, 0.2)
        pt3dadd($1+-8.22, $2+59.9, $3+12.67, 0.2)
        pt3dadd($1+-7.1, $2+61.5, $3+12.66, 0.2)
        pt3dadd($1+-5.66, $2+63.34, $3+12.65, 0.2)
        pt3dadd($1+-4.81, $2+64.23, $3+12.64, 0.2)
      }
      dend[41] {pt3dclear()
        pt3dadd($1+-4.81, $2+64.23, $3+12.64, 0.2)
        pt3dadd($1+-3.45, $2+63.45, $3+12.64, 0.2)
        pt3dadd($1+-0.63, $2+62.74, $3+12.65, 0.2)
        pt3dadd($1+0.25, $2+60.86, $3+12.66, 0.2)
      }
      dend[42] {pt3dclear()
        pt3dadd($1+-4.81, $2+64.23, $3+12.64, 0.2)
        pt3dadd($1+-6.07, $2+65.59, $3+12.63, 0.2)
        pt3dadd($1+-7.34, $2+65.92, $3+12.63, 0.2)
        pt3dadd($1+-9.06, $2+66.17, $3+12.63, 0.2)
        pt3dadd($1+-10.84, $2+68.92, $3+12.62, 0.2)
        pt3dadd($1+-11.54, $2+71.22, $3+12.61, 0.2)
        pt3dadd($1+-12.67, $2+74.45, $3+12.59, 0.2)
        pt3dadd($1+-13.25, $2+75.55, $3+12.58, 0.2)
        pt3dadd($1+-15, $2+76.55, $3+12.58, 0.2)
        pt3dadd($1+-17.21, $2+78.48, $3+12.57, 0.2)
        pt3dadd($1+-18.22, $2+81.55, $3+12.55, 0.2)
      }
      dend[43] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+0.2, $2+-8.26, $3+12.04, 0.27)
        pt3dadd($1+-0.02, $2+-11.13, $3+12.06, 0.27)
        pt3dadd($1+-0.57, $2+-13.57, $3+12.07, 0.27)
      }
      dend[44] {pt3dclear()
        pt3dadd($1+-0.57, $2+-13.57, $3+12.07, 0.27)
        pt3dadd($1+-3.39, $2+-15.68, $3+12.09, 0.27)
        pt3dadd($1+-5.13, $2+-16.97, $3+12.09, 0.27)
        pt3dadd($1+-7.03, $2+-18.05, $3+12.1, 0.27)
        pt3dadd($1+-8.22, $2+-18.27, $3+12.1, 0.27)
        pt3dadd($1+-9.96, $2+-19.56, $3+12.11, 0.27)
      }
      dend[45] {pt3dclear()
        pt3dadd($1+-9.96, $2+-19.56, $3+12.11, 0.27)
        pt3dadd($1+-11.7, $2+-20.86, $3+12.12, 0.27)
        pt3dadd($1+-13.93, $2+-22.86, $3+12.13, 0.27)
        pt3dadd($1+-16.26, $2+-24.26, $3+12.14, 0.27)
        pt3dadd($1+-17.03, $2+-28.21, $3+12.16, 0.27)
        pt3dadd($1+-16.94, $2+-30.16, $3+12.18, 0.27)
        pt3dadd($1+-15.32, $2+-35.04, $3+12.2, 0.27)
        pt3dadd($1+-13.81, $2+-36.62, $3+13.21, 0.27)
        pt3dadd($1+-13.81, $2+-37.97, $3+13.22, 0.27)
        pt3dadd($1+-13.99, $2+-40.46, $3+13.23, 0.27)
        pt3dadd($1+-14.64, $2+-42.31, $3+13.24, 0.27)
        pt3dadd($1+-15.9, $2+-44.26, $3+13.25, 0.27)
        pt3dadd($1+-16.93, $2+-46.04, $3+13.26, 0.27)
        pt3dadd($1+-17.53, $2+-47.51, $3+13.27, 0.27)
        pt3dadd($1+-18.73, $2+-49.07, $3+13.28, 0.27)
        pt3dadd($1+-20.46, $2+-50.37, $3+13.29, 0.27)
        pt3dadd($1+-22.04, $2+-51.88, $3+13.3, 0.27)
        pt3dadd($1+-23.08, $2+-53.66, $3+13.31, 0.27)
      }
      dend[46] {pt3dclear()
        pt3dadd($1+-9.96, $2+-19.56, $3+12.11, 0.27)
        pt3dadd($1+-9.21, $2+-21.02, $3+12.12, 0.27)
        pt3dadd($1+-8.3, $2+-24.06, $3+12.14, 0.27)
        pt3dadd($1+-9.71, $2+-25.79, $3+12.15, 0.27)
        pt3dadd($1+-8.3, $2+-28.13, $3+12.16, 0.27)
        pt3dadd($1+-6.96, $2+-29.48, $3+12.16, 0.27)
        pt3dadd($1+-7.61, $2+-31.33, $3+12.18, 0.27)
        pt3dadd($1+-7.79, $2+-33.83, $3+12.19, 0.27)
        pt3dadd($1+-8.45, $2+-37.02, $3+12.21, 0.27)
        pt3dadd($1+-8.29, $2+-38.59, $3+12.22, 0.27)
        pt3dadd($1+-7.16, $2+-41.47, $3+12.23, 0.27)
        pt3dadd($1+-6.13, $2+-43.75, $3+12.24, 0.27)
        pt3dadd($1+-6.47, $2+-46.03, $3+12.26, 0.27)
        pt3dadd($1+-7.01, $2+-47.11, $3+12.26, 0.27)
        pt3dadd($1+-7.29, $2+-49, $3+12.27, 0.27)
        pt3dadd($1+-6.75, $2+-50.63, $3+12.28, 0.27)
        pt3dadd($1+-5.46, $2+-53.72, $3+12.3, 0.27)
      }
      dend[47] {pt3dclear()
        pt3dadd($1+-5.46, $2+-53.72, $3+12.3, 0.27)
        pt3dadd($1+-7.1, $2+-55.22, $3+13.12, 0.27)
      }
      dend[48] {pt3dclear()
        pt3dadd($1+-7.1, $2+-55.22, $3+13.12, 0.27)
        pt3dadd($1+-7.48, $2+-55.56, $3+13.31, 0.27)
        pt3dadd($1+-10.35, $2+-56.69, $3+13.32, 0.27)
        pt3dadd($1+-12.09, $2+-57.98, $3+13.33, 0.27)
        pt3dadd($1+-13.51, $2+-61.07, $3+13.35, 0.27)
        pt3dadd($1+-14.76, $2+-63.02, $3+13.36, 0.27)
        pt3dadd($1+-18.29, $2+-64.63, $3+13.37, 0.27)
        pt3dadd($1+-21.38, $2+-64.57, $3+13.37, 0.27)
        pt3dadd($1+-25.77, $2+-62.76, $3+13.36, 0.27)
        pt3dadd($1+-29.02, $2+-61.13, $3+13.36, 0.27)
      }
      dend[49] {pt3dclear()
        pt3dadd($1+-7.1, $2+-55.22, $3+13.12, 0.27)
        pt3dadd($1+-5.25, $2+-54.92, $3+12.31, 0.27)
        pt3dadd($1+-3.41, $2+-56.93, $3+12.32, 0.27)
        pt3dadd($1+-4.5, $2+-59.09, $3+12.33, 0.27)
        pt3dadd($1+-7.23, $2+-61.79, $3+12.35, 0.27)
        pt3dadd($1+-8.42, $2+-63.37, $3+12.35, 0.27)
        pt3dadd($1+-9.19, $2+-65.97, $3+12.37, 0.27)
        pt3dadd($1+-6.21, $2+-68.15, $3+12.38, 0.27)
        pt3dadd($1+-5.51, $2+-68.63, $3+12.38, 0.27)
      }
      dend[50] {pt3dclear()
        pt3dadd($1+-5.46, $2+-53.72, $3+12.3, 0.27)
        pt3dadd($1+-3.78, $2+-54.17, $3+12.3, 0.27)
        pt3dadd($1+-0.58, $2+-54.83, $3+12.3, 0.27)
        pt3dadd($1+0.16, $2+-54.94, $3+12.3, 0.27)
      }
      dend[51] {pt3dclear()
        pt3dadd($1+-0.57, $2+-13.57, $3+12.07, 0.27)
        pt3dadd($1+-1.39, $2+-16.55, $3+12.09, 0.27)
        pt3dadd($1+1.57, $2+-20.08, $3+12.11, 0.27)
        pt3dadd($1+3.74, $2+-21.17, $3+12.11, 0.27)
        pt3dadd($1+5.3, $2+-22.37, $3+12.12, 0.27)
        pt3dadd($1+5.9, $2+-24.97, $3+12.13, 0.27)
        pt3dadd($1+5.72, $2+-26.11, $3+12.14, 0.27)
        pt3dadd($1+3.77, $2+-27.57, $3+12.15, 0.27)
        pt3dadd($1+1.27, $2+-28.75, $3+13.15, 0.27)
        pt3dadd($1+-0.68, $2+-30.21, $3+13.16, 0.27)
        pt3dadd($1+-0.84, $2+-31.34, $3+13.17, 0.27)
        pt3dadd($1+0.01, $2+-33.41, $3+13.18, 0.27)
        pt3dadd($1+-0.37, $2+-36.06, $3+13.2, 0.27)
        pt3dadd($1+1.84, $2+-38.13, $3+13.21, 0.27)
        pt3dadd($1+2.54, $2+-39.98, $3+13.22, 0.27)
        pt3dadd($1+3.94, $2+-42.31, $3+13.23, 0.27)
        pt3dadd($1+5.67, $2+-43.73, $3+13.24, 0.27)
        pt3dadd($1+8.17, $2+-45.25, $3+13.24, 0.27)
        pt3dadd($1+9.78, $2+-47.42, $3+13.25, 0.27)
        pt3dadd($1+10.59, $2+-49.87, $3+13.27, 0.27)
        pt3dadd($1+10.15, $2+-52.9, $3+13.28, 0.27)
        pt3dadd($1+11.54, $2+-56.6, $3+12.3, 0.27)
        pt3dadd($1+12.19, $2+-58.82, $3+12.32, 0.27)
        pt3dadd($1+13.64, $2+-60.78, $3+12.33, 0.27)
        pt3dadd($1+15.26, $2+-62.95, $3+12.34, 0.27)
        pt3dadd($1+15.53, $2+-63.76, $3+12.34, 0.27)
        pt3dadd($1+15.79, $2+-65.94, $3+12.35, 0.27)
        pt3dadd($1+15.84, $2+-68.27, $3+12.37, 0.27)
        pt3dadd($1+15.34, $2+-70.32, $3+12.38, 0.27)
      }
      dend[52] {pt3dclear()
        pt3dadd($1+15.34, $2+-70.32, $3+12.38, 0.27)
        pt3dadd($1+14.79, $2+-72.77, $3+12.39, 0.27)
        pt3dadd($1+15.01, $2+-75.31, $3+12.41, 0.27)
        pt3dadd($1+21.72, $2+-79.78, $3+12.43, 0.27)
        pt3dadd($1+24.59, $2+-80.01, $3+12.42, 0.27)
        pt3dadd($1+27.18, $2+-80.77, $3+12.43, 0.27)
        pt3dadd($1+28.81, $2+-81.59, $3+12.43, 0.27)
        pt3dadd($1+29.84, $2+-82.52, $3+12.44, 0.27)
      }
      dend[53] {pt3dclear()
        pt3dadd($1+15.34, $2+-70.32, $3+12.38, 0.27)
        pt3dadd($1+13.24, $2+-70.21, $3+12.38, 0.27)
        pt3dadd($1+11.17, $2+-69.71, $3+12.38, 0.27)
        pt3dadd($1+10.1, $2+-69.17, $3+12.37, 0.27)
        pt3dadd($1+7.81, $2+-68.84, $3+12.37, 0.27)
        pt3dadd($1+6.63, $2+-69.05, $3+12.38, 0.27)
      }
      dend[54] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+0.58, $2+-8.35, $3+6.04, 0.27)
        pt3dadd($1+0.29, $2+-11.6, $3+6.06, 0.27)
        pt3dadd($1+-0.29, $2+-13.06, $3+6.07, 0.27)
        pt3dadd($1+-0.41, $2+-13.82, $3+6.07, 0.27)
      }
      dend[55] {pt3dclear()
        pt3dadd($1+-0.41, $2+-13.82, $3+6.07, 0.27)
        pt3dadd($1+-2.91, $2+-15.01, $3+6.08, 0.27)
        pt3dadd($1+-4.58, $2+-15.92, $3+6.09, 0.27)
        pt3dadd($1+-6.32, $2+-17.22, $3+6.1, 0.27)
        pt3dadd($1+-7.2, $2+-17.87, $3+6.1, 0.27)
      }
      dend[56] {pt3dclear()
        pt3dadd($1+-7.2, $2+-17.87, $3+6.1, 0.27)
        pt3dadd($1+-8.72, $2+-20.35, $3+7.11, 0.27)
        pt3dadd($1+-10.46, $2+-23, $3+7.13, 0.27)
        pt3dadd($1+-13.24, $2+-24.72, $3+7.14, 0.27)
        pt3dadd($1+-13.95, $2+-26.95, $3+7.16, 0.27)
        pt3dadd($1+-15.53, $2+-28.46, $3+7.16, 0.27)
        pt3dadd($1+-18.13, $2+-30.4, $3+7.18, 0.27)
        pt3dadd($1+-19.66, $2+-31.54, $3+7.18, 0.27)
        pt3dadd($1+-21.33, $2+-32.45, $3+7.19, 0.27)
        pt3dadd($1+-24.26, $2+-32.6, $3+7.19, 0.27)
        pt3dadd($1+-26.87, $2+-31.84, $3+7.19, 0.27)
      }
      dend[57] {pt3dclear()
        pt3dadd($1+-26.87, $2+-31.84, $3+7.19, 0.27)
        pt3dadd($1+-28.01, $2+-34.38, $3+7.21, 0.27)
        pt3dadd($1+-29.97, $2+-37.19, $3+7.22, 0.27)
        pt3dadd($1+-31.98, $2+-39.03, $3+7.23, 0.27)
        pt3dadd($1+-32.86, $2+-41.04, $3+7.25, 0.27)
        pt3dadd($1+-31.56, $2+-42.78, $3+7.26, 0.27)
        pt3dadd($1+-29.89, $2+-45.92, $3+7.27, 0.27)
        pt3dadd($1+-26.75, $2+-48.32, $3+7.28, 0.27)
        pt3dadd($1+-23.93, $2+-48.93, $3+7.28, 0.27)
        pt3dadd($1+-21.66, $2+-50.62, $3+7.29, 0.27)
        pt3dadd($1+-20.91, $2+-52.08, $3+7.3, 0.27)
        pt3dadd($1+-19.94, $2+-53.38, $3+7.31, 0.27)
        pt3dadd($1+-17.13, $2+-55.35, $3+7.32, 0.27)
        pt3dadd($1+-14.69, $2+-57.24, $3+7.32, 0.27)
        pt3dadd($1+-11.67, $2+-60.4, $3+7.34, 0.27)
        pt3dadd($1+-9.29, $2+-64.04, $3+7.36, 0.27)
        pt3dadd($1+-7.08, $2+-67.46, $3+7.38, 0.27)
        pt3dadd($1+-6.66, $2+-69.85, $3+7.39, 0.27)
        pt3dadd($1+-5.31, $2+-73.92, $3+7.41, 0.27)
        pt3dadd($1+-5.97, $2+-75.76, $3+7.42, 0.27)
        pt3dadd($1+-6.35, $2+-77.06, $3+7.43, 0.27)
        pt3dadd($1+-10.8, $2+-79.7, $3+7.45, 0.27)
        pt3dadd($1+-14.33, $2+-78.61, $3+7.44, 0.27)
      }
      dend[58] {pt3dclear()
        pt3dadd($1+-26.87, $2+-31.84, $3+7.19, 0.27)
      }
    }
    proc shape3d_4() {
      dend[58] {	pt3dadd($1+-27.94, $2+-29.94, $3+7.18, 0.27)
        pt3dadd($1+-28.64, $2+-28.1, $3+7.17, 0.27)
        pt3dadd($1+-28.58, $2+-26.35, $3+7.16, 0.27)
      }
      dend[59] {pt3dclear()
        pt3dadd($1+-7.2, $2+-17.87, $3+6.1, 0.27)
        pt3dadd($1+-9.58, $2+-16.93, $3+7.1, 0.27)
        pt3dadd($1+-12.83, $2+-16.65, $3+7.1, 0.27)
        pt3dadd($1+-14.3, $2+-17.41, $3+7.1, 0.27)
        pt3dadd($1+-18.09, $2+-18.2, $3+7.11, 0.27)
      }
      dend[60] {pt3dclear()
        pt3dadd($1+-0.41, $2+-13.82, $3+6.07, 0.27)
        pt3dadd($1+0.55, $2+-16.48, $3+6.09, 0.27)
        pt3dadd($1+1.09, $2+-19.46, $3+6.1, 0.27)
        pt3dadd($1+1.18, $2+-22.77, $3+6.12, 0.27)
        pt3dadd($1+1.01, $2+-25.27, $3+6.14, 0.27)
        pt3dadd($1+0.13, $2+-27.27, $3+6.15, 0.27)
      }
      dend[61] {pt3dclear()
        pt3dadd($1+0.13, $2+-27.27, $3+6.15, 0.27)
        pt3dadd($1+0.94, $2+-28.36, $3+6.15, 0.27)
        pt3dadd($1+3.76, $2+-30.31, $3+6.16, 0.27)
        pt3dadd($1+5.01, $2+-31.08, $3+6.17, 0.27)
        pt3dadd($1+6.03, $2+-32, $3+6.17, 0.27)
      }
      dend[62] {pt3dclear()
        pt3dadd($1+6.03, $2+-32, $3+6.17, 0.27)
        pt3dadd($1+7.65, $2+-32.82, $3+6.17, 0.27)
        pt3dadd($1+10.58, $2+-34.02, $3+6.18, 0.27)
        pt3dadd($1+12.26, $2+-34.46, $3+6.18, 0.27)
        pt3dadd($1+15.24, $2+-33.93, $3+6.17, 0.27)
        pt3dadd($1+17.74, $2+-32.74, $3+6.17, 0.27)
      }
      dend[63] {pt3dclear()
        pt3dadd($1+6.03, $2+-32, $3+6.17, 0.27)
        pt3dadd($1+5.76, $2+-33.9, $3+6.18, 0.27)
        pt3dadd($1+4.61, $2+-36.44, $3+6.2, 0.27)
        pt3dadd($1+3.57, $2+-38.23, $3+6.21, 0.27)
        pt3dadd($1+3.13, $2+-39.91, $3+6.22, 0.27)
        pt3dadd($1+2.37, $2+-41.15, $3+6.22, 0.27)
        pt3dadd($1+0.79, $2+-42.66, $3+6.23, 0.27)
        pt3dadd($1+-0.72, $2+-43.8, $3+6.24, 0.27)
        pt3dadd($1+-0.73, $2+-44.65, $3+6.24, 0.17)
        pt3dadd($1+-0.76, $2+-45.72, $3+9.25, 0.17)
        pt3dadd($1+-0.29, $2+-46.63, $3+10.26, 0.17)
        pt3dadd($1+0.44, $2+-48.19, $3+11.26, 0.17)
        pt3dadd($1+1.45, $2+-50.39, $3+11.28, 0.17)
        pt3dadd($1+0.93, $2+-51.41, $3+11.28, 0.17)
        pt3dadd($1+0.08, $2+-52.26, $3+11.29, 0.17)
        pt3dadd($1+-1.34, $2+-54.59, $3+11.3, 0.17)
        pt3dadd($1+-1.85, $2+-55.61, $3+11.31, 0.17)
        pt3dadd($1+-1.55, $2+-56.87, $3+11.31, 0.17)
        pt3dadd($1+-1.48, $2+-58.93, $3+11.33, 0.17)
        pt3dadd($1+-0.71, $2+-61.11, $3+11.34, 0.17)
        pt3dadd($1+1.58, $2+-63.62, $3+11.35, 0.17)
        pt3dadd($1+3.2, $2+-64.95, $3+11.36, 0.17)
        pt3dadd($1+5.36, $2+-66.73, $3+11.36, 0.17)
        pt3dadd($1+6.88, $2+-68.76, $3+11.37, 0.17)
        pt3dadd($1+10.91, $2+-71.9, $3+11.39, 0.17)
        pt3dadd($1+12.47, $2+-72.85, $3+11.39, 0.17)
        pt3dadd($1+14.06, $2+-73.56, $3+11.4, 0.17)
      }
      dend[64] {pt3dclear()
        pt3dadd($1+0.13, $2+-27.27, $3+6.15, 0.27)
        pt3dadd($1+-0.88, $2+-29.05, $3+6.16, 0.27)
        pt3dadd($1+-1.92, $2+-30.84, $3+6.17, 0.27)
        pt3dadd($1+-2.31, $2+-32.13, $3+6.18, 0.27)
        pt3dadd($1+-2.96, $2+-33.98, $3+6.19, 0.27)
        pt3dadd($1+-3.13, $2+-35.11, $3+6.19, 0.27)
      }
      dend[65] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+-8.4, $2+-4.9, $3+7.03, 0.27)
        pt3dadd($1+-10.74, $2+-6.3, $3+7.04, 0.27)
        pt3dadd($1+-12.48, $2+-7.6, $3+7.05, 0.27)
        pt3dadd($1+-13.13, $2+-8.07, $3+8.05, 0.27)
        pt3dadd($1+-14.33, $2+-9.64, $3+9.06, 0.27)
        pt3dadd($1+-15.68, $2+-10.99, $3+10.07, 0.27)
      }
      dend[66] {pt3dclear()
        pt3dadd($1+-15.68, $2+-10.99, $3+10.07, 0.27)
        pt3dadd($1+-17.32, $2+-12.88, $3+10.08, 0.27)
        pt3dadd($1+-18.45, $2+-14.06, $3+11.09, 0.27)
        pt3dadd($1+-19.33, $2+-14.71, $3+12.09, 0.27)
        pt3dadd($1+-20.41, $2+-15.51, $3+12.1, 0.27)
      }
      dend[67] {pt3dclear()
        pt3dadd($1+-20.41, $2+-15.51, $3+12.1, 0.27)
        pt3dadd($1+-22.37, $2+-15.61, $3+12.1, 0.27)
        pt3dadd($1+-24.36, $2+-14.74, $3+12.09, 0.27)
        pt3dadd($1+-27.18, $2+-14.13, $3+13.09, 0.27)
        pt3dadd($1+-29.62, $2+-14.94, $3+13.1, 0.27)
        pt3dadd($1+-31.58, $2+-17.75, $3+13.12, 0.27)
        pt3dadd($1+-33.54, $2+-19.21, $3+13.13, 0.27)
        pt3dadd($1+-36.97, $2+-21.42, $3+13.14, 0.27)
        pt3dadd($1+-38.86, $2+-21.14, $3+13.14, 0.27)
        pt3dadd($1+-41.3, $2+-19.24, $3+13.13, 0.27)
        pt3dadd($1+-42.27, $2+-17.94, $3+13.12, 0.27)
        pt3dadd($1+-43.51, $2+-15.82, $3+13.11, 0.27)
        pt3dadd($1+-44.58, $2+-13.91, $3+13.1, 0.27)
        pt3dadd($1+-48.06, $2+-13.8, $3+13.11, 0.27)
        pt3dadd($1+-48.87, $2+-14.07, $3+13.11, 0.27)
      }
      dend[68] {pt3dclear()
        pt3dadd($1+-20.41, $2+-15.51, $3+12.1, 0.27)
        pt3dadd($1+-20.48, $2+-18.61, $3+12.11, 0.27)
        pt3dadd($1+-22.65, $2+-21.57, $3+12.13, 0.27)
        pt3dadd($1+-23.53, $2+-22.23, $3+12.14, 0.27)
        pt3dadd($1+-24.45, $2+-23.25, $3+12.14, 0.27)
        pt3dadd($1+-27.39, $2+-27.47, $3+13.17, 0.27)
        pt3dadd($1+-29.67, $2+-28.49, $3+13.17, 0.27)
        pt3dadd($1+-31.51, $2+-29.19, $3+13.18, 0.27)
        pt3dadd($1+-32.71, $2+-29.4, $3+13.18, 0.27)
        pt3dadd($1+-35.15, $2+-30.21, $3+13.19, 0.27)
        pt3dadd($1+-36.99, $2+-30.91, $3+13.19, 0.27)
        pt3dadd($1+-39.11, $2+-32.15, $3+13.2, 0.27)
        pt3dadd($1+-43.29, $2+-32.89, $3+13.21, 0.27)
        pt3dadd($1+-44.97, $2+-33.81, $3+13.21, 0.27)
        pt3dadd($1+-46.71, $2+-35.11, $3+13.22, 0.27)
        pt3dadd($1+-47.59, $2+-37.11, $3+13.23, 0.27)
        pt3dadd($1+-48.78, $2+-38.68, $3+13.24, 0.27)
        pt3dadd($1+-52.04, $2+-39.75, $3+13.25, 0.27)
        pt3dadd($1+-53.23, $2+-39.96, $3+13.25, 0.27)
      }
      dend[69] {pt3dclear()
        pt3dadd($1+-15.68, $2+-10.99, $3+10.07, 0.27)
        pt3dadd($1+-15.74, $2+-10.01, $3+11.06, 0.27)
        pt3dadd($1+-17.25, $2+-9.78, $3+11.06, 0.27)
        pt3dadd($1+-19.47, $2+-9.06, $3+12.06, 0.27)
        pt3dadd($1+-21.04, $2+-9.23, $3+12.06, 0.27)
        pt3dadd($1+-23.21, $2+-8.13, $3+12.06, 0.27)
        pt3dadd($1+-24.94, $2+-8.08, $3+12.06, 0.27)
        pt3dadd($1+-27.22, $2+-7.74, $3+12.06, 0.27)
        pt3dadd($1+-29.44, $2+-7.03, $3+12.05, 0.27)
        pt3dadd($1+-31.34, $2+-6.76, $3+12.05, 0.27)
        pt3dadd($1+-32.15, $2+-7.02, $3+12.06, 0.27)
      }
      dend[70] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+-10.38, $2+2.76, $3+11.99, 0.27)
        pt3dadd($1+-12.81, $2+3.32, $3+11.99, 0.27)
        pt3dadd($1+-15.92, $2+2.03, $3+11.99, 0.27)
        pt3dadd($1+-17.6, $2+1.11, $3+12, 0.27)
        pt3dadd($1+-19.44, $2+0.41, $3+12.01, 0.27)
        pt3dadd($1+-21.29, $2+-0.28, $3+12.01, 0.27)
        pt3dadd($1+-23.02, $2+-0.22, $3+13.01, 0.27)
        pt3dadd($1+-24, $2+-0.26, $3+13.01, 0.27)
        pt3dadd($1+-27.69, $2+-0.3, $3+13.02, 0.27)
        pt3dadd($1+-28.6, $2+0.01, $3+13.01, 0.27)
        pt3dadd($1+-28.6, $2+2.72, $3+13, 0.27)
        pt3dadd($1+-27.24, $2+4.07, $3+12.99, 0.27)
        pt3dadd($1+-26.04, $2+4.29, $3+12.99, 0.27)
      }
      dend[71] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+-0.76, $2+8.9, $3+7.95, 0.27)
        pt3dadd($1+-1.63, $2+13.67, $3+7.92, 0.27)
        pt3dadd($1+-1.83, $2+16.22, $3+7.91, 0.27)
        pt3dadd($1+-1.39, $2+17.9, $3+8.9, 0.27)
        pt3dadd($1+-2.25, $2+19.97, $3+9.89, 0.27)
        pt3dadd($1+-4.63, $2+20.91, $3+10.88, 0.27)
        pt3dadd($1+-6.52, $2+21.19, $3+11.88, 0.27)
        pt3dadd($1+-8.54, $2+20.71, $3+12.89, 0.27)
        pt3dadd($1+-9.68, $2+19.52, $3+12.89, 0.27)
        pt3dadd($1+-11.25, $2+18, $3+12.9, 0.27)
        pt3dadd($1+-12.55, $2+17.04, $3+12.91, 0.27)
        pt3dadd($1+-14.08, $2+15.9, $3+12.92, 0.27)
        pt3dadd($1+-15.93, $2+15.21, $3+12.92, 0.27)
        pt3dadd($1+-18.15, $2+14.56, $3+12.93, 0.27)
        pt3dadd($1+-19.56, $2+14.19, $3+12.93, 0.27)
      }
      dend[72] {pt3dclear()
        pt3dadd($1+-19.56, $2+14.19, $3+12.93, 0.27)
        pt3dadd($1+-22.32, $2+15.17, $3+12.93, 0.27)
        pt3dadd($1+-24.65, $2+16.48, $3+12.92, 0.27)
        pt3dadd($1+-27.09, $2+17.03, $3+12.92, 0.27)
        pt3dadd($1+-28.12, $2+16.6, $3+12.92, 0.27)
        pt3dadd($1+-30.18, $2+15.74, $3+12.93, 0.27)
        pt3dadd($1+-32.35, $2+15.48, $3+13.93, 0.27)
        pt3dadd($1+-33.87, $2+15.7, $3+13.93, 0.27)
        pt3dadd($1+-35.87, $2+16.57, $3+13.93, 0.27)
        pt3dadd($1+-37.8, $2+20.53, $3+12.91, 0.27)
        pt3dadd($1+-39, $2+21.68, $3+12.9, 0.27)
        pt3dadd($1+-40.63, $2+22.5, $3+13.9, 0.27)
        pt3dadd($1+-42.52, $2+22.77, $3+13.9, 0.27)
        pt3dadd($1+-43.71, $2+22.56, $3+13.9, 0.27)
        pt3dadd($1+-46.69, $2+23.38, $3+12.9, 0.27)
        pt3dadd($1+-47.99, $2+23.76, $3+12.9, 0.27)
        pt3dadd($1+-49.88, $2+24.04, $3+12.9, 0.27)
        pt3dadd($1+-51.25, $2+24.04, $3+12.9, 0.27)
        pt3dadd($1+-53.63, $2+23.61, $3+12.9, 0.27)
        pt3dadd($1+-55.14, $2+23.83, $3+12.9, 0.27)
        pt3dadd($1+-57.54, $2+23.41, $3+12.9, 0.27)
        pt3dadd($1+-58.84, $2+22.44, $3+12.91, 0.27)
        pt3dadd($1+-60.68, $2+21.74, $3+12.92, 0.27)
        pt3dadd($1+-61.88, $2+21.52, $3+12.92, 0.27)
      }
      dend[73] {pt3dclear()
        pt3dadd($1+-19.56, $2+14.19, $3+12.93, 0.27)
        pt3dadd($1+-19.35, $2+11.63, $3+12.94, 0.27)
        pt3dadd($1+-20.38, $2+9.85, $3+12.95, 0.27)
        pt3dadd($1+-24.03, $2+8.84, $3+12.96, 0.27)
        pt3dadd($1+-26.57, $2+8.62, $3+12.97, 0.27)
        pt3dadd($1+-28.96, $2+8.2, $3+12.97, 0.27)
        pt3dadd($1+-31.29, $2+8.15, $3+12.97, 0.27)
        pt3dadd($1+-33.08, $2+7.83, $3+12.97, 0.27)
        pt3dadd($1+-35.15, $2+6.97, $3+12.98, 0.27)
        pt3dadd($1+-37.25, $2+7.09, $3+12.98, 0.27)
        pt3dadd($1+-38.45, $2+6.87, $3+12.98, 0.27)
        pt3dadd($1+-40.78, $2+5.47, $3+12.99, 0.27)
        pt3dadd($1+-42.85, $2+4.61, $3+13, 0.27)
        pt3dadd($1+-47.78, $2+5.33, $3+13, 0.27)
        pt3dadd($1+-50.98, $2+5.99, $3+13, 0.27)
        pt3dadd($1+-52.71, $2+7.41, $3+12.99, 0.27)
        pt3dadd($1+-56.12, $2+9.26, $3+12.98, 0.27)
        pt3dadd($1+-57.68, $2+9.1, $3+12.98, 0.27)
        pt3dadd($1+-60.78, $2+7.81, $3+12.99, 0.27)
        pt3dadd($1+-63.44, $2+8.2, $3+12.99, 0.27)
        pt3dadd($1+-65.55, $2+8.31, $3+12.99, 0.27)
        pt3dadd($1+-67.12, $2+8.15, $3+13, 0.27)
        pt3dadd($1+-68.58, $2+10.11, $3+12.99, 0.27)
        pt3dadd($1+-69.23, $2+10.98, $3+12.98, 0.27)
        pt3dadd($1+-69.82, $2+12.23, $3+12.97, 0.27)
        pt3dadd($1+-70.74, $2+13.91, $3+12.97, 0.27)
        pt3dadd($1+-70.95, $2+15.1, $3+12.96, 0.27)
        pt3dadd($1+-71.17, $2+16.3, $3+12.95, 0.27)
        pt3dadd($1+-71.81, $2+17.16, $3+12.95, 0.27)
        pt3dadd($1+-71.75, $2+18.91, $3+12.94, 0.27)
        pt3dadd($1+-72.4, $2+19.77, $3+12.93, 0.27)
      }
    }
    proc shape3d_5() {
      dend[73] {	pt3dadd($1+-73.91, $2+21.35, $3+12.93, 0.27)
        pt3dadd($1+-75.54, $2+22.17, $3+12.92, 0.27)
      }
      dend[74] {pt3dclear()
        pt3dadd($1+-75.54, $2+22.17, $3+12.92, 0.27)
        pt3dadd($1+-77.16, $2+21.63, $3+12.93, 0.27)
        pt3dadd($1+-78.63, $2+20.88, $3+12.93, 0.27)
        pt3dadd($1+-82.59, $2+23, $3+12.92, 0.27)
        pt3dadd($1+-83.99, $2+23.98, $3+12.92, 0.27)
        pt3dadd($1+-87.08, $2+24.05, $3+12.92, 0.27)
        pt3dadd($1+-89.47, $2+22.27, $3+12.93, 0.27)
        pt3dadd($1+-90.51, $2+20.48, $3+12.94, 0.27)
        pt3dadd($1+-91.7, $2+18.91, $3+12.95, 0.27)
        pt3dadd($1+-93.39, $2+18, $3+12.96, 0.27)
        pt3dadd($1+-95.88, $2+16.81, $3+12.97, 0.27)
        pt3dadd($1+-99.25, $2+14.98, $3+12.98, 0.27)
        pt3dadd($1+-102.18, $2+12.12, $3+13, 0.27)
      }
      dend[75] {pt3dclear()
        pt3dadd($1+-75.54, $2+22.17, $3+12.92, 0.27)
        pt3dadd($1+-76.29, $2+23.63, $3+12.92, 0.27)
        pt3dadd($1+-76.73, $2+24.66, $3+12.91, 0.27)
        pt3dadd($1+-78.24, $2+26.24, $3+12.9, 0.27)
        pt3dadd($1+-78.99, $2+27.7, $3+12.89, 0.27)
        pt3dadd($1+-78.98, $2+29.07, $3+12.89, 0.27)
        pt3dadd($1+-78.82, $2+30.2, $3+12.88, 0.27)
      }
      dend[76] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+7.48, $2+-4.87, $3+12.02, 0.27)
        pt3dadd($1+10.61, $2+-7.27, $3+12.03, 0.27)
        pt3dadd($1+13.59, $2+-9.44, $3+12.04, 0.27)
        pt3dadd($1+14.22, $2+-13.02, $3+12.06, 0.27)
        pt3dadd($1+13.74, $2+-15.08, $3+12.07, 0.27)
        pt3dadd($1+14.53, $2+-18.87, $3+12.09, 0.27)
        pt3dadd($1+14.52, $2+-21.59, $3+12.11, 0.27)
        pt3dadd($1+13.05, $2+-23.7, $3+12.12, 0.27)
        pt3dadd($1+11.37, $2+-25.97, $3+12.13, 0.27)
        pt3dadd($1+9.35, $2+-29.16, $3+12.15, 0.27)
        pt3dadd($1+9.51, $2+-30.73, $3+12.16, 0.27)
        pt3dadd($1+15.09, $2+-33.68, $3+12.17, 0.27)
        pt3dadd($1+17.73, $2+-35.42, $3+12.18, 0.27)
        pt3dadd($1+18.76, $2+-36.35, $3+12.19, 0.27)
        pt3dadd($1+19.46, $2+-36.84, $3+12.19, 0.27)
      }
      dend[77] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+4.55, $2+-6.38, $3+12.03, 0.27)
        pt3dadd($1+8.43, $2+-10.24, $3+12.05, 0.27)
        pt3dadd($1+8.86, $2+-12.62, $3+12.06, 0.27)
        pt3dadd($1+9.61, $2+-15.45, $3+12.07, 0.27)
      }
      dend[78] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+6.69, $2+5.64, $3+1.96, 0.27)
        pt3dadd($1+9.35, $2+7.97, $3+1.94, 0.27)
        pt3dadd($1+11.25, $2+9.04, $3+2.94, 0.27)
        pt3dadd($1+13.32, $2+9.91, $3+3.93, 0.27)
        pt3dadd($1+14.57, $2+11.87, $3+4.92, 0.27)
        pt3dadd($1+15.87, $2+12.84, $3+4.91, 0.27)
        pt3dadd($1+16.26, $2+14.14, $3+4.91, 0.27)
        pt3dadd($1+17.51, $2+14.73, $3+4.9, 0.27)
      }
      dend[79] {pt3dclear()
        pt3dadd($1+17.51, $2+14.73, $3+4.9, 0.27)
        pt3dadd($1+18.81, $2+15.7, $3+4.89, 0.27)
      }
      dend[80] {pt3dclear()
        pt3dadd($1+18.81, $2+15.7, $3+4.89, 0.27)
        pt3dadd($1+18.98, $2+18.19, $3+4.88, 0.27)
        pt3dadd($1+18.82, $2+19.77, $3+5.87, 0.27)
        pt3dadd($1+20.13, $2+20.75, $3+5.87, 0.27)
        pt3dadd($1+21.39, $2+22.69, $3+5.85, 0.27)
        pt3dadd($1+22.2, $2+24.32, $3+6.84, 0.27)
        pt3dadd($1+23.94, $2+25.62, $3+6.84, 0.27)
        pt3dadd($1+25.89, $2+27.08, $3+6.83, 0.27)
        pt3dadd($1+27.63, $2+28.37, $3+6.82, 0.27)
        pt3dadd($1+29.43, $2+30.05, $3+6.81, 0.27)
        pt3dadd($1+30.79, $2+31.4, $3+6.8, 0.27)
      }
      dend[81] {pt3dclear()
        pt3dadd($1+30.79, $2+31.4, $3+6.8, 0.27)
        pt3dadd($1+32.48, $2+33.67, $3+6.79, 0.27)
        pt3dadd($1+34.65, $2+35.29, $3+7.77, 0.27)
        pt3dadd($1+36.11, $2+36.05, $3+8.77, 0.27)
        pt3dadd($1+38.34, $2+36.7, $3+9.76, 0.27)
        pt3dadd($1+40.35, $2+37.19, $3+10.76, 0.27)
        pt3dadd($1+42.47, $2+37.08, $3+11.76, 0.27)
      }
      dend[82] {pt3dclear()
        pt3dadd($1+42.47, $2+37.08, $3+11.76, 0.27)
        pt3dadd($1+43.6, $2+38.27, $3+11.75, 0.27)
        pt3dadd($1+44.98, $2+42.33, $3+11.73, 0.27)
        pt3dadd($1+45.14, $2+44.82, $3+11.71, 0.27)
        pt3dadd($1+44.94, $2+46.02, $3+11.71, 0.27)
        pt3dadd($1+44.99, $2+47.75, $3+11.7, 0.27)
        pt3dadd($1+44.63, $2+51.87, $3+11.68, 0.27)
        pt3dadd($1+43.76, $2+53.94, $3+11.66, 0.27)
        pt3dadd($1+45.02, $2+57.24, $3+11.65, 0.27)
        pt3dadd($1+47.36, $2+60, $3+11.63, 0.27)
        pt3dadd($1+48.34, $2+61.4, $3+11.62, 0.27)
        pt3dadd($1+49.38, $2+64.54, $3+11.6, 0.27)
        pt3dadd($1+49.33, $2+66.88, $3+11.59, 0.27)
        pt3dadd($1+51.67, $2+69.63, $3+11.57, 0.27)
        pt3dadd($1+53.2, $2+72.12, $3+11.56, 0.27)
        pt3dadd($1+53.48, $2+75.37, $3+11.54, 0.27)
        pt3dadd($1+55.33, $2+77.43, $3+11.53, 0.27)
        pt3dadd($1+56.85, $2+79.92, $3+11.51, 0.27)
        pt3dadd($1+60.23, $2+83.1, $3+11.49, 0.27)
        pt3dadd($1+61.7, $2+85.21, $3+11.48, 0.27)
        pt3dadd($1+62.96, $2+88.51, $3+11.46, 0.27)
        pt3dadd($1+61.99, $2+92.54, $3+11.44, 0.27)
        pt3dadd($1+58.64, $2+96.12, $3+11.42, 0.27)
        pt3dadd($1+56.86, $2+97.15, $3+11.41, 0.27)
        pt3dadd($1+54.42, $2+97.71, $3+11.41, 0.27)
      }
      dend[83] {pt3dclear()
        pt3dadd($1+42.47, $2+37.08, $3+11.76, 0.27)
        pt3dadd($1+42.78, $2+33.94, $3+11.78, 0.27)
        pt3dadd($1+42.61, $2+31.44, $3+11.79, 0.27)
        pt3dadd($1+42.6, $2+30.09, $3+11.8, 0.27)
      }
      dend[84] {pt3dclear()
        pt3dadd($1+30.79, $2+31.4, $3+6.8, 0.27)
        pt3dadd($1+30.9, $2+33.51, $3+6.79, 0.27)
        pt3dadd($1+30.7, $2+36.06, $3+6.77, 0.27)
        pt3dadd($1+31.4, $2+38.28, $3+6.76, 0.27)
        pt3dadd($1+34.45, $2+39.19, $3+6.75, 0.27)
        pt3dadd($1+36.34, $2+40.26, $3+6.75, 0.27)
        pt3dadd($1+37.34, $2+44.39, $3+6.72, 0.27)
        pt3dadd($1+37.94, $2+47.21, $3+6.71, 0.27)
        pt3dadd($1+39.63, $2+49.47, $3+6.69, 0.27)
        pt3dadd($1+41.15, $2+50.6, $3+6.68, 0.27)
        pt3dadd($1+44.35, $2+51.31, $3+6.68, 0.27)
        pt3dadd($1+46.9, $2+51.51, $3+6.68, 0.27)
        pt3dadd($1+48.8, $2+52.59, $3+6.67, 0.27)
        pt3dadd($1+50.86, $2+53.45, $3+6.66, 0.27)
        pt3dadd($1+52.71, $2+52.79, $3+6.66, 0.27)
      }
      dend[85] {pt3dclear()
        pt3dadd($1+52.71, $2+52.79, $3+6.66, 0.27)
        pt3dadd($1+51.04, $2+57.3, $3+6.64, 0.27)
        pt3dadd($1+48.88, $2+61.1, $3+6.62, 0.27)
        pt3dadd($1+48.12, $2+62.57, $3+6.61, 0.27)
        pt3dadd($1+46.12, $2+63.44, $3+6.61, 0.27)
        pt3dadd($1+43.9, $2+64.15, $3+6.61, 0.27)
        pt3dadd($1+40, $2+65.3, $3+6.6, 0.27)
        pt3dadd($1+38.32, $2+65.74, $3+6.6, 0.27)
        pt3dadd($1+35.13, $2+69.12, $3+6.59, 0.27)
        pt3dadd($1+33.79, $2+70.47, $3+6.58, 0.27)
        pt3dadd($1+31.78, $2+71.34, $3+6.58, 0.27)
        pt3dadd($1+30.69, $2+71.9, $3+6.57, 0.27)
        pt3dadd($1+29.78, $2+73.57, $3+6.56, 0.27)
      }
      dend[86] {pt3dclear()
        pt3dadd($1+52.71, $2+52.79, $3+6.66, 0.27)
        pt3dadd($1+54.81, $2+52.68, $3+6.66, 0.27)
        pt3dadd($1+56.82, $2+53.17, $3+6.66, 0.27)
        pt3dadd($1+59.59, $2+56.24, $3+6.64, 0.27)
        pt3dadd($1+60.64, $2+59.39, $3+6.62, 0.27)
        pt3dadd($1+62.65, $2+61.23, $3+6.61, 0.27)
        pt3dadd($1+62.87, $2+61.39, $3+6.61, 0.27)
        pt3dadd($1+64.44, $2+61.54, $3+6.61, 0.27)  //XXX: was 0 diam
      }
      dend[87] {pt3dclear()
        pt3dadd($1+64.44, $2+61.54, $3+6.61, 0.27)  //XXX: was 0 diam
        pt3dadd($1+64.82, $2+62.84, $3+6.6, 0.27)
        pt3dadd($1+65.91, $2+63.66, $3+8.59, 0.27)
        pt3dadd($1+66.46, $2+64.75, $3+9.59, 0.27)
        pt3dadd($1+67.44, $2+66.15, $3+9.58, 0.27)
        pt3dadd($1+68.2, $2+67.4, $3+10.57, 0.27)
        pt3dadd($1+70.37, $2+67.67, $3+10.57, 0.27)
        pt3dadd($1+71.83, $2+68.43, $3+10.56, 0.27)
        pt3dadd($1+75.04, $2+70.48, $3+10.55, 0.27)
        pt3dadd($1+76.73, $2+72.75, $3+10.54, 0.27)
        pt3dadd($1+78.58, $2+74.8, $3+10.52, 0.27)
        pt3dadd($1+79.94, $2+76.15, $3+10.52, 0.27)
        pt3dadd($1+80.59, $2+77.99, $3+10.5, 0.27)
        pt3dadd($1+81.91, $2+83.04, $3+11.48, 0.27)
        pt3dadd($1+82.73, $2+84.65, $3+11.47, 0.27)
        pt3dadd($1+82.15, $2+87.26, $3+11.45, 0.27)
        pt3dadd($1+81.93, $2+89.81, $3+11.44, 0.27)
        pt3dadd($1+80.48, $2+93.13, $3+11.42, 0.27)
        pt3dadd($1+80.54, $2+96.22, $3+11.4, 0.27)
        pt3dadd($1+81.2, $2+98.05, $3+11.39, 0.27)
        pt3dadd($1+83.98, $2+101.14, $3+11.37, 0.27)
        pt3dadd($1+89.85, $2+106.87, $3+11.34, 0.27)
        pt3dadd($1+91.59, $2+109.51, $3+11.32, 0.27)
      }
      dend[88] {pt3dclear()
        pt3dadd($1+64.44, $2+61.54, $3+6.61, 0.27)  //XXX: was zero diam
        pt3dadd($1+65.26, $2+61.81, $3+6.61, 0.27)
        pt3dadd($1+67.2, $2+59.2, $3+6.62, 0.27)
        pt3dadd($1+67.78, $2+55.25, $3+6.64, 0.27)
        pt3dadd($1+68.32, $2+53.62, $3+6.65, 0.27)
        pt3dadd($1+69.12, $2+51.17, $3+6.66, 0.27)
        pt3dadd($1+68.96, $2+50.04, $3+6.67, 0.27)
        pt3dadd($1+66.68, $2+49.01, $3+6.68, 0.27)
      }
      dend[89] {pt3dclear()
        pt3dadd($1+18.81, $2+15.7, $3+4.89, 0.27)
        pt3dadd($1+21.25, $2+16.51, $3+5.89, 0.27)
        pt3dadd($1+23.8, $2+16.72, $3+5.89, 0.27)
        pt3dadd($1+25.59, $2+15.68, $3+5.89, 0.27)
        pt3dadd($1+27.32, $2+14.28, $3+6.9, 0.27)
      }
      dend[90] {pt3dclear()
        pt3dadd($1+27.32, $2+14.28, $3+6.9, 0.27)
        pt3dadd($1+29.49, $2+13.18, $3+6.9, 0.27)
        pt3dadd($1+31.54, $2+12.7, $3+6.9, 0.27)
        pt3dadd($1+33.6, $2+12.2, $3+6.9, 0.27)
        pt3dadd($1+35.22, $2+11.38, $3+6.91, 0.27)
      }
      dend[91] {pt3dclear()
        pt3dadd($1+35.22, $2+11.38, $3+6.91, 0.27)
        pt3dadd($1+37.23, $2+10.51, $3+6.91, 0.27)
        pt3dadd($1+40.59, $2+9.63, $3+6.91, 0.27)
        pt3dadd($1+47.15, $2+12.15, $3+6.9, 0.27)
        pt3dadd($1+49.27, $2+12.04, $3+6.89, 0.27)
        pt3dadd($1+50.57, $2+11.65, $3+6.9, 0.27)
        pt3dadd($1+54.63, $2+10.29, $3+6.9, 0.27)
        pt3dadd($1+56.91, $2+9.96, $3+6.9, 0.27)
        pt3dadd($1+57.99, $2+10.76, $3+6.9, 0.27)
        pt3dadd($1+59.89, $2+11.84, $3+6.89, 0.27)
        pt3dadd($1+61.56, $2+10.05, $3+6.9, 0.27)
        pt3dadd($1+63.24, $2+8.25, $3+6.91, 0.27)
        pt3dadd($1+64.6, $2+6.9, $3+6.91, 0.27)
        pt3dadd($1+67.51, $2+4.34, $3+6.92, 0.27)
        pt3dadd($1+70.87, $2+2.1, $3+6.94, 0.27)
        pt3dadd($1+73.52, $2+0.36, $3+6.94, 0.27)
        pt3dadd($1+76.77, $2+0.08, $3+6.94, 0.27)
        pt3dadd($1+79.1, $2+0.13, $3+6.94, 0.27)
      }
      dend[92] {pt3dclear()
        pt3dadd($1+35.22, $2+11.38, $3+6.91, 0.27)
        pt3dadd($1+38.16, $2+12.89, $3+6.9, 0.27)
        pt3dadd($1+40.71, $2+14.45, $3+6.89, 0.27)
      }
      dend[93] {pt3dclear()
        pt3dadd($1+27.32, $2+14.28, $3+6.9, 0.27)
      }
    }
    proc shape3d_6() {
      dend[93] {	pt3dadd($1+29.12, $2+15.95, $3+6.89, 0.27)
        pt3dadd($1+30.64, $2+18.44, $3+6.87, 0.27)
        pt3dadd($1+31.18, $2+19.52, $3+6.86, 0.27)
        pt3dadd($1+31.68, $2+21.59, $3+6.85, 0.27)
        pt3dadd($1+33.31, $2+23.48, $3+6.84, 0.27)
        pt3dadd($1+36.41, $2+24.76, $3+6.83, 0.27)
        pt3dadd($1+38.25, $2+25.46, $3+6.83, 0.27)
        pt3dadd($1+40.75, $2+26.65, $3+6.82, 0.27)
        pt3dadd($1+42.71, $2+28.11, $3+6.81, 0.27)
        pt3dadd($1+43.84, $2+29.29, $3+6.8, 0.27)
        pt3dadd($1+46.82, $2+29.83, $3+6.8, 0.27)
        pt3dadd($1+49.71, $2+30.95, $3+5.79, 0.27)
        pt3dadd($1+52.59, $2+32.09, $3+6.78, 0.27)
        pt3dadd($1+55.19, $2+34.03, $3+6.77, 0.27)
        pt3dadd($1+57.49, $2+39.11, $3+5.74, 0.27)
        pt3dadd($1+58.57, $2+39.92, $3+5.73, 0.27)
        pt3dadd($1+60.31, $2+41.22, $3+5.72, 0.27)
        pt3dadd($1+61.83, $2+42.35, $3+5.72, 0.27)
      }
      dend[94] {pt3dclear()
        pt3dadd($1+17.51, $2+14.73, $3+4.9, 0.27)
        pt3dadd($1+18.8, $2+12.99, $3+4.91, 0.27)
        pt3dadd($1+19.94, $2+11.48, $3+5.92, 0.27)
        pt3dadd($1+22.1, $2+9.04, $3+6.93, 0.27)
        pt3dadd($1+24.26, $2+7.95, $3+7.93, 0.27)
        pt3dadd($1+26.27, $2+7.08, $3+8.94, 0.27)
        pt3dadd($1+28.11, $2+6.43, $3+8.94, 0.27)
        pt3dadd($1+29.24, $2+4.9, $3+8.95, 0.27)
        pt3dadd($1+28.86, $2+3.61, $3+9.96, 0.27)
        pt3dadd($1+29.23, $2+2.2, $3+9.96, 0.27)
      }
      dend[95] {pt3dclear()
        pt3dadd($1+29.23, $2+2.2, $3+9.96, 0.27)
        pt3dadd($1+30.91, $2+1.76, $3+9.96, 0.27)
        pt3dadd($1+32.64, $2+0.34, $3+8.97, 0.27)
        pt3dadd($1+35.24, $2+-0.42, $3+7.97, 0.27)
        pt3dadd($1+37.62, $2+-1.35, $3+7.98, 0.27)
        pt3dadd($1+39.53, $2+-1.63, $3+7.98, 0.27)
        pt3dadd($1+44.35, $2+-1.76, $3+6.97, 0.27)
        pt3dadd($1+47.38, $2+-0.85, $3+6.97, 0.27)
        pt3dadd($1+49.77, $2+-0.43, $3+6.96, 0.27)
        pt3dadd($1+54, $2+0.7, $3+6.95, 0.27)
        pt3dadd($1+56.16, $2+-3.1, $3+6.97, 0.27)
        pt3dadd($1+59.77, $2+-8.86, $3+7, 0.27)
        pt3dadd($1+61.61, $2+-10.87, $3+7.01, 0.27)
        pt3dadd($1+65.25, $2+-11.2, $3+7.01, 0.27)
        pt3dadd($1+67.73, $2+-11.37, $3+7.01, 0.27)
        pt3dadd($1+70.55, $2+-11.98, $3+7.01, 0.27)
        pt3dadd($1+72.5, $2+-13.23, $3+7.02, 0.27)
        pt3dadd($1+74.34, $2+-13.88, $3+7.02, 0.27)
      }
      dend[96] {pt3dclear()
        pt3dadd($1+29.23, $2+2.2, $3+9.96, 0.27)
        pt3dadd($1+28.42, $2+1.93, $3+10.97, 0.27)
        pt3dadd($1+28.26, $2+0.8, $3+10.97, 0.27)
        pt3dadd($1+27.27, $2+-0.6, $3+10.98, 0.27)
        pt3dadd($1+26.62, $2+-1.08, $3+10.98, 0.27)
        pt3dadd($1+26.03, $2+-1.18, $3+11.98, 0.27)
        pt3dadd($1+24.67, $2+-2.53, $3+11.99, 0.27)
        pt3dadd($1+24.12, $2+-3.63, $3+12, 0.27)
        pt3dadd($1+23.2, $2+-4.65, $3+12.01, 0.27)
        pt3dadd($1+22.65, $2+-5.73, $3+12.01, 0.27)
        pt3dadd($1+22.11, $2+-8.17, $3+12.03, 0.27)
        pt3dadd($1+22.16, $2+-9.14, $3+12.03, 0.27)
        pt3dadd($1+22.2, $2+-10.12, $3+12.04, 0.27)
        pt3dadd($1+22.8, $2+-11.37, $3+12.04, 0.27)
        pt3dadd($1+23.28, $2+-12.02, $3+12.05, 0.27)
      }
      dend[97] {pt3dclear()
        pt3dadd($1+23.28, $2+-12.02, $3+12.05, 0.27)
        pt3dadd($1+25.45, $2+-13.11, $3+12.05, 0.27)
        pt3dadd($1+27.56, $2+-13.22, $3+13.05, 0.27)
        pt3dadd($1+31.3, $2+-15.51, $3+13.06, 0.27)
        pt3dadd($1+33.3, $2+-16.39, $3+13.06, 0.27)
        pt3dadd($1+35.85, $2+-17.53, $3+13.07, 0.27)
      }
      dend[98] {pt3dclear()
        pt3dadd($1+35.85, $2+-17.53, $3+13.07, 0.27)
        pt3dadd($1+36.98, $2+-19.05, $3+13.08, 0.27)
        pt3dadd($1+37.07, $2+-22.35, $3+13.09, 0.27)
        pt3dadd($1+36.84, $2+-25.23, $3+13.11, 0.27)
        pt3dadd($1+35.87, $2+-26.64, $3+13.12, 0.27)
        pt3dadd($1+34.62, $2+-28.58, $3+13.13, 0.27)
        pt3dadd($1+35.05, $2+-29.61, $3+13.14, 0.27)
        pt3dadd($1+37.1, $2+-30.11, $3+13.14, 0.27)
        pt3dadd($1+39.43, $2+-31.42, $3+13.14, 0.27)
        pt3dadd($1+40.95, $2+-31.64, $3+13.14, 0.27)
        pt3dadd($1+45.4, $2+-31.7, $3+13.14, 0.27)
        pt3dadd($1+48.49, $2+-29.06, $3+13.12, 0.27)
        pt3dadd($1+50.77, $2+-26.68, $3+13.11, 0.27)
        pt3dadd($1+51.7, $2+-25.66, $3+13.1, 0.27)
        pt3dadd($1+53.5, $2+-23.98, $3+13.09, 0.27)
        pt3dadd($1+56.04, $2+-23.77, $3+13.09, 0.27)
        pt3dadd($1+59.84, $2+-24.32, $3+13.09, 0.27)
        pt3dadd($1+63.25, $2+-26.18, $3+13.1, 0.27)
        pt3dadd($1+66.55, $2+-27.44, $3+13.1, 0.27)
        pt3dadd($1+69.31, $2+-28.42, $3+13.11, 0.27)
        pt3dadd($1+71.2, $2+-28.7, $3+13.11, 0.27)
      }
      dend[99] {pt3dclear()
        pt3dadd($1+35.85, $2+-17.53, $3+13.07, 0.27)
        pt3dadd($1+37.86, $2+-15.69, $3+13.06, 0.27)
        pt3dadd($1+39.32, $2+-13.58, $3+13.04, 0.27)
        pt3dadd($1+39.71, $2+-12.28, $3+13.04, 0.27)
        pt3dadd($1+39.77, $2+-10.54, $3+13.03, 0.27)
        pt3dadd($1+40.1, $2+-8.28, $3+13.01, 0.27)
        pt3dadd($1+40.43, $2+-5.99, $3+13, 0.27)
      }
      dend[100] {pt3dclear()
        pt3dadd($1+23.28, $2+-12.02, $3+12.05, 0.27)
        pt3dadd($1+23.28, $2+-14.73, $3+12.06, 0.27)
        pt3dadd($1+23.11, $2+-17.23, $3+12.08, 0.27)
        pt3dadd($1+22.28, $2+-18.85, $3+12.09, 0.27)
        pt3dadd($1+21.74, $2+-19.93, $3+12.09, 0.27)
        pt3dadd($1+21.13, $2+-21.39, $3+12.1, 0.27)
        pt3dadd($1+20.27, $2+-23.39, $3+12.11, 0.27)
        pt3dadd($1+19.88, $2+-24.69, $3+12.12, 0.27)
        pt3dadd($1+20.74, $2+-26.76, $3+12.13, 0.27)
        pt3dadd($1+23.51, $2+-27.74, $3+12.13, 0.27)
        pt3dadd($1+24.48, $2+-27.69, $3+12.13, 0.27)
        pt3dadd($1+26.7, $2+-28.4, $3+12.14, 0.27)
        pt3dadd($1+27.18, $2+-29.05, $3+12.14, 0.27)
        pt3dadd($1+28.6, $2+-30.03, $3+12.14, 0.27)
        pt3dadd($1+30, $2+-32.37, $3+12.16, 0.27)
        pt3dadd($1+29.55, $2+-34.05, $3+12.17, 0.27)
        pt3dadd($1+29.45, $2+-36.16, $3+12.18, 0.27)
        pt3dadd($1+29.38, $2+-37.9, $3+12.19, 0.27)
        pt3dadd($1+29.27, $2+-38.66, $3+12.19, 0.27)
        pt3dadd($1+29.38, $2+-39.25, $3+12.19, 0.27)
      }
      dend[101] {pt3dclear()
        pt3dadd($1+29.38, $2+-39.25, $3+12.19, 0.27)
        pt3dadd($1+30.51, $2+-40.77, $3+12.2, 0.27)
        pt3dadd($1+31.97, $2+-42.73, $3+12.21, 0.27)
        pt3dadd($1+32.35, $2+-44.14, $3+12.22, 0.27)
        pt3dadd($1+33.52, $2+-46.64, $3+12.23, 0.27)
      }
      dend[102] {pt3dclear()
        pt3dadd($1+33.52, $2+-46.64, $3+12.23, 0.27)
        pt3dadd($1+35.91, $2+-47.56, $3+13.24, 0.27)
        pt3dadd($1+38.29, $2+-48.49, $3+13.24, 0.27)
        pt3dadd($1+42.3, $2+-50.24, $3+13.25, 0.27)
        pt3dadd($1+43.65, $2+-51.6, $3+13.25, 0.27)
        pt3dadd($1+45.21, $2+-54.15, $3+13.27, 0.27)
        pt3dadd($1+48.19, $2+-56.33, $3+13.28, 0.27)
        pt3dadd($1+50.41, $2+-57.04, $3+13.28, 0.27)
        pt3dadd($1+52.85, $2+-57.59, $3+13.28, 0.27)
        pt3dadd($1+53.82, $2+-57.54, $3+13.28, 0.27)
        pt3dadd($1+55.56, $2+-57.6, $3+13.28, 0.27)
        pt3dadd($1+57.61, $2+-58.09, $3+13.28, 0.27)
        pt3dadd($1+59.02, $2+-59.07, $3+13.28, 0.27)
        pt3dadd($1+62.06, $2+-59.52, $3+13.29, 0.27)
        pt3dadd($1+64.45, $2+-57.74, $3+13.27, 0.27)
        pt3dadd($1+65.65, $2+-54.81, $3+13.26, 0.27)
        pt3dadd($1+67.99, $2+-52.05, $3+13.24, 0.27)
      }
      dend[103] {pt3dclear()
        pt3dadd($1+33.52, $2+-46.64, $3+12.23, 0.27)
        pt3dadd($1+32.28, $2+-48.59, $3+12.24, 0.27)
        pt3dadd($1+29.72, $2+-51.5, $3+13.26, 0.27)
        pt3dadd($1+27.87, $2+-53.55, $3+13.28, 0.27)
        pt3dadd($1+26.94, $2+-55.94, $3+13.29, 0.27)
        pt3dadd($1+25.9, $2+-57.72, $3+13.3, 0.27)
        pt3dadd($1+25.63, $2+-59.61, $3+13.31, 0.27)
        pt3dadd($1+25.51, $2+-61.73, $3+13.32, 0.27)
        pt3dadd($1+25.29, $2+-63.24, $3+13.33, 0.27)
        pt3dadd($1+25.33, $2+-65.58, $3+13.34, 0.27)
        pt3dadd($1+25.93, $2+-66.83, $3+13.35, 0.27)
        pt3dadd($1+28.41, $2+-69.71, $3+13.36, 0.27)
        pt3dadd($1+31.18, $2+-72.05, $3+13.38, 0.27)
        pt3dadd($1+32.8, $2+-72.87, $3+13.38, 0.27)
        pt3dadd($1+36.7, $2+-74.02, $3+13.38, 0.27)
        pt3dadd($1+37.67, $2+-73.97, $3+13.38, 0.27)
      }
      dend[104] {pt3dclear()
        pt3dadd($1+29.38, $2+-39.25, $3+12.19, 0.27)
        pt3dadd($1+28.67, $2+-40.12, $3+12.2, 0.27)
        pt3dadd($1+25.41, $2+-42.54, $3+13.22, 0.27)
        pt3dadd($1+24.1, $2+-43.51, $3+13.22, 0.27)
        pt3dadd($1+22.7, $2+-43.89, $3+13.22, 0.27)
      }
      dend[105] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+8.1, $2+4.71, $3+10.96, 0.27)
        pt3dadd($1+11.63, $2+7.68, $3+10.94, 0.27)
        pt3dadd($1+14.13, $2+8.87, $3+10.94, 0.27)
        pt3dadd($1+16.68, $2+10.43, $3+10.93, 0.27)
        pt3dadd($1+18.75, $2+11.29, $3+10.92, 0.27)
        pt3dadd($1+20.92, $2+12.91, $3+10.91, 0.27)
        pt3dadd($1+23.63, $2+14.25, $3+10.9, 0.27)
        pt3dadd($1+26.23, $2+14.84, $3+10.89, 0.27)
        pt3dadd($1+28.9, $2+15.81, $3+10.89, 0.27)
        pt3dadd($1+30.79, $2+15.54, $3+10.89, 0.27)
      }
      dend[106] {pt3dclear()
        pt3dadd($1+30.79, $2+15.54, $3+10.89, 0.27)
        pt3dadd($1+33.34, $2+14.39, $3+10.89, 0.27)
        pt3dadd($1+35.34, $2+13.51, $3+10.9, 0.27)
        pt3dadd($1+36.48, $2+13.35, $3+10.9, 0.27)
        pt3dadd($1+37.46, $2+13.41, $3+11.89, 0.27)
        pt3dadd($1+38.54, $2+12.86, $3+11.9, 0.27)
      }
      dend[107] {pt3dclear()
        pt3dadd($1+38.54, $2+12.86, $3+11.9, 0.27)
        pt3dadd($1+40.88, $2+14.26, $3+11.89, 0.27)
        pt3dadd($1+43, $2+16.85, $3+11.87, 0.27)
        pt3dadd($1+44.14, $2+18.05, $3+11.86, 0.27)
        pt3dadd($1+46.53, $2+19.84, $3+12.85, 0.27)
        pt3dadd($1+47.84, $2+20.81, $3+12.85, 0.27)
        pt3dadd($1+49.03, $2+22.37, $3+12.84, 0.27)
        pt3dadd($1+50.12, $2+24.54, $3+12.82, 0.27)
        pt3dadd($1+50.19, $2+28.99, $3+12.8, 0.27)
        pt3dadd($1+51.34, $2+31.53, $3+12.78, 0.27)
        pt3dadd($1+52.59, $2+34.83, $3+12.76, 0.27)
        pt3dadd($1+53.96, $2+37.53, $3+12.75, 0.27)
        pt3dadd($1+56.46, $2+40.08, $3+12.73, 0.27)
        pt3dadd($1+58.14, $2+40.99, $3+12.73, 0.27)
        pt3dadd($1+61.77, $2+37.94, $3+11.74, 0.27)
        pt3dadd($1+62.63, $2+37.23, $3+11.74, 0.27)
        pt3dadd($1+64.8, $2+37.5, $3+11.74, 0.27)
        pt3dadd($1+67.41, $2+38.08, $3+11.74, 0.27)
        pt3dadd($1+69.19, $2+38.4, $3+11.73, 0.27)
        pt3dadd($1+71.52, $2+38.46, $3+11.73, 0.27)
        pt3dadd($1+73.64, $2+38.34, $3+11.73, 0.27)
        pt3dadd($1+76.34, $2+36.97, $3+11.74, 0.27)
        pt3dadd($1+81.11, $2+35.11, $3+11.74, 0.27)
        pt3dadd($1+84.48, $2+36.95, $3+11.73, 0.27)
        pt3dadd($1+86.26, $2+37.27, $3+11.73, 0.27)
      }
    }
    proc shape3d_7() {
      dend[107] {	pt3dadd($1+87.79, $2+38.4, $3+11.72, 0.27)
        pt3dadd($1+89.69, $2+39.48, $3+11.71, 0.27)
        pt3dadd($1+90.83, $2+40.67, $3+11.71, 0.27)
        pt3dadd($1+91.33, $2+42.72, $3+11.69, 0.27)
        pt3dadd($1+91.82, $2+44.79, $3+11.68, 0.27)
        pt3dadd($1+91.94, $2+46.89, $3+11.67, 0.27)
        pt3dadd($1+92.65, $2+49.12, $3+11.66, 0.27)
        pt3dadd($1+93.9, $2+51.07, $3+11.65, 0.27)
        pt3dadd($1+94.99, $2+51.88, $3+11.64, 0.27)
      }
      dend[108] {pt3dclear()
        pt3dadd($1+94.99, $2+51.88, $3+11.64, 0.27)
        pt3dadd($1+95.75, $2+53.12, $3+11.63, 0.27)
        pt3dadd($1+96.73, $2+57.24, $3+11.61, 0.27)
        pt3dadd($1+96.96, $2+58.76, $3+11.6, 0.27)
        pt3dadd($1+97.3, $2+62.39, $3+11.58, 0.27)
        pt3dadd($1+97.46, $2+64.88, $3+11.57, 0.27)
        pt3dadd($1+96.82, $2+67.11, $3+11.55, 0.27)
      }
      dend[109] {pt3dclear()
        pt3dadd($1+94.99, $2+51.88, $3+11.64, 0.27)
        pt3dadd($1+97.37, $2+50.94, $3+11.64, 0.27)
        pt3dadd($1+100.3, $2+51.1, $3+11.64, 0.27)
        pt3dadd($1+102.09, $2+52.78, $3+11.63, 0.27)
        pt3dadd($1+107.2, $2+54.55, $3+11.62, 0.27)
        pt3dadd($1+109.03, $2+53.89, $3+11.62, 0.27)
        pt3dadd($1+110.18, $2+53.73, $3+11.62, 0.27)
        pt3dadd($1+112.78, $2+55.67, $3+11.61, 0.27)
        pt3dadd($1+115.12, $2+58.43, $3+11.59, 0.27)
        pt3dadd($1+115.78, $2+60.27, $3+11.58, 0.27)
        pt3dadd($1+116.49, $2+62.49, $3+11.57, 0.27)
        pt3dadd($1+117.75, $2+64.44, $3+11.56, 0.27)
      }
      dend[110] {pt3dclear()
        pt3dadd($1+38.54, $2+12.86, $3+11.9, 0.27)
        pt3dadd($1+40.65, $2+11.39, $3+11.9, 0.27)
        pt3dadd($1+44.44, $2+9.48, $3+11.91, 0.27)
        pt3dadd($1+47.03, $2+7.36, $3+11.92, 0.27)
        pt3dadd($1+47.96, $2+9.74, $3+11.91, 0.27)
        pt3dadd($1+48.51, $2+12.18, $3+11.89, 0.27)
        pt3dadd($1+50.15, $2+14.07, $3+11.88, 0.27)
        pt3dadd($1+53.51, $2+14.55, $3+11.88, 0.27)
        pt3dadd($1+56.38, $2+15.68, $3+11.87, 0.27)
        pt3dadd($1+59.75, $2+16.15, $3+11.86, 0.27)
      }
      dend[111] {pt3dclear()
        pt3dadd($1+30.79, $2+15.54, $3+10.89, 0.27)
        pt3dadd($1+32.74, $2+12.94, $3+11.9, 0.27)
        pt3dadd($1+34.09, $2+10.22, $3+11.91, 0.27)
        pt3dadd($1+34.29, $2+7.67, $3+11.93, 0.27)
        pt3dadd($1+36.08, $2+5.27, $3+11.94, 0.27)
        pt3dadd($1+38.07, $2+1.7, $3+11.96, 0.27)
        pt3dadd($1+40.34, $2+0.01, $3+12.97, 0.27)
        pt3dadd($1+42.9, $2+1.58, $3+12.96, 0.27)
        pt3dadd($1+44.63, $2+2.87, $3+12.95, 0.27)
        pt3dadd($1+45.94, $2+3.85, $3+12.94, 0.27)
        pt3dadd($1+48, $2+3.35, $3+12.94, 0.27)
        pt3dadd($1+50.87, $2+3.12, $3+12.94, 0.27)
        pt3dadd($1+52.77, $2+2.85, $3+12.94, 0.27)
      }
      dend[112] {pt3dclear()
        pt3dadd($1+52.77, $2+2.85, $3+12.94, 0.27)
        pt3dadd($1+53.95, $2+3.06, $3+12.94, 0.27)
        pt3dadd($1+56.72, $2+3.43, $3+12.94, 0.27)
        pt3dadd($1+57.26, $2+3.16, $3+12.94, 0.27)
      }
      dend[113] {pt3dclear()
        pt3dadd($1+57.26, $2+3.16, $3+12.94, 0.27)
        pt3dadd($1+58.09, $2+4.78, $3+12.93, 0.27)
        pt3dadd($1+59.77, $2+5.7, $3+12.92, 0.27)
        pt3dadd($1+61.72, $2+5.8, $3+12.92, 0.27)
        pt3dadd($1+63.78, $2+6.66, $3+12.91, 0.27)
        pt3dadd($1+65.52, $2+7.95, $3+12.91, 0.27)
        pt3dadd($1+67.91, $2+9.73, $3+12.89, 0.27)
        pt3dadd($1+68.95, $2+11.53, $3+12.88, 0.27)
        pt3dadd($1+69.61, $2+13.37, $3+12.87, 0.27)
        pt3dadd($1+71.24, $2+16.61, $3+12.85, 0.27)
        pt3dadd($1+72.55, $2+17.59, $3+12.85, 0.27)
      }
      dend[114] {pt3dclear()
        pt3dadd($1+72.55, $2+17.59, $3+12.85, 0.27)
        pt3dadd($1+74.12, $2+17.74, $3+12.85, 0.27)
        pt3dadd($1+76.45, $2+17.79, $3+12.84, 0.27)
        pt3dadd($1+79.7, $2+18.87, $3+12.84, 0.27)
        pt3dadd($1+82.8, $2+21.51, $3+12.82, 0.27)
        pt3dadd($1+84.38, $2+23.02, $3+12.81, 0.27)
        pt3dadd($1+86.12, $2+24.32, $3+12.8, 0.27)
        pt3dadd($1+86.83, $2+26.54, $3+12.79, 0.27)
        pt3dadd($1+87.43, $2+28.01, $3+12.78, 0.27)
      }
      dend[115] {pt3dclear()
        pt3dadd($1+72.55, $2+17.59, $3+12.85, 0.27)
        pt3dadd($1+72.5, $2+19.92, $3+12.83, 0.27)
        pt3dadd($1+72.39, $2+21.86, $3+12.82, 0.27)
      }
      dend[116] {pt3dclear()
        pt3dadd($1+72.39, $2+21.86, $3+12.82, 0.27)
        pt3dadd($1+72.95, $2+22.95, $3+12.82, 0.27)
        pt3dadd($1+74.69, $2+24.24, $3+12.81, 0.27)
        pt3dadd($1+76.86, $2+25.86, $3+12.8, 0.27)
        pt3dadd($1+77.94, $2+26.67, $3+12.79, 0.27)
      }
      dend[117] {pt3dclear()
        pt3dadd($1+72.39, $2+21.86, $3+12.82, 0.27)
        pt3dadd($1+71.09, $2+22.25, $3+12.82, 0.27)
        pt3dadd($1+70.23, $2+22.96, $3+12.82, 0.27)
        pt3dadd($1+68.88, $2+24.32, $3+12.81, 0.27)
        pt3dadd($1+67.58, $2+26.06, $3+12.8, 0.27)
      }
      dend[118] {pt3dclear()
        pt3dadd($1+57.26, $2+3.16, $3+12.94, 0.27)
        pt3dadd($1+59.97, $2+1.8, $3+12.94, 0.27)
        pt3dadd($1+62.51, $2+0.65, $3+12.95, 0.27)
        pt3dadd($1+66.14, $2+0.31, $3+12.95, 0.27)
        pt3dadd($1+68.22, $2+2.53, $3+12.93, 0.27)
        pt3dadd($1+70.23, $2+4.36, $3+12.92, 0.27)
        pt3dadd($1+71.96, $2+4.3, $3+12.92, 0.27)
        pt3dadd($1+75.05, $2+1.53, $3+12.94, 0.27)
      }
      dend[119] {pt3dclear()
        pt3dadd($1+52.77, $2+2.85, $3+12.94, 0.27)
        pt3dadd($1+54.44, $2+-0.29, $3+12.96, 0.27)
        pt3dadd($1+55.52, $2+-2.19, $3+12.97, 0.27)
        pt3dadd($1+56.59, $2+-5.45, $3+12.99, 0.27)
        pt3dadd($1+55.87, $2+-7.67, $3+13, 0.27)
        pt3dadd($1+56.19, $2+-10.81, $3+13.02, 0.27)
        pt3dadd($1+57.55, $2+-12.17, $3+13.02, 0.27)
        pt3dadd($1+62.52, $2+-15.22, $3+13.04, 0.27)
        pt3dadd($1+64.36, $2+-15.89, $3+13.04, 0.27)
        pt3dadd($1+66.69, $2+-15.83, $3+13.04, 0.27)
        pt3dadd($1+68.81, $2+-14.59, $3+13.03, 0.27)
        pt3dadd($1+70.82, $2+-12.76, $3+13.02, 0.27)
        pt3dadd($1+72.57, $2+-8.75, $3+12.99, 0.27)
        pt3dadd($1+75.61, $2+-7.84, $3+11.99, 0.27)
        pt3dadd($1+77.18, $2+-9.05, $3+11.99, 0.27)
        pt3dadd($1+79.39, $2+-12.46, $3+12.01, 0.27)
        pt3dadd($1+81.5, $2+-12.58, $3+12.01, 0.27)
        pt3dadd($1+83.78, $2+-12.91, $3+12.01, 0.27)
        pt3dadd($1+85.4, $2+-13.73, $3+12.01, 0.27)
        pt3dadd($1+87.25, $2+-14.39, $3+12.02, 0.27)
        pt3dadd($1+89.57, $2+-17.05, $3+12.03, 0.27)
        pt3dadd($1+90.98, $2+-18.03, $3+12.03, 0.27)
        pt3dadd($1+93.36, $2+-18.95, $3+12.04, 0.27)
        pt3dadd($1+96.01, $2+-19.35, $3+12.04, 0.27)
        pt3dadd($1+97.75, $2+-19.41, $3+12.04, 0.27)
      }
      dend[120] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+7.17, $2+6.36, $3+4.95, 0.27)
        pt3dadd($1+9.58, $2+9.5, $3+4.94, 0.27)
        pt3dadd($1+9.96, $2+10.79, $3+4.93, 0.27)
        pt3dadd($1+9.59, $2+13.56, $3+4.91, 0.27)
        pt3dadd($1+8.35, $2+15.68, $3+4.9, 0.27)
        pt3dadd($1+7.32, $2+17.96, $3+4.89, 0.27)
        pt3dadd($1+7.71, $2+20.62, $3+4.87, 0.27)
        pt3dadd($1+8.37, $2+22.46, $3+4.86, 0.27)
        pt3dadd($1+9.57, $2+24.02, $3+4.85, 0.27)
        pt3dadd($1+11.03, $2+26.13, $3+4.84, 0.27)
        pt3dadd($1+12.23, $2+27.7, $3+4.83, 0.27)
        pt3dadd($1+13.38, $2+31.61, $3+5.81, 0.27)
        pt3dadd($1+13.23, $2+34.54, $3+6.79, 0.27)
        pt3dadd($1+11.67, $2+37.1, $3+8.78, 0.27)
        pt3dadd($1+11.29, $2+38.52, $3+8.77, 0.27)
        pt3dadd($1+10.6, $2+40.36, $3+9.76, 0.27)
        pt3dadd($1+9.8, $2+42.81, $3+9.75, 0.27)
        pt3dadd($1+8.61, $2+45.31, $3+10.74, 0.27)
      }
      dend[121] {pt3dclear()
        pt3dadd($1+8.61, $2+45.31, $3+10.74, 0.27)
        pt3dadd($1+7.91, $2+47.16, $3+10.73, 0.27)
        pt3dadd($1+7.81, $2+49.11, $3+10.72, 0.27)
        pt3dadd($1+7.81, $2+50.46, $3+10.71, 0.27)
        pt3dadd($1+8.36, $2+51.54, $3+10.7, 0.27)
        pt3dadd($1+9.17, $2+53.17, $3+10.69, 0.27)
        pt3dadd($1+10.21, $2+54.96, $3+10.68, 0.27)
        pt3dadd($1+10.81, $2+56.41, $3+10.67, 0.27)
        pt3dadd($1+10.93, $2+58.53, $3+10.66, 0.27)
        pt3dadd($1+10.71, $2+61.08, $3+10.65, 0.27)
        pt3dadd($1+10.94, $2+63.96, $3+10.63, 0.27)
        pt3dadd($1+11.11, $2+65.09, $3+10.62, 0.27)
        pt3dadd($1+9.6, $2+68.02, $3+10.61, 0.27)
        pt3dadd($1+8.85, $2+69.5, $3+11.6, 0.27)
        pt3dadd($1+7.77, $2+72.75, $3+11.58, 0.27)
        pt3dadd($1+7.12, $2+74.97, $3+11.57, 0.27)
        pt3dadd($1+7.14, $2+79.04, $3+11.55, 0.27)
        pt3dadd($1+7.74, $2+80.51, $3+11.54, 0.27)
        pt3dadd($1+8.4, $2+82.35, $3+11.53, 0.27)
        pt3dadd($1+8.67, $2+84.24, $3+11.52, 0.27)
        pt3dadd($1+9.5, $2+85.87, $3+11.51, 0.27)
        pt3dadd($1+11.24, $2+88.51, $3+11.49, 0.27)
        pt3dadd($1+12.27, $2+90.31, $3+11.48, 0.27)
        pt3dadd($1+12.33, $2+93.39, $3+11.47, 0.27)
        pt3dadd($1+10.28, $2+96.59, $3+11.45, 0.27)
        pt3dadd($1+8.66, $2+98.77, $3+11.44, 0.27)
        pt3dadd($1+7.53, $2+100.29, $3+11.43, 0.27)
        pt3dadd($1+5.26, $2+103.33, $3+11.42, 0.27)
        pt3dadd($1+3.6, $2+106.49, $3+11.4, 0.27)
        pt3dadd($1+2.64, $2+111.86, $3+11.37, 0.27)
        pt3dadd($1+2.48, $2+114.78, $3+11.35, 0.27)
        pt3dadd($1+2.17, $2+117.93, $3+11.34, 0.27)
        pt3dadd($1+2.67, $2+119.99, $3+11.32, 0.27)
        pt3dadd($1+7.07, $2+123.6, $3+11.3, 0.27)
        pt3dadd($1+9.83, $2+123.98, $3+11.3, 0.27)
        pt3dadd($1+11.4, $2+124.13, $3+11.29, 0.27)
      }
      dend[122] {pt3dclear()
        pt3dadd($1+8.61, $2+45.31, $3+10.74, 0.27)
        pt3dadd($1+6.22, $2+44.89, $3+11.74, 0.27)
        pt3dadd($1+3.14, $2+46.31, $3+11.73, 0.27)
        pt3dadd($1+0.91, $2+47.03, $3+11.73, 0.27)
        pt3dadd($1+-0.42, $2+48.38, $3+11.73, 0.27)
        pt3dadd($1+-0.42, $2+49.74, $3+11.72, 0.27)
        pt3dadd($1+-1.56, $2+51.26, $3+11.71, 0.27)
        pt3dadd($1+-2.53, $2+52.56, $3+11.7, 0.27)
        pt3dadd($1+-2.09, $2+54.25, $3+11.69, 0.27)
        pt3dadd($1+-3.55, $2+56.2, $3+11.68, 0.27)
        pt3dadd($1+-4.24, $2+58.04, $3+11.67, 0.27)
        pt3dadd($1+-5, $2+60.86, $3+11.66, 0.27)
        pt3dadd($1+-2.72, $2+61.88, $3+11.65, 0.27)
        pt3dadd($1+-1.47, $2+61.13, $3+11.66, 0.27)
        pt3dadd($1+-0.06, $2+61.5, $3+11.65, 0.27)
        pt3dadd($1+0.91, $2+62.91, $3+11.64, 0.27)
        pt3dadd($1+0.92, $2+64.26, $3+11.64, 0.27)
        pt3dadd($1+0.59, $2+66.05, $3+11.63, 0.27)
        pt3dadd($1+0.55, $2+69.74, $3+11.61, 0.27)
        pt3dadd($1+0.51, $2+72.07, $3+11.59, 0.27)
        pt3dadd($1+0.84, $2+74.34, $3+11.58, 0.27)
        pt3dadd($1+0.74, $2+76.3, $3+11.57, 0.27)
      }
      dend[123] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.15)
        pt3dadd($1+-0.26, $2+9.09, $3+8.94, 0.15)
      }
    }
    proc shape3d_8() {
      dend[123] {	pt3dadd($1+-0.7, $2+11.93, $3+8.93, 0.15)
        pt3dadd($1+-0.81, $2+13.33, $3+8.92, 0.15)
        pt3dadd($1+-0.81, $2+14.83, $3+8.91, 0.15)
        pt3dadd($1+-0.15, $2+16.43, $3+8.9, 0.15)
        pt3dadd($1+-0.62, $2+18.33, $3+9.89, 0.15)
        pt3dadd($1+-1.16, $2+19.04, $3+9.89, 0.15)
        pt3dadd($1+-1.9, $2+19.79, $3+9.89, 0.15)
        pt3dadd($1+-3.6, $2+21.32, $3+9.88, 0.15)
        pt3dadd($1+-4.49, $2+24.02, $3+9.86, 0.15)
        pt3dadd($1+-4.07, $2+25.44, $3+9.86, 0.15)
        pt3dadd($1+-2.27, $2+26.78, $3+9.85, 0.15)
        pt3dadd($1+-0.44, $2+27.58, $3+9.84, 0.15)
        pt3dadd($1+2.14, $2+28.59, $3+9.83, 0.15)
        pt3dadd($1+3.02, $2+29.43, $3+9.83, 0.15)
        pt3dadd($1+2.22, $2+30.5, $3+9.82, 0.15)
        pt3dadd($1+2.37, $2+32.29, $3+9.81, 0.15)
        pt3dadd($1+2.17, $2+34.57, $3+9.8, 0.15)
        pt3dadd($1+2.14, $2+36.59, $3+9.79, 0.15)
        pt3dadd($1+1.76, $2+38.36, $3+9.78, 0.15)
        pt3dadd($1+1.41, $2+41.07, $3+9.76, 0.15)
        pt3dadd($1+1.6, $2+43.08, $3+9.75, 0.15)
        pt3dadd($1+2.74, $2+45.05, $3+9.74, 0.15)
        pt3dadd($1+3.85, $2+46.81, $3+9.73, 0.15)
        pt3dadd($1+4.6, $2+48.29, $3+9.72, 0.15)
        pt3dadd($1+4.76, $2+50.09, $3+9.71, 0.15)
        pt3dadd($1+4.34, $2+52.39, $3+9.7, 0.15)
        pt3dadd($1+3.69, $2+53.76, $3+9.69, 0.15)
        pt3dadd($1+2.8, $2+55.71, $3+9.68, 0.15)
        pt3dadd($1+2.97, $2+62.73, $3+9.64, 0.15)
        pt3dadd($1+3.16, $2+63.98, $3+9.64, 0.15)
        pt3dadd($1+3.46, $2+64.57, $3+9.63, 0.15)
      }
      dend[124] {pt3dclear()
        pt3dadd($1+3.46, $2+64.57, $3+9.63, 0.15)
        pt3dadd($1+2.29, $2+64.64, $3+9.63, 0.15)
        pt3dadd($1+1.16, $2+64.91, $3+9.63, 0.15)
        pt3dadd($1+-0.48, $2+65.36, $3+9.63, 0.15)
      }
      dend[125] {pt3dclear()
        pt3dadd($1+3.46, $2+64.57, $3+9.63, 0.15)
        pt3dadd($1+4.96, $2+64.57, $3+9.63, 0.15)
        pt3dadd($1+6.71, $2+64.2, $3+9.63, 0.15)
        pt3dadd($1+8.23, $2+63.67, $3+9.63, 0.15)
        pt3dadd($1+9.87, $2+63.21, $3+9.64, 0.15)
        pt3dadd($1+11.93, $2+61.94, $3+8.64, 0.15)
        pt3dadd($1+14.32, $2+60.74, $3+9.65, 0.15)
        pt3dadd($1+16.31, $2+61.31, $3+9.64, 0.15)
        pt3dadd($1+17.64, $2+62.29, $3+9.64, 0.15)
        pt3dadd($1+19.43, $2+63.63, $3+9.63, 0.15)
        pt3dadd($1+20.39, $2+64.34, $3+9.62, 0.15)
        pt3dadd($1+22.15, $2+64.72, $3+9.62, 0.15)
        pt3dadd($1+23.91, $2+64.36, $3+9.62, 0.15)
        pt3dadd($1+25.26, $2+64.8, $3+9.62, 0.15)
      }
      dend[126] {pt3dclear()
        pt3dadd($1+25.26, $2+64.8, $3+9.62, 0.15)
        pt3dadd($1+24.96, $2+64.95, $3+9.62, 0.15)
        pt3dadd($1+24.07, $2+66.9, $3+9.61, 0.15)
        pt3dadd($1+22.97, $2+68.12, $3+9.6, 0.15)
        pt3dadd($1+21.48, $2+68.14, $3+9.6, 0.15)
        pt3dadd($1+20.59, $2+69.33, $3+9.59, 0.15)
        pt3dadd($1+20.02, $2+71.33, $3+9.58, 0.15)
        pt3dadd($1+18.12, $2+72.14, $3+9.58, 0.15)
        pt3dadd($1+14.5, $2+72.99, $3+9.58, 0.15)
        pt3dadd($1+10.77, $2+73, $3+9.58, 0.15)
      }
      dend[127] {pt3dclear()
        pt3dadd($1+25.26, $2+64.8, $3+9.62, 0.15)
        pt3dadd($1+25.82, $2+64.29, $3+9.62, 0.15)
        pt3dadd($1+26.72, $2+63.85, $3+9.62, 0.15)
        pt3dadd($1+28.48, $2+63.48, $3+9.62, 0.15)
        pt3dadd($1+30.72, $2+62.73, $3+9.62, 0.15)
        pt3dadd($1+32.45, $2+61.41, $3+9.63, 0.15)
        pt3dadd($1+34.44, $2+60.47, $3+9.63, 0.15)
        pt3dadd($1+35.04, $2+60.17, $3+9.64, 0.15)
      }
      dend[128] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+6.04, $2+6.57, $3+11.95, 0.27)
        pt3dadd($1+7.68, $2+8.46, $3+11.94, 0.27)
        pt3dadd($1+9.75, $2+10.67, $3+11.93, 0.27)
        pt3dadd($1+11.11, $2+13.38, $3+11.91, 0.27)
        pt3dadd($1+11.34, $2+14.9, $3+11.9, 0.27)
        pt3dadd($1+11.23, $2+16.85, $3+11.89, 0.27)
        pt3dadd($1+11.13, $2+20.16, $3+11.88, 0.27)
        pt3dadd($1+10.11, $2+22.44, $3+12.86, 0.27)
        pt3dadd($1+10.71, $2+23.9, $3+12.85, 0.27)
        pt3dadd($1+13.54, $2+26.01, $3+12.84, 0.27)
        pt3dadd($1+14.95, $2+27.74, $3+12.83, 0.27)
        pt3dadd($1+14.79, $2+29.31, $3+12.82, 0.27)
      }
      dend[129] {pt3dclear()
        pt3dadd($1+14.79, $2+29.31, $3+12.82, 0.27)
        pt3dadd($1+15.56, $2+29.68, $3+12.82, 0.27)
      }
      dend[130] {pt3dclear()
        pt3dadd($1+15.56, $2+29.68, $3+12.82, 0.27)
        pt3dadd($1+16.04, $2+29.91, $3+12.82, 0.27)
        pt3dadd($1+17.62, $2+31.42, $3+12.81, 0.27)
        pt3dadd($1+19.35, $2+32.71, $3+12.8, 0.27)
        pt3dadd($1+20.66, $2+33.68, $3+12.79, 0.27)
        pt3dadd($1+23.59, $2+33.84, $3+12.79, 0.27)
        pt3dadd($1+25.92, $2+33.89, $3+12.79, 0.27)
        pt3dadd($1+26.79, $2+33.18, $3+12.79, 0.27)
      }
      dend[131] {pt3dclear()
        pt3dadd($1+15.56, $2+29.68, $3+12.82, 0.27)
        pt3dadd($1+12.96, $2+31.32, $3+12.81, 0.27)
        pt3dadd($1+11.6, $2+32.69, $3+12.8, 0.27)
        pt3dadd($1+9.33, $2+33.01, $3+12.8, 0.27)
        pt3dadd($1+7.81, $2+31.88, $3+12.81, 0.27)
        pt3dadd($1+5.48, $2+30.48, $3+12.82, 0.27)
        pt3dadd($1+2.91, $2+28.92, $3+12.83, 0.27)
        pt3dadd($1+1.61, $2+27.95, $3+12.84, 0.27)
        pt3dadd($1+-0.99, $2+26, $3+12.85, 0.27)
        pt3dadd($1+-0.18, $2+24.91, $3+12.86, 0.27)
        pt3dadd($1+1.33, $2+24.7, $3+12.86, 0.27)
      }
      dend[132] {pt3dclear()
        pt3dadd($1+14.79, $2+29.31, $3+12.82, 0.27)
        pt3dadd($1+14.42, $2+32.09, $3+13.81, 0.27)
        pt3dadd($1+14.59, $2+34.57, $3+12.79, 0.27)
        pt3dadd($1+14.33, $2+36.74, $3+12.78, 0.27)
        pt3dadd($1+12.44, $2+38.37, $3+12.77, 0.27)
        pt3dadd($1+11.35, $2+38.92, $3+12.77, 0.27)
        pt3dadd($1+9.89, $2+40.87, $3+12.76, 0.27)
      }
      dend[133] {pt3dclear()
        pt3dadd($1+9.89, $2+40.87, $3+12.76, 0.27)
        pt3dadd($1+10.2, $2+42.03, $3+12.75, 0.27)
      }
      dend[134] {pt3dclear()
        pt3dadd($1+10.2, $2+42.03, $3+12.75, 0.27)
        pt3dadd($1+10.34, $2+42.55, $3+12.75, 0.27)
        pt3dadd($1+10.67, $2+44.83, $3+12.74, 0.27)
        pt3dadd($1+11.11, $2+46.51, $3+12.73, 0.27)
        pt3dadd($1+11.1, $2+47.86, $3+12.72, 0.27)
        pt3dadd($1+10.85, $2+50.03, $3+12.71, 0.27)
        pt3dadd($1+11.5, $2+51.87, $3+12.7, 0.27)
        pt3dadd($1+12.75, $2+53.82, $3+12.69, 0.27)
        pt3dadd($1+14.49, $2+55.12, $3+12.68, 0.27)
        pt3dadd($1+15.75, $2+57.06, $3+11.67, 0.27)
        pt3dadd($1+16.67, $2+58.08, $3+11.66, 0.27)
        pt3dadd($1+18.03, $2+59.44, $3+11.65, 0.27)
        pt3dadd($1+18.63, $2+60.9, $3+11.64, 0.27)
        pt3dadd($1+19.89, $2+62.85, $3+11.63, 0.27)
        pt3dadd($1+20.32, $2+63.17, $3+11.63, 0.27)
      }
      dend[135] {pt3dclear()
        pt3dadd($1+20.32, $2+63.17, $3+11.63, 0.27)
        pt3dadd($1+20, $2+66.76, $3+11.61, 0.27)
      }
      dend[136] {pt3dclear()
        pt3dadd($1+20, $2+66.76, $3+11.61, 0.27)
        pt3dadd($1+19.95, $2+67.3, $3+11.61, 0.27)
        pt3dadd($1+18.55, $2+69.63, $3+11.59, 0.27)
        pt3dadd($1+17.53, $2+71.91, $3+11.58, 0.27)
        pt3dadd($1+17, $2+74.9, $3+11.57, 0.27)
        pt3dadd($1+16.62, $2+77.66, $3+11.55, 0.27)
        pt3dadd($1+16.68, $2+79.39, $3+11.54, 0.27)
        pt3dadd($1+16.2, $2+81.4, $3+11.53, 0.27)
        pt3dadd($1+16.1, $2+83.35, $3+11.52, 0.27)
        pt3dadd($1+14.48, $2+85.53, $3+11.51, 0.27)
        pt3dadd($1+13.13, $2+88.24, $3+11.49, 0.27)
        pt3dadd($1+13.09, $2+90.57, $3+11.48, 0.27)
        pt3dadd($1+12.83, $2+95.45, $3+11.45, 0.27)
        pt3dadd($1+13.71, $2+98.81, $3+11.43, 0.27)
        pt3dadd($1+16.27, $2+101.73, $3+11.42, 0.27)
        pt3dadd($1+15.19, $2+103.63, $3+11.41, 0.27)
        pt3dadd($1+15.84, $2+104.11, $3+11.4, 0.27)
      }
      dend[137] {pt3dclear()
        pt3dadd($1+15.84, $2+104.11, $3+11.4, 0.27)
        pt3dadd($1+17.15, $2+105.09, $3+11.4, 0.27)
        pt3dadd($1+20.02, $2+106.21, $3+10.39, 0.27)
        pt3dadd($1+23.49, $2+106.09, $3+10.39, 0.27)
        pt3dadd($1+25.55, $2+105.59, $3+10.39, 0.27)
        pt3dadd($1+28.04, $2+104.07, $3+10.4, 0.27)
        pt3dadd($1+31.24, $2+104.77, $3+10.39, 0.27)
        pt3dadd($1+32.87, $2+105.3, $3+10.39, 0.27)
        pt3dadd($1+37.53, $2+104.04, $3+10.39, 0.27)
        pt3dadd($1+39.8, $2+103.7, $3+10.39, 0.27)
        pt3dadd($1+41.59, $2+104.03, $3+10.39, 0.27)
        pt3dadd($1+42.74, $2+105.22, $3+10.38, 0.27)
      }
      dend[138] {pt3dclear()
        pt3dadd($1+15.84, $2+104.11, $3+11.4, 0.27)
        pt3dadd($1+13.68, $2+109.27, $3+11.38, 0.27)
        pt3dadd($1+15.27, $2+112.14, $3+11.36, 0.27)
        pt3dadd($1+17.77, $2+114.68, $3+11.34, 0.27)
        pt3dadd($1+19.4, $2+116.57, $3+11.33, 0.27)
        pt3dadd($1+21.96, $2+119.48, $3+11.31, 0.27)
        pt3dadd($1+24.25, $2+123.22, $3+11.29, 0.27)
        pt3dadd($1+26.04, $2+126.26, $3+11.27, 0.27)
        pt3dadd($1+26.6, $2+128.69, $3+11.26, 0.27)
        pt3dadd($1+27.47, $2+130.7, $3+11.25, 0.27)
        pt3dadd($1+29.43, $2+132.16, $3+11.24, 0.27)
        pt3dadd($1+30.46, $2+133.94, $3+11.23, 0.27)
      }
      dend[139] {pt3dclear()
        pt3dadd($1+20, $2+66.76, $3+11.61, 0.27)
        pt3dadd($1+20.32, $2+64.53, $3+11.62, 0.27)
        pt3dadd($1+20.27, $2+65.5, $3+11.62, 0.27)
        pt3dadd($1+20.55, $2+67.4, $3+11.61, 0.27)
        pt3dadd($1+22.19, $2+70.64, $3+11.59, 0.27)
        pt3dadd($1+23.28, $2+71.46, $3+12.58, 0.27)
        pt3dadd($1+23.92, $2+73.3, $3+12.57, 0.27)
        pt3dadd($1+24.54, $2+76.12, $3+12.55, 0.27)
        pt3dadd($1+23.74, $2+81.27, $3+11.53, 0.27)
        pt3dadd($1+23.85, $2+83.38, $3+11.51, 0.27)
        pt3dadd($1+25.76, $2+85.81, $3+11.5, 0.27)
        pt3dadd($1+28.8, $2+88.08, $3+11.48, 0.27)
        pt3dadd($1+34.88, $2+91.26, $3+11.46, 0.27)
        pt3dadd($1+40.68, $2+92.55, $3+11.45, 0.27)
      }
      dend[140] {pt3dclear()
        pt3dadd($1+20.32, $2+63.17, $3+11.63, 0.27)
        pt3dadd($1+22.27, $2+61.91, $3+11.63, 0.27)
        pt3dadd($1+23.51, $2+59.8, $3+11.65, 0.27)
        pt3dadd($1+26.1, $2+56.32, $3+10.66, 0.27)
        pt3dadd($1+28.04, $2+55.06, $3+10.67, 0.27)
        pt3dadd($1+30, $2+55.16, $3+10.67, 0.27)
        pt3dadd($1+31.63, $2+55.7, $3+10.66, 0.27)
        pt3dadd($1+34.24, $2+57.64, $3+10.65, 0.27)
        pt3dadd($1+36.63, $2+59.43, $3+10.64, 0.27)
        pt3dadd($1+37.61, $2+62.19, $3+10.62, 0.27)
        pt3dadd($1+36.76, $2+66.97, $3+10.6, 0.27)
        pt3dadd($1+37.96, $2+68.54, $3+10.59, 0.27)
        pt3dadd($1+41.98, $2+72.21, $3+10.56, 0.27)
        pt3dadd($1+44.26, $2+74.58, $3+10.55, 0.27)
        pt3dadd($1+45.35, $2+76.75, $3+10.54, 0.27)
      }
      dend[141] {pt3dclear()
        pt3dadd($1+10.2, $2+42.03, $3+12.75, 0.27)
        pt3dadd($1+12.01, $2+40.76, $3+12.76, 0.27)
        pt3dadd($1+13.97, $2+42.22, $3+12.75, 0.27)
      }
    }
    proc shape3d_9() {
      dend[141] {	pt3dadd($1+16.14, $2+42.49, $3+12.75, 0.27)
        pt3dadd($1+18.69, $2+42.69, $3+12.74, 0.27)
        pt3dadd($1+19.5, $2+42.96, $3+12.74, 0.27)
      }
      dend[142] {pt3dclear()
        pt3dadd($1+9.89, $2+40.87, $3+12.76, 0.27)
        pt3dadd($1+8.92, $2+39.47, $3+12.77, 0.27)
        pt3dadd($1+7.72, $2+39.26, $3+12.77, 0.27)
      }
      dend[143] {pt3dclear()
        pt3dadd($1+7.72, $2+39.26, $3+12.77, 0.27)
        pt3dadd($1+6.15, $2+39.1, $3+12.77, 0.27)
        pt3dadd($1+4.85, $2+39.47, $3+12.77, 0.27)
        pt3dadd($1+2.79, $2+39.97, $3+12.77, 0.27)
        pt3dadd($1+1.38, $2+39.6, $3+12.77, 0.27)
      }
      dend[144] {pt3dclear()
        pt3dadd($1+7.72, $2+39.26, $3+12.77, 0.27)
        pt3dadd($1+7.34, $2+36.6, $3+12.79, 0.27)
        pt3dadd($1+6.41, $2+35.57, $3+12.79, 0.27)
        pt3dadd($1+4.56, $2+34.87, $3+12.8, 0.27)
        pt3dadd($1+2.56, $2+34.39, $3+12.8, 0.27)
      }
      dend[145] {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+7.47, $2+-4.91, $3+4.02, 0.27)
        pt3dadd($1+9.58, $2+-6.38, $3+5.02, 0.27)
        pt3dadd($1+12.72, $2+-7.42, $3+5.03, 0.27)
        pt3dadd($1+14.72, $2+-8.29, $3+5.03, 0.27)
        pt3dadd($1+17.16, $2+-8.84, $3+6.03, 0.27)
        pt3dadd($1+18.84, $2+-9.28, $3+6.03, 0.27)
      }
      dend[146] {pt3dclear()
        pt3dadd($1+18.84, $2+-9.28, $3+6.03, 0.27)
        pt3dadd($1+20.09, $2+-8.68, $3+6.03, 0.27)
        pt3dadd($1+23.24, $2+-8.37, $3+6.03, 0.27)
        pt3dadd($1+25.52, $2+-7.34, $3+6.02, 0.27)
        pt3dadd($1+26.87, $2+-7.35, $3+6.02, 0.27)
        pt3dadd($1+28.99, $2+-7.46, $3+7.02, 0.27)
        pt3dadd($1+31.37, $2+-8.39, $3+7.02, 0.27)
        pt3dadd($1+33.26, $2+-10.02, $3+7.03, 0.27)
        pt3dadd($1+34.99, $2+-11.44, $3+7.04, 0.27)
        pt3dadd($1+35.96, $2+-12.74, $3+7.04, 0.27)
      }
      dend[147] {pt3dclear()
        pt3dadd($1+35.96, $2+-12.74, $3+7.04, 0.27)
        pt3dadd($1+38.14, $2+-12.47, $3+7.04, 0.27)
        pt3dadd($1+40.95, $2+-13.07, $3+7.04, 0.27)
        pt3dadd($1+43.28, $2+-13.03, $3+7.04, 0.27)
        pt3dadd($1+44.58, $2+-13.41, $3+7.04, 0.27)
        pt3dadd($1+46.47, $2+-15.04, $3+7.05, 0.27)
        pt3dadd($1+47.82, $2+-16.41, $3+7.05, 0.27)
        pt3dadd($1+48.57, $2+-19.23, $3+7.07, 0.27)
        pt3dadd($1+49, $2+-20.26, $3+7.07, 0.27)
        pt3dadd($1+49.38, $2+-21.67, $3+7.08, 0.27)
        pt3dadd($1+51.66, $2+-22, $3+7.08, 0.27)
        pt3dadd($1+52.95, $2+-22.39, $3+7.08, 0.27)
        pt3dadd($1+53.87, $2+-22.71, $3+7.09, 0.27)
        pt3dadd($1+54.52, $2+-26.29, $3+7.1, 0.27)
        pt3dadd($1+54.84, $2+-26.73, $3+7.11, 0.27)
      }
      dend[148] {pt3dclear()
        pt3dadd($1+54.84, $2+-26.73, $3+7.11, 0.27)
        pt3dadd($1+56.19, $2+-28.09, $3+7.11, 0.27)
        pt3dadd($1+57.81, $2+-30.26, $3+7.12, 0.27)
        pt3dadd($1+59.49, $2+-32.06, $3+7.13, 0.27)
        pt3dadd($1+60.94, $2+-35.36, $3+7.15, 0.27)
        pt3dadd($1+62.22, $2+-38.46, $3+7.17, 0.27)
        pt3dadd($1+63.95, $2+-39.88, $3+7.17, 0.27)
        pt3dadd($1+65.21, $2+-40.64, $3+7.18, 0.27)
        pt3dadd($1+65.68, $2+-42.64, $3+7.19, 0.27)
        pt3dadd($1+65.19, $2+-44.7, $3+7.2, 0.27)
        pt3dadd($1+66.64, $2+-49.37, $3+7.23, 0.27)
      }
      dend[149] {pt3dclear()
        pt3dadd($1+54.84, $2+-26.73, $3+7.11, 0.27)
        pt3dadd($1+54.02, $2+-28.35, $3+7.12, 0.27)
        pt3dadd($1+52.61, $2+-28.72, $3+7.12, 0.27)
        pt3dadd($1+50.39, $2+-29.37, $3+7.12, 0.27)
        pt3dadd($1+49.08, $2+-30.35, $3+7.13, 0.27)
        pt3dadd($1+48.42, $2+-32.18, $3+7.14, 0.27)
      }
      dend[150] {pt3dclear()
        pt3dadd($1+35.96, $2+-12.74, $3+7.04, 0.27)
        pt3dadd($1+35.73, $2+-15.61, $3+7.06, 0.27)
        pt3dadd($1+33.83, $2+-18.04, $3+7.07, 0.27)
        pt3dadd($1+33.34, $2+-18.74, $3+7.08, 0.27)
      }
      dend[151] {pt3dclear()
        pt3dadd($1+18.84, $2+-9.28, $3+6.03, 0.27)
        pt3dadd($1+18.84, $2+-11.98, $3+7.05, 0.27)
        pt3dadd($1+19.81, $2+-14.64, $3+7.06, 0.27)
        pt3dadd($1+21.75, $2+-17.24, $3+7.08, 0.27)
        pt3dadd($1+21.36, $2+-18.55, $3+7.08, 0.27)
      }
      hillock {pt3dclear()
        pt3dadd($1+0, $2+0, $3+0, 0.27)
        pt3dadd($1+5.87, $2+6.71, $3+-1.04, 0.27)
        pt3dadd($1+7.24, $2+8.06, $3+-1.04, 0.27)
        pt3dadd($1+9.03, $2+11.09, $3+-1.06, 0.27)
        pt3dadd($1+11.11, $2+14.66, $3+-1.08, 0.27)
        pt3dadd($1+11.87, $2+17.26, $3+-1.1, 0.27)
        pt3dadd($1+12.8, $2+19.64, $3+-1.11, 0.27)
        pt3dadd($1+12.21, $2+20.89, $3+-1.12, 0.27)
        pt3dadd($1+10.42, $2+23.28, $3+-1.13, 0.27)
        pt3dadd($1+10.32, $2+25.24, $3+-1.14, 0.27)
        pt3dadd($1+9.41, $2+26.92, $3+-1.15, 0.27)
        pt3dadd($1+9.63, $2+28.44, $3+-1.16, 0.27)
        pt3dadd($1+8.06, $2+29.64, $3+-1.17, 0.27)
        pt3dadd($1+6.01, $2+31.49, $3+-1.17, 0.27)
        pt3dadd($1+3.96, $2+34.68, $3+-2.19, 0.27)
        pt3dadd($1+3.37, $2+37.29, $3+-2.21, 0.27)
        pt3dadd($1+3.44, $2+41.73, $3+-3.23, 0.27)
        pt3dadd($1+3.88, $2+46.12, $3+-3.26, 0.27)
      }
      ais {pt3dclear()
        pt3dadd($1+5.63, $2+48.77, $3+-3.27, 0.27)
        pt3dadd($1+7.1, $2+52.23, $3+-3.29, 0.27)
        pt3dadd($1+7.87, $2+54.84, $3+-3.31, 0.27)
        pt3dadd($1+10.47, $2+56.78, $3+-3.32, 0.27)
        pt3dadd($1+12.98, $2+60.67, $3+-3.34, 0.27)
        pt3dadd($1+15.33, $2+66.14, $3+-3.37, 0.27)
        pt3dadd($1+16.92, $2+71.72, $3+-3.41, 0.27)
        pt3dadd($1+19.49, $2+75.99, $3+-3.43, 0.27)
        pt3dadd($1+21.45, $2+80.16, $3+-3.46, 0.27)
        pt3dadd($1+24.22, $2+83.25, $3+-3.48, 0.27)
        pt3dadd($1+27.06, $2+88.05, $3+-3.5, 0.27)
        pt3dadd($1+30.92, $2+91.95, $3+-3.53, 0.27)
      }
      axon {pt3dclear()
        pt3dadd($1+34.13, $2+95.35, $3+-3.55, 0.27)
        pt3dadd($1+37.44, $2+98.15, $3+-4.57, 0.27)
        pt3dadd($1+42.82, $2+101.83, $3+-4.59, 0.27)
        pt3dadd($1+49.5, $2+106.47, $3+-4.62, 0.27)
        pt3dadd($1+55.64, $2+110.03, $3+-4.65, 0.27)
        pt3dadd($1+63.18, $2+115.32, $3+-4.68, 0.27)
        pt3dadd($1+65.86, $2+118.99, $3+-4.7, 0.27)
        pt3dadd($1+67.98, $2+120.23, $3+-4.71, 0.27)
        pt3dadd($1+70.58, $2+120.83, $3+-4.72, 0.27)
        pt3dadd($1+71.67, $2+122.99, $3+-4.73, 0.27)
        pt3dadd($1+72.49, $2+124.61, $3+-4.74, 0.27)
        pt3dadd($1+74.44, $2+126.06, $3+-4.75, 0.27)
        pt3dadd($1+78.46, $2+128.38, $3+-4.77, 0.27)
        pt3dadd($1+81.99, $2+130.01, $3+-4.78, 0.27)
        pt3dadd($1+84.06, $2+130.87, $3+-4.78, 0.27)
        pt3dadd($1+86.28, $2+131.5, $3+-4.79, 0.27)
        pt3dadd($1+90.41, $2+133.23, $3+-4.8, 0.27)
        pt3dadd($1+92.85, $2+134.03, $3+-4.81, 0.27)
        pt3dadd($1+94.32, $2+134.79, $3+-4.81, 0.27)
        pt3dadd($1+96.28, $2+136.24, $3+-4.82, 0.27)
        pt3dadd($1+97.9, $2+136.78, $3+-4.83, 0.27)
        pt3dadd($1+100.12, $2+137.43, $3+-4.83, 0.27)
        pt3dadd($1+102.62, $2+138.61, $3+-4.84, 0.27)
        pt3dadd($1+105.12, $2+139.79, $3+-4.85, 0.27)
        pt3dadd($1+106.97, $2+140.49, $3+-4.85, 0.27)
      }
    }
    proc basic_shape() {
      shape3d_1($1, $2, $3)
      shape3d_2($1, $2, $3)
      shape3d_3($1, $2, $3)
      shape3d_4($1, $2, $3)
      shape3d_5($1, $2, $3)
      shape3d_6($1, $2, $3)
      shape3d_7($1, $2, $3)
      shape3d_8($1, $2, $3)
      shape3d_9($1, $2, $3)
    }

endtemplate RGC121203


Loading data, please wait...