summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_def.mf
diff options
context:
space:
mode:
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.mf230
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 %%%%%%%%%%%%%%%%%%%%%%%%%%%