size(7cm,0);

path chemin=(0,0){dir(45)}..(1,0)..(1,.5)..(0,1)..cycle;

filloutside(chemin,red);

shipout(bbox(3mm,white));