summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/mft/base/pl.mft
blob: fc10e7b73b5822af8d80394e97b6d3fa32e77a58 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
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}}
%% %-------------------------------------------------------------------------