summaryrefslogtreecommitdiff
path: root/fonts/cyrillic/scyrillic/cytitle.mf
diff options
context:
space:
mode:
Diffstat (limited to 'fonts/cyrillic/scyrillic/cytitle.mf')
-rw-r--r--fonts/cyrillic/scyrillic/cytitle.mf33
1 files changed, 33 insertions, 0 deletions
diff --git a/fonts/cyrillic/scyrillic/cytitle.mf b/fonts/cyrillic/scyrillic/cytitle.mf
new file mode 100644
index 0000000000..ca7c68d4c8
--- /dev/null
+++ b/fonts/cyrillic/scyrillic/cytitle.mf
@@ -0,0 +1,33 @@
+% This makes a short cyrillic font (caps only)
+
+let cmchar=message; % `|cmchar|' should precede each character
+
+font_coding_scheme:="ASCII caps";
+input cycoding;
+
+mode_setup; font_setup;
+
+input cyru; % upper case (majuscules)
+%input romand; % numerals
+
+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
+% k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
+% ligtable "P": "T": "Y": "A" kern kk#;
+% ligtable "F": "V": "W": "A" kern if serifs: kkk# else: kk#\\fi,
+% "K": "X": "O" kern k#, "C" kern k#, "G" kern k#, "Q" kern k#;
+% ligtable "O": "D": "X" kern k#, "W" kern k#, "A" kern k#,
+% "V" kern k#, "Y" kern k#;
+% ligtable "A": if serifs: "R": fi
+% "C" kern k#, "O" kern k#, "G" kern k#, "U" kern k#, "Q" kern k#,
+% "L": "T" kern kk#, "Y" kern kkk#, "V" kern kk#, "W" kern kkk#;
+% ligtable "I": "I" kern -k#; fi % Richard III
+bye.
+