X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=ucw-ofs.tex;h=4ede88b0fc1cee314cf19acc5fc45168a732ca6e;hb=e9f8d5a27e2b8f118f1c721d2bec0ac7728d55dd;hp=7d33a882e0259b870ddef630ab04d9ddb50ec4cc;hpb=3b3af3ae6bed74cdcf1681ad41a45e0c32391fb4;p=ucwmac.git

diff --git a/ucw-ofs.tex b/ucw-ofs.tex
index 7d33a88..4ede88b 100644
--- a/ucw-ofs.tex
+++ b/ucw-ofs.tex
@@ -20,6 +20,8 @@
    \newvariant9 \bxsl (BoldSlanted) cmbxsl\fotenc;\defaultextraenc;%
    \newvariant a \bo  (BoldNormal)  cmb\fotenc;\defaultextraenc;%
    \newvariant b \csc (CapsAndSmallCaps)  cmcsc\fotenc;\defaultextraenc;%
+   \newvariant c \sltt (SlantedTypewriter) cmsltt\fotenc;\defaultextraenc;%
+   \newvariant d \itt (ItalicTypewriter) cmitt\fotenc;\defaultextraenc;%
    \modifyenc 8z:csfont;%
 }
 \registerenc: 8z
@@ -68,29 +70,29 @@
 \newfam\bbfam
 \def\bb{\fam\bbfam}
 
-\def\loadbbm{
-	\loadmathfam\bbfam[/bbm]
+\def\loadbbm{%
+	\loadmathfam\bbfam[/bbm]%
 }
 \loadbbm
 
 % Recalculate line spacing for a given point size of the font (assuming CM-like metrics).
 % Also sets \strut and \topskip.
-\def\setbaselines#1{
+\def\setbaselines#1{%
 	\dimen0=1pt
 	\dimen0=#1\dimen0
 	\normalbaselineskip=1.2\dimen0
 	\normallineskip=0.1\dimen0
-	\setbox\strutbox=\hbox{\vrule height 0.85\dimen0 depth 0.35\dimen0 width 0pt}
+	\setbox\strutbox=\hbox{\vrule height 0.85\dimen0 depth 0.35\dimen0 width 0pt}%
 	\topskip=1\dimen0
 	\normalbaselines
 }
 
 % Switch to a specified font size (including math, line spacing etc.)
-\def\settextsize#1{
-	\def\fomenc{CM}
-	\setfonts[/#1]
-	\setmath[//]
-	\setbaselines{#1}
+\def\settextsize#1{%
+	\def\fomenc{CM}%
+	\setfonts[/#1]%
+	\setmath[//]%
+	\setbaselines{#1}%
 	\loadbbm
 }
 \def\twelvepoint{\settextsize{12}}