Beispiel zur Darstellung (ohne Maße) und Programmierung einer Tür

a)	

Darstellung

b)	Stückliste

Teil	Grafische Figur	Eckpunkt	Länge, Breite
in mm	
	Rechteck	P (X_Anf, Y_Anf)	1200 x 2100	
Pfosten links	Rechteck	P (0, 0)	100 x 2000	
Pfosten rechts	Rechteck	P (1100, 0)	100 x 2000	
Pfosten oben	Rechteck	P (0, 2000)	1200 x 100	
Vorstück unten links	Rechteck	P (230, 300)	200 x 400	
Vorstück unten mitte	Rechteck	P (500, 300)	200 x 400	
Vorstück unten rechts	Rechteck	P (770, 300)	200 x 400	
Unteres Fenster	Dreieck	P (250, 1200)	700, 0; 0, 500; -700, -500	
oberes Fenster	Dreieck	P (250, 1250)	700, 500; -700, 0; 0, -500	

c)	Unit Tuer 1

procedure Welt_Tuer_1_zeigen (X_Anfang, Y_Anfang : real);
begin
    Cursor_setzen (X_Anfang, Y_Anfang);
    Welt_Rechteck_zeigen (1200, 2100, yellow, brown); 
{gesamter Rahmen}
    Cursor_verschieben (00, 00);
    Welt_Rechteck_zeigen (100, 2000, yellow, magenta); 
{linker Pfosten}
    Cursor_verschieben (1100, 00);
    Welt_Rechteck_zeigen (100, 2000, yellow, magenta);
{rechter Pfosten}
    Cursor_verschieben (00, 2000);
    Welt_Rechteck_zeigen (1200, 100, yellow, magenta);
{oberer Pfosten}
    Cursor_verschieben (230, 300);
    Welt_Rechteck_zeigen (200, 400, yellow, magenta); 
{Vorsatz unten links}
    Cursor_verschieben (500, 300);
    Welt_Rechteck_zeigen (200, 400, yellow, magenta); 
{Vorsatz unten mitte}
    Cursor_verschieben (770, 300);
    Welt_Rechteck_zeigen (200, 400, yellow, magenta); 
{Vorsatz unten rechts}
    Cursor_verschieben (250, 1200);
    Welt_Dreieck_zeigen (700, 0, 0, 500, -700, -500, yellow, green);
{unteres Fenster}
    Cursor_verschieben (250, 1250);
    Welt_Dreieck_zeigen (700, 500, -700, 0, 0, -500, yellow, green);
{oberes Fenster}
end;