From 9f8eab75c16d23e6b7b5768dd4ee1ae85ac8b37b Mon Sep 17 00:00:00 2001 From: fred Date: Sun, 24 Mar 2002 20:08:25 +0000 Subject: [PATCH] lilypond-0.1.39 --- bin/make-website.pl | 365 ----------------------------------------- debian/README.debian | 22 --- mf/autometric.mf | 126 -------------- mf/ital-f.mf | 39 ----- mf/ital-m.mf | 36 ---- mf/ital-p.mf | 29 ---- mf/ital-r.mf | 26 --- mf/ital-s.mf | 34 ---- mf/ital-z.mf | 29 ---- mf/round-pixel-gray.mf | 92 ----------- 10 files changed, 798 deletions(-) delete mode 100644 bin/make-website.pl delete mode 100644 debian/README.debian delete mode 100644 mf/autometric.mf delete mode 100644 mf/ital-f.mf delete mode 100644 mf/ital-m.mf delete mode 100644 mf/ital-p.mf delete mode 100644 mf/ital-r.mf delete mode 100644 mf/ital-s.mf delete mode 100644 mf/ital-z.mf delete mode 100644 mf/round-pixel-gray.mf diff --git a/bin/make-website.pl b/bin/make-website.pl deleted file mode 100644 index 2159716e96..0000000000 --- a/bin/make-website.pl +++ /dev/null @@ -1,365 +0,0 @@ -#!@PERL@ -w -# -*-Perl-*- - - -# stupid script to generate WWW site. The WWW site is my -# test-suite for LilyPond, I usually don't distribute versions that -# fail to make the website - -use FileHandle; -use Getopt::Long; - -my $lily_version; -my $footstr; -my $mw_id = ""; -my $id_str = "make-website 0.4"; -my $TAR="tar"; -my $MAKE="make"; - -sub get_version -{ - my ($vstr)=(""); - open V, "$depth/VERSION"; - while () { - s/#.*$//g; - next if (/^ *$/); - s/^/\$/; - s/= *(.*)$/=\"$1\";/; - $vstr .= $_; - } - eval ($vstr); - - $lily_version= "$TOPLEVEL_MAJOR_VERSION.$TOPLEVEL_MINOR_VERSION.$TOPLEVEL_PATCH_LEVEL$TOPLEVEL_MY_PATCH_LEVEL"; - - # stupid checks. - $lily_version= $lily_version; - - close V; -} - -sub set_html_footer -{ - my $MAILADDRESS=$ENV{MAILADDRESS}; - my @pw=(getpwuid($<)); - my $username=$pw[6]; - - $footstr = - "\n
Please take me back to the index\n -of LilyPond -- The GNU Project Music typesetter -
- -This page was built using " . $id_str . " from lilypond-" - . $lily_version . - " by

-


$username <" . $MAILADDRESS .">
-

"; -} - - -# do something, check return status -sub my_system -{ - my (@cmds) = @_; - foreach $cmd (@cmds) { - my ($ignoreret)=0; - if ( $cmd =~ /^-/ ) { - $ignoreret = 1; - $cmd = substr ($cmd, 1); - } - - my $ret = ( system ($cmd)); - if ($ret) { - if ($ignoreret) { - print STDERR "ignoring failed command \`$cmd\' (status $ret)\n"; - }else { - print STDERR "\nmake_website: failed on command \`$cmd\' (status $ret)\n"; - exit 2; - } - } - } -} - - -local $base="lilypond/"; - -local @examples=("twinkle-pop", - "wtk1-fugue2", - "standchen-16", - "standchen-20", - "wtk1-prelude1", - "toccata-fuga-E", - "scsii-menuetto", - "cadenza", - "gallina", - "twinkle", - "collisions", - "font", - "font20", - #"scales", - "rhythm", - "multi" ); - - -sub gen_html -{ - print "generating HTML\n"; - my_system "$MAKE -kC .. html"; -} - -sub gen_examples -{ - print "generating examples: \n"; - my @todo=(); - foreach $a (@examples) { - push @todo, "out/$a.ps.gz", "out/$a.gif", "out/$a.ly.txt"; - } - - my_system ("$MAKE -C .. " . join(' ', @todo)); -} - -my @texstuff = ("mudela-man", "mudela-course"); - -sub gen_manuals -{ - print "generating TeX doco list\n"; - open HTMLLIST, ">tex_manuals.html"; - print HTMLLIST "PostScript Manuals\n" ; - print HTMLLIST "

LilyPond manuals (in PostScript)

"; - print HTMLLIST ""; - - print HTMLLIST ""; - close HTMLLIST; - - my_system( "$MAKE -C .. " . join(' ', @todo)); -} - -sub gen_list -{ - print "generating HTML list\n"; - open HTMLLIST, ">example_output.html"; - - print HTMLLIST "Rendered Examples\n -These example files are taken from the LilyPond distribution. -LilyPond currently only outputs TeX and MIDI. The pictures and -PostScript files were generated using TeX, Ghostscript and some -graphics tools. The papersize used for these examples is A4. The GIF -files have been scaled to eliminate aliasing."; - - - - foreach $a (@examples) - { - $name=$a; print HTMLLIST "

example file: $name

\n\n"; - - open IF, "$depth/input/$a.ly"; - input_record_separator IF "\n}"; - - $desc = <IF>; - close IF; - - print HTMLLIST "$desc\n"; - - $inputf="$a.ly.txt"; - $giff="$a.gif"; - $jpegf="$a.jpeg"; - $pngf = "$a.png"; - $psf="$a.ps.gz"; - $midif="$a.midi"; - - print HTMLLIST ""; - } - print HTMLLIST ""; - close HTMLLIST; -} - -sub edit_html -{ - print STDERR "adding footer\n"; - - OUTER: - foreach $a (<*.html>) { - open H, "$a"; - my $sep=""; - input_record_separator H $sep; - my $file=""; - - while () { - if (/$mw_id/) { - close H; - next OUTER; - } - $file .= $_; - - } - close H; - - my $subst = $footstr; - $subst .= $back if (! $a =~ /index.html/ ); - $file =~ s/$sep/$subst$sep/g ; - $file =~ s/\.gif/\.$image/g; - $file =~ s!(.*)!LilyPond WWW: $1!g; - open H, ">$a"; - print H $mw_id; - - print H $file; - close H; - } -} - -sub copy_txt_file -{ - my ($f) = @_; - my $d = $f; - $d =~ s!^.*\/!!; - if (! $f =~ /.txt$/) { - $d = "$f.txt"; - } - print, $d; -} - -sub top_of_NEWS -{ - open NEWS, "NEWS.txt"; - input_record_separator NEWS "****"; - $desc = ; - chop ($desc); - close NEWS; - - return $desc; -} - -sub edit_index -{ - $ton = top_of_NEWS(); - $ton = "\n\n$ton\n\n"; - open INDEX, "index.html"; - input_record_separator NEWS undef; - $index = ; - close INDEX; - $index =~ s/top_of_NEWS/$ton/; - open INDEX, ">index.html"; - print INDEX $index; - close INDEX; -} - - -sub copy_files -{ - print "copying files\n"; - my_system "ln -s $depth/out ./docxx" if ( ! -x "docxx" ) ; - my_system "cp $depth/TODO ./TODO.txt", - "cp $depth/ANNOUNCE ./ANNOUNCE.txt", - "cp $depth/NEWS ./NEWS.txt", - "cp $depth/DEDICATION ./DEDICATION.txt"; - my_system "make -C .. gifs"; - -} - -sub set_images -{ - for $a (<*.gif>) { - if ($opt_png) { - my_system "gif2png -d $a"; - } - if ($opt_jpeg) { - my $b=$a; - $b =~ s/.gif/.jpeg/; - my_system "cjpeg -o $b $a"; - } - } -} - -sub docxx_update -{ - open BANNER, ">/tmp/lilybanner.html"; - my $ban = $footstr; - $ban =~ s!index.html!../index.html!g; - print BANNER $ban; - close BANNER; - my_system("BANNEROPT=\"-B /tmp/lilybanner.html\" $depth/bin/out/make-docxx"); - unlink "/tmp/lilybanner.html"; -} - -sub do_tar -{ - print "tarring.\n"; - $files = join (' ', < *.html *.$image *.ps.gz *.txt *.midi docxx/*>); - my_system - "-$TAR zvhcf website.tar.gz $files;", -# "gzip -f9 website.tar;"; -} - -sub identify -{ - print STDERR "This is " . $id_str . "\n"; - -} -sub clean_tmp -{ - @a = ; - unlink @a; -} - -sub main -{ - identify; - GetOptions("jpeg", "gif", "png", "noexamples"); - - local $image="gif" ; - $image = "png" if ($opt_png); - $image = "jpeg" if ($opt_jpeg); - - $depth = "../"; - my $cwd; - chomp($cwd = `pwd`); - die "need to be in directory Documentation\n" if ( ! ($cwd =~ /Documentation$/)); - get_version; - print "lily v. " . $lily_version . "\n"; - set_html_footer; - - - $depth = "../../"; - - chdir ("out"); - $ENV{"TEXINPUTS"} .= ":$depth/input/:"; - $ENV{"LILYINCLUDE"} = "$depth/input/"; - $ENV{"LILYTOP"} = $depth; - - gen_html; - copy_files; - - if (! $opt_noexamples) { - gen_examples; - gen_list; - gen_manuals; - } - set_images; - - edit_html; - edit_index; - docxx_update; - do_tar; - clean_tmp; -} - -main; diff --git a/debian/README.debian b/debian/README.debian deleted file mode 100644 index ba5d98e908..0000000000 --- a/debian/README.debian +++ /dev/null @@ -1,22 +0,0 @@ -lilypond for DEBIAN -------------------- - -Starting with version 0.1.12, LilyPond comes with some new MF fonts. -These fonts are not currently listed in /usr/lib/texmf/fontname/special.map -(from the teTeX package), therefore the fonts will be created in a -non-standard directory somewhere under /var/spool/texmf. The problem is -usually only aesthetic. TeTeX can create and find the *.tfm and *.pk files -without any problems. - -However, if you experience any font problems (such as the note heads -not showing up, characters in the wrong places, error messages from -TeX), especially after upgrading to a new version of LilyPond, you may -need to delete the relevant *.tfm and *.pk files under the directory -/var/spool/texmf. You may also file a bug report about this if you -like. - -LilyPond is still in active development, and many things may still change. -When it is stablized in the future, these new fonts will probably be -added into the standard special.map file. - -Anthony Fok , Thu, 23 Oct 1997 16:59:32 -0600 diff --git a/mf/autometric.mf b/mf/autometric.mf deleted file mode 100644 index 3b1b798684..0000000000 --- a/mf/autometric.mf +++ /dev/null @@ -1,126 +0,0 @@ -% -% autometric.mf -- administrative MF routines -% -% source file of the Feta (Font-En-Tja) pretty-but-neat music font -% -% (c) 1997 Han-Wen Nienhuys -% Jan Nieuwenhuizen -% -% these macros help create ascii logging output -% to automate generation of lily tables and tex backend -% The output should be parsed by the mf-to-table script - -% font or database? -def fet_beginfont(expr name,size) = - font_identifier:=name&decimal size; - font_size size; - message "@{font@:"&name&"@:"&decimal size&"@}"; - message ""; - enddef; - -def fet_endfont(expr name) = - message "@{tnof@:"&name&"@}"; - message ""; - enddef; - -% group or table? -def fet_begingroup(expr name) = - message "@{group@:"&name&"@}"; - message ""; - begingroup -enddef; - -def fet_endgroup(expr name) = - endgroup; - message "@{puorg@:"&name&"@}"; - message ""; -enddef; - -def autometric_output_char= - message "@{char@:"&charnamestr&"@:"&decimal charcode&"@:"&decimal charbp&"@:"&decimal charwd&"@:"&decimal chardp&"@:"&decimal charht&"@:"&idstr&"@:"&texstr&"@}"; -enddef; - -def hround_pixels(expr sharped) = hround(sharped * hppp) enddef; -def vround_pixels(expr sharped) = vround(sharped * vppp) enddef; - - - -def tand(expr alpha) = - (sind alpha/cosd alpha) - enddef; - -%breapth, width, depth, height -% breapth x-depth -def set_char_box(expr b_sharp, w_sharp, d_sharp,h_sharp) = - save scharbp, scharht, scharwd, schardp; - - % some paranoia if someone calls set_char_box(charwd, charbp, .. ) - scharbp := b_sharp; - scharht := h_sharp; - schardp := d_sharp; - scharwd := w_sharp; - - charbp := scharbp; - charht := scharht; - chardp := schardp; - charwd := scharwd; - - w := hround(w_sharp *hppp); - b := hround(b_sharp *hppp); - h := hround(h_sharp *vppp); - d := hround(d_sharp *vppp); -enddef; - -def no_dimen_beginchar(expr c) = - begingroup - charcode := if known c: byte c else: 0; fi; - charic := 0; - clearxy; - clearit; - clearpen; - scantokens extra_beginchar; -enddef; - -code:=-1; - -% starts just as plain mf's beginchar: -% charcode, -% and then adds: -% charname see below -% id index in lily's table -% texstr name of tex macro in lily's table and tex backend - -% the dims are uninitialised; you should use set_char_box manually. -def fet_beginchar(expr name, id_lit, texstr_lit) = - save texstr, idstr, charnamestr; - save charbp; - save w,b,h,d; - string texstr, idstr, charnamestr; - texstr := texstr_lit; - charnamestr := name; - idstr := id_lit; - - no_dimen_beginchar(incr code) name; - enddef; - - -def makebox_with_breapth(text r) = - for y = -d, 0, h: r((-b, y),(w,y)); endfor - for x = -b, 0, w: r((x, -d),(x, h)); endfor -enddef; - -% -% override plain endchar. We want a different box. -% -def breapth_endchar = - scantokens extra_endchar; - if proofing > 0: makebox_with_breapth(proofrule); fi - chardx := 10*(w + b); - shipit; - endgroup -enddef; - -def fet_endchar= - autometric_output_char; - breapth_endchar; - enddef; diff --git a/mf/ital-f.mf b/mf/ital-f.mf deleted file mode 100644 index 70faefa106..0000000000 --- a/mf/ital-f.mf +++ /dev/null @@ -1,39 +0,0 @@ -% ital-f.mf -% from itall.mf -% -% Computer Modern Italic lower case: -% This lowercase italic alphabet was prepared by D. E. Knuth in December, 1979, -% inspired by the Monotype faces used in {\sl The Art of Computer Programming}. -% The programs were revised for the new \MF\ conventions in 1985. - -% Character codes \0141 through \0172 are generated. -% not - -% cmchar "Italic letter f"; -% beginchar("f",max(1.5u#,stem#)+max(3.5u#,2flare#),asc_height#,desc_depth#); -\"Dynamic letter f"; -beginchar(incr num,max(1.5u#,stem#)+max(3.5u#,2flare#),asc_height#,desc_depth#); -italcorr asc_height#*slant+.75u#; -adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib; -numeric theta; z88=(.5w-.5u,h); z89=(.5w+.5u,-d); theta=angle(z88-z89); -pos0(flare,0); pos1(hair,0); pos2(vair,90); -pos3(.5[hair,stem],180); pos4(stem,theta+90); -pos5(stem,theta-90); pos6(.5[hair,stem],0); -pos7(vair,-90); pos8(hair,-180); pos9(flare,-180); -rt x1r=hround(w+.25u); lft x8r=hround-.35u; x2=.6[x1,x4]; x7=.6[x8,x5]; -y9-.5flare=vround -.85d; y2-y0=y9-y7; top y2r=h+oo; bot y7r=-d-oo; -% y4=.25[x_height,h]; y5=.5[-d,y4]; -y4=x_height-.5bar; y5=y4; -z4=whatever[z88,z89]; z5=whatever[z88,z89]; -x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7]; -bulb(2,1,0); bulb(7,8,9); % bulbs -filldraw stroke z2e{left}...z3e...{z89-z88}z4e; % upper arc -filldraw z4r--z5l--z5r--z4l--cycle; % stem -filldraw stroke z5e{z89-z88}...z6e...{left}z7e; % lower arc -pickup crisp.nib; pos20(bar,90); pos21(bar,90); -top y20r=top y21r=x_height; -%lft x20=lft x4r-.5stem-u; rt x21=rt x4l+.5stem+1.5u; -lft x20=lft x4r-.5stem-xbar; rt x21=rt x4l+.5stem+1.5xbar; -filldraw stroke z20e--z21e; % crossbar -math_fit(desc_depth#*slant+u#,x_height#*slant); -penlabels(0,1,2,3,4,5,6,7,8,9,20,21,88,89); endchar; diff --git a/mf/ital-m.mf b/mf/ital-m.mf deleted file mode 100644 index 5c39492c75..0000000000 --- a/mf/ital-m.mf +++ /dev/null @@ -1,36 +0,0 @@ -% ital-m.mf -% from itall.mf -% -% Computer Modern Italic lower case: -% This lowercase italic alphabet was prepared by D. E. Knuth in December, 1979, -% inspired by the Monotype faces used in {\sl The Art of Computer Programming}. -% The programs were revised for the new \MF\ conventions in 1985. - -% Character codes \0141 through \0172 are generated. -% not - -% cmchar "Italic letter m"; -% beginchar("m",15u#,x_height#,0); -\"Dynamic letter m"; -% beginchar(incr num,15u#,x_height#,0); -beginchar(incr num,12u#,x_height#,0); -italcorr 1/3x_height#*slant+.5hair#+.5u#; -adjust_fit(if monospace:-1.5u#,-2u# else: 0,0 fi); pickup fine.nib; -numeric shaved_stem; shaved_stem=mfudged.stem; -save stem; stem=shaved_stem; -pos2(stem,0); x1=x2; -if monospace: pos1(stem,0); lft x1l=hround(2.5u-.5stem); top y1=h; -else: x0=0; lft x2l=hround(2.5u-.5stem); - hook_in(0,a,1); fi % opening hook -y2-.5stem=-oo; filldraw circ_stroke z2e--z1e; % left stem -x4+.5stem=hround(.5w+.5stem); ital_arch(2,3,4); % left arch -pos5(stem,0); y5=y2; x5=x4; -filldraw circ_stroke z5e--z4e; % middle stem -x7+.5stem=hround(w-2.5u+.5stem); -x8=x7-.25u; ital_arch(5,6,7); % right arch -if monospace: pos9(vair,90); x9=good.x .5[x8,w]; bot y9l=0; y8=1/3h; - pos8(stem,0); filldraw stroke z8e{-u,-x_height}...{right}z9e; % terminal -else: x9=w; hook_out(8,b,9)(skewed); fi % closing hook -filldraw stroke z7e{down}..{-u,-x_height}z8e; % right stem -math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#); -penlabels(0,a,1,2,3,4,5,6,7,8,9); endchar; diff --git a/mf/ital-p.mf b/mf/ital-p.mf deleted file mode 100644 index c9e0cdc888..0000000000 --- a/mf/ital-p.mf +++ /dev/null @@ -1,29 +0,0 @@ -% ital-p.mf -% from itall.mf -% -% Computer Modern Italic lower case: -% This lowercase italic alphabet was prepared by D. E. Knuth in December, 1979, -% inspired by the Monotype faces used in {\sl The Art of Computer Programming}. -% The programs were revised for the new \MF\ conventions in 1985. - -% Character codes \0141 through \0172 are generated. -% not - -% cmchar "Italic letter p"; -% beginchar("p",9u#,x_height#,desc_depth#); -\"Dynamic letter p"; -beginchar(incr num,9u#,x_height#,desc_depth#); -italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi; -adjust_fit(0,0); pickup fine.nib; -x0=0; x2-.5stem=hround(2.5u-.5stem); hook_in(0,1,2); % opening hook -pos4(hair,-180); pos5(vair,-90); pos6(curve,0); pos7(vair,90); -x4=x2; rt x6r=hround(w-1.5u+.5curve); x5=x7=.5[x4,x6]; -bot y5r=-oo; top y7r=h+oo; y4=y6=.5[y5,y7]; -filldraw stroke super_arc.e(4,5) & pulled_arc.e(5,6) - & pulled_arc.e(6,7) & super_arc.e(7,4); % bowl -pickup tiny.nib; pos2'(stem,0); pos3(stem,0); -z2=z2'; x3=x2; bot y3=-d; filldraw stroke z2'e--z3e; % stem -dish_serif(3,2',a,1/3,.75jut,b,1/3,jut); % serif -math_fit(-min(2/3x_height#*slant-.5hair#-.5u#, - 2u#-.5stem#-desc_depth#*slant),ic#); -penlabels(0,1,2,3,4,5,6,7); endchar; diff --git a/mf/ital-r.mf b/mf/ital-r.mf deleted file mode 100644 index 607774e2be..0000000000 --- a/mf/ital-r.mf +++ /dev/null @@ -1,26 +0,0 @@ -% ital-r.mf -% from itall.mf -% -% Computer Modern Italic lower case: -% This lowercase italic alphabet was prepared by D. E. Knuth in December, 1979, -% inspired by the Monotype faces used in {\sl The Art of Computer Programming}. -% The programs were revised for the new \MF\ conventions in 1985. - -% Character codes \0141 through \0172 are generated. -% not - -% cmchar "Italic letter r"; -% beginchar("r",5.5u#+max(1.75u#,flare#),x_height#,0); -\"Dynamic letter r"; -beginchar(incr num,5.5u#+max(1.75u#,flare#),x_height#,0); -italcorr x_height#*slant; -adjust_fit(if monospace:.25u#,.5u# else: 0,0 fi); pickup fine.nib; -x0=0; x2=x3; pos3(stem,0); lft x3l=hround(2.5u-.5stem); y3-.5stem=-oo; -hook_in(0,1,2); % opening hook -filldraw circ_stroke z3e--z2e; % left stem -pos3'(hair,180); z3'=z3; pos4(vair,90); pos5(hair,0); pos6(flare,0); -x4=w-.5u-max(1.75u,flare); rt x5r=hround(r-.5u); top y4r=h+oo; -filldraw stroke z3'e{up}...z4e{right}; % link -y6+.5flare=vround(bot y4l-.03x_height); bulb(4,5,6); % bulb -math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#-.5u#); -penlabels(0,1,2,3,4,5,6); endchar; diff --git a/mf/ital-s.mf b/mf/ital-s.mf deleted file mode 100644 index 60af94b6e5..0000000000 --- a/mf/ital-s.mf +++ /dev/null @@ -1,34 +0,0 @@ -% ital-s.mf -% from itall.mf -% -% Computer Modern Italic lower case: -% This lowercase italic alphabet was prepared by D. E. Knuth in December, 1979, -% inspired by the Monotype faces used in {\sl The Art of Computer Programming}. -% The programs were revised for the new \MF\ conventions in 1985. - -% Character codes \0141 through \0172 are generated. -% not - -% cmchar "Italic letter s"; -% beginchar("s",5.25u#+max(1.75u#,flare#),x_height#,0); -\"Dynamic letter s"; -beginchar(incr num,5.25u#+max(1.75u#,flare#),x_height#,0); -italcorr x_height#*slant-.5u#; -adjust_fit(0,0); pickup fine.nib; -numeric theta; theta=90-angle(40u,h); slope:=-h/40u; % angle at middle -pos2(vair,-90); pos0(max(fine.breadth,ess),theta); pos7(vair,-90); -x2l=x0=x7=.5w; top y2l=h+oo; bot y7r=-oo; -y0-.5ess=y7l+.55(y2r-y7l-ess); -lft x3l=hround u-eps; rt x6r=hround(w-.5u)+eps; -x3r-x3l=x6r-x6l=hround .5[vair,ess]-fine; -ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r; -ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r; -interim superness:=more_super; -filldraw stroke super_arc.e(2,3) & z3e{down} - ..z4e---z5e..z6e{down} & super_arc.e(6,7); % main stroke -pos1(hair,0); pos10(hround .75[hair,flare],0); -pos2'(vair,90); z2'=z2; -pos8(hair,-180); pos9(flare,-180); -rt x10r=hround(w-u)+2eps; lft x9r=hround .5u-2eps; y10=.78h; y9=.25h; -bulb(2',1,10); bulb(7,8,9); % bulbs -math_fit(0,ic#); penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; diff --git a/mf/ital-z.mf b/mf/ital-z.mf deleted file mode 100644 index 6c0f517aed..0000000000 --- a/mf/ital-z.mf +++ /dev/null @@ -1,29 +0,0 @@ -% ital-z.mf -% from itall.mf -% -% Computer Modern Italic lower case: -% This lowercase italic alphabet was prepared by D. E. Knuth in December, 1979, -% inspired by the Monotype faces used in {\sl The Art of Computer Programming}. -% The programs were revised for the new \MF\ conventions in 1985. - -% Character codes \0141 through \0172 are generated. -%not - -% cmchar "Italic letter z"; -% beginchar("z",5.5u#+max(1.5u#,stem#),x_height#,0); -\"Dynamic letter z"; -beginchar(incr num,5.5u#+max(1.5u#,stem#),x_height#,0); -italcorr x_height#*slant+.5hair#; -adjust_fit(if monospace:.5u#,.5u# else: 0,0 fi); pickup fine.nib; -pos1(hair,0); pos2(stem,-90); pos3(vair,-90); pos4(hair,0); -lft x1l=hround(u-.5hair); x2=2.5u; x3=w-2u; rt x4r=hround(w-.5u); -top y1=.78h; top y2l=top y4=h+oo; y3=.825h; -pos5(hair,0); pos6(vair,-90); pos7(stem,-90); pos8(hair,0); -x5=x1; x6=2.5u; x7=w-2u; x8+.5hair=hround(w+.5hair-eps); -bot y5=bot y7r=-oo; y6=.175h; bot y8=.31h; -pair p; p=(z4-z5) yscaled 2; -filldraw stroke z1e{up}...z2e{right}..z3e{right}...{p}z4e; % upper bar -filldraw stroke z5e{p}...z6e{right}..{right}z7e...{up}z8e; % lower bar -filldraw stroke z5e{p}..{p}z4e; % diagonal -math_fit(0,1/3x_height#*slant+.5hair#+.5u#); -penlabels(1,2,3,4,5,6,7,8); endchar; diff --git a/mf/round-pixel-gray.mf b/mf/round-pixel-gray.mf deleted file mode 100644 index 6ffafd49e5..0000000000 --- a/mf/round-pixel-gray.mf +++ /dev/null @@ -1,92 +0,0 @@ -% Black font for Imagen with proofsheet resolution 75 pixels per inch - -% if mode<>imagen: errmessage "This file is for imagen only"; fi - -font_identifier "BLACKIMAGEN"; -picture pix_picture; pix_wd := pix_ht := 8; -pix_picture := nullpicture; -addto pix_picture contour (fullcircle scaled (8*1.6) shifted (4,4)); - -%pix_picture := unitpixel scaled 4; -% More-or-less general gray font generator -% See Appendix H of The METAFONTbook for how to use it - -forsuffixes m = mag,rep: - if unknown m: m := 1; - elseif (m<1) or (m<>floor m): - errmessage "Sorry, " & str m & " must be a positive integer"; - m := 1; fi endfor - -mg := mag; mag := 1; mode_setup; -if mg>1: hppp := hppp*mg; vppp := vppp*mg; - extra_endchar:= - "if charcode>0:currentpicture:=currentpicture scaled mg;fi" - & extra_endchar; fi; - -if picture pix_picture: rep := 1; - cull pix_picture keeping (1,infinity); -else: for z=(0,2),(1,0),(2,3),(3,1): - fill unitsquare shifted z; endfor - if not boolean lightweight: addto currentpicture also - currentpicture rotated 90 xscaled -1; fi - if unknown scale: scale := max(1,round(pixels_per_inch/300)); fi - pix_wd := pix_ht := 4scale; - if rep>1: picture pix; - currentpicture := currentpicture shifted-(1,1); pix := currentpicture; - for r=1 upto rep-1: addto currentpicture also pix shifted(4r,0); endfor - cullit; pix := currentpicture; - for r=1 upto rep-1: addto currentpicture also pix shifted(0,4r); endfor - unfill unitsquare xscaled 4rep yscaled 2 shifted-(1,1); - unfill unitsquare yscaled 4rep xscaled 2 shifted-(1,1); cullit; fi - picture pix_picture; pix_picture := currentpicture scaled scale; - pix_wd := pix_ht := 4scale*rep; fi - -def # = *72.27/pixels_per_inch enddef; -if unknown dotsize: dotsize := 2.5pix_wd/rep; fi - -beginchar(0,1.2dotsize#,1.2dotsize#,0); -fill fullcircle scaled dotsize scaled mg; endchar; - -numeric a[]; newinternal b,k; -def next_binary = - k := 0; forever: if k>b: a[incr b] := 0; fi - exitif a[k]=0; a[k] := 0; k := k+1; endfor - a[k] := 1 enddef; -def next_special_binary = - if a[0]=1: for k=0 upto b: a[k] := 0; endfor a[incr b] - else: k := 0; forever: exitif a[incr k]=1; endfor - a[k-1] fi := 1 enddef; - -def make_char = - clearit; next_binary; - for k=0 upto b: if a[k]=1: - addto currentpicture also pix_picture shifted(0,-k*pix_ht); fi endfor - charcode := charcode+1; chardp := b*charht; - scantokens extra_endchar; shipout currentpicture enddef; - -charwd := pix_wd#; charht := pix_ht#; chardx := pix_wd*mg; -b := -1; - -if boolean large_pixels: - for k=1 upto 7: make_char; charlist k:k+120; endfor - charcode := 120; b := -1; - addto pix_picture also pix_picture shifted (chardx,0); - charwd := 2charwd; chardx := 2chardx; - for k=1 upto 7: make_char; endfor -else: for k=1 upto 63: make_char; endfor - let next_binary = next_special_binary; - for k=64 upto 120: make_char; endfor - for k=121,122: charcode := k; - addto currentpicture also currentpicture shifted (chardx,0); - charwd := 2charwd; chardx := 2chardx; - scantokens extra_endchar; shipout currentpicture; endfor - charlist 120:121:122; fi - -font_coding_scheme "GFGRAY"; -font_size 8(pix_wd#); -font_normal_space pix_wd#; -font_x_height pix_ht#; -font_quad pix_wd#; -fontdimen 8: if known rulethickness: rulethickness - else: pix_wd#/(2rep) fi; -bye. -- 2.39.5