Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (17 sloc) 373 Bytes
require "point";
define circle {
param number fill = 0;
point n, s, e, w, nw, ne, sw, se, c;
number r, d = 2 * r, s2 = sqrt(2)/2 * r ;
constraints {
n = c + ( 0, r);
s = c + ( 0, -r);
w = c + (-r, 0);
e = c + ( r, 0);
nw = c + (-s2, s2);
ne = c + ( s2, s2);
sw = c + (-s2, -s2);
se = c + ( s2, -s2);
}
draw { &draw_circle; }
}