PROCEDURE sechseck;

CONST 
	pageWidth=210;
	pageHeight=297;
	pageFoldY=148.5;
	pagefoldx=105;

VAR
	pX1,pX2,px3,px4,pY1,pY2,py3:REAL;
	width,distance:	REAL;
	i:INTEGER;
	makeRandomwidth: BOOLEAN;

BEGIN

	
	makeRandomwidth:=true;

	IF (makerandomwidth=true) THEN BEGIN
			width:=20+random*15;
		END
		ELSE BEGIN
			width:=20;
		END;

		

	FOR i:=0 to 3 DO BEGIN

		distance:=(-40);
		px1:=65;
		py1:=((148.5+80)+i*distance);
	
		
		
		
		px2:=(px1-width);
		px3:=(px1+width);
		py2:=(py1-20);
		py3:=(py1-40);
		
	
		moveto(px1,py1);
		penFore(65345,0,0);
		lineto((px1+10),py1);
		penFore(0,65345,0);
		lineto(px3,py2);
		lineto((px1+10),py3);
		penFore(65345,0,0);
		lineto(px1-10,py3);
		penFore(0,65345,0);
		lineto(px2,py2);
		lineto(px1-10,py1);
		penFore(65345,0,0);
		lineto(px1,py1);

		penFore(65345,0,0);		
		moveto(px2,py2);
		lineto(pagefoldx,py2);
		
		moveto(px1+10,py1);
		lineto(pagefoldx,py1);
		

		moveto(px1+10,py3);
		lineto(pagefoldx,py3);	
				
		

	
		
		
	END;

	penFore(0,65345,0);
	moveto( px1+10, pagefoldy-80);
	lineto(px1+25, pagefoldy-100);
	penFore(65345,0,0);
	lineto(px1+55, pagefoldy-100);
	penFore(0,65345,0);
	lineto(px1+70, pagefoldy-80);

	moveto( px1+10, pagefoldy+80);
	lineto(px1+25, pagefoldy+100);
	penFore(65345,0,0);
	lineto(px1+55, pagefoldy+100);
	penFore(0,65345,0);
	lineto(px1+70, pagefoldy+80);
	
	FOR i:=0 to 3 DO BEGIN

		distance:=(-40);
		px1:=145;
		py1:=((148.5+80)+i*distance);
	
		
		
		
		px2:=(px1-width);
		px3:=(px1+width);
		py2:=(py1-20);
		py3:=(py1-40);
		
	
		moveto(px1,py1);
		penFore(65345,0,0);
		lineto((px1+10),py1);
		penFore(0,65345,0);
		lineto(px3,py2);
		lineto((px1+10),py3);
		penFore(65345,0,0);
		lineto(px1-10,py3);
		penFore(0,65345,0);
		lineto(px2,py2);
		lineto(px1-10,py1);
		penFore(65345,0,0);
		lineto(px1,py1);
		
		moveto(px2,py2);
		lineto(px3,py2);

		
		moveto(px2,py2);
		lineto(pagefoldx,py2);
		
		moveto(px1-10,py1);
		lineto(pagefoldx,py1);
		
		moveto(px1-10,py3);
		lineto(pagefoldx,py3);
		
		moveto(0,pagefoldy);
		lineto(pagewidth,pagefoldy);

	
		
		
	END;

	
	
	penFore(0,65345,0);

	
	
	{*blatt zeichnen*}
	moveto(0,0);
	lineto(pageWidth,0);
	lineto(pageWidth,pageHeight);
	lineto(0,pageHeight);
	lineto(0,0);

	
END;

RUN(sechseck);