summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyctt.etx
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyctt.etx')
-rw-r--r--Master/texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyctt.etx48
1 files changed, 48 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyctt.etx b/Master/texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyctt.etx
new file mode 100644
index 00000000000..d20f92a6361
--- /dev/null
+++ b/Master/texmf-dist/tex/fontinst/cyrfinst/derivatives/lcyctt.etx
@@ -0,0 +1,48 @@
+\relax
+
+% LCYctt.etx -- install an LCY-encoded faked typewriter small-caps font
+%
+% This is used exclusively to install faked small-caps fonts;
+% real small caps fonts are installed using the default LCY.etx.
+
+\encoding
+
+\setcommand\lc#1#2{#1small}
+\setcommand\uc#1#2{#1}
+\setcommand\lclig#1#2{#1small}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+\setcommand\tty{y}
+\setcommand\currency{dollar}
+
+% The default letter spacing is 1/10 of the design size, with small
+% caps 80% the size of large caps.
+
+\setint{smallcapsscale}{800}
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+\ifisint{monowidth}\then
+ \setint{smallcapsspacing}
+ {\scale{\int{interword}}{\sub{1000}{\int{smallcapsscale}}}}
+\else
+ \setint{smallcapsspacing}{100}
+\fi
+
+\setglyph{everyglyph}
+ \movert{\div{\int{smallcapsspacing}}{2}}
+\endsetglyph
+
+\setglyph{everyendglyph}
+ \movert{\div{\int{smallcapsspacing}}{2}}
+\endsetglyph
+
+\inputetx{LCY}
+
+\endencoding