beginchar(oct"023",.4em#,.5cap#,0dth#); "Diatoniko fthora tou ni";
picture DCTh;
 path p[];

 x0 = x1 = .5w;
 y0 = .55h; y1 = .3h;
 y2 = y6 = .15h;
 x2 = 2w/5; 
 x3 = 17w/50; x4 = 33w/50;
 y4 = .17h; 
 x5 = x7 = 9w/10;
 y3 = y5 = .11h; y7 = .29h;
 x6 = .97w; 

 pickup pencircle scaled .8pt;
 p1 = fullcircle scaled Diam shifted (z0);
 p2 = flex(z1,z2,z3);
 p3 = flex(z3,z4,z5) & flex(z5,z6,z7);
 draw p1;
 draw p2;
 draw p3;
 DCTh = currentpicture;
 endchar;