169             w, h: LongInt;

   169             w, h: LongInt;

   170             rx, ry: GLfloat;

   170             rx, ry: GLfloat;

   171             vb, tb: array [0..3] of TVertex2f;

   171             vb, tb: array [0..3] of TVertex2f;

   172             PrevTexture, NextTexture: PTexture;

   172             PrevTexture, NextTexture: PTexture;

   173             end;

   173             end;

   174 

   177 

   175 const

   178 const

   176     // message constants

   179     // message constants

   177     errmsgCreateSurface   = 'Error creating SDL surface';

   180     errmsgCreateSurface   = 'Error creating SDL surface';

   178     errmsgTransparentSet  = 'Error setting transparent color';

   181     errmsgTransparentSet  = 'Error setting transparent color';