trunk/Master/texmf-dist/fonts/source

git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 96 insertions, 0 deletions

diff --git a/Master/texmf-dist/fonts/source/public/cmpica/cmpicab.mf b/Master/texmf-dist/fonts/source/public/cmpica/cmpicab.mf
new file mode 100644
index 00000000000..29b9a7a498e
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/cmpica/cmpicab.mf
@@ -0,0 +1,96 @@
+% This is CMPICAB.MF in text format, as of Jul 14, 1988.
+if unknown cmbase: input cmbase fi
+ 
+font_identifier:="CMPICAB"; font_size 10pt#;
+ 
+u#:=29/36pt#;      % unit width
+width_adj#:=0pt#;    % width adjustment for certain characters
+serif_fit#:=0pt#;    % extra sidebar near lowercase serifs
+cap_serif_fit#:=0pt#;    % extra sidebar near uppercase serifs
+letter_fit#:=0pt#;    % extra space added to all sidebars
+ 
+body_height#:=275/36pt#;  % height of tallest characters
+asc_height#:=242/36pt#;    % height of lowercase ascenders
+cap_height#:=242/36pt#;    % height of caps
+fig_height#:=242/36pt#;    % height of numerals
+x_height#:=171/36pt#;    % height of lowercase without ascenders
+math_axis#:=121/36pt#;    % axis of symmetry for math symbols
+bar_height#:=87/36pt#;    % height of crossbar in lowercase e
+comma_depth#:=50/36pt#;    % depth of comma below baseline
+desc_depth#:=80/36pt#;    % depth of lowercase descenders
+ 
+crisp#:=22/36pt#;    % diameter of serif corners
+tiny#:=22/36pt#;    % diameter of rounded corners
+fine#:=21/36pt#;    % diameter of sharply rounded corners
+thin_join#:=21/36pt#;    % width of extrafine details
+hair#:=25/36pt#;    % lowercase hairline breadth
+stem#:=25/36pt#;    % lowercase stem breadth
+curve#:=25/36pt#;    % lowercase curve breadth
+ess#:=22/36pt#;      % breadth in middle of lowercase s
+flare#:=32/36pt#;    % diameter of bulbs or breadth of terminals
+dot_size#:=36/36pt#;    % diameter of dots
+cap_hair#:=25/36pt#;    % uppercase hairline breadth
+cap_stem#:=25/36pt#;    % uppercase stem breadth
+cap_curve#:=25/36pt#;    % uppercase curve breadth
+cap_ess#:=25/36pt#;    % breadth in middle of uppercase s
+rule_thickness#:=25/36pt#;  % thickness of lines in math symbols
+ 
+dish#:=0pt#;      % amount erased at top or bottom of serifs
+bracket#:=0pt#;      % vertical distance from serif base to tangent
+jut#:=34/36pt#;      % protrusion of lowercase serifs
+cap_jut#:=34/36pt#;    % protrusion of uppercase serifs
+beak_jut#:=0pt#;    % horizontal protrusion of beak serifs
+beak#:=34/36pt#;    % vertical protrusion of beak serifs
+vair#:=22/36pt#;    % vertical diameter of hairlines
+notch_cut#:=25/36pt#;    % maximum breadth above or below notches
+bar#:=22/36pt#;      % lowercase bar thickness
+slab#:=22/36pt#;    % serif and arm thickness
+cap_bar#:=22/36pt#;    % uppercase bar thickness
+cap_band#:=22/36pt#;    % uppercase thickness above/below lobes
+cap_notch_cut#:=25/36pt#;  % max breadth above/below uppercase notches
+serif_drop#:=0pt#;    % vertical drop of sloped serifs
+stem_corr#:=0pt#;    % for small refinements of stem breadth
+vair_corr#:=0pt#;    % for small refinements of hairline height
+apex_corr#:=10/36pt#;    % extra width at diagonal junctions
+ 
+o#:=4/36pt#;      % amount of overshoot for curves
+apex_o#:=3/36pt#;    % amount of overshoot for diagonal junctions
+ 
+slant:=0;      % tilt ratio $(\Delta x/\Delta y)$
+fudge:=0.81;      % factor applied to weights of heavy characters
+math_spread:=-1;    % extra openness of math symbols
+superness:=1/sqrt2;    % parameter for superellipses
+superpull:=0;      % extra openness inside bowls
+beak_darkness:=0;    % fraction of triangle inside beak serifs
+ligs:=0;      % level of ligatures to be included
+ 
+square_dots:=false;    % should dots be square?
+hefty:=true;      % should we try hard not to be overweight?
+serifs:=true;      % should serifs and bulbs be attached?
+monospace:=true;    % should all characters have the same width?
+variant_g:=false;    % should an italic-style g be used?
+low_asterisk:=true;    % should the asterisk be centered at the axis?
+math_fitting:=false;    % should math-mode spacing be used?
+ 
+% the remainder of the code here tells \MF\ to draw a squiggly line
+% under all characters except the diacriticals; this an archaic
+% typesetters' convention for indicating boldface text.
+ 
+extra_endchar:=extra_endchar&"undersquiggle;";
+ 
+def undersquiggle =
+ if (charcode<oct"022") or ((charcode>oct"030") and (charcode<oct"056"))
+   or ((charcode<oct"136") and (charcode>oct"057"))
+   or ((charcode>oct"137") and (charcode<oct"176")):
+  pickup pencircle scaled 0.6pt;
+  draw squiggle;
+  fi;
+ enddef;
+ 
+def squiggle=(0,-100/36pt){right}..(1/8w,-85/36pt)..
+ {right}(2/8w,-100/36pt){right}..(3/8w,-115/36pt)..
+ {right}(4/8w,-100/36pt){right}..(5/8w,-85/36pt)..
+ {right}(6/8w,-100/36pt){right}..(7/8w,-115/36pt)..{right}(w,-100/36pt)
+ enddef;
+ 
+generate pica      % switch to the driver file