# Eingabe eines Streifenfundaments mit Wandanschluss
# 3D Bauteil 2021-03-24 LF

save_fsm();

# Integervariablen
name(i60,"xd_bu");		xd_bu = 12;		# Durchmesser Bügel Länge X
name(i61,"xd_leu");		xd_leu = 16;	# Durchmesser Längseisen Länge Y unten
name(i62,"xd_leo");		xd_leo = 16;	# Durchmesser Längseisen Länge Y oben
name(i63,"xd_an");		xd_an = 10;		# Durchmesser Wandanschluss
name(i64,"xd_mw");		xd_mw = 8;		# Durchmesser Montageeisen Wand
name(i65,"xd_mf");		xd_mf = 10,		# Durchmesser Stegbew Fund längs
name(i66,"xanz_lau");	xanz_lau = 4	# Anzahl Längseisen Länge Y unten 
name(i67,"xanz_lao");	xanz_lao = 4	# Anzahl Längseisen Länge Y oben
name(i68,"checkbox")	checkbox = 1	# Abfrage Wandanschluss ja/nein
name(i71,"xumfa");		xumfa = 0;		# Umfahrungssinn 0=math.Positiv(Gegenuhrteigersinn)  1=math.Negativ
# Realvariablen 
name(r60,"xmstab");		xmstab = wcoiuf / 100;		# Allgemeine Maßstabsumrechnung
name(r61,"xbetfu");		xbetfu = 4.5 * xmstab;		# Betonüberdeckung Fundament
name(r62,"xbetwa");		xbetwa = 2.5 * xmstab;		# Betonüberdeckung Wand
name(r63,"xfu_la");		xfu_la = 600.0 * xmstab;	# Fundamentlänge x
name(r64,"xfu_br");		xfu_br = 80.0 * xmstab;		# Fundamentbreite y   
name(r65,"xfu_ho");		xfu_ho = 120.0 * xmstab;	# Fundamenthöhe z
name(r66,"xwa_la");		xwa_la = 600.0 * xmstab;	# Wandlänge x
name(r67,"xwa_br");		xwa_br = 25.0 * xmstab;		# Wandbreite y
name(r68,"xwi_la");									# Winkel in Fund-Länge
name(r69,"xwi_br");									# Winkel in Fund-Breite
name(r70,"xd_bu_ber");	xd_bu_ber = xd_bu/1000*WCOIUF;	# Durchmesser in Eing-Einheit für Abstandsberechnungen
name(r71,"xd_leu_ber");	xd_leu_ber = xd_leu/1000*WCOIUF;
name(r72,"xd_leo_ber");	xd_leo_ber = xd_leo/1000*WCOIUF;
name(r73,"xd_an_ber");	xd_an_ber = xd_an/1000*WCOIUF;
name(r74,"xd_mw_ber");	xd_mw_ber = xd_mw/1000*WCOIUF;
name(r75,"xd_mf_ber");	xd_mf_ber = xd_mf/1000*WCOIUF;
name(r76,"xueb_an");	xueb_an = 60.0 * xmstab;	# ls Stützenanschluss
name(r77,"xabst_la");	xabst_la = 25.0 * xmstab;	# Abstand Bügel Richtung X
name(r78,"xabst_mf");	xabst_mf = 25.0 * xmstab;	# Stegbew Fund längs
name(r79,"xabst_mw");	xabst_mw = 60.0 * xmstab;	# Abstand MS Wand
name(r80,"xabst_wa");	xabst_wa = 15.0 * xmstab;	# Abstand Anschluss Wand
name(r81,"xueb_bu");	xueb_bu = 15.0 * xmstab;	# Endhaken B2-Bügel
# Punktvariablen
name(p60,"xecka");		# Diagonale 1 unten 
name(p61,"xeckb");		# Diagonale 2 unten 
name(p62,"xeckc");		# Höhe 3 oben 
name(p63,"xeckd");		# Diagonale 1 Wand unten
name(p64,"xecke");		# Diagonale 2 Wand unten
name(p65,"stabanf");
# Textvariablen
name(s60,"txformat");

	# Aufruf aus 3D Bauteilbewehrung->Punkte sind vorgegeben.    
	if(DREIDBAUTEIL = 1) then 
		begin 
		sbwecke(1001,xecka,0); # Diag Fu vo li unt
		sbwecke(1002,xeckb,0); # Diag Fu hi re unt
		sbwecke(1003,xeckc,0); # Ecke Fu vo re ob
		sbwecke(1004,xeckd,0); # Diag St vo li unt
		sbwecke(1005,xecke,0); # Diag St hi re unt
		xfu_ho = xeckc.z - xecka.z; # Fundamenthöhe
		if(xfu_ho < 0.0)then xfu_ho = xfu_ho * -1.0;
	end;
	
	# Umfahrungssinn wg. drehen der Eisen 
	p1 = xecka;
	p2 = xeckb;
	p3 = xeckc;
	CALC_AREA(1,3,r1,p4,xumfa);
	
	# Abmessungen errechnen *******************************
	
	angle(xecka,xeckc,r1);              # Winkel p2-p3 Fu Vorderkante
	distance(xecka,xeckb,r20);          # Kathete Fund rechnen (p1-p3)
	distance(xeckd,xecke,r21);          # Kathete Wand rechnen (p4-p5)

	rotate_point(xeckc,xecka,-r1);      # Punkt 3 auf horizontal drehen1
	rotate_point(xeckb,xecka,-r1);		# Punkt 2 dto.
	rotate_point(xeckd,xecka,-r1);		# Punkt 5 dto.
	rotate_point(xecke,xecka,-r1); 		# Punkt 6 dto.

	angle(xecka,xeckb,r2);	# Winkel p1-p2 rechnen für Fu Länge und Breite
	sin(r2,r10),
	cos(r2,r11);
	angle(xeckd,xecke,r3);	# Winkel p5-p6 rechnen für ST Länge und Breite
	sin(r3,r12),
	cos(r3,r13);

	xfu_la = r20 * r11);	# Länge Gegenkathete = Fundamentlänge
	xfu_br = r20 * r10);	# Länge Ankathete = Fundamentbreite
	xwa_la = r21 * r13);	# Länge Gegenkathete = Wandlänge
	xwa_br = r21 * r12);	# Länge Ankathete = Wandbreite	
	
	rotate_point(xeckc,xecka,+r1);      # gedrehte Punkte zurück drehen
	rotate_point(xeckb,xecka,+r1);
	rotate_point(xeckd,xecka,+r1);
	rotate_point(xecke,xecka,+r1); 

	if (wcoiuf = 1) then	# Anzahl Kommastellen im Dialog
   	s21 = "-8.3";
   	else if (wcoiuf = 100) then
   	s21 = "-8.1";
   	else if (wcoiuf = 1000) then
   	s21 = "-8.0";
   	end;   	   	

    TRANSLATE_TEXT(s1,-1,"WCO_SBW","");	# aktiviert übersetzte Texte aus Datei	
	
	string_copy(txformat,"-30.30");
   	
   	dlg_init(): #Init new Dialog

	TRANSLATE_TEXT(s1,27,"Fundament","");
	STRING_COPY(s2,s1);  STRING_CAT(s2,":  "); STRING_CAT(s2,xfu_la,s21);
	STRING_CAT(s2," / "); STRING_CAT(s2,xfu_br,s21); STRING_CAT(s2," / "); STRING_CAT(s2,xfu_ho,s21);
			dlg_label(1,1,s2,40); 
 
	TRANSLATE_TEXT(s1,23,"Wand","");
	STRING_COPY(s2,s1);  STRING_CAT(s2,":  "); STRING_CAT(s2,xwa_br,s21);
		dlg_label(1,2,s2,30); 

	TRANSLATE_TEXT(s2,1001,"Betondeckung","");	
	TRANSLATE_TEXT(s3,27,"Fundament","");
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,3,s1,xbetfu,10);

	TRANSLATE_TEXT(s2,1001,"Betondeckung","");	
	TRANSLATE_TEXT(s3,23,"Wand","");
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,4,s1,xbetwa,10);

	TRANSLATE_TEXT(s2,1011,"Stababstand","");
	TRANSLATE_TEXT(s3,1000,"Bügel","");	
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);	
		dlg_editbox(1,5,s1,xabst_la,10);

	TRANSLATE_TEXT(s2,1003,"Durchmesser","");
	TRANSLATE_TEXT(s3,1000,"Bügel","");	 
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,6,s1,xd_bu,10);

	TRANSLATE_TEXT(s3,1000,"Bügel",""); 
	STRING_COPY(s2,"Para-D B2-"); STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,7,s1,xueb_bu,10);

	TRANSLATE_TEXT(s2,1004,"Anzahl","");
	TRANSLATE_TEXT(s3,1006,"Längseisen","");	 
	TRANSLATE_TEXT(s4,20,"unten","");
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_CAT(s2," "); STRING_CAT(s2,s4); 
	STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,8,s1,xanz_lau,10);

	TRANSLATE_TEXT(s2,1003,"Durchmesser",""); 
	TRANSLATE_TEXT(s3,1006,"Längseisen","");
	TRANSLATE_TEXT(s4,20,"unten","");
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_CAT(s2," "); STRING_CAT(s2,s4); 
	STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,9,s1,xd_leu,10);
		
	TRANSLATE_TEXT(s2,1004,"Anzahl",""); 
	TRANSLATE_TEXT(s3,1006,"Längseisen","");
	TRANSLATE_TEXT(s4,21,"oben","");
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_CAT(s2," "); STRING_CAT(s2,s4); 
	STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,10,s1,xanz_lao,10);

	TRANSLATE_TEXT(s2,1003,"Durchmesser",""); 
	TRANSLATE_TEXT(s3,1006,"Längseisen","");
	TRANSLATE_TEXT(s4,21,"oben","");
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_CAT(s2," "); STRING_CAT(s2,s4); 
	STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,11,s1,xd_leo,10);

	TRANSLATE_TEXT(s2,1002,"Abstand",""); 
	TRANSLATE_TEXT(s3,1007,"Stegbewehrung","");	 
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,12,s1,xabst_mf,10);

	TRANSLATE_TEXT(s2,1003,"Durchmesser",""); 
	TRANSLATE_TEXT(s3,1007,"Stegbewehrung","");	 
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,13,s1,xd_mf,10);

	TRANSLATE_TEXT(s2,1014,"Wandanschluss","");
	TRANSLATE_TEXT(s3,1,"JA","");
	TRANSLATE_TEXT(s4,2,"NEIN","");
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_CAT(s2," - "); STRING_CAT(s2,s4); 
	STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_checkbox(1,14,s2,25,checkbox);

	TRANSLATE_TEXT(s2,1002,"Abstand",""); 
	TRANSLATE_TEXT(s3,1013,"Anschlussstäbe","");	 
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,15,s1,xabst_wa,10);
		
	TRANSLATE_TEXT(s2,1003,"Durchmesser",""); 
	TRANSLATE_TEXT(s3,1013,"Anschlussstäbe","");	 
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,16,s1,xd_an,10);

	TRANSLATE_TEXT(s3,1013,"Anschlussstäbe",""); 
	STRING_COPY(s2,"ls "); STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,17,s1,xueb_an,10);
		
	TRANSLATE_TEXT(s2,1002,"Durchmesser",""); 
	TRANSLATE_TEXT(s3,1012,"Montagestäbe","");	 
	STRING_CAT(s2," "); STRING_CAT(s2,s3); STRING_COPY(s1,""); STRING_CAT(s1,s2,txformat);
		dlg_editbox(1,18,s1,xd_mw,10);

	TRANSLATE_TEXT(s1,27,"Fundament",""); 
	
	dlg_start(s1,i5); # 0= OK;  -1=Cancel;  > 0 =Button Number
	if( i5 < 0) then exit;

		# Bewehrung ***********

	STABZEI  = 1;     POSNRZEI=0;     VERTEILZEI=0;
	VTLABST=0.5*WCOIUF;  
	VLPOSZEI = 0;     ANSICHT=2;
	HAKENVORN= 0;	  HAKENHINT=0;
    POSANZAHL= 1;     BTANZAHL=1;     BWLAGE=1;
    TEXTABST = 0.0;
	STABSPIEG= 0;     STABKREIS=6;  
	BOGEN    = 0;     POSNRLI=0;
	STABZEIFAK= 1.0;  POSDREWI=0.0;

		# 	Bügel in Fundamentlänge *********
		
BWFORM("B2");

# Stabanzahl rechnen
	r33 = xfu_la - (2 * xbetfu); i33 = r33 / xabst_la + 1; # Anzahl Bügel
	r34 = r33 - ((i33 - 1.0) * xabst_la); # Restlänge
    r34 = (r34 / 2.0) + xbetfu;	# Restlänge 1/2
    Anzahl = i33;
	Abstand = xabst_la;
	Durchm = xd_bu;
# Parameter berechnen
	para_a = xfu_br - (xbetfu * 2.0); 
	para_b = xfu_ho - (xbetfu * 2.0);
	para_c = 0;
	para_d = xueb_bu;
stabmod();
	
	STABECKE = 2;
	STABEIWI = 90.0;     STABEIWI_Y = 90.0;     STABEIWI_X = 180.0;
	VERLEGEWINKEL   = r1 * 180.0 / PI;
	VERLEGEWINKEL_Z = 0.0;
	STABANF = xecka; 
	polar(stabanf,r1,r34,stabanf);
	stabanf.z = stabanf.z + xbetfu + para_b;
	polar(stabanf,(r1 + (PI / 2)),xbetfu,stabanf);
	LAGEPOSNR = xecka;
	polar(LAGEPOSNR,r1 + PI,1.5 * WCOIUF,LAGEPOSNR);
stabgeo();	

		# 	Untere Lage in Fundamentbreite *********

BWFORM("A1");
# Stababstand rechnen
	r33 = xfu_br - (2 * xbetfu) - (2 * xd_bu_ber) - (2 * xd_leu_ber);
	r34 = xbetfu + xd_bu_ber + xd_leu_ber;
    Anzahl = xanz_lau;
	Abstand = r33 / (xanz_lau - 1);
	Durchm = xd_leu;
# Parameter berechnen
	para_a = xfu_la - (2 * xbetfu); 
stabmod();

	STABECKE = 1;
	STABEIWI = 90.0;     STABEIWI_Y = 90.0;     STABEIWI_X = 180.0;
	VERLEGEWINKEL   = VERLEGEWINKEL + 90;
	VERLEGEWINKEL_Z = 0.0;
	p1 = xecka; p1.z = p1.z + r34; 
	STABANF = p1; 
	polar(stabanf,(r1 + (PI / 2)),r34,stabanf);
	polar(stabanf,(r1 + PI),- xbetfu,stabanf);
	LAGEPOSNR = xecka;
	polar(LAGEPOSNR,r1 + PI,1.5 * WCOIUF,LAGEPOSNR);
stabgeo();	

		# 	Obere Lage in Fundamentbreite *********

BWFORM("A1");
# Stababstand rechnen
	r33 = xfu_br - (2 * xbetfu) - (2 * xd_bu_ber) - (2 * xd_leo_ber);
	r34 = xbetfu + xd_bu_ber + xd_leo_ber;
    Anzahl = xanz_lau;
	Abstand = r33 / (xanz_lau - 1);
	Durchm = xd_leo;
# Parameter berechnen
	para_a = xfu_la - (2 * xbetfu); 
stabmod();

	STABECKE = 1;
	STABEIWI = 90.0;     STABEIWI_Y = 90.0;     STABEIWI_X = 180.0;
#	VERLEGEWINKEL   = VERLEGEWINKEL + 90;
	VERLEGEWINKEL_Z = 0.0;
	p1 = xecka; p1.z = xeckc.z; p1.z = p1.z - r34; 
	STABANF = p1; 
	polar(stabanf,(r1 + (PI / 2)),r34,stabanf);
	polar(stabanf,(r1 + PI),- xbetfu,stabanf);
	LAGEPOSNR = xecka;
	polar(LAGEPOSNR,r1 + PI,1.5 * WCOIUF,LAGEPOSNR);
stabgeo();

		# 	Stegbewehrung in Fundamenthöhe innen *********

BWFORM("A1");
# Stabanzahl rechnen
	r35 = xfu_ho / xabst_mf;
	i35 = r35;
	r36 = (i35 - 1) * xabst_mf;

	r40 = (xfu_ho - r36) / 2.0; # halber Restwert Höhe


	if(r40 <> (xabst_mf / 2.0)) then begin
		i36 = i35 -1; Anzahl = i35;
		r36 = (xfu_ho - (i36 * xabst_mf)) / 2;
	end;
	
	if(r40 = (xabst_mf / 2.0)) then begin
		Anzahl = i35 - 1;
		r36 = xabst_mf;
	end; 

	if(xfu_ho < (61.0 * xmstab)) then begin
		Anzahl = 1;
		r36 = xfu_ho / 2.0;
#		text(xecka,r36);
	end;

	ABSTAND = xabst_mf;
    Durchm = xd_mf;

# Stababstand vom Rand rechnen
	r34 = xbetfu + xd_bu_ber + xd_mf_ber;

# Parameter berechnen
	para_a = xfu_la - (2 * xbetfu); 
stabmod();

	STABECKE = 1;
	STABEIWI = 0;     STABEIWI_Y = -90.0;     STABEIWI_X = 0.0;
	VERLEGEWINKEL   = r1 * 180.0 / PI;
	VERLEGEWINKEL_Z = 90.0;
	p1 = xecka; 
	p1.z = p1.z + r36;
	STABANF = p1;
	polar(stabanf,(r1 + (PI / 2)), + r34,stabanf);
	polar(stabanf,(r1 + PI),- xbetfu,stabanf);
	LAGEPOSNR = xecka;
	polar(LAGEPOSNR,r1 + PI,1.5 * WCOIUF,LAGEPOSNR);
stabgeo();

		# 	Stegbewehrung in Fundamenthöhe aussen *********
		
stabmod();

	STABECKE = 1;
	STABEIWI = 0;     STABEIWI_Y = -90.0;     STABEIWI_X = 0.0;
	VERLEGEWINKEL   = r1 * 180.0 / PI;
	VERLEGEWINKEL_Z = 90.0;
	p1 = xecka; 
	p1.z = p1.z + r36;
	STABANF = p1;
	polar(stabanf,(r1 + (PI / 2)),(xfu_br - r34),stabanf);
	polar(stabanf,(r1 + PI),- xbetfu,stabanf);
	LAGEPOSNR = xecka;
	polar(LAGEPOSNR,r1 + PI,1.5 * WCOIUF,LAGEPOSNR);
stabgeo();

		# 	Wandanschluss *********

	if(checkbox = 1) then begin

BWFORM("A2"); 
	Anzahl = xwa_la / xabst_wa;
	if(Anzahl * xabst_wa = xwa_la) then begin
	Anzahl = Anzahl - 1);
	end;
	ABSTAND = xabst_wa; 
	Durchm = xd_an;
	Para_a = 20.0 * xmstab;
	Para_b = xfu_ho - xbetfu - xd_bu_ber - xd_leu_ber + xueb_an; 
stabmod();	 # Anschlusseisen innen

	r31 = (xbetwa + (1.2 * xd_an_ber) + (2.5 * xmstab));
	r32 = (xwa_la - ((Anzahl - 1) * xabst_wa)) / 2.0;
	STABZEI=1; ANZSTABZEI=2; STABECKE = 2;
	STABEIWI = 0.0;     STABEIWI_Y = -90.0;     STABEIWI_X = 180.0;
	VERLEGEWINKEL   = r1 * 180.0 / PI;
	VERLEGEWINKEL_Z = 0.0;
	p5 = xeckd; p5.z = xecka.z;
	p5.z = p5.z + xbetfu + xd_bu_ber + xd_leu_ber + (xd_an_ber / 2.0);
	STABANF = p5;	
	polar(p5,r1,r32,stabanf);
	polar(stabanf,(r1 + (PI / 2)),r31,stabanf);
stabgeo();	

stabmod();	 # Anschlusseisen aussen

	r31 = (xbetwa + (1.2 * xd_an_ber) + (2.5 * xmstab));
	r32 = (xwa_la - ((Anzahl - 1) * xabst_wa)) / 2.0;
	STABZEI=1; ANZSTABZEI=2; STABECKE = 2;
	STABEIWI = 0.0;     STABEIWI_Y = 90.0;     STABEIWI_X = 0.0;
	VERLEGEWINKEL   = r1 * 180.0 / PI;
	VERLEGEWINKEL_Z = 0.0;
	p5 = xeckd; p5.z = xecka.z;
	p5.z = p5.z + xbetfu + xd_bu_ber + xd_leu_ber + (xd_an_ber / 2.0);
	STABANF = p5;	
	polar(p5,r1,r32,stabanf);
	polar(stabanf,(r1 + (PI / 2)),xwa_br - r31,stabanf);
stabgeo();		

		# 	Montagestäbe für Wandanschluss innen *********

BWFORM("A1");

	Anzahl = 2;

# Stababstand rechnen
    r30 = xfu_ho - (2 * 12.0 * xmstab); 
	ABSTAND = r30;

    DURCHM = xd_mw;

# Stababstand vom Rand rechnen
	r31 = r31 - (1.2 * xd_an_ber) - (xd_mw_ber * 0.5);

# Parameter berechnen
	para_a = xwa_la - (2 * xbetfu); 
stabmod();

	STABECKE = 1;
	STABEIWI = 0;     STABEIWI_Y = -90.0;     STABEIWI_X = 0.0;
	VERLEGEWINKEL   = r1 * 180.0 / PI;
	VERLEGEWINKEL_Z = 90.0;
	p1 = xeckd; p1.z = xecka.z; 
	p1.z = p1.z + (12.0 * xmstab);
	STABANF = p1;
	polar(stabanf,(r1 + (PI / 2)), + r31,stabanf);
	polar(stabanf,(r1 + PI),- xbetfu,stabanf);
	LAGEPOSNR = xecka;
	polar(LAGEPOSNR,r1 + PI,1.5 * WCOIUF,LAGEPOSNR);
stabgeo();

		# 	Montagestäbe für Wandanschluss aussen *********
		
stabmod();

	STABECKE = 1;
	STABEIWI = 0;     STABEIWI_Y = -90.0;     STABEIWI_X = 0.0;
	VERLEGEWINKEL   = r1 * 180.0 / PI;
	VERLEGEWINKEL_Z = 90.0;
	p1 = xeckd; p1.z = xecka.z; 
	p1.z = p1.z + (12.0 * xmstab);
	STABANF = p1;
	polar(stabanf,(r1 + (PI / 2)), + (xwa_br - r31),stabanf);
	polar(stabanf,(r1 + PI),- xbetfu,stabanf);
	LAGEPOSNR = xecka;
	polar(LAGEPOSNR,r1 + PI,1.5 * WCOIUF,LAGEPOSNR);
stabgeo();

	end; # end Checkbox

restore_fsm();
end.