blob: 37d13f95db43f64f7e168ddba291bd557dd77bef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
beginchar(oct"002",.8em#,5cap#/7,0dth#); "Oligon";
path p[];
picture OLIGON, scOLIGON;
save ww,hh;
ww = w/8; hh = h/5;
y0 = y1 = 0;
y2 = y3 = hh;
x0 = .4ww; x1 = 7.9ww;
x2 = 7.6ww; x3 = .1ww;
p0 = z0--z1..z2--z3..cycle;
fill p0;
OLIGON = currentpicture;
clearit;
p1 = p0 xscaled 1.4;
fill p1;
scOLIGON = currentpicture;
clearit;
addto currentpicture also OLIGON;
endchar;
|