diff options
Diffstat (limited to 'fonts/schulschriften/source/wesa/wesa14_gr.mf')
-rw-r--r-- | fonts/schulschriften/source/wesa/wesa14_gr.mf | 492 |
1 files changed, 492 insertions, 0 deletions
diff --git a/fonts/schulschriften/source/wesa/wesa14_gr.mf b/fonts/schulschriften/source/wesa/wesa14_gr.mf new file mode 100644 index 0000000000..c5fa6f221b --- /dev/null +++ b/fonts/schulschriften/source/wesa/wesa14_gr.mf @@ -0,0 +1,492 @@ +% Schulausgangsschrift (SAS) wesa +% Walter Entenmann +% 23.10.2011 +% 30.11.2014: modifiziert, Duktus +% + +% Grossbuchstaben +if not wortende: + beginchar("A",46ut#,Ht#,0); + else: +beginchar(oct"201",35ut#,Ht#,0); + fi +pickup wesa_pen; +xpos:=0; +A_char; +zeigen; +endchar; + +% Ligatur Ae + beginchar(oct"013",50.376ut#,Ht#,0); +pickup wesa_pen; +xpos:=0; +latin_eA(xpos); +zeigen; +endchar; + +if not wortende: + beginchar("B",35.438ut#,Ht#,0); + else: +beginchar(oct"202",26ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; + Horn(xpos); + stamm((Ht),(0),xpos); + Bauch(Bbreite',(Ht),ht+eta,D,xpos); + mt:=0.5; + Bauch(Bbreite,ht+eta,(0),D,xpos); + xpos:=Sporn+Bbreite; + tangente(D); + Kern:=Bbreite-D; +zeigen; +endchar; + +if not wortende: + beginchar("C",29.192ut#,Ht#,0); + else: +beginchar(oct"203",13.504ut#,Ht#,0); + fi + pickup wesa_pen; + xpos:=0; + C_form(xpos); + Fahne; +zeigen; +endchar; + +if not wortende: + beginchar("D",42.623ut#,Ht#,0); + else: +beginchar(oct"204",33.009ut#,Ht#,0); + fi + pickup wesa_pen; + xpos:=0; + Horn(xpos); + stamm((Ht),(0),xpos); + mt:=0.3; + Bauch(Dbreite,(Ht),(0),2D,xpos); + xpos:=Sporn+Dbreite; + tangente(11ut); + Kern:=Dbreite-2D; +zeigen; +endchar; + +if not wortende: + beginchar("E",29.188ut#,Ht#,0); + else: +beginchar(oct"205",12.5ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; + Bauch(-10ut,(Ht),(ht),0,xpos+12.5ut); + Bauch(-12.5ut,(ht),(0),0,xpos); + schweif((Ht),(Ht-dd),D,0,-45,0.8,xpos); + gerade((ht),(ht),dd,xpos-D); + fahne((0),ht-Delta,D+((ht)-Delta)/m,0,angle(1,m),1.5,xpos-dd); +zeigen; +endchar; + +if not wortende: + beginchar("F",24ut#,Ht#,0); + else: +beginchar(oct"206",20ut#,Ht#,0); + fi + pickup wesa_pen; + xpos:=0; +stamm((Ht),(0),xpos+Sporn); +gerade((Ht),(Ht),Fdach,xpos-Sporn); +% schweif((ht-Delta),(ht-Delta-eta),15ut,-45,0,1.8,xpos-20ut); + gerade((ht-Delta-eta),(ht-Delta-eta),Fdach',xpos-Fdach+Sporn-Sporn'); + fahne((ht-Delta-eta),ht-Delta,6.5ut,0,angle(1,m),1.5,xpos); + if wortende: + xpos:=Fdach; + fi + Kern:=Fdach-Sporn; +zeigen; +endchar; + +% Ligatur Fe +beginchar(oct"014",26.876ut#,Ht#,0); + pickup wesa_pen; + xpos:=0; + latin_eF(xpos); +zeigen; +endchar; + +if not wortende: + beginchar("G",36.688ut#,Ht#,dt#); + else: +beginchar(oct"207",25ut#,Ht#,dt#); + fi + pickup wesa_pen; +xpos:=0; +bogen((Ht-dd),(Ht),ht,-Gbreite,0.4,150,-90,1,1,xpos+Gbreite); +bogen(ht,(0),5ht/6,Gbreite,0.4,-90,90,1,1.2,xpos); +stamm((ht),0,xpos); +if not wortende: +Uschl(xpos); +strich(xpos); +else: + Uschl_e(xpos); + fi +zeigen; +endchar; + +if not wortende: + beginchar("H",37ut#,Ht#,0); + else: +beginchar(oct"210",26ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; +stamm((Ht),(0),xpos+Sporn); +% schweif((ht-Delta),(ht-Delta-eta),Hbreite+Sporn,-45,0,1.8,xpos-Sporn); + gerade((ht-Delta-eta),(ht-Delta-eta),Hbreite+Sporn,xpos-Sporn); + stamm((Ht),(0),xpos); + fahne((ht-Delta-eta),ht-Delta,11ut,0,angle(1,m),2.5,xpos); +zeigen; +endchar; + +% Ligatur He + beginchar(oct"015",37.876ut#,Ht#,0); + pickup wesa_pen; + xpos:=0; + latin_eH(xpos); +zeigen; +endchar; + +if not wortende: + beginchar("I",30.454ut#,Ht#,0); + else: +beginchar(oct"211",20ut#,Ht#,0); + fi + pickup wesa_pen; + xpos:=0; + gerade((Ht),(Ht),Hbreite,xpos); + stamm((Ht),10ut,xpos); + mt:=0.5; + bogen(10ut,(0),(dd),-Hbreite,0.5,-90,135,1,1,xpos); + xpos:=Hbreite; + tangente(D); + Kern:=Hbreite/2; +zeigen; +endchar; + +if not wortende: + beginchar("J",26.688ut#,Ht#,dt#); + else: +beginchar(oct"212",15ut#,Ht#,dt#); + fi +pickup wesa_pen; + xpos:=0; + gerade((Ht),(Ht),Jbreite,xpos); + stamm((Ht),0,xpos); +if not wortende: + Uschl(xpos); + strich(xpos); +else: + Uschl_e(xpos); + fi +zeigen; + endchar; + + if not wortende: + beginchar("K",34.894ut#,Ht#,0); + else: +beginchar(oct"213",19.206ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; +stamm((Ht),(0),xpos); + gerade((ht),(Ht),Hbreite,xpos+rt(0)); + schweif((ht),(0),Hbreite-2eta,angle(Hbreite-2eta,-ht),0,2,xpos-Hbreite+rt(0)); + Fahne; +zeigen; +endchar; + +if not wortende: + beginchar("L",40.688ut#,Ht#,0); + else: +beginchar(oct"214",25ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; + schweif((Ht-D),(Ht),-D-dd,125,180,1,xpos+Lbreite); + schweif((Ht),(0),-(Lbreite-D-dd),180,-150,1.5,xpos); + schweif((0),(0),Lbreite,30,0,1,xpos); + Fahne; +zeigen; +endchar; + +if not wortende: + beginchar("M",65.688ut#,Ht#,0); + else: +beginchar(oct"215",52ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; + Flanke(sporn,Mbreite,xpos); + stamm((Ht),(0),xpos); + gerade((0),(Ht),Nbreite,xpos); + stamm((Ht),(rho),xpos); + stock(xpos); +zeigen; +endchar; + +if not wortende: + beginchar("N",54.188ut#,Ht#,0); + else: +beginchar(oct"216",55ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; +Flanke(sporn,Mbreite,xpos); +stamm((Ht),(0),xpos); +mN:=Ht/(Nbreite); +gerade((0),Ht-10ut,(Ht-10ut)/mN,xpos); +bogen(Ht-10ut,(Ht),(Ht-eta/2),10ut/mN+D,0.75,angle(1,mN),-30,1.8,1,xpos); +if not wortende: + fahne((0),ht-Delta,2D+dd+((ht)-Delta)/m,10,angle(1,m),1,xpos-Nbreite-D); +fi +Kern:=Nbreite+D; +zeigen; +endchar; + +if not wortende: + beginchar("O",36.817ut#,Ht#,0); + else: +beginchar(oct"217",27.009ut#,Ht#,0); + fi + pickup wesa_pen; + xpos:=0; + O_char; % mit Kern + zeigen; +endchar; + +if not wortende: + beginchar("P",27.688ut#,Ht#,0); + else: +beginchar(oct"220",21ut#,Ht#,0); + fi + pickup wesa_pen; + xpos:=0; + Horn(xpos); + stamm((Ht),(0),xpos); + Bauch(Bbreite',(Ht),ht,D,xpos); + fahne((0),ht-Delta,10ut+((ht)-Delta)/m,10,angle(1,m),1,xpos); + if wortende: + xpos:=Sporn+Bbreite'; + fi + Kern:=Bbreite'; + zeigen; +endchar; + +if not wortende: + beginchar("Q",41.692ut#,Ht#,0); + else: +beginchar(oct"221",26.004ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; + aalt:=a;balt:=b; + a:=A; b:=B; + mt:=0.5; + oval(xpos+delta); + a:=aalt;b:=balt; + schweif((s),(0),12.5ut,angle(1,-0.75),0,1.5,xpos-A); + Fahne; +zeigen; +endchar; + +if not wortende: + beginchar("R",39.291ut#,Ht#,0); + else: +beginchar(oct"222",23.603ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; +Horn(xpos); + stamm((Ht),(0),xpos); + Bauch(Bbreite',(Ht),ht,D,xpos); + schweif(ht,(0),Bbreite'+2eta,angle(Bbreite',-ht),0,2,xpos+rt(0)); + Fahne; +zeigen; +endchar; + +if not wortende: + beginchar("S",30.820ut#,Ht#,0); + else: +beginchar(oct"223",20ut#,Ht#,0); + fi + pickup wesa_pen; + xpos:=0; + mt:=0.5; + S_form(xpos); % mit Kern + tangente(D); +zeigen; +endchar; + +if not wortende: + beginchar("T",33.833ut#,Ht#,0); + else: +beginchar(oct"224",32ut#,Ht#,0); + fi + pickup wesa_pen; + xpos:=0; + stamm((Ht),(0),xpos+Tbreite/2); + gerade((Ht),(Ht),Tbreite,xpos-Tbreite/2); + if not wortende: + fahne((0),ht-Delta,2ut+dd+ht/m,10,angle(1,m),2,xpos-Tbreite/2); + fi + Kern:=Tbreite/2; +zeigen; +endchar; + +if not wortende: + beginchar("U",39.021ut#,Ht#,0); + else: +beginchar(oct"225",25.333ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; +U_char; +zeigen; +endchar; + +if not wortende: + beginchar("V",33.349ut#,Ht#,0); + else: +beginchar(oct"226",28.611ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; + V_kurzstrich(xpos); + stamm((Ht),ht/2,xpos); + mt:=0.1; + bogen(ht,(0),ht+dt/2,Hbreite,0.25,-90,90,1.5,1.2,xpos); + xtmp:=x0;ytmp:=y0; + schweif(ht+dt/2,(Ht),-einroll,90,180,2,xpos); + schweif((Ht),(Ht),s,angle(1,-mfahne),angle(1,2),1,xpos); + if wortende: + Kern:=xpos-D/m-0.25Hbreite; + fi + x0:=whatever; y0:=whatever; + z0=(xtmp,ytmp); + tangente(s+D); +zeigen; +endchar; + +if not wortende: + beginchar("W",53.349ut#,Ht#,0); + else: +beginchar(oct"227",48.611ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; + V_kurzstrich(xpos); + stamm((Ht),ht/2,xpos); + bogen(ht,(0),1.5ht,Hbreite,0.25,-90,90,1.5,1.2,xpos); + stamm((Ht),ht,xpos); + mt:=0.1; + bogen(ht,(0),ht+dt/2,Hbreite,0.25,-90,90,1.5,1.2,xpos); + xtmp:=x0;ytmp:=y0; + schweif(ht+dt/2,(Ht),-einroll,90,180,2,xpos); + schweif((Ht),(Ht),s,angle(1,-mfahne),angle(1,2),1,xpos); + if wortende: + Kern:=xpos-D/m-0.25Hbreite-Hbreite; + fi + x0:=whatever; y0:=whatever; + z0=(xtmp,ytmp); + tangente(s+D); +zeigen; +endchar; + +if not wortende: + beginchar("X",40.688ut#,Ht#,0); + else: +beginchar(oct"230",25ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; +gerade((0),(Ht),Hbreite+D,xpos); +schweif((Ht),(0),Hbreite,angle(Hbreite-eta,-Ht),0,3.5,xpos-Hbreite); +Fahne; +zeigen; +endchar; + +if not wortende: + beginchar("Y",35.021ut#,Ht#,dt#); + else: +beginchar(oct"231",23.333ut#,Ht#,dt#); + fi + pickup wesa_pen; + xpos:=0; + V_kurzstrich(xpos); + stamm((Ht),ht,xpos); + bogen(ht,(0),1.5ht,Hbreite,0.25,-90,90,1.5,1.2,xpos); + stamm((Ht),0,xpos); + if not wortende: + Uschl(xpos); + strich(xpos); + else: + Uschl_e(xpos); + fi +zeigen; +endchar; + +if not wortende: + beginchar("Z",40.688ut#,Ht#,0); + else: +beginchar(oct"232",25ut#,Ht#,0); + fi + pickup wesa_pen; +xpos:=0; + gerade((Ht),(Ht),Lbreite,xpos); + gerade((Ht),(0),-Lbreite,xpos); + schweif((0),(0),Lbreite,30,0,1,xpos); + Fahne; +zeigen; +endchar; + +% Umlaute +%\"A +if not wortende: + beginchar(oct"304",46ut#,80ut#,0); + else: +beginchar(oct"233",35ut#,42.5ut#,0); + fi + pickup wesa_pen; + xpos:=0; + Umlaut(sporn+Abreite,xpos); + A_char; + zeigen; +endchar; + +%\"O +if not wortende: + beginchar(oct"326",36.817ut#,80ut#,0); + else: +beginchar(oct"234",27.009ut#,42.5ut#,0); + fi + pickup wesa_pen; + xpos:=0; + Umlaut(A,xpos); + O_char; + zeigen; +endchar; + +% +%\"U +if not wortende: + beginchar(oct"334",39.021ut#,42.5ut#,0); + else: +beginchar(oct"235",25.333ut#,80ut#,0); + fi + pickup wesa_pen; + xpos:=0; + Umlaut(D/m+Hbreite/2,xpos); + U_char; + zeigen; +endchar; + +%%%%%%%%%%%%% File-Ende %%%%%%%%%%%%%% |