diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 23:38:21 +0000 |
commit | 215012a8d684889983ec2c0629e1c704e6853d9c (patch) | |
tree | ebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/pl/fik_mik.mf | |
parent | 1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (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.mf | 75 |
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 |