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 RGCM01WM11

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

    create soma[3], dend[122], 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+584, $3-5.6, 0.9)
        }
        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 = 0.9 }
    }

    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,121 {
            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
        for i = 1, 2 connect soma[i](0), soma[i-1](1)
        connect hillock(0), soma(1)
        connect ais(0), hillock(1)
        connect axon(0), ais(1)
        connect dend(0), soma[1](1)
        for i = 1, 2 connect dend[i](0), dend[i-1](1)
        connect dend[3](0), soma[2](1)
        for i = 4, 18 connect dend[i](0), dend[i-1](1)
        connect dend[19](0), dend[1](1)
        connect dend[20](0), dend(1)
        connect dend[21](0), dend[20](1)
        connect dend[22](0), dend[17](1)
        connect dend[23](0), dend[16](1)
        connect dend[24](0), dend[23](1)
        connect dend[25](0), dend[15](1)
        connect dend[26](0), dend[25](1)
        connect dend[27](0), dend[14](1)
        connect dend[28](0), dend[13](1)
        connect dend[29](0), dend[12](1)
        connect dend[30](0), dend[11](1)
        connect dend[31](0), dend[10](1)
        connect dend[32](0), dend[9](1)
        for i = 33, 34 connect dend[i](0), dend[i-1](1)
        connect dend[35](0), dend[8](1)
        connect dend[36](0), dend[35](1)
        connect dend[37](0), dend[7](1)
        for i = 38, 39 connect dend[i](0), dend[i-1](1)
        connect dend[40](0), dend[8](1)
        for i = 41, 42 connect dend[i](0), dend[i-1](1)
        connect dend[43](0), dend[6](1)
        connect dend[44](0), dend[43](1)
        connect dend[45](0), dend[6](1)
        connect dend[46](0), dend[3](1)
        for i = 47, 52 connect dend[i](0), dend[i-1](1)
        for i = 53, 54 connect dend[i](0), dend[i-49](1)
        for i = 55, 65 connect dend[i](0), dend[i-1](1)
        for i = 66, 67 connect dend[i](0), dend[20](1)
        connect dend[68](0), dend[23](1)
        connect dend[69](0), dend[25](1)
        connect dend[70](0), dend[33](1)
        connect dend[71](0), dend[32](1)
        connect dend[72](0), dend[35](1)
        connect dend[73](0), dend[38](1)
        connect dend[74](0), dend[37](1)
        for i = 75, 76 connect dend[i](0), dend[41](1)
        connect dend[77](0), dend[40](1)
        connect dend[78](0), dend[43](1)
        connect dend[79](0), dend[51](1)
        connect dend[80](0), dend[79](1)
        connect dend[81](0), dend[50](1)
        connect dend[82](0), dend[81](1)
        connect dend[83](0), dend[49](1)
        connect dend[84](0), dend[48](1)
        connect dend[85](0), dend[47](1)
        connect dend[86](0), dend[46](1)
        connect dend[87](0), dend[86](1)
        connect dend[88](0), dend[64](1)
        connect dend[89](0), dend[63](1)
        connect dend[90](0), dend[89](1)
        connect dend[91](0), dend[62](1)
        connect dend[92](0), dend[91](1)
        connect dend[93](0), dend[61](1)
        connect dend[94](0), dend[60](1)
        for i = 95, 96 connect dend[i](0), dend[i-1](1)
        connect dend[97](0), dend[59](1)
        connect dend[98](0), dend[57](1)
        connect dend[99](0), dend[56](1)
        connect dend[100](0), dend[55](1)
        connect dend[101](0), dend[54](1)
        connect dend[102](0), dend[101](1)
        connect dend[103](0), dend[58](1)
        for i = 104, 106 connect dend[i](0), dend[i-1](1)
        connect dend[107](0), dend[79](1)
        connect dend[108](0), dend[81](1)
        connect dend[109](0), dend[86](1)
        connect dend[110](0), dend[89](1)
        connect dend[111](0), dend[91](1)
        connect dend[112](0), dend[95](1)
        for i = 113, 114 connect dend[i](0), dend[94](1)
        for i = 115, 116 connect dend[i](0), dend[101](1)
        connect dend[117](0), dend[104](1)
        connect dend[118](0), dend[117](1)
        connect dend[119](0), dend[103](1)
        connect dend[120](0), dend[105](1)
        connect dend[121](0), dend[117](1)
        basic_shape($1, $2, $3)
    }
    proc shape3d_1() {
        soma {pt3dclear()
	        pt3dadd($1+0, $2+0, $3+0, 12.88)
        pt3dadd($1+2, $2+0, $3+0, 12.88)
      }
      soma[1] {pt3dclear()
        pt3dadd($1+2, $2+0, $3+0, 12.88)
        pt3dadd($1+5.333, $2+0, $3+0, 12.88)
      }
      soma[2] {pt3dclear()
        pt3dadd($1+5.333, $2+0, $3+0, 12.88)
        pt3dadd($1+12.889, $2+0, $3+0, 12.88)
      }
      hillock {pt3dclear()
        pt3dadd($1+2, $2+0, $3+0, 0.9)
        pt3dadd($1+2, $2+0, $3+-5.6, 0.9)
        pt3dadd($1+1.778, $2+0.222, $3+-5.6, 0.9)
        pt3dadd($1+1.556, $2+0.444, $3+-5.6, 0.9)
        pt3dadd($1+1.333, $2+0.667, $3+-5.6, 0.9)
        pt3dadd($1+1.111, $2+0.889, $3+-5.6, 0.9)
        pt3dadd($1+0.667, $2+1.556, $3+-5.6, 0.9)
        pt3dadd($1+0.444, $2+1.778, $3+-5.6, 0.9)
        pt3dadd($1+0, $2+2.444, $3+-5.6, 0.9)
        pt3dadd($1+-0.222, $2+2.444, $3+-5.6, 0.9)
        pt3dadd($1+-0.889, $2+2.444, $3+-5.6, 0.9)
        pt3dadd($1+-1.111, $2+2.444, $3+-5.6, 0.9)
        pt3dadd($1+-1.778, $2+2.222, $3+-5.6, 0.9)
        pt3dadd($1+-2, $2+2.222, $3+-5.6, 0.9)
        pt3dadd($1+-2.667, $2+2.222, $3+-5.6, 0.9)
        pt3dadd($1+-2.889, $2+2.222, $3+-5.6, 0.9)
        pt3dadd($1+-3.556, $2+2.222, $3+-5.6, 0.9)
        pt3dadd($1+-3.778, $2+2.222, $3+-5.6, 0.9)
        pt3dadd($1+-4.444, $2+2.667, $3+-5.6, 0.9)
        pt3dadd($1+-4.667, $2+2.889, $3+-5.6, 0.9)
        pt3dadd($1+-5.333, $2+3.111, $3+-5.6, 0.9)
        pt3dadd($1+-5.556, $2+3.111, $3+-5.6, 0.9)
        pt3dadd($1+-6.222, $2+3.111, $3+-5.6, 0.9)
        pt3dadd($1+-6.444, $2+3.111, $3+-5.6, 0.9)
        pt3dadd($1+-7.111, $2+2.889, $3+-5.6, 0.9)
        pt3dadd($1+-7.333, $2+2.667, $3+-5.6, 0.9)
        pt3dadd($1+-8, $2+2.667, $3+-5.6, 0.9)
        pt3dadd($1+-8.222, $2+2.444, $3+-5.6, 0.9)
        pt3dadd($1+-8.889, $2+2.444, $3+-5.6, 0.9)
        pt3dadd($1+-9.111, $2+2.444, $3+-5.6, 0.9)
        pt3dadd($1+-9.778, $2+2.667, $3+-5.6, 0.9)
        pt3dadd($1+-10, $2+2.667, $3+-5.6, 0.9)
        pt3dadd($1+-10.667, $2+3.111, $3+-5.6, 0.9)
        pt3dadd($1+-11.333, $2+3.778, $3+-5.6, 0.9)
        pt3dadd($1+-11.333, $2+4, $3+-5.6, 0.9)
        pt3dadd($1+-11.778, $2+4.667, $3+-5.6, 0.9)
        pt3dadd($1+-11.778, $2+4.889, $3+-5.6, 0.9)
        pt3dadd($1+-12.222, $2+5.556, $3+-5.6, 0.9)
        pt3dadd($1+-12.444, $2+5.778, $3+-5.6, 0.9)
        pt3dadd($1+-13.111, $2+6.444, $3+-5.6, 0.9)
        pt3dadd($1+-13.333, $2+6.444, $3+-5.6, 0.9)
        pt3dadd($1+-14, $2+6.444, $3+-5.6, 0.9)
        pt3dadd($1+-14.222, $2+6.444, $3+-5.6, 0.9)
        pt3dadd($1+-14.889, $2+6.667, $3+-5.6, 0.9)
        pt3dadd($1+-15.778, $2+7.556, $3+-5.6, 0.9)
        pt3dadd($1+-16, $2+7.778, $3+-5.6, 0.9)
        pt3dadd($1+-16.444, $2+8.444, $3+-5.6, 0.9)
        pt3dadd($1+-16.667, $2+8.667, $3+-5.6, 0.9)
        pt3dadd($1+-17.333, $2+9.556, $3+-5.6, 0.9)
        pt3dadd($1+-17.333, $2+9.778, $3+-5.6, 0.9)
        pt3dadd($1+-17.778, $2+10.667, $3+-5.6, 0.9)
        pt3dadd($1+-18, $2+10.889, $3+-5.6, 0.9)
        pt3dadd($1+-18.889, $2+11.333, $3+-5.6, 0.9)
        pt3dadd($1+-19.111, $2+11.333, $3+-5.6, 0.9)
        pt3dadd($1+-20, $2+11.778, $3+-5.6, 0.9)
        pt3dadd($1+-20.222, $2+12, $3+-5.6, 0.9)
        pt3dadd($1+-20.222, $2+12.667, $3+-5.6, 0.9)
        pt3dadd($1+-20.222, $2+12.889, $3+-5.6, 0.9)
        pt3dadd($1+-20.222, $2+13.556, $3+-5.6, 0.9)
        pt3dadd($1+-20.222, $2+13.778, $3+-5.6, 0.9)
        pt3dadd($1+-20.444, $2+14, $3+-5.6, 0.9)
        pt3dadd($1+-20.667, $2+14.889, $3+-5.6, 0.9)
        pt3dadd($1+-20.889, $2+15.111, $3+-5.6, 0.9)
        pt3dadd($1+-21.556, $2+15.333, $3+-5.6, 0.9)
        pt3dadd($1+-21.778, $2+15.556, $3+-5.6, 0.9)
        pt3dadd($1+-22, $2+15.556, $3+-5.6, 0.9)
        pt3dadd($1+-22.222, $2+15.778, $3+-5.6, 0.9)
        pt3dadd($1+-22.889, $2+16, $3+-5.6, 0.9)
        pt3dadd($1+-23.111, $2+16, $3+-5.6, 0.9)
        pt3dadd($1+-23.556, $2+16.444, $3+-5.6, 0.9)
        pt3dadd($1+-23.778, $2+16.667, $3+-5.6, 0.9)
        pt3dadd($1+-24, $2+17.111, $3+-5.6, 0.9)
        pt3dadd($1+-24.222, $2+17.333, $3+-5.6, 0.9)
        pt3dadd($1+-24.667, $2+17.778, $3+-5.6, 0.9)
        pt3dadd($1+-25.111, $2+18.222, $3+-5.6, 0.9)
      }
    }
    proc shape3d_2() {
      ais {pt3dclear()
        pt3dadd($1+-25.111, $2+18.444, $3+-5.6, 0.9)
        pt3dadd($1+-25.333, $2+18.667, $3+-5.6, 0.9)
        pt3dadd($1+-25.778, $2+19.111, $3+-5.6, 0.9)
        pt3dadd($1+-26, $2+19.333, $3+-5.6, 0.9)
        pt3dadd($1+-26.444, $2+19.556, $3+-5.6, 0.9)
        pt3dadd($1+-26.889, $2+20, $3+-5.6, 0.9)
        pt3dadd($1+-27.111, $2+20.444, $3+-5.6, 0.9)
        pt3dadd($1+-27.333, $2+20.889, $3+-5.6, 0.9)
        pt3dadd($1+-27.778, $2+21.333, $3+-5.6, 0.9)
        pt3dadd($1+-28.222, $2+21.778, $3+-5.6, 0.9)
        pt3dadd($1+-28.667, $2+22.222, $3+-5.6, 0.9)
        pt3dadd($1+-29.111, $2+22.667, $3+-5.6, 0.9)
        pt3dadd($1+-29.556, $2+22.667, $3+-5.6, 0.9)
        pt3dadd($1+-30, $2+23.111, $3+-5.6, 0.9)
        pt3dadd($1+-30.444, $2+23.111, $3+-5.6, 0.9)
        pt3dadd($1+-30.889, $2+23.333, $3+-5.6, 0.9)
        pt3dadd($1+-31.111, $2+23.556, $3+-5.6, 0.9)
        pt3dadd($1+-31.778, $2+24, $3+-5.6, 0.9)
        pt3dadd($1+-32, $2+24, $3+-5.6, 0.9)
        pt3dadd($1+-32.889, $2+24.667, $3+-5.6, 0.9)
        pt3dadd($1+-33.111, $2+24.889, $3+-5.6, 0.9)
        pt3dadd($1+-33.778, $2+25.778, $3+-5.6, 0.9)
        pt3dadd($1+-34, $2+26, $3+-5.6, 0.9)
        pt3dadd($1+-34.889, $2+26.667, $3+-5.6, 0.9)
        pt3dadd($1+-35.111, $2+26.889, $3+-5.6, 0.9)
        pt3dadd($1+-35.778, $2+27.556, $3+-5.6, 0.9)
        pt3dadd($1+-36, $2+27.778, $3+-5.6, 0.9)
        pt3dadd($1+-36.667, $2+28, $3+-5.6, 0.9)
        pt3dadd($1+-36.889, $2+28, $3+-5.6, 0.9)
        pt3dadd($1+-37.556, $2+28.222, $3+-5.6, 0.9)
        pt3dadd($1+-37.778, $2+28.222, $3+-5.6, 0.9)
        pt3dadd($1+-38, $2+28.222, $3+-5.6, 0.9)
        pt3dadd($1+-38.222, $2+28.444, $3+-5.6, 0.9)
        pt3dadd($1+-38.444, $2+28.444, $3+-5.6, 0.9)
        pt3dadd($1+-39.111, $2+28.444, $3+-5.6, 0.9)
        pt3dadd($1+-39.778, $2+28.889, $3+-5.6, 0.9)
        pt3dadd($1+-40, $2+28.889, $3+-5.6, 0.9)
        pt3dadd($1+-40.667, $2+28.889, $3+-5.6, 0.9)
        pt3dadd($1+-40.889, $2+28.889, $3+-5.6, 0.9)
        pt3dadd($1+-41.111, $2+29.111, $3+-5.6, 0.9)
        pt3dadd($1+-41.778, $2+29.111, $3+-5.6, 0.9)
        pt3dadd($1+-42, $2+29.111, $3+-5.6, 0.9)
        pt3dadd($1+-42.667, $2+29.556, $3+-5.6, 0.9)
        pt3dadd($1+-42.889, $2+29.778, $3+-5.6, 0.9)
        pt3dadd($1+-43.556, $2+30.222, $3+-5.6, 0.9)
        pt3dadd($1+-43.778, $2+30.444, $3+-5.6, 0.9)
        pt3dadd($1+-44.444, $2+30.667, $3+-5.6, 0.9)
        pt3dadd($1+-44.667, $2+30.667, $3+-5.6, 0.9)
        pt3dadd($1+-44.889, $2+30.667, $3+-5.6, 0.9)
        pt3dadd($1+-45.556, $2+30.667, $3+-5.6, 0.9)
        pt3dadd($1+-45.778, $2+30.444, $3+-5.6, 0.9)
        pt3dadd($1+-46, $2+30.444, $3+-5.6, 0.9)
        pt3dadd($1+-46.444, $2+30.444, $3+-5.6, 0.9)
        pt3dadd($1+-46.889, $2+30.444, $3+-5.6, 0.9)
        pt3dadd($1+-47.111, $2+30.667, $3+-5.6, 0.9)
        pt3dadd($1+-47.778, $2+31.111, $3+-5.6, 0.9)
        pt3dadd($1+-48, $2+31.111, $3+-5.6, 0.9)
        pt3dadd($1+-48.222, $2+31.111, $3+-5.6, 0.9)
        pt3dadd($1+-48.889, $2+31.556, $3+-5.6, 0.9)
        pt3dadd($1+-49.111, $2+31.556, $3+-5.6, 0.9)
        pt3dadd($1+-49.333, $2+31.778, $3+-5.6, 0.9)
        pt3dadd($1+-49.556, $2+32, $3+-5.6, 0.9)
        pt3dadd($1+-49.778, $2+32.222, $3+-5.6, 0.9)
        pt3dadd($1+-50, $2+32.444, $3+-5.6, 0.9)
        pt3dadd($1+-50.889, $2+32.667, $3+-5.6, 0.9)
        pt3dadd($1+-51.111, $2+32.889, $3+-5.6, 0.9)
        pt3dadd($1+-51.778, $2+33.333, $3+-5.6, 0.9)
        pt3dadd($1+-52, $2+33.556, $3+-5.6, 0.9)
        pt3dadd($1+-52.222, $2+33.556, $3+-5.6, 0.9)
        pt3dadd($1+-52.889, $2+33.556, $3+-5.6, 0.9)
        pt3dadd($1+-53.111, $2+33.556, $3+-5.6, 0.9)
        pt3dadd($1+-53.778, $2+33.556, $3+-5.6, 0.9)
        pt3dadd($1+-54, $2+33.556, $3+-5.6, 0.9)
        pt3dadd($1+-54.667, $2+33.556, $3+-5.6, 0.9)
        pt3dadd($1+-54.889, $2+33.556, $3+-5.6, 0.9)
        pt3dadd($1+-55.111, $2+33.778, $3+-5.6, 0.9)
        pt3dadd($1+-55.778, $2+34, $3+-5.6, 0.9)
        pt3dadd($1+-56, $2+34.222, $3+-5.6, 0.9)
        pt3dadd($1+-56.222, $2+34.222, $3+-5.6, 0.9)
        pt3dadd($1+-56.889, $2+34.444, $3+-5.6, 0.9)
        pt3dadd($1+-57.111, $2+34.667, $3+-5.6, 0.9)
        pt3dadd($1+-57.333, $2+34.667, $3+-5.6, 0.9)
        pt3dadd($1+-57.556, $2+34.667, $3+-5.6, 0.9)
        pt3dadd($1+-57.778, $2+34.667, $3+-5.6, 0.9)
        pt3dadd($1+-58, $2+34.667, $3+-5.6, 0.9)
        pt3dadd($1+-58.222, $2+34.889, $3+-5.6, 0.9)
        pt3dadd($1+-58.889, $2+35.333, $3+-5.6, 0.9)
        pt3dadd($1+-59.111, $2+35.333, $3+-5.6, 0.9)
        pt3dadd($1+-59.333, $2+35.556, $3+-5.6, 0.9)
        pt3dadd($1+-59.556, $2+35.778, $3+-5.6, 0.9)
        pt3dadd($1+-59.778, $2+36, $3+-5.6, 0.9)
        pt3dadd($1+-60, $2+36.222, $3+-5.6, 0.9)
        pt3dadd($1+-60.222, $2+36.444, $3+-5.6, 0.9)
        pt3dadd($1+-60.444, $2+36.889, $3+-5.6, 0.9)
        pt3dadd($1+-60.667, $2+37.111, $3+-5.6, 0.9)
        pt3dadd($1+-60.889, $2+37.333, $3+-5.6, 0.9)
        pt3dadd($1+-61.111, $2+37.556, $3+-5.6, 0.9)
        pt3dadd($1+-61.111, $2+37.778, $3+-5.6, 0.9)
        pt3dadd($1+-61.333, $2+39.556, $3+-5.6, 0.9)
        pt3dadd($1+-61.556, $2+39.778, $3+-5.6, 0.9)
        pt3dadd($1+-61.556, $2+40.222, $3+-5.6, 0.9)
        pt3dadd($1+-61.778, $2+40.444, $3+-5.6, 0.9)
        pt3dadd($1+-62, $2+40.667, $3+-5.6, 0.9)
        pt3dadd($1+-62, $2+40.889, $3+-5.6, 0.9)
        pt3dadd($1+-62.222, $2+41.111, $3+-5.6, 0.9)
        pt3dadd($1+-62.889, $2+41.778, $3+-5.6, 0.9)
        pt3dadd($1+-63.111, $2+42, $3+-5.6, 0.9)
        pt3dadd($1+-63.778, $2+42.667, $3+-5.6, 0.9)
        pt3dadd($1+-64, $2+42.667, $3+-5.6, 0.9)
        pt3dadd($1+-64.667, $2+42.889, $3+-5.6, 0.9)
        pt3dadd($1+-64.889, $2+43.111, $3+-5.6, 0.9)
        pt3dadd($1+-65.556, $2+43.556, $3+-5.6, 0.9)
        pt3dadd($1+-65.778, $2+43.778, $3+-5.6, 0.9)
        pt3dadd($1+-66, $2+44, $3+-5.6, 0.9)
        pt3dadd($1+-66.222, $2+44.222, $3+-5.6, 0.9)
        pt3dadd($1+-66.889, $2+44.667, $3+-5.6, 0.9)
        pt3dadd($1+-67.111, $2+44.889, $3+-5.6, 0.9)
        pt3dadd($1+-67.333, $2+45.111, $3+-5.6, 0.9)
        pt3dadd($1+-67.556, $2+45.333, $3+-5.6, 0.9)
        pt3dadd($1+-67.778, $2+45.556, $3+-5.6, 0.9)
        pt3dadd($1+-68, $2+45.778, $3+-5.6, 0.9)
        pt3dadd($1+-68.222, $2+46, $3+-5.6, 0.9)
        pt3dadd($1+-68.444, $2+46.222, $3+-5.6, 0.9)
        pt3dadd($1+-68.667, $2+46.222, $3+-5.6, 0.9)
        pt3dadd($1+-68.889, $2+46.222, $3+-5.6, 0.9)
        pt3dadd($1+-69.556, $2+46.444, $3+-5.6, 0.9)
        pt3dadd($1+-69.778, $2+46.444, $3+-5.6, 0.9)
        pt3dadd($1+-70, $2+46.667, $3+-5.6, 0.9)
        pt3dadd($1+-70.222, $2+46.889, $3+-5.6, 0.9)
        pt3dadd($1+-70.889, $2+47.556, $3+-5.6, 0.9)
        pt3dadd($1+-71.111, $2+47.778, $3+-5.6, 0.9)
        pt3dadd($1+-71.333, $2+48, $3+-5.6, 0.9)
        pt3dadd($1+-72, $2+48.667, $3+-5.6, 0.9)
      }
      axon {pt3dclear()
        pt3dadd($1+-72.222, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-72.444, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-72.667, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-72.889, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-73.111, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-73.333, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-73.556, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-73.778, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-74, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-74.222, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-74.444, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-74.667, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-74.889, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-75.111, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-75.333, $2+48.667, $3+-5.6, 0.9)
        pt3dadd($1+-75.556, $2+48.444, $3+-5.6, 0.9)
        pt3dadd($1+-75.778, $2+48.444, $3+-5.6, 0.9)
        pt3dadd($1+-76, $2+48.444, $3+-5.6, 0.9)
        pt3dadd($1+-76.222, $2+48.444, $3+-5.6, 0.9)
        pt3dadd($1+-76.444, $2+48.667, $3+-5.6, 0.9)
      }
    }
    proc shape3d_3() {
      axon {	pt3dadd($1+-76.667, $2+48.889, $3+-5.6, 0.9)
        pt3dadd($1+-76.889, $2+49.111, $3+-5.6, 0.9)
        pt3dadd($1+-77.111, $2+49.333, $3+-5.6, 0.9)
        pt3dadd($1+-77.333, $2+49.556, $3+-5.6, 0.9)
        pt3dadd($1+-77.556, $2+49.778, $3+-5.6, 0.9)
        pt3dadd($1+-77.778, $2+50, $3+-5.6, 0.9)
        pt3dadd($1+-78, $2+50.222, $3+-5.6, 0.9)
        pt3dadd($1+-78, $2+50.444, $3+-5.6, 0.9)
        pt3dadd($1+-78.222, $2+50.667, $3+-5.6, 0.9)
        pt3dadd($1+-78.222, $2+50.889, $3+-5.6, 0.9)
        pt3dadd($1+-78.444, $2+51.111, $3+-5.6, 0.9)
        pt3dadd($1+-78.667, $2+51.333, $3+-5.6, 0.9)
        pt3dadd($1+-78.889, $2+51.556, $3+-5.6, 0.9)
        pt3dadd($1+-79.111, $2+51.556, $3+-5.6, 0.9)
        pt3dadd($1+-79.333, $2+51.778, $3+-5.6, 0.9)
        pt3dadd($1+-79.556, $2+52, $3+-5.6, 0.9)
        pt3dadd($1+-79.778, $2+52.222, $3+-5.6, 0.9)
        pt3dadd($1+-80, $2+52.444, $3+-5.6, 0.9)
        pt3dadd($1+-80.222, $2+52.667, $3+-5.6, 0.9)
        pt3dadd($1+-80.444, $2+52.889, $3+-5.6, 0.9)
        pt3dadd($1+-80.667, $2+53.111, $3+-5.6, 0.9)
        pt3dadd($1+-80.889, $2+53.333, $3+-5.6, 0.9)
        pt3dadd($1+-81.111, $2+53.556, $3+-5.6, 0.9)
        pt3dadd($1+-81.111, $2+53.778, $3+-5.6, 0.9)
        pt3dadd($1+-81.111, $2+54, $3+-5.6, 0.9)
        pt3dadd($1+-81.333, $2+54.222, $3+-5.6, 0.9)
        pt3dadd($1+-81.333, $2+54.444, $3+-5.6, 0.9)
        pt3dadd($1+-81.556, $2+54.667, $3+-5.6, 0.9)
        pt3dadd($1+-81.778, $2+54.889, $3+-5.6, 0.9)
        pt3dadd($1+-81.778, $2+55.111, $3+-5.6, 0.9)
        pt3dadd($1+-82, $2+55.333, $3+-5.6, 0.9)
        pt3dadd($1+-82, $2+55.556, $3+-5.6, 0.9)
        pt3dadd($1+-82, $2+55.778, $3+-5.6, 0.9)
        pt3dadd($1+-82.222, $2+56, $3+-5.6, 0.9)
        pt3dadd($1+-82.444, $2+56.222, $3+-5.6, 0.9)
        pt3dadd($1+-82.444, $2+56.444, $3+-5.6, 0.9)
        pt3dadd($1+-82.667, $2+56.667, $3+-5.6, 0.9)
        pt3dadd($1+-82.667, $2+56.889, $3+-5.6, 0.9)
        pt3dadd($1+-82.889, $2+57.111, $3+-5.6, 0.9)
        pt3dadd($1+-82.889, $2+57.333, $3+-5.6, 0.9)
        pt3dadd($1+-83.111, $2+57.556, $3+-5.6, 0.9)
        pt3dadd($1+-83.333, $2+57.778, $3+-5.6, 0.9)
        pt3dadd($1+-83.333, $2+58, $3+-5.6, 0.9)
        pt3dadd($1+-83.556, $2+58.222, $3+-5.6, 0.9)
        pt3dadd($1+-83.778, $2+58.444, $3+-5.6, 0.9)
        pt3dadd($1+-84, $2+58.667, $3+-5.6, 0.9)
        pt3dadd($1+-84.222, $2+58.889, $3+-5.6, 0.9)
        pt3dadd($1+-84.444, $2+59.111, $3+-5.6, 0.9)
        pt3dadd($1+-84.444, $2+59.333, $3+-5.6, 0.9)
        pt3dadd($1+-84.444, $2+59.556, $3+-5.6, 0.9)
        pt3dadd($1+-84.667, $2+59.778, $3+-5.6, 0.9)
        pt3dadd($1+-84.889, $2+60, $3+-5.6, 0.9)
        pt3dadd($1+-84.889, $2+60.222, $3+-5.6, 0.9)
        pt3dadd($1+-84.889, $2+60.444, $3+-5.6, 0.9)
        pt3dadd($1+-85.111, $2+60.667, $3+-5.6, 0.9)
        pt3dadd($1+-85.333, $2+60.889, $3+-5.6, 0.9)
        pt3dadd($1+-85.556, $2+61.111, $3+-5.6, 0.9)
        pt3dadd($1+-85.778, $2+61.333, $3+-5.6, 0.9)
        pt3dadd($1+-86, $2+61.556, $3+-5.6, 0.9)
        pt3dadd($1+-86.222, $2+61.778, $3+-5.6, 0.9)
        pt3dadd($1+-86.444, $2+61.778, $3+-5.6, 0.9)
        pt3dadd($1+-86.667, $2+61.778, $3+-5.6, 0.9)
        pt3dadd($1+-86.889, $2+61.778, $3+-5.6, 0.9)
        pt3dadd($1+-87.111, $2+62, $3+-5.6, 0.9)
        pt3dadd($1+-87.333, $2+62.222, $3+-5.6, 0.9)
        pt3dadd($1+-87.556, $2+62.444, $3+-5.6, 0.9)
        pt3dadd($1+-87.778, $2+62.667, $3+-5.6, 0.9)
        pt3dadd($1+-88, $2+62.889, $3+-5.6, 0.9)
        pt3dadd($1+-88.222, $2+62.889, $3+-5.6, 0.9)
        pt3dadd($1+-88.444, $2+62.889, $3+-5.6, 0.9)
        pt3dadd($1+-88.667, $2+63.111, $3+-5.6, 0.9)
        pt3dadd($1+-88.889, $2+63.111, $3+-5.6, 0.9)
        pt3dadd($1+-89.111, $2+63.333, $3+-5.6, 0.9)
        pt3dadd($1+-89.333, $2+63.556, $3+-5.6, 0.9)
        pt3dadd($1+-89.556, $2+63.778, $3+-5.6, 0.9)
        pt3dadd($1+-89.778, $2+64, $3+-5.6, 0.9)
        pt3dadd($1+-90, $2+64.222, $3+-5.6, 0.9)
        pt3dadd($1+-90.222, $2+64.444, $3+-5.6, 0.9)
        pt3dadd($1+-90.222, $2+64.667, $3+-5.6, 0.9)
        pt3dadd($1+-90.444, $2+64.889, $3+-5.6, 0.9)
        pt3dadd($1+-90.444, $2+65.111, $3+-5.6, 0.9)
        pt3dadd($1+-90.667, $2+65.333, $3+-5.6, 0.9)
        pt3dadd($1+-90.667, $2+65.556, $3+-5.6, 0.9)
        pt3dadd($1+-90.667, $2+65.778, $3+-5.6, 0.9)
        pt3dadd($1+-90.667, $2+66, $3+-5.6, 0.9)
        pt3dadd($1+-90.889, $2+66.222, $3+-5.6, 0.9)
        pt3dadd($1+-90.889, $2+66.444, $3+-5.6, 0.9)
        pt3dadd($1+-91.111, $2+66.667, $3+-5.6, 0.9)
        pt3dadd($1+-91.111, $2+66.889, $3+-5.6, 0.9)
        pt3dadd($1+-91.111, $2+67.111, $3+-5.6, 0.9)
        pt3dadd($1+-91.333, $2+67.333, $3+-5.6, 0.9)
        pt3dadd($1+-91.333, $2+67.556, $3+-5.6, 0.9)
        pt3dadd($1+-91.556, $2+67.778, $3+-5.6, 0.9)
        pt3dadd($1+-91.778, $2+68, $3+-5.6, 0.9)
        pt3dadd($1+-92, $2+68.222, $3+-5.6, 0.9)
        pt3dadd($1+-92.222, $2+68.444, $3+-5.6, 0.9)
        pt3dadd($1+-92.444, $2+68.667, $3+-5.6, 0.9)
        pt3dadd($1+-92.667, $2+68.889, $3+-5.6, 0.9)
        pt3dadd($1+-92.889, $2+69.111, $3+-5.6, 0.9)
        pt3dadd($1+-93.111, $2+69.333, $3+-5.6, 0.9)
        pt3dadd($1+-93.333, $2+69.333, $3+-5.6, 0.9)
        pt3dadd($1+-93.556, $2+69.556, $3+-5.6, 0.9)
        pt3dadd($1+-93.778, $2+69.778, $3+-5.6, 0.9)
        pt3dadd($1+-94, $2+70, $3+-5.6, 0.9)
        pt3dadd($1+-94.222, $2+70, $3+-5.6, 0.9)
        pt3dadd($1+-94.444, $2+70.222, $3+-5.6, 0.9)
        pt3dadd($1+-94.667, $2+70.444, $3+-5.6, 0.9)
        pt3dadd($1+-94.889, $2+70.444, $3+-5.6, 0.9)
        pt3dadd($1+-95.111, $2+70.667, $3+-5.6, 0.9)
        pt3dadd($1+-95.333, $2+70.889, $3+-5.6, 0.9)
        pt3dadd($1+-95.556, $2+70.889, $3+-5.6, 0.9)
        pt3dadd($1+-95.778, $2+71.111, $3+-5.6, 0.9)
        pt3dadd($1+-96, $2+71.333, $3+-5.6, 0.9)
        pt3dadd($1+-96.222, $2+71.333, $3+-5.6, 0.9)
        pt3dadd($1+-96.444, $2+71.556, $3+-5.6, 0.9)
        pt3dadd($1+-96.667, $2+71.778, $3+-5.6, 0.9)
        pt3dadd($1+-96.889, $2+71.778, $3+-5.6, 0.9)
        pt3dadd($1+-97.111, $2+72, $3+-5.6, 0.9)
        pt3dadd($1+-97.333, $2+72, $3+-5.6, 0.9)
        pt3dadd($1+-97.556, $2+72.222, $3+-5.6, 0.9)
        pt3dadd($1+-97.778, $2+72.444, $3+-5.6, 0.9)
        pt3dadd($1+-98, $2+72.444, $3+-5.6, 0.9)
        pt3dadd($1+-98.222, $2+72.667, $3+-5.6, 0.9)
        pt3dadd($1+-98.444, $2+72.889, $3+-5.6, 0.9)
        pt3dadd($1+-98.667, $2+72.889, $3+-5.6, 0.9)
        pt3dadd($1+-98.889, $2+73.111, $3+-5.6, 0.9)
        pt3dadd($1+-99.111, $2+73.333, $3+-5.6, 0.9)
        pt3dadd($1+-99.333, $2+73.333, $3+-5.6, 0.9)
        pt3dadd($1+-99.556, $2+73.556, $3+-5.6, 0.9)
      }
      dend {pt3dclear()
        pt3dadd($1+5.333, $2+0, $3+0, 2)
        pt3dadd($1+5.333, $2+0, $3+0, 2)
        pt3dadd($1+5.333, $2+-0.222, $3+1.233, 1.982)
        pt3dadd($1+5.333, $2+-0.444, $3+2.467, 1.964)
        pt3dadd($1+5.333, $2+-0.667, $3+3.7, 1.944)
        pt3dadd($1+5.333, $2+-0.889, $3+4.933, 1.926)
        pt3dadd($1+5.333, $2+-1.111, $3+6.167, 1.908)
        pt3dadd($1+5.333, $2+-1.333, $3+7.4, 1.89)
        pt3dadd($1+5.333, $2+-1.556, $3+8.633, 1.872)
        pt3dadd($1+5.333, $2+-1.778, $3+9.867, 1.852)
        pt3dadd($1+5.333, $2+-2, $3+11.1, 1.834)
        pt3dadd($1+5.333, $2+-2.222, $3+11.1, 1.816)
        pt3dadd($1+5.333, $2+-2.444, $3+11.1, 1.798)
        pt3dadd($1+5.333, $2+-2.667, $3+11.1, 1.78)
        pt3dadd($1+5.333, $2+-2.889, $3+11.1, 1.76)
        pt3dadd($1+5.333, $2+-3.111, $3+11.1, 1.742)
        pt3dadd($1+5.333, $2+-3.333, $3+11.1, 1.724)
        pt3dadd($1+5.111, $2+-3.556, $3+11.1, 1.706)
        pt3dadd($1+4.889, $2+-3.778, $3+11.1, 1.688)
        pt3dadd($1+4.667, $2+-4, $3+11.1, 1.668)
        pt3dadd($1+4.667, $2+-4.222, $3+11.1, 1.65)
        pt3dadd($1+4.667, $2+-4.444, $3+11.1, 1.632)
        pt3dadd($1+4.667, $2+-4.667, $3+11.1, 1.614)
        pt3dadd($1+4.667, $2+-4.889, $3+11.1, 1.596)
        pt3dadd($1+4.444, $2+-5.111, $3+11.1, 1.576)
        pt3dadd($1+4.444, $2+-5.333, $3+11.1, 1.558)
        pt3dadd($1+4.444, $2+-5.556, $3+11.1, 1.54)
        pt3dadd($1+4.444, $2+-5.778, $3+11.1, 1.522)
        pt3dadd($1+4.444, $2+-6, $3+11.1, 1.504)
        pt3dadd($1+4.222, $2+-6.222, $3+11.1, 1.484)
        pt3dadd($1+4.222, $2+-6.444, $3+11.1, 1.466)
        pt3dadd($1+4, $2+-6.667, $3+11.1, 1.448)
        pt3dadd($1+3.778, $2+-6.889, $3+11.1, 1.43)
        pt3dadd($1+3.556, $2+-7.111, $3+11.1, 1.412)
        pt3dadd($1+3.333, $2+-7.333, $3+11.1, 1.392)
        pt3dadd($1+3.333, $2+-7.556, $3+11.1, 1.374)
      }
      dend[1] {pt3dclear()
        pt3dadd($1+3.333, $2+-7.556, $3+11.1, 1.374)
        pt3dadd($1+3.111, $2+-7.556, $3+11.1, 1.356)
        pt3dadd($1+2.889, $2+-7.778, $3+11.1, 1.338)
      }
      dend[2] {pt3dclear()
        pt3dadd($1+2.889, $2+-7.778, $3+11.1, 1.338)
        pt3dadd($1+2.667, $2+-8, $3+11.1, 1.32)
        pt3dadd($1+2.444, $2+-8.222, $3+11.1, 1.3)
        pt3dadd($1+2.222, $2+-8.444, $3+11.1, 1.282)
        pt3dadd($1+2, $2+-8.444, $3+11.1, 1.264)
        pt3dadd($1+1.778, $2+-8.444, $3+11.1, 1.246)
        pt3dadd($1+1.556, $2+-8.667, $3+11.1, 1.228)
        pt3dadd($1+1.333, $2+-8.667, $3+11.1, 1.208)
        pt3dadd($1+1.111, $2+-8.889, $3+11.1, 1.19)
        pt3dadd($1+0.889, $2+-9.111, $3+11.1, 1.172)
        pt3dadd($1+0.667, $2+-9.333, $3+11.1, 1.154)
        pt3dadd($1+0.444, $2+-9.333, $3+11.1, 1.136)
        pt3dadd($1+0.222, $2+-9.556, $3+11.1, 1.116)
        pt3dadd($1+0, $2+-9.778, $3+11.1, 1.098)
        pt3dadd($1+-0.222, $2+-10, $3+11.1, 1.08)
        pt3dadd($1+-0.444, $2+-10.222, $3+11.1, 1.062)
        pt3dadd($1+-0.444, $2+-10.444, $3+11.1, 1.042)
        pt3dadd($1+-0.444, $2+-10.667, $3+11.1, 1.024)
        pt3dadd($1+-0.444, $2+-10.889, $3+11.1, 1.006)
        pt3dadd($1+-0.444, $2+-11.111, $3+11.1, 0.988)
        pt3dadd($1+-0.444, $2+-11.333, $3+11.1, 0.97)
        pt3dadd($1+-0.444, $2+-11.556, $3+11.1, 0.95)
        pt3dadd($1+-0.222, $2+-11.778, $3+11.1, 0.932)
        pt3dadd($1+-0.222, $2+-12, $3+11.1, 0.914)
        pt3dadd($1+0, $2+-12.222, $3+11.1, 0.896)
        pt3dadd($1+0, $2+-12.444, $3+11.1, 0.878)
        pt3dadd($1+0, $2+-12.667, $3+11.1, 0.858)
        pt3dadd($1+0, $2+-12.889, $3+11.1, 0.84)
        pt3dadd($1+0, $2+-13.111, $3+11.1, 0.822)
        pt3dadd($1+0, $2+-13.333, $3+11.1, 0.804)
        pt3dadd($1+-0.222, $2+-13.556, $3+11.1, 0.786)
        pt3dadd($1+-0.444, $2+-13.778, $3+11.1, 0.766)
      }
    }
    proc shape3d_4() {
      dend[2] {	pt3dadd($1+-0.444, $2+-14, $3+11.1, 0.748)
        pt3dadd($1+-0.444, $2+-14.222, $3+11.1, 0.73)
        pt3dadd($1+-0.444, $2+-14.444, $3+11.1, 0.712)
        pt3dadd($1+-0.667, $2+-14.667, $3+11.1, 0.694)
        pt3dadd($1+-0.889, $2+-14.889, $3+11.1, 0.674)
        pt3dadd($1+-1.111, $2+-15.111, $3+11.1, 0.656)
        pt3dadd($1+-1.333, $2+-15.333, $3+11.1, 0.638)
        pt3dadd($1+-1.556, $2+-15.556, $3+11.1, 0.62)
        pt3dadd($1+-1.778, $2+-15.778, $3+11.1, 0.602)
        pt3dadd($1+-2, $2+-16, $3+11.1, 0.582)
        pt3dadd($1+-2.222, $2+-16.222, $3+11.1, 0.564)
        pt3dadd($1+-2.444, $2+-16.444, $3+11.1, 0.546)
        pt3dadd($1+-2.444, $2+-16.667, $3+11.1, 0.528)
        pt3dadd($1+-2.667, $2+-16.889, $3+11.1, 0.51)
        pt3dadd($1+-2.889, $2+-17.111, $3+11.1, 0.49)
        pt3dadd($1+-3.111, $2+-17.111, $3+11.1, 0.472)
        pt3dadd($1+-3.333, $2+-17.333, $3+11.1, 0.454)
        pt3dadd($1+-3.556, $2+-17.556, $3+11.1, 0.436)
        pt3dadd($1+-3.556, $2+-17.778, $3+11.1, 0.418)
        pt3dadd($1+-3.556, $2+-18, $3+11.1, 0.398)
        pt3dadd($1+-3.556, $2+-18.222, $3+11.1, 0.38)
        pt3dadd($1+-3.778, $2+-18.444, $3+11.1, 0.362)
        pt3dadd($1+-4, $2+-18.667, $3+11.1, 0.344)
        pt3dadd($1+-4.222, $2+-18.667, $3+11.1, 0.326)
        pt3dadd($1+-4.444, $2+-18.889, $3+11.1, 0.306)
        pt3dadd($1+-4.667, $2+-19.111, $3+11.1, 0.288)
        pt3dadd($1+-4.889, $2+-19.111, $3+11.1, 0.27)
      }
      dend[3] {pt3dclear()
        pt3dadd($1+12.889, $2+0, $3+0, 2)
        pt3dadd($1+12.889, $2+0, $3+0, 2)
        pt3dadd($1+13.111, $2+0, $3+1.233, 1.996)
        pt3dadd($1+13.333, $2+0, $3+2.467, 1.992)
        pt3dadd($1+13.556, $2+0, $3+3.7, 1.988)
        pt3dadd($1+13.778, $2+0, $3+4.933, 1.984)
        pt3dadd($1+14, $2+0, $3+6.167, 1.98)
        pt3dadd($1+14.222, $2+0, $3+7.4, 1.976)
        pt3dadd($1+14.444, $2+0, $3+8.633, 1.972)
        pt3dadd($1+14.667, $2+0, $3+9.867, 1.968)
        pt3dadd($1+14.889, $2+0, $3+11.1, 1.964)
        pt3dadd($1+15.111, $2+0, $3+11.1, 1.96)
        pt3dadd($1+15.333, $2+0, $3+11.1, 1.956)
        pt3dadd($1+15.556, $2+0.222, $3+11.1, 1.952)
        pt3dadd($1+15.778, $2+0.222, $3+11.1, 1.948)
        pt3dadd($1+16, $2+0.222, $3+11.1, 1.944)
        pt3dadd($1+16.222, $2+0.222, $3+11.1, 1.938)
        pt3dadd($1+16.444, $2+0.222, $3+11.1, 1.934)
        pt3dadd($1+16.667, $2+0.222, $3+11.1, 1.93)
        pt3dadd($1+16.889, $2+0.222, $3+11.1, 1.926)
        pt3dadd($1+17.111, $2+0.222, $3+11.1, 1.922)
        pt3dadd($1+17.333, $2+0.222, $3+11.1, 1.918)
        pt3dadd($1+17.556, $2+0.222, $3+11.1, 1.914)
        pt3dadd($1+17.778, $2+0.222, $3+11.1, 1.91)
        pt3dadd($1+18, $2+0.222, $3+11.1, 1.906)
        pt3dadd($1+18.222, $2+0.222, $3+11.1, 1.902)
        pt3dadd($1+18.444, $2+0.222, $3+11.1, 1.898)
        pt3dadd($1+18.667, $2+0.222, $3+11.1, 1.894)
        pt3dadd($1+18.889, $2+0, $3+11.1, 1.89)
        pt3dadd($1+19.111, $2+-0.222, $3+11.1, 1.886)
        pt3dadd($1+19.333, $2+-0.222, $3+11.1, 1.882)
        pt3dadd($1+19.556, $2+-0.222, $3+11.1, 1.878)
        pt3dadd($1+19.778, $2+-0.222, $3+11.1, 1.874)
        pt3dadd($1+20, $2+-0.222, $3+11.1, 1.87)
        pt3dadd($1+20.222, $2+-0.222, $3+11.1, 1.866)
        pt3dadd($1+20.444, $2+-0.222, $3+11.1, 1.862)
        pt3dadd($1+20.667, $2+-0.222, $3+11.1, 1.858)
      }
      dend[4] {pt3dclear()
        pt3dadd($1+20.667, $2+-0.222, $3+11.1, 1.858)
        pt3dadd($1+20.889, $2+-0.444, $3+11.1, 1.854)
        pt3dadd($1+21.111, $2+-0.444, $3+11.1, 1.85)
        pt3dadd($1+21.333, $2+-0.667, $3+11.1, 1.846)
        pt3dadd($1+21.556, $2+-0.889, $3+11.1, 1.842)
        pt3dadd($1+21.778, $2+-0.889, $3+11.1, 1.838)
        pt3dadd($1+22, $2+-1.111, $3+11.1, 1.834)
      }
      dend[5] {pt3dclear()
        pt3dadd($1+22, $2+-1.111, $3+11.1, 1.834)
        pt3dadd($1+22.222, $2+-1.333, $3+11.1, 1.83)
        pt3dadd($1+22.444, $2+-1.556, $3+11.1, 1.824)
        pt3dadd($1+22.667, $2+-1.778, $3+11.1, 1.82)
        pt3dadd($1+22.889, $2+-2, $3+11.1, 1.816)
      }
      dend[6] {pt3dclear()
        pt3dadd($1+22.889, $2+-2, $3+11.1, 1.816)
        pt3dadd($1+23.111, $2+-2.222, $3+11.1, 1.812)
        pt3dadd($1+23.333, $2+-2.222, $3+11.1, 1.808)
        pt3dadd($1+23.556, $2+-2.222, $3+11.1, 1.804)
        pt3dadd($1+23.778, $2+-2.222, $3+11.1, 1.8)
        pt3dadd($1+24, $2+-2.222, $3+11.1, 1.796)
        pt3dadd($1+24.222, $2+-2.222, $3+11.1, 1.792)
        pt3dadd($1+24.444, $2+-2.444, $3+11.1, 1.788)
        pt3dadd($1+24.667, $2+-2.667, $3+11.1, 1.784)
        pt3dadd($1+24.889, $2+-2.889, $3+11.1, 1.78)
        pt3dadd($1+25.111, $2+-2.889, $3+11.1, 1.776)
        pt3dadd($1+25.333, $2+-2.889, $3+11.1, 1.772)
        pt3dadd($1+25.556, $2+-2.889, $3+11.1, 1.768)
        pt3dadd($1+25.778, $2+-2.889, $3+11.1, 1.764)
        pt3dadd($1+26, $2+-2.889, $3+11.1, 1.76)
        pt3dadd($1+26.222, $2+-2.889, $3+11.1, 1.756)
        pt3dadd($1+26.444, $2+-2.889, $3+11.1, 1.752)
        pt3dadd($1+26.667, $2+-2.889, $3+11.1, 1.748)
        pt3dadd($1+26.889, $2+-2.667, $3+11.1, 1.744)
        pt3dadd($1+27.111, $2+-2.667, $3+11.1, 1.74)
        pt3dadd($1+27.333, $2+-2.667, $3+11.1, 1.736)
        pt3dadd($1+27.556, $2+-2.667, $3+11.1, 1.732)
        pt3dadd($1+27.778, $2+-2.667, $3+11.1, 1.728)
        pt3dadd($1+28, $2+-2.667, $3+11.1, 1.724)
        pt3dadd($1+28.222, $2+-2.889, $3+11.1, 1.72)
        pt3dadd($1+28.444, $2+-2.889, $3+11.1, 1.716)
        pt3dadd($1+28.667, $2+-2.889, $3+11.1, 1.71)
        pt3dadd($1+28.889, $2+-2.889, $3+11.1, 1.706)
      }
      dend[7] {pt3dclear()
        pt3dadd($1+28.889, $2+-2.889, $3+11.1, 1.706)
        pt3dadd($1+29.111, $2+-2.889, $3+11.1, 1.702)
        pt3dadd($1+29.333, $2+-2.889, $3+11.1, 1.698)
        pt3dadd($1+29.556, $2+-2.889, $3+11.1, 1.694)
        pt3dadd($1+29.778, $2+-2.889, $3+11.1, 1.69)
        pt3dadd($1+30, $2+-2.889, $3+11.1, 1.686)
        pt3dadd($1+30.222, $2+-2.889, $3+11.1, 1.682)
        pt3dadd($1+30.444, $2+-2.889, $3+11.1, 1.678)
        pt3dadd($1+30.667, $2+-2.889, $3+11.1, 1.674)
        pt3dadd($1+30.889, $2+-2.889, $3+11.1, 1.67)
        pt3dadd($1+31.111, $2+-2.667, $3+11.1, 1.666)
        pt3dadd($1+31.333, $2+-2.667, $3+11.1, 1.662)
        pt3dadd($1+31.556, $2+-2.444, $3+11.1, 1.658)
        pt3dadd($1+31.778, $2+-2.444, $3+11.1, 1.654)
        pt3dadd($1+32, $2+-2.222, $3+11.1, 1.65)
        pt3dadd($1+32.222, $2+-2.222, $3+11.1, 1.646)
        pt3dadd($1+32.444, $2+-2.222, $3+11.1, 1.642)
        pt3dadd($1+32.667, $2+-2, $3+11.1, 1.638)
        pt3dadd($1+32.889, $2+-2, $3+11.1, 1.634)
        pt3dadd($1+33.111, $2+-2, $3+11.1, 1.63)
      }
      dend[8] {pt3dclear()
        pt3dadd($1+33.111, $2+-2, $3+11.1, 1.63)
        pt3dadd($1+33.333, $2+-2, $3+11.1, 1.626)
        pt3dadd($1+33.556, $2+-2.222, $3+11.1, 1.622)
        pt3dadd($1+33.778, $2+-2.444, $3+11.1, 1.618)
        pt3dadd($1+34, $2+-2.667, $3+11.1, 1.614)
        pt3dadd($1+34.222, $2+-2.889, $3+11.1, 1.61)
        pt3dadd($1+34.444, $2+-3.111, $3+11.1, 1.606)
        pt3dadd($1+34.667, $2+-3.333, $3+11.1, 1.602)
        pt3dadd($1+34.889, $2+-3.556, $3+11.1, 1.598)
        pt3dadd($1+35.111, $2+-3.778, $3+11.1, 1.592)
        pt3dadd($1+35.333, $2+-4, $3+11.1, 1.588)
        pt3dadd($1+35.333, $2+-4.222, $3+11.1, 1.584)
        pt3dadd($1+35.333, $2+-4.444, $3+11.1, 1.58)
        pt3dadd($1+35.556, $2+-4.667, $3+11.1, 1.576)
        pt3dadd($1+35.778, $2+-4.889, $3+11.1, 1.572)
        pt3dadd($1+36, $2+-5.111, $3+11.1, 1.568)
        pt3dadd($1+36.222, $2+-5.333, $3+11.1, 1.564)
        pt3dadd($1+36.444, $2+-5.556, $3+11.1, 1.56)
        pt3dadd($1+36.444, $2+-5.778, $3+11.1, 1.556)
        pt3dadd($1+36.667, $2+-6, $3+11.1, 1.552)
        pt3dadd($1+36.889, $2+-6.222, $3+11.1, 1.548)
      }
      dend[9] {pt3dclear()
        pt3dadd($1+36.889, $2+-6.222, $3+11.1, 1.548)
        pt3dadd($1+37.111, $2+-6.444, $3+11.1, 1.544)
        pt3dadd($1+37.333, $2+-6.444, $3+11.1, 1.54)
        pt3dadd($1+37.556, $2+-6.667, $3+11.1, 1.536)
      }
      dend[10] {pt3dclear()
        pt3dadd($1+37.556, $2+-6.667, $3+11.1, 1.536)
        pt3dadd($1+37.778, $2+-6.889, $3+11.1, 1.532)
        pt3dadd($1+38, $2+-6.889, $3+11.1, 1.528)
        pt3dadd($1+38.222, $2+-7.111, $3+11.1, 1.524)
        pt3dadd($1+38.444, $2+-7.111, $3+11.1, 1.52)
        pt3dadd($1+38.667, $2+-7.111, $3+11.1, 1.516)
        pt3dadd($1+38.889, $2+-7.333, $3+11.1, 1.512)
        pt3dadd($1+39.111, $2+-7.556, $3+11.1, 1.508)
        pt3dadd($1+39.333, $2+-7.556, $3+11.1, 1.504)
        pt3dadd($1+39.556, $2+-7.556, $3+11.1, 1.5)
        pt3dadd($1+39.778, $2+-7.556, $3+11.1, 1.496)
        pt3dadd($1+40, $2+-7.556, $3+11.1, 1.492)
        pt3dadd($1+40.222, $2+-7.556, $3+11.1, 1.488)
        pt3dadd($1+40.444, $2+-7.556, $3+11.1, 1.484)
        pt3dadd($1+40.667, $2+-7.778, $3+11.1, 1.478)
        pt3dadd($1+40.889, $2+-7.778, $3+11.1, 1.474)
        pt3dadd($1+41.111, $2+-8, $3+11.1, 1.47)
        pt3dadd($1+41.333, $2+-8, $3+11.1, 1.466)
        pt3dadd($1+41.556, $2+-8, $3+11.1, 1.462)
        pt3dadd($1+41.778, $2+-8, $3+11.1, 1.458)
        pt3dadd($1+42, $2+-8.222, $3+11.1, 1.454)
        pt3dadd($1+42.222, $2+-8.222, $3+11.1, 1.45)
        pt3dadd($1+42.444, $2+-8.222, $3+11.1, 1.446)
        pt3dadd($1+42.667, $2+-8.222, $3+11.1, 1.442)
        pt3dadd($1+42.889, $2+-8.222, $3+11.1, 1.438)
        pt3dadd($1+43.111, $2+-8.222, $3+11.1, 1.434)
      }
      dend[11] {pt3dclear()
        pt3dadd($1+43.111, $2+-8.222, $3+11.1, 1.434)
        pt3dadd($1+43.333, $2+-8.222, $3+11.1, 1.43)
        pt3dadd($1+43.556, $2+-8.222, $3+11.1, 1.426)
        pt3dadd($1+43.778, $2+-8.222, $3+11.1, 1.422)
        pt3dadd($1+44, $2+-8.222, $3+11.1, 1.418)
        pt3dadd($1+44.222, $2+-8.222, $3+11.1, 1.414)
        pt3dadd($1+44.444, $2+-8.222, $3+11.1, 1.41)
        pt3dadd($1+44.667, $2+-8.222, $3+11.1, 1.406)
        pt3dadd($1+44.889, $2+-8.222, $3+11.1, 1.402)
        pt3dadd($1+45.111, $2+-8.222, $3+11.1, 1.398)
        pt3dadd($1+45.333, $2+-8.222, $3+11.1, 1.394)
        pt3dadd($1+45.556, $2+-8.222, $3+11.1, 1.39)
        pt3dadd($1+45.778, $2+-8, $3+11.1, 1.386)
        pt3dadd($1+46, $2+-8, $3+11.1, 1.382)
        pt3dadd($1+46.222, $2+-7.778, $3+11.1, 1.378)
        pt3dadd($1+46.444, $2+-7.556, $3+11.1, 1.374)
        pt3dadd($1+46.667, $2+-7.333, $3+11.1, 1.37)
        pt3dadd($1+46.889, $2+-7.333, $3+11.1, 1.364)
        pt3dadd($1+47.111, $2+-7.333, $3+11.1, 1.36)
        pt3dadd($1+47.333, $2+-7.111, $3+11.1, 1.356)
      }
      dend[12] {pt3dclear()
        pt3dadd($1+47.333, $2+-7.111, $3+11.1, 1.356)
        pt3dadd($1+47.556, $2+-6.889, $3+11.1, 1.352)
        pt3dadd($1+47.778, $2+-6.667, $3+11.1, 1.348)
        pt3dadd($1+48, $2+-6.444, $3+11.1, 1.344)
        pt3dadd($1+48.222, $2+-6.222, $3+11.1, 1.34)
      }
    }
    proc shape3d_5() {
      dend[12] {	pt3dadd($1+48.444, $2+-6.222, $3+11.1, 1.336)
        pt3dadd($1+48.667, $2+-6.222, $3+11.1, 1.332)
        pt3dadd($1+48.889, $2+-6.222, $3+11.1, 1.328)
        pt3dadd($1+49.111, $2+-6, $3+11.1, 1.324)
      }
      dend[13] {pt3dclear()
        pt3dadd($1+49.111, $2+-6, $3+11.1, 1.324)
        pt3dadd($1+49.333, $2+-5.778, $3+11.1, 1.32)
        pt3dadd($1+49.556, $2+-5.778, $3+11.1, 1.316)
        pt3dadd($1+49.778, $2+-5.556, $3+11.1, 1.312)
        pt3dadd($1+50, $2+-5.556, $3+11.1, 1.308)
        pt3dadd($1+50.222, $2+-5.333, $3+11.1, 1.304)
      }
      dend[14] {pt3dclear()
        pt3dadd($1+50.222, $2+-5.333, $3+11.1, 1.304)
        pt3dadd($1+50.444, $2+-5.333, $3+11.1, 1.3)
        pt3dadd($1+50.667, $2+-5.333, $3+11.1, 1.296)
        pt3dadd($1+50.889, $2+-5.333, $3+11.1, 1.292)
        pt3dadd($1+51.111, $2+-5.333, $3+11.1, 1.288)
        pt3dadd($1+51.333, $2+-5.333, $3+11.1, 1.284)
      }
      dend[15] {pt3dclear()
        pt3dadd($1+51.333, $2+-5.333, $3+11.1, 1.284)
        pt3dadd($1+51.556, $2+-5.333, $3+11.1, 1.28)
        pt3dadd($1+51.778, $2+-5.333, $3+11.1, 1.276)
        pt3dadd($1+52, $2+-5.333, $3+11.1, 1.272)
        pt3dadd($1+52.222, $2+-5.333, $3+11.1, 1.268)
        pt3dadd($1+52.444, $2+-5.556, $3+11.1, 1.264)
        pt3dadd($1+52.667, $2+-5.778, $3+11.1, 1.26)
        pt3dadd($1+52.889, $2+-5.778, $3+11.1, 1.256)
        pt3dadd($1+53.111, $2+-6, $3+11.1, 1.252)
        pt3dadd($1+53.333, $2+-6.222, $3+11.1, 1.246)
        pt3dadd($1+53.556, $2+-6.444, $3+11.1, 1.242)
        pt3dadd($1+53.556, $2+-6.667, $3+11.1, 1.238)
        pt3dadd($1+53.778, $2+-6.889, $3+11.1, 1.234)
        pt3dadd($1+54, $2+-7.111, $3+11.1, 1.23)
        pt3dadd($1+54.222, $2+-7.333, $3+11.1, 1.226)
        pt3dadd($1+54.444, $2+-7.556, $3+11.1, 1.222)
        pt3dadd($1+54.444, $2+-7.778, $3+11.1, 1.218)
        pt3dadd($1+54.444, $2+-8, $3+11.1, 1.214)
        pt3dadd($1+54.667, $2+-8.222, $3+11.1, 1.21)
        pt3dadd($1+54.889, $2+-8.444, $3+11.1, 1.206)
        pt3dadd($1+55.111, $2+-8.667, $3+11.1, 1.202)
        pt3dadd($1+55.111, $2+-8.889, $3+11.1, 1.198)
        pt3dadd($1+55.333, $2+-9.111, $3+11.1, 1.194)
      }
      dend[16] {pt3dclear()
        pt3dadd($1+55.333, $2+-9.111, $3+11.1, 1.194)
        pt3dadd($1+55.333, $2+-9.333, $3+11.1, 1.19)
        pt3dadd($1+55.333, $2+-9.556, $3+11.1, 1.186)
        pt3dadd($1+55.333, $2+-9.778, $3+11.1, 1.182)
      }
      dend[17] {pt3dclear()
        pt3dadd($1+55.333, $2+-9.778, $3+11.1, 1.182)
        pt3dadd($1+55.333, $2+-10, $3+11.1, 1.178)
        pt3dadd($1+55.556, $2+-10.222, $3+11.1, 1.174)
        pt3dadd($1+55.778, $2+-10.444, $3+11.1, 1.17)
        pt3dadd($1+56, $2+-10.444, $3+11.1, 1.166)
        pt3dadd($1+56.222, $2+-10.444, $3+11.1, 1.162)
        pt3dadd($1+56.444, $2+-10.667, $3+11.1, 1.158)
        pt3dadd($1+56.444, $2+-10.889, $3+11.1, 1.154)
        pt3dadd($1+56.667, $2+-11.111, $3+11.1, 1.15)
        pt3dadd($1+56.889, $2+-11.333, $3+11.1, 1.146)
      }
      dend[18] {pt3dclear()
        pt3dadd($1+56.889, $2+-11.333, $3+11.1, 1.146)
        pt3dadd($1+57.111, $2+-11.556, $3+11.1, 1.142)
        pt3dadd($1+57.333, $2+-11.778, $3+11.1, 1.138)
        pt3dadd($1+57.556, $2+-11.778, $3+11.1, 1.132)
        pt3dadd($1+57.778, $2+-12, $3+11.1, 1.128)
        pt3dadd($1+58, $2+-12, $3+11.1, 1.124)
        pt3dadd($1+58.222, $2+-12, $3+11.1, 1.12)
        pt3dadd($1+58.444, $2+-12, $3+11.1, 1.116)
        pt3dadd($1+58.667, $2+-12, $3+11.1, 1.112)
        pt3dadd($1+58.889, $2+-12, $3+11.1, 1.108)
        pt3dadd($1+59.111, $2+-12, $3+11.1, 1.104)
        pt3dadd($1+59.333, $2+-12.222, $3+11.1, 1.1)
        pt3dadd($1+59.556, $2+-12.222, $3+11.1, 1.096)
        pt3dadd($1+59.778, $2+-12.222, $3+11.1, 1.092)
        pt3dadd($1+60, $2+-12.222, $3+11.1, 1.088)
        pt3dadd($1+60.222, $2+-12.444, $3+11.1, 1.084)
        pt3dadd($1+60.444, $2+-12.444, $3+11.1, 1.08)
        pt3dadd($1+60.667, $2+-12.444, $3+11.1, 1.076)
        pt3dadd($1+60.889, $2+-12.444, $3+11.1, 1.072)
        pt3dadd($1+61.111, $2+-12.444, $3+11.1, 1.068)
        pt3dadd($1+61.333, $2+-12.444, $3+11.1, 1.064)
        pt3dadd($1+61.556, $2+-12.444, $3+11.1, 1.06)
      }
      dend[19] {pt3dclear()
        pt3dadd($1+2.889, $2+-7.778, $3+11.1, 1.338)
        pt3dadd($1+2.889, $2+-7.778, $3+11.1, 1.056)
        pt3dadd($1+2.667, $2+-7.556, $3+11.1, 1.052)
        pt3dadd($1+2.444, $2+-7.333, $3+11.1, 1.048)
        pt3dadd($1+2.222, $2+-7.333, $3+11.1, 1.044)
        pt3dadd($1+2, $2+-7.111, $3+11.1, 1.04)
        pt3dadd($1+1.778, $2+-6.889, $3+11.1, 1.036)
        pt3dadd($1+1.778, $2+-6.667, $3+11.1, 1.032)
        pt3dadd($1+1.556, $2+-6.444, $3+11.1, 1.028)
        pt3dadd($1+1.556, $2+-6.222, $3+11.1, 1.024)
        pt3dadd($1+1.333, $2+-6, $3+11.1, 1.018)
        pt3dadd($1+1.111, $2+-5.778, $3+11.1, 1.014)
      }
      dend[20] {pt3dclear()
        pt3dadd($1+3.333, $2+-7.556, $3+11.1, 1.374)
        pt3dadd($1+3.333, $2+-7.556, $3+11.1, 1.01)
        pt3dadd($1+3.333, $2+-7.778, $3+11.1, 1.006)
        pt3dadd($1+3.333, $2+-8, $3+11.1, 1.002)
        pt3dadd($1+3.333, $2+-8.222, $3+11.1, 0.998)
        pt3dadd($1+3.333, $2+-8.444, $3+11.1, 0.994)
        pt3dadd($1+3.556, $2+-8.667, $3+11.1, 0.99)
        pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.986)
      }
      dend[21] {pt3dclear()
        pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.986)
        pt3dadd($1+4, $2+-9.111, $3+11.1, 0.982)
        pt3dadd($1+4, $2+-9.333, $3+11.1, 0.978)
        pt3dadd($1+4, $2+-9.556, $3+11.1, 0.974)
        pt3dadd($1+4, $2+-9.778, $3+11.1, 0.97)
        pt3dadd($1+4, $2+-10, $3+11.1, 0.966)
        pt3dadd($1+4.222, $2+-10.222, $3+11.1, 0.962)
        pt3dadd($1+4.444, $2+-10.444, $3+11.1, 0.958)
        pt3dadd($1+4.667, $2+-10.667, $3+11.1, 0.954)
        pt3dadd($1+4.889, $2+-10.667, $3+11.1, 0.95)
      }
      dend[22] {pt3dclear()
        pt3dadd($1+56.889, $2+-11.333, $3+11.1, 1.146)
        pt3dadd($1+56.889, $2+-11.333, $3+11.1, 0.946)
        pt3dadd($1+56.889, $2+-11.556, $3+11.1, 0.942)
        pt3dadd($1+56.667, $2+-11.778, $3+11.1, 0.938)
        pt3dadd($1+56.444, $2+-12, $3+11.1, 0.934)
        pt3dadd($1+56.444, $2+-12.222, $3+11.1, 0.93)
        pt3dadd($1+56.444, $2+-12.444, $3+11.1, 0.926)
        pt3dadd($1+56.444, $2+-12.667, $3+11.1, 0.922)
        pt3dadd($1+56.667, $2+-12.889, $3+11.1, 0.918)
        pt3dadd($1+56.889, $2+-13.111, $3+11.1, 0.914)
      }
      dend[23] {pt3dclear()
        pt3dadd($1+55.333, $2+-9.778, $3+11.1, 1.182)
        pt3dadd($1+55.333, $2+-9.778, $3+11.1, 0.91)
        pt3dadd($1+55.333, $2+-10, $3+11.1, 0.906)
        pt3dadd($1+55.111, $2+-10.222, $3+11.1, 0.9)
        pt3dadd($1+54.889, $2+-10.444, $3+11.1, 0.896)
        pt3dadd($1+54.667, $2+-10.667, $3+11.1, 0.892)
        pt3dadd($1+54.444, $2+-10.889, $3+11.1, 0.888)
        pt3dadd($1+54.444, $2+-11.111, $3+11.1, 0.884)
        pt3dadd($1+54.444, $2+-11.333, $3+11.1, 0.88)
      }
      dend[24] {pt3dclear()
        pt3dadd($1+54.444, $2+-11.333, $3+11.1, 0.88)
        pt3dadd($1+54.444, $2+-11.556, $3+11.1, 0.876)
        pt3dadd($1+54.444, $2+-11.778, $3+11.1, 0.872)
        pt3dadd($1+54.444, $2+-12, $3+11.1, 0.868)
        pt3dadd($1+54.444, $2+-12.222, $3+11.1, 0.864)
        pt3dadd($1+54.444, $2+-12.444, $3+11.1, 0.86)
        pt3dadd($1+54.444, $2+-12.667, $3+11.1, 0.856)
        pt3dadd($1+54.222, $2+-12.889, $3+11.1, 0.852)
        pt3dadd($1+54.222, $2+-13.111, $3+11.1, 0.848)
        pt3dadd($1+54.222, $2+-13.333, $3+11.1, 0.844)
        pt3dadd($1+54.222, $2+-13.556, $3+11.1, 0.84)
        pt3dadd($1+54.222, $2+-13.778, $3+11.1, 0.836)
        pt3dadd($1+54, $2+-14, $3+11.1, 0.832)
        pt3dadd($1+53.778, $2+-14.222, $3+11.1, 0.828)
        pt3dadd($1+53.556, $2+-14.444, $3+11.1, 0.824)
        pt3dadd($1+53.333, $2+-14.667, $3+11.1, 0.82)
        pt3dadd($1+53.111, $2+-14.889, $3+11.1, 0.816)
        pt3dadd($1+53.111, $2+-15.111, $3+11.1, 0.812)
        pt3dadd($1+53.111, $2+-15.333, $3+11.1, 0.808)
        pt3dadd($1+53.111, $2+-15.556, $3+11.1, 0.804)
      }
      dend[25] {pt3dclear()
        pt3dadd($1+55.333, $2+-9.111, $3+11.1, 1.194)
        pt3dadd($1+55.333, $2+-9.111, $3+11.1, 0.8)
        pt3dadd($1+55.556, $2+-9.111, $3+11.1, 0.796)
        pt3dadd($1+55.778, $2+-9.111, $3+11.1, 0.792)
        pt3dadd($1+56, $2+-8.889, $3+11.1, 0.786)
        pt3dadd($1+56.222, $2+-8.667, $3+11.1, 0.782)
        pt3dadd($1+56.444, $2+-8.444, $3+11.1, 0.778)
        pt3dadd($1+56.667, $2+-8.222, $3+11.1, 0.774)
        pt3dadd($1+56.889, $2+-8.222, $3+11.1, 0.77)
        pt3dadd($1+57.111, $2+-8.222, $3+11.1, 0.766)
        pt3dadd($1+57.333, $2+-8, $3+11.1, 0.762)
        pt3dadd($1+57.556, $2+-7.778, $3+11.1, 0.758)
        pt3dadd($1+57.778, $2+-7.556, $3+11.1, 0.754)
        pt3dadd($1+57.778, $2+-7.333, $3+11.1, 0.75)
        pt3dadd($1+57.778, $2+-7.111, $3+11.1, 0.746)
        pt3dadd($1+57.778, $2+-6.889, $3+11.1, 0.742)
        pt3dadd($1+57.778, $2+-6.667, $3+11.1, 0.738)
      }
      dend[26] {pt3dclear()
        pt3dadd($1+57.778, $2+-6.667, $3+11.1, 0.738)
        pt3dadd($1+57.778, $2+-6.444, $3+11.1, 0.734)
        pt3dadd($1+57.556, $2+-6.222, $3+11.1, 0.73)
        pt3dadd($1+57.333, $2+-6, $3+11.1, 0.726)
        pt3dadd($1+57.111, $2+-6, $3+11.1, 0.722)
        pt3dadd($1+56.889, $2+-5.778, $3+11.1, 0.718)
      }
      dend[27] {pt3dclear()
        pt3dadd($1+51.333, $2+-5.333, $3+11.1, 1.284)
        pt3dadd($1+51.333, $2+-5.333, $3+11.1, 0.714)
        pt3dadd($1+51.333, $2+-5.111, $3+11.1, 0.71)
        pt3dadd($1+51.333, $2+-4.889, $3+11.1, 0.706)
        pt3dadd($1+51.333, $2+-4.667, $3+11.1, 0.702)
        pt3dadd($1+51.333, $2+-4.444, $3+11.1, 0.698)
        pt3dadd($1+51.556, $2+-4.222, $3+11.1, 0.694)
        pt3dadd($1+51.556, $2+-4, $3+11.1, 0.69)
        pt3dadd($1+51.556, $2+-3.778, $3+11.1, 0.686)
        pt3dadd($1+51.778, $2+-3.556, $3+11.1, 0.682)
        pt3dadd($1+52, $2+-3.333, $3+11.1, 0.678)
      }
      dend[28] {pt3dclear()
        pt3dadd($1+50.222, $2+-5.333, $3+11.1, 1.304)
        pt3dadd($1+50.222, $2+-5.333, $3+11.1, 0.672)
        pt3dadd($1+50.222, $2+-5.111, $3+11.1, 0.668)
        pt3dadd($1+50.222, $2+-4.889, $3+11.1, 0.664)
        pt3dadd($1+50.222, $2+-4.667, $3+11.1, 0.66)
        pt3dadd($1+50.222, $2+-4.444, $3+11.1, 0.656)
        pt3dadd($1+50, $2+-4.222, $3+11.1, 0.652)
        pt3dadd($1+50, $2+-4, $3+11.1, 0.648)
        pt3dadd($1+49.778, $2+-3.778, $3+11.1, 0.644)
        pt3dadd($1+49.556, $2+-3.556, $3+11.1, 0.64)
        pt3dadd($1+49.333, $2+-3.333, $3+11.1, 0.636)
        pt3dadd($1+49.111, $2+-3.111, $3+11.1, 0.632)
        pt3dadd($1+48.889, $2+-3.111, $3+11.1, 0.628)
        pt3dadd($1+48.667, $2+-2.889, $3+11.1, 0.624)
        pt3dadd($1+48.444, $2+-2.889, $3+11.1, 0.62)
        pt3dadd($1+48.444, $2+-2.667, $3+11.1, 0.616)
        pt3dadd($1+48.667, $2+-2.444, $3+11.1, 0.612)
        pt3dadd($1+48.889, $2+-2.222, $3+11.1, 0.608)
        pt3dadd($1+48.889, $2+-2, $3+11.1, 0.604)
        pt3dadd($1+48.889, $2+-1.778, $3+11.1, 0.6)
        pt3dadd($1+48.667, $2+-1.556, $3+11.1, 0.596)
        pt3dadd($1+48.444, $2+-1.556, $3+11.1, 0.592)
      }
    }
    proc shape3d_6() {
      dend[28] {  }
      dend[29] {pt3dclear()
        pt3dadd($1+49.111, $2+-6, $3+11.1, 1.324)
        pt3dadd($1+49.111, $2+-6, $3+11.1, 0.588)
        pt3dadd($1+48.889, $2+-5.778, $3+11.1, 0.584)
        pt3dadd($1+48.667, $2+-5.556, $3+11.1, 0.58)
        pt3dadd($1+48.444, $2+-5.556, $3+11.1, 0.576)
        pt3dadd($1+48.222, $2+-5.556, $3+11.1, 0.572)
        pt3dadd($1+48, $2+-5.333, $3+11.1, 0.568)
        pt3dadd($1+47.778, $2+-5.333, $3+11.1, 0.564)
        pt3dadd($1+47.556, $2+-5.333, $3+11.1, 0.56)
        pt3dadd($1+47.333, $2+-5.111, $3+11.1, 0.554)
        pt3dadd($1+47.111, $2+-4.889, $3+11.1, 0.55)
        pt3dadd($1+47.111, $2+-4.667, $3+11.1, 0.546)
      }
      dend[30] {pt3dclear()
        pt3dadd($1+47.333, $2+-7.111, $3+11.1, 1.356)
        pt3dadd($1+47.333, $2+-7.111, $3+11.1, 0.542)
        pt3dadd($1+47.111, $2+-7.111, $3+11.1, 0.538)
        pt3dadd($1+46.889, $2+-6.889, $3+11.1, 0.534)
        pt3dadd($1+46.889, $2+-6.667, $3+11.1, 0.53)
        pt3dadd($1+46.667, $2+-6.444, $3+11.1, 0.526)
        pt3dadd($1+46.444, $2+-6.444, $3+11.1, 0.522)
        pt3dadd($1+46.222, $2+-6.667, $3+11.1, 0.518)
        pt3dadd($1+46, $2+-6.667, $3+11.1, 0.514)
        pt3dadd($1+45.778, $2+-6.667, $3+11.1, 0.51)
        pt3dadd($1+45.556, $2+-6.667, $3+11.1, 0.506)
        pt3dadd($1+45.333, $2+-6.444, $3+11.1, 0.502)
        pt3dadd($1+45.111, $2+-6.222, $3+11.1, 0.498)
        pt3dadd($1+44.889, $2+-6.222, $3+11.1, 0.494)
        pt3dadd($1+44.667, $2+-6.222, $3+11.1, 0.49)
        pt3dadd($1+44.444, $2+-6.444, $3+11.1, 0.486)
        pt3dadd($1+44.222, $2+-6.667, $3+11.1, 0.482)
        pt3dadd($1+44.222, $2+-6.889, $3+11.1, 0.478)
      }
      dend[31] {pt3dclear()
        pt3dadd($1+43.111, $2+-8.222, $3+11.1, 1.434)
        pt3dadd($1+43.111, $2+-8.222, $3+11.1, 0.474)
        pt3dadd($1+43.111, $2+-8.444, $3+11.1, 0.47)
        pt3dadd($1+43.333, $2+-8.667, $3+11.1, 0.466)
        pt3dadd($1+43.556, $2+-8.889, $3+11.1, 0.462)
        pt3dadd($1+43.778, $2+-9.111, $3+11.1, 0.458)
        pt3dadd($1+44, $2+-9.333, $3+11.1, 0.454)
        pt3dadd($1+44.222, $2+-9.333, $3+11.1, 0.45)
        pt3dadd($1+44.444, $2+-9.556, $3+11.1, 0.446)
        pt3dadd($1+44.667, $2+-9.556, $3+11.1, 0.44)
        pt3dadd($1+44.889, $2+-9.556, $3+11.1, 0.436)
        pt3dadd($1+45.111, $2+-9.556, $3+11.1, 0.432)
        pt3dadd($1+45.333, $2+-9.556, $3+11.1, 0.428)
        pt3dadd($1+45.556, $2+-9.556, $3+11.1, 0.424)
        pt3dadd($1+45.778, $2+-9.778, $3+11.1, 0.42)
        pt3dadd($1+46, $2+-10, $3+11.1, 0.416)
        pt3dadd($1+46.222, $2+-10.222, $3+11.1, 0.412)
        pt3dadd($1+46.444, $2+-10.444, $3+11.1, 0.408)
        pt3dadd($1+46.667, $2+-10.667, $3+11.1, 0.404)
        pt3dadd($1+46.889, $2+-10.889, $3+11.1, 0.4)
        pt3dadd($1+47.111, $2+-11.111, $3+11.1, 0.396)
        pt3dadd($1+47.111, $2+-11.333, $3+11.1, 0.392)
        pt3dadd($1+47.333, $2+-11.556, $3+11.1, 0.388)
        pt3dadd($1+47.333, $2+-11.778, $3+11.1, 0.384)
        pt3dadd($1+47.333, $2+-12, $3+11.1, 0.38)
        pt3dadd($1+47.333, $2+-12.222, $3+11.1, 0.376)
        pt3dadd($1+47.333, $2+-12.444, $3+11.1, 0.372)
        pt3dadd($1+47.111, $2+-12.667, $3+11.1, 0.368)
        pt3dadd($1+46.889, $2+-12.889, $3+11.1, 0.364)
        pt3dadd($1+46.667, $2+-13.111, $3+11.1, 0.36)
        pt3dadd($1+46.444, $2+-13.111, $3+11.1, 0.356)
        pt3dadd($1+46.222, $2+-13.333, $3+11.1, 0.352)
        pt3dadd($1+46, $2+-13.333, $3+11.1, 0.348)
        pt3dadd($1+45.778, $2+-13.333, $3+11.1, 0.344)
        pt3dadd($1+45.556, $2+-13.333, $3+11.1, 0.34)
        pt3dadd($1+45.333, $2+-13.556, $3+11.1, 0.336)
        pt3dadd($1+45.111, $2+-13.778, $3+11.1, 0.332)
        pt3dadd($1+44.889, $2+-14, $3+11.1, 0.326)
        pt3dadd($1+44.889, $2+-14.222, $3+11.1, 0.322)
        pt3dadd($1+44.667, $2+-14, $3+11.1, 0.318)
        pt3dadd($1+44.444, $2+-13.778, $3+11.1, 0.314)
        pt3dadd($1+44.444, $2+-13.556, $3+11.1, 0.31)
        pt3dadd($1+44.667, $2+-13.333, $3+11.1, 0.306)
        pt3dadd($1+44.667, $2+-13.111, $3+11.1, 0.302)
        pt3dadd($1+44.667, $2+-12.889, $3+11.1, 0.298)
        pt3dadd($1+44.889, $2+-12.667, $3+11.1, 0.294)
        pt3dadd($1+45.111, $2+-12.444, $3+11.1, 0.29)
        pt3dadd($1+45.333, $2+-12.222, $3+11.1, 0.286)
        pt3dadd($1+45.333, $2+-12, $3+11.1, 0.282)
        pt3dadd($1+45.111, $2+-11.778, $3+11.1, 0.278)
        pt3dadd($1+45.111, $2+-11.556, $3+11.1, 0.274)
        pt3dadd($1+45.333, $2+-11.333, $3+11.1, 0.27)
      }
      dend[32] {pt3dclear()
        pt3dadd($1+37.556, $2+-6.667, $3+11.1, 1.536)
        pt3dadd($1+37.556, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-7.111, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-7.333, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-7.556, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-7.778, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-8, $3+11.1, 0.27)
      }
      dend[33] {pt3dclear()
        pt3dadd($1+37.778, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-9.111, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+-9.333, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+-9.556, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-10, $3+11.1, 0.27)
      }
      dend[34] {pt3dclear()
        pt3dadd($1+38.667, $2+-10, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-10.222, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-10.667, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-12.222, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-12.444, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-12.889, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-13.556, $3+11.1, 0.27)
      }
      dend[35] {pt3dclear()
        pt3dadd($1+36.889, $2+-6.222, $3+11.1, 1.548)
        pt3dadd($1+36.889, $2+-6.222, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+-6.222, $3+11.1, 0.27)
        pt3dadd($1+37.333, $2+-6.222, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-6.222, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-6, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-5.778, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+-5.556, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-5.333, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-5.111, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-4.889, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-4.667, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-4.444, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-4.222, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-4, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-3.778, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-3.556, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-3.333, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+40, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+40.222, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+40.444, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+40.667, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+40.889, $2+-2.889, $3+11.1, 0.27)
        pt3dadd($1+41.111, $2+-2.667, $3+11.1, 0.27)
        pt3dadd($1+41.333, $2+-2.444, $3+11.1, 0.27)
        pt3dadd($1+41.556, $2+-2.222, $3+11.1, 0.27)
        pt3dadd($1+41.778, $2+-2, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-1.778, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-1.556, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-1.333, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-1.111, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+-0.889, $3+11.1, 0.27)
        pt3dadd($1+42.667, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+42.889, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+43.778, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-0.444, $3+11.1, 0.27)
      }
      dend[36] {pt3dclear()
        pt3dadd($1+44, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+44.222, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+44.444, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+44.667, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+44.889, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+45.111, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+45.333, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+45.556, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+45.778, $2+-0.667, $3+11.1, 0.27)
      }
      dend[37] {pt3dclear()
        pt3dadd($1+33.111, $2+-2, $3+11.1, 1.63)
        pt3dadd($1+33.111, $2+-2, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-1.778, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-1.556, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-1.333, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-1.333, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+-1.333, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-1.111, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-0.889, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+34.889, $2+-0.222, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+0, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+0.222, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+0.444, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+0.667, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+0.889, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+1.333, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+1.556, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+1.778, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+2, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+2, $3+11.1, 0.27)
        pt3dadd($1+36, $2+2, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+2, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+2.222, $3+11.1, 0.27)
      }
      dend[38] {pt3dclear()
        pt3dadd($1+36.444, $2+2.222, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+2.444, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+2.667, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+2.889, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+3.111, $3+11.1, 0.27)
        pt3dadd($1+37.333, $2+3.333, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+3.333, $3+11.1, 0.27)
      }
    }
    proc shape3d_7() {
      dend[38] {	pt3dadd($1+37.778, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+38, $2+3.778, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+4, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+4.444, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+4.667, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+5.111, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+5.111, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+5.333, $3+11.1, 0.27)
      }
      dend[39] {pt3dclear()
        pt3dadd($1+39.333, $2+5.333, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+5.778, $3+11.1, 0.27)
        pt3dadd($1+40, $2+6, $3+11.1, 0.27)
        pt3dadd($1+40, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+40, $2+6.444, $3+11.1, 0.27)
        pt3dadd($1+40, $2+6.667, $3+11.1, 0.27)
        pt3dadd($1+40, $2+6.889, $3+11.1, 0.27)
      }
      dend[40] {pt3dclear()
        pt3dadd($1+36.889, $2+-6.222, $3+11.1, 1.548)
        pt3dadd($1+36.889, $2+-6.222, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+36, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+34.889, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-7.111, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-7.333, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-7.556, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-7.778, $3+11.1, 0.27)
      }
      dend[41] {pt3dclear()
        pt3dadd($1+32.889, $2+-7.778, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-9.111, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-9.333, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-9.556, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-10, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-10.222, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-10.667, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-12.222, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-12.222, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-12.444, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
      }
      dend[42] {pt3dclear()
        pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-12.889, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+34.889, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-12.889, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-12.889, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+36, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+-13.111, $3+11.1, 0.27)
      }
      dend[43] {pt3dclear()
        pt3dadd($1+28.889, $2+-2.889, $3+11.1, 1.706)
        pt3dadd($1+28.889, $2+-2.889, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-3.333, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-3.556, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-3.778, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-4, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-4.222, $3+11.1, 0.27)
      }
      dend[44] {pt3dclear()
        pt3dadd($1+28.889, $2+-4.222, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+-4.444, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-4.444, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-4.667, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-4.444, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-4.667, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-4.889, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-5.111, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-5.333, $3+11.1, 0.27)
      }
      dend[45] {pt3dclear()
        pt3dadd($1+28.889, $2+-2.889, $3+11.1, 1.706)
        pt3dadd($1+28.889, $2+-2.889, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+-2.667, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-2.444, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-2.222, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-2, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-1.778, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-1.556, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-1.556, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+-1.556, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+-1.333, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+-1.111, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+-0.889, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+-0.667, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-0.222, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+0, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+0.222, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+0.444, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+0.667, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+0.889, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+26.444, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+26, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+25.778, $2+1.333, $3+11.1, 0.27)
        pt3dadd($1+25.556, $2+1.556, $3+11.1, 0.27)
        pt3dadd($1+25.333, $2+1.778, $3+11.1, 0.27)
        pt3dadd($1+25.111, $2+2, $3+11.1, 0.27)
      }
      dend[46] {pt3dclear()
        pt3dadd($1+20.667, $2+-0.222, $3+11.1, 1.858)
        pt3dadd($1+20.667, $2+-0.222, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+0, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+0.222, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+0.444, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+0.667, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+0.889, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+1.333, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+1.556, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+1.778, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+2, $3+11.1, 0.27)
        pt3dadd($1+21.333, $2+2.222, $3+11.1, 0.27)
      }
      dend[47] {pt3dclear()
        pt3dadd($1+21.333, $2+2.222, $3+11.1, 0.27)
        pt3dadd($1+21.556, $2+2.444, $3+11.1, 0.27)
        pt3dadd($1+21.778, $2+2.444, $3+11.1, 0.27)
        pt3dadd($1+22, $2+2.444, $3+11.1, 0.27)
        pt3dadd($1+22.222, $2+2.444, $3+11.1, 0.27)
        pt3dadd($1+22.444, $2+2.667, $3+11.1, 0.27)
        pt3dadd($1+22.667, $2+2.889, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+3.111, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+3.333, $3+11.1, 0.27)
        pt3dadd($1+23.333, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+23.556, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+23.778, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+24, $2+3.778, $3+11.1, 0.27)
        pt3dadd($1+24.222, $2+3.778, $3+11.1, 0.27)
        pt3dadd($1+24.444, $2+3.778, $3+11.1, 0.27)
        pt3dadd($1+24.667, $2+4, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+4, $3+11.1, 0.27)
        pt3dadd($1+25.111, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+25.333, $2+4.444, $3+11.1, 0.27)
        pt3dadd($1+25.556, $2+4.667, $3+11.1, 0.27)
        pt3dadd($1+25.778, $2+4.889, $3+11.1, 0.27)
      }
      dend[48] {pt3dclear()
        pt3dadd($1+25.778, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+26, $2+5.111, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+5.111, $3+11.1, 0.27)
        pt3dadd($1+26.444, $2+5.333, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+5.556, $3+11.1, 0.27)
      }
      dend[49] {pt3dclear()
        pt3dadd($1+26.667, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+5.778, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+6, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+6.222, $3+11.1, 0.27)
      }
      dend[50] {pt3dclear()
        pt3dadd($1+27.333, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+28, $2+6.444, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+6.444, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+6.667, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+6.889, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+6.889, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+7.111, $3+11.1, 0.27)
      }
      dend[51] {pt3dclear()
        pt3dadd($1+29.111, $2+7.111, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+7.333, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+7.556, $3+11.1, 0.27)
        pt3dadd($1+29.778, $2+7.778, $3+11.1, 0.27)
        pt3dadd($1+30, $2+7.778, $3+11.1, 0.27)
        pt3dadd($1+30.222, $2+7.778, $3+11.1, 0.27)
        pt3dadd($1+30.444, $2+7.778, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+7.778, $3+11.1, 0.27)
        pt3dadd($1+30.889, $2+8, $3+11.1, 0.27)
        pt3dadd($1+31.111, $2+8.222, $3+11.1, 0.27)
        pt3dadd($1+31.333, $2+8.444, $3+11.1, 0.27)
        pt3dadd($1+31.556, $2+8.667, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+8.889, $3+11.1, 0.27)
        pt3dadd($1+32, $2+9.111, $3+11.1, 0.27)
      }
      dend[52] {pt3dclear()
        pt3dadd($1+32, $2+9.111, $3+11.1, 0.27)
        pt3dadd($1+32.222, $2+9.111, $3+11.1, 0.27)
        pt3dadd($1+32.444, $2+9.333, $3+11.1, 0.27)
        pt3dadd($1+32.667, $2+9.333, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+9.333, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+9.556, $3+11.1, 0.27)
      }
    }
    proc shape3d_8() {
      dend[52] {	pt3dadd($1+33.333, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+34, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+9.778, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+10, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+10.222, $3+11.1, 0.27)
        pt3dadd($1+34.889, $2+10.444, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+10.667, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+10.889, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+10.889, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+10.889, $3+11.1, 0.27)
        pt3dadd($1+36, $2+10.889, $3+11.1, 0.27)
      }
      dend[53] {pt3dclear()
        pt3dadd($1+22, $2+-1.111, $3+11.1, 1.834)
        pt3dadd($1+22, $2+-1.111, $3+11.1, 0.27)
        pt3dadd($1+21.778, $2+-1.333, $3+11.1, 0.27)
        pt3dadd($1+21.556, $2+-1.556, $3+11.1, 0.27)
        pt3dadd($1+21.556, $2+-1.778, $3+11.1, 0.27)
        pt3dadd($1+21.333, $2+-2, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+-2.222, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+-2.444, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+-2.667, $3+11.1, 0.27)
        pt3dadd($1+20.444, $2+-2.889, $3+11.1, 0.27)
        pt3dadd($1+20.222, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+20.222, $2+-3.333, $3+11.1, 0.27)
        pt3dadd($1+20.222, $2+-3.556, $3+11.1, 0.27)
        pt3dadd($1+20, $2+-3.778, $3+11.1, 0.27)
        pt3dadd($1+19.778, $2+-4, $3+11.1, 0.27)
        pt3dadd($1+19.556, $2+-4.222, $3+11.1, 0.27)
        pt3dadd($1+19.556, $2+-4.444, $3+11.1, 0.27)
        pt3dadd($1+19.556, $2+-4.667, $3+11.1, 0.27)
        pt3dadd($1+19.556, $2+-4.889, $3+11.1, 0.27)
        pt3dadd($1+19.556, $2+-5.111, $3+11.1, 0.27)
      }
      dend[54] {pt3dclear()
        pt3dadd($1+22.889, $2+-2, $3+11.1, 1.816)
        pt3dadd($1+22.889, $2+-2, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-2.222, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-2.444, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-2.667, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-2.889, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-3.111, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-3.333, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-3.556, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-3.778, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-4, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+-4.222, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+-4.444, $3+11.1, 0.27)
        pt3dadd($1+23.333, $2+-4.667, $3+11.1, 0.27)
        pt3dadd($1+23.333, $2+-4.889, $3+11.1, 0.27)
        pt3dadd($1+23.556, $2+-5.111, $3+11.1, 0.27)
        pt3dadd($1+23.778, $2+-5.333, $3+11.1, 0.27)
        pt3dadd($1+24, $2+-5.556, $3+11.1, 0.27)
        pt3dadd($1+24.222, $2+-5.778, $3+11.1, 0.27)
        pt3dadd($1+24.444, $2+-5.778, $3+11.1, 0.27)
        pt3dadd($1+24.667, $2+-5.778, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+-6, $3+11.1, 0.27)
        pt3dadd($1+25.111, $2+-6.222, $3+11.1, 0.27)
        pt3dadd($1+25.333, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+25.556, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+25.778, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+26, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+26.444, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+-7.111, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+-7.333, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+-7.556, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+-7.778, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-8.444, $3+11.1, 0.27)
      }
      dend[55] {pt3dclear()
        pt3dadd($1+27.556, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-9.111, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-9.333, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-9.556, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-10, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-10.222, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-10.667, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-10.889, $3+11.1, 0.27)
      }
      dend[56] {pt3dclear()
        pt3dadd($1+28, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-12.222, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-12.444, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-12.889, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-13.556, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-13.778, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-14, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-14.222, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-14.444, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-14.667, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-14.889, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-15.111, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-15.333, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-15.556, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-15.778, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-16.222, $3+11.1, 0.27)
      }
      dend[57] {pt3dclear()
        pt3dadd($1+28, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-17.556, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+-18, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+-18.222, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+-18.444, $3+11.1, 0.27)
        pt3dadd($1+29.778, $2+-18.667, $3+11.1, 0.27)
        pt3dadd($1+29.778, $2+-18.889, $3+11.1, 0.27)
        pt3dadd($1+30, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+30.222, $2+-19.333, $3+11.1, 0.27)
      }
      dend[58] {pt3dclear()
        pt3dadd($1+30.222, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+30.444, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-20.222, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-21.111, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-21.333, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-21.556, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-21.778, $3+11.1, 0.27)
        pt3dadd($1+30.889, $2+-22, $3+11.1, 0.27)
        pt3dadd($1+31.111, $2+-22.222, $3+11.1, 0.27)
        pt3dadd($1+31.333, $2+-22.444, $3+11.1, 0.27)
        pt3dadd($1+31.333, $2+-22.667, $3+11.1, 0.27)
        pt3dadd($1+31.556, $2+-22.889, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+32, $2+-23.333, $3+11.1, 0.27)
        pt3dadd($1+32.222, $2+-23.556, $3+11.1, 0.27)
        pt3dadd($1+32.444, $2+-23.556, $3+11.1, 0.27)
      }
      dend[59] {pt3dclear()
        pt3dadd($1+32.444, $2+-23.556, $3+11.1, 0.27)
        pt3dadd($1+32.667, $2+-23.778, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-24, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-24.222, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-24.444, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-24.667, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-24.889, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-25.111, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-25.333, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-25.556, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-25.778, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+-26, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-26.222, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-26.444, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-26.667, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-26.889, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-27.111, $3+11.1, 0.27)
      }
      dend[60] {pt3dclear()
        pt3dadd($1+34.667, $2+-27.111, $3+11.1, 0.27)
        pt3dadd($1+34.889, $2+-27.333, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-27.556, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-27.778, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-28, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+-28.222, $3+11.1, 0.27)
        pt3dadd($1+36, $2+-28.444, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+-28.444, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-28.444, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-28.667, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+-28.667, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+-28.889, $3+11.1, 0.27)
        pt3dadd($1+37.333, $2+-29.111, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-29.111, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-29.333, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-29.556, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+-29.778, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-29.778, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-29.778, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-30, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-30.222, $3+11.1, 0.27)
      }
      dend[61] {pt3dclear()
        pt3dadd($1+39.111, $2+-30.222, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-30.222, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-30.222, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-30.222, $3+11.1, 0.27)
        pt3dadd($1+40, $2+-30, $3+11.1, 0.27)
        pt3dadd($1+40.222, $2+-30, $3+11.1, 0.27)
        pt3dadd($1+40.444, $2+-29.778, $3+11.1, 0.27)
        pt3dadd($1+40.667, $2+-29.778, $3+11.1, 0.27)
        pt3dadd($1+40.889, $2+-29.778, $3+11.1, 0.27)
        pt3dadd($1+41.111, $2+-29.556, $3+11.1, 0.27)
        pt3dadd($1+41.333, $2+-29.556, $3+11.1, 0.27)
        pt3dadd($1+41.556, $2+-29.556, $3+11.1, 0.27)
        pt3dadd($1+41.778, $2+-29.556, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-29.333, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-29.111, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-28.889, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+-28.667, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+-28.444, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-28.222, $3+11.1, 0.27)
      }
    }
    proc shape3d_9() {
      dend[61] {	pt3dadd($1+42, $2+-28, $3+11.1, 0.27)
        pt3dadd($1+41.778, $2+-27.778, $3+11.1, 0.27)
        pt3dadd($1+41.556, $2+-27.556, $3+11.1, 0.27)
        pt3dadd($1+41.556, $2+-27.333, $3+11.1, 0.27)
        pt3dadd($1+41.556, $2+-27.111, $3+11.1, 0.27)
        pt3dadd($1+41.778, $2+-26.889, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-26.889, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-26.889, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+-26.889, $3+11.1, 0.27)
        pt3dadd($1+42.667, $2+-26.889, $3+11.1, 0.27)
        pt3dadd($1+42.889, $2+-27.111, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-27.111, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+-26.889, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-26.667, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-26.444, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-26.222, $3+11.1, 0.27)
      }
      dend[62] {pt3dclear()
        pt3dadd($1+43.556, $2+-26.222, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-26, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+-25.778, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+-25.556, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+-25.333, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+-25.111, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+-24.889, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-24.667, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-24.444, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-24.222, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-24, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-23.778, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-23.556, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-23.333, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+43.778, $2+-22.889, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-22.667, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-22.444, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-22.222, $3+11.1, 0.27)
        pt3dadd($1+43.778, $2+-22, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-21.778, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-21.556, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-21.333, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-21.111, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+43.778, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+43.778, $2+-20.222, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+44.222, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+44.444, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+44.667, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+44.889, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+45.111, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+45.333, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+45.556, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+45.778, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+46, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+46.222, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+46.444, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+46.667, $2+-20, $3+11.1, 0.27)
      }
      dend[63] {pt3dclear()
        pt3dadd($1+46.667, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+46.889, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+47.111, $2+-20, $3+11.1, 0.27)
      }
      dend[64] {pt3dclear()
        pt3dadd($1+47.111, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+47.333, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+47.556, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+47.778, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+48, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+48.222, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+48.444, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+48.667, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+48.889, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+49.111, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+49.333, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+49.556, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+49.778, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+50, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+50.222, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+50.444, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+50.889, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+51.111, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+51.333, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+51.333, $2+-18.889, $3+11.1, 0.27)
        pt3dadd($1+51.333, $2+-18.667, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-18.444, $3+11.1, 0.27)
        pt3dadd($1+51.778, $2+-18.222, $3+11.1, 0.27)
        pt3dadd($1+52, $2+-18, $3+11.1, 0.27)
        pt3dadd($1+52.222, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+52.222, $2+-17.556, $3+11.1, 0.27)
        pt3dadd($1+52.222, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+52.444, $2+-17.111, $3+11.1, 0.27)
      }
      dend[65] {pt3dclear()
        pt3dadd($1+52.444, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+52.667, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+52.889, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+53.111, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+53.333, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+53.556, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+53.778, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+54, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+54.222, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+54.444, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+54.667, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+54.889, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+55.111, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+55.333, $2+-16.222, $3+11.1, 0.27)
      }
      dend[66] {pt3dclear()
        pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.986)
        pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+4, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+4.222, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+4.444, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+4.667, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+4.889, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+5.111, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+5.333, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+5.556, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+5.778, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+6, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+6.222, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+6.444, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+6.667, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+6.444, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+6.222, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+6, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+5.778, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+5.556, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+5.333, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+5.111, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+4.889, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+4.667, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+4.444, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+4.222, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+4, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.27)
      }
      dend[67] {pt3dclear()
        pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.986)
        pt3dadd($1+3.778, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+3.556, $2+-9.111, $3+11.1, 0.27)
        pt3dadd($1+3.556, $2+-9.333, $3+11.1, 0.27)
        pt3dadd($1+3.556, $2+-9.556, $3+11.1, 0.27)
        pt3dadd($1+3.333, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+3.333, $2+-10, $3+11.1, 0.27)
        pt3dadd($1+3.333, $2+-10.222, $3+11.1, 0.27)
        pt3dadd($1+3.111, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+3.111, $2+-10.667, $3+11.1, 0.27)
        pt3dadd($1+3.111, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+3.111, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+3.111, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+3.111, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+2.889, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+2.667, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+2.667, $2+-12.222, $3+11.1, 0.27)
        pt3dadd($1+2.444, $2+-12.444, $3+11.1, 0.27)
        pt3dadd($1+2.444, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+2.444, $2+-12.889, $3+11.1, 0.27)
        pt3dadd($1+2.444, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+2.667, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+2.889, $2+-13.556, $3+11.1, 0.27)
        pt3dadd($1+3.111, $2+-13.556, $3+11.1, 0.27)
        pt3dadd($1+3.333, $2+-13.556, $3+11.1, 0.27)
      }
      dend[68] {pt3dclear()
        pt3dadd($1+54.444, $2+-11.333, $3+11.1, 0.88)
        pt3dadd($1+54.444, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+54.222, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+54, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+53.778, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+53.556, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+53.333, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+53.111, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+52.889, $2+-11.556, $3+11.1, 0.27)
      }
      dend[69] {pt3dclear()
        pt3dadd($1+57.778, $2+-6.667, $3+11.1, 0.738)
        pt3dadd($1+57.778, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+58, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+58.222, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+58.444, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+58.667, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+58.889, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+59.111, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+59.333, $2+-6.222, $3+11.1, 0.27)
      }
      dend[70] {pt3dclear()
        pt3dadd($1+38.667, $2+-10, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-10, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-9.556, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-9.333, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-9.111, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-8.444, $3+11.1, 0.27)
      }
      dend[71] {pt3dclear()
        pt3dadd($1+37.778, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+37.333, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+-8, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+-8.222, $3+11.1, 0.27)
        pt3dadd($1+36, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-9.111, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-9.333, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-9.556, $3+11.1, 0.27)
      }
    }
    proc shape3d_10() {
      dend[71] {	pt3dadd($1+35.556, $2+-9.778, $3+11.1, 0.27)
      }
      dend[72] {pt3dclear()
        pt3dadd($1+44, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-0.444, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-0.222, $3+11.1, 0.27)
        pt3dadd($1+44, $2+0, $3+11.1, 0.27)
        pt3dadd($1+44, $2+0.222, $3+11.1, 0.27)
        pt3dadd($1+44, $2+0.444, $3+11.1, 0.27)
        pt3dadd($1+44, $2+0.667, $3+11.1, 0.27)
        pt3dadd($1+44, $2+0.889, $3+11.1, 0.27)
        pt3dadd($1+43.778, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+1.333, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+1.333, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+1.556, $3+11.1, 0.27)
        pt3dadd($1+42.889, $2+1.556, $3+11.1, 0.27)
        pt3dadd($1+42.667, $2+1.778, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+1.778, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+2, $3+11.1, 0.27)
        pt3dadd($1+42, $2+2, $3+11.1, 0.27)
        pt3dadd($1+41.778, $2+2.222, $3+11.1, 0.27)
      }
      dend[73] {pt3dclear()
        pt3dadd($1+39.333, $2+5.333, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+5.333, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+5.111, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+4.667, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+4.444, $3+11.1, 0.27)
      }
      dend[74] {pt3dclear()
        pt3dadd($1+36.444, $2+2.222, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+2.222, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+2, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+2, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+1.778, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+1.556, $3+11.1, 0.27)
        pt3dadd($1+37.333, $2+1.333, $3+11.1, 0.27)
        pt3dadd($1+37.333, $2+1.111, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+0.889, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+0.667, $3+11.1, 0.27)
        pt3dadd($1+38, $2+0.667, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+0.667, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+0.667, $3+11.1, 0.27)
      }
      dend[75] {pt3dclear()
        pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-12.889, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-13.556, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-13.778, $3+11.1, 0.27)
        pt3dadd($1+32.667, $2+-13.778, $3+11.1, 0.27)
        pt3dadd($1+32.444, $2+-14, $3+11.1, 0.27)
        pt3dadd($1+32.222, $2+-14.222, $3+11.1, 0.27)
        pt3dadd($1+32, $2+-14.444, $3+11.1, 0.27)
        pt3dadd($1+32, $2+-14.667, $3+11.1, 0.27)
        pt3dadd($1+32, $2+-14.889, $3+11.1, 0.27)
      }
      dend[76] {pt3dclear()
        pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-12.444, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-12.444, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+-12.222, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-11.556, $3+11.1, 0.27)
      }
      dend[77] {pt3dclear()
        pt3dadd($1+32.889, $2+-7.778, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-7.778, $3+11.1, 0.27)
        pt3dadd($1+32.667, $2+-7.778, $3+11.1, 0.27)
        pt3dadd($1+32.444, $2+-7.778, $3+11.1, 0.27)
        pt3dadd($1+32.222, $2+-7.556, $3+11.1, 0.27)
        pt3dadd($1+32, $2+-7.556, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+-7.556, $3+11.1, 0.27)
        pt3dadd($1+31.556, $2+-7.556, $3+11.1, 0.27)
        pt3dadd($1+31.333, $2+-7.556, $3+11.1, 0.27)
        pt3dadd($1+31.111, $2+-7.333, $3+11.1, 0.27)
        pt3dadd($1+30.889, $2+-7.111, $3+11.1, 0.27)
        pt3dadd($1+30.889, $2+-6.889, $3+11.1, 0.27)
        pt3dadd($1+30.889, $2+-6.667, $3+11.1, 0.27)
        pt3dadd($1+31.111, $2+-6.444, $3+11.1, 0.27)
        pt3dadd($1+31.333, $2+-6.222, $3+11.1, 0.27)
      }
      dend[78] {pt3dclear()
        pt3dadd($1+28.889, $2+-4.222, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-4.222, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+-4.444, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+-4.667, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+-4.889, $3+11.1, 0.27)
      }
      dend[79] {pt3dclear()
        pt3dadd($1+32, $2+9.111, $3+11.1, 0.27)
        pt3dadd($1+32, $2+9.111, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+9.333, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+9.778, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+10, $3+11.1, 0.27)
        pt3dadd($1+31.556, $2+10.222, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+10.444, $3+11.1, 0.27)
      }
      dend[80] {pt3dclear()
        pt3dadd($1+31.778, $2+10.444, $3+11.1, 0.27)
        pt3dadd($1+32, $2+10.667, $3+11.1, 0.27)
        pt3dadd($1+32, $2+10.889, $3+11.1, 0.27)
        pt3dadd($1+32, $2+11.111, $3+11.1, 0.27)
      }
      dend[81] {pt3dclear()
        pt3dadd($1+29.111, $2+7.111, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+7.111, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+7.333, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+7.556, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+7.778, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+8, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+8.222, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+8.444, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+8.667, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+8.889, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+9.111, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+9.333, $3+11.1, 0.27)
      }
      dend[82] {pt3dclear()
        pt3dadd($1+28.889, $2+9.333, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+9.778, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+10, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+10.222, $3+11.1, 0.27)
      }
      dend[83] {pt3dclear()
        pt3dadd($1+27.333, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+6.444, $3+11.1, 0.27)
        pt3dadd($1+26.444, $2+6.667, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+6.889, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+7.111, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+7.333, $3+11.1, 0.27)
      }
      dend[84] {pt3dclear()
        pt3dadd($1+26.667, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+28, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+5.333, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+5.111, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+4.667, $3+11.1, 0.27)
      }
      dend[85] {pt3dclear()
        pt3dadd($1+25.778, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+25.778, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+25.778, $2+4.667, $3+11.1, 0.27)
        pt3dadd($1+26, $2+4.444, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+26.444, $2+4, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+3.778, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+3.778, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+28, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+3.333, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+3.111, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+3.111, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+3.111, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+3.111, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+3.111, $3+11.1, 0.27)
        pt3dadd($1+29.778, $2+3.333, $3+11.1, 0.27)
        pt3dadd($1+30, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+30.222, $2+3.778, $3+11.1, 0.27)
        pt3dadd($1+30.444, $2+4, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+4, $3+11.1, 0.27)
        pt3dadd($1+30.889, $2+4, $3+11.1, 0.27)
        pt3dadd($1+31.111, $2+4, $3+11.1, 0.27)
        pt3dadd($1+31.333, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+31.556, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+32, $2+4.444, $3+11.1, 0.27)
        pt3dadd($1+32.222, $2+4.667, $3+11.1, 0.27)
        pt3dadd($1+32.222, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+32.444, $2+5.111, $3+11.1, 0.27)
        pt3dadd($1+32.667, $2+5.333, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+5.556, $3+11.1, 0.27)
      }
      dend[86] {pt3dclear()
        pt3dadd($1+21.333, $2+2.222, $3+11.1, 0.27)
        pt3dadd($1+21.333, $2+2.222, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+2.444, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+2.667, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+2.889, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+3.111, $3+11.1, 0.27)
        pt3dadd($1+20.444, $2+3.333, $3+11.1, 0.27)
        pt3dadd($1+20.444, $2+3.556, $3+11.1, 0.27)
        pt3dadd($1+20.444, $2+3.778, $3+11.1, 0.27)
        pt3dadd($1+20.444, $2+4, $3+11.1, 0.27)
        pt3dadd($1+20.444, $2+4.222, $3+11.1, 0.27)
      }
      dend[87] {pt3dclear()
        pt3dadd($1+20.444, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+20.667, $2+4.444, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+4.667, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+4.889, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+5.111, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+5.333, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+5.556, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+5.778, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+6, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+6.222, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+6.444, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+6.667, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+6.889, $3+11.1, 0.27)
        pt3dadd($1+20.889, $2+7.111, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+7.333, $3+11.1, 0.27)
        pt3dadd($1+21.111, $2+7.556, $3+11.1, 0.27)
        pt3dadd($1+21.333, $2+7.778, $3+11.1, 0.27)
        pt3dadd($1+21.556, $2+8, $3+11.1, 0.27)
        pt3dadd($1+21.778, $2+8.222, $3+11.1, 0.27)
      }
    }
    proc shape3d_11() {
      dend[87] {	pt3dadd($1+21.778, $2+8.444, $3+11.1, 0.27)
        pt3dadd($1+21.778, $2+8.667, $3+11.1, 0.27)
        pt3dadd($1+21.778, $2+8.889, $3+11.1, 0.27)
        pt3dadd($1+21.778, $2+9.111, $3+11.1, 0.27)
        pt3dadd($1+21.778, $2+9.333, $3+11.1, 0.27)
        pt3dadd($1+22, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+22.222, $2+9.778, $3+11.1, 0.27)
        pt3dadd($1+22.444, $2+10, $3+11.1, 0.27)
        pt3dadd($1+22.667, $2+10.222, $3+11.1, 0.27)
        pt3dadd($1+22.667, $2+10.444, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+10.667, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+10.889, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+11.111, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+11.333, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+11.556, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+11.778, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+12, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+12.222, $3+11.1, 0.27)
      }
      dend[88] {pt3dclear()
        pt3dadd($1+52.444, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+52.444, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+52.222, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+52, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+51.778, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+51.333, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+51.333, $2+-15.778, $3+11.1, 0.27)
        pt3dadd($1+51.333, $2+-15.556, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-15.333, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-15.111, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-14.889, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-14.667, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-14.444, $3+11.1, 0.27)
        pt3dadd($1+51.778, $2+-14.222, $3+11.1, 0.27)
        pt3dadd($1+52, $2+-14, $3+11.1, 0.27)
        pt3dadd($1+52, $2+-13.778, $3+11.1, 0.27)
        pt3dadd($1+52, $2+-13.556, $3+11.1, 0.27)
        pt3dadd($1+52, $2+-13.333, $3+11.1, 0.27)
        pt3dadd($1+51.778, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+51.333, $2+-13.111, $3+11.1, 0.27)
        pt3dadd($1+51.111, $2+-12.889, $3+11.1, 0.27)
        pt3dadd($1+50.889, $2+-12.667, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-12.444, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-12.222, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+50.889, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+50.889, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-10.667, $3+11.1, 0.27)
        pt3dadd($1+50.444, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+50.222, $2+-10.222, $3+11.1, 0.27)
      }
      dend[89] {pt3dclear()
        pt3dadd($1+47.111, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+47.111, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+47.333, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+47.556, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+47.778, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+48, $2+-20.222, $3+11.1, 0.27)
        pt3dadd($1+48.222, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+48.444, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+48.667, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+48.667, $2+-21.111, $3+11.1, 0.27)
        pt3dadd($1+48.889, $2+-21.333, $3+11.1, 0.27)
        pt3dadd($1+49.111, $2+-21.556, $3+11.1, 0.27)
        pt3dadd($1+49.333, $2+-21.778, $3+11.1, 0.27)
        pt3dadd($1+49.556, $2+-21.778, $3+11.1, 0.27)
        pt3dadd($1+49.778, $2+-22, $3+11.1, 0.27)
        pt3dadd($1+50, $2+-22.222, $3+11.1, 0.27)
        pt3dadd($1+50.222, $2+-22.444, $3+11.1, 0.27)
        pt3dadd($1+50.444, $2+-22.667, $3+11.1, 0.27)
      }
      dend[90] {pt3dclear()
        pt3dadd($1+50.444, $2+-22.667, $3+11.1, 0.27)
        pt3dadd($1+50.667, $2+-22.889, $3+11.1, 0.27)
        pt3dadd($1+50.889, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+51.111, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+51.333, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+51.556, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+51.778, $2+-23.333, $3+11.1, 0.27)
        pt3dadd($1+52, $2+-23.556, $3+11.1, 0.27)
        pt3dadd($1+52.222, $2+-23.778, $3+11.1, 0.27)
        pt3dadd($1+52.222, $2+-24, $3+11.1, 0.27)
      }
      dend[91] {pt3dclear()
        pt3dadd($1+46.667, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+46.667, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+46.667, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+46.667, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+46.667, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+46.667, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+46.889, $2+-18.889, $3+11.1, 0.27)
        pt3dadd($1+46.889, $2+-18.667, $3+11.1, 0.27)
        pt3dadd($1+46.889, $2+-18.444, $3+11.1, 0.27)
        pt3dadd($1+46.889, $2+-18.222, $3+11.1, 0.27)
        pt3dadd($1+46.667, $2+-18, $3+11.1, 0.27)
        pt3dadd($1+46.444, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+46.222, $2+-17.556, $3+11.1, 0.27)
        pt3dadd($1+46.222, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+46, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+45.778, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+45.778, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+45.778, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+45.556, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+45.333, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+45.111, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+44.889, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+44.667, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+44.444, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+44.222, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+43.778, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+43.333, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+42.889, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+42.667, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+42.667, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+-16, $3+11.1, 0.27)
      }
      dend[92] {pt3dclear()
        pt3dadd($1+42.444, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+41.778, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+41.556, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+41.333, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+41.111, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+40.889, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+40.667, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+40.444, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+40.222, $2+-17.556, $3+11.1, 0.27)
        pt3dadd($1+40.222, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+40.222, $2+-18, $3+11.1, 0.27)
      }
      dend[93] {pt3dclear()
        pt3dadd($1+43.556, $2+-26.222, $3+11.1, 0.27)
        pt3dadd($1+43.556, $2+-26.222, $3+11.1, 0.27)
        pt3dadd($1+43.778, $2+-26.222, $3+11.1, 0.27)
        pt3dadd($1+44, $2+-26.222, $3+11.1, 0.27)
        pt3dadd($1+44.222, $2+-26, $3+11.1, 0.27)
        pt3dadd($1+44.444, $2+-26, $3+11.1, 0.27)
        pt3dadd($1+44.667, $2+-26, $3+11.1, 0.27)
        pt3dadd($1+44.889, $2+-26, $3+11.1, 0.27)
        pt3dadd($1+45.111, $2+-25.778, $3+11.1, 0.27)
        pt3dadd($1+45.111, $2+-25.556, $3+11.1, 0.27)
        pt3dadd($1+45.111, $2+-25.333, $3+11.1, 0.27)
        pt3dadd($1+45.111, $2+-25.111, $3+11.1, 0.27)
        pt3dadd($1+45.111, $2+-24.889, $3+11.1, 0.27)
      }
      dend[94] {pt3dclear()
        pt3dadd($1+39.111, $2+-30.222, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-30.222, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-30.444, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-30.667, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-30.889, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-31.111, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-31.333, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-31.556, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-31.778, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-32, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-32.222, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-32.444, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-32.667, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-32.889, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-33.111, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
      }
      dend[95] {pt3dclear()
        pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-33.556, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-33.778, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-34, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-34.222, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-34.444, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-34.667, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-34.889, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-35.111, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-35.333, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-35.556, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-35.778, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-36, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-36.222, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-36.444, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-36.667, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-36.889, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-37.111, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-37.333, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-37.556, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-37.778, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-38, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-38.222, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-38.444, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-38.667, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-38.889, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-39.111, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-39.333, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-39.556, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-39.778, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-40, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-40.222, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-40.444, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-40.667, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-40.889, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-41.111, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-41.333, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-41.556, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-41.778, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-42, $3+11.1, 0.27)
      }
      dend[96] {pt3dclear()
        pt3dadd($1+39.111, $2+-42, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-42.222, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-42.444, $3+11.1, 0.27)
      }
    }
    proc shape3d_12() {
      dend[96] {	pt3dadd($1+39.333, $2+-42.667, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-42.889, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-43.111, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-43.333, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-43.556, $3+11.1, 0.27)
      }
      dend[97] {pt3dclear()
        pt3dadd($1+34.667, $2+-27.111, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-27.111, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-27.111, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+-27.333, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-27.333, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-27.333, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-27.556, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-27.778, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-28, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-28.222, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-28.444, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-28.667, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-28.889, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-29.111, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-29.333, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-29.556, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-29.556, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-29.333, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-29.111, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+-28.889, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-28.889, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-29.111, $3+11.1, 0.27)
        pt3dadd($1+34.889, $2+-29.333, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-29.556, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-29.778, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-30, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-30.222, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-30.444, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-30.667, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-30.889, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-31.111, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-31.333, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+-31.556, $3+11.1, 0.27)
        pt3dadd($1+36, $2+-31.556, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+-31.778, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-31.778, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-31.778, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+-31.778, $3+11.1, 0.27)
      }
      dend[98] {pt3dclear()
        pt3dadd($1+30.222, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+30.222, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+30, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+30, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+29.778, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+-20.222, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+-21.111, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+-21.333, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+-21.333, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+-21.556, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-21.778, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+-21.778, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-22, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-22.222, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-22.444, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-22.667, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-22.889, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-23.333, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-23.556, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-23.778, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-24, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-24.222, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-24.444, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-24.667, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-24.889, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-25.111, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-25.333, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-25.556, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-25.778, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-26, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-26.222, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-26.444, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-26.667, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-26.889, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-27.111, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-27.333, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-27.556, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-27.778, $3+11.1, 0.27)
      }
      dend[99] {pt3dclear()
        pt3dadd($1+28, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+27.778, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+-17.556, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+-18, $3+11.1, 0.27)
        pt3dadd($1+26.444, $2+-18.222, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+-18.444, $3+11.1, 0.27)
        pt3dadd($1+26, $2+-18.667, $3+11.1, 0.27)
        pt3dadd($1+25.778, $2+-18.667, $3+11.1, 0.27)
        pt3dadd($1+25.556, $2+-18.889, $3+11.1, 0.27)
        pt3dadd($1+25.333, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+25.111, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+-20.222, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+24.667, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+24.444, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+24.222, $2+-21.111, $3+11.1, 0.27)
        pt3dadd($1+24, $2+-21.333, $3+11.1, 0.27)
        pt3dadd($1+23.778, $2+-21.556, $3+11.1, 0.27)
        pt3dadd($1+23.778, $2+-21.778, $3+11.1, 0.27)
        pt3dadd($1+23.778, $2+-22, $3+11.1, 0.27)
        pt3dadd($1+23.778, $2+-22.222, $3+11.1, 0.27)
        pt3dadd($1+24, $2+-22.444, $3+11.1, 0.27)
        pt3dadd($1+24, $2+-22.667, $3+11.1, 0.27)
      }
      dend[100] {pt3dclear()
        pt3dadd($1+28, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+28, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+28.222, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+28.444, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+28.667, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+29.778, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+30, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+30.222, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+30.444, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+30.667, $2+-11.111, $3+11.1, 0.27)
      }
      dend[101] {pt3dclear()
        pt3dadd($1+27.556, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+27.556, $2+-8.444, $3+11.1, 0.27)
        pt3dadd($1+27.333, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+27.111, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+26.889, $2+-9.111, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+-9.333, $3+11.1, 0.27)
        pt3dadd($1+26.444, $2+-9.556, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+26, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+25.778, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+25.556, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+25.333, $2+-10, $3+11.1, 0.27)
        pt3dadd($1+25.111, $2+-10.222, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+24.667, $2+-10.667, $3+11.1, 0.27)
        pt3dadd($1+24.444, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
      }
      dend[102] {pt3dclear()
        pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+24.222, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+24, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+23.778, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+23.556, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+23.333, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+-12.222, $3+11.1, 0.27)
      }
      dend[103] {pt3dclear()
        pt3dadd($1+32.444, $2+-23.556, $3+11.1, 0.27)
        pt3dadd($1+32.444, $2+-23.556, $3+11.1, 0.27)
        pt3dadd($1+32.667, $2+-23.333, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-22.889, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-22.667, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-22.444, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-22.222, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-22, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-21.778, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-21.556, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-21.333, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-21.111, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-20.889, $3+11.1, 0.27)
      }
      dend[104] {pt3dclear()
        pt3dadd($1+33.778, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+34, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+34.222, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+34.444, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+34.667, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+34.889, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+36, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+37.333, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-20.667, $3+11.1, 0.27)
      }
      dend[105] {pt3dclear()
        pt3dadd($1+37.556, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-20.444, $3+11.1, 0.27)
      }
    }
    proc shape3d_13() {
      dend[105] {	pt3dadd($1+39.556, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+40, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+40.222, $2+-20.222, $3+11.1, 0.27)
        pt3dadd($1+40.444, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+40.667, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+40.889, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+41.111, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+41.333, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+41.556, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+41.778, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-19.111, $3+11.1, 0.27)
      }
      dend[106] {pt3dclear()
        pt3dadd($1+42, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+42.667, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+42.889, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-19.111, $3+11.1, 0.27)
      }
      dend[107] {pt3dclear()
        pt3dadd($1+31.778, $2+10.444, $3+11.1, 0.27)
        pt3dadd($1+31.778, $2+10.444, $3+11.1, 0.27)
        pt3dadd($1+31.556, $2+10.444, $3+11.1, 0.27)
        pt3dadd($1+31.333, $2+10.667, $3+11.1, 0.27)
        pt3dadd($1+31.111, $2+10.889, $3+11.1, 0.27)
      }
      dend[108] {pt3dclear()
        pt3dadd($1+28.889, $2+9.333, $3+11.1, 0.27)
        pt3dadd($1+28.889, $2+9.333, $3+11.1, 0.27)
        pt3dadd($1+29.111, $2+9.556, $3+11.1, 0.27)
        pt3dadd($1+29.333, $2+9.778, $3+11.1, 0.27)
        pt3dadd($1+29.556, $2+10, $3+11.1, 0.27)
        pt3dadd($1+29.778, $2+10, $3+11.1, 0.27)
        pt3dadd($1+30, $2+10.222, $3+11.1, 0.27)
        pt3dadd($1+30, $2+10.444, $3+11.1, 0.27)
      }
      dend[109] {pt3dclear()
        pt3dadd($1+20.444, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+20.444, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+20.222, $2+4.222, $3+11.1, 0.27)
        pt3dadd($1+20, $2+4.444, $3+11.1, 0.27)
        pt3dadd($1+19.778, $2+4.444, $3+11.1, 0.27)
      }
      dend[110] {pt3dclear()
        pt3dadd($1+50.444, $2+-22.667, $3+11.1, 0.27)
        pt3dadd($1+50.444, $2+-22.667, $3+11.1, 0.27)
        pt3dadd($1+50.222, $2+-22.889, $3+11.1, 0.27)
        pt3dadd($1+50, $2+-23.111, $3+11.1, 0.27)
        pt3dadd($1+49.778, $2+-23.333, $3+11.1, 0.27)
        pt3dadd($1+49.556, $2+-23.556, $3+11.1, 0.27)
        pt3dadd($1+49.556, $2+-23.778, $3+11.1, 0.27)
        pt3dadd($1+49.556, $2+-24, $3+11.1, 0.27)
      }
      dend[111] {pt3dclear()
        pt3dadd($1+42.444, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+42.667, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+42.889, $2+-15.778, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-15.556, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-15.333, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-15.111, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-14.889, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-14.667, $3+11.1, 0.27)
        pt3dadd($1+43.111, $2+-14.444, $3+11.1, 0.27)
      }
      dend[112] {pt3dclear()
        pt3dadd($1+39.111, $2+-42, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-42, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-42.222, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-42.444, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-42.444, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-42.444, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+-42.444, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-42.444, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-42.667, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-42.889, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-43.111, $3+11.1, 0.27)
      }
      dend[113] {pt3dclear()
        pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+39.556, $2+-33.556, $3+11.1, 0.27)
        pt3dadd($1+39.333, $2+-33.556, $3+11.1, 0.27)
        pt3dadd($1+39.111, $2+-33.556, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-33.556, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-33.778, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-34, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-34.222, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-34.444, $3+11.1, 0.27)
      }
      dend[114] {pt3dclear()
        pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+39.778, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+40, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+40.222, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+40.444, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+40.667, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+40.889, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+41.111, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+41.333, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+41.556, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+41.778, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-33.333, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-33.556, $3+11.1, 0.27)
        pt3dadd($1+42.444, $2+-33.778, $3+11.1, 0.27)
        pt3dadd($1+42.667, $2+-34, $3+11.1, 0.27)
      }
      dend[115] {pt3dclear()
        pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+24.444, $2+-11.333, $3+11.1, 0.27)
        pt3dadd($1+24.667, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+24.889, $2+-11.556, $3+11.1, 0.27)
        pt3dadd($1+25.111, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+25.333, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+25.556, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+25.778, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+26, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+26.222, $2+-12, $3+11.1, 0.27)
        pt3dadd($1+26.444, $2+-11.778, $3+11.1, 0.27)
        pt3dadd($1+26.667, $2+-11.556, $3+11.1, 0.27)
      }
      dend[116] {pt3dclear()
        pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+24.444, $2+-11.111, $3+11.1, 0.27)
        pt3dadd($1+24.222, $2+-10.889, $3+11.1, 0.27)
        pt3dadd($1+24, $2+-10.667, $3+11.1, 0.27)
        pt3dadd($1+23.778, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+23.556, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+23.333, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+23.111, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+22.889, $2+-10.444, $3+11.1, 0.27)
        pt3dadd($1+22.667, $2+-10.222, $3+11.1, 0.27)
        pt3dadd($1+22.667, $2+-10, $3+11.1, 0.27)
        pt3dadd($1+22.444, $2+-9.778, $3+11.1, 0.27)
        pt3dadd($1+22.444, $2+-9.556, $3+11.1, 0.27)
        pt3dadd($1+22.444, $2+-9.333, $3+11.1, 0.27)
        pt3dadd($1+22.222, $2+-9.111, $3+11.1, 0.27)
        pt3dadd($1+22.222, $2+-8.889, $3+11.1, 0.27)
        pt3dadd($1+22, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+21.778, $2+-8.667, $3+11.1, 0.27)
        pt3dadd($1+21.556, $2+-8.667, $3+11.1, 0.27)
      }
      dend[117] {pt3dclear()
        pt3dadd($1+37.556, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-20.222, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-18.889, $3+11.1, 0.27)
        pt3dadd($1+38.889, $2+-18.667, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-18.444, $3+11.1, 0.27)
        pt3dadd($1+38.667, $2+-18.222, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-18, $3+11.1, 0.27)
        pt3dadd($1+38.444, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+38.222, $2+-17.556, $3+11.1, 0.27)
        pt3dadd($1+38, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+37.778, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+37.556, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+37.333, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+-17.111, $3+11.1, 0.27)
      }
      dend[118] {pt3dclear()
        pt3dadd($1+37.111, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+-16.889, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-16.667, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-16.444, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-16.222, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-16, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+-15.778, $3+11.1, 0.27)
        pt3dadd($1+36, $2+-15.556, $3+11.1, 0.27)
        pt3dadd($1+35.778, $2+-15.556, $3+11.1, 0.27)
        pt3dadd($1+35.556, $2+-15.333, $3+11.1, 0.27)
        pt3dadd($1+35.333, $2+-15.333, $3+11.1, 0.27)
        pt3dadd($1+35.111, $2+-15.111, $3+11.1, 0.27)
      }
      dend[119] {pt3dclear()
        pt3dadd($1+33.778, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-20.889, $3+11.1, 0.27)
        pt3dadd($1+33.778, $2+-20.667, $3+11.1, 0.27)
        pt3dadd($1+33.556, $2+-20.444, $3+11.1, 0.27)
        pt3dadd($1+33.333, $2+-20.222, $3+11.1, 0.27)
        pt3dadd($1+33.111, $2+-20, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-19.778, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-19.556, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-19.333, $3+11.1, 0.27)
        pt3dadd($1+32.889, $2+-19.111, $3+11.1, 0.27)
      }
      dend[120] {pt3dclear()
        pt3dadd($1+42, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-19.111, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-18.889, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-18.667, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-18.444, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-18.222, $3+11.1, 0.27)
        pt3dadd($1+42, $2+-18, $3+11.1, 0.27)
        pt3dadd($1+42.222, $2+-17.778, $3+11.1, 0.27)
      }
      dend[121] {pt3dclear()
        pt3dadd($1+37.111, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+-17.111, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+-17.333, $3+11.1, 0.27)
        pt3dadd($1+37.111, $2+-17.556, $3+11.1, 0.27)
        pt3dadd($1+36.889, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+36.667, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+36.444, $2+-17.778, $3+11.1, 0.27)
        pt3dadd($1+36.222, $2+-17.778, $3+11.1, 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)
      shape3d_10($1, $2, $3)
      shape3d_11($1, $2, $3)
      shape3d_12($1, $2, $3)
      shape3d_13($1, $2, $3)
    }

endtemplate RGCM01WM11


Loading data, please wait...