% Archimedes's approximation of Pi
% Thanks to Dr R. Chandrasekhar for his suggestions
% Copyright (c) Christian Obrecht 2004

box(-4,-4,4,4)
thickness(.1)
color(gray)
strokes(6)
trace(r,0,360) {point(3,r:)}
strokes(12)
trace(r,0,360) {point(3,r:)}
strokes(24)
trace(r,0,360) {point(3,r:)}
strokes(48)
trace(r,0,360) {point(3,r:)}
strokes(92)
trace(r,0,360) {point(3,r:)}
color(blue)
strokes(6)
trace(r,0,360) {point(3/cos(30),30+r:)}
strokes(12)
trace(r,0,360) {point(3/cos(15),15+r:)}
strokes(24)
trace(r,0,360) {point(3/cos(7.5),7.5+r:)}
strokes(48)
trace(r,0,360) {point(3/cos(3.75),3.75+r:)}
strokes(92)
trace(r,0,360) {point(3/cos(1.875),1.875+r:)}
color(red)
draw(circle(point(0,0),3))