procedure scriptuebung;
var 
	i,Reihen:integer;
	DW,NW,A1,A2,x,y:real;


BEGIN

	LineTo(0,PLEINWANDHoeHE);
	MoveTo(0,-PLEINW);
	{LineTo(PDISTANZ,-PLEINW);}

	{Anzahl reihen}
	Reihen:=round((PDISTANZ-PERSTER)/PSA);
	
	{berechnungen des winkels}

	A1:=((PLEINW-PBEOBACHTER)/PERSTER);
	A2:=((PHoeHE+PBEOBACHTER-PLEINW)/PDISTANZ);
	DW:=((arctan(A1)+ArcTan(A2))/Reihen);		{delta-winkel}
	
	{if dw<0.002 then
		begin
			AlrtDialog('Sichtwinkel zu klein');
		end;	
		

	
	reihen}

	for i:=0 to Reihen do
		begin
			
			x:=PERSTER+(i*PSA);
			y:=(x*tan(-tan(A1)+i*DW));
			if i<>0 then
				begin
					LineTo(x,y-Pbeobachter);
				end;
			if y<PHOEHE then
				begin

					MoveTo(x,y);
					LineTo(x,(y-Pbeobachter));
					MoveTo(x,(y-Pbeobachter));					
				end
			
		end;
	
END;
run(scriptuebung);