# |--------------------------------------------------------------------
# |
# |   Treppenmacro:     tr_z_02u.wps
# |   Beschreibung:     Schalplan fuer Treppenantritt
# |            Typ:     Auflagerausbildung kurz
# |--------------------------------------------------------------------

for i98=1 to 2 do
begin

  if (schal < 2) then
  begin
    p2 = p3;
    p2.x = p2.x + (anzst * auftr);
    p2.y = p2.y - (anzst * stg * 2.0);
  end

  if (schal = 2) then  p2.x = p2.x + (anzst * auftr * 3.0);

  gsl_type(0);       # Linietyp ausgezogen
  # --------------------------------------------------------------------
  #  Treppenpunkte am Antritt berechnen
  # --------------------------------------------------------------------
  #  Hilfslinien bestimmen: p15 -- p16
  # --------------------------------------------------------------------
  p15 = p2;
  p15.x = p15.x - 300.0;     p15.y = p15.y - dpodu;
  p16 = p2;
  p16.x = p16.x + 600.0;     p16.y = p15.y;
  # --------------------------------------------------------------------
  #  Hilfslinien bestimmen: p17 -- p18
  # --------------------------------------------------------------------
  polar(p2,(trw-pihalb),lfst,p17);
  polar(p17,trw,-500.0,p17);
  polar(p17,trw,1000.0,p18);
  # --------------------------------------------------------------------
  inters(p15,p16,p17,p18,p9);
  p11 = p9;      p11.y = p11.y + dpodu - dauflu;
  p12 = p11;     p12.x = p12.x - tauflu;
  p1 = p12;      p1.y = p1.y + dauflu;
  p3 = p2;       p3.y = p3.y + dantr;
  line(p3,p2);     line(p2,p1);     line(p1,p12);
  line(p12,p11);   line(p11,p9);
  # --------------------------------------------------------------------

  # --------------------------------------------------------------------
  #  Nur beim Ersten Durchgang zeichnen
  # --------------------------------------------------------------------
  if (schal = 1) then
  begin
    # --------------------------------------------------------------------
    #  Treppe im Grundrisz fuer Schalplan zeichnen
    # --------------------------------------------------------------------
    p21 = p1;    p21.y = p21.y - (15.0 * xmast);
    p22 = p21;   p22.y = p22.y - lfbr;
    p23 = p21;   p23.x = p23.x + tauflu;
    p24 = p23;   p24.y = p22.y;
    p25 = p21;   p25.x = p2.x;
    p26 = p25;   p26.y = p22.y;
    line(p21,p22);
    gsl_type(1);       # Linientyp gestrichelt
    line(p23,p24);
    gsl_type(0);       # Linietyp ausgezogen
    line(p25,p26);
    line(p21,p25);     line(p22,p26);

    # --------------------------------------------------------------------
    #  Treppe in der Seitenansicht bemaszen
    # --------------------------------------------------------------------
    # Hoehenbemaszung
    p31 = p9;
    p31.x = p31.x - (2.5 * xmast);
    p32 = p31;     p32.y = p32.y + dpodu;
    bemassen(p31,p32);
    p31 = p32;     p31.y = p31.y + dantr;
    bemassen(p32,p31);
    # Auflager bemaszen
    p33 = p9;     p33.x = p33.x - (1.5 * xmast);
    p34 = p33;    p34.y = p11.y;
    bemassen(p33,p34);
    p33 = p34;    p33.y = p1.y;
    bemassen(p34,p33);
    # horizontale Bemaszung oben
    p35 = p9;    p35.y = p3.y + (anzst * stg) + (0.5 * xmast);
                 p35.x = p35.x - tauflu;
    p36 = p35;   p36.x = p2.x;
    bemassen(p35,p36);
    # horizontale Bemaszung unten
    p37 = p1;   p37.y = p37.y + (0.5 * xmast);
    p38 = p37;  p38.x = p38.x + abstl;
    bemassen(p37,p38);
    p37 = p1;   p37.y = p37.y - (2.5 * xmast);
    p38 = p37;  p38.x = p9.x;
    bemassen(p37,p38);
    # --------------------------------------------------------------------
    #  Treppe im Grundrisz bemaszen
    # --------------------------------------------------------------------
    if (i7 = 1) then
    begin
      p40 = p21;   p40.x = p40.x - (1.0 * xmast);
      p41 = p40;   p41.y = p41.y - abstq;
      bemassen(p40,p41);
      p40 = p41;   p40.y = p22.y + abstq;
      bemassen(p41,p40);
      p41 = p40;   p41.y = p22.y;
      bemassen(p40,p41);
    end

    # --------------------------------------------------------------------
    #  Huellwellrohre am Antritt zeichnen
    # --------------------------------------------------------------------
    # Draufsicht
    if (i7 = 1) then
    begin
      p29 = p21;    p29.x = p29.x + abstl;   p29.y = p29.y - abstq;
      circle(p29,(durh/20.0));
      p29.y = p29.y - lfbr + (abstq * 2.0);
      circle(p29,(durh/20.0));
      # Im Schnitt zeichnen -------------------------
      p29 = p1;      p29.x = p29.x + abstl - (durh/20.0);
      p30 = p29;     p30.y = p30.y - dauflu;
      gsl_type(1);
      line(p29,p30);
      p29.x = p29.x + (durh/20.0);
      p30.x = p30.x + (durh/20.0);
      gsl_type(0);
      line(p29,p30);
      p29.x = p29.x + (durh/20.0);
      p30.x = p30.x + (durh/20.0);
      gsl_type(1);
      line(p29,p30);
      gsl_type(0);
    end
  end     # endif schal=1

  # --------------------------------------------------------------------
  #  Nur beim Zweiten Durchgang zeichnen
  # --------------------------------------------------------------------
  if (schal = 2) then
  begin
    # --------------------------------------------------------------------
    #  Hilfslinien fuer Bewehrungsformen bestimmen
    # --------------------------------------------------------------------
    #  Hilfslinie p43 -- p44 parallel zu p1 -- p2
    # --------------------------------------------------------------------
    p43 = p1;    p43.y = p43.y - betdo;   p43.x = p43.x - 500.0;
    p44 = p43;   p44.x = p1.x + 500.0;
    # line(p43,p44);
    # --------------------------------------------------------------------
    #  Hilfslinie p45 -- p46 parallel zu p12 -- p11
    # --------------------------------------------------------------------
    p45 = p12;    p45.y = p45.y + betdu;   p45.x = p45.x - 500.0;
    p46 = p45;    p46.x = p1.x + 500.0;
    # line(p45,p46);
    # --------------------------------------------------------------------
    #  Hilfslinie p47 -- p48 parallel zu p9
    # --------------------------------------------------------------------
    p47 = p9;     p47.y = p47.y + betdu;   p47.x = p47.x - 500.0;
    p48 = p47;    p48.x = p9.x + 500.0;
    # line(p47,p48);
    # --------------------------------------------------------------------
    #  Hilfslinie p49 -- p50 parallel zu p9 -- p11
    # --------------------------------------------------------------------
    p49 = p9;     p49.x = p49.x + betdu;    p49.y = p49.y - 500.0;
    p50 = p49;    p50.y = p11.y + 500.0;
    # line(p49,p50);
  end     # endif schal=2