PROCEDURE lampe2;

VAR

winkel, dicke, hoehe: real;

BEGIN;

winkel:= IntDialog('Winkel (Zahl) ?', '90');
hoehe:= IntDialog('Höhe (Zahl) ?', '400');
dicke:= IntDialog('Dicke (Zahl) ?', '10');


Smooth(3);
Poly(0,hoehe,75,(hoehe+winkel),150,hoehe,225,(hoehe-winkel),300,hoehe,300,hoehe-dicke,225,(hoehe-dicke-winkel),150,hoehe-dicke,75,(hoehe-dicke+winkel), 0,hoehe-dicke, 0, hoehe);



END;

RUN(lampe2);