beginchar(oct"020",.4em#,.5cap#,0dth#); "Kliton"; picture DLE; path p[]; Radi = .5Diam; z0 = .5(w,h); z1 = .74(w,h); d1 = (x0-x1)++(y0-y1); l1 = Radi/d1; x2 = l1*x1 + (1-l1)*x0; y2 = l1*y1 + (1-l1)*y0; z3 = .1(w,h); d2 = (x0-x3)++(y0-y3); l2 = Radi/d2; x4 = l2*x3 + (1-l2)*x0; y4 = l2*y3 + (1-l2)*y0; x5 = 1w/25; y5 = 5h/25; pickup pencircle scaled .8pt; p1 = fullcircle scaled Diam shifted (z0); p2 = z1--z3..{z4-z3}z5; p3 = z2--z4; draw p1; draw p2; undraw p3; DLE = currentpicture; endchar;