diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/schulschriften/wesa14_def.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/schulschriften/wesa14_def.mf | 230 |
1 files changed, 138 insertions, 92 deletions
diff --git a/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_def.mf b/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_def.mf index b4207f0d809..0586140c65e 100644 --- a/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_def.mf +++ b/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_def.mf @@ -1,26 +1,30 @@ % Schulausgangsschrift (SAS) wesa % Parameter und Makrodefinitionen % 23.10.2011 +% 23.11.2014: modifiziert +% 30.11.2014: modifiziert, Duktus +% -% Parameter: +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Parameter: % kl. Abstand in der Groesse der Strichstaerke eta:=1ut; % Steigung des Verbindungsstrichs m:=1.5; -% Superellipse -b=ht/2; -k:=1.5; % SAS -a*k=b; +% Viertelbogen links oben % geandert +b:=ht/2; +k:=1.481; % k geaendert +k*a=b; sigma:=0.73345; +t:=0.85; % geaendert -% Delta, delta - 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; +% Delta, delta % geaendert +p:=(a,2b){left}..tension t..{down}(0,b); +x0:=whatever;y0:=whatever; +z0=directionpoint (-1,-m) of p; +Delta:=2b-y0; +delta:=x0; % geaendert % typische kleine Masse dd:=2.5ut; @@ -31,21 +35,21 @@ rho:=2ut; % Unterschleife, Schnittpunkt bei (0,0) % Steigung m -sb:=9ut; +sb:=8ut; % geaendert von 9 auf 8 sbf:=0.35; % sb*sbf sbfh:=0.23; % dt*sbfh % vor lat. e, Steigung m'=1 m':=0.87; -sb':=9ut; +sb':=8ut; % geaendert von 9 auf 8 sbf':=sbf; sbfh':=0.28; % Oberschleife, Schnittpunkt bei (0,ht) % Steigung m -sb'':=9ut; +sb'':=8ut; % geaendert von 9 auf 8 sbf'':=0.35; % sb''*sbf'' sbfh'':=0.23; % dt*sbfh'' % Breite von "h" etc (breite=ht/kh) -kh:=1.66; +kh:=1.6; % kh geaendert von 1.66 auf 1.6 % Breite der Fahne bei r rfahne:=12ut; % Einrollmass @@ -63,6 +67,7 @@ sbreite:=6ut; me:=0.8; ebreite:=8ut; ef:=0.2; +ef':=0.25; % geaendert neu he:=ht/2-2eta; %Steigung im Beruehrpunkt mt:=m; @@ -70,27 +75,43 @@ mt:=m; s_kurzstrichbreite:=(Delta-ht+(ht))/m; %%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Parameter fuer Grossbuchstaben: +% Unterschleife: +Sb:=10ut; + Sbf:=0.35; + Sbfh:=0.23; + Sb':=10ut; + Sbf':=0.35; + Sbfh':=0.23; % Radius bei "Flanke" -R:=3.5ut; +R:=2ut;% % Abstand der Umlautstriche bei Grossbuchstaben: dumlaut:=5ut; % Breitenmasse: -Sporn:=D; % Horn bei B, D, etc. -sporn:=10ut; -Abreite:=25ut; -Bbreite:=20ut; +Breite:=20ut; % Breite von vielen Grossbuchstaben, typ. "H" +Sporn:=6ut; % Horn bei B, D, etc. +Sporn':=4ut; +sporn:=5ut; +Abreite:=30ut;% +Bbreite:=Breite; Bbreite':=15ut; % oberer Bauch -Hbreite:=17.5ut; -Nbreite:=18ut; -Lbreite:=22.5ut; -Obreite:=27.5ut; +Fdach:=Breite; +Fdach':=Fdach-dd-(Sporn-Sporn'); +Gbreite:=25ut; +Hbreite:=Breite; +Jbreite:=15ut; +Mbreite:=Abreite-5ut; +Nbreite:=Breite; +Lbreite:=25ut; +Obreite:=4a; +Dbreite:=Obreite; +Tbreite:=32ut; % Oval -A:=Obreite/2; B:=ht; +A:=Obreite/2; B:=Ht/2; %%%%%%%%%%%%%%%%%%%%%%%%%%%% % Parameter fuer Ziffern: -s':=Hz/8; % seitlicher Abstand +s':=5ut; % seitlicher Abstand w':= Wz-2s'; % effektive Breite der Ziffern -r:=w'/2; % Radius bei "2" +r:=(w'-dd)/2;% Radius bei "2" % Zeichen: hmath:=ht/2; hdash:=ht/2; @@ -98,14 +119,14 @@ hdash:=ht/2; skern#:=-6ut#; sskern#:=-7.5ut#; Bkern#:=-15ut#; -Dkern#:=-17.5ut#; -Ikern#:=-8.75ut#; -Nkern#:=-18ut#; -Okern#:=-13.75ut#; % auch Ö +Dkern#:=-16ut#; +Ikern#:=-10ut#; +Nkern#:=-25ut#; +Okern#:=-13.5ut#; % auch Ö Pkern#:=-15ut#; -Skern#:=-7.5ut#; -Tkern#:=-15ut#; -Vkern#:=-17.5ut#; % auch W +Skern#:=-9ut#; +Tkern#:=-16ut#; +Vkern#:=-20.278ut#; % auch W %%%%%%%%%%%%%% Makros %%%%% Kern:=0; @@ -147,7 +168,7 @@ def oval(expr sx)= xpos:=sx+2a-delta; enddef; - \def stock(expr sx)= + def stock(expr sx)= if not wortende: draw ((0,rho){down}..(rho,0){right}..tension2.5 and 4..{1,m}(2*rho+((ht)-Delta)/m,ht-Delta)) shifted (sx,0); xpos:=sx+2*rho+((ht)-Delta)/m; @@ -215,16 +236,16 @@ fi enddef; def Fahne= -fahne((0),ht-Delta,rho+((ht)-Delta)/m,0,angle(1,m),2,xpos); +fahne((0),ht-Delta,2rho+((ht)-Delta)/m,0,angle(1,m),2,xpos);% um rho verbreit. enddef; def Schulter= -bogen(ht/4,(ht),(5ht/6),ht/kh,0.8,90,-90,1.2,1,xpos); +bogen(ht/4,(ht),(5ht/6),ht/kh,0.75,90,-90,1.8,1,xpos); % geaendert neu enddef; - def fuss(expr sx)= - draw ((0,2rho)..{right}(2*rho,0)) shifted (sx,0); - xpos:=sx+2*rho; + def fuss(expr sx)= % 2rho --> a/2 + draw ((0,2rho)..{right}(a/2,0)) shifted (sx,0); + xpos:=sx+a/2; enddef; def kurzstrich(expr sx)= @@ -237,12 +258,6 @@ enddef; xpos:=sx+s_kurzstrichbreite; enddef; - def spitz(expr sx)= -% draw ((0,ht-Delta){1,m}..{up}(eta,ht)) shifted (sx,0); -% xpos:=sx+eta; - xpos:=sx; - enddef; - def ipunkt(expr sx)= draw ((0,dd)--(0,-dd)) shifted (sx,ht+dt/2); enddef; @@ -258,9 +273,9 @@ schweif((ht),ht/2,12.5ut,angle(1,-mfahne),0,1,sx); latin_e_lig(xpos); enddef; -def latin_e_form (expr sx)= - draw ((0,he){1,me}..(ebreite,ht-ebreite*ef){up}..(ebreite*(1-ef),ht){left}..(0,ht/2){down}..{right}(ebreite*(1-ef),0)) shifted (sx,0); - xpos:=sx+ebreite*(1-ef); +def latin_e_form (expr sx)= % geaendert + draw ((ebreite,ht-ebreite*ef'){up}..(ebreite*(1-ef'),ht){left}..tension0.9..(0,ht/2){down}..tension0.75..{right}(a/2,0)) shifted (sx,0); + xpos:=sx+a/2; % ebreite*(1-ef) -> a/2 enddef; % lat. e nach r @@ -270,52 +285,42 @@ latin_e_lig(xpos); enddef; def a_char= -oval(xpos); + myoval(xpos); % geaendert neu + dach(xpos); % geaendert neu stamm((ht),(rho),xpos); stock(xpos); enddef; def o_char= - oval(xpos); + myoval(xpos); % geaendert neu + achsel(xpos); % geaendert neu ohr; fahne((ht),ht-Delta,ofahne,angle(1,-mfahne),angle(1,m),1,xpos); enddef; def u_char= -spitz(xpos); usack; stamm((ht),(rho),xpos); stock(xpos); enddef; -def usack= - stamm((ht),ht/4,xpos); -bogen(ht/4,(0),(5ht/6),ht/kh,0.3,-90,90,1,1.2,xpos); +def usack= + stamm((ht),ht/2,xpos); +bogen(ht/2,(0),(0.625ht),ht/kh,0.25,-90,90,1.5,1.2,xpos); %geaendert enddef; def vsack= - stamm((ht),ht/4,xpos); - bogen(ht/4,(0),2ht/3,ht/kh,0.3,-90,90,1,1.3,xpos); - schweif(2ht/3,(ht),-einroll,90,180,2,xpos); + stamm((ht),ht/2,xpos); + bogen(ht/2,(0),0.75ht,ht/kh,0.25,-90,90,1.5,1.3,xpos); % geaendert + schweif(0.75ht,(ht),-einroll,90,180,2,xpos); 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; + def c_form (expr sx)= % geaendert +draw ((a,2b){left}..tension t..{down}(0,kl*b) ..tension 1.2..{right}(2a/4,0)) + shifted (sx-delta,0); +% dach(sx+2a-delta); % neu + draw ((0,ht){right}..(D,ht-dd)) shifted(sx+a-delta,0); + xpos:=sx+a/2-delta; enddef; def ohr= @@ -328,8 +333,8 @@ enddef; xpos:=sx+Delta+2*rho; enddef; - def s_form(expr sx)= - p:= ((0,ht){down}..(sbreite,sbreite){down}..(0,0){left}..(-sbreite+1ut,2ut)); + def s_form(expr sx)= % geandert (erster Punkt) + p:= ((0,ht){-1,-m}..tension 1 and 0.75..(sbreite,sbreite){down}..(0,0){left}..(-sbreite+1ut,2ut)); draw p shifted (sx,0); x0:=whatever;y0:=whatever; z0=(directionpoint(1,mt) of (reverse (subpath (1,2) of p))) shifted (sx,0); @@ -385,7 +390,7 @@ enddef; def Flanke(expr sp,bt,sx)= mA:=(Ht)/bt; - draw ((0,R)..(0.6sp,0){right}..tension1..{1,mA}(sp+R/mA,R)--(sp+bt,Ht)) shifted (sx,0); + draw ((0,1ut)..(0.5sp,0){right}..tension1.8 and 3.5..{1,mA}(sp+bt,Ht)) shifted (sx,0); xpos:=sx+sp+bt; enddef; @@ -404,8 +409,6 @@ def Bauch(expr bt,ha,hb,flach,sx)= xpos:=sx; enddef; - - def C_form (expr sx)= x1:=whatever;y1:=whatever; x2:=whatever;y2:=whatever; @@ -426,9 +429,10 @@ enddef; enddef; def A_char= - Flanke(sporn,Abreite,xpos); + Flanke(sporn,Abreite,xpos); + wA:=Sporn+Abreite*(ht+Delta+eta)/Ht; stamm((Ht),(0),xpos); - gerade((ht-Delta-eta),(ht-Delta-eta),22.5ut,xpos-22.5ut); + gerade((ht-Delta-eta),(ht-Delta-eta),wA,xpos-wA); % schweif((ht-Delta),(ht-Delta-eta),22.5ut,-45,0,1.8,xpos-22.5ut); fahne((ht-Delta-eta),ht-Delta,11ut,0,angle(1,m),2.5,xpos); enddef; @@ -439,28 +443,30 @@ enddef; mt:=0.1; oval(xpos+delta); a:=aalt;b:=balt; -tangente(10.5ut); + tangente(10.5ut); + Kern:=A; enddef; def U_char= V_kurzstrich(xpos); - stamm((Ht),ht/2,xpos); - bogen(ht/2,(0),ht,Hbreite,0.4,-90,90,1,1,xpos); + stamm((Ht),ht,xpos); + bogen(ht,(0),1.5ht,Hbreite,0.25,-90,90,1.5,1.2,xpos); stamm((Ht),(rho),xpos); stock(xpos); enddef; def S_form(expr sx)= - p:=((Bbreite'/2,Ht-D)..(0,Ht){left}..(-Bbreite'/2,ht+dt/2){down}..(Bbreite'/2,ht/2){down}..(0,0){left}..(-Bbreite'/2,D)); - draw p shifted (sx+Bbreite'/2,0); + p:=((Bbreite'/2-eta,Ht-dd)..(0,Ht){left}..(-Bbreite'/2-eta,ht+dt/2){down}..(Bbreite/2-eta,ht/2){down}..(0,0){left}..(-Bbreite/2-eta,D)); + draw p shifted (sx+Bbreite/2+eta,0); x0:=whatever; y0:=whatever; - z0 = (directionpoint (-1,-mt) of (subpath (3,4) of p)) shifted (sx+Bbreite'/2,0); - xpos:=sx+Bbreite'; + z0 = (directionpoint (-1,-mt) of (subpath (3,4) of p)) shifted (sx+Bbreite/2+eta,0); + xpos:=sx+Bbreite; + Kern:=Bbreite/2-eta; enddef; def latin_e_lig (expr sx)= - draw ((0,ht/2){right}..(ebreite,ht-ebreite*ef){up}..(ebreite*(1-ef),ht){left}..(0,ht/2){down}..{right}(ebreite*(1-ef),0)) shifted (sx,0); - xpos:=sx+ebreite*(1-ef); + draw ((0,ht/2){right}..(ebreite,ht-ebreite*ef){up}..(ebreite*(1-ef),ht){left}..(0,ht/2){down}..{right}(a/2,0)) shifted (sx,0); + xpos:=sx+a/2; % ebreite*(1-ef) --> a/2 enddef; def latin_eA (expr sx)= @@ -493,5 +499,45 @@ enddef; def quer(expr ha, sx)= draw ((-s+dd/2,0)--(s-dd/2,0)) shifted (sx,ha); + enddef; + +% Parameter fuer a-, o-Form +Sigma:=0.77; +kl:=1; +kr:=1.25; + +% Offenes 'Oval' fuer a, d, g, o, q (neu, Ersatz fuer oval) + def myoval(expr sx)= +draw ((a,2b){left}..tension t..{down}(0,kl*b) ..tension 1.2..(2a/4,0){right}..tension 1.2..{up}(2a,kr*b)) + shifted (sx-delta,0); +xpos:=sx+2a-delta; + enddef; + +% Dach fuer a, d, g, q (neu) + def dach(expr sx)= +draw ((0,2b-Delta)..{left}(-a,2b)) shifted (sx,0); + xpos:=sx; + enddef; + +% Achsel fuer o mit z1 fuer Schleife (neu) + def achsel(expr sx)= + p:=(0,kr*b){up} + ..(-a+a*Sigma,b+b*Sigma){-a,b}..{left}(-a,2b); + draw p shifted (sx,0); + x1:=whatever;y1:=whatever; + z1=(directionpoint (-1,mfahne) of p) shifted (sx,0); + xpos:=sx; enddef; + + def Uschl(expr sx)= +draw ((0,0){down}..tension 1.5..(-(1-Sbf)*Sb,-dt){left}..(-Sb,-dt*(1-Sbfh)){up}..tension1.5..{1,m}(0,0)) shifted (sx,0); +xpos:=sx; +enddef; + +def Uschl_e (expr sx) = + draw ((0,0){down}..tension 1.5..(-(1-Sbf')*Sb',-dt){left}..(-Sb',-dt*(1-Sbfh')){up}..tension1.5..{1,m'}(0,0)) shifted (sx,0); +xpos:=sx; + enddef; + + %%%%%%%%%%%%%%%%%%%%%% Ende Makros %%%%%%%%%%%%%%%%%%%%%%%%%%% |