equal
deleted
inserted
replaced
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 |
|
175 TScreenFade = (sfNone, sfInit, sfToBlack, sfFromBlack, sfToWhite, sfFromWhite); |
|
176 const sfMax = 1000; |
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'; |