unit mFarbkugel;

interface

uses mSuM, mKugel;

type Farbkugel = class(Kugel)
       constructor init(pAnfangH, pAnfangV: GanzeZahl; pGeschwindigkeit: Zahl; pRichtung: Zahl; pFarbe: GanzeZahl);
       // der Konstruktor erhält einen zusätzlichen Parameter
     end;

implementation

constructor Farbkugel.init(pAnfangH, pAnfangV: GanzeZahl; pGeschwindigkeit: Zahl; pRichtung: Zahl; pFarbe: GanzeZahl);
begin
  inherited init(pAnfangH, pAnfangV, pGeschwindigkeit, pRichtung);
  hatStift.setzeFarbe(pFarbe);
  hatStift.setzeFuellmuster(GEFUELLT);
  self.zeichne;
end;

end.