PROCEDURE faltkarte;
CONST 
	pageWidth=297;
	pageHeight=210;
	pageFoldY=170;
VAR
	objectX1,objectX2,objectX3,objectX4,objectX5,objectX6,objectX7,objectX8,objectX9:REAL;
	objectXX1,objectXX2,objectXX3,objectXX4,objectXX5,objectXX6,objectXX7,objectXX8,objectXX9,objectXX10:REAL;
	objectY1,objectY2,objectY3,objectYY0,objectYY1,objectYY2,objectYY3:REAL;
	width,depth,height,distance:	REAL;
	wwidth,ddepth,hheight,ddistance:	REAL;
	nVolumes:  INTEGER;
	cminor,cmajor: BOOLEAN;
	normal: BOOLEAN;
	eminor,emajor: BOOLEAN;

BEGIN
	{*werte in variablen speichern*}
	nVolumes:=7;
	width:=23;
	wwidth:=10;
	distance:=(pageWidth-(nVolumes*width))/2;
	(*makeRandomHeight:=false;*)
	ddistance:=width-wwidth;
	cminor:=pcminor;
	normal:=pnormal;
	cmajor:=pcmajor;
	eminor:=peminor;
	emajor:=pemajor;

	{*breite der Volumes berechnen*}	
	(*width:= (pageWidth-(nVolumes+1)*distance)/(nVolumes);
*)	

	

	{*dina a4 blatt zeichnen*}
	penFore(0,0,65535);
	moveto(0,0);
	lineto(pageWidth,0);
	lineto(pageWidth,pageHeight);
	lineto(0,pageHeight);
	lineto(0,0);

	{*zum ersten papierfaltpunkt bewegen*}
	moveto(0,pageFoldY);

	objectX1:=distance;
	objectX2:=objectX1+width;
	objectX3:=objectX2+width;
	objectX4:=objectX3+width;
	objectX5:=objectX4+width;
	objectX6:=objectX5+width;
	objectX7:=objectX6+width;
	objectX8:=objectX7+width;
	
	objectXX1:=width-(wwidth/2)+distance;
	objectXX2:=objectXX1+wwidth;
	objectXX3:=objectXX2+ddistance;
	objectXX4:=objectXX3+wwidth;
	objectXX5:=objectXX4+wwidth+2*ddistance;
	objectXX6:=objectXX5+wwidth;
	objectXX7:=objectXX6+ddistance;
	objectXX8:=objectXX7+wwidth;
	objectXX9:=objectXX8+ddistance;
	objectXX10:=objectXX9+wwidth;

	
		{*Tiefe des Körpers berechnen, steigt von volume zu volume*}
		depth:=150;
		ddepth:=90;

		height:=18;
		hheight:=10;

		{*yWerte für die Linien berechnen*}
		objectY1:=pageFoldY - depth;
		objectY3:=pageFoldY + height;
		objectY2:=objectY3-depth;
		
		objectYY1:=objectY3-ddepth;
		objectYY3:=objectY3+hheight;
		objectYY2:=objectYY3-ddepth;
		objectYY0:=objectYY1-height;

		{*Wenn cminor*}
		IF (cminor=true) THEN BEGIN
		
message('C MINOR ACCORD');

{*papier faltkanten zeichnen*}
		penFore(65535,0,0);		
		lineTo(objectX1,pageFoldY);

		moveto(objectX8,pageFoldY);
		lineto(pagewidth,pageFoldY);
		moveto(objectX2,objectY1);
		lineto(objectX3,objectY1);
		moveto(objectX3,objectY1);
		lineto(objectX4,objectY1);
		moveto(objectX4,objectY1);
		lineto(objectX5,objectY1);
		moveto(objectX6,objectY1);
		lineto(objectX7,objectY1);
		moveto(objectX7,objectY1);
		lineto(objectX8,objectY1);
		moveto(objectX2,objectY2);
		lineto(objectX3,objectY2);
		moveto(objectX3,objectY2);
		lineto(objectX4,objectY2);
		moveto(objectX4,objectY2);
		lineto(objectX5,objectY2);
		moveto(objectX6,objectY2);
		lineto(objectX7,objectY2);
		moveto(objectX7,objectY2);
		lineto(objectX8,objectY2);
		moveto(objectX1,pageFoldY);
		lineto(objectXX1,pageFoldY);
		moveto(objectX2,objectYY1);
		lineto(objectXX2,objectYY1);
		moveto(objectXX2,objectY3);
		lineto(objectXX3,objectY3);
		moveto(objectXX4,objectY3);
		lineto(objectXX5,objectY3);
		moveto(objectXX6,pageFoldY);
		lineto(objectXX7,pageFoldY);
		moveto(objectXX8,objectY3);
		lineto(objectXX9,objectY3);
		moveto(objectXX10,objectY3);
		lineto(objectX8,objectY3);
		moveto(objectXX1,objectYY0);
		lineto(objectX2,objectYY0);
		moveto(objectXX5,objectYY1);
		lineto(objectX5,objectYY1);
		moveto(objectX5,objectYY0);
		lineto(objectXX6,objectYY0);
		moveto(objectXX7,objectYY0);
		lineto(objectX6,objectYY0);
		moveto(objectX6,objectYY1);
		lineto(objectXX8,objectYY1);
		moveto(objectXX9,objectYY1);
		lineto(objectXX10,objectYY1);
		moveto(objectXX1,objectYY2);
		lineto(objectXX2,objectYY2);
		moveto(objectXX5,objectYY2);
		lineto(objectXX6,objectYY2);
		moveto(objectXX7,objectYY2);
		lineto(objectXX8,objectYY2);
		moveto(objectXX9,objectYY2);
		lineto(objectXX10,objectYY2);
		moveto(objectXX1,objectYY3);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectY3);
		lineto(objectXX4,objectY3);
		moveto(objectXX5,objectYY3);
		lineto(objectXX6,objectYY3);
		moveto(objectXX7,objectYY3);
		lineto(objectXX8,objectYY3);
		moveto(objectXX9,objectYY3);
		lineto(objectXX10,objectYY3);

						{*schnittkanten zeichnen*}
						penFore(0,0,5);

		moveto(objectX1,objectY1);
		lineto(objectX1,pageFoldY);
		moveto(objectX3,objectY1);
		lineto(objectX3,objectYY1);
		moveto(objectX4,objectY1);
		lineto(objectX4,objectY3);
		moveto(objectX7,objectY1);
		lineto(objectX7,objectYY1);
		moveto(objectX5,objectY1);
		lineto(objectX6,objectY1);
		moveto(objectXX3,objectYY1);
		lineto(objectXX4,objectYY1);
		moveto(objectXX3,objectYY1);
		lineto(objectXX3,objectY3);
		moveto(objectXX4,objectYY1);
		lineto(objectXX4,objectY3);
		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);

		{*schnittkanten zeichnen*}
		penFore(0,0,65535);
	
		moveto(objectX2,objectY1);
		lineto(objectX2,objectYY1);
		moveto(objectX5,objectY1);
		lineto(objectX5,objectYY1);
		moveto(objectX6,objectY1);
		lineto(objectX6,objectYY1);
		moveto(objectX8,objectY1);
		lineto(objectX8,objectY3);
		moveto(objectXX1,objectYY0);
		lineto(objectXX1,objectYY3);
		moveto(objectXX2,objectYY1);
		lineto(objectXX2,objectYY3);
		moveto(objectXX5,objectYY1);
		lineto(objectXX5,objectYY3);
		moveto(objectXX6,objectYY0);
		lineto(objectXX6,objectYY3);
		moveto(objectXX7,objectYY0);
		lineto(objectXX7,objectYY3);
		moveto(objectXX8,objectYY1);
		lineto(objectXX8,objectYY3);
		moveto(objectXX9,objectYY1);
		lineto(objectXX9,objectYY3);
		moveto(objectXX10,objectYY1);
		lineto(objectXX10,objectYY3);
(*moveto(objectX2,objectY1);
		lineto(objectX2,objectY3);
{*volumen faltkanten zeichnen*}
		penFore(65535,0,0);
		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX1,objectY2);
		lineto(objectX2,objectY2);
		moveto(objectX1,objectY3);
		lineto(objectX2,objectY3);*)
		
		{*zum nächsten papierfaltpunkt bewegen*}
		moveto(objectX2,pageFoldY);

		END;

	{*Wenn normal*}
		IF (normal=true) THEN BEGIN	

message('Piano ohne Accord');

		{*papier faltkanten zeichnen*}
		penFore(65535,0,0);		
		lineTo(objectX1,pageFoldY);

		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX2,objectY1);
		lineto(objectX3,objectY1);
		moveto(objectX3,objectY1);
		lineto(objectX4,objectY1);
		moveto(objectX4,objectY1);
		lineto(objectX5,objectY1);
		moveto(objectX5,objectY1);
		lineto(objectX6,objectY1);
		moveto(objectX6,objectY1);
		lineto(objectX7,objectY1);
		moveto(objectX7,objectY1);
		lineto(objectX8,objectY1);

		moveto(objectX1,objectY2);
		lineto(objectX2,objectY2);
		moveto(objectX2,objectY2);
		lineto(objectX3,objectY2);
		moveto(objectX3,objectY2);
		lineto(objectX4,objectY2);
		moveto(objectX4,objectY2);
		lineto(objectX5,objectY2);
		moveto(objectX5,objectY2);
		lineto(objectX6,objectY2);
		moveto(objectX6,objectY2);
		lineto(objectX7,objectY2);
		moveto(objectX7,objectY2);
		lineto(objectX8,objectY2);
		moveto(objectX8,pageFoldY);
		lineto(pagewidth,pageFoldY);
		moveto(objectX1,objectY3);
		lineto(objectXX1,objectY3);
		moveto(objectXX2,objectY3);
		lineto(objectXX3,objectY3);
		moveto(objectXX4,objectY3);
		lineto(objectXX5,objectY3);
		moveto(objectXX6,objectY3);
		lineto(objectXX7,objectY3);
		moveto(objectXX8,objectY3);
		lineto(objectXX9,objectY3);
		moveto(objectXX10,objectY3);
		lineto(objectX8,objectY3);
		moveto(objectXX1,objectYY1);
		lineto(objectXX2,objectYY1);
		moveto(objectXX3,objectYY1);
		lineto(objectXX4,objectYY1);
		moveto(objectXX5,objectYY1);
		lineto(objectXX6,objectYY1);
		moveto(objectXX7,objectYY1);
		lineto(objectXX8,objectYY1);
		moveto(objectXX9,objectYY1);
		lineto(objectXX10,objectYY1);
		moveto(objectXX1,objectYY2);
		lineto(objectXX2,objectYY2);
		moveto(objectXX3,objectYY2);
		lineto(objectXX4,objectYY2);
		moveto(objectXX5,objectYY2);
		lineto(objectXX6,objectYY2);
		moveto(objectXX7,objectYY2);
		lineto(objectXX8,objectYY2);
		moveto(objectXX9,objectYY2);
		lineto(objectXX10,objectYY2);
		moveto(objectXX1,objectYY3);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectYY3);
		lineto(objectXX4,objectYY3);
		moveto(objectXX5,objectYY3);
		lineto(objectXX6,objectYY3);
		moveto(objectXX7,objectYY3);
		lineto(objectXX8,objectYY3);
		moveto(objectXX9,objectYY3);
		lineto(objectXX10,objectYY3);

						{*schnittkanten zeichnen*}
						penFore(0,0,5);

						moveto(objectX2,objectY1);
						lineto(objectX2,objectYY1);
						moveto(objectX3,objectY1);
						lineto(objectX3,objectYY1);
						moveto(objectX4,objectY1);
						lineto(objectX4,objectY3);
						moveto(objectX5,objectY1);
						lineto(objectX5,objectYY1);
						moveto(objectX6,objectY1);
						lineto(objectX6,objectYY1);
						moveto(objectX7,objectY1);
						lineto(objectX7,objectYY1);

		{*schnittkanten zeichnen*}
		penFore(0,0,65535);

		moveto(objectX1,objectY1);
		lineto(objectX1,objectY3);
		moveto(objectX8,objectY1);
		lineto(objectX8,objectY3);
		moveto(objectXX1,objectYY1);
		lineto(objectXX1,objectYY3);
		moveto(objectXX2,objectYY1);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectYY1);
		lineto(objectXX3,objectYY3);
		moveto(objectXX4,objectYY1);
		lineto(objectXX4,objectYY3);
		moveto(objectXX5,objectYY1);
		lineto(objectXX5,objectYY3);
		moveto(objectXX6,objectYY1);
		lineto(objectXX6,objectYY3);
		moveto(objectXX7,objectYY1);
		lineto(objectXX7,objectYY3);
		moveto(objectXX8,objectYY1);
		lineto(objectXX8,objectYY3);
		moveto(objectXX9,objectYY1);
		lineto(objectXX9,objectYY3);
		moveto(objectXX10,objectYY1);
		lineto(objectXX10,objectYY3);

		(*moveto(objectX2,objectY1);
		lineto(objectX2,objectY3);

		{*volumen faltkanten zeichnen*}
		penFore(65535,0,0);
		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX1,objectY2);
		lineto(objectX2,objectY2);
		moveto(objectX1,objectY3);
		lineto(objectX2,objectY3);*)
		
		{*zum nächsten papierfaltpunkt bewegen*}
		moveto(objectX2,pageFoldY);
	END;

					IF (cmajor=true) THEN BEGIN	

message('C MAJOR ACCORD');

{*papier faltkanten zeichnen*}
		penFore(65535,0,0);		
		lineTo(objectX1,pageFoldY);

		moveto(objectX2,objectY1);
		lineto(objectX3,objectY1);
		moveto(objectX4,objectY1);
		lineto(objectX5,objectY1);
		moveto(objectX6,objectY1);
		lineto(objectX7,objectY1);
		moveto(objectX7,objectY1);
		lineto(objectX8,objectY1);
		moveto(objectX2,objectY2);
		lineto(objectX3,objectY2);
		moveto(objectX4,objectY2);
		lineto(objectX5,objectY2);
		moveto(objectX6,objectY2);
		lineto(objectX7,objectY2);
		moveto(objectX7,objectY2);
		lineto(objectX8,objectY2);
		moveto(objectX1,pageFoldY);
		lineto(objectXX1,pageFoldY);
		moveto(objectX2,objectYY1);
		lineto(objectXX2,objectYY1);
		moveto(objectXX2,objectY3);
		lineto(objectXX3,objectY3);
		moveto(objectX4,objectY3);
		lineto(objectXX5,objectY3);
		moveto(objectXX4,pageFoldY);
		lineto(objectX4,pageFoldY);
		moveto(objectXX6,pageFoldY);
		lineto(objectXX7,pageFoldY);
		moveto(objectXX8,objectY3);
		lineto(objectXX9,objectY3);
		moveto(objectXX10,objectY3);
		lineto(objectX8,objectY3);
		moveto(objectXX1,objectYY0);
		lineto(objectX2,objectYY0);

		moveto(objectXX3,objectYY1);
		lineto(objectX3,objectYY1);
		moveto(objectX3,objectYY0);
		lineto(objectXX4,objectYY0);
		moveto(objectXX5,objectYY1);
		lineto(objectX5,objectYY1);
		moveto(objectX5,objectYY0);	
		lineto(objectXX6,objectYY0);
		moveto(objectXX7,objectYY0);
		lineto(objectX6,objectYY0);
		moveto(objectX6,objectYY1);
		lineto(objectXX8,objectYY1);
		moveto(objectXX9,objectYY1);
		lineto(objectXX10,objectYY1);
		moveto(objectXX1,objectYY2);
		lineto(objectXX2,objectYY2);
		moveto(objectXX3,objectYY2);
		lineto(objectXX4,objectYY2);
		moveto(objectXX5,objectYY2);
		lineto(objectXX6,objectYY2);
		moveto(objectXX7,objectYY2);
		lineto(objectXX8,objectYY2);
		moveto(objectXX9,objectYY2);
		lineto(objectXX10,objectYY2);
		moveto(objectXX1,objectYY3);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectYY3);
		lineto(objectXX4,objectYY3);
		moveto(objectXX5,objectYY3);
		lineto(objectXX6,objectYY3);
		moveto(objectXX7,objectYY3);
		lineto(objectXX8,objectYY3);
		moveto(objectXX9,objectYY3);
		lineto(objectXX10,objectYY3);

						{*schnittkanten zeichnen*}
						penFore(0,0,5);

		moveto(objectX7,objectY1);
		lineto(objectX7,objectYY1);
		moveto(objectX5,objectY1);
		lineto(objectX6,objectY1);
		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX1,objectY1);
		lineto(objectX1,pageFoldY);
		moveto(objectX3,objectY1);
		lineto(objectX4,objectY1);

		{*schnittkanten zeichnen*}
		penFore(0,0,65535);

					

		moveto(objectX2,objectY1);
		lineto(objectX2,objectYY1);
		moveto(objectX3,objectY1);
		lineto(objectX3,objectYY1);
		moveto(objectX4,objectY1);
		lineto(objectX4,objectY3);
		moveto(objectX5,objectY1);
		lineto(objectX5,objectYY1);
		moveto(objectX6,objectY1);
		lineto(objectX6,objectYY1);
		moveto(objectX8,objectY1);
		lineto(objectX8,objectY3);
		moveto(objectXX1,objectYY0);
		lineto(objectXX1,objectYY3);
		moveto(objectXX2,objectYY1);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectYY1);
		lineto(objectXX3,objectYY3);
		moveto(objectXX4,objectYY0);
		lineto(objectXX4,objectYY3);
		moveto(objectXX5,objectYY1);
		lineto(objectXX5,objectYY3);
		moveto(objectXX6,objectYY0);
		lineto(objectXX6,objectYY3);
		moveto(objectXX7,objectYY0);
		lineto(objectXX7,objectYY3);
		moveto(objectXX8,objectYY1);
		lineto(objectXX8,objectYY3);
		moveto(objectXX9,objectYY1);
		lineto(objectXX9,objectYY3);
		moveto(objectXX10,objectYY1);
		lineto(objectXX10,objectYY3);

		(*moveto(objectX2,objectY1);
		lineto(objectX2,objectY3);

		{*volumen faltkanten zeichnen*}
		penFore(65535,0,0);
		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX1,objectY2);
		lineto(objectX2,objectY2);
		moveto(objectX1,objectY3);
		lineto(objectX2,objectY3);*)
		
		{*zum nächsten papierfaltpunkt bewegen*}
		moveto(objectX2,pageFoldY);

		{*papier faltkanten zeichnen*}
		penFore(65535,0,0);	

		moveto(objectX8,pageFoldY);
		lineTo(pageWidth,pageFoldY);

END;

					{*Wenn eminor*}
		IF (eminor=true) THEN BEGIN

message('E MINOR ACCORD');

		penFore(0,0,65535);

		moveto(objectX1,objectY1);
		lineto(objectX1,objectY3);
		moveto(objectX3,objectY1);
		lineto(objectX3,objectYY1);
		moveto(objectX4,objectY1);
		lineto(objectX4,objectY3);
		moveto(objectX5,objectY1);
		lineto(objectX5,objectYY1);
		moveto(objectX6,objectY1);
		lineto(objectX6,objectYY1);
		moveto(objectX7,objectY1);
		lineto(objectX7,objectYY1);
		moveto(objectXX1,objectYY1);
		lineto(objectXX1,objectYY3);
		moveto(objectXX2,objectYY1);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectYY1);
		lineto(objectXX3,objectYY3);
		moveto(objectXX4,objectYY0);
		lineto(objectXX4,objectYY3);
		moveto(objectXX5,objectYY1);
		lineto(objectXX5,objectYY3);
		moveto(objectXX6,objectYY0);
		lineto(objectXX6,objectYY3);
		moveto(objectXX7,objectYY0);
		lineto(objectXX7,objectYY3);
		moveto(objectXX8,objectYY1);
		lineto(objectXX8,objectYY3);
		moveto(objectXX9,objectYY1);
		lineto(objectXX9,objectYY3);
		moveto(objectXX10,objectYY0);
		lineto(objectXX10,objectYY3);

{*papier faltkanten zeichnen*}
		penFore(65535,0,0);		

		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX2,objectY1);
		lineto(objectX3,objectY1);
		moveto(objectX4,objectY1);
		lineto(objectX5,objectY1);
		moveto(objectX6,objectY1);
		lineto(objectX7,objectY1);
		moveto(objectX1,objectY2);
		lineto(objectX2,objectY2);
		moveto(objectX2,objectY2);
		lineto(objectX3,objectY2);
		moveto(objectXX4,pageFoldY);
		lineto(objectX4,pageFoldY);
		moveto(objectX4,objectY2);
		lineto(objectX5,objectY2);
		moveto(objectX6,objectY2);
		lineto(objectX7,objectY2);
		moveto(objectX1,objectY3);
		lineto(objectXX1,objectY3);
		moveto(objectXX2,objectY3);
		lineto(objectXX3,objectY3);
		moveto(objectX4,objectY3);
		lineto(objectXX5,objectY3);
		moveto(objectXX8,objectY3);
		lineto(objectXX9,objectY3);
		moveto(objectXX1,objectYY1);
		lineto(objectXX2,objectYY1);
		moveto(objectXX3,objectYY1);
		lineto(objectX3,objectYY1);
		moveto(objectX3,objectYY0);
		lineto(objectXX4,objectYY0);
		moveto(objectXX5,objectYY1);
		lineto(objectX5,objectYY1);
		moveto(objectX5,objectYY0);
		lineto(objectXX6,objectYY0);
		moveto(objectX6,objectYY1);
		lineto(objectXX8,objectYY1);
		moveto(objectXX7,objectYY0);
		lineto(objectX6,objectYY0);
		moveto(objectXX9,objectYY1);
		lineto(objectX7,objectYY1);
		moveto(objectX7,objectYY0);
		lineto(objectXX10,objectYY0);
		moveto(objectXX1,objectYY2);
		lineto(objectXX2,objectYY2);
		moveto(objectXX3,objectYY2);
		lineto(objectXX4,objectYY2);
		moveto(objectXX5,objectYY2);
		lineto(objectXX6,objectYY2);
		moveto(objectXX7,objectYY2);
		lineto(objectXX8,objectYY2);
		moveto(objectXX9,objectYY2);
		lineto(objectXX10,objectYY2);
		moveto(objectXX1,objectYY3);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectYY3);
		lineto(objectXX4,objectYY3);
		moveto(objectXX5,objectYY3);
		lineto(objectXX6,objectYY3);
		moveto(objectXX6,pageFoldY);
		lineto(objectXX7,pageFoldY);
		moveto(objectXX7,objectYY3);
		lineto(objectXX8,objectYY3);
		moveto(objectXX9,objectYY3);
		lineto(objectXX10,objectYY3);

		{*schnittkanten zeichnen*}
		penFore(0,0,5);
	
		moveto(objectX7,objectY1);
		lineto(objectX8,objectY1);
		moveto(objectX5,objectY1);
		lineto(objectX6,objectY1);
		moveto(objectX3,objectY1);
		lineto(objectX4,objectY1);	
		moveto(objectX2,objectY1);
		lineto(objectX2,objectYY1);
		moveto(objectX8,objectY1);
		lineto(objectX8,pageFoldY);

		(*moveto(objectX2,objectY1);
		lineto(objectX2,objectY3);

		{*volumen faltkanten zeichnen*}
		penFore(65535,0,0);
		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX1,objectY2);
		lineto(objectX2,objectY2);
		moveto(objectX1,objectY3);
		lineto(objectX2,objectY3);*)
		
		{*zum nächsten papierfaltpunkt bewegen*}
		{*papier faltkanten zeichnen*}
		penFore(65535,0,0);		
		
		{*zum ersten papierfaltpunkt bewegen*}
		moveto(0,pageFoldY);
		lineTo(objectX1,pageFoldY);

					moveto(objectXX10,pageFoldY);
					lineTo(pageWidth,pageFoldY)

	END;

				IF (emajor=true) THEN BEGIN	

message('E MAJOR ACCORD');

		penFore(0,0,65535);

		moveto(objectX1,objectY1);
		lineto(objectX1,objectY3);
		moveto(objectX3,objectY1);
		lineto(objectX3,objectYY1);
		moveto(objectX4,objectY1);
		lineto(objectX4,objectY3);
		moveto(objectX7,objectY1);
		lineto(objectX7,objectYY1);
		moveto(objectXX1,objectYY1);
		lineto(objectXX1,objectYY3);
		moveto(objectXX2,objectYY1);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectYY1);
		lineto(objectXX3,objectYY3);
		moveto(objectXX4,objectYY0);
		lineto(objectXX4,objectYY3);
		moveto(objectXX5,objectYY1);
		lineto(objectXX5,objectYY3);
		moveto(objectXX6,objectYY1);
		lineto(objectXX6,objectYY3);
		moveto(objectXX9,objectYY1);
		lineto(objectXX9,objectYY3);
		moveto(objectXX10,objectYY0);
		lineto(objectXX10,objectYY3);

		{*papier faltkanten zeichnen*}
		penFore(65535,0,0);		

					

		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX2,objectY1);
		lineto(objectX3,objectY1);
		moveto(objectX4,objectY1);
		lineto(objectX5,objectY1);
		moveto(objectX5,objectY1);
		lineto(objectX6,objectY1);
		moveto(objectX6,objectY1);
		lineto(objectX7,objectY1);
		moveto(objectX1,objectY2);
		lineto(objectX2,objectY2);
		moveto(objectX2,objectY2);
		lineto(objectX3,objectY2);
		moveto(objectXX4,pageFoldY);
		lineto(objectX4,pageFoldY);
		moveto(objectX4,objectY2);
		lineto(objectX5,objectY2);
		moveto(objectX5,objectY2);
		lineto(objectX6,objectY2);
		moveto(objectX6,objectY2);
		lineto(objectX7,objectY2);
		moveto(objectX1,objectY3);
		lineto(objectXX1,objectY3);
		moveto(objectXX2,objectY3);
		lineto(objectXX3,objectY3);
		moveto(objectX4,objectY3);
		lineto(objectXX5,objectY3);
		moveto(objectXX6,objectY3);
		lineto(objectXX7,objectY3);
		moveto(objectXX8,objectY3);
		lineto(objectXX9,objectY3);
		moveto(objectXX1,objectYY1);
		lineto(objectXX2,objectYY1);
		moveto(objectXX3,objectYY1);
		lineto(objectX3,objectYY1);
		moveto(objectX3,objectYY0);
		lineto(objectXX4,objectYY0);
		moveto(objectXX5,objectYY1);
		lineto(objectXX6,objectYY1);
		moveto(objectXX9,objectYY1);
		lineto(objectX7,objectYY1);
		moveto(objectX7,objectYY0);
		lineto(objectXX10,objectYY0);
		moveto(objectXX1,objectYY2);
		lineto(objectXX2,objectYY2);
		moveto(objectXX3,objectYY2);
		lineto(objectXX4,objectYY2);
		moveto(objectXX5,objectYY2);
		lineto(objectXX6,objectYY2);
		moveto(objectXX7,objectY3);
		lineto(objectXX8,objectY3);
		moveto(objectXX9,objectYY2);
		lineto(objectXX10,objectYY2);
		moveto(objectXX1,objectYY3);
		lineto(objectXX2,objectYY3);
		moveto(objectXX3,objectYY3);
		lineto(objectXX4,objectYY3);
		moveto(objectXX5,objectYY3);
		lineto(objectXX6,objectYY3);
		moveto(objectXX9,objectYY3);
		lineto(objectXX10,objectYY3);

		{*schnittkanten zeichnen*}
		penFore(0,0,5);

		moveto(objectX7,objectY1);
		lineto(objectX8,objectY1);
		moveto(objectX2,objectY1);
		lineto(objectX2,objectYY1);
		moveto(objectX5,objectY1);
		lineto(objectX5,objectYY1);
		moveto(objectX6,objectY1);
		lineto(objectX6,objectYY1);
		moveto(objectX3,objectY1);
		lineto(objectX4,objectY1);
		moveto(objectX8,objectY1);
		lineto(objectX8,pageFoldY);
		moveto(objectXX7,objectYY1);
		lineto(objectXX7,objectY3);
		moveto(objectXX8,objectYY1);
		lineto(objectXX8,objectY3);
		moveto(objectXX7,objectYY1);
		lineto(objectXX8,objectYY1);

		(*moveto(objectX2,objectY1);
		lineto(objectX2,objectY3);

		{*volumen faltkanten zeichnen*}
		penFore(65535,0,0);
		moveto(objectX1,objectY1);
		lineto(objectX2,objectY1);
		moveto(objectX1,objectY2);
		lineto(objectX2,objectY2);
		moveto(objectX1,objectY3);
		lineto(objectX2,objectY3);*)
		
		{*zum nächsten papierfaltpunkt bewegen*}
		{*papier faltkanten zeichnen*}
		penFore(65535,0,0);		
		
		{*zum ersten papierfaltpunkt bewegen*}
		moveto(0,pageFoldY);
		lineTo(objectX1,pageFoldY);

					moveto(objectXX10,pageFoldY);
					lineTo(pageWidth,pageFoldY)

	END;

END;
	
	{*letzten papierfaltpunkt zeichen
	lineTo(pageWidth,pageFoldY);*}

RUN(faltkarte);