18 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); |
18 procedure DrawRotatedF(Sprite: TSprite; X, Y, Frame, Dir: LongInt; Angle: real); |
19 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); |
19 procedure DrawRotatedTex(Tex: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); |
20 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
20 procedure DrawCentered(X, Top: LongInt; Source: PTexture); |
21 procedure DrawLine(X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte); |
21 procedure DrawLine(X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte); |
22 procedure DrawFillRect(r: TSDL_Rect); |
22 procedure DrawFillRect(r: TSDL_Rect); |
23 procedure DrawCircle(X, Y, Radius: LongInt; Width: Single; r, g, b, a: Byte); |
23 procedure DrawCircle(X, Y, Radius, Width: LongInt; r, g, b, a: Byte); |
24 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
24 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real); |
25 procedure Tint(r, g, b, a: Byte); inline; |
25 procedure Tint(r, g, b, a: Byte); inline; |
26 procedure Tint(c: Longword); inline; |
26 procedure Tint(c: Longword); inline; |
27 |
27 |
28 var |
28 var |
349 |
349 |
350 Tint($FF, $FF, $FF, $FF); |
350 Tint($FF, $FF, $FF, $FF); |
351 glEnable(GL_TEXTURE_2D) |
351 glEnable(GL_TEXTURE_2D) |
352 end; |
352 end; |
353 |
353 |
354 procedure DrawCircle(X, Y, Radius: LongInt; Width: Single; r, g, b, a: Byte); |
354 procedure DrawCircle(X, Y, Radius, Width: LongInt; r, g, b, a: Byte); |
355 var |
355 var |
356 i: LongInt; |
356 i: LongInt; |
357 CircleVertex: array [0..359] of TVertex2f; |
357 CircleVertex: array [0..359] of TVertex2f; |
358 begin |
358 begin |
359 for i := 0 to 359 do begin |
359 for i := 0 to 359 do begin |