\starttext
\startMPcode
input hatching;
%input mp-sketch;
%sketchypaths;
%sketch_amount := 2bp;
u := 1cm;
path circle;
circle = fullcircle scaled 4u;
hatchfill circle withcolor (45, 5mm, -.5bp);
draw circle;
\stopMPcode
\stoptext