blob: 8cbd3661339a1ff6e27acd8bcca87d5585fe56aa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
beginchar(oct"031",.4em#,.5cap#,0dth#); "Stavros";
picture CTAYPOC;
path p[];
z0 = .5(w,h);
y1 = y2 = .5h;
x1 = 3w/10; x2 = 7w/10;
p1 = z1--z2;
p2 = p1 rotatedabout(z0,90);
pickup pencircle scaled .8pt;
draw p1;
draw p2;
CTAYPOC = currentpicture;
endchar;
|