{Uebung 2 - CaadTeamCK}

Procedure meinSkript;

VAR
pX,pY:REAL;
i,k,r : INTEGER;
n,b,h : INTEGER;



BEGIN;

n := IntDialog('Wieviele Linien sollen parallel gezeichnet werden? (Zwischen 1 und 6)','1');
b := IntDialog('Wie breit soll die Lampe werden? (in cm)','10');
h := IntDialog('Wie hoch soll die Lampe werden? (in cm)','20');
	
		{Hülle:}
		BeginPoly;
		For k:=0 to 3 do BEGIN
		For i:=6 to n*94 Do BEGIN

			px:=sin(i)*b/2+k*b;
			py:=cos(pi/4*i)*h/2;	
		AddPoint(px,py);

		{Deckel:}
		Rect(40,0,40+b,b);
		Oval(40+b/2-2,b/2-2,40+b/2+2,b/2+2);
		END;
		END;	


			

END;
RUN(meinSkript);