% Symboles divers
if unknown cmbase: input cmbase fi

font_identifier:="EGYP"; font_size 12pt#;
u#:=23.5/36pt#;      % unit width
width_adj#:=0pt#;    % width adjustment for certain characters
serif_fit#:=0pt#;    % extra sidebar near lowercase serifs
cap_serif_fit#:=5.8/36pt#;  % extra sidebar near uppercase serifs
letter_fit#:=0pt#;    % extra space added to all sidebars

body_height#:=324/36pt#;  % height of tallest characters
asc_height#:=300/36pt#;    % height of lowercase ascenders
cap_height#:=295.2/36pt#;  % height of caps
fig_height#:=278.4/36pt#;  % height of numerals
x_height#:=186/36pt#;    % height of lowercase without ascenders
math_axis#:=108/36pt#;    % axis of symmetry for math symbols
bar_height#:=104.4/36pt#;  % height of crossbar in lowercase e
comma_depth#:=84/36pt#;    % depth of comma below baseline
desc_depth#:=84/36pt#;    % depth of lowercase descenders

crisp#:=0pt#;      % diameter of serif corners
tiny#:=8/36pt#;      % diameter of rounded corners
fine#:=7/36pt#;      % diameter of sharply rounded corners
thin_join#:=7.5/36pt#;    % width of extrafine details
hair#:=9.5/36pt#;    % lowercase hairline breadth
stem#:=28/36pt#;    % lowercase stem breadth
curve#:=33/36pt#;    % lowercase curve breadth
ess#:=30/36pt#;      % breadth in middle of lowercase s
flare#:=36/36pt#;    % diameter of bulbs or breadth of terminals
dot_size#:=42/36pt#;    % diameter of dots
cap_hair#:=11.5/36pt#;    % uppercase hairline breadth
cap_stem#:=35/36pt#;    % uppercase stem breadth
cap_curve#:=40/36pt#;    % uppercase curve breadth
cap_ess#:=38/36pt#;    % breadth in middle of uppercase s
rule_thickness#:=.44pt#;  % thickness of lines in math symbols

dish#:=1/36pt#;      % amount erased at top or bottom of serifs
bracket#:=24/36pt#;    % vertical distance from serif base to tangent
jut#:=33/36pt#;      % protrusion of lowercase serifs
cap_jut#:=41/36pt#;    % protrusion of uppercase serifs
beak_jut#:=11.4/36pt#;    % horizontal protrusion of beak serifs
beak#:=84/36pt#;    % vertical protrusion of beak serifs
vair#:=8.5/36pt#;    % vertical diameter of hairlines
notch_cut#:=12pt#;    % maximum breadth above or below notches
bar#:=12.5/36pt#;    % lowercase bar thickness
slab#:=12.5/36pt#;    % serif and arm thickness
cap_bar#:=12.5/36pt#;    % uppercase bar thickness
cap_band#:=12.5/36pt#;    % uppercase thickness above/below lobes
cap_notch_cut#:=12pt#;    % max breadth above/below uppercase notches
serif_drop#:=4.8/36pt#;    % vertical drop of sloped serifs
stem_corr#:=1/36pt#;    % for small refinements of stem breadth
vair_corr#:=1/36pt#;    % for small refinements of hairline height
apex_corr#:=0pt#;    % extra width at diagonal junctions

o#:=9/36pt#;      % amount of overshoot for curves
apex_o#:=9/36pt#;    % amount of overshoot for diagonal junctions

slant:=0;      % tilt ratio $(\Delta x/\Delta y)$
fudge:=1;      % factor applied to weights of heavy characters
math_spread:=-0.2;    % extra openness of math symbols
superness:=1/sqrt2;    % parameter for superellipses
superpull:=1/6;      % extra openness inside bowls
beak_darkness:=11/30;    % fraction of triangle inside beak serifs
ligs:=2;      % level of ligatures to be included

square_dots:=false;    % should dots be square?
hefty:=false;      % should we try hard not to be overweight?
serifs:=true;      % should serifs and bulbs be attached?
monospace:=false;    % should all characters have the same width?
math_fitting:=false;    % should math-mode spacing be used?

mode_setup; font_setup;

cmchar "Hachures 1/4 quadra";
beginchar("C", 1.5x_height#, 1.5x_height#, 0u#);
pickup pencircle scaled 0.5pt;
z0=(0,0); z1= (w,h);
draw z0--z1;
x2=0; y2=0.5[x0,x1];
x3=y2; y3=y1;
draw  z2--z3;
x4=y2; y4=0;
x5=x1; y5=y2;
draw  z4--z5;
penlabels(0,1,2,3,4,5);
endchar;

thickness#:= 0.4mm#;
thickness:=ceiling(thickness#*hppp); % the way rules thicknesses are done
numeric correc;
correc:= 0.5 thickness;

cmchar "1/4 cartouche";
beginchar("1", 1.5x_height#, 1.5x_height#, 0u#);
pickup pencircle scaled thickness;
z0=(correc,0);
z1=(w,h-correc);
z3=(correc,h);
draw  z0{up}..(z0+z1+2z3)/4..z1{right};
penlabels(0,1,3);
endchar;

cmchar "1/4 cartouche";
beginchar("2", 1.5x_height#, 1.5x_height#, 0u#);
pickup pencircle scaled thickness;
z0=(correc,h);
z1=(w,correc);
z3=(correc,correc);
draw  z0{down}..(z0+z1+2z3)/4..z1{right};
penlabels(0,1,3);
endchar;

cmchar "1/4 cartouche";
beginchar("3", 1.5x_height#, 1.5x_height#, 0u#);
pickup pencircle scaled thickness;
z0=(0,correc);
z1=(w-correc,h);
z3=(w-correc,correc);
draw  z0{right}..(z0+z1+2z3)/4..z1{up};
penlabels(0,1,3);
endchar;

cmchar "1/4 cartouche";
beginchar("4", 1.5x_height#, 1.5x_height#, 0u#);
pickup pencircle scaled thickness;
z0=(w-correc,0);
z1=(0,h-correc);
z3=(w-correc,h-correc);
draw  z0{up}..(z0+z1+2z3)/4..z1{left};
penlabels(0,1,3);
endchar;

cmchar "Noeud du Cartouche";
beginchar("5", 0.5x_height#, 3x_height#, 0u#);
pickup pensquare scaled thickness;
z0=(-0.5correc,0);
z1=(-0.5correc,h);
draw  z0---z1;
pickup pencircle scaled thickness;
z2=(0,-1.5 thickness);
z3=(1.5 thickness,0);
z4=(- thickness, h/2);
draw z4---z4+z3;
draw (z4-z2)---((z4-z2)+z3);
draw (z4+z2)---((z4+z2)+z3);
penlabels(0,1,3,4,);
endchar;

bye.