%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                                                             %
%                      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;

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.