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.