blob: f2ec08fb7db64f7693efdbb7b5639dae2dd87374 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
beginchar(oct"013",.4em#,.5cap#,0dth#); "Diatoniki Fthora tou Ga";
picture VT;
path p[];
x0 = x1 = x2 = 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);
p2 = z1--z2;
p3 = z3--z4;
draw p1;
draw p2;
draw p3;
VT = currentpicture;
endchar;
|
