summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/schulschriften/wedn14_sz.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/schulschriften/wedn14_sz.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/schulschriften/wedn14_sz.mf459
1 files changed, 225 insertions, 234 deletions
diff --git a/Master/texmf-dist/fonts/source/public/schulschriften/wedn14_sz.mf b/Master/texmf-dist/fonts/source/public/schulschriften/wedn14_sz.mf
index 0f8213182e5..f2f886cc143 100644
--- a/Master/texmf-dist/fonts/source/public/schulschriften/wedn14_sz.mf
+++ b/Master/texmf-dist/fonts/source/public/schulschriften/wedn14_sz.mf
@@ -4,8 +4,233 @@
% 21.09.2011
% 07.10.2011: e-Problem
% 22.11.2011: Verbindung zu spitzen Buchstaben
+% 14.11.2014: einheitliche Sonderzeichen $,%,&,...
%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% #
+beginchar("#",50ut#,Ht#,0);
+ pickup wedn_pen;
+ p:=(0,0)--(0,Ht);
+ draw p slanted 0.176 shifted (15ut,0);
+ draw p slanted 0.176 shifted (30ut,0);
+ q:=((0,0)--(35ut,0)) shifted (5ut,0);
+ draw q shifted(0,Ht/3) slanted 0.176;
+ draw q shifted(0,2Ht/3) slanted 0.176;
+endchar;
+
+% §
+ beginchar(oct"237",43.333ut#,Ht#,dt#);
+ pickup wedn_pen;
+sep:=10ut; breit:=20ut;
+p := ((8ut,20ut){curl 10}..(0ut,30ut){left}..(-breit/2,22ut){down}..
+ (breit/2,-2.5ut){down}..{-1,2/3}(2ut,-11ut)) scaled ((Ht+dt)/60ut);
+ draw p shifted (sep+breit*0.583,ht/2);
+ draw p rotated 180 shifted (sep+breit*0.583,ht/2);
+ endchar;
+
+% *
+beginchar("*",30ut#,Ht#,0);
+ pickup wedn_pen;
+ p:= (-dt/2,0)--(dt/2,0);
+ draw p rotated 90 shifted (15ut,ht+dt/2);
+ draw p rotated 30 shifted (15ut,ht+dt/2);
+ draw p rotated -30 shifted (15ut,ht+dt/2);
+endchar;
+
+% Prozentzeichen (%)
+beginchar("%",50ut#,Ht#,0);
+ pickup wedn_pen;
+ q := (-23.6ut,0)--(23.6ut,0);
+ breit:=12.5ut;hoch:=17.5ut;
+ p := (breit/2,0){up}..(0,hoch/2){left}..(-breit/2,0){down}..(0,-hoch/2){right}..{up}(breit/2,0);
+ x0:=whatever;y0:=whatever;
+ z0=(directionpoint (-1,2) of (subpath (0,1) of p)) shifted (7.5ut+breit/2,40ut-hoch/2);
+ draw (p shifted (7.5ut+breit/2,40ut-hoch/2)) scaled1.25;
+ draw (p shifted (7.5ut+25ut-breit/2,hoch/2)) scaled1.25;
+ draw( q rotated 58 shifted (20ut,20ut)) scaled1.25;
+ draw (z0{1,-2}..{dir 58}(7.5ut+25ut,40ut)) scaled1.25;
+endchar;
+
+% &
+ beginchar("&",50ut#,Ht#,0);
+ pickup wedn_pen;
+ p := ((22.5ut,12.5ut)..tension 1.2..(7.5ut,0){left}..(0,8ut){up}..
+ %(8.167ut,21ut){3,2}..
+ tension 1.2..(17ut,34.5ut){up}..(11.5ut,40ut){left}..(4ut,30ut){down}..{2,-3}(8.167ut,21ut)--(22.5ut,0)) scaled 1.25;
+ draw p shifted (5ut,0);
+ endchar;
+
+% $
+beginchar("$",30ut#,Ht#,0);
+ pickup wedn_pen;
+ draw (halfcircle xscaled 20ut yscaled 20ut shifted (15ut,30ut)) scaled 1.25;
+ draw ((halfcircle rotated 180 xscaled 20ut yscaled 20ut) shifted (15ut,10ut)) scaled 1.25;
+ draw (((-10ut,10ut){down}..{down}(10ut,-10ut)) shifted (15ut,20ut)) scaled 1.25;
+ draw (((0,20ut+2.5ut)--(0,-20ut-2.5ut)) shifted (15ut,20ut)) scaled 1.25;
+endchar;
+
+% "+"
+beginchar("+",30ut#,22.5ut#,0);
+ path p;
+ pickup wedn_pen;
+ z0=(15ut,hmath);
+ z1=(0ut,10ut);
+ z2=(0ut,-10ut);
+ p := z1--z2;
+ draw p shifted z0 ;
+ draw p rotated 90 shifted z0 ;
+ labels(range 0 thru 2);
+endchar;
+
+% ASCII Bindestrich oct"055" (OT1: auch Trennstrich)
+beginchar("-",27.5ut#,ht#,0);
+ pickup wedn_pen;
+ draw ((0,0)--(12.5ut,0)) shifted (7.5ut,hdash);
+endchar;
+
+% T1: Trennstrich
+beginchar(oct"177",27.5ut#,ht#,0);
+ pickup wedn_pen;
+ draw ((0,0)--(12.5ut,0)) shifted (7.5ut,hdash);
+endchar;
+
+% "/"
+beginchar("/",25ut#,Ht#,0);
+ pickup wedn_pen;
+draw ((5ut,0)--(20ut,Ht));
+endchar;
+
+% ">"
+beginchar(">",30ut#,Ht#,0);
+ path p;
+ pickup wedn_pen;
+p:=(0,0)--(20ut,0);
+draw p rotated 30 shifted (6.33ut,hmath);
+ draw p rotated -30 shifted (6.33ut,hmath);
+endchar;
+
+% "="
+beginchar("=",30ut#,ht#,0);
+ pickup wedn_pen;
+ draw((0,0)--(20ut,0)) shifted (5ut,hmath-2.5ut);
+ draw((0,0)--(20ut,0)) shifted (5ut,hmath+2.5ut);
+endchar;
+
+% "<"
+beginchar("<",30ut#,Ht#,0);
+ path p;
+ pickup wedn_pen;
+p:=(0,0)--(-20ut,0);
+draw p rotated 30 shifted (23.66ut,hmath);
+ draw p rotated -30 shifted (23.66ut,hmath);
+endchar;
+
+% oct"025" Bis-Strich --, Gedankenstrich
+beginchar(oct"025",30ut#,ht#,0);
+ pickup wedn_pen;
+draw ((0,0)--(20ut,0)) shifted (5ut,hdash);
+endchar;
+
+% engl. Gedankenstrich ---
+beginchar(oct"026",45ut#,ht#,0);
+ pickup wedn_pen;
+draw ((0,0)--(30ut,0)) shifted (7.5ut,hdash);
+endchar;
+
+% oct"023" franz. Anfz. <<
+beginchar(oct"023",32.5ut#,ht#,0);
+ path p, q;
+ pickup wedn_pen;
+ z1=(0ut,0ut);
+ z2=(1.1*ht/2,0);
+ z3=(6,-1);
+ z4=(6,1);
+ z5=(7.5ut,ht/2);
+z6=(15ut,ht/2);
+ p := (z1{z3}..z2) rotated 45;
+ q := (z1{z4}..z2) rotated -45;
+ draw p shifted z5 ;
+ draw p shifted z6 ;
+ draw q shifted z5 ;
+ draw q shifted z6 ;
+ labels(range 1 thru 6);
+endchar;
+
+% oct"024" franz. Anfz. >>
+beginchar(oct"024",32.5ut#,ht#,0);
+ path p, q;
+ pickup wedn_pen;
+ z1=(0ut,0ut);
+ z2=(1.1*ht/2,0);
+ z3=(6,-1);
+ z4=(6,1);
+ z5=(17.5ut,ht/2);
+ z6=(25ut,ht/2);
+
+ p := (z1{z4}..z2) rotated 135;
+ q := (z1{z3}..z2) rotated -135;
+ draw p shifted z5 ;
+ draw p shifted z6 ;
+ draw q shifted z5 ;
+ draw q shifted z6 ;
+ labels(range 1 thru 6);
+endchar;
+
+% oct"016" franz. Anfz. <
+beginchar(oct"016",25ut#,ht#,0);
+ path p, q;
+ pickup wedn_pen;
+ z1=(0ut,0ut);
+ z2=(1.1*ht/2,0);
+ z3=(6,-1);
+ z4=(6,1);
+ z5=(7.5ut,ht/2);
+ p := (z1{z3}..z2) rotated 45;
+ q := (z1{z4}..z2) rotated -45;
+ draw p shifted z5 ;
+ draw q shifted z5 ;
+ labels(range 1 thru 5);
+endchar;
+
+% oct"017" franz. Anfz. >
+beginchar(oct"017",25ut#,ht#,0);
+ path p, q;
+ pickup wedn_pen;
+ z1=(0ut,0ut);
+ z2=(1.1*ht/2,0);
+ z3=(6,-1);
+ z4=(6,1);
+ z5=(17.5ut,ht/2);
+ p := (z1{z4}..z2) rotated 135;
+ q := (z1{z3}..z2) rotated -135;
+ draw p shifted z5 ;
+ draw q shifted z5 ;
+ labels(range 1 thru 5);
+endchar;
+
+% "@":
+beginchar("@",50ut#,Ht#,0);
+ pickup wedn_pen;
+sep:=10ut;gap:=8ut;
+draw ((superellipse((dt/(2k),0),(0,dt/2),(-dt/(2k),0),(0,-dt/2),sigma)) shifted (gap+dt/(2k)+sep,dt)) xscaled1.1 yscaled1.25;
+draw (((0,dt)--(0,5ut){down}..(2ut,0){right}..tension 1.5..(gap,dt/2){up}..
+ (-dt/(2k),3dt/2){left}..(-2*dt/(2k)-gap,dt/2){down}..
+ (-dt/(2k),-dt/2){right}..(7.5ut,-5ut)) shifted (2*dt/(2k)+gap+sep,dt/2)) xscaled1.1 yscaled1.25;
+endchar;
+
+% Euro (\symbol{160})
+beginchar(oct"240",60ut#,Ht#,0);
+ pickup wedn_pen;
+ sep:=7.5ut; gap:=7.5ut;
+ draw ((halfcircle rotated 90) xscaled 30ut yscaled 40ut shifted (15ut+gap+sep,20ut)) scaled1.25;
+ draw (((0,0){right}..(7.5ut,-3ut)) shifted (15ut+gap+sep,40ut)) scaled1.25;
+ draw (((0,0){right}..(7.5ut,3ut)) shifted (15ut+gap+sep,0)) scaled1.25;
+ draw ((((-25ut,2.5ut)--(0,2.5ut)) shifted (15ut+gap+sep,20ut)) slanted 0.25) scaled1.25;
+ draw ((((-25ut,-2.5ut)--(0,-2.5ut)) shifted (15ut+gap+sep,20ut)) slanted 0.25) scaled1.25;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
% Aufstrich am Wortanfang bei spitzen Buchstaben i j p u ü, nicht t
beginchar(oct"030",6ut#,ht#,0);
pickup wedn_pen;
@@ -231,68 +456,12 @@ beginchar(oct"042",25ut#,Ht#,0);
komma(Ht,15ut);
endchar;
-% #
-beginchar("#",80ut#,Ht#,dt#);
- pickup wedn_pen;
-sep:=17.5ut; gap:=10ut;
-p:= ((0,(Ht+dt)/2)--(0,-(Ht+dt)/2));
-draw p shifted (sep+ht/2,ht/2) slanted 1/6;
-draw p shifted (sep+ht/2+gap,ht/2) slanted 1/6;
-q:= ((-Ht/2,0)--(Ht/2,0));
- draw q shifted (sep+ht/2+gap/2,-gap/2+ht/2) slanted 1/6 ;
- draw q shifted (sep+ht/2+gap/2,gap/2+ht/2) slanted 1/6;
-endchar;
-
-% $
-beginchar("$",55ut#,Ht#,0);
- pickup wedn_pen;
-sep:=15ut; radi:=Ht/4;
- draw halfcircle scaled (2*radi) shifted (sep+radi,Ht-radi);
- draw (halfcircle rotated 180 scaled (2*radi)) shifted (sep+radi,radi);
- draw ((-radi,Ht-radi){down}..{down}(radi,radi)) shifted (sep+radi,0);
- draw ((0,Ht+dd)--(0,-dd)) shifted (sep+radi,0);
-endchar;
-
-% %
-beginchar("%",45ut#,Ht#,0);
- pickup wedn_pen;
-sep:=10ut;
- q := ((0,0)--(Ht*xpart(dir 60),Ht));
- breit:=12.5ut; hoch:=17.5ut;
- p := (breit/2,0){up}..(0,hoch/2){left}..(-breit/2,0){down}..(0,-hoch/2){right}..{up}(breit/2,0);
- x0:=whatever;y0:=whatever;
- z0=(directionpoint (-1,2) of (subpath (0,1) of p)) shifted (sep+breit/2,Ht-hoch/2);
- draw p shifted (sep+breit/2,Ht-hoch/2);
- draw p shifted (sep+Ht*xpart(dir 60)-breit/2,hoch/2);
- draw q shifted (sep,0);
- draw z0{1,-2}..{dir 58}(sep+Ht*xpart(dir 60),Ht);
- endchar;
-
-% &
- beginchar("&",40ut#,Ht#,0);
- pickup wedn_pen;
- p := (25ut,30ut){down}..tension 1.2..(7.5ut,0){left}..(-3ut,13ut){up}..
-(17ut,42.5ut){up}..(11ut,Ht){left}..(4ut,42.5ut){down}..tension1.5 and 5..{right}(22.5ut,0)..{1,2}(28ut,5ut);
- draw p shifted (10ut,0);
- endchar;
-
-% §
- beginchar(oct"237",43.333ut#,Ht#,dt#);
- pickup wedn_pen;
-sep:=10ut; breit:=20ut;
-p := ((8ut,20ut){curl 10}..(0ut,30ut){left}..(-breit/2,22ut){down}..
- (breit/2,-2.5ut){down}..{-1,2/3}(2ut,-11ut)) scaled ((Ht+dt)/60ut);
- draw p shifted (sep+breit*0.583,ht/2);
- draw p rotated 180 shifted (sep+breit*0.583,ht/2);
- endchar;
-
% ' (Apostroph)
beginchar("'",20ut#,Ht#,0);
pickup wedn_pen;
komma(Ht,10ut);
endchar;
-
% "("
beginchar("(",27.5ut#,Ht#,dt#);
pickup wedn_pen;
@@ -305,63 +474,18 @@ beginchar(")",27.5ut#,Ht#,dt#);
draw ((-7.5ut,Ht)..(0,ht/2){down}..(-7.5ut,-dt)) shifted (17.5ut,0);
endchar;
-% "*"
-beginchar("*",30ut#,Ht#,0);
- path p;
- pickup wedn_pen;
- z0=(15ut,ht+dt/4);
- z1=(0ut,7.5ut);
- z2=(0ut,-7.5ut);
- p := z1--z2;
- draw p shifted z0 ;
- draw p rotated 60 shifted z0 ;
- draw p rotated -60 shifted z0 ;
- labels(range 0 thru 2);
-endchar;
-
-% "+"
-beginchar("+",30ut#,22.5ut#,0);
- path p;
- pickup wedn_pen;
- z0=(15ut,hmath);
- z1=(0ut,10ut);
- z2=(0ut,-10ut);
- p := z1--z2;
- draw p shifted z0 ;
- draw p rotated 90 shifted z0 ;
- labels(range 0 thru 2);
-endchar;
-
% "," Komma
beginchar(",",25ut#,ht#,dt#);
pickup wedn_pen;
komma(2.5ut,12.5ut);
endchar;
-% ASCII Bindestrich oct"055" (OT1: auch Trennstrich)
-beginchar("-",27.5ut#,ht#,0);
- pickup wedn_pen;
- draw ((0,0)--(12.5ut,0)) shifted (7.5ut,hdash);
-endchar;
-
-% T1: Trennstrich
-beginchar(oct"177",27.5ut#,ht#,0);
- pickup wedn_pen;
- draw ((0,0)--(12.5ut,0)) shifted (7.5ut,hdash);
-endchar;
-
% "." Punkt
beginchar(".",25ut#,ht#,0);
pickup wedn_pen_thick;
drawdot (0,0) shifted (12.5ut,0);
endchar;
-% "/"
-beginchar("/",25ut#,Ht#,dt#);
- pickup wedn_pen;
-draw ((0,-dt)--(15ut,Ht)) shifted (2.5ut,0);
-endchar;
-
% ":" Doppelpunkt
beginchar(":",25ut#,ht#,0);
pickup wedn_pen_thick;
@@ -377,34 +501,6 @@ komma(2.5ut,12.5ut);
drawdot (0,0) shifted (12.5ut,17.5ut);
endchar;
-% ">"
-beginchar(">",25ut#,Ht#,0);
- path p;
- pickup wedn_pen;
-p:=(0,0)--(17.5ut,0);
-draw p rotated 30 shifted (5ut,hmath);
- draw p rotated -30 shifted (5ut,hmath);
-endchar;
-
-
-% "="
-beginchar("=",30ut#,ht#,0);
- pickup wedn_pen;
- draw((0,0)--(20ut,0)) shifted (5ut,hmath-2.5ut);
- draw((0,0)--(20ut,0)) shifted (5ut,hmath+2.5ut);
-endchar;
-
-
-% "<"
-beginchar("<",25ut#,Ht#,0);
- path p;
- pickup wedn_pen;
-p:=(0,0)--(-17.5ut,0);
-draw p rotated 30 shifted (20ut,hmath);
- draw p rotated -30 shifted (20ut,hmath);
-endchar;
-
-
% ?
beginchar("?",35ut#,Hz#,0);
radi:=7.5ut;
@@ -436,93 +532,6 @@ beginchar(oct"022",25ut#,ht#,dt#);
komma(2.5ut,15ut);
endchar;
-% oct"025" Bis-Strich --, Gedankenstrich
-beginchar(oct"025",30ut#,ht#,0);
- pickup wedn_pen;
-draw ((0,0)--(20ut,0)) shifted (5ut,hdash);
-endchar;
-
-% engl. Gedankenstrich ---
-beginchar(oct"026",40ut#,ht#,0);
- pickup wedn_pen;
-draw ((0,0)--(30ut,0)) shifted (5ut,hdash);
-endchar;
-
-
-% oct"023" franz. Anfz. <<
-beginchar(oct"023",37.5ut#,ht#,0);
- path p, q;
- pickup wedn_pen;
- z1=(0ut,0ut);
- z2=(1.1*ht/2,0);
- z3=(6,-1);
- z4=(6,1);
- z5=(10ut,ht/2);
-z6=(17.5ut,ht/2);
-
- p := (z1{z3}..z2) rotated 45;
- q := (z1{z4}..z2) rotated -45;
- draw p shifted z5 ;
- draw p shifted z6 ;
- draw q shifted z5 ;
- draw q shifted z6 ;
- labels(range 1 thru 6);
-endchar;
-
-
-% oct"024" franz. Anfz. >>
-beginchar(oct"024",37.5ut#,ht#,0);
- path p, q;
- pickup wedn_pen;
- z1=(0ut,0ut);
- z2=(1.1*ht/2,0);
- z3=(6,-1);
- z4=(6,1);
- z5=(20ut,ht/2);
- z6=(27.5ut,ht/2);
-
- p := (z1{z4}..z2) rotated 135;
- q := (z1{z3}..z2) rotated -135;
- draw p shifted z5 ;
- draw p shifted z6 ;
- draw q shifted z5 ;
- draw q shifted z6 ;
- labels(range 1 thru 6);
-endchar;
-
-% oct"016" franz. Anfz. <
-beginchar(oct"016",30ut#,ht#,0);
- path p, q;
- pickup wedn_pen;
- z1=(0ut,0ut);
- z2=(1.1*ht/2,0);
- z3=(6,-1);
- z4=(6,1);
- z5=(10ut,ht/2);
- p := (z1{z3}..z2) rotated 45;
- q := (z1{z4}..z2) rotated -45;
- draw p shifted z5 ;
- draw q shifted z5 ;
- labels(range 1 thru 5);
-endchar;
-
-
-% oct"017" franz. Anfz. >
-beginchar(oct"017",30ut#,ht#,0);
- path p, q;
- pickup wedn_pen;
- z1=(0ut,0ut);
- z2=(1.1*ht/2,0);
- z3=(6,-1);
- z4=(6,1);
- z5=(20ut,ht/2);
- p := (z1{z4}..z2) rotated 135;
- q := (z1{z3}..z2) rotated -135;
- draw p shifted z5 ;
- draw q shifted z5 ;
- labels(range 1 thru 5);
-endchar;
-
% oct"133" [
beginchar("[",17.5ut#,Ht#,dt#);
pickup wedn_pen;
@@ -539,24 +548,6 @@ beginchar("]",17.5ut#,Ht#,dt#);
draw ((0,0)--(5ut,0)) shifted (5ut,-dt);
endchar;
-% "@":
-beginchar("@",70ut#,Ht#,0);
- pickup wedn_pen;
-sep:=dt/2;
-draw (superellipse((a,0),(0,b),(-a,0),(0,-b),sigma)) shifted (a+sep+10ut,b+sep);
-draw ((0,ht)--(0,5ut){down}..(2ut,0){right}..tension 1.5..(sep,ht/2){up}..
- (-10ut,ht+sep){left}..(-2*a-sep,ht/2){down}..
- (-10ut,-sep){right}..{1,2}(2.5ut,-3.5ut)) shifted (2*a+sep+10ut,sep);
-endchar;
-% Euro
-beginchar(oct"240",60ut#,Ht#,0);
- pickup wedn_pen;
- draw (halfcircle rotated 90) xscaled 37.5ut yscaled Ht shifted (37.5ut,Ht/2);
- draw ((0,0){right}..(10ut,-5ut)) shifted (37.5ut,Ht);
- draw ((0,0){right}..(10ut,5ut)) shifted (37.5ut,0);
- draw (((-30ut,0)--(0,0)) shifted (35ut,Ht/2+2.5ut)) slanted 0.29;
- draw (((-30ut,0)--(0,0)) shifted (35ut,Ht/2-2.5ut)) slanted 0.29;
-endchar;
%%%%%%%%%%%%%%%%%%%% End of File %%%%%%%%%%%%%%%%%
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-06 14:28:40 +0000