blob: 741718e946ddad5c79e46ca698cf9047979182b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
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;
|