blob: 8b2966fcb86f9c60b5422538269677464a2a137a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
beginchar(oct"027",.4em#,.5cap#,0dth#); "Triargon";
picture TPIAPGON;
path p[];
y0 = y1 = 7h/10;
y2 = y3 = .5h;
x1 = x2 = .5w;
x0 = w/5; y4 = 3h/10;
x3 = x4 = 4w/5;
p1 = z0--z1 & z1--z2 & z2--z3 & z3--z4;
pickup pencircle scaled .8pt;
draw p1;
TPIAPGON = currentpicture;
endchar;
|