equal
deleted
inserted
replaced
34 const dirs: array[0..3] of TPoint = ((x: 0; y: -1), |
34 const dirs: array[0..3] of TPoint = ((x: 0; y: -1), |
35 (x: 1; y: 0), |
35 (x: 1; y: 0), |
36 (x: 0; y: 1), |
36 (x: 0; y: 1), |
37 (x: -1; y: 0)); |
37 (x: -1; y: 0)); |
38 |
38 |
39 procedure PrevAngle(Gear: PGear; dA: LongInt); inline; |
39 procedure PrevAngle(Gear: PGear; dA: LongInt); |
40 begin |
40 begin |
41 inc(Gear^.WDTimer); |
41 inc(Gear^.WDTimer); |
42 Gear^.Angle := (LongInt(Gear^.Angle) - dA) and 3 |
42 Gear^.Angle := (LongInt(Gear^.Angle) - dA) and 3 |
43 end; |
43 end; |
44 |
44 |
45 procedure NextAngle(Gear: PGear; dA: LongInt); inline; |
45 procedure NextAngle(Gear: PGear; dA: LongInt); |
46 begin |
46 begin |
47 inc(Gear^.WDTimer); |
47 inc(Gear^.WDTimer); |
48 Gear^.Angle := (LongInt(Gear^.Angle) + dA) and 3 |
48 Gear^.Angle := (LongInt(Gear^.Angle) + dA) and 3 |
49 end; |
49 end; |
50 |
50 |