diff options
| author | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2000-06-07 16:31:58 +0000 |
|---|---|---|
| committer | Jun FURUSE / 古瀬 淳 <jun.furuse@gmail.com> | 2000-06-07 16:31:58 +0000 |
| commit | cadb9fc8f535732fdf22f81f21a1f91f1b6bd027 (patch) | |
| tree | 5afb078d180519785bfc696dfa8ee839ceff479f /test/Moretest | |
| parent | 9e4ac3298c65fe71abfc3b80f82e071fd19c9fc0 (diff) | |
added test for transparent color drawing
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3193 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'test/Moretest')
| -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;; |