Wissenswertes zu Schleife (Loop)

Mit der Loop Funktion …der Schleifenfunktion… kann ein Maß optimal bestimmt werden.

Die Schleifenfunktion wird an einem Beispiel erklärt:

Wie weit muß der Rock aufgedreht werden,daß er gut,auch mit anderen Maßeingaben, über die Hüfte fällt?

Mit der Funktion Aufdrehen drehen wir den Rock auf.

Aufdrehen((lt,lb,lnn),lt,-90,-90,-sch_ts,0,"_R");

(lt,lb,lnn)……was gedreht werden soll

lt…….das nicht aufgedrehte Objekt

-90,-90…Winkelangaben

-sch_ts…..Aufdrehbetrag

0…immer schreiben

"R"…..neuer Name

{ Ubka }

GROESSEN;

{ BASIS EINSTELLUNGEN }

kl_kl:=4;      {Anzahl der Bahnen}
p18:=1;      {Zugabe Taille}
p19:=5;        {ZugabeHüfte}
di:=rz_1*0.3; {Länge}
vb:=rz_1*0.1; {Hüfttiefe}
shir_kl_t:=(rz_18+p18)/kl_kl; {Taillenlinie:Taillenumfang + Zugabe geteilt durch die Bahnenanzahl}

shir_kl_b:=(rz_19+p19)/kl_kl; {Hüftlinie:Hüftumfang + Zugabe geteilt durch die Bahnenanzahl}

{ KONSTRUKTION ZEICHNUNG }

T1:=PUNKT(10,10);
T2:=PUNKT_ERZEUGEN(T1,0,shir_kl_t);
t3:=PUNKT_ERZEUGEN(T1,90,di);
t4:=PUNKT_ERZEUGEN(t3,0,shir_kl_t);
t5:=PUNKT_ERZEUGEN(T1,90,vb);
t6:=PUNKT_ERZEUGEN(T2,90,vb);

lt:=ABSCHNITT[100](T1,T2);
lb:=ABSCHNITT[100](t5,t6);
LNN:=ABSCHNITT[100](t3,t4);

sch_ts:=0;

SCHLEIFE_BEGIN;

AUFDREHEN((lt,lb,LNN),lt,-90,-90,-sch_ts,0,"_R");

WENN MEHR(lb_r.L,shir_kl_b) DANN

SCHLEIFE_ABBRECH;

SONST

sch_ts:=sch_ts+1;

ENDE_WENN;

WENN MEHR(sch_ts,300) DANN
SCHLEIFE_ABBRECH;

ENDE_WENN;

SCHLEIFE_END;

SPEICHERN(NAME=(Rock),
SCHNITTMENGE=(kl_kl,0),
STOFF=GRUND_STOFF,
KONTOUR=(LT_R,-LNN_R),
ZUGABE=1,
FARBE=12);
ENDE