equal
deleted
inserted
replaced
21 unit uConsts; |
21 unit uConsts; |
22 interface |
22 interface |
23 |
23 |
24 uses SDLh, uFloat, GLunit; |
24 uses SDLh, uFloat, GLunit; |
25 |
25 |
26 |
|
27 {$INCLUDE "config.inc"} |
26 {$INCLUDE "config.inc"} |
28 |
|
29 // typed const is a variable despite const qualifier |
|
30 // in freepascal you may actually use var for the same purpose |
|
31 |
27 |
32 const |
28 const |
33 sfMax = 1000; |
29 sfMax = 1000; |
34 cDefaultParamNum = 16; |
30 cDefaultParamNum = 17; |
35 |
31 |
36 // message constants |
32 // message constants |
37 errmsgCreateSurface = 'Error creating SDL surface'; |
33 errmsgCreateSurface = 'Error creating SDL surface'; |
38 errmsgTransparentSet = 'Error setting transparent color'; |
34 errmsgTransparentSet = 'Error setting transparent color'; |
39 errmsgUnknownCommand = 'Unknown command'; |
35 errmsgUnknownCommand = 'Unknown command'; |