name(r51,"fak");
	
save_fsm();   # Aktuelle Voreinstellung sichern
# Faktor zum umrechnen von von hier CM auf Einheit der aktuellen Zeichnung
fak     = WCOIUF / 100.0;

MPOSDAR = 5; #  Positionsnummer + L/B

#   3.0 x 2.0 Meter
ML= 300.0 * fak;
MB = 200.0*fak;
MKORB = 0;            # Kein Korb
MANZECK =0;           # Nicht geschnitten
MATTMOD();

MATTANF.X   = 0.0
MATTANF.Y   = 0.0
MANSI = 3;
MVWI  = 0.0;
MEIWI = 0.0;
MATTGEO();
#####################################################################################

MKORB = 2 ;    # Breite wird gebogen
MEIWI = 90;    # So gedreht dass Ecken wie DX / DY  als Koordiante verlaufen.

# Mattenkorb 3 Ecken  L Form   50 >  |  30 ^ 
MB = 80.0*fak;
MANZECK = 3;
MKORBDXA = 50 * fak;   MKORBDYA = 0
MKORBDXB = 0;          MKORBDYB = 30*fak;
MATTMOD();

MATTANF.Y  =  300.0 *fak ;
MANSI = 1;
MATTGEO();


# Mattenkorb 4 Ecken  L Form   50 |  60 | 70
MANZECK = 4;
MKORBDXA = 50 * fak;   MKORBDYA = 0
MKORBDXB = 0;          MKORBDYB = 60*fak;
MKORBDXC = -70 * fak;   MKORBDYC = 0;
MB = 180.0*fak;
MATTMOD();

MATTANF.y =   400. * fak;
MANSI = 1;
MATTGEO();


# Nochmal die erste gebogene Matte. Über der ersten Bogenmatte. Hat dann die gleiche Positionsnummer
MANZECK = 3;
MKORBDXA = 50 * fak;   MKORBDYA = 0
MKORBDXB = 0;          MKORBDYB = 30*fak;


# Bei Positionsnummerermittlung wurden 2 DX/DY Werte mehr als Nötig getestet. Dadurch verschiedene Positionsnummer bei gleichen Mattenkörben
# Wenn DX/DY Werte oberhalb der Eckenanzahl verschieden waren.
#MKORBDXC = 0;   MKORBDYC = 0;             ######################################################            !!! HACK braucht  es NACH V17.0.4 nicht
#MKORBDXD = 0;   MKORBDYD = 0;             # MÜSSTE  natürlich VOR jedem MATTMOD Aufruf gemacht werden.      --------------------------------------

MB = 80.0*fak;
MATTMOD();

MATTANF.Y  =  500.0 * fak;
MANSI = 1;
MATTGEO();


restore_fsm()  # gesicherte Voreinstellung holen. 
               # Damit sind die Vorgaben der nächste Matte nicht diese Werte. 

end.