program Billard10;

uses
  mSum,
  mKugel in 'mKugel.pas';

var
  derBildschirm : Bildschirm;
  dieMaus       : Maus;
  meineKugel,
  weitereKugel  : Kugel;

begin
  // Initialisierung
  derBildschirm := Bildschirm.init;
  dieMaus       := Maus.init;
  meineKugel    := Kugel.init(20,50,0.5,75);
  meineKugel.merke(derBildschirm);   // Kennt-Beziehung herstellen
  weitereKugel  := Kugel.init(300,250,0.1,111);
  weitereKugel.merke(derBildschirm); // Kennt-Beziehung herstellen

  // Aktionsteil
  meineKugel.zeichne;
  weitereKugel.zeichne;
  repeat
    meineKugel.bewege;
    weitereKugel.bewege;
  until dieMaus.istGedrueckt;

  // Aufräumen
  weitereKugel.gibFrei;
  meineKugel.gibFrei;
  dieMaus.gibFrei;
  derBildschirm.gibFrei
end.