diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/Moretest/graph_example.ml | 2 | ||||
| -rw-r--r-- | test/Moretest/graph_test.ml | 12 |
2 files changed, 13 insertions, 1 deletions
diff --git a/test/Moretest/graph_example.ml b/test/Moretest/graph_example.ml index 9ddf971b6..6fbe988ce 100644 --- a/test/Moretest/graph_example.ml +++ b/test/Moretest/graph_example.ml @@ -8,7 +8,7 @@ *) open Graphics;; -open_graph "480x270";; +open_graph " 480x270";; let xr = size_x () / 2 - 30 and yr = size_y () / 2 - 26 diff --git a/test/Moretest/graph_test.ml b/test/Moretest/graph_test.ml index cbfb5a8a0..ad640ccdc 100644 --- a/test/Moretest/graph_test.ml +++ b/test/Moretest/graph_test.ml @@ -270,6 +270,18 @@ let fill_arc_ellipses x y r1 r2 = fill_arc_ellipses 400 240 150 200;; + +synchronize ();; + +(* transparent color drawing *) +set_color transp;; +draw_circle 400 240 50;; +draw_circle 400 240 40;; +draw_circle 400 240 30;; +(* try to go back a normal color *) +set_color red;; +draw_circle 400 240 20;; + synchronize ();; input_line stdin;; |