home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / tex / mutex.arc / MF.ARC / PAUSE16.MF < prev    next >
Text File  |  1990-03-06  |  6KB  |  185 lines
  1. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. %                                                             %
  3. %                      PAUSEN                                 %
  4. %                                                             %
  5. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  6.  
  7.  
  8.  
  9.  
  10. %%%%%%%%%
  11. %% "dp" %
  12. %%%%%%%%%
  13.  
  14. beginchar(58,1/2nhw#, 3nhh#, 0);
  15.          clear;
  16.          penpos1(nhh,90);
  17.          penpos2(nhh,90);
  18.          y1r = y2r = h;
  19.          x1r =  0; x2r = w;
  20.          currentpen:= pencircle;
  21.          penstroke z1e--z2e;
  22. labels(1,2);
  23. endchar;
  24.  
  25. %%%%%%%%%%
  26. %% "ddp" %
  27. %%%%%%%%%%
  28.  
  29. beginchar(59,1/2nhw#, 3nhh#, 0);
  30.          clear;
  31.          penpos1(2nhh,90);
  32.          penpos2(2nhh,90);
  33.          y1r = y2r = h;
  34.          x1r =  0; x2r = w;
  35.          currentpen:= pencircle;
  36.          penstroke z1e--z2e;
  37. labels(1,2);
  38. endchar;
  39.  
  40. %%%%%%%%%%%%%%%%%%
  41. %% "ganze Pause" %
  42. %%%%%%%%%%%%%%%%%%
  43.  
  44. beginchar(60, nhw#, 3nhh#, 0);
  45.          clear;
  46.          penpos1(nhh/2,90);
  47.          penpos2(nhh/2,90);
  48.          y1r = y2r = h;
  49.          x1r =  0; x2r = w;
  50.          currentpen:= pencircle;
  51.          penstroke z1e--z2e;
  52. endchar;
  53. %charwd:=4.5; chardx:=charwd*pt; chardp:=0; charht:=4;
  54.  
  55. %%%%%%%%%%%%%%%%%%
  56. %% "halbe Pause" %
  57. %%%%%%%%%%%%%%%%%%
  58.  
  59. beginchar(61, nhw#, 2.5nhh#, 0);
  60.          clear;
  61.          penpos1(nhh/2,90);
  62.          penpos2(nhh/2,90);
  63.          y1r = y2r = h;
  64.          x1r =  0; x2r = w;
  65.          currentpen:= pencircle;
  66.          penstroke z1e--z2e;
  67. endchar;
  68.  
  69. %%%%%%%%%%%%%%%%%%%%
  70. %% "viertel Pause" %
  71. %%%%%%%%%%%%%%%%%%%%
  72.  
  73. beginchar(62, nhw#, 4nhh#, 0);                               % .1
  74.          clear;                                            %         .2
  75.          thin := 5 thinwidth; thick := 1/2 nhh;            %    8..3
  76.          alpha_a = -50; alpha_b = -50;                     %   .4
  77.          penpos1 (  thin,   (alpha_a+90));                 %        .5
  78.          penpos5 (  thin,   (alpha_b));                    %   .6
  79.          penpos2 ( thick,    alpha_a   );                  %
  80.          penpos4 ( thick,    alpha_b   );                  %        .7
  81.          penpos3 ( thick, 1/2(alpha_a+alpha_b));
  82.          x3r:=9/10[x3,x3r];
  83.          penpos8 ( thick, 1/2(alpha_a+alpha_b));
  84.          x8l:=9/10[x8,x8l];
  85.          penpos6 ( 1/2thick, (alpha_b+10));
  86.          penpos7 ( 1/4thick,-20);
  87.          y1l = h - 2s;
  88.          x1l =  2s;
  89.          z2r =  z1 +(nhh* right) rotated alpha_a;
  90.          z5 =  z4l+(nhh* right) rotated alpha_b;
  91.          z3  = 1/3[z2,z4];
  92.          z8  = 2/3[z2,z4];
  93. %        z3  = 1/2[z2r,z4];
  94.          z4  = (w,h) scaled .5;
  95.          y6r = 1.5nhh;
  96.          x6l = x4l;
  97.          x7 = w/2; y7r= nhh;
  98.          currentpen:= pencircle scaled thin;
  99.          draw z1--z2r; draw z5--z4l;
  100.          penstroke z2e..z3e..z8e..z4e;
  101.          penstroke z5e{nw}..z6e{z7-z6}..z7e;
  102. endchar;
  103. %%title "viertelpause";                                    %
  104. %beginchar(62, nhw#, 4nhh#, 0);                               % .1
  105. %         clear;                                            %         .2
  106. %         thin := 5 thinwidth; thick := 1/2 nhh;            %    8..3
  107. %         alpha_a = -50; alpha_b = -50;                     %   .4
  108. %%         penpos4(thick,-45);
  109. %         z1 = (s,h-s);
  110. %         z3 = (w,nhh);
  111. %         z2-z3=(h/2-s)*up;
  112. %         z1-z6=(h/2-2s)*up;
  113. %         z4r = 1/3z1;
  114. %         z4l = (w/2,nhh);% z2 = (w-s,h-nhh-s);
  115. % %        1[z2,z4r]=1/3(w,h);
  116. %         z5 = 1/2(w,nhh);
  117. %         currentpen:= pencircle scaled thin;%4
  118. %         draw z1--z2; draw z6--z3;
  119. %         filldraw z1--z2..control1/3[-z2,z4r]
  120. %         %-(w/2,h/2))}
  121. %         ..z3--z6..control1/4[-z6,z2]
  122. %         %(w/2,h-nhh))}
  123. %         ..z1--cycle;
  124. %         filldraw z3...z4r...z5--z5..z4l..z3..cycle;
  125. %penlabels(1,2,3,4,5,6);
  126. %endchar;
  127. %end;
  128.  
  129. %%%%%%%%%%%%%%%%%%%
  130. %% "achtel Pause" %
  131. %%%%%%%%%%%%%%%%%%%
  132.  
  133. beginchar(63, 2nhh#, 3nhh#, 0)
  134. clear;
  135.           %punkte f"ur achtelpause, 16. und 32. Pause
  136.           x1=y1= nhh; x2=x6=7/4nhh; y2=11/4nhh;
  137.           x3=x4=x5=1/2nhh; y3=10/4nhh;
  138.           y4=3nhh; y5=0; y6=15/4nhh;
  139.           currentpen := pencircle scaled 2thinwidth;
  140.           draw z1..z2;
  141.           currentpen := pensquare rotated45 scaled(sqrt2*thinwidth);
  142.           draw z2..z3{up+left};
  143.           fill z3..z4..z3..cycle;
  144. endchar;
  145.  
  146. %%%%%%%%%%%%%%%%%%%%%%%%
  147. %% "sechzehntel Pause" %
  148. %%%%%%%%%%%%%%%%%%%%%%%%
  149.  
  150. beginchar(64,2nhh#, 3nhh#, 0)
  151.           clear;
  152.           %punkte f"ur achtelpause, 16. und 32. Pause
  153.           x1=y1= nhh; x2=x6=7/4nhh; y2=11/4nhh;
  154.           x3=x4=x5=1/2nhh; y3=10/4nhh;
  155.           y4=3nhh; y5=0; y6=15/4nhh;
  156.           currentpen := pencircle scaled 2thinwidth;
  157.           draw z5..z2;
  158.           currentpen := pensquare rotated45 scaled(sqrt2*thinwidth);
  159.           draw z2..z3{up+left};
  160.           draw z2..z3{up+left} shifted(-1/2nhh,-nhh);
  161.           fill z3..z4..z3..cycle;
  162.           fill z3..z4..z3..cycle shifted (-1/2nhh,-nhh);
  163. endchar;
  164.  
  165. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  166. %% "zweiunddreissigstel Pause" %
  167. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  168.  
  169. beginchar(65,2nhh#, 4nhh#, 0)
  170.           clear;
  171.           %punkte f"ur achtelpause, 16. und 32. Pause
  172.           x1=y1= nhh; x2=x6=7/4nhh;
  173.           y2=11/4nhh; x3=x4=x5=1/2nhh; y3=10/4nhh;
  174.           y4=3nhh; y5=0; y6=15/4nhh;
  175.           currentpen := pencircle scaled 2thinwidth;
  176.           draw z5..z6;
  177.           currentpen := pensquare rotated45 scaled(sqrt2*thinwidth);
  178.           draw z2..z3{up+left} shifted(      0,nhh);
  179.           draw z2..z3{up+left} shifted(-1/4nhh,  0);
  180.           draw z2..z3{up+left} shifted(-2/3nhh,-nhh);
  181.           fill z3..z4..z3..cycle shifted (      0, nhh);
  182.           fill z3..z4..z3..cycle shifted (-1/4nhh,   0);
  183.           fill z3..z4..z3..cycle shifted (-2/3nhh,-nhh);
  184. endchar;
  185.