blob: 6502787886efe07303d4d5756d0fc7ca2e7acad8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
beginchar(oct"001",.4em#,.5cap#,0dth#); "A Martiria Hxou B";
picture SOH;
path p[];
z0 = (w/2,h/2);
x1 = w - x2 = .5curve_sidebar;
y1 = .1h; y2 = .9h;
z3 = .35[z0,z1];
z4 = .35[z0,z2];
z5 = .5[z2,z4];
pickup pencircle scaled .8pt;
p0 = fullcircle scaled .4w shifted (z0);
p1 = z1--z2;
p2 = z3--z4;
p3 = z4--z2;
p4 = p3 rotatedabout(z5,90);
draw p0;
draw p1;
undraw p2;
draw p4;
SOH = currentpicture;
endchar;
|
