summaryrefslogtreecommitdiff
path: root/fonts/cyrillic/scyrillic/cyccsc.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/cyrillic/scyrillic/cyccsc.mf')
-rw-r--r--fonts/cyrillic/scyrillic/cyccsc.mf44
1 files changed, 44 insertions, 0 deletions
diff --git a/fonts/cyrillic/scyrillic/cyccsc.mf b/fonts/cyrillic/scyrillic/cyccsc.mf
new file mode 100644
index 0000000000..5a78959f37
--- /dev/null
+++ b/fonts/cyrillic/scyrillic/cyccsc.mf
@@ -0,0 +1,44 @@
+% Caps and Small Caps in Computer Modern Cyrillic
+
+let cmchar=message; % `|cmchar|' should precede each character
+
+font_coding_scheme:=if ligs=0: "TeX typewriter text"
+ else: "TeX text without f-ligatures" fi;
+spanish_shriek=oct"016"; spanish_query=oct"017";
+
+input cycoding;
+
+mode_setup; font_setup;
+input cyru; % upper case (majuscules)
+%input romsub; % substitutes for ligatures
+%if ligs>0: input comlig; fi % ligatures common with italic
+
+%ligtable "!": "`" =: spanish_shriek;
+%ligtable "?": "`" =: spanish_query;
+font_slant slant; font_x_height x_height#;
+if monospace: font_normal_space 9u#; % no stretching or shrinking
+ font_quad 18u#;
+ font_extra_space 9u#;
+else: font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+fi;
+
+%%% fine lower
+forsuffixes $= u, width_adj, cap_serif_fit, letter_fit,
+ body_height, cap_height, x_height, bar_height, comma_depth,
+ flare, cap_hair, stem, cap_stem, cap_curve, cap_ess,
+ cap_jut, beak_jut, beak, slab, cap_bar, cap_band, cap_notch_cut,
+ o, apex_o: $.#:=lower.$.#; endfor
+fudge:=lower.fudge;
+font_setup; % now try again with |lower| settings
+extra_endchar:=extra_endchar&"charcode:=charcode+code_offset";
+code_offset:= ASCII"A" - ASCII"a";
+input cyru; % majuscules (in lowercase positions)
+%code_offset:=-3;
+%input romspu; % \AE, \OE, \O\ (in positions of \ae, \oe, \o)
+%code_offset:=0;
+%input cscspu; % substitutes for the remaining characters of romspl
+bye.
+