summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/pl/fik_mik.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
commit215012a8d684889983ec2c0629e1c704e6853d9c (patch)
treeebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/pl/fik_mik.mf
parent1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff)
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/pl/fik_mik.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/pl/fik_mik.mf75
1 files changed, 75 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/pl/fik_mik.mf b/Master/texmf-dist/fonts/source/public/pl/fik_mik.mf
new file mode 100644
index 00000000000..53592771bc3
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/pl/fik_mik.mf
@@ -0,0 +1,75 @@
+% ---------------------------------------------------------------------------
+%%% input use_driver
+% This is an auxiliary file which prepares reading a CM parametric file using
+% a sneaky-tricky method. Every PL parametric file (such as PLB10, PLBX10,
+% ..., etc.) inputs this file, optionally changes some of PL parameters, and
+% then calls the macro |use_driver|.
+% ---------------------------------------------------------------------------
+% AUTHORS: {\bif{}Bogus\l{}aw Jackowski \& Marek Ry\'cko}
+% ---------------------------------------------------------------------------
+% This file belongs to the public domain under conditions similar to
+% those of D. E. Knuth specified for the Computer Modern family of fonts.
+%
+% In particular, only the authors are entitled to modify this file.
+%
+% For details see either the file MEXINFO.POL or MEXINFO.ENG.
+% ---------------------------------------------------------------------------
+% PL VERSION 1.09, April 13th, 2001 -- released for BachoTeX 2001
+% ---------------------------------------------------------------------------
+if unknown cmbase: input cmbase fi
+
+string driver_name,ss; numeric ii;
+
+vardef generate @# = driver_name:=str @#; endgroup enddef;
+
+vardef use_driver @# =
+% |@#| either is empty or is equal to the pt-size of a respective
+% CM parametric file
+ if unknown param_base:
+% in sophisticated applications a user may wish to specify
+% |param_base| prior to calling |use_driver|:
+ string param_base; param_base=jobname;
+ fi
+ ii:=0;
+ forever:
+ ii:=ii+1;
+ ss:=substring(length(param_base)-ii,length(param_base)-ii+1) of param_base;
+ exitif (ss<"0") or (ss>"9") or (ii>=length(param_base));
+ endfor;
+ ii:=ii-1;
+ if unknown basic_unit#: basic_unit#=pt#; fi % i.e., |basic_unit#:=1|
+ numeric scale;
+ if str@# <> "":
+ scale=basic_unit#*scantokens(
+ substring(length(param_base)-ii,length(param_base)) of param_base)/@#;
+ ss:="input cm"&(substring(2,length(param_base)-ii) of param_base)&str @#;
+ else:
+ scale:=basic_unit#;
+ ss:="input cm"&(substring(2,length(param_base)) of param_base);
+ fi
+
+% |ogonek_pen#| is the only sharp extra PL parameter;
+% it must be rescaled separately:
+ if known ogonek_pen#: ogonek_pen#:=scale*ogonek_pen#; fi
+% input the original driver, possibly rescaling:
+ numeric true_pt#; true_pt#=pt#;
+ pt#:=scale*true_pt#; scantokens(ss); pt#:=true_pt#;
+
+ if (basic_unit#<>pt#):
+ message "Actual font size is " & decimal(designsize) & "pt#";
+ message "";
+ fi
+
+ font_identifier:=substring(0,length(param_base)-ii) of param_base;
+ scantokens("input "&
+ if driver_name="roman": "polan"
+ elseif driver_name="textit": "polkur"
+ elseif driver_name="mathsy": "polmat"
+ elseif driver_name="title": "poltyt"
+ elseif driver_name="csc": "polkap"
+ else: driver_name fi);
+
+enddef;
+
+endinput;
+%%\end