116 			w, h: LongInt;

   116 			w, h: LongInt;

   117 			rx, ry: GLfloat;

   117 			rx, ry: GLfloat;

   118 			end;

   118 			end;

   119 	PTexture = ^TTexture;

   119 	PTexture = ^TTexture;

   120 

   120 

   122 const

   124 const

   123 	errmsgCreateSurface   = 'Error creating SDL surface';

   125 	errmsgCreateSurface   = 'Error creating SDL surface';

   124 	errmsgTransparentSet  = 'Error setting transparent color';

   126 	errmsgTransparentSet  = 'Error setting transparent color';

   125 	errmsgUnknownCommand  = 'Unknown command';

   127 	errmsgUnknownCommand  = 'Unknown command';

   126 	errmsgUnknownVariable = 'Unknown variable';

   128 	errmsgUnknownVariable = 'Unknown variable';