48 procedure DrawTextureRotated (Texture: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); |
48 procedure DrawTextureRotated (Texture: PTexture; hw, hh, X, Y, Dir: LongInt; Angle: real); |
49 procedure DrawTextureRotatedF (Texture: PTexture; Scale, OffsetX, OffsetY: GLfloat; X, Y, Frame, Dir, w, h: LongInt; Angle: real); |
49 procedure DrawTextureRotatedF (Texture: PTexture; Scale, OffsetX, OffsetY: GLfloat; X, Y, Frame, Dir, w, h: LongInt; Angle: real); |
50 |
50 |
51 procedure DrawCircle (X, Y, Radius, Width: LongInt); |
51 procedure DrawCircle (X, Y, Radius, Width: LongInt); |
52 procedure DrawCircle (X, Y, Radius, Width: LongInt; r, g, b, a: Byte); |
52 procedure DrawCircle (X, Y, Radius, Width: LongInt; r, g, b, a: Byte); |
|
53 procedure DrawCircle (X, Y, Radius, Width: LongInt; color: LongWord); |
53 procedure DrawCircleFilled (X, Y, Radius: LongInt; r, g, b, a: Byte); |
54 procedure DrawCircleFilled (X, Y, Radius: LongInt; r, g, b, a: Byte); |
54 |
55 |
55 procedure DrawLine (X0, Y0, X1, Y1, Width: Single; color: LongWord); inline; |
56 procedure DrawLine (X0, Y0, X1, Y1, Width: Single; color: LongWord); inline; |
56 procedure DrawLine (X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte); |
57 procedure DrawLine (X0, Y0, X1, Y1, Width: Single; r, g, b, a: Byte); |
57 procedure DrawLineWrapped (X0, Y0, X1, Y1, Width: Single; goesLeft: boolean; Wraps: LongWord; color: LongWord); inline; |
58 procedure DrawLineWrapped (X0, Y0, X1, Y1, Width: Single; goesLeft: boolean; Wraps: LongWord; color: LongWord); inline; |
1560 end; |
1561 end; |
1561 |
1562 |
1562 procedure DrawCircle(X, Y, Radius, Width: LongInt; r, g, b, a: Byte); |
1563 procedure DrawCircle(X, Y, Radius, Width: LongInt; r, g, b, a: Byte); |
1563 begin |
1564 begin |
1564 Tint(r, g, b, a); |
1565 Tint(r, g, b, a); |
|
1566 DrawCircle(X, Y, Radius, Width); |
|
1567 untint; |
|
1568 end; |
|
1569 |
|
1570 procedure DrawCircle(X, Y, Radius, Width: LongInt; color: LongWord); |
|
1571 begin |
|
1572 Tint(color); |
1565 DrawCircle(X, Y, Radius, Width); |
1573 DrawCircle(X, Y, Radius, Width); |
1566 untint; |
1574 untint; |
1567 end; |
1575 end; |
1568 |
1576 |
1569 procedure DrawCircle(X, Y, Radius, Width: LongInt); |
1577 procedure DrawCircle(X, Y, Radius, Width: LongInt); |