#  ARTIFEX/PLUS BAR REINFORCEMENT MACRO-GENERATOR Version 3.92
#  File:c:\artifex\da ta\sbw\wps\\_aa.wps
#  Date: Dienstag   den 12.ten August 2008
#
#  Bauteil : Laengen  --------- Winkel --------- Eckpunkte 
   name(r60,"PBLE_A");   name(r80,"PBWI_A");   name(p60,"PBPU_A");
   name(p61,"PBPU_B");
   name(p58,"PBBEMA");
   name(p59,"PBBEMB");
   name(r50,"PBWINK");
   name(r51,"PBWINP");
   name(r52,"PBBETDE");
   name(r53,"PBNEULE");
   name(r54,"LFDUMY");

   save_fsm()  # SAVE PRESETS


#  VARIABLES IN USE
   PBLE_A = 1.811008 * WCOIUF;
   PBWI_A = 0.000000;
   PBBETDE= 0.0300 * WCOIUF; # Concrete Covering

#   Abmessungen anfragen 
   newmask("Bauteil");
   fillmask(1,1, "Abmessung A :",PBLE_A);
   fillmask(1,3, "Betondeckung :",PBBETDE);
   # domask();

   writeln("Einfuegepunkt :");
   read(PBPU_A);

#  Bauteilumrandung
   setcolor(3);
   gsl_type(0);
   gsl_weight(1);
   polar(PBPU_A,PBWI_A,PBLE_A,PBPU_B);     line(PBPU_A,PBPU_B);


   #Bewehrung
   BWFORM("A3");
   DURCHM=20;
   ANZAHL=16;
   HAKENVORN=0;    HAKENHINT=0;
   POSANZAHL=1;     BTANZAHL=1;     BWLAGE=1;     ANZECK=3;
   ABSTAND =0.240000 * WCOIUF;
   TEXTABST=0.000000 * WCOIUF;
   PARA_A=0.440000 * WCOIUF
   PARA_B=0.240000 * WCOIUF
   PARA_C=0.100000 * WCOIUF

# PARAMETRISCHE ANBINDUNG 
   distance(PBPU_A,PBPU_B,PBNEULE);
   write("Neue Laenge:");writeln(PBNEULE);
   PBNEULE = PBNEULE - (2.0*PBBETDE);
# ANZPARA
   ANZAHL  = PBNEULE / ABSTAND;
   ANZAHL  = ANZAHL +1;
   stabmod();

   STABZEI=3;     ANZSTABZEI=2;     POSNRZEI=0;     VERTEILZEI=1;
   VLPOSZEI=0;     ANSICHT=2;
   STABSPIEG=0;     STABKREIS=6;     STABECKE=1;
   BOGEN=0;     POSNRLI=0;
   VTLABST=0.287983*WCOIUF;     STABZEIFAK=1.000000;     POSDREWI=719.992191;
   STABEIWI=270.000000;     STABEIWI_Y=90.000000;     STABEIWI_X=0.000000;     VERLEGEWINKEL=10.000000;
   VERLEGEWINKEL_Z=90.000000;
   STABANF=PBPU_A;
   STABANF.X=PBPU_A.X - 0.045859 * WCOIUF;   STABANF.Y=PBPU_A.Y - 0.119132 * WCOIUF;
   LAGEPOSNR=PBPU_A;
   LAGEPOSNR.X=PBPU_A.X + 3.620102 * WCOIUF;   LAGEPOSNR.Y=PBPU_A.Y - 0.089631 * WCOIUF;
   stabgeo()

   restore_fsm()  # gesicherte Voreinstellung holen

END.