home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / tex / mutex.arc / MF.ARC / ACC16.MF next >
Text File  |  1990-03-06  |  4KB  |  143 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %                                                            %
  3. %                VERSETZUNGSZEICHEN                          %
  4. %                                                            %
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6.  
  7.  
  8.  
  9. %%%%%%%%%%%%
  10. %% "flat"  %
  11. %%%%%%%%%%%%
  12.  
  13. beginchar(50, nhw#, 2nhh#, 2nhh#);
  14.          clear;
  15.          penpos4(7/24nhh, 30);%/5,20           %  1
  16.          penpos3(nhh/5,-90);%/5,20             %
  17.          penpos2(nhh/5, 90);%/5,20             %
  18.          y1 =  h;                              %4
  19.          x1 = x2 = x3 = s; x4 = w-s;           %  2
  20.          y4 = s;                            %
  21.          y2l - y3r =  1/4h; y2l = 0;           %  3
  22.          currentpen:= pencircle scaled 3thinwidth;
  23.          penstroke  z2e...z4e...z3e{sw};%right ,sw
  24.          draw z1--z3;
  25.          draw z1--z3;
  26. penlabels(1,2,3,4);
  27. endchar;
  28.  
  29. %%%%%%%%%%
  30. %% "bb"  %
  31. %%%%%%%%%%
  32.  
  33. beginchar(51,2nhw#, 2nhh#, 2nhh#);
  34.          clear;
  35.          penpos4(nhh/4,  0);%/5,20
  36.          penpos3(nhh/4,-90);%/5,20
  37.          penpos2(nhh/4, 90);%/5,20
  38.          y1 =  h;                              %4
  39.          x1 = x2 = x3 = s; x4 = w/2-s;         %  2
  40.          y4 = s;                            %
  41.          y2l - y3r =  1/4h; y2l = 0;           %  3
  42.          currentpen:= pencircle scaled 3thinwidth;
  43.          draw z1--z3;
  44.          draw z1--z3;
  45.          penstroke  z2e..z4e...z3e{sw};
  46.          draw (z1--z3) shifted ((w/2 - 1.5s),0);
  47.      penstroke (z2e..z4e...z3e{sw})shifted ((w/2 -1.5s),0);
  48. endchar;
  49.  
  50. %%%%%%%%%%%%%
  51. %% "sharp"  %
  52. %%%%%%%%%%%%%
  53.  
  54. beginchar(52, nhw#, 1.5nhh#, 1.5nhh#);
  55.          clear;
  56.          penpos3(nhh/2,90);
  57.          penpos4(nhh/2,90);
  58.          y1 =  h - s; y1 - y2 = 2h - s;
  59.          x1 = x2 =  s; z3 = (0,1/4nhh);
  60.          y4l = y3r; x4 = w;
  61.          currentpen:=  pencircle scaled 3thinwidth;
  62.          draw z1--z2;
  63.          draw (z1--z2) shifted (w-2s,s);
  64.          penstroke  z3e--z4e;
  65.          penstroke (z3e--z4e) shifted (0, -nhh);
  66. penlabels(1,2,3,4);
  67. endchar;
  68.  
  69. %%%%%%%%%%
  70. %% "xx"  %
  71. %%%%%%%%%%%
  72.  
  73. beginchar(53, nhw#,  .5nhh#,  .5nhh#);
  74.          clear;
  75.          z1 = (s, h-s); z2 = (w-s, h-s);
  76.          z3 = (s,-h+s); z4 = (w-s,-h+s);
  77.          currentpen:= pencircle scaled .2nhh;
  78.          draw z1--z4; draw z3--z2;
  79.          currentpen:= pencircle scaled .3nhh;
  80.          drawdot z1; drawdot z2; drawdot z3; drawdot z4;
  81. endchar;
  82.  
  83. %%%%%%%%%%%%%%%
  84. %% "natural"  %
  85. %%%%%%%%%%%%%%%
  86.  
  87. beginchar(54, nhw#, 1.5nhh#, 1.5nhh#);
  88.          clear;
  89.          penpos3(nhh/2,90);
  90.          penpos4(nhh/2,90);
  91.          y1 =  h;  y2 = -h + nhh/2;
  92.          x1 = x2 =  s; z3l = (s,0);
  93.          y4 = y3r; x4 = w-s;
  94.          currentpen:= pencircle scaled 3thinwidth;
  95.          draw z1--z2;
  96.          draw (z1--z2) shifted (w-2s,-h+y4r);
  97.          penstroke  z3e--z4e;
  98.          penstroke (z3e--z4e) shifted (0, -nhh);
  99. endchar;
  100.  
  101. %%%%%%%%%%%%%%%%
  102. %% "1/4 flat"  %
  103. %%%%%%%%%%%%%%%%
  104.  
  105. beginchar(55, nhw#, 2nhh#, 2nhh#);
  106.          clear;
  107.          penpos4(7/24nhh, 30);%/5,20           %  1
  108.          penpos3(nhh/5,-90);%/5,20             %
  109.          penpos2(nhh/5, 90);%/5,20             %
  110.          y1 =  h;                              %         4
  111.          x1 = x2 = x3 = w-s; x4 =2w-3s;        %  2
  112.          y4 = s;                               %
  113.          y2l - y3r =  1/4h; y2l = 0;           %  3
  114.          currentpen:= pencircle scaled 3thinwidth;
  115.          penstroke  (counterclockwise
  116.          (z2e...z4e...z3e{sw}) reflectedabout(z1 ,z3));
  117.          draw z1--z3;
  118.          draw z1--z3;
  119. penlabels(1,2,3,4);
  120. endchar;
  121.  
  122. %%%%%%%%%%%%%%%%
  123. %% "3/4 flat"  %
  124. %%%%%%%%%%%%%%%%
  125.  
  126. beginchar(56, 2nhw#-2S, 2nhh#, 2nhh#);
  127.          clear;
  128.          penpos4(7/24nhh, 30);%/5,20           %  1
  129.          penpos3(nhh/5,-90);%/5,20             %
  130.          penpos2(nhh/5, 90);%/5,20             %
  131.          y1 =  h;                              %         4
  132.          x1 = x2 = x3 = w/2; x4 =w-s;          %  2
  133.          y4 = s;                               %
  134.          y2l - y3r =  1/4h; y2l = 0;           %  3
  135.          currentpen:= pencircle scaled 3thinwidth;
  136.          penstroke  z2e...z4e...z3e{sw};
  137.          penstroke  (counterclockwise
  138.          (z2e...z4e...z3e{sw}) reflectedabout(z1 ,z3));
  139.          draw z1--z3;
  140.          draw z1--z3;
  141. penlabels(1,2,3,4);
  142. endchar;
  143.