49 procedure DrawLine (X0, Y0, X1, Y1, Width: Single; color: LongWord); inline; |
49 procedure DrawLine (X0, Y0, X1, Y1, Width: Single; color: LongWord); inline; |
50 procedure DrawLine (X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte); |
50 procedure DrawLine (X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte); |
51 procedure DrawFillRect (r: TSDL_Rect); |
51 procedure DrawFillRect (r: TSDL_Rect); |
52 procedure DrawHedgehog (X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
52 procedure DrawHedgehog (X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
53 procedure DrawScreenWidget (widget: POnScreenWidget); |
53 procedure DrawScreenWidget (widget: POnScreenWidget); |
54 procedure DrawWaterBody (pVertexBuffer: Pointer; length: LongInt); |
54 procedure DrawWaterBody (pVertexBuffer: Pointer); |
55 |
55 |
56 procedure Tint (r, g, b, a: Byte); inline; |
56 procedure Tint (r, g, b, a: Byte); inline; |
57 procedure Tint (c: Longword); inline; |
57 procedure Tint (c: Longword); inline; |
58 procedure untint(); inline; |
58 procedure untint(); inline; |
59 procedure setTintAdd (f: boolean); inline; |
59 procedure setTintAdd (f: boolean); inline; |
117 {$ENDIF} |
117 {$ENDIF} |
118 end; |
118 end; |
119 |
119 |
120 procedure openglPushMatrix(); inline; |
120 procedure openglPushMatrix(); inline; |
121 begin |
121 begin |
122 {$IFDEF GL2}h{$ENDIF}glPushMatrix(); |
122 {$IFDEF GL2} |
|
123 hglPushMatrix(); |
|
124 {$ELSE} |
|
125 glPushMatrix(); |
|
126 {$ENDIF} |
123 end; |
127 end; |
124 |
128 |
125 procedure openglPopMatrix(); inline; |
129 procedure openglPopMatrix(); inline; |
126 begin |
130 begin |
127 {$IFDEF GL2}h{$ENDIF}glPopMatrix(); |
131 {$IFDEF GL2} |
|
132 hglPopMatrix(); |
|
133 {$ELSE} |
|
134 glPopMatrix(); |
|
135 {$ENDIF} |
128 end; |
136 end; |
129 |
137 |
130 procedure openglTranslatef(X, Y, Z: GLfloat); inline; |
138 procedure openglTranslatef(X, Y, Z: GLfloat); inline; |
131 begin |
139 begin |
132 {$IFDEF GL2}h{$ENDIF}glTranslatef(X, Y, Z); |
140 {$IFDEF GL2} |
|
141 hglTranslatef(X, Y, Z); |
|
142 {$ELSE} |
|
143 glTranslatef(X, Y, Z); |
|
144 {$ENDIF} |
133 end; |
145 end; |
134 |
146 |
135 procedure openglScalef(ScaleX, ScaleY, ScaleZ: GLfloat); inline; |
147 procedure openglScalef(ScaleX, ScaleY, ScaleZ: GLfloat); inline; |
136 begin |
148 begin |
137 {$IFDEF GL2}h{$ENDIF}glScalef(ScaleX, ScaleY, ScaleZ); |
149 {$IFDEF GL2} |
|
150 hglScalef(ScaleX, ScaleY, ScaleZ); |
|
151 {$ELSE} |
|
152 glScalef(ScaleX, ScaleY, ScaleZ); |
|
153 {$ENDIF} |
138 end; |
154 end; |
139 |
155 |
140 procedure openglRotatef(RotX, RotY, RotZ: GLfloat; dir: LongInt); inline; |
156 procedure openglRotatef(RotX, RotY, RotZ: GLfloat; dir: LongInt); inline; |
141 begin |
157 begin |
142 {$IFDEF GL2}h{$ENDIF}glRotatef(RotX, RotY, RotZ, dir); |
158 {$IFDEF GL2} |
|
159 hglRotatef(RotX, RotY, RotZ, dir); |
|
160 {$ELSE} |
|
161 glRotatef(RotX, RotY, RotZ, dir); |
|
162 {$ENDIF} |
143 end; |
163 end; |
144 |
164 |
145 procedure openglUseColorOnly(b :boolean); inline; |
165 procedure openglUseColorOnly(b :boolean); inline; |
146 begin |
166 begin |
147 if b then |
167 if b then |