#
#   Makro f�r St�tze mit zweiseitiger Konsole
#
writeln("   EINGABE EINER MITTELSTšTZE");
Writeln("   ==========================");
Writeln(" ");
Writeln(" ");
Writeln(" ");
#
#************************************************************************
#*                 CONSTANTEN                                           *
#************************************************************************
#
i50=50;   #Abstand der Masslinien
i49=200;  #Abstand der Einzelzeichnungen
i48=25;   #Abstand der Verteillinie zum Bauteil
i47=50;   #Abstand der Verteillinie zur Positionsnummer/L„nge Verbindlinie
i46=100;  #Abstand der Ueberschriften
i45=100;  #Abstand des Eisenauszugs
#
#************************************************************************
#*                 ALLGEMEINE ABFRAGEN                                  *
#************************************************************************
#
newmask("");
maskinfo(1,1, "Alle Macros wurden nach Kundenwuenschen erstellt");
maskinfo(1,2, "und dienen lediglich als Beispiele");
maskinfo(1,3, "Fuer die Richtigkeit der Macros besteht keine Haftung");
maskinfo(1,5, "KONSOLE: ");
maskinfo(1,6, "keine            = 0");
maskinfo(1,7, "einseitig links  = 1");
maskinfo(1,8, "einseitig rechts = 2");
maskinfo(1,9, "zweiseitig       = 3");
fillmask(1,10,"Auswahl: ",i1);
maskinfo(1,11,"AUSKLINKUNG FUER BINDER: ");
maskinfo(1,12,"keine                 = 0");
maskinfo(1,13,"senkr. zur Tischlage  = 1");
maskinfo(1,14,"paral. zur Tischlage  = 2");
fillmask(1,15,"Auswahl: ",i2);
domask();
if (i1=0) then begin
  i3=1;
end
if (i1>0) then begin
  writeln("QUERSCHNITT :");
  writeln(" ");
  writeln("          constant �ber die ganze L„nge ? Ja=1/Nein=0");
  writeln(" ");
  write(" Auswahl : ");read(i3);
  writeln(" ");
  writeln(" ");
  writeln(" ");
end
#
#************************************************************************
#*                 ABFRAGEN NACH ANFANGSPUNKT UND MASSEN                *
#************************************************************************
#
write("Eingabe Ansicht Unterkante St�tze");read(p30);writeln(" ");
#
# -------------------------------------Eingabe der Abmessungen
#
r1=500;
r2=70;
r3=80;
if (i3=0) then begin
newmask("");
fillmask(1,1, "Gesamthoehe d. Stuetze (r1) = ",r1);
fillmask(1,2, "Stuetzenbreite unten   (r2) = ",r2);
fillmask(1,3, "Stuetzendicke unten    (r3) = ",r3);
fillmask(1,4, "Stuetzenbreite oben    (r4) = ",r4);
fillmask(1,5, "Stuetzendicke oben     (r5) = ",r5);
domask();
  r5=r3;
end
if (i3=1) then begin
newmask("");
fillmask(1,1, "Gesamthoehe d. Stuetze (r1) = ",r1);
fillmask(1,2, "Stuetzenbreite         (r2) = ",r2);
fillmask(1,3, "Stuetzendicke          (r3) = ",r3);
domask();
  r4 = r2;
  r5 = r3;
end
i7 = 0;
if (r2>40 ) then begin
  i7 = 1;
end
if (i1=0) then begin
  r6 = 0.0;
  r7 = 0.0;
  r8 = 0.0;
  r9 = 0.0;
end
if (i1>0) then begin
 newmask("");
  fillmask(1,1, "Hoehe OK Konsole        (r6) = ",r6),
  fillmask(1,2, "Konsolenhoehe senkrecht (r7) = ",r7),
  fillmask(1,3, "Konsolenhoehe schraeg   (r8) = ",r8),
  fillmask(1,4, "Konsolenauskragung      (r9) = ",r9),
 domask();
end
if (i2=0) then begin
  r10 = 0.0;
  r11 = 0.0;
end
if (i2>0) then begin
 newmask("");
  fillmask(1,1, "Tiefe Ausklinkung Stuetzenkopf (r10) = ",r10);
  fillmask(1,2, "Dicke Ausklinkung Stuetzenkopf (r11) = ",r11);
 domask();
end
#
# ----------------------Profilierungstiefe + Betondeckungen
#
r15 = 20.0;
r20 = 3.0;
r21 = 3.0;
r22 = 3.0;
newmask("");
 fillmask(1,1, "Profilierungstiefe    = ",r15);
 fillmask(1,2, "Betondeckung aussen   = ",r22);
 fillmask(1,3, "Betondeckung unten    = ",r21);
 fillmask(1,4, "Betondeckung oben     = ",r20);
domask();

if (i2>0) then begin
  write("Betondeckung Ausklinkung innen       = ");read(r23);
end
if (i2=0) then begin
  r23=0.0;
end
#
#************************************************************************
#*                 UMRISSLINIEN ZEICHNEN                                *
#************************************************************************
#
setlayer("stuetze");
setcolor(3);
#
# -------------------------------------Tischlage zeichnen
#
p1=p30;
p2=p1;
p2.x=p2.x+r2;
line(p1,p2);
if (i1=0) then begin
  p8=p2;
  p8.y=p8.y+r1;
  p9=p8;
  p9.x=p9.x-r2;
  line(p2,p8);line(p9,p1);
end
if (i1=1) then begin
  p8=p2;
  p8.y=p8.y+r1;
  p9=p8;
  p9.x=p9.x-r4;
  p11=p9;
  p11.y=p1.y+r6;
  p12=p11;
  p12.x=p1.x-r9;
  p13=p12;
  p13.y=p13.y-r7;
  p14=p1;
  p14.y=p14.y+r6-r7-r8;
  line(p2,p8);line(p9,p11);line(p11,p12);
  line(p12,p13);line(p13,p14);line(p14,p1);
end
if (i1=2) then begin
  p3=p2;
  p3.y=p3.y+r6-r7-r8;
  p4=p3;
  p4.x=p4.x+r9;
  p4.y=p4.y+r8;
  p5=p4;
  p5.y=p5.y+r7;
  p9=p1;
  p9.y=p9.y+r1;
  p8=p9;
  p8.x=p8.x+r4;
  p6=p8;
  p6.y=p5.y;
  line(p2,p3);line(p3,p4);line(p4,p5);
  line(p5,p6);line(p6,p8);line(p9,p1);
end
if (i1=3) then begin
  p3=p2;
  p3.y=p3.y+r6-r7-r8;
  p4=p3;
  p4.x=p4.x+r9;
  p4.y=p4.y+r8;
  p5=p4;
  p5.y=p5.y+r7;
  p6=p5;
  p6.x=p2.x-r2/2+r4/2;
  p8=p6;
  p8.y=p2.y+r1;
  p9=p8;
  p9.x=p9.x-r4;
  p11=p9;
  p11.y=p1.y+r6;
  p12=p11;
  p12.x=p1.x-r9;
  p13=p12;
  p13.y=p13.y-r7;
  p14.x=p1.x;
  p14.y=p3.y;
  line(p2,p3);line(p3,p4);line(p4,p5);
  line(p5,p6);line(p6,p8);line(p9,p11);
  line(p11,p12);line(p12,p13);line(p13,p14);
  line(p14,p1);
  end
if (i2=0) then begin
  line(p8,p9);
end
if (i2=1) then begin
  p7=p8;
  p7.y=p7.y-r10;
  p10=p9;
  p10.y=p10.y-r10;
  line(p8,p9);
  line(p7,p10);
end
if (i2=2) then begin
  p21=p8;
  p21.x=p21.x-((r4-r11)/2);
  p22=p21;
  p22.y=p22.y-r10;
  p23=p22;
  p23.x=p23.x-r11;
  p24=p23;
  p24.y=p24.y+r10;
  line(p8,p21);line(p21,p22);line(p22,p23);
  line(p23,p24);line(p24,p9);
end
#
# -------------------------------------Profilierung Tischlage
#
p50=p1;
p50.y=p50.y+r15;
p51=p50;
p51.x=p51.x+r2;
line(p1,p51);line(p50,p51);
#
# -------------------------------------Ansicht von links zeichnen
#
p15=p30;
if (i1>1) then begin
  p15.x=p15.x+r9+2*i49;
end
if (i1<2) then begin
  p15.x=p15.x+2*i49;
end
p16=p15;
p16.x=p16.x+r3;
p20=p16;
p20.y=p20.y+r1;
p25=p20;
p25.x=p15.x;
line(p15,p16);line(p16,p20);line(p25,p15);
if (i1>0) then begin
  p17=p16;
  p17.y=p17.y+r6-r7-r8;
  p18=p17;
  p18.y=p18.y+r8;
  p19=p18;
  p19.y=p19.y+r7;
  p26=p25;
  p26.y=p26.y+r6-r1;
  p27=p26;
  p27.y=p27.y-r7;
  p28=p27;
  p28.y=p28.y-r8;
  line(p17,p28);line(p18,p27);line(p19,p26);
end
if (i2=0) then begin
  line(p20,p25);
end
if (i2=1) then begin
  p21=p20;
  p21.x=p21.x-((r5-r11)/2);
  p22=p21;
  p22.y=p22.y-r10;
  p23=p22;
  p23.x=p23.x-r11;
  p24=p23;
  p24.y=p24.y+r10;
  line(p20,p21);line(p21,p22);line(p22,p23);
  line(p23,p24);line(p24,p25);
end
if (i2=2) then begin
  p7=p20;
  p7.y=p7.y-r10;
  p10=p7;
  p10.x=p15.x;
  line(p20,p25);
  line(p7,p10);
end
#
# -------------------------------------Profilierung Ansicht von links
#
p50=p15;
p50.y=p50.y+r15;
p51=p50;
p51.x=p51.x+r3;
line(p15,p51);line(p50,p51);
#
# -------------------------------------Ansicht von Vorne zeichnen
#
p31=p15;
if (i1=0) then begin
  p31.x=p31.x+2*i49+i45;
end
if (i1=1) then begin
  p31.x=p31.x+r9+2*i49+i45;
end
if (i1=2) then begin
  p31.x=p31.x+2*i49+i45;
end
if (i1=3) then begin
  p31.x=p31.x+r9+2*i49+i45;
end
p1=p31;
p2=p1;
p2.x=p2.x+r2;
line(p1,p2);
if (i1=0) then begin
  p8=p2;
  p8.y=p8.y+r1;
  p9=p8;
  p9.x=p9.x-r2;
  line(p2,p8);line(p9,p1);
end
if (i1=1) then begin
  p8=p2;
  p8.y=p8.y+r1;
  p9=p8;
  p9.x=p9.x-r4;
  p11=p9;
  p11.y=p1.y+r6;
  p12=p11;
  p12.x=p1.x-r9;
  p13=p12;
  p13.y=p13.y-r7;
  p14=p1;
  p14.y=p14.y+r6-r7-r8;
  line(p2,p8);line(p9,p11);line(p11,p12);
  line(p12,p13);line(p13,p14);line(p14,p1);
end
if (i1=2) then begin
  p3=p2;
  p3.y=p3.y+r6-r7-r8;
  p4=p3;
  p4.x=p4.x+r9;
  p4.y=p4.y+r8;
  p5=p4;
  p5.y=p5.y+r7;
  p9=p1;
  p9.y=p9.y+r1;
  p8=p9;
  p8.x=p8.x+r4;
  p6=p8;
  p6.y=p5.y;
  line(p2,p3);line(p3,p4);line(p4,p5);
  line(p5,p6);line(p6,p8);line(p9,p1);
end
if (i1=3) then begin
  p3=p2;
  p3.y=p3.y+r6-r7-r8;
  p4=p3;
  p4.x=p4.x+r9;
  p4.y=p4.y+r8;
  p5=p4;
  p5.y=p5.y+r7;
  p6=p5;
  p6.x=p2.x-r2/2+r4/2;
  p8=p6;
  p8.y=p2.y+r1;
  p9=p8;
  p9.x=p9.x-r4;
  p11=p9;
  p11.y=p1.y+r6;
  p12=p11;
  p12.x=p1.x-r9;
  p13=p12;
  p13.y=p13.y-r7;
  p14.x=p1.x;
  p14.y=p3.y;
  line(p2,p3);line(p3,p4);line(p4,p5);
  line(p5,p6);line(p6,p8);line(p9,p11);
  line(p11,p12);line(p12,p13);line(p13,p14);
  line(p14,p1);
  end
if (i2=0) then begin
  line(p8,p9);
end
if (i2=1) then begin
  p7=p8;
  p7.y=p7.y-r10;
  p10=p9;
  p10.y=p10.y-r10;
  line(p8,p9);
  line(p7,p10);
end
if (i2=2) then begin
  p21=p8;
  p21.x=p21.x-((r4-r11)/2);
  p22=p21;
  p22.y=p22.y-r10;
  p23=p22;
  p23.x=p23.x-r11;
  p24=p23;
  p24.y=p24.y+r10;
  line(p8,p21);line(p21,p22);line(p22,p23);
  line(p23,p24);line(p24,p9);
end
#
# -------------------------------------Schnitt 1-1  zeichnen
#
p45=p31;
if (i1=0) then begin
  p45.x=p45.x+2*i49;
end
if (i1=1) then begin
  p45.x=p45.x+2*i49;
end
if (i1=2) then begin
  p45.x=p45.x+r9+2*i49;
end
if (i1=3) then begin
  p45.x=p45.x+r9+2*i49;
end
p46=p45;
p46.x=p46.x+r2;
p47=p46;
p47.y=p47.y+r3;
p48=p47;
p48.x=p48.x-r2;
line(p45,p46);line(p46,p47);
line(p47,p48);line(p48,p45);
#
# -------------------------------------Schnitt 2-2  zeichnen
#
if (i1>0) then begin
  p32=p45;
  if (i1=1) then begin
  p32.x=p32.x+r2-r4;
  end
  if (i1=3) then begin
  p32.x=p32.x+(r2-r4)/2;
  end
  p32.y=p32.y+r1*2/5;
  p33=p32;
  p33.x=p33.x+r4;
  p34=p33;
  p34.y=p34.y+r5;
  p35=p34;
  p35.x=p35.x-r4;
  line(p32,p33);line(p33,p34);
  line(p34,p35);line(p35,p32);
end
#
# -------------------------------------Schnitt 3-3  zeichnen
#
if (i2>0) then begin
  if (i2=1) then begin
    p36=p45;
    if (i1=1) then begin
    p36.x=p36.x+r2-r4;
    end
    if (i1=3) then begin
    p36.x=p36.x+(r2-r4)/2;
    end
    p36.y=p36.y+r1*4/5;
    p37=p36;
    p37.x=p37.x+r4;
    p38=p37;
    p38.y=p38.y+r5;
    p39=p38;
    p39.x=p39.x-r4;
    p40=p36;
    p40.y=p40.y+((r5-r11)/2);
    p41=p40;
    p41.x=p41.x+r4;
    p42=p40;
    p42.y=p42.y+r11;
    p43=p42;
    p43.x=p43.x+r4;
  end
  if (i2=2) then begin
    p39=p45;
    if (i1=1) then begin
    p39.x=p39.x+r2-r4;
    end
    if (i1=3) then begin
    p39.x=p39.x+(r2-r4)/2;
    end
    p39.y=p39.y+r1*4/5;
    p36=p39;
    p36.x=p36.x+r4;
    p37=p36;
    p37.y=p37.y+r5;
    p38=p37;
    p38.x=p38.x-r4;
    p40=p36;
    p40.x=p40.x-((r4-r11)/2);
    p41=p40;
    p41.y=p41.y+r5;
    p42=p40;
    p42.x=p42.x-r11;
    p43=p42;
    p43.y=p43.y+r5;
  end
  line(p36,p37);line(p37,p38);
  line(p38,p39);line(p39,p36);
  line(p40,p41);line(p42,p43);
end
#
#************************************************************************
#*                          BEMASSUNG                                   *
#************************************************************************
#
#
#--------------------------------------H”hen bemassen
#
setlayer("bemassung");
p29=p30;
if (i1=0) then begin
  p29.x=p29.x-i50;
end
if (i1=1) then begin
  p29.x=p29.x-r9-i50;
end
if (i1=2) then begin
  p29.x=p29.x-i50;
end
if (i1=3) then begin
  p29.x=p29.x-r9-i50;
end
p49=p29;
p49.y=p49.y+r1;
bemassen(p29,p49);
p29.x=p29.x-i50;
p49=p29;
if (i1>0) then begin
  p49.y=p49.y+r6-r7-r8;
  bemassen(p29,p49);
  p29=p49;
  p49.y=p49.y+r8;
  bemassen(p29,p49);
  p29=p49;
  p49.y=p49.y+r7;
  bemassen(p29,p49);
  p29=p49;
  if (i2>0) then begin
    p49.y=p49.y-r6+r1-r10;
    bemassen(p29,p49);
    p29=p49;
    p49.y=p49.y+r10;
    bemassen(p29,p49);
  end
  if (i2=0) then begin
    p49.y=p49.y-r6+r1;
    bemassen(p29,p49);
  end
end
if (i1=0) then begin
  if (i2>0) then begin
    p49.y=p49.y+r1-r10;
    bemassen(p29,p49);
    p29=p49;
    p49.y=p49.y+r10;
    bemassen(p29,p49);
  end
end
#
#--------------------------------------Konsolenauskragung bemassen
#
p29=p30;
p29.y=p29.y+r6-r7-r8-r2;
if (i1 =1) then begin
  p49=p29;
  p49.x=p49.x-r9;
  bemassen(p29,p49);
end
if (i1 =2) then begin
  p29.x=p29.x+r2;
  p49=p29;
  p49.x=p49.x+r9;
  bemassen(p29,p49);
end
if (i1 =3) then begin
  p49=p29;
  p49.x=p49.x-r9;
  bemassen(p29,p49);
  p29=p30;
  p29.x=p29.x+r2;
  p29.y=p29.y+r6-r7-r8-r2;
  p49=p29;
  p49.x=p49.x+r9;
  bemassen(p29,p49);
end
#
#--------------------------------------Breiten bemassen
#
p29=p30;
p29.y=p29.y-i50;
p49=p29;
p49.x=p49.x+r2;
bemassen(p29,p49);
p29.x=p15.x;
p49.x=p15.x+r3;
bemassen(p29,p49);
p29.x=p31.x;
p49.x=p29.x+r2;
bemassen(p29,p49);
#
#--------------------------------------Schnitte bemassen
#
p29.x=p45.x;
p29.y=p45.y-i50;
p49=p29;
p49.x=p49.x+r2;
bemassen(p29,p49);
p29=p46;
p29.x=p29.x+i50;
p49=p29;
p49.y=p49.y+r3;
bemassen(p29,p49);
if (i1>0) then begin
  p29.x=p32.x;
  p29.y=p32.y-i50;
  p49=p29;
  p49.x=p49.x+r4;
  bemassen(p29,p49);
  p29=p33;
  p29.x=p33.x+i50;
  p49=p29;
  p49.y=p49.y+r5;
  bemassen(p29,p49);
end
if (i2>0) then begin
  if (i2=1) then begin
    p29=p36;
    p29.y=p29.y-i50;
    p49=p29;
    p49.x=p49.x+r4;
    bemassen(p29,p49);
    p29=p37;
    p29.x=p29.x+i50;
    p49=p29;
    p49.y=p41.y;
    bemassen(p29,p49);
    p29=p49;
    p49.y=p43.y;
    bemassen(p29,p49);
    p29=p49;
    p49.y=p38.y;
    bemassen(p29,p49);
    p29=p37;
    p29.x=p29.x+i50*2;
    p49=p29;
    p49.y=p49.y+r5;
    bemassen(p29,p49);
  end
  if (i2=2) then begin
    p29=p39;
    p29.y=p29.y-i50;
    p49=p29;
    p49.x=p42.x;
    bemassen(p29,p49);
    p29=p49;
    p49.x=p40.x;
    bemassen(p29,p49);
    p29=p49;
    p49.x=p36.x;
    bemassen(p29,p49);
    p29.y=p29.y-i50;
    p29.x=p39.x;
    p49=p29;
    p49.x=p49.x+r4;
    bemassen(p29,p49);
    p29=p36;
    p29.x=p29.x+i50;
    p49=p29;
    p49.y=p49.y+r5;
    bemassen(p29,p49);
  end
end
#
#************************************************************************
#*               UEBERSCHRIFTEN UND BESCHRIFTUNG                        *
#************************************************************************
#
setlayer("ueberschrift")
#textstil("iso8,subs");
#textstil("outline");
gst_color(6);
gst_height(14.0);
gst_rotation(0.00);
p49=p30;
p49.x=p30.x;
p49.y=p49.y+r1+i46;
text(p49,"TISCHLAGE");
p49.x=p15.x;
text(p49,"SEITENANSICHT");
p49.x=p31.x;
text(p49,"BEWEHRUNG");
p49=p48;
p49.y=p48.y+i46;
text(p49,"SCHNITT 1-1");
if (i1>0) then begin
  p49.y=p35.y+i46;
  text(p49,"SCHNITT 2-2");
  if (i2=1) then begin
    p49.y=p39.y+i46;
    text(p49,"SCHNITT 3-3");
  end
  if (i2=2) then begin
    p49.y=p38.y+i46;
    text(p49,"SCHNITT 3-3");
  end
end
if (i1=0) then begin
  if (i2=1) then begin
    p49.y=p39.y+i46;
    text(p49,"SCHNITT 2-2");
  end
  if (i2=2) then begin
    p49.y=p38.y+i46;
    text(p49,"SCHNITT 2-2");
  end
end
#textstil("iso8,subs");
setlayer("beschriftung")
gst_color(6);
gst_height(5.0);
gst_rotation(0.0);
p49.y=p30.y+r15/2+10
p49.x=p30.x+r2+25;
text(p49,"profilieren");
p49.y=p49.y-20;
text(p49,"tò10mm");
p49.y=p15.y+r15/2+10
p49.x=p15.x+r3+25;
text(p49,"profilieren");
p49.y=p49.y-20;
text(p49,"tò10mm");
#
#************************************************************************
#*                          BEWEHRUNG                                   *
#************************************************************************
#
#--------------------------------------Konstanten setzten
#
r13=0.0;
r25=0.0;
r26=0.0;
writeln(" ");
writeln("               EINGABE DER BEWEHRUNG ");
writeln(" ");
setlayer("0");
#
#--------------------------------------B�gelbewehrung unten
#
writeln(" ");
if (i1=0) then begin
  writeln("B�gelbewehrung ");
end
if (i1>0) then begin
  writeln("B�gelbewehrung unten");
end
writeln(" ");
write("              Anzahl Bereiche = ");
read(i10);
if (i10>1) then begin
  writeln("              B�geldurchmesser constant ?");
  write("              Ja=1/Nein=0     = ");
  read(i11);
end
if (i10=1) then begin
  i11=1;
end
for i5=1 to i10 do begin
  if (i5=i10) then begin
    write("L„nge Bereich ");write(i5);write("               = ");
    r12=r6-r7-r7-r13;
    writeln(r12);
  end
  if (i5<i10) then begin
    write("L„nge Bereich ");write(i5);write("               = ");
    read(r12);
  end
  write("              Abstand         = ");
  read(abstand);
  if (i11=1) then begin
    write("              Durchmesser     = ");
    read(durchm);
    if (durchm/10>r25) then begin
      r25=durchm/10;
    end
    i11=2;
  end
  if (i11=0) then begin
    write("              Durchmesser     = ");
    read(durchm);
    if (durchm/10>r25) then begin
      r25=durchm/10;
    end
  end
  BWFORM("B1");
  if (i5=1) then begin
    anzahl = (r12 / abstand) +1;
  end
  if (i5>1) then begin
    anzahl = (r12 / abstand)  ;
  end
  para_a = r2 -(r22*2);
  para_b = r3 -(r22*2);
  stabmod();
#
#--------------------------------------Darstellung in Ansicht
#
  if (i5=1) then begin
    stabanf.x = p31.x + r22;
    stabanf.y = p31.y + r21;
    r13=r12;
  end
  if (i5>1) then begin
      stabanf.x = p31.x + r22;
      stabanf.y = p31.y + r21 + r13 + abstand;
      r13=r13+r12+abstand;
  end
  if (i1>0) then begin
    vtlabst = r9+i48;
  end
  if (i1=0) then begin
    vtlabst = i48;
  end
  lageposnr.x = stabanf.x-vtlabst-i47;
  lageposnr.y = stabanf.y;
  vlposzei = 0;
  posdrewi = 90.0;
  stabeiwi = -90.0;
  verlegewinkel = 90.0;
  stabspieg = 0;
  ansicht = 2;
  stabzei = 1;
  verteilzei = 3;
  stabecke = 3;
  posnrzei = 6;
  posnrli = 0;
  stabkreis = 2;
  stabgeo();
end
#
#--------------------------------------Darstellung im Schnitt 1-1
#
stabanf.x = p45.x + r22;
stabanf.y = p45.y + r22;
vtlabst = 0;
lageposnr.x = stabanf.x-r22-vtlabst-i47;
lageposnr.y = stabanf.y;
vtlendpkt.x=stabanf.x;
vtlendpkt.y=stabanf.y + para_b/2;
vlposzei = 3;
posdrewi = 0.0;
stabeiwi = 0.0;
verlegewinkel = 0.0;
ansicht = 3;
stabzei = 5;
verteilzei = 0;
stabecke = 3;
posnrli = 1;
stabkreis = 2;
stabgeo();
#
#--------------------------------------Darstellung im Eisenauszug
#
stabanf.x = p45.x + r2 + r22 + i50 + i45;
stabanf.y = p45.y + r22;
lageposnr.x = stabanf.x+para_a+i47;
lageposnr.y = stabanf.y+para_b/2;
vtlabst = 0;
vlposzei = 0;
stabzei = 5;
verteilzei = 0;
stabecke = 3;
posnrli = 0;
stabkreis = 2;
stabgeo();
#
#--------------------------------------B�gelbewehrung oben
#
if (i1>0) then begin
  r13=0;
  writeln(" ");
  writeln("B�gelbewehrung oben");
  writeln(" ");
  write("              Anzahl Bereiche = ");
  read(i10);
  if (i10>1) then begin
    writeln("              B�geldurchmesser constant ?");
    write("              Ja=1/Nein=0     = ");
    read(i11);
  end
  if (i10=1) then begin
    i11=1;
  end
  for i5=1 to i10 do begin
    if (i5=i10) then begin
      write("L„nge Bereich ");write(i5);write("               = ");
      r12=r1-r6-r10-r13;
      writeln(r12);
    end
    if (i5<i10) then begin
      write("L„nge Bereich ");write(i5);write("               = ");
      read(r12);
    end
    write("              Abstand         = ");
    read(abstand);
    if (i11=1) then begin
      write("              Durchmesser     = ");
      read(durchm);
      if (durchm/10>r26) then begin
        r26=durchm/10;
      end
      i11=2;
    end
    if (i11=0) then begin
      write("              Durchmesser     = ");
      read(durchm);
      if (durchm/10>r26) then begin
        r26=durchm/10;
      end
    end
    BWFORM("B1");
    if (i5=1) then begin
      anzahl = (r12 / abstand) +1;
    end
    if (i5>1) then begin
      anzahl = (r12 / abstand) ;
    end
    para_a = r4 -(r22*2);
    para_b = r5 -(r22*2);
    stabmod();
#
#--------------------------------------Darstellung in Ansicht
#
    if (i5=1) then begin
      stabanf.x = p9.x + r22;
      stabanf.y = p31.y + r6;
      r13=r12;
    end
    if (i5>1) then begin
      stabanf.x = p9.x + r22;
      stabanf.y = p31.y + r6 + r13 +abstand;
      r13=r13+r12+abstand;
    end
    if (i1=0) then begin
      vtlabst = i48;
    end
    if (i1=1) then begin
      vtlabst = r9+i48+(r2-r4);
    end
    if (i1=2) then begin
      vtlabst = r9+i48;
    end
    if (i1=3) then begin
      vtlabst = r9+i48+(r2-r4)/2;
    end
    lageposnr.x = stabanf.x-vtlabst-i47;
    lageposnr.y = stabanf.y;
    vlposzei = 0;
    posdrewi = 90.0;
    stabeiwi = -90.0;
    verlegewinkel = 90.0;
    ansicht = 2;
    stabzei = 1;
    verteilzei = 3;
    stabecke = 3;
    posnrli = 0;
    stabkreis = 2;
    stabgeo();
  end
#
#--------------------------------------Darstellung im Schnitt 2-2
#
  stabanf.x = p32.x + r22;
  stabanf.y = p32.y + r22;
  vtlabst = 0;
  lageposnr.x = p32.x-vtlabst-i47;
  lageposnr.y = p32.y;
  vtlendpkt.x=stabanf.x;
  vtlendpkt.y = stabanf.y+para_b/2;
  vlposzei = 3;
  posdrewi = 0.0;
  stabeiwi = 0.0;
  verlegewinkel = 0.0;
  ansicht = 3;
  stabzei = 5;
  verteilzei = 0;
  stabecke = 3;
  posnrli = 1;
  stabkreis = 2;
  stabgeo();
#
#--------------------------------------Darstellung im Eisenauszug
#
  stabanf.x = p45.x + r2 + r22 + i50 + i45;
  stabanf.y = p32.y + r22;
  lageposnr.x = stabanf.x+para_a+i47;
  lageposnr.y = stabanf.y+para_b/2;
  vtlabst = 0;
  vlposzei = 0;
  ansicht = 3;
  stabzei = 5;
  verteilzei = 0;
  stabecke = 3;
  posnrli = 0;
  stabkreis = 2;
  stabgeo();
end
#
#--------------------------------------B�gelbewehrung Ausklinkung
#
if (i2>0) then begin
  writeln(" ");
  writeln("B�gelbewehrung Ausklinkung");
  writeln(" ");
  write("              Abstand         = ");
  read(abstand);
  writeln(" ");
  write("              Durchmesser     = ");
  read(durchm);
  if (durchm/10>r26) then begin
    r26=durchm/10;
  end
  BWFORM("B1");
  anzahl = (r10 / abstand) +1 ;
  if (i2=1) then begin
    para_a = r4 -(r22*2);
    para_b = (r5-r11)/2 - r22 - r23;
  end
  if (i2=2) then begin
    para_a = (r4-r11)/2 - r22 - r23;
    para_b = r5 -(r22*2);
  end
  posanzahl = 2;
  stabmod();
#
#--------------------------------------Darstellung in Ansicht
#
  stabanf.x = p9.x + r22;
  stabanf.y = p9.y - r10 ;
  if (i1=0) then begin
    vtlabst = i48;
  end
  if (i1=1) then begin
    vtlabst = r9+i48+(r2-r4);
  end
  if (i1=2) then begin
    vtlabst = r9+i48;
  end
  if (i1=3) then begin
    vtlabst = r9+i48+(r2-r4)/2;
  end
  lageposnr.x = stabanf.x-vtlabst-i47;
  lageposnr.y = stabanf.y;
  vlposzei = 0;
  posdrewi = 90.0;
  stabeiwi = -90.0;
  verlegewinkel = 90.0;
  ansicht = 2;
  stabzei = 1;
  verteilzei = 3;
  stabecke = 3;
  posnrli = 0;
  stabkreis = 2;
  stabgeo();
  if (i2=2) then begin
    stabanf.x = p22.x + r23;
    stabanf.y = p22.y ;
    vlposzei = 0;
    stabeiwi = -90.0;
    verlegewinkel = 90.0;
    ansicht = 2;
    stabzei = 1;
    verteilzei = 0;
    stabecke = 3;
    posnrzei = 0;
    posnrli = 0;
    stabkreis = 2;
    stabgeo();
  end
#
#--------------------------------------Darstellung im Schnitt 3-3
#
  if (i2=2) then begin
    stabanf.x = p39.x + r22;
    stabanf.y = p39.y + r22;
    vtlabst = 0;
    lageposnr.x = p39.x-vtlabst-i47;
    lageposnr.y = p39.y;
    vtlendpkt=lageposnr;
    vtlendpkt.x=stabanf.x;
    vtlendpkt.y = stabanf.y+para_b/2;
    vlposzei = 3;
    posdrewi = 0.0;
    stabeiwi = 0.0;
    verlegewinkel = 0.0;
    ansicht = 3;
    stabzei = 5;
    verteilzei = 0;
    stabecke = 3;
    posnrzei = 6;
    posnrli = 1;
    stabkreis = 2;
    stabgeo();
    stabanf.x = p40.x + r23;
    stabanf.y = p40.y + r22;
    lageposnr.x = stabanf.x+i47+para_a;
    lageposnr.y = stabanf.y+para_b+vtlabst+i47;
    vtlendpkt.x=stabanf.x+para_a/2;
    vtlendpkt.y=stabanf.y+para_b;
    posnrli=0;
    stabgeo();
  end
  if (i2=1) then begin
    stabanf.x = p36.x + r22;
    stabanf.y = p36.y + r22;
    vtlabst = 0;
    lageposnr.x = p36.x-vtlabst-i47;
    lageposnr.y = p36.y-i47-para_b/2;
    vtlendpkt.y=p36.y+para_b/2;
    vtlendpkt.x=stabanf.x;
    vlposzei = 3;
    posdrewi = 0.0;
    stabeiwi = 0.0;
    verlegewinkel = 0.0;
    ansicht = 3;
    stabzei = 5;
    verteilzei = 0;
    stabecke = 3;
    posnrzei = 6;
    posnrli = 1;
    stabkreis = 2;
    stabgeo();
    stabanf.x = p42.x + r22;
    stabanf.y = p42.y + r23;
    lageposnr.x = p42.x-vtlabst-i47;
    lageposnr.y = p42.y-i47+para_b/2;
    vtlendpkt.y=p42.y+para_b/2;
    vtlendpkt.x=stabanf.x;
    stabgeo();
  end
#
#--------------------------------------Darstellung im Eisenauszug
#
  stabanf.x = p45.x + r2 + r22 + i50 + i45;
  if (i2=1) then begin
    stabanf.y = p36.y + r22;
  end
  if (i2=2) then begin
    stabanf.y = p39.y + r22;
  end
  lageposnr.x = stabanf.x+para_a+i47;
  lageposnr.y = stabanf.y+para_b/2;
  vtlabst = 0;
  vlposzei = 0;
  ansicht = 3;
  stabzei = 5;
  verteilzei = 0;
  stabecke = 3;
  posnrzei = 6;
  posnrli = 0;
  stabkreis = 2;
  stabgeo();
end
#
#--------------------------------------L„ngsdurchlaufende Bewehrung
#
if (i1=0) then begin
  if (r25>r26) then begin
    r26=r25;
  end
end
writeln(" ");
writeln("Durchlaufende L„ngsbewehrung");
writeln(" ");
write("              Durchmesser             = ");
read(durchm);
r14 = 2.0 + durchm/10;
if (durchm>20)  then begin
  r14 = 2*durchm/10;
end
writeln(" ");
write("              Anzahl pro Eck [1/2/3]  = ");
read(i6);
anzahl = 2;
posanzahl = 1;
BWFORM("A1");
abstand = (r5 -2*r22 - 2*r26 - 2*durchm/20) / (anzahl-1);
para_a = r1 - r20 - r21;
stabmod();stabmod();
#
#--------------------------------------Darstellung in Ansicht
#
stabanf.x = p9.x + r22 + r26 + durchm/20;
stabanf.y = p31.y + r21;
vtlabst = 0;
lageposnr.x = stabanf.x;
lageposnr.y = stabanf.y+r1+i47;
vtlendpkt=stabanf;
vtlendpkt.y=vtlendpkt.y+para_a;
vlposzei = 3;
posdrewi = 0.0;
stabeiwi = 90.0;
verlegewinkel = 0.0;
ansicht = 2;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
posnrzei = 9;
posnrli = 1;
stabkreis = 0;
stabgeo();
stabanf.x = p8.x - r22 - r26 - durchm/20;
stabanf.y = p31.y + r21;
vtlendpkt=stabanf;
vtlendpkt.y=vtlendpkt.y+para_a;
posnrzei = 0;
stabgeo();
if (i6=3) then begin
  stabmod();stabmod();
  stabanf.x = p9.x + r22 + r26 + r14 + durchm/20;
  stabanf.y = p31.y + r21;
  vtlabst = 0;
  vtlendpkt=stabanf;
  vtlendpkt.y=vtlendpkt.y+para_a;
  vlposzei = 3;
  stabgeo();
  stabanf.x = p8.x - r22 - r26 - r14 - durchm/20;
  stabanf.y = p31.y + r21;
  vtlendpkt=stabanf;
  vtlendpkt.y=vtlendpkt.y+para_a;
  vlposzei = 3;
  stabgeo();
end
#
#--------------------------------------Darstellung im Eisenauszug
#
stabanf.x = p31.x - i47 - i48 - i45 + r22 + r26 + durchm/20;
stabanf.y = p31.y + r21;
vtlabst = 0;
lageposnr.x = stabanf.x - i47;
lageposnr.y = stabanf.y+para_a/2;
vlposzei = 0;
posdrewi = 90.0;
stabeiwi = 90.0;
verlegewinkel = 0.0;
ansicht = 2;
stabzei = 5;
verteilzei = 0;
stabecke = 1;
posnrzei = 9;
posnrli = 0;
stabkreis = 0;
stabgeo();
#
#--------------------------------------Darstellung im Schnitt 1-1  1.3.Stab
#
if (i1=0) then begin
  p44=p45;
end
if (i1=1) then begin
  p44=p45;
  p44.x=p44.x+(r2-r4);
end
if (i1=2) then begin
  p44=p45;
end
if (i1=3) then begin
  p44=p45;
  p44.x=p44.x+(r2-r4)/2;
end
stabanf.x = p44.x + r22 + r26 + durchm/20;
stabanf.y = p44.y + r22 + r26 + durchm/20;
vtlabst =0;
lageposnr.x = p45.x - i47;
lageposnr.y = p45.y + r3 + i47;
vlposzei = 0;
posdrewi = 0.0;
stabeiwi = 0.0;
verlegewinkel = 90.0;
ansicht = 1;
stabzei = 1;
verteilzei = 0;
stabecke = 1;
posnrzei = 9;
posnrli = 1;
stabkreis = 1;
stabgeo();
if (i1=0) then begin
  p44=p46;
end
if (i1=1) then begin
  p44=p46;
end
if (i1=2) then begin
  p44.x=p46.x-(r2-r4);
end
if (i1=3) then begin
  p44=p46;
  p44.x=p44.x-(r2-r4)/2;
end
stabanf.x = p44.x - r22 - r26 - durchm/20;
stabanf.y = p44.y + r22 + r26 + durchm/20;
stabgeo();
if (i6>1) then begin
  if (i6=3) then begin
    if (i1=0) then begin
      p44=p45;
    end
    if (i1=1) then begin
      p44=p45;
      p44.x=p44.x+(r2-r4);
    end
    if (i1=2) then begin
      p44=p45;
    end
    if (i1=3) then begin
      p44=p45;
      p44.x=p44.x+(r2-r4)/2;
    end
    stabanf.x = p44.x + r22 + r26 + r14 + durchm/20;
    stabanf.y = p44.y + r22 + r26 + durchm/20;
    lageposnr.x = p45.x ;
    lageposnr.y = p45.y + r3 + i47;
    posnrli = 0;
    stabgeo();
    if (i1=0) then begin
      p44=p46;
    end
    if (i1=1) then begin
      p44=p46;
    end
    if (i1=2) then begin
      p44.x=p46.x-(r2-r4);
    end
    if (i1=3) then begin
      p44=p46;
      p44.x=p44.x-(r2-r4)/2;
    end
    stabanf.x = p44.x - r22 - r26 - r14 - durchm/20;
    stabanf.y = p44.y + r22 + r26 + durchm/20;
    stabgeo();
  end
end
#
#--------------------------------------Darstellung im Schnitt 2-2  1.3.Stab
#
if (i3=0) then begin
  stabanf.x = p32.x + r22 + r26 + durchm/20;
  stabanf.y = p32.y + r22 + r26 + durchm/20;
  vtlabst =0;
  lageposnr.x = p32.x-i47;
  lageposnr.y = p32.y+r5+i47;
  vlposzei = 0;
  posnrli = 1;
  stabgeo();
  stabanf.x = p33.x - r22 - r26 - durchm/20;
  stabanf.y = p33.y + r22 + r26 + durchm/20;
  stabgeo();
  if (i6>1) then begin
    if (i6=3) then begin
      stabanf.x = p32.x + r22 + r26 + r14 + durchm/20;
      stabanf.y = p32.y + r22 + r26 + durchm/20;
      posnrli = 0;
      lageposnr.x = p32.x ;
      lageposnr.y = p32.y + r5 + i47;
      stabgeo();
      stabanf.x = p33.x - r22 - r26 - r14 - durchm/20;
      stabanf.y = p33.y + r22 + r26 + durchm/20;
      stabgeo();
    end
  end
end
#
#--------------------------------------Darstellung im Schnitt 3-3  1.3.Stab
#
if (i2>0) then begin
  if (i2=1) then begin
    p44=p36;
  end
  if (i2=2) then begin
    p44=p39;
  end
  stabanf.x = p44.x + r22 + r26 + durchm/20;
  stabanf.y = p44.y + r22 + r26 + durchm/20;
  vtlabst =0;
  lageposnr.x = p44.x - i47;
  lageposnr.y = p44.y + r5 + i47;
  vlposzei = 0;
  posnrli = 1;
  stabgeo();
  if (i2=1) then begin
    p44=p37;
  end
  if (i2=2) then begin
    p44=p36;
  end
  stabanf.x = p44.x - r22 - r26 - durchm/20;
  stabanf.y = p44.y + r22 + r26 + durchm/20;
  stabgeo();
  if (i6>1) then begin
    if (i6=3) then begin
      if (i2=1) then begin
        p44=p36;
      end
      if (i2=2) then begin
        p44=p39;
      end
      stabanf.x = p44.x + r22 + r26 + r14 + durchm/20;
      stabanf.y = p44.y + r22 + r26 + durchm/20;
      lageposnr.x = p44.x ;
      lageposnr.y = p44.y + r5 + i47;
      posnrli = 0;
      stabgeo();
      if (i2=1) then begin
        p44=p37;
      end
      if (i2=2) then begin
        p44=p36;
      end
      stabanf.x = p44.x - r22 - r26 - r14 - durchm/20;
      stabanf.y = p44.y + r22 + r26 + durchm/20;
      stabgeo();
    end
  end
end

#
#--------------------------------------Darstellung im Schnitt 1-1  2.Stab
#
if (i6>1) then begin
  abstand = (r5 -2*r22 - 2*r26 - 2*r14 - 2*durchm/20) / (anzahl-1);
  stabmod();stabmod();
  if (i1=0) then begin
    p44=p45;
  end
  if (i1=1) then begin
    p44=p45;
    p44.x=p44.x+(r2-r4);
  end
  if (i1=2) then begin
    p44=p45;
  end
  if (i1=3) then begin
    p44=p45;
    p44.x=p44.x+(r2-r4)/2;
  end
  stabanf.x = p44.x + r22 + r26 + durchm/20;
  stabanf.y = p44.y + r22 + r26 + r14 + durchm/20;
  lageposnr.x = p45.x - i47;
  lageposnr.y = p45.y + r3 ;
  posnrli = 1;
  stabgeo();
  if (i1=0) then begin
    p44=p46;
  end
  if (i1=1) then begin
    p44=p46;
  end
  if (i1=2) then begin
    p44=p46;
    p44.x=p46.x-(r2-r4);
  end
  if (i1=3) then begin
    p44=p46;
    p44.x=p44.x-(r2-r4)/2;
  end
  stabanf.x = p44.x - r22 - r26 - durchm/20;
  stabanf.y = p44.y + r22 + r26 + r14 + durchm/20;
  stabgeo();
#
#--------------------------------------Darstellung im Schnitt 2-2  2.Stab
#
  stabanf.x = p32.x + r22 + r26 + durchm/20;
  stabanf.y = p32.y + r22 + r26 + r14 + durchm/20;
  posnrli = 1;
  lageposnr.x = p32.x - i47;
  lageposnr.y = p32.y + r5 ;
  stabgeo();
  stabanf.x = p33.x - r22 - r26 - durchm/20;
  stabanf.y = p33.y + r22 + r26 + r14 + durchm/20;
  stabgeo();
#
#--------------------------------------Darstellung im Schnitt 2-2  2.Stab
#
  if (i2=1) then begin
    p44=p36;
  end
  if (i2=2) then begin
    p44=p39;
  end
  stabanf.x = p44.x + r22 + r26 + durchm/20;
  stabanf.y = p44.y + r22 + r26 + r14 + durchm/20;
  lageposnr.x = p44.x - i47;
  lageposnr.y = p44.y + r5 ;
  posnrli = 1;
  stabgeo();
  if (i2=1) then begin
    p44=p37;
  end
  if (i2=2) then begin
    p44=p36;
  end
  stabanf.x = p44.x - r22 - r26 - durchm/20;
  stabanf.y = p44.y + r22 + r26 + r14 + durchm/20;
  stabgeo();
end
#
#--------------------------------------Untere L„ngsbewehrung
#
if (i3=0) then begin
  writeln(" ");
  writeln("Untere L„ngsbewehrung");
  writeln(" ");
  write("              Durchmesser   = ");
  read(durchm);
  r14 = 2.0 + durchm/10;
  if (durchm>20)  then begin
    r14 = 2*durchm/10;
  end
  writeln(" ");
  write("              Anzahl pro Eck [1/2/3]  = ");
  read(i6);
  anzahl=2;
  BWFORM("A1");
  abstand = (r5 -2*r22 - 2*r25 - 2*durchm/20) / (anzahl-1);
  para_a = r6 - r21;
  stabmod();
#
#--------------------------------------Darstellung in Ansicht
#
  if (i1=1) then begin
    stabanf.x = p31.x + r22 + r25 + durchm/20;
    stabanf.y = p31.y + r21;
    vtlabst = 0;
    lageposnr.x = stabanf.x-i47;
    lageposnr.y = stabanf.y-i47;
    vtlendpkt=stabanf;
    vlposzei = 3;
    posdrewi = 0.0;
    stabeiwi = 90.0;
    verlegewinkel = 0.0;
    ansicht = 2;
    stabzei = 5;
    verteilzei = 0;
    stabecke = 1;
    posnrzei = 9;
    posnrli = 1;
    stabkreis = 0;
    stabgeo();
    if (i6=3) then begin
      stabanf.x = p31.x + r22 + r25 + r14 + durchm/20;
      stabanf.y = p31.y + r21;
      vtlabst = 0;
      vtlendpkt=stabanf;
      posnrzei = 0;
      stabgeo();
    end
  end
  if (i1=2) then begin
    stabanf.x = p31.x + r2 - r22 - r25 - durchm/20;
    stabanf.y = p31.y + r21;
    vtlabst = 0;
    lageposnr.x = p31.x + r22 + r25 + durchm/20-i47;
    lageposnr.y = p31.y + r21-i47;
    vlposzei = 3;
    posdrewi = 0.0;
    stabeiwi = 90.0;
    verlegewinkel = 0.0;
    ansicht = 2;
    stabzei = 5;
    verteilzei = 0;
    stabecke = 1;
    posnrzei = 9;
    posnrli = 1;
    stabkreis = 0;
    vtlendpkt=stabanf;
    stabgeo();
    if (i6=3) then begin
      stabanf.x = p31.x + r2 - r22 - r25 - r14 - durchm/20;
      stabanf.y = p31.y + r21;
      vtlendpkt=stabanf;
      posnrzei = 0;
      stabgeo();
    end
  end
  if (i1=3) then begin
    stabanf.x = p31.x + r22 + r25 + durchm/20;
    stabanf.y = p31.y + r21;
    vtlabst = 0;
    lageposnr.x = stabanf.x-i47;
    lageposnr.y = stabanf.y-i47;
    vtlendpkt=stabanf;
    vlposzei = 3;
    posdrewi = 0.0;
    stabeiwi = 90.0;
    verlegewinkel = 0.0;
    ansicht = 2;
    stabzei = 5;
    verteilzei = 0;
    stabecke = 1;
    posnrzei = 9;
    posnrli = 1;
    stabkreis = 0;
    stabgeo();
    stabanf.x = p31.x + r2 - r22 - r25 - durchm/20;
    stabanf.y = p31.y + r21;
    vtlendpkt=stabanf;
    posnrzei = 0;
    stabgeo();
    if (i6=3) then begin
      stabanf.x = p31.x + r22 + r25 + r14 + durchm/20;
      stabanf.y = p31.y + r21;
      vtlabst = 0;
      vtlendpkt=stabanf;
      stabgeo();
      stabanf.x = p31.x + r2 - r22 - r25 - r14 - durchm/20;
      stabanf.y = p31.y + r21;
      vtlendpkt=stabanf;
      stabgeo();
    end
  end
#
#--------------------------------------Darstellung im Eisenauszug
#
  stabanf.x = p31.x - i45 - 3*i47 - i48 + r22 + r25 + durchm/20;
  stabanf.y = p31.y + r21;
  vtlabst = 0;
  lageposnr.x = stabanf.x-i47;
  lageposnr.y = stabanf.y+para_a/2;
  vlposzei = 0;
  posdrewi = 90.0;
  stabeiwi = 90.0;
  verlegewinkel = 0.0;
  ansicht = 2;
  stabzei = 5;
  verteilzei = 0;
  stabecke = 1;
  posnrzei = 9;
  posnrli = 0;
  stabkreis = 0;
  stabgeo();
#
#--------------------------------------Darstellung im Schnitt 1-1
#
  if (i1=1) then begin
    stabanf.x = p45.x + r22 + r25 + durchm/20;
    stabanf.y = p45.y + r22 + r25 + durchm/20;
    vtlabst =0;
    lageposnr.x = p45.x - 4*i47;
    lageposnr.y = p45.y + r3 + i47;
    vlposzei = 0;
    posdrewi = 0.0;
    stabeiwi = 0.0;
    verlegewinkel = 90.0;
    ansicht = 1;
    stabzei = 1;
    verteilzei = 0;
    stabecke = 1;
    posnrzei = 9;
    posnrli = 1;
    stabkreis = 1;
    stabgeo();
    if (i6>1) then begin
      if (i6=3) then begin
        stabmod();
        stabanf.x = p45.x + r22 + r25 + r14 + durchm/20;
        stabanf.y = p45.y + r22 + r25 + durchm/20;
        lageposnr.x = p45.x - 3*i47 ;
        lageposnr.y = p45.y + r3 + i47;
        posnrli = 0;
        stabgeo();
      end
      abstand = (r5 -2*r22 - 2*r25 - 2*r14 - 2*durchm/20) / (anzahl-1);
      stabmod();
      stabanf.x = p45.x + r22 + r25 + durchm/20;
      stabanf.y = p45.y + r22 + r25 + r14 + durchm/20;
      lageposnr.x = p45.x - 4*i47;
      lageposnr.y = p45.y + r3 ;
      posnrli = 1;
      stabgeo();
    end
  end
  if (i1=2) then begin
    stabanf.x = p46.x - r22 - r25 - durchm/20;
    stabanf.y = p46.y + r22 + r25 + durchm/20;
    vtlabst =0;
    lageposnr.x = p45.x - 4*i47;
    lageposnr.y = p45.y + r3 + i47;
    vlposzei = 0;
    posdrewi = 0.0;
    stabeiwi = 0.0;
    verlegewinkel = 90.0;
    ansicht = 1;
    stabzei = 1;
    verteilzei = 0;
    stabecke = 1;
    posnrzei = 9;
    posnrli = 1;
    stabkreis = 1;
    stabgeo();
    if (i6>1) then begin
      if (i6=3) then begin
        stabmod();
        stabanf.x = p46.x - r22 - r25 - r14 - durchm/20;
        stabanf.y = p46.y + r22 + r25 + durchm/20;
        lageposnr.x = p45.x - 3*i47 ;
        lageposnr.y = p45.y + r3 + i47;
        posnrli = 0;
        stabgeo();
      end
      abstand = (r5 -2*r22 - 2*r25 - 2*r14 - 2*durchm/20) / (anzahl-1);
      stabmod();
      stabanf.x = p46.x - r22 - r25 - durchm/20;
      stabanf.y = p46.y + r22 + r25 + r14 + durchm/20;
      lageposnr.x = p45.x - 4*i47;
      lageposnr.y = p45.y + r3 ;
      posnrli = 1;
      stabgeo();
    end
  end
  if (i1=3) then begin
    stabanf.x = p45.x + r22 + r25 + durchm/20;
    stabanf.y = p45.y + r22 + r25 + durchm/20;
    vtlabst =0;
    lageposnr.x = p45.x - 4*i47;
    lageposnr.y = p45.y + r3 + i47;
    vlposzei = 0;
    posdrewi = 0.0;
    stabeiwi = 0.0;
    verlegewinkel = 90.0;
    ansicht = 1;
    stabzei = 1;
    verteilzei = 0;
    stabecke = 1;
    posnrzei = 9;
    posnrli = 1;
    stabkreis = 1;
    stabgeo();
    stabanf.x = p46.x - r22 - r25 - durchm/20;
    stabanf.y = p46.y + r22 + r25 + durchm/20;
    stabgeo();
    if (i6>1) then begin
      stabmod();
      if (i6=3) then begin
        stabmod();stabmod();
        stabanf.x = p45.x + r22 + r25 + r14 + durchm/20;
        stabanf.y = p45.y + r22 + r25 + durchm/20;
        lageposnr.x = p45.x - 3*i47 ;
        lageposnr.y = p45.y + r3 + i47;
        posnrli = 0;
        stabgeo();
        stabanf.x = p46.x - r22 - r25 - r14 - durchm/20;
        stabanf.y = p46.y + r22 + r25 + durchm/20;
        stabgeo();
      end
      abstand = (r5 -2*r22 - 2*r25 - 2*r14 - 2*durchm/20) / (anzahl-1);
      stabmod();stabmod();
      stabanf.x = p45.x + r22 + r25 + durchm/20;
      stabanf.y = p45.y + r22 + r25 + r14 + durchm/20;
      lageposnr.x = p45.x - 4*i47;
      lageposnr.y = p45.y + r3 ;
      posnrli = 1;
      stabgeo();
      stabanf.x = p46.x - r22 - r25 - durchm/20;
      stabanf.y = p46.y + r22 + r25 + r14 + durchm/20;
      stabgeo();
    end
  end
end

end.