diff options
Diffstat (limited to 'Master/texmf-dist/doc/fonts/eurosym/makemfs')
-rw-r--r-- | Master/texmf-dist/doc/fonts/eurosym/makemfs | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/fonts/eurosym/makemfs b/Master/texmf-dist/doc/fonts/eurosym/makemfs new file mode 100644 index 00000000000..52bcfa218ff --- /dev/null +++ b/Master/texmf-dist/doc/fonts/eurosym/makemfs @@ -0,0 +1,64 @@ +#!/usr/bin/perl + +my $pref="fey"; +my $scaleunit= 0.425; +my $overunder= 0.4; + +my $makemf= 0; +my $maketfm= 0; + +$MYTEX= "$ENV{HOME}/lib/tex"; +$ENV{TEXINPUTS}='.//:$TEXMF//'.":${MYTEX}//"; +$ENV{MFINPUTS}='.//:$TEXMF//'.":${MYTEX}//"; +$ENV{TFMFONTS}='.//:$TEXMF/fonts//'.":/var/texfonts//:${MYTEX}//"; + +sub createshape { + my ($size, $suffix, $textline)= @_; + my $filename= $pref.$suffix.$size; + + if ($makemf) { + $filename.= ".mf"; + my $text= $textline." dsize=".$size.";"; + die "trying to overwrite main file..." if ($filename eq "$pref.mf"); + print "$filename\n"; + open F, ">$filename"; + print F "% Created by makeeurosymbols. Don't edit!\n\n"; + print F "mode_setup;\n\n"; + print F "boolean doslant, dooutline;\n"; + print F "numeric boldamount, dsize;\n\n"; + print F "$text\n\n"; + print F "font_size 10pt#;\n"; + print F "scaleunit:= $scaleunit;\n"; + print F "firstunit#:= scaleunit * pt#;\n"; + print F "overunder#:= $overunder firstunit#;\n\n"; + print F "input $pref.mf;\n\n"; + print F "end.\n"; + close F; + } + elsif ($maketfm) { + system { "/usr/scripts/maketfm" } "maketfm", $filename; + } +} + +for $i (@ARGV) { + if ($i =~ /^-tfm$/) { + $maketfm= 1; + $makemf= 0; + } + elsif ($i =~ /^-mf/) { + $makemf= 1; + $maketfm= 0; + } +} + +die "You should specify either -mf or -tfm.\n" unless ($maketfm || $makemf); + +for $size (10) { + for $i ([0,"m"], [2, "b"]) { + my ($a,$b) = ($$i[0], $$i[1]); + createshape ($size, "${b}r", "doslant:= false; dooutline:= false; boldamount:= $a;"); + createshape ($size, "${b}o", "doslant:= true; dooutline:= false; boldamount:= $a;"); + createshape ($size, "${b}l", "doslant:= false; dooutline:= true; boldamount:= $a;"); + } +} + |