]> mj.ucw.cz Git - ads1.git/blob - ucw/ucw-ofs.tex
DFS: Revize pro novou prednasku
[ads1.git] / ucw / ucw-ofs.tex
1 % The UCW Macro Collection: Interface to OFS (Olsak's Font System)
2 % Written by Martin Mares <mj@ucw.cz> in 2010 and placed into public domain
3 % -------------------------------------------------------------------------
4
5 \ifx\OFSversion\undefined
6 \input ofs.tex
7 % \detailfontmessages
8 \fi
9
10 % We extend OFS's default CM family by several fonts: cmb, cmcsc
11
12 \ofsputfamlist{^^JUCW:}
13
14 \ofsdeclarefamily [CMRomanUCW] {% ------------ Computer Modern Roman (UCW extended version)
15    \loadtextfam cmr\fotenc;%
16                 cmbx\fotenc;%
17                 cmti\fotenc;%
18                 cmbxti\fotenc;\defaultextraenc;%
19    \newvariant8 \sl   (Slanted)     cmsl\fotenc;\defaultextraenc;%
20    \newvariant9 \bxsl (BoldSlanted) cmbxsl\fotenc;\defaultextraenc;%
21    \newvariant a \bo  (BoldNormal)  cmb\fotenc;\defaultextraenc;%
22    \newvariant b \csc (CapsAndSmallCaps)  cmcsc\fotenc;\defaultextraenc;%
23    \newvariant c \sltt (SlantedTypewriter) cmsltt\fotenc;\defaultextraenc;%
24    \newvariant d \itt (ItalicTypewriter) cmitt\fotenc;\defaultextraenc;%
25    \modifyenc 8z:csfont;%
26 }
27 \registerenc: 8z
28
29 \registertfm cmb8z     -      csb10
30 \registertfm cmb8z  0pt-6pt   csb5
31 \registertfm cmb8z  6pt-7pt   csb6
32 \registertfm cmb8z  7pt-8pt   csb7
33 \registertfm cmb8z  8pt-9pt   csb8
34 \registertfm cmb8z  9pt-10pt  csb9
35 \registertfm cmb8z  10pt-12pt csb10
36 \registertfm cmb8z  12pt-17pt csb12
37 \registertfm cmb8z  17pt-*    csb17
38
39 \registertfm cmcsc8z     -      cscsc10
40 \registertfm cmcsc8z  0pt-6pt   cscsc5
41 \registertfm cmcsc8z  6pt-7pt   cscsc6
42 \registertfm cmcsc8z  7pt-8pt   cscsc7
43 \registertfm cmcsc8z  8pt-9pt   cscsc8
44 \registertfm cmcsc8z  9pt-10pt  cscsc9
45 \registertfm cmcsc8z  10pt-12pt cscsc10
46 \registertfm cmcsc8z  12pt-17pt cscsc12
47 \registertfm cmcsc8z  17pt-*    cscsc17
48
49 \ofsdeclarefamily [BlackboardBold] {%
50    \loadtextfam bbm;%
51                 ;%
52                 ;%
53                 ;\defaultextraenc;%
54 }
55
56 \registertfm bbm     -      bbm10
57 \registertfm bbm  0pt-6pt   bbm5
58 \registertfm bbm  6pt-7pt   bbm6
59 \registertfm bbm  7pt-8pt   bbm7
60 \registertfm bbm  8pt-9pt   bbm8
61 \registertfm bbm  9pt-10pt  bbm9
62 \registertfm bbm  10pt-12pt bbm10
63 \registertfm bbm  12pt-17pt bbm12
64 \registertfm bbm  17pt-*    bbm17
65
66 \setfonts[CMRomanUCW/]
67
68 % \bb - blackboard bold math font
69
70 \newfam\bbfam
71 \def\bb{\fam\bbfam}
72
73 \def\loadbbm{%
74         \loadmathfam\bbfam[/bbm]%
75 }
76 \loadbbm
77
78 % Recalculate line spacing for a given point size of the font (assuming CM-like metrics).
79 % Also sets \strut and \topskip.
80 \def\setbaselines#1{%
81         \dimen0=1pt
82         \dimen0=#1\dimen0
83         \normalbaselineskip=1.2\dimen0
84         \normallineskip=0.1\dimen0
85         \setbox\strutbox=\hbox{\vrule height 0.85\dimen0 depth 0.35\dimen0 width 0pt}%
86         \topskip=1\dimen0
87         \normalbaselines
88 }
89
90 % Switch to a specified font size (including math, line spacing etc.)
91 \def\settextsize#1{%
92         \def\fomenc{CM}%
93         \setfonts[/#1]%
94         \setmath[//]%
95         \setbaselines{#1}%
96         \loadbbm
97 }
98 \def\twelvepoint{\settextsize{12}}