home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / tex / mutex.arc / MF.ARC / SLURUU16.MF < prev    next >
Text File  |  1990-03-06  |  1KB  |  40 lines
  1. input musicdef
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. %                                                             %
  4. %                   BOGEN (KONVEX)                            %
  5. %                                                             %
  6. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  7.  
  8. def drawslurs(expr i,j) =
  9.     save  jj,factor, length, height;
  10.     numeric jj, absp, length, height, factor;
  11.     factor:= 1/6;
  12.     height = i*1/2nhh#;
  13.     length = j*nhw#;
  14.     if  j<4 : jj := (j*(j-1)+(i-1))*8
  15.     else:    jj := (i-1)*8+(j mod 2)*64+floor((j-2)/2);fi;
  16.     beginchar(jj, length, height, 0);
  17.       clear;
  18.       z2r = (w,h);
  19.       z1l = origin;
  20.       absp := abs((-h,w));
  21.       if (factor*absp)>2nhh : factor:= 2nhh/absp fi;
  22.       z3r = 1/2z2l+factor*(-h,w);
  23.       penpos1(thinwidth,90);
  24.       penpos2(thinwidth,90);
  25.       penpos3(5/12beamht,90);
  26.       currentpen := pencircle xscaled thinwidth yscaled beamht ;
  27.       penstroke z1e..z3e..z2e; %statt dir 30
  28.     endchar;
  29. enddef;
  30.  
  31. %%%%%%%%%%%%%%%%%%%%%%%
  32. % positive Steigungen %
  33. %%%%%%%%%%%%%%%%%%%%%%%
  34.  
  35. for j= 1 upto 17:
  36. for i= 1 upto min(2j,8):
  37. drawslurs(i,j);
  38. endfor;endfor;
  39. end;
  40.