home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / tex / mutex.arc / MF.ARC / SONDER16.MF < prev    next >
Text File  |  1990-03-06  |  3KB  |  113 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %                                                             %
  3. %                   SONDERZEICHEN                             %
  4. %                                                             %
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6.  
  7.  
  8.  
  9.  
  10. def alla_breve (expr trans) =
  11.          thin := 5thinwidth; thick := 1/2 nhh;
  12.          penpos1(thin,   0);
  13.          penpos2(thin, -90);
  14.          penpos3(thick,180);
  15.          penpos4(2/3thin,  90);
  16.          penpos5(thin,  45);
  17.          penpos6(3/4thick,45);
  18.          2x2r = 2x4r = x1 + 2s = w;
  19.          x3r = 0; 2y1 = 3y2 = y4r = h;
  20.          y3r = 2/3h;
  21.          x5 = w -2s;
  22.          y5 = h -2s;
  23.          z6r = z5r;
  24.          penstroke (z1e..z2e..z3e..z4e..z5e) transformed trans;
  25.          currentpen := pencircle scaled (2/3thick);
  26.          drawdot z6;
  27. enddef;
  28.  
  29.  
  30. %%%%%%%%%%%%%%%%
  31. % "allabreve" %%
  32. %%%%%%%%%%%%%%%%
  33.  
  34. beginchar(82, 2nhh#, 3nhh#, 0);
  35.          clear;
  36.          alla_breve(identity);
  37.          z7 = z4 + 2/16 h *up;
  38.          z8 = z2 + 2/16 h *down;
  39.          currentpen := pencircle scaled (thin);
  40.          draw z7--z8;
  41.  
  42. endchar;
  43.  
  44. %%%%%%%%
  45. % "C" %%
  46. %%%%%%%%
  47.  
  48. beginchar(83, 2nhh#, 3nhh#, 0);
  49.          clear;
  50.          alla_breve(identity);
  51.  
  52. endchar;
  53.  
  54. %%%%%%%%%%%%%%%
  55. % "reverseC" %%
  56. %%%%%%%%%%%%%%%
  57.  
  58. beginchar(84, 2nhh#, 3nhh#, 0);
  59.          clear;
  60.          transform T;
  61.     xxpart T = -yypart T; xypart T = yxpart T; % T is a reflection
  62.     (w/2,0) transformed T = (w/2,0);  (w/2,1) transformed T = (w/2,1);
  63.          thin := 5thinwidth; thick := 1/2 nhh;
  64.          penpos1(thin,   0);
  65.          penpos2(thin, -90);
  66.          penpos3(thick,180);
  67.          penpos4(2/3thin,  90);
  68.          penpos5(thin,  45);
  69.          penpos6(3/4thick,45);
  70.          2x2r = 2x4r = x1 + 2s = w;
  71.          x3r = 0; 2y1 = 3y2 = y4r = h;
  72.          y3r = 2/3h;
  73.          x5 = w -2s;
  74.          y5 = h -2s;
  75.          z6r = z5r;
  76.          penstroke (counterclockwise
  77.          (z1e..z2e..z3e..z4e..z5e) transformed T);
  78.          currentpen := pencircle scaled (2/3thick);
  79.          drawdot (z6 transformed T);
  80.  
  81. endchar;
  82.  
  83. %%%%%%%%%%%%%%%
  84. % "fermate1" %%
  85. %%%%%%%%%%%%%%%
  86.  
  87. beginchar(80, 2nhw#, 1.25nhh#, 0);
  88.          clear;
  89.          penpos2(nhh/4,90);
  90.          penpos4(nhh/4,90);
  91.          y2r =  h;
  92.          z1 =  origin; 2x2l = 2x4l = x3 = w; y4l = y3 = 0;
  93.          penstroke z1..z2e..z3;
  94.          currentpen:= pencircle scaled (nhh/4);
  95.          drawdot z4;
  96. endchar;
  97.  
  98. %%%%%%%%%%%%%%%
  99. % "fermate2" %%
  100. %%%%%%%%%%%%%%%
  101.  
  102. beginchar(81, 2nhw#, 0, 1.25nhh#);
  103.          clear;
  104.          penpos2(nhh/4,90);
  105.          penpos4(nhh/4,90);
  106.          y2l = -d;
  107.          z1 =  origin; 2x2l = 2x4 = x3 = w;
  108.          y4r = y3 = 0;
  109.          penstroke (z1..z2e..z3);
  110.          currentpen := pencircle scaled (nhh/4);
  111.          drawdot z4;
  112. endchar;
  113.