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

constructor THalbeKugel.init (pPosX, pPosY, pRadius, pRichtung, pGeschwindigkeit : double);
begin
  inherited init (pPosX, pPosY, pRadius, pRichtung, pGeschwindigkeit);
  zFarbe := 1
  ÜbergebeneFarbe := zFarbe
  hatBuntstift.setzeFarbe (ÜbegebeneFarbe)
  hatBuntstift.runter ( );
  zFarbe := ÜBergebeneFarbe+1
end;					

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

procedure TfrmKey.FormDeactivate(Sender: TObject);
begin
  Color:=RGB((GetRValue(ColorToRGB(Color)) - 20),
            (GetGValue(ColorToRGB(Color)) - 25),
            (GetBValue(ColorToRGB(Color)) - 25));
  StatusBar.SimpleText := '';
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:

unit mTHalbeKugel;
interface
  uses 
    mSuM,
    mTTisch,
    mTKugel;

type
  THalbeKugel = CLASS (TKugel)
  public
    zFarbe : integer;
    constructor init (pPosX, pPosY, pRadius, pRichtung, pGeschwindigkeit : double;  Const AFarbe : Integer; SchweinchenBabe : integer); override;
    procedure zeichneDich ( ); override;
end;

implementation
constructor THalbeKugel.init (pPosX, pPosY, pRadius, pRichtung, pGeschwindigkeit : double; Const AFarbe : Integer; SchweinchenBabe : integer);
begin
  inherited init (pPosX, pPosY, pRadius, pRichtung, pGeschwindigkeit);
  zFarbe := AFarbe + 1;
  hatBuntstift.setzeFarbe (zFarbe);
  hatBuntstift.runter;
end;

procedure THalbeKugel.zeichneDich ( );
begin
  inherited zeichneDich;
  hatBuntstift.setzeFuellMuster(1);
  hatBuntstift.zeichneKreis (zRadius-6);
  hatBuntstift.setzeFuellMuster (0);
end;
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:

var
  derBildschirm : Bildschirm; hatBuntstift : Buntstift; dieTastatur : Tastatur; dieMaus : Maus; dieUhr : Uhr; derTisch : TTisch; AnzKugeln : integer; TrueKugeln : integer; SchweinchenBabe : integer;Kugeln : array [1..13] of TKugel;

begin
  derBildschirm := Bildschirm.init;
  hatBuntstift := Buntstift.init;
  dieTastatur := Tastatur.init;
  dieMaus := Maus.init;
  dieUhr := Uhr.init;
  derTisch := TTisch.init (200, 200, 800, 500);
  AnzKugeln := 1;

  derTisch.zeichneDich;
  repeat
    if (dieTastatur.wurdeGedrueckt) then begin
      case (dieTastatur.zeichen) of
        'f' : begin
                if (AnzKugeln <= 13) then
                  begin
                    Kugeln [AnzKugeln] := THalbeKugel.init (400, 400, 15, 140, 0.05);
                    Kugeln [AnzKugeln].merke (derTisch);
                    SchweinchenBabe := AFarbe;
                    Kugeln [AnzKugeln].zeichneDich;
                    AnzKugeln := AnzKugeln+1;
                end;
              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:

var
  derBildschirm : Bildschirm; 
  hatBuntstift : Buntstift; 
  dieTastatur : Tastatur; 
  dieMaus : Maus; 
  dieUhr : Uhr; 
  derTisch : TTisch; 
  AnzKugeln : integer; 
  TrueKugeln : integer; 
  SchweinchenBabe : integer;     // Farbe der nächsten THalbKugel...
  Kugeln : array [1..13] of TKugel;

begin
  derBildschirm := Bildschirm.init;
  hatBuntstift := Buntstift.init;
  dieTastatur := Tastatur.init;
  dieMaus := Maus.init;
  dieUhr := Uhr.init;
  derTisch := TTisch.init (200, 200, 800, 500);
  AnzKugeln := 1;
  SchweinchenBabe := 1; // die Farbe der aller ersten THalbKugel...

  derTisch.zeichneDich;
  repeat
    if (dieTastatur.wurdeGedrueckt) then begin
      case (dieTastatur.zeichen) of
        'f' : begin
                if (AnzKugeln <= 13) then
                  begin
                    Kugeln [AnzKugeln] := THalbeKugel.init (400, 400, 15, 140, 0.05, SchweinchenBabe);
                    Kugeln [AnzKugeln].merke (derTisch);
                    Kugeln [AnzKugeln].zeichneDich;
                    AnzKugeln := AnzKugeln+1;
                    SchweinchenBabe := SchweinchenBabe + 1;
                end;
              end;