PROCEDURE faltobjekt;

VAR
	
	pageWidth:	REAL;
	pageHeight:	REAL;
	pageFoldY:	REAL;
	nVolumes: 	INTEGER;
	ANZAHL_OBJEKTE:	INTEGER;
	i:		INTEGER;
	objectX:	REAL;
	objectY:	REAL;


BEGIN
	
	{*Variablen berechnen*}
	pageWidth:=210;
	pageHeight:=297;
	pageFoldY:= pageHeight/2;
	nVolumes:=PANZAHL_OBJEKTE;
	i:=1;
	
	{*Stift einstellen*}
	penPat(2);
	penFore(0,0,65535);
	
	{*blatt zeichnen*}
	moveto(0,0);
	lineto(pageWidth,0);
	lineto(pageWidth,pageHeight);
	lineto(0,pageHeight);
	lineto(0,0);

	(*faltkante zeichnen*)
	penPat(-2);
	penFore(65535,0,0);
	moveto(0,pageFoldY);
	lineto(pageWidth,pageFoldY);


	FOR i:=1 TO nVolumes DO BEGIN

	(*zeichnen der objekte*)
		objectX:=pageWidth/(2*nVolumes);
		objectY:=pageFoldY/nVolumes;

		moveto(i*objectX,i*objectY);
		lineto(pageWidth-i*objectX,i*objectY);
		penFore(0,0,65535);
		penPat(2);
		lineto(pageWidth-i*objectX,pageHeight-i*objectY);
		penFore(65535,0,0);
		penPat(-2);
		lineto(i*objectX,pageHeight-i*objectY);
		penFore(0,0,65535);
		penPat(2);
		lineto(i*objectX,i*objectY);
		penFore(65535,0,0);
		penPat(-2);
		END;
		

	
END;
RUN(faltobjekt);