//body //stena 1 type TVertexPointer = array [0..5] of record X: TGLFloat; Y: TGLFloat; Z: TGLFloat; end; //stena 2 type TVertexPointer2 = array [0..5] of record X: TGLFloat; Y: TGLFloat; Z: TGLFloat; end; //stena 3 type TVertexPointer3 = array [0..5] of record X: TGLFloat; Y: TGLFloat; Z: TGLFloat; end; //stena 4 type TVertexPointer4 = array [0..5] of record X: TGLFloat; Y: TGLFloat; Z: TGLFloat; end; //strop type TVertexPointer5 = array [0..5] of record X: TGLFloat; Y: TGLFloat; Z: TGLFloat; end; //podlaha type TVertexPointer6 = array [0..5] of record X: TGLFloat; Y: TGLFloat; Z: TGLFloat; end; //texturova koordinace type TCoordPointer = array [0..5] of record S: TGLFloat; K: TGLFloat; end; type TCoordPointer2 = array [0..5] of record S: TGLFloat; K: TGLFloat; end; type TCoordPointer3 = array [0..5] of record S: TGLFloat; K: TGLFloat; end; type TCoordPointer4 = array [0..5] of record S: TGLFloat; K: TGLFloat; end; type TCoordPointer5 = array [0..5] of record S: TGLFloat; K: TGLFloat; end; type TCoordPointer6 = array [0..5] of record S: TGLFloat; K: TGLFloat; end; //indikator poli type TIndices = array [0..5] of TGluInt; type TIndices2 = array [0..5] of TGluInt; type TIndices3 = array [0..5] of TGluInt; type TIndices4 = array [0..5] of TGluInt; type TIndices5 = array [0..5] of TGluInt; type TIndices6 = array [0..5] of TGluInt;