blob: 067081ce47446c1f3d9c0ea95249e89723c26608 (
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
|
beginchar(oct"024",.4em#,.5cap#,0dth#); "Diatoniko fthora tou Ni";
picture DCF;
path p[];
x0 = x1 = x8 = x9 = .5w;
y8 = .8h; y9 = .95h;
y0 = .55h; y1 = .3h;
y2 = y6 = .15h;
x2 = 2w/5;
x3 = 17w/50; x4 = 33w/50;
y4 = .17h;
x5 = x7 = 9w/10;
y3 = y5 = .11h; y7 = .29h;
x6 = .97w;
pickup pencircle scaled .8pt;
p1 = fullcircle scaled Diam shifted (z0);
p2 = flex(z1,z2,z3);
p3 = flex(z3,z4,z5) & flex(z5,z6,z7);
p4 = z8--z9;
draw p1;
draw p2;
draw p3;
draw p4;
DCF = currentpicture;
endchar;
|
