diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/musixtex/xslhz.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/musixtex/xslhz.mf | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/Master/texmf-dist/fonts/source/public/musixtex/xslhz.mf b/Master/texmf-dist/fonts/source/public/musixtex/xslhz.mf deleted file mode 100644 index 00b1efd9097..00000000000 --- a/Master/texmf-dist/fonts/source/public/musixtex/xslhz.mf +++ /dev/null @@ -1,52 +0,0 @@ -%=== xslhz.mf====================================================== -% WpH May 19, 1997 modified to be dashed -% ick 98-05-22 modified constants for gap, dash, endlen. -% - -thick#:=1pt#; -stepwidth#:=4pt#; -define_pixels(stepwidth); -define_blacker_pixels(thick); -picture pic; - -gap=thick; %was 1.5; WpH new parameter: gap length. ick -dash=1.6thick; % 2.5; WpH new parameter: dash length. ick -endlen=-0.0thick; % -1.0; WpH new: length of dash at ends measured to center of gap. ick -if unknown makedotted: makedotted:=0; fi % WpH -slope=1/100; - -for i=1 upto 100: - beginchar((i-1),0,0,0); -% x3=-x1=.5i*stepwidth; x2=y1=y3=0; y2=slope*i*stepwidth; - x3=-x1=good.x(.5i*stepwidth); x2=y1=y3=0; y2=slope*i*stepwidth; - penpos1(thick,90); penpos2(thick,90); penpos3(thick,90); - penstroke z1e..z2e..z3e; - % - % 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; - pickup pencircle scaled gap; - cl:=abs(z3-z1); - xcount:=(cl-2endlen)/(gap+dash); % number of gaps. - xcount:=floor(xcount + .5); %round to nearest int number. - xinc:=(cl-2endlen)/xcount; - for j=0 upto xcount-1: - xcur:=x1+endlen+j*xinc; - undraw (xcur,y1)..(xcur,y2+.6thick); - endfor; - cullit; - fi - % wph end of added block to make gaps. - % - pic:= currentpicture; - endchar; - - beginchar((128+i-1),0,0,0); - currentpicture:= pic reflectedabout(origin,right); - endchar; -endfor -end - |