blob: 6bef17296a7d5190457ab1b55cd4825c19026a0a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
beginchar(oct"017",.4em#,.5cap#,0dth#); "E Diatoniki Martiria";
picture SI;
path p[];
x0 = w - x2 = curve_sidebar;
x1 = 17w/50; y1 = 4.3h/5;
y0 = y7 = 3.5h/5; y2 = y4 = .1h;
z3 = .4[z7,z2];
x7 = .6w;
z5 = .8[z7,z2];
pickup pencircle scaled .8pt;
p1 = flex(z0,z1,z7) & z7--z2;
draw p1;
p3 = z5--z2 rotatedabout(z5,120);
p4 = z3--z2 rotatedabout(z3,-65);
draw p3;
draw p4;
SI = currentpicture;
endchar;
|