hyperrogue/polygons.cpp

#ifdef GFX
#ifndef MOBILE
#include <SDL/SDL_gfxPrimitives.h>
#endif
#endif

#ifndef MOBILE
#ifdef GL
#ifdef MAC
#include <OpenGL/gl.h>
#include <OpenGL/glu.h>
#else
#include <GL/gl.h>
#include <GL/glu.h>
#endif

#ifdef MAC
#include <OpenGL/glext.h>
#else
#include <GL/glext.h>
#endif
#endif
#endif

#ifdef ANDROID
#ifndef FAKE
#ifdef GL
#include <GLES/gl.h>
#include <GLES/glext.h>
#include <GLES2/gl2.h>
#endif
#endif
#endif

#define QHPC 16000

int qhpc, prehpc;

hyperpoint hpc[QHPC];

bool first;

bool fatborder;

void hpcpush(const hyperpoint& h) { 
  if(vid.usingGL && !first && intval(hpc[qhpc-1], h) > 0.25) {
    hyperpoint md = mid(hpc[qhpc-1], h);
    hpcpush(md);
    }
  first = false;
  hpc[qhpc++] = h;
  }

struct hpcshape {
  int s, e, prio;
  };

struct polytodraw {
  transmatrix V;
  int col, start, end, prio;
  int outline;
  };

vector<polytodraw> ptds;

bool ptdsort(const polytodraw& p1, const polytodraw& p2) {
  return p1.prio < p2.prio;
  }

#ifndef MOBILE
SDL_Surface *aux;
#endif

vector<polytodraw*> ptds2;

#ifdef GL
#define USEPOLY

GLuint shapebuffer;

GLfloat *ourshape = NULL;

void initPolyForGL() {
  if(GL_initialized) return;
  GL_initialized = true;
  
  if(ourshape) delete[] ourshape;
  ourshape = new GLfloat[3 * qhpc];
  
  // GLfloat ourshape[3*qhpc];
  
  int id = 0;
  for(int i=0; i<qhpc; i++) {
    ourshape[id++] = hpc[i][0];
    ourshape[id++] = hpc[i][1];
    ourshape[id++] = hpc[i][2];
    }

#define GLF
#ifdef GLF
  glVertexPointer(3, GL_FLOAT, 0, ourshape);

#else
  glGenBuffers(1, &shapebuffer);
  glBindBuffer(GL_ARRAY_BUFFER, shapebuffer); 
  glBufferData(GL_ARRAY_BUFFER, sizeof(GLfloat)*qhpc*3, ourshape, GL_STATIC_DRAW);
  
  glEnableVertexAttribArray(0);
  glVertexAttribPointer(0, 3, GL_FLOAT, GL_FALSE, 0, (void*) 0);
#endif

  }
#endif

#ifdef GFX
#define USEPOLY
#endif

#ifdef GL
#endif

#define POLYMAX 60000
int polyi;

#ifdef MOBILE
short polyx[POLYMAX], polyy[POLYMAX];
#else
Sint16 polyx[POLYMAX], polyxr[POLYMAX], polyy[POLYMAX];
#endif

void drawqueue() {
#ifdef USEPOLY

  int siz = size(ptds);

#ifdef GL
  if(vid.usingGL) {
    initPolyForGL();
    glVertexPointer(3, GL_FLOAT, 0, ourshape);
    glClear(GL_STENCIL_BUFFER_BIT);
    }
#endif
  
#ifdef STLSORT
  sort(ptds.begin(), ptds.end(), ptdsort);
  
#else
  
  int qp[64];
  for(int a=0; a<64; a++) qp[a] = 0;
  
  for(int i = 0; i<siz; i++) {
    qp[ptds[i].prio]++;
    }
  
  qp[0]--;
  for(int a=1; a<64; a++) qp[a] += qp[a-1];
  
  ptds2.resize(siz);
  
  for(int i = 0; i<siz; i++) ptds2[qp[ptds[i].prio]--] = &ptds[i];
#endif

#ifndef MOBILE
  if(vid.goteyes && !vid.usingGL) {

    if(aux && (aux->w != s->w || aux->h != s->h))
      SDL_FreeSurface(aux);
  
    if(!aux) {
      aux = SDL_CreateRGBSurface(SDL_SWSURFACE,s->w,s->h,32,0,0,0,0);
      }

    // SDL_LockSurface(aux);
    // memset(aux->pixels, 0, vid.xres * vid.yres * 4);
    // SDL_UnlockSurface(aux);
    SDL_BlitSurface(s, NULL, aux, NULL);
    }
#endif
  
  for(int i=0; i<siz; i++) {
  
#ifdef STLSORT
    polytodraw& ptd (ptds[i]);
#else
    polytodraw& ptd (*ptds2[i]);
#endif

    if(!vid.usingGL) {
      polyi = 0;
      for(int i=ptd.start; i<ptd.end-1; i++) 
        drawline(ptd.V*hpc[i], ptd.V*hpc[i+1], -1);
      if(polyi < 3) continue;
      }
    
    // if(ptd.prio == 46) printf("eye size %d\n", polyi);

    if(true) {
#ifdef GL
      if(vid.usingGL) {

#ifdef GLF
        glEnableClientState(GL_VERTEX_ARRAY);
#else
        glBindBuffer(GL_ARRAY_BUFFER, shapebuffer);
#endif
        
        unsigned char *c = (unsigned char*) (&ptd.col);

        GLfloat mat[16];
        int id = 0;
        
        for(int y=0; y<3; y++) {
          for(int x=0; x<3; x++) mat[id++] = ptd.V[x][y];
          mat[id++] = 0;
          }
        for(int x=0; x<3; x++) mat[id++] = 0; mat[id++] = 1;
        
        if(euclid) {
          mat[2] = 0; mat[6] = 0; mat[10] = 0; 
          mat[12] = mat[8]; mat[13] = mat[9]; mat[14] = EUCSCALE;
          mat[8] = mat[9] = 0;
          }
        
        for(int ed = vid.goteyes ? -1 : 0; ed<2; ed+=2) {
          if(ed) selectEyeGL(ed);
          
          glMatrixMode(GL_MODELVIEW);
          glPushMatrix();
          glMultMatrixf(mat);
          
          glEnable(GL_STENCIL_TEST);

          glColorMask( GL_FALSE,GL_FALSE,GL_FALSE,GL_FALSE );
          glStencilOp( GL_INVERT, GL_INVERT, GL_INVERT);
          glStencilFunc( GL_ALWAYS, 0x1, 0x1 );
          glColor4f(1,1,1,1);
          glDrawArrays(GL_TRIANGLE_FAN, ptd.start, ptd.end-ptd.start);
    
          selectEyeMask(ed);

          glColor4f(c[3] / 255.0, c[2] / 255.0, c[1]/255.0, c[0]/255.0);
          glStencilOp( GL_ZERO, GL_ZERO, GL_ZERO);
          glStencilFunc( GL_EQUAL, 1, 1);
          glDrawArrays(GL_TRIANGLE_FAN, ptd.start, ptd.end-ptd.start);
          
          glDisable(GL_STENCIL_TEST);
          if(ptd.outline == 0)
            glColor4f(0, 0, 0, 1);
          else {
            unsigned char *c = (unsigned char*) (&ptd.outline);
            glColor4f(c[3] / 255.0, c[2] / 255.0, c[1]/255.0, c[0]/255.0);
            }
          glDrawArrays(GL_LINE_LOOP, ptd.start, ptd.end-ptd.start);
  
          glPopMatrix();
          }
        
        continue;
        }

#ifdef MOBILE
      gdpush(1); gdpush(ptd.col); gdpush(polyi); 
      for(int i=0; i<polyi; i++) gdpush(polyx[i]), gdpush(polyy[i]);

#else

#ifdef GFX      
      filledPolygonColor(s, polyx, polyy, polyi, ptd.col);
      if(vid.goteyes) filledPolygonColor(aux, polyxr, polyy, polyi, ptd.col);
      (vid.usingAA?aapolygonColor:polygonColor)(s, polyx, polyy, polyi, 0xFF);
      
      if(vid.xres >= 2000 || fatborder) {
        Sint16 xmi = 3000, xma = -3000;
        for(int t=0; t<polyi; t++) xmi = min(xmi, polyx[t]), xma = max(xma, polyx[t]);
        
        if(xma > xmi + 20) for(int x=-1; x<2; x++) for(int y=-1; y<=2; y++) if(x*x+y*y == 1) {
          for(int t=0; t<polyi; t++) polyx[t] += x, polyy[t] += y;
          aapolygonColor(s, polyx, polyy, polyi, 0xFF);
          for(int t=0; t<polyi; t++) polyx[t] -= x, polyy[t] -= y;
          }
        }
      if(vid.goteyes) aapolygonColor(aux, polyxr, polyy, polyi, 0xFF);
#endif
#endif
#endif
      }
    }

#ifndef MOBILE  
  if(vid.goteyes && !vid.usingGL) {
    int qty = s->w * s->h;
    int *a = (int*) s->pixels;
    int *b = (int*) aux->pixels;
    SDL_LockSurface(aux);
    while(qty) {
      *a = ((*a) & 0xFF0000) | ((*b) & 0x00FFFF);
      a++; b++; qty--;
      }
    SDL_UnlockSurface(aux);
    }

  if(vid.goteyes && vid.usingGL) selectEyeGL(0), selectEyeMask(0);

#endif
#endif
  }

hpcshape 
  shFloor[2], shBFloor[2], shMFloor2[2], shMFloor3[2], shMFloor4[2],
  shWall[2], shMineMark[2],
  shStarFloor[2], shCloudFloor[2], shTriFloor[2], shZebra[4], shTower[7],
  shEmeraldFloor[6],
  shFeatherFloor[2], shDemonFloor[2], shCrossFloor[2], shMFloor[2], shCaveFloor[2],
  shSemiFeatherFloor[2], shPowerFloor[2],
  shSemiFloor[2], shSemiBFloor[2], 
  shDesertFloor[2], shRedRockFloor[3][2],
  shCross, shGiantStar[2], shLake, shMirror,
  shGem[2], shStar, shDisk, shRing, shDaisy, shTriangle, shNecro, shStatue, shKey,
  shFigurine,
  shElementalShard,
  shBranch, shIBranch, shTentacle, shTentacleX, shILeaf[2], 
  shMovestar,
  shWolf, shYeti, shDemon, shGDemon, shEagle, shGargoyleWings, shGargoyleBody,
  shWolf1, shWolf2, shWolf3,
  shDogStripes,
  shPBody, shPSword, shPKnife,
  shPHead, shPFace, shGolemhead, shHood, shArmor, 
  shSabre, shTurban1, shTurban2, shVikingHelmet,
  shKnightArmor, shKnightCloak,
  shGhost, shEyes, shSlime, shJoint, shWormHead, shTentHead, shShark,
  shHedgehogBlade, shHedgehogBladePlayer,
  shWolfBody, shWolfHead, shWolfLegs, shWolfEyes,
  shBigHepta, shBigTriangle, shBigHex, shBigHexTriangle, shBigHexTriangleRev,
  shFemaleBody, shFemaleHair, shFemaleDress, shWitchDress,
  shBugBody, shBugArmor,
  shPickAxe, shPike, shFlailBall, shFlailTrunk, shFlailChain,
  shBook, shBookCover, shGrail,
  shBoatOuter, shBoatInner, shCompass1, shCompass2, shCompass3,
  shKnife, shTongue, shFlailMissile,
  shPirateHook, shPirateHood, shEyepatch, shPirateX,
  shScratch, shHeptaMarker,
  shSkeletonBody, shSkull, shSkullEyes, shFatBody, shWaterElemental,
  shPalaceFloor[2], shNewFloor[2], shPalaceGate, shFishTail,
  shMouse, shMouseLegs, shMouseEyes,
  shPrincessDress, shPrinceDress,
  shBigCarpet1, shBigCarpet2, shBigCarpet3,
  shGoatHead;

#define USERLAYERS 8
#define USERSHAPEGROUPS 8
#define USERSHAPEIDS 256

struct usershapelayer {
  vector<hyperpoint> list;
  bool sym;
  int rots;
  int color;
  hyperpoint shift, spin;
  hpcshape sh;
  };

struct usershape {
  usershapelayer d[USERLAYERS];
  };

usershape *usershapes[USERSHAPEGROUPS][USERSHAPEIDS];

void drawTentacle(hpcshape &h, ld rad, ld var, ld divby) {
  for(int i=0; i<=20; i++)
    hpcpush(ddi(21, rad + var * sin(i * M_PI/divby)) * ddi(0, crossf * i/20.) * C0);
  for(int i=20; i>=0; i--)
    hpcpush(ddi(63, rad - var * sin(i * M_PI/divby)) * ddi(0, crossf * i/20.) * C0);
  }

hyperpoint hpxd(ld d, ld x, ld y, ld z) {
  hyperpoint H = hpxyz(d*x, d*y, z);
  H = mid(H, H);
  return H;
  }

void drawDemon(ld d) {
  hpcpush(hpxyz(0.098330,0.005996,1.004841));
  hpcpush(hpxyz(0.098350,0.015592,1.004946));
  hpcpush(hpxyz(0.097179,0.027594,1.005090));
  hpcpush(hpxyz(0.088731,0.041967,1.004806));
  hpcpush(hpxyz(0.082695,0.047939,1.004558));
  hpcpush(hpxyz(0.070682,0.061098,1.004355));
  hpcpush(hpxyz(0.075191,0.124914,1.010573));
  hpcpush(hpxyz(0.083954,0.132624,1.012244));
  hpcpush(hpxyz(0.097611,0.134215,1.013677));
  hpcpush(hpxyz(0.112530,0.132100,1.014945));
  hpcpush(hpxyz(0.126233,0.127459,1.015963));
  hpcpush(hpxyz(0.148804,0.116829,1.017738));
  hpcpush(hpxyz(0.170177,0.098653,1.019163));
  hpcpush(hpxyz(0.175203,0.092537,1.019441));
  hpcpush(hpxyz(0.167872,0.107389,1.019663));
  hpcpush(hpxyz(0.150410,0.125752,1.019037));
  hpcpush(hpxyz(0.132974,0.139130,1.018351));
  hpcpush(hpxyz(0.093435,0.163511,1.017578));
  hpcpush(hpxyz(0.064916,0.165353,1.015655));
  hpcpush(hpxyz(0.042697,0.159810,1.013589));
  hpcpush(hpxyz(0.026717,0.148159,1.011269));
  hpcpush(hpxyz(0.018123,0.130482,1.008640));
  hpcpush(hpxyz(0.016784,0.095911,1.004729));
  hpcpush(hpxyz(0.020324,0.078904,1.003314));
  hpcpush(hpxyz(0.017909,0.070441,1.002638));
  hpcpush(hpxyz(0.013123,0.065613,1.002236));
  hpcpush(hpxyz(0.000000,0.063197,1.001995));
  hpcpush(hpxyz(-0.015494,0.057207,1.001755));
  hpcpush(hpxyz(-0.032146,0.038099,1.001242));
  hpcpush(hpxyz(-0.063226,0.021473,1.002227));
  hpcpush(hpxyz(-0.122974,0.008439,1.007568));
  hpcpush(hpxyz(-0.197385,0.012337,1.019369));
  hpcpush(hpxyz(-0.283101,0.000000,1.039301));
  hpcpush(hpxyz(-0.283101,-0.000000,1.039301));
  hpcpush(hpxyz(-0.197385,-0.012337,1.019369));
  hpcpush(hpxyz(-0.122974,-0.008439,1.007568));
  hpcpush(hpxyz(-0.063226,-0.021473,1.002227));
  hpcpush(hpxyz(-0.032146,-0.038099,1.001242));
  hpcpush(hpxyz(-0.015494,-0.057207,1.001755));
  hpcpush(hpxyz(0.000000,-0.063197,1.001995));
  hpcpush(hpxyz(0.013123,-0.065613,1.002236));
  hpcpush(hpxyz(0.017909,-0.070441,1.002638));
  hpcpush(hpxyz(0.020324,-0.078904,1.003314));
  hpcpush(hpxyz(0.016784,-0.095911,1.004729));
  hpcpush(hpxyz(0.018123,-0.130482,1.008640));
  hpcpush(hpxyz(0.026717,-0.148159,1.011269));
  hpcpush(hpxyz(0.042697,-0.159810,1.013589));
  hpcpush(hpxyz(0.064916,-0.165353,1.015655));
  hpcpush(hpxyz(0.093435,-0.163511,1.017578));
  hpcpush(hpxyz(0.132974,-0.139130,1.018351));
  hpcpush(hpxyz(0.150410,-0.125752,1.019037));
  hpcpush(hpxyz(0.167872,-0.107389,1.019663));
  hpcpush(hpxyz(0.175203,-0.092537,1.019441));
  hpcpush(hpxyz(0.170177,-0.098653,1.019163));
  hpcpush(hpxyz(0.148804,-0.116829,1.017738));
  hpcpush(hpxyz(0.126233,-0.127459,1.015963));
  hpcpush(hpxyz(0.112530,-0.132100,1.014945));
  hpcpush(hpxyz(0.097611,-0.134215,1.013677));
  hpcpush(hpxyz(0.083954,-0.132624,1.012244));
  hpcpush(hpxyz(0.075191,-0.124914,1.010573));
  hpcpush(hpxyz(0.070682,-0.061098,1.004355));
  hpcpush(hpxyz(0.082695,-0.047939,1.004558));
  hpcpush(hpxyz(0.088731,-0.041967,1.004806));
  hpcpush(hpxyz(0.097179,-0.027594,1.005090));
  hpcpush(hpxyz(0.098350,-0.015592,1.004946));
  hpcpush(hpxyz(0.098330,-0.005996,1.004841));
  hpcpush(hpxyz(0.098330,0.005996,1.004841));
  }

hpcshape *last = NULL;

void bshape(hpcshape& sh, int p) {
  if(last) last->e = qhpc;
  last = &sh;
  last->s = qhpc, last->prio = p;
  first = true; 
  }

void zoomShape(hpcshape& old, hpcshape& newsh, double factor, int lev) {

  bshape(newsh, lev);
  for(int i=old.s; i<old.e; i++) {
    hyperpoint H = hpc[i];
    H = hpxyz(factor*H[0], factor*H[1], H[2]);
    H = mid(H,H);
    hpcpush(H);
    }
  }

void bshapeend() {
  if(last) last->e = qhpc;
  last = NULL;
  }

hyperpoint hwolf(double x, double y, double z) {
  hyperpoint H = hpxyz(1.5*x, 1.6*y, z);
  H = mid(H,H);
  return H;
  }

void buildpolys() {

  qhpc = 0;

  bshape(shMovestar, 0);
  for(int i=0; i<8; i++) {
    hpcpush(spin(M_PI * i/4) * xpush(crossf) * spin(M_PI * i/4) * C0);
    hpcpush(spin(M_PI * i/4 + M_PI/8) * xpush(crossf/4) * spin(M_PI * i/4 + M_PI/8) * C0);
    }
  
  // floors
  
  bshape(shStarFloor[0], 10);
  hpcpush(hpxyz(0.267355,0.153145,1.046390));
  hpcpush(hpxyz(0.158858,0.062321,1.014455));
  hpcpush(hpxyz(0.357493,-0.060252,1.063688));
  hpcpush(hpxyz(0.266305,-0.154963,1.046390));
  hpcpush(hpxyz(0.133401,-0.106414,1.014455));
  hpcpush(hpxyz(0.126567,-0.339724,1.063688));
  hpcpush(hpxyz(-0.001050,-0.308108,1.046390));
  hpcpush(hpxyz(-0.025457,-0.168736,1.014455));
  hpcpush(hpxyz(-0.230926,-0.279472,1.063688));
  hpcpush(hpxyz(-0.267355,-0.153145,1.046390));
  hpcpush(hpxyz(-0.158858,-0.062321,1.014455));
  hpcpush(hpxyz(-0.357493,0.060252,1.063688));
  hpcpush(hpxyz(-0.266305,0.154963,1.046390));
  hpcpush(hpxyz(-0.133401,0.106414,1.014455));
  hpcpush(hpxyz(-0.126567,0.339724,1.063688));
  hpcpush(hpxyz(0.001050,0.308108,1.046390));
  hpcpush(hpxyz(0.025457,0.168736,1.014455));
  hpcpush(hpxyz(0.230926,0.279472,1.063688));
  hpcpush(hpxyz(0.267355,0.153145,1.046390));

  bshape(shStarFloor[1], 10);
  hpcpush(hpxyz(-0.012640,0.255336,1.032161));
  hpcpush(hpxyz(0.152259,0.386185,1.082738));
  hpcpush(hpxyz(0.223982,0.275978,1.061288));
  hpcpush(hpxyz(0.191749,0.169082,1.032161));
  hpcpush(hpxyz(0.396864,0.121741,1.082738));
  hpcpush(hpxyz(0.355418,-0.003047,1.061288));
  hpcpush(hpxyz(0.251747,-0.044494,1.032161));
  hpcpush(hpxyz(0.342622,-0.234376,1.082738));
  hpcpush(hpxyz(0.219218,-0.279777,1.061288));
  hpcpush(hpxyz(0.122175,-0.224565,1.032161));
  hpcpush(hpxyz(0.030378,-0.414004,1.082738));
  hpcpush(hpxyz(-0.082058,-0.345829,1.061288));
  hpcpush(hpxyz(-0.099398,-0.235534,1.032161));
  hpcpush(hpxyz(-0.304740,-0.281878,1.082738));
  hpcpush(hpxyz(-0.321543,-0.151465,1.061288));
  hpcpush(hpxyz(-0.246122,-0.069141,1.032161));
  hpcpush(hpxyz(-0.410384,0.062508,1.082738));
  hpcpush(hpxyz(-0.318899,0.156955,1.061288));
  hpcpush(hpxyz(-0.207511,0.149317,1.032161));
  hpcpush(hpxyz(-0.207000,0.359824,1.082738));
  hpcpush(hpxyz(-0.076118,0.347185,1.061288));
  hpcpush(hpxyz(-0.012640,0.255336,1.032161));

  bshape(shCloudFloor[0], 10);
  hpcpush(hpxyz(-0.249278,0.146483,1.040960));
  hpcpush(hpxyz(-0.242058,0.146003,1.039187));
  hpcpush(hpxyz(-0.209868,0.146655,1.032256));
  hpcpush(hpxyz(-0.180387,0.151575,1.027382));
  hpcpush(hpxyz(-0.148230,0.165669,1.024411));
  hpcpush(hpxyz(-0.131141,0.187345,1.025815));
  hpcpush(hpxyz(-0.127578,0.219788,1.031786));
  hpcpush(hpxyz(-0.130923,0.255428,1.040377));
  hpcpush(hpxyz(-0.116050,0.294689,1.048956));
  hpcpush(hpxyz(-0.093271,0.316597,1.053059));
  hpcpush(hpxyz(-0.050041,0.330532,1.054398));
  hpcpush(hpxyz(-0.007791,0.309060,1.046699));
  hpcpush(hpxyz(0.017835,0.271341,1.036313));
  hpcpush(hpxyz(0.017835,0.271341,1.036313));
  hpcpush(hpxyz(0.002219,0.289123,1.040960));
  hpcpush(hpxyz(0.005414,0.282630,1.039187));
  hpcpush(hpxyz(0.022073,0.255079,1.032256));
  hpcpush(hpxyz(0.041075,0.232008,1.027382));
  hpcpush(hpxyz(0.069359,0.211206,1.024411));
  hpcpush(hpxyz(0.096675,0.207244,1.025815));
  hpcpush(hpxyz(0.126553,0.220380,1.031786));
  hpcpush(hpxyz(0.155745,0.241096,1.040377));
  hpcpush(hpxyz(0.197183,0.247847,1.048956));
  hpcpush(hpxyz(0.227545,0.239074,1.053059));
  hpcpush(hpxyz(0.261229,0.208602,1.054398));
  hpcpush(hpxyz(0.263758,0.161278,1.046699));
  hpcpush(hpxyz(0.243906,0.120225,1.036313));
  hpcpush(hpxyz(0.243906,0.120225,1.036313));
  hpcpush(hpxyz(0.251497,0.142640,1.040960));
  hpcpush(hpxyz(0.247471,0.136627,1.039187));
  hpcpush(hpxyz(0.231941,0.108424,1.032256));
  hpcpush(hpxyz(0.221462,0.080432,1.027382));
  hpcpush(hpxyz(0.217589,0.045537,1.024411));
  hpcpush(hpxyz(0.227816,0.019899,1.025815));
  hpcpush(hpxyz(0.254131,0.000592,1.031786));
  hpcpush(hpxyz(0.286668,-0.014331,1.040377));
  hpcpush(hpxyz(0.313233,-0.046842,1.048956));
  hpcpush(hpxyz(0.320816,-0.077523,1.053059));
  hpcpush(hpxyz(0.311269,-0.121929,1.054398));
  hpcpush(hpxyz(0.271550,-0.147783,1.046699));
  hpcpush(hpxyz(0.226071,-0.151116,1.036313));
  hpcpush(hpxyz(0.226071,-0.151116,1.036313));
  hpcpush(hpxyz(0.249278,-0.146483,1.040960));
  hpcpush(hpxyz(0.242058,-0.146003,1.039187));
  hpcpush(hpxyz(0.209868,-0.146655,1.032256));
  hpcpush(hpxyz(0.180387,-0.151575,1.027382));
  hpcpush(hpxyz(0.148230,-0.165669,1.024411));
  hpcpush(hpxyz(0.131141,-0.187345,1.025815));
  hpcpush(hpxyz(0.127578,-0.219788,1.031786));
  hpcpush(hpxyz(0.130923,-0.255428,1.040377));
  hpcpush(hpxyz(0.116050,-0.294689,1.048956));
  hpcpush(hpxyz(0.093271,-0.316597,1.053059));
  hpcpush(hpxyz(0.050041,-0.330532,1.054398));
  hpcpush(hpxyz(0.007791,-0.309060,1.046699));
  hpcpush(hpxyz(-0.017835,-0.271341,1.036313));
  hpcpush(hpxyz(-0.017835,-0.271341,1.036313));
  hpcpush(hpxyz(-0.002219,-0.289123,1.040960));
  hpcpush(hpxyz(-0.005414,-0.282630,1.039187));
  hpcpush(hpxyz(-0.022073,-0.255079,1.032256));
  hpcpush(hpxyz(-0.041075,-0.232008,1.027382));
  hpcpush(hpxyz(-0.069359,-0.211206,1.024411));
  hpcpush(hpxyz(-0.096675,-0.207244,1.025815));
  hpcpush(hpxyz(-0.126553,-0.220380,1.031786));
  hpcpush(hpxyz(-0.155745,-0.241096,1.040377));
  hpcpush(hpxyz(-0.197183,-0.247847,1.048956));
  hpcpush(hpxyz(-0.227545,-0.239074,1.053059));
  hpcpush(hpxyz(-0.261229,-0.208602,1.054398));
  hpcpush(hpxyz(-0.263758,-0.161278,1.046699));
  hpcpush(hpxyz(-0.243906,-0.120225,1.036313));
  hpcpush(hpxyz(-0.243906,-0.120225,1.036313));
  hpcpush(hpxyz(-0.251497,-0.142640,1.040960));
  hpcpush(hpxyz(-0.247471,-0.136627,1.039187));
  hpcpush(hpxyz(-0.231941,-0.108424,1.032256));
  hpcpush(hpxyz(-0.221462,-0.080432,1.027382));
  hpcpush(hpxyz(-0.217589,-0.045537,1.024411));
  hpcpush(hpxyz(-0.227816,-0.019899,1.025815));
  hpcpush(hpxyz(-0.254131,-0.000592,1.031786));
  hpcpush(hpxyz(-0.286668,0.014331,1.040377));
  hpcpush(hpxyz(-0.313233,0.046842,1.048956));
  hpcpush(hpxyz(-0.320816,0.077523,1.053059));
  hpcpush(hpxyz(-0.311269,0.121929,1.054398));
  hpcpush(hpxyz(-0.271550,0.147783,1.046699));
  hpcpush(hpxyz(-0.226071,0.151116,1.036313));
  hpcpush(hpxyz(-0.226071,0.151116,1.036313));
  hpcpush(hpxyz(-0.249278,0.146483,1.040960));

  bshape(shCrossFloor[0], 10);
  hpcpush(hpxyz(-0.283927,0.089050,1.043333));
  hpcpush(hpxyz(-0.363031,0.095818,1.068163));
  hpcpush(hpxyz(-0.386170,0.136539,1.080634));
  hpcpush(hpxyz(-0.370773,0.209082,1.086825));
  hpcpush(hpxyz(-0.207773,0.157096,1.033368));
  hpcpush(hpxyz(-0.213111,0.255207,1.053825));
  hpcpush(hpxyz(-0.045690,0.195109,1.019880));
  hpcpush(hpxyz(-0.053263,0.305287,1.046918));
  hpcpush(hpxyz(0.090089,0.277990,1.041823));
  hpcpush(hpxyz(0.219083,0.201363,1.043333));
  hpcpush(hpxyz(0.264497,0.266484,1.068163));
  hpcpush(hpxyz(0.311331,0.266164,1.080634));
  hpcpush(hpxyz(0.366457,0.216558,1.086825));
  hpcpush(hpxyz(0.239936,0.101388,1.033368));
  hpcpush(hpxyz(0.327571,0.056956,1.053825));
  hpcpush(hpxyz(0.191815,-0.057986,1.019880));
  hpcpush(hpxyz(0.291017,-0.106516,1.046918));
  hpcpush(hpxyz(0.195702,-0.217014,1.041823));
  hpcpush(hpxyz(0.064844,-0.290413,1.043333));
  hpcpush(hpxyz(0.098534,-0.362303,1.068163));
  hpcpush(hpxyz(0.074839,-0.402702,1.080634));
  hpcpush(hpxyz(0.004316,-0.425640,1.086825));
  hpcpush(hpxyz(-0.032163,-0.258485,1.033368));
  hpcpush(hpxyz(-0.114460,-0.312163,1.053825));
  hpcpush(hpxyz(-0.146125,-0.137124,1.019880));
  hpcpush(hpxyz(-0.237755,-0.198770,1.046918));
  hpcpush(hpxyz(-0.285791,-0.060975,1.041823));
  hpcpush(hpxyz(-0.283927,0.089050,1.043333));

  bshape(shCrossFloor[1], 10);
  hpcpush(hpxyz(-0.254099,-0.080041,1.034878));
  hpcpush(hpxyz(-0.326144,-0.061810,1.053656));
  hpcpush(hpxyz(-0.326144,0.061810,1.053656));
  hpcpush(hpxyz(-0.254099,0.080041,1.034878));
  hpcpush(hpxyz(-0.221007,0.148758,1.034878));
  hpcpush(hpxyz(-0.251672,0.216452,1.053656));
  hpcpush(hpxyz(-0.155023,0.293527,1.053656));
  hpcpush(hpxyz(-0.095849,0.248567,1.034878));
  hpcpush(hpxyz(-0.021492,0.265539,1.034878));
  hpcpush(hpxyz(0.012314,0.331721,1.053656));
  hpcpush(hpxyz(0.132834,0.304213,1.053656));
  hpcpush(hpxyz(0.134577,0.229917,1.034878));
  hpcpush(hpxyz(0.194207,0.182364,1.034878));
  hpcpush(hpxyz(0.267027,0.197197,1.053656));
  hpcpush(hpxyz(0.320664,0.085820,1.053656));
  hpcpush(hpxyz(0.263664,0.038135,1.034878));
  hpcpush(hpxyz(0.263664,-0.038135,1.034878));
  hpcpush(hpxyz(0.320664,-0.085820,1.053656));
  hpcpush(hpxyz(0.267027,-0.197197,1.053656));
  hpcpush(hpxyz(0.194207,-0.182364,1.034878));
  hpcpush(hpxyz(0.134577,-0.229917,1.034878));
  hpcpush(hpxyz(0.132834,-0.304213,1.053656));
  hpcpush(hpxyz(0.012314,-0.331721,1.053656));
  hpcpush(hpxyz(-0.021492,-0.265539,1.034878));
  hpcpush(hpxyz(-0.095849,-0.248567,1.034878));
  hpcpush(hpxyz(-0.155023,-0.293527,1.053656));
  hpcpush(hpxyz(-0.251672,-0.216452,1.053656));
  hpcpush(hpxyz(-0.221007,-0.148758,1.034878));
  hpcpush(hpxyz(-0.254099,-0.080041,1.034878));
  
  bshape(shCloudFloor[1], 10);
  hpcpush(hpxyz(-0.216129,0.195545,1.041609));
  hpcpush(hpxyz(-0.209066,0.211647,1.043314));
  hpcpush(hpxyz(-0.195698,0.234578,1.045622));
  hpcpush(hpxyz(-0.193583,0.272597,1.054411));
  hpcpush(hpxyz(-0.202572,0.304529,1.064788));
  hpcpush(hpxyz(-0.198965,0.336605,1.073727));
  hpcpush(hpxyz(-0.167757,0.354608,1.074192));
  hpcpush(hpxyz(-0.132750,0.357613,1.070285));
  hpcpush(hpxyz(-0.104720,0.351753,1.065221));
  hpcpush(hpxyz(-0.079702,0.340062,1.059242));
  hpcpush(hpxyz(-0.064640,0.331114,1.055374));
  hpcpush(hpxyz(-0.040288,0.308007,1.047135));
  hpcpush(hpxyz(-0.023142,0.289269,1.041255));
  hpcpush(hpxyz(0.018129,0.290897,1.041609));
  hpcpush(hpxyz(0.035122,0.295414,1.043314));
  hpcpush(hpxyz(0.061385,0.299260,1.045622));
  hpcpush(hpxyz(0.092428,0.321310,1.054411));
  hpcpush(hpxyz(0.111789,0.348249,1.064788));
  hpcpush(hpxyz(0.139116,0.365426,1.073727));
  hpcpush(hpxyz(0.172649,0.352252,1.074192));
  hpcpush(hpxyz(0.196825,0.326757,1.070285));
  hpcpush(hpxyz(0.209719,0.301188,1.065221));
  hpcpush(hpxyz(0.216178,0.274339,1.059242));
  hpcpush(hpxyz(0.218573,0.256983,1.055374));
  hpcpush(hpxyz(0.215691,0.223538,1.047135));
  hpcpush(hpxyz(0.211731,0.198449,1.041255));
  hpcpush(hpxyz(0.238736,0.167197,1.041609));
  hpcpush(hpxyz(0.252862,0.156728,1.043314));
  hpcpush(hpxyz(0.272244,0.138593,1.045622));
  hpcpush(hpxyz(0.308838,0.128071,1.054411));
  hpcpush(hpxyz(0.341971,0.129729,1.064788));
  hpcpush(hpxyz(0.372439,0.119075,1.073727));
  hpcpush(hpxyz(0.383047,0.084643,1.074192));
  hpcpush(hpxyz(0.378187,0.049846,1.070285));
  hpcpush(hpxyz(0.366236,0.023822,1.065221));
  hpcpush(hpxyz(0.349271,0.002033,1.059242));
  hpcpush(hpxyz(0.337196,-0.010661,1.055374));
  hpcpush(hpxyz(0.309250,-0.029260,1.047135));
  hpcpush(hpxyz(0.287166,-0.041807,1.041255));
  hpcpush(hpxyz(0.279570,-0.082405,1.041609));
  hpcpush(hpxyz(0.280192,-0.099977,1.043314));
  hpcpush(hpxyz(0.278098,-0.126438,1.045622));
  hpcpush(hpxyz(0.292688,-0.161608,1.054411));
  hpcpush(hpxyz(0.314642,-0.186479,1.064788));
  hpcpush(hpxyz(0.325308,-0.216943,1.073727));
  hpcpush(hpxyz(0.305002,-0.246704,1.074192));
  hpcpush(hpxyz(0.274767,-0.264600,1.070285));
  hpcpush(hpxyz(0.246970,-0.271482,1.065221));
  hpcpush(hpxyz(0.219356,-0.271804,1.059242));
  hpcpush(hpxyz(0.201903,-0.270277,1.055374));
  hpcpush(hpxyz(0.169937,-0.260025,1.047135));
  hpcpush(hpxyz(0.146359,-0.250582,1.041255));
  hpcpush(hpxyz(0.109882,-0.269955,1.041609));
  hpcpush(hpxyz(0.096532,-0.281398,1.043314));
  hpcpush(hpxyz(0.074538,-0.296258,1.045622));
  hpcpush(hpxyz(0.056137,-0.329594,1.054411));
  hpcpush(hpxyz(0.050381,-0.362264,1.064788));
  hpcpush(hpxyz(0.033214,-0.389598,1.073727));
  hpcpush(hpxyz(-0.002715,-0.392278,1.074192));
  hpcpush(hpxyz(-0.035559,-0.379797,1.070285));
  hpcpush(hpxyz(-0.058270,-0.362355,1.065221));
  hpcpush(hpxyz(-0.075738,-0.340967,1.059242));
  hpcpush(hpxyz(-0.085427,-0.326369,1.055374));
  hpcpush(hpxyz(-0.097341,-0.294985,1.047135));
  hpcpush(hpxyz(-0.104659,-0.270663,1.041255));
  hpcpush(hpxyz(-0.142549,-0.254223,1.041609));
  hpcpush(hpxyz(-0.159819,-0.250920,1.043314));
  hpcpush(hpxyz(-0.185150,-0.242990,1.045622));
  hpcpush(hpxyz(-0.222686,-0.249388,1.054411));
  hpcpush(hpxyz(-0.251818,-0.265258,1.064788));
  hpcpush(hpxyz(-0.283891,-0.268878,1.073727));
  hpcpush(hpxyz(-0.308388,-0.242459,1.074192));
  hpcpush(hpxyz(-0.319108,-0.208999,1.070285));
  hpcpush(hpxyz(-0.319631,-0.180367,1.065221));
  hpcpush(hpxyz(-0.313800,-0.153375,1.059242));
  hpcpush(hpxyz(-0.308428,-0.136699,1.055374));
  hpcpush(hpxyz(-0.291320,-0.107816,1.047135));
  hpcpush(hpxyz(-0.276867,-0.086930,1.041255));
  hpcpush(hpxyz(-0.287638,-0.047056,1.041609));
  hpcpush(hpxyz(-0.295823,-0.031495,1.043314));
  hpcpush(hpxyz(-0.305417,-0.006746,1.045622));
  hpcpush(hpxyz(-0.333822,0.018612,1.054411));
  hpcpush(hpxyz(-0.364393,0.031493,1.064788));
  hpcpush(hpxyz(-0.387221,0.054313,1.073727));
  hpcpush(hpxyz(-0.381839,0.089937,1.074192));
  hpcpush(hpxyz(-0.362362,0.119180,1.070285));
  hpcpush(hpxyz(-0.340304,0.137441,1.065221));
  hpcpush(hpxyz(-0.315564,0.149712,1.059242));
  hpcpush(hpxyz(-0.299177,0.155909,1.055374));
  hpcpush(hpxyz(-0.265929,0.160541,1.047135));
  hpcpush(hpxyz(-0.240588,0.162264,1.041255));
  hpcpush(hpxyz(-0.216129,0.195545,1.041609));

  bshape(shTriFloor[0], 10);
  hpcpush(hpxyz(-0.353692,0.244649,1.088554));
  hpcpush(hpxyz(0.388718,0.183982,1.088554));
  hpcpush(hpxyz(-0.035026,-0.428630,1.088554));
  hpcpush(hpxyz(-0.353692,0.244649,1.088554));

  bshape(shTriFloor[1], 10);
  hpcpush(hpxyz(-0.352357,0.009788,1.060307));
  hpcpush(hpxyz(-0.212038,0.281586,1.060307));
  hpcpush(hpxyz(0.087949,0.341344,1.060307));
  hpcpush(hpxyz(0.321709,0.144063,1.060307));
  hpcpush(hpxyz(0.313216,-0.161700,1.060307));
  hpcpush(hpxyz(0.068864,-0.345700,1.060307));
  hpcpush(hpxyz(-0.227343,-0.269381,1.060307));
  hpcpush(hpxyz(-0.352357,0.009788,1.060307));

  bshape(shFeatherFloor[0], 10);
  hpcpush(hpxyz(0.227689,0.169556,1.039515));
  hpcpush(hpxyz(0.333673,0.157023,1.065830));
  hpcpush(hpxyz(0.251378,0.091850,1.035194));
  hpcpush(hpxyz(0.316741,0.073094,1.051507));
  hpcpush(hpxyz(0.260919,0.038655,1.034202));
  hpcpush(hpxyz(0.306256,0.038890,1.046568));
  hpcpush(hpxyz(0.231096,-0.033702,1.026909));
  hpcpush(hpxyz(0.255955,-0.043464,1.033152));
  hpcpush(hpxyz(0.226427,-0.077082,1.028208));
  hpcpush(hpxyz(0.266494,-0.101752,1.039891));
  hpcpush(hpxyz(0.217364,-0.144909,1.033560));
  hpcpush(hpxyz(0.223207,-0.194093,1.042830));
  hpcpush(hpxyz(0.158549,-0.144135,1.022699));
  hpcpush(hpxyz(0.179022,-0.208053,1.036984));
  hpcpush(hpxyz(0.105573,-0.172756,1.020289));
  hpcpush(hpxyz(0.120828,-0.236822,1.034739));
  hpcpush(hpxyz(0.033598,-0.201587,1.020669));
  hpcpush(hpxyz(0.067872,-0.281182,1.040995));
  hpcpush(hpxyz(0.032995,-0.281963,1.039515));
  hpcpush(hpxyz(-0.030851,-0.367481,1.065830));
  hpcpush(hpxyz(-0.046145,-0.263624,1.035194));
  hpcpush(hpxyz(-0.095069,-0.310853,1.051507));
  hpcpush(hpxyz(-0.096984,-0.245290,1.034202));
  hpcpush(hpxyz(-0.119449,-0.284670,1.046568));
  hpcpush(hpxyz(-0.144735,-0.183285,1.026909));
  hpcpush(hpxyz(-0.165618,-0.199931,1.033152));
  hpcpush(hpxyz(-0.179968,-0.157551,1.028208));
  hpcpush(hpxyz(-0.221367,-0.179914,1.039891));
  hpcpush(hpxyz(-0.234177,-0.115788,1.033560));
  hpcpush(hpxyz(-0.279693,-0.096256,1.042830));
  hpcpush(hpxyz(-0.204099,-0.065240,1.022699));
  hpcpush(hpxyz(-0.269690,-0.051011,1.036984));
  hpcpush(hpxyz(-0.202398,-0.005051,1.020289));
  hpcpush(hpxyz(-0.265508,0.013771,1.034739));
  hpcpush(hpxyz(-0.191378,0.071697,1.020669));
  hpcpush(hpxyz(-0.277447,0.081813,1.040995));
  hpcpush(hpxyz(-0.260684,0.112407,1.039515));
  hpcpush(hpxyz(-0.302822,0.210458,1.065830));
  hpcpush(hpxyz(-0.205233,0.171775,1.035194));
  hpcpush(hpxyz(-0.221672,0.237759,1.051507));
  hpcpush(hpxyz(-0.163935,0.206635,1.034202));
  hpcpush(hpxyz(-0.186807,0.245781,1.046568));
  hpcpush(hpxyz(-0.086362,0.216986,1.026909));
  hpcpush(hpxyz(-0.090337,0.243396,1.033152));
  hpcpush(hpxyz(-0.046459,0.234632,1.028208));
  hpcpush(hpxyz(-0.045127,0.281667,1.039891));
  hpcpush(hpxyz(0.016813,0.260697,1.033560));
  hpcpush(hpxyz(0.056486,0.290349,1.042830));
  hpcpush(hpxyz(0.045550,0.209375,1.022699));
  hpcpush(hpxyz(0.090668,0.259064,1.036984));
  hpcpush(hpxyz(0.096825,0.177807,1.020289));
  hpcpush(hpxyz(0.144680,0.223051,1.034739));
  hpcpush(hpxyz(0.157781,0.129890,1.020669));
  hpcpush(hpxyz(0.209575,0.199370,1.040995));
  hpcpush(hpxyz(0.227689,0.169556,1.039515));

  bshape(shFeatherFloor[1], 10);
  hpcpush(hpxyz(-0.097861,0.337622,1.059984));
  hpcpush(hpxyz(-0.034295,0.357645,1.062585));
  hpcpush(hpxyz(-0.014623,0.326578,1.052077));
  hpcpush(hpxyz(0.024557,0.373262,1.067674));
  hpcpush(hpxyz(0.063328,0.316638,1.050843));
  hpcpush(hpxyz(0.088328,0.358219,1.065890));
  hpcpush(hpxyz(0.111793,0.286773,1.046297));
  hpcpush(hpxyz(0.146987,0.328271,1.062717));
  hpcpush(hpxyz(0.170806,0.287930,1.054551));
  hpcpush(hpxyz(0.191056,0.303731,1.062429));
  hpcpush(hpxyz(0.202948,0.287015,1.059984));
  hpcpush(hpxyz(0.258236,0.249801,1.062585));
  hpcpush(hpxyz(0.246211,0.215050,1.052077));
  hpcpush(hpxyz(0.307139,0.213526,1.067674));
  hpcpush(hpxyz(0.287042,0.147909,1.050843));
  hpcpush(hpxyz(0.335138,0.154288,1.065890));
  hpcpush(hpxyz(0.293910,0.091397,1.046297));
  hpcpush(hpxyz(0.348297,0.089755,1.062717));
  hpcpush(hpxyz(0.331608,0.045980,1.054551));
  hpcpush(hpxyz(0.356588,0.039999,1.062429));
  hpcpush(hpxyz(0.350933,0.020280,1.059984));
  hpcpush(hpxyz(0.356310,-0.046149,1.062585));
  hpcpush(hpxyz(0.321644,-0.058414,1.052077));
  hpcpush(hpxyz(0.358439,-0.107000,1.067674));
  hpcpush(hpxyz(0.294608,-0.132199,1.050843));
  hpcpush(hpxyz(0.329582,-0.165824,1.065890));
  hpcpush(hpxyz(0.254707,-0.172803,1.046297));
  hpcpush(hpxyz(0.287333,-0.216349,1.062717));
  hpcpush(hpxyz(0.242703,-0.230594,1.054551));
  hpcpush(hpxyz(0.253601,-0.253853,1.062429));
  hpcpush(hpxyz(0.234659,-0.261726,1.059984));
  hpcpush(hpxyz(0.186075,-0.307347,1.062585));
  hpcpush(hpxyz(0.154871,-0.287892,1.052077));
  hpcpush(hpxyz(0.139827,-0.346952,1.067674));
  hpcpush(hpxyz(0.080328,-0.312758,1.050843));
  hpcpush(hpxyz(0.075845,-0.361068,1.065890));
  hpcpush(hpxyz(0.023704,-0.306879,1.046297));
  hpcpush(hpxyz(0.010001,-0.359537,1.062717));
  hpcpush(hpxyz(-0.028963,-0.333526,1.054551));
  hpcpush(hpxyz(-0.040352,-0.356548,1.062429));
  hpcpush(hpxyz(-0.058319,-0.346647,1.059984));
  hpcpush(hpxyz(-0.124278,-0.337107,1.062585));
  hpcpush(hpxyz(-0.128522,-0.300581,1.052077));
  hpcpush(hpxyz(-0.184077,-0.325642,1.067674));
  hpcpush(hpxyz(-0.194441,-0.257805,1.050843));
  hpcpush(hpxyz(-0.235006,-0.284420,1.065890));
  hpcpush(hpxyz(-0.225148,-0.209869,1.046297));
  hpcpush(hpxyz(-0.274862,-0.231987,1.062717));
  hpcpush(hpxyz(-0.278819,-0.185306,1.054551));
  hpcpush(hpxyz(-0.303920,-0.190756,1.062429));
  hpcpush(hpxyz(-0.307381,-0.170536,1.059984));
  hpcpush(hpxyz(-0.341047,-0.113018,1.062585));
  hpcpush(hpxyz(-0.315136,-0.086927,1.052077));
  hpcpush(hpxyz(-0.369368,-0.059118,1.067674));
  hpcpush(hpxyz(-0.322791,-0.008719,1.050843));
  hpcpush(hpxyz(-0.368892,0.006402,1.065890));
  hpcpush(hpxyz(-0.304459,0.045177,1.046297));
  hpcpush(hpxyz(-0.352748,0.070255,1.062717));
  hpcpush(hpxyz(-0.318719,0.102453,1.054551));
  hpcpush(hpxyz(-0.338629,0.118680,1.062429));
  hpcpush(hpxyz(-0.324979,0.133993,1.059984));
  hpcpush(hpxyz(-0.301001,0.196175,1.062585));
  hpcpush(hpxyz(-0.264446,0.192185,1.052077));
  hpcpush(hpxyz(-0.276517,0.251924,1.067674));
  hpcpush(hpxyz(-0.208074,0.246932,1.050843));
  hpcpush(hpxyz(-0.224995,0.292403,1.065890));
  hpcpush(hpxyz(-0.154507,0.266203,1.046297));
  hpcpush(hpxyz(-0.165008,0.319593,1.062717));
  hpcpush(hpxyz(-0.118617,0.313063,1.054551));
  hpcpush(hpxyz(-0.118344,0.338747,1.062429));
  hpcpush(hpxyz(-0.097861,0.337622,1.059984));

  bshape(shNewFloor[0], 10);
  hpcpush(hpxyz(-0.243151,-0.202057,1.048785));
  hpcpush(hpxyz(-0.249456,-0.026167,1.030977));
  hpcpush(hpxyz(-0.208097,0.124704,1.029007));
  hpcpush(hpxyz(-0.053410,0.311604,1.048785));
  hpcpush(hpxyz(0.102066,0.229119,1.030977));
  hpcpush(hpxyz(0.212045,0.117865,1.029007));
  hpcpush(hpxyz(0.296562,-0.109547,1.048785));
  hpcpush(hpxyz(0.147390,-0.202952,1.030977));
  hpcpush(hpxyz(-0.003949,-0.242569,1.029007));
  hpcpush(hpxyz(-0.243151,-0.202057,1.048785));

  bshape(shNewFloor[1], 10);
  hpcpush(hpxyz(-0.343473,0.068811,1.059580));
  hpcpush(hpxyz(-0.371524,0.213003,1.087842));
  hpcpush(hpxyz(-0.243649,0.253621,1.060042));
  hpcpush(hpxyz(-0.160353,0.311441,1.059580));
  hpcpush(hpxyz(-0.065108,0.423274,1.087842));
  hpcpush(hpxyz(0.046377,0.348623,1.060042));
  hpcpush(hpxyz(0.143516,0.319550,1.059580));
  hpcpush(hpxyz(0.290335,0.314811,1.087842));
  hpcpush(hpxyz(0.301479,0.181104,1.060042));
  hpcpush(hpxyz(0.339315,0.087031,1.059580));
  hpcpush(hpxyz(0.427150,-0.030712,1.087842));
  hpcpush(hpxyz(0.329562,-0.122790,1.060042));
  hpcpush(hpxyz(0.279603,-0.211024,1.059580));
  hpcpush(hpxyz(0.242312,-0.353108,1.087842));
  hpcpush(hpxyz(0.109478,-0.334220,1.060042));
  hpcpush(hpxyz(0.009344,-0.350173,1.059580));
  hpcpush(hpxyz(-0.124991,-0.409606,1.087842));
  hpcpush(hpxyz(-0.193046,-0.293976,1.060042));
  hpcpush(hpxyz(-0.267951,-0.225635,1.059580));
  hpcpush(hpxyz(-0.398174,-0.157663,1.087842));
  hpcpush(hpxyz(-0.350202,-0.032362,1.060042));
  hpcpush(hpxyz(-0.343473,0.068811,1.059580));

  // group 0 layer 0

  bshape(shPalaceFloor[0], 10);
  hpcpush(hpxyz(0.118361,0.205152,1.027666));
  hpcpush(hpxyz(0.273318,0.190450,1.054028));
  hpcpush(hpxyz(0.273318,-0.190450,1.054028));
  hpcpush(hpxyz(0.118361,-0.205152,1.027666));
  hpcpush(hpxyz(0.118486,-0.205080,1.027666));
  hpcpush(hpxyz(0.028276,-0.331925,1.054028));
  hpcpush(hpxyz(-0.301594,-0.141475,1.054028));
  hpcpush(hpxyz(-0.236847,0.000072,1.027666));
  hpcpush(hpxyz(-0.236847,-0.000072,1.027666));
  hpcpush(hpxyz(-0.301594,0.141475,1.054028));
  hpcpush(hpxyz(0.028276,0.331925,1.054028));
  hpcpush(hpxyz(0.118486,0.205080,1.027666));
  hpcpush(hpxyz(0.118361,0.205152,1.027666));

  bshape(shPalaceFloor[1], 10);
  hpcpush(hpxyz(-0.225907,0.287688,1.064800));
  hpcpush(hpxyz(0.084073,0.355992,1.064800));
  hpcpush(hpxyz(0.330745,0.156227,1.064800));
  hpcpush(hpxyz(0.328359,-0.161181,1.064800));
  hpcpush(hpxyz(0.078712,-0.357216,1.064800));
  hpcpush(hpxyz(-0.230206,-0.284260,1.064800));
  hpcpush(hpxyz(-0.365775,0.002749,1.064800));
  hpcpush(hpxyz(-0.225907,0.287688,1.064800));
  
  bshape(shPalaceGate, 13);
  hpcpush(hpxyz(-0.219482,-0.025012,1.024108));
  hpcpush(hpxyz(0.135153,-0.049012,1.010281));
  hpcpush(hpxyz(0.135153,0.049012,1.010281));
  hpcpush(hpxyz(-0.219482,0.025012,1.024108));
  hpcpush(hpxyz(-0.219482,-0.025012,1.024108));  

  bshape(shSemiFeatherFloor[0], 10);
  hpcpush(hpxyz(-0.213723,0.142000,1.032396));
  hpcpush(hpxyz(-0.217805,0.186740,1.040342));
  hpcpush(hpxyz(-0.168303,0.178633,1.029677));
  hpcpush(hpxyz(-0.165430,0.203978,1.033912));
  hpcpush(hpxyz(-0.105630,0.181755,1.021857));
  hpcpush(hpxyz(-0.121309,0.236968,1.034828));
  hpcpush(hpxyz(-0.041402,0.211323,1.022923));
  hpcpush(hpxyz(-0.057879,0.276895,1.039240));
  hpcpush(hpxyz(-0.017811,0.253866,1.031874));
  hpcpush(hpxyz(0.017667,0.368934,1.066032));
  hpcpush(hpxyz(0.047389,0.274022,1.037947));
  hpcpush(hpxyz(0.080505,0.307761,1.049380));
  hpcpush(hpxyz(0.077701,0.240665,1.031483));
  hpcpush(hpxyz(0.118416,0.268671,1.042212));
  hpcpush(hpxyz(0.146146,0.160920,1.023354));
  hpcpush(hpxyz(0.177400,0.199591,1.035040));
  hpcpush(hpxyz(0.182840,0.137845,1.025881));
  hpcpush(hpxyz(0.210035,0.188620,1.039082));
  hpcpush(hpxyz(0.224749,0.113626,1.031224));
  hpcpush(hpxyz(0.281767,0.097057,1.043462));
  hpcpush(hpxyz(0.212978,0.071571,1.024930));
  hpcpush(hpxyz(0.267866,0.042710,1.036135));
  hpcpush(hpxyz(0.209124,0.016525,1.021766));
  hpcpush(hpxyz(0.255362,-0.017839,1.032244));
  hpcpush(hpxyz(0.214280,-0.046220,1.023744));
  hpcpush(hpxyz(0.270979,-0.083301,1.039408));
  hpcpush(hpxyz(0.265581,-0.128638,1.042632));
  hpcpush(hpxyz(0.025000,0.006441,1.000333));
  hpcpush(hpxyz(-0.213723,0.142000,1.032396));

  bshape(shSemiFeatherFloor[1], 10);
  hpcpush(hpxyz(-0.260056,0.104281,1.038510));
  hpcpush(hpxyz(0.016285,-0.045687,1.001176));
  hpcpush(hpxyz(0.294213,-0.200108,1.061416));
  hpcpush(hpxyz(0.203762,-0.171240,1.034815));
  hpcpush(hpxyz(0.218578,-0.231670,1.049499));
  hpcpush(hpxyz(0.162724,-0.207729,1.034229));
  hpcpush(hpxyz(0.184841,-0.241991,1.045335));
  hpcpush(hpxyz(0.080474,-0.212574,1.025507));
  hpcpush(hpxyz(0.082238,-0.239152,1.031483));
  hpcpush(hpxyz(0.040630,-0.227735,1.026408));
  hpcpush(hpxyz(0.050962,-0.289632,1.042345));
  hpcpush(hpxyz(-0.023848,-0.250638,1.031207));
  hpcpush(hpxyz(-0.047106,-0.286037,1.041171));
  hpcpush(hpxyz(-0.055913,-0.224791,1.026478));
  hpcpush(hpxyz(-0.096323,-0.258790,1.037425));
  hpcpush(hpxyz(-0.110786,-0.189815,1.023867));
  hpcpush(hpxyz(-0.154769,-0.220600,1.035673));
  hpcpush(hpxyz(-0.166545,-0.156525,1.025786));
  hpcpush(hpxyz(-0.220248,-0.191486,1.041718));
  hpcpush(hpxyz(-0.226246,-0.155963,1.037069));
  hpcpush(hpxyz(-0.331380,-0.170431,1.067173));
  hpcpush(hpxyz(-0.264008,-0.097302,1.038830));
  hpcpush(hpxyz(-0.308875,-0.070140,1.048963));
  hpcpush(hpxyz(-0.282501,-0.040835,1.039940));
  hpcpush(hpxyz(-0.303566,-0.023046,1.045315));
  hpcpush(hpxyz(-0.264959,0.005751,1.034522));
  hpcpush(hpxyz(-0.231085,0.042569,1.027235));
  hpcpush(hpxyz(-0.257805,0.048589,1.033840));
  hpcpush(hpxyz(-0.232591,0.068009,1.028943));
  hpcpush(hpxyz(-0.260056,0.104281,1.038510));

  bshape(shDemonFloor[1], 10);
  hpcpush(hpxyz(-0.226625,-0.098204,1.030050));
  hpcpush(hpxyz(-0.248360,-0.079830,1.033468));
  hpcpush(hpxyz(-0.282817,-0.064277,1.041209));
  hpcpush(hpxyz(-0.267165,-0.033078,1.035602));
  hpcpush(hpxyz(-0.265427,-0.008890,1.034665));
  hpcpush(hpxyz(-0.192052,-0.006156,1.018294));
  hpcpush(hpxyz(-0.183253,-0.047966,1.017783));
  hpcpush(hpxyz(-0.143185,-0.036403,1.010855));
  hpcpush(hpxyz(-0.143048,-0.019396,1.010366));
  hpcpush(hpxyz(-0.166019,-0.021973,1.013926));
  hpcpush(hpxyz(-0.166019,0.021973,1.013926));
  hpcpush(hpxyz(-0.143048,0.019396,1.010366));
  hpcpush(hpxyz(-0.143185,0.036403,1.010855));
  hpcpush(hpxyz(-0.183253,0.047966,1.017783));
  hpcpush(hpxyz(-0.192052,0.006156,1.018294));
  hpcpush(hpxyz(-0.265427,0.008890,1.034665));
  hpcpush(hpxyz(-0.267165,0.033078,1.035602));
  hpcpush(hpxyz(-0.282817,0.064277,1.041209));
  hpcpush(hpxyz(-0.248360,0.079830,1.033468));
  hpcpush(hpxyz(-0.226625,0.098204,1.030050));
  hpcpush(hpxyz(-0.218077,0.115953,1.030050));
  hpcpush(hpxyz(-0.217264,0.144403,1.033468));
  hpcpush(hpxyz(-0.226587,0.181040,1.041209));
  hpcpush(hpxyz(-0.192436,0.188254,1.035602));
  hpcpush(hpxyz(-0.172442,0.201977,1.034665));
  hpcpush(hpxyz(-0.124555,0.146314,1.018294));
  hpcpush(hpxyz(-0.151758,0.113367,1.017783));
  hpcpush(hpxyz(-0.117735,0.089250,1.010855));
  hpcpush(hpxyz(-0.104354,0.099746,1.010366));
  hpcpush(hpxyz(-0.120690,0.116099,1.013926));
  hpcpush(hpxyz(-0.086332,0.143499,1.013926));
  hpcpush(hpxyz(-0.074024,0.123933,1.010366));
  hpcpush(hpxyz(-0.060813,0.134643,1.010855));
  hpcpush(hpxyz(-0.076756,0.173179,1.017783));
  hpcpush(hpxyz(-0.114930,0.153990,1.018294));
  hpcpush(hpxyz(-0.158541,0.213062,1.034665));
  hpcpush(hpxyz(-0.140713,0.229501,1.035602));
  hpcpush(hpxyz(-0.126080,0.261191,1.041209));
  hpcpush(hpxyz(-0.092436,0.243949,1.033468));
  hpcpush(hpxyz(-0.064519,0.238411,1.030050));
  hpcpush(hpxyz(-0.045313,0.242795,1.030050));
  hpcpush(hpxyz(-0.022563,0.259897,1.033468));
  hpcpush(hpxyz(0.000268,0.290029,1.041209));
  hpcpush(hpxyz(0.027202,0.267827,1.035602));
  hpcpush(hpxyz(0.050396,0.260751,1.034665));
  hpcpush(hpxyz(0.036734,0.188606,1.018294));
  hpcpush(hpxyz(-0.005985,0.189332,1.017783));
  hpcpush(hpxyz(-0.003629,0.147695,1.010855));
  hpcpush(hpxyz(0.012921,0.143777,1.010366));
  hpcpush(hpxyz(0.015520,0.166746,1.013926));
  hpcpush(hpxyz(0.058365,0.156967,1.013926));
  hpcpush(hpxyz(0.050741,0.135145,1.010366));
  hpcpush(hpxyz(0.067352,0.131495,1.010855));
  hpcpush(hpxyz(0.087541,0.167986,1.017783));
  hpcpush(hpxyz(0.048737,0.185867,1.018294));
  hpcpush(hpxyz(0.067730,0.256794,1.034665));
  hpcpush(hpxyz(0.091698,0.253106,1.035602));
  hpcpush(hpxyz(0.125598,0.261424,1.041209));
  hpcpush(hpxyz(0.133094,0.224370,1.033468));
  hpcpush(hpxyz(0.146171,0.199090,1.030050));
  hpcpush(hpxyz(0.161573,0.186808,1.030050));
  hpcpush(hpxyz(0.189128,0.179684,1.033468));
  hpcpush(hpxyz(0.226921,0.180621,1.041209));
  hpcpush(hpxyz(0.226355,0.145720,1.035602));
  hpcpush(hpxyz(0.235285,0.123174,1.034665));
  hpcpush(hpxyz(0.170362,0.088874,1.018294));
  hpcpush(hpxyz(0.144294,0.122726,1.017783));
  hpcpush(hpxyz(0.113211,0.094924,1.010855));
  hpcpush(hpxyz(0.120466,0.079542,1.010366));
  hpcpush(hpxyz(0.140044,0.091830,1.013926));
  hpcpush(hpxyz(0.159111,0.052236,1.013926));
  hpcpush(hpxyz(0.137297,0.044591,1.010366));
  hpcpush(hpxyz(0.144800,0.029328,1.010855));
  hpcpush(hpxyz(0.185917,0.036295,1.017783));
  hpcpush(hpxyz(0.175703,0.077782,1.018294));
  hpcpush(hpxyz(0.242999,0.107155,1.034665));
  hpcpush(hpxyz(0.255059,0.086117,1.035602));
  hpcpush(hpxyz(0.282698,0.064799,1.041209));
  hpcpush(hpxyz(0.258402,0.035835,1.033468));
  hpcpush(hpxyz(0.246791,0.009850,1.030050));
  hpcpush(hpxyz(0.246791,-0.009850,1.030050));
  hpcpush(hpxyz(0.258402,-0.035835,1.033468));
  hpcpush(hpxyz(0.282698,-0.064799,1.041209));
  hpcpush(hpxyz(0.255059,-0.086117,1.035602));
  hpcpush(hpxyz(0.242999,-0.107155,1.034665));
  hpcpush(hpxyz(0.175703,-0.077782,1.018294));
  hpcpush(hpxyz(0.185917,-0.036295,1.017783));
  hpcpush(hpxyz(0.144800,-0.029328,1.010855));
  hpcpush(hpxyz(0.137297,-0.044591,1.010366));
  hpcpush(hpxyz(0.159111,-0.052236,1.013926));
  hpcpush(hpxyz(0.140044,-0.091830,1.013926));
  hpcpush(hpxyz(0.120466,-0.079542,1.010366));
  hpcpush(hpxyz(0.113211,-0.094924,1.010855));
  hpcpush(hpxyz(0.144294,-0.122726,1.017783));
  hpcpush(hpxyz(0.170362,-0.088874,1.018294));
  hpcpush(hpxyz(0.235285,-0.123174,1.034665));
  hpcpush(hpxyz(0.226355,-0.145720,1.035602));
  hpcpush(hpxyz(0.226921,-0.180621,1.041209));
  hpcpush(hpxyz(0.189128,-0.179684,1.033468));
  hpcpush(hpxyz(0.161573,-0.186808,1.030050));
  hpcpush(hpxyz(0.146171,-0.199090,1.030050));
  hpcpush(hpxyz(0.133094,-0.224370,1.033468));
  hpcpush(hpxyz(0.125598,-0.261424,1.041209));
  hpcpush(hpxyz(0.091698,-0.253106,1.035602));
  hpcpush(hpxyz(0.067730,-0.256794,1.034665));
  hpcpush(hpxyz(0.048737,-0.185867,1.018294));
  hpcpush(hpxyz(0.087541,-0.167986,1.017783));
  hpcpush(hpxyz(0.067352,-0.131495,1.010855));
  hpcpush(hpxyz(0.050741,-0.135145,1.010366));
  hpcpush(hpxyz(0.058365,-0.156967,1.013926));
  hpcpush(hpxyz(0.015520,-0.166746,1.013926));
  hpcpush(hpxyz(0.012921,-0.143777,1.010366));
  hpcpush(hpxyz(-0.003629,-0.147695,1.010855));
  hpcpush(hpxyz(-0.005985,-0.189332,1.017783));
  hpcpush(hpxyz(0.036734,-0.188606,1.018294));
  hpcpush(hpxyz(0.050396,-0.260751,1.034665));
  hpcpush(hpxyz(0.027202,-0.267827,1.035602));
  hpcpush(hpxyz(0.000268,-0.290029,1.041209));
  hpcpush(hpxyz(-0.022563,-0.259897,1.033468));
  hpcpush(hpxyz(-0.045313,-0.242795,1.030050));
  hpcpush(hpxyz(-0.064519,-0.238411,1.030050));
  hpcpush(hpxyz(-0.092436,-0.243949,1.033468));
  hpcpush(hpxyz(-0.126080,-0.261191,1.041209));
  hpcpush(hpxyz(-0.140713,-0.229501,1.035602));
  hpcpush(hpxyz(-0.158541,-0.213062,1.034665));
  hpcpush(hpxyz(-0.114930,-0.153990,1.018294));
  hpcpush(hpxyz(-0.076756,-0.173179,1.017783));
  hpcpush(hpxyz(-0.060813,-0.134643,1.010855));
  hpcpush(hpxyz(-0.074024,-0.123933,1.010366));
  hpcpush(hpxyz(-0.086332,-0.143499,1.013926));
  hpcpush(hpxyz(-0.120690,-0.116099,1.013926));
  hpcpush(hpxyz(-0.104354,-0.099746,1.010366));
  hpcpush(hpxyz(-0.117735,-0.089250,1.010855));
  hpcpush(hpxyz(-0.151758,-0.113367,1.017783));
  hpcpush(hpxyz(-0.124555,-0.146314,1.018294));
  hpcpush(hpxyz(-0.172442,-0.201977,1.034665));
  hpcpush(hpxyz(-0.192436,-0.188254,1.035602));
  hpcpush(hpxyz(-0.226587,-0.181040,1.041209));
  hpcpush(hpxyz(-0.217264,-0.144403,1.033468));
  hpcpush(hpxyz(-0.218077,-0.115953,1.030050));
  hpcpush(hpxyz(-0.226625,-0.098204,1.030050));

  bshape(shDemonFloor[0], 10);
  hpcpush(hpxyz(-0.301493,-0.143505,1.054273));
  hpcpush(hpxyz(-0.286951,-0.089187,1.044172));
  hpcpush(hpxyz(-0.265835,-0.083073,1.038060));
  hpcpush(hpxyz(-0.254617,-0.091662,1.035969));
  hpcpush(hpxyz(-0.235025,-0.098559,1.031964));
  hpcpush(hpxyz(-0.212515,-0.090006,1.026286));
  hpcpush(hpxyz(-0.195614,-0.068094,1.021226));
  hpcpush(hpxyz(-0.191005,-0.038201,1.018795));
  hpcpush(hpxyz(-0.190797,-0.019695,1.018230));
  hpcpush(hpxyz(-0.209527,-0.022317,1.021959));
  hpcpush(hpxyz(-0.209825,-0.043455,1.022700));
  hpcpush(hpxyz(-0.217026,-0.061116,1.025103));
  hpcpush(hpxyz(-0.229748,-0.071561,1.028545));
  hpcpush(hpxyz(-0.245216,-0.072048,1.032144));
  hpcpush(hpxyz(-0.259160,-0.060979,1.034834));
  hpcpush(hpxyz(-0.268975,-0.048441,1.036674));
  hpcpush(hpxyz(-0.279355,-0.049976,1.039489));
  hpcpush(hpxyz(-0.293619,-0.069848,1.044553));
  hpcpush(hpxyz(-0.299119,-0.088435,1.047517));
  hpcpush(hpxyz(-0.309915,-0.111622,1.052856));
  hpcpush(hpxyz(-0.326351,-0.118070,1.058511));
  hpcpush(hpxyz(-0.344537,-0.119314,1.064397));
  hpcpush(hpxyz(-0.371612,-0.115703,1.073072));
  hpcpush(hpxyz(-0.386986,-0.108411,1.077734));
  hpcpush(hpxyz(-0.395533,-0.101984,1.080207));
  hpcpush(hpxyz(-0.372081,-0.100489,1.071701));
  hpcpush(hpxyz(-0.352370,-0.089767,1.064059));
  hpcpush(hpxyz(-0.339559,-0.070299,1.058415));
  hpcpush(hpxyz(-0.338745,-0.051606,1.057077));
  hpcpush(hpxyz(-0.343230,-0.037106,1.057915));
  hpcpush(hpxyz(-0.346305,-0.026537,1.058599));
  hpcpush(hpxyz(-0.349398,-0.006643,1.059303));
  hpcpush(hpxyz(-0.344437,0.011923,1.057724));
  hpcpush(hpxyz(-0.344437,-0.011923,1.057724));
  hpcpush(hpxyz(-0.349398,0.006643,1.059303));
  hpcpush(hpxyz(-0.346305,0.026537,1.058599));
  hpcpush(hpxyz(-0.343230,0.037106,1.057915));
  hpcpush(hpxyz(-0.338745,0.051606,1.057077));
  hpcpush(hpxyz(-0.339559,0.070299,1.058415));
  hpcpush(hpxyz(-0.352370,0.089767,1.064059));
  hpcpush(hpxyz(-0.372081,0.100489,1.071701));
  hpcpush(hpxyz(-0.395533,0.101984,1.080207));
  hpcpush(hpxyz(-0.386986,0.108411,1.077734));
  hpcpush(hpxyz(-0.371612,0.115703,1.073072));
  hpcpush(hpxyz(-0.344537,0.119314,1.064397));
  hpcpush(hpxyz(-0.326351,0.118070,1.058511));
  hpcpush(hpxyz(-0.309915,0.111622,1.052856));
  hpcpush(hpxyz(-0.299119,0.088435,1.047517));
  hpcpush(hpxyz(-0.293619,0.069848,1.044553));
  hpcpush(hpxyz(-0.279355,0.049976,1.039489));
  hpcpush(hpxyz(-0.268975,0.048441,1.036674));
  hpcpush(hpxyz(-0.259160,0.060979,1.034834));
  hpcpush(hpxyz(-0.245216,0.072048,1.032144));
  hpcpush(hpxyz(-0.229748,0.071561,1.028545));
  hpcpush(hpxyz(-0.217026,0.061116,1.025103));
  hpcpush(hpxyz(-0.209825,0.043455,1.022700));
  hpcpush(hpxyz(-0.209527,0.022317,1.021959));
  hpcpush(hpxyz(-0.190797,0.019695,1.018230));
  hpcpush(hpxyz(-0.191005,0.038201,1.018795));
  hpcpush(hpxyz(-0.195614,0.068094,1.021226));
  hpcpush(hpxyz(-0.212515,0.090006,1.026286));
  hpcpush(hpxyz(-0.235025,0.098559,1.031964));
  hpcpush(hpxyz(-0.254617,0.091662,1.035969));
  hpcpush(hpxyz(-0.265835,0.083073,1.038060));
  hpcpush(hpxyz(-0.286951,0.089187,1.044172));
  hpcpush(hpxyz(-0.301493,0.143505,1.054273));
  hpcpush(hpxyz(0.026467,0.332853,1.054273));
  hpcpush(hpxyz(0.066237,0.293100,1.044172));
  hpcpush(hpxyz(0.060974,0.271757,1.038060));
  hpcpush(hpxyz(0.047927,0.266336,1.035969));
  hpcpush(hpxyz(0.032158,0.252817,1.031964));
  hpcpush(hpxyz(0.028310,0.229046,1.026286));
  hpcpush(hpxyz(0.038836,0.203454,1.021226));
  hpcpush(hpxyz(0.062419,0.184516,1.018795));
  hpcpush(hpxyz(0.078342,0.175083,1.018230));
  hpcpush(hpxyz(0.085437,0.192614,1.021959));
  hpcpush(hpxyz(0.067279,0.203441,1.022700));
  hpcpush(hpxyz(0.055584,0.218508,1.025103));
  hpcpush(hpxyz(0.052900,0.234748,1.028545));
  hpcpush(hpxyz(0.060213,0.248387,1.032144));
  hpcpush(hpxyz(0.076771,0.254928,1.034834));
  hpcpush(hpxyz(0.092536,0.257159,1.036674));
  hpcpush(hpxyz(0.096397,0.266917,1.039489));
  hpcpush(hpxyz(0.086320,0.289205,1.044553));
  hpcpush(hpxyz(0.072972,0.303262,1.047517));
  hpcpush(hpxyz(0.058290,0.324205,1.052856));
  hpcpush(hpxyz(0.060924,0.341663,1.058511));
  hpcpush(hpxyz(0.068939,0.358035,1.064397));
  hpcpush(hpxyz(0.085604,0.379677,1.073072));
  hpcpush(hpxyz(0.099606,0.389345,1.077734));
  hpcpush(hpxyz(0.109446,0.393534,1.080207));
  hpcpush(hpxyz(0.099014,0.372476,1.071701));
  hpcpush(hpxyz(0.098444,0.350045,1.064059));
  hpcpush(hpxyz(0.108898,0.329216,1.058415));
  hpcpush(hpxyz(0.124681,0.319165,1.057077));
  hpcpush(hpxyz(0.139480,0.315799,1.057915));
  hpcpush(hpxyz(0.150171,0.313177,1.058599));
  hpcpush(hpxyz(0.168947,0.305909,1.059303));
  hpcpush(hpxyz(0.182544,0.292330,1.057724));
  hpcpush(hpxyz(0.161893,0.304253,1.057724));
  hpcpush(hpxyz(0.180452,0.299267,1.059303));
  hpcpush(hpxyz(0.196134,0.286640,1.058599));
  hpcpush(hpxyz(0.203750,0.278693,1.057915));
  hpcpush(hpxyz(0.214064,0.267559,1.057077));
  hpcpush(hpxyz(0.230660,0.258917,1.058415));
  hpcpush(hpxyz(0.253926,0.260278,1.064059));
  hpcpush(hpxyz(0.273066,0.271987,1.071701));
  hpcpush(hpxyz(0.286087,0.291550,1.080207));
  hpcpush(hpxyz(0.287380,0.280934,1.077734));
  hpcpush(hpxyz(0.286008,0.263974,1.073072));
  hpcpush(hpxyz(0.275598,0.238721,1.064397));
  hpcpush(hpxyz(0.265427,0.223593,1.058511));
  hpcpush(hpxyz(0.251625,0.212583,1.052856));
  hpcpush(hpxyz(0.226146,0.214827,1.047517));
  hpcpush(hpxyz(0.207299,0.219357,1.044553));
  hpcpush(hpxyz(0.182958,0.216941,1.039489));
  hpcpush(hpxyz(0.176438,0.208718,1.036674));
  hpcpush(hpxyz(0.182389,0.193949,1.034834));
  hpcpush(hpxyz(0.185004,0.176339,1.032144));
  hpcpush(hpxyz(0.176847,0.163187,1.028545));
  hpcpush(hpxyz(0.161441,0.157392,1.025103));
  hpcpush(hpxyz(0.142545,0.159986,1.022700));
  hpcpush(hpxyz(0.124090,0.170298,1.021959));
  hpcpush(hpxyz(0.112455,0.155388,1.018230));
  hpcpush(hpxyz(0.128586,0.146315,1.018795));
  hpcpush(hpxyz(0.156778,0.135360,1.021226));
  hpcpush(hpxyz(0.184205,0.139040,1.026286));
  hpcpush(hpxyz(0.202867,0.154258,1.031964));
  hpcpush(hpxyz(0.206690,0.174674,1.035969));
  hpcpush(hpxyz(0.204861,0.188683,1.038060));
  hpcpush(hpxyz(0.220714,0.203913,1.044172));
  hpcpush(hpxyz(0.275026,0.189348,1.054273));
  hpcpush(hpxyz(0.275026,-0.189348,1.054273));
  hpcpush(hpxyz(0.220714,-0.203913,1.044172));
  hpcpush(hpxyz(0.204861,-0.188683,1.038060));
  hpcpush(hpxyz(0.206690,-0.174674,1.035969));
  hpcpush(hpxyz(0.202867,-0.154258,1.031964));
  hpcpush(hpxyz(0.184205,-0.139040,1.026286));
  hpcpush(hpxyz(0.156778,-0.135360,1.021226));
  hpcpush(hpxyz(0.128586,-0.146315,1.018795));
  hpcpush(hpxyz(0.112455,-0.155388,1.018230));
  hpcpush(hpxyz(0.124090,-0.170298,1.021959));
  hpcpush(hpxyz(0.142545,-0.159986,1.022700));
  hpcpush(hpxyz(0.161441,-0.157392,1.025103));
  hpcpush(hpxyz(0.176847,-0.163187,1.028545));
  hpcpush(hpxyz(0.185004,-0.176339,1.032144));
  hpcpush(hpxyz(0.182389,-0.193949,1.034834));
  hpcpush(hpxyz(0.176438,-0.208718,1.036674));
  hpcpush(hpxyz(0.182958,-0.216941,1.039489));
  hpcpush(hpxyz(0.207299,-0.219357,1.044553));
  hpcpush(hpxyz(0.226146,-0.214827,1.047517));
  hpcpush(hpxyz(0.251625,-0.212583,1.052856));
  hpcpush(hpxyz(0.265427,-0.223593,1.058511));
  hpcpush(hpxyz(0.275598,-0.238721,1.064397));
  hpcpush(hpxyz(0.286008,-0.263974,1.073072));
  hpcpush(hpxyz(0.287380,-0.280934,1.077734));
  hpcpush(hpxyz(0.286087,-0.291550,1.080207));
  hpcpush(hpxyz(0.273066,-0.271987,1.071701));
  hpcpush(hpxyz(0.253926,-0.260278,1.064059));
  hpcpush(hpxyz(0.230660,-0.258917,1.058415));
  hpcpush(hpxyz(0.214064,-0.267559,1.057077));
  hpcpush(hpxyz(0.203750,-0.278693,1.057915));
  hpcpush(hpxyz(0.196134,-0.286640,1.058599));
  hpcpush(hpxyz(0.180452,-0.299267,1.059303));
  hpcpush(hpxyz(0.161893,-0.304253,1.057724));
  hpcpush(hpxyz(0.182544,-0.292330,1.057724));
  hpcpush(hpxyz(0.168947,-0.305909,1.059303));
  hpcpush(hpxyz(0.150171,-0.313177,1.058599));
  hpcpush(hpxyz(0.139480,-0.315799,1.057915));
  hpcpush(hpxyz(0.124681,-0.319165,1.057077));
  hpcpush(hpxyz(0.108898,-0.329216,1.058415));
  hpcpush(hpxyz(0.098444,-0.350045,1.064059));
  hpcpush(hpxyz(0.099014,-0.372476,1.071701));
  hpcpush(hpxyz(0.109446,-0.393534,1.080207));
  hpcpush(hpxyz(0.099606,-0.389345,1.077734));
  hpcpush(hpxyz(0.085604,-0.379677,1.073072));
  hpcpush(hpxyz(0.068939,-0.358035,1.064397));
  hpcpush(hpxyz(0.060924,-0.341663,1.058511));
  hpcpush(hpxyz(0.058290,-0.324205,1.052856));
  hpcpush(hpxyz(0.072972,-0.303262,1.047517));
  hpcpush(hpxyz(0.086320,-0.289205,1.044553));
  hpcpush(hpxyz(0.096397,-0.266917,1.039489));
  hpcpush(hpxyz(0.092536,-0.257159,1.036674));
  hpcpush(hpxyz(0.076771,-0.254928,1.034834));
  hpcpush(hpxyz(0.060213,-0.248387,1.032144));
  hpcpush(hpxyz(0.052900,-0.234748,1.028545));
  hpcpush(hpxyz(0.055584,-0.218508,1.025103));
  hpcpush(hpxyz(0.067279,-0.203441,1.022700));
  hpcpush(hpxyz(0.085437,-0.192614,1.021959));
  hpcpush(hpxyz(0.078342,-0.175083,1.018230));
  hpcpush(hpxyz(0.062419,-0.184516,1.018795));
  hpcpush(hpxyz(0.038836,-0.203454,1.021226));
  hpcpush(hpxyz(0.028310,-0.229046,1.026286));
  hpcpush(hpxyz(0.032158,-0.252817,1.031964));
  hpcpush(hpxyz(0.047927,-0.266336,1.035969));
  hpcpush(hpxyz(0.060974,-0.271757,1.038060));
  hpcpush(hpxyz(0.066237,-0.293100,1.044172));
  hpcpush(hpxyz(0.026467,-0.332853,1.054273));
  hpcpush(hpxyz(-0.301493,-0.143505,1.054273));

  bshape(shCaveFloor[0], 10);
  hpcpush(hpxyz(-0.234236,0.156157,1.038870));
  hpcpush(hpxyz(-0.104249,0.246637,1.035228));
  hpcpush(hpxyz(-0.046397,0.291271,1.042589));
  hpcpush(hpxyz(0.016871,0.307576,1.046369));
  hpcpush(hpxyz(0.102393,0.312431,1.052662));
  hpcpush(hpxyz(0.175295,0.270792,1.050741));
  hpcpush(hpxyz(0.252411,0.200098,1.050595));
  hpcpush(hpxyz(0.252354,0.124776,1.038870));
  hpcpush(hpxyz(0.265719,-0.033037,1.035228));
  hpcpush(hpxyz(0.275447,-0.105454,1.042589));
  hpcpush(hpxyz(0.257933,-0.168399,1.046369));
  hpcpush(hpxyz(0.219377,-0.244891,1.052662));
  hpcpush(hpxyz(0.146865,-0.287206,1.050741));
  hpcpush(hpxyz(0.047084,-0.318643,1.050595));
  hpcpush(hpxyz(-0.018118,-0.280933,1.038870));
  hpcpush(hpxyz(-0.161470,-0.213601,1.035228));
  hpcpush(hpxyz(-0.229049,-0.185817,1.042589));
  hpcpush(hpxyz(-0.274804,-0.139177,1.046369));
  hpcpush(hpxyz(-0.321770,-0.067540,1.052662));
  hpcpush(hpxyz(-0.322160,0.016414,1.050741));
  hpcpush(hpxyz(-0.299495,0.118545,1.050595));
  hpcpush(hpxyz(-0.234236,0.156157,1.038870));

  bshape(shCaveFloor[1], 10);
  hpcpush(hpxyz(-0.275790,0.020429,1.037534));
  hpcpush(hpxyz(-0.270081,0.108032,1.041448));
  hpcpush(hpxyz(-0.241466,0.175612,1.043621));
  hpcpush(hpxyz(-0.155980,0.228358,1.037534));
  hpcpush(hpxyz(-0.083930,0.278515,1.041448));
  hpcpush(hpxyz(-0.013253,0.298278,1.043621));
  hpcpush(hpxyz(0.081286,0.264329,1.037534));
  hpcpush(hpxyz(0.165423,0.239270,1.041448));
  hpcpush(hpxyz(0.224940,0.196335,1.043621));
  hpcpush(hpxyz(0.257342,0.101255,1.037534));
  hpcpush(hpxyz(0.290208,0.019850,1.041448));
  hpcpush(hpxyz(0.293748,-0.053452,1.043621));
  hpcpush(hpxyz(0.239614,-0.138066,1.037534));
  hpcpush(hpxyz(0.196461,-0.214518,1.041448));
  hpcpush(hpxyz(0.141358,-0.262989,1.043621));
  hpcpush(hpxyz(0.041452,-0.273421,1.037534));
  hpcpush(hpxyz(-0.045225,-0.287349,1.041448));
  hpcpush(hpxyz(-0.117477,-0.274489,1.043621));
  hpcpush(hpxyz(-0.187924,-0.202884,1.037534));
  hpcpush(hpxyz(-0.252856,-0.143801,1.041448));
  hpcpush(hpxyz(-0.287850,-0.079294,1.043621));
  hpcpush(hpxyz(-0.275790,0.020429,1.037534));
  
  bshape(shDesertFloor[0], 10);
  hpcpush(hpxyz(-0.122282,0.287492,1.047666));
  hpcpush(hpxyz(-0.111151,0.302069,1.050524));
  hpcpush(hpxyz(-0.092261,0.322915,1.054887));
  hpcpush(hpxyz(-0.071518,0.368383,1.068092));
  hpcpush(hpxyz(-0.014386,0.321713,1.050574));
  hpcpush(hpxyz(0.014126,0.287661,1.040648));
  hpcpush(hpxyz(0.052673,0.283918,1.040857));
  hpcpush(hpxyz(0.144166,0.292263,1.051761));
  hpcpush(hpxyz(0.201841,0.240906,1.048225));
  hpcpush(hpxyz(0.236802,0.171166,1.041812));
  hpcpush(hpxyz(0.187940,0.142834,1.027484));
  hpcpush(hpxyz(0.179062,0.090148,1.019897));
  hpcpush(hpxyz(0.306355,-0.036347,1.046506));
  hpcpush(hpxyz(0.310117,-0.037847,1.047666));
  hpcpush(hpxyz(0.317175,-0.054775,1.050524));
  hpcpush(hpxyz(0.325783,-0.081557,1.054887));
  hpcpush(hpxyz(0.354788,-0.122255,1.068092));
  hpcpush(hpxyz(0.285805,-0.148398,1.050574));
  hpcpush(hpxyz(0.242058,-0.156064,1.040648));
  hpcpush(hpxyz(0.219544,-0.187575,1.040857));
  hpcpush(hpxyz(0.181024,-0.270983,1.051761));
  hpcpush(hpxyz(0.107711,-0.295252,1.048225));
  hpcpush(hpxyz(0.029834,-0.290659,1.041812));
  hpcpush(hpxyz(0.029728,-0.234177,1.027484));
  hpcpush(hpxyz(-0.011460,-0.200146,1.019897));
  hpcpush(hpxyz(-0.184655,-0.247137,1.046506));
  hpcpush(hpxyz(-0.187835,-0.249645,1.047666));
  hpcpush(hpxyz(-0.206024,-0.247294,1.050524));
  hpcpush(hpxyz(-0.233522,-0.241358,1.054887));
  hpcpush(hpxyz(-0.283270,-0.246127,1.068092));
  hpcpush(hpxyz(-0.271419,-0.173315,1.050574));
  hpcpush(hpxyz(-0.256185,-0.131597,1.040648));
  hpcpush(hpxyz(-0.272216,-0.096343,1.040857));
  hpcpush(hpxyz(-0.325190,-0.021280,1.051761));
  hpcpush(hpxyz(-0.309551,0.054346,1.048225));
  hpcpush(hpxyz(-0.266635,0.119493,1.041812));
  hpcpush(hpxyz(-0.217668,0.091343,1.027484));
  hpcpush(hpxyz(-0.167602,0.109998,1.019897));
  hpcpush(hpxyz(-0.121700,0.283485,1.046506));
  hpcpush(hpxyz(-0.122282,0.287492,1.047666));
  
  bshape(shDesertFloor[1], 10);
  hpcpush(hpxyz(-0.336141,-0.153280,1.066061));
  hpcpush(hpxyz(-0.336530,-0.140779,1.064458));
  hpcpush(hpxyz(-0.323000,-0.116492,1.057308));
  hpcpush(hpxyz(-0.295897,-0.085654,1.046371));
  hpcpush(hpxyz(-0.271537,-0.031871,1.036701));
  hpcpush(hpxyz(-0.271537,0.031871,1.036701));
  hpcpush(hpxyz(-0.295897,0.085654,1.046371));
  hpcpush(hpxyz(-0.323000,0.116492,1.057308));
  hpcpush(hpxyz(-0.336530,0.140779,1.064458));
  hpcpush(hpxyz(-0.336141,0.153280,1.066061));
  hpcpush(hpxyz(-0.329419,0.167237,1.066061));
  hpcpush(hpxyz(-0.319889,0.175335,1.064458));
  hpcpush(hpxyz(-0.292464,0.179900,1.057308));
  hpcpush(hpxyz(-0.251456,0.177937,1.046371));
  hpcpush(hpxyz(-0.194218,0.192425,1.036701));
  hpcpush(hpxyz(-0.144383,0.232167,1.036701));
  hpcpush(hpxyz(-0.117521,0.284746,1.046371));
  hpcpush(hpxyz(-0.110310,0.325163,1.057308));
  hpcpush(hpxyz(-0.099757,0.350884,1.064458));
  hpcpush(hpxyz(-0.089741,0.358374,1.066061));
  hpcpush(hpxyz(-0.074639,0.361821,1.066061));
  hpcpush(hpxyz(-0.062365,0.359418,1.064458));
  hpcpush(hpxyz(-0.041697,0.340824,1.057308));
  hpcpush(hpxyz(-0.017664,0.307538,1.046371));
  hpcpush(hpxyz(0.029351,0.271821,1.036701));
  hpcpush(hpxyz(0.091494,0.257638,1.036701));
  hpcpush(hpxyz(0.149350,0.269418,1.046371));
  hpcpush(hpxyz(0.185445,0.288980,1.057308));
  hpcpush(hpxyz(0.212135,0.296766,1.064458));
  hpcpush(hpxyz(0.224235,0.293605,1.066061));
  hpcpush(hpxyz(0.236346,0.283946,1.066061));
  hpcpush(hpxyz(0.242121,0.272853,1.064458));
  hpcpush(hpxyz(0.240469,0.245100,1.057308));
  hpcpush(hpxyz(0.229430,0.205557,1.046371));
  hpcpush(hpxyz(0.230819,0.146530,1.036701));
  hpcpush(hpxyz(0.258475,0.089101,1.036701));
  hpcpush(hpxyz(0.303758,0.051213,1.046371));
  hpcpush(hpxyz(0.341557,0.035189,1.057308));
  hpcpush(hpxyz(0.364285,0.019177,1.064458));
  hpcpush(hpxyz(0.369358,0.007745,1.066061));
  hpcpush(hpxyz(0.369358,-0.007745,1.066061));
  hpcpush(hpxyz(0.364285,-0.019177,1.064458));
  hpcpush(hpxyz(0.341557,-0.035189,1.057308));
  hpcpush(hpxyz(0.303758,-0.051213,1.046371));
  hpcpush(hpxyz(0.258475,-0.089101,1.036701));
  hpcpush(hpxyz(0.230819,-0.146530,1.036701));
  hpcpush(hpxyz(0.229430,-0.205557,1.046371));
  hpcpush(hpxyz(0.240469,-0.245100,1.057308));
  hpcpush(hpxyz(0.242121,-0.272853,1.064458));
  hpcpush(hpxyz(0.236346,-0.283946,1.066061));
  hpcpush(hpxyz(0.224235,-0.293605,1.066061));
  hpcpush(hpxyz(0.212135,-0.296766,1.064458));
  hpcpush(hpxyz(0.185445,-0.288980,1.057308));
  hpcpush(hpxyz(0.149350,-0.269418,1.046371));
  hpcpush(hpxyz(0.091494,-0.257638,1.036701));
  hpcpush(hpxyz(0.029351,-0.271821,1.036701));
  hpcpush(hpxyz(-0.017664,-0.307538,1.046371));
  hpcpush(hpxyz(-0.041697,-0.340824,1.057308));
  hpcpush(hpxyz(-0.062365,-0.359418,1.064458));
  hpcpush(hpxyz(-0.074639,-0.361821,1.066061));
  hpcpush(hpxyz(-0.089741,-0.358374,1.066061));
  hpcpush(hpxyz(-0.099757,-0.350884,1.064458));
  hpcpush(hpxyz(-0.110310,-0.325163,1.057308));
  hpcpush(hpxyz(-0.117521,-0.284746,1.046371));
  hpcpush(hpxyz(-0.144383,-0.232167,1.036701));
  hpcpush(hpxyz(-0.194218,-0.192425,1.036701));
  hpcpush(hpxyz(-0.251456,-0.177937,1.046371));
  hpcpush(hpxyz(-0.292464,-0.179900,1.057308));
  hpcpush(hpxyz(-0.319889,-0.175335,1.064458));
  hpcpush(hpxyz(-0.329419,-0.167237,1.066061));
  hpcpush(hpxyz(-0.336141,-0.153280,1.066061));
  
  bshape(shFloor[0], 11);
  for(int t=0; t<=6; t++) hpcpush(ddi(7 + t*14, hexf*.8) * C0);

  bshape(shFloor[1], 11);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, hexf*.94) * C0);
  
  for(int d=0; d<2; d++) {
    bshape(shSemiFloor[d], 11);
    for(int t=0; t<=4; t++) hpcpush(ddi(7 + (3+3*d+t%4)*14, hexf*.8) * C0);
    }

  bshape(shMFloor[0], 12);
  for(int t=0; t<=6; t++) hpcpush(ddi(7 + t*14, hexf*.7) * C0);

  bshape(shMFloor[1], 12);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, hexf*.8) * C0);
  
  bshape(shMFloor2[0], 13);
  for(int t=0; t<=6; t++) hpcpush(ddi(7 + t*14, hexf*.6) * C0);

  bshape(shMFloor2[1], 13);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, hexf*.7) * C0);
  
  bshape(shMFloor3[0], 14);
  for(int t=0; t<=6; t++) hpcpush(ddi(7 + t*14, hexf*.5) * C0);

  bshape(shMFloor3[1], 14);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, hexf*.6) * C0);
  
  bshape(shMFloor4[0], 15);
  for(int t=0; t<=6; t++) hpcpush(ddi(7 + t*14, hexf*.4) * C0);

  bshape(shMFloor4[1], 15);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, hexf*.5) * C0);

  bshape(shBigCarpet1, 14);
//for(int t=0; t<=7; t++) hpcpush(ddi(t*12, -hexf*3.5) * C0);  
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, -hexf*2.1) * C0);  

  bshape(shBigCarpet2, 15);
//for(int t=0; t<=7; t++) hpcpush(ddi(t*12, -hexf*3.4) * C0);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, -hexf*1.9) * C0);

  bshape(shBigCarpet3, 16);
//for(int t=0; t<=7; t++) hpcpush(ddi(t*12, -hexf*3.4) * C0);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12*3, -hexf*1.7) * C0);

  bshape(shBFloor[0], 16);
  for(int t=0; t<=6; t++) hpcpush(ddi(7 + t*14, hexf*.1) * C0);

  bshape(shBFloor[1], 16);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, hexf*.1) * C0);
  
  bshape(shMineMark[0], 50);
  for(int t=0; t<=6; t++) hpcpush(ddi(7 + t*14, hexf*.1) * C0);

  bshape(shMineMark[1], 50);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, hexf*.1) * C0);
  
  for(int d=0; d<2; d++) {
    bshape(shSemiBFloor[d], 11);
    for(int t=0; t<=4; t++) hpcpush(ddi(7 + (3+3*d+t%4)*14, hexf*.1) * C0);
    }

  // walls etc
  
  bshape(shGiantStar[1], 12);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*36, -hexf*2.4) * C0);

  bshape(shGiantStar[0], 12);
  for(int t=0; t<=6; t++) {
    hpcpush(ddi(t*14, -hexf*2.4) * C0);
    hpcpush(ddi(t*14+7, hexf*1.5) * C0);
    }
  hpcpush(ddi(0, -hexf*2.4) * C0);
  
  bshape(shPowerFloor[0], 12);
  hpcpush(hpxyz(0.188696,0.349290,1.075923));
  hpcpush(hpxyz(0.246724,0.011920,1.030056));
  hpcpush(hpxyz(0.208146,-0.338061,1.075923));
  hpcpush(hpxyz(-0.113039,-0.219629,1.030056));
  hpcpush(hpxyz(-0.396842,-0.011229,1.075923));
  hpcpush(hpxyz(-0.133685,0.207709,1.030056));
  hpcpush(hpxyz(0.188696,0.349290,1.075923));

  bshape(shPowerFloor[1], 12);
  hpcpush(hpxyz(0.563851,-0.000804,1.148010));
  hpcpush(hpxyz(0.151110,-0.073482,1.014019));
  hpcpush(hpxyz(0.350926,-0.441337,1.148010));
  hpcpush(hpxyz(0.036765,-0.163958,1.014019));
  hpcpush(hpxyz(-0.126252,-0.549535,1.148010));
  hpcpush(hpxyz(-0.105265,-0.130970,1.014019));
  hpcpush(hpxyz(-0.508361,-0.243921,1.148010));
  hpcpush(hpxyz(-0.168028,0.000641,1.014019));
  hpcpush(hpxyz(-0.507663,0.245370,1.148010));
  hpcpush(hpxyz(-0.104263,0.131769,1.014019));
  hpcpush(hpxyz(-0.124685,0.549893,1.148010));
  hpcpush(hpxyz(0.038015,0.163673,1.014019));
  hpcpush(hpxyz(0.352184,0.440335,1.148010));
  hpcpush(hpxyz(0.151666,0.072327,1.014019));
  hpcpush(hpxyz(0.563851,-0.000804,1.148010));

  bshape(shMirror, 13);
  for(int t=0; t<=6; t++) hpcpush(ddi(7 + t*14, hexf*.7) * C0);

  bshape(shWall[0], 13);
  for(int t=0; t<=6; t++) {
    hpcpush(ddi(7 + t*14, hexf*.8) * C0);
    hpcpush(ddi(14 + t*14, hexf*.2) * C0);
    }
    
  bshape(shWall[1], 13);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*36, hexf*.94) * C0);

  bshape(shCross, 13);
  for(int i=0; i<=84; i+=7)
    hpcpush(ddi(i, hexf * (i%3 ? 0.8 : 0.3)) * C0);
  
  // items
  
  bshape(shDaisy, 21);
  for(int t=0; t<=6; t++) {
    hpcpush(ddi(t*14, hexf*.8*3/4) * C0);
    hpcpush(ddi(t*14+7, hexf*-.5*3/4) * C0);
    }
  hpcpush(ddi(0, hexf*.6) * C0);

  bshape(shTriangle, 21);
  for(int t=0; t<=4; t++) {
    hpcpush(ddi(t*28, hexf*.5) * C0);
    }

  bshape(shGem[0], 21);
  for(int t=0; t<=6; t++) {
    hpcpush(ddi(7 + t*14, hexf*.4) * C0);
    hpcpush(ddi(14 + t*14, hexf*.1) * C0);
    }
  
  bshape(shGem[1], 21);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*36, hexf*.5) * C0);

  bshape(shElementalShard, 21);
  hpcpush(hpxyz(-0.345978,0.004270,1.058168));
  hpcpush(hpxyz(-0.054981,0.027419,1.001886));
  hpcpush(hpxyz(-0.063949,0.034031,1.002620));
  hpcpush(hpxyz(-0.078659,0.057318,1.004725));
  hpcpush(hpxyz(-0.103108,0.086449,1.009012));
  hpcpush(hpxyz(-0.130880,0.100059,1.013480));
  hpcpush(hpxyz(-0.157829,0.107491,1.018069));
  hpcpush(hpxyz(-0.173912,0.106860,1.020620));
  hpcpush(hpxyz(-0.191566,0.100397,1.023121));
  hpcpush(hpxyz(-0.200633,0.095930,1.024430));
  hpcpush(hpxyz(-0.216136,0.090593,1.027094));
  hpcpush(hpxyz(-0.200642,0.111259,1.025980));
  hpcpush(hpxyz(-0.173354,0.128719,1.023045));
  hpcpush(hpxyz(-0.141916,0.144399,1.020290));
  hpcpush(hpxyz(-0.106497,0.138938,1.015207));
  hpcpush(hpxyz(-0.079427,0.124373,1.010830));
  hpcpush(hpxyz(-0.053552,0.106563,1.007087));
  hpcpush(hpxyz(-0.030995,0.078798,1.003579));
  hpcpush(hpxyz(-0.024668,0.068596,1.002653));
  hpcpush(hpxyz(-0.027285,0.085742,1.004040));
  hpcpush(hpxyz(-0.033561,0.111171,1.006720));
  hpcpush(hpxyz(-0.036750,0.137167,1.010032));
  hpcpush(hpxyz(-0.035531,0.165577,1.014238));
  hpcpush(hpxyz(-0.023882,0.199023,1.019892));
  hpcpush(hpxyz(-0.002982,0.230118,1.026140));
  hpcpush(hpxyz(0.021321,0.244715,1.029728));
  hpcpush(hpxyz(0.012442,0.234213,1.027137));
  hpcpush(hpxyz(-0.002073,0.208126,1.021431));
  hpcpush(hpxyz(-0.005433,0.188040,1.017540));
  hpcpush(hpxyz(-0.004352,0.170363,1.014417));
  hpcpush(hpxyz(0.001158,0.155057,1.011951));
  hpcpush(hpxyz(0.002408,0.141554,1.009972));
  hpcpush(hpxyz(0.008798,0.125672,1.007904));
  hpcpush(hpxyz(0.018292,0.110314,1.006232));
  hpcpush(hpxyz(0.026174,0.100337,1.005362));
  hpcpush(hpxyz(0.176687,0.297491,1.058168));
  hpcpush(hpxyz(0.051236,0.033906,1.001886));
  hpcpush(hpxyz(0.061446,0.038366,1.002620));
  hpcpush(hpxyz(0.088968,0.039461,1.004725));
  hpcpush(hpxyz(0.126421,0.046070,1.009012));
  hpcpush(hpxyz(0.152094,0.063316,1.013480));
  hpcpush(hpxyz(0.172004,0.082938,1.018069));
  hpcpush(hpxyz(0.179499,0.097182,1.020620));
  hpcpush(hpxyz(0.182729,0.115702,1.023121));
  hpcpush(hpxyz(0.183395,0.125788,1.024430));
  hpcpush(hpxyz(0.186524,0.141882,1.027094));
  hpcpush(hpxyz(0.196674,0.118132,1.025980));
  hpcpush(hpxyz(0.198151,0.085770,1.023045));
  hpcpush(hpxyz(0.196011,0.050703,1.020290));
  hpcpush(hpxyz(0.173572,0.022760,1.015207));
  hpcpush(hpxyz(0.147423,0.006599,1.010830));
  hpcpush(hpxyz(0.119062,-0.006904,1.007087));
  hpcpush(hpxyz(0.083739,-0.012556,1.003579));
  hpcpush(hpxyz(0.071740,-0.012935,1.002653));
  hpcpush(hpxyz(0.087898,-0.019242,1.004040));
  hpcpush(hpxyz(0.113057,-0.026521,1.006720));
  hpcpush(hpxyz(0.137165,-0.036757,1.010032));
  hpcpush(hpxyz(0.161159,-0.052018,1.014238));
  hpcpush(hpxyz(0.184300,-0.078830,1.019892));
  hpcpush(hpxyz(0.200779,-0.112477,1.026140));
  hpcpush(hpxyz(0.201269,-0.140822,1.029728));
  hpcpush(hpxyz(0.196613,-0.127882,1.027137));
  hpcpush(hpxyz(0.181278,-0.102268,1.021431));
  hpcpush(hpxyz(0.165564,-0.089315,1.017540));
  hpcpush(hpxyz(0.149715,-0.081413,1.014417));
  hpcpush(hpxyz(0.133704,-0.078531,1.011951));
  hpcpush(hpxyz(0.121386,-0.072862,1.009972));
  hpcpush(hpxyz(0.104436,-0.070455,1.007904));
  hpcpush(hpxyz(0.086388,-0.070998,1.006232));
  hpcpush(hpxyz(0.073808,-0.072835,1.005362));
  hpcpush(hpxyz(0.169291,-0.301761,1.058168));
  hpcpush(hpxyz(0.003745,-0.061325,1.001886));
  hpcpush(hpxyz(0.002503,-0.072397,1.002620));
  hpcpush(hpxyz(-0.010310,-0.096779,1.004725));
  hpcpush(hpxyz(-0.023313,-0.132518,1.009012));
  hpcpush(hpxyz(-0.021214,-0.163375,1.013480));
  hpcpush(hpxyz(-0.014176,-0.190429,1.018069));
  hpcpush(hpxyz(-0.005587,-0.204042,1.020620));
  hpcpush(hpxyz(0.008837,-0.216099,1.023121));
  hpcpush(hpxyz(0.017239,-0.221719,1.024430));
  hpcpush(hpxyz(0.029612,-0.232476,1.027094));
  hpcpush(hpxyz(0.003968,-0.229391,1.025980));
  hpcpush(hpxyz(-0.024797,-0.214489,1.023045));
  hpcpush(hpxyz(-0.054095,-0.195102,1.020290));
  hpcpush(hpxyz(-0.067075,-0.161698,1.015207));
  hpcpush(hpxyz(-0.067996,-0.130972,1.010830));
  hpcpush(hpxyz(-0.065511,-0.099659,1.007087));
  hpcpush(hpxyz(-0.052744,-0.066242,1.003579));
  hpcpush(hpxyz(-0.047072,-0.055661,1.002653));
  hpcpush(hpxyz(-0.060613,-0.066501,1.004040));
  hpcpush(hpxyz(-0.079496,-0.084650,1.006720));
  hpcpush(hpxyz(-0.100415,-0.100410,1.010032));
  hpcpush(hpxyz(-0.125628,-0.113559,1.014238));
  hpcpush(hpxyz(-0.160419,-0.120194,1.019892));
  hpcpush(hpxyz(-0.197797,-0.117641,1.026140));
  hpcpush(hpxyz(-0.222590,-0.103893,1.029728));
  hpcpush(hpxyz(-0.209056,-0.106331,1.027137));
  hpcpush(hpxyz(-0.179206,-0.105858,1.021431));
  hpcpush(hpxyz(-0.160131,-0.098725,1.017540));
  hpcpush(hpxyz(-0.145363,-0.088950,1.014417));
  hpcpush(hpxyz(-0.134862,-0.076526,1.011951));
  hpcpush(hpxyz(-0.123793,-0.068692,1.009972));
  hpcpush(hpxyz(-0.113234,-0.055216,1.007904));
  hpcpush(hpxyz(-0.104681,-0.039315,1.006232));
  hpcpush(hpxyz(-0.099981,-0.027501,1.005362));
  hpcpush(hpxyz(-0.345978,0.004270,1.058168));
  
  bshape(shStar, 21);
  for(int t=0; t<84; t+=6) {
    hpcpush(ddi(t,   hexf*.2) * C0);
    hpcpush(ddi(t+3,   hexf*.6) * C0);
    }

  bshape(shDisk, 21);
  for(int i=0; i<=84; i+=3)
    hpcpush(ddi(i, crossf * .2) * C0);
  
  bshape(shRing, 21);
  for(int i=0; i<=84; i+=3)
    hpcpush(ddi(i, crossf * .25) * C0);
  for(int i=84; i>=0; i--)
    hpcpush(ddi(i, crossf * .30) * C0);
  hpcpush(ddi(0, crossf * .25) * C0);
  
  bshape(shCompass1, 21);
  for(int i=0; i<=84; i+=3)
    hpcpush(ddi(i, crossf * .35) * C0);
  
  bshape(shCompass2, 22);
  for(int i=0; i<=84; i+=3)
    hpcpush(ddi(i, crossf * .3) * C0);
  
  bshape(shCompass3, 23);
  hpcpush(ddi(0, crossf * .29) * C0);
  hpcpush(ddi(21, crossf * .04) * C0);
  hpcpush(ddi(-21, crossf * .04) * C0);
  
  bshape(shNecro, 21);
    hpcpush(hpxyz(-0.280120,0.002558,1.038496));
  hpcpush(hpxyz(-0.252806,0.037921,1.032157));
  hpcpush(hpxyz(-0.063204,0.010733,1.002053));
  hpcpush(hpxyz(0.000000,0.061995,1.001920));
  hpcpush(hpxyz(0.057203,0.013109,1.001721));
  hpcpush(hpxyz(0.155766,0.023121,1.012323));
  hpcpush(hpxyz(0.174234,0.055215,1.016566));
  hpcpush(hpxyz(0.256152,0.057064,1.033862));
  hpcpush(hpxyz(0.286380,0.030821,1.040655));
  hpcpush(hpxyz(0.251170,0.025243,1.031370));
  hpcpush(hpxyz(0.227431,0.033740,1.026091));
  hpcpush(hpxyz(0.210837,0.017363,1.022132));
  hpcpush(hpxyz(0.227179,0.007489,1.025508));
  hpcpush(hpxyz(0.245429,0.020138,1.029874));
  hpcpush(hpxyz(0.286335,0.028248,1.040570));
  hpcpush(hpxyz(0.289108,0.001285,1.040954));
  hpcpush(hpxyz(0.189404,0.003690,1.017786));
  hpcpush(hpxyz(0.186892,0.025821,1.017642));
  hpcpush(hpxyz(0.176349,0.017145,1.015575));
  hpcpush(hpxyz(0.184160,0.011050,1.016876));
  hpcpush(hpxyz(0.177605,0.006124,1.015668));
  hpcpush(hpxyz(0.184138,0.001228,1.016813));
  hpcpush(hpxyz(0.184138,-0.001228,1.016813));
  hpcpush(hpxyz(0.177605,-0.006124,1.015668));
  hpcpush(hpxyz(0.184160,-0.011050,1.016876));
  hpcpush(hpxyz(0.176349,-0.017145,1.015575));
  hpcpush(hpxyz(0.186892,-0.025821,1.017642));
  hpcpush(hpxyz(0.189404,-0.003690,1.017786));
  hpcpush(hpxyz(0.289108,-0.001285,1.040954));
  hpcpush(hpxyz(0.286335,-0.028248,1.040570));
  hpcpush(hpxyz(0.245429,-0.020138,1.029874));
  hpcpush(hpxyz(0.227179,-0.007489,1.025508));
  hpcpush(hpxyz(0.210837,-0.017363,1.022132));
  hpcpush(hpxyz(0.227431,-0.033740,1.026091));
  hpcpush(hpxyz(0.251170,-0.025243,1.031370));
  hpcpush(hpxyz(0.286380,-0.030821,1.040655));
  hpcpush(hpxyz(0.256152,-0.057064,1.033862));
  hpcpush(hpxyz(0.174234,-0.055215,1.016566));
  hpcpush(hpxyz(0.155766,-0.023121,1.012323));
  hpcpush(hpxyz(0.057203,-0.013109,1.001721));
  hpcpush(hpxyz(0.000000,-0.061995,1.001920));
  hpcpush(hpxyz(-0.063204,-0.010733,1.002053));
  hpcpush(hpxyz(-0.252806,-0.037921,1.032157));
  hpcpush(hpxyz(-0.280120,-0.002558,1.038496));
  hpcpush(hpxyz(-0.280120,0.002558,1.038496));

  bshape(shFigurine, 21);
  hpcpush(hpxyz(-0.105008,0.082180,1.008851));
  hpcpush(hpxyz(-0.018191,0.040930,1.001003));
  hpcpush(hpxyz(-0.011407,0.123195,1.007625));
  hpcpush(hpxyz(0.041081,0.123243,1.008403));
  hpcpush(hpxyz(0.040941,0.038667,1.001584));
  hpcpush(hpxyz(0.070555,0.027312,1.002858));
  hpcpush(hpxyz(0.086601,0.059253,1.005490));
  hpcpush(hpxyz(0.134876,0.073153,1.011703));
  hpcpush(hpxyz(0.190524,0.064273,1.020015));
  hpcpush(hpxyz(0.211472,0.036778,1.022777));
  hpcpush(hpxyz(0.211472,-0.036778,1.022777));
  hpcpush(hpxyz(0.190524,-0.064273,1.020015));
  hpcpush(hpxyz(0.134876,-0.073153,1.011703));
  hpcpush(hpxyz(0.086601,-0.059253,1.005490));
  hpcpush(hpxyz(0.070555,-0.027312,1.002858));
  hpcpush(hpxyz(0.040941,-0.038667,1.001584));
  hpcpush(hpxyz(0.041081,-0.123243,1.008403));
  hpcpush(hpxyz(-0.011407,-0.123195,1.007625));
  hpcpush(hpxyz(-0.018191,-0.040930,1.001003));
  hpcpush(hpxyz(-0.105008,-0.082180,1.008851));
  hpcpush(hpxyz(-0.105008,0.082180,1.008851));

  bshape(shStatue, 21);
  hpcpush(hpxyz(-0.047663,0.032172,1.001652));
  hpcpush(hpxyz(-0.047670,0.034561,1.001732));
  hpcpush(hpxyz(-0.054881,0.039371,1.002278));
  hpcpush(hpxyz(-0.080231,0.043109,1.004139));
  hpcpush(hpxyz(-0.103440,0.045706,1.006374));
  hpcpush(hpxyz(-0.148323,0.042552,1.011835));
  hpcpush(hpxyz(-0.188278,0.031995,1.018073));
  hpcpush(hpxyz(-0.239693,0.002510,1.028328));
  hpcpush(hpxyz(-0.257087,-0.036727,1.033171));
  hpcpush(hpxyz(-0.283314,-0.026921,1.039708));
  hpcpush(hpxyz(-0.290985,0.034764,1.042056));
  hpcpush(hpxyz(-0.262852,0.081663,1.037189));
  hpcpush(hpxyz(-0.198209,0.104714,1.024818));
  hpcpush(hpxyz(-0.140842,0.107775,1.015604));
  hpcpush(hpxyz(-0.088218,0.099094,1.008763));
  hpcpush(hpxyz(-0.057645,0.088869,1.005595));
  hpcpush(hpxyz(-0.035877,0.075342,1.003476));
  hpcpush(hpxyz(-0.023854,0.060828,1.002132));
  hpcpush(hpxyz(-0.022642,0.053625,1.001693));
  hpcpush(hpxyz(-0.011901,0.044034,1.001040));
  hpcpush(hpxyz(-0.007144,0.050008,1.001275));
  hpcpush(hpxyz(-0.010953,0.056452,1.001652));
  hpcpush(hpxyz(-0.009270,0.058147,1.001732));
  hpcpush(hpxyz(-0.010967,0.066646,1.002278));
  hpcpush(hpxyz(-0.026249,0.087215,1.004139));
  hpcpush(hpxyz(-0.040824,0.105462,1.006374));
  hpcpush(hpxyz(-0.074791,0.134969,1.011835));
  hpcpush(hpxyz(-0.110509,0.155757,1.018073));
  hpcpush(hpxyz(-0.167714,0.171263,1.028328));
  hpcpush(hpxyz(-0.207758,0.155818,1.033171));
  hpcpush(hpxyz(-0.219370,0.181297,1.039708));
  hpcpush(hpxyz(-0.181176,0.230339,1.042056));
  hpcpush(hpxyz(-0.128120,0.243609,1.037189));
  hpcpush(hpxyz(-0.066111,0.214199,1.024818));
  hpcpush(hpxyz(-0.023382,0.175799,1.015604));
  hpcpush(hpxyz(0.007691,0.132449,1.008763));
  hpcpush(hpxyz(0.022079,0.103601,1.005595));
  hpcpush(hpxyz(0.027906,0.078644,1.003476));
  hpcpush(hpxyz(0.026145,0.059880,1.002132));
  hpcpush(hpxyz(0.021909,0.053929,1.001693));
  hpcpush(hpxyz(0.022722,0.039552,1.001040));
  hpcpush(hpxyz(0.030310,0.040413,1.001275));
  hpcpush(hpxyz(0.032172,0.047663,1.001652));
  hpcpush(hpxyz(0.034561,0.047670,1.001732));
  hpcpush(hpxyz(0.039371,0.054881,1.002278));
  hpcpush(hpxyz(0.043109,0.080231,1.004139));
  hpcpush(hpxyz(0.045706,0.103440,1.006374));
  hpcpush(hpxyz(0.042552,0.148323,1.011835));
  hpcpush(hpxyz(0.031995,0.188278,1.018073));
  hpcpush(hpxyz(0.002510,0.239693,1.028328));
  hpcpush(hpxyz(-0.036727,0.257087,1.033171));
  hpcpush(hpxyz(-0.026921,0.283314,1.039708));
  hpcpush(hpxyz(0.034764,0.290985,1.042056));
  hpcpush(hpxyz(0.081663,0.262852,1.037189));
  hpcpush(hpxyz(0.104714,0.198209,1.024818));
  hpcpush(hpxyz(0.107775,0.140842,1.015604));
  hpcpush(hpxyz(0.099094,0.088218,1.008763));
  hpcpush(hpxyz(0.088869,0.057645,1.005595));
  hpcpush(hpxyz(0.075342,0.035877,1.003476));
  hpcpush(hpxyz(0.060828,0.023854,1.002132));
  hpcpush(hpxyz(0.053625,0.022642,1.001693));
  hpcpush(hpxyz(0.044034,0.011901,1.001040));
  hpcpush(hpxyz(0.050008,0.007144,1.001275));
  hpcpush(hpxyz(0.056452,0.010953,1.001652));
  hpcpush(hpxyz(0.058147,0.009270,1.001732));
  hpcpush(hpxyz(0.066646,0.010967,1.002278));
  hpcpush(hpxyz(0.087215,0.026249,1.004139));
  hpcpush(hpxyz(0.105462,0.040824,1.006374));
  hpcpush(hpxyz(0.134969,0.074791,1.011835));
  hpcpush(hpxyz(0.155757,0.110509,1.018073));
  hpcpush(hpxyz(0.171263,0.167714,1.028328));
  hpcpush(hpxyz(0.155818,0.207758,1.033171));
  hpcpush(hpxyz(0.181297,0.219370,1.039708));
  hpcpush(hpxyz(0.230339,0.181176,1.042056));
  hpcpush(hpxyz(0.243609,0.128120,1.037189));
  hpcpush(hpxyz(0.214199,0.066111,1.024818));
  hpcpush(hpxyz(0.175799,0.023382,1.015604));
  hpcpush(hpxyz(0.132449,-0.007691,1.008763));
  hpcpush(hpxyz(0.103601,-0.022079,1.005595));
  hpcpush(hpxyz(0.078644,-0.027906,1.003476));
  hpcpush(hpxyz(0.059880,-0.026145,1.002132));
  hpcpush(hpxyz(0.053929,-0.021909,1.001693));
  hpcpush(hpxyz(0.039552,-0.022722,1.001040));
  hpcpush(hpxyz(0.040413,-0.030310,1.001275));
  hpcpush(hpxyz(0.047663,-0.032172,1.001652));
  hpcpush(hpxyz(0.047670,-0.034561,1.001732));
  hpcpush(hpxyz(0.054881,-0.039371,1.002278));
  hpcpush(hpxyz(0.080231,-0.043109,1.004139));
  hpcpush(hpxyz(0.103440,-0.045706,1.006374));
  hpcpush(hpxyz(0.148323,-0.042552,1.011835));
  hpcpush(hpxyz(0.188278,-0.031995,1.018073));
  hpcpush(hpxyz(0.239693,-0.002510,1.028328));
  hpcpush(hpxyz(0.257087,0.036727,1.033171));
  hpcpush(hpxyz(0.283314,0.026921,1.039708));
  hpcpush(hpxyz(0.290985,-0.034764,1.042056));
  hpcpush(hpxyz(0.262852,-0.081663,1.037189));
  hpcpush(hpxyz(0.198209,-0.104714,1.024818));
  hpcpush(hpxyz(0.140842,-0.107775,1.015604));
  hpcpush(hpxyz(0.088218,-0.099094,1.008763));
  hpcpush(hpxyz(0.057645,-0.088869,1.005595));
  hpcpush(hpxyz(0.035877,-0.075342,1.003476));
  hpcpush(hpxyz(0.023854,-0.060828,1.002132));
  hpcpush(hpxyz(0.022642,-0.053625,1.001693));
  hpcpush(hpxyz(0.011901,-0.044034,1.001040));
  hpcpush(hpxyz(0.007144,-0.050008,1.001275));
  hpcpush(hpxyz(0.010953,-0.056452,1.001652));
  hpcpush(hpxyz(0.009270,-0.058147,1.001732));
  hpcpush(hpxyz(0.010967,-0.066646,1.002278));
  hpcpush(hpxyz(0.026249,-0.087215,1.004139));
  hpcpush(hpxyz(0.040824,-0.105462,1.006374));
  hpcpush(hpxyz(0.074791,-0.134969,1.011835));
  hpcpush(hpxyz(0.110509,-0.155757,1.018073));
  hpcpush(hpxyz(0.167714,-0.171263,1.028328));
  hpcpush(hpxyz(0.207758,-0.155818,1.033171));
  hpcpush(hpxyz(0.219370,-0.181297,1.039708));
  hpcpush(hpxyz(0.181176,-0.230339,1.042056));
  hpcpush(hpxyz(0.128120,-0.243609,1.037189));
  hpcpush(hpxyz(0.066111,-0.214199,1.024818));
  hpcpush(hpxyz(0.023382,-0.175799,1.015604));
  hpcpush(hpxyz(-0.007691,-0.132449,1.008763));
  hpcpush(hpxyz(-0.022079,-0.103601,1.005595));
  hpcpush(hpxyz(-0.027906,-0.078644,1.003476));
  hpcpush(hpxyz(-0.026145,-0.059880,1.002132));
  hpcpush(hpxyz(-0.021909,-0.053929,1.001693));
  hpcpush(hpxyz(-0.022722,-0.039552,1.001040));
  hpcpush(hpxyz(-0.030310,-0.040413,1.001275));
  hpcpush(hpxyz(-0.032172,-0.047663,1.001652));
  hpcpush(hpxyz(-0.034561,-0.047670,1.001732));
  hpcpush(hpxyz(-0.039371,-0.054881,1.002278));
  hpcpush(hpxyz(-0.043109,-0.080231,1.004139));
  hpcpush(hpxyz(-0.045706,-0.103440,1.006374));
  hpcpush(hpxyz(-0.042552,-0.148323,1.011835));
  hpcpush(hpxyz(-0.031995,-0.188278,1.018073));
  hpcpush(hpxyz(-0.002510,-0.239693,1.028328));
  hpcpush(hpxyz(0.036727,-0.257087,1.033171));
  hpcpush(hpxyz(0.026921,-0.283314,1.039708));
  hpcpush(hpxyz(-0.034764,-0.290985,1.042056));
  hpcpush(hpxyz(-0.081663,-0.262852,1.037189));
  hpcpush(hpxyz(-0.104714,-0.198209,1.024818));
  hpcpush(hpxyz(-0.107775,-0.140842,1.015604));
  hpcpush(hpxyz(-0.099094,-0.088218,1.008763));
  hpcpush(hpxyz(-0.088869,-0.057645,1.005595));
  hpcpush(hpxyz(-0.075342,-0.035877,1.003476));
  hpcpush(hpxyz(-0.060828,-0.023854,1.002132));
  hpcpush(hpxyz(-0.053625,-0.022642,1.001693));
  hpcpush(hpxyz(-0.044034,-0.011901,1.001040));
  hpcpush(hpxyz(-0.050008,-0.007144,1.001275));
  hpcpush(hpxyz(-0.056452,-0.010953,1.001652));
  hpcpush(hpxyz(-0.058147,-0.009270,1.001732));
  hpcpush(hpxyz(-0.066646,-0.010967,1.002278));
  hpcpush(hpxyz(-0.087215,-0.026249,1.004139));
  hpcpush(hpxyz(-0.105462,-0.040824,1.006374));
  hpcpush(hpxyz(-0.134969,-0.074791,1.011835));
  hpcpush(hpxyz(-0.155757,-0.110509,1.018073));
  hpcpush(hpxyz(-0.171263,-0.167714,1.028328));
  hpcpush(hpxyz(-0.155818,-0.207758,1.033171));
  hpcpush(hpxyz(-0.181297,-0.219370,1.039708));
  hpcpush(hpxyz(-0.230339,-0.181176,1.042056));
  hpcpush(hpxyz(-0.243609,-0.128120,1.037189));
  hpcpush(hpxyz(-0.214199,-0.066111,1.024818));
  hpcpush(hpxyz(-0.175799,-0.023382,1.015604));
  hpcpush(hpxyz(-0.132449,0.007691,1.008763));
  hpcpush(hpxyz(-0.103601,0.022079,1.005595));
  hpcpush(hpxyz(-0.078644,0.027906,1.003476));
  hpcpush(hpxyz(-0.059880,0.026145,1.002132));
  hpcpush(hpxyz(-0.053929,0.021909,1.001693));
  hpcpush(hpxyz(-0.039552,0.022722,1.001040));
  hpcpush(hpxyz(-0.040413,0.030310,1.001275));
  hpcpush(hpxyz(-0.047663,0.032172,1.001652));
  
  bshape(shBook, 21);
  hpcpush(hpxyz(-0.123296,-0.203475,1.027912));
  hpcpush(hpxyz( 0.123296,-0.203475,1.027912));
  hpcpush(hpxyz( 0.123296, 0.203475,1.027912));
  hpcpush(hpxyz(-0.123296, 0.203475,1.027912));
  hpcpush(hpxyz(-0.123296,-0.203475,1.027912));
  
  bshape(shBookCover, 22);
  hpcpush(hpxyz(0.018255,-0.016768,1.000307));
  hpcpush(hpxyz(0.010865,-0.065298,1.002189));
  hpcpush(hpxyz(0.044639,-0.075918,1.003871));
  hpcpush(hpxyz(0.027526,-0.106818,1.006065));
  hpcpush(hpxyz(-0.029540,-0.088203,1.004317));
  hpcpush(hpxyz(-0.023649,-0.007425,1.000307));
  hpcpush(hpxyz(-0.061983,0.023240,1.002189));
  hpcpush(hpxyz(-0.088066,-0.000700,1.003871));
  hpcpush(hpxyz(-0.106270,0.029571,1.006065));
  hpcpush(hpxyz(-0.061616,0.069684,1.004317));
  hpcpush(hpxyz(0.005394,0.024193,1.000307));
  hpcpush(hpxyz(0.051117,0.042059,1.002189));
  hpcpush(hpxyz(0.043427,0.076618,1.003871));
  hpcpush(hpxyz(0.078744,0.077247,1.006065));
  hpcpush(hpxyz(0.091156,0.018519,1.004317));
  hpcpush(hpxyz(0.018255,-0.016768,1.000307));
  
  bshape(shGrail, 21);
  hpcpush(hpxyz(-0.154537,0.122394,1.019246));
  hpcpush(hpxyz(-0.142973,0.123252,1.017660));
  hpcpush(hpxyz(-0.138296,0.095461,1.014021));
  hpcpush(hpxyz(-0.123926,0.072898,1.010283));
  hpcpush(hpxyz(-0.107625,0.065300,1.007892));
  hpcpush(hpxyz(-0.067188,0.057589,1.003908));
  hpcpush(hpxyz(-0.040655,0.052612,1.002208));
  hpcpush(hpxyz(-0.037133,0.069475,1.003098));
  hpcpush(hpxyz(-0.021657,0.101065,1.005327));
  hpcpush(hpxyz(0.003631,0.129510,1.008358));
  hpcpush(hpxyz(0.040272,0.153766,1.012554));
  hpcpush(hpxyz(0.087340,0.161149,1.016660));
  hpcpush(hpxyz(0.127500,0.154732,1.019901));
  hpcpush(hpxyz(0.161853,0.141932,1.022908));
  hpcpush(hpxyz(0.184896,0.152194,1.028275));
  hpcpush(hpxyz(0.189249,0.157707,1.029896));
  hpcpush(hpxyz(0.189249,-0.157707,1.029896));
  hpcpush(hpxyz(0.184896,-0.152194,1.028275));
  hpcpush(hpxyz(0.161853,-0.141932,1.022908));
  hpcpush(hpxyz(0.127500,-0.154732,1.019901));
  hpcpush(hpxyz(0.087340,-0.161149,1.016660));
  hpcpush(hpxyz(0.040272,-0.153766,1.012554));
  hpcpush(hpxyz(0.003631,-0.129510,1.008358));
  hpcpush(hpxyz(-0.021657,-0.101065,1.005327));
  hpcpush(hpxyz(-0.037133,-0.069475,1.003098));
  hpcpush(hpxyz(-0.040655,-0.052612,1.002208));
  hpcpush(hpxyz(-0.067188,-0.057589,1.003908));
  hpcpush(hpxyz(-0.107625,-0.065300,1.007892));
  hpcpush(hpxyz(-0.123926,-0.072898,1.010283));
  hpcpush(hpxyz(-0.138296,-0.095461,1.014021));
  hpcpush(hpxyz(-0.142973,-0.123252,1.017660));
  hpcpush(hpxyz(-0.154537,-0.122394,1.019246));
  hpcpush(hpxyz(-0.154537,0.122394,1.019246));  
  
  bshape(shKey, 21);
  hpcpush(hpxyz(-0.280212,-0.017913,1.038672));
  hpcpush(hpxyz(-0.279685,0.060299,1.040125));
  hpcpush(hpxyz(-0.258790,0.115302,1.039359));
  hpcpush(hpxyz(-0.228319,0.104699,1.031063));
  hpcpush(hpxyz(-0.239075,0.056623,1.029739));
  hpcpush(hpxyz(-0.213944,0.046023,1.023665));
  hpcpush(hpxyz(-0.200310,0.089579,1.023791));
  hpcpush(hpxyz(-0.168273,0.078609,1.017101));
  hpcpush(hpxyz(-0.179201,0.040504,1.016737));
  hpcpush(hpxyz(-0.150719,0.029171,1.011715));
  hpcpush(hpxyz(-0.146064,0.060860,1.012442));
  hpcpush(hpxyz(-0.115859,0.053102,1.008089));
  hpcpush(hpxyz(-0.119288,0.019279,1.007274));
  hpcpush(hpxyz(-0.087371,0.011969,1.003881));
  hpcpush(hpxyz(-0.080285,0.050328,1.004479));
  hpcpush(hpxyz(-0.068304,0.065908,1.004495));
  hpcpush(hpxyz(-0.052728,0.079091,1.004508));
  hpcpush(hpxyz(-0.033525,0.083811,1.004066));
  hpcpush(hpxyz(-0.007181,0.087363,1.003835));
  hpcpush(hpxyz(0.025157,0.089847,1.004343));
  hpcpush(hpxyz(0.044329,0.082667,1.004390));
  hpcpush(hpxyz(0.061077,0.068263,1.004186));
  hpcpush(hpxyz(0.074262,0.055098,1.004266));
  hpcpush(hpxyz(0.088682,0.034754,1.004526));
  hpcpush(hpxyz(0.093450,0.008387,1.004392));
  hpcpush(hpxyz(0.092228,-0.005989,1.004262));
  hpcpush(hpxyz(0.092278,-0.023968,1.004535));
  hpcpush(hpxyz(0.085107,-0.045550,1.004648));
  hpcpush(hpxyz(0.070661,-0.058685,1.004210));
  hpcpush(hpxyz(0.045297,-0.040529,1.001846));
  hpcpush(hpxyz(0.057205,-0.014301,1.001737));
  hpcpush(hpxyz(0.057207,0.015494,1.001755));
  hpcpush(hpxyz(0.041704,0.039321,1.001641));
  hpcpush(hpxyz(0.023823,0.048837,1.001475));
  hpcpush(hpxyz(0.003575,0.058394,1.001710));
  hpcpush(hpxyz(-0.021441,0.050029,1.001480));
  hpcpush(hpxyz(-0.047692,0.040538,1.001957));
  hpcpush(hpxyz(-0.054813,0.017874,1.001661));
  hpcpush(hpxyz(-0.054802,-0.010722,1.001558));
  hpcpush(hpxyz(-0.036924,-0.039306,1.001453));
  hpcpush(hpxyz(-0.020254,-0.052421,1.001578));
  hpcpush(hpxyz(0.011915,-0.056002,1.001638));
  hpcpush(hpxyz(0.034561,-0.047670,1.001732));
  hpcpush(hpxyz(0.045297,-0.040529,1.001846));
  hpcpush(hpxyz(0.070661,-0.058685,1.004210));
  hpcpush(hpxyz(0.055051,-0.068215,1.003835));
  hpcpush(hpxyz(0.033505,-0.080172,1.003768));
  hpcpush(hpxyz(0.011971,-0.088587,1.003988));
  hpcpush(hpxyz(-0.010772,-0.087369,1.003867));
  hpcpush(hpxyz(-0.035904,-0.080185,1.003852));
  hpcpush(hpxyz(-0.061039,-0.063432,1.003867));
  hpcpush(hpxyz(-0.071750,-0.041854,1.003444));
  hpcpush(hpxyz(-0.082525,-0.015548,1.003520));
  hpcpush(hpxyz(-0.280212,-0.017913,1.038672));
  hpcpush(hpxyz(-0.280212,-0.017913,1.038672));

  for(int i=1; i<=3; i++) for(int j=0; j<2; j++) {
    zoomShape(shDesertFloor[j], shRedRockFloor[i-1][j], 1 - .1 * i, 11+i);
    }
    
  // monsters
  
  bshape(shTentacleX, 31);
  drawTentacle(shTentacleX, crossf * .25, crossf * .1, 10);

  bshape(shBranch, 32);
  hpcpush(ddi(21, crossf/5) * C0);
  hpcpush(ddi(21, -crossf/5) * C0);
  hpcpush(ddi(21, -crossf/5) * ddi(0, crossf) * C0);
  hpcpush(ddi(21, crossf/5) * ddi(0, crossf) * C0);
  
  bshape(shIBranch, 32);
  drawTentacle(shIBranch, crossf * .1, crossf * .2, 5);

  bshape(shTentacle, 32);
  drawTentacle(shTentacle, crossf * .2, crossf * .1, 10);
  
  shJoint = shDisk; shJoint.prio = 33;

  bshape(shGhost, 33);
  hpcpush(hpxyz(-0.312167,0.001301,1.047592));
  hpcpush(hpxyz(-0.185499,0.015970,1.017185));
  hpcpush(hpxyz(-0.273136,0.038290,1.037338));
  hpcpush(hpxyz(-0.184484,0.043046,1.017786));
  hpcpush(hpxyz(-0.296331,0.093578,1.047172));
  hpcpush(hpxyz(-0.174561,0.070070,1.017537));
  hpcpush(hpxyz(-0.222751,0.104454,1.029820));
  hpcpush(hpxyz(-0.162371,0.098407,1.017864));
  hpcpush(hpxyz(-0.272077,0.156217,1.048060));
  hpcpush(hpxyz(-0.140182,0.126656,1.017690));
  hpcpush(hpxyz(-0.161729,0.148045,1.023755));
  hpcpush(hpxyz(-0.119271,0.146323,1.017662));
  hpcpush(hpxyz(-0.231927,0.213686,1.048548));
  hpcpush(hpxyz(-0.001244,0.218928,1.023685));
  hpcpush(hpxyz(0.016184,0.220354,1.024118));
  hpcpush(hpxyz(0.031094,0.216414,1.023622));
  hpcpush(hpxyz(0.045998,0.212585,1.023381));
  hpcpush(hpxyz(0.064748,0.211675,1.024206));
  hpcpush(hpxyz(0.079530,0.201310,1.023157));
  hpcpush(hpxyz(0.094597,0.199151,1.024016));
  hpcpush(hpxyz(0.110770,0.190424,1.023978));
  hpcpush(hpxyz(0.123174,0.181651,1.023801));
  hpcpush(hpxyz(0.132996,0.171528,1.023284));
  hpcpush(hpxyz(0.149284,0.160480,1.023738));
  hpcpush(hpxyz(0.156499,0.147805,1.022907));
  hpcpush(hpxyz(0.171645,0.135575,1.023642));
  hpcpush(hpxyz(0.180157,0.119276,1.023075));
  hpcpush(hpxyz(0.188931,0.106895,1.023290));
  hpcpush(hpxyz(0.197759,0.093283,1.023626));
  hpcpush(hpxyz(0.201351,0.080789,1.023264));
  hpcpush(hpxyz(0.209030,0.067188,1.023820));
  hpcpush(hpxyz(0.212718,0.052246,1.023708));
  hpcpush(hpxyz(0.215145,0.037308,1.023562));
  hpcpush(hpxyz(0.217714,0.026126,1.023759));
  hpcpush(hpxyz(0.217612,0.014922,1.023512));
  hpcpush(hpxyz(0.217612,-0.014922,1.023512));
  hpcpush(hpxyz(0.217714,-0.026126,1.023759));
  hpcpush(hpxyz(0.215145,-0.037308,1.023562));
  hpcpush(hpxyz(0.212718,-0.052246,1.023708));
  hpcpush(hpxyz(0.209030,-0.067188,1.023820));
  hpcpush(hpxyz(0.201351,-0.080789,1.023264));
  hpcpush(hpxyz(0.197759,-0.093283,1.023626));
  hpcpush(hpxyz(0.188931,-0.106895,1.023290));
  hpcpush(hpxyz(0.180157,-0.119276,1.023075));
  hpcpush(hpxyz(0.171645,-0.135575,1.023642));
  hpcpush(hpxyz(0.156499,-0.147805,1.022907));
  hpcpush(hpxyz(0.149284,-0.160480,1.023738));
  hpcpush(hpxyz(0.132996,-0.171528,1.023284));
  hpcpush(hpxyz(0.123174,-0.181651,1.023801));
  hpcpush(hpxyz(0.110770,-0.190424,1.023978));
  hpcpush(hpxyz(0.094597,-0.199151,1.024016));
  hpcpush(hpxyz(0.079530,-0.201310,1.023157));
  hpcpush(hpxyz(0.064748,-0.211675,1.024206));
  hpcpush(hpxyz(0.045998,-0.212585,1.023381));
  hpcpush(hpxyz(0.031094,-0.216414,1.023622));
  hpcpush(hpxyz(0.016184,-0.220354,1.024118));
  hpcpush(hpxyz(-0.001244,-0.218928,1.023685));
  hpcpush(hpxyz(-0.231927,-0.213686,1.048548));
  hpcpush(hpxyz(-0.119271,-0.146323,1.017662));
  hpcpush(hpxyz(-0.161729,-0.148045,1.023755));
  hpcpush(hpxyz(-0.140182,-0.126656,1.017690));
  hpcpush(hpxyz(-0.272077,-0.156217,1.048060));
  hpcpush(hpxyz(-0.162371,-0.098407,1.017864));
  hpcpush(hpxyz(-0.222751,-0.104454,1.029820));
  hpcpush(hpxyz(-0.174561,-0.070070,1.017537));
  hpcpush(hpxyz(-0.296331,-0.093578,1.047172));
  hpcpush(hpxyz(-0.184484,-0.043046,1.017786));
  hpcpush(hpxyz(-0.273136,-0.038290,1.037338));
  hpcpush(hpxyz(-0.185499,-0.015970,1.017185));
  hpcpush(hpxyz(-0.312167,-0.001301,1.047592));
  hpcpush(hpxyz(-0.312167,0.001301,1.047592));

  bshape(shILeaf[0], 33);
  for(int t=0; t<=6; t++) {
    hpcpush(ddi(7 + t*14, hexf*.7) * C0);
    hpcpush(ddi(14 + t*14, hexf*.15) * C0);
    }

  bshape(shILeaf[1], 33);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*36, hexf*.8) * C0);

  bshape(shGargoyleWings, 34);
  hpcpush(hpxyz(0.042241,0.002223,1.000894));
  hpcpush(hpxyz(0.041129,-0.007781,1.000876));
  hpcpush(hpxyz(0.045593,-0.034473,1.001632));
  hpcpush(hpxyz(0.066799,-0.059006,1.003964));
  hpcpush(hpxyz(0.116090,-0.071440,1.009247));
  hpcpush(hpxyz(0.169203,-0.075077,1.016989));
  hpcpush(hpxyz(0.154517,-0.085096,1.015439));
  hpcpush(hpxyz(0.124220,-0.116387,1.014385));
  hpcpush(hpxyz(0.104146,-0.144461,1.015734));
  hpcpush(hpxyz(0.082994,-0.176082,1.018770));
  hpcpush(hpxyz(0.049446,-0.209023,1.022808));
  hpcpush(hpxyz(0.004505,-0.235397,1.027342));
  hpcpush(hpxyz(-0.039494,-0.248247,1.031109));
  hpcpush(hpxyz(-0.071220,-0.256618,1.034855));
  hpcpush(hpxyz(-0.116784,-0.264180,1.040879));
  hpcpush(hpxyz(-0.160337,-0.264954,1.046857));
  hpcpush(hpxyz(-0.177592,-0.262973,1.049140));
  hpcpush(hpxyz(-0.159002,-0.255539,1.044309));
  hpcpush(hpxyz(-0.137018,-0.243463,1.038291));
  hpcpush(hpxyz(-0.124173,-0.222383,1.031927));
  hpcpush(hpxyz(-0.128481,-0.203992,1.028650));
  hpcpush(hpxyz(-0.160238,-0.194091,1.031188));
  hpcpush(hpxyz(-0.184305,-0.194482,1.035274));
  hpcpush(hpxyz(-0.160187,-0.190645,1.030536));
  hpcpush(hpxyz(-0.117943,-0.174106,1.021872));
  hpcpush(hpxyz(-0.108751,-0.156961,1.018069));
  hpcpush(hpxyz(-0.107466,-0.136571,1.014988));
  hpcpush(hpxyz(-0.120870,-0.120870,1.014504));
  hpcpush(hpxyz(-0.143330,-0.104138,1.015573));
  hpcpush(hpxyz(-0.156871,-0.097484,1.016913));
  hpcpush(hpxyz(-0.143266,-0.095138,1.014680));
  hpcpush(hpxyz(-0.119536,-0.087138,1.010882));
  hpcpush(hpxyz(-0.103741,-0.071392,1.007898));
  hpcpush(hpxyz(-0.091360,-0.051251,1.005472));
  hpcpush(hpxyz(-0.083500,-0.032287,1.003999));
  hpcpush(hpxyz(-0.077900,-0.015580,1.003151));
  hpcpush(hpxyz(-0.077900,0.015580,1.003151));
  hpcpush(hpxyz(-0.083500,0.032287,1.003999));
  hpcpush(hpxyz(-0.091360,0.051251,1.005472));
  hpcpush(hpxyz(-0.103741,0.071392,1.007898));
  hpcpush(hpxyz(-0.119536,0.087138,1.010882));
  hpcpush(hpxyz(-0.143266,0.095138,1.014680));
  hpcpush(hpxyz(-0.156871,0.097484,1.016913));
  hpcpush(hpxyz(-0.143330,0.104138,1.015573));
  hpcpush(hpxyz(-0.120870,0.120870,1.014504));
  hpcpush(hpxyz(-0.107466,0.136571,1.014988));
  hpcpush(hpxyz(-0.108751,0.156961,1.018069));
  hpcpush(hpxyz(-0.117943,0.174106,1.021872));
  hpcpush(hpxyz(-0.160187,0.190645,1.030536));
  hpcpush(hpxyz(-0.184305,0.194482,1.035274));
  hpcpush(hpxyz(-0.160238,0.194091,1.031188));
  hpcpush(hpxyz(-0.128481,0.203992,1.028650));
  hpcpush(hpxyz(-0.124173,0.222383,1.031927));
  hpcpush(hpxyz(-0.137018,0.243463,1.038291));
  hpcpush(hpxyz(-0.159002,0.255539,1.044309));
  hpcpush(hpxyz(-0.177592,0.262973,1.049140));
  hpcpush(hpxyz(-0.160337,0.264954,1.046857));
  hpcpush(hpxyz(-0.116784,0.264180,1.040879));
  hpcpush(hpxyz(-0.071220,0.256618,1.034855));
  hpcpush(hpxyz(-0.039494,0.248247,1.031109));
  hpcpush(hpxyz(0.004505,0.235397,1.027342));
  hpcpush(hpxyz(0.049446,0.209023,1.022808));
  hpcpush(hpxyz(0.082994,0.176082,1.018770));
  hpcpush(hpxyz(0.104146,0.144461,1.015734));
  hpcpush(hpxyz(0.124220,0.116387,1.014385));
  hpcpush(hpxyz(0.154517,0.085096,1.015439));
  hpcpush(hpxyz(0.169203,0.075077,1.016989));
  hpcpush(hpxyz(0.116090,0.071440,1.009247));
  hpcpush(hpxyz(0.066799,0.059006,1.003964));
  hpcpush(hpxyz(0.045593,0.034473,1.001632));
  hpcpush(hpxyz(0.041129,0.007781,1.000876));
  hpcpush(hpxyz(0.042241,-0.002223,1.000894));
  hpcpush(hpxyz(0.042241,0.002223,1.000894));

  bshape(shGargoyleBody, 33);
  hpcpush(hpxyz(0.128302,-0.002231,1.008200));
  hpcpush(hpxyz(0.128305,-0.010041,1.008247));
  hpcpush(hpxyz(0.136196,-0.021211,1.009455));
  hpcpush(hpxyz(0.146366,-0.031284,1.011139));
  hpcpush(hpxyz(0.164504,-0.042525,1.014332));
  hpcpush(hpxyz(0.161107,-0.043633,1.013834));
  hpcpush(hpxyz(0.143009,-0.042456,1.011066));
  hpcpush(hpxyz(0.127212,-0.033477,1.008615));
  hpcpush(hpxyz(0.114839,-0.025644,1.006899));
  hpcpush(hpxyz(0.108151,-0.046828,1.006921));
  hpcpush(hpxyz(0.094666,-0.021161,1.004694));
  hpcpush(hpxyz(0.081255,-0.022262,1.003543));
  hpcpush(hpxyz(0.068979,-0.022251,1.002623));
  hpcpush(hpxyz(0.057838,-0.028919,1.002089));
  hpcpush(hpxyz(0.082541,-0.093696,1.007766));
  hpcpush(hpxyz(0.108462,-0.117407,1.012694));
  hpcpush(hpxyz(0.080377,-0.111634,1.009417));
  hpcpush(hpxyz(0.074909,-0.139757,1.012494));
  hpcpush(hpxyz(0.066894,-0.095881,1.006811));
  hpcpush(hpxyz(0.056798,-0.077958,1.004641));
  hpcpush(hpxyz(0.043402,-0.066772,1.003166));
  hpcpush(hpxyz(0.031144,-0.056726,1.002092));
  hpcpush(hpxyz(0.011119,-0.053373,1.001485));
  hpcpush(hpxyz(-0.024478,-0.070096,1.002753));
  hpcpush(hpxyz(-0.007782,-0.046693,1.001120));
  hpcpush(hpxyz(-0.062361,-0.071270,1.004474));
  hpcpush(hpxyz(-0.041154,-0.050052,1.002097));
  hpcpush(hpxyz(-0.097005,-0.068015,1.006994));
  hpcpush(hpxyz(-0.066772,-0.043402,1.003166));
  hpcpush(hpxyz(-0.120555,-0.063626,1.009248));
  hpcpush(hpxyz(-0.092454,-0.038987,1.005021));
  hpcpush(hpxyz(-0.144240,-0.068206,1.012649));
  hpcpush(hpxyz(-0.151438,-0.125638,1.019175));
  hpcpush(hpxyz(-0.186951,-0.141902,1.027174));
  hpcpush(hpxyz(-0.209987,-0.145636,1.032136));
  hpcpush(hpxyz(-0.230971,-0.155113,1.037983));
  hpcpush(hpxyz(-0.216796,-0.137756,1.032462));
  hpcpush(hpxyz(-0.243372,-0.131308,1.037531));
  hpcpush(hpxyz(-0.209646,-0.120603,1.028833));
  hpcpush(hpxyz(-0.188968,-0.119230,1.024658));
  hpcpush(hpxyz(-0.167228,-0.113356,1.020203));
  hpcpush(hpxyz(-0.164543,-0.052609,1.014811));
  hpcpush(hpxyz(-0.121573,-0.023422,1.007635));
  hpcpush(hpxyz(-0.142949,-0.011168,1.010227));
  hpcpush(hpxyz(-0.187169,-0.007845,1.017396));
  hpcpush(hpxyz(-0.243507,-0.003382,1.029226));
  hpcpush(hpxyz(-0.243507,0.003382,1.029226));
  hpcpush(hpxyz(-0.187169,0.007845,1.017396));
  hpcpush(hpxyz(-0.142949,0.011168,1.010227));
  hpcpush(hpxyz(-0.121573,0.023422,1.007635));
  hpcpush(hpxyz(-0.164543,0.052609,1.014811));
  hpcpush(hpxyz(-0.167228,0.113356,1.020203));
  hpcpush(hpxyz(-0.188968,0.119230,1.024658));
  hpcpush(hpxyz(-0.209646,0.120603,1.028833));
  hpcpush(hpxyz(-0.243372,0.131308,1.037531));
  hpcpush(hpxyz(-0.216796,0.137756,1.032462));
  hpcpush(hpxyz(-0.230971,0.155113,1.037983));
  hpcpush(hpxyz(-0.209987,0.145636,1.032136));
  hpcpush(hpxyz(-0.186951,0.141902,1.027174));
  hpcpush(hpxyz(-0.151438,0.125638,1.019175));
  hpcpush(hpxyz(-0.144240,0.068206,1.012649));
  hpcpush(hpxyz(-0.092454,0.038987,1.005021));
  hpcpush(hpxyz(-0.120555,0.063626,1.009248));
  hpcpush(hpxyz(-0.066772,0.043402,1.003166));
  hpcpush(hpxyz(-0.097005,0.068015,1.006994));
  hpcpush(hpxyz(-0.041154,0.050052,1.002097));
  hpcpush(hpxyz(-0.062361,0.071270,1.004474));
  hpcpush(hpxyz(-0.007782,0.046693,1.001120));
  hpcpush(hpxyz(-0.024478,0.070096,1.002753));
  hpcpush(hpxyz(0.011119,0.053373,1.001485));
  hpcpush(hpxyz(0.031144,0.056726,1.002092));
  hpcpush(hpxyz(0.043402,0.066772,1.003166));
  hpcpush(hpxyz(0.056798,0.077958,1.004641));
  hpcpush(hpxyz(0.066894,0.095881,1.006811));
  hpcpush(hpxyz(0.074909,0.139757,1.012494));
  hpcpush(hpxyz(0.080377,0.111634,1.009417));
  hpcpush(hpxyz(0.108462,0.117407,1.012694));
  hpcpush(hpxyz(0.082541,0.093696,1.007766));
  hpcpush(hpxyz(0.057838,0.028919,1.002089));
  hpcpush(hpxyz(0.068979,0.022251,1.002623));
  hpcpush(hpxyz(0.081255,0.022262,1.003543));
  hpcpush(hpxyz(0.094666,0.021161,1.004694));
  hpcpush(hpxyz(0.108151,0.046828,1.006921));
  hpcpush(hpxyz(0.114839,0.025644,1.006899));
  hpcpush(hpxyz(0.127212,0.033477,1.008615));
  hpcpush(hpxyz(0.143009,0.042456,1.011066));
  hpcpush(hpxyz(0.161107,0.043633,1.013834));
  hpcpush(hpxyz(0.164504,0.042525,1.014332));
  hpcpush(hpxyz(0.146366,0.031284,1.011139));
  hpcpush(hpxyz(0.136196,0.021211,1.009455));
  hpcpush(hpxyz(0.128305,0.010041,1.008247));
  hpcpush(hpxyz(0.128302,0.002231,1.008200));
  hpcpush(hpxyz(0.128302,-0.002231,1.008200));

  bshape(shDogStripes, 34);
  hpcpush(hpxyz(-0.147497,-0.001105,1.010820));
  hpcpush(hpxyz(-0.159242,0.009400,1.012643));
  hpcpush(hpxyz(-0.153105,0.023214,1.011919));
  hpcpush(hpxyz(-0.135232,0.011039,1.009163));
  hpcpush(hpxyz(-0.110779,0.007165,1.006143));
  hpcpush(hpxyz(-0.119793,0.067901,1.009436));
  hpcpush(hpxyz(-0.099799,0.063959,1.007001));
  hpcpush(hpxyz(-0.090296,0.011012,1.004129));
  hpcpush(hpxyz(-0.047281,0.012095,1.001190));
  hpcpush(hpxyz(-0.058915,0.070478,1.004210));
  hpcpush(hpxyz(-0.041289,0.078174,1.003900));
  hpcpush(hpxyz(-0.021982,0.013189,1.000329));
  hpcpush(hpxyz(0.011539,0.012638,1.000146));
  hpcpush(hpxyz(-0.001651,0.079245,1.003136));
  hpcpush(hpxyz(0.011562,0.089191,1.004036));
  hpcpush(hpxyz(0.034627,0.013741,1.000694));
  hpcpush(hpxyz(0.043979,0.012094,1.001040));
  hpcpush(hpxyz(0.052798,0.032449,1.001918));
  hpcpush(hpxyz(0.058855,0.029703,1.002171));
  hpcpush(hpxyz(0.077053,0.029170,1.003388));
  hpcpush(hpxyz(0.066006,0.005501,1.002191));
  hpcpush(hpxyz(0.066006,-0.005501,1.002191));
  hpcpush(hpxyz(0.077053,-0.029170,1.003388));
  hpcpush(hpxyz(0.058855,-0.029703,1.002171));
  hpcpush(hpxyz(0.052798,-0.032449,1.001918));
  hpcpush(hpxyz(0.043979,-0.012094,1.001040));
  hpcpush(hpxyz(0.034627,-0.013741,1.000694));
  hpcpush(hpxyz(0.011562,-0.089191,1.004036));
  hpcpush(hpxyz(-0.001651,-0.079245,1.003136));
  hpcpush(hpxyz(0.011539,-0.012638,1.000146));
  hpcpush(hpxyz(-0.021982,-0.013189,1.000329));
  hpcpush(hpxyz(-0.041289,-0.078174,1.003900));
  hpcpush(hpxyz(-0.058915,-0.070478,1.004210));
  hpcpush(hpxyz(-0.047281,-0.012095,1.001190));
  hpcpush(hpxyz(-0.090296,-0.011012,1.004129));
  hpcpush(hpxyz(-0.099799,-0.063959,1.007001));
  hpcpush(hpxyz(-0.119793,-0.067901,1.009436));
  hpcpush(hpxyz(-0.110779,-0.007165,1.006143));
  hpcpush(hpxyz(-0.135232,-0.011039,1.009163));
  hpcpush(hpxyz(-0.153105,-0.023214,1.011919));
  hpcpush(hpxyz(-0.159242,-0.009400,1.012643));
  hpcpush(hpxyz(-0.147497,0.001105,1.010820));
  hpcpush(hpxyz(-0.147497,-0.001105,1.010820));

  bshape(shWolf, 33);
  /*
  hpcpush(hpxyz(-0.310601,0.000000,1.047126));
  hpcpush(hpxyz(-0.158251,0.009739,1.012491));
  hpcpush(hpxyz(-0.149626,0.045009,1.012133));
  hpcpush(hpxyz(-0.173168,0.066320,1.017047));
  hpcpush(hpxyz(-0.250414,0.056912,1.032447));
  hpcpush(hpxyz(-0.242122,0.064314,1.030902));
  hpcpush(hpxyz(-0.253563,0.065926,1.033751));
  hpcpush(hpxyz(-0.241104,0.075740,1.031440));
  hpcpush(hpxyz(-0.249897,0.082453,1.034044));
  hpcpush(hpxyz(-0.237118,0.081982,1.030993));
  hpcpush(hpxyz(-0.246310,0.097762,1.034517));
  hpcpush(hpxyz(-0.230366,0.088118,1.029968));
  hpcpush(hpxyz(-0.210870,0.082352,1.025304));
  hpcpush(hpxyz(-0.194727,0.083100,1.022166));
  hpcpush(hpxyz(-0.180298,0.087679,1.019899));
  hpcpush(hpxyz(-0.162032,0.087154,1.016784));
  hpcpush(hpxyz(-0.135091,0.081542,1.012373));
  hpcpush(hpxyz(-0.116083,0.068924,1.009072));
  hpcpush(hpxyz(-0.106144,0.066340,1.007803));
  hpcpush(hpxyz(-0.084057,0.063643,1.005543));
  hpcpush(hpxyz(-0.061108,0.071892,1.004441));
  hpcpush(hpxyz(-0.044295,0.077815,1.004001));
  hpcpush(hpxyz(-0.021516,0.077698,1.003245));
  hpcpush(hpxyz(0.000000,0.078872,1.003106));
  hpcpush(hpxyz(0.025203,0.099613,1.005265));
  hpcpush(hpxyz(0.040964,0.113252,1.007226));
  hpcpush(hpxyz(0.067885,0.127285,1.010351));
  hpcpush(hpxyz(0.086481,0.135203,1.012798));
  hpcpush(hpxyz(0.104129,0.144556,1.015746));
  hpcpush(hpxyz(0.097579,0.132951,1.013508));
  hpcpush(hpxyz(0.112604,0.134635,1.015286));
  hpcpush(hpxyz(0.098603,0.124167,1.012492));
  hpcpush(hpxyz(0.118341,0.115901,1.013626));
  hpcpush(hpxyz(0.094688,0.115325,1.011072));
  hpcpush(hpxyz(0.079806,0.108826,1.009065));
  hpcpush(hpxyz(0.065011,0.097516,1.006845));
  hpcpush(hpxyz(0.053964,0.082746,1.004868));
  hpcpush(hpxyz(0.049028,0.066966,1.003438));
  hpcpush(hpxyz(0.045353,0.053708,1.002468));
  hpcpush(hpxyz(0.046494,0.040534,1.001901));
  hpcpush(hpxyz(0.051260,0.033378,1.001869));
  hpcpush(hpxyz(0.059646,0.029823,1.002221));
  hpcpush(hpxyz(0.069275,0.029860,1.002841));
  hpcpush(hpxyz(0.077732,0.029897,1.003462));
  hpcpush(hpxyz(0.081360,0.028715,1.003715));
  hpcpush(hpxyz(0.092268,0.021569,1.004479));
  hpcpush(hpxyz(0.102040,0.020408,1.005400));
  hpcpush(hpxyz(0.108180,0.020434,1.006042));
  hpcpush(hpxyz(0.123078,0.030166,1.007997));
  hpcpush(hpxyz(0.100952,0.042063,1.005963));
  hpcpush(hpxyz(0.125691,0.043508,1.008807));
  hpcpush(hpxyz(0.144550,0.044944,1.011393));
  hpcpush(hpxyz(0.154674,0.041409,1.012738));
  hpcpush(hpxyz(0.177755,0.029421,1.016102));
  hpcpush(hpxyz(0.154429,0.012160,1.011927));
  hpcpush(hpxyz(0.146841,0.019417,1.010910));
  hpcpush(hpxyz(0.132964,0.013296,1.008889));
  hpcpush(hpxyz(0.143007,0.009695,1.010220));
  hpcpush(hpxyz(0.154429,0.012160,1.011927));
  hpcpush(hpxyz(0.177755,0.029421,1.016102));
  hpcpush(hpxyz(0.184262,0.025797,1.017162));
  hpcpush(hpxyz(0.185576,0.025809,1.017401));
  hpcpush(hpxyz(0.190852,0.025857,1.018378));
  hpcpush(hpxyz(0.194828,0.025895,1.019131));
  hpcpush(hpxyz(0.201483,0.024722,1.020395));
  hpcpush(hpxyz(0.205462,0.019804,1.021081));
  hpcpush(hpxyz(0.210828,0.016122,1.022110));
  hpcpush(hpxyz(0.210793,0.009920,1.022024));
  hpcpush(hpxyz(0.217604,0.013678,1.023493));
  hpcpush(hpxyz(0.208083,0.007432,1.021447));
  hpcpush(hpxyz(0.208083,-0.007432,1.021447));
  hpcpush(hpxyz(0.217604,-0.013678,1.023493));
  hpcpush(hpxyz(0.210793,-0.009920,1.022024));
  hpcpush(hpxyz(0.210828,-0.016122,1.022110));
  hpcpush(hpxyz(0.205462,-0.019804,1.021081));
  hpcpush(hpxyz(0.201483,-0.024722,1.020395));
  hpcpush(hpxyz(0.194828,-0.025895,1.019131));
  hpcpush(hpxyz(0.190852,-0.025857,1.018378));
  hpcpush(hpxyz(0.185576,-0.025809,1.017401));
  hpcpush(hpxyz(0.184262,-0.025797,1.017162));
  hpcpush(hpxyz(0.177755,-0.029421,1.016102));
  hpcpush(hpxyz(0.154429,-0.012160,1.011927));
  hpcpush(hpxyz(0.143007,-0.009695,1.010220));
  hpcpush(hpxyz(0.132964,-0.013296,1.008889));
  hpcpush(hpxyz(0.146841,-0.019417,1.010910));
  hpcpush(hpxyz(0.154429,-0.012160,1.011927));
  hpcpush(hpxyz(0.177755,-0.029421,1.016102));
  hpcpush(hpxyz(0.154674,-0.041409,1.012738));
  hpcpush(hpxyz(0.144550,-0.044944,1.011393));
  hpcpush(hpxyz(0.125691,-0.043508,1.008807));
  hpcpush(hpxyz(0.100952,-0.042063,1.005963));
  hpcpush(hpxyz(0.123078,-0.030166,1.007997));
  hpcpush(hpxyz(0.108180,-0.020434,1.006042));
  hpcpush(hpxyz(0.102040,-0.020408,1.005400));
  hpcpush(hpxyz(0.092268,-0.021569,1.004479));
  hpcpush(hpxyz(0.081360,-0.028715,1.003715));
  hpcpush(hpxyz(0.077732,-0.029897,1.003462));
  hpcpush(hpxyz(0.069275,-0.029860,1.002841));
  hpcpush(hpxyz(0.059646,-0.029823,1.002221));
  hpcpush(hpxyz(0.051260,-0.033378,1.001869));
  hpcpush(hpxyz(0.046494,-0.040534,1.001901));
  hpcpush(hpxyz(0.045353,-0.053708,1.002468));
  hpcpush(hpxyz(0.049028,-0.066966,1.003438));
  hpcpush(hpxyz(0.053964,-0.082746,1.004868));
  hpcpush(hpxyz(0.065011,-0.097516,1.006845));
  hpcpush(hpxyz(0.079806,-0.108826,1.009065));
  hpcpush(hpxyz(0.094688,-0.115325,1.011072));
  hpcpush(hpxyz(0.118341,-0.115901,1.013626));
  hpcpush(hpxyz(0.098603,-0.124167,1.012492));
  hpcpush(hpxyz(0.112604,-0.134635,1.015286));
  hpcpush(hpxyz(0.097579,-0.132951,1.013508));
  hpcpush(hpxyz(0.104129,-0.144556,1.015746));
  hpcpush(hpxyz(0.086481,-0.135203,1.012798));
  hpcpush(hpxyz(0.067885,-0.127285,1.010351));
  hpcpush(hpxyz(0.040964,-0.113252,1.007226));
  hpcpush(hpxyz(0.025203,-0.099613,1.005265));
  hpcpush(hpxyz(0.000000,-0.078872,1.003106));
  hpcpush(hpxyz(-0.021516,-0.077698,1.003245));
  hpcpush(hpxyz(-0.044295,-0.077815,1.004001));
  hpcpush(hpxyz(-0.061108,-0.071892,1.004441));
  hpcpush(hpxyz(-0.084057,-0.063643,1.005543));
  hpcpush(hpxyz(-0.106144,-0.066340,1.007803));
  hpcpush(hpxyz(-0.116083,-0.068924,1.009072));
  hpcpush(hpxyz(-0.135091,-0.081542,1.012373));
  hpcpush(hpxyz(-0.162032,-0.087154,1.016784));
  hpcpush(hpxyz(-0.180298,-0.087679,1.019899));
  hpcpush(hpxyz(-0.194727,-0.083100,1.022166));
  hpcpush(hpxyz(-0.210870,-0.082352,1.025304));
  hpcpush(hpxyz(-0.230366,-0.088118,1.029968));
  hpcpush(hpxyz(-0.246310,-0.097762,1.034517));
  hpcpush(hpxyz(-0.237118,-0.081982,1.030993));
  hpcpush(hpxyz(-0.249897,-0.082453,1.034044));
  hpcpush(hpxyz(-0.241104,-0.075740,1.031440));
  hpcpush(hpxyz(-0.253563,-0.065926,1.033751));
  hpcpush(hpxyz(-0.242122,-0.064314,1.030902));
  hpcpush(hpxyz(-0.250414,-0.056912,1.032447));
  hpcpush(hpxyz(-0.173168,-0.066320,1.017047));
  hpcpush(hpxyz(-0.149626,-0.045009,1.012133));
  hpcpush(hpxyz(-0.158251,-0.009739,1.012491));
  hpcpush(hpxyz(-0.310601,-0.000000,1.047126));
  hpcpush(hpxyz(-0.310601,0.000000,1.047126));
  */
  hpcpush(hpxyz(-0.310601,0.000000,1.047126));
  hpcpush(hpxyz(-0.158251,0.009739,1.012491));
  hpcpush(hpxyz(-0.149626,0.045009,1.012133));
  hpcpush(hpxyz(-0.173168,0.066320,1.017047));
  hpcpush(hpxyz(-0.250414,0.056912,1.032447));
  hpcpush(hpxyz(-0.242122,0.064314,1.030902));
  hpcpush(hpxyz(-0.253563,0.065926,1.033751));
  hpcpush(hpxyz(-0.241104,0.075740,1.031440));
  hpcpush(hpxyz(-0.249897,0.082453,1.034044));
  hpcpush(hpxyz(-0.237118,0.081982,1.030993));
  hpcpush(hpxyz(-0.246310,0.097762,1.034517));
  hpcpush(hpxyz(-0.230366,0.088118,1.029968));
  hpcpush(hpxyz(-0.210870,0.082352,1.025304));
  hpcpush(hpxyz(-0.194727,0.083100,1.022166));
  hpcpush(hpxyz(-0.180298,0.087679,1.019899));
  hpcpush(hpxyz(-0.162032,0.087154,1.016784));
  hpcpush(hpxyz(-0.135091,0.081542,1.012373));
  hpcpush(hpxyz(-0.116083,0.068924,1.009072));
  hpcpush(hpxyz(-0.106144,0.066340,1.007803));
  hpcpush(hpxyz(-0.084057,0.063643,1.005543));
  hpcpush(hpxyz(-0.061108,0.071892,1.004441));
  hpcpush(hpxyz(-0.044295,0.077815,1.004001));
  hpcpush(hpxyz(-0.021516,0.077698,1.003245));
  hpcpush(hpxyz(0.000000,0.078872,1.003106));
  hpcpush(hpxyz(0.025203,0.099613,1.005265));
  hpcpush(hpxyz(0.040964,0.113252,1.007226));
  hpcpush(hpxyz(0.067885,0.127285,1.010351));
  hpcpush(hpxyz(0.086481,0.135203,1.012798));
  hpcpush(hpxyz(0.104129,0.144556,1.015746));
  hpcpush(hpxyz(0.097579,0.132951,1.013508));
  hpcpush(hpxyz(0.112604,0.134635,1.015286));
  hpcpush(hpxyz(0.098603,0.124167,1.012492));
  hpcpush(hpxyz(0.118341,0.115901,1.013626));
  hpcpush(hpxyz(0.094688,0.115325,1.011072));
  hpcpush(hpxyz(0.079806,0.108826,1.009065));
  hpcpush(hpxyz(0.065011,0.097516,1.006845));
  hpcpush(hpxyz(0.053964,0.082746,1.004868));
  hpcpush(hpxyz(0.049028,0.066966,1.003438));
  hpcpush(hpxyz(0.045353,0.053708,1.002468));
  hpcpush(hpxyz(0.046494,0.040534,1.001901));
  hpcpush(hpxyz(0.051260,0.033378,1.001869));
  hpcpush(hpxyz(0.059646,0.029823,1.002221));
  hpcpush(hpxyz(0.069275,0.029860,1.002841));
  hpcpush(hpxyz(0.077732,0.029897,1.003462));
  hpcpush(hpxyz(0.081360,0.028715,1.003715));
  hpcpush(hpxyz(0.066249,0.039649,1.002976));
  hpcpush(hpxyz(0.106662,0.046229,1.006734));
  hpcpush(hpxyz(0.146020,0.025919,1.010937));
  hpcpush(hpxyz(0.159666,0.028110,1.013056));
  hpcpush(hpxyz(0.172131,0.020186,1.014907));
  hpcpush(hpxyz(0.172077,0.013438,1.014786));
  hpcpush(hpxyz(0.168613,0.007837,1.014146));
  hpcpush(hpxyz(0.168613,-0.007837,1.014146));
  hpcpush(hpxyz(0.172077,-0.013438,1.014786));
  hpcpush(hpxyz(0.172131,-0.020186,1.014907));
  hpcpush(hpxyz(0.159666,-0.028110,1.013056));
  hpcpush(hpxyz(0.146020,-0.025919,1.010937));
  hpcpush(hpxyz(0.106662,-0.046229,1.006734));
  hpcpush(hpxyz(0.066249,-0.039649,1.002976));
  hpcpush(hpxyz(0.081360,-0.028715,1.003715));
  hpcpush(hpxyz(0.077732,-0.029897,1.003462));
  hpcpush(hpxyz(0.069275,-0.029860,1.002841));
  hpcpush(hpxyz(0.059646,-0.029823,1.002221));
  hpcpush(hpxyz(0.051260,-0.033378,1.001869));
  hpcpush(hpxyz(0.046494,-0.040534,1.001901));
  hpcpush(hpxyz(0.045353,-0.053708,1.002468));
  hpcpush(hpxyz(0.049028,-0.066966,1.003438));
  hpcpush(hpxyz(0.053964,-0.082746,1.004868));
  hpcpush(hpxyz(0.065011,-0.097516,1.006845));
  hpcpush(hpxyz(0.079806,-0.108826,1.009065));
  hpcpush(hpxyz(0.094688,-0.115325,1.011072));
  hpcpush(hpxyz(0.118341,-0.115901,1.013626));
  hpcpush(hpxyz(0.098603,-0.124167,1.012492));
  hpcpush(hpxyz(0.112604,-0.134635,1.015286));
  hpcpush(hpxyz(0.097579,-0.132951,1.013508));
  hpcpush(hpxyz(0.104129,-0.144556,1.015746));
  hpcpush(hpxyz(0.086481,-0.135203,1.012798));
  hpcpush(hpxyz(0.067885,-0.127285,1.010351));
  hpcpush(hpxyz(0.040964,-0.113252,1.007226));
  hpcpush(hpxyz(0.025203,-0.099613,1.005265));
  hpcpush(hpxyz(0.000000,-0.078872,1.003106));
  hpcpush(hpxyz(-0.021516,-0.077698,1.003245));
  hpcpush(hpxyz(-0.044295,-0.077815,1.004001));
  hpcpush(hpxyz(-0.061108,-0.071892,1.004441));
  hpcpush(hpxyz(-0.084057,-0.063643,1.005543));
  hpcpush(hpxyz(-0.106144,-0.066340,1.007803));
  hpcpush(hpxyz(-0.116083,-0.068924,1.009072));
  hpcpush(hpxyz(-0.135091,-0.081542,1.012373));
  hpcpush(hpxyz(-0.162032,-0.087154,1.016784));
  hpcpush(hpxyz(-0.180298,-0.087679,1.019899));
  hpcpush(hpxyz(-0.194727,-0.083100,1.022166));
  hpcpush(hpxyz(-0.210870,-0.082352,1.025304));
  hpcpush(hpxyz(-0.230366,-0.088118,1.029968));
  hpcpush(hpxyz(-0.246310,-0.097762,1.034517));
  hpcpush(hpxyz(-0.237118,-0.081982,1.030993));
  hpcpush(hpxyz(-0.249897,-0.082453,1.034044));
  hpcpush(hpxyz(-0.241104,-0.075740,1.031440));
  hpcpush(hpxyz(-0.253563,-0.065926,1.033751));
  hpcpush(hpxyz(-0.242122,-0.064314,1.030902));
  hpcpush(hpxyz(-0.250414,-0.056912,1.032447));
  hpcpush(hpxyz(-0.173168,-0.066320,1.017047));
  hpcpush(hpxyz(-0.149626,-0.045009,1.012133));
  hpcpush(hpxyz(-0.158251,-0.009739,1.012491));
  hpcpush(hpxyz(-0.310601,0.000000,1.047126));
  hpcpush(hpxyz(-0.310601,0.000000,1.047126));
  
  bshape(shWolf1, 34);
  hpcpush(hpxyz(0.121226,-0.019639,1.007513));
  hpcpush(hpxyz(0.119731,-0.021190,1.007365));
  hpcpush(hpxyz(0.117841,-0.022233,1.007165));
  hpcpush(hpxyz(0.115725,-0.022676,1.006929));
  hpcpush(hpxyz(0.113570,-0.022480,1.006679));
  hpcpush(hpxyz(0.111568,-0.021661,1.006438));
  hpcpush(hpxyz(0.109897,-0.020293,1.006225));
  hpcpush(hpxyz(0.108705,-0.018496,1.006061));
  hpcpush(hpxyz(0.108099,-0.016432,1.005960));
  hpcpush(hpxyz(0.108131,-0.014283,1.005931));
  hpcpush(hpxyz(0.108800,-0.012240,1.005976));
  hpcpush(hpxyz(0.110046,-0.010484,1.006091));
  hpcpush(hpxyz(0.111757,-0.009172,1.006267));
  hpcpush(hpxyz(0.113783,-0.008421,1.006488));
  hpcpush(hpxyz(0.115942,-0.008296,1.006733));
  hpcpush(hpxyz(0.118044,-0.008810,1.006982));
  hpcpush(hpxyz(0.119902,-0.009915,1.007211));
  hpcpush(hpxyz(0.121349,-0.011516,1.007402));
  hpcpush(hpxyz(0.122258,-0.013468,1.007536));
  hpcpush(hpxyz(0.122549,-0.015598,1.007602));
  hpcpush(hpxyz(0.122194,-0.017718,1.007594));
  hpcpush(hpxyz(0.121226,-0.019639,1.007513));

  bshape(shWolf2, 34);
  hpcpush(hpxyz(0.110896,0.008835,1.006169));
  hpcpush(hpxyz(0.109780,0.010595,1.006064));
  hpcpush(hpxyz(0.109236,0.012605,1.006028));
  hpcpush(hpxyz(0.109313,0.014686,1.006064));
  hpcpush(hpxyz(0.110004,0.016653,1.006170));
  hpcpush(hpxyz(0.111247,0.018331,1.006336));
  hpcpush(hpxyz(0.112933,0.019572,1.006547));
  hpcpush(hpxyz(0.114911,0.020264,1.006785));
  hpcpush(hpxyz(0.117005,0.020346,1.007027));
  hpcpush(hpxyz(0.119030,0.019812,1.007254));
  hpcpush(hpxyz(0.120806,0.018708,1.007444));
  hpcpush(hpxyz(0.122174,0.017133,1.007581));
  hpcpush(hpxyz(0.123014,0.015226,1.007653));
  hpcpush(hpxyz(0.123250,0.013158,1.007653));
  hpcpush(hpxyz(0.122862,0.011111,1.007581));
  hpcpush(hpxyz(0.121884,0.009268,1.007443));
  hpcpush(hpxyz(0.120403,0.007792,1.007252));
  hpcpush(hpxyz(0.118550,0.006815,1.007026));
  hpcpush(hpxyz(0.116491,0.006423,1.006783));
  hpcpush(hpxyz(0.114408,0.006652,1.006545));
  hpcpush(hpxyz(0.112486,0.007480,1.006334));
  hpcpush(hpxyz(0.110896,0.008835,1.006169));

  bshape(shWolf3, 34);
  hpcpush(hpxyz(0.157399,-0.008998,1.012351));
  hpcpush(hpxyz(0.154869,-0.009703,1.011968));
  hpcpush(hpxyz(0.152240,-0.009639,1.011568));
  hpcpush(hpxyz(0.149747,-0.008812,1.011188));
  hpcpush(hpxyz(0.147612,-0.007296,1.010862));
  hpcpush(hpxyz(0.146023,-0.005225,1.010619));
  hpcpush(hpxyz(0.145123,-0.002783,1.010479));
  hpcpush(hpxyz(0.144991,-0.000188,1.010456));
  hpcpush(hpxyz(0.145638,0.002331,1.010552));
  hpcpush(hpxyz(0.147008,0.004549,1.010758));
  hpcpush(hpxyz(0.148979,0.006269,1.011056));
  hpcpush(hpxyz(0.151375,0.007339,1.011419));
  hpcpush(hpxyz(0.153983,0.007663,1.011815));
  hpcpush(hpxyz(0.156573,0.007212,1.012209));
  hpcpush(hpxyz(0.158913,0.006027,1.012566));
  hpcpush(hpxyz(0.160796,0.004213,1.012854));
  hpcpush(hpxyz(0.162055,0.001931,1.013048));
  hpcpush(hpxyz(0.162577,-0.000616,1.013130));
  hpcpush(hpxyz(0.162316,-0.003201,1.013093));
  hpcpush(hpxyz(0.161296,-0.005596,1.012940));
  hpcpush(hpxyz(0.159607,-0.007588,1.012686));
  hpcpush(hpxyz(0.157399,-0.008998,1.012351));

  bshape(shEagle, 33);
  hpcpush(hpxyz(-0.153132,0.000000,1.011657));
  hpcpush(hpxyz(-0.151960,0.025529,1.011802));
  hpcpush(hpxyz(-0.192201,0.028337,1.018697));
  hpcpush(hpxyz(-0.204119,0.019793,1.020812));
  hpcpush(hpxyz(-0.201539,0.029674,1.020538));
  hpcpush(hpxyz(-0.208386,0.038452,1.022205));
  hpcpush(hpxyz(-0.200321,0.038333,1.020587));
  hpcpush(hpxyz(-0.199208,0.050730,1.020910));
  hpcpush(hpxyz(-0.192349,0.039456,1.019095));
  hpcpush(hpxyz(-0.149495,0.034031,1.011685));
  hpcpush(hpxyz(-0.148542,0.057225,1.012590));
  hpcpush(hpxyz(-0.089847,0.025157,1.004343));
  hpcpush(hpxyz(-0.048881,0.038151,1.001921));
  hpcpush(hpxyz(0.002416,0.130440,1.008474));
  hpcpush(hpxyz(-0.028450,0.202864,1.020766));
  hpcpush(hpxyz(-0.044701,0.209848,1.022758));
  hpcpush(hpxyz(-0.044823,0.216644,1.024180));
  hpcpush(hpxyz(-0.039848,0.217916,1.024244));
  hpcpush(hpxyz(-0.028602,0.216381,1.023542));
  hpcpush(hpxyz(-0.018604,0.210847,1.022156));
  hpcpush(hpxyz(-0.016122,0.210828,1.022110));
  hpcpush(hpxyz(-0.014922,0.217612,1.023512));
  hpcpush(hpxyz(-0.025023,0.231467,1.026744));
  hpcpush(hpxyz(-0.035205,0.241403,1.029327));
  hpcpush(hpxyz(-0.041644,0.248604,1.031280));
  hpcpush(hpxyz(-0.041754,0.254318,1.032677));
  hpcpush(hpxyz(-0.034211,0.258480,1.033432));
  hpcpush(hpxyz(-0.021481,0.253982,1.031973));
  hpcpush(hpxyz(-0.011317,0.243946,1.029387));
  hpcpush(hpxyz(0.001251,0.232708,1.026720));
  hpcpush(hpxyz(0.008728,0.224428,1.024912));
  hpcpush(hpxyz(0.009969,0.223059,1.024624));
  hpcpush(hpxyz(0.011289,0.238321,1.028068));
  hpcpush(hpxyz(0.003802,0.261058,1.033521));
  hpcpush(hpxyz(-0.005116,0.280126,1.038507));
  hpcpush(hpxyz(-0.007740,0.296717,1.043121));
  hpcpush(hpxyz(0.001286,0.290619,1.041375));
  hpcpush(hpxyz(0.012793,0.280166,1.038584));
  hpcpush(hpxyz(0.022854,0.264095,1.034538));
  hpcpush(hpxyz(0.028906,0.241303,1.029108));
  hpcpush(hpxyz(0.031328,0.234335,1.027567));
  hpcpush(hpxyz(0.032584,0.234354,1.027611));
  hpcpush(hpxyz(0.034119,0.252735,1.032007));
  hpcpush(hpxyz(0.032108,0.286405,1.040701));
  hpcpush(hpxyz(0.030917,0.292424,1.042338));
  hpcpush(hpxyz(0.039807,0.285067,1.040600));
  hpcpush(hpxyz(0.050896,0.264659,1.035681));
  hpcpush(hpxyz(0.058073,0.246178,1.031492));
  hpcpush(hpxyz(0.063739,0.221211,1.026156));
  hpcpush(hpxyz(0.083520,0.165812,1.017089));
  hpcpush(hpxyz(0.083035,0.146532,1.014084));
  hpcpush(hpxyz(0.075285,0.129928,1.011212));
  hpcpush(hpxyz(0.066581,0.122266,1.009645));
  hpcpush(hpxyz(0.055484,0.112174,1.007800));
  hpcpush(hpxyz(0.044365,0.087531,1.004803));
  hpcpush(hpxyz(0.034631,0.065680,1.002753));
  hpcpush(hpxyz(0.034631,0.065680,1.002753));
  hpcpush(hpxyz(0.026221,0.053634,1.001781));
  hpcpush(hpxyz(0.022616,0.041661,1.001123));
  hpcpush(hpxyz(0.021411,0.033306,1.000784));
  hpcpush(hpxyz(0.022591,0.024969,1.000567));
  hpcpush(hpxyz(0.026158,0.021402,1.000571));
  hpcpush(hpxyz(0.028538,0.020215,1.000611));
  hpcpush(hpxyz(0.034494,0.017842,1.000754));
  hpcpush(hpxyz(0.040463,0.020231,1.001023));
  hpcpush(hpxyz(0.042853,0.021427,1.001147));
  hpcpush(hpxyz(0.044051,0.022621,1.001225));
  hpcpush(hpxyz(0.051232,0.023829,1.001595));
  hpcpush(hpxyz(0.058426,0.023847,1.001989));
  hpcpush(hpxyz(0.064425,0.020282,1.002278));
  hpcpush(hpxyz(0.068025,0.015514,1.002431));
  hpcpush(hpxyz(0.071634,0.011939,1.002634));
  hpcpush(hpxyz(0.089791,0.002394,1.004026));
  hpcpush(hpxyz(0.089791,-0.002394,1.004026));
  hpcpush(hpxyz(0.071634,-0.011939,1.002634));
  hpcpush(hpxyz(0.068025,-0.015514,1.002431));
  hpcpush(hpxyz(0.064425,-0.020282,1.002278));
  hpcpush(hpxyz(0.058426,-0.023847,1.001989));
  hpcpush(hpxyz(0.051232,-0.023829,1.001595));
  hpcpush(hpxyz(0.044051,-0.022621,1.001225));
  hpcpush(hpxyz(0.042853,-0.021427,1.001147));
  hpcpush(hpxyz(0.040463,-0.020231,1.001023));
  hpcpush(hpxyz(0.034494,-0.017842,1.000754));
  hpcpush(hpxyz(0.028538,-0.020215,1.000611));
  hpcpush(hpxyz(0.026158,-0.021402,1.000571));
  hpcpush(hpxyz(0.022591,-0.024969,1.000567));
  hpcpush(hpxyz(0.021411,-0.033306,1.000784));
  hpcpush(hpxyz(0.022616,-0.041661,1.001123));
  hpcpush(hpxyz(0.026221,-0.053634,1.001781));
  hpcpush(hpxyz(0.034631,-0.065680,1.002753));
  hpcpush(hpxyz(0.034631,-0.065680,1.002753));
  hpcpush(hpxyz(0.044365,-0.087531,1.004803));
  hpcpush(hpxyz(0.055484,-0.112174,1.007800));
  hpcpush(hpxyz(0.066581,-0.122266,1.009645));
  hpcpush(hpxyz(0.075285,-0.129928,1.011212));
  hpcpush(hpxyz(0.083035,-0.146532,1.014084));
  hpcpush(hpxyz(0.083520,-0.165812,1.017089));
  hpcpush(hpxyz(0.063739,-0.221211,1.026156));
  hpcpush(hpxyz(0.058073,-0.246178,1.031492));
  hpcpush(hpxyz(0.050896,-0.264659,1.035681));
  hpcpush(hpxyz(0.039807,-0.285067,1.040600));
  hpcpush(hpxyz(0.030917,-0.292424,1.042338));
  hpcpush(hpxyz(0.032108,-0.286405,1.040701));
  hpcpush(hpxyz(0.034119,-0.252735,1.032007));
  hpcpush(hpxyz(0.032584,-0.234354,1.027611));
  hpcpush(hpxyz(0.031328,-0.234335,1.027567));
  hpcpush(hpxyz(0.028906,-0.241303,1.029108));
  hpcpush(hpxyz(0.022854,-0.264095,1.034538));
  hpcpush(hpxyz(0.012793,-0.280166,1.038584));
  hpcpush(hpxyz(0.001286,-0.290619,1.041375));
  hpcpush(hpxyz(-0.007740,-0.296717,1.043121));
  hpcpush(hpxyz(-0.005116,-0.280126,1.038507));
  hpcpush(hpxyz(0.003802,-0.261058,1.033521));
  hpcpush(hpxyz(0.011289,-0.238321,1.028068));
  hpcpush(hpxyz(0.009969,-0.223059,1.024624));
  hpcpush(hpxyz(0.008728,-0.224428,1.024912));
  hpcpush(hpxyz(0.001251,-0.232708,1.026720));
  hpcpush(hpxyz(-0.011317,-0.243946,1.029387));
  hpcpush(hpxyz(-0.021481,-0.253982,1.031973));
  hpcpush(hpxyz(-0.034211,-0.258480,1.033432));
  hpcpush(hpxyz(-0.041754,-0.254318,1.032677));
  hpcpush(hpxyz(-0.041644,-0.248604,1.031280));
  hpcpush(hpxyz(-0.035205,-0.241403,1.029327));
  hpcpush(hpxyz(-0.025023,-0.231467,1.026744));
  hpcpush(hpxyz(-0.014922,-0.217612,1.023512));
  hpcpush(hpxyz(-0.016122,-0.210828,1.022110));
  hpcpush(hpxyz(-0.018604,-0.210847,1.022156));
  hpcpush(hpxyz(-0.028602,-0.216381,1.023542));
  hpcpush(hpxyz(-0.039848,-0.217916,1.024244));
  hpcpush(hpxyz(-0.044823,-0.216644,1.024180));
  hpcpush(hpxyz(-0.044701,-0.209848,1.022758));
  hpcpush(hpxyz(-0.028450,-0.202864,1.020766));
  hpcpush(hpxyz(0.002416,-0.130440,1.008474));
  hpcpush(hpxyz(-0.048881,-0.038151,1.001921));
  hpcpush(hpxyz(-0.089847,-0.025157,1.004343));
  hpcpush(hpxyz(-0.148542,-0.057225,1.012590));
  hpcpush(hpxyz(-0.149495,-0.034031,1.011685));
  hpcpush(hpxyz(-0.192349,-0.039456,1.019095));
  hpcpush(hpxyz(-0.199208,-0.050730,1.020910));
  hpcpush(hpxyz(-0.200321,-0.038333,1.020587));
  hpcpush(hpxyz(-0.208386,-0.038452,1.022205));
  hpcpush(hpxyz(-0.201539,-0.029674,1.020538));
  hpcpush(hpxyz(-0.204119,-0.019793,1.020812));
  hpcpush(hpxyz(-0.192201,-0.028337,1.018697));
  hpcpush(hpxyz(-0.151960,-0.025529,1.011802));
  hpcpush(hpxyz(-0.153132,-0.000000,1.011657));
  hpcpush(hpxyz(-0.153132,0.000000,1.011657));

  bshape(shSlime, 33);
  for(int i=0; i<=84; i++)
    hpcpush(ddi(i, crossf * (0.7 + .2 * sin(i * M_PI * 2 / 84 * 9))) * C0);

  bshape(shTentHead, 33);
  hpcpush(hpxyz(-0.153133,-0.001215,1.011658));
  hpcpush(hpxyz(-0.153144,0.008508,1.011694));
  hpcpush(hpxyz(-0.148132,0.023070,1.011175));
  hpcpush(hpxyz(-0.142123,0.052233,1.011399));
  hpcpush(hpxyz(-0.146204,0.068228,1.012932));
  hpcpush(hpxyz(-0.177590,0.085095,1.019205));
  hpcpush(hpxyz(-0.224851,0.089187,1.028840));
  hpcpush(hpxyz(-0.262047,0.120747,1.040792));
  hpcpush(hpxyz(-0.255264,0.167153,1.045514));
  hpcpush(hpxyz(-0.229967,0.174723,1.040871));
  hpcpush(hpxyz(-0.184192,0.147855,1.027515));
  hpcpush(hpxyz(-0.138732,0.121544,1.016867));
  hpcpush(hpxyz(-0.108401,0.118145,1.012773));
  hpcpush(hpxyz(-0.102300,0.123003,1.012717));
  hpcpush(hpxyz(-0.091928,0.154439,1.016023));
  hpcpush(hpxyz(-0.090798,0.199010,1.023645));
  hpcpush(hpxyz(-0.056384,0.229293,1.027499));
  hpcpush(hpxyz(-0.011331,0.246774,1.030061));
  hpcpush(hpxyz(0.024027,0.255446,1.032390));
  hpcpush(hpxyz(0.073005,0.235380,1.029919));
  hpcpush(hpxyz(0.151935,0.187094,1.028634));
  hpcpush(hpxyz(0.146867,0.164292,1.023993));
  hpcpush(hpxyz(0.094648,0.162253,1.017489));
  hpcpush(hpxyz(0.044142,0.175341,1.016215));
  hpcpush(hpxyz(-0.003641,0.148054,1.010907));
  hpcpush(hpxyz(-0.002399,0.100774,1.005068));
  hpcpush(hpxyz(0.047859,0.071788,1.003715));
  hpcpush(hpxyz(0.098991,0.082090,1.008235));
  hpcpush(hpxyz(0.151038,0.106832,1.016969));
  hpcpush(hpxyz(0.199477,0.131730,1.028175));
  hpcpush(hpxyz(0.255339,0.129594,1.040189));
  hpcpush(hpxyz(0.264313,0.081720,1.037564));
  hpcpush(hpxyz(0.226731,0.063886,1.027370));
  hpcpush(hpxyz(0.168813,0.041592,1.015001));
  hpcpush(hpxyz(0.128034,0.026573,1.008513));
  hpcpush(hpxyz(0.108135,0.002403,1.005832));
  hpcpush(hpxyz(0.108135,-0.002403,1.005832));
  hpcpush(hpxyz(0.128034,-0.026573,1.008513));
  hpcpush(hpxyz(0.168813,-0.041592,1.015001));
  hpcpush(hpxyz(0.226731,-0.063886,1.027370));
  hpcpush(hpxyz(0.264313,-0.081720,1.037564));
  hpcpush(hpxyz(0.255339,-0.129594,1.040189));
  hpcpush(hpxyz(0.199477,-0.131730,1.028175));
  hpcpush(hpxyz(0.151038,-0.106832,1.016969));
  hpcpush(hpxyz(0.098991,-0.082090,1.008235));
  hpcpush(hpxyz(0.047859,-0.071788,1.003715));
  hpcpush(hpxyz(-0.002399,-0.100774,1.005068));
  hpcpush(hpxyz(-0.003641,-0.148054,1.010907));
  hpcpush(hpxyz(0.044142,-0.175341,1.016215));
  hpcpush(hpxyz(0.094648,-0.162253,1.017489));
  hpcpush(hpxyz(0.146867,-0.164292,1.023993));
  hpcpush(hpxyz(0.151935,-0.187094,1.028634));
  hpcpush(hpxyz(0.073005,-0.235380,1.029919));
  hpcpush(hpxyz(0.024027,-0.255446,1.032390));
  hpcpush(hpxyz(-0.011331,-0.246774,1.030061));
  hpcpush(hpxyz(-0.056384,-0.229293,1.027499));
  hpcpush(hpxyz(-0.090798,-0.199010,1.023645));
  hpcpush(hpxyz(-0.091928,-0.154439,1.016023));
  hpcpush(hpxyz(-0.102300,-0.123003,1.012717));
  hpcpush(hpxyz(-0.108401,-0.118145,1.012773));
  hpcpush(hpxyz(-0.138732,-0.121544,1.016867));
  hpcpush(hpxyz(-0.184192,-0.147855,1.027515));
  hpcpush(hpxyz(-0.229967,-0.174723,1.040871));
  hpcpush(hpxyz(-0.255264,-0.167153,1.045514));
  hpcpush(hpxyz(-0.262047,-0.120747,1.040792));
  hpcpush(hpxyz(-0.224851,-0.089187,1.028840));
  hpcpush(hpxyz(-0.177590,-0.085095,1.019205));
  hpcpush(hpxyz(-0.146204,-0.068228,1.012932));
  hpcpush(hpxyz(-0.142123,-0.052233,1.011399));
  hpcpush(hpxyz(-0.148132,-0.023070,1.011175));
  hpcpush(hpxyz(-0.153144,-0.008508,1.011694));
  hpcpush(hpxyz(-0.153133,0.001215,1.011658));
  hpcpush(hpxyz(-0.153133,-0.001215,1.011658));
  
  bshape(shWormHead, 33);
  hpcpush(hpxyz(-0.212131,-0.004962,1.022264));
  hpcpush(hpxyz(-0.213579,0.021110,1.022771));
  hpcpush(hpxyz(-0.208766,0.057162,1.023157));
  hpcpush(hpxyz(-0.193784,0.094408,1.022969));
  hpcpush(hpxyz(-0.171245,0.126572,1.022421));
  hpcpush(hpxyz(-0.149103,0.156559,1.023104));
  hpcpush(hpxyz(-0.121949,0.182923,1.023881));
  hpcpush(hpxyz(-0.099674,0.199349,1.024536));
  hpcpush(hpxyz(-0.073594,0.213299,1.025140));
  hpcpush(hpxyz(-0.039892,0.220654,1.024831));
  hpcpush(hpxyz(0.000000,0.225787,1.025173));
  hpcpush(hpxyz(0.051224,0.223636,1.025981));
  hpcpush(hpxyz(0.099986,0.207472,1.026178));
  hpcpush(hpxyz(0.126101,0.189776,1.025630));
  hpcpush(hpxyz(0.144643,0.172075,1.024954));
  hpcpush(hpxyz(0.260938,0.181352,1.049275));
  hpcpush(hpxyz(0.170506,0.139392,1.023964));
  hpcpush(hpxyz(0.241779,0.141997,1.038567));
  hpcpush(hpxyz(0.188983,0.108168,1.023433));
  hpcpush(hpxyz(0.239385,0.101327,1.033234));
  hpcpush(hpxyz(0.202657,0.079571,1.023426));
  hpcpush(hpxyz(0.238058,0.069276,1.030277));
  hpcpush(hpxyz(0.208736,0.055911,1.023082));
  hpcpush(hpxyz(0.237283,0.040175,1.028551));
  hpcpush(hpxyz(0.212303,0.028555,1.022687));
  hpcpush(hpxyz(0.235548,0.015035,1.027477));
  hpcpush(hpxyz(0.216200,0.001243,1.023105));
  hpcpush(hpxyz(0.216200,-0.001243,1.023105));
  hpcpush(hpxyz(0.235548,-0.015035,1.027477));
  hpcpush(hpxyz(0.212303,-0.028555,1.022687));
  hpcpush(hpxyz(0.237283,-0.040175,1.028551));
  hpcpush(hpxyz(0.208736,-0.055911,1.023082));
  hpcpush(hpxyz(0.238058,-0.069276,1.030277));
  hpcpush(hpxyz(0.202657,-0.079571,1.023426));
  hpcpush(hpxyz(0.239385,-0.101327,1.033234));
  hpcpush(hpxyz(0.188983,-0.108168,1.023433));
  hpcpush(hpxyz(0.241779,-0.141997,1.038567));
  hpcpush(hpxyz(0.170506,-0.139392,1.023964));
  hpcpush(hpxyz(0.260938,-0.181352,1.049275));
  hpcpush(hpxyz(0.144643,-0.172075,1.024954));
  hpcpush(hpxyz(0.126101,-0.189776,1.025630));
  hpcpush(hpxyz(0.099986,-0.207472,1.026178));
  hpcpush(hpxyz(0.051224,-0.223636,1.025981));
  hpcpush(hpxyz(0.000000,-0.225787,1.025173));
  hpcpush(hpxyz(-0.039892,-0.220654,1.024831));
  hpcpush(hpxyz(-0.073594,-0.213299,1.025140));
  hpcpush(hpxyz(-0.099674,-0.199349,1.024536));
  hpcpush(hpxyz(-0.121949,-0.182923,1.023881));
  hpcpush(hpxyz(-0.149103,-0.156559,1.023104));
  hpcpush(hpxyz(-0.171245,-0.126572,1.022421));
  hpcpush(hpxyz(-0.193784,-0.094408,1.022969));
  hpcpush(hpxyz(-0.208766,-0.057162,1.023157));
  hpcpush(hpxyz(-0.213579,-0.021110,1.022771));
  hpcpush(hpxyz(-0.212131,0.004962,1.022264));
  hpcpush(hpxyz(-0.212131,-0.004962,1.022264));
  
  // bodyparts

  bshape(shWaterElemental, 41);
  hpcpush(hpxyz(0.033277,-0.002494,1.000557));
  hpcpush(hpxyz(0.030600,0.009657,1.000515));
  hpcpush(hpxyz(0.028387,0.043359,1.001342));
  hpcpush(hpxyz(0.023906,0.062967,1.002266));
  hpcpush(hpxyz(0.019706,0.086354,1.003915));
  hpcpush(hpxyz(0.012812,0.106509,1.005738));
  hpcpush(hpxyz(0.005882,0.110737,1.006130));
  hpcpush(hpxyz(-0.011019,0.128245,1.008250));
  hpcpush(hpxyz(-0.022186,0.143031,1.010421));
  hpcpush(hpxyz(-0.030554,0.165535,1.014069));
  hpcpush(hpxyz(-0.031448,0.191850,1.018722));
  hpcpush(hpxyz(-0.019105,0.210887,1.022173));
  hpcpush(hpxyz(-0.011140,0.218374,1.023627));
  hpcpush(hpxyz(0.003294,0.228201,1.025713));
  hpcpush(hpxyz(0.022226,0.229526,1.026244));
  hpcpush(hpxyz(0.030754,0.226143,1.025713));
  hpcpush(hpxyz(0.045164,0.218293,1.024545));
  hpcpush(hpxyz(0.048550,0.213967,1.023787));
  hpcpush(hpxyz(0.049437,0.209816,1.022970));
  hpcpush(hpxyz(0.066512,0.191298,1.020303));
  hpcpush(hpxyz(0.088299,0.195587,1.022766));
  hpcpush(hpxyz(0.104559,0.227968,1.030971));
  hpcpush(hpxyz(0.106012,0.240682,1.034005));
  hpcpush(hpxyz(0.089373,0.265934,1.038609));
  hpcpush(hpxyz(0.046213,0.273931,1.037870));
  hpcpush(hpxyz(0.013854,0.270257,1.035968));
  hpcpush(hpxyz(-0.022699,0.280947,1.038964));
  hpcpush(hpxyz(-0.082207,0.292512,1.045142));
  hpcpush(hpxyz(-0.094232,0.286583,1.044514));
  hpcpush(hpxyz(-0.060514,0.273212,1.038416));
  hpcpush(hpxyz(-0.030455,0.255305,1.032525));
  hpcpush(hpxyz(-0.028453,0.245093,1.029990));
  hpcpush(hpxyz(-0.035130,0.238686,1.028691));
  hpcpush(hpxyz(-0.050479,0.236064,1.028725));
  hpcpush(hpxyz(-0.095235,0.239928,1.032780));
  hpcpush(hpxyz(-0.156131,0.242848,1.040842));
  hpcpush(hpxyz(-0.180731,0.231002,1.042126));
  hpcpush(hpxyz(-0.161568,0.228039,1.038319));
  hpcpush(hpxyz(-0.140105,0.226302,1.034815));
  hpcpush(hpxyz(-0.114110,0.211717,1.028516));
  hpcpush(hpxyz(-0.104006,0.203643,1.025811));
  hpcpush(hpxyz(-0.096764,0.190676,1.022605));
  hpcpush(hpxyz(-0.097207,0.178784,1.020496));
  hpcpush(hpxyz(-0.104028,0.166435,1.019079));
  hpcpush(hpxyz(-0.109337,0.160521,1.018686));
  hpcpush(hpxyz(-0.119778,0.153916,1.018841));
  hpcpush(hpxyz(-0.145551,0.154306,1.022250));
  hpcpush(hpxyz(-0.196422,0.144903,1.029358));
  hpcpush(hpxyz(-0.238648,0.130576,1.036341));
  hpcpush(hpxyz(-0.251825,0.121707,1.038378));
  hpcpush(hpxyz(-0.243461,0.108932,1.034959));
  hpcpush(hpxyz(-0.227615,0.116160,1.032135));
  hpcpush(hpxyz(-0.199823,0.119359,1.026731));
  hpcpush(hpxyz(-0.155889,0.119514,1.019110));
  hpcpush(hpxyz(-0.126863,0.107638,1.013746));
  hpcpush(hpxyz(-0.121879,0.082303,1.010756));
  hpcpush(hpxyz(-0.130612,0.062191,1.010409));
  hpcpush(hpxyz(-0.149053,0.051540,1.012360));
  hpcpush(hpxyz(-0.176729,0.044071,1.016452));
  hpcpush(hpxyz(-0.213072,0.040955,1.023268));
  hpcpush(hpxyz(-0.257325,0.030738,1.033035));
  hpcpush(hpxyz(-0.282810,0.025058,1.039524));
  hpcpush(hpxyz(-0.296088,0.010521,1.042966));
  hpcpush(hpxyz(-0.296088,-0.010521,1.042966));
  hpcpush(hpxyz(-0.282810,-0.025058,1.039524));
  hpcpush(hpxyz(-0.257325,-0.030738,1.033035));
  hpcpush(hpxyz(-0.213072,-0.040955,1.023268));
  hpcpush(hpxyz(-0.176729,-0.044071,1.016452));
  hpcpush(hpxyz(-0.149053,-0.051540,1.012360));
  hpcpush(hpxyz(-0.130612,-0.062191,1.010409));
  hpcpush(hpxyz(-0.121879,-0.082303,1.010756));
  hpcpush(hpxyz(-0.126863,-0.107638,1.013746));
  hpcpush(hpxyz(-0.155889,-0.119514,1.019110));
  hpcpush(hpxyz(-0.199823,-0.119359,1.026731));
  hpcpush(hpxyz(-0.227615,-0.116160,1.032135));
  hpcpush(hpxyz(-0.243461,-0.108932,1.034959));
  hpcpush(hpxyz(-0.251825,-0.121707,1.038378));
  hpcpush(hpxyz(-0.238648,-0.130576,1.036341));
  hpcpush(hpxyz(-0.196422,-0.144903,1.029358));
  hpcpush(hpxyz(-0.145551,-0.154306,1.022250));
  hpcpush(hpxyz(-0.119778,-0.153916,1.018841));
  hpcpush(hpxyz(-0.109337,-0.160521,1.018686));
  hpcpush(hpxyz(-0.104028,-0.166435,1.019079));
  hpcpush(hpxyz(-0.097207,-0.178784,1.020496));
  hpcpush(hpxyz(-0.096764,-0.190676,1.022605));
  hpcpush(hpxyz(-0.104006,-0.203643,1.025811));
  hpcpush(hpxyz(-0.114110,-0.211717,1.028516));
  hpcpush(hpxyz(-0.140105,-0.226302,1.034815));
  hpcpush(hpxyz(-0.161568,-0.228039,1.038319));
  hpcpush(hpxyz(-0.180731,-0.231002,1.042126));
  hpcpush(hpxyz(-0.156131,-0.242848,1.040842));
  hpcpush(hpxyz(-0.095235,-0.239928,1.032780));
  hpcpush(hpxyz(-0.050479,-0.236064,1.028725));
  hpcpush(hpxyz(-0.035130,-0.238686,1.028691));
  hpcpush(hpxyz(-0.028453,-0.245093,1.029990));
  hpcpush(hpxyz(-0.030455,-0.255305,1.032525));
  hpcpush(hpxyz(-0.060514,-0.273212,1.038416));
  hpcpush(hpxyz(-0.094232,-0.286583,1.044514));
  hpcpush(hpxyz(-0.082207,-0.292512,1.045142));
  hpcpush(hpxyz(-0.022699,-0.280947,1.038964));
  hpcpush(hpxyz(0.013854,-0.270257,1.035968));
  hpcpush(hpxyz(0.046213,-0.273931,1.037870));
  hpcpush(hpxyz(0.089373,-0.265934,1.038609));
  hpcpush(hpxyz(0.106012,-0.240682,1.034005));
  hpcpush(hpxyz(0.104559,-0.227968,1.030971));
  hpcpush(hpxyz(0.088299,-0.195587,1.022766));
  hpcpush(hpxyz(0.066512,-0.191298,1.020303));
  hpcpush(hpxyz(0.049437,-0.209816,1.022970));
  hpcpush(hpxyz(0.048550,-0.213967,1.023787));
  hpcpush(hpxyz(0.045164,-0.218293,1.024545));
  hpcpush(hpxyz(0.030754,-0.226143,1.025713));
  hpcpush(hpxyz(0.022226,-0.229526,1.026244));
  hpcpush(hpxyz(0.003294,-0.228201,1.025713));
  hpcpush(hpxyz(-0.011140,-0.218374,1.023627));
  hpcpush(hpxyz(-0.019105,-0.210887,1.022173));
  hpcpush(hpxyz(-0.031448,-0.191850,1.018722));
  hpcpush(hpxyz(-0.030554,-0.165535,1.014069));
  hpcpush(hpxyz(-0.022186,-0.143031,1.010421));
  hpcpush(hpxyz(-0.011019,-0.128245,1.008250));
  hpcpush(hpxyz(0.005882,-0.110737,1.006130));
  hpcpush(hpxyz(0.012812,-0.106509,1.005738));
  hpcpush(hpxyz(0.019706,-0.086354,1.003915));
  hpcpush(hpxyz(0.023906,-0.062967,1.002266));
  hpcpush(hpxyz(0.028387,-0.043359,1.001342));
  hpcpush(hpxyz(0.030600,-0.009657,1.000515));
  hpcpush(hpxyz(0.033277,0.002494,1.000557));
  hpcpush(hpxyz(0.033277,-0.002494,1.000557));
  
  bshape(shMouse, 42);
  hpcpush(hpxyz(-0.180666,0.000000,1.016189));
  hpcpush(hpxyz(-0.063349,-0.003586,1.002011));
  hpcpush(hpxyz(-0.052534,-0.013134,1.001465));
  hpcpush(hpxyz(-0.040561,-0.021474,1.001053));
  hpcpush(hpxyz(-0.020260,-0.026219,1.000549));
  hpcpush(hpxyz(-0.001191,-0.028595,1.000409));
  hpcpush(hpxyz(0.025033,-0.026225,1.000657));
  hpcpush(hpxyz(0.045342,-0.015512,1.001148));
  hpcpush(hpxyz(0.056152,-0.020310,1.001781));
  hpcpush(hpxyz(0.077865,-0.014375,1.003130));
  hpcpush(hpxyz(0.094893,-0.002402,1.004495));
  hpcpush(hpxyz(0.101018,-0.000000,1.005089));
  hpcpush(hpxyz(0.101018,0.000000,1.005089));
  hpcpush(hpxyz(0.094893,0.002402,1.004495));
  hpcpush(hpxyz(0.077865,0.014375,1.003130));
  hpcpush(hpxyz(0.056152,0.020310,1.001781));
  hpcpush(hpxyz(0.045342,0.015512,1.001148));
  hpcpush(hpxyz(0.025033,0.026225,1.000657));
  hpcpush(hpxyz(-0.001191,0.028595,1.000409));
  hpcpush(hpxyz(-0.020260,0.026219,1.000549));
  hpcpush(hpxyz(-0.040561,0.021474,1.001053));
  hpcpush(hpxyz(-0.052534,0.013134,1.001465));
  hpcpush(hpxyz(-0.063349,0.003586,1.002011));
  hpcpush(hpxyz(-0.180666,-0.000000,1.016189));
  hpcpush(hpxyz(-0.180666,0.000000,1.016189));

  bshape(shMouseLegs, 41);
  hpcpush(hpxyz(-0.033372,-0.005959,1.000574));
  hpcpush(hpxyz(-0.047793,-0.037040,1.001826));
  hpcpush(hpxyz(-0.003572,-0.011907,1.000077));
  hpcpush(hpxyz(0.033422,-0.039390,1.001333));
  hpcpush(hpxyz(0.026209,-0.004765,1.000355));
  hpcpush(hpxyz(0.026209,0.004765,1.000355));
  hpcpush(hpxyz(0.033422,0.039390,1.001333));
  hpcpush(hpxyz(-0.003572,0.011907,1.000077));
  hpcpush(hpxyz(-0.047793,0.037040,1.001826));
  hpcpush(hpxyz(-0.033372,0.005959,1.000574));
  hpcpush(hpxyz(-0.033372,-0.005959,1.000574));

  bshape(shMouseEyes, 43);
  hpcpush(hpxyz(0.073016,-0.011970,1.002734));
  hpcpush(hpxyz(0.065770,-0.013154,1.002247));
  hpcpush(hpxyz(0.065764,-0.008370,1.002195));
  hpcpush(hpxyz(0.071797,-0.003590,1.002581));
  hpcpush(hpxyz(0.071797,0.003590,1.002581));
  hpcpush(hpxyz(0.065764,0.008370,1.002195));
  hpcpush(hpxyz(0.065770,0.013154,1.002247));
  hpcpush(hpxyz(0.073016,0.011970,1.002734));
  hpcpush(hpxyz(0.073016,-0.011970,1.002734));

  bshape(shPBody, 41);
  hpcpush(hpxyz(-0.127943,0.000000,1.008151));
  hpcpush(hpxyz(-0.121732,0.008437,1.007417));
  hpcpush(hpxyz(-0.120752,0.047093,1.008364));
  hpcpush(hpxyz(-0.114785,0.065246,1.008679));
  hpcpush(hpxyz(-0.096531,0.082051,1.007993));
  hpcpush(hpxyz(-0.079664,0.100183,1.008158));
  hpcpush(hpxyz(-0.087015,0.156872,1.015963));
  hpcpush(hpxyz(-0.090442,0.188317,1.021588));
  hpcpush(hpxyz(-0.085023,0.215058,1.026391));
  hpcpush(hpxyz(-0.078296,0.241201,1.031653));
  hpcpush(hpxyz(-0.070101,0.263835,1.036592));
  hpcpush(hpxyz(-0.062700,0.273833,1.038709));
  hpcpush(hpxyz(-0.053763,0.276497,1.038913));
  hpcpush(hpxyz(-0.030638,0.274461,1.037433));
  hpcpush(hpxyz(-0.015319,0.275737,1.037432));
  hpcpush(hpxyz(0.001277,0.277150,1.037696));
  hpcpush(hpxyz(0.020384,0.271369,1.036367));
  hpcpush(hpxyz(0.038101,0.262896,1.034681));
  hpcpush(hpxyz(0.045596,0.255842,1.033215));
  hpcpush(hpxyz(0.062388,0.263558,1.036029));
  hpcpush(hpxyz(0.085371,0.258660,1.036433));
  hpcpush(hpxyz(0.084235,0.228817,1.029297));
  hpcpush(hpxyz(0.071073,0.213220,1.024946));
  hpcpush(hpxyz(0.048603,0.218088,1.024658));
  hpcpush(hpxyz(0.042541,0.228972,1.026761));
  hpcpush(hpxyz(0.028749,0.228742,1.026231));
  hpcpush(hpxyz(0.011222,0.224439,1.024938));
  hpcpush(hpxyz(-0.012498,0.229969,1.026178));
  hpcpush(hpxyz(-0.026261,0.230095,1.026466));
  hpcpush(hpxyz(-0.024880,0.217700,1.023725));
  hpcpush(hpxyz(-0.022225,0.198787,1.019809));
  hpcpush(hpxyz(-0.020850,0.180288,1.016336));
  hpcpush(hpxyz(-0.021870,0.150662,1.011522));
  hpcpush(hpxyz(-0.022997,0.136774,1.009572));
  hpcpush(hpxyz(-0.004819,0.120485,1.007244));
  hpcpush(hpxyz(0.007204,0.104455,1.005466));
  hpcpush(hpxyz(0.016748,0.083741,1.003640));
  hpcpush(hpxyz(0.026225,0.054833,1.001846));
  hpcpush(hpxyz(0.033323,0.030943,1.001033));
  hpcpush(hpxyz(0.034483,0.001189,1.000595));
  hpcpush(hpxyz(0.034483,-0.001189,1.000595));
  hpcpush(hpxyz(0.034483,0.001189,1.000595));
  hpcpush(hpxyz(0.034483,-0.001189,1.000595));
  hpcpush(hpxyz(0.033323,-0.030943,1.001033));
  hpcpush(hpxyz(0.026225,-0.054833,1.001846));
  hpcpush(hpxyz(0.016748,-0.083741,1.003640));
  hpcpush(hpxyz(0.007204,-0.104455,1.005466));
  hpcpush(hpxyz(-0.004819,-0.120485,1.007244));
  hpcpush(hpxyz(-0.022997,-0.136774,1.009572));
  hpcpush(hpxyz(-0.021870,-0.150662,1.011522));
  hpcpush(hpxyz(-0.020850,-0.180288,1.016336));
  hpcpush(hpxyz(-0.022225,-0.198787,1.019809));
  hpcpush(hpxyz(-0.024880,-0.217700,1.023725));
  hpcpush(hpxyz(-0.026261,-0.230095,1.026466));
  hpcpush(hpxyz(-0.012498,-0.229969,1.026178));
  hpcpush(hpxyz(0.011222,-0.224439,1.024938));
  hpcpush(hpxyz(0.028749,-0.228742,1.026231));
  hpcpush(hpxyz(0.042541,-0.228972,1.026761));
  hpcpush(hpxyz(0.048603,-0.218088,1.024658));
  hpcpush(hpxyz(0.071073,-0.213220,1.024946));
  hpcpush(hpxyz(0.084235,-0.228817,1.029297));
  hpcpush(hpxyz(0.085371,-0.258660,1.036433));
  hpcpush(hpxyz(0.062388,-0.263558,1.036029));
  hpcpush(hpxyz(0.045596,-0.255842,1.033215));
  hpcpush(hpxyz(0.038101,-0.262896,1.034681));
  hpcpush(hpxyz(0.020384,-0.271369,1.036367));
  hpcpush(hpxyz(0.001277,-0.277150,1.037696));
  hpcpush(hpxyz(-0.015319,-0.275737,1.037432));
  hpcpush(hpxyz(-0.030638,-0.274461,1.037433));
  hpcpush(hpxyz(-0.053763,-0.276497,1.038913));
  hpcpush(hpxyz(-0.062700,-0.273833,1.038709));
  hpcpush(hpxyz(-0.070101,-0.263835,1.036592));
  hpcpush(hpxyz(-0.078296,-0.241201,1.031653));
  hpcpush(hpxyz(-0.085023,-0.215058,1.026391));
  hpcpush(hpxyz(-0.090442,-0.188317,1.021588));
  hpcpush(hpxyz(-0.087015,-0.156872,1.015963));
  hpcpush(hpxyz(-0.079664,-0.100183,1.008158));
  hpcpush(hpxyz(-0.096531,-0.082051,1.007993));
  hpcpush(hpxyz(-0.114785,-0.065246,1.008679));
  hpcpush(hpxyz(-0.120752,-0.047093,1.008364));
  hpcpush(hpxyz(-0.121732,-0.008437,1.007417));
  hpcpush(hpxyz(-0.127943,-0.000000,1.008151));
  hpcpush(hpxyz(-0.127943,0.000000,1.008151));

  bshape(shYeti, 41);
  hpcpush(hpxyz(-0.146785,0.001213,1.010716));
  hpcpush(hpxyz(-0.119261,0.012047,1.007158));
  hpcpush(hpxyz(-0.134264,0.022982,1.009235));
  hpcpush(hpxyz(-0.116850,0.026502,1.007153));
  hpcpush(hpxyz(-0.128124,0.037470,1.008871));
  hpcpush(hpxyz(-0.114489,0.040975,1.007366));
  hpcpush(hpxyz(-0.134526,0.049690,1.010231));
  hpcpush(hpxyz(-0.108483,0.056652,1.007461));
  hpcpush(hpxyz(-0.124869,0.072739,1.010388));
  hpcpush(hpxyz(-0.100038,0.069906,1.007420));
  hpcpush(hpxyz(-0.116319,0.082393,1.010108));
  hpcpush(hpxyz(-0.086776,0.085571,1.007399));
  hpcpush(hpxyz(-0.105410,0.095717,1.010086));
  hpcpush(hpxyz(-0.078461,0.101396,1.008185));
  hpcpush(hpxyz(-0.084756,0.111394,1.009749));
  hpcpush(hpxyz(-0.078850,0.123734,1.010706));
  hpcpush(hpxyz(-0.094972,0.127846,1.012603));
  hpcpush(hpxyz(-0.081624,0.138883,1.012892));
  hpcpush(hpxyz(-0.102733,0.139423,1.014886));
  hpcpush(hpxyz(-0.083221,0.154204,1.015236));
  hpcpush(hpxyz(-0.115566,0.148760,1.017588));
  hpcpush(hpxyz(-0.081064,0.167041,1.017091));
  hpcpush(hpxyz(-0.093630,0.170012,1.018661));
  hpcpush(hpxyz(-0.081530,0.184060,1.020061));
  hpcpush(hpxyz(-0.104404,0.190164,1.023261));
  hpcpush(hpxyz(-0.078114,0.195904,1.021998));
  hpcpush(hpxyz(-0.088688,0.211101,1.025880));
  hpcpush(hpxyz(-0.074815,0.211977,1.024954));
  hpcpush(hpxyz(-0.081589,0.225940,1.028448));
  hpcpush(hpxyz(-0.067678,0.226847,1.027638));
  hpcpush(hpxyz(-0.091419,0.248863,1.034548));
  hpcpush(hpxyz(-0.059306,0.244796,1.031234));
  hpcpush(hpxyz(-0.060896,0.256271,1.034110));
  hpcpush(hpxyz(-0.051997,0.257446,1.033916));
  hpcpush(hpxyz(-0.058919,0.276663,1.039237));
  hpcpush(hpxyz(-0.042072,0.270280,1.036736));
  hpcpush(hpxyz(-0.042449,0.288141,1.041550));
  hpcpush(hpxyz(-0.020355,0.268437,1.035603));
  hpcpush(hpxyz(-0.007716,0.290637,1.041407));
  hpcpush(hpxyz(0.001272,0.268323,1.035374));
  hpcpush(hpxyz(0.017995,0.289206,1.041136));
  hpcpush(hpxyz(0.021598,0.265534,1.034879));
  hpcpush(hpxyz(0.038374,0.277573,1.038518));
  hpcpush(hpxyz(0.037997,0.257112,1.033223));
  hpcpush(hpxyz(0.048725,0.280810,1.039821));
  hpcpush(hpxyz(0.050653,0.254534,1.033128));
  hpcpush(hpxyz(0.069009,0.269645,1.038013));
  hpcpush(hpxyz(0.085977,0.273328,1.040241));
  hpcpush(hpxyz(0.075050,0.258222,1.035525));
  hpcpush(hpxyz(0.097049,0.259223,1.037601));
  hpcpush(hpxyz(0.103016,0.248003,1.035431));
  hpcpush(hpxyz(0.079575,0.241251,1.031763));
  hpcpush(hpxyz(0.091636,0.222186,1.028476));
  hpcpush(hpxyz(0.070376,0.232494,1.029080));
  hpcpush(hpxyz(0.072102,0.205119,1.023363));
  hpcpush(hpxyz(0.060388,0.237778,1.029653));
  hpcpush(hpxyz(0.058115,0.195365,1.020561));
  hpcpush(hpxyz(0.045217,0.237388,1.028784));
  hpcpush(hpxyz(0.037611,0.234439,1.027802));
  hpcpush(hpxyz(0.034796,0.213746,1.023180));
  hpcpush(hpxyz(0.023715,0.225917,1.025476));
  hpcpush(hpxyz(0.027226,0.204191,1.020997));
  hpcpush(hpxyz(0.012420,0.214873,1.022900));
  hpcpush(hpxyz(0.020917,0.189485,1.018009));
  hpcpush(hpxyz(0.003700,0.197357,1.019296));
  hpcpush(hpxyz(0.009817,0.182844,1.016626));
  hpcpush(hpxyz(-0.011065,0.188106,1.017598));
  hpcpush(hpxyz(0.003663,0.168520,1.014107));
  hpcpush(hpxyz(-0.023305,0.180308,1.016393));
  hpcpush(hpxyz(-0.004879,0.164654,1.013477));
  hpcpush(hpxyz(-0.034247,0.170012,1.014927));
  hpcpush(hpxyz(-0.004861,0.153136,1.011669));
  hpcpush(hpxyz(-0.027964,0.151980,1.011870));
  hpcpush(hpxyz(-0.003639,0.146787,1.010722));
  hpcpush(hpxyz(-0.015710,0.131722,1.008760));
  hpcpush(hpxyz(0.010889,0.136717,1.009361));
  hpcpush(hpxyz(-0.003615,0.120484,1.007239));
  hpcpush(hpxyz(0.027708,0.116858,1.007186));
  hpcpush(hpxyz(0.007202,0.103229,1.005340));
  hpcpush(hpxyz(0.034761,0.089899,1.004634));
  hpcpush(hpxyz(0.015548,0.082525,1.003520));
  hpcpush(hpxyz(0.044270,0.074183,1.003725));
  hpcpush(hpxyz(0.021490,0.069245,1.002625));
  hpcpush(hpxyz(0.051357,0.054940,1.002824));
  hpcpush(hpxyz(0.027405,0.050043,1.001626));
  hpcpush(hpxyz(0.053662,0.034582,1.002036));
  hpcpush(hpxyz(0.034521,0.033331,1.001151));
  hpcpush(hpxyz(0.060848,0.029827,1.002293));
  hpcpush(hpxyz(0.041653,0.017851,1.001026));
  hpcpush(hpxyz(0.065617,0.015510,1.002271));
  hpcpush(hpxyz(0.051204,0.004763,1.001321));
  hpcpush(hpxyz(0.051204,-0.004763,1.001321));
  hpcpush(hpxyz(0.065617,-0.015510,1.002271));
  hpcpush(hpxyz(0.041653,-0.017851,1.001026));
  hpcpush(hpxyz(0.060848,-0.029827,1.002293));
  hpcpush(hpxyz(0.034521,-0.033331,1.001151));
  hpcpush(hpxyz(0.053662,-0.034582,1.002036));
  hpcpush(hpxyz(0.027405,-0.050043,1.001626));
  hpcpush(hpxyz(0.051357,-0.054940,1.002824));
  hpcpush(hpxyz(0.021490,-0.069245,1.002625));
  hpcpush(hpxyz(0.044270,-0.074183,1.003725));
  hpcpush(hpxyz(0.015548,-0.082525,1.003520));
  hpcpush(hpxyz(0.034761,-0.089899,1.004634));
  hpcpush(hpxyz(0.007202,-0.103229,1.005340));
  hpcpush(hpxyz(0.027708,-0.116858,1.007186));
  hpcpush(hpxyz(-0.003615,-0.120484,1.007239));
  hpcpush(hpxyz(0.010889,-0.136717,1.009361));
  hpcpush(hpxyz(-0.015710,-0.131722,1.008760));
  hpcpush(hpxyz(-0.003639,-0.146787,1.010722));
  hpcpush(hpxyz(-0.027964,-0.151980,1.011870));
  hpcpush(hpxyz(-0.004861,-0.153136,1.011669));
  hpcpush(hpxyz(-0.034247,-0.170012,1.014927));
  hpcpush(hpxyz(-0.004879,-0.164654,1.013477));
  hpcpush(hpxyz(-0.023305,-0.180308,1.016393));
  hpcpush(hpxyz(0.003663,-0.168520,1.014107));
  hpcpush(hpxyz(-0.011065,-0.188106,1.017598));
  hpcpush(hpxyz(0.009817,-0.182844,1.016626));
  hpcpush(hpxyz(0.003700,-0.197357,1.019296));
  hpcpush(hpxyz(0.020917,-0.189485,1.018009));
  hpcpush(hpxyz(0.012420,-0.214873,1.022900));
  hpcpush(hpxyz(0.027226,-0.204191,1.020997));
  hpcpush(hpxyz(0.023715,-0.225917,1.025476));
  hpcpush(hpxyz(0.034796,-0.213746,1.023180));
  hpcpush(hpxyz(0.037611,-0.234439,1.027802));
  hpcpush(hpxyz(0.045217,-0.237388,1.028784));
  hpcpush(hpxyz(0.058115,-0.195365,1.020561));
  hpcpush(hpxyz(0.060388,-0.237778,1.029653));
  hpcpush(hpxyz(0.072102,-0.205119,1.023363));
  hpcpush(hpxyz(0.070376,-0.232494,1.029080));
  hpcpush(hpxyz(0.091636,-0.222186,1.028476));
  hpcpush(hpxyz(0.079575,-0.241251,1.031763));
  hpcpush(hpxyz(0.103016,-0.248003,1.035431));
  hpcpush(hpxyz(0.097049,-0.259223,1.037601));
  hpcpush(hpxyz(0.075050,-0.258222,1.035525));
  hpcpush(hpxyz(0.085977,-0.273328,1.040241));
  hpcpush(hpxyz(0.069009,-0.269645,1.038013));
  hpcpush(hpxyz(0.050653,-0.254534,1.033128));
  hpcpush(hpxyz(0.048725,-0.280810,1.039821));
  hpcpush(hpxyz(0.037997,-0.257112,1.033223));
  hpcpush(hpxyz(0.038374,-0.277573,1.038518));
  hpcpush(hpxyz(0.021598,-0.265534,1.034879));
  hpcpush(hpxyz(0.017995,-0.289206,1.041136));
  hpcpush(hpxyz(0.001272,-0.268323,1.035374));
  hpcpush(hpxyz(-0.007716,-0.290637,1.041407));
  hpcpush(hpxyz(-0.020355,-0.268437,1.035603));
  hpcpush(hpxyz(-0.042449,-0.288141,1.041550));
  hpcpush(hpxyz(-0.042072,-0.270280,1.036736));
  hpcpush(hpxyz(-0.058919,-0.276663,1.039237));
  hpcpush(hpxyz(-0.051997,-0.257446,1.033916));
  hpcpush(hpxyz(-0.060896,-0.256271,1.034110));
  hpcpush(hpxyz(-0.059306,-0.244796,1.031234));
  hpcpush(hpxyz(-0.091419,-0.248863,1.034548));
  hpcpush(hpxyz(-0.067678,-0.226847,1.027638));
  hpcpush(hpxyz(-0.081589,-0.225940,1.028448));
  hpcpush(hpxyz(-0.074815,-0.211977,1.024954));
  hpcpush(hpxyz(-0.088688,-0.211101,1.025880));
  hpcpush(hpxyz(-0.078114,-0.195904,1.021998));
  hpcpush(hpxyz(-0.104404,-0.190164,1.023261));
  hpcpush(hpxyz(-0.081530,-0.184060,1.020061));
  hpcpush(hpxyz(-0.093630,-0.170012,1.018661));
  hpcpush(hpxyz(-0.081064,-0.167041,1.017091));
  hpcpush(hpxyz(-0.115566,-0.148760,1.017588));
  hpcpush(hpxyz(-0.083221,-0.154204,1.015236));
  hpcpush(hpxyz(-0.102733,-0.139423,1.014886));
  hpcpush(hpxyz(-0.081624,-0.138883,1.012892));
  hpcpush(hpxyz(-0.094972,-0.127846,1.012603));
  hpcpush(hpxyz(-0.078850,-0.123734,1.010706));
  hpcpush(hpxyz(-0.084756,-0.111394,1.009749));
  hpcpush(hpxyz(-0.078461,-0.101396,1.008185));
  hpcpush(hpxyz(-0.105410,-0.095717,1.010086));
  hpcpush(hpxyz(-0.086776,-0.085571,1.007399));
  hpcpush(hpxyz(-0.116319,-0.082393,1.010108));
  hpcpush(hpxyz(-0.100038,-0.069906,1.007420));
  hpcpush(hpxyz(-0.124869,-0.072739,1.010388));
  hpcpush(hpxyz(-0.108483,-0.056652,1.007461));
  hpcpush(hpxyz(-0.134526,-0.049690,1.010231));
  hpcpush(hpxyz(-0.114489,-0.040975,1.007366));
  hpcpush(hpxyz(-0.128124,-0.037470,1.008871));
  hpcpush(hpxyz(-0.116850,-0.026502,1.007153));
  hpcpush(hpxyz(-0.134264,-0.022982,1.009235));
  hpcpush(hpxyz(-0.119261,-0.012047,1.007158));
  hpcpush(hpxyz(-0.146785,-0.001213,1.010716));
  hpcpush(hpxyz(-0.146785,0.001213,1.010716));
  
  bshape(shKnife, 42);
  hpcpush(hpxyz(-0.086373,0.015595,1.003844));
  hpcpush(hpxyz(-0.063364,0.015542,1.002126));
  hpcpush(hpxyz(-0.061008,0.033495,1.002419));
  hpcpush(hpxyz(-0.041796,0.037020,1.001557));
  hpcpush(hpxyz(-0.038168,0.021470,1.000958));
  hpcpush(hpxyz(0.085206,0.028802,1.004037));
  hpcpush(hpxyz(0.158634,0.003661,1.012511));
  hpcpush(hpxyz(0.158634,-0.003661,1.012511));
  hpcpush(hpxyz(0.085206,-0.028802,1.004037));
  hpcpush(hpxyz(-0.038168,-0.021470,1.000958));
  hpcpush(hpxyz(-0.041796,-0.037020,1.001557));
  hpcpush(hpxyz(-0.061008,-0.033495,1.002419));
  hpcpush(hpxyz(-0.063364,-0.015542,1.002126));
  hpcpush(hpxyz(-0.086373,-0.015595,1.003844));
  hpcpush(hpxyz(-0.086373,0.015595,1.003844));
  
  bshape(shTongue, 42);
  hpcpush(hpxyz(-0.036955,0.001192,1.000683));
  hpcpush(hpxyz(-0.036957,-0.007153,1.000708));
  hpcpush(hpxyz(-0.048967,-0.028663,1.001608));
  hpcpush(hpxyz(-0.061094,-0.050313,1.003127));
  hpcpush(hpxyz(-0.064717,-0.050336,1.003355));
  hpcpush(hpxyz(-0.049075,-0.055059,1.002716));
  hpcpush(hpxyz(-0.022708,-0.058563,1.001971));
  hpcpush(hpxyz(0.011941,-0.053734,1.001514));
  hpcpush(hpxyz(0.029846,-0.044173,1.001420));
  hpcpush(hpxyz(0.046581,-0.033443,1.001643));
  hpcpush(hpxyz(0.062159,-0.015540,1.002050));
  hpcpush(hpxyz(0.066968,-0.005979,1.002258));
  hpcpush(hpxyz(0.066968,0.005979,1.002258));
  hpcpush(hpxyz(0.062159,0.015540,1.002050));
  hpcpush(hpxyz(0.046581,0.033443,1.001643));
  hpcpush(hpxyz(0.029846,0.044173,1.001420));
  hpcpush(hpxyz(0.011941,0.053734,1.001514));
  hpcpush(hpxyz(-0.022708,0.058563,1.001971));
  hpcpush(hpxyz(-0.049075,0.055059,1.002716));
  hpcpush(hpxyz(-0.064717,0.050336,1.003355));
  hpcpush(hpxyz(-0.061094,0.050313,1.003127));
  hpcpush(hpxyz(-0.048967,0.028663,1.001608));
  hpcpush(hpxyz(-0.036957,0.007153,1.000708));
  hpcpush(hpxyz(-0.036955,-0.001192,1.000683));
  hpcpush(hpxyz(-0.036955,0.001192,1.000683));  
  
  bshape(shFlailMissile, 42);
  hpcpush(hpxyz(-0.064558,0.008369,1.002117));
  hpcpush(hpxyz(-0.038156,0.011924,1.000799));
  hpcpush(hpxyz(-0.059223,0.027026,1.002117));
  hpcpush(hpxyz(-0.032946,0.022641,1.000799));
  hpcpush(hpxyz(-0.048626,0.043281,1.002117));
  hpcpush(hpxyz(-0.024809,0.031346,1.000799));
  hpcpush(hpxyz(-0.033708,0.055691,1.002117));
  hpcpush(hpxyz(-0.014468,0.037266,1.000799));
  hpcpush(hpxyz(-0.015796,0.063153,1.002117));
  hpcpush(hpxyz(-0.002840,0.039875,1.000799));
  hpcpush(hpxyz(0.003521,0.065003,1.002117));
  hpcpush(hpxyz(0.009039,0.038940,1.000799));
  hpcpush(hpxyz(0.022524,0.061077,1.002117));
  hpcpush(hpxyz(0.020115,0.034546,1.000799));
  hpcpush(hpxyz(0.039526,0.051724,1.002117));
  hpcpush(hpxyz(0.029404,0.027082,1.000799));
  hpcpush(hpxyz(0.053016,0.037776,1.002117));
  hpcpush(hpxyz(0.036081,0.017212,1.000799));
  hpcpush(hpxyz(0.061796,0.020471,1.002117));
  hpcpush(hpxyz(0.039551,0.005812,1.000799));
  hpcpush(hpxyz(0.065084,0.001347,1.002117));
  hpcpush(hpxyz(0.039507,-0.006104,1.000799));
  hpcpush(hpxyz(0.062590,-0.017897,1.002117));
  hpcpush(hpxyz(0.035953,-0.017477,1.000799));
  hpcpush(hpxyz(0.054534,-0.035550,1.002117));
  hpcpush(hpxyz(0.029204,-0.027298,1.000799));
  hpcpush(hpxyz(0.041632,-0.050045,1.002117));
  hpcpush(hpxyz(0.019860,-0.034693,1.000799));
  hpcpush(hpxyz(0.025031,-0.060093,1.002117));
  hpcpush(hpxyz(0.008752,-0.039006,1.000799));
  hpcpush(hpxyz(0.006207,-0.064801,1.002117));
  hpcpush(hpxyz(-0.003134,-0.039853,1.000799));
  hpcpush(hpxyz(-0.013170,-0.063752,1.002117));
  hpcpush(hpxyz(-0.014742,-0.037158,1.000799));
  hpcpush(hpxyz(-0.031376,-0.057038,1.002117));
  hpcpush(hpxyz(-0.025040,-0.031162,1.000799));
  hpcpush(hpxyz(-0.046794,-0.045256,1.002117));
  hpcpush(hpxyz(-0.033112,-0.022397,1.000799));
  hpcpush(hpxyz(-0.058054,-0.029452,1.002117));
  hpcpush(hpxyz(-0.038243,-0.011642,1.000799));
  hpcpush(hpxyz(-0.064156,-0.011032,1.002117));
  hpcpush(hpxyz(-0.039976,0.000147,1.000799));
  hpcpush(hpxyz(-0.064558,0.008369,1.002117));
  
  bshape(shPSword, 42);
  hpcpush(hpxyz(0.093822,0.244697,1.033769));
  hpcpush(hpxyz(0.105758,0.251015,1.036433));
  hpcpush(hpxyz(0.110908,0.249862,1.036693));
  hpcpush(hpxyz(0.110690,0.245554,1.035640));
  hpcpush(hpxyz(0.113376,0.247134,1.036306));
  hpcpush(hpxyz(0.117228,0.245924,1.036446));
  hpcpush(hpxyz(0.127263,0.237981,1.035775));
  hpcpush(hpxyz(0.131886,0.226997,1.033887));
  hpcpush(hpxyz(0.116494,0.231721,1.033085));
  hpcpush(hpxyz(0.106117,0.231182,1.031846));
  hpcpush(hpxyz(0.105927,0.226986,1.030894));
  hpcpush(hpxyz(0.263283,-0.174653,1.048724));
  hpcpush(hpxyz(0.086104,0.209645,1.025361));
  hpcpush(hpxyz(0.079571,0.202657,1.023426));
  hpcpush(hpxyz(0.074206,0.190462,1.020677));
  hpcpush(hpxyz(0.068951,0.179766,1.018366));
  hpcpush(hpxyz(0.065727,0.200902,1.022097));
  hpcpush(hpxyz(0.068444,0.209067,1.023911));
  hpcpush(hpxyz(0.077641,0.221653,1.027209));
  hpcpush(hpxyz(0.086737,0.227526,1.029219));
  hpcpush(hpxyz(0.086260,0.248631,1.034049));
  hpcpush(hpxyz(0.086431,0.252937,1.035107));
  hpcpush(hpxyz(0.093822,0.244697,1.033769));

  bshape(shPKnife, 40);
  hpcpush(hpxyz(0.070235,0.261061,1.035898));
  hpcpush(hpxyz(0.085110,0.243297,1.032685));
  hpcpush(hpxyz(0.100384,0.253764,1.036568));
  hpcpush(hpxyz(0.115592,0.241462,1.035212));
  hpcpush(hpxyz(0.106046,0.228043,1.031139));
  hpcpush(hpxyz(0.193021,0.140235,1.028068));
  hpcpush(hpxyz(0.223042,0.069158,1.026903));
  hpcpush(hpxyz(0.217457,0.064184,1.025382));
  hpcpush(hpxyz(0.149083,0.101106,1.016095));
  hpcpush(hpxyz(0.073293,0.198875,1.022214));
  hpcpush(hpxyz(0.059119,0.191168,1.019823));
  hpcpush(hpxyz(0.049288,0.208259,1.022644));
  hpcpush(hpxyz(0.061401,0.222183,1.026224));
  hpcpush(hpxyz(0.046445,0.239874,1.029415));
  hpcpush(hpxyz(0.070235,0.261061,1.035898));

  bshape(shPirateHook, 42);
  hpcpush(hpxyz(0.025637,0.290334,1.041610));
  hpcpush(hpxyz(0.015893,0.212083,1.022366));
  hpcpush(hpxyz(0.070681,0.208634,1.023975));
  hpcpush(hpxyz(0.078764,0.213716,1.025611));
  hpcpush(hpxyz(0.092820,0.214478,1.026945));
  hpcpush(hpxyz(0.128742,0.099394,1.013141));
  hpcpush(hpxyz(0.114620,0.096368,1.011150));
  hpcpush(hpxyz(0.104002,0.089501,1.009370));
  hpcpush(hpxyz(0.096284,0.072719,1.007253));
  hpcpush(hpxyz(0.093155,0.050966,1.005622));
  hpcpush(hpxyz(0.099066,0.033609,1.005457));
  hpcpush(hpxyz(0.110446,0.021946,1.006320));
  hpcpush(hpxyz(0.127291,0.014728,1.008176));
  hpcpush(hpxyz(0.145718,0.008586,1.010598));
  hpcpush(hpxyz(0.167517,0.008308,1.013968));
  hpcpush(hpxyz(0.156477,0.015183,1.012282));
  hpcpush(hpxyz(0.140613,0.023565,1.010113));
  hpcpush(hpxyz(0.132241,0.028989,1.009122));
  hpcpush(hpxyz(0.118961,0.034720,1.007649));
  hpcpush(hpxyz(0.108990,0.048739,1.007102));
  hpcpush(hpxyz(0.107378,0.058592,1.007454));
  hpcpush(hpxyz(0.115339,0.077749,1.009628));
  hpcpush(hpxyz(0.131027,0.084323,1.012066));
  hpcpush(hpxyz(0.151797,0.088283,1.015301));
  hpcpush(hpxyz(0.113111,0.234773,1.033398));
  hpcpush(hpxyz(0.104917,0.253698,1.037001));
  hpcpush(hpxyz(0.105424,0.258064,1.038129));
  hpcpush(hpxyz(0.096993,0.264198,1.038850));
  hpcpush(hpxyz(0.089213,0.264464,1.038220));
  hpcpush(hpxyz(0.087585,0.273426,1.040400));
  hpcpush(hpxyz(0.080433,0.279698,1.041489));
  hpcpush(hpxyz(0.072806,0.281526,1.041421));
  hpcpush(hpxyz(0.025637,0.290334,1.041610));
  
  bshape(shSabre, 42);
  hpcpush(hpxyz(0.052478,0.211644,1.023497));
  hpcpush(hpxyz(0.042242,0.185536,1.017943));
  hpcpush(hpxyz(0.057979,0.181601,1.018008));
  hpcpush(hpxyz(0.068086,0.204991,1.023062));
  hpcpush(hpxyz(0.085295,0.201073,1.023575));
  hpcpush(hpxyz(0.100829,0.193318,1.023493));
  hpcpush(hpxyz(0.113718,0.184489,1.023215));
  hpcpush(hpxyz(0.125735,0.178476,1.023554));
  hpcpush(hpxyz(0.134891,0.170005,1.023278));
  hpcpush(hpxyz(0.144264,0.162907,1.023402));
  hpcpush(hpxyz(0.152391,0.155912,1.023490));
  hpcpush(hpxyz(0.160192,0.146346,1.023269));
  hpcpush(hpxyz(0.166733,0.136894,1.023005));
  hpcpush(hpxyz(0.180659,0.123243,1.023634));
  hpcpush(hpxyz(0.189268,0.108634,1.023535));
  hpcpush(hpxyz(0.197644,0.091550,1.023447));
  hpcpush(hpxyz(0.204992,0.075866,1.023610));
  hpcpush(hpxyz(0.207394,0.063057,1.023224));
  hpcpush(hpxyz(0.213308,0.045015,1.023487));
  hpcpush(hpxyz(0.215741,0.031014,1.023477));
  hpcpush(hpxyz(0.216495,0.013402,1.023254));
  hpcpush(hpxyz(0.217512,-0.002957,1.023387));
  hpcpush(hpxyz(0.216708,-0.025412,1.023527));
  hpcpush(hpxyz(0.215602,-0.037833,1.023677));
  hpcpush(hpxyz(0.209033,-0.050943,1.022883));
  hpcpush(hpxyz(0.249210,-0.008237,1.030618));
  hpcpush(hpxyz(0.247115,0.012233,1.030153));
  hpcpush(hpxyz(0.246190,0.028812,1.030262));
  hpcpush(hpxyz(0.239192,0.052194,1.029533));
  hpcpush(hpxyz(0.237023,0.067663,1.029931));
  hpcpush(hpxyz(0.231339,0.087245,1.030111));
  hpcpush(hpxyz(0.221702,0.107109,1.029866));
  hpcpush(hpxyz(0.215996,0.124316,1.030587));
  hpcpush(hpxyz(0.206323,0.141806,1.030863));
  hpcpush(hpxyz(0.194941,0.164879,1.032079));
  hpcpush(hpxyz(0.173125,0.180454,1.030794));
  hpcpush(hpxyz(0.158905,0.191858,1.030563));
  hpcpush(hpxyz(0.143293,0.202073,1.030226));
  hpcpush(hpxyz(0.128179,0.215193,1.030892));
  hpcpush(hpxyz(0.111272,0.224403,1.030892));
  hpcpush(hpxyz(0.090433,0.232613,1.030673));
  hpcpush(hpxyz(0.079164,0.234740,1.030228));
  hpcpush(hpxyz(0.083027,0.256039,1.035591));
  hpcpush(hpxyz(0.071081,0.264147,1.036738));
  hpcpush(hpxyz(0.060044,0.234679,1.028921));
  hpcpush(hpxyz(0.052478,0.211644,1.023497));

  bshape(shHedgehogBlade, 42);
  hpcpush(hpxyz(0.117178,0.032617,1.007370));
  hpcpush(hpxyz(0.102699,0.066452,1.007454));
  hpcpush(hpxyz(0.056807,0.109987,1.007633));
  hpcpush(hpxyz(0.052506,0.272774,1.037864));
  hpcpush(hpxyz(0.079931,0.279758,1.041467));
  hpcpush(hpxyz(0.082589,0.170109,1.017722));
//hpcpush(hpxyz(0.173109,0.220554,1.038562));
  hpcpush(hpxyz(0.139258,0.126935,1.017598));
  hpcpush(hpxyz(0.240653,0.136967,1.037629));
  hpcpush(hpxyz(0.177567,0.067821,1.017905));
  hpcpush(hpxyz(0.273978,0.042249,1.037713));
  hpcpush(hpxyz(0.187242,-0.000000,1.017379));
  hpcpush(hpxyz(0.187242,0.000000,1.017379));
  hpcpush(hpxyz(0.273978,-0.042249,1.037713));
  hpcpush(hpxyz(0.177567,-0.067821,1.017905));
  hpcpush(hpxyz(0.240653,-0.136967,1.037629));
  hpcpush(hpxyz(0.139258,-0.126935,1.017598));
//hpcpush(hpxyz(0.173109,-0.220554,1.038562));
  hpcpush(hpxyz(0.082589,-0.170109,1.017722));
  hpcpush(hpxyz(0.079931,-0.279758,1.041467));
  hpcpush(hpxyz(0.052506,-0.272774,1.037864));
  hpcpush(hpxyz(0.056807,-0.109987,1.007633));
  hpcpush(hpxyz(0.102699,-0.066452,1.007454));
  hpcpush(hpxyz(0.117178,-0.032617,1.007370));
  hpcpush(hpxyz(0.117178,0.032617,1.007370));
  
  bshape(shHedgehogBladePlayer, 42);
  hpcpush(hpxyz(0.117178,0.032617,1.007370));
  hpcpush(hpxyz(0.102699,0.066452,1.007454));
  hpcpush(hpxyz(0.056807,0.109987,1.007633));
  hpcpush(hpxyz(0.052506,0.272774,1.037864));
  hpcpush(hpxyz(0.079931,0.279758,1.041467));
  hpcpush(hpxyz(0.082589,0.170109,1.017722));
  hpcpush(hpxyz(0.173109,0.220554,1.038562));
  hpcpush(hpxyz(0.139258,0.126935,1.017598));
  hpcpush(hpxyz(0.240653,0.136967,1.037629));
  hpcpush(hpxyz(0.177567,0.067821,1.017905));
  hpcpush(hpxyz(0.273978,0.042249,1.037713));
  hpcpush(hpxyz(0.187242,-0.000000,1.017379));
  hpcpush(hpxyz(0.187242,0.000000,1.017379));
  hpcpush(hpxyz(0.273978,-0.042249,1.037713));
  hpcpush(hpxyz(0.177567,-0.067821,1.017905));
  hpcpush(hpxyz(0.240653,-0.136967,1.037629));
  hpcpush(hpxyz(0.139258,-0.126935,1.017598));
  hpcpush(hpxyz(0.173109,-0.220554,1.038562));
  hpcpush(hpxyz(0.082589,-0.170109,1.017722));
  hpcpush(hpxyz(0.079931,-0.279758,1.041467));
  hpcpush(hpxyz(0.052506,-0.272774,1.037864));
  hpcpush(hpxyz(0.056807,-0.109987,1.007633));
  hpcpush(hpxyz(0.102699,-0.066452,1.007454));
  hpcpush(hpxyz(0.117178,-0.032617,1.007370));
  hpcpush(hpxyz(0.117178,0.032617,1.007370));
  
  bshape(shFemaleBody, 41);
  hpcpush(hpxyz(-0.091723,0.073620,1.006893));
  hpcpush(hpxyz(-0.089581,0.094424,1.008435));
  hpcpush(hpxyz(-0.082621,0.117856,1.010305));
  hpcpush(hpxyz(-0.070099,0.258731,1.035304));
  hpcpush(hpxyz(-0.058825,0.268551,1.037102));
  hpcpush(hpxyz(-0.003834,0.273475,1.036727));
  hpcpush(hpxyz(0.040760,0.263668,1.034979));
  hpcpush(hpxyz(0.077891,0.260490,1.036302));
  hpcpush(hpxyz(0.085895,0.233685,1.030527));
  hpcpush(hpxyz(0.064882,0.210867,1.024048));
  hpcpush(hpxyz(0.037427,0.217075,1.023974));
  hpcpush(hpxyz(0.011258,0.226410,1.025372));
  hpcpush(hpxyz(-0.037448,0.218444,1.024266));
  hpcpush(hpxyz(-0.026537,0.112181,1.006622));
  hpcpush(hpxyz(-0.015609,0.091250,1.004276));
  hpcpush(hpxyz(0.007196,0.086357,1.003748));
  hpcpush(hpxyz(0.019189,0.083950,1.003701));
  hpcpush(hpxyz(0.027568,0.077909,1.003409));
  hpcpush(hpxyz(0.033526,0.068249,1.002887));
  hpcpush(hpxyz(0.034689,0.059808,1.002387));
  hpcpush(hpxyz(0.037035,0.046593,1.001770));
  hpcpush(hpxyz(0.029813,0.028620,1.000854));
  hpcpush(hpxyz(0.017865,0.010719,1.000217));
  hpcpush(hpxyz(0.010716,0.003572,1.000064));
  hpcpush(hpxyz(0.010716,-0.003572,1.000064));
  hpcpush(hpxyz(0.017865,-0.010719,1.000217));
  hpcpush(hpxyz(0.029813,-0.028620,1.000854));
  hpcpush(hpxyz(0.037035,-0.046593,1.001770));
  hpcpush(hpxyz(0.034689,-0.059808,1.002387));
  hpcpush(hpxyz(0.033526,-0.068249,1.002887));
  hpcpush(hpxyz(0.027568,-0.077909,1.003409));
  hpcpush(hpxyz(0.019189,-0.083950,1.003701));
  hpcpush(hpxyz(0.007196,-0.086357,1.003748));
  hpcpush(hpxyz(-0.015609,-0.091250,1.004276));
  hpcpush(hpxyz(-0.026537,-0.112181,1.006622));
  hpcpush(hpxyz(-0.037448,-0.218444,1.024266));
  hpcpush(hpxyz(0.011258,-0.226410,1.025372));
  hpcpush(hpxyz(0.037427,-0.217075,1.023974));
  hpcpush(hpxyz(0.064882,-0.210867,1.024048));
  hpcpush(hpxyz(0.085895,-0.233685,1.030527));
  hpcpush(hpxyz(0.077891,-0.260490,1.036302));
  hpcpush(hpxyz(0.040760,-0.263668,1.034979));
  hpcpush(hpxyz(-0.003834,-0.273475,1.036727));
  hpcpush(hpxyz(-0.058825,-0.268551,1.037102));
  hpcpush(hpxyz(-0.070099,-0.258731,1.035304));
  hpcpush(hpxyz(-0.082621,-0.117856,1.010305));
  hpcpush(hpxyz(-0.089581,-0.094424,1.008435));
  hpcpush(hpxyz(-0.091723,-0.073620,1.006893));
  hpcpush(hpxyz(-0.091723,0.073620,1.006893));

  bshape(shFemaleDress, 42);
  hpcpush(hpxyz(-0.094893,0.000000,1.004492));
  hpcpush(hpxyz(-0.098831,0.051826,1.006207));
  hpcpush(hpxyz(-0.095833,0.099473,1.009494));
  hpcpush(hpxyz(-0.087712,0.125476,1.011651));
  hpcpush(hpxyz(-0.020535,0.119586,1.007334));
  hpcpush(hpxyz(-0.012011,0.093684,1.004451));
  hpcpush(hpxyz(0.001200,0.088788,1.003935));
  hpcpush(hpxyz(0.021589,0.083958,1.003751));
  hpcpush(hpxyz(0.033549,0.073088,1.003228));
  hpcpush(hpxyz(0.041871,0.056227,1.002454));
  hpcpush(hpxyz(0.039397,0.035815,1.001416));
  hpcpush(hpxyz(0.030996,0.021459,1.000710));
  hpcpush(hpxyz(0.019057,0.011911,1.000252));
  hpcpush(hpxyz(0.010716,-0.001191,1.000058));
  hpcpush(hpxyz(0.010716,0.001191,1.000058));
  hpcpush(hpxyz(0.019057,-0.011911,1.000252));
  hpcpush(hpxyz(0.030996,-0.021459,1.000710));
  hpcpush(hpxyz(0.039397,-0.035815,1.001416));
  hpcpush(hpxyz(0.041871,-0.056227,1.002454));
  hpcpush(hpxyz(0.033549,-0.073088,1.003228));
  hpcpush(hpxyz(0.021589,-0.083958,1.003751));
  hpcpush(hpxyz(0.001200,-0.088788,1.003935));
  hpcpush(hpxyz(-0.012011,-0.093684,1.004451));
  hpcpush(hpxyz(-0.020535,-0.119586,1.007334));
  hpcpush(hpxyz(-0.087712,-0.125476,1.011651));
  hpcpush(hpxyz(-0.095833,-0.099473,1.009494));
  hpcpush(hpxyz(-0.098831,-0.051826,1.006207));
  hpcpush(hpxyz(-0.094893,-0.000000,1.004492));
  hpcpush(hpxyz(-0.094893,0.000000,1.004492));

  bshape(shDemon, 43);
  drawDemon(1);
  
  bshape(shGoatHead, 43);
  hpcpush(hpxyz(0.098234,-0.008161,1.004847));
  hpcpush(hpxyz(0.097458,-0.016878,1.004880));
  hpcpush(hpxyz(0.085163,-0.036297,1.004276));
  hpcpush(hpxyz(0.074171,-0.049357,1.003961));
  hpcpush(hpxyz(0.064423,-0.056062,1.003640));
  hpcpush(hpxyz(0.071545,-0.060919,1.004405));
  hpcpush(hpxyz(0.090299,-0.086141,1.007757));
  hpcpush(hpxyz(0.099873,-0.119956,1.012109));
  hpcpush(hpxyz(0.098555,-0.155296,1.016774));
  hpcpush(hpxyz(0.084548,-0.179003,1.019407));
  hpcpush(hpxyz(0.066861,-0.191576,1.020378));
  hpcpush(hpxyz(0.016947,-0.207877,1.021519));
  hpcpush(hpxyz(-0.036121,-0.216389,1.023782));
  hpcpush(hpxyz(-0.071628,-0.210733,1.024470));
  hpcpush(hpxyz(-0.053640,-0.210686,1.023360));
  hpcpush(hpxyz(-0.029915,-0.199910,1.020225));
  hpcpush(hpxyz(-0.013982,-0.189736,1.017937));
  hpcpush(hpxyz(0.018469,-0.168500,1.014265));
  hpcpush(hpxyz(0.033113,-0.153873,1.012311));
  hpcpush(hpxyz(0.045027,-0.132252,1.009712));
  hpcpush(hpxyz(0.044982,-0.113169,1.007388));
  hpcpush(hpxyz(0.039048,-0.095429,1.005302));
  hpcpush(hpxyz(0.028215,-0.083777,1.003900));
  hpcpush(hpxyz(0.018818,-0.079369,1.003321));
  hpcpush(hpxyz(0.005692,-0.074475,1.002786));
  hpcpush(hpxyz(-0.012112,-0.070532,1.002557));
  hpcpush(hpxyz(-0.028520,-0.067591,1.002687));
  hpcpush(hpxyz(-0.047548,-0.063966,1.003171));
  hpcpush(hpxyz(-0.060278,-0.061572,1.003705));
  hpcpush(hpxyz(-0.079475,-0.058008,1.004829));
  hpcpush(hpxyz(-0.093451,-0.049712,1.005587));
  hpcpush(hpxyz(-0.106876,-0.031455,1.006187));
  hpcpush(hpxyz(-0.109804,-0.016063,1.006139));
  hpcpush(hpxyz(-0.108918,-0.001180,1.005915));
  hpcpush(hpxyz(-0.108918,0.001180,1.005915));
  hpcpush(hpxyz(-0.109804,0.016063,1.006139));
  hpcpush(hpxyz(-0.106876,0.031455,1.006187));
  hpcpush(hpxyz(-0.093451,0.049712,1.005587));
  hpcpush(hpxyz(-0.079475,0.058008,1.004829));
  hpcpush(hpxyz(-0.060278,0.061572,1.003705));
  hpcpush(hpxyz(-0.047548,0.063966,1.003171));
  hpcpush(hpxyz(-0.028520,0.067591,1.002687));
  hpcpush(hpxyz(-0.012112,0.070532,1.002557));
  hpcpush(hpxyz(0.005692,0.074475,1.002786));
  hpcpush(hpxyz(0.018818,0.079369,1.003321));
  hpcpush(hpxyz(0.028215,0.083777,1.003900));
  hpcpush(hpxyz(0.039048,0.095429,1.005302));
  hpcpush(hpxyz(0.044982,0.113169,1.007388));
  hpcpush(hpxyz(0.045027,0.132252,1.009712));
  hpcpush(hpxyz(0.033113,0.153873,1.012311));
  hpcpush(hpxyz(0.018469,0.168500,1.014265));
  hpcpush(hpxyz(-0.013982,0.189736,1.017937));
  hpcpush(hpxyz(-0.029915,0.199910,1.020225));
  hpcpush(hpxyz(-0.053640,0.210686,1.023360));
  hpcpush(hpxyz(-0.071628,0.210733,1.024470));
  hpcpush(hpxyz(-0.036121,0.216389,1.023782));
  hpcpush(hpxyz(0.016947,0.207877,1.021519));
  hpcpush(hpxyz(0.066861,0.191576,1.020378));
  hpcpush(hpxyz(0.084548,0.179003,1.019407));
  hpcpush(hpxyz(0.098555,0.155296,1.016774));
  hpcpush(hpxyz(0.099873,0.119956,1.012109));
  hpcpush(hpxyz(0.090299,0.086141,1.007757));
  hpcpush(hpxyz(0.071545,0.060919,1.004405));
  hpcpush(hpxyz(0.064423,0.056062,1.003640));
  hpcpush(hpxyz(0.074171,0.049357,1.003961));
  hpcpush(hpxyz(0.085163,0.036297,1.004276));
  hpcpush(hpxyz(0.097458,0.016878,1.004880));
  hpcpush(hpxyz(0.098234,0.008161,1.004847));
  hpcpush(hpxyz(0.098234,-0.008161,1.004847));
  
  bshape(shKnightArmor, 42);
  hpcpush(hpxyz(-0.129512,-0.004842,1.008363));
  hpcpush(hpxyz(-0.129934,0.057074,1.010020));
  hpcpush(hpxyz(-0.089756,0.104311,1.009424));
  hpcpush(hpxyz(-0.099124,0.177184,1.020402));
  hpcpush(hpxyz(-0.086054,0.237913,1.031508));
  hpcpush(hpxyz(-0.019952,0.218220,1.023727));
  hpcpush(hpxyz(-0.020812,0.167721,1.014181));
  hpcpush(hpxyz(-0.024311,0.143434,1.010527));
  hpcpush(hpxyz(0.006041,0.122026,1.007436));
  hpcpush(hpxyz(0.026372,0.079117,1.003471));
  hpcpush(hpxyz(0.032239,0.044179,1.001494));
  hpcpush(hpxyz(0.034575,0.016691,1.000737));
  hpcpush(hpxyz(0.034565,0.003576,1.000604));
  hpcpush(hpxyz(0.034565,-0.003576,1.000604));
  hpcpush(hpxyz(0.034575,-0.016691,1.000737));
  hpcpush(hpxyz(0.032239,-0.044179,1.001494));
  hpcpush(hpxyz(0.026372,-0.079117,1.003471));
  hpcpush(hpxyz(0.006041,-0.122026,1.007436));
  hpcpush(hpxyz(-0.024311,-0.143434,1.010527));
  hpcpush(hpxyz(-0.020812,-0.167721,1.014181));
  hpcpush(hpxyz(-0.019952,-0.218220,1.023727));
  hpcpush(hpxyz(-0.086054,-0.237913,1.031508));
  hpcpush(hpxyz(-0.099124,-0.177184,1.020402));
  hpcpush(hpxyz(-0.089756,-0.104311,1.009424));
  hpcpush(hpxyz(-0.129934,-0.057074,1.010020));
  hpcpush(hpxyz(-0.129512,0.004842,1.008363));
  hpcpush(hpxyz(-0.129512,-0.004842,1.008363));
  
  bshape(shKnightCloak, 43);
  hpcpush(hpxyz(-0.000015,0.003765,1.000007));
  hpcpush(hpxyz(0.007931,-0.006370,1.000052));
  hpcpush(hpxyz(0.020079,-0.026681,1.000557));
  hpcpush(hpxyz(0.029245,-0.044814,1.001431));
  hpcpush(hpxyz(0.027073,-0.059250,1.002120));
  hpcpush(hpxyz(0.023423,-0.078357,1.003339));
  hpcpush(hpxyz(0.002361,-0.116363,1.006750));
  hpcpush(hpxyz(-0.019415,-0.136638,1.009478));
  hpcpush(hpxyz(-0.058154,-0.153287,1.013350));
  hpcpush(hpxyz(-0.094935,-0.166174,1.018149));
  hpcpush(hpxyz(-0.136465,-0.178800,1.024984));
  hpcpush(hpxyz(-0.161844,-0.181507,1.029144));
  hpcpush(hpxyz(-0.184577,-0.179578,1.032626));
  hpcpush(hpxyz(-0.162984,-0.162667,1.026170));
  hpcpush(hpxyz(-0.150295,-0.135739,1.020301));
  hpcpush(hpxyz(-0.152621,-0.120097,1.018684));
  hpcpush(hpxyz(-0.161098,-0.102831,1.018100));
  hpcpush(hpxyz(-0.167882,-0.095516,1.018483));
  hpcpush(hpxyz(-0.184530,-0.081393,1.020135));
  hpcpush(hpxyz(-0.163316,-0.053335,1.014651));
  hpcpush(hpxyz(-0.149316,-0.029081,1.011504));
  hpcpush(hpxyz(-0.143262,-0.011700,1.010278));
  hpcpush(hpxyz(-0.140925,0.006746,1.009904));
  hpcpush(hpxyz(-0.140925,-0.006746,1.009904));
  hpcpush(hpxyz(-0.143262,0.011700,1.010278));
  hpcpush(hpxyz(-0.149316,0.029081,1.011504));
  hpcpush(hpxyz(-0.163316,0.053335,1.014651));
  hpcpush(hpxyz(-0.184530,0.081393,1.020135));
  hpcpush(hpxyz(-0.167882,0.095516,1.018483));
  hpcpush(hpxyz(-0.161098,0.102831,1.018100));
  hpcpush(hpxyz(-0.152621,0.120097,1.018684));
  hpcpush(hpxyz(-0.150295,0.135739,1.020301));
  hpcpush(hpxyz(-0.162984,0.162667,1.026170));
  hpcpush(hpxyz(-0.184577,0.179578,1.032626));
  hpcpush(hpxyz(-0.161844,0.181507,1.029144));
  hpcpush(hpxyz(-0.136465,0.178800,1.024984));
  hpcpush(hpxyz(-0.094935,0.166174,1.018149));
  hpcpush(hpxyz(-0.058154,0.153287,1.013350));
  hpcpush(hpxyz(-0.019415,0.136638,1.009478));
  hpcpush(hpxyz(0.002361,0.116363,1.006750));
  hpcpush(hpxyz(0.023423,0.078357,1.003339));
  hpcpush(hpxyz(0.027073,0.059250,1.002120));
  hpcpush(hpxyz(0.029245,0.044814,1.001431));
  hpcpush(hpxyz(0.020079,0.026681,1.000557));
  hpcpush(hpxyz(0.007931,0.006370,1.000052));
  hpcpush(hpxyz(-0.000015,-0.003765,1.000007));
  hpcpush(hpxyz(-0.000015,0.003765,1.000007));
  
  bshape(shPrincessDress, 43);
  hpcpush(hpxyz(0.041877,-0.057431,1.002523));
  hpcpush(hpxyz(0.046812,-0.078020,1.004131));
  hpcpush(hpxyz(0.028859,-0.096196,1.005031));
  hpcpush(hpxyz(-0.001205,-0.110866,1.006128));
  hpcpush(hpxyz(-0.053233,-0.116144,1.008128));
  hpcpush(hpxyz(-0.110022,-0.122246,1.013434));
  hpcpush(hpxyz(-0.181271,-0.133766,1.025062));
  hpcpush(hpxyz(-0.221411,-0.145062,1.034440));
  hpcpush(hpxyz(-0.252155,-0.156465,1.043103));
  hpcpush(hpxyz(-0.285822,-0.165961,1.053203));
  hpcpush(hpxyz(-0.259590,-0.116944,1.039742));
  hpcpush(hpxyz(-0.258096,-0.089439,1.036635));
  hpcpush(hpxyz(-0.246236,-0.031569,1.030354));
  hpcpush(hpxyz(-0.247436,0.011362,1.030220));
  hpcpush(hpxyz(-0.253890,0.054586,1.033170));
  hpcpush(hpxyz(-0.268619,0.095109,1.039809));
  hpcpush(hpxyz(-0.277680,0.121972,1.044980));
  hpcpush(hpxyz(-0.286489,0.138666,1.049430));
  hpcpush(hpxyz(-0.295278,0.151594,1.053646));
  hpcpush(hpxyz(-0.248719,0.149489,1.041253));
  hpcpush(hpxyz(-0.200432,0.139924,1.029442));
  hpcpush(hpxyz(-0.139171,0.124392,1.017272));
  hpcpush(hpxyz(-0.102260,0.110782,1.011301));
  hpcpush(hpxyz(-0.077429,0.101626,1.008128));
  hpcpush(hpxyz(0.041877,-0.057431,1.002523));  
  
  bshape(shPrinceDress, 42);
  hpcpush(hpxyz(-0.123399,0.032664,1.008114));
  hpcpush(hpxyz(-0.122325,0.049657,1.008677));
  hpcpush(hpxyz(-0.121280,0.064278,1.009376));
  hpcpush(hpxyz(-0.114003,0.076406,1.009373));
  hpcpush(hpxyz(-0.098124,0.089645,1.008794));
  hpcpush(hpxyz(-0.084789,0.101747,1.008733));
  hpcpush(hpxyz(-0.081167,0.105396,1.008809));
  hpcpush(hpxyz(-0.080113,0.115314,1.009810));
  hpcpush(hpxyz(-0.099259,0.181148,1.021111));
  hpcpush(hpxyz(-0.053980,0.166846,1.015259));
  hpcpush(hpxyz(-0.018484,0.187307,1.017559));
  hpcpush(hpxyz(-0.015849,0.154831,1.012039));
  hpcpush(hpxyz(-0.013334,0.134548,1.009099));
  hpcpush(hpxyz(0.006043,0.123271,1.007587));
  hpcpush(hpxyz(0.021636,0.096161,1.004846));
  hpcpush(hpxyz(0.031121,0.067030,1.002727));
  hpcpush(hpxyz(0.038206,0.038206,1.001459));
  hpcpush(hpxyz(0.038163,0.017889,1.000888));
  hpcpush(hpxyz(0.038163,-0.017889,1.000888));
  hpcpush(hpxyz(0.038206,-0.038206,1.001459));
  hpcpush(hpxyz(0.031121,-0.067030,1.002727));
  hpcpush(hpxyz(0.021636,-0.096161,1.004846));
  hpcpush(hpxyz(0.006043,-0.123271,1.007587));
  hpcpush(hpxyz(-0.013334,-0.134548,1.009099));
  hpcpush(hpxyz(-0.015849,-0.154831,1.012039));
  hpcpush(hpxyz(-0.018484,-0.187307,1.017559));
  hpcpush(hpxyz(-0.053980,-0.166846,1.015259));
  hpcpush(hpxyz(-0.099259,-0.181148,1.021111));
  hpcpush(hpxyz(-0.080113,-0.115314,1.009810));
  hpcpush(hpxyz(-0.081167,-0.105396,1.008809));
  hpcpush(hpxyz(-0.084789,-0.101747,1.008733));
  hpcpush(hpxyz(-0.098124,-0.089645,1.008794));
  hpcpush(hpxyz(-0.114003,-0.076406,1.009373));
  hpcpush(hpxyz(-0.121280,-0.064278,1.009376));
  hpcpush(hpxyz(-0.122325,-0.049657,1.008677));
  hpcpush(hpxyz(-0.123399,-0.032664,1.008114));
  hpcpush(hpxyz(-0.123399,0.032664,1.008114));

  bshape(shArmor, 42);
  hpcpush(hpxyz(-0.131705,0.010875,1.008694));
  hpcpush(hpxyz(-0.133453,0.061874,1.010761));
  hpcpush(hpxyz(-0.093134,0.099182,1.009213));
  hpcpush(hpxyz(-0.097643,0.135480,1.013849));
  hpcpush(hpxyz(-0.010956,0.158255,1.012504));
  hpcpush(hpxyz(0.016844,0.113094,1.006516));
  hpcpush(hpxyz(0.022740,0.084974,1.003861));
  hpcpush(hpxyz(-0.062459,0.086481,1.005674));
  hpcpush(hpxyz(-0.061152,0.076740,1.004803));
  hpcpush(hpxyz(0.063569,0.076763,1.004954));
  hpcpush(hpxyz(0.074360,0.065964,1.004928));
  hpcpush(hpxyz(0.083920,0.049153,1.004718));
  hpcpush(hpxyz(0.088667,0.032352,1.004444));
  hpcpush(hpxyz(0.092226,0.002395,1.004247));
  hpcpush(hpxyz(0.057196,0.007150,1.001660));
  hpcpush(hpxyz(0.054891,0.041765,1.002376));
  hpcpush(hpxyz(0.039313,0.039313,1.001544));
  hpcpush(hpxyz(0.039313,-0.039313,1.001544));
  hpcpush(hpxyz(0.054891,-0.041765,1.002376));
  hpcpush(hpxyz(0.057196,-0.007150,1.001660));
  hpcpush(hpxyz(0.092226,-0.002395,1.004247));
  hpcpush(hpxyz(0.088667,-0.032352,1.004444));
  hpcpush(hpxyz(0.083920,-0.049153,1.004718));
  hpcpush(hpxyz(0.074360,-0.065964,1.004928));
  hpcpush(hpxyz(0.063569,-0.076763,1.004954));
  hpcpush(hpxyz(-0.061152,-0.076740,1.004803));
  hpcpush(hpxyz(-0.062459,-0.086481,1.005674));
  hpcpush(hpxyz(0.022740,-0.084974,1.003861));
  hpcpush(hpxyz(0.016844,-0.113094,1.006516));
  hpcpush(hpxyz(-0.010956,-0.158255,1.012504));
  hpcpush(hpxyz(-0.097643,-0.135480,1.013849));
  hpcpush(hpxyz(-0.093134,-0.099182,1.009213));
  hpcpush(hpxyz(-0.133453,-0.061874,1.010761));
  hpcpush(hpxyz(-0.131705,-0.010875,1.008694));
  hpcpush(hpxyz(-0.131705,0.010875,1.008694));

  bshape(shTurban1, 44);
  hpcpush(hpxyz(-0.072384,-0.002801,1.002620));
  hpcpush(hpxyz(-0.075078,0.020302,1.003020));
  hpcpush(hpxyz(-0.067673,0.048512,1.003461));
  hpcpush(hpxyz(-0.046761,0.065782,1.003252));
  hpcpush(hpxyz(-0.011565,0.081749,1.003403));
  hpcpush(hpxyz(0.024684,0.095470,1.004850));
  hpcpush(hpxyz(0.076082,0.087352,1.006687));
  hpcpush(hpxyz(0.102859,0.061877,1.007179));
  hpcpush(hpxyz(0.113555,0.034171,1.007007));
  hpcpush(hpxyz(0.113555,-0.034171,1.007007));
  hpcpush(hpxyz(0.102859,-0.061877,1.007179));
  hpcpush(hpxyz(0.076082,-0.087352,1.006687));
  hpcpush(hpxyz(0.024684,-0.095470,1.004850));
  hpcpush(hpxyz(-0.011565,-0.081749,1.003403));
  hpcpush(hpxyz(-0.046761,-0.065782,1.003252));
  hpcpush(hpxyz(-0.067673,-0.048512,1.003461));
  hpcpush(hpxyz(-0.075078,-0.020302,1.003020));
  hpcpush(hpxyz(-0.072384,0.002801,1.002620));
  hpcpush(hpxyz(-0.072384,-0.002801,1.002620));

  bshape(shTurban2, 45);
  hpcpush(hpxyz(-0.041779,0.001538,1.000874));
  hpcpush(hpxyz(-0.029927,0.025572,1.000774));
  hpcpush(hpxyz(-0.001577,0.046885,1.001100));
  hpcpush(hpxyz(0.030017,0.051171,1.001758));
  hpcpush(hpxyz(0.051757,0.039557,1.002120));
  hpcpush(hpxyz(0.066202,0.014187,1.002289));
  hpcpush(hpxyz(0.066202,-0.014187,1.002289));
  hpcpush(hpxyz(0.051757,-0.039557,1.002120));
  hpcpush(hpxyz(0.030017,-0.051171,1.001758));
  hpcpush(hpxyz(-0.001577,-0.046885,1.001100));
  hpcpush(hpxyz(-0.029927,-0.025572,1.000774));
  hpcpush(hpxyz(-0.041779,-0.001538,1.000874));
  hpcpush(hpxyz(-0.041779,0.001538,1.000874));

  bshape(shVikingHelmet, 44);
  hpcpush(hpxyz(-0.068191,-0.016749,1.002462));
  hpcpush(hpxyz(-0.064642,-0.037110,1.002774));
  hpcpush(hpxyz(-0.055059,-0.049075,1.002716));
  hpcpush(hpxyz(-0.040676,-0.057425,1.002473));
  hpcpush(hpxyz(-0.027503,-0.060986,1.002235));
  hpcpush(hpxyz(-0.030377,-0.140951,1.010342));
  hpcpush(hpxyz(-0.026834,-0.154904,1.012282));
  hpcpush(hpxyz(-0.003670,-0.166357,1.013750));
  hpcpush(hpxyz(0.018370,-0.168999,1.014346));
  hpcpush(hpxyz(0.055380,-0.175984,1.016876));
  hpcpush(hpxyz(0.082350,-0.161012,1.016222));
  hpcpush(hpxyz(0.068527,-0.152961,1.013949));
  hpcpush(hpxyz(0.031640,-0.146029,1.011101));
  hpcpush(hpxyz(0.008493,-0.138308,1.009555));
  hpcpush(hpxyz(-0.002413,-0.117054,1.006830));
  hpcpush(hpxyz(-0.004785,-0.069381,1.002415));
  hpcpush(hpxyz(0.017935,-0.063369,1.002166));
  hpcpush(hpxyz(0.049033,-0.046641,1.002287));
  hpcpush(hpxyz(0.032200,-0.027430,1.000894));
  hpcpush(hpxyz(0.032200,0.027430,1.000894));
  hpcpush(hpxyz(0.049033,0.046641,1.002287));
  hpcpush(hpxyz(0.017935,0.063369,1.002166));
  hpcpush(hpxyz(-0.004785,0.069381,1.002415));
  hpcpush(hpxyz(-0.002413,0.117054,1.006830));
  hpcpush(hpxyz(0.008493,0.138308,1.009555));
  hpcpush(hpxyz(0.031640,0.146029,1.011101));
  hpcpush(hpxyz(0.068527,0.152961,1.013949));
  hpcpush(hpxyz(0.082350,0.161012,1.016222));
  hpcpush(hpxyz(0.055380,0.175984,1.016876));
  hpcpush(hpxyz(0.018370,0.168999,1.014346));
  hpcpush(hpxyz(-0.003670,0.166357,1.013750));
  hpcpush(hpxyz(-0.026834,0.154904,1.012282));
  hpcpush(hpxyz(-0.030377,0.140951,1.010342));
  hpcpush(hpxyz(-0.027503,0.060986,1.002235));
  hpcpush(hpxyz(-0.040676,0.057425,1.002473));
  hpcpush(hpxyz(-0.055059,0.049075,1.002716));
  hpcpush(hpxyz(-0.064642,0.037110,1.002774));
  hpcpush(hpxyz(-0.068191,0.016749,1.002462));
  hpcpush(hpxyz(-0.068191,-0.016749,1.002462));

  bshape(shHood, 43);
  hpcpush(hpxyz(-0.289108,0.001285,1.040954));
  hpcpush(hpxyz(-0.253872,0.006315,1.031742));
  hpcpush(hpxyz(-0.239738,0.013807,1.028428));
  hpcpush(hpxyz(-0.225917,0.023715,1.025476));
  hpcpush(hpxyz(-0.220610,0.037392,1.024728));
  hpcpush(hpxyz(-0.239040,0.055357,1.029662));
  hpcpush(hpxyz(-0.278480,0.068016,1.040278));
  hpcpush(hpxyz(-0.290572,0.069737,1.043693));
  hpcpush(hpxyz(-0.249897,0.082453,1.034044));
  hpcpush(hpxyz(-0.220651,0.087759,1.027808));
  hpcpush(hpxyz(-0.204652,0.097335,1.025357));
  hpcpush(hpxyz(-0.243692,0.127587,1.037142));
  hpcpush(hpxyz(-0.294677,0.136206,1.051374));
  hpcpush(hpxyz(-0.303482,0.130064,1.053099));
  hpcpush(hpxyz(-0.255520,0.152279,1.043302));
  hpcpush(hpxyz(-0.227045,0.154340,1.037001));
  hpcpush(hpxyz(-0.176957,0.161897,1.028360));
  hpcpush(hpxyz(-0.131265,0.160986,1.021346));
  hpcpush(hpxyz(-0.098249,0.157199,1.017037));
  hpcpush(hpxyz(-0.054857,0.153598,1.013214));
  hpcpush(hpxyz(-0.031595,0.149471,1.011603));
  hpcpush(hpxyz(-0.001208,0.130439,1.008472));
  hpcpush(hpxyz(0.016853,0.115564,1.006796));
  hpcpush(hpxyz(0.028853,0.106995,1.006121));
  hpcpush(hpxyz(0.043228,0.096063,1.005533));
  hpcpush(hpxyz(0.053964,0.082746,1.004868));
  hpcpush(hpxyz(0.056228,0.064603,1.003661));
  hpcpush(hpxyz(0.063348,0.049005,1.003202));
  hpcpush(hpxyz(0.054927,0.048957,1.002703));
  hpcpush(hpxyz(0.014325,0.070433,1.002580));
  hpcpush(hpxyz(-0.046699,0.077832,1.004111));
  hpcpush(hpxyz(-0.088908,0.061274,1.005813));
  hpcpush(hpxyz(-0.081520,0.052748,1.004703));
  hpcpush(hpxyz(-0.044233,0.068142,1.003294));
  hpcpush(hpxyz(0.011920,0.059602,1.001846));
  hpcpush(hpxyz(0.086263,0.037141,1.004401));
  hpcpush(hpxyz(0.086263,-0.037141,1.004401));
  hpcpush(hpxyz(0.011920,-0.059602,1.001846));
  hpcpush(hpxyz(-0.044233,-0.068142,1.003294));
  hpcpush(hpxyz(-0.081520,-0.052748,1.004703));
  hpcpush(hpxyz(-0.088908,-0.061274,1.005813));
  hpcpush(hpxyz(-0.046699,-0.077832,1.004111));
  hpcpush(hpxyz(0.014325,-0.070433,1.002580));
  hpcpush(hpxyz(0.054927,-0.048957,1.002703));
  hpcpush(hpxyz(0.063348,-0.049005,1.003202));
  hpcpush(hpxyz(0.056228,-0.064603,1.003661));
  hpcpush(hpxyz(0.053964,-0.082746,1.004868));
  hpcpush(hpxyz(0.043228,-0.096063,1.005533));
  hpcpush(hpxyz(0.028853,-0.106995,1.006121));
  hpcpush(hpxyz(0.016853,-0.115564,1.006796));
  hpcpush(hpxyz(-0.001208,-0.130439,1.008472));
  hpcpush(hpxyz(-0.031595,-0.149471,1.011603));
  hpcpush(hpxyz(-0.054857,-0.153598,1.013214));
  hpcpush(hpxyz(-0.098249,-0.157199,1.017037));
  hpcpush(hpxyz(-0.131265,-0.160986,1.021346));
  hpcpush(hpxyz(-0.176957,-0.161897,1.028360));
  hpcpush(hpxyz(-0.227045,-0.154340,1.037001));
  hpcpush(hpxyz(-0.255520,-0.152279,1.043302));
  hpcpush(hpxyz(-0.303482,-0.130064,1.053099));
  hpcpush(hpxyz(-0.294677,-0.136206,1.051374));
  hpcpush(hpxyz(-0.243692,-0.127587,1.037142));
  hpcpush(hpxyz(-0.204652,-0.097335,1.025357));
  hpcpush(hpxyz(-0.220651,-0.087759,1.027808));
  hpcpush(hpxyz(-0.249897,-0.082453,1.034044));
  hpcpush(hpxyz(-0.290572,-0.069737,1.043693));
  hpcpush(hpxyz(-0.278480,-0.068016,1.040278));
  hpcpush(hpxyz(-0.239040,-0.055357,1.029662));
  hpcpush(hpxyz(-0.220610,-0.037392,1.024728));
  hpcpush(hpxyz(-0.225917,-0.023715,1.025476));
  hpcpush(hpxyz(-0.239738,-0.013807,1.028428));
  hpcpush(hpxyz(-0.253872,-0.006315,1.031742));
  hpcpush(hpxyz(-0.289108,-0.001285,1.040954));
  hpcpush(hpxyz(-0.289108,0.001285,1.040954));

  bshape(shPirateX, 21);
  hpcpush(hpxyz(-0.217493,-0.115996,1.029931));
  hpcpush(hpxyz(-0.119624,-0.071774,1.009684));
  hpcpush(hpxyz(-0.076312,-0.023848,1.003191));
  hpcpush(hpxyz(-0.076312,0.023848,1.003191));
  hpcpush(hpxyz(-0.119624,0.071774,1.009684));
  hpcpush(hpxyz(-0.217493,0.115996,1.029931));
  hpcpush(hpxyz(-0.115996,0.217493,1.029931));
  hpcpush(hpxyz(-0.071774,0.119624,1.009684));
  hpcpush(hpxyz(-0.023848,0.076312,1.003191));
  hpcpush(hpxyz(0.023848,0.076312,1.003191));
  hpcpush(hpxyz(0.071774,0.119624,1.009684));
  hpcpush(hpxyz(0.115996,0.217493,1.029931));
  hpcpush(hpxyz(0.217493,0.115996,1.029931));
  hpcpush(hpxyz(0.119624,0.071774,1.009684));
  hpcpush(hpxyz(0.076312,0.023848,1.003191));
  hpcpush(hpxyz(0.076312,-0.023848,1.003191));
  hpcpush(hpxyz(0.119624,-0.071774,1.009684));
  hpcpush(hpxyz(0.217493,-0.115996,1.029931));
  hpcpush(hpxyz(0.115996,-0.217493,1.029931));
  hpcpush(hpxyz(0.071774,-0.119624,1.009684));
  hpcpush(hpxyz(0.023848,-0.076312,1.003191));
  hpcpush(hpxyz(-0.023848,-0.076312,1.003191));
  hpcpush(hpxyz(-0.071774,-0.119624,1.009684));
  hpcpush(hpxyz(-0.115996,-0.217493,1.029931));
  hpcpush(hpxyz(-0.217493,-0.115996,1.029931));
  
  bshape(shPirateHood, 47);
  hpcpush(hpxyz(0.028515,-0.002137,1.000409));
  hpcpush(hpxyz(0.030041,0.018069,1.000614));
  hpcpush(hpxyz(0.041515,0.042413,1.001760));
  hpcpush(hpxyz(0.018125,0.065806,1.002327));
  hpcpush(hpxyz(-0.016208,0.072033,1.002722));
  hpcpush(hpxyz(-0.045904,0.078062,1.004092));
  hpcpush(hpxyz(-0.082076,0.083600,1.006839));
  hpcpush(hpxyz(-0.135647,0.084840,1.012718));
  hpcpush(hpxyz(-0.187346,0.092498,1.021594));
  hpcpush(hpxyz(-0.230428,0.116494,1.032796));
  hpcpush(hpxyz(-0.151031,0.111393,1.017457));
  hpcpush(hpxyz(-0.111628,0.086283,1.009904));
  hpcpush(hpxyz(-0.087869,0.069439,1.006252));
  hpcpush(hpxyz(-0.097756,0.014558,1.004872));
  hpcpush(hpxyz(-0.097756,-0.014558,1.004872));
  hpcpush(hpxyz(-0.087869,-0.069439,1.006252));
  hpcpush(hpxyz(-0.111628,-0.086283,1.009904));
  hpcpush(hpxyz(-0.151031,-0.111393,1.017457));
  hpcpush(hpxyz(-0.230428,-0.116494,1.032796));
  hpcpush(hpxyz(-0.187346,-0.092498,1.021594));
  hpcpush(hpxyz(-0.135647,-0.084840,1.012718));
  hpcpush(hpxyz(-0.082076,-0.083600,1.006839));
  hpcpush(hpxyz(-0.045904,-0.078062,1.004092));
  hpcpush(hpxyz(-0.016208,-0.072033,1.002722));
  hpcpush(hpxyz(0.018125,-0.065806,1.002327));
  hpcpush(hpxyz(0.041515,-0.042413,1.001760));
  hpcpush(hpxyz(0.030041,-0.018069,1.000614));
  hpcpush(hpxyz(0.028515,0.002137,1.000409));
  hpcpush(hpxyz(0.028515,-0.002137,1.000409));

  bshape(shEyepatch, 46);
  hpcpush(hpxyz(0.029860,-0.048970,1.001643));
  hpcpush(hpxyz(0.063361,0.014346,1.002108));
  hpcpush(hpxyz(0.059794,0.031093,1.002268));
  hpcpush(hpxyz(0.017892,-0.040556,1.000982));
  hpcpush(hpxyz(0.029860,-0.048970,1.001643));

  bshape(shPHead, 44);
  hpcpush(hpxyz(0.060794,0.001192,1.001847));
  hpcpush(hpxyz(0.058426,0.023847,1.001989));
  hpcpush(hpxyz(0.050054,0.030986,1.001731));
  hpcpush(hpxyz(0.042896,0.038130,1.001646));
  hpcpush(hpxyz(0.044109,0.042917,1.001892));
  hpcpush(hpxyz(0.032180,0.050058,1.001769));
  hpcpush(hpxyz(0.017884,0.059612,1.001935));
  hpcpush(hpxyz(0.005963,0.064401,1.002089));
  hpcpush(hpxyz(-0.009546,0.068015,1.002356));
  hpcpush(hpxyz(-0.022689,0.070455,1.002736));
  hpcpush(hpxyz(-0.044247,0.070556,1.003462));
  hpcpush(hpxyz(-0.053847,0.068206,1.003769));
  hpcpush(hpxyz(-0.047819,0.065752,1.003300));
  hpcpush(hpxyz(-0.040573,0.056087,1.002393));
  hpcpush(hpxyz(-0.040563,0.053686,1.002261));
  hpcpush(hpxyz(-0.053753,0.053753,1.002885));
  hpcpush(hpxyz(-0.067016,0.056246,1.003820));
  hpcpush(hpxyz(-0.090053,0.054032,1.005499));
  hpcpush(hpxyz(-0.097365,0.051688,1.006057));
  hpcpush(hpxyz(-0.072989,0.046665,1.003746));
  hpcpush(hpxyz(-0.065710,0.040621,1.002979));
  hpcpush(hpxyz(-0.063272,0.034621,1.002598));
  hpcpush(hpxyz(-0.064461,0.031037,1.002556));
  hpcpush(hpxyz(-0.074098,0.028683,1.003152));
  hpcpush(hpxyz(-0.094756,0.031185,1.004963));
  hpcpush(hpxyz(-0.113149,0.027685,1.006762));
  hpcpush(hpxyz(-0.114376,0.026487,1.006868));
  hpcpush(hpxyz(-0.088611,0.020357,1.004125));
  hpcpush(hpxyz(-0.087387,0.017956,1.003972));
  hpcpush(hpxyz(-0.103257,0.018010,1.005478));
  hpcpush(hpxyz(-0.127970,0.014487,1.008259));
  hpcpush(hpxyz(-0.164656,0.006098,1.013484));
  hpcpush(hpxyz(-0.174996,0.001224,1.015197));
  hpcpush(hpxyz(-0.174996,-0.001224,1.015197));
  hpcpush(hpxyz(-0.164656,-0.006098,1.013484));
  hpcpush(hpxyz(-0.127970,-0.014487,1.008259));
  hpcpush(hpxyz(-0.103257,-0.018010,1.005478));
  hpcpush(hpxyz(-0.087387,-0.017956,1.003972));
  hpcpush(hpxyz(-0.088611,-0.020357,1.004125));
  hpcpush(hpxyz(-0.114376,-0.026487,1.006868));
  hpcpush(hpxyz(-0.113149,-0.027685,1.006762));
  hpcpush(hpxyz(-0.094756,-0.031185,1.004963));
  hpcpush(hpxyz(-0.074098,-0.028683,1.003152));
  hpcpush(hpxyz(-0.064461,-0.031037,1.002556));
  hpcpush(hpxyz(-0.063272,-0.034621,1.002598));
  hpcpush(hpxyz(-0.065710,-0.040621,1.002979));
  hpcpush(hpxyz(-0.072989,-0.046665,1.003746));
  hpcpush(hpxyz(-0.097365,-0.051688,1.006057));
  hpcpush(hpxyz(-0.090053,-0.054032,1.005499));
  hpcpush(hpxyz(-0.067016,-0.056246,1.003820));
  hpcpush(hpxyz(-0.053753,-0.053753,1.002885));
  hpcpush(hpxyz(-0.040563,-0.053686,1.002261));
  hpcpush(hpxyz(-0.040573,-0.056087,1.002393));
  hpcpush(hpxyz(-0.047819,-0.065752,1.003300));
  hpcpush(hpxyz(-0.053847,-0.068206,1.003769));
  hpcpush(hpxyz(-0.044247,-0.070556,1.003462));
  hpcpush(hpxyz(-0.022689,-0.070455,1.002736));
  hpcpush(hpxyz(-0.009546,-0.068015,1.002356));
  hpcpush(hpxyz(0.005963,-0.064401,1.002089));
  hpcpush(hpxyz(0.017884,-0.059612,1.001935));
  hpcpush(hpxyz(0.032180,-0.050058,1.001769));
  hpcpush(hpxyz(0.044109,-0.042917,1.001892));
  hpcpush(hpxyz(0.042896,-0.038130,1.001646));
  hpcpush(hpxyz(0.050054,-0.030986,1.001731));
  hpcpush(hpxyz(0.058426,-0.023847,1.001989));
  hpcpush(hpxyz(0.060794,-0.001192,1.001847));
  hpcpush(hpxyz(0.060794,0.001192,1.001847));

  shGolemhead = shDisk; shGolemhead.prio = 43;

  bshape(shFemaleHair, 44);
  hpcpush(hpxyz(-0.185924,0.002463,1.017140));
  hpcpush(hpxyz(-0.273576,0.019176,1.036924));
  hpcpush(hpxyz(-0.186050,0.025874,1.017489));
  hpcpush(hpxyz(-0.268509,0.057538,1.037019));
  hpcpush(hpxyz(-0.183840,0.054288,1.018206));
  hpcpush(hpxyz(-0.258480,0.097250,1.037434));
  hpcpush(hpxyz(-0.174976,0.069005,1.017535));
  hpcpush(hpxyz(-0.246145,0.133329,1.038443));
  hpcpush(hpxyz(0.029891,0.058585,1.002161));
  hpcpush(hpxyz(0.045415,0.043025,1.001955));
  hpcpush(hpxyz(0.051358,0.025082,1.001632));
  hpcpush(hpxyz(0.051358,-0.025082,1.001632));
  hpcpush(hpxyz(0.045415,-0.043025,1.001955));
  hpcpush(hpxyz(0.029891,-0.058585,1.002161));
  hpcpush(hpxyz(-0.246145,-0.133329,1.038443));
  hpcpush(hpxyz(-0.174976,-0.069005,1.017535));
  hpcpush(hpxyz(-0.258480,-0.097250,1.037434));
  hpcpush(hpxyz(-0.183840,-0.054288,1.018206));
  hpcpush(hpxyz(-0.268509,-0.057538,1.037019));
  hpcpush(hpxyz(-0.186050,-0.025874,1.017489));
  hpcpush(hpxyz(-0.273576,-0.019176,1.036924));
  hpcpush(hpxyz(-0.185924,-0.002463,1.017140));
  hpcpush(hpxyz(-0.185924,0.002463,1.017140));

  bshape(shPFace, 45);
  hpcpush(hpxyz(0.011878,-0.000000,1.000071));
  hpcpush(hpxyz(0.011880,0.010692,1.000128));
  hpcpush(hpxyz(0.014262,0.022581,1.000357));
  hpcpush(hpxyz(0.015455,0.027343,1.000493));
  hpcpush(hpxyz(0.017842,0.034494,1.000754));
  hpcpush(hpxyz(0.021425,0.041659,1.001097));
  hpcpush(hpxyz(0.025005,0.044056,1.001282));
  hpcpush(hpxyz(0.029785,0.047656,1.001578));
  hpcpush(hpxyz(0.032176,0.048860,1.001710));
  hpcpush(hpxyz(0.036964,0.051273,1.001996));
  hpcpush(hpxyz(0.044133,0.048905,1.002167));
  hpcpush(hpxyz(0.046519,0.046519,1.002162));
  hpcpush(hpxyz(0.051292,0.041749,1.002185));
  hpcpush(hpxyz(0.056061,0.034591,1.002167));
  hpcpush(hpxyz(0.060844,0.028632,1.002258));
  hpcpush(hpxyz(0.064425,0.020282,1.002278));
  hpcpush(hpxyz(0.064417,0.016701,1.002212));
  hpcpush(hpxyz(0.069220,0.009548,1.002438));
  hpcpush(hpxyz(0.075246,0.003583,1.002833));
  hpcpush(hpxyz(0.077662,0.001195,1.003012));
  hpcpush(hpxyz(0.080082,-0.000000,1.003201));
  hpcpush(hpxyz(0.080082,0.000000,1.003201));
  hpcpush(hpxyz(0.077662,-0.001195,1.003012));
  hpcpush(hpxyz(0.075246,-0.003583,1.002833));
  hpcpush(hpxyz(0.069220,-0.009548,1.002438));
  hpcpush(hpxyz(0.064417,-0.016701,1.002212));
  hpcpush(hpxyz(0.064425,-0.020282,1.002278));
  hpcpush(hpxyz(0.060844,-0.028632,1.002258));
  hpcpush(hpxyz(0.056061,-0.034591,1.002167));
  hpcpush(hpxyz(0.051292,-0.041749,1.002185));
  hpcpush(hpxyz(0.046519,-0.046519,1.002162));
  hpcpush(hpxyz(0.044133,-0.048905,1.002167));
  hpcpush(hpxyz(0.036964,-0.051273,1.001996));
  hpcpush(hpxyz(0.032176,-0.048860,1.001710));
  hpcpush(hpxyz(0.029785,-0.047656,1.001578));
  hpcpush(hpxyz(0.025005,-0.044056,1.001282));
  hpcpush(hpxyz(0.021425,-0.041659,1.001097));
  hpcpush(hpxyz(0.017842,-0.034494,1.000754));
  hpcpush(hpxyz(0.015455,-0.027343,1.000493));
  hpcpush(hpxyz(0.014262,-0.022581,1.000357));
  hpcpush(hpxyz(0.011880,-0.010692,1.000128));
  hpcpush(hpxyz(0.011878,0.000000,1.000071));
  hpcpush(hpxyz(0.011878,-0.000000,1.000071));

  bshape(shEyes, 46);
  hpcpush(hpxyz(0.070467,0.026276,1.002824));
  hpcpush(hpxyz(0.054837,0.027418,1.001878));
  hpcpush(hpxyz(0.040494,0.034539,1.001415));
  hpcpush(hpxyz(0.034561,0.047670,1.001732));
  hpcpush(hpxyz(0.032259,0.070492,1.003000));
  hpcpush(hpxyz(0.044434,0.096073,1.005587));
  hpcpush(hpxyz(0.065124,0.106127,1.007722));
  hpcpush(hpxyz(0.089628,0.109007,1.009909));
  hpcpush(hpxyz(0.110425,0.098291,1.010868));
  hpcpush(hpxyz(0.121434,0.088647,1.011239));
  hpcpush(hpxyz(0.124892,0.073965,1.010479));
  hpcpush(hpxyz(0.123474,0.064158,1.009635));
  hpcpush(hpxyz(0.117069,0.050690,1.008104));
  hpcpush(hpxyz(0.113313,0.047013,1.007497));
  hpcpush(hpxyz(0.098463,0.037224,1.005525));
  hpcpush(hpxyz(0.081366,0.029914,1.003751));
  hpcpush(hpxyz(0.070467,0.026276,1.002824));
  hpcpush(hpxyz(0.070467,-0.026276,1.002824));
  hpcpush(hpxyz(0.081366,-0.029914,1.003751));
  hpcpush(hpxyz(0.098463,-0.037224,1.005525));
  hpcpush(hpxyz(0.113313,-0.047013,1.007497));
  hpcpush(hpxyz(0.117069,-0.050690,1.008104));
  hpcpush(hpxyz(0.123474,-0.064158,1.009635));
  hpcpush(hpxyz(0.124892,-0.073965,1.010479));
  hpcpush(hpxyz(0.121434,-0.088647,1.011239));
  hpcpush(hpxyz(0.110425,-0.098291,1.010868));
  hpcpush(hpxyz(0.089628,-0.109007,1.009909));
  hpcpush(hpxyz(0.065124,-0.106127,1.007722));
  hpcpush(hpxyz(0.044434,-0.096073,1.005587));
  hpcpush(hpxyz(0.032259,-0.070492,1.003000));
  hpcpush(hpxyz(0.034561,-0.047670,1.001732));
  hpcpush(hpxyz(0.040494,-0.034539,1.001415));
  hpcpush(hpxyz(0.054837,-0.027418,1.001878));
  hpcpush(hpxyz(0.070467,-0.026276,1.002824));
  hpcpush(hpxyz(0.070467,0.026276,1.002824));
  
  bshape(shShark, 47);
  hpcpush(hpxyz(-0.254548,0.002533,1.031892));
  hpcpush(hpxyz(-0.295445,0.115041,1.049058));
  hpcpush(hpxyz(-0.214304,0.034887,1.023300));
  hpcpush(hpxyz(-0.113418,0.026545,1.006761));
  hpcpush(hpxyz(-0.034699,0.062219,1.002534));
  hpcpush(hpxyz(-0.010782,0.079071,1.003179));
  hpcpush(hpxyz(0.009598,0.087578,1.003874));
  hpcpush(hpxyz(0.037297,0.096250,1.005313));
  hpcpush(hpxyz(-0.001207,0.119535,1.007120));
  hpcpush(hpxyz(-0.032645,0.120908,1.007812));
  hpcpush(hpxyz(-0.002431,0.144615,1.010406));
  hpcpush(hpxyz(0.027983,0.145997,1.010989));
  hpcpush(hpxyz(0.058411,0.137510,1.011099));
  hpcpush(hpxyz(0.096163,0.115639,1.011247));
  hpcpush(hpxyz(0.130542,0.089062,1.012410));
  hpcpush(hpxyz(0.175135,0.075234,1.018004));
  hpcpush(hpxyz(0.227410,0.066590,1.027691));
  hpcpush(hpxyz(0.215688,0.036156,1.023635));
  hpcpush(hpxyz(0.187577,0.041958,1.018305));
  hpcpush(hpxyz(0.184662,0.017235,1.017053));
  hpcpush(hpxyz(0.208627,0.008693,1.021568));
  hpcpush(hpxyz(0.214217,0.028645,1.023088));
  hpcpush(hpxyz(0.229902,0.056533,1.027643));
  hpcpush(hpxyz(0.249359,0.045568,1.031628));
  hpcpush(hpxyz(0.259206,0.035577,1.033660));
  hpcpush(hpxyz(0.276638,0.026895,1.037908));
  hpcpush(hpxyz(0.302288,0.020758,1.044897));
  hpcpush(hpxyz(0.330687,0.013175,1.053341));
  hpcpush(hpxyz(0.348759,-0.003993,1.059079));
  hpcpush(hpxyz(0.348759,0.003993,1.059079));
  hpcpush(hpxyz(0.330687,-0.013175,1.053341));
  hpcpush(hpxyz(0.302288,-0.020758,1.044897));
  hpcpush(hpxyz(0.276638,-0.026895,1.037908));
  hpcpush(hpxyz(0.259206,-0.035577,1.033660));
  hpcpush(hpxyz(0.249359,-0.045568,1.031628));
  hpcpush(hpxyz(0.229902,-0.056533,1.027643));
  hpcpush(hpxyz(0.214217,-0.028645,1.023088));
  hpcpush(hpxyz(0.208627,-0.008693,1.021568));
  hpcpush(hpxyz(0.184662,-0.017235,1.017053));
  hpcpush(hpxyz(0.187577,-0.041958,1.018305));
  hpcpush(hpxyz(0.215688,-0.036156,1.023635));
  hpcpush(hpxyz(0.227410,-0.066590,1.027691));
  hpcpush(hpxyz(0.175135,-0.075234,1.018004));
  hpcpush(hpxyz(0.130542,-0.089062,1.012410));
  hpcpush(hpxyz(0.096163,-0.115639,1.011247));
  hpcpush(hpxyz(0.058411,-0.137510,1.011099));
  hpcpush(hpxyz(0.027983,-0.145997,1.010989));
  hpcpush(hpxyz(-0.002431,-0.144615,1.010406));
  hpcpush(hpxyz(-0.032645,-0.120908,1.007812));
  hpcpush(hpxyz(-0.001207,-0.119535,1.007120));
  hpcpush(hpxyz(0.037297,-0.096250,1.005313));
  hpcpush(hpxyz(0.009598,-0.087578,1.003874));
  hpcpush(hpxyz(-0.010782,-0.079071,1.003179));
  hpcpush(hpxyz(-0.034699,-0.062219,1.002534));
  hpcpush(hpxyz(-0.113418,-0.026545,1.006761));
  hpcpush(hpxyz(-0.214304,-0.034887,1.023300));
  hpcpush(hpxyz(-0.295445,-0.115041,1.049058));
  hpcpush(hpxyz(-0.254548,-0.002533,1.031892));
  hpcpush(hpxyz(-0.254548,0.002533,1.031892));

  bshape(shBugBody, 33);
  hpcpush(hpxyz(-0.036973,0.000272,1.000683));
  hpcpush(hpxyz(-0.037088,0.049282,1.001900));
  hpcpush(hpxyz(-0.103861,0.110700,1.011455));
  hpcpush(hpxyz(-0.187497,0.070862,1.019891));
  hpcpush(hpxyz(-0.199435,0.092353,1.023867));
  hpcpush(hpxyz(-0.102619,0.135884,1.014394));
  hpcpush(hpxyz(-0.010856,0.052276,1.001424));
  hpcpush(hpxyz(0.027094,0.127840,1.008502));
  hpcpush(hpxyz(-0.010117,0.161004,1.012929));
  hpcpush(hpxyz(-0.122621,0.155285,1.019387));
  hpcpush(hpxyz(-0.129838,0.187041,1.025593));
  hpcpush(hpxyz(-0.003559,0.192507,1.018367));
  hpcpush(hpxyz(0.048774,0.146275,1.011818));
  hpcpush(hpxyz(0.045625,0.106117,1.006649));
  hpcpush(hpxyz(0.010970,0.038441,1.000799));
  hpcpush(hpxyz(0.089547,0.116575,1.010746));
  hpcpush(hpxyz(0.094553,0.161297,1.017328));
  hpcpush(hpxyz(0.079585,0.174794,1.018276));
  hpcpush(hpxyz(0.010872,0.213071,1.022505));
  hpcpush(hpxyz(0.019129,0.245278,1.029819));
  hpcpush(hpxyz(0.122810,0.186751,1.024675));
  hpcpush(hpxyz(0.134973,0.146945,1.019711));
  hpcpush(hpxyz(0.133411,0.118806,1.015831));
  hpcpush(hpxyz(0.060081,0.038600,1.002547));
  hpcpush(hpxyz(0.122451,0.041792,1.008336));
  hpcpush(hpxyz(0.137147,0.087747,1.013168));
  hpcpush(hpxyz(0.150029,0.114701,1.017676));
  hpcpush(hpxyz(0.172516,0.135274,1.023748));
  hpcpush(hpxyz(0.194165,0.144658,1.028896));
  hpcpush(hpxyz(0.206227,0.137750,1.030293));
  hpcpush(hpxyz(0.191047,0.128830,1.026205));
  hpcpush(hpxyz(0.173558,0.119946,1.022012));
  hpcpush(hpxyz(0.156400,0.103721,1.017457));
  hpcpush(hpxyz(0.146061,0.085696,1.014237));
  hpcpush(hpxyz(0.131320,0.034801,1.009186));
  hpcpush(hpxyz(0.128188,0.004402,1.008192));
  hpcpush(hpxyz(0.128188,-0.004402,1.008192));
  hpcpush(hpxyz(0.131320,-0.034801,1.009186));
  hpcpush(hpxyz(0.146061,-0.085696,1.014237));
  hpcpush(hpxyz(0.156400,-0.103721,1.017457));
  hpcpush(hpxyz(0.173558,-0.119946,1.022012));
  hpcpush(hpxyz(0.191047,-0.128830,1.026205));
  hpcpush(hpxyz(0.206227,-0.137750,1.030293));
  hpcpush(hpxyz(0.194165,-0.144658,1.028896));
  hpcpush(hpxyz(0.172516,-0.135274,1.023748));
  hpcpush(hpxyz(0.150029,-0.114701,1.017676));
  hpcpush(hpxyz(0.137147,-0.087747,1.013168));
  hpcpush(hpxyz(0.122451,-0.041792,1.008336));
  hpcpush(hpxyz(0.060081,-0.038600,1.002547));
  hpcpush(hpxyz(0.133411,-0.118806,1.015831));
  hpcpush(hpxyz(0.134973,-0.146945,1.019711));
  hpcpush(hpxyz(0.122810,-0.186751,1.024675));
  hpcpush(hpxyz(0.019129,-0.245278,1.029819));
  hpcpush(hpxyz(0.010872,-0.213071,1.022505));
  hpcpush(hpxyz(0.079585,-0.174794,1.018276));
  hpcpush(hpxyz(0.094553,-0.161297,1.017328));
  hpcpush(hpxyz(0.089547,-0.116575,1.010746));
  hpcpush(hpxyz(0.010970,-0.038441,1.000799));
  hpcpush(hpxyz(0.045625,-0.106117,1.006649));
  hpcpush(hpxyz(0.048774,-0.146275,1.011818));
  hpcpush(hpxyz(-0.003559,-0.192507,1.018367));
  hpcpush(hpxyz(-0.129838,-0.187041,1.025593));
  hpcpush(hpxyz(-0.122621,-0.155285,1.019387));
  hpcpush(hpxyz(-0.010117,-0.161004,1.012929));
  hpcpush(hpxyz(0.027094,-0.127840,1.008502));
  hpcpush(hpxyz(-0.010856,-0.052276,1.001424));
  hpcpush(hpxyz(-0.102619,-0.135884,1.014394));
  hpcpush(hpxyz(-0.199435,-0.092353,1.023867));
  hpcpush(hpxyz(-0.187497,-0.070862,1.019891));
  hpcpush(hpxyz(-0.103861,-0.110700,1.011455));
  hpcpush(hpxyz(-0.037088,-0.049282,1.001900));
  hpcpush(hpxyz(-0.036973,-0.000272,1.000683));
  hpcpush(hpxyz(-0.036973,0.000272,1.000683));

  bshape(shBugArmor, 34);
  hpcpush(hpxyz(-0.257478,-0.001337,1.032616));
  hpcpush(hpxyz(-0.204917,0.009783,1.020827));
  hpcpush(hpxyz(-0.203815,0.017248,1.020705));
  hpcpush(hpxyz(-0.113586,0.008028,1.006462));
  hpcpush(hpxyz(-0.187093,0.033579,1.017905));
  hpcpush(hpxyz(-0.182177,0.042285,1.017338));
  hpcpush(hpxyz(-0.170953,0.054731,1.015982));
  hpcpush(hpxyz(-0.148063,0.061036,1.012743));
  hpcpush(hpxyz(-0.114175,0.062548,1.008439));
  hpcpush(hpxyz(-0.089190,0.053147,1.005375));
  hpcpush(hpxyz(-0.055805,0.032092,1.002070));
  hpcpush(hpxyz(-0.046611,0.046680,1.002173));
  hpcpush(hpxyz(-0.034899,0.056544,1.002205));
  hpcpush(hpxyz(-0.026686,0.062743,1.002322));
  hpcpush(hpxyz(-0.011200,0.065507,1.002206));
  hpcpush(hpxyz(0.015073,0.067380,1.002381));
  hpcpush(hpxyz(0.038084,0.055978,1.002289));
  hpcpush(hpxyz(0.058951,0.034968,1.002346));
  hpcpush(hpxyz(0.080396,0.053686,1.004662));
  hpcpush(hpxyz(0.091257,0.062541,1.006101));
  hpcpush(hpxyz(0.107216,0.066788,1.007946));
  hpcpush(hpxyz(0.136013,0.061816,1.011099));
  hpcpush(hpxyz(0.150105,0.048890,1.012384));
  hpcpush(hpxyz(0.154042,0.040462,1.012604));
  hpcpush(hpxyz(0.173238,0.060925,1.016722));
  hpcpush(hpxyz(0.190355,0.071679,1.020477));
  hpcpush(hpxyz(0.214645,0.070389,1.025196));
  hpcpush(hpxyz(0.221506,0.066951,1.026424));
  hpcpush(hpxyz(0.203766,0.058557,1.022228));
  hpcpush(hpxyz(0.189101,0.049201,1.018911));
  hpcpush(hpxyz(0.181298,0.037761,1.017003));
  hpcpush(hpxyz(0.177552,0.025312,1.015955));
  hpcpush(hpxyz(0.177715,0.016710,1.015806));
  hpcpush(hpxyz(0.176915,-0.004189,1.015537));
  hpcpush(hpxyz(0.176915,0.004189,1.015537));
  hpcpush(hpxyz(0.177715,-0.016710,1.015806));
  hpcpush(hpxyz(0.177552,-0.025312,1.015955));
  hpcpush(hpxyz(0.181298,-0.037761,1.017003));
  hpcpush(hpxyz(0.189101,-0.049201,1.018911));
  hpcpush(hpxyz(0.203766,-0.058557,1.022228));
  hpcpush(hpxyz(0.221506,-0.066951,1.026424));
  hpcpush(hpxyz(0.214645,-0.070389,1.025196));
  hpcpush(hpxyz(0.190355,-0.071679,1.020477));
  hpcpush(hpxyz(0.173238,-0.060925,1.016722));
  hpcpush(hpxyz(0.154042,-0.040462,1.012604));
  hpcpush(hpxyz(0.150105,-0.048890,1.012384));
  hpcpush(hpxyz(0.136013,-0.061816,1.011099));
  hpcpush(hpxyz(0.107216,-0.066788,1.007946));
  hpcpush(hpxyz(0.091257,-0.062541,1.006101));
  hpcpush(hpxyz(0.080396,-0.053686,1.004662));
  hpcpush(hpxyz(0.058951,-0.034968,1.002346));
  hpcpush(hpxyz(0.038084,-0.055978,1.002289));
  hpcpush(hpxyz(0.015073,-0.067380,1.002381));
  hpcpush(hpxyz(-0.011200,-0.065507,1.002206));
  hpcpush(hpxyz(-0.026686,-0.062743,1.002322));
  hpcpush(hpxyz(-0.034899,-0.056544,1.002205));
  hpcpush(hpxyz(-0.046611,-0.046680,1.002173));
  hpcpush(hpxyz(-0.055805,-0.032092,1.002070));
  hpcpush(hpxyz(-0.089190,-0.053147,1.005375));
  hpcpush(hpxyz(-0.114175,-0.062548,1.008439));
  hpcpush(hpxyz(-0.148063,-0.061036,1.012743));
  hpcpush(hpxyz(-0.170953,-0.054731,1.015982));
  hpcpush(hpxyz(-0.182177,-0.042285,1.017338));
  hpcpush(hpxyz(-0.187093,-0.033579,1.017905));
  hpcpush(hpxyz(-0.113586,-0.008028,1.006462));
  hpcpush(hpxyz(-0.203815,-0.017248,1.020705));
  hpcpush(hpxyz(-0.204917,-0.009783,1.020827));
  hpcpush(hpxyz(-0.257478,0.001337,1.032616));
  hpcpush(hpxyz(-0.257478,-0.001337,1.032616));

  bshape(shWolfBody, 33);
  hpcpush(hwolf(-0.311492,0.001303,1.047391));
  hpcpush(hwolf(-0.165080,0.009783,1.013581));
  hpcpush(hwolf(-0.195342,0.027200,1.019264));
  hpcpush(hwolf(-0.153616,0.025603,1.012054));
  hpcpush(hwolf(-0.173302,0.051622,1.016218));
  hpcpush(hwolf(-0.128440,0.037563,1.008914));
  hpcpush(hwolf(-0.152961,0.068527,1.013949));
  hpcpush(hwolf(-0.107392,0.045853,1.006795));
  hpcpush(hwolf(-0.121764,0.090105,1.011408));
  hpcpush(hwolf(-0.079263,0.050440,1.004404));
  hpcpush(hwolf(-0.084555,0.086971,1.007330));
  hpcpush(hwolf(-0.043029,0.046615,1.002010));
  hpcpush(hwolf(-0.049440,0.102497,1.006454));
  hpcpush(hwolf(-0.020293,0.047747,1.001345));
  hpcpush(hwolf(-0.012028,0.101033,1.005163));
  hpcpush(hwolf(0.009546,0.047732,1.001184));
  hpcpush(hwolf(0.027630,0.091298,1.004539));
  hpcpush(hwolf(0.043025,0.045415,1.001955));
  hpcpush(hwolf(0.071007,0.077024,1.005472));
  hpcpush(hwolf(0.071856,0.028742,1.002990));
  hpcpush(hwolf(0.113578,0.045915,1.007476));
  hpcpush(hwolf(0.090012,0.007201,1.004069));
  hpcpush(hwolf(0.090012,-0.007201,1.004069));
  hpcpush(hwolf(0.113578,-0.045915,1.007476));
  hpcpush(hwolf(0.071856,-0.028742,1.002990));
  hpcpush(hwolf(0.071007,-0.077024,1.005472));
  hpcpush(hwolf(0.043025,-0.045415,1.001955));
  hpcpush(hwolf(0.027630,-0.091298,1.004539));
  hpcpush(hwolf(0.009546,-0.047732,1.001184));
  hpcpush(hwolf(-0.012028,-0.101033,1.005163));
  hpcpush(hwolf(-0.020293,-0.047747,1.001345));
  hpcpush(hwolf(-0.049440,-0.102497,1.006454));
  hpcpush(hwolf(-0.043029,-0.046615,1.002010));
  hpcpush(hwolf(-0.084555,-0.086971,1.007330));
  hpcpush(hwolf(-0.079263,-0.050440,1.004404));
  hpcpush(hwolf(-0.121764,-0.090105,1.011408));
  hpcpush(hwolf(-0.107392,-0.045853,1.006795));
  hpcpush(hwolf(-0.152961,-0.068527,1.013949));
  hpcpush(hwolf(-0.128440,-0.037563,1.008914));
  hpcpush(hwolf(-0.173302,-0.051622,1.016218));
  hpcpush(hwolf(-0.153616,-0.025603,1.012054));
  hpcpush(hwolf(-0.195342,-0.027200,1.019264));
  hpcpush(hwolf(-0.165080,-0.009783,1.013581));
  hpcpush(hwolf(-0.311492,-0.001303,1.047391));
  hpcpush(hwolf(-0.311492,0.001303,1.047391));

  bshape(shWolfHead, 34);
  hpcpush(hwolf(0.183292,0.002460,1.016662));
  hpcpush(hwolf(0.178071,0.011053,1.015791));
  hpcpush(hwolf(0.185996,0.019708,1.017341));
  hpcpush(hwolf(0.170281,0.015926,1.014519));
  hpcpush(hwolf(0.170341,0.024510,1.014700));
  hpcpush(hwolf(0.158693,0.019531,1.012702));
  hpcpush(hwolf(0.158807,0.032983,1.013068));
  hpcpush(hwolf(0.147214,0.020683,1.010989));
  hpcpush(hwolf(0.142274,0.036481,1.010729));
  hpcpush(hwolf(0.135869,0.025475,1.009510));
  hpcpush(hwolf(0.129693,0.037575,1.009075));
  hpcpush(hwolf(0.118394,0.028994,1.007401));
  hpcpush(hwolf(0.114793,0.043501,1.007507));
  hpcpush(hwolf(0.102362,0.033719,1.005791));
  hpcpush(hwolf(0.100073,0.053051,1.006394));
  hpcpush(hwolf(0.087692,0.037239,1.004528));
  hpcpush(hwolf(0.080602,0.063760,1.005267));
  hpcpush(hwolf(0.065828,0.032315,1.002685));
  hpcpush(hwolf(0.008362,0.058537,1.001747));
  hpcpush(hwolf(0.046539,0.014320,1.001185));
  hpcpush(hwolf(0.028597,0.008341,1.000444));
  hpcpush(hwolf(0.051325,-0.000000,1.001316));
  hpcpush(hwolf(0.051325,0.000000,1.001316));
  hpcpush(hwolf(0.028597,-0.008341,1.000444));
  hpcpush(hwolf(0.046539,-0.014320,1.001185));
  hpcpush(hwolf(0.008362,-0.058537,1.001747));
  hpcpush(hwolf(0.065828,-0.032315,1.002685));
  hpcpush(hwolf(0.080602,-0.063760,1.005267));
  hpcpush(hwolf(0.087692,-0.037239,1.004528));
  hpcpush(hwolf(0.100073,-0.053051,1.006394));
  hpcpush(hwolf(0.102362,-0.033719,1.005791));
  hpcpush(hwolf(0.114793,-0.043501,1.007507));
  hpcpush(hwolf(0.118394,-0.028994,1.007401));
  hpcpush(hwolf(0.129693,-0.037575,1.009075));
  hpcpush(hwolf(0.135869,-0.025475,1.009510));
  hpcpush(hwolf(0.142274,-0.036481,1.010729));
  hpcpush(hwolf(0.147214,-0.020683,1.010989));
  hpcpush(hwolf(0.158807,-0.032983,1.013068));
  hpcpush(hwolf(0.158693,-0.019531,1.012702));
  hpcpush(hwolf(0.170341,-0.024510,1.014700));
  hpcpush(hwolf(0.170281,-0.015926,1.014519));
  hpcpush(hwolf(0.185996,-0.019708,1.017341));
  hpcpush(hwolf(0.178071,-0.011053,1.015791));
  hpcpush(hwolf(0.183292,-0.002460,1.016662));
  hpcpush(hwolf(0.183292,0.002460,1.016662));

  bshape(shWolfLegs, 32);
  hpcpush(hwolf(-0.139559,-0.001214,1.009692));
  hpcpush(hwolf(-0.139599,0.016995,1.009840));
  hpcpush(hwolf(-0.228445,0.053973,1.027181));
  hpcpush(hwolf(-0.209280,0.056057,1.023201));
  hpcpush(hwolf(-0.216331,0.065024,1.025196));
  hpcpush(hwolf(-0.204121,0.065966,1.022750));
  hpcpush(hwolf(-0.204581,0.081084,1.023928));
  hpcpush(hwolf(-0.194817,0.069489,1.021167));
  hpcpush(hwolf(-0.113487,0.036219,1.007071));
  hpcpush(hwolf(-0.008338,0.022632,1.000291));
  hpcpush(hwolf(0.076062,0.091757,1.007077));
  hpcpush(hwolf(0.081210,0.107875,1.009075));
  hpcpush(hwolf(0.084610,0.090653,1.007659));
  hpcpush(hwolf(0.099450,0.094598,1.009376));
  hpcpush(hwolf(0.089336,0.078471,1.007045));
  hpcpush(hwolf(0.105258,0.072592,1.008141));
  hpcpush(hwolf(0.083028,0.062572,1.005390));
  hpcpush(hwolf(0.025016,0.001191,1.000314));
  hpcpush(hwolf(0.025016,-0.001191,1.000314));
  hpcpush(hwolf(0.083028,-0.062572,1.005390));
  hpcpush(hwolf(0.105258,-0.072592,1.008141));
  hpcpush(hwolf(0.089336,-0.078471,1.007045));
  hpcpush(hwolf(0.099450,-0.094598,1.009376));
  hpcpush(hwolf(0.084610,-0.090653,1.007659));
  hpcpush(hwolf(0.081210,-0.107875,1.009075));
  hpcpush(hwolf(0.076062,-0.091757,1.007077));
  hpcpush(hwolf(-0.008338,-0.022632,1.000291));
  hpcpush(hwolf(-0.113487,-0.036219,1.007071));
  hpcpush(hwolf(-0.194817,-0.069489,1.021167));
  hpcpush(hwolf(-0.204581,-0.081084,1.023928));
  hpcpush(hwolf(-0.204121,-0.065966,1.022750));
  hpcpush(hwolf(-0.216331,-0.065024,1.025196));
  hpcpush(hwolf(-0.209280,-0.056057,1.023201));
  hpcpush(hwolf(-0.228445,-0.053973,1.027181));
  hpcpush(hwolf(-0.139599,-0.016995,1.009840));
  hpcpush(hwolf(-0.139559,0.001214,1.009692));
  hpcpush(hwolf(-0.139559,-0.001214,1.009692));

  // group 2 layer 3

  bshape(shWolfEyes, 35);
  hpcpush(hwolf(0.172835,0.002452,1.014829));
  hpcpush(hwolf(0.156071,0.002439,1.012109));
  hpcpush(hwolf(0.154815,0.012190,1.011986));
  hpcpush(hwolf(0.138338,0.016989,1.009666));
  hpcpush(hwolf(0.135790,0.008487,1.009213));
  hpcpush(hwolf(0.147155,0.006081,1.010788));
  hpcpush(hwolf(0.153518,0.004874,1.011727));
  hpcpush(hwolf(0.156070,-0.000000,1.012106));
  hpcpush(hwolf(0.156070,0.000000,1.012106));
  hpcpush(hwolf(0.153518,-0.004874,1.011727));
  hpcpush(hwolf(0.147155,-0.006081,1.010788));
  hpcpush(hwolf(0.135790,-0.008487,1.009213));
  hpcpush(hwolf(0.138338,-0.016989,1.009666));
  hpcpush(hwolf(0.154815,-0.012190,1.011986));
  hpcpush(hwolf(0.156071,-0.002439,1.012109));
  hpcpush(hwolf(0.172835,-0.002452,1.014829));
  hpcpush(hwolf(0.172835,0.002452,1.014829));
  
  // Witch's Dress

  bshape(shWitchDress, 42);
  hpcpush(hpxyz(0.039326,-0.001751,1.000774));
  hpcpush(hpxyz(0.041168,0.053278,1.002264));
  hpcpush(hpxyz(0.035516,0.073044,1.003293));
  hpcpush(hpxyz(0.024685,0.088439,1.004207));
  hpcpush(hpxyz(0.009671,0.096889,1.004729));
  hpcpush(hpxyz(-0.002313,0.097795,1.004773));
  hpcpush(hpxyz(-0.008219,0.099482,1.004970));
  hpcpush(hpxyz(-0.016102,0.107500,1.005890));
  hpcpush(hpxyz(-0.016016,0.108729,1.006021));
  hpcpush(hpxyz(-0.022078,0.163499,1.013518));
  hpcpush(hpxyz(-0.052858,0.141939,1.011405));
  hpcpush(hpxyz(-0.084069,0.161675,1.016468));
  hpcpush(hpxyz(-0.098088,0.129874,1.013158));
  hpcpush(hpxyz(-0.108494,0.122098,1.013252));
  hpcpush(hpxyz(-0.117272,0.122997,1.014338));
  hpcpush(hpxyz(-0.128424,0.129237,1.016462));
  hpcpush(hpxyz(-0.140905,0.138269,1.019300));
  hpcpush(hpxyz(-0.152175,0.151195,1.022750));
  hpcpush(hpxyz(-0.161208,0.157511,1.025084));
  hpcpush(hpxyz(-0.178346,0.167608,1.029514));
  hpcpush(hpxyz(-0.195945,0.176675,1.034219));
  hpcpush(hpxyz(-0.219689,0.185527,1.040521));
  hpcpush(hpxyz(-0.234056,0.190460,1.044537));
  hpcpush(hpxyz(-0.219683,0.178715,1.039326));
  hpcpush(hpxyz(-0.211330,0.162725,1.034959));
  hpcpush(hpxyz(-0.206261,0.134376,1.029855));
  hpcpush(hpxyz(-0.201753,0.102919,1.025328));
  hpcpush(hpxyz(-0.205795,0.072925,1.023557));
  hpcpush(hpxyz(-0.213892,0.049798,1.023831));
  hpcpush(hpxyz(-0.218429,0.022623,1.023828));
  hpcpush(hpxyz(-0.219265,0.011429,1.023820));
  hpcpush(hpxyz(-0.219265,-0.011429,1.023820));
  hpcpush(hpxyz(-0.218429,-0.022623,1.023828));
  hpcpush(hpxyz(-0.213892,-0.049798,1.023831));
  hpcpush(hpxyz(-0.205795,-0.072925,1.023557));
  hpcpush(hpxyz(-0.201753,-0.102919,1.025328));
  hpcpush(hpxyz(-0.206261,-0.134376,1.029855));
  hpcpush(hpxyz(-0.211330,-0.162725,1.034959));
  hpcpush(hpxyz(-0.219683,-0.178715,1.039326));
  hpcpush(hpxyz(-0.234056,-0.190460,1.044537));
  hpcpush(hpxyz(-0.219689,-0.185527,1.040521));
  hpcpush(hpxyz(-0.195945,-0.176675,1.034219));
  hpcpush(hpxyz(-0.178346,-0.167608,1.029514));
  hpcpush(hpxyz(-0.161208,-0.157511,1.025084));
  hpcpush(hpxyz(-0.152175,-0.151195,1.022750));
  hpcpush(hpxyz(-0.140905,-0.138269,1.019300));
  hpcpush(hpxyz(-0.128424,-0.129237,1.016462));
  hpcpush(hpxyz(-0.117272,-0.122997,1.014338));
  hpcpush(hpxyz(-0.108494,-0.122098,1.013252));
  hpcpush(hpxyz(-0.098088,-0.129874,1.013158));
  hpcpush(hpxyz(-0.084069,-0.161675,1.016468));
  hpcpush(hpxyz(-0.052858,-0.141939,1.011405));
  hpcpush(hpxyz(-0.022078,-0.163499,1.013518));
  hpcpush(hpxyz(-0.016016,-0.108729,1.006021));
  hpcpush(hpxyz(-0.016102,-0.107500,1.005890));
  hpcpush(hpxyz(-0.008219,-0.099482,1.004970));
  hpcpush(hpxyz(-0.002313,-0.097795,1.004773));
  hpcpush(hpxyz(0.009671,-0.096889,1.004729));
  hpcpush(hpxyz(0.024685,-0.088439,1.004207));
  hpcpush(hpxyz(0.035516,-0.073044,1.003293));
  hpcpush(hpxyz(0.041168,-0.053278,1.002264));
  hpcpush(hpxyz(0.039326,0.001751,1.000774));
  hpcpush(hpxyz(0.039326,-0.001751,1.000774));

  // Pick Axe

  bshape(shPickAxe, 40);
  hpcpush(hpxyz(0.064364,0.237609,1.029855));
  hpcpush(hpxyz(0.183353,-0.046466,1.017732));
  hpcpush(hpxyz(0.171819,-0.050455,1.015907));
  hpcpush(hpxyz(0.142623,-0.056105,1.011676));
  hpcpush(hpxyz(0.122591,-0.057865,1.009147));
  hpcpush(hpxyz(0.106467,-0.058329,1.007342));
  hpcpush(hpxyz(0.118180,-0.067773,1.009237));
  hpcpush(hpxyz(0.135948,-0.071025,1.011695));
  hpcpush(hpxyz(0.161536,-0.071733,1.015500));
  hpcpush(hpxyz(0.188994,-0.071278,1.020196));
  hpcpush(hpxyz(0.212623,-0.063402,1.024318));
  hpcpush(hpxyz(0.239189,-0.047822,1.029319));
  hpcpush(hpxyz(0.248564,-0.040034,1.031206));
  hpcpush(hpxyz(0.265990,-0.019250,1.034950));
  hpcpush(hpxyz(0.272276,0.000110,1.036405));
  hpcpush(hpxyz(0.269338,0.000001,1.035637));
  hpcpush(hpxyz(0.247284,-0.019782,1.030311));
  hpcpush(hpxyz(0.224346,-0.034255,1.025429));
  hpcpush(hpxyz(0.208443,-0.042147,1.022362));
  hpcpush(hpxyz(0.086124,0.253692,1.035267));
  hpcpush(hpxyz(0.064364,0.237609,1.029855));
  
  bshape(shPike, 40);
  hpcpush(hpxyz(0.096293,0.278465,1.042504));
  hpcpush(hpxyz(0.083339,-0.050087,1.004716));
  hpcpush(hpxyz(0.079276,-0.383984,1.074117));
  hpcpush(hpxyz(0.095192,-0.378226,1.073367));
  hpcpush(hpxyz(0.073482,-0.534658,1.136336));
  hpcpush(hpxyz(0.070202,-0.534586,1.136094));
  hpcpush(hpxyz(0.045864,-0.377144,1.069739));
  hpcpush(hpxyz(0.061795,-0.383600,1.072832));
  hpcpush(hpxyz(0.062148,-0.049623,1.003157));
  hpcpush(hpxyz(0.069133,0.279061,1.040507));
  hpcpush(hpxyz(0.096293,0.278465,1.042504));

  bshape(shFlailBall, 46);
  hpcpush(hpxyz(-0.152664,-0.216202,1.034432));
  hpcpush(hpxyz(-0.169658,-0.186257,1.031250));
  hpcpush(hpxyz(-0.175291,-0.180580,1.031182));
  hpcpush(hpxyz(-0.179213,-0.204880,1.036385));
  hpcpush(hpxyz(-0.180636,-0.179891,1.031983));
  hpcpush(hpxyz(-0.208327,-0.205555,1.041947));
  hpcpush(hpxyz(-0.195199,-0.172755,1.033415));
  hpcpush(hpxyz(-0.194159,-0.164682,1.031900));
  hpcpush(hpxyz(-0.215525,-0.177426,1.038235));
  hpcpush(hpxyz(-0.196845,-0.160074,1.031684));
  hpcpush(hpxyz(-0.233600,-0.155277,1.038595));
  hpcpush(hpxyz(-0.200041,-0.144144,1.029949));
  hpcpush(hpxyz(-0.193092,-0.139738,1.028013));
  hpcpush(hpxyz(-0.215936,-0.131441,1.031458));
  hpcpush(hpxyz(-0.191101,-0.134685,1.026966));
  hpcpush(hpxyz(-0.209451,-0.103230,1.026901));
  hpcpush(hpxyz(-0.180537,-0.121970,1.023460));
  hpcpush(hpxyz(-0.172894,-0.124532,1.022448));
  hpcpush(hpxyz(-0.180135,-0.101552,1.021157));
  hpcpush(hpxyz(-0.167729,-0.122842,1.021383));
  hpcpush(hpxyz(-0.154066,-0.088606,1.015671));
  hpcpush(hpxyz(-0.151375,-0.122930,1.018836));
  hpcpush(hpxyz(-0.148774,-0.130514,1.019396));
  hpcpush(hpxyz(-0.135083,-0.110267,1.015089));
  hpcpush(hpxyz(-0.144329,-0.133463,1.019138));
  hpcpush(hpxyz(-0.109150,-0.122417,1.013361));
  hpcpush(hpxyz(-0.134514,-0.146301,1.019558));
  hpcpush(hpxyz(-0.138895,-0.153179,1.021154));
  hpcpush(hpxyz(-0.114703,-0.151023,1.017824));
  hpcpush(hpxyz(-0.138521,-0.158550,1.021923));
  hpcpush(hpxyz(-0.108526,-0.179203,1.021710));
  hpcpush(hpxyz(-0.142650,-0.174484,1.025082));
  hpcpush(hpxyz(-0.150697,-0.175461,1.026400));
  hpcpush(hpxyz(-0.134343,-0.193130,1.027301));
  hpcpush(hpxyz(-0.154679,-0.179212,1.027639));
  hpcpush(hpxyz(-0.152664,-0.216202,1.034432));

  bshape(shFlailTrunk, 40);
  hpcpush(hpxyz(0.051293,0.275700,1.038577));
  hpcpush(hpxyz(0.057876,0.280376,1.040173));
  hpcpush(hpxyz(0.067059,0.283710,1.041628));
  hpcpush(hpxyz(0.073576,0.283978,1.042141));
  hpcpush(hpxyz(0.077320,0.279640,1.041238));
  hpcpush(hpxyz(0.147958,-0.151688,1.022204));
  hpcpush(hpxyz(0.141932,-0.161853,1.022908));
  hpcpush(hpxyz(0.138281,-0.166934,1.023224));
  hpcpush(hpxyz(0.129252,-0.166536,1.021979));
  hpcpush(hpxyz(0.118813,-0.160892,1.019805));
  hpcpush(hpxyz(0.112195,-0.152881,1.017821));
  hpcpush(hpxyz(0.051293,0.275700,1.038577));

  // group 2 layer 7

  bshape(shFlailChain, 38);
  hpcpush(hpxyz(0.124731,-0.149526,1.018781));
  hpcpush(hpxyz(0.117490,-0.160203,1.019543));
  hpcpush(hpxyz(0.106751,-0.149132,1.016679));
  hpcpush(hpxyz(0.095911,-0.162180,1.017596));
  hpcpush(hpxyz(0.085170,-0.151131,1.014936));
  hpcpush(hpxyz(0.074321,-0.161824,1.015732));
  hpcpush(hpxyz(0.062353,-0.149567,1.013044));
  hpcpush(hpxyz(0.052646,-0.162759,1.014526));
  hpcpush(hpxyz(0.041822,-0.150522,1.012129));
  hpcpush(hpxyz(0.032058,-0.161359,1.013442));
  hpcpush(hpxyz(0.023596,-0.147919,1.011156));
  hpcpush(hpxyz(0.013752,-0.158813,1.012626));
  hpcpush(hpxyz(0.005196,-0.149008,1.011054));
  hpcpush(hpxyz(-0.004760,-0.161206,1.012922));
  hpcpush(hpxyz(-0.014646,-0.148927,1.011135));
  hpcpush(hpxyz(-0.027247,-0.159995,1.013085));
  hpcpush(hpxyz(-0.039846,-0.148910,1.011811));
  hpcpush(hpxyz(-0.052728,-0.162603,1.014505));
  hpcpush(hpxyz(-0.066903,-0.150243,1.013434));
  hpcpush(hpxyz(-0.077482,-0.162849,1.016131));
  hpcpush(hpxyz(-0.093362,-0.150445,1.015554));
  hpcpush(hpxyz(-0.104284,-0.165774,1.018998));
  hpcpush(hpxyz(-0.117892,-0.153274,1.018524));
  hpcpush(hpxyz(-0.131957,-0.166335,1.022292));
  hpcpush(hpxyz(-0.144633,-0.153714,1.022031));
  hpcpush(hpxyz(-0.156334,-0.168243,1.026034));
  hpcpush(hpxyz(-0.173918,-0.153010,1.026479));
  hpcpush(hpxyz(-0.173894,-0.147770,1.025707));
  hpcpush(hpxyz(-0.156165,-0.131894,1.020678));
  hpcpush(hpxyz(-0.144597,-0.145973,1.020890));
  hpcpush(hpxyz(-0.131802,-0.132992,1.017378));
  hpcpush(hpxyz(-0.117856,-0.145631,1.017398));
  hpcpush(hpxyz(-0.104131,-0.132849,1.014146));
  hpcpush(hpxyz(-0.093350,-0.147924,1.015183));
  hpcpush(hpxyz(-0.077354,-0.135296,1.012071));
  hpcpush(hpxyz(-0.066892,-0.147748,1.013067));
  hpcpush(hpxyz(-0.052601,-0.135298,1.010481));
  hpcpush(hpxyz(-0.039846,-0.148910,1.011811));
  hpcpush(hpxyz(-0.027144,-0.137836,1.009820));
  hpcpush(hpxyz(-0.014646,-0.148927,1.011135));
  hpcpush(hpxyz(-0.004647,-0.136736,1.009316));
  hpcpush(hpxyz(0.005196,-0.149008,1.011054));
  hpcpush(hpxyz(0.013843,-0.139323,1.009754));
  hpcpush(hpxyz(0.023585,-0.150350,1.011514));
  hpcpush(hpxyz(0.032171,-0.137084,1.009865));
  hpcpush(hpxyz(0.041833,-0.148099,1.011772));
  hpcpush(hpxyz(0.052770,-0.136144,1.010604));
  hpcpush(hpxyz(0.062353,-0.149567,1.013044));
  hpcpush(hpxyz(0.074434,-0.137691,1.012175));
  hpcpush(hpxyz(0.085181,-0.148721,1.014581));
  hpcpush(hpxyz(0.096024,-0.138086,1.014046));
  hpcpush(hpxyz(0.106739,-0.151540,1.017034));
  hpcpush(hpxyz(0.117580,-0.140943,1.016705));
  hpcpush(hpxyz(0.124720,-0.151933,1.019136));
  hpcpush(hpxyz(0.124731,-0.149526,1.018781));

  bshape(shBoatOuter, 12);

  hpcpush(hpxyz(-0.254359,0.147192,1.042288));
  hpcpush(hpxyz(-0.147845,0.149087,1.021805));
  hpcpush(hpxyz(0.030409,0.144749,1.010879));
  hpcpush(hpxyz(0.120225,0.127586,1.015250));
  hpcpush(hpxyz(0.172686,0.119265,1.021785));
  hpcpush(hpxyz(0.208240,0.105375,1.026873));
  hpcpush(hpxyz(0.245303,0.092783,1.033819));
  hpcpush(hpxyz(0.286782,0.068466,1.042560));
  hpcpush(hpxyz(0.309035,0.045638,1.047657));
  hpcpush(hpxyz(0.335671,0.021145,1.055046));
  hpcpush(hpxyz(0.352147,0.009337,1.060233));
  hpcpush(hpxyz(0.357212,0.006689,1.061906));
  hpcpush(hpxyz(0.357212,-0.006689,1.061906));
  hpcpush(hpxyz(0.352147,-0.009337,1.060233));
  hpcpush(hpxyz(0.335671,-0.021145,1.055046));
  hpcpush(hpxyz(0.309035,-0.045638,1.047657));
  hpcpush(hpxyz(0.286782,-0.068466,1.042560));
  hpcpush(hpxyz(0.245303,-0.092783,1.033819));
  hpcpush(hpxyz(0.208240,-0.105375,1.026873));
  hpcpush(hpxyz(0.172686,-0.119265,1.021785));
  hpcpush(hpxyz(0.120225,-0.127586,1.015250));
  hpcpush(hpxyz(0.030409,-0.144749,1.010879));
  hpcpush(hpxyz(-0.147845,-0.149087,1.021805));
  hpcpush(hpxyz(-0.254359,-0.147192,1.042288));
  hpcpush(hpxyz(-0.254359,0.147192,1.042288));

  bshape(shBoatInner, 13);

  hpcpush(hpxyz(-0.229820,0.121893,1.033284));
  hpcpush(hpxyz(0.022940,0.117115,1.007096));
  hpcpush(hpxyz(0.169024,0.090064,1.018175));
  hpcpush(hpxyz(0.256702,0.052103,1.033736));
  hpcpush(hpxyz(0.299070,-0.000000,1.043764));
  hpcpush(hpxyz(0.299070,0.000000,1.043764));
  hpcpush(hpxyz(0.256702,-0.052103,1.033736));
  hpcpush(hpxyz(0.169024,-0.090064,1.018175));
  hpcpush(hpxyz(0.022940,-0.117115,1.007096));
  hpcpush(hpxyz(-0.229820,-0.121893,1.033284));
  hpcpush(hpxyz(-0.229820,0.121893,1.033284));
  
  bshape(shScratch, 17);
  hpcpush(hpxyz(-0.028983,0.241948,1.029261));
  hpcpush(hpxyz(-0.028983,-0.241948,1.029261));
  hpcpush(hpxyz(-0.028983,0.241948,1.029261));  

  bshape(shHeptaMarker, 17);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, hexf*.2) * C0);
  
  bshape(shBigHepta, 11);
  for(int t=0; t<=7; t++) hpcpush(ddi(t*12, -hexf*1.5) * C0);
  
  bshape(shBigHex, 11);
  for(int t=0; t<=6; t++) hpcpush(ddi(t*14, -hexf*1.3) * C0);
  
  bshape(shBigTriangle, 11);
  for(int t=0; t<=3; t++) hpcpush(ddi(t*28, -hexf*1.5) * C0);
  
  bshape(shBigHexTriangleRev, 11);
  for(int t=0; t<=3; t++) hpcpush(ddi(t*28, -hexf*1.3) * C0);
  
  bshape(shBigHexTriangle, 11);
  for(int t=0; t<=3; t++) hpcpush(ddi(14+t*28, -hexf*1.3) * C0);

  bshape(shSkeletonBody, 41);
  hpcpush(hpxyz(0.001190,0.001190,1.000001));
  hpcpush(hpxyz(0.001193,-0.042936,1.000922));
  hpcpush(hpxyz(-0.004786,-0.070589,1.002500));
  hpcpush(hpxyz(-0.016803,-0.088814,1.004077));
  hpcpush(hpxyz(-0.036099,-0.097467,1.005387));
  hpcpush(hpxyz(-0.038444,-0.087700,1.004574));
  hpcpush(hpxyz(-0.028752,-0.074277,1.003167));
  hpcpush(hpxyz(-0.022672,-0.042958,1.001179));
  hpcpush(hpxyz(-0.022648,-0.027416,1.000632));
  hpcpush(hpxyz(-0.044152,-0.020286,1.001180));
  hpcpush(hpxyz(-0.046994,-0.100012,1.006087));
  hpcpush(hpxyz(-0.031489,-0.240575,1.029013));
  hpcpush(hpxyz(0.044046,-0.236589,1.028550));
  hpcpush(hpxyz(0.052529,-0.220120,1.025286));
  hpcpush(hpxyz(0.068888,-0.219190,1.026055));
  hpcpush(hpxyz(0.079398,-0.230631,1.029318));
  hpcpush(hpxyz(0.083186,-0.263635,1.037508));
  hpcpush(hpxyz(0.062603,-0.265745,1.036600));
  hpcpush(hpxyz(0.048239,-0.255158,1.033166));
  hpcpush(hpxyz(-0.048471,-0.265315,1.035732));
  hpcpush(hpxyz(-0.068926,-0.105203,1.007878));
  hpcpush(hpxyz(-0.070637,-0.026339,1.002838));
  hpcpush(hpxyz(-0.085171,-0.020393,1.003828));
  hpcpush(hpxyz(-0.085171,0.020393,1.003828));
  hpcpush(hpxyz(-0.070637,0.026339,1.002838));
  hpcpush(hpxyz(-0.068926,0.105203,1.007878));
  hpcpush(hpxyz(-0.048471,0.265315,1.035732));
  hpcpush(hpxyz(0.048239,0.255158,1.033166));
  hpcpush(hpxyz(0.062603,0.265745,1.036600));
  hpcpush(hpxyz(0.083186,0.263635,1.037508));
  hpcpush(hpxyz(0.079398,0.230631,1.029318));
  hpcpush(hpxyz(0.068888,0.219190,1.026055));
  hpcpush(hpxyz(0.052529,0.220120,1.025286));
  hpcpush(hpxyz(0.044046,0.236589,1.028550));
  hpcpush(hpxyz(-0.031489,0.240575,1.029013));
  hpcpush(hpxyz(-0.046994,0.100012,1.006087));
  hpcpush(hpxyz(-0.044152,0.020286,1.001180));
  hpcpush(hpxyz(-0.022648,0.027416,1.000632));
  hpcpush(hpxyz(-0.022672,0.042958,1.001179));
  hpcpush(hpxyz(-0.028752,0.074277,1.003167));
  hpcpush(hpxyz(-0.038444,0.087700,1.004574));
  hpcpush(hpxyz(-0.036099,0.097467,1.005387));
  hpcpush(hpxyz(-0.016803,0.088814,1.004077));
  hpcpush(hpxyz(-0.004786,0.070589,1.002500));
  hpcpush(hpxyz(0.001193,0.042936,1.000922));
  hpcpush(hpxyz(0.001190,-0.001190,1.000001));
  hpcpush(hpxyz(0.001190,0.001190,1.000001));

  bshape(shSkull, 42);
  hpcpush(hpxyz(-0.120823,0.019332,1.007458));
  hpcpush(hpxyz(-0.089124,0.061424,1.005841));
  hpcpush(hpxyz(-0.035904,0.063430,1.002653));
  hpcpush(hpxyz(0.019074,0.032188,1.000700));
  hpcpush(hpxyz(0.022631,0.004764,1.000267));
  hpcpush(hpxyz(0.022631,-0.004764,1.000267));
  hpcpush(hpxyz(0.019074,-0.032188,1.000700));
  hpcpush(hpxyz(-0.035904,-0.063430,1.002653));
  hpcpush(hpxyz(-0.089124,-0.061424,1.005841));
  hpcpush(hpxyz(-0.120823,-0.019332,1.007458));
  hpcpush(hpxyz(-0.120823,0.019332,1.007458));

  bshape(shSkullEyes, 43);
  hpcpush(hpxyz(-0.001191,0.010716,1.000058));
  hpcpush(hpxyz(-0.016673,0.009527,1.000184));
  hpcpush(hpxyz(-0.016682,0.025023,1.000452));
  hpcpush(hpxyz(-0.002382,0.022631,1.000259));
  hpcpush(hpxyz(0.001191,0.023823,1.000284));
  hpcpush(hpxyz(0.001191,-0.023823,1.000284));
  hpcpush(hpxyz(-0.002382,-0.022631,1.000259));
  hpcpush(hpxyz(-0.016682,-0.025023,1.000452));
  hpcpush(hpxyz(-0.016673,-0.009527,1.000184));
  hpcpush(hpxyz(-0.001191,-0.010716,1.000058));
  hpcpush(hpxyz(-0.001191,0.010716,1.000058));
  
  bshape(shFishTail, 30);
  hpcpush(hpxyz(-0.003571,0.001190,1.000007));
  hpcpush(hpxyz(-0.007145,0.015481,1.000145));
  hpcpush(hpxyz(-0.015500,0.035769,1.000760));
  hpcpush(hpxyz(-0.031072,0.053778,1.001927));
  hpcpush(hpxyz(-0.047927,0.064702,1.003236));
  hpcpush(hpxyz(-0.062478,0.073291,1.004627));
  hpcpush(hpxyz(-0.083262,0.082055,1.006810));
  hpcpush(hpxyz(-0.098001,0.082272,1.008153));
  hpcpush(hpxyz(-0.111474,0.073912,1.008905));
  hpcpush(hpxyz(-0.123761,0.063094,1.009603));
  hpcpush(hpxyz(-0.129971,0.059519,1.010166));
  hpcpush(hpxyz(-0.138754,0.057206,1.011200));
  hpcpush(hpxyz(-0.148852,0.053684,1.012442));
  hpcpush(hpxyz(-0.164257,0.053935,1.014835));
  hpcpush(hpxyz(-0.177269,0.054165,1.017034));
  hpcpush(hpxyz(-0.191786,0.054443,1.019679));
  hpcpush(hpxyz(-0.214728,0.056179,1.024336));
  hpcpush(hpxyz(-0.227189,0.058994,1.027178));
  hpcpush(hpxyz(-0.237162,0.065598,1.029829));
  hpcpush(hpxyz(-0.240110,0.069505,1.030768));
  hpcpush(hpxyz(-0.248932,0.077474,1.033426));
  hpcpush(hpxyz(-0.262350,0.087023,1.037497));
  hpcpush(hpxyz(-0.271446,0.092626,1.040318));
  hpcpush(hpxyz(-0.278978,0.094284,1.042458));
  hpcpush(hpxyz(-0.283499,0.094500,1.043696));
  hpcpush(hpxyz(-0.277139,0.087653,1.041388));
  hpcpush(hpxyz(-0.269286,0.078221,1.038573));
  hpcpush(hpxyz(-0.253927,0.055864,1.033247));
  hpcpush(hpxyz(-0.247700,0.034122,1.030786));
  hpcpush(hpxyz(-0.243240,0.018905,1.029331));
  hpcpush(hpxyz(-0.241745,0.005036,1.028818));
  hpcpush(hpxyz(-0.241745,-0.005036,1.028818));
  hpcpush(hpxyz(-0.243240,-0.018905,1.029331));
  hpcpush(hpxyz(-0.247700,-0.034122,1.030786));
  hpcpush(hpxyz(-0.253927,-0.055864,1.033247));
  hpcpush(hpxyz(-0.269286,-0.078221,1.038573));
  hpcpush(hpxyz(-0.277139,-0.087653,1.041388));
  hpcpush(hpxyz(-0.283499,-0.094500,1.043696));
  hpcpush(hpxyz(-0.278978,-0.094284,1.042458));
  hpcpush(hpxyz(-0.271446,-0.092626,1.040318));
  hpcpush(hpxyz(-0.262350,-0.087023,1.037497));
  hpcpush(hpxyz(-0.248932,-0.077474,1.033426));
  hpcpush(hpxyz(-0.240110,-0.069505,1.030768));
  hpcpush(hpxyz(-0.237162,-0.065598,1.029829));
  hpcpush(hpxyz(-0.227189,-0.058994,1.027178));
  hpcpush(hpxyz(-0.214728,-0.056179,1.024336));
  hpcpush(hpxyz(-0.191786,-0.054443,1.019679));
  hpcpush(hpxyz(-0.177269,-0.054165,1.017034));
  hpcpush(hpxyz(-0.164257,-0.053935,1.014835));
  hpcpush(hpxyz(-0.148852,-0.053684,1.012442));
  hpcpush(hpxyz(-0.138754,-0.057206,1.011200));
  hpcpush(hpxyz(-0.129971,-0.059519,1.010166));
  hpcpush(hpxyz(-0.123761,-0.063094,1.009603));
  hpcpush(hpxyz(-0.111474,-0.073912,1.008905));
  hpcpush(hpxyz(-0.098001,-0.082272,1.008153));
  hpcpush(hpxyz(-0.083262,-0.082055,1.006810));
  hpcpush(hpxyz(-0.062478,-0.073291,1.004627));
  hpcpush(hpxyz(-0.047927,-0.064702,1.003236));
  hpcpush(hpxyz(-0.031072,-0.053778,1.001927));
  hpcpush(hpxyz(-0.015500,-0.035769,1.000760));
  hpcpush(hpxyz(-0.007145,-0.015481,1.000145));
  hpcpush(hpxyz(-0.003571,-0.001190,1.000007));
  hpcpush(hpxyz(-0.003571,0.001190,1.000007));

  bshape(shFatBody, 41);
  hpcpush(hpxyz(-0.158280,0.010638,1.012505));
  hpcpush(hpxyz(-0.153491,0.063014,1.013672));
  hpcpush(hpxyz(-0.143004,0.090522,1.014221));
  hpcpush(hpxyz(-0.130133,0.119287,1.015463));
  hpcpush(hpxyz(-0.120336,0.139833,1.016875));
  hpcpush(hpxyz(-0.108707,0.144976,1.016285));
  hpcpush(hpxyz(-0.103459,0.149545,1.016399));
  hpcpush(hpxyz(-0.088463,0.147968,1.014751));
  hpcpush(hpxyz(-0.090694,0.183338,1.020705));
  hpcpush(hpxyz(-0.069574,0.274320,1.039275));
  hpcpush(hpxyz(-0.026928,0.273931,1.037190));
  hpcpush(hpxyz(0.000335,0.278791,1.038135));
  hpcpush(hpxyz(0.049634,0.254674,1.033113));
  hpcpush(hpxyz(0.064323,0.261140,1.035535));
  hpcpush(hpxyz(0.085998,0.258714,1.036498));
  hpcpush(hpxyz(0.084852,0.235757,1.030913));
  hpcpush(hpxyz(0.075972,0.211105,1.024860));
  hpcpush(hpxyz(0.051782,0.222035,1.025661));
  hpcpush(hpxyz(-0.009808,0.219631,1.023882));
  hpcpush(hpxyz(-0.037620,0.215354,1.023617));
  hpcpush(hpxyz(-0.020675,0.185577,1.017284));
  hpcpush(hpxyz(-0.021056,0.141669,1.010205));
  hpcpush(hpxyz(0.007264,0.129328,1.008354));
  hpcpush(hpxyz(0.036658,0.102338,1.005891));
  hpcpush(hpxyz(0.051136,0.057412,1.002951));
  hpcpush(hpxyz(0.056061,-0.003004,1.001575));
  hpcpush(hpxyz(0.056061,0.003004,1.001575));
  hpcpush(hpxyz(0.051136,-0.057412,1.002951));
  hpcpush(hpxyz(0.036658,-0.102338,1.005891));
  hpcpush(hpxyz(0.007264,-0.129328,1.008354));
  hpcpush(hpxyz(-0.021056,-0.141669,1.010205));
  hpcpush(hpxyz(-0.020675,-0.185577,1.017284));
  hpcpush(hpxyz(-0.037620,-0.215354,1.023617));
  hpcpush(hpxyz(-0.009808,-0.219631,1.023882));
  hpcpush(hpxyz(0.051782,-0.222035,1.025661));
  hpcpush(hpxyz(0.075972,-0.211105,1.024860));
  hpcpush(hpxyz(0.084852,-0.235757,1.030913));
  hpcpush(hpxyz(0.085998,-0.258714,1.036498));
  hpcpush(hpxyz(0.064323,-0.261140,1.035535));
  hpcpush(hpxyz(0.049634,-0.254674,1.033113));
  hpcpush(hpxyz(0.000335,-0.278791,1.038135));
  hpcpush(hpxyz(-0.026928,-0.273931,1.037190));
  hpcpush(hpxyz(-0.069574,-0.274320,1.039275));
  hpcpush(hpxyz(-0.090694,-0.183338,1.020705));
  hpcpush(hpxyz(-0.088463,-0.147968,1.014751));
  hpcpush(hpxyz(-0.103459,-0.149545,1.016399));
  hpcpush(hpxyz(-0.108707,-0.144976,1.016285));
  hpcpush(hpxyz(-0.120336,-0.139833,1.016875));
  hpcpush(hpxyz(-0.130133,-0.119287,1.015463));
  hpcpush(hpxyz(-0.143004,-0.090522,1.014221));
  hpcpush(hpxyz(-0.153491,-0.063014,1.013672));
  hpcpush(hpxyz(-0.158280,-0.010638,1.012505));
  
  bshape(shZebra[0], 10);
  hpcpush(hpxyz(-0.307697,-0.214329,1.067995));
  hpcpush(hpxyz(-0.339462,0.159309,1.067995));
  hpcpush(hpxyz(-0.031766,0.373637,1.067995));
  hpcpush(hpxyz(0.307697,0.214329,1.067995));
  hpcpush(hpxyz(0.339462,-0.159309,1.067995));
  hpcpush(hpxyz(0.031766,-0.373637,1.067995));
  hpcpush(hpxyz(-0.307697,-0.214329,1.067995));

  bshape(shZebra[1], 10);
  hpcpush(hpxyz(-0.192992,-0.168975,1.032375));
  hpcpush(hpxyz(-0.238865,0.204661,1.048305));
  hpcpush(hpxyz(-0.080551,0.254199,1.034942));
  hpcpush(hpxyz(0.347359,0.222111,1.081662));
  hpcpush(hpxyz(0.392920,-0.180638,1.089503));
  hpcpush(hpxyz(0.019691,-0.156962,1.012435));
  hpcpush(hpxyz(-0.192992,-0.168975,1.032375));

  bshape(shZebra[2], 10);
  hpcpush(hpxyz(-0.255158,0.223637,1.055992));
  hpcpush(hpxyz(-0.114892,0.277358,1.044092));
  hpcpush(hpxyz(0.260873,0.219611,1.056543));
  hpcpush(hpxyz(0.444210,0.107854,1.099525));
  hpcpush(hpxyz(0.255129,-0.352141,1.090456));
  hpcpush(hpxyz(-0.058563,-0.195290,1.020572));
  hpcpush(hpxyz(-0.205857,-0.164479,1.034133));
  hpcpush(hpxyz(-0.255158,0.223637,1.055992));

  bshape(shZebra[3], 10);
  hpcpush(hpxyz(0.248469,0.308508,1.075599));
  hpcpush(hpxyz(0.257329,0.012990,1.032660));
  hpcpush(hpxyz(0.288207,-0.281417,1.078081));
  hpcpush(hpxyz(0.038093,-0.236115,1.028203));
  hpcpush(hpxyz(-0.209655,-0.205481,1.042198));
  hpcpush(hpxyz(-0.224279,0.047025,1.025920));
  hpcpush(hpxyz(-0.253191,0.302526,1.075001));
  hpcpush(hpxyz(-0.002290,0.296336,1.042986));
  hpcpush(hpxyz(0.248469,0.308508,1.075599));

  bshape(shEmeraldFloor[0], 10); // 4
  hpcpush(hpxyz(-0.056700,0.289325,1.042556));
  hpcpush(hpxyz(0.003114,0.299067,1.043768));
  hpcpush(hpxyz(0.041221,0.283536,1.040237));
  hpcpush(hpxyz(0.125459,0.234982,1.034870));
  hpcpush(hpxyz(0.181143,0.183624,1.032730));
  hpcpush(hpxyz(0.228595,0.105917,1.031249));
  hpcpush(hpxyz(0.268750,0.012281,1.035557));
  hpcpush(hpxyz(0.313793,-0.081056,1.051207));
  hpcpush(hpxyz(0.306997,-0.188603,1.062929));
  hpcpush(hpxyz(0.262425,-0.286297,1.072769));
  hpcpush(hpxyz(0.218519,-0.355547,1.083588));
  hpcpush(hpxyz(0.153244,-0.376219,1.079363));
  hpcpush(hpxyz(0.046875,-0.364611,1.065429));
  hpcpush(hpxyz(-0.019398,-0.349785,1.059588));
  hpcpush(hpxyz(-0.083546,-0.322881,1.054150));
  hpcpush(hpxyz(-0.141981,-0.272036,1.046022));
  hpcpush(hpxyz(-0.195959,-0.227784,1.044167));
  hpcpush(hpxyz(-0.221863,-0.171718,1.038610));
  hpcpush(hpxyz(-0.239605,-0.111801,1.034365));
  hpcpush(hpxyz(-0.260405,-0.063040,1.035270));
  hpcpush(hpxyz(-0.276108,0.051160,1.038679));
  hpcpush(hpxyz(-0.250004,0.138005,1.039975));
  hpcpush(hpxyz(-0.184725,0.213503,1.039089));
  hpcpush(hpxyz(-0.125567,0.259839,1.040809));
  hpcpush(hpxyz(-0.056700,0.289325,1.042556));

  bshape(shEmeraldFloor[1], 10); // 12
  hpcpush(hpxyz(-0.012456,-0.282668,1.039258));
  hpcpush(hpxyz(0.093943,-0.261125,1.037792));
  hpcpush(hpxyz(0.176033,-0.224423,1.039881));
  hpcpush(hpxyz(0.251304,-0.129592,1.039205));
  hpcpush(hpxyz(0.253408,0.003018,1.031613));
  hpcpush(hpxyz(0.205115,0.151740,1.032035));
  hpcpush(hpxyz(0.136504,0.257503,1.041605));
  hpcpush(hpxyz(0.050478,0.321171,1.051522));
  hpcpush(hpxyz(-0.024338,0.351747,1.060339));
  hpcpush(hpxyz(-0.113671,0.338793,1.061933));
  hpcpush(hpxyz(-0.199507,0.312663,1.066565));
  hpcpush(hpxyz(-0.289397,0.244537,1.069368));
  hpcpush(hpxyz(-0.318919,0.189505,1.066593));
  hpcpush(hpxyz(-0.296780,0.103663,1.048248));
  hpcpush(hpxyz(-0.266492,-0.004074,1.034908));
  hpcpush(hpxyz(-0.225121,-0.113729,1.031316));
  hpcpush(hpxyz(-0.162566,-0.195216,1.031764));
  hpcpush(hpxyz(-0.093623,-0.256862,1.036698));
  hpcpush(hpxyz(-0.073239,-0.271190,1.038705));
  hpcpush(hpxyz(-0.012456,-0.282668,1.039258));

  bshape(shEmeraldFloor[2], 10); // 16
  hpcpush(hpxyz(0.142342,0.315002,1.058058));
  hpcpush(hpxyz(0.192633,0.259152,1.050841));
  hpcpush(hpxyz(0.232117,0.228558,1.051721));
  hpcpush(hpxyz(0.263994,0.150040,1.045086));
  hpcpush(hpxyz(0.283920,0.084560,1.042958));
  hpcpush(hpxyz(0.289892,-0.010808,1.041227));
  hpcpush(hpxyz(0.297148,-0.086089,1.046761));
  hpcpush(hpxyz(0.297551,-0.165417,1.056361));
  hpcpush(hpxyz(0.290991,-0.200376,1.060578));
  hpcpush(hpxyz(0.258510,-0.274435,1.068710));
  hpcpush(hpxyz(0.200576,-0.292802,1.061114));
  hpcpush(hpxyz(0.137570,-0.326255,1.060833));
  hpcpush(hpxyz(0.057449,-0.363515,1.065572));
  hpcpush(hpxyz(0.007219,-0.381780,1.070424));
  hpcpush(hpxyz(-0.042563,-0.362309,1.064462));
  hpcpush(hpxyz(-0.099799,-0.296581,1.047817));
  hpcpush(hpxyz(-0.126618,-0.259997,1.040976));
  hpcpush(hpxyz(-0.164471,-0.210125,1.034989));
  hpcpush(hpxyz(-0.206762,-0.179726,1.036847));
  hpcpush(hpxyz(-0.255672,-0.132984,1.040698));
  hpcpush(hpxyz(-0.278657,-0.105484,1.043445));
  hpcpush(hpxyz(-0.292210,-0.086272,1.045385));
  hpcpush(hpxyz(-0.317777,-0.034598,1.049847));
  hpcpush(hpxyz(-0.332027,0.039956,1.054438));
  hpcpush(hpxyz(-0.311197,0.107127,1.052768));
  hpcpush(hpxyz(-0.293985,0.148441,1.052835));
  hpcpush(hpxyz(-0.261872,0.181378,1.049512));
  hpcpush(hpxyz(-0.161843,0.220098,1.036647));
  hpcpush(hpxyz(-0.080956,0.253464,1.034794));
  hpcpush(hpxyz(-0.028510,0.284753,1.040143));
  hpcpush(hpxyz(0.013578,0.313129,1.047967));
  hpcpush(hpxyz(0.055797,0.341483,1.058170));
  hpcpush(hpxyz(0.142342,0.315002,1.058058));

  bshape(shEmeraldFloor[3], 10); // 20
  hpcpush(hpxyz(-0.163082,-0.220437,1.036913));
  hpcpush(hpxyz(-0.210355,-0.178152,1.037298));
  hpcpush(hpxyz(-0.270116,-0.134375,1.044519));
  hpcpush(hpxyz(-0.286296,-0.068967,1.042460));
  hpcpush(hpxyz(-0.322640,0.023933,1.051033));
  hpcpush(hpxyz(-0.303410,0.080931,1.048145));
  hpcpush(hpxyz(-0.256143,0.157047,1.044161));
  hpcpush(hpxyz(-0.191383,0.193946,1.036457));
  hpcpush(hpxyz(-0.112200,0.248267,1.036448));
  hpcpush(hpxyz(-0.006180,0.297906,1.043449));
  hpcpush(hpxyz(0.045011,0.314576,1.049278));
  hpcpush(hpxyz(0.123367,0.290642,1.048662));
  hpcpush(hpxyz(0.173268,0.251704,1.045647));
  hpcpush(hpxyz(0.226704,0.200367,1.044769));
  hpcpush(hpxyz(0.274509,0.112459,1.043073));
  hpcpush(hpxyz(0.272693,0.041554,1.037347));
  hpcpush(hpxyz(0.266634,-0.039227,1.035680));
  hpcpush(hpxyz(0.245934,-0.087769,1.033531));
  hpcpush(hpxyz(0.206654,-0.145971,1.031510));
  hpcpush(hpxyz(0.168911,-0.181347,1.030251));
  hpcpush(hpxyz(0.113778,-0.241571,1.035037));
  hpcpush(hpxyz(0.060166,-0.287358,1.042207));
  hpcpush(hpxyz(-0.030419,-0.300995,1.044760));
  hpcpush(hpxyz(-0.106762,-0.252814,1.036973));
  hpcpush(hpxyz(-0.163082,-0.220437,1.036913));

  bshape(shEmeraldFloor[4], 10); // 28
  hpcpush(hpxyz(-0.121227,-0.290032,1.048244));
  hpcpush(hpxyz(-0.211853,-0.226567,1.047003));
  hpcpush(hpxyz(-0.271304,-0.142026,1.045838));
  hpcpush(hpxyz(-0.291031,-0.001756,1.041490));
  hpcpush(hpxyz(-0.289025,0.081565,1.044121));
  hpcpush(hpxyz(-0.274404,0.151774,1.048014));
  hpcpush(hpxyz(-0.270636,0.184903,1.052346));
  hpcpush(hpxyz(-0.177964,0.228844,1.041173));
  hpcpush(hpxyz(-0.109553,0.258706,1.038716));
  hpcpush(hpxyz(-0.046057,0.288157,1.041708));
  hpcpush(hpxyz(0.012352,0.334753,1.054615));
  hpcpush(hpxyz(0.093790,0.294439,1.046657));
  hpcpush(hpxyz(0.113901,0.258432,1.039115));
  hpcpush(hpxyz(0.169445,0.181108,1.030297));
  hpcpush(hpxyz(0.201022,0.133994,1.028768));
  hpcpush(hpxyz(0.217873,0.089759,1.027388));
  hpcpush(hpxyz(0.229954,0.028756,1.026502));
  hpcpush(hpxyz(0.219894,-0.023561,1.024162));
  hpcpush(hpxyz(0.191854,-0.102714,1.023405));
  hpcpush(hpxyz(0.155541,-0.176809,1.027353));
  hpcpush(hpxyz(0.124174,-0.224046,1.032287));
  hpcpush(hpxyz(0.061461,-0.284240,1.041427));
  hpcpush(hpxyz(0.004090,-0.327127,1.052154));
  hpcpush(hpxyz(-0.121227,-0.290032,1.048244));

  bshape(shEmeraldFloor[5], 10); // 36
  hpcpush(hpxyz(-0.123950,0.204444,1.028183));
  hpcpush(hpxyz(-0.062627,0.216559,1.025095));
  hpcpush(hpxyz(0.004307,0.251676,1.031193));
  hpcpush(hpxyz(0.053230,0.277691,1.039204));
  hpcpush(hpxyz(0.104981,0.268275,1.040669));
  hpcpush(hpxyz(0.179487,0.211716,1.037805));
  hpcpush(hpxyz(0.219611,0.155886,1.035630));
  hpcpush(hpxyz(0.242732,0.098595,1.033750));
  hpcpush(hpxyz(0.253441,0.041064,1.032433));
  hpcpush(hpxyz(0.251167,-0.002564,1.031063));
  hpcpush(hpxyz(0.258569,-0.050639,1.034129));
  hpcpush(hpxyz(0.241512,-0.095904,1.033211));
  hpcpush(hpxyz(0.224178,-0.142437,1.034671));
  hpcpush(hpxyz(0.200723,-0.160460,1.032491));
  hpcpush(hpxyz(0.160438,-0.177252,1.028182));
  hpcpush(hpxyz(0.098857,-0.201735,1.024924));
  hpcpush(hpxyz(0.042704,-0.222826,1.025415));
  hpcpush(hpxyz(-0.046440,-0.220643,1.025105));
  hpcpush(hpxyz(-0.121819,-0.210954,1.029243));
  hpcpush(hpxyz(-0.193674,-0.181500,1.034626));
  hpcpush(hpxyz(-0.240226,-0.152286,1.039663));
  hpcpush(hpxyz(-0.288784,-0.106825,1.046331));
  hpcpush(hpxyz(-0.312611,-0.056858,1.049266));
  hpcpush(hpxyz(-0.322108,0.009276,1.050638));
  hpcpush(hpxyz(-0.323420,0.074633,1.053646));
  hpcpush(hpxyz(-0.320770,0.110549,1.055990));
  hpcpush(hpxyz(-0.238954,0.181091,1.043980));
  hpcpush(hpxyz(-0.123950,0.204444,1.028183));

  /*
  bshape(shTower[0], 10); // 1
  hpcpush(hpxyz(-0.286251,0.206460,1.060455));
  hpcpush(hpxyz(-0.228388,0.237443,1.052872));
  hpcpush(hpxyz(-0.159130,0.310692,1.059175));
  hpcpush(hpxyz(-0.101028,0.374054,1.072438));
  hpcpush(hpxyz(0.075166,0.301721,1.047227));
  hpcpush(hpxyz(0.296628,0.282561,1.080661));
  hpcpush(hpxyz(0.392862,0.273630,1.108699));
  hpcpush(hpxyz(0.406414,0.155729,1.090607));
  hpcpush(hpxyz(0.351704,0.039501,1.060781));
  hpcpush(hpxyz(0.238677,-0.090994,1.032108));
  hpcpush(hpxyz(0.117245,-0.194511,1.025466));
  hpcpush(hpxyz(0.021470,-0.256598,1.032620));
  hpcpush(hpxyz(-0.009932,-0.269112,1.035625));
  hpcpush(hpxyz(-0.142800,-0.030207,1.010596));
  hpcpush(hpxyz(-0.286251,0.206460,1.060455));

  bshape(shTower[1], 10); // 2
  hpcpush(hpxyz(0.250672,0.215566,1.053236));
  hpcpush(hpxyz(-0.010561,0.166674,1.013850));
  hpcpush(hpxyz(-0.188122,0.172750,1.032101));
  hpcpush(hpxyz(-0.277968,0.195647,1.056193));
  hpcpush(hpxyz(-0.273175,-0.294725,1.077723));
  hpcpush(hpxyz(-0.058073,-0.278517,1.039685));
  hpcpush(hpxyz(0.114633,-0.264898,1.040823));
  hpcpush(hpxyz(0.214865,-0.223092,1.046870));
  hpcpush(hpxyz(0.318979,-0.166948,1.062835));
  hpcpush(hpxyz(0.348056,-0.154771,1.070092));
  hpcpush(hpxyz(0.250672,0.215566,1.053236));

  bshape(shTower[2], 10); // 4
  hpcpush(hpxyz(-0.305085,0.182715,1.061349));
  hpcpush(hpxyz(-0.141572,-0.249919,1.040434));
  hpcpush(hpxyz(-0.082532,-0.256373,1.035634));
  hpcpush(hpxyz(0.011916,-0.200378,1.019948));
  hpcpush(hpxyz(0.107643,-0.130975,1.014269));
  hpcpush(hpxyz(0.197879,-0.052950,1.020764));
  hpcpush(hpxyz(0.275493,0.054106,1.038665));
  hpcpush(hpxyz(0.346502,0.177608,1.073130));
  hpcpush(hpxyz(0.365290,0.224553,1.088054));
  hpcpush(hpxyz(-0.042684,0.405864,1.080068));
  hpcpush(hpxyz(-0.305085,0.182715,1.061349));

  bshape(shTower[3], 10); // 5
  hpcpush(hpxyz(-0.244566,0.213804,1.051439));
  hpcpush(hpxyz(-0.121406,0.179228,1.023163));
  hpcpush(hpxyz(0.102781,0.233054,1.031929));
  hpcpush(hpxyz(0.137859,0.248290,1.039545));
  hpcpush(hpxyz(0.219219,0.271805,1.059214));
  hpcpush(hpxyz(0.439787,-0.128376,1.099951));
  hpcpush(hpxyz(0.327884,-0.165668,1.065342));
  hpcpush(hpxyz(0.191605,-0.198467,1.037353));
  hpcpush(hpxyz(-0.015788,-0.263051,1.034140));
  hpcpush(hpxyz(-0.162942,-0.274063,1.049600));
  hpcpush(hpxyz(-0.284113,-0.264520,1.072703));
  hpcpush(hpxyz(-0.360780,-0.248815,1.091820));
  hpcpush(hpxyz(-0.244566,0.213804,1.051439));

  bshape(shTower[4], 10); // 8
  hpcpush(hpxyz(0.571958,-0.279170,1.185357));
  hpcpush(hpxyz(0.393753,-0.334598,1.125610));
  hpcpush(hpxyz(0.230386,-0.380872,1.094596));
  hpcpush(hpxyz(0.040909,-0.353244,1.061346));
  hpcpush(hpxyz(-0.132206,-0.325608,1.059953));
  hpcpush(hpxyz(-0.193426,-0.301627,1.062258));
  hpcpush(hpxyz(-0.209589,-0.285475,1.060860));
  hpcpush(hpxyz(-0.184256,0.133876,1.025609));
  hpcpush(hpxyz(-0.122720,0.103535,1.012808));
  hpcpush(hpxyz(0.028404,0.096630,1.005059));
  hpcpush(hpxyz(0.131561,0.118840,1.015594));
  hpcpush(hpxyz(0.206961,0.143553,1.031233));
  hpcpush(hpxyz(0.285398,0.171884,1.054038));
  hpcpush(hpxyz(0.311736,0.188934,1.064366));
  hpcpush(hpxyz(0.427540,-0.043657,1.088437));
  hpcpush(hpxyz(0.571958,-0.279170,1.185357));

  bshape(shTower[5], 10); // 10
  hpcpush(hpxyz(-0.311898,0.273433,1.082611));
  hpcpush(hpxyz(-0.241832,0.284721,1.067496));
  hpcpush(hpxyz(-0.093134,0.385666,1.075831));
  hpcpush(hpxyz(-0.048259,0.410019,1.081871));
  hpcpush(hpxyz(-0.034956,0.418726,1.084690));
  hpcpush(hpxyz(0.323554,0.088209,1.054736));
  hpcpush(hpxyz(0.281449,-0.050570,1.040082));
  hpcpush(hpxyz(0.166974,-0.175799,1.028973));
  hpcpush(hpxyz(0.053476,-0.232832,1.028139));
  hpcpush(hpxyz(-0.046497,-0.270575,1.037002));
  hpcpush(hpxyz(-0.167112,-0.296403,1.056306));
  hpcpush(hpxyz(-0.182433,-0.298027,1.059293));
  hpcpush(hpxyz(-0.237210,-0.011802,1.027817));
  hpcpush(hpxyz(-0.311898,0.273433,1.082611));

  bshape(shTower[6], 10); // 12
  hpcpush(hpxyz(0.591895,-0.274213,1.193957));
  hpcpush(hpxyz(0.451640,-0.046334,1.098237));
  hpcpush(hpxyz(0.339584,0.178653,1.071090));
  hpcpush(hpxyz(0.075724,0.130436,1.011310));
  hpcpush(hpxyz(-0.048271,0.097633,1.005914));
  hpcpush(hpxyz(-0.223763,-0.157117,1.036704));
  hpcpush(hpxyz(-0.073558,-0.240165,1.031062));
  hpcpush(hpxyz(0.043434,-0.280964,1.039628));
  hpcpush(hpxyz(0.298734,-0.305291,1.087403));
  hpcpush(hpxyz(0.591895,-0.274213,1.193957));

  bshape(shTower[7], 10); // 16
  hpcpush(hpxyz(0.078002,0.370221,1.069181));
  hpcpush(hpxyz(0.413248,0.133206,1.090192));
  hpcpush(hpxyz(0.355187,0.048021,1.062292));
  hpcpush(hpxyz(0.239656,-0.028483,1.028711));
  hpcpush(hpxyz(0.091569,-0.106563,1.009822));
  hpcpush(hpxyz(-0.053014,-0.170046,1.015739));
  hpcpush(hpxyz(-0.148171,-0.179787,1.026780));
  hpcpush(hpxyz(-0.226021,0.273779,1.061151));
  hpcpush(hpxyz(0.078002,0.370221,1.069181));

  bshape(shTower[8], 10); // 17
  hpcpush(hpxyz(0.533180,-0.117639,1.139351));
  hpcpush(hpxyz(0.378296,-0.199392,1.087596));
  hpcpush(hpxyz(0.209814,-0.236744,1.048842));
  hpcpush(hpxyz(0.054537,-0.276614,1.038985));
  hpcpush(hpxyz(-0.034481,-0.273513,1.037303));
  hpcpush(hpxyz(-0.160263,-0.038320,1.013485));
  hpcpush(hpxyz(-0.297354,0.194169,1.061189));
  hpcpush(hpxyz(-0.193697,0.211849,1.040384));
  hpcpush(hpxyz(-0.063165,0.262989,1.035931));
  hpcpush(hpxyz(0.036923,0.306670,1.046618));
  hpcpush(hpxyz(0.097986,0.358635,1.066874));
  hpcpush(hpxyz(0.135238,0.379300,1.078034));
  hpcpush(hpxyz(0.318600,0.124720,1.056911));
  hpcpush(hpxyz(0.533180,-0.117639,1.139351));

  bshape(shTower[9], 10); // 18
  hpcpush(hpxyz(-0.217261,0.132486,1.031870));
  hpcpush(hpxyz(0.024523,0.407718,1.080202));
  hpcpush(hpxyz(0.145333,0.449681,1.106045));
  hpcpush(hpxyz(0.484226,0.101907,1.115733));
  hpcpush(hpxyz(0.321456,-0.134096,1.058922));
  hpcpush(hpxyz(-0.036797,-0.295091,1.043280));
  hpcpush(hpxyz(-0.180549,-0.344274,1.072904));
  hpcpush(hpxyz(-0.259938,-0.172378,1.047512));
  hpcpush(hpxyz(-0.217261,0.132486,1.031870));

  bshape(shTower[10], 10); // 20
  hpcpush(hpxyz(-0.174062,-0.167910,1.028830));
  hpcpush(hpxyz(-0.295951,0.239183,1.069951));
  hpcpush(hpxyz(-0.212854,0.268510,1.057074));
  hpcpush(hpxyz(-0.079667,0.325104,1.054533));
  hpcpush(hpxyz(-0.024447,0.357384,1.062224));
  hpcpush(hpxyz(0.004880,0.379437,1.069577));
  hpcpush(hpxyz(0.047240,0.411450,1.082369));
  hpcpush(hpxyz(0.404628,0.134398,1.087100));
  hpcpush(hpxyz(0.279121,0.016611,1.038357));
  hpcpush(hpxyz(0.142934,-0.078661,1.013221));
  hpcpush(hpxyz(0.031621,-0.149237,1.011569));
  hpcpush(hpxyz(-0.095567,-0.210063,1.026284));
  hpcpush(hpxyz(-0.174062,-0.167910,1.028830));

  bshape(shTower[11], 10); // 21
  hpcpush(hpxyz(-0.261640,0.232003,1.059378));
  hpcpush(hpxyz(-0.114066,0.222344,1.030751));
  hpcpush(hpxyz(0.070087,0.311006,1.049589));
  hpcpush(hpxyz(0.146439,0.385502,1.081691));
  hpcpush(hpxyz(0.156417,0.393458,1.085944));
  hpcpush(hpxyz(0.321239,0.151530,1.061205));
  hpcpush(hpxyz(0.513393,-0.077506,1.126756));
  hpcpush(hpxyz(0.367820,-0.144703,1.075282));
  hpcpush(hpxyz(0.183543,-0.172959,1.031311));
  hpcpush(hpxyz(0.022726,-0.215721,1.023256));
  hpcpush(hpxyz(-0.158572,-0.235502,1.039522));
  hpcpush(hpxyz(-0.259609,-0.221068,1.056536));
  hpcpush(hpxyz(-0.283069,-0.211523,1.060599));
  hpcpush(hpxyz(-0.261640,0.232003,1.059378));
  */
  
  bshape(shTower[0], 10); // 4
  hpcpush(hpxyz(-0.343678,0.205736,1.077238));
  hpcpush(hpxyz(-0.313502,-0.269598,1.082112));
  hpcpush(hpxyz(0.053446,-0.276534,1.038907));
  hpcpush(hpxyz(0.316036,-0.088255,1.052458));
  hpcpush(hpxyz(0.415175,0.117882,1.089159));
  hpcpush(hpxyz(-0.013091,0.329953,1.053110));
  hpcpush(hpxyz(-0.343678,0.205736,1.077238));

  bshape(shTower[1], 10); // 5
  hpcpush(hpxyz(-0.311517,0.177757,1.062375));
  hpcpush(hpxyz(-0.277989,0.198280,1.056689));
  hpcpush(hpxyz(-0.192835,0.277382,1.055522));
  hpcpush(hpxyz(-0.118766,0.352616,1.066979));
  hpcpush(hpxyz(0.340632,0.220226,1.079134));
  hpcpush(hpxyz(0.346703,0.158836,1.070248));
  hpcpush(hpxyz(0.324069,0.046483,1.052227));
  hpcpush(hpxyz(0.255673,-0.074052,1.034820));
  hpcpush(hpxyz(0.185700,-0.149283,1.027993));
  hpcpush(hpxyz(0.033206,-0.246367,1.030436));
  hpcpush(hpxyz(-0.096570,-0.283752,1.043954));
  hpcpush(hpxyz(-0.194307,-0.258126,1.050897));
  hpcpush(hpxyz(-0.265575,-0.226804,1.059231));
  hpcpush(hpxyz(-0.285480,-0.219017,1.062764));
  hpcpush(hpxyz(-0.311517,0.177757,1.062375));

  bshape(shTower[2], 10); // 6
  hpcpush(hpxyz(-0.287245,0.124770,1.047892));
  hpcpush(hpxyz(-0.224066,0.141558,1.034526));
  hpcpush(hpxyz(-0.131929,0.201218,1.028540));
  hpcpush(hpxyz(-0.078630,0.261221,1.036542));
  hpcpush(hpxyz(-0.020026,0.337507,1.055610));
  hpcpush(hpxyz(0.318283,0.112649,1.055459));
  hpcpush(hpxyz(0.303068,-0.062313,1.046773));
  hpcpush(hpxyz(0.276375,-0.100467,1.042342));
  hpcpush(hpxyz(0.222744,-0.146642,1.034949));
  hpcpush(hpxyz(0.008616,-0.304232,1.045290));
  hpcpush(hpxyz(-0.058987,-0.274278,1.038609));
  hpcpush(hpxyz(-0.112858,-0.303563,1.051136));
  hpcpush(hpxyz(-0.233080,-0.305264,1.071220));
  hpcpush(hpxyz(-0.372515,-0.347162,1.122180));
  hpcpush(hpxyz(-0.287245,0.124770,1.047892));

  bshape(shTower[3], 10); // 8
  hpcpush(hpxyz(-0.276471,0.193549,1.055413));
  hpcpush(hpxyz(-0.248272,0.167366,1.043863));
  hpcpush(hpxyz(-0.131672,0.161485,1.021477));
  hpcpush(hpxyz(-0.029928,0.144574,1.010840));
  hpcpush(hpxyz(0.145677,0.141539,1.020419));
  hpcpush(hpxyz(0.244238,0.160944,1.041900));
  hpcpush(hpxyz(0.278308,0.181096,1.053685));
  hpcpush(hpxyz(0.290850,-0.178199,1.056574));
  hpcpush(hpxyz(0.244356,-0.239966,1.057021));
  hpcpush(hpxyz(0.158564,-0.296188,1.054927));
  hpcpush(hpxyz(0.052883,-0.325301,1.052909));
  hpcpush(hpxyz(-0.059036,-0.324976,1.053136));
  hpcpush(hpxyz(-0.156078,-0.299394,1.055461));
  hpcpush(hpxyz(-0.222738,-0.269837,1.059445));
  hpcpush(hpxyz(-0.251922,-0.245775,1.060127));
  hpcpush(hpxyz(-0.276471,0.193549,1.055413));

  bshape(shTower[4], 10); // 9
  hpcpush(hpxyz(-0.311686,0.135147,1.056131));
  hpcpush(hpxyz(-0.107931,0.170082,1.020087));
  hpcpush(hpxyz(-0.054960,0.232687,1.028185));
  hpcpush(hpxyz(0.094837,0.235522,1.031729));
  hpcpush(hpxyz(0.206298,0.281848,1.059244));
  hpcpush(hpxyz(0.350261,-0.169080,1.072973));
  hpcpush(hpxyz(0.258249,-0.214408,1.054828));
  hpcpush(hpxyz(0.149756,-0.245358,1.040494));
  hpcpush(hpxyz(0.010018,-0.258374,1.032888));
  hpcpush(hpxyz(-0.164035,-0.248262,1.043332));
  hpcpush(hpxyz(-0.260903,-0.226907,1.058091));
  hpcpush(hpxyz(-0.329503,-0.207534,1.073146));
  hpcpush(hpxyz(-0.311686,0.135147,1.056131));

  bshape(shTower[5], 10); // 10
  hpcpush(hpxyz(-0.278494,0.161752,1.050582));
  hpcpush(hpxyz(-0.132974,0.168104,1.022713));
  hpcpush(hpxyz(-0.045035,0.201619,1.021116));
  hpcpush(hpxyz(0.004416,0.226141,1.025261));
  hpcpush(hpxyz(0.097798,0.196263,1.023760));
  hpcpush(hpxyz(0.208310,0.187256,1.038488));
  hpcpush(hpxyz(0.213133,0.158213,1.034629));
  hpcpush(hpxyz(0.255407,-0.229136,1.057230));
  hpcpush(hpxyz(0.150044,-0.303075,1.055636));
  hpcpush(hpxyz(0.021265,-0.309104,1.046899));
  hpcpush(hpxyz(-0.124340,-0.302692,1.052180));
  hpcpush(hpxyz(-0.340803,-0.287456,1.094887));
  hpcpush(hpxyz(-0.338423,-0.172501,1.069713));
  hpcpush(hpxyz(-0.278494,0.161752,1.050582));

  bshape(shTower[6], 10); // 10
  hpcpush(hpxyz(-0.033122,-0.384901,1.072029));
  hpcpush(hpxyz(0.122565,-0.232523,1.033968));
  hpcpush(hpxyz(0.222346,-0.147072,1.034924));
  hpcpush(hpxyz(0.293004,-0.141494,1.051604));
  hpcpush(hpxyz(0.228575,0.266628,1.059876));
  hpcpush(hpxyz(0.142937,0.283066,1.049074));
  hpcpush(hpxyz(0.030023,0.299757,1.044392));
  hpcpush(hpxyz(-0.078299,0.271316,1.039107));
  hpcpush(hpxyz(-0.144933,0.245692,1.039889));
  hpcpush(hpxyz(-0.207818,0.168012,1.035093));
  hpcpush(hpxyz(-0.262782,0.117599,1.040617));
  hpcpush(hpxyz(-0.313780,0.032325,1.048572));
  hpcpush(hpxyz(-0.338217,-0.056491,1.057157));
  hpcpush(hpxyz(-0.334152,-0.102325,1.059305));
  hpcpush(hpxyz(-0.033122,-0.384901,1.072029));


  bshapeend();

  prehpc = qhpc;
  printf("hpc = %d\n", qhpc);
  }

void initShape(int sg, int id) {

  if(!usershapes[sg][id]) {
    usershape *us = new usershape;
    usershapes[sg][id] = us;

    for(int i=0; i<USERLAYERS; i++) {
      us->d[i].sh.prio = (sg >= 3 ? 1:50) + i;

      us->d[i].rots = 1;
      us->d[i].sym = 0;
      us->d[i].shift = C0;
      us->d[i].spin = Cx1;
      us->d[i].color = 0;
      }
    }
  }

void pushShape(const usershapelayer& ds) {

  if(ds.list.empty()) return;

  transmatrix T = rgpushxto0(ds.shift) * rspintox(ds.spin);
  
  for(int r=0; r<ds.rots; r++) {
    for(int i=0; i<size(ds.list); i++)
      hpcpush(T * spin(2*M_PI*r/ds.rots) * ds.list[i]);

    if(ds.sym) {
  
      transmatrix mirrortrans = Id; mirrortrans[1][1] = -1;
      for(int i=size(ds.list)-1; i>=0; i--)
        hpcpush(T * spin(2*M_PI*r/ds.rots) * mirrortrans * ds.list[i]);
      }
    }
  hpcpush(T * ds.list[0]);
  }

void saveImages() {
  qhpc = prehpc;
  
  for(int i=0; i<USERSHAPEGROUPS; i++) for(int j=0; j<USERSHAPEIDS; j++) {
    usershape *us = usershapes[i][j];
    if(!us) continue;
    for(int l=0; l<USERLAYERS; l++) {
      us->d[l].sh.s = qhpc;
      first = true;
      pushShape(us->d[l]);
      us->d[l].sh.e = qhpc;
      }
    }
  
  static int qhpc0;
  if(qhpc != qhpc0)
    printf("qhpc = %d (%d+%d)\n", qhpc0 = qhpc, prehpc, qhpc-prehpc);

  #ifdef GL
  GL_initialized = false;
  #endif
  }

int poly_outline;

void queuepoly(const transmatrix& V, const hpcshape& h, int col) {
  polytodraw ptd;
  ptd.V = V;
  ptd.start = h.s, ptd.end = h.e;
  ptd.col = (darkened(col >> 8) << 8) + (col & 0xFF);
  ptd.prio = h.prio;
  ptd.outline = poly_outline;
  ptds.push_back(ptd);
  }