blob: f934adc6ab3d2dd724341e413737288595fcf6c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
beginchar(oct"045",.4em#,.5cap#,0dth#); "Apli Ifesi";
picture PERCENT;
path p[];
z0 = (w/2,h/2);
x1 = w - x2 = .5curve_sidebar;
y1 = .1h; y2 = .9h;
z3 = .35[z0,z1];
z4 = .35[z0,z2];
pickup pencircle scaled .8pt;
p1 = fullcircle scaled Diam shifted (z0);
p2 = z1--z3;
draw p1;
draw p2;
PERCENT = currentpicture;
endchar;
|