22 lines
580 B
Diff
22 lines
580 B
Diff
|
--- a/tests/image_create.ml
|
||
|
+++ b/tests/image_create.ml
|
||
|
@@ -2,14 +2,15 @@ open Printf
|
||
|
open Cairo
|
||
|
open Bigarray
|
||
|
|
||
|
-let create() =
|
||
|
- let data = Array1.create int8_unsigned c_layout 360_000 in
|
||
|
+let create data =
|
||
|
Gc.finalise (fun _ -> eprintf "DESTROY bigarray 'data'\n%!") data;
|
||
|
let surf = Image.create_for_data8 data Image.RGB24 ~w:300 ~h:300 in
|
||
|
Cairo.create surf
|
||
|
|
||
|
+let data = Array1.create int8_unsigned c_layout 360_000;;
|
||
|
+
|
||
|
let () =
|
||
|
- let cr = create() in
|
||
|
+ let cr = create data in
|
||
|
set_source_rgb cr 1. 1. 1.;
|
||
|
rectangle cr 0. 0. ~w:300. ~h:300.;
|
||
|
fill cr;
|