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;

    49     dA: LongInt;

    49     dA: LongInt;

    51 begin

    50 begin

    52     dA := hwSign(Gear^.dX);

    51     dA := hwSign(Gear^.dX);

    53     xx := dirs[Gear^.Angle].x;

    52     xx := dirs[Gear^.Angle].x;

    54     yy := dirs[Gear^.Angle].y;

    53     yy := dirs[Gear^.Angle].y;

    55     xxn := dirs[(Gear^.Angle + dA) and 3].x;

    54     xxn := dirs[(Gear^.Angle + dA) and 3].x;