58 procedure DrawScreenWidget (widget: POnScreenWidget); |
58 procedure DrawScreenWidget (widget: POnScreenWidget); |
59 procedure DrawWater (Alpha: byte; OffsetY, OffsetX: LongInt); |
59 procedure DrawWater (Alpha: byte; OffsetY, OffsetX: LongInt); |
60 procedure DrawWaves (Dir, dX, dY, oX: LongInt; tnt: Byte); |
60 procedure DrawWaves (Dir, dX, dY, oX: LongInt; tnt: Byte); |
61 |
61 |
62 procedure RenderClear (); |
62 procedure RenderClear (); |
|
63 {$IFDEF USE_S3D_RENDERING} |
63 procedure RenderClear (mode: TRenderMode); |
64 procedure RenderClear (mode: TRenderMode); |
|
65 {$ENDIF} |
64 procedure RenderSetClearColor (r, g, b, a: real); |
66 procedure RenderSetClearColor (r, g, b, a: real); |
65 procedure Tint (r, g, b, a: Byte); inline; |
67 procedure Tint (r, g, b, a: Byte); inline; |
66 procedure Tint (c: Longword); inline; |
68 procedure Tint (c: Longword); inline; |
67 procedure untint(); inline; |
69 procedure untint(); inline; |
68 procedure setTintAdd (f: boolean); inline; |
70 procedure setTintAdd (f: boolean); inline; |
134 procedure openglTranslProjMatrix(X, Y, Z: GLFloat); forward; |
136 procedure openglTranslProjMatrix(X, Y, Z: GLFloat); forward; |
135 procedure openglScalef (ScaleX, ScaleY, ScaleZ: GLfloat); forward; |
137 procedure openglScalef (ScaleX, ScaleY, ScaleZ: GLfloat); forward; |
136 procedure openglRotatef (RotX, RotY, RotZ: GLfloat; dir: LongInt); forward; |
138 procedure openglRotatef (RotX, RotY, RotZ: GLfloat; dir: LongInt); forward; |
137 procedure openglTint (r, g, b, a: Byte); forward; |
139 procedure openglTint (r, g, b, a: Byte); forward; |
138 |
140 |
|
141 {$IFDEF USE_S3D_RENDERING OR USE_VIDEO_RECORDING} |
139 procedure CreateFramebuffer(var frame, depth, tex: GLuint); forward; |
142 procedure CreateFramebuffer(var frame, depth, tex: GLuint); forward; |
140 procedure DeleteFramebuffer(var frame, depth, tex: GLuint); forward; |
143 procedure DeleteFramebuffer(var frame, depth, tex: GLuint); forward; |
|
144 {$ENDIF} |
141 |
145 |
142 function isAreaOffscreen(X, Y, Width, Height: LongInt): boolean; inline; |
146 function isAreaOffscreen(X, Y, Width, Height: LongInt): boolean; inline; |
143 begin |
147 begin |
144 isAreaOffscreen:= (isDxAreaOffscreen(X, Width) <> 0) or (isDyAreaOffscreen(Y, Height) <> 0); |
148 isAreaOffscreen:= (isDxAreaOffscreen(X, Width) <> 0) or (isDyAreaOffscreen(Y, Height) <> 0); |
145 end; |
149 end; |