%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % % VERSETZUNGSZEICHEN % % % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%% %% "flat" % %%%%%%%%%%%% beginchar(50, nhw#, 2nhh#, 2nhh#); clear; penpos4(7/24nhh, 30);%/5,20 % 1 penpos3(nhh/5,-90);%/5,20 % penpos2(nhh/5, 90);%/5,20 % y1 = h; %4 x1 = x2 = x3 = s; x4 = w-s; % 2 y4 = s; % y2l - y3r = 1/4h; y2l = 0; % 3 currentpen:= pencircle scaled 3thinwidth; penstroke z2e...z4e...z3e{sw};%right ,sw draw z1--z3; draw z1--z3; penlabels(1,2,3,4); endchar; %%%%%%%%%% %% "bb" % %%%%%%%%%% beginchar(51,2nhw#, 2nhh#, 2nhh#); clear; penpos4(nhh/4, 0);%/5,20 penpos3(nhh/4,-90);%/5,20 penpos2(nhh/4, 90);%/5,20 y1 = h; %4 x1 = x2 = x3 = s; x4 = w/2-s; % 2 y4 = s; % y2l - y3r = 1/4h; y2l = 0; % 3 currentpen:= pencircle scaled 3thinwidth; draw z1--z3; draw z1--z3; penstroke z2e..z4e...z3e{sw}; draw (z1--z3) shifted ((w/2 - 1.5s),0); penstroke (z2e..z4e...z3e{sw})shifted ((w/2 -1.5s),0); endchar; %%%%%%%%%%%%% %% "sharp" % %%%%%%%%%%%%% beginchar(52, nhw#, 1.5nhh#, 1.5nhh#); clear; penpos3(nhh/2,90); penpos4(nhh/2,90); y1 = h - s; y1 - y2 = 2h - s; x1 = x2 = s; z3 = (0,1/4nhh); y4l = y3r; x4 = w; currentpen:= pencircle scaled 3thinwidth; draw z1--z2; draw (z1--z2) shifted (w-2s,s); penstroke z3e--z4e; penstroke (z3e--z4e) shifted (0, -nhh); penlabels(1,2,3,4); endchar; %%%%%%%%%% %% "xx" % %%%%%%%%%%% beginchar(53, nhw#, .5nhh#, .5nhh#); clear; z1 = (s, h-s); z2 = (w-s, h-s); z3 = (s,-h+s); z4 = (w-s,-h+s); currentpen:= pencircle scaled .2nhh; draw z1--z4; draw z3--z2; currentpen:= pencircle scaled .3nhh; drawdot z1; drawdot z2; drawdot z3; drawdot z4; endchar; %%%%%%%%%%%%%%% %% "natural" % %%%%%%%%%%%%%%% beginchar(54, nhw#, 1.5nhh#, 1.5nhh#); clear; penpos3(nhh/2,90); penpos4(nhh/2,90); y1 = h; y2 = -h + nhh/2; x1 = x2 = s; z3l = (s,0); y4 = y3r; x4 = w-s; currentpen:= pencircle scaled 3thinwidth; draw z1--z2; draw (z1--z2) shifted (w-2s,-h+y4r); penstroke z3e--z4e; penstroke (z3e--z4e) shifted (0, -nhh); endchar; %%%%%%%%%%%%%%%% %% "1/4 flat" % %%%%%%%%%%%%%%%% beginchar(55, nhw#, 2nhh#, 2nhh#); clear; penpos4(7/24nhh, 30);%/5,20 % 1 penpos3(nhh/5,-90);%/5,20 % penpos2(nhh/5, 90);%/5,20 % y1 = h; % 4 x1 = x2 = x3 = w-s; x4 =2w-3s; % 2 y4 = s; % y2l - y3r = 1/4h; y2l = 0; % 3 currentpen:= pencircle scaled 3thinwidth; penstroke (counterclockwise (z2e...z4e...z3e{sw}) reflectedabout(z1 ,z3)); draw z1--z3; draw z1--z3; penlabels(1,2,3,4); endchar; %%%%%%%%%%%%%%%% %% "3/4 flat" % %%%%%%%%%%%%%%%% beginchar(56, 2nhw#-2S, 2nhh#, 2nhh#); clear; penpos4(7/24nhh, 30);%/5,20 % 1 penpos3(nhh/5,-90);%/5,20 % penpos2(nhh/5, 90);%/5,20 % y1 = h; % 4 x1 = x2 = x3 = w/2; x4 =w-s; % 2 y4 = s; % y2l - y3r = 1/4h; y2l = 0; % 3 currentpen:= pencircle scaled 3thinwidth; penstroke z2e...z4e...z3e{sw}; penstroke (counterclockwise (z2e...z4e...z3e{sw}) reflectedabout(z1 ,z3)); draw z1--z3; draw z1--z3; penlabels(1,2,3,4); endchar;