equal
deleted
inserted
replaced
3028 Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4 |
3028 Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4 |
3029 end; |
3029 end; |
3030 |
3030 |
3031 procedure doStepCakeWork(Gear: PGear); |
3031 procedure doStepCakeWork(Gear: PGear); |
3032 |
3032 |
3033 const dirs: array[0..3] of TPoint = ((x: 0; y: -1), (x: 1; y: 0),(x: 0; y: 1),(x: -1; y: 0)); |
3033 const dirs: array[0..3] of TPoint = ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0)); |
3034 var |
3034 var |
3035 xx, yy, xxn, yyn: LongInt; |
3035 xx, yy, xxn, yyn: LongInt; |
3036 dA: LongInt; |
3036 dA: LongInt; |
3037 tdx, tdy: hwFloat; |
3037 tdx, tdy: hwFloat; |
3038 begin |
3038 begin |