1 files changed, 62 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/cbfonts-all/cbgreek.mf b/Master/texmf-dist/fonts/source/public/cbfonts-all/cbgreek.mf
new file mode 100644
index 00000000000..3e3ca6d7cf0
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/cbfonts-all/cbgreek.mf
@@ -0,0 +1,62 @@
+% file cbgreek.mf version 2.0c  2002/02/03
+% Copyright 1997 --- 2002 Claudio Beccari
+% It extracts the design size from the font name and calls the suitable
+% general parameter file for the specified font
+%
+% If the specific font driver file defines the gensize and calls the suitable
+% paramenter file, this cbgreek.mf gets input just once (font files generated
+% by Apostolos Syropoulos tex facility); otherwise this file gets input twice,
+% but the second time, thanks to the trick of defining the number cbgreek, it
+% gets immediately closed. This improves version 1.x, where the file was input
+% and completely parsed both times.
+
+if known cbgreek: expandafter endinput fi;
+if unknown varepsilon: boolean varepsilon; varepsilon:=false; fi
+
+if unknown gensize:
+  message "Computing gensize from file name";
+  string f_name, f_size;
+  f_name:=substring(0,4) of jobname;
+  f_size:=substring(4,8) of jobname;
+  scantokens("gensize:="&substring(0,2)of f_size&"."&substring(2,4)of f_size);
+  numeric cbgreek; cbgreek:=1;
+  scantokens("input "&f_name);
+fi
+  message "Generating glyphs";
+  if not (serifs or slitex): SansSerif:=true fi;
+  mode_setup;
+  font_setup;
+  if metrics:
+    readfrom("cbmetre");
+  else:
+    readfrom("cbaccent");
+    readfrom("cbupper");
+    readfrom("cblower");
+    readfrom("cbdigits");
+    readfrom("cbpunct");
+  fi
+  boundarychar:=oct"375";
+  if not metrics:
+  if small_caps:
+    readfrom("cbligsc");
+  elseif monospace:
+    readfrom("cbligtt");
+  elseif SansSerif:
+    readfrom("cblig");
+  elseif cursive or cbleipzig:
+    readfrom("cbligit");
+  elseif cbroman:
+    readfrom("cbligrm");
+  else:
+    readfrom("cblig");
+  fi fi
+  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
+bye.