mode_setup;
string s; 
for i=10 step -1.5 until 1:
 a:=300/i; %want pens about the same size
 pickup pencircle scaled i; pickup currentpen scaled a;
 drawdot (200,100); sscreen(30pt#,60pt#,0,1);
 undraw (200,100); sscreen(30pt#,60pt#,0,1);
endfor;

end
