diff options
Diffstat (limited to 'Master/texmf-dist/fonts')
18 files changed, 659 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup10.mf b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup10.mf new file mode 100644 index 00000000000..6e5f195565b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup10.mf @@ -0,0 +1,35 @@ +%% +%% This is file `cmtiup10.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% cmtiup.dtx (with options: `cmtiup10') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from cmtiup10.mf. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file cmtiup.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%%%%%% File cmtiup10.mf %%%%%%%% +if unknown cmbase: input cmbase fi +let generate=relax; +let textit=relax; +font_size 10pt; input cmti10; +font_identifier:="CMTI UnSlPunct"; +input cmtiupgn; + + + + + +endinput; diff --git a/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup12.mf b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup12.mf new file mode 100644 index 00000000000..569e066a07b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup12.mf @@ -0,0 +1,35 @@ +%% +%% This is file `cmtiup12.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% cmtiup.dtx (with options: `cmtiup12') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from cmtiup12.mf. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file cmtiup.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%%%%%% File cmtiup12.mf %%%%%%%% +if unknown cmbase: input cmbase fi +let generate=relax; +let textit=relax; +font_size 12pt; input cmti12; +font_identifier:="CMTI UnSlPunct"; +input cmtiupgn; + + + + + +endinput; diff --git a/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup7.mf b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup7.mf new file mode 100644 index 00000000000..d6fbc53f758 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup7.mf @@ -0,0 +1,35 @@ +%% +%% This is file `cmtiup7.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% cmtiup.dtx (with options: `cmtiup7') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from cmtiup7.mf. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file cmtiup.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%%%%%% File cmtiup7.mf %%%%%%%% +if unknown cmbase: input cmbase fi +let generate=relax; +let textit=relax; +font_size 7pt; input cmti7; +font_identifier:="CMTI UnSlPunct"; +input cmtiupgn; + + + + + +endinput; diff --git a/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup8.mf b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup8.mf new file mode 100644 index 00000000000..a6da33ad841 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup8.mf @@ -0,0 +1,35 @@ +%% +%% This is file `cmtiup8.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% cmtiup.dtx (with options: `cmtiup8') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from cmtiup8.mf. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file cmtiup.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%%%%%% File cmtiup8.mf %%%%%%%% +if unknown cmbase: input cmbase fi +let generate=relax; +let textit=relax; +font_size 8pt; input cmti8; +font_identifier:="CMTI UnSlPunct"; +input cmtiupgn; + + + + + +endinput; diff --git a/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup9.mf b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup9.mf new file mode 100644 index 00000000000..27540308002 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiup9.mf @@ -0,0 +1,35 @@ +%% +%% This is file `cmtiup9.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% cmtiup.dtx (with options: `cmtiup9') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from cmtiup9.mf. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file cmtiup.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%%%%%% File cmtiup9.mf %%%%%%%% +if unknown cmbase: input cmbase fi +let generate=relax; +let textit=relax; +font_size 9pt; input cmti9; +font_identifier:="CMTI UnSlPunct"; +input cmtiupgn; + + + + + +endinput; diff --git a/Master/texmf-dist/fonts/source/public/cmtiup/cmtiupgn.mf b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiupgn.mf new file mode 100644 index 00000000000..915466a719d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiupgn.mf @@ -0,0 +1,132 @@ +%% +%% This is file `cmtiupgn.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% cmtiup.dtx (with options: `cmtiupgn') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from cmtiupgn.mf. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file cmtiup.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%% The Computer Modern Text Italic family (by D. E. Knuth, 1979--1985) +%% driver with the unslanted digits and symbols by SVZ (1.3 2003/01/03) +mode_setup; font_setup; + +input itall; % lower case (minuscules) +input italsp; % lowercase specials (dotless \i, ligature \ae, etc.) + +if ligs>1: font_coding_scheme:="TeX text"; + spanish_shriek=oct"074"; spanish_query=oct"076"; +%% input italig; % letter ligatures +input cmtiuplg; % unproper here kerning removed from Knuth italig.mf; +else: font_coding_scheme:=if ligs=0: "TeX typewriter text" + else: "TeX text without f-ligatures" fi; + spanish_shriek=oct"016"; spanish_query=oct"017"; 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#; + letter_fit#:=letter_fit:=0; +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 + +input romanu; % upper case (majuscules) +input greeku; % upper case greek letters +input romspu; % uppercase specials (\AE, \OE, \O) +input accent; % accents common to roman and italic text + +if ligs>0: input comlig; fi % ligatures common with roman text +if ligs<=1: input romsub; fi % substitutes for ligatures +new_slant=slant; +input cmtiupp +input romand; % numerals +input punct; % punctuation symbols common to roman and italic text +ligtable "!": "`" =: spanish_shriek; +ligtable "?": "`" =: spanish_query; +slant:=new_slant; +font_setup; +def addkern=":"kern 3u#, +";"kern 3u#,"!"kern 3u#,"("kern 3u#,")"kern 3u#,"]"kern 3u#,"["kern 3u#, +"?"kern 3u#,"0"kern 3u#,"1"kern 3u#,"2"kern 3u#,"3"kern 3u#,"4"kern 3u#, +"5"kern 3u#,"6"kern 3u#,"7"kern 3u#,"8"kern 3u#,"9"kern 3u#, +"#"kern 3u#,"%"kern 3u#,"@"kern 3u#, +"*"kern 1.5u#,"+"kern 1.5u#,"/"kern 3u#, spanish_shriek kern 3u#, +spanish_query kern 3u# enddef; +def addkerns=":"kern 1.5u#, +";"kern 1.5u#,"!"kern 2u#,"("kern 2u#,")"kern 2u#,"]"kern 2u#,"["kern 2u#, +"?"kern 2u#,"0"kern 1.5u#,"1"kern 2u#,"2"kern 2u#,"3"kern 2u#,"4"kern 1.5u#, +"5"kern 2u#,"6"kern 1.5u#,"7"kern 2u#,"8"kern 2u#,"9"kern 2u#, +"#"kern 2u#,"%"kern 1.5u#,"@"kern 2u#, +"*"kern 1.5u#,"+"kern 1.5u#,"/"kern 2u#, spanish_shriek kern 2u#, +spanish_query kern 2u# enddef; +def addkernss=":"kern u#, +";"kern u#,"!"kern u#,"("kern u#,")"kern u#,"]"kern u#,"["kern u#, +"?"kern u#,"0"kern u#,"1"kern u#,"2"kern u#,"3"kern u#,"4"kern u#, +"5"kern u#,"6"kern u#,"7"kern u#,"8"kern u#,"9"kern u#, +"#"kern u#,"%"kern u#,"@"kern u#, +"*"kern u#,"+"kern u#,"/"kern u#, spanish_shriek kern u#, +spanish_query kern u# enddef; +if not monospace: + k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning + ligtable "d": "w": "l": "l" kern +u#, addkerns; + ligtable "F": "V": "o" kern kk#, "e" kern kk#, + "u" kern kk#, "r" kern kk#, "a" kern kk#, "A" kern kkk#, + "K": "X": "O" kern k#, "C" kern k#, "G" kern k#, "Q" kern k#, addkerns; + ligtable "T": "y" kern kk#, + "Y": "e" kern kk#, "o" kern kk#, "r" kern kk#, "a" kern kk#, "u" kern kk#, + "W": "A" kern kk#, addkern; + ligtable "P": "A" kern kk#, addkerns; + ligtable "O": "D": "X" kern k#, "W" kern k#, "A" kern k#, + "V" kern k#, "Y" kern k#, addkerns; + ligtable "A": "n" kern k#, "l" kern k#, "r" kern k#, "u" kern k#, + "m" kern k#, "t" kern k#, "i" kern k#, "C" kern k#, "O" kern k#, + "G" kern k#, "h" kern k#, "b" kern k#, "U" kern k#, "k" kern k#, + "v" kern k#, "w" kern k#, "Q" kern k#, + "T" kern kk#, "Y" kern kk#, + "V" kern kkk#, "W" kern kkk#, + "e" kern -u#, "a" kern -u#, "o" kern -u#, + "d" kern -u#, "c" kern -u#, "g" kern -u#, "q" kern -u#, addkernss; + ligtable "R": "n" kern k#, "l" kern k#, "r" kern k#, "u" kern k#, + "m" kern k#, "t" kern k#, "i" kern k#, "C" kern k#, "O" kern k#, + "G" kern k#, "h" kern k#, "b" kern k#, "U" kern k#, "k" kern k#, + "v" kern k#, "w" kern k#, "Q" kern k#, + "L": "T" kern kk#, "Y" kern kk#, "V" kern kkk#, "W" kern kkk#, addkerns, + "e" kern -u#, "a" kern -u#, "o" kern -u#, "d" kern -u#, "c" kern -u#, + "g" kern -u#, "q" kern -u#; + ligtable "b": "c": "e": "o": "p": "r": "e" kern -u#, "a" kern -u#, + "o" kern -u#, "d" kern -u#, "c" kern -u#, "g" kern -u#, "q" kern -u#, + addkernss; + ligtable "n": "'" kern kkk#, addkerns; + ligtable "U": "I": "H": "J":"M": "N":"Z": addkern; + ligtable "Q": "E": "S": "G": "B": "C": "q": "t": "y": "u": "i": "a": + "s": "g": "h": "j": "k": "m": "v": "x": "z": addkerns; + +ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015","'" kern 2u#, + addkern; +ligtable oct"013": "i"=:oct"016", "l"=:oct"017","'" kern 2u#, + addkern; + fi +%% there are ligature/kern programs +%% for |"-"|, |"`"|, and |"'"| in the {\tt comlig} file +bye. + + + + + +endinput; diff --git a/Master/texmf-dist/fonts/source/public/cmtiup/cmtiuplg.mf b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiuplg.mf new file mode 100644 index 00000000000..af9050c42ee --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiuplg.mf @@ -0,0 +1,227 @@ +%% +%% This is file `cmtiuplg.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% cmtiup.dtx (with options: `cmtiuplg') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from cmtiuplg.mf. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file cmtiup.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) +%% This file describes five italic ligatures that begin with `f' +%% and puts them in code positions \0013--\0017. +%% The only differnce with the original italig.mf is the following +%% few lines have been commented. +%% numeric itc; % modified italic correction on `f' and `ff' +%% itc=(asc_height#-x_height#)*slant+.75u#; +%% +%% ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015", +%% "'" kern itc, "?" kern itc, "!" kern itc, ")" kern itc, "]" kern itc; +%% ligtable oct"013": "i"=:oct"016", "l"=:oct"017", +%% "'" kern itc, "?" kern itc, "!" kern itc, ")" kern itc, "]" kern itc; + +cmchar "Italic ligature ff"; +beginchar(oct"013",5u#+max(1.5u#,stem#)+max(3.5u#,2flare#)+2letter_fit#, + asc_height#,desc_depth#); +italcorr asc_height#*slant+.75u#; +adjust_fit(0,0); pickup fine.nib; +z98-z88=z99-z89=z14-z4=z15-z5=(4.8u+2letter_fit,0); +.5[x88,x99]=.5w-.1u; x89-x88=u; y98=h; y99=-d; +numeric theta; 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(.5w+1.25u); lft x8r=hround-.35u; x2=.5[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]; +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); % left bulbs +filldraw stroke z2e{left}...z3e...{z89-z88}z4e; % upper middle arc +filldraw z4r--z5l--z5r--z4l--cycle; % left stem +filldraw stroke z5e{z89-z88}...z6e...{left}z7e; % lower left arc +pos10(flare,0); pos11(hair,0); pos12(vair,90); +pos13(.5[hair,stem],180); pos14(stem,theta+90); +pos15(stem,theta-90); pos16(.5[hair,stem],0); +pos17(vair,-90); pos18(hair,-180); pos19(flare,-180); +rt x11r=hround(w+.25u); lft x18r=hround(.5w-1.25u); +x12=.6[x11,x14]; x17=.5[x18,x15]; +x13=.8[x12+x14-x98,x98]; x16=.8[x17+x15-x99,x99]; +y0=y10; y2=y12; y3=y13; y6=y16; y7=y17; y9=y19; +bulb(12,11,10); bulb(17,18,19); % right bulbs +filldraw stroke z12e{left}...z13e...{z99-z98}z14e; % upper right arc +filldraw z14r--z15l--z15r--z14l--cycle; % right stem +filldraw stroke z15e{z99-z98}...z16e...{left}z17e; % lower middle 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 x14l+.5stem+1.5u; +filldraw stroke z20e--z21e; % crossbar +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19, + 20,21,88,89,98,99); endchar; + +cmchar "Italic ligature fi"; +beginchar(oct"014",6.5u#+.5max(1.5u#,stem#)+.5max(3.5u#,2flare#) + +2letter_fit#,asc_height#,desc_depth#); +italcorr max(asc_height#*slant+.5stem#-2u#,1/3x_height#*slant+.5hair#+.5u#); +adjust_fit(0,0); pickup fine.nib; +.5[x88,x89]=.5(w-4u-2letter_fit); x89-x88=u; y88=h; y89=-d; +numeric theta; 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); +pos11(stem,0); rt x11r=hround(w-2.5u+.5stem); +x12=x11; x14=w; hook_out(12,13,14); % closing hook +x1r=x11r; lft x8r=hround-.35u; x2=.5[x1,x4]; x7=.6[x8,x5]; +y9-.5flare=vround-.85d; bot y7r=-d-oo; +y0+.5flare=vround(.85[x_height,h]); top y2r=h+oo; +y4=.25[x_height,h]; y5=.5[-d,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; % left stem +filldraw stroke z5e{z89-z88}...z6e...{left}z7e; % lower arc +top y11=x_height; filldraw stroke z11e--z12e; % right stem +pickup crisp.nib; pos20(bar,90); pos21(bar,90); +top y20r=top y21r=x_height; +lft x20=lft x4r-.5stem-u; x21=x11; +filldraw stroke z20e--z21e; % crossbar +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,20,21,88,89); endchar; + +cmchar "Italic ligature fl"; +beginchar(oct"015",7u#+.5max(1.5u#,stem#)+.5max(3.5u#,2flare#) + +2letter_fit#,asc_height#,desc_depth#); +italcorr max(asc_height#*slant+.5stem#-2u#,1/3x_height#*slant+.5hair#+.5u#); +adjust_fit(0,0); pickup fine.nib; +.5[x88,x89]=.5(w-4.5u-2letter_fit); x89-x88=u; y88=h; y89=-d; +numeric theta; 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); +pos11(stem,0); rt x11r=hround(w-2.5u+.5stem); rt x1r=lft x11l; +x12=x11; x14=w; hook_out(12,13,14); % closing hook +lft x8r=hround-.35u; x2=.5[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]; +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; % left stem +filldraw stroke z5e{z89-z88}...z6e...{left}z7e; % lower arc +top y11=h; filldraw stroke z11e--z12e; % right stem +pickup crisp.nib; pos20(bar,90); pos21(bar,90); +top y20r=top y21r=x_height; +lft x20=lft x4r-.5stem-u; x21=x11; +filldraw stroke z20e--z21e; % crossbar +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,20,21,88,89); endchar; + +cmchar "Italic ligature ffi"; +beginchar(oct"016",11.75u#+.5max(1.5u#,stem#)+.5max(3.5u#,2flare#) + +4letter_fit#,asc_height#,desc_depth#); +italcorr max(asc_height#*slant+.5stem#-2u#,1/3x_height#*slant+.5hair#+.5u#); +adjust_fit(0,0); pickup fine.nib; +z98-z88=z99-z89=z14-z4=z15-z5=(5u+2letter_fit,0); +numeric theta,mid_f; +mid_f=.5[x88,x99]=.5(w-4.25u-2letter_fit); x89-x88=u; +y98=h; y99=-d; theta=angle(z88-z89); +pos21(stem,0); rt x21r=hround(w-2.5u+.5stem); +x22=x21; x24=w; hook_out(22,23,24); % closing hook +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(mid_f+1.75u); lft x8r=hround-.35u; +x2=.5[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]; +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); % left bulbs +filldraw stroke z2e{left}...z3e...{z89-z88}z4e; % upper middle arc +filldraw z4r--z5l--z5r--z4l--cycle; % left stem +filldraw stroke z5e{z89-z88}...z6e...{left}z7e; % lower left arc +pos10(flare,0); pos11(hair,0); pos12(vair,90); +pos13(.5[hair,stem],180); pos14(stem,theta+90); +pos15(stem,theta-90); pos16(.5[hair,stem],0); +pos17(vair,-90); pos18(hair,-180); pos19(flare,-180); +x11r=x21r; lft x18r=hround(mid_f-1.25u); x12=.5[x11,x14]; x17=.5[x18,x15]; +x13=.8[x12+x14-x98,x98]; x16=.8[x17+x15-x99,x99]; +y10+.5flare=vround .85[x_height,h]; +y2=y12; y3=y13; y6=y16; y7=y17; y9=y19; +bulb(12,11,10); bulb(17,18,19); % right bulbs +filldraw stroke z12e{left}...z13e...{z99-z98}z14e; % upper right arc +filldraw z14r--z15l--z15r--z14l--cycle; % middle stem +filldraw stroke z15e{z99-z98}...z16e...{left}z17e; % lower middle arc +top y21=x_height; filldraw stroke z21e--z22e; % right stem +pickup crisp.nib; pos30(bar,90); pos31(bar,90); +top y30r=top y31r=x_height; +lft x30=lft x4r-.5stem-u; x31=x21; +filldraw stroke z30e--z31e; % crossbar +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19, + 20,21,22,23,24,30,31,88,89,98,99); endchar; + +cmchar "Italic ligature ffl"; +beginchar(oct"017",12u#+.5max(1.5u#,stem#)+.5max(3.5u#,2flare#) + +4letter_fit#,asc_height#,desc_depth#); +italcorr max(asc_height#*slant+.5stem#-2u#,1/3x_height#*slant+.5hair#+.5u#); +adjust_fit(0,0); pickup fine.nib; +z98-z88=z99-z89=z14-z4=z15-z5=(5u+2letter_fit,0); +numeric theta,mid_f; +mid_f=.5[x88,x99]=.5(w-4.5u-2letter_fit); x89-x88=u; +y98=h; y99=-d; theta=angle(z88-z89); +pos21(stem,0); rt x21r=hround(w-2.5u+.5stem); +x22=x21; x24=w; hook_out(22,23,24); % closing hook +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(mid_f+1.25u); lft x8r=hround-.35u; +x2=.5[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]; +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); % left bulbs +filldraw stroke z2e{left}...z3e...{z89-z88}z4e; % upper middle arc +filldraw z4r--z5l--z5r--z4l--cycle; % left stem +filldraw stroke z5e{z89-z88}...z6e...{left}z7e; % lower left arc +pos10(flare,0); pos11(hair,0); pos12(vair,90); +pos13(.5[hair,stem],180); pos14(stem,theta+90); +pos15(stem,theta-90); pos16(.5[hair,stem],0); +pos17(vair,-90); pos18(hair,-180); pos19(flare,-180); rt x11r=lft x21l; +lft x18r=hround(mid_f-1.25u); x12=.5[x11,x14]; x17=.5[x18,x15]; +x13=.8[x12+x14-x98,x98]; x16=.8[x17+x15-x99,x99]; +y0=y10; y2=y12; y3=y13; y6=y16; y7=y17; y9=y19; +bulb(12,11,10); bulb(17,18,19); % right bulbs +filldraw stroke z12e{left}...z13e...{z99-z98}z14e; % upper right arc +filldraw z14r--z15l--z15r--z14l--cycle; % middle stem +filldraw stroke z15e{z99-z98}...z16e...{left}z17e; % lower middle arc +top y21=h; filldraw stroke z21e--z22e; % right stem +pickup crisp.nib; pos30(bar,90); pos31(bar,90); +top y30r=top y31r=x_height; +lft x30=lft x4r-.5stem-u; x31=x21; +filldraw stroke z30e--z31e; % crossbar +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19, + 20,21,22,23,24,30,31,88,89,98,99); endchar; + + + + + +endinput; diff --git a/Master/texmf-dist/fonts/source/public/cmtiup/cmtiupp.mf b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiupp.mf new file mode 100644 index 00000000000..9df942f653a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/cmtiup/cmtiupp.mf @@ -0,0 +1,125 @@ +%% +%% This is file `cmtiupp.mf', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% cmtiup.dtx (with options: `cmtiupp') +%% +%% IMPORTANT NOTICE: +%% +%% For the copyright see the source file. +%% +%% Any modified versions of this file must be renamed +%% with new filenames distinct from cmtiupp.mf. +%% +%% For distribution of the original source see the terms +%% for copying and modification in the file cmtiup.dtx. +%% +%% This generated file may be distributed as long as the +%% original source files, as listed above, are part of the +%% same distribution. (The sources need not necessarily be +%% in the same archive or directory.) + + + +cmchar "Sterling sign"; +beginchar("$",12u#,asc_height#,0); +adjust_fit(0,.75asc_height#*slant-.5u#); pickup fine.nib; +pos0(flare,0); pos1(hair,0); pos2(vair,90); pos3(stem,180); +pos4(stem,180); pos4'(stem,0); pos5(vair,-90); z4'=z4; +x2=2/3w-.5u; rt x3l=rt x4l=hround(.5w-u+.5stem); x5=2.5u; +y1=y3=.75h; top y2=h+oo; y4=.25h; bot y5r=-oo; +rt x1r=hround(w-1.5u); bulb(2,1,0); % bulb +filldraw stroke pulled_arc.e(2,3)..z4e; % stem +numeric light_stem; light_stem=2/3[vair,vstem]; +pos6(.5[hair,light_stem],-180); pos7(light_stem,-300); +pos8(light_stem,-300); pos9(hair,-180); +lft x6r=hround u; x7=3u; x8=w-3.5u; rt x9l=hround(w-u); +y6=.4[y5,y7]; top y7r=vround .2h; bot y8l=-oo; y9=good.y .2h; +filldraw stroke pulled_arc.e(4',5)...z6e{up}...z7e{right} + ..{right}z8e...{up}z9e; % loop and arm +pos10(bar,90); pos11(bar,90); x10=3u; x11=w-4.5u; +top y10r=top y11r=vround(.5h+.5bar); filldraw stroke z10e--z11e; % bar +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + +cmchar "Italic ampersand"; +beginchar("&",14u#,asc_height#,0); +italcorr asc_height#*slant-1.5u#; +adjust_fit(if monospace:-u#,-2u# else: 0,0 fi); pickup fine.nib; +pos1(flare,0); pos2(hair,0); pos3(vair,90); +rt x2r=hround.5w; x3=1/3(w-u); +top y3r=h+o; y2=.5[x_height,h]; bulb(3,2,1); % left bulb +pos4(stem,180); pos5(vair,270); pos6(hair,360); pos7(vair,450); +pos8(curve,540); pos9(vair,630); pos10(hair,720); +lft x4r=hround 1.25u; x5=x7=x3+1/6u; rt x6r=hround(x5+1.5u); +lft x8r=hround u; x9=.5w; rt x10r=hround(w-1.5u); +y4=.5[y3,y5]; top y5l=vround .77x_height; y6=.5[y5,y7]; +y7l=good.y 1/3[y5,y3]; y8=.5[y7,y9]; bot y9r=-o; y10=bar_height; +pos12(hair,0); pos13(curve,0); pos14(hair,0); pos15(vair,90); pos16(curve,90); +rt x12r=rt x13r=hround(w-2u); lft x14l=hround(.5w+.5u); +x15=x16=rt x14r+u; +y12=y13=h-.5curve; y14=.5[bar_height,x_height]; +bot y15l=bot y16l=vround y10; +numeric theta; theta=angle((z12-z14)xscaled 2); +pos11(hair,theta); x11=w-4u; y11=.5[y13,y16]; +filldraw stroke pulled_arc.e(3,4) & pulled_arc.e(4,5) & pulled_arc.e(5,6) + & pulled_arc.e(6,7) & pulled_arc.e(7,8) & pulled_arc.e(8,9) + & {{interim superness:=more_super; pulled_arc.e(9,10)}} + ..tension .9 and 1..{dir(theta+100)}z11e; % bowls, loop, and stem +pos11'(hair,theta-90); z11'=z11; +forsuffixes $=l,r: path p$; + p$=z12${down}..z11'${-dir theta}..{down}z14$...{right}z15$; endfor +filldraw p.l--reverse p.r--cycle; % arms +path q[]; q1=z13r{up}..z13l{down}..cycle; +q2=z16l{right}..z16r{left}..cycle; +filldraw subpath(0,ypart(p.l intersectiontimes q1)) of q1--cycle; % upper bulb +filldraw subpath(0,ypart(p.r intersectiontimes q2)) of q2--cycle; % lower bulb +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); endchar; + +slant:=0; font_setup; + +cmchar "Italic question mark"; +beginchar("?",9u#,asc_height#,0); +italcorr asc_height#*slant-u#; +adjust_fit(0,0); pickup tiny.nib; pos10(dot_size,0); pos11(dot_size,90); +lft x10l=hround(.5w-.5dot_size); bot y11l=0; z10=z11; dot(10,11); % dot +pickup fine.nib; pos1(flare,180); pos2(hair,180); pos3(vair,90); +lft x1r=hround u; x3=.5w; +y1-.5flare=x_height; top y3r=h+o; bulb(3,2,1); % bulb +pos8(vair,-90); x8=.5w; bot y8r=.25[top y11r,x_height]+1; +numeric theta; theta=90+angle(10u,y3-y8); slope:=(y3-y8)/10u; +pos3'(vair,-90); z3'=z3; pos0(vstem,theta); x0=x3; y0=1/3[y8,y3]; +rt x4l=hround(w-1.5u); lft x7r=hround 1/3w; +x4l-x4r=x7l-x7r=hround .5[vair,vstem]-fine; +ellipse_set(3'l,4l,5l,0l); ellipse_set(3'r,4r,5r,0r); y4=y4r; +ellipse_set(8l,7l,6l,0l); ellipse_set(8r,7r,6r,0r); y7=y7r; +pos9(hair,0); rt x9r=hround(2/3w+.5hair); y9=good.y .5[y8,y0]; +filldraw stroke super_arc.e(3',4) & z4e{down} + ..z5e---z6e..z7e{down} & super_arc.e(7,8)...{up}z9e; % main stroke +penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar; + +iff known spanish_query: cmchar "Spanish open italic question mark"; +beginchar(spanish_query,9u#,asc_height#-desc_depth#,desc_depth#); +adjust_fit(0,0); pickup tiny.nib; pos10(dot_size,0); pos11(dot_size,90); +lft x10l=hround(.5w-.5dot_size); top y11r=h; z10=z11; dot(10,11); % dot +pickup fine.nib; pos1(flare,0); pos2(hair,0); pos3(vair,-90); +rt x1r=hround(w-u); x3=.5w; y1+.5flare=asc_height-x_height-d; +bot y3r=-d-o; bulb(3,2,1); % bulb +pos8(vair,90); x8=.5w; top y8r=.25[bot y11l,y1+.5flare]-1; +numeric theta; theta=angle(10u,y8-y3)-90; slope:=(y8-y3)/10u; +pos3'(vair,90); z3'=z3; pos0(vstem,theta); x0=x3; y0=1/3[y8,y3]; +lft x4l=hround 1.5u; rt x7r=hround 2/3w; +x4r-x4l=x7r-x7l=hround .5[vair,vstem]-fine; +ellipse_set(3'l,4l,5l,0l); ellipse_set(3'r,4r,5r,0r); y4=y4r; +ellipse_set(8l,7l,6l,0l); ellipse_set(8r,7r,6r,0r); y7=y7r; +pos9(hair,180); lft x9r=hround(1/3w-.5hair); y9=good.y .5[y8,y0]; +filldraw stroke super_arc.e(3',4) & z4e{up} + ..z5e---z6e..z7e{up} & super_arc.e(7,8)...{down}z9e; % main stroke +penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar; + + + + + +endinput; diff --git a/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup10.tfm b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup10.tfm Binary files differnew file mode 100644 index 00000000000..35d88109188 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup12.tfm b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup12.tfm Binary files differnew file mode 100644 index 00000000000..d02dd65a6a2 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup7.tfm b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup7.tfm Binary files differnew file mode 100644 index 00000000000..969d100e8b1 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup8.tfm b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup8.tfm Binary files differnew file mode 100644 index 00000000000..877041e03f7 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup9.tfm b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup9.tfm Binary files differnew file mode 100644 index 00000000000..5ed747cad55 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/cmtiup/cmtiup9.tfm diff --git a/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup10.vf b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup10.vf Binary files differnew file mode 100644 index 00000000000..8a244a5e3a1 --- /dev/null +++ b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup10.vf diff --git a/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup12.vf b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup12.vf Binary files differnew file mode 100644 index 00000000000..2021d31a549 --- /dev/null +++ b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup12.vf diff --git a/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup7.vf b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup7.vf Binary files differnew file mode 100644 index 00000000000..741e2dabddb --- /dev/null +++ b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup7.vf diff --git a/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup8.vf b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup8.vf Binary files differnew file mode 100644 index 00000000000..4cba282225e --- /dev/null +++ b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup8.vf diff --git a/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup9.vf b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup9.vf Binary files differnew file mode 100644 index 00000000000..951fc41c40c --- /dev/null +++ b/Master/texmf-dist/fonts/vf/public/cmtiup/cmtiup9.vf |