blob: d6ecb4246987b6c5ca558dcbc5923c3b36387c20 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
beginchar(oct"014",.4em#,.5cap#,0dth#); "Diatoniki Fthora tou pa";
picture FF;
path p[];
x0 = x1 = x2 = .5w;
y0 = .5h;
y1 = 15h/50;
y2 = h/10;
pickup pencircle scaled .8pt;
p1 = fullcircle scaled Diam shifted (z0);
p2 = z1--z2;
draw p1;
draw p2;
FF = currentpicture;
endchar;
|