# |--------------------------------------------------------------------
# |
# |   Treppenmacro:     tr_z_bew.wps
# |   Beschreibung:     Bewehrung fuer alle Varianten
# |--------------------------------------------------------------------

# Integervariablen *******************
name(i30,"aecku");      aecku = 0;     # bwf8 Anzahl Ecken unten
name(i31,"aecko");      aecko = 0;     # bwf8 Anzahl Ecken oben

# ******* Punktevorbelegung fuer die Biegeform bwf8 ***********
p89.x = 0.0;        p89.y = 0.0;       p89.z = 0.0;
p90.x = 0.0;        p90.y = 0.0;       p90.z = 0.0;
p91.x = 0.0;        p91.y = 0.0;       p91.z = 0.0;
p92.x = 0.0;        p92.y = 0.0;       p92.z = 0.0;
p93.x = 0.0;        p93.y = 0.0;       p93.z = 0.0;
p94.x = 0.0;        p94.y = 0.0;       p94.z = 0.0;
p95.x = 0.0;        p95.y = 0.0;       p95.z = 0.0;
p96.x = 0.0;        p96.y = 0.0;       p96.z = 0.0;

  # --------------------------------------------------------------------
  #  Nur beim zweiten Durchlauf die Bewehrung zeichnen
  # --------------------------------------------------------------------
  #
  #  Punkte berechnen fuer die Bewehrung
  #  Treppenantritt Typ: Auflagerausbildung lang
  #
  # --------------------------------------------------------------------
  if ( (schal = 2) AND (einbew = 1) ) then
  begin
    if (lantr <= 75) then
    begin
      # ----------------------------------------------------------------
      #  Biegeform bwf1
      # ----------------------------------------------------------------
      inters(p43,p44,p61,p62,p65);
      p66 = p1;    p66.x = p66.x + betdo;   p66.y = p66.y - betdo;
      p67 = p12;   p67.x = p66.x;           p67.y = p67.y + betdu;
      inters(p45,p46,p61,p62,p68);
      polar(p68,trw,70,p69);
      distance(p65,p66,r22);      i10 = r22;
      distance(p66,p67,r23);      i22 = r23;
      distance(p67,p68,r24);      i23 = r24;
      distance(p68,p69,r25);
      cos(trw,r26);
      r27 = r25 * r26;
      sin(trw,r26);
      r28 = r25 * r26;
      # ********** Modelldaten fuer Biegeform bwf1 *******************
      BWFORM("X2");
      bogen = 0;
      anzahl = 6;
      durchm = 12;
      abstand = lfbr / anzahl;
      anzeck = 5;
      para_a = -i10;                para_b = 0;
      para_c = 0;                   para_d = -i22;
      para_e = i23;                 para_f = 0;
      para_g = r27;                 para_h = r28;
      hakenhint = 0;
      hakenvorn = 0;
      stabmod() ;
      # ********** Geometriedaten fuer Biegeform bwf1 ***************
      stabanf = p1;
      stabanf.x = stabanf.x + betdo;
      stabanf.y = stabanf.y - betdo;
      lageposnr.x = stabanf.x - 20.0;
      lageposnr.y = stabanf.y + 30.0;
      polar(p66,0,(r22/2.0),vtlendpkt);
      vlposzei = 3;            posdrewi = 0.0;
      stabeiwi = 0.0;          verlegewinkel = 0;
      ansicht = 3;             stabzei = 5;
      stabspieg = 0;           verteilzei = 0;
      stabecke = 2;            posnrzei = 6;
      posnrli = 1;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf1 ******************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabanf = p9;
      stabanf.x = stabanf.x - 100;
      stabanf.y = stabanf.y - 100;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
    end
    if (lantr > 75) then
    begin
      # ----------------------------------------------------------------
      #  Biegeform bwf2
      # ----------------------------------------------------------------
      p66 = p1;    p66.x = p66.x + betdo;   p66.y = p66.y - betdo;
      p67 = p12;   p67.x = p66.x;           p67.y = p67.y + betdu;
      p65 = p66;   p65.x = p65.x + 60.0;
      p68 = p67;   p68.x = p68.x + 60.0;
      # ********** Modelldaten fuer Biegeform bwf2 *******************
      BWFORM("A3");
      bogen = 0;
      anzahl = 6;
      durchm = 12;
      abstand = lfbr / anzahl;
      anzeck = 3;
      para_a = 60.0;
      para_b = dauflu - betdu - betdo;
      para_c = 60.0;
      hakenhint = 0;
      hakenvorn = 0;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf2 ***************
      stabanf = p66;
      polar(p67,pihalb,(para_b/2.0),vtlendpkt);
      polar(vtlendpkt,(1.5 * pihalb),30.0,lageposnr);
      vlposzei = 3;                   posdrewi = 0.0;
      stabeiwi = -90.0;               stabspieg = 0;
      verlegewinkel = 0;              ansicht = 3;
      posnrli = 1;                    stabzei = 5;
      verteilzei = 0;                 stabecke = 2;
      posnrzei = 6;                   posnrli = 1;
      stabspieg = 0;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf2 ***************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabanf = p1;
      stabanf.x = stabanf.x - 100;
      stabanf.y = stabanf.y - 100;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
      # ----------------------------------------------------------------
      #  Biegeform bwf3
      # ----------------------------------------------------------------
      inters(p49,p50,p43,p44,p70);
      inters(p49,p50,p47,p48,p71);
      p69 = p70;   p69.x = p69.x + 60.0;
      p72 = p71;   p72.x = p72.x + 60.0;
      # ********** Modelldaten fuer Biegeform bwf3 *******************
      BWFORM("A3");
      bogen = 0;
      anzahl = 6;
      durchm = 12;
      abstand = lfbr / anzahl;
      anzeck = 3;
      para_a = 60.0;
      para_b = dpodu - betdu - betdo;
      para_c = 60.0;
      hakenhint = 0;
      hakenvorn = 0;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf3 ***************
      stabanf = p70;
      polar(p71,pihalb,(para_b/2.0),vtlendpkt);
      polar(vtlendpkt,(-1.5 * pihalb),30.0,lageposnr);
      vlposzei = 3;                   posdrewi = 0.0;
      stabeiwi = -90.0;               stabspieg = 0;
      verlegewinkel = 0;              ansicht = 3;
      posnrli = 1;                    stabzei = 5;
      verteilzei = 0;                 stabecke = 2;
      posnrzei = 6;                   posnrli = 1;
      stabspieg = 0;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf3 ***************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabanf = p1;
      stabanf.y = stabanf.y - 100;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
      # ----------------------------------------------------------------
      #  Biegeform bwf11
      # ----------------------------------------------------------------
      inters(p43,p44,p61,p62,p19);
      polar(p19,trw,60.0,p20);
      p18 = p1;   p18.x = p18.x + betdo;   p18.y = p18.y - betdo;
      distance(p18,p19,r29);       i24 = r29;
      distance(p19,p20,r30);
      cos(trw,r26);
      r31 = r30 * r26;
      sin(trw,r26);
      r32 = r30 * r26;
      # ********** Modelldaten fuer Biegeform bwf11 *******************
      BWFORM("C1");
      bogen = 0;
      anzahl = 6;
      durchm = 12;
      abstand = lfbr / anzahl;
      anzeck = 3;
      para_a = i24;
      para_b = r31;
      para_c = r32;
      hakenhint = 0;
      hakenvorn = 0;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf11 ***************
      stabanf = p19;
      polar(p18,0,(r29/3.0),vtlendpkt);
      polar(vtlendpkt,pihalb,20.0,lageposnr);
      vlposzei = 3;                    posdrewi = 0.0;
      stabeiwi = 180.0;                stabspieg = 1;
      verlegewinkel = 0;               ansicht = 3;
      stabzei = 5;                     verteilzei = 0;
      stabecke = 2;                    posnrzei = 6;
      posnrli = 1;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf11 ******************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabecke = 1;
      stabanf = p9;
      stabanf.x = stabanf.x + 200 - (para_a / 2.0);
      stabanf.y = stabanf.y - 235;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 15;
      stabgeo();
      # ----------------------------------------------------------------
      #  Biegeform bwf12
      # ----------------------------------------------------------------
      inters(p47,p48,p63,p64,p22);
      polar(p22,trw,60.0,p23);
      p21 = p10;   p21.x = p21.x + betdu;  p21.y = p21.y + betdu;
      distance(p21,p22,r33);       i25 = r33;
      distance(p22,p23,r34);
      cos(trw,r26);
      r35 = r34 * r26;
      sin(trw,r26);
      r36 = r34 * r26;
      # ********** Modelldaten fuer Biegeform bwf12 *******************
      BWFORM("C1");
      bogen = 0;
      anzahl = 6;
      durchm = 12;
      abstand = lfbr / anzahl;
      anzeck = 3;
      para_a = i25;
      para_b = r35;
      para_c = r36;
      hakenhint = 0;
      hakenvorn = 0;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf12 ***************
      stabanf = p22;
      polar(p21,0,(r33/3.0),vtlendpkt);
      polar(vtlendpkt,-pihalb,20,lageposnr);
      vlposzei = 3;                    posdrewi = 0.0;
      stabeiwi = 180.0;                stabspieg = 1;
      verlegewinkel = 0;               ansicht = 3;
      stabzei = 5;                     verteilzei = 0;
      stabecke = 2;                    posnrzei = 6;
      posnrli = 0;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf12 ******************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabecke = 2;
      stabanf = p9;
      stabanf.x = stabanf.x - 100;
      stabanf.y = stabanf.y - 300;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
    end
    # ----------------------------------------------------------------
    #  Biegeform bwf8: Punkte fuer Antritt
    # ----------------------------------------------------------------
    aecku = 4;
    inters(p43,p44,p49,p50,p90);
    inters(p49,p50,p61,p62,p91);
    p92 = p91;
    inters(p47,p48,p49,p50,p15);
    if (p91.y <= p15.y) then
    begin
      inters(p49,p50,p47,p48,p91);
      inters(p47,p48,p61,p62,p92);
    end
  end      # e_einbew=1

  # --------------------------------------------------------------------
  #  Punkte berechnen fuer die Bewehrung fuer
  #  Treppenaustritt Typ: Auflagerausbildung lang
  # --------------------------------------------------------------------
  if ( (schal = 2) AND (secbew = 1) ) then
  begin
    if (laustr <= 75) then
    begin
      # ----------------------------------------------------------------
      #  Biegeform bwf4
      # ----------------------------------------------------------------
      p73 = p6;   p73.x = p73.x - betdu;   p73.y = p73.y - betdo;
      p74 = p5;   p74.x = p74.x + betdo;   p74.y = p74.y - betdo;
      p75 = p74;  p75.y = p13.y + betdu;
      p76 = p75;  p76.x = p73.x;           p76.y = p75.y;
      distance(p73,p74,r37);
      distance(p74,p75,r38);
      # ********** Modelldaten fuer Biegeform bwf4 *******************
      BWFORM("B1");
      bogen = 0;
      anzahl = 6;
      durchm = 8;
      abstand = lfbr / anzahl;
      anzeck = 2;
      hakenhint = 1;
      hakenvorn = 1;
      para_a = r37;
      para_b = r38;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf4 ***************
      stabanf = p74;
      polar(p73,pi,5.0,vtlendpkt);
      polar(vtlendpkt,trw,30.0,lageposnr);
      vlposzei = 3;                  stabspieg = 0;
      posdrewi = 0.0;                verlegewinkel = 0;
      stabeiwi = 0.0;                ansicht = 3;
      stabzei = 5;                   verteilzei = 0;
      stabecke = 1;                  posnrzei = 6;
      posnrli = 0;                   stabspieg = 1;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf4 ***************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabanf = p1;
      stabanf.x = stabanf.x + 100;
      stabanf.y = stabanf.y - 100;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
    end
    if ( (laustr > 40) and (laustr <= 75) ) then
    begin
      # ----------------------------------------------------------------
      #  Biegeform bwf5
      # ----------------------------------------------------------------
      inters(p61,p62,p59,p60,p81);
      inters(p51,p52,p59,p60,p80);
      inters(p57,p58,p51,p52,p79);
      inters(p57,p58,p55,p56,p78);
      inters(p59,p60,p55,p56,p77);
      distance(p77,p78,r39);         i26 = r39;
      distance(p78,p79,r40);         i27 = r40;
      distance(p79,p80,r41);         i28 = r41;
      distance(p80,p81,r42);         i29 = r42;
      # ********** Modelldaten fuer Biegeform bwf5 *******************
      BWFORM("A4");
      bogen = 0;
      anzahl = 6;
      durchm = 8;
      abstand = lfbr / anzahl;
      hakenhint = 0;
      hakenvorn = 0;
      anzeck = 3;
      para_a = 0.0;
      para_b = i26;
      para_c = i27;
      para_d = i28;
      para_e = i29;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf5 ***************
      stabanf = p79;
      polar(p79,pi,(r41/2.0),vtlendpkt);
      polar(vtlendpkt,pihalb,20.0,lageposnr);
      vlposzei = 3;                posdrewi = 0.0;
      stabspieg = 0;               stabeiwi = 90.0;
      verlegewinkel = 0;           ansicht = 3;
      stabzei = 5;                 verteilzei = 0;
      stabecke = 4;                posnrzei = 6;
      posnrli = 1;                 stabspieg = 0;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf5 ***************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabecke = 5;
      stabanf = p1;
      stabanf.x = stabanf.x + 200;
      stabanf.y = stabanf.y - 100;
      lageposnr = stabanf;
      lageposnr.x = lageposnr.x + 15;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
    end
    if (laustr > 75) then
    begin
      # ----------------------------------------------------------------
      #  Biegeform bwf6
      # ----------------------------------------------------------------
      p83 = p6;   p83.x = p83.x - betdu;   p83.y = p83.y - betdo;
      p82 = p83;  p82.x = p82.x - 60.0;
      p84 = p14;  p84.x = p84.x - betdu;   p84.y = p84.y + betdu;
      p85 = p84;  p85.x = p85.x - 60.0;
      distance(p82,p83,r43);
      distance(p83,p84,r44);
      distance(p84,p85,r45);
      # ********** Modelldaten fuer Biegeform bwf6 *******************
      BWFORM("A3");
      bogen = 0;
      anzahl = 6;
      durchm = 8;
      abstand = lfbr / anzahl;
      hakenhint = 0;
      hakenvorn = 0;
      anzeck = 3;
      para_a = r43;
      para_b = r44;
      para_c = r45;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf6 ***************
      stabanf = p83;
      polar(p83,-pihalb,(r44/2.0),vtlendpkt);
      polar(vtlendpkt,(pihalb/2),30.0,lageposnr);
      vlposzei = 3;                    posdrewi = 0.0;
      stabeiwi = 90.0;                 stabspieg = 1;
      verlegewinkel = 0;               ansicht = 3;
      posnrli = 0;                     stabzei = 5;
      verteilzei = 0;                  stabecke = 2;
      posnrzei = 6;                    posnrli = 0;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf6 ***************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabecke = 1;
      stabanf = p1;
      stabanf.x = stabanf.x + 200;
      stabanf.y = stabanf.y - 100;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
      # ----------------------------------------------------------------
      #  Biegeform bwf7
      # ----------------------------------------------------------------
      inters(p57,p58,p51,p52,p87);
      inters(p57,p58,p55,p56,p88);
      p86 = p87;  p86.x = p86.x - 60.0;
      p24 = p88;  p24.x = p24.x - 60.0;
      distance(p86,p87,r46);
      distance(p87,p88,r47);
      distance(p88,p24,r48);
      # ********** Modelldaten fuer Biegeform bwf7 *******************
      BWFORM("A3");
      bogen = 0;
      anzahl = 6;
      durchm = 8;
      abstand = lfbr / anzahl;
      hakenhint = 0;
      hakenvorn = 0;
      anzeck = 3;
      para_a = r46;
      para_b = r47;
      para_c = r48;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf7 ***************
      stabanf = p88;
      polar(p88,pihalb,(r47/3.0),vtlendpkt);
      polar(vtlendpkt,(-pihalb/2),30.0,lageposnr);
      vlposzei = 3;                    posdrewi = 0.0;
      stabeiwi = 90.0;                 stabspieg = 1;
      verlegewinkel = 0;               ansicht = 3;
      posnrli = 0;                     stabzei = 5;
      verteilzei = 0;                  stabecke = 3;
      posnrzei = 6;                    posnrli = 0;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf7 ***************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabecke = 1;
      stabanf = p1;
      stabanf.x = stabanf.x + 300;
      stabanf.y = stabanf.y - 100;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
    end
    if (laustr <= 40) then
    begin
      # ----------------------------------------------------------------
      #  Biegeform bwf8: Punkte fuer Austritt
      # ----------------------------------------------------------------
      aecko = 4;
      inters(p61,p62,p57,p58,p93);
      inters(p57,p58,p51,p52,p94);
      inters(p51,p52,p59,p60,p95);
      inters(p59,p60,p61,p62,p96);
    end
    if ( (laustr > 40) AND (laustr <= 75) ) then
    begin
      # ----------------------------------------------------------------
      #  Biegeform bwf8: Punkte fuer Austritt
      # ----------------------------------------------------------------
      inters(p61,p62,p57,p58,p93);
      inters(p61,p62,p51,p52,p16);
      if (p16.x <= p93.x) then
      begin
        aecko = 2;
        inters(p61,p62,p51,p52,p93);
        inters(p51,p52,p57,p58,p94);
      end
      if (p16.x > p93.x) then
      begin
        aecko = 1;
        inters(p61,p62,p57,p58,p93);
      end
    end
    if (laustr > 75) then
    begin
      # ----------------------------------------------------------------
      #  Biegeform bwf8: Punkte fuer Austritt
      # ----------------------------------------------------------------
      aecko = 2;
      inters(p61,p62,p51,p52,p93);
      inters(p57,p58,p51,p52,p94);
    end

    # ----------------------------------------------------------------
    #  Biegeform bwf9
    # ----------------------------------------------------------------
    if (laustr > 75) then
    begin
      inters(p57,p58,p51,p52,p99);
      inters(p51,p52,p63,p64,p98);
      polar(p98,trw,-60.0,p97);
      distance(p97,p98,r49);
      distance(p98,p99,r50);
      cos(trw,r26);
      r51 = r49 * r26;
      sin(trw,r26);
      r52 = r49 * r26;
      # ********** Modelldaten fuer Biegeform bwf9 *******************
      BWFORM("C1");
      bogen = 0;
      anzahl = 6;
      durchm = 12;
      abstand = lfbr / anzahl;
      anzeck = 3;
      para_a = r50;
      para_b = r51;
      para_c = -r52;
      hakenhint = 0;
      hakenvorn = 0;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf9 ***************
      stabanf = p98;
      polar(p98,trw,(-r49/3.0),vtlendpkt);
      polar(vtlendpkt,(trw+pihalb),45.0,lageposnr);
      vlposzei = 3;                posdrewi = 0.0;
      stabeiwi = 180.0;            stabspieg = 0;
      verlegewinkel = 0;           ansicht = 3;
      stabzei = 5;                 verteilzei = 0;
      stabecke = 2;                posnrzei = 6;
      posnrli = 1;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf9 ******************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabanf = p9;
      stabanf.x = stabanf.x - 100;
      stabanf.y = stabanf.y - 200;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
      # ----------------------------------------------------------------
      #  Biegeform bwf10
      # ----------------------------------------------------------------
      inters(p55,p56,p63,p64,p16);
      polar(p16,trw,-60,p15);
      inters(p55,p56,p57,p58,p17);
      distance(p15,p16,r49);
      distance(p16,p17,r50);
      cos(trw,r26);
      r51 = r49 * r26;
      sin(trw,r26);
      r52 = r49 * r26;
      # ********** Modelldaten fuer Biegeform bwf10 *******************
      BWFORM("C1");
      bogen = 0;
      anzahl = 6;
      durchm = 12;
      abstand = lfbr / anzahl;
      anzeck = 3;
      para_a = r50;
      para_b = r51;
      para_c = -r52;
      hakenhint = 0;
      hakenvorn = 0;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf10 ***************
      stabanf = p16;
      polar(p15,trw,(r49/3.0),vtlendpkt);
      polar(vtlendpkt,(trw+pihalb),45.0,lageposnr);
      vlposzei = 3;                posdrewi = 0.0;
      stabeiwi = 180.0;            stabspieg = 0;
      verlegewinkel = 0;           ansicht = 3;
      stabzei = 5;                 verteilzei = 0;
      stabecke = 2;                posnrzei = 6;
      posnrli = 1;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf10 ******************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabanf = p9;
      stabanf.x = stabanf.x + 50;
      stabanf.y = stabanf.y - 200;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
    end
  end    #e_secbew=1

  # ********************************************************************
  #  Punkte berechnen fuer die Bewehrung fuer
  #  Treppenantritt Typ: Auflagerausbildung kurz
  # ********************************************************************
  if ( (schal = 2) AND (zwebew = 1) ) then
  begin
    # ----------------------------------------------------------------
    #  Biegeform bwf1
    # ----------------------------------------------------------------
    inters(p43,p44,p61,p62,p65);
    p66 = p1;    p66.x = p66.x + betdo;   p66.y = p66.y - betdo;
    p67 = p12;   p67.x = p66.x;           p67.y = p67.y + betdu;
    inters(p45,p46,p61,p62,p68);
    polar(p68,trw,70,p69);
    distance(p65,p66,r22);      i10 = r22;
    distance(p66,p67,r23);      i22 = r23;
    distance(p67,p68,r24);      i23 = r24;
    distance(p68,p69,r25);
    cos(trw,r26);
    r27 = r25 * r26;
    sin(trw,r26);
    r28 = r25 * r26;
    # ********** Modelldaten fuer Biegeform bwf1 *******************
    BWFORM("X2");
    bogen = 0;
    anzahl = 6;
    durchm = 12;
    abstand = lfbr / anzahl;
    anzeck = 5;
    para_a = -i10;                para_b = 0;
    para_c = 0;                   para_d = -i22;
    para_e = i23;                 para_f = 0;
    para_g = r27;                 para_h = r28;
    hakenhint = 0;
    hakenvorn = 0;
    stabmod() ;
    # ********** Geometriedaten fuer Biegeform bwf1 ***************
    stabanf = p1;
    stabanf.x = stabanf.x + betdo;
    stabanf.y = stabanf.y - betdo;
    lageposnr.x = stabanf.x - 20.0;
    lageposnr.y = stabanf.y + 30.0;
    polar(p66,0,(r22/2.0),vtlendpkt);
    vlposzei = 3;            posdrewi = 0.0;
    stabeiwi = 0.0;          verlegewinkel = 0;
    ansicht = 3;             stabzei = 5;
    stabspieg = 0;           verteilzei = 0;
    stabecke = 2;            posnrzei = 6;
    posnrli = 1;
    stabgeo();
    # ********** Stahlauszug fuer Biegeform bwf1 ******************
    posnrzei = 5;
    verteilzei=-2;
    posnrli = 0;
    stabanf = p1;
    stabanf.x = stabanf.x - 100;
    stabanf.y = stabanf.y - 100;
    lageposnr = stabanf;
    lageposnr.y = lageposnr.y - 30;
    stabgeo();
    # -----------------------------------------	-----------------------
    #  Biegeform bwf8: Punkte fuer Antritt
    # ----------------------------------------------------------------
    aecku = 4;
    inters(p43,p44,p49,p50,p90);
    inters(p49,p50,p61,p62,p91);
    p92 = p91;
    inters(p47,p48,p49,p50,p15);
    if (p91.y <= p15.y) then
    begin
      inters(p49,p50,p47,p48,p91);
      inters(p47,p48,p61,p62,p92);
    end
  end    # e_zwebew=1

  # ********************************************************************
  #  Punkte berechnen fuer die Bewehrung fuer
  #  Treppenaustritt Typ: Auflagerausbildung kurz
  # ********************************************************************
  if ( (schal = 2) AND (siebew = 1) ) then
  begin
      # ----------------------------------------------------------------
      #  Biegeform bwf8 fuer Auflagerausbildung kurz
      # ----------------------------------------------------------------
      aecko = 4;
      inters(p61,p62,p57,p58,p93);
      inters(p57,p58,p51,p52,p94);
      inters(p51,p52,p59,p60,p95);
      inters(p59,p60,p61,p62,p96);

      # ----------------------------------------------------------------
      #  Biegeform bwf4
      # ----------------------------------------------------------------
      p73 = p6;   p73.x = p73.x - betdu;   p73.y = p73.y - betdo;
      p74 = p5;   p74.x = p74.x + betdo;   p74.y = p74.y - betdo;
      p75 = p74;  p75.y = p13.y + betdu;
      p76 = p75;  p76.x = p73.x;           p76.y = p75.y;
      distance(p73,p74,r37);
      distance(p74,p75,r38);
      # ********** Modelldaten fuer Biegeform bwf4 *******************
      BWFORM("B1");
      bogen = 0;
      anzahl = 6;
      durchm = 8;
      abstand = lfbr / anzahl;
      anzeck = 2;
      hakenhint = 1;
      hakenvorn = 1;
      para_a = r37;
      para_b = r38;
      stabmod();
      # ********** Geometriedaten fuer Biegeform bwf4 ***************
      stabanf = p74;
      polar(p73,pi,5.0,vtlendpkt);
      polar(vtlendpkt,trw,30.0,lageposnr);
      vlposzei = 3;                  stabspieg = 0;
      posdrewi = 0.0;                verlegewinkel = 0;
      stabeiwi = 0.0;                ansicht = 3;
      stabzei = 5;                   verteilzei = 0;
      stabecke = 1;                  posnrzei = 6;
      posnrli = 0;                   stabspieg = 1;
      stabgeo();
      # ********** Stahlauszug fuer Biegeform bwf4 ***************
      posnrzei = 5;
      verteilzei=-2;
      posnrli = 0;
      stabanf = p1;
      stabanf.x = stabanf.x + 100;
      stabanf.y = stabanf.y - 100;
      lageposnr = stabanf;
      lageposnr.y = lageposnr.y - 30;
      stabgeo();
  end    # e_siebew=1

  # ********************************************************************
  #  Punkte berechnen fuer die Bewehrung fuer
  #  Treppenantritt Typ: Tronsole und Fuszausbildung
  # ********************************************************************
  if (schal = 2) then
  begin
    if ( (drebew = 1) OR (funbew = 1) ) then
    begin
      if (lantr <= 65.0) then
      begin
        # ----------------------------------------------------------------
        #  Biegeform bwf8 fuer Tronsole -- Antritt
        # ----------------------------------------------------------------
        aecku = 4;
        inters(p43,p44,p61,p62,p89);
        inters(p43,p44,p49,p50,p90);
        inters(p49,p50,p61,p62,p91);
        p92 = p91;
        inters(p47,p48,p49,p50,p15);
        if (p91.y <= p15.y) then
        begin
          inters(p49,p50,p47,p48,p91);
          inters(p47,p48,p61,p62,p92);
        end
      end
      if (lantr > 65.0) then
      begin
        # ----------------------------------------------------------------
        #  Biegeform bwf3
        # ----------------------------------------------------------------
        inters(p49,p50,p43,p44,p70);
        inters(p49,p50,p47,p48,p71);
        p69 = p70;   p69.x = p69.x + 60.0;
        p72 = p71;   p72.x = p72.x + 60.0;
        # ********** Modelldaten fuer Biegeform bwf3 *******************
        BWFORM("A3");
        bogen = 0;
        anzahl = 6;
        durchm = 12;
        abstand = lfbr / anzahl;
        anzeck = 3;
        hakenhint = 0;
        hakenvorn = 0;
        para_a = 60.0;
        para_b = dpodu - betdu - betdo;
        para_c = 60.0;
        stabmod();
        # ********** Geometriedaten fuer Biegeform bwf3 ***************
        stabanf = p70;
        polar(p71,pihalb,(para_b/2.0),vtlendpkt);
        polar(vtlendpkt,(-1.5 * pihalb),30.0,lageposnr);
        vlposzei = 3;                   posdrewi = 0.0;
        stabeiwi = -90.0;               stabspieg = 0;
        verlegewinkel = 0;              ansicht = 3;
        posnrli = 1;                    stabzei = 5;
        verteilzei = 0;                 stabecke = 2;
        posnrzei = 6;                   posnrli = 0;
        stabspieg = 0;
        stabgeo();
        # ********** Stahlauszug fuer Biegeform bwf3 ***************
        posnrzei = 5;
        verteilzei=-2;
        posnrli = 0;
        stabanf = p1;
        stabanf.y = stabanf.y - 100;
        lageposnr = stabanf;
        lageposnr.y = lageposnr.y - 30;
        stabgeo();
        # ----------------------------------------------------------------
        #  Biegeform bwf8 fuer Tronsole -- Antritt
        # ----------------------------------------------------------------
        aecku = 4;
        p89.x = 0.0;        p89.y = 0.0;        p89.z = 0.0;
        p90.x = 0.0;        p90.y = 0.0;        p90.z = 0.0;
        inters(p49,p50,p61,p62,p91);
        p92 = p91;
        inters(p47,p48,p49,p50,p15);
        if (p91.y <= p15.y) then
        begin
          inters(p49,p50,p47,p48,p91);
          inters(p47,p48,p61,p62,p92);
        end
        # ----------------------------------------------------------------
        #  Biegeform bwf11
        # ----------------------------------------------------------------
        inters(p43,p44,p61,p62,p19);
        polar(p19,trw,60.0,p20);
        p18 = p1;   p18.x = p18.x + betdo;   p18.y = p18.y - betdo;
        distance(p18,p19,r29);       i24 = r29;
        distance(p19,p20,r30);
        cos(trw,r26);
        r31 = r30 * r26;
        sin(trw,r26);
        r32 = r30 * r26;
        # ********** Modelldaten fuer Biegeform bwf11 *******************
        BWFORM("C1");
        bogen = 0;
        anzahl = 6;
        durchm = 12;
        abstand = lfbr / anzahl;
        anzeck = 3;
        hakenhint = 0;
        hakenvorn = 0;
        para_a = i24;
        para_b = r31;
        para_c = r32;
        stabmod();
        # ********** Geometriedaten fuer Biegeform bwf11 ***************
        stabanf = p19;
        polar(p18,0,(r29/3.0),vtlendpkt);
        polar(vtlendpkt,pihalb,20.0,lageposnr);
        vlposzei = 3;                    posdrewi = 0.0;
        stabeiwi = 180.0;                stabspieg = 1;
        verlegewinkel = 0;               ansicht = 3;
        stabzei = 5;                     verteilzei = 0;
        stabecke = 2;                    posnrzei = 6;
        posnrli = 1;
        stabgeo();
        # ********** Stahlauszug fuer Biegeform bwf11 ******************
        posnrzei = 5;
        verteilzei=-2;
        posnrli = 0;
        stabecke = 1;
        stabanf = p9;
        stabanf.x = stabanf.x + 200 - (para_a / 2.0);
        stabanf.y = stabanf.y - 235;
        lageposnr = stabanf;
        lageposnr.y = lageposnr.y - 15;
        stabgeo();
        # ----------------------------------------------------------------
        #  Biegeform bwf12
        # ----------------------------------------------------------------
        inters(p47,p48,p63,p64,p22);
        polar(p22,trw,60.0,p23);
        inters(p49,p50,p47,p48,p21);
        distance(p21,p22,r33);       i25 = r33;
        distance(p22,p23,r34);
        cos(trw,r26);
        r35 = r34 * r26;
        sin(trw,r26);
        r36 = r34 * r26;
        # ********** Modelldaten fuer Biegeform bwf12 *******************
        BWFORM("C1");
        bogen = 0;
        anzahl = 6;
        durchm = 12;
        abstand = lfbr / anzahl;
        anzeck = 3;
        hakenhint = 0;
        hakenvorn = 0;
        para_a = i25;
        para_b = r35;
        para_c = r36;
        stabmod();
        # ********** Geometriedaten fuer Biegeform bwf12 ***************
        stabanf = p22;
        polar(p21,0,(r33/3.0),vtlendpkt);
        polar(vtlendpkt,-pihalb,20,lageposnr);
        vlposzei = 3;                    posdrewi = 0.0;
        stabeiwi = 180.0;                stabspieg = 1;
        verlegewinkel = 0;               ansicht = 3;
        stabzei = 5;                     verteilzei = 0;
        stabecke = 2;                    posnrzei = 6;
        posnrli = 0;
        stabgeo();
        # ********** Stahlauszug fuer Biegeform bwf12 ******************
        posnrzei = 5;
        verteilzei=-2;
        posnrli = 0;
        stabecke = 2;
        stabanf = p9;
        stabanf.x = stabanf.x - 100;
        stabanf.y = stabanf.y - 300;
        lageposnr = stabanf;
        lageposnr.y = lageposnr.y - 30;
        stabgeo();
      end
    end    # e_drebew=1 und e_funbew=1
  end      # e_schal=2

  # ********************************************************************
  #  Punkte berechnen fuer die Bewehrung fuer
  #  Treppenaustritt Typ: Tronsole und Fuszausbildung
  # ********************************************************************
  if (schal = 2) then
  begin
    if ( (achbew = 1) OR (zehbew = 1) ) then
    begin
      if (laustr <= 40) then
      begin
        if (laustr > 30) then
        begin
          # ----------------------------------------------------------------
          #  Biegeform bwf4
          # ----------------------------------------------------------------
          p73 = p6;   p73.x = p73.x - betdu;   p73.y = p73.y - betdo;
          p74 = p5;   p74.x = p74.x + betdo;   p74.y = p74.y - betdo;
          inters(p55,p56,p59,p60,p75);
          inters(p55,p56,p57,p58,p76);
          # p75 = p74;  p75.y = p13.y + betdu;
          # p76 = p75;  p76.x = p73.x;           p76.y = p75.y;
          distance(p73,p74,r37);
          distance(p74,p75,r38);
          # ********** Modelldaten fuer Biegeform bwf4 *******************
          BWFORM("B1");
          bogen = 0;
          anzahl = 6;
          durchm = 8;
          abstand = lfbr / anzahl;
          anzeck = 2;
          hakenhint = 1;
          hakenvorn = 1;
          para_a = r37;
          para_b = r38;
          stabmod();
          # ********** Geometriedaten fuer Biegeform bwf4 ***************
          stabanf = p74;
          polar(p73,pi,5.0,vtlendpkt);
          polar(vtlendpkt,trw,30.0,lageposnr);
          vlposzei = 3;                  stabspieg = 0;
          posdrewi = 0.0;                verlegewinkel = 0;
          stabeiwi = 0.0;                ansicht = 3;
          stabzei = 5;                   verteilzei = 0;
          stabecke = 1;                  posnrzei = 6;
          posnrli = 0;                   stabspieg = 1;
          stabgeo();
          # ********** Stahlauszug fuer Biegeform bwf4 ***************
          posnrzei = 5;
          verteilzei=-2;
          posnrli = 0;
          stabanf = p1;
          stabanf.x = stabanf.x + 100;
          stabanf.y = stabanf.y - 100;
          lageposnr = stabanf;
          lageposnr.y = lageposnr.y - 30;
          stabgeo();
        end
        # ----------------------------------------------------------------
        #  Biegeform bwf8: Punkte fuer Austritt -- Tronsole
        # ----------------------------------------------------------------
        aecko = 4;
        inters(p61,p62,p57,p58,p93);
        inters(p57,p58,p51,p52,p94);
        inters(p51,p52,p59,p60,p95);
        inters(p59,p60,p61,p62,p96);
      end
      if ( (laustr > 40) AND (laustr <= 75) ) then
      begin
        # ----------------------------------------------------------------
        #  Biegeform bwf5
        # ----------------------------------------------------------------
        inters(p61,p62,p59,p60,p81);
        inters(p51,p52,p59,p60,p80);
        inters(p57,p58,p51,p52,p79);
        inters(p57,p58,p55,p56,p78);
        inters(p59,p60,p55,p56,p77);
        distance(p77,p78,r39);         i26 = r39;
        distance(p78,p79,r40);         i27 = r40;
        distance(p79,p80,r41);         i28 = r41;
        distance(p80,p81,r42);         i29 = r42;
        # ********** Modelldaten fuer Biegeform bwf5 *******************
        BWFORM("A4");
        bogen = 0;
        anzahl = 6;
        durchm = 8;
        abstand = lfbr / anzahl;
        hakenhint = 0;
        hakenvorn = 0;
        anzeck = 3;
        para_a = 0.0;
        para_b = i26;
        para_c = i27;
        para_d = i28;
        para_e = i29;
        stabmod();
        # ********** Geometriedaten fuer Biegeform bwf5 ***************
        stabanf = p79;
        polar(p79,pi,(r41/2.0),vtlendpkt);
        polar(vtlendpkt,pihalb,20.0,lageposnr);
        vlposzei = 3;                posdrewi = 0.0;
        stabspieg = 0;               stabeiwi = 90.0;
        verlegewinkel = 0;           ansicht = 3;
        stabzei = 5;                 verteilzei = 0;
        stabecke = 4;                posnrzei = 6;
        posnrli = 1;                 stabspieg = 0;
        stabgeo();
        # ********** Stahlauszug fuer Biegeform bwf5 ***************
        posnrzei = 5;
        verteilzei=-2;
        posnrli = 0;
        stabecke = 5;
        stabanf = p1;
        stabanf.x = stabanf.x + 200;
        stabanf.y = stabanf.y - 100;
        lageposnr = stabanf;
        lageposnr.x = lageposnr.x + 15;
        lageposnr.y = lageposnr.y - 30;
        stabgeo();
        # ----------------------------------------------------------------
        #  Biegeform bwf8: Punkte fuer Austritt -- Tronsole
        # ----------------------------------------------------------------
        inters(p61,p62,p57,p58,p93);
        inters(p61,p62,p51,p52,p16);
        if (p16.x <= p93.x) then
        begin
          aecko = 2;
          inters(p61,p62,p51,p52,p93);
          inters(p51,p52,p57,p58,p94);
        end
        if (p16.x > p93.x) then
        begin
          aecko = 1;
          inters(p61,p62,p57,p58,p93);
        end
      end
      if (laustr > 75) then
      begin
        # ----------------------------------------------------------------
        #  Biegeform bwf7
        # ----------------------------------------------------------------
        inters(p57,p58,p51,p52,p87);
        inters(p57,p58,p55,p56,p88);
        p86 = p87;  p86.x = p86.x - 60.0;
        p24 = p88;  p24.x = p24.x - 60.0;
        distance(p86,p87,r46);
        distance(p87,p88,r47);
        distance(p88,p24,r48);
        # ********** Modelldaten fuer Biegeform bwf7 *******************
        BWFORM("A3");
        bogen = 0;
        anzahl = 6;
        durchm = 8;
        abstand = lfbr / anzahl;
        hakenhint = 0;
        hakenvorn = 0;
        anzeck = 3;
        para_a = r46;
        para_b = r47;
        para_c = r48;
        stabmod();
        # ********** Geometriedaten fuer Biegeform bwf7 ***************
        stabanf = p88;
        polar(p88,pihalb,(r47/3.0),vtlendpkt);
        polar(vtlendpkt,(-pihalb/2),30.0,lageposnr);
        vlposzei = 3;                    posdrewi = 0.0;
        stabeiwi = 90.0;                 stabspieg = 1;
        verlegewinkel = 0;               ansicht = 3;
        posnrli = 0;                     stabzei = 5;
        verteilzei = 0;                  stabecke = 3;
        posnrzei = 6;                    posnrli = 0;
        stabgeo();
        # ********** Stahlauszug fuer Biegeform bwf7 ***************
        posnrzei = 5;
        verteilzei=-2;
        posnrli = 0;
        stabecke = 1;
        stabanf = p1;
        stabanf.x = stabanf.x + 300;
        stabanf.y = stabanf.y - 100;
        lageposnr = stabanf;
        lageposnr.y = lageposnr.y - 30;
        stabgeo();
        # ----------------------------------------------------------------
        #  Biegeform bwf9
        # ----------------------------------------------------------------
        inters(p57,p58,p51,p52,p99);
        inters(p51,p52,p63,p64,p98);
        polar(p98,trw,-60.0,p97);
        distance(p97,p98,r49);
        distance(p98,p99,r50);
        cos(trw,r26);
        r51 = r49 * r26;
        sin(trw,r26);
        r52 = r49 * r26;
        # ********** Modelldaten fuer Biegeform bwf9 *******************
        BWFORM("C1");
        bogen = 0;
        anzahl = 6;
        durchm = 12;
        abstand = lfbr / anzahl;
        anzeck = 3;
        para_a = r50;
        para_b = r51;
        para_c = -r52;
        hakenhint = 0;
        hakenvorn = 0;
        stabmod();
        # ********** Geometriedaten fuer Biegeform bwf9 ***************
        stabanf = p98;
        polar(p98,trw,(-r49/3.0),vtlendpkt);
        polar(vtlendpkt,(trw+pihalb),45.0,lageposnr);
        vlposzei = 3;                posdrewi = 0.0;
        stabeiwi = 180.0;            stabspieg = 0;
        verlegewinkel = 0;           ansicht = 3;
        stabzei = 5;                 verteilzei = 0;
        stabecke = 2;                posnrzei = 6;
        posnrli = 1;
        stabgeo();
        # ********** Stahlauszug fuer Biegeform bwf9 ******************
        posnrzei = 5;
        verteilzei=-2;
        posnrli = 0;
        stabanf = p9;
        stabanf.x = stabanf.x - 100;
        stabanf.y = stabanf.y - 200;
        lageposnr = stabanf;
        lageposnr.y = lageposnr.y - 30;
        stabgeo();
        # ----------------------------------------------------------------
        #  Biegeform bwf10
        # ----------------------------------------------------------------
        inters(p55,p56,p63,p64,p16);
        polar(p16,trw,-60,p15);
        inters(p55,p56,p57,p58,p17);
        distance(p15,p16,r49);
        distance(p16,p17,r50);
        cos(trw,r26);
        r51 = r49 * r26;
        sin(trw,r26);
        r52 = r49 * r26;
        # ********** Modelldaten fuer Biegeform bwf10 *******************
        BWFORM("C1");
        bogen = 0;
        anzahl = 6;
        durchm = 12;
        abstand = lfbr / anzahl;
        anzeck = 3;
        para_a = r50;
        para_b = r51;
        para_c = -r52;
        hakenhint = 0;
        hakenvorn = 0;
        stabmod();
        # ********** Geometriedaten fuer Biegeform bwf10 ***************
        stabanf = p16;
        polar(p15,trw,(r49/3.0),vtlendpkt);
        polar(vtlendpkt,(trw+pihalb),45.0,lageposnr);
        vlposzei = 3;                posdrewi = 0.0;
        stabeiwi = 180.0;            stabspieg = 0;
        verlegewinkel = 0;           ansicht = 3;
        stabzei = 5;                 verteilzei = 0;
        stabecke = 2;                posnrzei = 6;
        posnrli = 1;
        stabgeo();
        # ********** Stahlauszug fuer Biegeform bwf10 ******************
        posnrzei = 5;
        verteilzei=-2;
        posnrli = 0;
        stabanf = p9;
        stabanf.x = stabanf.x + 50;
        stabanf.y = stabanf.y - 200;
        lageposnr = stabanf;
        lageposnr.y = lageposnr.y - 30;
        stabgeo();
        # ----------------------------------------------------------------
        #  Biegeform bwf8: Punkte fuer Austritt -- Tronsole
        # ----------------------------------------------------------------
        aecko = 2;
        inters(p61,p62,p51,p52,p93);
        inters(p57,p58,p51,p52,p94);
      end
    end    # e_achbew=1 und e_zehbew=1
  end      # e_schal=2

  # ********************************************************************
  #  Punkte berechnen fuer die Bewehrung fuer
  #  Treppenantritt Typ: durchgehende Bewehrung
  # ********************************************************************
  if ( (schal = 2) AND (viebew = 1) ) then
  begin
    # ----------------------------------------------------------------
    #  Biegeform bwf8 fuer Tronsole -- Antritt
    # ----------------------------------------------------------------
    aecku = 4;
    p89.x = 0.0;    p89.y = 0.0;    p89.z = 0.0;
    inters(p47,p48,p61,p62,p92);
    p91 = p10;   p91.x = p91.x - 60.0;   p91.y = p92.y;
    p90 = p91;
    # Bedingung, damit die Schleife ausgefuehrt wird
    p15.y = p91.y + 10.0;
    # ----------------------------------------------------------------
    #  Biegeform bwf11
    # ----------------------------------------------------------------
    inters(p43,p44,p61,p62,p19);
    polar(p19,trw,60.0,p20);
    p18 = p1;   p18.x = p18.x - 60.0;   p18.y = p19.y;
    distance(p18,p19,r29);       i24 = r29;
    distance(p19,p20,r30);
    cos(trw,r26);
    r31 = r30 * r26;
    sin(trw,r26);
    r32 = r30 * r26;
    # ********** Modelldaten fuer Biegeform bwf11 *******************
    BWFORM("C1");
    bogen = 0;
    anzahl = 6;
    durchm = 12;
    abstand = lfbr / anzahl;
    anzeck = 3;
    para_a = i24;
    para_b = r31;
    para_c = r32;
    hakenhint = 0;
    hakenvorn = 0;
    stabmod();
    # ********** Geometriedaten fuer Biegeform bwf11 ***************
    stabanf = p19;
    polar(p18,0,(r29/3.0),vtlendpkt);
    polar(vtlendpkt,pihalb,20.0,lageposnr);
    vlposzei = 3;                    posdrewi = 0.0;
    stabeiwi = 180.0;                stabspieg = 1;
    verlegewinkel = 0;               ansicht = 3;
    stabzei = 5;                     verteilzei = 0;
    stabecke = 2;                    posnrzei = 6;
    posnrli = 1;
    stabgeo();
    # ********** Stahlauszug fuer Biegeform bwf11 ******************
    posnrzei = 5;
    verteilzei=-2;
    posnrli = 0;
    stabecke = 1;
    stabanf = p9;
    stabanf.x = stabanf.x + 200 - (para_a / 2.0);
    stabanf.y = stabanf.y - 235;
    lageposnr = stabanf;
    lageposnr.y = lageposnr.y - 15;
    stabgeo();
    # ----------------------------------------------------------------
    #  Biegeform bwf12
    # ----------------------------------------------------------------
    inters(p47,p48,p63,p64,p22);
    polar(p22,trw,60.0,p23);
    p21 = p10;   p21.x = p21.x + betdu;  p21.y = p21.y + betdu;
    distance(p21,p22,r33);       i25 = r33;
    distance(p22,p23,r34);
    cos(trw,r26);
    r35 = r34 * r26;
    sin(trw,r26);
    r36 = r34 * r26;
    # ********** Modelldaten fuer Biegeform bwf12 *******************
    BWFORM("C1");
    bogen = 0;
    anzahl = 6;
    durchm = 12;
    abstand = lfbr / anzahl;
    anzeck = 3;
    para_a = i25;
    para_b = r35;
    para_c = r36;
    hakenhint = 0;
    hakenvorn = 0;
    stabmod();
    # ********** Geometriedaten fuer Biegeform bwf12 ***************
    stabanf = p22;
    polar(p21,0,(r33/3.0),vtlendpkt);
    polar(vtlendpkt,-pihalb,20,lageposnr);
    vlposzei = 3;                    posdrewi = 0.0;
    stabeiwi = 180.0;                stabspieg = 1;
    verlegewinkel = 0;               ansicht = 3;
    stabzei = 5;                     verteilzei = 0;
    stabecke = 2;                    posnrzei = 6;
    posnrli = 0;
    stabgeo();
    # ********** Stahlauszug fuer Biegeform bwf12 ******************
    posnrzei = 5;
    verteilzei=-2;
    posnrli = 0;
    stabecke = 2;
    stabanf = p9;
    stabanf.x = stabanf.x - 100;
    stabanf.y = stabanf.y - 300;
    lageposnr = stabanf;
    lageposnr.y = lageposnr.y - 30;
    stabgeo();
  end   # e_viebew

  # ********************************************************************
  #  Punkte berechnen fuer die Bewehrung fuer
  #  Treppenaustritt Typ: durchgehende Bewehrung
  # ********************************************************************
  if ( (schal = 2) AND (neubew = 1) ) then
  begin
    # ----------------------------------------------------------------
    #  Biegeform bwf8: Punkte fuer Austritt -- Tronsole
    # ----------------------------------------------------------------
    aecko = 2;
    inters(p61,p62,p51,p52,p93);
    p94 = p6;    p94.x = p94.x + 60.0;      p94.y = p93.y;
    # ----------------------------------------------------------------
    #  Biegeform bwf9
    # ----------------------------------------------------------------
    inters(p51,p52,p63,p64,p98);
    p99 = p6;    p99.y = p99.y - betdo;
    polar(p98,trw,-60.0,p97);
    distance(p97,p98,r49);
    distance(p98,p99,r50);
    cos(trw,r26);
    r51 = r49 * r26;
    sin(trw,r26);
    r52 = r49 * r26;
    # ********** Modelldaten fuer Biegeform bwf9 *******************
    BWFORM("C1");
    bogen = 0;
    anzahl = 6;
    durchm = 12;
    abstand = lfbr / anzahl;
    anzeck = 3;
    para_a = r50;
    para_b = r51;
    para_c = -r52;
    hakenhint = 0;
    hakenvorn = 0;
    stabmod();
    # ********** Geometriedaten fuer Biegeform bwf9 ***************
    stabanf = p98;
    polar(p98,trw,(-r49/3.0),vtlendpkt);
    polar(vtlendpkt,(trw+pihalb),45.0,lageposnr);
    vlposzei = 3;                posdrewi = 0.0;
    stabeiwi = 180.0;            stabspieg = 0;
    verlegewinkel = 0;           ansicht = 3;
    stabzei = 5;                 verteilzei = 0;
    stabecke = 2;                posnrzei = 6;
    posnrli = 1;
    stabgeo();
    # ********** Stahlauszug fuer Biegeform bwf9 ******************
    posnrzei = 5;
    verteilzei=-2;
    posnrli = 0;
    stabanf = p9;
    stabanf.x = stabanf.x - 100;
    stabanf.y = stabanf.y - 200;
    lageposnr = stabanf;
    lageposnr.y = lageposnr.y - 30;
    stabgeo();
    # ----------------------------------------------------------------
    #  Biegeform bwf10
    # ----------------------------------------------------------------
    inters(p55,p56,p63,p64,p16);
    polar(p16,trw,-60,p15);
    p17 = p7;    p17.x = p17.x + 60.0;    p17.y = p16.y;
    distance(p15,p16,r49);
    distance(p16,p17,r50);
    cos(trw,r26);
    r51 = r49 * r26;
    sin(trw,r26);
    r52 = r49 * r26;
    # ********** Modelldaten fuer Biegeform bwf10 *******************
    BWFORM("C1");
    bogen = 0;
    anzahl = 6;
    durchm = 12;
    abstand = lfbr / anzahl;
    anzeck = 3;
    para_a = r50;
    para_b = r51;
    para_c = -r52;
    hakenhint = 0;
    hakenvorn = 0;
    stabmod();
    # ********** Geometriedaten fuer Biegeform bwf10 ***************
    stabanf = p16;
    polar(p15,trw,(r49/3.0),vtlendpkt);
    polar(vtlendpkt,(trw+pihalb),45.0,lageposnr);
    vlposzei = 3;                posdrewi = 0.0;
    stabeiwi = 180.0;            stabspieg = 0;
    verlegewinkel = 0;           ansicht = 3;
    stabzei = 5;                 verteilzei = 0;
    stabecke = 2;                posnrzei = 6;
    posnrli = 1;
    stabgeo();
    # ********** Stahlauszug fuer Biegeform bwf10 ******************
    posnrzei = 5;
    verteilzei=-2;
    posnrli = 0;
    stabanf = p9;
    stabanf.x = stabanf.x + 50;
    stabanf.y = stabanf.y - 200;
    lageposnr = stabanf;
    lageposnr.y = lageposnr.y - 30;
    stabgeo();
  end   # e_neubew


  # ********************************************************************
  #  Modell- und Geometriedaten fuer saemtliche Treppenformen
  #          Obere Bewehrung  im Abstand betdo
  #          Biegeform bwf13
  # ********************************************************************
  if (schal = 2) then
  begin
    # Punkte bestimmen (Kontroll- und Bewehrungspunkte)
    # ***** Punkte unten ************************************
      inters(p47,p48,p63,p64,p27);
      inters(p49,p50,p63,p64,p28);
      if (p27.y <= p28.y) then inters(p49,p50,p63,p64,p25);
      if (p27.y > p28.y) then  inters(p47,p48,p63,p64,p25);
    # ***** Punkte oben *************************************
      inters(p51,p52,p63,p64,p26);
      distance(p25,p26,r53);
    #  Modelldaten fuer Biegeform bwf13
    BWFORM("A1");
    bogen = 0;
    anzahl = 6;
    hakenhint = 0;
    hakenvorn = 0;
    durchm = 12;
    abstand = lfbr / anzahl;
    anzeck = 1;
    para_a = r53;
    stabmod();
    #  Geometriedaten fuer Biegeform bwf13
    stabanf = p25;
    polar(p25,trw,(r53/3),vtlendpkt);
    polar(vtlendpkt,(trw+pihalb),45,lageposnr);
    vlposzei = 3;
    posdrewi = 0.0;
    stabeiwi = (trw * 180 / pi);
    stabspieg = 0;    verlegewinkel = 0;
    ansicht = 3;      posnrli = 1;
    stabzei = 5;      verteilzei = 0;
    stabecke = 1;     posnrzei = 6;
    stabgeo();
    # ********** Stahlauszug fuer Biegeform bwf13 ******************
    posnrzei = 5;
    verteilzei=-2;
    posnrli = 0;
    stabspieg = 0;
    stabanf = p9;
    stabanf.x = stabanf.x + 100;
    stabanf.y = stabanf.y - 450;
    lageposnr = stabanf;
    lageposnr.x = lageposnr.x + 30;
    lageposnr.y = lageposnr.y + 10;
    stabgeo();
  end


  # ********************************************************************
  #  Modell- und Geometriedaten fuer saemtliche Treppenformen
  #          Buegel in der Laufplatte
  #          Biegeform bwf14
  # ********************************************************************
  if (schal = 2) then
  begin
    # Punkte bestimmen (Kontroll- und Bewehrungspunkte)
      inters(p43,p44,p61,p62,p27);
      inters(p55,p56,p61,p62,p28);
      distance(p27,p28,r54);
    #  Modelldaten fuer Biegeform bwf14
    BWFORM("B1");
    bogen = 0;
    i80 = r54 / 20.0;
    anzahl = i80 + 1;
    durchm = 6;
    abstand = 20.0;
    anzeck = 2;
    hakenhint = 1;
    hakenvorn = 1;
    para_a = lfbr - (2.0 * betdo);
    para_b = lfst - betdo - betdu;
    stabmod();
    #  Geometriedaten fuer Biegeform bwf14
    stabanf = p27;
    polar(p27,0,50,lageposnr);
    posdrewi = 0.0;
    verlegewinkel = trw * 180 / pi;
    vlposzei = 1;           stabspieg = 1;
    stabeiwi = -90.0;       ansicht = 1;
    stabzei = 1;            verteilzei = 31;
    vtlabst = -15;          stabecke = 1;
    posnrzei = 6;           posnrli = 0;
    stabgeo();
    # ********** Stahlauszug fuer Biegeform bwf14 ******************
    posnrzei = 5;
    verteilzei=-2;
    posnrli = 0;
    stabeiwi = 0;
    verlegewinkel = 0;
    ansicht = 3;
    stabanf = p1;
    stabanf.x = stabanf.x - (para_a / 2.0);
    stabanf.y = stabanf.y + 150;
    lageposnr = stabanf;
    lageposnr.y = lageposnr.y - 30;
    stabgeo();
  end

  # ********************************************************************
  #  Modell- und Geometriedaten fuer saemtliche Treppenformen
  #          Buegel im Podest unten
  #          Biegeform bwf14
  # ********************************************************************
  #  Modelldaten fuer Biegeform bwf14
  if ( (schal = 2) AND (lantr > 50) ) then
  begin
    # Punkte bestimmen (Kontroll- und Bewehrungspunkte)
      p27 = p10;       p27.x = p27.x + 10.0;      p27.y = p27.y + betdu;
      inters(p47,p48,p61,p62,p28);
      distance(p27,p28,r54);
    # Modelldaten bwf14
    BWFORM("B1");
    bogen = 0;
    i80 = r54 / 20.0;
    anzahl = i80 + 1;
    durchm = 6;
    abstand = 20.0;
    anzeck = 2;
    hakenhint = 1;
    hakenvorn = 1;
    para_a = lfbr - (2.0 * betdu);
    para_b = dpodu - betdu - betdo;
    stabmod();
    # Geometriedaten fuer Biegeform bwf14
    stabanf = p27;
    polar(p27,-pihalb,40,lageposnr);
    polar(lageposnr,pi,40,lageposnr);
    vlposzei = 1;              stabspieg = 1;
    posdrewi = 0.0;            posnrli = 0;
    verlegewinkel = 0;         vtlabst = -40;
    stabeiwi = -90.0;          ansicht = 1;
    stabzei = 1;               verteilzei = 3;
    stabecke = 1;              posnrzei = 6;
    stabgeo();
  end

  # ********************************************************************
  #  Modell- und Geometriedaten fuer saemtliche Treppenformen
  #          Buegel im Podest oben
  #          Biegeform bwf14
  # ********************************************************************
  #  Modelldaten fuer Biegeform bwf14
  if ( (schal = 2) AND (laustr > 75) ) then
  begin
    # Punkte bestimmen (Kontroll- und Bewehrungspunkte)
      inters(p61,p62,p55,p56,p27);
      p28 = p7;        p28.x = p28.x - 10.0;    p28.y = p28.y + betdu;
      distance(p27,p28,r54);
    # Modelldaten bwf14
    BWFORM("B1");
    bogen = 0;
    i80 = r54 / 20.0
    anzahl = i80 + 1;
    durchm = 6;
    abstand = 20.0;
    anzeck = 2;
    hakenhint = 1;
    hakenvorn = 1;
    para_a = lfbr - (2.0 * betdu);
    para_b = dpodo - betdu - betdo;
    stabmod();
    # Geometriedaten bwf14
    stabanf = p27;
    polar(p28,-pihalb,40,lageposnr);
    polar(lageposnr,0,20,lageposnr);
    vlposzei = 1;            posnrli = 0;
    stabspieg = 1;           posdrewi = 0.0;
    verlegewinkel = 0;       stabeiwi = 90.0;
    vtlabst = -40.0;         ansicht = 1;
    stabzei = 1;             verteilzei = 3;
    stabecke = 2;            posnrzei = 6;
    stabgeo();
  end

  # ********************************************************************
  #  Modell- und Geometriedaten fuer saemtliche Treppenformen
  #          Biegeform bwf8
  # ********************************************************************
  #  Modelldaten fuer Biegeform bwf8
  if (schal = 2) then
  begin
    BWFORM("X2");
    bogen = 0;
    anzahl = 6;
    durchm = 12;
    abstand = lfbr / anzahl;
    hakenhint = 0;
    hakenvorn = 0;
    anzeck = aecku + aecko;
    para_a = 0;
    para_b = 0;

    if ( (drebew = 1) OR (funbew = 1) ) then
    begin
      para_a = p90.x - p89.x;
      para_b = p90.y - p89.y;
    end

    para_c = p91.x - p90.x;
    para_d = p91.y - p90.y;

    if (lantr > 65) then
    begin
      para_c = 0;
      para_d = 0;
    end

    if (p91.y <= p15.y) then
    begin
      para_e = p92.x - p91.x;
      para_f = p92.y - p91.y;
      para_g = p93.x - p92.x;
      para_h = p93.y - p92.y;
    end
    if (p91.y > p15.y) then
    begin
      para_e = p93.x - p91.x;
      para_f = p93.y - p91.y;
      para_g = 0;
      para_h = 0;
    end
    para_i = p94.x - p93.x;
    para_j = p94.y - p93.y;
    para_k = p95.x - p94.x;
    para_l = p95.y - p94.y;
    para_m = p96.x - p95.x;
    para_n = p96.y - p95.y;
    distance(p92,p93,r51);
    stabmod() ;
    # ********** Geometriedaten fuer Biegeform bwf8 ***************
    stabanf = p91;
    polar(p93,trw,(-r51/2.0),vtlendpkt);
    polar(vtlendpkt,(trw-pihalb),45,lageposnr);
    vlposzei = 3;
    posdrewi = 0.0;
    stabeiwi = 0.0;
    verlegewinkel = 0;
    ansicht = 3;
    stabzei = 5;
    verteilzei = 0;
    posnrzei = 6;
    posnrli = 0;
    stabspieg = 0;
    stabecke = 3;
    stabgeo();
    # ********** Stahlauszug fuer Biegeform bwf8 ******************
    posnrzei = 5;
    verteilzei=-2;
    posnrli = 0;
    stabspieg = 0;
    stabanf = p9;
    stabanf.x = stabanf.x - 150;
    stabanf.y = stabanf.y - 450;
    lageposnr = stabanf;
    lageposnr.y = lageposnr.y + 30;
    stabgeo();
  end


  schal = schal + 1;
end   # end for i98


END.