diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/musixtex/xslhu.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/musixtex/xslhu.mf | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/Master/texmf-dist/fonts/source/public/musixtex/xslhu.mf b/Master/texmf-dist/fonts/source/public/musixtex/xslhu.mf deleted file mode 100644 index 7c7ff1d524e..00000000000 --- a/Master/texmf-dist/fonts/source/public/musixtex/xslhu.mf +++ /dev/null @@ -1,68 +0,0 @@ -%=== xslhu.mf ============================================================ -% WpH 6-19-96 modified to be "dashed" (each modification marked with WpH). -% 96-08-24 constants fixed (ick) -% ick 98-05-22 changed constants for gap, dash, pointendl, bluntendl -% - -thick#:=1pt#; -stepwidth#:=designsize/8; -define_pixels(stepwidth); -define_blacker_pixels(thick); -picture save_pic; -numheights:=16; -numlengths:=8;%(12-96pt) -gap:=thick; %was 1.5; WpH length of space between dashes. ick -dash:=1.6thick; % 2.5; WpH length of each middle dash. ick -pointendl:=-0.00dash; % -1.0; WpH length of first dash near point end. -bluntendl:=-0.00thick; % -0.5; WpH length of last dash near blunt end. -if unknown makedotted: makedotted:=0; fi % WpH -path outerpath, innerpath; - -code=-1; -for j=1 upto numlengths: - slength#:=j*12pt#; - define_pixels(slength); - - for i=1 upto numheights: - beginchar(incr code, slength#, 0, 0); - x1=y1=0;x2=slength;y2=-i*stepwidth; - end_angle:=max(2angle(z2-z1),-90); - penpos1(thick,90); - penpos2(max(1,.15thick),end_angle+90); - outerpath:=z1r{dir(1)}..{dir(end_angle-1)}z2r; %WpH - innerpath:=z2l{dir(end_angle+180)}..z1l{left}; %WpH - fill outerpath--innerpath--cycle; %WpH created names for - % outer and inner paths. - % - % WpH start of added block to make gaps. - if makedotted<>1: - % variable makedotted has not been given a value. - % Dotted lines will not be made. - else: - cullit; - mw:=abs(x2,y2); %approximate length of curve. - tcount:=(mw-pointendl-bluntendl)/(gap+dash); % number of gaps. - tcount:=floor(tcount + .5); %round to nearest int number. - tinc:=((mw-pointendl-bluntendl)/tcount)/mw; - pickup pencircle scaled gap; - for k=0 upto tcount-1: - t:= (pointendl + .5gap)/mw + k*tinc; - undraw (point t of outerpath).. - (point (1-t) of innerpath); % for "90 degree" dash edges. -% undraw ((point t of outerpath)+(0,1.5pt)).. -% ((point t of outerpath)-(0,1.5pt)); % for vertical edges. - endfor; - cullit; - fi - % WpH end of added block to make gaps. - % - save_pic:=currentpicture; - endchar; - - beginchar(128+code, slength#, 0, 0); - currentpicture:=save_pic reflectedabout((.5slength,0),(.5slength, 1)); - endchar; - endfor - -endfor -end |