150 

   150 

   151 	TVertex2i = record

   151 	TVertex2i = record

   152 		X, Y: GLint;

   152 		X, Y: GLint;

   153 		end;

   153 		end;

   154 

   154 

   155 	TTexture = record

   156 	TTexture = record

   156 			id: GLuint;

   157 			id: GLuint;

   157 			w, h: LongInt;

   158 			w, h: LongInt;

   158 			rx, ry: GLfloat;

   159 			rx, ry: GLfloat;

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

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

   160 			end;

   162 			end;

   162 

   163 

   163 const

   164 const

   164 	// message constants

   165 	// message constants

   165 	errmsgCreateSurface   = 'Error creating SDL surface';

   166 	errmsgCreateSurface   = 'Error creating SDL surface';

   166 	errmsgTransparentSet  = 'Error setting transparent color';

   167 	errmsgTransparentSet  = 'Error setting transparent color';