名前: 北見 けん 日時: 2006-12-12 10:08:06 IPアドレス: 211.128.71.*
>>46233 METAFONT で作ってみました。cmex10の積分記号を少しいじっただけです。 fisk.mf という名前で保存して、 mf fisk gftodvi fisk のように処理して、できた fisk.dvi を見てみただけです。 実際にTeX文書には試していません。 cmex10 の場合、横棒が細くなるので縦棒のボリュームと合わないように思います。 試しに作ってみただけで何か変なことがあると恥ずかしいので、 もしも使われるのならば私の名前は削ってください(^^)。 %% Feynman's Integral-sign %% by KITAMI Ken(KK) integralsignoffset:=180;% ここをいじるとずれ幅が変わります。 %%%% %%%% from cmex10.mf %%%% % Computer Modern Math Extension 10 point if unknown cmbase: input cmbase fi font_identifier:="FISK"; font_size 10pt#;% FISK means ``Feynman's Integral Sign by Kk''. u#:=20/36pt#; % unit width width_adj#:=0pt#; % width adjustment for certain characters serif_fit#:=0pt#; % extra sidebar near lowercase serifs cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs letter_fit#:=0pt#; % extra space added to all sidebars body_height#:=270/36pt#; % height of tallest characters asc_height#:=250/36pt#; % height of lowercase ascenders cap_height#:=246/36pt#; % height of caps fig_height#:=232/36pt#; % height of numerals x_height#:=155/36pt#; % height of lowercase without ascenders math_axis#:=90/36pt#; % axis of symmetry for math symbols bar_height#:=87/36pt#; % height of crossbar in lowercase e comma_depth#:=70/36pt#; % depth of comma below baseline desc_depth#:=70/36pt#; % depth of lowercase descenders crisp#:=0pt#; % diameter of serif corners tiny#:=8/36pt#; % diameter of rounded corners fine#:=7/36pt#; % diameter of sharply rounded corners thin_join#:=7/36pt#; % width of extrafine details hair#:=9/36pt#; % lowercase hairline breadth stem#:=25/36pt#; % lowercase stem breadth curve#:=30/36pt#; % lowercase curve breadth ess#:=27/36pt#; % breadth in middle of lowercase s flare#:=33/36pt#; % diameter of bulbs or breadth of terminals dot_size#:=38/36pt#; % diameter of dots cap_hair#:=11/36pt#; % uppercase hairline breadth cap_stem#:=32/36pt#; % uppercase stem breadth cap_curve#:=37/36pt#; % uppercase curve breadth cap_ess#:=35/36pt#; % breadth in middle of uppercase s rule_thickness#:=.4pt#; % thickness of lines in math symbols dish#:=1/36pt#; % amount erased at top or bottom of serifs bracket#:=20/36pt#; % vertical distance from serif base to tangent jut#:=28/36pt#; % protrusion of lowercase serifs cap_jut#:=37/36pt#; % protrusion of uppercase serifs beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs beak#:=70/36pt#; % vertical protrusion of beak serifs vair#:=8/36pt#; % vertical diameter of hairlines notch_cut#:=10pt#; % maximum breadth above or below notches bar#:=11/36pt#; % lowercase bar thickness slab#:=11/36pt#; % serif and arm thickness cap_bar#:=11/36pt#; % uppercase bar thickness cap_band#:=11/36pt#; % uppercase thickness above/below lobes cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches serif_drop#:=4/36pt#; % vertical drop of sloped serifs stem_corr#:=1/36pt#; % for small refinements of stem breadth vair_corr#:=1/36pt#; % for small refinements of hairline height apex_corr#:=0pt#; % extra width at diagonal junctions o#:=8/36pt#; % amount of overshoot for curves apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions slant:=0; % tilt ratio $(\Delta x/\Delta y)$ fudge:=1; % factor applied to weights of heavy characters math_spread:=0; % extra openness of math symbols superness:=1/sqrt2; % parameter for superellipses superpull:=1/6; % extra openness inside bowls beak_darkness:=11/30; % fraction of triangle inside beak serifs ligs:=2; % level of ligatures to be included square_dots:=false; % should dots be square? hefty:=false; % should we try hard not to be overweight? serifs:=true; % should serifs and bulbs be attached? monospace:=false; % should all characters have the same width? variant_g:=false; % should an italic-style g be used? low_asterisk:=false; % should the asterisk be centered at the axis? math_fitting:=false; % should math-mode spacing be used? % the following font parameters are explained in {\sl The \TeX book}, Appendix G fontdimen 8: % parameters $\xi_8$ through $\xi_{13}$ will now be listed rule_thickness#, % default\_rule\_thickness 40/36pt#, % big\_op\_spacing1 60/36pt#, % big\_op\_spacing2 72/36pt#, % big\_op\_spacing3 216/36pt#, % big\_op\_spacing4 36/36pt#; % big\_op\_spacing5 % generate mathex % switch to the driver file %%%% %%%% from mathex.mf %%%% % The Computer Modern Math-Extension family (by D. E. Knuth, 1979--1985) font_coding_scheme:="TeX math extension"; mode_setup; font_setup; % input bigdel; % large delimiters %input bigop; % large operators %%%% %%%% from bigop.mf %%%% charlist oct"122": oct"132"; % integral signs %cmchar "\textstyle integral sign"; %beginchar(oct"122",12u#,0,100/54dh#); %italcorr 3.5u#; % \TeX\ kerning between upper limit and lower limit %adjust_fit(0,-ic#); pickup fine.nib; %pos1(curve,0); pos2(hair,0); pos3(vair,90); pos4(stem,180); %pos5(curve,180); pos5'(curve,0); z5'=z5; pos6(stem,0); %pos7(vair,-90); pos8(hair,-180); pos9(curve,-180); %rt x1r=hround(w-u); x9=w-x1; x7=w-x3=3u; %x5=.5[x4,x6]; x4-x6=1.2u; lft x5r=hround(.5w-.5curve); %top y3r=0; bot y7r=-d; y9-.5curve=vround(top y7l+.25curve); %y3-y1=y9-y7; y5=.5[y3,y7]=.5[y4,y6]; y4-y6=.6(y3-y7); %bulb(3,2,1); bulb(7,8,9); % bulbs %filldraw stroke z3e{left}...z4e{(z5e-z4e)xscaled 1.1} % ..tension atleast 1 and atleast .8..{z5-z4}z5e; % upper stem %filldraw stroke z5'e{z6-z5}..tension atleast.8 and atleast 1 % ..{(z6e-z5'e)xscaled 1.1}z6e...{left}z7e; % lower stem %penlabels(1,2,3,4,5,6,7,8,9); endchar; cmchar "\displaystyle integral sign"; beginchar(oct"132",18u#,0,200/54dh#); italcorr 8u#; % \TeX\ kerning between upper limit and lower limit adjust_fit(0,-ic#); pickup fine.nib; numeric bulb_size, max_size; bulb_size=hround(bold+dw); max_size=hround(bold+2dw); pos1(bulb_size,0); pos2(hair,0); pos3(vair,90); pos4(bold,180); pos5(max_size,180); pos5'(max_size,0); z5'=z5; pos6(bold,0); pos7(vair,-90); pos8(hair,-180); pos9(bulb_size,-180); rt x1r=hround(w-u); x9=w-x1; x7=w-x3=3u; x5=.5[x4,x6]; x4-x6=4.8u; lft x5r=hround(.5w-.5max_size); top y3r=0; bot y7r=-d; y9-.5bulb_size=vround(top y7l+.25bulb_size); y3-y1=y9-y7; y5=.5[y3,y7]=.5[y4,y6]; y4-y6=.6(y3-y7); %bulb(3,2,1); bulb(7,8,9); % bulbs bulb(7,8,9); % delete upper bulb by KK %filldraw stroke z3e{left}...z4e{(z5e-z4e)xscaled 1.1} filldraw stroke (z3e+(integralsignoffset*u#,0))..z3e{left}...z4e{(z5e-z4e)xscaled 1.1}% add a horizontal rule by KK ..tension atleast 1 and atleast .8..{z5-z4}z5e; % upper stem filldraw stroke z5'e{z6-z5}..tension atleast.8 and atleast 1 ..{(z6e-z5'e)xscaled 1.1}z6e...{left}z7e; % lower stem currentpicture:=currentpicture + currentpicture shifted -z5 rotated 180 shifted z5 shifted (integralsignoffset*u#,0);% add by KK penlabels(1,2,3,4,5,6,7,8,9); endchar; %%%% %%%% from mathex.mf again %%%% % input bigacc; % large accents font_x_height x_height#; font_quad 18u#+4letter_fit#; % (The calling file should give the other math extension font parameters.) bye.
この書き込みへの返事：