diff options
Diffstat (limited to 'macros/mtex/metafont/pause16.mf')
-rw-r--r-- | macros/mtex/metafont/pause16.mf | 184 |
1 files changed, 184 insertions, 0 deletions
diff --git a/macros/mtex/metafont/pause16.mf b/macros/mtex/metafont/pause16.mf new file mode 100644 index 0000000000..7ebbf449f9 --- /dev/null +++ b/macros/mtex/metafont/pause16.mf @@ -0,0 +1,184 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% % +% PAUSEN % +% % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + + + +%%%%%%%%% +%% "dp" % +%%%%%%%%% + +beginchar(58,1/2nhw#, 3nhh#, 0); + clear; + penpos1(nhh,90); + penpos2(nhh,90); + y1r = y2r = h; + x1r = 0; x2r = w; + currentpen:= pencircle; + penstroke z1e--z2e; +labels(1,2); +endchar; + +%%%%%%%%%% +%% "ddp" % +%%%%%%%%%% + +beginchar(59,1/2nhw#, 3nhh#, 0); + clear; + penpos1(2nhh,90); + penpos2(2nhh,90); + y1r = y2r = h; + x1r = 0; x2r = w; + currentpen:= pencircle; + penstroke z1e--z2e; +labels(1,2); +endchar; + +%%%%%%%%%%%%%%%%%% +%% "ganze Pause" % +%%%%%%%%%%%%%%%%%% + +beginchar(60, nhw#, 3nhh#, 0); + clear; + penpos1(nhh/2,90); + penpos2(nhh/2,90); + y1r = y2r = h; + x1r = 0; x2r = w; + currentpen:= pencircle; + penstroke z1e--z2e; +endchar; +%charwd:=4.5; chardx:=charwd*pt; chardp:=0; charht:=4; + +%%%%%%%%%%%%%%%%%% +%% "halbe Pause" % +%%%%%%%%%%%%%%%%%% + +beginchar(61, nhw#, 2.5nhh#, 0); + clear; + penpos1(nhh/2,90); + penpos2(nhh/2,90); + y1r = y2r = h; + x1r = 0; x2r = w; + currentpen:= pencircle; + penstroke z1e--z2e; +endchar; + +%%%%%%%%%%%%%%%%%%%% +%% "viertel Pause" % +%%%%%%%%%%%%%%%%%%%% + +beginchar(62, nhw#, 4nhh#, 0); % .1 + clear; % .2 + thin := 5 thinwidth; thick := 1/2 nhh; % 8..3 + alpha_a = -50; alpha_b = -50; % .4 + penpos1 ( thin, (alpha_a+90)); % .5 + penpos5 ( thin, (alpha_b)); % .6 + penpos2 ( thick, alpha_a ); % + penpos4 ( thick, alpha_b ); % .7 + penpos3 ( thick, 1/2(alpha_a+alpha_b)); + x3r:=9/10[x3,x3r]; + penpos8 ( thick, 1/2(alpha_a+alpha_b)); + x8l:=9/10[x8,x8l]; + penpos6 ( 1/2thick, (alpha_b+10)); + penpos7 ( 1/4thick,-20); + y1l = h - 2s; + x1l = 2s; + z2r = z1 +(nhh* right) rotated alpha_a; + z5 = z4l+(nhh* right) rotated alpha_b; + z3 = 1/3[z2,z4]; + z8 = 2/3[z2,z4]; +% z3 = 1/2[z2r,z4]; + z4 = (w,h) scaled .5; + y6r = 1.5nhh; + x6l = x4l; + x7 = w/2; y7r= nhh; + currentpen:= pencircle scaled thin; + draw z1--z2r; draw z5--z4l; + penstroke z2e..z3e..z8e..z4e; + penstroke z5e{nw}..z6e{z7-z6}..z7e; +endchar; +%%title "viertelpause"; % +%beginchar(62, nhw#, 4nhh#, 0); % .1 +% clear; % .2 +% thin := 5 thinwidth; thick := 1/2 nhh; % 8..3 +% alpha_a = -50; alpha_b = -50; % .4 +%% penpos4(thick,-45); +% z1 = (s,h-s); +% z3 = (w,nhh); +% z2-z3=(h/2-s)*up; +% z1-z6=(h/2-2s)*up; +% z4r = 1/3z1; +% z4l = (w/2,nhh);% z2 = (w-s,h-nhh-s); +% % 1[z2,z4r]=1/3(w,h); +% z5 = 1/2(w,nhh); +% currentpen:= pencircle scaled thin;%4 +% draw z1--z2; draw z6--z3; +% filldraw z1--z2..control1/3[-z2,z4r] +% %-(w/2,h/2))} +% ..z3--z6..control1/4[-z6,z2] +% %(w/2,h-nhh))} +% ..z1--cycle; +% filldraw z3...z4r...z5--z5..z4l..z3..cycle; +%penlabels(1,2,3,4,5,6); +%endchar; +%end; + +%%%%%%%%%%%%%%%%%%% +%% "achtel Pause" % +%%%%%%%%%%%%%%%%%%% + +beginchar(63, 2nhh#, 3nhh#, 0) +clear; + %punkte f"ur achtelpause, 16. und 32. Pause + x1=y1= nhh; x2=x6=7/4nhh; y2=11/4nhh; + x3=x4=x5=1/2nhh; y3=10/4nhh; + y4=3nhh; y5=0; y6=15/4nhh; + currentpen := pencircle scaled 2thinwidth; + draw z1..z2; + currentpen := pensquare rotated45 scaled(sqrt2*thinwidth); + draw z2..z3{up+left}; + fill z3..z4..z3..cycle; +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%% +%% "sechzehntel Pause" % +%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar(64,2nhh#, 3nhh#, 0) + clear; + %punkte f"ur achtelpause, 16. und 32. Pause + x1=y1= nhh; x2=x6=7/4nhh; y2=11/4nhh; + x3=x4=x5=1/2nhh; y3=10/4nhh; + y4=3nhh; y5=0; y6=15/4nhh; + currentpen := pencircle scaled 2thinwidth; + draw z5..z2; + currentpen := pensquare rotated45 scaled(sqrt2*thinwidth); + draw z2..z3{up+left}; + draw z2..z3{up+left} shifted(-1/2nhh,-nhh); + fill z3..z4..z3..cycle; + fill z3..z4..z3..cycle shifted (-1/2nhh,-nhh); +endchar; + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% "zweiunddreissigstel Pause" % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +beginchar(65,2nhh#, 4nhh#, 0) + clear; + %punkte f"ur achtelpause, 16. und 32. Pause + x1=y1= nhh; x2=x6=7/4nhh; + y2=11/4nhh; x3=x4=x5=1/2nhh; y3=10/4nhh; + y4=3nhh; y5=0; y6=15/4nhh; + currentpen := pencircle scaled 2thinwidth; + draw z5..z6; + currentpen := pensquare rotated45 scaled(sqrt2*thinwidth); + draw z2..z3{up+left} shifted( 0,nhh); + draw z2..z3{up+left} shifted(-1/4nhh, 0); + draw z2..z3{up+left} shifted(-2/3nhh,-nhh); + fill z3..z4..z3..cycle shifted ( 0, nhh); + fill z3..z4..z3..cycle shifted (-1/4nhh, 0); + fill z3..z4..z3..cycle shifted (-2/3nhh,-nhh); +endchar; |