%mode=localfont;
mode_setup;
u#:=1/10pt#;    %.1mm#;
define_pixels(u);
%screenstrokes;
%imagerules;

%%%%%%%%%%%%%%%%%%% N–‘ky pln‚ dole u©¡znut‚ smˆ©uj¡c¡ doprava %%%%%%%%%%%
beginchar(0,110u#,100u#,0);
path s[]; 
z0=(55u,50u); z100=(0u,50u); z101=(110u,50u);
z1=(13u,67u); z2=(2u,76u); z3=(13u,84u); z4=(24u,76u);
z5=(13u,21u); z6=(2u,29u); z7=(13u,38u); z8=(24u,29u);
z10=(24u,71u);
z11=(23.5u,69u); z12=(26u,67u); z13=(35u,66u); z14=(110u,55u);
z15=(104u,50u); z16=(100u,48u); z17=(95u,46.5u); z18=(90u,46u); 
z19=(39u,51u); z20=(38u,57u);
z21=(35u,60u); z22=(29u,63u); z23=(20u,64.5u); z24=(13u,65u); z25=(u,u);
z26=(13u,60u); z27=(u,u); z28=(u,u); z29=(u,u);
z30=(13u,40u);
z31=(20u,40.5u); z32=(27u,42u); z33=(33u,45u); z34=(37u,49.5u); z35=(60u,80u);
z36=(73u,79u); z37=(44.5u,47u); z38=(39u,43u); z39=(33u,40.5u); z40=(28u,39.5u);
z41=(24u,37u); z42=(24u,35u); z43=(25u,33u);

pickup pencircle scaled 4u;
s0=z1{dir 180}..z2..z3..z4..{dir 180}z1;
s1=z5{dir 180}..z6..z7..z8..{dir 180}z5;
s5=reverse s0 reflectedabout(z100,z101);
s6=reverse s1 reflectedabout(z100,z101);
draw s5;
draw s6;
pickup pencircle scaled .4u;
s2=(z24--z10..z11..z12..z13{z14-z13}--z14..z15..z16..z17..z18--z19
..z20..z21..z22..z23..z24--cycle);
s3=(z43--z30..z31..z32..z33..z34{z35-z34}--z35--z36--z37..z38..z39
..z40..z41..z42..z43--cycle);
s7=s2 reflectedabout(z100,z101);
s8=s3 reflectedabout(z100,z101);
fill s7;
fill s8;

endchar;

%%%%%%%%%%%%%%%%%%% N–‘ky pln‚ kompletn¡ smˆ©uj¡c¡ doprava %%%%%%%%%%%%%%%
beginchar(1,110u#,100u#,0);
path s[];
z0=(55u,50u); z100=(0u,50u); z101=(110u,50u);
z1=(13u,62u); z2=(2u,71u); z3=(13u,79u); z4=(24u,71u); z5=(u,u);
z10=(24u,65u);
z11=(23.5u,63.5u); z12=(26u,61.5u); z13=(30u,61u); z14=(35u,60.5u);
z15=(45u,58u); z16=(110u,35u); z17=(108u,32u); z18=(105u,30u); 
z19=(101u,29u); z20=(96u,30u);
z21=(40u,48u); z22=(37u,54u); z23=(32u,57u); z24=(25u,59u); z25=(20u,59.5u);
z26=(13u,60u);

pickup pencircle scaled 4u;
s0=z1{dir 180}..z2..z3..z4..{dir 180}z1;
s1=reverse s0 reflectedabout(z100,z101);
draw s0;
draw s1;
pickup pencircle scaled .4u;
s2=(z26--z10..z11..z12..z13..z14..{z16-z15}z15--z16..z17..z18..z19
..z20--z21..z22..z23..z24..z25..z26--cycle);
s3=s2 reflectedabout(z100,z101);
fill s2;
fill s3;

endchar;

%%%%%%%%%%%%%%%%%%% N–‘ky pln‚ naho©e u©¡znut‚ smˆ©uj¡c¡ doprava %%%%%%%%%
beginchar(2,110u#,100u#,0);
path s[]; 
z0=(55u,50u); z100=(0u,50u); z101=(110u,50u);
z1=(13u,67u); z2=(2u,76u); z3=(13u,84u); z4=(24u,76u);
z5=(13u,21u); z6=(2u,29u); z7=(13u,38u); z8=(24u,29u);
z10=(24u,71u);
z11=(23.5u,69u); z12=(26u,67u); z13=(35u,66u); z14=(110u,55u);
z15=(104u,50u); z16=(100u,48u); z17=(95u,46.5u); z18=(90u,46u); 
z19=(39u,51u); z20=(38u,57u);
z21=(35u,60u); z22=(29u,63u); z23=(20u,64.5u); z24=(13u,65u); z25=(u,u);
z26=(13u,60u); z27=(u,u); z28=(u,u); z29=(u,u);
z30=(13u,40u);
z31=(20u,40.5u); z32=(27u,42u); z33=(33u,45u); z34=(37u,49.5u); z35=(60u,80u);
z36=(73u,79u); z37=(44.5u,47u); z38=(39u,43u); z39=(33u,40.5u); z40=(28u,39.5u);
z41=(24u,37u); z42=(24u,35u); z43=(25u,33u);

pickup pencircle scaled 4u;
s0=z1{dir 180}..z2..z3..z4..{dir 180}z1;
s1=z5{dir 180}..z6..z7..z8..{dir 180}z5;
draw s0;
draw s1;
pickup pencircle scaled .4u;
s2=(z24--z10..z11..z12..z13{z14-z13}--z14..z15..z16..z17..z18--z19
..z20..z21..z22..z23..z24--cycle);
fill s2;
s3=(z43--z30..z31..z32..z33..z34{z35-z34}--z35--z36--z37..z38..z39
..z40..z41..z42..z43--cycle);
fill s3;

endchar;

%%%%%%%%%%%%%%%%%%% N–‘ky pln‚ dole u©¡znut‚ smˆ©uj¡c¡ doleva %%%%%%%%%%%%
beginchar(3,110u#,100u#,0);
path s[]; 
z0=(55u,50u); z100=(0u,50u); z101=(110u,50u); z102=(55u,0u); z103=(55u,100u);
z1=(13u,67u); z2=(2u,76u); z3=(13u,84u); z4=(24u,76u);
z5=(13u,21u); z6=(2u,29u); z7=(13u,38u); z8=(24u,29u);
z10=(24u,71u);
z11=(23.5u,69u); z12=(26u,67u); z13=(35u,66u); z14=(110u,55u);
z15=(104u,50u); z16=(100u,48u); z17=(95u,46.5u); z18=(90u,46u); 
z19=(39u,51u); z20=(38u,57u);
z21=(35u,60u); z22=(29u,63u); z23=(20u,64.5u); z24=(13u,65u); z25=(u,u);
z26=(13u,60u); z27=(u,u); z28=(u,u); z29=(u,u);
z30=(13u,40u);
z31=(20u,40.5u); z32=(27u,42u); z33=(33u,45u); z34=(37u,49.5u); z35=(60u,80u);
z36=(73u,79u); z37=(44.5u,47u); z38=(39u,43u); z39=(33u,40.5u); z40=(28u,39.5u);
z41=(24u,37u); z42=(24u,35u); z43=(25u,33u);

pickup pencircle scaled 4u;
s0=z1{dir 180}..z2..z3..z4..{dir 180}z1;
s1=z5{dir 180}..z6..z7..z8..{dir 180}z5;
s5=reverse s0 reflectedabout(z100,z101);
s6=reverse s1 reflectedabout(z100,z101);
s11=reverse s5 reflectedabout(z102,z103);
s12=reverse s6 reflectedabout(z102,z103);
draw s11;
draw s12;

pickup pencircle scaled .4u;
s2=(z24--z10..z11..z12..z13{z14-z13}--z14..z15..z16..z17..z18--z19
..z20..z21..z22..z23..z24--cycle);
s3=(z43--z30..z31..z32..z33..z34{z35-z34}--z35--z36--z37..z38..z39
..z40..z41..z42..z43--cycle);
s7=s2 reflectedabout(z100,z101);
s8=s3 reflectedabout(z100,z101);
s13=s7 reflectedabout(z102,z103);
s14=s8 reflectedabout(z102,z103);
fill s13;
fill s14;

endchar;

%%%%%%%%%%%%%%%%%%% N–‘ky pln‚ kompletn¡ smˆ©uj¡c¡ doleva %%%%%%%%%%%%%%%%
beginchar(4,110u#,100u#,0);
path s[];

z0=(55u,50u); z100=(0u,50u); z101=(110u,50u); z102=(55u,0u); z103=(55u,100u);
z1=(13u,62u); z2=(2u,71u); z3=(13u,79u); z4=(24u,71u); z5=(u,u);
z10=(24u,65u);
z11=(23.5u,63.5u); z12=(26u,61.5u); z13=(30u,61u); z14=(35u,60.5u);
z15=(45u,58u); z16=(110u,35u); z17=(108u,32u); z18=(105u,30u); 
z19=(101u,29u); z20=(96u,30u);
z21=(40u,48u); z22=(37u,54u); z23=(32u,57u); z24=(25u,59u); z25=(20u,59.5u);
z26=(13u,60u);

pickup pencircle scaled 4u;
s0=z1{dir 180}..z2..z3..z4..{dir 180}z1;
s1=reverse s0 reflectedabout(z100,z101);
s11=reverse s0 reflectedabout(z102,z103);
s12=reverse s1 reflectedabout(z102,z103);
draw s11;
draw s12;

pickup pencircle scaled .4u;
s2=(z26--z10..z11..z12..z13..z14..{z16-z15}z15--z16..z17..z18..z19
..z20--z21..z22..z23..z24..z25..z26--cycle);
s3=s2 reflectedabout(z100,z101);
s13=reverse s2 reflectedabout(z102,z103);
s14=reverse s3 reflectedabout(z102,z103);
fill s13;
fill s14;

endchar;

%%%%%%%%%%%%%%%%%%% N–‘ky pln‚ naho©e u©¡znut‚ smˆ©uj¡c¡ doleva %%%%%%%%%%
beginchar(5,110u#,100u#,0);
path s[]; 
z0=(55u,50u); z100=(0u,50u); z101=(110u,50u); z102=(55u,0u); z103=(55u,100u);
z1=(13u,67u); z2=(2u,76u); z3=(13u,84u); z4=(24u,76u);
z5=(13u,21u); z6=(2u,29u); z7=(13u,38u); z8=(24u,29u);
z10=(24u,71u);
z11=(23.5u,69u); z12=(26u,67u); z13=(35u,66u); z14=(110u,55u);
z15=(104u,50u); z16=(100u,48u); z17=(95u,46.5u); z18=(90u,46u); 
z19=(39u,51u); z20=(38u,57u);
z21=(35u,60u); z22=(29u,63u); z23=(20u,64.5u); z24=(13u,65u); z25=(u,u);
z26=(13u,60u); z27=(u,u); z28=(u,u); z29=(u,u);
z30=(13u,40u);
z31=(20u,40.5u); z32=(27u,42u); z33=(33u,45u); z34=(37u,49.5u); z35=(60u,80u);
z36=(73u,79u); z37=(44.5u,47u); z38=(39u,43u); z39=(33u,40.5u); z40=(28u,39.5u);
z41=(24u,37u); z42=(24u,35u); z43=(25u,33u);

pickup pencircle scaled 4u;
s0=z1{dir 180}..z2..z3..z4..{dir 180}z1;
s1=z5{dir 180}..z6..z7..z8..{dir 180}z5;
%s5=reverse s0 reflectedabout(z100,z101);
%s6=reverse s1 reflectedabout(z100,z101);
s11=reverse s0 reflectedabout(z102,z103);
s12=reverse s1 reflectedabout(z102,z103);
draw s11;
draw s12;

pickup pencircle scaled .4u;
s2=(z24--z10..z11..z12..z13{z14-z13}--z14..z15..z16..z17..z18--z19
..z20..z21..z22..z23..z24--cycle);
s3=(z43--z30..z31..z32..z33..z34{z35-z34}--z35--z36--z37..z38..z39
..z40..z41..z42..z43--cycle);
%s7=s2 reflectedabout(z100,z101);
%s8=s3 reflectedabout(z100,z101);
s13=s2 reflectedabout(z102,z103);
s14=s3 reflectedabout(z102,z103);
fill s13;
fill s14;

endchar;

%%%%%%%%%%%%%%%%%%% N–‘ky dut‚ velik‚ kompletn¡ smˆ©uj¡c¡ doprava %%%%%%%%
beginchar(6,110u#,100u#,0);
path s[];
z0=(55u,50u); z100=(0u,50u); z101=(110u,50u); z102=(55u,0u); z103=(55u,100u);
z1=(17u,67u); z2=(7u,75u); z3=(17u,83u); z4=(27u,75u);
z5=(17u,60u); z6=(0u,75u); z7=(17u,90u); z8=(34u,75u);
z9=(32.5u,68u); z10=(22u,60.5u);
z11=(33u,67u); z12=(35u,66u); z13=(44u,66u); z14=(49u,68u);
z15=(110u,10u); z16=(106u,7u); z17=(100u,5u); z18=(92u,6u); 
z19=(85u,10u); z20=(40u,50u); z21=(38u,56u); z22=(35u,59u);
z23=(30u,60.5u); z24=(54.5u,50u);
z25=(56u,62u); z26=(67u,51u); z27=(54u,38u); z28=(41u,49u);

pickup pencircle scaled 4u;
s0=z1{dir 180}..z2..z3..z4..{dir 180}z1;
s1=z10..z5..z6..z7..z8..z9;
s2=(z9..z11..z12..z13..z14--z15..z16..z17..z18..z19
--z20..z21..z22..z23..z10);
s3=z25--z26;
s30=z28--z27;
s4=s2 reflectedabout(z100,z101);
s5=reverse s0 reflectedabout(z100,z101);
s6=reverse s1 reflectedabout(z100,z101);
draw s0;
draw s1;
draw s2;
pickup pencircle scaled 5u;
erase draw s3;
erase draw s30;
pickup pencircle scaled 4u;
draw s4;
draw s5;
draw s6;
pickup pencircle scaled 3u;
draw fullcircle scaled 9u shifted z24;
endchar;

%%%%%%%%%%%%%%%%%%% N–‘ky dut‚ velik‚ kompletn¡ smˆ©uj¡c¡ doprava %%%%%%%%
beginchar(7,110u#,100u#,0);
path s[];
z0=(55u,50u); z100=(0u,50u); z101=(110u,50u); z102=(55u,0u); z103=(55u,100u);
z1=(17u,67u); z2=(7u,75u); z3=(17u,83u); z4=(27u,75u);
z5=(17u,60u); z6=(0u,75u); z7=(17u,90u); z8=(34u,75u);
z9=(32.5u,68u); z10=(22u,60.5u);
z11=(33u,67u); z12=(35u,66u); z13=(44u,66u); z14=(49u,68u);
z15=(110u,10u); z16=(106u,7u); z17=(100u,5u); z18=(92u,6u); 
z19=(85u,10u); z20=(40u,50u); z21=(38u,56u); z22=(35u,59u);
z23=(30u,60.5u); z24=(54.5u,50u);
z25=(56u,62u); z26=(67u,51u); z27=(54u,38u); z28=(41u,49u);

pickup pencircle scaled 4u;
s0=z1{dir 180}..z2..z3..z4..{dir 180}z1;
s1=z10..z5..z6..z7..z8..z9;
s2=(z9..z11..z12..z13..z14--z15..z16..z17..z18..z19
--z20..z21..z22..z23..z10);
s3=z25--z26;
s30=z28--z27;
s4=s2 reflectedabout(z100,z101);
s5=reverse s0 reflectedabout(z100,z101);
s6=reverse s1 reflectedabout(z100,z101);

s10=s0 reflectedabout(z102,z103);
s11=s1 reflectedabout(z102,z103);
s12=s2 reflectedabout(z102,z103);
s13=s3 reflectedabout(z102,z103);
s130=s30 reflectedabout(z102,z103);
s14=s4 reflectedabout(z102,z103);
s15=s5 reflectedabout(z102,z103);
s16=s6 reflectedabout(z102,z103);

draw s10;
draw s11;
draw s12;
pickup pencircle scaled 5u;
erase draw s13;
erase draw s130;
pickup pencircle scaled 4u;
draw s14;
draw s15;
draw s16;
pickup pencircle scaled 3u;
draw fullcircle scaled 9u shifted z24 reflectedabout(z102,z103);

endchar;

%%%%%%%%%%%%%%%%%%% Telefon %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(8,100u#,100u#,0);
path s[];
z0=(55u,50u); 
z1=(50u,10u); z2=(21u,10u); z30=(20u,12u); z3=(20u,22u); z4=(21u,27u);
z5=(30u,51u); z6=(32.5u,55u); z7=(35u,57u); z8=(40u,57u); z9=(50u,57u);
z10=(50u,37u); z11=(50u,70u); z40=(47u,70u); z12=(40u,69.5u); z13=(31u,69u);
z14=(28.5u,68u); z15=(27u,63u); z16=(27u,57u); z17=(26u,53.5u); z18=(23u,52u);
z19=(9u,52u); z20=(6u,53.5u); z21=(5u,57u); z22=(5u,69u); z23=(7u,75u);
z24=(12u,79u); z25=(30u,82.5u); z26=(47u,84u); z27=(50u,84u); z50=(16u,56u);

pickup pencircle scaled 3u;
s0=z1--z2..z30--z3..z4--z5..z6..z7--z25--z8--z9--z1--cycle;
s1=z11--z12..z13..z14..{z16-z15}z15--z16..z17..z18--z19..z20..z21--z22..z23..z24..z25
..z26--z27--z11--cycle;
s2=z21..z50..z16;
s5=s0 reflectedabout(z1,z27);
s6=s1 reflectedabout(z1,z27);
s7=s2 reflectedabout(z1,z27);
fill s0;
fill s1;
fill s5;
fill s6;
erase draw s2;
erase draw s7;
pickup pencircle scaled 32 u;
erase drawdot z10;

endchar;

%%%%%%%%%%%%%%%%%%% Sluch tko v kruhu %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(9,100u#,100u#,0);
path s[]; 
z0=(50u,50u); z100=(0u,50u); z101=(100u,50u);
z1=(46u,53u); z2=(37u,59u); z3=(48u,75u); z4=(55u,83u); z5=(60u,86u);
z6=(64u,86.5u); z7=(67u,86u); z8=(76u,81u); z9=(77.5u,79u);
z10=(77.5u,77u);
z11=(76u,73u); z12=(72u,68u); z13=(70u,67.5u); z14=(68u,68u);
z15=(64u,70u); z16=(61u,71u); z17=(58u,69u); z18=(52u,62u); z19=(72u,83.5u);
z20=(67u,69u); z21=(72u,75u); z22=(75u,83u);
z30=(30u,28u); z31=(24u,20u); z32=(33u,5u); z33=(50u,2u);
z50=(16u,19u); z51=(2u,50u); z52=(50u,98u); z53=(98u,50u);

pickup pencircle scaled 4u;
s0=z1--z2..z3..z4..z5..z6..z7..z19..z8..z9..z10..z11..z12..z13..z14..z15..z16
..z17..z18..z1--cycle;
s1=z20..z21..z22;
s2=z30..z31..z32..z33..z53..z52..z51..z50;
s5=s0 reflectedabout(z1,z2);
s6=reverse s1 reflectedabout(z1,z2);

fill s0;
fill s5;
draw s2;
pickup pencircle scaled 3u;
erase draw s1;
erase draw s6;

endchar;

%%%%%%%%%%%%%%%%%%% Magnetofonov  cĄvka %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(10,100u#,100u#,0);
z0=(50u,50u); z1=(37.5u,50u); z2=(62.5u,50u); z3=(42.5u,98u); z4=(57.5u,98u);

pickup pencircle scaled 4u;
draw fullcircle scaled 96u shifted z0;
fill (z2--z1--z3--z4--z2--cycle);
fill (z2--z1--z3--z4--z2--cycle) rotatedaround(z0,120);
fill (z2--z1--z3--z4--z2--cycle) rotatedaround(z0,240);
erase draw fullcircle scaled 88u shifted z0;
erase draw fullcircle scaled 34u shifted z0;
pickup pencircle scaled 30u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% Letadlo %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(11,100u#,100u#,0);
path s[]; 
z0=(50u,50u); z100=(0u,50u); z101=(100u,50u);
z1=(0u,50u); z2=(2u,51u); z3=(6u,52u); z4=(18u,53.5u); z5=(44u,56u);
z6=(67u,57u); z7=(80u,57u); z8=(86u,56.5u); z9=(94u,55.5u); z10=(99u,53u);
z11=(100u,50u); z12=(0u,70u); z13=(5u,70u); z14=(45u,58u);
z15=(42u,71u); z16=(30u,100u); z17=(35u,100u); z18=(37u,99.5u); 
z19=(39u,98u); z20=(42u,90u); z21=(50u,90u); z22=(49u,75u); z23=(60.5u,75u);
z25=(44u,55u); z26=(67u,56u); z33=(6u,51.5u); z34=(18u,53u);
pickup pencircle scaled 6u;
s0=z1..z2..z3..z4..z5..z6..z7..z8..z9..z10..z11--z1--cycle;
s1=z33--z12--z13--z34..z33--cycle;
s2=z25--z14--z15--z16--z17..z18..z19--z26..z25--cycle;
s3=z20--z21;
s4=z22--z23;
s5=s0 reflectedabout(z100,z101);
s6=s1 reflectedabout(z100,z101);
s7=s2 reflectedabout(z100,z101);
s8=s3 reflectedabout(z100,z101);
s9=s4 reflectedabout(z100,z101);
fill s0;
fill s1;
fill s2;
draw s3;
draw s4;
draw s8;
draw s9;
fill s5;
fill s6;
fill s7;

endchar;

%%%%%%%%%%%%%%%%%%% Dopis %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(12,75u#,100u#,0);
z1=(0u,25u); z2=(0u,75u); 
z3=(75u,75u); z4=(75u,25u); 
z5=(37.5u,50u); z6=(37.5u,54u); z7=(37.5u,46u); 

pickup pencircle scaled 4u;
draw z1--z2--z3--z4--z1;
draw z1--z6--z4;
draw z2--z7--z3;
pickup pencircle scaled 18u;
drawdot z5;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
def bodek =
z0=(7u,7u+25u); z1=(5u,9u+25u); z2=(0u,27u+25u); z3=(7u,45u+25u);
z4=(9u,47u+25u); z5=(15u,47u+25u); z6=(13u,45u+25u); z7=(6u,27u+25u); 
z8=(11u,9u+25u); z9=(13u,7u+25u); 
z11=(15u,12u+25u); z12=(11u,22u+25u); z13=(18u,42.5u+25u); z14=(25u,42u+25u);
z15=(29u,44u+25u); z16=(37u,50u+25u); z17=(46u,53.5u+25u); z18=(60u,52.5u+25u);
z19=(72u,50u+25u); z20=(81u,48u+25u); z21=(110u,34u+25u); z22=(98u,30u+25u); 
z23=(76u,35u+25u); z24=(70u,10u+25u); z25=(65u,1u+25u); 
z26=(50u,0u+25u); z27=(40u,2u+25u); z28=(30u,8u+25u); z29=(25u,10u+25u);
z260=(60u,0u+25u); z270=(55u,0u+25u); z230=(72u,20u+25u); z240=(71u,6u+25u);
z30=(72u,28u+25u); z31=(69u,16u+25u); z32=(65u,6.5u+25u);
z50=(85u,47u+25u); z51=(100u,40.5u+25u); z52=(109u,35.5u+25u); 
z53=(107u,30u+25u); z54=(88u,33u+25u); z55=(85u,34u+25u); 
enddef;

def rucka =
pickup pencircle scaled .2u;
fill (z0..z1..z2..z3..z4--z5..z6..z7..z8..z9--z0..cycle);
fill (z11..z12..z13--z14..{z16-z15}z15..z16..{z18-z17}z17--z18{z18-z17}..z19 
--z20..z50--z51{z51-z50}..z52..z21..z53..z22..z54..z55--z23--z230--z24..z240
..z25..z260--z270..z26..z27..z28..z29--z11--cycle);
pickup pencircle scaled 16u;
drawdot z30;
pickup pencircle scaled 14u;
drawdot z31;
enddef;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% Ruka ‡ern  ukazujĄcĄ doprava %%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(13,110u#,100u#,0);

bodek;
rucka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Ruka ‡ern  ukazujĄcĄ doleva %%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(14,110u#,100u#,0);

bodek;
rucka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform rotated 30 shifted (37.5u,-15u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Ruka ‡ern  ukazujĄcĄ ¨ikmo doprava nahoru %%%%%%%%%%%%
beginchar(15,110u#,100u#,0); %95u#,0);

bodek;
rucka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Ruka ‡ern  ukazujĄcĄ ¨ikmo doleva nahoru %%%%%%%%%%%%%
beginchar(16,110u#,100u#,0); %95u#,0);

bodek;
rucka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-147.5u,15u)
rotated -30; 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
def body =
z0=(14u,11u+25u);
z1=(0u,0u+25u); z2=(0u,48u+25u); z3=(10u,48u+25u); z300=(10u,44u+25u);z4=(10u,5u+25u);z5=(10u,0u+25u);
z6=(20u,44u+25u); z7=(20u,40u+25u); z8=(20u,12u+25u); z9=(20u,5u+25u); 
z10=(25u,40u+25u); z11=(37u,48u+25u); z12=(45u,50u+25u); z13=(58u,50u+25u); z14=(64u,48u+25u);
z15=(76u,35u+25u); z16=(70u,28u+25u); z17=(60u,31u+25u); z18=(54u,37u+25u); z19=(52u,42u+25u);
z20=(48u,35u+25u); z100=(28u,41u+25u); z160=(76u,31u+25u);
%z21=(98u,48u+25u); z22=(110u,42u+25u); z23=(98u,35u+25u);z250=(60u,18.5u+25u); 
z21=(80u,48u+25u); z22=(110u,42u+25u); z23=(80u,35u+25u);z250=(60u,18.5u+25u);
z24=(81u,28u+25u); z240=(76u,22u+25u); z25=(70u,20u+25u); z26=(52u,20u+25u); 
z27=(50u,25u+25u); z28=(55u,30u+25u); z29=(40u,20u+25u); z30=(30u,25u+25u);
z31=(79u,17u+25u); z32=(72u,10u+25u); z33=(50u,10u+25u); z34=(45u,15u+25u); 
z320=(60u,8u+25u);
z35=(75u,6u+25u); z36=(70u,1.5u+25u); z37=(60u,0u+25u); z38=(50u,2u+25u); z39=(45u,7u+25u);
z40=(40u,3u+25u); z41=(30u,10u+25u); z42=(25u,12u+25u);
z51=(98u,47u+25u); z53=(98u,36u+25u);
enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
def ruka =
pickup pencircle scaled 4u;
fill z1--z2--z3--z5--cycle;                                   % ruk v
draw z300--z6--z9--z4;                                        % ko¨ile
draw (z7--z10{z10-z7}..z100--z11..{z13-z12}z12--z13{z13-z12}
..z14--z15{z15-z14}..z160..z16..z16..z17..z18..z19);          % palec 1
draw z18..z20;                                                % palec 2
draw z14--z21..z51{z51-z21}..z22..{z23-z53}z53..z23--z15;     % ukazov ‡ek
draw (z15..z24..z240..z25..z250..z26..z27..z28..z17);         % prostŠednĄ‡ek
draw z27..z29..z30;                                           % bŠĄ¨ko
draw (z240..z31..z32..z320..z33..z34..z26);                   % 
draw z32..z35..z36..z37..z38..z39..z33;
draw z38..z40..z41..z42--z8;
pickup pencircle scaled 5u;
drawdot z0;                                                   % knoflĄk
enddef;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Obr zek ruky ukazujĄcĄ doprava %%%%%%%%%%%%%%%%%%%%%%%
beginchar(17,110u#,100u#,0);

body;
ruka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% Obr zek ruky ukazujĄcĄ doleva %%%%%%%%%%%%%%%%%%%%%%%%
beginchar(18,110u#,100u#,0);

body;
ruka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform rotated 30 shifted (42.5u,-15u); %(27.5u,0u); % shifted (0u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Obr zek ruky ukazujĄcĄ ¨ikmo doprava nahoru %%%%%%%%%%
beginchar(19,110u#,100u#,0);

body;
ruka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Obr zek ruky ukazujĄcĄ ¨ikmo doleva nahoru %%%%%%%%%%%
beginchar(20,110u#,100u#,0);

body;
ruka;

endchar;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-152.5u,15u)
rotated -30;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
def bodiky =
z200=(1u,26u); z300=(10u,29u); z400=(15u,11u);z500=(15u,23u);z600=(19u,12u);
z1=(25u,0u); z2=(0u,25u); z3=(8u,30u); z4=(20u,14u); z5=(10u,13u);
z6=(4u,20u); 
z110=(24u,29u);
z7=(8u,32u); z8=(8u,35.5u); z9=(14u,40u); 
z10=(18u,39u); z11=(20u,37u); z12=(27u,20u); z13=(25u,17u); z14=(20u,18u);
z15=(30u,8u); z16=(40u,33u); 
z17=(27u,32u); z18=(22u,45u); z19=(29u,45u);
z20=(43u,45u); % z100=(28u,41u); z160=(76u,31u);
z21=(47u,44u); z22=(49u,40u); z23=(50u,25u); 
z24=(7u,72u); z25=(11u,80u); z26=(18u,76u); 
z27=(39u,75u); z28=(45u,80u); z29=(50u,73u);
enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%        Obr zek ruky ukazujĄcĄ V      %%%%%
beginchar(21,50u#,80u#,0);
bodiky;
def vecko =
pickup pencircle scaled 4u;
draw z23..z1..z2;
draw z2..z200..z3..z300..{z500-z300}z500{z4-z500}..z4..z600..z400..z5..z6;
draw z300..z7..z8..tension 2 and 5..z9..z10..tension 1.5..z110..z12..z13..z14..z500;
draw z15..z12..z16;
draw z16..z17..z11..z18..z19..z20..z21..z22..z23;
draw z11--z24..z25..z26--z19;
draw z19--z27..z28..z29--z20;

enddef;
vecko;
endchar;


%%%%%%%%%%%%%%%%%%%% Obr zek pĄ¨ĄcĄ ruky %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(22,106u#,100u#,0);

z1=(1u,1u+12.5u); z2=(3u,6u+12.5u); z3=(4u,4u+12.5u); z4=(5.5u,3.5u+12.5u); z5=(6u,14u+12.5u);
z6=(8u,9u+12.5u); z7=(13u,7u+12.5u); z8=(61u,73u+12.5u); z9=(67u,72u+12.5u); z10=(68u,66u+12.5u); 

z11=(25u,35u+12.5u); z12=(20u,24u+12.5u); z13=(11u,19u+12.5u); z14=(9u,21u+12.5u); z15=(8u,23u+12.5u);
z16=(9u,23u+12.5u); z17=(14u,25u+12.5u); z18=(16u,30u+12.5u); z19=(13.5u,32u+12.5u); z20=(13u,34u+12.5u); 
z21=(19u,48u+12.5u); z22=(22u,52u+12.5u); z23=(40u,63u+12.5u); z24=(45u,63u+12.5u); z25=(82u,45u+12.5u);
z26=(88u,43u+12.5u); z27=(93u,43u+12.5u); z28=(93u,46u+12.5u); z29=(102u,46u+12.5u); z30=(105u,30u+12.5u);
z31=(100u,6u+12.5u); z32=(90u,6u+12.5u); z33=(90u,14u+12.5u); z34=(92u,15u+12.5u); z35=(95u,30u+12.5u); 

.z36=(86u,15u+12.5u); z37=(82u,12u+12.5u); z38=(77u,10u+12.5u); z39=(62u,10u+12.5u); z40=(50u,12u+12.5u);
z41=(40u,11u+12.5u); z42=(32u,11u+12.5u); z43=(30u,12u+12.5u); z44=(29u,14u+12.5u); z45=(29u,17u+12.5u);
z46=(28u,19u+12.5u); z47=(23u,18u+12.5u); z48=(21.5u,14u+12.5u); z49=(24u,11u+12.5u); z50=(18u,13u+12.5u);
z51=(19.5u,20.5u+12.5u); z52=(30u,25.5u+12.5u); z53=(37u,25u+12.5u); z54=(39u,24u+12.5u); z55=(42u,27u+12.5u);
z56=(51u,29u+12.5u); z57=(55u,34u+12.5u); z58=(47u,40u+12.5u); z59=(45u,42u+12.5u);
z70=(29u,19u+12.5u); z71=(16u,20u+12.5u);
z60=(39u,13u+12.5u); z61=(38u,17u+12.5u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
pickup pencircle scaled 3.5u;
draw z5--z1--z7;
fill (z1--z2..z3..z4--z1--cycle);
draw z11..z12..z71..z13..z14..z16;
draw z16..{z18-z17}z17--z18;
pickup pencircle scaled 3u;
draw z16..z19;
pickup pencircle scaled 3.5u;
draw z18..z19..z20--z21..z22--z23..z24..z25..z26--z27;
draw z27--z28..z35..z32--z33;
draw z28--z29..z30..z31--z32;
filldraw (z5--z13..z71..z12..z11--z8..z9..z10--z52..tension 1.15 and .75..z51
..tension .75 and .85..z50--z7..z6..z5--cycle);
draw z34--z36{z36-z34}..z37..z38..z39..z40..z41..z42..z43..z44..z45..z70;
draw z70..z46..z47..z48..z49--z43;
draw z49..z50..z51..z52..z53..z54;
draw z53..z55..z56--z57;
draw z55--z58{z58-z55}..z59;
draw z41..z60..z61;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
def bodicky=
z1=(0u,38u); z2=(0u,62u); z3=(14u,75u); z4=(28u,62u); z5=(28u,38u);
z6=(14u,25u); z7=(14u,50u); z8=(76u,25u); z9=(83u,38u); z10=(85u,50u);
z11=(83u,62u); z12=(76u,75u); z13=(109u,50u); z14=(97u,41u); z15=(100u,50u);
z16=(97u,59u); z71=(14u,40u); z72=(8u,50u); z73=(14u,60u); z74=(20u,50u);
enddef;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
def tuzka=
pickup pencircle scaled 4u;
draw z1--z2--z3--z4--z5--z6--z1--cycle;
fill (z71{dir 180}..z72..z73..z74..{dir 180}z71..cycle);
pickup pencircle scaled 4u;
draw z3--z12;
draw z4--z11;
draw z5--z9;
draw z6--z8;
draw z8..z9..z10..z11..z12;
draw z12--z13--z8;
fill z14..z15..z16--z13--z14..cycle;
enddef;

%%%%%%%%%%%%%%%%%%% Obr zek tu‘ky ukazujĄcĄ doprava %%%%%%%%%%%%%%%%%%%%%%
beginchar(23,110u#,100u#,0);
bodicky;
tuzka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% Obr zek tu‘ky ukazujĄcĄ doleva %%%%%%%%%%%%%%%%%%%%%%%
beginchar(24,110u#,100u#,0);
bodicky;
tuzka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform rotated 30 shifted (35u,-15u); %(42.5u,-15u); 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Obr zek tu‘ky ukazujĄcĄ ¨ikmo doprava nahoru %%%%%%%%%
beginchar(25,110u#,100u#,0);
bodicky;
tuzka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Obr zek tu‘ky ukazujĄcĄ ¨ikmo doleva nahoru %%%%%%%%%%
beginchar(26,110u#,100u#,0);
bodicky;
tuzka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted 
(-145u,15u) rotated -30; %(-152.5u,15u) rotated -30;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%vvvvvvv%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform rotated -30 shifted (-15u,30u);%(35u,-15u) %(42.5u,-15u); 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Obr zek tu‘ky ukazujĄcĄ ¨ikmo doprava dol– %%%%%%%%%%%
beginchar(27,110u#,100u#,0);
bodicky;
tuzka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Obr zek tu‘ky ukazujĄcĄ ¨ikmo doleva dol– %%%%%%%%%%%%
beginchar(28,110u#,100u#,0);
bodicky;
tuzka;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted 
(-95u,-30u) rotated 30;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%VVVVVV%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% Pero bĄl‚ smˆŠujĄcĄ doprava %%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(29,110u#,100u#,0);
path s[];
z1=(0u,50u); z2=(17u,67u); z3=(33u,67u); z4=(40u,60u); z5=(45u,67u);
z6=(47u,75u); z7=(55u,80u); z8=(66u,78u); z9=(109u,50u); z10=(86u,65u);
z11=(86u,50u); z12=(60u,50u); z20=(34.5u,63u);

pickup pencircle scaled 4u;
s1=z1..{z3-z2}z2--z3..z20..z4..z5..z6..z7..z8--z10--z9--z12;
s2=z9--z10--z11--z9--cycle;
draw s1;
fill s2;
s3=s1 reflectedabout(z1,z9);
s4=s2 reflectedabout(z1,z9);
draw s3;
fill s4;
pickup pencircle scaled 20u;
draw z12;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% Pero bĄl‚ smˆŠujĄcĄ doleva %%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(30,110u#,100u#,0);
path s[];
z1=(0u,50u); z2=(17u,67u); z3=(33u,67u); z4=(40u,60u); z5=(45u,67u);
z6=(47u,75u); z7=(55u,80u); z8=(66u,78u); z9=(109u,50u); z10=(86u,65u);
z11=(86u,50u); z12=(60u,50u); z20=(34.5u,63u);

pickup pencircle scaled 4u;
s1=z1..{z3-z2}z2--z3..z20..z4..z5..z6..z7..z8--z10--z9--z12;
s2=z9--z10--z11--z9--cycle;
draw s1;
fill s2;
s3=s1 reflectedabout(z1,z9);
s4=s2 reflectedabout(z1,z9);
draw s3;
fill s4;
pickup pencircle scaled 20u;
draw z12;

endchar;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% Pero ‡ern‚ smˆŠujĄcĄ doprava %%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(31,110u#,100u#,0);
path s[];
z1=(0u,50u); z2=(17u,67u); z3=(25u,67u); z4=(40u,57u); z5=(45u,67u);
z6=(47u,75u); z7=(58u,85u); z8=(70u,80u); z9=(109u,50u); z10=(84u,64u);
z11=(95u,56u); z12=(60u,50u); z20=(33u,61u); z21=(28u,66u);
z22=(77u,72u); z23=(67u,50u); z24=(67u,53u); z25=(105u,50u);
pickup pencircle scaled .2u;
s1=z1..{z3-z2}z2--z3{z3-z2}..z21..z20..z4..z5..z6..z7..z8..z22..z10..z11..z9--z1--cycle;
s2=z25--z24--z23--z25--cycle;
fill s1;
erase fill s2;
s3=s1 reflectedabout(z1,z9);
s4=s2 reflectedabout(z1,z9);
fill s3;
erase fill s4;
pickup pencircle scaled 20u;
erase draw z12;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% Pero ‡ern‚ smˆŠujĄcĄ doprava %%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(32,110u#,100u#,0);
path s[];
z1=(0u,50u); z2=(17u,67u); z3=(25u,67u); z4=(40u,57u); z5=(45u,67u);
z6=(47u,75u); z7=(58u,85u); z8=(70u,80u); z9=(109u,50u); z10=(84u,64u);
z11=(95u,56u); z12=(60u,50u); z20=(33u,61u); z21=(28u,66u);
z22=(77u,72u); z23=(67u,50u); z24=(67u,53u); z25=(105u,50u);
pickup pencircle scaled .2u;
s1=z1..{z3-z2}z2--z3..z21..z20..z4..z5..z6..z7..z8..z22..z10..z11..z9--z1--cycle;
s2=z25--z24--z23--z25--cycle;
fill s1;
erase fill s2;
s3=s1 reflectedabout(z1,z9);
s4=s2 reflectedabout(z1,z9);
fill s3;
erase fill s4;
pickup pencircle scaled 20u;
erase draw z12;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
currenttransform reflectedabout ((110u,0u),(110u,100u)) shifted (-110u,0u);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% Fajfka tenk  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(33,100u#,100u#,0);
z0=(50u,50u); z1=(15u,35u); z2=(25u,7u); z3=(52u,50u); z4=(90u,97u);
z10=(18u,25u); z20=(25.5u,4.5u);
%pickup pencircle scaled 17.5 u; 
pickup pencircle xscaled 17.5u yscaled 10u rotated 30;
draw z1..z10..z2;
pickup pencircle xscaled 10u yscaled 3 u;
draw (z20..z3..z4);

endchar;

%%%%%%%%%%%%%%%%%%% Fajfka tu‡n  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(34,100u#,100u#,0);
z0=(50u,50u); z1=(15u,50u); z2=(18u,20u); z3=(55u,50u); z4=(90u,90u);
z10=(15u,45u); z20=(19.5u,20u); z21=(25u,25u); z40=(87.5u,88u);
pickup pencircle xscaled 27.5u yscaled 17.5u rotated 45;
draw z1..z10..z2;
pickup pencircle xscaled 18.5u yscaled 7.5u rotated 270;
draw (z20..z21..z40..z4);

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ pooto‡en˜ o 45 st. tenk˜ %%%%%%%%%%%%%%%%%%%%%%%%
beginchar(35,100u#,100u#,0);
z0=(50u,50u); z1=(7.5u,7.5u); z2=(7.5u,92.5u); z3=(92.5u,92.5u);
z4=(92.5u,7.5u);

pickup pensquare scaled 10 u rotated 45;
draw z1--z3;
draw z2--z4;

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ pooto‡en˜ o 45 st. tu‡n˜ %%%%%%%%%%%%%%%%%%%%%%%%
beginchar(36,100u#,100u#,0);
z0=(50u,50u); z1=(22.5u,22.5u); z2=(22.5u,77.5u); z3=(77.5u,77.5u);
z4=(77.5u,22.5u);

pickup pensquare scaled 30 u rotated 45;
draw z1--z3;
draw z2--z4;

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ tenk˜ sklonˆn˜ o 45 st. psacĄ %%%%%%%%%%%%%%%%%%%
beginchar(37,100u#,100u#,0);
z0=(50u,50u); z1=(40u,85u); z2=(75u,35u); z3=(45u,50u); z4=(90u,92.5u);
z10=(52u,65u); z20=(15u,8u);
 
pickup pencircle xscaled 10u yscaled 20u rotated 350;
draw z1..z10..z2;
pickup pencircle xscaled 20u yscaled 10 u rotated 15;
draw (z20..z3..z4);

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ trojit˜ tu‡n˜ symetrick˜ %%%%%%%%%%%%%%%%%%%%%%%%
beginchar(38,100u#,100u#,0);
z10=(0u,0u);
z0=(33u,50u);
z1=(50u,85u); z2=(50u,15u);
z3=(15u,50u); z4=(85u,50u);

pickup pensquare scaled 30u;
draw (z1--z2);
pickup pensquare scaled 30u;
draw (z3--z4);

pickup pensquare scaled 22u;
erase draw (z1--z2);
pickup pensquare scaled 22u;
erase draw (z3--z4);

pickup pensquare scaled 14u;
draw (z1--z2);
pickup pensquare scaled 14u;
draw (z3--z4);

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ tu‡n˜ symetrick˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(39,100u#,100u#,0);
z10=(0u,0u);
z0=(33u,50u);
z1=(50u,83.5u); z2=(50u,16.5u);
z3=(16.5u,50u); z4=(83.5u,50u);

pickup pensquare scaled 33u;
draw (z1--z2);
pickup pensquare scaled 33u;
draw (z3--z4);

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ tu‡n˜ symetrick˜ s pr zdn˜m stŠedem %%%%%%%%%%%%%
beginchar(40,100u#,100u#,0);
z10=(0u,0u);
z0=(50u,50u);
z1=(50u,83.5u); z2=(50u,16.5u);
z3=(16.5u,50u); z4=(83.5u,50u);

pickup pensquare scaled 33u;
draw (z1--z2);
pickup pensquare scaled 33u;
draw (z3--z4);
erase draw z0;

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ tenk˜ symetrick˜ s pr zdn˜m stŠedem %%%%%%%%%%%%%
beginchar(41,100u#,100u#,0);
z10=(0u,0u);
z0=(50u,50u);
z1=(50u,93u); z2=(50u,7u);
z3=(7u,50u); z4=(93u,50u);

pickup pensquare scaled 14u;
draw (z1--z2);
pickup pensquare scaled 14u;
draw (z3--z4);
erase draw z0;

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ tenk˜ nesymetrick˜ pln˜ %%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(42,66u#,100u#,0);
z10=(0u,0u);
z0=(33u,50u);
z1=(33u,89u); z2=(33u,11u); z3=(11u,66u); z4=(55u,66u);
z5=(33u,91u); z6=(33u,9u); z7=(9u,66u); z8=(57u,66u);
z11=(33u,93u); z12=(33u,7u); z13=(7u,66u); z14=(59u,66u);

pickup pensquare scaled 14u;
draw (z11--z12);
pickup pensquare scaled 14u;
draw (z13--z14);

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ tenk˜ nesymetrick˜ se stĄnem vpravo %%%%%%%%%%%%%
beginchar(43,75u#,100u#,0);
z10=(0u,0u); 
z11=(42u,91u); z12=(33.5u,9u); z13=(66u,66u); z14=(9u,57u);
z0=(33u,50u);
z1=(33u,91u); z2=(33u,18u);
z3=(9u,66u); z4=(57u,66u);
pickup pensquare scaled 13u rotatedaround (z10,45);
draw z11; draw z12; draw z13; draw z14;
pickup pensquare scaled 18u;
draw (z1--z2) shifted (9u,-9u);
pickup pensquare scaled 18u;
draw (z3--z4) shifted (9u,-9u);
pickup pensquare scaled 18u;
draw (z1--z2);
pickup pensquare scaled 18u;
draw (z3--z4);
pickup pensquare scaled 10u;
erase draw (z1--z2);
pickup pensquare scaled 10u;
erase draw (z3--z4);

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ trojit˜ tu‡n˜ nesymetrick˜ %%%%%%%%%%%%%%%%%%%%%%
beginchar(44,66u#,100u#,0);
z10=(0u,0u);
z0=(33u,50u);
z1=(33u,85u); z2=(33u,15u);
z3=(15u,66u); z4=(51u,66u);

pickup pensquare scaled 30u;
draw (z1--z2);
pickup pensquare scaled 30u;
draw (z3--z4);

pickup pensquare scaled 22u;
erase draw (z1--z2);
pickup pensquare scaled 22u;
erase draw (z3--z4);

pickup pensquare scaled 14u;
draw (z1--z2);
pickup pensquare scaled 14u;
draw (z3--z4);

endchar;

%%%%%%%%%%%%%%%%%%% KŠĄ‘ trojit˜ tu‡n˜ nesymetrick˜ - varianta %%%%%%%%%%%
beginchar(45,66u#,100u#,0);
z10=(0u,0u);
z0=(33u,50u);
z1=(33u,85u); z2=(33u,15u); z3=(15u,66u); z4=(51u,66u);
z5=(33u,89u); z6=(33u,11u); z7=(11u,66u); z8=(55u,66u);
z11=(33u,93u); z12=(33u,7u); z13=(7u,66u); z14=(59u,66u);

pickup pensquare scaled 30u;
draw (z1--z2);
pickup pensquare scaled 30u;
draw (z3--z4);

pickup pensquare scaled 22u;
erase draw (z5--z6);
pickup pensquare scaled 22u;
erase draw (z7--z8);

pickup pensquare scaled 14u;
draw (z11--z12);
pickup pensquare scaled 14u;
draw (z13--z14);

endchar;

%%%%%%%%%%%%%%%%%%% Malt‚zsk˜ kŠĄ‘ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(46,100u#,100u#,0);
z0=(50u,50u); z1=(48u,50u); z2=(48u,60u); z3=(20u,88u); z4=(20u,90u);
z5=(80u,90u); z6=(80u,88u); z7=(52u,60u); z8=(52u,50u);
def malt = (z1--z2{z2-z1}..z3--z4--z5--z6..{z8-z7}z7--z8--z1--cycle)
enddef;
pickup pencircle scaled 4u;
fill malt;
fill malt rotatedaround(z0,90);
fill malt rotatedaround(z0,180);
fill malt rotatedaround(z0,270);

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda Davidova ‡ern  %%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(47,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,60);
z3=z1 rotatedaround(z0,120);
z4=z1 rotatedaround(z0,180);
z5=z1 rotatedaround(z0,240);
z6=z1 rotatedaround(z0,300);

pickup pencircle scaled 2u;
fill z1--z3--z5--z1--cycle;
fill z2--z4--z6--z2--cycle;

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda Davidova bĄl  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(48,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,60);
z3=z1 rotatedaround(z0,120);
z4=z1 rotatedaround(z0,180);
z5=z1 rotatedaround(z0,240);
z6=z1 rotatedaround(z0,300);

pickup pencircle scaled 4u;
draw z1--z3--z5--z1--cycle;
draw z2--z4--z6--z2--cycle;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%% XXXXXXXXXXXXXXXXXXXXXXX %%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% €tyŠlĄstek pln˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(49,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98u); 
z2=(43u,93u); z3=(47u,70u); z4=(49u,60u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(51u,60u); z8=(53u,70u); z9=(57u,93u);

def rameno =(z6--z5..z4..z3..z2..z1..z9..z8..z7..z6--cycle)
enddef;
pickup pencircle scaled 4 u;
filldraw rameno;
filldraw rameno rotatedaround(z0,90);
filldraw rameno rotatedaround(z0,180);
filldraw rameno rotatedaround(z0,270);

endchar;

%%%%%%%%%%%%%%%%%%% €tyŠlĄstek pln˜ s pln˜m stŠedem %%%%%%%%%%%%%%%%%%%%%%
beginchar(50,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98u); 
z2=(38u,86u); z3=(48u,70u); z4=(49.25u,60u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(50.75u,60u); z8=(52u,70u); z9=(62u,86u);
%z2=(43u,93u); z3=(47u,70u); z4=(49u,60u); z5=(49.75u,50u);
%z6=(50.25u,50u); z7=(51u,60u); z8=(53u,70u); z9=(57u,93u);

def rameno =(z6--z5..z4{z4-z5}..z3..z2..z1..z9..z8..{z6-z7}z7..z6--cycle)
enddef;
pickup pencircle scaled .3 u;
filldraw rameno;
filldraw rameno rotatedaround(z0,90);
filldraw rameno rotatedaround(z0,180);
filldraw rameno rotatedaround(z0,270);
pickup pencircle scaled 12 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% €tyŠlĄstek pln˜ tu‡n˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(51,100u#,100u#,0);
z0=(50u,50u); z1=(50u,99u); 
z2=(34u,78u); z3=(48u,59u); z4=(49.25u,55u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(50.75u,55u); z8=(52u,59u); z9=(66u,78u);

def rameno =(z6--z5..z4{z4-z5}..z3..z2..z1..z9..z8..{z6-z7}z7..z6--cycle)
enddef;
pickup pencircle scaled 2 u;
filldraw rameno;
filldraw rameno rotatedaround(z0,90);
filldraw rameno rotatedaround(z0,180);
filldraw rameno rotatedaround(z0,270);

endchar;

%%%%%%%%%%%%%%%%%%% €tyŠn sobn˜ trojlĄstek na kŠĄ‘i %%%%%%%%%%%%%%%%%%%%%%
beginchar(52,100u#,100u#,0);
z0=(50u,50u); z1=(50u,92u); z2=(50u,8u);
z3=(42u,80u); z4=(58u,80u);

pickup pencircle scaled 4 u;
draw (z1--z2);
draw (z1--z2) rotatedaround(z0,90);
pickup pencircle scaled 16 u;
drawdot z1;
drawdot z3;
drawdot z4;
drawdot z1 rotatedaround(z0,90);
drawdot z3 rotatedaround(z0,90);
drawdot z4 rotatedaround(z0,90);
drawdot z1 rotatedaround(z0,180);
drawdot z3 rotatedaround(z0,180);
drawdot z4 rotatedaround(z0,180);
drawdot z1 rotatedaround(z0,270);
drawdot z3 rotatedaround(z0,270);
drawdot z4 rotatedaround(z0,270);

endchar;

%%%%%%%%%%%%%%%%%%% Koso‡tverec vydut˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(53,100u#,100u#,0);
z0=(50u,50u);
z1=(-5u,-5u); z2=(105u,-5u); z3=(50u,100u); z4=(-5u,105u); z5=(105u,105u); 
z6=(50u,0u); z7=(100u,50u); z8=(0u,50u);

pickup pencircle scaled 2u;
fill (z6--z8--z3--z7--z6--cycle);
pickup pencircle scaled 109.5u;
erase drawdot z1;
erase drawdot z2;
erase drawdot z4;
erase drawdot z5;

endchar;

%%%%%%%%%%%%%%%%%%% Koso‡tverec vydut˜ s bĄlou hvˆzdou uvnitŠ %%%%%%%%%%%%
beginchar(54,100u#,100u#,0);
z0=(50u,50u);
z1=(-5u,-5u); z2=(105u,-5u); z3=(50u,100u); z4=(-5u,105u); z5=(105u,105u); 
z6=(50u,0u); z7=(100u,50u); z8=(0u,50u);
z9=(50u,90u); z10=(50u,62u); z30=(50u,74u);

z11=z10 rotatedaround(z0,45);
z12=z10 rotatedaround(z0,315);
z13=z10 rotatedaround(z0,135);
z14=z10 rotatedaround(z0,225);

z15=z9 rotatedaround(z0,90);
z16=z9 rotatedaround(z0,180);
z17=z9 rotatedaround(z0,270);

z20=z30 rotatedaround(z0,7.5);
z21=z30 rotatedaround(z0,82.5);
z22=z30 rotatedaround(z0,97.5);
z23=z30 rotatedaround(z0,172.5);
z24=z30 rotatedaround(z0,187.5);
z25=z30 rotatedaround(z0,262.5);
z26=z30 rotatedaround(z0,277.5);
z27=z30 rotatedaround(z0,352.5);

pickup pencircle scaled 2u;
fill (z6--z8--z3--z7--z6--cycle);
erase fill (z9--z20--z11--z21--z15--z22--z13--z23--z16--z24--z14
--z25--z17--z26--z12--z27--z9--cycle);
pickup pencircle scaled 109.5u;
erase drawdot z1;
erase drawdot z2;
erase drawdot z4;
erase drawdot z5;

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  bĄl  - pentagram %%%%%%%%%%%%%%%%%
beginchar(55,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); z6=(50u,0u);
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);

pickup pencircle scaled 4u;
draw z1--z3--z5--z2--z4--z1--cycle;

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  ‡ern  %%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(56,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);

pickup pencircle scaled 4u;
fill z1--z3--z5--z2--z4--z1--cycle;

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(57,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);
z6=(50u,90u); 
z7=z6 rotatedaround(z0,72);
z8=z6 rotatedaround(z0,144);
z9=z6 rotatedaround(z0,216);
z10=z6 rotatedaround(z0,288);

pickup pencircle scaled 4u;
fill z1--z3--z5--z2--z4--z1--cycle;
erase fill (z6--z8--z10--z7--z9--z6--cycle);
endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  bĄl  v ‡ern‚m kruhu %%%%%%%%%%%%%%
beginchar(58,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);

pickup pencircle scaled 100u;
drawdot z0;
pickup pencircle scaled 4u;
erase fill z1--z3--z5--z2--z4--z1--cycle;

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  ‡ern  s pr zdn˜m stŠedem %%%%%%%%%
beginchar(59,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);

pickup pencircle scaled 4u;
fill z1--z3--z5--z2--z4--z1--cycle;
pickup pencircle scaled 36u;
erase drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  s ‡ern˜m stŠedem %%%%%%%%%%%%%%%%%%%%%
beginchar(60,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);
z6=(50u,90u); 
z7=z6 rotatedaround(z0,72);
z8=z6 rotatedaround(z0,144);
z9=z6 rotatedaround(z0,216);
z10=z6 rotatedaround(z0,288);

pickup pencircle scaled 4u;
fill z1--z3--z5--z2--z4--z1--cycle;
erase fill (z6--z8--z10--z7--z9--z6--cycle);
pickup pencircle scaled 34u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  trojit  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(61,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);
z6=(50u,90u); 
z7=z6 rotatedaround(z0,72);
z8=z6 rotatedaround(z0,144);
z9=z6 rotatedaround(z0,216);
z10=z6 rotatedaround(z0,288);
z11=(50u,80u); 
z12=z11 rotatedaround(z0,72);
z13=z11 rotatedaround(z0,144);
z14=z11 rotatedaround(z0,216);
z15=z11 rotatedaround(z0,288);

pickup pencircle scaled 4u;
fill z1--z3--z5--z2--z4--z1--cycle;
erase fill (z6--z8--z10--z7--z9--z6--cycle);
fill z11--z13--z15--z12--z14--z11--cycle;
endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  trojit  tu‡n  %%%%%%%%%%%%%%%%%%%%%%%%
beginchar(62,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);
z6=(50u,85u); 
z7=z6 rotatedaround(z0,72);
z8=z6 rotatedaround(z0,144);
z9=z6 rotatedaround(z0,216);
z10=z6 rotatedaround(z0,288);
z11=(50u,70u); 
z12=z11 rotatedaround(z0,72);
z13=z11 rotatedaround(z0,144);
z14=z11 rotatedaround(z0,216);
z15=z11 rotatedaround(z0,288);

pickup pencircle scaled 4u;
fill z1--z3--z5--z2--z4--z1--cycle;
erase fill (z6--z8--z10--z7--z9--z6--cycle);
fill z11--z13--z15--z12--z14--z11--cycle;
endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  se stĄnovan˜mi rameny %%%%%%%%%%%%%%%%
beginchar(63,100u#,100u#,0);

z0=(50u,50u); 
z1=(50u,98u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);
z6=(50u,68u); 
z7=z6 rotatedaround(z0,36);
z8=z6 rotatedaround(z0,108);
z9=z6 rotatedaround(z0,180);
z10=z6 rotatedaround(z0,252);
z11=z6 rotatedaround(z0,324);

pickup pencircle scaled 4u;
draw z1--z7--z2--z8--z3--z9--z4--z10--z5--z11--z1--cycle;
pickup pencircle scaled .1u;
filldraw (z0--z11--z1--cycle);
filldraw (z0--z11--z1--cycle) rotatedaround (z0,72);
filldraw (z0--z11--z1--cycle) rotatedaround (z0,144);
filldraw (z0--z11--z1--cycle) rotatedaround (z0,216);
filldraw (z0--z11--z1--cycle) rotatedaround (z0,288);

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzda pˆticĄp  se stĄnem vpravo %%%%%%%%%%%%%%%%%%%%%
beginchar(64,110u#,100u#,0);

z0=(50u,50u); 
z1=(50u,100u); 
z2=z1 rotatedaround(z0,72);
z3=z1 rotatedaround(z0,144);
z4=z1 rotatedaround(z0,216);
z5=z1 rotatedaround(z0,288);
z6=(50u,90u); 
z7=z6 rotatedaround(z0,72);
z8=z6 rotatedaround(z0,144);
z9=z6 rotatedaround(z0,216);
z10=z6 rotatedaround(z0,288);
z20=z1 shifted (3.8u,0u); 
z21=z4 shifted (3.8u,0u);
z22=z5 shifted (4.8u,0u); 
z23=z3 shifted (4.8u,0u);

pickup pencircle xscaled 8u yscaled 0u;
draw z20--z21;
pickup pencircle xscaled 10u yscaled 0u;
draw z22--z23;

pickup pencircle scaled 2u;
fill z1--z3--z5--z2--z4--z1--cycle;
erase fill (z6--z8--z10--z7--z9--z6--cycle);

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzdice ¨esticĄp  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(65,100u#,100u#,0);
z10=(0u,0u);
z0=(50u,50u);
z1=(50u,100u); z6=(50u,0u);

pickup pencircle xscaled 20u yscaled 0u;
draw (z1--z6);
pickup pencircle xscaled 20u yscaled 0u rotatedaround (z10,60);
draw (z1--z6) rotatedaround (z0,60);
pickup pencircle xscaled 20u yscaled 0u rotatedaround (z10,120);
draw (z1--z6) rotatedaround (z0,120);

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzdice ¨esticĄp  s pr zdn˜m stŠedem %%%%%%%%%%%%%%%%
beginchar(66,100u#,100u#,0);
z10=(0u,0u);
z0=(50u,50u);
z1=(50u,100u); z2=(50u,64u);
z3=(50u,36u); z4=(50u,0u);

pickup pencircle xscaled 15u yscaled 0u;
draw (z1--z2);
draw (z3--z4);
pickup pencircle xscaled 15u yscaled 0u rotatedaround (z10,60);
draw (z1--z2) rotatedaround (z0,60);
draw (z3--z4) rotatedaround (z0,60);
pickup pencircle xscaled 15u yscaled 0u rotatedaround (z10,120);
draw (z1--z2) rotatedaround (z0,120);
draw (z3--z4) rotatedaround (z0,120);

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzdice ¨esticĄp  tenk  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(67,100u#,100u#,0);
z10=(0u,0u);
z0=(50u,50u);
z1=(50u,100u); z2=(50u,64u);
z3=(50u,36u); z4=(50u,0u);

pickup pencircle xscaled 4u yscaled 0u;
draw (z1--z4);
pickup pencircle xscaled 4u yscaled 0u rotatedaround (z10,60);
draw (z1--z4) rotatedaround (z0,60);
pickup pencircle xscaled 4u yscaled 0u rotatedaround (z10,120);
draw (z1--z4) rotatedaround (z0,120);

endchar;

%%%%%%%%%%%%%%%%%%% Hvˆzdice ¨esticĄp  tenk  s pr zdn˜m stŠedem %%%%%%%%%%
beginchar(68,100u#,100u#,0);
z10=(0u,0u);
z0=(50u,50u);
z1=(50u,100u); z2=(50u,64u);
z3=(50u,36u); z4=(50u,0u);

pickup pencircle xscaled 4u yscaled 0u;
draw (z1--z2);
draw (z3--z4);
pickup pencircle xscaled 4u yscaled 0u rotatedaround (z10,60);
draw (z1--z2) rotatedaround (z0,60);
draw (z3--z4) rotatedaround (z0,60);
pickup pencircle xscaled 4u yscaled 0u rotatedaround (z10,120);
draw (z1--z2) rotatedaround (z0,120);
draw (z3--z4) rotatedaround (z0,120);

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% Za‡ tek obr zk– se spr vn˜mi ‡arami
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% OsmicĄp  hvˆzda pln  tenk  %%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(69,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(45u,50u); z3=(55u,50u); z4=(50u,0u);

pickup pencircle scaled .33 u;
fill (z1--z2--z3--z1--cycle);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,45);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,90);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,135);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,180);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,225);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,270);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,315);

endchar;

%%%%%%%%%%%%%%%%%%% OsmicĄp  hvˆzda pln  tenk  %%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(70,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(46u,50u); z3=(54u,50u); z4=(58u,68u);
z5=(42u,68u); z40=(57u,67u); z50=(43u,67u);

pickup pencircle scaled 4 u;
fill (z1--z0--z4--z1--cycle);
draw (z50--z1--z40);

fill (z1--z0--z4--z1--cycle) rotatedaround(z0,45);
draw (z50--z1--z40) rotatedaround(z0,45);
fill (z1--z0--z4--z1--cycle) rotatedaround(z0,90);
draw (z50--z1--z40) rotatedaround(z0,90);

fill (z1--z0--z4--z1--cycle) rotatedaround(z0,135);
draw (z50--z1--z40) rotatedaround(z0,135);
fill (z1--z0--z4--z1--cycle) rotatedaround(z0,180);
draw (z50--z1--z40) rotatedaround(z0,180);

fill (z1--z0--z4--z1--cycle) rotatedaround(z0,225);
draw (z50--z1--z40) rotatedaround(z0,225);
fill (z1--z0--z4--z1--cycle) rotatedaround(z0,270);
draw (z50--z1--z40) rotatedaround(z0,270);

fill (z1--z0--z4--z1--cycle) rotatedaround(z0,315);
draw (z50--z1--z40) rotatedaround(z0,315);
endchar;

%%%%%%%%%%%%%%%%%%% ›esticĄp  hvˆzda pln  stŠednĄ %%%%%%%%%%%%%%%%%%%%%%%%
beginchar(71,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(40u,50u); z3=(60u,50u); z4=(50u,0u);

pickup pencircle scaled .33 u;
fill (z1--z2--z3--z1--cycle);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,60);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,120);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,180);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,240);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,300);

endchar;

%%%%%%%%%%%%%%%%%%% OsmicĄp  hvˆzda pln  stŠednĄ %%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(72,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(40u,50u); z3=(60u,50u); z4=(50u,0u);

pickup pencircle scaled .33 u;
fill (z1--z2--z3--z1--cycle);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,45);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,90);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,135);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,180);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,225);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,270);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,315);

endchar;

%%%%%%%%%%%%%%%%%%% OsmicĄp  hvˆzda pln  tu‡n  %%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(73,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(32u,50u); z3=(68u,50u); z4=(50u,0u);

pickup pencircle scaled .33 u;
fill (z1--z2--z3--z1--cycle);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,45);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,90);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,135);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,180);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,225);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,270);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,315);

endchar;

%%%%%%%%%%%%%%%%%%% Dvan cticĄp  hvˆzda pln  stŠednĄ %%%%%%%%%%%%%%%%%%%%%
beginchar(74,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(35u,50u); z3=(65u,50u); z4=(50u,0u);

pickup pencircle scaled .33 u;
fill (z1--z2--z3--z1--cycle);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,30);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,60);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,90);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,120);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,150);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,180);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,210);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,240);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,270);

fill (z1--z2--z3--z1--cycle) rotatedaround(z0,300);
fill (z1--z2--z3--z1--cycle) rotatedaround(z0,330);

endchar;

%%%%%%%%%%%%%%%%%%% ›estn cticĄp  hvˆzda pln  stŠednĄ %%%%%%%%%%%%%%%%%%%%
beginchar(75,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(48u,50u); z3=(52u,50u); z4=(52u,100u);
z5=(48u,100u);

pickup pencircle scaled .33;
fill (z2--z3--z4--z5--z2--cycle);

fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,22.5);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,45);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,67.5);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,90);

fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,112.5);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,135);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,157.5);
fill (z2--z3--z4--z5--z2--z2--cycle) rotatedaround(z0,180);

fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,202.5);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,225);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,247.5);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,270);

fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,292.5);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,315);
fill (z2--z3--z4--z5--z2--cycle) rotatedaround(z0,337.5);

endchar;

%%%%%%%%%%%%%%%%%%% ›estilĄstek s pln˜m stŠedem %%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(76,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(44u,96u); z3=(45u,82u); z4=(50u,66u);
z5=(56u,96u); z6=(55u,82u);
pickup pencircle scaled .33 u;
fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle);

fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,60);
fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,120);

fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,180);
fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,240);

fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,300);

pickup pencircle scaled 26 u;
drawdot z0;
endchar;

%%%%%%%%%%%%%%%%%%% ›estilĄstek s dut˜m stŠedem %%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(77,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(44u,96u); z3=(45u,82u); z4=(50u,56u);
z5=(56u,96u); z6=(55u,82u);
pickup pencircle scaled .33 u;
fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle);

fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,60);
fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,120);

fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,180);
fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,240);

fill (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle) rotatedaround(z0,300);

pickup pencircle scaled 32 u;
drawdot z0;
pickup pencircle scaled 24 u;
erase drawdot z0;
endchar;


%%%%%%%%%%%%%%%%%%% ›estilĄstek pln˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(78,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98u); 
z2=(43u,93u); z3=(47u,70u); z4=(49u,60u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(51u,60u); z8=(53u,70u); z9=(57u,93u);

def rameno =(z6--z5..z4..z3..z2..z1..z9..z8..z7..z6--cycle)
enddef;
pickup pencircle scaled 4 u;
filldraw rameno;
filldraw rameno rotatedaround(z0,60);
filldraw rameno rotatedaround(z0,120);
filldraw rameno rotatedaround(z0,180);
filldraw rameno rotatedaround(z0,240);
filldraw rameno rotatedaround(z0,300);
pickup pencircle scaled 9 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% ›estilĄstek stŠĄdavˆ pln˜ a dut˜ %%%%%%%%%%%%%%%%%%%%%
beginchar(79,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98u); 
z2=(42u,91u); z3=(44u,70u); z4=(49u,60u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(51u,60u); z8=(56u,70u); z9=(58u,91u);

def ramenko =(z0--z3{z3-z0}..z2..{z1-z2}z1{z9-z1}..z9..{z0-z8}z8--z0--cycle)
enddef;
pickup pencircle scaled 4 u;
draw ramenko;

filldraw ramenko rotatedaround(z0,60);
draw ramenko rotatedaround(z0,120);
filldraw ramenko rotatedaround(z0,180);
draw ramenko rotatedaround(z0,240);
filldraw ramenko rotatedaround(z0,300);
pickup pencircle scaled 12 u;
drawdot z0;
pickup pencircle scaled 9 u;
erase drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% PˆtilĄstek tu‡n˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(80,100u#,100u#,0);
z0=(50u,47u); z1=(50u,80.75u); 

pickup pencircle scaled 38.5 u;
drawdot z1;
drawdot z1 rotatedaround(z0,72);
drawdot z1 rotatedaround(z0,144);
drawdot z1 rotatedaround(z0,216);
drawdot z1 rotatedaround(z0,288);

pickup pencircle scaled 40 u;
drawdot z0;
pickup pencircle scaled 32 u;
erase drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% ›estilĄstek dut˜ s pln˜m stŠedem %%%%%%%%%%%%%%%%%%%%%
beginchar(81,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98u); 
z2=(36.5u,88u); z3=(40.5u,70u); z4=(63.5u,88u); z5=(59.5u,70u);
z6=(50u,92u); z7=(38u,80u); z8=(62u,80u); 
z9=(40u,70u); z10=(60u,70u);

def rameniko =(z0--z3{z3-z0}..z2..z1..z4..{z0-z5}z5--z0--cycle)
enddef;
def ramenicko =(z0..{z9-z0}z9..z7..z6..z8..{z0-z10}z10..z0--cycle)
enddef;
pickup pencircle scaled 6 u;
filldraw rameniko;
erase fill rameniko;
filldraw rameniko rotatedaround(z0,60);
erase fill rameniko rotatedaround(z0,60);
filldraw rameniko rotatedaround(z0,120);
erase fill rameniko rotatedaround(z0,120);
filldraw rameniko rotatedaround(z0,180);
erase fill rameniko rotatedaround(z0,180);
filldraw rameniko rotatedaround(z0,240);
erase fill rameniko rotatedaround(z0,240);
filldraw rameniko rotatedaround(z0,300);
erase fill rameniko rotatedaround(z0,300);
pickup pencircle scaled 38 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% PˆtilĄstek dut˜ s pln˜m stŠedem s tykadly %%%%%%%%%%%%
beginchar(82,100u#,100u#,0);
z0=(50u,47u); z1=(50u,98u); 
z2=(34u,84u); z3=(38.5u,68u); z4=(66u,84u); z5=(61.5u,68u);
z6=(50u,93u); z7=(35u,80u); z8=(65u,80u); 
z9=(37.5u,67.5u); z10=(62.5u,67.5u);
z11=(47u,47u); z12=(53u,47u); z13=(50u,78u);
def rameniko =(z0--z3{z3-z0}..z2..z1..z4..{z0-z5}z5--z0--cycle)
enddef;
def ramenicko =(z0..{z9-z0}z9..z7..z6..z8..{z0-z10}z10..z0--cycle)
enddef;
def carecka =(z12--z11--z13--z12--cycle)
enddef;
pickup pencircle scaled 6 u;
filldraw rameniko;
erase fill ramenicko;
filldraw carecka;
filldraw rameniko rotatedaround(z0,72);
erase fill ramenicko rotatedaround(z0,72);
filldraw carecka rotatedaround(z0,72);
filldraw rameniko rotatedaround(z0,144);
erase fill ramenicko rotatedaround(z0,144);
filldraw carecka rotatedaround(z0,144);
filldraw rameniko rotatedaround(z0,216);
erase fill ramenicko rotatedaround(z0,216);
filldraw carecka rotatedaround(z0,216);
filldraw rameniko rotatedaround(z0,288);
erase fill ramenicko rotatedaround(z0,288);
filldraw carecka rotatedaround(z0,288);
pickup pencircle scaled 38 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% OsmilĄstek s obrysem s dut˜m stŠedem %%%%%%%%%%%%%%%%%
beginchar(83,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98u); z8=(50u,90u);
z2=(50u,82u); z3=(50u,80u);
z4=z2 rotatedaround(z0,22.5);
z5=z2 rotatedaround(z0,337.5);
z6=z3 rotatedaround(z0,12.5);
z7=z3 rotatedaround(z0,347.5);
def rameniciko =(z0--z4{z4-z0}..z1..{z0-z5}z5--z0--cycle)
enddef;
def ramenicicko =(z0--z6{z6-z0}..z8..{z0-z7}z7--z0--cycle)
enddef;
pickup pencircle scaled 4 u;
draw rameniciko;
fill ramenicicko;
draw rameniciko rotatedaround(z0,45);
fill ramenicicko rotatedaround(z0,45);
draw rameniciko rotatedaround(z0,90);
fill ramenicicko rotatedaround(z0,90);
draw rameniciko rotatedaround(z0,135);
fill ramenicicko rotatedaround(z0,135);
draw rameniciko rotatedaround(z0,180);
fill ramenicicko rotatedaround(z0,180);
draw rameniciko rotatedaround(z0,225);
fill ramenicicko rotatedaround(z0,225);
draw rameniciko rotatedaround(z0,270);
fill ramenicicko rotatedaround(z0,270);
draw rameniciko rotatedaround(z0,315);
fill ramenicicko rotatedaround(z0,315);

pickup pencircle scaled 32 u;
drawdot z0;
pickup pencircle scaled 24 u;
erase drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% €ern˜ kruh s osmicĄpou hvˆzdou uvnitŠ s kru‘nicĄ %%%%%
beginchar(84,100u#,100u#,0);
z0=(50u,50u); z1=(50u,99u);
z2=z1 rotatedaround(z0,45);
z3=z1 rotatedaround(z0,90);
z4=z1 rotatedaround(z0,135);
z5=z1 rotatedaround(z0,180);
z6=z1 rotatedaround(z0,225);
z7=z1 rotatedaround(z0,270);
z8=z1 rotatedaround(z0,315);

pickup pencircle scaled 100 u;
drawdot z0;
pickup pencircle scaled 4 u;
erase fill z1--z4--z7--z2--z5--z8--z3--z6--z1--cycle;
draw fullcircle scaled 50u shifted z0;

endchar;

%%%%%%%%%%%%%%%%%%% ›estilĄstek s listy nap–l pln˜mi a dut˜mi %%%%%%%%%%%%
beginchar(85,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98u); 
z2=(42u,91u); z3=(44u,70u); z4=(49u,60u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(51u,60u); z8=(56u,70u); z9=(58u,91u);

def ramenko =(z0--z3{z3-z0}..z2..{z1-z2}z1{z9-z1}..z9..{z0-z8}z8--z0--cycle)
enddef;
def ramendo =(z0--z1{z9-z1}..z9..{z0-z8}z8--z0--cycle)
enddef;
pickup pencircle scaled 4 u;
draw ramenko;
fill ramendo;
draw ramenko rotatedaround(z0,60);
fill ramendo rotatedaround(z0,60);
draw ramenko rotatedaround(z0,120);
fill ramendo rotatedaround(z0,120);
draw ramenko rotatedaround(z0,180);
fill ramendo rotatedaround(z0,180);
draw ramenko rotatedaround(z0,240);
fill ramendo rotatedaround(z0,240);
draw ramenko rotatedaround(z0,300);
fill ramendo rotatedaround(z0,300);
pickup pencircle scaled 12 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% €tyŠlĄstek dut˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(86,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(50u,90u); z3=(50u,75u);
%z4=z1 rotatedaround (z0,22.5);
%z5=z1 rotatedaround (z0,337.5);
%z6=z3 rotatedaround (z0,45);
%z7=z3 rotatedaround (z0,315);
z4=z1 rotatedaround (z0,20);
z5=z1 rotatedaround (z0,340);
z6=z3 rotatedaround (z0,40);
z7=z3 rotatedaround (z0,320);

def listek = (z0--z6{z6-z0}..z4..z2&z2..z5..{z0-z7}z7--z0--cycle)
rotatedaround(z0,45)
enddef;
pickup pencircle scaled 4 u;
draw listek;

draw listek rotatedaround(z0,90);
draw listek rotatedaround(z0,180);
draw listek rotatedaround(z0,270);

endchar;

%%%%%%%%%%%%%%%%%%% €tyŠlĄstek pln˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(87,100u#,100u#,0);
z0=(50u,50u); z1=(50u,101u); z2=(50u,90u); z3=(50u,75u);
z4=z1 rotatedaround (z0,20);
z5=z1 rotatedaround (z0,340);
z6=z3 rotatedaround (z0,40);
z7=z3 rotatedaround (z0,320);

def listek = (z0--z6{z6-z0}..z4..z2&z2..z5..{z0-z7}z7--z0--cycle)
rotatedaround(z0,45)
enddef;
pickup pencircle scaled 1 u;
filldraw listek;

filldraw listek rotatedaround(z0,90);
filldraw listek rotatedaround(z0,180);
filldraw listek rotatedaround(z0,270);

endchar;

%%%%%%%%%%%%%%%%%%% ›estiramenn  kole‡ka %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(88,100u#,100u#,0);
z0=(50u,50u); z1=(50u,85u); z2=(50u,15u); z3=(50u,75u);

pickup pencircle scaled 4 u;
draw z1--z2;
draw (z1--z2) rotatedaround(z0,60);
draw (z1--z2) rotatedaround(z0,120);
pickup pencircle scaled 30 u;
drawdot z1;
drawdot z2;
drawdot z1 rotatedaround(z0,60);
drawdot z2 rotatedaround(z0,60);
drawdot z1 rotatedaround(z0,120);
drawdot z2 rotatedaround(z0,120);

endchar;

%%%%%%%%%%%%%%%%%%% OsmilĄstek s pln˜m stŠedem a kr tk˜mi lĄstky %%%%%%%%%
beginchar(89,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(45u,96u); z3=(46u,82u); z4=(50u,66u);
z5=(55u,96u); z6=(54u,82u);

def list = (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle)
enddef;
pickup pencircle scaled .33 u;
fill list;
fill list rotatedaround(z0,45);
fill list rotatedaround(z0,90);
fill list rotatedaround(z0,135);
fill list rotatedaround(z0,180);
fill list rotatedaround(z0,225);
fill list rotatedaround(z0,270);
fill list rotatedaround(z0,315);

pickup pencircle scaled 24 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% OsmilĄstek s pln˜m stŠedem %%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(90,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(43u,96u); z3=(44u,78u); z4=(50u,50u);
z5=(57u,96u); z6=(56u,78u); %z4=(50u,66u);
def list = (z4--z3{z3-z4}..z2..z1..z5..{z4-z6}z6--z4--cycle)
enddef;
pickup pencircle scaled .33 u;
fill list;
fill list rotatedaround(z0,45);
fill list rotatedaround(z0,90);
fill list rotatedaround(z0,135);
fill list rotatedaround(z0,180);
fill list rotatedaround(z0,225);
fill list rotatedaround(z0,270);
fill list rotatedaround(z0,315);

pickup pencircle scaled 20 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% PˆtilĄstek dut˜ s pln˜m stŠedem %%%%%%%%%%%%%%%%%%%%%%
beginchar(91,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98u); 
z2=(42u,91u); z3=(44u,70u); z4=(49u,60u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(51u,60u); z8=(56u,70u); z9=(58u,91u);
z10=(50u,65u);
def ramenko=(z10--z3{z3-z10}..z2..{z1-z2}z1{z9-z1}..z9..{z10-z8}z8--z10--cycle)
enddef;
pickup pencircle scaled 4 u;
draw ramenko;
draw ramenko rotatedaround(z0,60);
draw ramenko rotatedaround(z0,120);
draw ramenko rotatedaround(z0,180);
draw ramenko rotatedaround(z0,240);
draw ramenko rotatedaround(z0,300);
pickup pencircle scaled 20 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% €tyŠlĄstek s pln˜m stŠedem a s kŠĄ‘kem %%%%%%%%%%%%%%%
beginchar(92,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); 
z2=(42u,97u); z3=(44u,68u); z4=(49u,60u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(51u,60u); z8=(56u,68u); z9=(58u,97u);
z10=(50u,60u); z11=(10u,90u); z12=(38u,62u);
def ramenko=(z10..z3{z3-z10}..z2..{z1-z2}z1{z9-z1}..z9..{z10-z8}z8..z10--cycle)
enddef;

pickup pensquare scaled 4 u rotated 45;
fill ramenko;
draw (z11--z12);
fill ramenko rotatedaround(z0,90);
draw (z11--z12) rotatedaround(z0,90);
fill ramenko rotatedaround(z0,180);
draw (z11--z12) rotatedaround(z0,180);
fill ramenko rotatedaround(z0,270);
draw (z11--z12) rotatedaround(z0,270);
pickup pencircle scaled 20 u;
drawdot z0;

endchar;

%%%%%%%%%%%%%%%%%%% €tyŠlĄstek s pln˜m stŠedem a s kŠĄ‘kem %%%%%%%%%%%%%%%
beginchar(93,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); 
z2=(42u,96u); z3=(44u,70u); z4=(49u,60u); z5=(49.75u,50u);
z6=(50.25u,50u); z7=(51u,60u); z8=(56u,70u); z9=(58u,96u);
z10=(50u,60u); z11=(10u,90u); z12=(38u,62u);
def ramenko=(z10..{z3-z10}z3..z2{z2-z3}..{z1-z2}z1{z9-z1}..{z8-z9}z9..z8{z10-z8}..z10&z10..cycle)
enddef;

pickup pensquare scaled 4 u rotated 45;
fill ramenko;
draw (z11--z12);
fill ramenko rotatedaround(z0,90);
draw (z11--z12) rotatedaround(z0,90);
fill ramenko rotatedaround(z0,180);
draw (z11--z12) rotatedaround(z0,180);
fill ramenko rotatedaround(z0,270);
draw (z11--z12) rotatedaround(z0,270);

endchar;

%%%%%%%%%%%%%%%%%%% ›estiramenn  vlo‡ka %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(94,100u#,100u#,0);
z0=(50u,50u); z1=(50u,98.5u); z2=(50u,1.5u); 
z3=(50u,80u); z4=(35u,92.5u); z5=(65u,92.5u);
z6=(50u,20u); z7=(35u,7.5u); z8=(65u,7.5u);

pickup pencircle scaled 4 u;
draw z1--z2;
draw (z1--z2) rotatedaround(z0,60);
draw (z1--z2) rotatedaround(z0,120);
draw z4--z3--z5;
draw z7--z6--z8;
draw (z4--z3--z5) rotatedaround(z0,60);
draw (z7--z6--z8) rotatedaround(z0,60);
draw (z4--z3--z5) rotatedaround(z0,120);
draw (z7--z6--z8) rotatedaround(z0,120);

endchar;

%%%%%%%%%%%%%%%%%%% ›estiramenn  vlo‡ka s tlust˜mi vedlej¨Ąmi ramĄnky %%%%
beginchar(95,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(50u,0u); 
z3=(50u,80u); z4=(35u,92.5u); z5=(65u,92.5u);
z6=(50u,20u); z7=(35u,7.5u); z8=(65u,7.5u);

pickup pencircle scaled 4 u;
draw z1--z2;
draw (z1--z2) rotatedaround(z0,60);
draw (z1--z2) rotatedaround(z0,120);
pickup pencircle scaled 10 u;
draw z4--z3--z5;
draw z7--z6--z8;
draw (z4--z3--z5) rotatedaround(z0,60);
draw (z7--z6--z8) rotatedaround(z0,60);
draw (z4--z3--z5) rotatedaround(z0,120);
draw (z7--z6--z8) rotatedaround(z0,120);
pickup pencircle scaled 8 u;
erase draw fullcircle scaled 104 u shifted z0;

endchar;

%%%%%%%%%%%%%%%%%%% ›estiramenn  vlo‡ka s vnitŠnĄm ¨estiŁhelnĄkem %%%%%%%%
beginchar(96,100u#,100u#,0);
z0=(50u,50u); z1=(50u,100u); z2=(50u,0u); 
z3=(50u,95u);
z4=z3 rotatedaround(z0,30);
z5=z3 rotatedaround(z0,90);
z6=z3 rotatedaround(z0,150);
z7=z3 rotatedaround(z0,210);
z8=z3 rotatedaround(z0,270);
z9=z3 rotatedaround(z0,330);

z10=(50u,75u);
z11=z10 rotatedaround(z0,60);
z12=z10 rotatedaround(z0,120);
z13=z10 rotatedaround(z0,180);
z14=z10 rotatedaround(z0,240);
z15=z10 rotatedaround(z0,300);

pickup pencircle scaled 8 u;
draw z1--z2;
draw (z1--z2) rotatedaround(z0,60);
draw (z1--z2) rotatedaround(z0,120);
pickup pencircle scaled 4 u;
draw (z11--z4--z10--z9--z15);
draw (z11--z4--z10--z9--z15--z8) rotatedaround(z0,120);
draw (z11--z4--z10--z9--z15--z8) rotatedaround(z0,240);
pickup pencircle scaled 8 u;
erase draw fullcircle scaled 104 u shifted z0;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% konec obr zk– se spr vn˜mi ‡arami
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%% Kruh ‡ern˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(97,100u#,100u#,0);

z1=(50u,50u);
pickup pencircle scaled 100u;
drawdot z1;

endchar;

%%%%%%%%%%%%%%%%%%% Elipsa %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(98,100u#,100u#,0);

z1=(50u,50u);
pickup pencircle scaled 4u;
draw fullcircle xscaled 98u yscaled 60u shifted z1;

endchar;

%%%%%%%%%%%%%%%%%%% Elipsa pln  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(99,100u#,100u#,0);

z1=(50u,50u);
pickup pencircle scaled 2u;
fill fullcircle xscaled 100u yscaled 60u shifted z1;

endchar;

%%%%%%%%%%%%%%%%%%% Kruh se stĄnem vpravo %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(100,110u#,100u#,0);

z1=(50u,50u);
z2=(55u,50u);

pickup pencircle xscaled 110u yscaled 100u;
drawdot z2;
pickup pencircle scaled 99u;
erase drawdot z1;
pickup pencircle scaled 4u;
draw fullcircle scaled 96u shifted z1;

endchar;

%%%%%%%%%%%%%%%%%%% Elipsa se stĄnem vpravo %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(101,110u#,100u#,0);

z1=(50u,50u); z2=(55u,50u);
pickup pencircle scaled 4u;
fill fullcircle xscaled 110u yscaled 62u shifted z2;
erase fill fullcircle xscaled 92u yscaled 54u shifted z1;
%draw fullcircle xscaled 92u yscaled 54u shifted z1;
%erase fill fullcircle xscaled 96u yscaled 58u shifted z1;
%draw fullcircle xscaled 96u yscaled 58u shifted z1;

endchar;

%%%%%%%%%%%%%%%%%%% €tverec %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(102,100u#,100u#,0);

z1=(50u,50u);

pickup pensquare scaled 100u;
draw z1;
pickup pensquare scaled 92u;
erase draw z1;

endchar;

%%%%%%%%%%%%%%%%%%% €tverec ‡ern˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(103,100u#,100u#,0);

z1=(50u,50u);

pickup pensquare scaled 100u;
draw z1;

endchar;

%%%%%%%%%%%%%%%%%%% €tverec se ‡tercov˜m stĄnem vpravo dole %%%%%%%%%%%%%%
beginchar(104,100u#,100u#,0);

z1=(58u,42u);
z2=(42u,58u);
z3=(0u,16u); z4=(0u,100u);z5=(84u,100u); z6=(84u,16u);

pickup pensquare scaled 84u;
draw z1;
draw z2;
pickup pensquare scaled 76u;
erase draw z2;
endchar;
%%%%%%%%%%%%%%%%%%% €tverec se ‡tvercov˜m stĄnem vpravo nahoŠe %%%%%%%
beginchar(105,100u#,100u#,0);

z1=(58u,58u);
z2=(42u,42u);
z3=(0u,0u); z4=(0u,84u); z5=(84u,84u); z6=(84u,0u);

pickup pensquare scaled 84u;
draw z1;
draw z2;
pickup pensquare scaled 76u;
erase draw z2;

endchar;

%%%%%%%%%%%%%%%%%%% €tverec se ‡tvercov˜m stĄnem vlevo nahoŠe %%%%%%%%
beginchar(106,100u#,100u#,0);

z1=(58u,42u);
z2=(42u,58u);
z3=(16u,0u); z4=(16u,84u);z5=(100u,84u); z6=(100u,0u);

pickup pensquare scaled 84u;
draw z2;
draw z1;
pickup pensquare scaled 76u;
erase draw z1;

endchar;

%%%%%%%%%%%%%%%%%%% €tverec se zkosen˜m stĄnem vpravo dole %%%%%%%%%%%
beginchar(107,100u#,100u#,0);

z1=(58u,42u);
z2=(42u,58u);
z3=(0u,16u); z4=(0u,100u);z5=(84u,100u); z6=(84u,16u);
z7=(16u,0u); z8=(16u,84u); z9=(100u,84u); z10=(100u,0u);

pickup pensquare scaled 84u;
draw z1;
pickup pencircle scaled 4u;
fill z3--z5--z9--z7--z3--cycle;
pickup pensquare scaled 84u;
draw z2;
pickup pensquare scaled 76u;
erase draw z2;

endchar;

%%%%%%%%%%%%%%%%%%% €tverec se zkosen˜m stĄnem vpravo nahoŠe %%%%%%%%%
beginchar(108,100u#,100u#,0);
z0=(0u,0u);
z1=(58u,58u);
z2=(42u,42u);
z3=(0u,16u); z4=(0u,100u);z5=(84u,100u); z6=(84u,16u);
z7=(16u,0u); z8=(16u,84u); z9=(100u,84u); z10=(100u,0u);
z11=(0u,84u); z12=(16u,100u); z13=(84u,0u); z14=(100u,16u);
z15=(84u,84u); z16=(100u,100u);
pickup pensquare scaled 84u;
draw z1;
pickup pencircle scaled 4u;
fill z11--z12--z14--z13--z11--cycle;
pickup pensquare scaled 84u;
draw z2;
pickup pensquare scaled 76u;
erase draw z2;

endchar;

%%%%%%%%%%%%%%%%%%% €tverec se zkosen˜m stĄnem vlevo nahoŠe %%%%%%%%%%
beginchar(109,100u#,100u#,0);

z1=(58u,42u);
z2=(42u,58u);
z3=(0u,16u); z4=(0u,100u); z5=(84u,100u); z6=(84u,16u);
z7=(16u,0u); z8=(16u,84u); z9=(100u,84u); z10=(100u,0u);

pickup pensquare scaled 84u;
draw z2;
pickup pencircle scaled 4u;
fill z3--z5--z9--z7--z3--cycle; % shifted (0u,0u) rotated 180;
pickup pensquare scaled 84u;
draw z1;
pickup pensquare scaled 76u;
erase draw z1;

endchar;

%%%%%%%%%%%%%%%%%%% TrojŁhelnĄk se z kladnou dole %%%%%%%%%%%%%%%%%%%%
beginchar(110,110u#,100u#,0);
z1=(0u,0u); z2=(55u,100u); z3=(110u,0u);

pickup pencircle scaled 4u;
fill (z1--z2--z3--z1--cycle);

endchar;

%%%%%%%%%%%%%%%%%%% TrojŁhelnĄk se z kladnou nahoŠe %%%%%%%%%%%%%%%%%%
beginchar(111,110u#,100u#,0);
z1=(0u,0u); z2=(55u,100u); z3=(110u,0u);
z4=(0u,100u); z5=(110u,100u); z6=(55u,0u);

pickup pencircle scaled 4u;
fill (z6--z4--z5--z6--cycle);

endchar;

%%%%%%%%%%%%%%%%%%% Koso‡tverec %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(112,100u#,100u#,0);
z0=(50u,50u);
z1=(0u,0u); z2=(100u,0u); z3=(50u,100u); z4=(0u,100u); z5=(100u,100u); 
z6=(50u,0u); z7=(100u,50u); z8=(0u,50u);

pickup pencircle scaled 4u;
fill (z6--z8--z3--z7--z6--cycle);
endchar;

%%%%%%%%%%%%%%%%%%% Koso‡tverec ze ‡tyŠ koso‡tvere‡k– %%%%%%%%%%%%%%%%
beginchar(113,100u#,100u#,0);
z0=(50u,50u);
z1=(0u,0u); z2=(100u,0u); z3=(50u,100u); z4=(0u,100u); z5=(100u,100u); 
z6=(50u,0u); z7=(100u,50u); z8=(0u,50u);

pickup pencircle scaled 4u;
fill (z6--z8--z3--z7--z6--cycle);
pickup pencircle scaled 10u;
erase draw z4--z2;
erase draw z1--z5;

endchar;

%%%%%%%%%%%%%%%%%%% Polokruh pravostrann˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(114,50u#,100u#,0);
z0=(50u,50u);
z1=(0u,0u); z2=(100u,0u); z3=(50u,100u); z4=(0u,100u); z5=(100u,100u); 
z6=(50u,0u); z7=(100u,50u); z8=(0u,50u);

pickup pencircle scaled 2u;
fill (z1--z4..z0..z1..cycle);

endchar;

%%%%%%%%%%%%%%%%%%% Polokruh levostrann˜ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(115,50u#,100u#,0);
z0=(50u,50u);
z1=(0u,0u); z2=(100u,0u); z3=(50u,100u); z4=(0u,100u); z5=(100u,100u); 
z6=(50u,0u); z7=(100u,50u); z8=(0u,50u);

pickup pencircle scaled 2u;
fill (z6--z3..z8..z6..cycle);

endchar;

%%%%%%%%%%%%%%%%%%% Tenk˜ svisl˜ pruh %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(116,12.5u#,100u#,0);

z1=(0u,0u); z2=(12.5u,0u); z3=(6.25u,6.25u); z4=(0u,100u); z5=(12.5u,100u); 
z6=(6.25u,93.75u);

pickup pensquare scaled 12.5u;
draw z3--z6;
endchar;

%%%%%%%%%%%%%%%%%%% StŠednĄ svisl˜ pruh %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(117,25u#,100u#,0);

z1=(0u,0u); z2=(25u,0u); z3=(12.5u,12.5u); z4=(0u,100u); z5=(25u,100u); 
z6=(12.5u,87.5u);

pickup pensquare scaled 25u;
draw z3--z6;
endchar;

%%%%%%%%%%%%%%%%%%% Tlust˜ svisl˜ pruh %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(118,50u#,100u#,0);

z1=(0u,0u); z2=(50u,0u); z3=(25u,25u); z4=(0u,100u); z5=(50u,100u); 
z6=(25u,75u);

pickup pensquare scaled 50u;
draw z3--z6;
endchar;


%%%%%%%%%%%% end;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%% YYYYYYYYYYYYYYYYYYYYYYYYYYYYY %%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% ›ipka s prou‘ky %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(119,110u#,100u#,0);

z1=(0u,50u); z2=(100u,50u); z3=(90u,90u); z4=(120u,98u); 
z5=(90u,10u); z6=(120u,2u);
z7=(9u,70u); z8=(25u,70u); z9=(40u,70u); z10=(58u,70u); 
z11=(9u,30u); z12=(25u,30u); z13=(40u,30u); z14=(58u,30u);

pickup pencircle xscaled 40u yscaled 0u;  % 20u
draw z5--z3; 
pickup pencircle xscaled 0u yscaled 40u;  % 20u
draw z1--z2;
pickup pencircle scaled 100u;  % 50u;
erase drawdot z4;
erase drawdot z6;
pickup pencircle scaled 10u;
erase draw z7--z11;
pickup pencircle scaled 6u;
erase draw z8--z12;
pickup pencircle scaled 4u;
erase draw z9--z13;
pickup pencircle scaled 3u;
erase draw z10--z14;

endchar;

%%%%%%%%%%%%%%%%%%% ›ipka s oc skem dol– %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(120,110u#,100u#,0);
%z1=(10u,25u); z2=(37.5u,25u); z3=(50u,45u); z4=(37.5u,42u); 
%z5=(65u,25u); z6=(37.5u,7u);
%z7=(5u,25u); z8=(10u,25u); z9=(5u,8u); z10=(10u,8u); 
%z11=(1.5u,4u); z12=(1.5u,10u);

z1=(20u,50u); z2=(75u,50u); z3=(100u,90u); z4=(60u,84u); 
z5=(110u,50u); z6=(60u,14u);
z7=(10u,50u); z8=(20u,50u); z9=(10u,16u); z10=(20u,16u); 
z11=(3u,8u); z12=(3u,20u);

pickup pencircle xscaled 0u yscaled 40u;  % 20
draw z1--z2;
pickup pencircle scaled 2u;
fill (z6--z4--z5--z6--cycle);
pickup pencircle xscaled 20u yscaled 0u;  % 10
draw z7--z9;
pickup pencircle scaled 40u;              % 20
drawdot z8;
pickup pencircle scaled 28u;              % 14
erase drawdot z10;
pickup pencircle xscaled 6u yscaled 0u;   % 3
draw z11--z12;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((0u,50u),(110u,50u));
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% ›ipka s oc skem nahoru %%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(121,110u#,100u#,0);
%z1=(10u,25u); z2=(37.5u,25u); z3=(50u,45u); z4=(37.5u,42u); 
%z5=(65u,25u); z6=(37.5u,7u);
%z7=(5u,25u); z8=(10u,25u); z9=(5u,8u); z10=(10u,8u); 
%z11=(1.5u,4u); z12=(1.5u,10u);

z1=(20u,50u); z2=(75u,50u); z3=(100u,90u); z4=(60u,84u); 
z5=(110u,50u); z6=(60u,14u);
z7=(10u,50u); z8=(20u,50u); z9=(10u,16u); z10=(20u,16u); 
z11=(3u,8u); z12=(3u,20u);

pickup pencircle xscaled 0u yscaled 40u;  % 20
draw z1--z2;
pickup pencircle scaled 2u;
fill (z6--z4--z5--z6--cycle);
pickup pencircle xscaled 20u yscaled 0u;  % 10
draw z7--z9;
pickup pencircle scaled 40u;              % 20
drawdot z8;
pickup pencircle scaled 28u;              % 14
erase drawdot z10;
pickup pencircle xscaled 6u yscaled 0u;   % 3
draw z11--z12;

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
currenttransform:=
  currenttransform reflectedabout ((0u,50u),(110u,50u));
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%%%%%%% ›ipka zplo¨tˆl  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
beginchar(122,50u#,100u#,0);
z1=(0u,50u); z2=(17u,50u); 
z3=(17u,0u); z4=(17u,100u); z5=(50u,50u); 

pickup pencircle xscaled 0u yscaled 60u;
draw z1--z2;
pickup pencircle scaled 2u;
fill (z3--z4--z5--z3--cycle);

endchar;

%%%%%%%%%%%%%%%%%%% ›ipka v ov lu %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

beginchar(123,100u#,100u#,0);

z0=(-10u,50u); 
z1=(-7u,50u); z2=(50u,50u); 
z3=(50u,4u); z4=(50u,96u); z5=(96u,50u); 
z6=(100u,50u); z7=(20u,4u); z8=(70u,4u); z9=(70u,96u); z10=(20u,96u);

pickup pencircle scaled 2u;
fill (z1..z10..tension 1.15..z9..z6..z8..tension 1.15..z7..z1--cycle);
pickup pencircle xscaled 0u yscaled 60u;  % 30u;
erase draw z0--z2;
pickup pencircle scaled 2u;
erase fill (z3--z4--z5--z3--cycle);

endchar;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%% XXXXXXXXXXXXXXXXXXXXXXXXXXXXX %%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

end;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%