# |--------------------------------------------------------------------
# |
# |   Treppenmacro:     tr_z_01o.wps
# |   Beschreibung:     Schalplan fuer Treppenaustritt
# |            Typ:     Auflagerausbildung lang
# |--------------------------------------------------------------------

  if (schal < 2) then
  begin
    p4 = p3;
    p99 = p3;
  end

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

  # --------------------------------------------------------------------
  #  Treppenpunkte am Austritt berechnen und zeichnen
  # --------------------------------------------------------------------
  p4= p3;
  p4.x = p4.x + auftr;   line(p3,p4);
  p5 = p4;      p5.y = p5.y + daustr;
  p6 = p5;      p6.x = p6.x + laustr;
  p14 = p6;     p14.y = p14.y - dauflo;
  p13 = p14;    p13.x = p13.x - tauflo;
  p7 = p13;     p7.x = p13.x;     p7.y = p6.y - dpodo;
  # --------------------------------------------------------------------
  #  Hilfslinien bestimmen: p19 -- p20
  # --------------------------------------------------------------------
  p19 = p7;    p19.x = p19.x - 300.0;
  p20 = p7;    p20.x = p20.x + 600.0;
  # --------------------------------------------------------------------
  inters(p19,p20,p17,p18,p8);
  line(p4,p5);     line(p5,p6);      line(p6,p14);
  line(p14,p13);   line(p13,p7);     line(p7,p8);
  # Unterkante der Laufplatte zeichnen
  line(p8,p9);

  # --------------------------------------------------------------------
  #  Nur beim ersten Durchgang zeichnen
  # --------------------------------------------------------------------
  if (schal = 1) then
  begin
    # --------------------------------------------------------------------
    #  Treppenpunkte im Grundrisz berechnen und zeichnen
    # --------------------------------------------------------------------
    p27 = p25;   p27.x = p27.x + auftr;
    p28 = p26;   p28.x = p28.x + auftr;
    line(p25,p27);     line(p26,p28);     line(p27,p28);
    p25 = p27;   p25.x = p25.x + laustr;
    p26 = p28;   p26.x = p26.x + laustr;
    line(p27,p25);     line(p28,p26);     line(p25,p26);
    p27 = p25;   p27.x = p27.x - tauflo;
    p28 = p26;   p28.x = p28.x - tauflo;
    gsl_type(1);
    line(p27,p28);
    # --------------------------------------------------------------------
    #  Treppe in der Seitenansicht bemaszen
    # --------------------------------------------------------------------
    p32 = p31;     p32.y = p32.y + daustr;
    bemassen(p31,p32);
    # Gesamthoehenmasz links bemaszen
    p33 = p31;  p33.x = p33.x - (1.0 * xmast);
                p33.y = p1.y;
    p34 = p33;  p34.y = p34.y + dantr + daustr + (anzst -2) * stg;
    bemassen(p33,p34);
    # Gesamthoehenmasz links bemaszen
    p33 = p6;   p33.x = p33.x + (1.0 * xmast);
    p34 = p33;  p34.y = p34.y - dauflo;
    bemassen(p33,p34);
    p33 = p34;  p33.y = p7.y;
    bemassen(p34,p33);
    p33 = p6;   p33.x = p33.x + (2.0 * xmast);
    p34 = p33;  p34.y = p7.y;
    bemassen(p33,p34);
    p33 = p34;  p33.y = p9.y;
    bemassen(p34,p33);
    # Gesamthoehe rechts bemaszen
    p33 = p6;   p33.x = p33.x + (3.0 * xmast);
    p34 = p33;  p34.y = p9.y;
    bemassen(p33,p34);
    p35 = p36;  p35.x = p35.x + laustr;
    bemassen(p36,p35);
    # Geamtbreite der Treppe bemaszen (oben)
    p35 = p1;   p35.y = p36.y + (1.0 * xmast);
    if (i96 = 1) then
    begin
      p35 = p2;   p35.y = p36.y + (2.0 * xmast);
      i96 = 0;
    end
    p36 = p35;  p36.x = p6.x;
    bemassen(p35,p36);
    # Geamtbreite der Treppe bemaszen (unten)
    if (zwebew = 0) then
    begin
      p38 = p37;   p38.y = p10.y - (1.5 * xmast);   p38.x = p8.x;
      bemassen(p37,p38);
      p37 = p38;   p37.x = p7.x;
      bemassen(p38,p37);
      p38 = p37;   p38.x = p6.x;
      bemassen(p37,p38);
    end
    if (zwebew = 1) then
    begin
      p37.x = p9.x;      p37.y = p37.y - (1.5 * xmast);
      # p38 = p37;   p38.y = p9.y - (1.5 * xmast);   p38.x = p8.x;
      p38 = p37;   p38.x = p8.x;
      bemassen(p37,p38);
      p37 = p38;   p37.x = p7.x;
      bemassen(p38,p37);
      p38 = p37;   p38.x = p6.x;
      bemassen(p37,p38);
    end
    # Unterkante der Laufplatte bemaszen
    polar(p9,(trw-pihalb),lfst,p37);
    polar(p8,(trw-pihalb),lfst,p38);
    bemassen(p37,p38);
    # --------------------------------------------------------------------
    #  Treppe im Grundrisz bemaszen
    # --------------------------------------------------------------------
    p40 = p27;   p40.x = p40.x + (1.5 * xmast);
    p41 = p40;   p41.y = p41.y - lfbr;
    bemassen(p40,p41);

  end

  # --------------------------------------------------------------------
  #  Nur beim Zweiten Durchgang zeichnen
  # --------------------------------------------------------------------
  if (schal = 2) then
  begin
    # --------------------------------------------------------------------
    #  Hilfslinien fuer Bewehrungsformen bestimmen
    # --------------------------------------------------------------------
    #  Hilfslinie p51 -- p52 parallel zu p5 -- p6
    # --------------------------------------------------------------------
    p51 = p5;     p51.x = p51.x - 500.0;   p51.y = p51.y - betdo;
    p52 = p51;    p52.x = p5.x + 500.0;
    # line(p51,p52);
    # --------------------------------------------------------------------
    #  Hilfslinie p53 -- p54 parallel zu p13 -- p14
    # --------------------------------------------------------------------
    p53 = p13;    p53.x = p53.x - 500.0;   p53.y = p53.y + betdo;
    p54 = p53;    p54.x = p14.x + 500.0;
    # line(p53,p54);
    # --------------------------------------------------------------------
    #  Hilfslinie p55 -- p56 parallel zu p8 -- p7
    # --------------------------------------------------------------------
    p55 = p8;     p55.x = p55.x - 500.0;   p55.y = p55.y + betdo;
    p56 = p55;    p56.x = p7.x + 500.0;
    # line(p55,p56);
    # --------------------------------------------------------------------
    #  Hilfslinie p57 -- p58 parallel zu p13 -- p7
    # --------------------------------------------------------------------
    p57 = p7;     p57.x = p57.x - betdu;    p57.y = p57.y - 500.0;
    p58 = p57;    p58.y = p13.y + 500.0;
    # line(p57,p58);
    # --------------------------------------------------------------------
    #  Hilfslinie p59 -- p60 parallel zu p4 -- p5
    # --------------------------------------------------------------------
    p59 = p5;     p59.x = p59.x + betdo;    p59.y = p59.y + 500.0;
    p60 = p59;    p60.y = p4.y - 500.0;
    # line(p59,p60);
    # --------------------------------------------------------------------
    #  Hilfslinie p61 -- p62 parallel zur Unterkante der Laufplatte
    #  im Abstand betdu
    # --------------------------------------------------------------------
    polar(p17,(trw+pihalb),betdu,p61);
    polar(p18,(trw+pihalb),betdu,p62);
    # line(p61,p62);
    # --------------------------------------------------------------------
    #  Hilfslinie p63 -- p64 parallel zu den Stufen im Abstan betdo:
    # --------------------------------------------------------------------
    polar(p17,(trw+pihalb),(lfst-betdo),p63);
    polar(p18,(trw+pihalb),(lfst-betdo),p64);
    # line(p63,p64);
  end     # endif schal=2