summaryrefslogtreecommitdiff
path: root/fonts/schulschriften/source/wedn/wedn14_gr.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/schulschriften/source/wedn/wedn14_gr.mf')
-rw-r--r--fonts/schulschriften/source/wedn/wedn14_gr.mf467
1 files changed, 467 insertions, 0 deletions
diff --git a/fonts/schulschriften/source/wedn/wedn14_gr.mf b/fonts/schulschriften/source/wedn/wedn14_gr.mf
new file mode 100644
index 0000000000..221764e79c
--- /dev/null
+++ b/fonts/schulschriften/source/wedn/wedn14_gr.mf
@@ -0,0 +1,467 @@
+% Deutsche Normalschrift (DN) wedn
+% Walter Entenmann
+% 12.10.2010
+% 21.09.2011
+%
+% Grossbuchstaben
+if not wortende:
+ beginchar("A",59.669ut#,Ht#,0);
+ else:
+beginchar(oct"201",40ut#,Ht#,0);
+ fi
+pickup wedn_pen;
+xpos:=0;
+A_char;
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("B",52.981ut#,Ht#,0);
+ else:
+beginchar(oct"202",40ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Stamm(xpos);
+Haube(xpos);
+schweif(ht+s,ht-D,-2*ht/3+D,-90,-180,1.1,xpos);
+schlinge_links(ht-dd,D,D-eta,xpos);
+schweif(ht,ht/2,7U,0,-90,1.1,xpos);
+bogen (ht/2,0,dd,-3*ht/4,0.6,-90,135,1,1,xpos);
+xpos:=16U; % max. Breite
+tangente(dd);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("C",48.661ut#,Ht#,0);
+ else:
+beginchar(oct"203",26.493ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+Oschl(sporn, Sb, xpos);
+schweif(ht,0,Sb*(1-Sbf)-dd,-90,0,1,xpos);
+fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("D",47.474ut#,Ht#,0);
+ else:
+beginchar(oct"204",35ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ schweif(Ht,Ht-R-dd,-D,-135,-90,1,xpos+2*ht/3);
+stamm(Ht-R-dd,R+dd,xpos);
+schweif(R+dd,0,-R,-90,180,1,xpos);
+schlinge_links(dd,D,D,xpos);
+schweif(D,0,7U,0,0,1,xpos);
+xpos:=0;
+HaubeD(xpos);
+xpos:=14U; % max Breite
+tangente(dd);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("E",39.669ut#,Ht#,0);
+ else:
+beginchar(oct"205",15ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+E_form(xpos);
+fahne(0,ht-Delta,s+(ht-Delta)/m,0,angle(1,m),2,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("F",45.492ut#,Ht#,0);
+ else:
+beginchar(oct"206",40ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ Dach(xpos);
+ mt:=0.1;
+Stamm(xpos);
+quer(ht-Delta,xpos);
+xpos:=16U; % max. Breite
+tangente(ht/2+D);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("G",57.169ut#,Ht#,dt#);
+ else:
+beginchar(oct"207",40ut#,Ht#,dt#);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Oschl(sporn, Sb, xpos);
+bogen(ht,0,0.75*ht,Sb+D,0.45,-90,90,1,1,xpos);
+stamm(ht,0,xpos);
+if not wortende:
+uschl(xpos);
+strich(xpos);
+else:
+ uschl_e(xpos);
+ fi
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("H",66.919ut#,Ht#,0);
+ else:
+beginchar(oct"210",44.750ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+schwalbe;
+draw (p rotated 180) shifted (ht,Ht);
+schweif(Ht,Ht-R,-D,-135,-90,1,xpos+ht);
+stamm(Ht-R,R,xpos);
+S_kurve(xpos+D);
+stamm(Ht-R,R,xpos);
+schweif(R,0,Hbreite*(1-Hfx),-90,0,1,xpos);
+fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("I",40.722ut#,Ht#,0);
+ else:
+beginchar(oct"211",30ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+Schwalbe;
+draw (p rotated 180) shifted (ht,Ht);
+schweif(Ht,Ht-R,-D,-135,-90,1,xpos+ht);
+stamm(Ht-R,R+D,xpos);
+bogen(R+D,0,D,-10U,0.5,-90,135,1,1,xpos);
+xpos:=ht; % max Breite
+tangente(D);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("J",42.169ut#,Ht#,dt#);
+ else:
+beginchar(oct"212",25ut#,Ht#,dt#);
+ fi
+pickup wedn_pen;
+ xpos:=0;
+Schwalbe;
+draw (p rotated 180) shifted (ht,Ht);
+schweif(Ht,Ht-R,-D,-135,-90,1,xpos+ht);
+stamm(Ht-R,0,xpos);
+if not wortende:
+uschl(xpos);
+strich(xpos);
+else:
+ uschl_e(xpos);
+ fi
+zeigen;
+ endchar;
+
+ if not wortende:
+ beginchar("K",73.169ut#,Ht#,0);
+ else:
+beginchar(oct"213",51ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Schwalbe;
+draw (p rotated 180) shifted (ht,Ht);
+schweif(Ht,Ht-R,-D,-135,-90,1,xpos+ht);
+stamm(Ht-R,R+D,xpos);
+bogen(R+D,0,D,-10U,0.5,-90,135,1,1,xpos);
+xpos:=xpos+ht+eta;
+schlinge_links(ht-ht/15,2*ht/15,D,xpos);
+xpos:=xpos+10U;
+bogen(Ht-eta,Ht,ht-2*ht/15,-10U,0.15,150,180,1,1.5,xpos);
+schweif(ht,0,8U,0,0,1.5,xpos);
+fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("L",49.669ut#,Ht#,0);
+ else:
+beginchar(oct"214",27.5ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Oschl(spornL,SbL, xpos);
+stamm(ht,R+dd,xpos);
+schweif(R+dd,0,-R,-90,180,1,xpos);
+schlinge_links(3*eta,6*eta,D,xpos);
+schweif(6*eta,0,3*ht/4,0,0,1.5,xpos);
+fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("M",82.169ut#,Ht#,0);
+ else:
+beginchar(oct"215",60ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Flanke(spornM,Mbreite,0,xpos);
+stamm(Ht,0,xpos);
+schweif(0,Ht,2*ht/3,90,45,1,xpos);
+schweif(Ht,0,0,-135,0,2,xpos);
+fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("N",74.669ut#,Ht#,0);
+ else:
+beginchar(oct"216",70ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Flanke(spornM,Mbreite,0,xpos);
+stamm(Ht,0,xpos);
+gerade(0,Ht-R,(Ht-R)/mA,xpos);
+bogen(Ht-R,Ht,Ht-eta,R/mA+ht/3,0.65,angle(1,mA),-30,1,1,xpos);
+xtmp:=xpos;% max Breite
+mt:=0.5;
+x0:=whatever; y0:=whatever;
+z0=(xtmp-(Ht-R)/mA-(R/mA+ht/3),0);
+xpos:=xtmp;
+tangente(ht/2+dd);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("O",47.703ut#,Ht#,0);
+ else:
+beginchar(oct"217",35ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ O_char;
+ zeigen;
+endchar;
+
+if not wortende:
+ beginchar("P",45.492ut#,Ht#,0);
+ else:
+beginchar(oct"220",37.5ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ mt:=0.1;
+ Stamm(xpos);
+ xtmp:=x0; ytmp:=y0;
+ Haube(xpos);
+ schweif(ht+s,ht,-dd,-90,-135,1,xpos);
+ xpos:=15U; % max Breite
+ x0:=whatever; y0:=whatever;
+ z0=(xtmp,ytmp);
+ tangente(8U);
+ zeigen;
+endchar;
+
+if not wortende:
+ beginchar("Q",59.669ut#,Ht#,0);
+ else:
+beginchar(oct"221",37.500ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Oval(xpos);
+schweif(D,0,10U,30,0,1,xpos-A-D);
+fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("R",64.669ut#,Ht#,0);
+ else:
+beginchar(oct"222",42.500ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Stamm(xpos);
+Haube(xpos);
+schweif(ht+s,ht-D,-2*ht/3+D,-90,-180,1,xpos);
+schlinge_links(ht-dd,D,D-eta,xpos);
+schweif(ht,0,2*ht/3,0,0,1.5,xpos);
+fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("S",44.885ut#,Ht#,0);
+ else:
+beginchar(oct"223",32.500ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ S_form(xpos);
+ xpos:=13U; % max Breite
+tangente(dd);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("T",45.492ut#,Ht#,0);
+ else:
+beginchar(oct"224",40ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ Dach(xpos);
+ mt:=0.1;
+ Stamm(xpos);
+ xpos:=16U; % max Breite
+tangente(ht/2+D);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("U",60.221ut#,Ht#,0);
+ else:
+beginchar(oct"225",39.553ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+U_char;
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("V",51.142ut#,Ht#,0);
+ else:
+beginchar(oct"226",43.553ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+bogen(ht,Ht,ht,ht/2,0.5,90,-90,1,1,xpos);
+stamm(ht,R+D,xpos);
+bogen(R+D,0,ht,2*a,0.4,-90,90,1,1,xpos);
+schweif(ht,Ht,-D,90,180,2,xpos);
+V_ohr(xpos);
+tangente(D);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("W",72.195ut#,Ht#,0);
+ else:
+beginchar(oct"227",64.605ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+bogen(ht,Ht,ht,ht/2,0.5,90,-90,1,1,xpos);
+stamm(ht,R+D,xpos);
+bogen(R+D,0,2*ht/3,2*a,0.4,-90,90,1,1,xpos);
+stamm(Ht,R+D,xpos);
+bogen(R+D,0,ht,2*a,0.4,-90,90,1,1,xpos);
+schweif(ht,Ht,-D,90,180,2,xpos);
+V_ohr(xpos);
+tangente(D);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("X",68.170ut#,Ht#,0);
+ else:
+beginchar(oct"230",41.002ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+quer(ht-Delta,xpos+(1+sigma)*X);
+X_form(xpos);
+fahne(0,ht-Delta,R+(ht-Delta)/m,0,angle(1,m),1.5,xpos);
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("Y",53.221ut#,Ht#,dt#);
+ else:
+beginchar(oct"231",36.053ut#,Ht#,dt#);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+bogen(ht,Ht,ht,ht/2,0.5,90,-90,1,1,xpos);
+stamm(ht,R+D,xpos);
+bogen(R+D,0,2*ht/3,2*a,0.4,-90,90,1,1,xpos);
+stamm(Ht,0,xpos);
+if not wortende:
+uschl(xpos);
+strich(xpos);
+else:
+ uschl_e(xpos);
+ fi
+zeigen;
+endchar;
+
+if not wortende:
+ beginchar("Z",52.169ut#,Ht#,0);
+ else:
+beginchar(oct"232",30ut#,Ht#,0);
+ fi
+ pickup wedn_pen;
+xpos:=0;
+Schwalbe;
+draw (p rotated 180) scaled ((ht+dd)/ht) shifted (ht+dd,Ht);
+xpos:=xpos+ht+dd;
+quer(ht-Delta,xpos-(dt+Delta)/2);
+gerade(Ht,R,-(Ht-R)/2,xpos);
+schweif(R,0,-s,angle(-1,-2),180,1.5,xpos);
+schlinge_links(s/2,s,D,xpos);
+schweif(s,0,10U,0,0,1.2,xpos);
+fahne(0,ht-Delta,D+(ht-Delta)/m,0,angle(1,m),2.5,xpos);
+zeigen;
+endchar;
+
+% Umlaute
+%\"A
+if not wortende:
+ beginchar(oct"304",60.669ut#,80ut#,0);
+ else:
+beginchar(oct"233",40ut#,42.5ut#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ Umlaut(spornA+Abreite-dd,xpos);
+ A_char;
+ zeigen;
+endchar;
+
+%\"O
+if not wortende:
+ beginchar(oct"326",47.703ut#,80ut#,0);
+ else:
+beginchar(oct"234",35ut#,42.5ut#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ Umlaut(A-dd,xpos);
+ O_char;
+ zeigen;
+endchar;
+
+%
+%\"U
+if not wortende:
+ beginchar(oct"334",60.221ut#,42.5ut#,0);
+ else:
+beginchar(oct"235",39.553ut#,80ut#,0);
+ fi
+ pickup wedn_pen;
+ xpos:=0;
+ Umlaut(ht/2+a-dd,xpos);
+ U_char;
+ zeigen;
+endchar;
+
+%%%%%%%%%%%%% File-Ende %%%%%%%%%%%%%%