equal
deleted
inserted
replaced
35 end; |
35 end; |
36 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f; |
36 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f; |
37 end; |
37 end; |
38 |
38 |
39 implementation |
39 implementation |
40 uses uRender, uUtils, uVariables, uAmmos, Math, uVisualGears; |
40 uses uRender, uStore, uUtils, uVariables, uAmmos, Math, uVisualGears; |
41 |
41 |
42 procedure DrawRopeLinesRQ(Gear: PGear); |
42 procedure DrawRopeLinesRQ(Gear: PGear); |
43 begin |
43 begin |
44 with RopePoints do |
44 with RopePoints do |
45 begin |
45 begin |
60 |
60 |
61 glLineWidth(4.0); |
61 glLineWidth(4.0); |
62 |
62 |
63 Tint($C0, $C0, $C0, $FF); |
63 Tint($C0, $C0, $C0, $FF); |
64 |
64 |
65 glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]); |
65 SetVertexPointer(@RopePoints.rounded[0]); |
66 glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2); |
66 glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2); |
67 Tint($FF, $FF, $FF, $FF); |
67 Tint($FF, $FF, $FF, $FF); |
68 |
68 |
69 glEnable(GL_TEXTURE_2D); |
69 glEnable(GL_TEXTURE_2D); |
70 //glDisable(GL_LINE_SMOOTH) |
70 //glDisable(GL_LINE_SMOOTH) |