equal
deleted
inserted
replaced
38 Gear^.Angle := (LongInt(Gear^.Angle) + 4 - dA) mod 4 |
38 Gear^.Angle := (LongInt(Gear^.Angle) + 4 - dA) mod 4 |
39 end; |
39 end; |
40 |
40 |
41 procedure NextAngle(Gear: PGear; dA: LongInt); inline; |
41 procedure NextAngle(Gear: PGear; dA: LongInt); inline; |
42 begin |
42 begin |
43 Gear^.Angle := (LongInt(Gear^.Angle) + dA) mod 4 |
43 Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4 |
44 end; |
44 end; |
45 |
45 |
46 procedure cakeStep(Gear: PGear); |
46 procedure cakeStep(Gear: PGear); |
47 var |
47 var |
48 xx, yy, xxn, yyn: LongInt; |
48 xx, yy, xxn, yyn: LongInt; |