+# First, parse command-line options. Two are available:
+#
+# - Font name (-f name or --font name)
+# - Lines per glyph (-lnn or --lines nn, where nn is a decimal number)
+#
+use Getopt::Long;
+
+$result = GetOptions (
+ "copyright|c=s" => \$copyright, # Copyright string
+ "font|f=s" => \$font_name, # XLFD FAMILY_NAME
+ "rows|r=i" => \$vpixels, # XLFD PIXEL_SIZE; vertical pixels
+ "version|v=s" => \$version # Version of this font
+ );
+
+if (not $font_name) {
+ $font_name = "Unifont";
+}
+if (not $vpixels) {
+ $vpixels = 16;
+}
+if (not $version) {
+ $version = "1.0";
+}
+
+$point_size = $vpixels;
+$point_size10 = 10 * $point_size;