\setupbodyfont[8pt]
\enabletrackers[metapost.showlog]
\startMPdefinitions
  input mp-sketch;
\stopMPdefinitions

\starttext
\startMPpage[offset=3mm]
  draw fullsquare scaled 1cm;
  draw textext("Normal") ;

  sketchypaths;
  sketch_passes := 1; 
  draw fullsquare scaled 1cm shifted (2cm,0) withcolor red;
  % To make sure there is no randomization in non-path things ..
  draw textext("Sketch") shifted (2cm,0);

  sketch_passes := 5;
  draw fullsquare scaled 1cm shifted (4cm,0) withcolor blue;
  % To make sure there is no randomization in non-path things ..
  draw textext("Sketch") shifted (4cm,0);
\stopMPpage
