equal
deleted
inserted
replaced
94 ar: array[0..MAXROPEPOINTS] of record |
94 ar: array[0..MAXROPEPOINTS] of record |
95 X, Y: hwFloat; |
95 X, Y: hwFloat; |
96 dLen: hwFloat; |
96 dLen: hwFloat; |
97 b: boolean; |
97 b: boolean; |
98 end; |
98 end; |
99 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2i; |
99 rounded: array[0..MAXROPEPOINTS + 2] of TVertex2f; |
100 end; |
100 end; |
101 |
101 |
102 procedure DeleteGear(Gear: PGear); forward; |
102 procedure DeleteGear(Gear: PGear); forward; |
103 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward; |
103 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); forward; |
104 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward; |
104 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt); forward; |
1278 |
1278 |
1279 glTranslatef(WorldDx, WorldDy, 0); |
1279 glTranslatef(WorldDx, WorldDy, 0); |
1280 |
1280 |
1281 glLineWidth(4.0); |
1281 glLineWidth(4.0); |
1282 |
1282 |
1283 // glColor3ub($B0, $B0, $B0); |
1283 glColor4f(0.8, 0.8, 0.8, 1); |
1284 glColor4f(176.0, 176.0, 176.0, 1.0); |
|
1285 |
1284 |
1286 glEnableClientState(GL_VERTEX_ARRAY); |
1285 glEnableClientState(GL_VERTEX_ARRAY); |
1287 glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]); |
1286 glVertexPointer(2, GL_FLOAT, 0, @RopePoints.rounded[0]); |
1288 glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2); |
1287 glDrawArrays(GL_LINE_STRIP, 0, RopePoints.Count + 2); |
1289 glColor4f(1, 1, 1, 1); |
1288 glColor4f(1, 1, 1, 1); |