unit mSpurkugel;

interface

uses mSuM, mKugel;

type Spurkugel = class(Kugel)
       constructor init(pAnfangH, pAnfangV: GanzeZahl; pGeschwindigkeit: Zahl; pRichtung: Zahl); override;
       procedure   loesche; override;
     end;

implementation

constructor Spurkugel.init(pAnfangH, pAnfangV: GanzeZahl; pGeschwindigkeit: Zahl; pRichtung: Zahl);
begin
  inherited init(pAnfangH, pAnfangV, pGeschwindigkeit, pRichtung);
  hatStift.runter
end;

procedure Spurkugel.loesche;
begin
  hatStift.wechsle;
  self.zeichne;
end;

end.