|
Herrenhemd.....Abteilung...Uniform
{ Rubashka formennaya }
GROESSEN;
Mit diesem Befehl wird das Schnittmuster mit der Maßkarte verbunden.
Welche Maße aus der Maßkarte werden in diesem Alg bei der Konstruktion verwendet?
rz_16......Brustumfang
rz_47......Rückenbreite
rz_57......Armlochdurchmesser
rz_40......Rückenlänge
rz_7........Taillenhöhe
rz_12......Gesäßfaltenhöhe
rz_36.......vordere Länge
rz_35.......Brusthöhe
rz_1.........Körperhöhe
rz_35-rz_76.....Brusthöhe minus Halsspiegel
rz_46.......Brustwarzenabstand
rz_39.......Armlochhöhe
rz_13.......Halsumfang
rz_43.......Distanz zwischen rückwärtiger Taillenlinie und Schulterhalspunkt
rz_40.......Rückenlänge
rz_31.......Schulterbreite
rz_33........Armlänge +Schulterbreite
rz_30........Handumfang
Jedes Modell benötigt zu den glattgemessenen Körpermaßen die vom Modell abhängigen Zugaben.
Welche Zugaben werden in diesem Alg verwendet?
P16:=rz_16*0.14;
P47:=P16*0.31 ;
P57:=P16*0.25 ;
P40:=-rz_40*0.03;
P39:= rz_39*0.5 ;
P13:=rz_13*0.06 ;
p31:=rz_31*0.07;
Diese Zugaben sind keine festen Werte,sondern prozentuale Werte und passen sich so besser an.
{ OSNOVNYE EINSTELLUNGEN }
{ SHirina izdeliya na urovne grudi } Wert für die Brustumfanglinie
P16:=rz_16*0.14; Zugabe p16 errechnet sich aus Wert des Brustumfangs mal 0,14
shir_izd_v:=rz_16*0.5+P16 ;......Brustumfang mal 0,5 + Zugabe..oder Brustumfang geteilt durch 2 plus Zugabe...oder 50% vom Brustumfang plus Zugabe
{ SHirina RCKENTEIL v samom uzkom meste na urovne proimy }Rückenbreitenlinie
P47:=P16*0.31 ;dieser Zugabenwert errechnet sich so: Zugabe P16 mal 0,31
shir_sp:=rz_47*0.5+P47; 1/2Rückenbreite plus Zugabe
{ SHirina proimy }
P57:=P16*0.25 ;
shir_pr:=rz_57+P57 ;Armlochdurchmesser plus Zugabe
shir_pol:=shir_izd_v-shir_sp-shir_pr ;
Rest von Brustumfang mal 0,5 + Zugabe minus 1/2Rückenbreite plus Zugabe minus Armlochdurchmesser plus Zugabe
{ polozjenie bokovogo shva }
shir_spb:=shir_izd_v*0.49 ; Brustumfang mal 0,5 + Zugabe mal 0.49
shir_polb:=shir_izd_v-shir_spb ;
{ Ldnge po LINIEN serediny RCKENTEIL do talii } Rückenlänge bis zur Taille
P40:=-rz_40*0.03;
dl_tal:= rz_40+P40;
{ Ldnge ot talii do beder } Abstand Taille zu Hüftlinie
dl_tal_nz:=(rz_7-rz_12)*0.45;
{ Ldnge izdeliya po LINIEN serediny RCKENTEIL }
dl_izd:=dl_tal+dl_tal_nz+19 ;Modell-Länge
{ rasstoyanie ot LINIEN talii do soskovoi tochki }
vys_gr_n:=(rz_36-rz_35)*1.0; Abstand zwischen Taillenlinie und Brustlinie
{ ZUGABE K balansu } Zugabe zum Balancemaß
Ppz:=rz_1*4/181 ;ist je nach Modell unterschiedlich
{ Vysota polochki do soskovoi tochki }
vys_gr_v:=(rz_35-rz_76)*1.0-1+Ppz; Vordere Länge plus dem Balancemaß
{ rasstoyanie mezjdu soskovymi tochkami }
shir_tsgr:= rz_46/2+P16*0.25; Brustabstand
{ EINSTELLUNGEN proimy } Rücken...Armloch
{ Glubina proimy }
P39:= rz_39*0.5 ;Zugabe zur Rückenhöhe
gl_pr:= rz_39 + P39; Rückenhöhe plus Zugabe
{ rasstoyanie ot nizjnei tochki proimy do zadnei EINKNIPSEN }Wo kommt ein Knips hin?
vys_nadz:=gl_pr*0.5;halbe Rückenhöhe plus Zugabe
{ rasstoyanie otnizjnei tochki proimy do perednei EINKNIPSEN }Wo kommt ein Knips hin?
vys_nadp:=gl_pr*0.35; Rückenhöhe plus Zugabe mal 0,35
{ raspredelenie ugla nizjnego uchastka proimy } Winkelangaben
ug_pov_pr_v:=15 ;
ug_pov_pr_n:=5 ;
{ raspredelenie ugla nizjnego uchastka proimy na rukave } Winkelangaben
ug_pov_r_pr_v:=5 ;
ug_pov_r_pr_n:=15 ;
{ EINSTELLUNGEN gorloviny } Halsausschnitt
P13:=rz_13*0.06 ;
{ SHirina gorloviny RCKENTEIL }
sh_gor_sp:=(rz_13/2)/2.6+P13+0.3 ;Halsausschnittberechnung ...hinten
{ SHirina gorloviny polochki }
sh_gor_pol:= sh_gor_sp*0.99;Halsausschnittberechnung...vorne
{ Glubina rostka }
gl_rostka:=(rz_43-rz_40)*0.6 ;rückwärtige Halslochtiefe
{ Glubina gorloviny polochki }
gl_gor_pol:=sh_gor_pol *0.58;
{ WINKEL povorota kasatelnoi gorloviny v tochke osnovaniya shei }
dob_ug_gorl:=6;
{ WINKEL povorota kasatelnoi v tochke serediny gorloviny polochki }
dob_ug_gorl_p:=6;
{ EINSTELLUNGEN plecha }Schulter
vysota_podpl:=1.0;
ug_plecha:=22-vysota_podpl*180/(pi*rz_31)-(0.075*rz_16-6)-3.5 ;Schulterschräge
sm_ug_plecha_s:=0;
sm_ug_plecha_p:=2;
ug_pl_pol:= ug_plecha+sm_ug_plecha_p;
ug_pl_sp:= ug_plecha+sm_ug_plecha_s;
{ SHirina plecha } Schulternahtlänge
p31:=rz_31*0.07;
shir_plecha:=rz_31+p31 ;
shir_lop:=shir_sp*0.4;
dl_lop:=rz_39*3.0 ;
{ rasstvor zadnei plechevoi vytachki }
ug_pl_vyt:=1.1;
{ WINKEL povorota kasatelnoi LINIEN proimy v tochke plecha }
ug_pov_proimy:=-3;
{ POSTROENIE chertezja }
******************************Konstruktion************************
grün.....im Hanbuch stehen weitere Informationen
Bild 1
T1:=PUNKT(10.0,10.0);Startpunkt
t9:=PUNKT(T1.X+shir_spb,T1.Y+ gl_pr );Seitennahtanfang
t9s:=PUNKT(t9.X,t9.Y );2.Punkt an der Stelle von Punkt t9..Vorbereitung für eine spätere Aktion
t20:=PUNKT(T1.X,T1.Y+dl_tal);Taille...Rückennaht
t21:=PUNKT(t9.X,t20.Y);Taille....Seitennaht
t22:=PUNKT(T1.X+shir_izd_v, t20.Y);......Taillen....vorne
Bild1
Bild 2
T2:=PUNKT(T1.X+1.5,T1.Y);ein neuer Punkt im Halsausschnitt
t3:=PUNKT(T1.X+sh_gor_sp,T1.Y-gl_rostka);Hals-Schulterpunkt
t8:=PUNKT(T1.X+shir_sp ,t9.Y-vys_nadz);Vorbereitung für spätere Aktionen
t10:=PUNKT(t22.X-shir_pol,t9.Y-vys_nadp);Vorbereitung für spätere Aktionen
Bild 2
Bild 3
t12:=PUNKT( t22.X-shir_tsgr,t22.Y-vys_gr_n);Brustabnäherspitzenpunkt...Achtung er wird nicht von der Schulter aus gemessen
t5:=PUNKT(T1.X+shir_lop, T1.Y+dl_lop); Hilfspunkt ....zum Einfügen der Falte
Bild 3
Bild 4
t20n:=PUNKT(T1.X,t20.Y+dl_tal_nz); Hüftline
t20nn:=PUNKT(T1.X,T1.Y+dl_izd);Modell-Länge
t22nn:=PUNKT(t22.X,t20nn.Y-4); Seitennahtende
Bild 4
Bild 5
t22n:=PUNKT(t22.X, t20n.Y);Hüftlinie vorne
t99:=PUNKT(t9.X,t20.Y);
t91:=PUNKT(t9.X,t99.Y);
t92:=PUNKT(t9.X,t99.Y);
t92s:=PUNKT(t92.X,t92.Y);
Bild 5
PUNKT_ERZEUGEN(t12,0,shir_tsgr-sh_gor_pol ,t16g);Hilfspunkt um den Schulterhalspunkt t16 zu konstruieren...
PUNKT_ERZEUGEN(t16g,-90,vys_gr_v,T16);Schulter-Halspunkt
PUNKT_ERZEUGEN(T16,[T16:t16g].F1,gl_gor_pol,t15g);Hilfspunkt um denHalsausschnitt zu konstruieren
PUNKT_ERZEUGEN(t15g,[T16:t16g].F1-90,sh_gor_pol,T15);Beginn der vorderen Mitte
Bild 6
Bild 7
PUNKT_ERZEUGEN(T16,180-ug_pl_pol,shir_plecha,t11);Schulternnahtpunkt ...vorne
PUNKT_ERZEUGEN(t3,ug_pl_sp,shir_plecha,t7);Schulternahtpunkt ...hinten
gorl_sp:=SPLINE_K[10](T2,t3,[T1:t20].F1-90,[t7:t3].F1+90+dob_ug_gorl, 0.8);Halslochkurve ...hinten
gorl_pol:=SPLINE_K[30](T16,T15,[T16:t11].F1-90+dob_ug_gorl,0+dob_ug_gorl_p,1.5);Halslochkurve vorne
Bild 7
Bild 8
Ausformung der Armlochkurve
SPLINE_K[30](t7,t8,[t3:t7].F1+90-ug_pov_proimy,90, 0.8);
SPLINE_K[30](t8,t9, 90,ug_pov_pr_v, 1.1);
SPLINE_K[30](t9,t10, -ug_pov_pr_v,[t16g:T16].F1, 1.1);
SPLINE_K[30](t10,t11,[t16g:T16].F1,[t16g:T16].F1-ug_plecha-ug_pov_proimy,0.8);
Bild 8
Bild 9
{ Seitennaht und Saum }
ug_klesh:=5.9 ; Winkelangabe für den Verlauf der Seitennaht
k_pov_b:=0.77 ; Koeffizient für die Länge der Seitennaht
PUNKT_ERZEUGEN(t91,90+ug_klesh,[t20nn:t20].L*k_pov_b,t91nn);
PUNKT_ERZEUGEN(t92,90-ug_klesh,[t20nn:t20].L*k_pov_b,t92nn);
SPLINE_KK[60](t20nn,t91nn,0,0,1.1,1.9); Saumlinie
SPLINE_KK[60](t22nn,t92nn,180,180,1.1,1.9);Saumlinie
SPLINE_K[80](t9,t91nn,90+ug_pov_pr_n,90,0.5);Seitennaht
SPLINE_K[80](t92nn,t9,-90,-ug_pov_pr_n-90,0.5);Seitennaht
{ EINSTELLUNGEN borta } Knopfleiste
shir_b:=2 ;Breite der Knopfleiste
{ EINSTELLUNGEN vorotnika } Kragen
p_pos_sp:=0 ;Zugabe/Abzug zur Halsausschnittlänge
shir_vor:=8 ; hintere Kragenbreite
shir_otl:=7 vorne Kragenbreite
shir_zast:=2.2 Übertrittbreite
vys_zast1:=3 ;Steghöhe 1
vys_zast2:=2 ;Steghöhe2
kr_vor:=0.7 ;Koeffizient zur Ausformung der Kragenansatznaht
k_vor:=0.7 ;Koeffizient zur Ausformung der Kragenansatznaht
ug_ust:=100 ;Kragenspitzenwinkel 1
ug_konts_vor:=65 ;Kragenspitzenwinkel 2
shir_pet:= 2.2; Knopfdurchmesser
Bild 10
npb:=PUNKT(T15.X+shir_b,t22nn.Y);Saumpunkt der Knopfleiste
PUNKT_ERZEUGEN(T15,dob_ug_gorl_p,shir_b,vpb);Halsausschnittpunkt der Knopfleiste
Bild 10
dl_gorl_vor:=[T1:T2].L+[T15:vpb].L+gorl_sp.L+gorl_pol.L-p_pos_sp ;Berechnung der Halsausschnittlänge
tv1:=PUNKT(50,-10); ein neues Schnittteil wird angefangen
Bild11 und Bild 12
tv11:=PUNKT(tv1.X,tv1.Y-shir_vor); Kragenhöhe
tv2:=PUNKT(tv1.X+dl_gorl_vor,tv1.Y);Kragennahtlänge
v3:=PUNKT(tv1.X+dl_gorl_vor*k_vor,tv1.Y+kr_vor);Ausformung der Ansatznaht
Bild 11
SPLINE_K[60](tv1,tv3,0,0,0.8);
SPLINE_K[60](tv3,tv2,s_tv1_tv3.F2,0-dob_ug_gorl_p,1.1);
Bild12
koef_szjatv:=(dl_gorl_vor)/(s_tv1_tv3.L+s_tv3_tv2.L) ;Koeffizient für die Längenanpassung von Halsausschnitt und Kragennaht
SKALIEREN((s_tv1_tv3,s_tv3_tv2,tv3,tv2),tv1,0,koef_szjatv,koef_szjatv,"");
gorl_vor:=ZUSAM_GESETZ_LINIE(s_tv1_tv3,s_tv3_tv2);aus 2 Kurvenabschnitten wird eine Kurve
gorl_vorl:=gorl_vor.L;Längenangabe der neuen Kurve
Bild 13
tv4:=PUNKT(tv2.X,tv2.Y-vys_zast2);Stegecke
tv5:=PUNKT(tv2.X-shir_zast,tv2.Y-vys_zast1);Steghöhe und Breite
PUNKT_ERZEUGEN(tv5,[tv5:tv4].F1-ug_ust,shir_otl,tv6);
SPLINE_KK[60](tv11,tv6,0,[tv6:tv5].F1+ug_konts_vor+180,1.3,1.5);
Bild 13
Bild 14
Knopfloch wird eingezeichnet
p_vor:=MARKIERUNG(PUNKT(tv2.X-1.2-shir_pet*0.5,tv2.Y-vys_zast2*0.5),
8,0,shir_pet,1);
Bild 14
SPEICHERN(NAME=(KRAGEN),
INNERE_LINIE=((tv1,tv11),(p_vor)),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
SYMMETRISCH,
KONTOUR=(tv11,s_tv11_tv6,tv5,tv4,tv2,-gorl_vor,tv1),
ZUGABE=1,
EINKNIPSEN=(tv1,tv11),
FARBE=9);
Knöpfe
{ petli }
pyap:=2 ;
shir_pet:= 2.2;
k_rast_pet:=5;
Abstand zwischen den Knöpfen wird berechnet
rast_pet:= ([T15:t22nn].L-pyap)/k_rast_pet;
p_1:=MARKIERUNG(PUNKT(T15.X,T15.Y+pyap+shir_pet*0.5),
8,90,shir_pet,1);
p_2:=MARKIERUNG(PUNKT(T15.X,T15.Y+pyap+shir_pet*0.5+rast_pet*1),
8,90,shir_pet,1);
p_3:=MARKIERUNG(PUNKT(T15.X,T15.Y+pyap+shir_pet*0.5+rast_pet*2),
8,90,shir_pet,1);
p_4:=MARKIERUNG(PUNKT(T15.X,T15.Y+pyap+shir_pet*0.5+rast_pet*3),
8,90,shir_pet,1);
p_5:=MARKIERUNG(PUNKT(T15.X,T15.Y+pyap+shir_pet*0.5+rast_pet*4),
8,90,shir_pet,1);
Bild 15
{ PASSE }
Dieses Hemd hat keine Schulternaht.
Vom Vorderteil wird ein 3 cm tiefes Passenstück abgetrennt und an das Rückenteil angefügt.
shir_kok:=dl_tal*0.3 ;hintere Passenlänge
smeshch_pl:=3 ; vordere Passenlänge
kok1:=PUNKT(T1.X,T1.Y+shir_kok);Passenlänge hintere Mitte
prm_pol:=ZUSAM_GESETZ_LINIE(s_t9_t10,s_t10_t11);aus 2 Kurven wird eine Kurve
Bild 15
Bild 16
INTERVAL(prm_pol,prm_pol.L-smeshch_pl,kok3,pr_pol,pr_kok_pol);Passenabtrennung Armloch
INTERVAL_RICHT(gorl_pol,kok3,[t11:T16].F1,kok4,gorl_kok,gorl_pol);Passenabtrennung Halsloch
INTERVAL_RICHT(s_t7_t8,kok1,0,kok2,s_t7_kok2,s_kok2_t8);Rückenteil...Passenabtrennung Armloch
Bild 16
Bild 17
VERSCHIEBUNG((T16,t11,gorl_kok,kok3,kok4,pr_kok_pol),ABSCHNITT(t11,t7),"");vorderes Passenteil wird an den Rücken geschoben
Bild 17
Bild 18
und dann gedreht:
DREHUNG((T16,t11,gorl_kok,kok3,kok4,pr_kok_pol),t7,[t7:t3].F1-[t7:T16].F1,"");
Bild18
dl_kok:=[kok1:kok2].L ;
SPEICHERN(NAME=(PASSE),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
SYMMETRISCH,
KONTOUR=(T1,T2,gorl_sp,t3,gorl_kok,kok4,kok3,pr_kok_pol,t7,
s_t7_kok2,kok2,kok1),
ZUGABE=1,
EINKNIPSEN=(T1,t7),
INNERE_LINIE=((t7,t3)),
FARBE=10);
{ FALTE na spinke }Falte im Rückenteil
Bild 19
Der Falteninhalt wird mit Aufdrehen in das Rückenteil eingefügt....Drehpunkt ist T5
Bild 19
rast_m_skl:=shir_sp*0.4 ;Faltenlage
PUNKT_ERZEUGEN(kok1,0,rast_m_skl,tkok1);
m_skl1:=MARKIERUNG(tkok1,4,90,2,0.4);
DREHUNG((t8,kok2,s_kok2_t8),t5,ug_pl_vyt,"");
DREHUNG((m_skl1),t5,ug_pl_vyt,"2");
SPLINE_K[80](kok1,kok2,0,ug_pl_vyt,1.1);
SPLINE_K[30](t8,t9,s_kok2_t8.F2,ug_pov_pr_v, 1.1);
m_t10:=MARKIERUNG(t10,4,s_t9_t10.F2+90,2,1);
{ NAKLADNOI TASCHE }
Mit Hilfe der Tastenkombination F4 wird schnell klar...hier wird die Bezeichnung mehrmals verwendet....klap1,klap2 kommt oft vor
dl_kar:= 17 ;Länge der Tasche
shir_kar:= 16 ;Breite der Tasche
glub_skl:= 1.5 ;Faltentiefe
shir_kar:= shir_kar+glub_skl*4 ;Gesamtbreite
klap1:=PUNKT(20,100);
klap2:=PUNKT(klap1.X+shir_kar,klap1.Y);
skl1:=PUNKT(klap1.X+shir_kar*0.5-glub_skl*2,klap1.Y);
skl2:=PUNKT(klap1.X+shir_kar*0.5-glub_skl,klap1.Y);
skl3:=PUNKT(klap1.X+shir_kar*0.5+glub_skl,klap1.Y);
skl4:=PUNKT(klap1.X+shir_kar*0.5+glub_skl*2,klap1.Y);
klap3:=PUNKT(klap2.X,klap1.Y+dl_kar-1);
klap4:=PUNKT(klap2.X-1,klap1.Y+dl_kar);
klap5:=PUNKT(klap1.X+1,klap1.Y+dl_kar);
klap6:=PUNKT(klap1.X,klap1.Y+dl_kar-1);
skl11:=PUNKT(klap1.X+shir_kar*0.5-glub_skl*2,klap4.Y);
skl22:=PUNKT(klap1.X+shir_kar*0.5-glub_skl,klap4.Y);
skl33:=PUNKT(klap1.X+shir_kar*0.5+glub_skl,klap4.Y);
skl44:=PUNKT(klap1.X+shir_kar*0.5+glub_skl*2,klap4.Y);
SPEICHERN(NAME=(AUFGES._TASCHE),
KONTOUR=(klap1,klap2,klap3,klap4,klap5,klap6),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
ZUGABE=1,
ZUGABE_SEKTOR=((klap1,3,3,klap2)),
INNERE_LINIE=((skl1,skl11),(skl2,skl22),(skl3,skl33),(skl4,skl44)),
FARBE=12);
{ KLAPPE }
dl_klapana:=shir_kar-glub_skl*4;
shir_klapana:=7;
klap1:=PUNKT(vpb.X-dl_klapana-7.5,T15.Y+13);
klap2:=PUNKT(klap1.X+dl_klapana,klap1.Y);
klap3:=PUNKT(klap2.X,klap1.Y+shir_klapana-1);
klap4:=PUNKT(klap2.X-1,klap1.Y+shir_klapana);
klap5:=PUNKT(klap1.X+1,klap1.Y+shir_klapana);
klap6:=PUNKT(klap1.X,klap1.Y+shir_klapana-1);
klapp1:=PUNKT(klap4.X-0.8,klap3.Y-1);
pet_klap1:=MARKIERUNG(klapp1,8,90,2,1);
klapp2:=PUNKT(klap5.X+0.8,klap3.Y-1);
pet_klap2:=MARKIERUNG(klapp2,8,90,2,1);
met_klap:=MARKIERUNG(PUNKT(klap1.X+dl_klapana*0.5,klap1.Y),1,0,dl_klapana,1);
SPEICHERN(NAME=(AUFGESETZ._TASCHENKLAPPE),
KONTOUR=(klap1,klap2,klap3,klap4,klap5,klap6),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(2,2),
ZUGABE=1,
INNERE_LINIE=((pet_klap1),(pet_klap2)),
FARBE=10);
dl_kar:= 17 ;
shir_kar:= 16 ;
glub_skl:= 1.5 ;
klap1:=PUNKT(vpb.X-dl_klapana-7.5,T15.Y+13+1.2);
klap2:=PUNKT(klap1.X+shir_kar,klap1.Y);
klap3:=PUNKT(klap2.X,klap1.Y+dl_kar-1);
klap4:=PUNKT(klap2.X-1,klap1.Y+dl_kar);
klap5:=PUNKT(klap1.X+1,klap1.Y+dl_kar);
klap6:=PUNKT(klap1.X,klap1.Y+dl_kar-1);
{ SCHLAUFE }
shir_shlevki:=1.5;
dl_shlevki:=8.0;
kolshl:=2;
shl1:=PUNKT(10,100);
shl2:=PUNKT(shl1.X+shir_shlevki,shl1.Y);
shl3:=PUNKT(shl2.X,shl2.Y+dl_shlevki*kolshl);
shl4:=PUNKT(shl1.X,shl3.Y);
sh1:=PUNKT(shl1.X,shl1.Y+dl_shlevki);
sh2:=PUNKT(shl1.X,shl1.Y+dl_shlevki*2);
sh11:=PUNKT(shl2.X,shl1.Y+dl_shlevki);
sh22:=PUNKT(shl2.X,shl1.Y+dl_shlevki*2);
shsh1:=MARKIERUNG(sh1,1,0,2,0);
shsh2:=MARKIERUNG(sh2,1,0,2,0);
shsh11:=MARKIERUNG(sh11,1,180,2,0);
shsh22:=MARKIERUNG(sh22,1,180,2,0);
SPEICHERN(NAME=(SCHLAUFE),
KONTOUR=(shl1,shl2,shl3,shl4),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,0),
ZUGABE=1.2,
ZUGABE_SEKTOR=((shl1,0,0,shl2),(shl3,0,0,shl4)),
INNERE_LINIE=((shsh1),(shsh11),(shsh2),(shsh22)),
FARBE=12);
PUNKT_ERZEUG_LNWS(s_t92nn_t9,s_t92nn_t9.L*0.5,shl1);
PUNKT_ERZEUG_LNWS(s_t92nn_t9,s_t92nn_t9.L*0.5+dl_shlevki-1,shl2);
m_shl1:=MARKIERUNG(shl1,4,[t9:t92nn].F1-90,2,1);
m_shl2:=MARKIERUNG(shl2,4,[t9:t92nn].F1-90,2,1);
SPEICHERN(NAME=(VORDERTEIL),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
KONTOUR=(gorl_pol,vpb,npb,s_t22nn_t92nn,s_t92nn_t9,
pr_pol),
ZUGABE=1.0,
INNERE_LINIE=((T15,t22nn),(p_1),(p_2),(p_3),(p_4),(p_5),(m_t10),
(klap1,klap2,klap3,klap4,klap5,klap6,klap1),
(met_klap),(m_shl1),(m_shl2)),
ZUGABE_SEKTOR=((npb,1.3,1.3,t92nn)),
FARBE=15);
{ BESATZ }
INTERVAL(pr_pol,2,t9_pbd,pr_pbd1,pr_pbd);
INTERVAL(s_t22nn_t92nn,20,t92nn_pbd,
s_t22nn_t92nn_pbd,s_t92nn_pbd_t92nn);
{ VNUTRENNII TASCHE }
dlina_karmana:=14.0 ;
shir_ramki:=1.5 ;
kr1:=PUNKT(vpb.X-8-dlina_karmana*0.5,vpb.Y+19);
PUNKT_ERZEUGEN(kr1,0,dlina_karmana*0.5,kr2);
PUNKT_ERZEUGEN(kr1,180,dlina_karmana*0.5,kr3);
kar_vntr:=MARKIERUNG(kr1,2,[kr3 :kr2 ].F1,dlina_karmana,shir_ramki);
{ BESATZ vnutrennego karmana }
shir_obtachki:=shir_ramki*0.9 ;
dl_obtachki:=dlina_karmana ;
obk1:=PUNKT(50,100);
obk2:=PUNKT(obk1.X+shir_obtachki,obk1.Y);
obk3:=PUNKT(obk2.X,obk2.Y+dl_obtachki);
obk4:=PUNKT(obk1.X,obk3.Y);
obk21:=PUNKT(obk1.X+shir_obtachki*2,obk1.Y);
obk31:=PUNKT(obk21.X,obk21.Y+dl_obtachki);
{ TASCHENBEUTEL vnutrennego karmana }
dl_meshk_karmana:=15 ;
PUNKT_ERZEUGEN(kr3,[kr3 :kr2 ].F1+90,dl_meshk_karmana,kr7);
PUNKT_ERZEUGEN(kr2,[kr3 :kr2 ].F1+90,dl_meshk_karmana,kr6);
PUNKT_ERZEUGEN(kr3,[kr3 :kr2 ].F1+90,dl_meshk_karmana,kr77);
PUNKT_ERZEUGEN(kr2,[kr3 :kr2 ].F1+90,dl_meshk_karmana,kr66);
SPEICHERN(NAME=(INNER.TASCHENFUTTER),
KONTOUR=(kr2,kr66,kr6,kr7,kr77,kr3),
STOFF=FUTTER,
SCHNITTMENGE=(1,1),
INNERE_LINIE=((kr66,kr77)),
FARBE=5);
{ PASPELSTR. }
dl_podz:=dlina_karmana;
shir_podz:=6;
klap1:=PUNKT(60,100);
klap2:=PUNKT(klap1.X+dl_podz,klap1.Y);
klap3:=PUNKT(klap2.X,klap1.Y+shir_podz);
klap4:=PUNKT(klap2.X-1,klap1.Y+shir_podz);
klap5:=PUNKT(klap1.X+1,klap1.Y+shir_podz);
klap6:=PUNKT(klap1.X,klap1.Y+shir_podz);
SPEICHERN(NAME=(INNER.TASCHE_PASPELSTREIFEN),
KONTOUR=(klap1,klap2,klap3,klap4,klap5,klap6),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
ZUGABE=1,
FARBE=10);
SPEICHERN(NAME=(INNERETASCHENPATTE),
KONTOUR=(obk1,obk2,obk21,obk31,obk3,obk4),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
EINKNIPSEN=(obk2,obk3),
INNERE_LINIE=((obk2,obk3)),
FARBE=14);
SPEICHERN(NAME=(BESATZ),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
KONTOUR=(gorl_pol,vpb,npb,s_t22nn_t92nn_pbd,
pr_pbd),
ZUGABE=1.0,
ZUGABE_SEKTOR=((npb,1.3,1.3,t9_pbd)),
INNERE_LINIE=((T15,t22nn),(m_t10),(kar_vntr)),
FARBE=9);
{ SCHULTERKLAPPE }
shir_pog:=6 ;
dl_pog:=11.5 ;
dl_ug:=2 ;
ps1l:=PUNKT(90,80);
ps2l:=PUNKT(ps1l.X+shir_pog,ps1l.Y);
ps3l:=PUNKT(ps2l.X,ps2l.Y+dl_pog);
ps4l:=PUNKT(ps1l.X,ps3l.Y);
ps5l:=PUNKT(ps1l.X+shir_pog*0.5,ps3l.Y+dl_ug);
ndp1l:=PUNKT(ps1l.X+shir_pog/2,ps5l.Y-2);
met_pog:=MARKIERUNG(ndp1l,8,90,2,1);
SPEICHERN(NAME=(SCHULTERKLAPPE),
SYMMETRISCH,
KONTOUR=(ps1l,ps2l,ps3l,ps5l,ps4l),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
ZUGABE=0.5,
INNERE_LINIE=((ps1l,ps4l),(met_pog)),
FARBE=12);
{ EINSTELLUNGEN DRMEL }
P33:=rz_33*0.035 ;
shir_ruk_vnizu:=rz_30*1.15 ;
{ EINSTELLUNGEN skladok }
shir_skl:=2.6 ;
rast_skl1:=4 ;
rast_skl2:=6 ;
rast_skl3:=8 ;
shir_ruk_vnizu_s:=shir_ruk_vnizu+shir_skl*3 ;
{ SHirina verkhnei chasti DRMEL }
shir_ruk_vnizu_p:=shir_ruk_vnizu*0.74 +shir_skl*3;
{ SHirina nizjnei chasti DRMEL }
shir_ruk_vnizu_n:=shir_ruk_vnizu_s-shir_ruk_vnizu_p;
dlina_ruk:=rz_33+P33-shir_plecha;
dl_ruk_lok:=dlina_ruk*0.5;
{ WINKEL Loktevoi vytachki }
ug_lok_vytp:=15;
ug_lok_vytz:=5;
{ posadka DRMEL na kazjdyi santimetr dliny uchastkov proimy }
k_pos_spn:= 0.0;
k_pos_spv:= 0.0;
k_pos_poln:= 0.0;
k_pos_polv:= 0.0;
dob_ug_ruk:=1;
{ smeshchenie shva loktevogo perekata }
slp:= 2;
{ EINSTELLUNGEN formy DRMEL }
vys_okata:=16;
par1:=28;
par2:=27;
par11:=vys_okata*0.55;
par12:=vys_okata*0.5;
ug_ok1:=45;
ug_ok2:=40;
{ Ldnge bokovogo razreza }
dl_razr:= 8.5;
{ POSTROENIE DRMEL }
dl_pr_poln:= s_t9_t10.L;
dl_pr_spn:= s_t8_t9.L;
dl_pr_polv:=s_t10_t11.L;
dl_pr_spv:= s_t7_t8.L;
dl_pr_pol:= dl_pr_poln+dl_pr_polv;
dl_pr_sp:= dl_pr_spn+dl_pr_spv;
o1:=PUNKT(T15.X+50,10);
o2:=PUNKT(o1.X,o1.Y-vys_okata);
r1:=PUNKT(o1.X-par1,o1.Y);
r2:=PUNKT(o1.X+par2,o1.Y);
PUNKT_ERZEUGEN(o1,0,[o1 :r2 ].L/2,rp);
PUNKT_ERZEUGEN(o1,180,[o1 :r1 ].L/2,rl);
PUNKT_ERZEUGEN(o2,90-dob_ug_ruk,dlina_ruk,m);
PUNKT_ERZEUGEN(o2,[o2:m].F1,dl_ruk_lok,ML);
PUNKT_ERZEUGEN(rp,-90,par12,rpo);
PUNKT_ERZEUGEN(rl,-90,par11,rlo);
ok1:=SPLINE_K(r1,rlo,0-ug_pov_r_pr_v,-90+ug_ok1,1);
ok2:=SPLINE_K(rlo,o2,ok1.F2,0,1);
ok3:=SPLINE_K(o2,rpo,ok2.F2,90-ug_ok2,1);
ok4:=SPLINE_K(rpo,r2,ok3.F2,0+ug_pov_r_pr_v,1);
dl_okata1:=ok1.L+ok2.L;
dl_okata2:=ok3.L+ok4.L ;
koef_szjat1:=(dl_pr_sp+dl_pr_spn*k_pos_spn+dl_pr_spv*k_pos_spv)/dl_okata1 ;
SKALIEREN((r1,rlo,ok1,ok2),o2,180,koef_szjat1,koef_szjat1,"");
koef_szjat2:=(dl_pr_pol+dl_pr_poln*k_pos_poln+dl_pr_polv*k_pos_polv)/dl_okata2;
SKALIEREN((r2,rpo,ok3,ok4),o2,0,koef_szjat2,koef_szjat2,"");
DREHUNG((r1,rlo,ok1,ok2,o2,r2,rpo,ok3,ok4),r1,0-[r1:r2].F1,"");
dl_okata1o:=ok1.L+ok2.L;
dl_okata2o:=ok3.L+ok4.L ;
pposs:=dl_pr_spn*k_pos_spn+dl_pr_spv*k_pos_spv ;
pposp:=dl_pr_poln*k_pos_poln+dl_pr_polv*k_pos_polv ;
ABSCHNITT(r2,r1);
INTERVAL(ok1,ok1.L-slp,lp,ok1lp1,ok1lp2);
KREUZ_RICHTUNG(lp,90-0*dob_ug_ruk,ML,[o2:m].F1+90,lpm);
KREUZ_RICHTUNG(lpm,90-ug_lok_vytp,m,[o2:m].F1+90,mlp);
PUNKT_ERZEUGEN(mlp,[o2:m].F1-90,shir_ruk_vnizu_p,m2);
PUNKT_ERZEUGEN(lpm,90+ug_lok_vytz,[lpm:mlp].L,mlz);
KREUZ_BOGEN(mlz,shir_ruk_vnizu_s-shir_ruk_vnizu_p,
r1,[r2:m2].L,1,m1);
lper1:=SPLINE_K(lp,mlp,90,[lpm:mlp].F1,1.3);
niz1:=SPLINE_K(m2,mlp,[r2:m2].F1+90,lper1.F1+90,0.8);
pper1:=SPLINE_K(r2,m2,90+ug_pov_r_pr_n,[r2:m2].F1,1.1);
lper2:=SPLINE_K(lp,mlz,90,[lpm:mlz].F1,1.3);
niz2:=SPLINE_K(m1,mlz,[r1:m1].F1-90,lper2.F1-90,0.8);
pper2:=SPLINE_K(r1,m1,90-ug_pov_r_pr_n,[r1:m1].F1,1.1);
met_o2:=MARKIERUNG(o2,4,90,2,1);
ok_p:=ZUSAM_GESETZ_LINIE(ok3,ok4);
PUNKT_ERZEUG_LNWS(ok_p,ok_p.L-s_t9_t10.L,t10r);
met_t10r:=MARKIERUNG(t10r,4,ok3.F2+90,2,1);
{ SKLADKI }
PUNKT_ERZEUG_LNWS(niz1,niz1.L-rast_skl1,sk1);
PUNKT_ERZEUG_LNWS(niz1,niz1.L-rast_skl1-shir_skl,sk11);
PUNKT_ERZEUG_LNWS(niz1,niz1.L-rast_skl2-shir_skl,sk2);
PUNKT_ERZEUG_LNWS(niz1,niz1.L-rast_skl2-shir_skl*2,sk22);
PUNKT_ERZEUG_LNWS(niz1,niz1.L-rast_skl3-shir_skl*2,sk3);
PUNKT_ERZEUG_LNWS(niz1,niz1.L-rast_skl3-shir_skl*3,sk33);
m_sk1:=MARKIERUNG(sk1,4,[o2:m].F1+180,4,1);
m_sk11:=MARKIERUNG(sk11,4,[o2:m].F1+180,4,1);
m_sk2:=MARKIERUNG(sk2,4,[o2:m].F1+180,4,1);
m_sk22:=MARKIERUNG(sk22,4,[o2:m].F1+180,4,1);
m_sk3:=MARKIERUNG(sk3,4,[o2:m].F1+180,4,1);
m_sk33:=MARKIERUNG(sk33,4,[o2:m].F1+180,4,1);
PUNKT_ERZEUG_LNWS(lper1,lper1.L-dl_razr,rzr1);
PUNKT_ERZEUG_LNWS(lper2,lper2.L-dl_razr,rzr2);
m_rzr1:=MARKIERUNG(rzr1,4,[o2:m].F1-90,2,1);
m_rzr2:=MARKIERUNG(rzr2,4,[o2:m].F1+90,2,1);
SPEICHERN(NAME=(v.ch_rukava),
KONTOUR=(ok2,ok3,ok4,pper1,niz1,-lper1,ok1lp2),
ZUGABE=1,
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
INNERE_LINIE=((met_o2),(met_t10r),(m_sk1),(m_sk11),(m_sk2),
(m_sk22),(m_sk3),(m_sk33),(m_rzr1)),
FADENLAUF=(o2,[o2:m].F1),
EINKNIPSEN=(o2),
FARBE=2);
SPEICHERN(NAME=(n.ch_rukava),
KONTOUR=(ok1lp1,lper2,-niz2,-pper2),
ZUGABE=1,
SCHNITTMENGE=(1,1),
INNERE_LINIE=((m_rzr2)),
STOFF=GRUND_STOFF,
FARBE=3);
pr_sp:=ZUSAM_GESETZ_LINIE(s_kok2_t8,s_t8_t9);
INTERVAL(pr_sp,pr_sp.L-ok1lp1.L,t8r,pr_sp1,pr_sp2);
m_t8r:=MARKIERUNG(t8r,4,pr_sp1.F1+90,2,1);
SPEICHERN(NAME=(RCKENTEIL),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,0),
SYMMETRISCH,
KONTOUR=(kok1,s_kok1_kok2,pr_sp,
s_t9_t91nn,-s_t20nn_t91nn),
INNERE_LINIE=((T1,t20nn),(m_t8r),(m_skl1),(m_skl12)),
ZUGABE=1,
ZUGABE_SEKTOR=((t91nn,1.3,1.3,t20nn)),
FARBE=14);
{ MANSCHETTE }
shir_manzj:=5 ;
shir_zast:=0 ;
dl_manzj:=shir_ruk_vnizu+shir_zast ;
ps1l:=PUNKT(100,70);
ps2l:=PUNKT(ps1l.X+dl_manzj,ps1l.Y);
ps3l:=PUNKT(ps2l.X,ps2l.Y+shir_manzj);
ps4l:=PUNKT(ps1l.X,ps3l.Y);
ndp1l:=PUNKT(ps1l.X+shir_manzj/2,ps1l.Y+2);
p_manzj:=MARKIERUNG(ndp1l,8,0,2,1);
SPEICHERN(NAME=(MANSCHETTE),
SYMMETRISCH,
KONTOUR=(ps2l,ps3l,ps4l,ps1l),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
INNERE_LINIE=((ps1l,ps2l),(p_manzj)),
FARBE=15);
{ STEG }
shir_shtr:=3 ;
dl_shtr:=25 ;
dl_ug_shtr:=1.6 ;
ps1l:=PUNKT(100,80);
ps2l:=PUNKT(ps1l.X+shir_shtr,ps1l.Y);
ps3l:=PUNKT(ps2l.X,ps2l.Y+dl_shtr);
ps4l:=PUNKT(ps1l.X,ps3l.Y);
ps5l:=PUNKT(ps1l.X+shir_shtr*0.5,ps3l.Y+dl_ug_shtr);
ndp1l:=PUNKT(ps1l.X+shir_shtr/2,ps5l.Y-2);
met_pog:=MARKIERUNG(ndp1l,8,90,2,1);
SPEICHERN(NAME=(STEG),
SYMMETRISCH,
KONTOUR=(ps1l,ps2l,ps3l,ps5l,ps4l),
STOFF=GRUND_STOFF,
SCHNITTMENGE=(1,1),
ZUGABE=0.5,
INNERE_LINIE=((ps1l,ps4l),(met_pog)),
FARBE=9);
pposs:=dl_pr_spn*k_pos_spn+dl_pr_spv*k_pos_spv ;
pposp:=dl_pr_poln*k_pos_poln+dl_pr_polv*k_pos_polv ;
ENDE
|
