equal
deleted
inserted
replaced
612 var i: LongWord; |
612 var i: LongWord; |
613 gX,gY: LongInt; |
613 gX,gY: LongInt; |
614 vg: PVisualGear; |
614 vg: PVisualGear; |
615 begin |
615 begin |
616 ScreenFade:= sfFromWhite; |
616 ScreenFade:= sfFromWhite; |
617 ScreenFadeValue:= 250; |
617 ScreenFadeValue:= round(60 * zoom * zoom); |
618 ScreenFadeSpeed:= 5; |
618 ScreenFadeSpeed:= 5; |
619 gX:= round(Gear^.X); |
619 gX:= round(Gear^.X); |
620 gY:= round(Gear^.Y); |
620 gY:= round(Gear^.Y); |
621 AddVisualGear(gX, gY, vgtSmokeRing); |
621 AddVisualGear(gX, gY, vgtSmokeRing); |
622 for i:= 0 to 46 do |
622 for i:= 0 to 46 do |