summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/cbfonts-all/cbmetre.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/cbfonts-all/cbmetre.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/cbfonts-all/cbmetre.mf892
1 files changed, 0 insertions, 892 deletions
diff --git a/Master/texmf-dist/fonts/source/public/cbfonts-all/cbmetre.mf b/Master/texmf-dist/fonts/source/public/cbfonts-all/cbmetre.mf
deleted file mode 100644
index b33fff61a5b..00000000000
--- a/Master/texmf-dist/fonts/source/public/cbfonts-all/cbmetre.mf
+++ /dev/null
@@ -1,892 +0,0 @@
-% File gmtr.mf
-% Copyright 2001 Claudio Beccari
-% version 1.0 (2001/03/24)
-% Metric symbols and other special signs for greek critical editions
-%
-def m_width=.6[hair,stem] enddef;
-def separator=max(1,vround(1/10x_height)) enddef;
-dot_diam#=dot_size#;dot_diam=dot_size;
-
-cmchar "English Opening quotes";
-beginchar(oct"20",3u#+max(2u#,dot_diam#),asc_height#,0);
-italcorr asc_height#*slant-.1u#;
-adjust_fit(.5u#,.5u#);
-x2+.5dot_diam=hround(w-.6u+.5dot_diam); y1+.5dot_diam=h-comma_depth;
-x1=w-x2; y2=y1;
-ammoc(1,a,dot_diam,.25u,comma_depth); % left dot and tail
-ammoc(2,b,dot_diam,.25u,comma_depth); % right dot and tail
-penlabels(1,2);currentbreadth:=0;
- endchar;
-
-
-cmchar "English Closing quotes";
-beginchar(oct"021",3u#+max(2u#,dot_diam#),asc_height#,0);
-italcorr asc_height#*slant+dot_diam#-4.1u#;
-adjust_fit(.5u#,.5u#);
-x1+.5dot_diam=hround(.6u+.5dot_diam); y2+.5dot_diam=h;
-x2=w-x1; y2=y1;
-comma(1,a,dot_diam,.25u,comma_depth); % left dot and tail
-comma(2,b,dot_diam,.25u,comma_depth); % right dot and tail
-penlabels(1,2);currentbreadth:=0;
- endchar;
-
-cmchar "German opening comma";
-beginchar(oct"015",5u#,dot_diam#,comma_depth#);
-adjust_fit(0,0);
-x1-.5dot_diam=hround(.5w-.5dot_diam); y1-.5dot_diam=0;
-comma(1,a,dot_diam,.2u,comma_depth); % dot and tail
-penlabels(1);currentbreadth:=0;
- endchar;
-
-
-cmchar "Reversed comma";
-beginchar(oct"016",5u#,dot_diam#,comma_depth#);
-adjust_fit(0,0);
-x1-.5dot_diam=hround(.5w-.5dot_diam); y1+.5dot_diam=h-d;
-pickup fine.nib; pos1(dot_size,-90);
-pos21(vair,90); pos22(vair,180); pos23(vair,-135);
- z21r=z1r; rt x22r=hround(x1+.5dot_size+u/4)+2eps; x23=x1-.5u;
- y22=1/3[y21,y23]; top y23r=vround(h);
- filldraw z1r{right}...z1l{left}...cycle; % dot
- filldraw stroke z21e{right}...z22e{up}...z23e; % tail
-penlabels(1,21,22,23);
-currentbreadth:=0;
-endchar;
-
-
-
-
-cmchar "German closing comma";
-beginchar(oct"023",5u#,asc_height#,0);
-italcorr asc_height#*slant+.5dot_diam#-2u#;
-adjust_fit(0,0);
-x1-.5dot_diam=hround(.5w-.5dot_diam); y1+.5dot_diam=h-comma_depth;
-if monospace: ammoc(1,a,dot_diam,.28u,vround 1.5comma_depth); % large ammoc
-else: ammoc(1,a,dot_diam,.25u,comma_depth); fi % normal ammoc
-penlabels(1); currentbreadth:=0;
-endchar;
-
-
-cmchar "German Opening quotes";
-beginchar(oct"022",3u#+max(2u#,dot_diam#),dot_diam#,comma_depth#);
-italcorr asc_height#*slant+dot_diam#-4.1u#;
-adjust_fit(.5u#,.5u#);
-x2+.5dot_diam=hround(w-.6u+.5dot_diam); y2-.5dot_diam=0;
-x1=w-x2; y2=y1;
-comma(1,a,dot_diam,.25u,comma_depth); % left dot and tail
-comma(2,b,dot_diam,.25u,comma_depth); % right dot and tail
-penlabels(1,2); endchar;
-
-currentbreadth:=0;
-
-
-cmchar "corona";
-beginchar(20,12u#,x_height#,0);
-adjust_fit(0,0);
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-bot y2l=-oo;lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-pos5(stem,90);
-pos6(stem,90);pos7(stem,0);
-z6=z7; x6=w/2; bot y6l=bot y2l;
-z5=z6+whatever*(z6r-z6l); top y5r= (rt x3r-lft x1r+.7[hair,stem])/2;
-filldraw z7r...z6r...z7l...z6l...cycle;
-filldraw double_circ_stroke z1e..z5e..z3e;
-penlabels(1,2,3,4,5,6,7,8);
-currentbreadth:=0;
-endchar;
-
-cmchar "corona inversa";
-beginchar(21,12u#,x_height#,0);
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-top y2r=(rt x3r-lft x1r+.7[hair,stem])/2;
-pos5(stem,-90); x5=x6=w/2; bot y5r=-oo;
-pos6(stem,90);pos7(stem,0);
-z6=z7;top y6r=top y2r;
-filldraw z7r...z6r...z7l...z6l...cycle;
-filldraw double_circ_stroke z1e..z5e..z3e;
-penlabels(1,2,3,4,5,6,7,8);
-currentbreadth:=0;
-endchar;
-
-cmchar "longa";
-beginchar("l",12u#,x_height#,0);
-adjust_fit(0,0)
-pos1(stem,90); pos2(stem,90);
-bot y1l=-oo=bot y2l; lft x1-stem/2=.75u; rt x2=w-x1;
-filldraw double_circ_stroke z1e--z2e;
-penlabels(1,2);
-currentbreadth:=0;
-endchar;
-
-cmchar "brevis";
-beginchar("b",12u#,x_height#,0);
-adjust_fit(0,0)
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-top y2r=(rt x3r-lft x1r+ .7[hair,stem])/2;
-pos5(stem,-90); x5=w/2; bot y5r=-oo;
-filldraw double_circ_stroke z1e..z5e..z3e;
-penlabels(1,2,3,4,5);
-currentbreadth:=0;
-endchar;
-
-cmchar "dupla brevis";
-beginchar("c",12u#,x_height#,0);
-adjust_fit(0,10.5u#-.5[hair#,stem#]);
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-top y2r=(rt x3r-lft x1r+ .7[hair,stem])/2;
-pos5(stem,-90); x5=w/2; bot y5r=-oo;
-filldraw double_circ_stroke z1e..z5e..z3e;
-picture savedpicture;
-savedpicture:=currentpicture;
-currentpicture:= currentpicture+savedpicture shifted (10.5u-.5[hair,stem],0);
-penlabels(1,2,3,4,5,6);
-currentbreadth:=0;
-endchar;
-
-cmchar "brevis sublineata";
-beginchar("d",12u#,x_height#,0);
-adjust_fit(0,0)
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-top y2r=(rt x3r-lft x1r+ .7[hair,stem])/2;
-pos5(stem,-90); x5=w/2; bot y5r=-oo;
-filldraw double_circ_stroke z1e..z5e..z3e;
-currentpicture:=currentpicture shifted(0,2stem);
-pos11(stem,90); pos12(stem,90);
-bot y11l=-oo=bot y12l; lft x11-stem/2=.75u; rt x12=w-x11;
-filldraw double_circ_stroke z11e--z12e;
-penlabels(1,2,3,4,5,11,12);
-currentbreadth:=0;
-endchar;
-
-cmchar "longa dupla brevis";
-beginchar("e",12u#,x_height#,0);
-adjust_fit(0,10.35u#-.5[hair#,stem#]);
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-top y2r=(rt x3r-lft x1r+ .7[hair,stem])/2;
-pos5(stem,-90); x5=w/2; bot y5r=-oo;
-filldraw double_circ_stroke z1e..z5e..z3e;
-picture savedpicture;
-savedpicture:=currentpicture;
-currentpicture:= currentpicture+savedpicture shifted (10.35u-.5[hair,stem],0);
-currentpicture:=currentpicture shifted(0,2stem);
-pos11(stem,90); pos12(stem,90);
-bot y11l=-oo=bot y12l; lft x11-stem/2=.75u; rt x12=w-x11+10.35u-.5[hair,stem];
-filldraw double_circ_stroke z11e--z12e;
-penlabels(1,2,3,4,5,6);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "apicata longa dupla brevis";
-beginchar("f",12u#,x_height#,0);
-adjust_fit(0,14.5u#-.5[hair#,stem#]);
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-top y2r=(rt x3r-lft x1r+ .7[hair,stem])/2;
-pos5(stem,-90); x5=w/2; bot y5r=-oo;
-filldraw double_circ_stroke z1e..z5e..z3e;
-picture savedpicture;
-savedpicture:=currentpicture;
-currentpicture:= currentpicture+savedpicture shifted (14.5u-.5[hair,stem],0);
-pos21(.5[hair,stem],0); pos22(.5[hair,stem],0);
-bot y21=-oo+hair/2;
-bot y22r=x_height-2stem;
-x21=x22=.5[x3,x1+14.5u-.5[hair,stem]];
-filldraw double_circ_stroke z21e--z22e;
-currentpicture:=currentpicture shifted(0,2stem);
-pos11(stem,90); pos12(stem,90);
-bot y11l=-oo=bot y12l; lft x11-stem/2=.75u; rt x12=w-x11+14.5u-.5[hair,stem];
-filldraw double_circ_stroke z11e--z12e;
-penlabels(1,2,3,4,5,6,11,12,21,22);
-currentbreadth:=0;
-endchar;
-
-
-
-cmchar"Longa sublineata breve";
-beginchar(oct"153",12u#,x_height#,desc_depth#);
-adjust_fit(0,0);
-pos1(stem,90); pos2(stem,90);
-bot y1l=-oo=bot y2l; lft x1-stem/2=.75u; rt x2=w-x1;
-filldraw double_circ_stroke z1e--z2e;
-pos3(.7[hair,stem],180);
-pos4(.7[hair,stem],90);
-z3=z4;
-top y4r=-separator;lft x3r=.75u;
-pos5(.7[hair,stem],0);
-pos6(.7[hair,stem],90);
-z5=z6;
-y6=y4; rt x5r=w-lft x3r;
-pos7(stem,-90); x7=w/2; top y7l=-d;
-filldraw double_circ_stroke z3e...z7e...z5e;
-penlabels(1,2,3,4,5,6,7);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "brevis superlineata";
-beginchar("i",12u#,x_height#,0);
-adjust_fit(0,0)
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-top y2r=(rt x3r-lft x1r+ .7[hair,stem])/2;
-pos5(stem,-90); x5=w/2; bot y5r=-oo;
-pos6(stem,90); pos7(stem,90);
-x6=x1r+stem/2;x5=.5[x6,x7]; y6=y7=y1+2stem;
-filldraw double_circ_stroke z1e..z5e..z3e;
-filldraw double_circ_stroke z6e--z7e;
-penlabels(1,2,3,4,5,6,7);
-currentbreadth:=0;
-endchar;
-
-cmchar "dupla brevis superlineata";
-beginchar("j",12u#,bar_height#+2stem#,0);
-adjust_fit(0,9.5u#)
-pos1(.7[hair,stem],180);
-pos2(.7[hair,stem],90);
-z1=z2;
-lft x1r=.75u;
-pos3(.7[hair,stem],0);
-pos4(.7[hair,stem],90);
-z3=z4;
-y4=y2; rt x3r=w-lft x1r;
-top y2r=(rt x3r-lft x1r+ .7[hair,stem])/2;
-pos5(stem,-90); x5=w/2; bot y5r=-oo;
-pos6(stem,90); pos7(stem,90);
-x6=x1r+stem/2;x4=.5[x6,x7]; y6=y7=y1+2stem;
-filldraw double_circ_stroke z1e..z5e..z3e;
-addto currentpicture also currentpicture shifted (z3-z1);
-filldraw double_circ_stroke z6e--z7e;
-penlabels(1,2,3,4,5,6,7);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "anceps";
-beginchar("X",9.5u#,x_height#,0);
-adjust_fit(0,0);
-numeric Xstem; Xstem=m_width;
-pos1(Xstem,135);pos2(Xstem,135);
-pos3(Xstem,45); pos4(Xstem,45);
-z0=.5[z1,z2]=.5[z3,z4];
-bot y1l=oo; lft x1r=u;
-y3=y1;x1+x3=w;
-z0=z1+whatever*dir(45)=z3+whatever*dir(135);
-filldraw double_circ_stroke z1e--z2e;
-filldraw double_circ_stroke z3e--z4e;
-penlabels(0,1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-cmchar "anceps superlineata";
-beginchar("Y",9.5u#,asc_height#,0);
-adjust_fit(0,0);
-numeric Xstem; Xstem=m_width;
-pos1(Xstem,135);pos2(Xstem,135);
-pos3(Xstem,45); pos4(Xstem,45);
-z0=.5[z1,z2]=.5[z3,z4];
-bot y1l=oo; lft x1r=u;
-y3=y1;x1+x3=w;
-z0=z1+whatever*dir(45)=z3+whatever*dir(135);
-filldraw double_circ_stroke z1e--z2e;
-filldraw double_circ_stroke z3e--z4e;
-pos5(Xstem,90); pos6(Xstem,90);
-x5=x4; x6=x2; y5l=y6l=y4r+stem;
-filldraw double_circ_stroke z5e--z6e;
-penlabels(0,1,2,3,4,5,6);
-currentbreadth:=0;
-endchar;
-
-cmchar "anceps dupla breve supersignata";
-beginchar("Z",9.5u#,asc_height#,0);
-adjust_fit(0,0);
-numeric Xstem; Xstem=m_width;
-pos1(Xstem,135);pos2(Xstem,135);
-pos3(Xstem,45); pos4(Xstem,45);
-z0=.5[z1,z2]=.5[z3,z4];
-bot y1l=oo; lft x1r=u;
-y3=y1;x1+x3=w;
-z0=z1+whatever*dir(45)=z3+whatever*dir(135);
-filldraw double_circ_stroke z1e--z2e;
-filldraw double_circ_stroke z3e--z4e;
-pos5(Xstem,0); pos6(Xstem,90); pos7(Xstem,180);
-pos8(Xstem,0); pos9(Xstem,90); pos10(Xstem,180);
-y5=y7=top y4r+.4(y4-y1)+Xstem/2; bot y6l=top y4r+Xstem/2;
-x5l=x4l; x7=x0; x6=.5[x5,x7];
-z8=z7=.5[z5,z10]; x0=.5[x6,x9]; y9=y6;
-filldraw double_circ_stroke z5e{down}...z6e...{up}z7e;
-filldraw double_circ_stroke z8e{down}...z9e...{up}z10e;
-penlabels(0,1,2,3,4,5,6,7,8,9,10);
-currentbreadth:=0;
-endchar;
-
-
-
-cmchar"catalepsis";
-beginchar("g", 10u#,0,desc_depth#);
-adjust_fit(0,0);
-pair za,zb; za=(w/2,0)-(0,-d);zb=za xscaled-1;
-numeric cat_width;cat_width=.6[hair,stem];
-pos1(cat_width,angle(za)+90);pos2(cat_width,angle(za)+90);
-pos3(cat_width,angle(zb)-90);pos4(cat_width,angle(zb)-90);
-lft x1r=.75u; rt x4r=w-lft x1r;
-bot y1l=-d-oo; bot y4l=bot y1l;
-z2=z3;x2=w/2;top y2r=h+oo;
-filldraw double_circ_stroke z1e--z2e; filldraw double_circ_stroke z3e--z4e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "ipercatalepsis";
-beginchar("h",8u#,asc_height#,0);
-adjust_fit(0,0);
-numeric ic_w,arm; ic_w=.6[hair,stem];arm=(3/4w-ic_w)/2;
-z0=(w/2,h-arm);
-pos1(ic_w,90); pos2(ic_w,90);
-y0=y1=y2; x1=x0-arm; x0=.5[x1,x2];
-pos3(ic_w,0); pos4(ic_w,0);
-x3=x4=x0;y0=.5[y3,y4]; y4=y0+arm;
-filldraw double_circ_stroke z1e--z2e;
-filldraw double_circ_stroke z3e--z4e;
-penlabels(0,1,2,3,4,5,6);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "sinafia";
-beginchar("s",6u#,asc_height#,0);
-adjust_fit(.5u#,.5u#);
-numeric sin_width,raggio;
-sin_width=.6[hair,stem];
-pos1(sin_width,0); pos2(sin_width,90);pos3(sin_width,180);
-pos4(sin_width,270);pos5(sin_width,0);
-top y2r=h+00;top y4l=x_height-oo; raggio=(y2-y4)/2; z0=(w/2,.5[y2,y4]);
-z5=z1=z0+(raggio,0); x2=x0=x4; z0=.5[z1,z3];
-pos6(sin_width,0); pos7(sin_width,0);
-z6=z4; x7=x6; y7=-oo-sin_width/2;
-filldraw stroke z1e{up}...z2e...z3e...z4e...{up}z5e;
-filldraw circ_stroke z7e--z6e;
-penlabels(0,1,2,3,4,5,6,7);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "uncinata clausa";
-beginchar(">",8u#,asc_height#,desc_depth#);
-adjust_fit(0,0);
-numeric q_w,angolo; q_w=.5[hair,stem];angolo=55;
-pos1(q_w,0); x1r=w-.75u; y1r=.5[h,-d];
-pos2(q_w,90-angolo);
-z2=z1+whatever*dir(-angolo);x2l=.75u;
-pos3(q_w,-90+angolo); z3=z1+whatever*dir(angolo); x3l=x2l;
-filldraw stroke z2e--z1e--z3e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "uncinata aperta";
-beginchar("<",8u#,asc_height#,desc_depth#);
-adjust_fit(0,0);
-numeric q_w,angolo; q_w=.5[hair,stem];angolo=55;
-pos1(q_w,180); x1r=.75u; y1r=.5[h,-d];
-pos2(q_w,angolo+90);
-z2=z1+whatever*dir(angolo);x2l=w-.75u;
-pos3(q_w,-90-angolo); z3=z1+whatever*dir(-angolo); x3l=x2l;
-filldraw stroke z2e--z1e--z3e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-
-
-cmchar "quadra aperta";
-beginchar("[",6u#,asc_height#,desc_depth#);
-adjust_fit(0,0);
-numeric q_w; q_w=.6u;
-z1=.5[z1r,z1l]; z1l=z1r-(0,q_w);
-z2=.5[z2r,z2l]; z2l=(x2r+q_w,y2r-q_w);
-z3=.5[z3r,z3l]; z3l=(x3r+q_w,y3r+q_w);
-z4=.5[z4r,z4l]; z4l=z4r+(0,q_w);
-x1=x4=w-.75u; x2r=x3r=.75u;
-y1=y2=1.05h;y3r=y4r=-d;
-filldraw stroke z1e--z2e--z3e--z4e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "quadra clausa";
-beginchar("]",6u#,asc_height#,desc_depth#);
-adjust_fit(0,0);
-numeric q_w; q_w=.6u;
-z1=.5[z1r,z1l]; z1l=z1r-(0,q_w);
-z2=.5[z2r,z2l]; z2l=z2r-(q_w,q_w);
-z3=.5[z3r,z3l]; z3l=z3r+(-q_w,q_w);
-z4=.5[z4r,z4l]; z4l=z4r+(0,q_w);
-x1=x4=.75u; x2r=x3r=w-.75u;
-y1=y2=1.05h;y3r=y4r=-d;
-filldraw stroke z1e--z2e--z3e--z4e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "media quadra aperta inferior";
-beginchar("!",4u#,bar_height#,desc_depth#+.6stem#);
-adjust_fit(0,0);
-numeric q_w; q_w=.4[hair,stem];
-pos2(q_w,180);
-z3=.5[z3r,z3l]; z3l=(x2l,y4l);
-pos4(q_w,-90);
-x4=4.5u+x2r; x2=x3=.65w;
-y2=h;y3r=y4r=-d;
-filldraw stroke z2e--z3e--z4e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-cmchar "media quadra aperta superior";
-beginchar("?",4u#,asc_height#+.75stem#,0);
-adjust_fit(0,0);
-numeric q_w; q_w=.4[hair,stem];
-pos2(q_w,180);
-z3=.5[z3r,z3l]; z3l=(x2l,y4l);
-pos4(q_w,90);
-x4=4.25u+x2; x2=x3=.65w;
-y2=bar_height;y3=y4=h;
-filldraw stroke z2e--z3e--z4e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "media quadra clausa inferior";
-beginchar(":",4u#,bar_height#,desc_depth#+.6stem#);
-adjust_fit(0,0);
-numeric q_w; q_w=.4[hair,stem];
-pos2(q_w,0);
-z3=.5[z3r,z3l]; z3l=(x2l,y4l);
-pos4(q_w,-90);
-x4=-4.5u+x2r; x2=x3=.65w;
-y2=h;y3r=y4r=-d;
-filldraw stroke z2e--z3e--z4e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-cmchar "media quadra clausa superior";
-beginchar(";",4u#,asc_height#+.75stem#,0);
-adjust_fit(0,0);
-numeric q_w; q_w=.4[hair,stem];
-pos2(q_w,0);
-z3=.5[z3r,z3l]; z3l=(x2l,y4l);
-pos4(q_w,90);
-x4=-4.5u+x2r; x2=x3=.65w;
-y2=bar_height;y3=y4=h;
-filldraw stroke z2e--z3e--z4e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "Finis Carmen";
-beginchar("F", asc_height#+desc_depth#+1.5u#,asc_height#,desc_depth#);
-adjust_fit(0,0);
-numeric raggio; raggio=(h+d)/2-m_width/2;
-z0=(w/2,.5[h,-d]);
-pos1(m_width,0);pos2(m_width,90);pos3(m_width,180);pos4(m_width,270);pos5(m_width,360);
-z0=.5[z1,z3]=.5[z2,z4]=.5[z6,z7]=.5[z8,z9]; z1=z5;
-z1=z0+(raggio,0); z2=z0+(0,raggio);
-pos6(m_width,135);pos7(m_width,135);
-z6=z0+(raggio,0)rotated45;
-pos8(m_width,45);pos9(m_width,45);
-z8=z0+(raggio,0)rotated-45;
-filldraw stroke z1e...z2e...z3e...z4e...z5e;
-filldraw stroke z6e--z7e;
-filldraw stroke z8e--z9e;
-penlabels(0,1,2,3,4,5,6,7,8,9);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "circumflexus latinus";
-beginchar("^",8u#,0,desc_depth#);
-adjust_fit(0,0);
-numeric chair; chair=.5[hair,stem];
-numeric angolo; angolo=angle((w/2,0)-(0,-d));
-pos1(chair,angolo+90);
-pos2(chair/(cosd angolo),90);
-pos3(chair,90-angolo);
-x2=w/2=.5[x1r,x3r]; top y2r=h; bot y1l=y3l=-d;
-lft x1r=.5u;
-filldraw double_circ_stroke z1e--z2e--z3e;
-penlabels(1,2,3);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "Left parenthesis";
-beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#);
-italcorr body_height#*slant-.5u#;
-adjust_fit(u#,-u#); pickup fine.nib;
-pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
-rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
-top y1=h; y2=.5[y1,y3]=math_axis;
-filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
- ...{3(x3e-x2e),y3-y2}z3e; % arc
-penlabels(1,2,3); currentbreadth:=0;
-currentbreadth:=0;
-endchar;
-
-cmchar "Right parenthesis";
-beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#);
-italcorr math_axis#*slant-.5u#;
-adjust_fit(0,-u#); pickup fine.nib;
-pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
-lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
-top y1=h; y2=.5[y1,y3]=math_axis;
-filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
- ...{3(x3e-x2e),y3-y2}z3e; % arc
-penlabels(1,2,3);currentbreadth:=0;
-currentbreadth:=0;
-endchar;
-
-currentbreadth:=0;
-
-cmchar "Crux";
-beginchar(oct"171",8u#,asc_height#,desc_depth#);
-adjust_fit(0,0);
-numeric bstem; bstem=1.3stem;
-pos1(bstem,0); pos2(thin_join,0); pos3(1.2bstem,0); pos4(hair,0); pos7(hair,0);
-pos5(bstem,90); pos2'(thin_join,90); pos6(bstem,90); z2'=z2;
-x1=x2=x3=x4=x7; x1-.5stem=hround(.5w-.5stem); center_on(x1);
-x5-.5stem=hround u; x6=w-x5;
-y1+.5stem=h+oo; y2=y5=y6; y3=.57y2; bot y4=-d+hair;
-y5+.5stem=floor(x_height+.5stem);y3=.5[y2,y7];
-filldraw circ_stroke z1e{down}..z2e{down}..z3e; % upper stem
-filldraw circ_stroke z4e--z7e{up}..z3e;% lower stem
-filldraw circ_stroke z5e{right}..{right}z2'e; % left bulb
-filldraw circ_stroke z6e{left}..{left}z2'e; % right bulb
-penlabels(1,2,3,4,5,6,7); currentbreadth:=0;
-endchar;
-
-
-
-% minimum distance between vowel and accent
-def separator=max(1,vround(x_height/10)) enddef;
-
-def grave(expr center) =
-numeric acc_sgn,acc_displ; acc_displ:=center;
- acc_sgn:=+1;
-generate_grave;
-enddef;
-
-def acute(expr center) =
-numeric acc_sgn,acc_displ; acc_displ:=center;
- acc_sgn:=-1;
-generate_grave;
-enddef;
-
-% The next definition draws both the grave (as its name suggests) and the
-% acute accents, the difference being the value of acc_sgn, where
-% acc_sgn=+1 tilts the accent to the left (grave)
-% acc_sgn=-1 tilts the accent to the right (acute)
-% acc_sgn=0 does not tilt the accent (monotoniko)
-
-vardef generate_grave=
- numeric accent_tilt, alto, basso; accent_tilt:=30;
- alto:=h; basso:=vround .8[h,x_height];
- 1/3[x22,x21]=acc_displ;
- accent_tilt:= acc_sgn*(accent_tilt+angle(alto-basso,.5currentbreadth));
- pos22(max(stem/5,currentbreadth+eps),accent_tilt); pos21(stem,accent_tilt);
- bot y22=basso; top y21+.5stem=alto;
- z21-z22=whatever*dir(90+accent_tilt);
- filldraw circ_stroke z21e--z22e; % diagonal
-penlabels(21,22);
-currentbreadth:=0;
-enddef;
-
-
-cmchar "Left apex";
-beginchar("`",4u#,acc_ht#,0);
-adjust_fit(0,0);
-numeric center;
-numeric acc_sgn; acc_sgn:=+1;
-grave(2/3w);
-currentbreadth:=0;
-endchar;
-
-cmchar "Right apex";
-beginchar("'",4u#,acc_ht#,0);
-adjust_fit(0,0);
-numeric center;
-numeric acc_sgn; acc_sgn:=-1;
-acute(2/3w);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "Hyatus";
-beginchar("H",6u#,asc_height#,0);
-adjust_fit(0,0);
-numeric Hstem, Hd; Hstem=.5stem; Hd=.37h;
-pos1(Hstem,0);pos2(Hstem,0);pos3(Hstem,0);pos4(Hstem,0);pos5(Hstem,90);pos6(Hstem,90);
-top y1=top y3=h; bot y2=bot y4=Hd; y5=y6=.55[bot y2, top y1];
-lft x1l = lft x2l = x5= w-rt x3r=w-rt x4r= w-x6= .75u;
-filldraw stroke z1e--z2e;
-filldraw stroke z3e--z4e;
-filldraw stroke z5e--z6e;
-currentpicture:=currentpicture shifted (0,.5bar_height);
-penlabels(1,2,3,4,5,6);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "Ring";
-beginchar(oct"032",4u#,0,desc_depth#);
-adjust_fit(0,0);
-numeric raggio,rw ; raggio=(d/2-separator); rw=.25[fine,stem];
-pickup pencircle scaled rw;
-z0=(w/2,-separator-raggio-rw);
-.5[z1,z2]=z0;z1=z0+(0,1.05raggio);
-draw z1...z2...cycle;
-penlabels(0,1,2,3,4,5);
-currentbreadth:=0;
-endchar;
-
-
-cmchar "Dot";
-beginchar(oct"033",3u#,0,desc_depth#);
-adjust_fit(0,0);
-numeric raggio,rw ; raggio=stem; rw=.3stem;
-z0=(w/2,-separator-raggio);
-pos1(rw,0); pos2(rw,90 );pos3(rw,180); pos4(rw,-90 );
-z1r-z0=(raggio,0); z2r-z0=(0,raggio);
-z0=.5[z1,z3]=.5[z2,z4];
-filldraw z1r...z2r...z3r...z4r...cycle;
-penlabels(0,1,2,3,4,5);
-currentbreadth:=0;
-endchar;
-
-
-cmchar"Hemiobelion";
-beginchar("A",7.5u#,x_height#,0);
-adjust_fit(0,0);
-z0=(w/2+.75u,h/2);
-numeric raggio; raggio=h/2-m_width/2;
-pos1(m_width,60); pos2(m_width,-60); pos3(m_width,180);
-z1=z0+raggio*dir(60); z2=z0+raggio*dir(-60); z3=z0-(raggio,0);
-filldraw double_circ_stroke z1e...z3e...z2e;
-penlabels(0,1,2,3);
-currentbreadth:=0;
-endchar;
-
-cmchar"Tetartemorion";
-beginchar("B",7.5u#,x_height#,0);
-adjust_fit(0,0);
-z0=(w/2-.75u,h/2);
-numeric raggio; raggio=h/2-m_width/2;
-pos1(m_width,120); pos2(m_width,-120); pos3(m_width,0);
-z1=z0+raggio*dir(120); z2=z0+raggio*dir(-120); z3=z0+(raggio,0);
-filldraw double_circ_stroke z1e...z3e...z2e;
-penlabels(0,1,2,3);
-currentbreadth:=0;
-endchar;
-
-cmchar"Stater";
-beginchar("C",8u#,asc_height#,0);
-adjust_fit(0,0);
-z0=(w/2,h/2)=.5[z1,z4]=.5[z2,z3]; z.a=dir(-10); z.b=dir(40);
-pos2(m_width,angle(z.a)-90);pos3(m_width,angle(z.a)-90);
-pos22(m_width,angle(z.b)+90);pos33(m_width,angle(z.b)+90);
-z22=z2;z33=z3;
-z2=z0+whatever*z.a; x22r=.75u=x4r;
-pos1(m_width,angle(z.b)+90);pos4(m_width,angle(z.b)+90);
-z4=z3+whatever*z.b;
-filldraw double_circ_stroke z1e--z22e;
-filldraw double_circ_stroke z2e--z3e;
-filldraw double_circ_stroke z33e--z4e;
-penlabels(0,1,2,3,4,5,6,7,22,33);
-currentbreadth:=0;
-endchar;
-
-cmchar"Dracma";
-beginchar("D",10u#,cap_height#,0);
-adjust_fit(0,0);
-pos1(m_width,0);pos2(m_width,0);pos3(m_width,90);pos4(m_width,90);
-x1l=.75u=x2l=w-x4; y1=0;y2=h;
-filldraw stroke z1e--z2e;
-y3=y4=h/2; x3=x1;
-filldraw stroke z3e--z4e;
-penlabels(1,2,3,4,5);
-currentbreadth:=0;
-endchar;
-
-cmchar"Denarius";
-beginchar("E",14u#,asc_height#,0);
-adjust_fit(0,0);
-z0=(w/2,h/2)=.5[z1,z4]=.5[z2,z5]=.5[z3,z6];
-numeric raggio; raggio=max(w/2,h/(2cosd45))-m_width/2;
-z1=z0+raggio*dir(45); z2=z0+raggio*dir(135); z3=z0+whatever*dir(180); x3=x2;
-pos1(m_width,angle(z1-z0)+90);
-pos2(m_width,angle(z2-z0)+90);
-pos3(m_width,angle(z3-z0)+90);
-pos4(m_width,angle(z1-z0)+90);
-pos5(m_width,angle(z2-z0)+90);
-pos6(m_width,angle(z3-z0)+90);
-filldraw double_circ_stroke z1e--z4e;
-filldraw double_circ_stroke z2e--z5e;
-filldraw double_circ_stroke z3e--z6e;
-penlabels(0,1,2,3,4,5,6,7,8);
-currentbreadth:=0;
-endchar;
-
-
-cmchar"Etos";
-beginchar("G",11.75u#,x_height#,0);
-adjust_fit(0,0);
-pos1(m_width,0); pos2(m_width,0); pos3(m_width,90); pos4(m_width,90);
-z2=z3; x1l=x2l=.75u; y1=1.25h; y3l=y4l=0; x4-x3=y1-y2;
-filldraw double_circ_stroke z1e--z2e;
-filldraw double_circ_stroke z3e--z4e;
-penlabels(1,2,3,4);
-currentbreadth:=0;
-endchar;
-
-cmchar"slopingzeugma";
-beginchar(oct"170",17u#,asc_height#,0);
-adjust_fit(0,0);
-z1r=(.75u,.8[x_height,h]);
-z3r=(w-x1r,x_height);
-numeric angolo; angolo=angle((z3r-z1r));
-y2r=h;z2r=(w/2,x_height)+whatever*dir(90-2angolo);
-pos1(m_width,135+angolo);
-pos2(stem,90);
-pos3(m_width,45+angolo);
-filldraw double_circ_stroke z1e..z2e{right}..z3e;
-currentpicture:=currentpicture shifted (0,(h-x_height)/2);
-penlabels(0,1,2,3,4,5);
-endchar;
-
-cmchar"raisingzeugma";
-beginchar(oct"172",17u#,asc_height#,0);
-adjust_fit(0,0);
-z1r=(.75u,x_height);
-z3r=(w-x1r,.8[x_height,h]);
-numeric angolo; angolo=angle((z3r-z1r));
-y2r=h;z2r=(w/2,x_height)+whatever*dir(90-2angolo);
-pos1(m_width,135+angolo);
-pos2(stem,90);
-pos3(m_width,45+angolo);
-filldraw double_circ_stroke z1e..z2e{right}..z3e;
-currentpicture:=currentpicture shifted (0,(h-x_height)/2);
-penlabels(0,1,2,3,4,5);
-endchar;
-
-
-
-cmchar"Base eolica 2";
-beginchar(oct"111",14u#,x_height#,0);
-adjust_fit(0,0);
-pickup pencircle scaled m_width;
-.5[z0,z1]=(w/2,h/2); y0=h/2; x1-x0=w/2;
-numeric raggio; raggio=(x1-x0)/2-m_width;
-z0=.5[z2,z3];z1=.5[z4,z5];
-z2=z0+(0,raggio);z4=z1+(0,raggio);
-draw z2{right}...z3{left}...cycle;
-draw z4{right}...z5{left}...cycle;
-penlabels(0,1,2,3,4,5,6,7,8);
-currentbreadth:=o;
-endchar;
-
-cmchar"Base eolica 3";
-beginchar(oct"112",21u#,x_height#,0);
-adjust_fit(0,0);
-pickup pencircle scaled m_width;
-z10=(3.5u,h/2); z11=z10+(7u,0); z12=z11+(7u,0);
-numeric raggio; raggio=(x11-x10)/2-m_width;
-z10=.5[z2,z3];z11=.5[z4,z5];z12=.5[z6,z7];
-z2=z10+(0,raggio);z4=z11+(0,raggio);z6=z12+(0,raggio);
-draw z2{right}...z3{left}...cycle;
-draw z4{right}...z5{left}...cycle;
-draw z6{right}...z7{left}...cycle;
-penlabels(0,1,2,3,4,5,6,7,8,10,11,12);
-currentbreadth:=o;
-endchar;
-
-cmchar"Base eolica 4";
-beginchar(oct"113",28u#,x_height#,0);
-adjust_fit(0,0);
-pickup pencircle scaled m_width;
-z10=(3.5u,h/2); z11=z10+(7u,0); z12=z11+(7u,0);z13=z12+(7u,0);
-numeric raggio; raggio=(x11-x10)/2-m_width;
-z10=.5[z2,z3];z11=.5[z4,z5];z12=.5[z6,z7];z13=.5[z8,z9];
-z2=z10+(0,raggio);z4=z11+(0,raggio);z6=z12+(0,raggio);z8=z13+(0,raggio);
-draw z2{right}...z3{left}...cycle;
-draw z4{right}...z5{left}...cycle;
-draw z6{right}...z7{left}...cycle;
-draw z8{right}...z9{left}...cycle;
-penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13);
-currentbreadth:=o;
-endchar;
-
-ligtable oct"111": oct"111"=:oct"112";
-ligtable oct"112": oct"111"=:oct"113";
-
-
-endinput;