← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/texlive-bin/jaunty-updates

« back to all changes in this revision

Viewing changes to texmf-dist/fonts/source/public/musixtex/xslhz.mf

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Preining
  • Date: 2006-05-11 00:12:10 UTC
  • Revision ID: james.westby@ubuntu.com-20060511001210-gykenja59vrecpk2
Tags: upstream-2005
Import upstream version 2005

Show diffs side-by-side

added added

removed removed

Lines of Context:
texmf-dist/fonts/source/public/musixtex/xslhz.mf
 
1
%=== xslhz.mf======================================================
 
2
% WpH May 19, 1997 modified to be dashed
 
3
% ick 98-05-22 modified constants for gap, dash, endlen.
 
4
%
 
5
 
 
6
thick#:=1pt#;
 
7
stepwidth#:=4pt#;
 
8
define_pixels(stepwidth);
 
9
define_blacker_pixels(thick);
 
10
picture pic;
 
11
 
 
12
gap=thick;              %was 1.5; WpH new parameter: gap length. ick
 
13
dash=1.6thick;          %    2.5; WpH new parameter: dash length. ick
 
14
endlen=-0.0thick;       %   -1.0; WpH new: length of dash at ends measured to center of gap. ick
 
15
if unknown makedotted: makedotted:=0; fi % WpH
 
16
slope=1/100;
 
17
 
 
18
for i=1 upto 100:
 
19
  beginchar((i-1),0,0,0);
 
20
%    x3=-x1=.5i*stepwidth; x2=y1=y3=0; y2=slope*i*stepwidth;
 
21
    x3=-x1=good.x(.5i*stepwidth); x2=y1=y3=0; y2=slope*i*stepwidth;
 
22
    penpos1(thick,90); penpos2(thick,90); penpos3(thick,90);
 
23
    penstroke z1e..z2e..z3e;
 
24
    %
 
25
    % wph start of added block to make gaps.
 
26
    if makedotted<>1: 
 
27
        % variable makedotted has not been given a value.
 
28
        % Dotted lines will not be made.
 
29
    else:
 
30
        cullit;
 
31
        pickup pencircle scaled gap;
 
32
        cl:=abs(z3-z1);
 
33
        xcount:=(cl-2endlen)/(gap+dash); % number of gaps.
 
34
        xcount:=floor(xcount + .5); %round to nearest int number.
 
35
        xinc:=(cl-2endlen)/xcount;
 
36
        for j=0 upto xcount-1:
 
37
            xcur:=x1+endlen+j*xinc;
 
38
            undraw (xcur,y1)..(xcur,y2+.6thick);
 
39
        endfor;
 
40
        cullit;
 
41
    fi
 
42
    % wph end of added block to make gaps.
 
43
    %
 
44
    pic:= currentpicture;
 
45
  endchar;
 
46
 
 
47
  beginchar((128+i-1),0,0,0);
 
48
    currentpicture:= pic reflectedabout(origin,right);
 
49
  endchar;
 
50
endfor
 
51
end
 
52