summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/ibycus/ibyupr4.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
committerKarl Berry <karl@freefriends.org>2006-01-09 23:38:21 +0000
commit215012a8d684889983ec2c0629e1c704e6853d9c (patch)
treeebf1271bd71869069824935ae8a5678745bf8bce /Master/texmf-dist/fonts/source/public/ibycus/ibyupr4.mf
parent1af3d19d6dbcbf309667d9cb4aa3cdda914914a9 (diff)
trunk/Master/texmf-dist/fonts/source
git-svn-id: svn://tug.org/texlive/trunk@101 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/ibycus/ibyupr4.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/ibycus/ibyupr4.mf54
1 files changed, 54 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/ibycus/ibyupr4.mf b/Master/texmf-dist/fonts/source/public/ibycus/ibyupr4.mf
new file mode 100644
index 00000000000..080298bbcc1
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/ibycus/ibyupr4.mf
@@ -0,0 +1,54 @@
+def selectupper expr t =
+ currenttitle:= t;
+ if t = "The letter C" :
+ code_offset := Cigmalunate - ASCII"C"; let next_ = use_it_
+ elseif t = "The letter D" : let next_ = lose_it_
+ elseif t = "The letter F" :
+ code_offset := Digamma - ASCII"F"; let next_ = use_it_
+ elseif t = "The letter G" : let next_ = lose_it_
+ elseif t = "The letter J" : let next_ = lose_it_
+ elseif t = "The letter L" : let next_ = lose_it_
+ elseif t = "The letter Q" : let next_ = lose_it_
+ elseif t = "The letter R" : let next_ = lose_it_
+ elseif t = "The letter S" : let next_ = lose_it_
+ elseif t = "The letter U" : let next_ = lose_it_
+ elseif t = "The letter V" : let next_ = lose_it_
+ elseif t = "The letter W" : let next_ = lose_it_
+ elseif t = "The letter Y" : let next_ = lose_it_
+ elseif t = "The letter P" :
+ code_offset := ASCII"R" - ASCII"P"; let next_ = use_it_
+ else: code_offset := 0; let next_ = use_it_ fi; next_ enddef;
+
+def recodeupper expr t =
+ currenttitle:= t;
+ if t = "Uppercase Greek Xi" : code_offset := ASCII"C" - oct"004";
+ elseif t = "Uppercase Greek Delta" : code_offset := ASCII"D" - oct"001";
+ elseif t = "Uppercase Greek Phi" : code_offset := ASCII"F" - oct"010";
+ elseif t = "Uppercase Greek Gamma" : code_offset := ASCII"G" - oct"000";
+ elseif t = "Uppercase Greek Lambda" : code_offset := ASCII"L" - oct"003";
+ elseif t = "Uppercase Greek Pi" : code_offset := ASCII"P" - oct"005";
+ elseif t = "Uppercase Greek Theta" : code_offset := ASCII"Q" - oct"002";
+ elseif t = "Uppercase Greek Sigma" : code_offset := ASCII"S" - oct"006";
+ elseif t = "Uppercase Greek Upsilon" : code_offset := ASCII"U" - oct"007";
+ elseif t = "Uppercase Greek Omega" : code_offset := ASCII"W" - oct"012";
+ elseif t = "Uppercase Greek Psi" : code_offset := ASCII"Y" - oct"011";
+ else: code_offset := 0; fi; next_ enddef;
+
+let cmchar = selectupper;
+input romanu
+let cmchar = recodeupper;
+input greeku
+
+code_offset := 0;
+
+def selectkoppa expr t =
+ currenttitle:= t;
+ if t =
+ "Uppercase koppa" : let next_ = use_it_
+ else: let next_ = lose_it_ fi; next_ enddef;
+let cmchar = selectkoppa;
+
+input koppa4
+
+let cmchar = relax;
+