blob: ae2fd1aa7701b05c57089ef4398baa12bbc360ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
beginchar(oct"015",.4em#,.5cap#,0dth#); "A Xromatiki Fthora";
picture CR;
path p[];
z0 = (.5w,.5h);
x1 = w - x2 = -.2w;
y1 = y2 = y0 = y5;
x3 = w - x4 = -.22w;
y3 = .3h;
y4 = .7h;
pickup pencircle scaled .8pt;
p1 = flex(z3,z1,z0) & flex(z0,z2,z4);
p2 = p1 rotatedabout(z0,-5);
p3 = fullcircle scaled Diam shifted (z0);
draw p2;
draw p3;
CR = currentpicture;
endchar;
|