 |
|||
| HSG |
|
Plan
Zeichne nach nebenstehendem Plan mit Hilfe der canvas ein Haus. (x/y) soll als 'Aufhängepunkt' dienen und
a die Größe skalieren.
Zur Grafikprogrammierung erhält man in der Delphi-Hilfe wichtige Hinweise. Dazu nach TImage (VCL) suchen, dann zur
Verwendung von TImage verzweigen, Grafikprogrammierung im Überblick anklicken. Dort findet man unter
'Häufig verwendete Eigenschaften des Objekts Canvas' viele grundlegende Methoden erläutert.
Delphi-Realisierung
procedure TForm1.bZeichneClick(Sender: TObject); procedure zeichne_Haus(x,y : integer; a : real); // Prozedur-Vereinbarung begin with iBild.Canvas do begin // Seitenwände und Boden moveTo(x,y-round(a*3.5)); lineTo(x,y); lineTo(x+round(4*a),y); lineTo(x+round(4*a),y-round(3.5*a)); // Dach moveTo(x-round(a*1),y-round(a*2.5)); lineTo(x+round(a*2),y-round(a*5.5)); lineTo(x+round(5*a),y-round(2.5*a)); // Tür moveTo(x+round(a*0.5),y); lineTo(x+round(a*0.5),y-round(a*2.5)); lineTo(x+round(a*1.5),y-round(a*2.5)); lineTo(x+round(a*1.5),y); // großes Fenster moveTo(x+round(a*2),y-round(a*1)); lineTo(x+round(a*3.5),y-round(a*1)); lineTo(x+round(a*3.5),y-round(a*2.5)); lineTo(x+round(a*2),y-round(a*2.5)); lineTo(x+round(a*2),y-round(a*1)); moveTo(x+round(a*2),y-round(a*1.5)); lineTo(x+round(a*3.5),y-round(a*1.5)); moveTo(x+round(a*2),y-round(a*2)); lineTo(x+round(a*3.5),y-round(a*2)); moveTo(x+round(a*2.5),y-round(a*2.5)); lineTo(x+round(a*2.5),y-round(a*1)); moveTo(x+round(a*3),y-round(a*2.5)); lineTo(x+round(a*3),y-round(a*1)); // kleines Fenster moveTo(x+round(a*1.5),y-round(a*3.5)); lineTo(x+round(a*2.5),y-round(a*3.5)); lineTo(x+round(a*2.5),y-round(a*4.5)); lineTo(x+round(a*1.5),y-round(a*4.5)); lineTo(x+round(a*1.5),y-round(a*3.5)); moveTo(x+round(a*2),y-round(a*4.5)); lineTo(x+round(a*2),y-round(a*3.5)); moveTo(x+round(a*1.5),y-round(a*4)); lineTo(x+round(a*2.5),y-round(a*4)); // Schornstein moveTo(x+round(a*1),y-round(a*4.5)); lineTo(x+round(a*1),y-round(a*6)); lineTo(x+round(a*1.5),y-round(a*6)); lineTo(x+round(a*1.5),y-round(a*5)); end; end; begin zeichne_Haus(300,500,70); // Prozedur-Aufruf end;
Aufgabe
Schreibe analog eine Prozedur zeichne_Baum(x,y : integer; a : real) . Zeichne verschiedene Häuser und Bäume.