artifact_id;status_id;status_name;priority;submitter_id;submitter_name;assigned_to_id;assigned_to_name;open_date;close_date;last_modified_date;summary;details;"Hardware";"Product";"Operating System";"Component";"Version";"Severity";"Resolution";"URL"
1052;1;"Open";3;621;"Pierre Hauweele";100;"Nobody";"2011-11-07 21:41";"";"2011-11-07 21:41";"Path filling behavior inconsistent between cairo and graphics";"The following code doesn't have the same the same behavior with the cairo or the graphics backend.
In cairo, the second subpath is extruded from the whole fill. In graphics, it's not the case : the second subpath is also filled.

We should first define which behavior we really expect.
Note that implementing cairo's behavior in graphics will be more troublesome than making graphics' behavior the default.

module B = Archimedes.Backend
let () =
  let bk = B.make [""graphics""; ""hold""] 500. 500. in
  B.move_to bk 0. 0.;
  B.line_to bk 500. 0.;
  B.line_to bk 500. 500.;
  B.line_to bk 0. 500.;
  B.close_path bk;
  B.move_to bk 100. 100.;
  B.line_to bk 100. 400.;
  B.line_to bk 400. 100.;
  B.close_path bk;
  B.fill bk;
  B.close bk
";"None";"None";"None";"None";"None";"None";"None";""