trunk/Master/texmf-dist/mft

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

1 files changed, 111 insertions, 0 deletions

diff --git a/Master/texmf-dist/mft/base/pl.mft b/Master/texmf-dist/mft/base/pl.mft
new file mode 100644
index 00000000000..fc10e7b73b5
--- /dev/null
+++ b/Master/texmf-dist/mft/base/pl.mft
@@ -0,0 +1,111 @@
+%%%% MFT style for the Polish extension of Computer Modern (PL fonts)
+%%%% CMBASE style:
+%%% } ( ) ]] {{ }} ! ^ %%%% tokens that need no special formatting
+%%% step upto downto %%%% boldface binary operators
+%%% addto fill unfill draw undraw %%%% boldface unary operators
+%%% addto filldraw unfilldraw drawdot undrawdot erase pickup
+%%% addto exitunless stop incr decr proofrulethickness screenrule
+%%% addto define_pixels define_whole_pixels define_whole_vertical_pixels
+%%% addto define_blacker_pixels define_whole_blacker_pixels
+%%% addto define_corrected_pixels lowres_fix proofoffset penstroke
+%%% addto beginchar beginarithchar italcorr font_size font_slant
+%%% addto font_normal_space font_normal_stretch font_normal_shrink font_quad
+%%% addto font_x_height font_extra_space font_identifier font_coding_scheme
+%%% addto cmchar iff generate adjust_fit math_fit labels penlabels
+%%% addto stroke circ_stroke padded
+%%% enddef endchar %%%% boldface closing
+%%% true relax mode_setup font_setup %%%% boldface nullary operators
+%%% true clearit shipit cullit openit showit clearxy clearpen
+%%% true nodisplay notransforms screenchars screenstrokes imagerules
+%%% .. ... .... -- --- %%%% path operators made of dots and dashes
+%%% length flex abs dir %%%% unary operators to be in roman type
+%%% length unitvector inverse ceiling hround vround Vround counterclockwise
+%%% length tensepath byte reflectedabout rotatedaround magstep max min
+%%% and mod dotprod intersectionpoint softjoin %%%% binary operators to be roman
+%%% ++ ** %%%% binary operators made of two special characters
+%%% penoffset goodval direction directionpoint %%%% operators that take "of"
+%%% pausing tolerance pixels_per_inch blacker o_correction %%%% internals
+%%% pausing screen_rows screen_cols currentwindow displaying
+%%% pausing pen_top pen_bot pen_lft pen_rt shrink_fit rt lft top bot
+%%% = <= >= <> %%%% conversions for the SAIL character set only
+%%% good crisp fine tiny rule light_rule cal light_cal med_cal heavy_cal
+%%% good term fudged mfudged sloped_serif tilted med_tilted
+%%% pausing slant fudge math_spread superness superpull beak_darkness ligs
+%% \outer\def^^L{\par\vfill\eject} % obeypages
+%%%%-------------------------------------------------------------------------
+%%%% So far it was CMBASE; now 
+%% %--------- BJ & MR predilections & idiosyncrasies (ver. 1.09) ------------
+%%%% follow:
+%%%%-------------------------------------------------------------------------
+%%% end bye                 %%%% end=bye, isn't it?
+%%% screenrule proofrule    %%%% proofrule=screenrule, isn't it?
+%%% def mode_def            %%%% def=mode_def, isn't it?
+%%% input generate          %%%% input=generate, isn't it?
+%%% for range               %%%% we prefere \MF{}book convention
+%%% step thru               %%%% ditto
+%%% good lower
+%%%%-------------------------------------------------------------------------
+%%%% our slight modifications:
+%%\newcount\hours \newcount\minutes
+%%\ifx\plconventions\undefined %%%% don't define some dangerous macros twice
+%%%%-------------------------------------------------------------------------
+%%\let\plconventions\relax
+%%\def\MeX{M\kern-.111em\lower.5ex\hbox{E}\kern-.125emX}
+%%\let\OSH\#
+%%\def\SH{\raise.7ex\hbox{$\scriptstyle\OSH$}} % sharp sign for sharped units
+%%\let\#\SH \def\\#1{{\let\#\OSH\it#1}}
+%%\def\finstring"#1"{\tentex"#1"\egroup}
+%%\def\frac#1/#2{\leavevmode\kern.1em
+%%  \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
+%%  /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}\,} %%%% \, added
+%%\let\UL\_
+%%\def\_{\ifdim\fontdimen1\the\font=0pt \UL\kern0.01em\else\kern-0.08em\UL\kern0.04em\fi}
+%%%%-------------------------------------------------------------------------
+%%%% our string treatment:
+%%\font\ttfont pltt10
+%%\def\vispace{{\ttfont\char32}}
+%%%% strings may be broken in a .TeX file:
+%%{\obeyspaces\obeylines%
+%%\gdef\prepspnl{\obeyspaces\obeylines\let \vispace\let^^M\vispace}}
+%%\def\7{\hbox\bgroup\prepspnl\nocats\frenchspacing\finstring} % string token
+%%%%-------------------------------------------------------------------------
+%%%% our comment treatment:
+%%\font\commfont plsltt10 % standard comment font
+%%\font\bif plbxti10 % comment bold italic font
+%%%% sorry, but we're using the UNderSCOre in COmments (see the dirty trick)
+%%\def\unscoco{\ifmmode_\else\_\fi} \catcode`\_\active \let_\unscoco
+%%\font\trifnt plmib10 scaled \magstep2 \def\lftri{{\trifnt \char'57}}
+%%{\obeyspaces\gdef\prepsp{\obeyspaces\everymath{\catcode`\ 10\relax}\let \ }}
+%%\fi %%%% no more dangerous macros
+%%\def\specialcomments{%
+%% \def\9{$\bgroup\def\par{\hfill\lftri\endgraf\egroup}\commfont\%\prepsp}}
+%%\def\normalcomments{%
+%% \def\9{$\bgroup\def\par{\endgraf\egroup}\hfill\commfont\%\prepsp}}
+%%\specialcomments % our favorite form of comments
+%%%%-------------------------------------------------------------------------
+%%%% DIRTY TRICK---sorry, but we're also using the underscore in file names 
+%%%% (assumption: \tt appears only as \hbox{\tt...})
+%%\def\tt{\nocats\namett}
+%%{\catcode`\}\other \catcode`\)2\gdef\namett#1}{\tentex#1\egroup))
+%%%%-------------------------------------------------------------------------
+%%%% our footline:
+%%\def\oktime{% format `hh:mm'
+%%\hours=\time \divide \hours by 60 %
+%%\minutes=-\hours \multiply \minutes by 60 \advance \minutes by \time
+%%\ifnum\hours>9 \the\hours \else 0\the\hours \fi
+%%:%
+%%\ifnum\minutes>9 \the\minutes \else 0\the\minutes \fi}
+%%\def\monthnazwa{\ifcase \month
+%%\or stycznia\or lutego\or marca\or kwietnia\or maja\or czerwca\or lipca%
+%%\or sierpnia\or wrze\'snia\or pa\'zdziernika\or listopada\or grudnia%
+%%\fi}
+%%\def\makefootline{\baselineskip18pt\null\hrule\null\baselineskip12pt
+%% \line{\it\oktime\quad \the\day\ \monthnazwa\ \the\year\ 
+%% \hfill\llap{\tentex page \the\pageno}}}
+%%%%-------------------------------------------------------------------------
+%%%% our headline:
+%%\font\TT pltt12 scaled\magstep2
+%%\headline{\vbox to 0pt{\vss
+%%  \rightline{\TT\uppercase\expandafter{\jobname.mf}}\vskip5mm}}
+%% %-------------------------------------------------------------------------
+