% Definitionen fuer weva Vereinfchte Ausgangsschrift (VA) % Walter Entenmann % 06.09.2011 % 13.09.2012 % % Parameter und Makros % Math. Sonderzeichen hmath:=ht/2; hdash:=ht/2; % Steigung des Verbindungsstrichs m:=4/3; % Superellipse (klein) b:=ht/2; a:=7ut; k:=b/a; sigma:=0.73345; % Superellipse (gross) B:=Ht/2; A:=13.75ut; K:=B/A; Sigma:=sigma; % Rundungsradius bei Stock, etc. r:=3.5ut; fr:=1; % "b" db:=2.5ut; mb:=2.5; % Oberschleife, Unterschleife; Breite, Faktor sb:=9ut; fs:=0.4; % Fahnenbreiten fahnekurz:=12ut; % fuer r,x fahnemittel:=13ut; % fuer o,v,w fahnelang:=15ut; % fuer b % Ansatz beim scharfen s, etc. nase:=1.5ut; % Ansatz beim q qnase:=1.5ut; % Fundamentale Breiten H_breit:=22.5ut; N_breit:=25ut;C:=N_breit/2; O_breit:=2*A; V_breit:=30ut; % Anlauf bei A, M etc xauf=8.5ut; mxauf:=6ut; yauf=3.5ut; % Spornbreite, horiz.Teile bei B, D, etc. sporn:=6ut; flach:=sporn; % fuer B Flach:=10ut; % fuer B % Steigung bei 8 macht:=1/3; % % Delta, delta x1:=whatever;y1:=whatever; x2:=whatever;y2:=whatever; x5:=whatever;y5:=whatever; z1=(0,b); z2=(-a,0); z5=(-sigma*a,sigma*b); p := z1{left}..z5{z2-z1}..{down}z2; x0:=whatever;y0:=whatever; z0=(directionpoint(1,m) of (reverse (subpath (0,2) of p))); delta:=a+x0;Delta:=b-y0; % def oval (expr sx) = x1:=whatever;y1:=whatever; x2:=whatever;y2:=whatever; x3:=whatever;y3:=whatever; x4:=whatever;y4:=whatever; x5:=whatever;y5:=whatever; x6:=whatever;y6:=whatever; x7:=whatever;y7:=whatever; x8:=whatever;y8:=whatever; z1=(0,b); z2=(-a,0); z3=(0,-b); z4=(a,0); z5=(-sigma*a,sigma*b); z6=(-sigma*a,-sigma*b); z7=(sigma*a,-sigma*b); z8=(sigma*a,sigma*b); draw (z1{left}..z5{z2-z1}..z2{down}..z6{z3-z2}..z3{right}..z7{z4-z3}..z4{up}..z8{z1-z4}..cycle) shifted (sx+a-delta,b); xpos:=sx+2*a-delta; enddef; def Oval (expr sx) = x1:=whatever;y1:=whatever; x2:=whatever;y2:=whatever; x3:=whatever;y3:=whatever; x4:=whatever;y4:=whatever; x5:=whatever;y5:=whatever; x6:=whatever;y6:=whatever; x7:=whatever;y7:=whatever; x8:=whatever;y8:=whatever; z1=(0,B); z2=(-A,0); z3=(0,-B); z4=(A,0); z5=(-Sigma*A,Sigma*B); z6=(-Sigma*A,-Sigma*B); z7=(Sigma*A,-Sigma*B); z8=(Sigma*A,Sigma*B); draw (z1{left}..z5{z2-z1}..z2{down}..z6{z3-z2}..z3{right}..z7{z4-z3}..z4{up}..z8{z1-z4}..cycle) shifted (sx+A,B); xpos:=sx+2*A; enddef; def stamm (expr ha, hb, sx)= draw ((0,ha)--(0,hb)) shifted (sx,0); xpos:=sx; enddef; def strich(expr sx) = draw ((0,0)--((ht-Delta)/m,ht-Delta)) shifted (sx,0); xpos:=sx+(ht-Delta)/m; enddef; % Ansatz beim q def qansatz (expr sx)= draw ((0,-5ut){up}..{1,m}(qnase,0)) shifted (sx,0); xpos:=sx+qnase; enddef; % Ansatz beim scharfen s def ansatz (expr sx)= draw ((0,ht)..{down}(nase,ht-5ut)) shifted (sx,0); xpos:=sx+nase; enddef; def stock(expr sx) = draw ((0,r){down}..(r*fr,0){right}..tension2 and 4.5..{1,m}(ht-Delta/m,ht-Delta)) shifted (sx,0); xpos:=sx+ht-Delta/m; enddef; def gerade (expr hl, hr, abstand, sx)= draw ((0,hl)--(abstand,hr)) shifted (sx,0); xpos:=sx+abstand; enddef; def ipunkt(expr sx) = pickup weva_pen_thick; drawdot (0,0) shifted (sx,ht+7.5ut); pickup weva_pen; xpos:=sx; enddef; def umlaut (expr dx,sx) = pickup weva_pen_thick; drawdot (0,0) shifted (sx+dx,ht+7.5ut); drawdot (0,0) shifted (sx+dx+10ut,ht+7.5ut); pickup weva_pen; xpos:=sx; enddef; def Umlaut (expr dx,sx) = pickup weva_pen_thick; drawdot (0,0) shifted (sx+dx,Ht+5ut); drawdot (0,0) shifted (sx+dx+6.5ut,Ht+5ut); pickup weva_pen; xpos:=sx; enddef; def c_form (expr sx) = x1:=whatever;y1:=whatever; x2:=whatever;y2:=whatever; x3:=whatever;y3:=whatever; x4:=whatever;y4:=whatever; x5:=whatever;y5:=whatever; x6:=whatever;y6:=whatever; x7:=whatever;y7:=whatever; x8:=whatever;y8:=whatever; z1=(0,b); z2=(-a,0); z3=(0,-b); z4=(a,0); z5=(-sigma*a,sigma*b); z6=(-sigma*a,-sigma*b); z7=(sigma*a,-sigma*b); z8=(sigma*a,sigma*b); draw (z8{z1-z4}..z1{left}..z5{z2-z1}..z2{down}..z6{z3-z2}..{right}z3) shifted (sx+a-delta,b); xpos:=sx+a-delta; enddef; def schweif (expr hl, hr, bt, phil, phir, tens, sx) = p := (0,hl){dir phil}..tension tens..{dir phir}(bt,hr); draw p shifted (sx,0); xpos:=sx+bt; % if wmax