equal
deleted
inserted
replaced
30 unit uVisualGearsHandlers; |
30 unit uVisualGearsHandlers; |
31 |
31 |
32 interface |
32 interface |
33 uses uTypes; |
33 uses uTypes; |
34 |
34 |
35 var doStepHandlers: array[TVisualGearType] of TVGearStepProcedure; |
35 var doStepVGHandlers: array[TVisualGearType] of TVGearStepProcedure; |
36 |
36 |
37 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
37 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
38 procedure doStepBeeTrace(Gear: PVisualGear; Steps: Longword); |
38 procedure doStepBeeTrace(Gear: PVisualGear; Steps: Longword); |
39 procedure doStepCloud(Gear: PVisualGear; Steps: Longword); |
39 procedure doStepCloud(Gear: PVisualGear; Steps: Longword); |
40 procedure doStepExpl(Gear: PVisualGear; Steps: Longword); |
40 procedure doStepExpl(Gear: PVisualGear; Steps: Longword); |
919 @doStepStraightShot |
919 @doStepStraightShot |
920 ); |
920 ); |
921 |
921 |
922 procedure initModule; |
922 procedure initModule; |
923 begin |
923 begin |
924 doStepHandlers:= handlers |
924 doStepVGHandlers:= handlers |
925 end; |
925 end; |
926 |
926 |
927 end. |
927 end. |