PROCEDURE faltkarte;
VAR
	start, radius, pos, tiefe, breite: REAL;
	etagen, anzahl, i, reduktion: INTEGER;

{ Sub-Prozedur um einen Bogen zu zeichnen }
PROCEDURE bogen(start,radius,anzahl,tiefe,pos:REAL);
VAR
	i: INTEGER;
BEGIN
i:=0;

{ Linieart: durchgezogen }
penPat(2);

REPEAT
	{ Wenn in der linken H„lfte }
	IF (i<anzahl/2) THEN BEGIN

		{ Linienfarbe: rot }
		penFore(65535,0,0);

		{ Schnittlinie auf Seite von Feld ziehen }
		moveto((radius*-1)+(i*(2*radius/anzahl)) , Sqrt(sqr(radius)-sqr(radius-(i*(2*radius/anzahl))))*-1+pos+start);
		line(0,tiefe);

		{ Linienart: gestrichelt }
		penPat(-2);
		{ Linienfarbe: blau }
		penFore(0,0,65535);
		
		{ Obere Faltlinie ziehen }
		line(2*radius/anzahl,0);
		{ Untere Faltlinie ziehen }
		moveto((radius*-1)+(i*(2*radius/anzahl)) , Sqrt(sqr(radius)-sqr(radius-(i*(2*radius/anzahl))))*-1+pos+start);
		line(2*radius/anzahl,0);

		{ M�ssen Verbindungsschnittlinien gezogen werden? }
		IF (not(i=0)) THEN BEGIN

			penPat(2);
			penFore(65535,0,0);

			moveto( (radius*-1)+(i*(2*radius/anzahl)) , Sqrt(sqr(radius)-sqr(radius-((i-1)*(2*radius/anzahl))))*-1+pos+start );
			lineto( (radius*-1)+(i*(2*radius/anzahl)) , Sqrt(sqr(radius)-sqr(radius-(i*(2*radius/anzahl))))*-1+pos+start );

		END;

	END

	{ Wenn in der rechten H„lfte }

	ELSE BEGIN

		penFore(65535,0,0);

		moveto( (radius*-1)+(i*(2*radius/anzahl)) , Sqrt(sqr(radius)-sqr((radius*-1)+(i*(2*radius/anzahl))))*-1+pos+start );
		line(0,tiefe);

		penPat(-2);
		penFore(0,0,65535);

		line(2*radius/anzahl*-1,0);
		moveto( (radius*-1)+(i*(2*radius/anzahl)) , Sqrt(sqr(radius)-sqr((radius*-1)+(i*(2*radius/anzahl))))*-1+pos+start );
		line(2*radius/anzahl*-1,0);
	
		{ M�ssen Verbindungsschnittlinien gezogen werden? }
		IF (not(i=anzahl)) THEN BEGIN
			
			penPat(2);
			penFore(65535,0,0);

			moveto( (radius*-1)+(i*(2*radius/anzahl)) , Sqrt(sqr(radius)-sqr(radius-((i+1)*(2*radius/anzahl))))*-1+pos+start );
			lineto( (radius*-1)+(i*(2*radius/anzahl)) , Sqrt(sqr(radius)-sqr(radius-(i*(2*radius/anzahl))))*-1+pos+start );

		END;

	END;
	
	penPat(2);
	penFore(65535,0,0);
	
	{ Wenn am Anfang des Bogens }
	IF (i=0) THEN BEGIN
		
		{ Ziehe rote Verbindungsschnittlinie zu Grundfaltlinie des Bogens }
		moveto((radius*-1)+(i*(2*radius/anzahl)),pos+start);
		line(0,(2*tiefe)*-1+pos);

	END;

	{ Wenn am Ende des Bogens }
	IF (i=anzahl) THEN BEGIN
		
		{ Ziehe rote Verbindungsschnittlinie zu Grundfaltlinie des Bogens }
		moveto((radius*-1)+(i*(2*radius/anzahl)),pos+start);
		line(0,(2*tiefe)*-1+pos);

		penPat(-2);
		penFore(0,0,65535);

		{ Ziehe blaue Grundfaltlinie des Bogens }
		line((i*(2*radius/anzahl)*-1),0);

	END;

	{ Feldnummer hochz„hlen }
	i:=i+1;

UNTIL(i=anzahl+1);

END;

BEGIN

radius := 11;
pos := -1;
tiefe := PFELDHOEHE;
anzahl := PFELDANZAHL;
breite:=21;
start:=(tiefe-2)*-1;
etagen := PETAGEN;
reduktion := 2;

{ IF(etagen = 0) THEN BEGIN
	etagen := 5;
END; }

{ Parameterkorrektur }
tiefe := tiefe*-1;

{ Sind die Parameter m”glich? }
IF (radius/etagen > reduktion) THEN BEGIN

	{ Ist die Anzahl Felder gerade? }
	IF (round(anzahl/2)*2 = anzahl) THEN BEGIN

		{ Ziehe 1 von Anzahl ab um ungerade Anzahl zu erzeugen }
		anzahl:=anzahl-1;

	END;

	{ Zeichne "i" Bogen }
	FOR i:=1 TO etagen DO BEGIN
	
		{ Zeichne Bogen }
		bogen(start,radius-(i*reduktion),anzahl,tiefe,pos);
	
		{ Verschiebe die Startposition um "tiefe" }
		start:=start+(tiefe*-1);

	END;

	penPat(-5);
	penFore(0,0,0);

	{ Mittelfaltkante zeichnen }
	moveto((breite/2)*-1,0);
	lineto(breite/2,0);

END
ELSE BEGIN
	
	AlertInform('Werte �berschreiten M”glichkeiten','Bitte w„hlen Sie maximal 5 Etagen.',true);

END;

END;
RUN (faltkarte);