if (XType='SS') then begin
             VCount:=Length(Vert);
             for i := 0 to VCount - 1 do
                  begin
                  RVert[i] := ZereVector;
                  BCount:=Length(Bones);
                  for j := 0 to BCount - 1 do
                          begin
                          BVert:= MatrXVert(Bones[j].BoneMatrix, Vert[i][0],Vert[i][1],Vert[i][2]);
                          RVert[i] := VertAddVert(RVert[i],ValXVert(Weight[j][i],BVert));
                          end;
                  end;
                    
            glVertexPointer(3,GL_FLOAT,0,RVert);
          end
          else
          glVertexPointer(3,GL_FLOAT,0,Vert);

void Md5Mesh :: calcPoints ( Joint * joints )      // compute real points from bones data
{
      for ( int i = 0; i < numVertices; i++ )
      {
          Vertex&  v = vertices [i];                 // current vertex
          Vector3D p ( 0, 0, 0 );

          for ( int k = 0; k < v.weightCount; k++ )
          {
              Weight& weight = weights [v.weightIndex + k];
              Joint&  joint  = joints  [weight.jointIndex];

                     // transform weight.pos by bone with weight
              p += joint.transform ( weight.pos ) * weight.weight;
          }

          points [i] = Vector3D ( p.y, p.x, p.z );
      }
}

for i := 0 to V_Count - 1 do
   begin
     RVertex[i] := Vector(0, 0, 0);
     for j := 0 to B_Count - 1 do
       RVertex[i] := RVertex[i] + Weight[i][j] * Bone[j].Matrix * Vertex[i];
   end;