summaryrefslogtreecommitdiff
path: root/fonts/schulschriften/source/wesa/wesa14_gr.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/schulschriften/source/wesa/wesa14_gr.mf')
-rw-r--r--fonts/schulschriften/source/wesa/wesa14_gr.mf492
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 %%%%%%%%%%%%%%