blob: c2816fb249ea446776da44a09688b6970968908c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
beginchar(oct"021",.4em#,.5cap#,0dth#); "B Xromatiki Fthora";
picture DCO;
path p[];
y1 = y0 = y2 = .5h;
x1 = -.2w; x0 = .5w; x2 = 1.2w;
y3 = 19h/50; x3 = .9w;
pickup pencircle scaled .8pt;
p1 = fullcircle scaled Diam shifted (z0);
p2 = z1..controls z2..z3;
draw p1;
draw p2;
DCO = currentpicture;
endchar;
|