% X = Az, Y = Izze, W=Jat, Q = OT, \m = dvokatni uglasti m,
% oct"010" = meki znak, oct"020" = tvrdi znak (assemanijev)
% 2 = JU, 9 = Dz,
% 4 = Tvrdi znak, 7 = Meki znak
% oct"001" = Izze2 (\Y)
% oct"003" = En
% oct"005" = Jen
% oct"007" = On
% oct"021" = Ch
% oct"022" = Jon
% oct"023" = Cc
% oct"024" = Ss
% oct"025" = Zz
% oct"074" = Paukasti H,
% oct"177" = Tilda



beginchar("A",.7em#,cap#,0); "The letter A";
pickup pencircle xscaled 1.3thick yscaled .2thin;
x1=w-x2=curve_sidebar; y1=y2=h/2;
x3=x4=w/2; y3=0; y4=h;
z1-z5=z2-z6=(0,.2h);
draw z5--z1--z2--z6; draw z3--z4;
endchar;



beginchar("B",0.7em#,cap#,0); "The letter B";
pickup pencircle xscaled 1.3thick yscaled .2thin;
smoothing:=4;
k:=.5;
x1=w-x2=curve_sidebar; y1=y2=0;
x3=x4=w-x7=w-x8=curve_sidebar;
y3=y5=y7=k*w;
y4=y6=y8=h;
x5=x6=w/2;
%z3=0*[z9,z7];
draw z4--z1--z2;
draw z3--z7--z8;
draw z5--z6;
penlabels(1,2,3,4,5,6,7,8);
endchar;

beginchar("G",.8em#,cap#,0); "The letter G";
pickup pencircle xscaled 1.2thick yscaled .3thin;
%pickup pencircle scaled .3thin;
x1=w-x8=curve_sidebar;
r:=.2h;
x2=x4=x5=x1+r;
y1=y5=h-r;
top y2=h; y4=y2-2r;
kut:=20;
z3-z5=(z4-z5) rotated (90-kut);
bot y6=0; (z6-z3)dotprod(z3-z5)=0; % x6
x9=x7=x8-r; x10=x8-2r;
y9=y6; y8=y10=r; y7=2r;

q:=.5(thick-.3thin)*cosd kut;
x3'=x3+q; x6'=x6+q;
y3'=y3; y6'=y6;
x66=x6'+.5(thick-.3thin); bot y66=0;
penpos1(thick,0);
penpos2(.3thin,-90);
penpos3(.3thin,180-kut);
penpos4(.3thin,90);
penpos3'(cosd kut*thick,180-kut);
penpos6'(1.2thick,180);
penpos66 (.3thin,180);
penpos7(.3thin,90);
penpos8 (thick,0);
penpos9 (.5thin,-90);
penpos10 (.4thin,180);
drawdot z6';
penstroke z3e{dir(-kut-90)}
.{left}z4e..
z1e{up}..{right}z2e;
penstroke z6'e--z3'e{dir(-kut+90)}..{left}z2e;
penstroke z66e{dir (angle(z3-z6))}..{right}z7e..{down}z8e..{left}z9e..{up}z10e
.{right}z7e;
endchar;



beginchar("D",em#,cap#,0); "The letter D";
pickup pencircle scaled .01thin; %xscaled 1.3thick yscaled .2thin;
x1=w-x2=.25w;
d:=2x1-2curve_sidebar;
y1=y2=.5d;
top z3=(.5w, h);
x4=w-x5=x1;
y4=y5=.7h;
z6=(x1+.5d,y1); x7=w-x6; y7=y6;
bot z8-z1=(z6-z1) rotated -90; % z8
z9-z1=(z8-z1) rotated -90; % z9
z10-z1=(z9-z1) rotated -90; %z10
penpos9 (thick,0);
penpos10 (.4thin,-90);
penpos8 (.4thin,90);
penpos6 (.3thin,180);
penstroke z8e{left}..z9e{up}..z10e{right}..z6e{down}..cycle;
bot z11-z2=(z7-z2) rotated 90; % z11
z12-z2=(z11-z2) rotated 90; % z12
z13-z2=(z12-z2) rotated 90; %z13
penpos7 (.3thin,0);
penpos11 (.4thin,90);
penpos12 (thick,180);
penpos13 (.4thin,-90);
penstroke z11e{left}..z7e{up}..z13e{right}..z12e{down}..cycle;
penpos4 (.3thin,180);
penpos5 (1.4thick,0);
penpos3 (.4thick,90);
penstroke z6e{up}..z4e{up}..z3e{right}..z5e{down}..{down}z7e;
picture slovoD; slovoD=currentpicture;
endchar;


beginchar("V",em#,cap#,0); "The symbol V";
transform t;
t=identity rotatedabout ((.5w,.5h),180);
addto currentpicture also slovoD transformed t;
endchar;





beginchar("E",.67em#,cap#,0); "The letter E";
pickup pencircle xscaled 1.2thick yscaled .2thin;
x1=x5=w-x3=curve_sidebar; y1=h-y5=.1h; y3=h/2;
x2=x4=.42w; y2=0; y4=h;
draw z5..{right}z4..{down}z3..{left}z2..z1;
pickup pencircle xscaled 1.2thin yscaled .2thin;
a:=.01;
x8=x9=.35w; x6=x7=w-curve_sidebar-a* w;
y8-y3=y7-y3=y3-y9=y3-y6=.1h;
draw z8--z7; draw z9--z6;
picture slovoE; slovoE=currentpicture;
endchar;

beginchar(oct"025",em#,1.1cap#,0); "The letter Zz";
pickup pencircle xscaled 1.3thick yscaled .3thin;
x1=w-x2=.25w;  x5=w-x6=.27w;
x11=w-x21=curve_sidebar;
x1-x11=x51-x5=x6-x61;
y1=y2=y5=y6=.8h; y11=y21=y51=y61=.5[y1,y3];
y3=y4=.47h; x3=w-x4=.5[x1,x5];
z56=.5[z5,z6];
y52=y62=h; x52-x11=x21-x62=.15w;
penpos1 (.3thin,-90);
penpos11 (1.2thick,0);
penpos3 (.5thin,90);
penpos51 (.3thin,180);
penpos5 (.2thin,180);
penpos2 (.3thin,90);
penpos21 (1.2thick,0);
penpos4 (.5thin,-90);
penpos61 (.3thin,180);
penpos6 (.2thin,180);
draw z1-- z2;
penstroke
z1e{left}..z11e{down}..z3e{right}..{up}z51e..{left}z5e;
penstroke
z2e{right}..z21e{down}..z4e{left}..{up}z61e..{right}z6e;
draw z52{dir -10}..{dir-70}z56{dir 70}..{dir10}z62;
endchar;



beginchar("9",.7em#,cap#,0); "The letter Dz->9";
pickup pencircle xscaled 1.2thick yscaled .3thin;
x1=w-x2=curve_sidebar; y1=y2=.5h;
r:=.2h; x5=.5w; x6=x5+r; y5=y6=h-r; x3=w-x4=.42w;
bot y3=bot y4=0;
z6-z5=(z7-z5) rotated(90-angle(z2-z4)); % z7
z7-z8=whatever*(z2-z4); z8=whatever[z1,z3]; % z8
z5=.5[z10,z6]; % z10
z9-z5=(z6-z5)rotated 90;
z5=.5[z11,z9];
penpos6 (.3thin,0);
penpos9 (.5thin,90);
penpos10 (thick,180);
penpos11 (.4thin,-90);
penpos7  (.3thin,angle(z7-z5));
penpos8  (.3thin,angle(z7-z5));
draw z1--z2--z4--z3--cycle;
penstroke z8e--z7e{dir(angle(z7-z8))}..
z6e{up}..{left}z9e..{down}z10e..{right}z11e..
{dir (angle(z7-z8))}z7e;
picture Dz; Dz=currentpicture;
endchar;



beginchar("Z",.9em#,cap#,0); "The letter Z";
a:=42;
pickup pencircle xscaled 1.2thick yscaled .3thin rotated a;
x1=w-x3=curve_sidebar; y1=y3=h/2;;
z2=.6[z1,z3]; z5=.3[z2,z3];
x4=x6=.5[x1,x2]; y4=h; y6=0;
x7=.5[x5,x3]; y7=.1h;
draw z4{dir(180+a)}..{down}z1..{dir-a}z6{dir a}..{up}z2..{dir(180-a)}z4;
pickup pencircle xscaled thick yscaled .3thin;
b:=1.3;
x1:=x1+.3thick;
draw z1--z3;
penpos3 (thick,0);
penpos7 (.5thin,-90);
penpos5 (.3thin,180);
penstroke z3e{down}..tension b..{left}z7e..tension b..{up}z5e;
endchar;


beginchar("Y",em#,cap#,0); "The letter Izze<-Y";
pickup pencircle xscaled thick yscaled .2thin;
%pickup pencircle scaled .3thin;
x1=w-x2=curve_sidebar;
r:=.2h; y1=y2=h-r;
z3=(x1+r, h-r);
z4=(x2-r,y3);
kut:=30;
z9-z3=(z1-z3) rotated(180+kut);
z10=(w-x9,y9);
(x7-x9,y7-y9)dotprod(x9-x3,y9-y3)=0;
(z9-z3)dotprod(z6-z9)=0;
z5=(w-x6,0);
top y7=h; bot y6=0;
z11=z3+(z1-z3)rotated-90;
z12=(w-x11,y11);
z3=.5[z11,z13];
z4=.5[z12,z14];
penpos1 (thick,0);
penpos11 (.2thin,-90);
penpos9 (.2thin,180+kut);
penpos13 (.5thin,90);
penpos2 (thick,0);
penpos12 (.2thin,90);
penpos10 (.2thin,180-kut);
penpos14 (.5thin,-90);
penstroke z1e{up}..{right}z11e..{dir(kut-90)}z9e..{left}z13e..cycle;
penstroke z2e{up}..{left}z12e..{dir (angle(z5-z10))}z10e..{right}z14e..cycle;
x9'=x9+.5(thick-.2thin)*cosd kut; y10'=y10; y9'=y9;
x10'=w-x9';
top y7'=h; bot y6'=0;
(x7'-x9',y7'-y9')dotprod(x9'-x3,y9'-y3)=0;
(z9'-z3)dotprod(z6'-z9')=0;
bot z5'=(w-x6',0);
top z8'=(w-x7',h);
draw z9'--z6'--z5'--z10';
z11'=(x11+.5*1.2thick,y11); penpos11' (1.2thick,0);
penpos9' (thick,0);
z10'=(w-x9',y9');
z12'=(w-x11',y11');
penpos10' (thick,0);
penpos12' (1.2thick,0);
penstroke z11'e{right}..{dir(angle(z6'-z9'))}z9'e;
penstroke z12'e{left}..{dir(angle(z5'-z10'))}z10'e;
draw z11--z12;
endchar;




beginchar("J",.95em#,cap#,0); "The letter Dderv<-J";
pickup pencircle xscaled 1.3thick yscaled .3thin;
x1=w-x4=w-x7=curve_sidebar;
x3=.5[x1,x4];
x2=.5[x1,x3];
x5=.35[x3,x7];
x6=.5[x5,x7];
bot y1=bot y3=bot y4=0; top y2=top y6=h;
h-y5=h-y7=x7-x6;
kut:=40; %angle(z2-z3)-90;
kor:=15;
z57=.5[z5,z7];
z77-z57=(z7-z57)rotated (-kut); %z77
z55-z57=(z5-z57)rotated (kut-kor); %z55
x4:=x4-.7thick;
z2'=z2;
z3'=z3;
y2:=h-.5*1.3thick* sind63+.5*.3thin;  y2':=y2;
penpos1 (thick,0);
penpos2 (.3thin,0);
penpos2' (1.3thick,65);
penpos3 (1.3thick,0);
penpos3' (.3thin,180);
penpos4 (1.3thick,0);
penpos5 (1.3thick,0);
penpos55 (1.3thick,kut-kor);
penpos6 (.5thin,-90);
penpos7 (.3thin,180);
penpos77 (.3thin,180-kut);
penstroke z1e{dir83}..{dir65}z2e;
penstroke z2'e{dir-65}..{dir-83}z3e;
penstroke z4e
.z55e{dir(90+kut-kor)}..z5e{up}..z6e{right}..{down}z7e
.z77e{dir(-90-kut)}..{dir(180+80)}z3'e;
drawdot z4; drawdot z3;
pickup pencircle xscaled thick yscaled .3thin; drawdot z1;
pickup pencircle xscaled 1.3thick yscaled .3thin rotated 65; drawdot z2;
endchar;



beginchar("K",.45em#,cap#,0); "The letter K";
pickup pencircle xscaled 1.2thick yscaled .2thin;
x1=x2=x5=x6=
w-x3=w-x4=curve_sidebar;
y6=0; y4=y5=h/3; y2=y3=2h/3;y1=h;
draw z1--z2--z3--z4--z5--z6;
endchar;


beginchar("L",em#,cap#,0); "The letter L";
pickup pencircle scaled .01thin; %xscaled 1.3thick yscaled .2thin;
x1=w-x2=.25w;
d:=2x1-2curve_sidebar;
y1=y2=.5d;
top z3=(.5w, h);
x4=w-x5=x1;
y4=y5=.7h;
z6=(x1+.5d,y1); x7=w-x6; y7=y6;
bot z8-z1=(z6-z1) rotated -90; % z8
z9-z1=(z8-z1) rotated -90; % z9
z10-z1=(z9-z1) rotated -90; %z10
penpos9 (thick,0);
penpos10 (.4thin,-90);
penpos8 (.4thin,90);
penpos6 (.3thin,180);
bot z11-z2=(z7-z2) rotated 90; % z11
z12-z2=(z11-z2) rotated 90; % z12
z13-z2=(z12-z2) rotated 90; %z13
penpos7 (.3thin,0);
penpos11 (.4thin,90);
penpos12 (thick,180);
penpos13 (.4thin,-90);
penpos4 (.3thin,180);
penpos5 (1.4thick,0);
penpos3 (.4thick,90);
kut:=10;
z10'-z1=(z10-z1) rotated -kut;
z13'-z2=(z13-z2) rotated kut;
penpos10' (.3thin,-90+kut);
penpos13' (.3thin,-90-kut);
penstroke z6e{down}..z8e{left}..z9e{up}..z10'e{dir kut}..{dir-kut}z13'e..
z12e{down}..z11e{left}..z7e{up}..z5e{up}..z3e{left}..z4e{down}..cycle;
endchar;



beginchar("M",1.2em#,cap#,0); "The letter M";
pickup pencircle xscaled 1.2thick yscaled .2thin;
x1=w-x2=curve_sidebar; y1=y2=h;
z4-z1=z2-z5=(.25w,0);
h-y6=h-y7=.6(x4-x1); x6=.5[x1,x4]; x7=.5[x5,x2];
draw z1--z2; draw z1{down}.. z6{right}..{up}z4; draw z5{down}..{right}z7
.{up}z2;
r:=0.33h;
y91=y92=.17h; %radius
x91=.27w; x92=w-x91;
z3=.5[z1,z2];
z3-z31=z32-z3=(.5*1.4 thick,0); %(.04w,0);
z100=(.5w,.6h);
z200=(.5w,.8y100);
%x81=.8[x91,x31]; x82=w-x81;
%y81=y82=.5h ;% 1.2x100;
x41=x31; x42=x32; y41=y42=.7h;
pickup pencircle xscaled .9thick yscaled 0.15thin;
%pickup pencircle scaled (.1thin +blacker);
kut:=angle(z91-z100)+15;
kutt:=-kut;
kut1:=angle(z100-z91);
fill z31--z41{down}..tension 1.5..{dir kut}z91{dir kut1}  %..cycle;
.tension 1.5..{right}z200..tension 1.5..{dir -kut1}z92{dir kutt}..
tension1.5..{up}z42--z32-- cycle;
erase fill  fullcircle scaled r shifted z91;
erase fill  fullcircle scaled r shifted z92;
draw fullcircle scaled r shifted z91;
draw fullcircle scaled r shifted z92;
endchar;




beginchar("N",.7em#,cap#,0); "The letter N";
pickup pencircle xscaled 1.2thick yscaled .3thin;
x1=x2=w-x4=curve_sidebar;
x8=1.5curve_sidebar;
x7=x6=.37w; x3=x5=.5w;
y8=y7=0; y6=y5=h; y2=y3=.5h; y4=.5[y3,y5];
y1=y2-.1h;
draw z1--z2--z3{right}..{up}z4..{left}z5--z6--z7--z8;
endchar;


beginchar("O",.55em#,cap#,0); "The letter O";
pickup pencircle xscaled 1.4thick yscaled .3thin;
r:=.25w;
s:=r;
%s:=.15h;
x1=x2=w-x6=curve_sidebar;
x8=x9=x5=x3=x1+r;
y1=h-y2=s; y6=.5h; y8=0; y3=h; y9=h-y5=2s;
kut:=70;
z35=.5[z5,z3];
z89=.5[z8,z9];
(z3-z35)=(z4-z35) rotated 30; % z4
(z7-z89)=(z8-z89) rotated 30; % z7
penpos1 (thick,0); penpos2 (thick,0);
penpos3 (.4thin,-90);
penpos5 (.3thin,90);
penpos9 (.3thin,-90);
penpos8 (.4thin,90);
kut1:=angle(z35-z4);
kut2:=angle(z89-z7);
penpos4 (.4thin,kut1);
penpos7 (.4thin,kut2) ;
penpos6 (1.3thick,180);
kut4:=angle(z4-z35)-90;
kut7:=angle(z7-z89)+90;
penstroke z4e{dir kut4}..z5e{left}..{up}z2e..{right}z3e..z4e{dir kut4}..{down}z6e;
penstroke z7e{dir kut7}..z9e{left}..{down}z1e..{right}z8e..z7e{dir
kut7}..{up}z6e;
picture slovoO; slovoO=currentpicture;
endchar;


beginchar("I",.8em#,1.02*cap#,0); "The letter I"; %.76
pickup pencircle xscaled 1.3thick yscaled .3thin;
x4=w-x2=curve_sidebar;
x1=x3=x5=.5w;
x1-x7=.2w;
5[x7,x6]=x1;
bot y1=0; top y7=top y6=h;
y3=.7h; y2=y4=y5=.5[y1,y3];
draw z1{left}..z4{up}..{right}z3..{down}z2..cycle;
pickup pencircle scaled .4thin;
erase fill z5--z6--z7--cycle;
draw z5--z6--z7--cycle;
picture I; I=currentpicture;
endchar;





beginchar("P",.7em#,cap#,0); "The letter P";
pickup pencircle xscaled 1.3thick yscaled .2thin;
autoround:=4;
x1=.6curve_sidebar; x2=x3=x7=.26w; w-x6=curve_sidebar; x5=.33[x7,x6]; x4=.5[x5,x6];
y3=0; y1=y2=.5h; y4=.55h; y7=y6=y5=h;
penpos6 (1.3thick,0);
penpos4 (.5thin,-90);
penpos5 (.3thin,180);
draw z3--z7--z6;
penstroke z6e{down}..{left}z4e..{up}z5e;
pickup pencircle yscaled thick xscaled .2thin;
draw z1--z2;
endchar;




beginchar("R",.6em#,cap#,0); "The letter R";
pickup pencircle xscaled 1.3thick yscaled .2thin;
x1=x2=x4=w-x3=curve_sidebar;
y1=h; y2=0; y4=.55h; y3=.5[y2,y4];
draw z1--z2{right}..{up}z3..{left}z4;
endchar;


beginchar("S",.8em#,cap#,0); "The letter S";
pickup pencircle xscaled 1.2thick yscaled .2thin;
transform t;
t=  identity reflectedabout ((0,.5h),(w,.5h));
addto currentpicture also I transformed t;
endchar;



beginchar("T",.9em#,cap#,0); "The letter T";
pickup pencircle xscaled 1.3thick yscaled .3thin;
x1=w-x2=curve_sidebar;
x5-x1=x2-x6=.28w; y1=y2=y5=y6=h;
y3=y4=.4h; x3=w-x4=.5[x1,x5];
penpos1 (1.3thick,0);
penpos3 (.5thin,90);
penpos5 (.3thin,180);
penpos2 (1.3thick,0);
penpos4 (.5thin,-90);
penpos6 (.3thin,180);
draw z1--z2;
penstroke z1e{down}..z3e{right}..{up}z5e;
penstroke z2e{down}..z4e{left}..{up}z6e;
endchar;



beginchar(oct"024",.8em#,cap#,0); "The letter Ss";
pickup pencircle xscaled 1.4thick yscaled .2thin;
x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
y1=y5=h; y6=.98h; y2=y3=y4=.5h;
draw z1--z2--z4--z5; draw z3--z6;
endchar;


beginchar("C",.85em#,cap#,0); "The letter C";
pickup pencircle xscaled 1.4thick yscaled .3thin;
smoothing:=4;
x23=x3=w-x7=curve_sidebar; bot x5=.55w; x6=.82w; y6=.5h;
y23=.5[y2,y3];
y5=0; top z4=(.42w,good.y h); top y3=y4; top y7=h; z1=.45[z4,z5]; x1:=x1-.04w;
z2-z3=z1-z4;
z12=.5[z1,z2]; z34=.5[z3,z4];
penpos6(thick,0); penpos7(1.4thick,0);
kut:=-10;
draw z1--z12{left}..{dir angle(z4-z5)}z23..{right}z34--z4{dir (angle(z5-z4)+kut)}
.{dir (angle(z5-z4)-kut)}z5;
x55=x5+.4*thick; y55=0; penpos55(.7thick,0);
penstroke z55e..z6e..z7e;
endchar;






beginchar(oct"023",.9em#,cap#,0); "The letter Cc";
pickup pencircle xscaled 1.4thick yscaled .2thin;
autoround:=4;
x1=w-x2=curve_sidebar; x3=x5=w-x4=w-x6=.3w;
x7=w-x8=.5(x3-x1); x11=.5w; x10=w-x9=.5(x7+x11);
y1=y2=y3=y4=0; y5=y6=y7=y8=y11=.5h; y9=y10=h;
z12=.3[z10,z7]; z13=.3[z9,z8];
z14=.5[z12,z13];
x12:=.2[x12,x14]; x13:=.2[x13,x14];
draw z10..z12..z7; draw z7--z8; draw z8..z13..z9;
pickup pencircle xscaled thick yscaled .2thin;
draw z11--z14;
draw z12--z13;
d:=y11; z=(.5w,0); z0=.5[z,z11];
draw fullcircle scaled d shifted z0;
endchar;




beginchar(oct"021",.8em#,cap#,0); "The letter Ch";    %ch, ssch
pickup pencircle xscaled 1.4thick yscaled .2thin;
x1=x2=w-x4=w-x5=curve_sidebar; x3=x6=.5w;
y1=y5=h; y6=.98h; y2=y3=y4=.5h;
z7=(x3,.5y3); d:=y3;
draw z1--z2--z4--z5; draw z3--z6;
pickup pencircle xscaled 1.2thick yscaled .2thin;
draw fullcircle scaled d shifted z7;
endchar;



beginchar("U",2*.55em#,cap#,0); "The letter U";
pickup pencircle xscaled 1.4thick yscaled .3thin;
w:=.5w;
r:=.25w;
s:=r;
%s:=.15h;
x1=x2=w-x6=curve_sidebar;
x8=x9=x5=x3=x1+r;
y1=h-y2=s; y6=.5h; y8=0; y3=h; y9=h-y5=2s;
kut:=70;
z35=.5[z5,z3];
z89=.5[z8,z9];
(z3-z35)=(z4-z35) rotated 30; % z4
(z7-z89)=(z8-z89) rotated 30; % z7
penpos1 (thick,0); penpos2 (thick,0);
penpos3 (.4thin,-90);
penpos5 (.3thin,90);
penpos9 (.3thin,-90);
penpos8 (.4thin,90);
kut1:=angle(z35-z4);
kut2:=angle(z89-z7);
penpos4 (.4thin,kut1);
penpos7 (.4thin,kut2) ;
penpos6 (1.3thick,180);
kut4:=angle(z4-z35)-90;
kut7:=angle(z7-z89)+90;
penstroke z4e{dir kut4}..z5e{left}..{up}z2e..{right}z3e..z4e{dir kut4}..{down}z6e;
penstroke z7e{dir kut7}..z9e{left}..{down}z1e..{right}z8e..z7e{dir
kut7}..{up}z6e;
d:=w-.15w;
x1':=x1+d;
x2':=x2+d;
x3':=x3+d;
x4':=x4+d;
x5':=x5+d;
x6':=x6+d;
x7':=x7+d;
x8':=x8+d;
x9':=x9+d;
x35':=x35+d;
x89':=x89+d;
y1'=h-y2'=s; y6'=.5h; y8'=0; y3'=h; y9'=h-y5'=2s;
%kut:=70;
z35'=.5[z5',z3'];
z89'=.5[z8',z9'];
(z3'-z35')=(z4'-z35') rotated 30; % z4
(z7'-z89')=(z8'-z89') rotated 30; % z7
penpos1' (thick,0); penpos2' (thick,0);
penpos3' (.4thin,-90);
penpos5' (.3thin,90);
penpos9' (.3thin,-90);
penpos8' (.4thin,90);
%kut1:=angle(z35-z4);
%kut2:=angle(z89-z7);
penpos4' (.4thin,kut1);
penpos7' (.4thin,kut2) ;
penpos6' (1.3thick,180);
%kut4:=angle(z4-z35)-90;
%kut7:=angle(z7-z89)+90;
penstroke z4'e{dir kut4}..z5'e{left}..{up}z2'e..{right}z3'e..z4'e{dir kut4}..{down}z6'e;
penstroke z7'e{dir kut7}..z9'e{left}..{down}z1'e..{right}z8'e..z7'e{dir
kut7}..{up}z6'e;
z10=(2w-.6curve_sidebar,.5h);
pickup pencircle yscaled .5thin;
draw z6'--z10;
endchar;



beginchar("F",1.5em#,cap#,0); "The letter Thita=F";
pickup pencircle xscaled 1.4thick yscaled .2thin;
x1=w-x2=curve_sidebar; y1=y2=.5h;
z3-z1=z2-z4=.2(z2-z1);
x5=x7=w-x6=w-x8=.42w; y5=y6=0; y7=y8=h;
x9=w-x10=.5(x1+x3); y9=y10=.2h;
draw z3{down}..z9..{up}z1--z2{down}..z10..{up}z4;
draw z5--z6--z8--z7--cycle;
endchar;



beginchar("H",.7em#,cap#,0); "The letter H";
%pickup pencircle xscaled 1.4thick yscaled .3thin;
%pickup pencircle  scaled .3thin;
x1=w-x5=curve_sidebar;
x2=x3=.1w+curve_sidebar;
r:=.22w;
x6=x4=x5-r; x7=x5-2r;
bot y1=bot y6=0; y2=2.3r; top y3=h; y7=y5=r;
y4=2r;
penpos1 (.1thin,0);
penpos2 (1.3thick,0);
penpos3 (1.3thick,0);
penpos4 (.5thin,-90);
penpos5 (1.1thick,180);
penpos6 (.5thin,90);
penpos7 (.3thin,0);
penstroke z3e---z2e..z1e;
penstroke z4e{left}..{dir(180+60)}z1e;
penstroke z4e{left}..z7e{down}..z6e{right}..{up}z5e.. cycle;
endchar;




beginchar("Q",.8em#,cap#,.3em#); "The letter OT->Q";
pickup pencircle xscaled 1.4thick yscaled .3thin;
x4=w-x2=curve_sidebar;
y4=y2=.5h;
bot z1=(.5w,0); top z3=(.5w,h);
r:=.15h;
z5=(x3,y3-r);
z6=(x1,y1+r);
draw superellipse(z2,z3,z4,z1,.75);
pickup pencircle scaled  .3thin;
draw fullcircle scaled 2r  shifted z5;
draw fullcircle scaled 2r  shifted z6;
endchar;



beginchar("W",.9em#,cap#,0); "The letter W->ja";
pickup pencircle xscaled 1.3thick yscaled .3thin;
x1=w-x2=curve_sidebar; y1=y2=0;
z8=.5[z1,z2];
x8-x3=x4-x8=.03w;
%x3=x4=w/2;
y3=y4=h;
z5=.4[z1,z3]; z6=.4[z2,z4]; x5:=x5+.03w; x6:=x6-.03w;
z7=.5[z5,z6];
kut:=8;
draw z1--z2{dir (angle(z4-z2)+kut)}..{dir (angle(z4-z2)-kut)}z4--
z3{dir (angle(z1-z3)+kut)}..{dir(angle(z1-z3)-kut)}z1;
draw z5--z6; draw z8--z7;
endchar;

beginchar("X",.7em#,cap#,0); "The letter X->az (Bassch)";
pickup pencircle xscaled 1.2thick yscaled .2thin;
c:=curve_sidebar;
x1=x2=x3=
w-x4=
w-x5=
w-x6=
w-x7=
w-x8=c;
y3=y4=0; y2=y7=.5h; y1=y5=h;
y6-y7=y7-y8=.1h;
draw z6--z1--z3--z8; draw z2--z7; draw z4--z5;
endchar;



beginchar("2",.9em#,cap#,.3em#); "The letter JU->2";
pickup pencircle xscaled 1.2thick yscaled .3thin;
%pickup pencircle scaled  .3thin;
x1=x2=w-x6=curve_sidebar; top y1=top y4=top y9=h;
r:=.22h;
y6=y7=h-r; y8=h-2r;
x7=x6-2r; x8=x9=x6-r;
bot y2=0;
x4=x5=.4w;
y5=.5h;
x3=0; y3=-.15h;
penpos1 (1.2thick,0);
penpos2 (1.2thick,0);
penpos3 (.1thin,0);
penpos4 (1.2thick,0);
penpos5 (1.2thick,0);
penstroke z1e--z2e{down}..z3e;
penstroke z4e--z5e{down}..z3e;
draw z1--z9{right}..{down}z6;
penpos6 (1.2thick,0);
penpos8 (.7thin,-90);
penpos7 (.5thin,180);
penpos9 (.3thin,90);
penstroke  z6e{down}..{left}z8e..{up}z7e..{right}z9e;
endchar;


beginchar(oct"001",em#,cap#,0); "The letter Izze2";
pickup pencircle scaled  .3thin;
r:=.2h;
x10=w-x12=curve_sidebar; y10=y12=y5=y6=h-r;
x5=x3=w-x6=w-x4=x10+r;
top y3=top y4=h;
z5=.5[z9,z3]; % z9
z6=.5[z11,z4];  % z11
z5=.5[z10,z10'];  % z10'
z6=.5[z12,z12'];  % z12'
bot z1=(.5w,0);
z2=(.5w,.5h);
kut := 35;
kutt:=7;
z3'=z5+(z3-z5)rotated kutt;
z4'=z6+(z4-z6)rotated -kutt;
z7-z5=(z10'-z5)rotated kut;
z8-z6=(z12'-z6)rotated -kut;
penpos1 (1.4thick,0);
penpos2 (.4thin,0);
penpos7 (.3thin,kut);
penpos3 (.3thin,90);
penpos3' (.3thin,90+kutt);
penpos10 (thick,180);
penpos9 (.5thin,-90);
penpos8 (.3thin,-kut);
penpos4 (.3thin,-90);
penpos4' (.3thin,-90-kutt);
penpos12 (thick,180);
penpos11 (.5thin,90);
penstroke z1e..z2e{up}..{dir(kut+90)}z7e..
z3'e{dir(180+kutt)}..{down}z10e..{right}z9e..{dir(kut+90)}z7e;
penstroke z1e..z2e{up}..{dir(90-kut)}z8e
.z4'e{dir(-kutt)}..{down}z12e..{left}z11e..{dir(90-kut)}z8e;
draw z3'{dir kutt}..{dir -kutt}z4';
pickup pencircle xscaled 1.4thick yscaled .3thin;
drawdot z1;
endchar;


beginchar("7",.8em#,cap#,-.2cap#); "Meki znak 7";
pickup pencircle xscaled 1.4thick yscaled .3thin;
%pickup pencircle scaled  .3thin;
x8=w-x1=curve_sidebar;
x5=.8w; bot y1=d; top y5=h; y8=.5(y1+y5);
k:=.28;
z4=k[z5,z1];
z2=k[z1,z5]; z3=.5[z1,z5];
z9-z8=.7(z2-z3);
z6=(x5-.43w,y5);
z66-z6=z4-z5;
z7-z1=z6-z5; % z7
z77-z7=.5(z2-z1);
draw z2{left}..{down}z77..{right}z1--z5--z6{down}..controls z66
.{right}z4;
draw z8--z3;
x9:=x9-.5*1.3thick;
z10=z8+(.5*1.3thick,0);
x8:=x8-.5*1.3thick;
fill z8--z9{dir40}..{up}z10--cycle;
endchar;

beginchar("4",.8em#,cap#,-.2cap#); "Tvrdi znak 4";
pickup pencircle xscaled 1.4thick yscaled .3thin;
%pickup pencircle scaled  .3thin;
x8=w-x1=curve_sidebar;
x5=.8w; bot y1=d; top y5=h; %y8=.5(y1+y5);
k:=.28;
z4=k[z5,z1];
z2=k[z1,z5]; z3=.55[z1,z5]; y8=y3;
%z9-z8=.7(z2-z3);
z6=(x5-.43w,y5);
z66-z6=z4-z5;
z7-z1=z6-z5; % z7
z77-z7=.5(z2-z1);
draw z2{left}..{down}z77..{right}z1--z5--z6{down}..controls z66
.{right}z4;
r:=.15h;
pickup pencircle xscaled  .8thick yscaled .3thin;
x8:=x8+r; draw z8--z3;       y8:=y8-r;
draw fullcircle scaled 2r shifted z8;
endchar;

k:=.1;
beginchar(oct"175",(.67+2k)*em#,cap#,0); "priprema En"; %003
pickup pencircle xscaled 1.3thick yscaled .2thin;
w:=.67/(.67+2k) *w;
x1=x5=w-x3=curve_sidebar; y1=h-y5=.1h; y3=h/2;
x2=x4=.42w; y2=0; y4=h;
draw z5..{right}z4..{down}z3..{left}z2..z1;
pickup pencircle xscaled 1.2thin yscaled .2thin;
a:=.01;
x8=.35w; x7=w-curve_sidebar-a* w;
y8=y7=y3;
draw z8--z7;
w:=(.67+2k)/.67 *w;
r:=k*w;
z6=(w-curve_sidebar-r+.3thin,.5h); %centar kruzznice
pickup pencircle scaled .3thin;
draw fullcircle scaled 2r shifted z6;
%draw (0,0)--(w,0);
picture E; E=currentpicture ;
endchar;

beginchar(oct"003",(.67+2k)*em#,cap#,0); "The letter En";
transform rot;  rot=identity reflectedabout ((.5w,0),(.5w,h));
addto currentpicture also E transformed rot;
picture En; En=currentpicture;
endchar;



beginchar(oct"005",1.4*em#,cap#,-.2cap#); "The letter Jen";
transform t; t=identity;
transform s; s= identity shifted ((.59)/(1.34+2k)*w,0);
addto currentpicture also slovoE transformed t;
addto currentpicture also En transformed s;
endchar;

beginchar(oct"007",1.3*em#,cap#,0); "The letter On";
transform t; t=identity;
transform s; s= identity shifted ((.5)/(1.34+2k)*w,0);
addto currentpicture also slovoO transformed t;
addto currentpicture also En transformed s;
endchar;


beginchar(oct"137",.7em#,cap#,0); "zrcaljeni Dz"; % privremeni 022
transform ref; ref=identity reflectedabout ((0,.5h),(w,.5h));
addto currentpicture also Dz transformed ref;
picture Dz; Dz=currentpicture;
endchar;

beginchar(oct"022",1.43*em#,cap#,0); "The letter Jon";
transform t; t=identity;
transform s; s= identity shifted ((.6)/(1.34+2k)*w,0);
addto currentpicture also Dz transformed t;
addto currentpicture also En transformed s;
endchar;

beginchar(oct"010",.8em#,cap#,0); "Tvrdi znak (assemani)";
pickup pencircle xscaled 1.2thick yscaled .3thin;
x1=x2=curve_sidebar;
ee:=.01;
re:=(.25+ee)*h;
se:=(.25-ee)*h;
x3=x4=x5=w-re-x1;
y2=y4=(.5+2ee)*h; top y5=h; bot y3=0;
z1-z2=(0,-.1h);
draw z1--z2--z4;
draw fullcircle scaled 2re shifted .5[z3,z4];
draw fullcircle scaled 2se shifted .5[z5,z4];
endchar;

beginchar(oct"020",.85em#,cap#,0); "Meki znak (assemani)";
pickup pencircle xscaled 1.2thick yscaled .3thin;
ee:=.01;
re:=(.25+ee)*h;
se:=(.25-ee)*h;
u:=.1h;
x1=curve_sidebar+u; % u = polumjer male kruzznice
y1=y2-u;
x3=x4=x5=w-re-curve_sidebar;
y2=y4=(.5+2ee)*h; top y5=h; bot y3=0;
z1-z2=(0,-.1h);
draw fullcircle scaled 2re shifted .5[z3,z4];
draw fullcircle scaled 2se shifted .5[z5,z4];
pickup pencircle scaled .3thin;
draw z2--z4;
draw fullcircle scaled 2u shifted z1;
endchar;


beginchar(oct"177",.65em#,.1cap#,0); "Tilda";
pickup pencircle scaled .1thin ;
x1=w-x2=curve_sidebar;
x3=w-x6=.2w;
x4=w-x5=.3w;
bot y4=bot y6=0; top y3=top y5=h; y1=y2=.5h;
penpos1 (.1thin,0);
penpos4 (.2thin,90);
penpos5 (.2thin,90);
penpos2 (.1thin,0);
penpos3 (.1thin,-90);
penpos6 (.1thin,-90);
filldraw z3l{left}...z1l{down}...{right}z4l...{right}z5l...{down}z2l
..{left}z6l--z6r{right}...z2r{up}...
z5r{left}...z4r{left}...z1r{up}...z3r{right}--cycle;
endchar;

beginchar(oct"074",.7em#,cap#,0); "The letter pauk(H)";
pickup pencircle xscaled 1.3thick yscaled .3thin;
x1=w-x3=curve_sidebar;
y1=y3=.5h;
x2=.5w; y1-y2=x2-x1;
z4=(.3w,-.1h);
x5=.5w; y4=.5[y5,y2];
path pr; pr= z2{dir(270-60)}..
{down}z4..
{dir(270+60)}z5;
draw z1{down}..{right}z2..{up}z3;
pickup pencircle xscaled 1.1thick yscaled .2thin;
z7=.5[z1,z3];
path qr; qr= pr rotatedaround (z7,-30);
draw qr;
path qs; qs= pr rotatedaround (z7,30);
draw qs;
transform rot; rot=identity rotatedaround (z7, 180);
addto currentpicture also currentpicture transformed rot;
%picture slovoo; slovoo=currentpicture;
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.