hedgewars/uTypes.pas
changeset 7080 dbf43c07a507
parent 7034 e3639ce1d4f8
child 7111 5ba5a92d74fb
equal deleted inserted replaced
7079:939f53515489 7080:dbf43c07a507
   197 
   197 
   198     TVertex2i = record
   198     TVertex2i = record
   199             X, Y: GLint;
   199             X, Y: GLint;
   200             end;
   200             end;
   201 
   201 
       
   202     PAtlas = ^TAtlas;
   202     PTexture = ^TTexture;
   203     PTexture = ^TTexture;
       
   204 
       
   205     TAtlas = record
       
   206                 id: GLuint;
       
   207                 w, h: LongInt;
       
   208                 priority: GLfloat;
       
   209             end;
       
   210 
       
   211     PVertexRect = ^TVertexRect;
       
   212     TVertexRect = array[0..3] of TVertex2f;
       
   213     
   203     TTexture = record
   214     TTexture = record
   204             id: GLuint;
   215             atlas: PAtlas;
   205             w, h, scale: LongInt;
   216             w, h, scale: LongInt;
   206             rx, ry: GLfloat;
   217 
   207             priority: GLfloat;
   218             x, y: LongInt; // Offset in the texture atlas
   208             vb, tb: array [0..3] of TVertex2f;
   219             isRotated: boolean; // if true sprite is flipped in the atlas taking w pixels along the y and h pixels along the x axis
       
   220 
       
   221             // Cached values for texel coordinates and vertex coordinates            
       
   222             vb, tb: TVertexRect;
       
   223 
   209             PrevTexture, NextTexture: PTexture;
   224             PrevTexture, NextTexture: PTexture;
   210             end;
   225             end;
   211 
   226 
   212     THogEffect = (heInvulnerable, heResurrectable, hePoisoned, heResurrected, heFrozen);
   227     THogEffect = (heInvulnerable, heResurrectable, hePoisoned, heResurrected, heFrozen);
   213 
   228