Informatik - Ampeln zeichnen

Grafik

Sprites
Pfad: Startseite / Fächer / Informatik / Delphi / Grafik / Ampel

Autor: mk
20.01.2007 15:47:22
6268

Ampeln zeichnen

Skizze Die Ampel soll ihren 'Aufhängepunkt' (x/y) jeweils links oben (von der Ampel her gesehen) haben. Ihre Größe soll über den Radius r der runden Lichter bestimmt werden. Es soll möglich sein, die Ampel in 4 Orientierungen o zu zeichnen: 0 = SN-Richtung, 1 = OW-Richtung, 2 = NS-Richtung, 3 = WO-Richtung. Die Lichter der Ampel werden über die booleschen Variablen rot, gelb und gruen gesteuert. Die Ampel wird direkt in die canvas gezeichnet.

GUI
Ampelzeichnen.zip

Klassenmethoden in uAmpel

unit uAmpel;

interface

uses
  Graphics; // für canvas usw.

type
  TAmpel = class(TObject)
  private
    { Private-Deklarationen }
  public
    class procedure zeichne_Ampel(canvas : TCanvas;
                                  x,y,r,o : integer;rot,gelb,gruen : boolean);
    class procedure zeichne_kleineAmpel(canvas : TCanvas;
                                        x,y,r,o : integer;rot,gruen : boolean);
  end;

implementation

const         // Ampelfarben
  grau      = $00404040; // XBGR
  rot_an    = $000000FF;
  rot_aus   = $00000055;
  gelb_an   = $0000FFFF;
  gelb_aus  = $00005555;
  gruen_an  = $0000FF00;
  gruen_aus = $00005500;

class procedure TAmpel.zeichne_Ampel(canvas : TCanvas;
                                     x,y,r,o : integer;rot,gelb,gruen : boolean);
begin
  with canvas do
  case o of
    0 : begin
          // Ampelkasten
          Brush.Color := grau; Rectangle(x,y,x+3*r,y+8*r);
          // Rot-Licht
          if rot then Brush.Color := rot_an else Brush.Color := rot_aus;
          Ellipse(x+round(0.5*r),y+round(0.5*r), x+round(2.5*r),y+round(2.5*r));
          // Gelb-Licht
          if gelb then Brush.Color := gelb_an else Brush.Color := gelb_aus;
          Ellipse(x+round(0.5*r),y+3*r, x+round(2.5*r),y+5*r);
          // Grün-Licht
          if gruen then Brush.Color := gruen_an else Brush.Color := gruen_aus;
          Ellipse(x+round(0.5*r),y+round(5.5*r), x+round(2.5*r),y+round(7.5*r));
          // Stange
          Brush.Color := grau;
          Rectangle(x+round(1.25*r),y+8*r,x+round(1.75*r),y+16*r);
        end;
    1 : begin
          // Ampelkasten
          Brush.Color := grau; Rectangle(x,y,x+8*r,y-3*r);
          // Rot-Licht
          if rot then Brush.Color := rot_an else Brush.Color := rot_aus;
          Ellipse(x+round(0.5*r),y-round(0.5*r), x+round(2.5*r),y-round(2.5*r));
          // Gelb-Licht
          if gelb then Brush.Color := gelb_an else Brush.Color := gelb_aus;
          Ellipse(x+3*r,y-round(0.5*r), x+5*r,y-round(2.5*r));
          // Grün-Licht
          if gruen then Brush.Color := gruen_an else Brush.Color := gruen_aus;
          Ellipse(x+round(5.5*r),y-round(0.5*r), x+round(7.5*r),y-round(2.5*r));
          // Stange
          Brush.Color := grau;
          Rectangle(x+8*r,y-round(1.25*r),x+16*r,y-round(1.75*r));
        end;
    2 : begin
          // Ampelkasten
          Brush.Color := grau; Rectangle(x-3*r,y,x,y-8*r);
          // Rot-Licht
          if rot then Brush.Color := rot_an else Brush.Color := rot_aus;
          Ellipse(x-round(2.5*r),y-round(0.5*r), x-round(0.5*r),y-round(2.5*r));
          // Gelb-Licht
          if gelb then Brush.Color := gelb_an else Brush.Color := gelb_aus;
          Ellipse(x-round(2.5*r),y-round(3*r), x-round(0.5*r),y-round(5*r));
          // Grün-Licht
          if gruen then Brush.Color := gruen_an else Brush.Color := gruen_aus;
          Ellipse(x-round(2.5*r),y-round(5.5*r), x-round(0.5*r),y-round(7.5*r));
          // Stange
          Brush.Color := grau;
          Rectangle(x-round(1.75*r),y-8*r,x-round(1.25*r),y-16*r);
        end;
    3 : begin
          // Ampelkasten
          Brush.Color := grau; Rectangle(x-8*r,y+3*r,x,y);
          // Rot-Licht
          if rot then Brush.Color := rot_an else Brush.Color := rot_aus;
          Ellipse(x-round(2.5*r),y+round(2.5*r), x-round(0.5*r),y+round(0.5*r));
          // Gelb-Licht
          if gelb then Brush.Color := gelb_an else Brush.Color := gelb_aus;
          Ellipse(x-5*r,y+round(2.5*r), x-3*r,y+round(0.5*r));
          // Grün-Licht
          if gruen then Brush.Color := gruen_an else Brush.Color := gruen_aus;
          Ellipse(x-round(7.5*r),y+round(2.5*r), x-round(5.5*r),y+round(0.5*r));
          // Stange
          Brush.Color := grau;
          Rectangle(x-16*r,y+round(1.75*r),x-8*r,y+round(1.25*r));
        end;
  end; // of case
end;
....

Die Ampel-Prozeduren sind Klassenmethoden, dh. sie lassen sich ohne Erzeugung einer Instanz von TAmpel nutzen:

....
uses
  ..., uAmpel;
....
procedure TForm1.bAmpelClick(Sender: TObject);
var
  x,y,r,o        : integer;
  rot,gelb,gruen : boolean;
begin
  x := StrToInt(eX.Text); y := StrToInt(eY.Text);
  r := StrToInt(eR.Text); o := StrToInt(eO.Text);
  rot := cbRot.Checked; gelb := cbGelb.Checked; gruen := cbGruen.Checked;

  TAmpel.zeichne_Ampel(canvas,x,y,r,o,rot,gelb,gruen);
end;
....

lokal