PROCEDURE faltkarte;

VAR
	
	pageWidth:	REAL;
	pageHeighta,pageHeightb:	REAL;
	pageFoldY: REAL;
	objectX1,objectX2,objectX3,objectX4,objectX5,objectX6,objectX7,objectX8,objectX9,objectX10,objectX11,objectX12,objectX13,objectX14,objectX15,objectX16,objectX17,objectX18,objectX19,objectX20,
	objectX21,objectX22,objectX23,objectX24,objectX25,objectX26,objectX27,objectX28,objectX29,objectX30,objectX31,objectX32,objectX33,objectX34,objectX35,objectX36,objectX37,objectX38,objectX39,
	objectX40,objectX41,objectX42,objectX43,objectX44,objectX45,objectX46,objectX47,objectX48:REAL;
	objectY1,objectY2,objectY3,objectY4,objectY5,objectY6,objectY7,objectY8,objectY9,objectY10,objectY11,objectY12,objectY13,objectY14,objectY15,objectY16,objectY17,objectY18,objectY19,objectY20,
	objectY21,objectY22,objectY23,objectY24,objectY25,objectY26,objectY27,objectY28,objectY29,objectY30,objectY31,objectY32,objectY33,objectY34,objectY35,objectY36,objectY37,objectY38,objectY39,
	objectY40,objectY41,objectY42,objectY43,objectY44,objectY45,objectY46,objectY47,objectY48:REAL;
	width:	REAL;
	depth:	REAL;
	height:	REAL;
	distance: REAL;
	lost:  REAL;
BEGIN
	
{*Variablen berechnen*}
	pageWidth:=210;
	pageHeighta:=148.5;
	pageHeightb:=-148.5;
	pageFoldY:= 0;
	
	height:=Pheight;
	width:=Pwidth;
	depth:=height;
	distance:=Pdistance;
	lost:=Plost;
	
	objectX1:=pageWidth/2-(distance/2);
	objectY1:=height;
	objectX2:=objectX1-width;
	objectY2:=-objectY1;
	
	objectX3:=objectX2-distance;
	objectY3:=objectY1-lost;
	objectX4:=objectX3-width;
	objectY4:=-objectY3;
	
	objectX5:=objectX4-distance;
	objectY5:=	objectY3-lost;
	objectX6:=objectX5-width;
	objectY6:=	-objectY5;
	
	objectX7:=objectX6-distance;
	objectY7:=	objectY5-lost;
	objectX8:=objectX7-width;
	objectY8:=	-objectY7;

	objectX9:=objectX8-distance;
	objectY9:=	objectY7-lost;
	objectX10:=objectX9-width;
	objectY10:=-objectY9;

	objectX11:=objectX10-distance;
	objectY11:=objectY9-lost;
	objectX12:=objectX11-width;
	objectY12:=-objectY11;

	objectX13:=objectX12-distance;
	objectY13:=objectY11-lost;
	objectX14:=objectX13-width;
	objectY14:=-objectY13;

	objectX15:=objectX1+distance;
	objectY15:=objectY1;
	objectX16:=objectX15+width;
	objectY16:=-objectY15;

	objectX17:=objectX16+distance;
	objectY17:=objectY15-lost;
	objectX18:=objectX17+width;
	objectY18:=-objectY17;

	objectX19:=objectX18+distance;
	objectY19:=objectY17-lost;
	objectX20:=objectX19+width;
	objectY20:=-objectY19;

	objectX21:=objectX20+distance;
	objectY21:=objectY19-lost;
	objectX22:=objectX21+width;
	objectY22:=-objectY21;

	objectX23:=objectX22+distance;
	objectY23:=objectY21-lost;
	objectX24:=objectX23+width;
	objectY24:=-objectY23;

	objectX25:=objectX24+distance;
	objectY25:=objectY23-lost;
	objectX26:=objectX25+width;
	objectY26:=-objectY25;

	objectX27:=objectX26+distance;
	objectY27:=objectY25-lost;
	objectX28:=objectX27+width;
	objectY28:=-objectY27;
	
{*Innere Punkte*}
	
	objectX29:=pageWidth/2-(distance/2);
	objectY29:=height*3/4;
	objectX30:=objectX29-(width/2);
	objectY30:=-objectY29;
	
{*Stift einstellen*}
	penPat(2);
	penFore(0,0,65535);
	
{*blatt zeichnen*}
	moveto(0,0);
	lineto(0,pageHeighta);
	lineto(pageWidth,pageHeighta);
	lineto(pageWidth,pageHeightb);
	lineto(0,pageHeightb);
	lineto(0,0);

{*schnittkanten zeichnen*}
	moveto(objectX1,objectY1);
	lineto(objectX1,objectY2);
	moveto(objectX2,objectY1);
	lineto(objectX2,objectY2);
	
	moveto(objectX3,objectY3);
	lineto(objectX3,objectY4);
	moveto(objectX4,objectY3);
	lineto(objectX4,objectY4);

	moveto(objectX5,objectY5);
	lineto(objectX5,objectY6);
	moveto(objectX6,objectY5);
	lineto(objectX6,objectY6);

	moveto(objectX7,objectY7);
	lineto(objectX7,objectY8);
	moveto(objectX8,objectY7);
	lineto(objectX8,objectY8);

	moveto(objectX9,objectY9);
	lineto(objectX9,objectY10);
	moveto(objectX10,objectY9);
	lineto(objectX10,objectY10);

	moveto(objectX11,objectY11);
	lineto(objectX11,objectY12);
	moveto(objectX12,objectY11);
	lineto(objectX12,objectY12);

	moveto(objectX13,objectY13);
	lineto(objectX13,objectY14);
	moveto(objectX14,objectY13);
	lineto(objectX14,objectY14);
	
	moveto(objectX15,objectY15);
	lineto(objectX15,objectY16);
	moveto(objectX16,objectY15);
	lineto(objectX16,objectY16);

	moveto(objectX17,objectY17);
	lineto(objectX17,objectY18);
	moveto(objectX18,objectY17);
	lineto(objectX18,objectY18);

	moveto(objectX19,objectY19);
	lineto(objectX19,objectY20);
	moveto(objectX20,objectY19);
	lineto(objectX20,objectY20);

	moveto(objectX21,objectY21);
	lineto(objectX21,objectY22);
	moveto(objectX22,objectY21);
	lineto(objectX22,objectY22);

	moveto(objectX23,objectY23);
	lineto(objectX23,objectY24);
	moveto(objectX24,objectY23);
	lineto(objectX24,objectY24);

	moveto(objectX25,objectY25);
	lineto(objectX25,objectY26);
	moveto(objectX26,objectY25);
	lineto(objectX26,objectY26);

	moveto(objectX27,objectY27);
	lineto(objectX27,objectY28);
	moveto(objectX28,objectY27);
	lineto(objectX28,objectY28);

{*Innere Schnittlinien*}
	
	moveto(objectX30,objectY30);
	lineto(objectX30,objectY29);


{*Stift einstellen*}
	penFore(65535,0,0);
	penPat(-2);

{*blatt faltkanten zeichnen*}
	moveto(0,pageFoldY);
	lineto(objectX1,pageFoldY);
	moveto(objectX2,pageFoldY);
	lineto(pageWidth,pageFoldY);

{*faltkanten zeichnen*}
	moveto(objectX1,objectY1);
	lineto(objectX2,objectY1);
	moveto(objectX1,objectY2);
	lineto(objectX2,objectY2);

	moveto(objectX3,objectY3);
	lineto(objectX4,objectY3);
	moveto(objectX3,objectY4);
	lineto(objectX4,objectY4);

	moveto(objectX5,objectY5);
	lineto(objectX6,objectY5);
	moveto(objectX5,objectY6);
	lineto(objectX6,objectY6);

	moveto(objectX7,objectY7);
	lineto(objectX8,objectY7);
	moveto(objectX7,objectY8);
	lineto(objectX8,objectY8);

	moveto(objectX9,objectY9);
	lineto(objectX10,objectY9);
	moveto(objectX9,objectY10);
	lineto(objectX10,objectY10);

	moveto(objectX11,objectY11);
	lineto(objectX12,objectY11);
	moveto(objectX11,objectY12);
	lineto(objectX12,objectY12);

	moveto(objectX13,objectY13);
	lineto(objectX14,objectY13);
	moveto(objectX13,objectY14);
	lineto(objectX14,objectY14);

	moveto(objectX15,objectY15);
	lineto(objectX16,objectY15);
	moveto(objectX15,objectY16);
	lineto(objectX16,objectY16);

	moveto(objectX17,objectY17);
	lineto(objectX18,objectY17);
	moveto(objectX17,objectY18);
	lineto(objectX18,objectY18);
	
	moveto(objectX19,objectY19);
	lineto(objectX20,objectY19);
	moveto(objectX19,objectY20);
	lineto(objectX20,objectY20);

	moveto(objectX21,objectY21);
	lineto(objectX22,objectY21);
	moveto(objectX21,objectY22);
	lineto(objectX22,objectY22);

	moveto(objectX23,objectY23);
	lineto(objectX24,objectY23);
	moveto(objectX23,objectY24);
	lineto(objectX24,objectY24);

	moveto(objectX25,objectY25);
	lineto(objectX26,objectY25);
	moveto(objectX25,objectY26);
	lineto(objectX26,objectY26);

	moveto(objectX27,objectY27);
	lineto(objectX28,objectY27);
	moveto(objectX27,objectY28);
	lineto(objectX28,objectY28);

{*Faltlinien*}

	moveto(objectX29,objectY29);
	lineto(objectX30,objectY29);
	moveto(objectX29,objectY30);
	lineto(objectX30,objectY30);



{*Stift einstellen*}
	penPat(2);

END;