78 procedure SetScale(f: GLfloat); |
78 procedure SetScale(f: GLfloat); |
79 function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture; |
79 function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture; |
80 procedure RenderWeaponTooltip(atype: TAmmoType); |
80 procedure RenderWeaponTooltip(atype: TAmmoType); |
81 procedure ShowWeaponTooltip(x, y: LongInt); |
81 procedure ShowWeaponTooltip(x, y: LongInt); |
82 procedure FreeWeaponTooltip; |
82 procedure FreeWeaponTooltip; |
|
83 procedure Tint(r, g, b, a: Single); |
83 |
84 |
84 implementation |
85 implementation |
85 uses uMisc, uConsole, uLand, uLocale, uWorld{$IFDEF IPHONEOS}, PascalExports{$ENDIF}; |
86 uses uMisc, uConsole, uLand, uLocale, uWorld{$IFDEF IPHONEOS}, PascalExports{$ENDIF}; |
86 |
87 |
87 type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple); |
88 type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple); |
88 |
89 |
89 var HHTexture: PTexture; |
90 var HHTexture: PTexture; |
90 MaxTextureSize: Integer; |
91 MaxTextureSize: Integer; |
91 cGPUVendor: TGPUVendor; |
92 cGPUVendor: TGPUVendor; |
|
93 |
|
94 procedure Tint(r, g, b, a: Single); |
|
95 begin |
|
96 glColor4f(r, g, b, a); |
|
97 end; |
92 |
98 |
93 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
99 procedure DrawRoundRect(rect: PSDL_Rect; BorderColor, FillColor: Longword; Surface: PSDL_Surface; Clear: boolean); |
94 var r: TSDL_Rect; |
100 var r: TSDL_Rect; |
95 begin |
101 begin |
96 r:= rect^; |
102 r:= rect^; |