summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_sz.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-12-03 22:41:27 +0000
committerKarl Berry <karl@freefriends.org>2014-12-03 22:41:27 +0000
commita038a87d3262e71bf179f9169cbcf7059b681dab (patch)
tree6d042857ad9a217a76ec317294411626694270f4 /Master/texmf-dist/fonts/source/public/schulschriften/wesa14_sz.mf
parent6ff4c0023bf5aaaac432e8b934235ba1fe4e02a8 (diff)
schulschriften (3dec14)
git-svn-id: svn://tug.org/texlive/trunk@35730 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/schulschriften/wesa14_sz.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/schulschriften/wesa14_sz.mf560
1 files changed, 278 insertions, 282 deletions
diff --git a/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_sz.mf b/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_sz.mf
index a8a66dd9815..c4de273d00e 100644
--- a/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_sz.mf
+++ b/Master/texmf-dist/fonts/source/public/schulschriften/wesa14_sz.mf
@@ -1,29 +1,259 @@
% Schulausgangsschrift (SAS) wesa
% Walter Entenmann
% 16.10.2011
+% 18.11.2014: einheitliche Sonderzeichen
+% Ziffern nur 3/4-hoch und korrigiert
+% Gross- und Kleinbuchstaben korrigiert
+% 30.11.2014: modifiziert, Duktus
%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% #
+beginchar("#",35ut#,Ht#,0);
+ pickup wesa_pen;
+ p:=(0,0)--(0,Ht);
+ draw p slanted 0.176 shifted (10ut,0);
+ draw p slanted 0.176 shifted (20ut,0);
+ q:=((0,0)--(26ut,0)) shifted (2ut,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 wesa_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 wesa_pen;
+ p:= (-ht/2,0)--(ht/2,0);
+ draw p rotated 90 shifted (15ut,1.5ht);
+ draw p rotated 30 shifted (15ut,1.5ht);
+ draw p rotated -30 shifted (15ut,1.5ht);
+endchar;
+
+% Prozentzeichen (%)
+beginchar("%",40ut#,Ht#,0);
+ pickup wesa_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,Ht-hoch/2);
+ draw p shifted (7.5ut+breit/2,Ht-hoch/2);
+ draw p shifted (7.5ut+25ut-breit/2,hoch/2);
+ draw q rotated 58 shifted (w/2,h/2);
+ draw z0{1,-2}..{dir 58}(7.5ut+25ut,Ht);
+endchar;
+
+% &
+ beginchar("&",40ut#,Ht#,0);
+ pickup wesa_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,Ht){left}..(4ut,30ut){down}..{2,-3}(8.167ut,21ut)--(22.5ut,0);
+ draw p shifted (10ut,0);
+ endchar;
+
+% $
+beginchar("$",30ut#,Ht#,0);
+ pickup wesa_pen;
+ draw halfcircle xscaled 20ut yscaled 20ut shifted (15ut,30ut);
+ draw (halfcircle rotated 180 xscaled 20ut yscaled 20ut) shifted (15ut,10ut);
+ draw ((-10ut,10ut){down}..{down}(10ut,-10ut)) shifted (15ut,ht);
+ draw ((0,ht+2.5ut)--(0,-ht-2.5ut)) shifted (15ut,ht);
+endchar;
+
+% "+"
+beginchar("+",30ut#,22.5ut#,0);
+ path p;
+ pickup wesa_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 wesa_pen;
+ draw ((0,0)--(12.5ut,0)) shifted (7.5ut,hdash);
+endchar;
+
+% T1: Trennstrich
+beginchar(oct"177",27.5ut#,ht#,0);
+ pickup wesa_pen;
+ draw ((0,0)--(12.5ut,0)) shifted (7.5ut,hdash);
+endchar;
+
+% "/"
+beginchar("/",25ut#,Ht#,0);
+ pickup wesa_pen;
+draw ((5ut,0)--(20ut,Ht));
+endchar;
+
+% ">"
+beginchar(">",30ut#,Ht#,0);
+ path p;
+ pickup wesa_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 wesa_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 wesa_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 wesa_pen;
+draw ((0,0)--(20ut,0)) shifted (5ut,hdash);
+endchar;
+
+% engl. Gedankenstrich ---
+beginchar(oct"026",45ut#,ht#,0);
+ pickup wesa_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 wesa_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 wesa_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 wesa_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 wesa_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 wesa_pen;
+sep:=10ut;gap:=8ut;
+draw (superellipse((a,0),(0,b),(-a,0),(0,-b),sigma)) shifted (gap+a+sep,ht);
+draw ((0,ht)--(0,5ut){down}..(2ut,0){right}..tension 1.5..(gap,ht/2){up}..
+ (-a,3ht/2){left}..(-2*a-gap,ht/2){down}..
+ (-a,-ht/2){right}..(7.5ut,-5ut)) shifted (2*a+gap+sep,ht/2);
+endchar;
+
+% Euro (\symbol{160})
+beginchar(oct"240",47.5ut#,Ht#,0);
+ pickup wesa_pen;
+ sep:=7.5ut; gap:=7.5ut;
+ draw (halfcircle rotated 90) xscaled 30ut yscaled Ht shifted (15ut+gap+sep,Ht/2);
+ draw ((0,0){right}..(7.5ut,-3ut)) shifted (15ut+gap+sep,Ht);
+ draw ((0,0){right}..(7.5ut,3ut)) shifted (15ut+gap+sep,0);
+ draw (((-25ut,2.5ut)--(0,2.5ut)) shifted (15ut+gap+sep,ht)) slanted 0.25;
+ draw (((-25ut,-2.5ut)--(0,-2.5ut)) shifted (15ut+gap+sep,ht)) slanted 0.25;
+endchar;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
% Aufstrich am Wortanfang
-beginchar(oct"200",11.556ut#,ht#,0);
+beginchar(oct"200",11.688ut#,ht#,0);
pickup wesa_pen;
draw ((0,0)--(((ht)-Delta)/m,ht-Delta));
xpos:=((ht)-Delta)/m;
zeigen;
endchar;
-% Verbindungsstrich normal
-beginchar(oct"005",13.556ut#,ht#,0);
+% Verbindungsstrich normal um rho verbreitert
+beginchar(oct"005",15.688ut#,ht#,0);
pickup wesa_pen;
- draw ((0,0){right}..tension2 and 3.5..{1,m}(rho+((ht)-Delta)/m,ht-Delta));
- xpos:=rho+((ht)-Delta)/m;
+ draw ((0,0){right}..tension2 and 3.5..{1,m}(2rho+((ht)-Delta)/m,ht-Delta));
+ xpos:=2rho+((ht)-Delta)/m;
zeigen;
endchar;
% "e" mit Aufstrich am Wortanfang
-beginchar(oct"030",11.733ut#,ht#,0);
+beginchar(oct"030",8.709ut#,ht#,0);
pickup wesa_pen;
xpos:=0;
- draw ((0,0)--((he)/m,he)) shifted (xpos,0);
+ draw ((0,0){dir30}..tension1.5..{up}((he)/m+ebreite,ht-ef'*ebreite))
+ shifted (xpos,0);
xpos:=xpos+(he)/m;
latin_e_form(xpos);
zeigen;
@@ -43,60 +273,60 @@ draw ((0,0){right}..(5ut,2ut));
% Verlaengerungsstriche mit e,
% 10ut
- beginchar(oct"000",23.733ut#,ht#,0);
+ beginchar(oct"000",20.709ut#,ht#,0);
pickup wesa_pen;
xpos:=0;
- draw ((0,0){right}..(10ut+rho+(he)/m,he){1,m}) shifted (xpos,0);
- xpos:=xpos+10ut+rho+(he)/m;
+schweif((0),ht-ebreite*ef',10ut+rho+(he)/m+ebreite,0,90,1.2,xpos);
+xpos:=xpos-ebreite;
latin_e_form(xpos);
zeigen;
endchar;
% 12.5ut
- beginchar(oct"001",26.233ut#,ht#,0);
+ beginchar(oct"001",23.209ut#,ht#,0);
pickup wesa_pen;
xpos:=0;
- draw ((0,0){right}..(12.5ut+rho+(he)/m,he){1,m}) shifted (xpos,0);
- xpos:=xpos+12.5ut+rho+(he)/m;
+schweif((0),ht-ebreite*ef',12.5ut+rho+(he)/m+ebreite,0,90,1.2,xpos);
+xpos:=xpos-ebreite;
latin_e_form(xpos);
zeigen;
endchar;
% 15ut
- beginchar(oct"002",28.733ut#,ht#,0);
+ beginchar(oct"002",25.709ut#,ht#,0);
pickup wesa_pen;
xpos:=0;
- draw ((0,0){right}..(15ut+rho+(he)/m,he){1,m}) shifted (xpos,0);
- xpos:=xpos+15ut+rho+(he)/m;
+schweif((0),ht-ebreite*ef',15ut+rho+(he)/m+ebreite,0,90,1.2,xpos);
+xpos:=xpos-ebreite;
latin_e_form(xpos);
zeigen;
endchar;
% 17.5ut
- beginchar(oct"003",31.233ut#,ht#,0);
+ beginchar(oct"003",28.209ut#,ht#,0);
pickup wesa_pen;
xpos:=0;
- draw ((0,0){right}..(17.5ut+rho+(he)/m,he){1,m}) shifted (xpos,0);
- xpos:=xpos+17.5ut+rho+(he)/m;
+schweif((0),ht-ebreite*ef',17.5ut+rho+(he)/m+ebreite,0,90,1.2,xpos);
+xpos:=xpos-ebreite;
latin_e_form(xpos);
zeigen;
endchar;
% 20ut
- beginchar(oct"004",33.733ut#,ht#,0);
+ beginchar(oct"004",30.709ut#,ht#,0);
pickup wesa_pen;
xpos:=0;
- draw ((0,0){right}..(20ut+rho+(he)/m,he){1,m}) shifted (xpos,0);
- xpos:=xpos+20ut+rho+(he)/m;
+schweif((0),ht-ebreite*ef',20ut+rho+(he)/m+ebreite,0,90,1.2,xpos);
+xpos:=xpos-ebreite;
latin_e_form(xpos);
zeigen;
endchar;
% Aufstriche zu spitzen Buchstaben:
-% normal
- beginchar(oct"035",12.5ut#,ht#,0);
+% normal um rho verbreitert, tension 1.2-->1.5
+ beginchar(oct"035",14.5ut#,ht#,0);
pickup wesa_pen;
- draw ((0,0){right}..tension 1.2..{up}(12.5ut,ht));
+ draw ((0,0){right}..tension 1.5..{up}(12.5ut+rho,ht));
endchar;
% nach Unterlaengen
@@ -182,41 +412,41 @@ endchar;
beginchar("2",Wz#,Hz#,0);
pickup wesa_pen;
-draw ((0,h-r)..(r,h){right}..(2r,h-r){down}..tension2 and 3..{-1,-1}(0,0)) shifted (s',0);
+draw ((0,h-r)..(r,h){right}..(2r,h-r){down}..tension2 and 3..{-5,-6}(0,0)) shifted (s',0);
draw ((0,0)--(w',0)) shifted (s',0);
endchar;
beginchar("3",Wz#,Hz#,0);
pickup wesa_pen;
- draw ((w'/8,7h/8)..(w'/2,h){right}..(7w'/8,0.75h){down}..(w'/2,0.5h){left})
+ draw ((0,10h/12){up}..(3w'/8,h){right}..(6w'/8,9h/12){down}..tension1.2..{left}(0,h/2+1.5ut))
shifted (s',0);
- draw ((w'/2,0.5h){right}..tension1..(w',w'/2){down}..(w'/2,0){left}..(0,w'/4)) shifted (s',0);
+ draw ((0,h/2+1.5ut){right}..tension1..(w',3h/12){down}..(w'/2,0){left}..(0,h/12)) shifted (s',0);
endchar;
beginchar("4",Wz#,Hz#,0);
pickup wesa_pen;
-draw ((w'/4,h)--(0,h/4)--(w',h/4)) shifted (s',0);
-draw ((0.675w',3h/4)--(0.675w',0)) shifted (s',0);
+draw ((0.5w',h)--(0,h/3)--(w',h/3)) shifted (s',0);
+draw ((0.75w',3h/4)--(0.75w',0)) shifted (s',0);
endchar;
beginchar("5",Wz#,Hz#,0);
pickup wesa_pen;
-draw ((w',h)--(0,h)--(0,5h/8-dd){1,1}..(w'/2,5h/8){right}..(w',2.5h/8){down}..(w'/2,0){left}..(0,h/8)) shifted (s',0);
+draw ((0.75w',h)--(0,h)--(0,5h/8-dd){1,1}..(w'/2,5h/8){right}..(w',2.5h/8){down}..(w'/2,0){left}..(0,h/8)) shifted (s',0);
endchar;
beginchar("6",Wz#,Hz#,0);
pickup wesa_pen;
-draw ((7w'/8,15h/16)..(w'/2,h){left}..(0,3h/8){down}..(w'/2,0){right}..(w',3h/8){up}..(w'/2,5h/8){left}..(0,3h/8){down}) shifted (s',0);
+draw ((0.75w',h){left}..tension0.8..(0,3h/8){down}..(w'/2,0){right}..(w',3h/8){up}..(w'/2,5h/8){left}..(0,3h/8){down}) shifted (s',0);
endchar;
beginchar("7",Wz#,Hz#,0);
pickup wesa_pen;
xpos:=0;
-draw ((0,h)--(w',h)--(w'/4,0)) shifted (s',0);
-quer((h/2),xpos+12.5ut+s')
+draw ((0,h)--(w',h)--(0.375w',0)) shifted (s',0);
+quer((h/2),xpos+13.75ut+s')
endchar;
beginchar("8",Wz#,Hz#,0);
@@ -238,9 +468,9 @@ endchar;
% Satzzeichen
% ASCII-Zeichen
% !
-beginchar("!",20ut#,Hz#,0);
+beginchar("!",20ut#,Ht#,0);
pickup wesa_pen;
- stamm((Hz),10ut,10ut);
+ stamm(h,10ut,10ut);
pickup wesa_pen_thick;
drawdot (0,0) shifted (10ut,0);
endchar;
@@ -252,105 +482,22 @@ beginchar(oct"042",25ut#,Ht#,0);
komma(Ht,15ut);
endchar;
-% #
-beginchar("#",60ut#,Ht#,dt#);
- pickup wesa_pen;
- gap:=10ut;
-p:= ((0,-(Ht+dt)/2)--(0,(Ht+dt)/2));
-draw (p shifted (-gap/2,0) slanted 1/4) shifted (w/2,ht/2);
-draw (p shifted (gap/2,0) slanted 1/4) shifted (w/2,ht/2);
-q:= ((-20ut,0)--(20ut,0));
- draw (q shifted (0,-gap/2) slanted 1/4) shifted (w/2,ht/2);
- draw (q shifted (0,gap/2) slanted 1/4) shifted (w/2,ht/2);
-endchar;
-
-% $
-beginchar("$",35ut#,Ht#,0);
- pickup wesa_pen;
- radi:=10ut;
-draw ((radi,0){up}..(0,radi){left}..{down}(-radi,0)) shifted (w/2,Ht-radi);
- draw ((-radi,0){down}..(0,-radi){right}..{up}(radi,0)) shifted (w/2,radi);
- draw ((-radi,Ht-radi){down}..{down}(radi,radi)) shifted (w/2,0);
- draw ((0,Ht+dd)--(0,-dd)) shifted (w/2,0);
-endchar;
-
-% %
-beginchar("%",40ut#,Ht#,0);
- pickup wesa_pen;
- sep:=7.5ut;
- q := ((0,0)--(25ut,Ht));
- breit:=10ut; hoch:=15ut;
- 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+25ut-breit/2,hoch/2));
- draw (q shifted (sep,0));
- draw ( z0{1,-2}..{dir 58}(sep+25ut,Ht));
- endchar;
-
-% &
- beginchar("&",40ut#,Ht#,0);
- pickup wesa_pen;
- p := (25ut,20ut){down}..tension 1.2..(10ut,0){left}..(0,10ut){up}..
-(15ut,Ht-5ut){up}..(10ut,Ht){left}..(2.5ut,Ht-7.5ut){down}..tension1.5 and 5..{right}(22.5ut,0)..{1,2}(27.5ut,2.5ut);
- draw p shifted (7.5ut,0);
- endchar;
-
-% §
- beginchar(oct"237",43.333ut#,Ht#,dt#);
- pickup wesa_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("'",15ut#,Ht#,0);
pickup wesa_pen;
komma((Ht),7.5ut);
endchar;
-
% "("
-beginchar("(",20ut#,Ht#,0);
+beginchar("(",20ut#,Ht#,dt#);
pickup wesa_pen;
-draw ((5ut,Ht)..(0,ht){down}..(5ut,0)) shifted (10ut,0);
+draw ((10ut,Ht)..(2.5ut,ht/2){down}..(10ut,-dt)) shifted (5ut,0);
endchar;
% ")"
-beginchar(")",20ut#,Ht#,0);
+beginchar(")",20ut#,Ht#,dt#);
pickup wesa_pen;
-draw ((5ut,Ht)..(10ut,ht){down}..(5ut,0));
-endchar;
-
-% "*"
-beginchar("*",30ut#,Ht#,0);
- path p;
- pickup wesa_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 wesa_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);
+draw ((5ut,Ht)..(12.5ut,ht/2){down}..(5ut,-dt));
endchar;
% "," Komma
@@ -359,30 +506,12 @@ beginchar(",",20ut#,ht#,dt#);
komma(2.5ut,10ut);
endchar;
-% ASCII Bindestrich oct"055" (OT1: auch Trennstrich)
-beginchar("-",27.5ut#,ht#,0);
- pickup wesa_pen;
- draw ((0,0)--(12.5ut,0)) shifted (7.5ut,hdash);
-endchar;
-
-% T1: Trennstrich
-beginchar(oct"177",27.5ut#,ht#,0);
- pickup wesa_pen;
- draw ((0,0)--(12.5ut,0)) shifted (7.5ut,hdash);
-endchar;
-
% "." Punkt
beginchar(".",20ut#,ht#,0);
pickup wesa_pen_thick;
drawdot (0,0) shifted (10ut,0);
endchar;
-% "/"
-beginchar("/",25ut#,Ht#,0);
- pickup wesa_pen;
-draw ((5ut,0)--(20ut,Ht));
-endchar;
-
% ":" Doppelpunkt
beginchar(":",20ut#,ht#,0);
pickup wesa_pen_thick;
@@ -398,41 +527,13 @@ komma(2.5ut,10ut);
drawdot (0,0) shifted (10ut,15ut);
endchar;
-% ">"
-beginchar(">",30ut#,Ht#,0);
- path p;
- pickup wesa_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 wesa_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 wesa_pen;
-p:=(0,0)--(-20ut,0);
-draw p rotated 30 shifted (23.66ut,hmath);
- draw p rotated -30 shifted (23.66ut,hmath);
-endchar;
-
-
% ?
-beginchar("?",35ut#,Hz#,0);
+beginchar("?",35ut#,Ht#,0);
radi:=7.5ut;
pickup wesa_pen;
- z1=(-radi,Hz-radi);
- z2=(0,Hz);
- z3=(radi,Hz-radi);
+ z1=(-radi,h-radi);
+ z2=(0,h);
+ z3=(radi,h-radi);
z5=(-radi,10ut+radi);
z6=(0,10ut);
z7=(radi,10ut+radi);
@@ -457,121 +558,16 @@ beginchar(oct"022",25ut#,ht#,dt#);
komma(2.5ut,15ut);
endchar;
-% oct"025" Bis-Strich --, Gedankenstrich
-beginchar(oct"025",30ut#,ht#,0);
- pickup wesa_pen;
-draw ((0,0)--(20ut,0)) shifted (5ut,hdash);
-endchar;
-
-% engl. Gedankenstrich ---
-beginchar(oct"026",45ut#,ht#,0);
- pickup wesa_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 wesa_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 wesa_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 wesa_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 wesa_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;
-
% oct"133" [
-beginchar("[",25ut#,Ht#,0);
+beginchar("[",20ut#,Ht#,dt#);
pickup wesa_pen;
-draw ((5ut,Ht)--(0,Ht)--(0,0)--(5ut,0)) shifted (10ut,0);
+draw ((5ut,Ht)--(0,Ht)--(0,-dt)--(5ut,-dt)) shifted (10ut,0);
endchar;
% oct"135" ]
-beginchar("]",25ut#,Ht#,0);
- pickup wesa_pen;
-draw ((5ut,Ht)--(10ut,Ht)--(10ut,0)--(5ut,0)) shifted (5ut,0);
-endchar;
-
-% "@":
-beginchar("@",50ut#,Ht#,0);
+beginchar("]",20ut#,Ht#,dt#);
pickup wesa_pen;
-sep:=10ut;gap:=8ut;
-draw (superellipse((a,0),(0,b),(-a,0),(0,-b),sigma)) shifted (gap+a+sep,ht);
-draw ((0,ht)--(0,5ut){down}..(2ut,0){right}..tension 1.5..(gap,ht/2){up}..
- (-a,3ht/2){left}..(-2*a-gap,ht/2){down}..
- (-a,-ht/2){right}..(7.5ut,-5ut)) shifted (2*a+gap+sep,ht/2);
-endchar;
-
-% Euro
-beginchar(oct"240",47.5ut#,Ht#,0);
- pickup wesa_pen;
- sep:=7.5ut; gap:=7.5ut;
-draw ((7.5ut,Ht/2-2.5ut)..(0,Ht/2){left}..(-15ut,0){down}..{right}(0,-Ht/2)..(7.5ut,-Ht/2+2.5ut)) shifted (15ut+gap+sep,Ht/2);
- draw (((-25ut,2.5ut)--(0,2.5ut)) shifted (15ut+gap+sep,ht)) slanted 0.25;
- draw (((-25ut,-2.5ut)--(0,-2.5ut)) shifted (15ut+gap+sep,ht)) slanted 0.25;
+draw ((0,Ht)--(5ut,Ht)--(5ut,-dt)--(0,-dt)) shifted (5ut,0);
endchar;
%%%%%%%%%%%%%%%%%%%% End of File %%%%%%%%%%%%%%%%%