equal
deleted
inserted
replaced
99 procedure openglTint (r, g, b, a: Byte); inline; |
99 procedure openglTint (r, g, b, a: Byte); inline; |
100 |
100 |
101 |
101 |
102 implementation |
102 implementation |
103 uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}SysUtils, uVariables, uUtils, uConsts |
103 uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}SysUtils, uVariables, uUtils, uConsts |
104 {$IFDEF GL2}, uMatrix, uConsole{$ENDIF} |
104 {$IFDEF GL2}, uMatrix, uConsole{$ENDIF}; |
105 {$IF NOT DEFINED(SDL2) AND DEFINED(USE_VIDEO_RECORDING)}, glut {$ENDIF}; |
|
106 |
105 |
107 {$IFDEF USE_TOUCH_INTERFACE} |
106 {$IFDEF USE_TOUCH_INTERFACE} |
108 const |
107 const |
109 FADE_ANIM_TIME = 500; |
108 FADE_ANIM_TIME = 500; |
110 MOVE_ANIM_TIME = 500; |
109 MOVE_ANIM_TIME = 500; |