1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

PROGRAM Billard;

uses
uKugel,
msum;

  VAR
   Kugel2,Kugel1: meineKugel;
   mBildschirm: Bildschirm;
   mstift: Buntstift;
   mmaus: maus;
   m1x,m1y,m2x,m2y: real; // die mittelpunkte der kugeln

begin
  randomize;
  mBildschirm:= Bildschirm.init;
  Kugel2 := meineKugel.init(random(962)+30,random(669)+30,random(360),random(5)+1,rot,orange,mBildschirm);
  Kugel1 := meineKugel.init(random(962)+30,random(669)+30,random(360),random(5)+1,blau,hellblau,mBildschirm);
  mstift := Buntstift.init;
  mmaus := maus.init;

repeat
  Kugel1.bewege;
  m1x := mstift.hposition;  // nach dem bewegen von kugel1
  m1y := mstift.vposition;  // den neuen mittelpunkt ermitteln
  Kugel2.bewege;
  m2x := mstift.hposition;  // nach dem bewegen von kugel2
  m2y := mstift.vposition;  // den neuen mittelpunkt ermitteln
    IF (sqr(m2x - m1x) + sqr(m2y - m1y)) < 3600 then begin // mithilfe von pythagoras feststellen, ob eine kollision vorliegt (3600 = radius^2)
      kugel1.kol; // kugel 1 abprallen lassen
      kugel2.kol; // kugel 2 abprallen lassen
    end;
until mMaus.istGedrueckt;

  Kugel2.gibFrei;
  Kugel1.gibfrei;
  mmaus.gibFrei;
  mstift.gibfrei;
  mBildschirm.gibFrei;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

unit uKugel;

interface
  uses mSuM;

type
meineKugel = class
  hatStift: Buntstift;
  kenntBS: Bildschirm;
  zGeschw: zahl;
  farbea,farbem: integer;
 constructor init (pXPos,pYPos,pRichtung,pGeschw: real; pFarbea,pFarbem: integer; pBS: bildschirm);
  procedure zeichne;
  procedure loesche;
  procedure bewege;
  procedure kol;
  destructor gibFrei;
end;



implementation

constructor meineKugel.init (pXPos,pYPos,pRichtung,pGeschw: real; pFarbea,pFarbem: integer; pBS: bildschirm);
  begin
  hatstift:= Buntstift.Init;
  farbea := pFarbea;
  farbem := pfarbem;
  hatstift.setzeFuellMuster(gefuellt);
  hatstift.hoch;
  hatstift.bewegeBis(pXPos,pYPos);
  hatstift.dreheBis(pRichtung);
  zGeschw := pGeschw;  
  kenntBS := pBS;
end;

procedure meineKugel.zeichne;
  begin
    hatstift.setzefarbe (farbea);
    hatstift.setzeFuellMuster (1);
    hatStift.zeichneKreis(30);
    hatstift.setzeFarbe (Farbem);
    hatstift.zeichneKreis(15);
  end;

procedure meinekugel.kol;  // kugel nach hinten abprallen lassen 
  begin
    hatstift.dreheum(180);
  end;

procedure meineKugel.loesche;
  begin
    hatStift.radiere;
    hatStift.zeichneKreis(31);
    hatStift.normal;
  end;

procedure meineKugel.bewege;
  begin
    self.loesche;
    hatStift.bewegeUm(zGeschw);
    self.zeichne;
    if (hatStift.hPosition<=31) or (hatStift.hPosition>=993)
      then hatStift.dreheUm(180-2*hatstift.Winkel)
      else if (hatStift.vPosition<=31) or (hatStift.vPosition>=700)
        then hatStift.dreheUm(-2*hatstift.winkel);
        if zGeschw >0 then
          zGeschw := zGeschw-0.00005;
  end;

destructor meineKugel.gibFrei;
  begin 
    hatStift.gibFrei;
  end;

end.					

1:
2:
3:
4:

    IF (sqr(m2x - m1x) + sqr(m2y - m1y)) < 3600 then begin  
      kugel1.kol;  
      kugel2.kol;  
    end;					

1:
2:
3:
4:

    IF (sqr(m2x - m1x) + sqr(m2y - m1y)) > 3600 then begin  
      kugel1.kol;  
      kugel2.kol;  
    end;					

1:
2:
3:
4:
5:
6:
7:
8:

    IF sqrt((sqr(m2x - m1x) + sqr(m2y - m1y))) <= radius1+radius2 then begin  
      bx:= kugel1.xspeed;
      by:= kugel1.yspeed;
      kugel1.xspeed:= kugel2.xspeed;
      kugel1.yspeed:= kugel2.yspeed;
      kugel2.xspeed:= bx;
      kugel2.yspeed:= by; 
    end;