blob: be4b825b95761a1511f00e179ce0c09295d08b6a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
beginchar(oct"011",.4em#,.5cap#,0dth#); "Diatoniki Fthora tou Ke";
picture HT;
path p[];
x0 = x3 = x4 = .5w;
y0 = .5h;
y1 = 15h/50;
y2 = h/10;
y3 = 35h/50;
y4 = 45h/50;
pickup pencircle scaled .8pt;
p1 = fullcircle scaled Diam shifted (z0);
p3 = z3--z4;
draw p1;
draw p3;
HT = currentpicture;
endchar;
|