aboutsummaryrefslogtreecommitdiffstats
path: root/lib/percept/test/egd_SUITE.erl
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2016-05-14 22:10:55 +0200
committerBjörn-Egil Dahlberg <[email protected]>2016-05-14 22:10:55 +0200
commit16ca699226aab43871506572d1a9221895260ab6 (patch)
tree6b3b7038a7d53c49521e9e85fbbc79ed1d7700cc /lib/percept/test/egd_SUITE.erl
parentd378597c30bcdacfc0d440d9b8d9e4224ac1f54e (diff)
downloadotp-16ca699226aab43871506572d1a9221895260ab6.tar.gz
otp-16ca699226aab43871506572d1a9221895260ab6.tar.bz2
otp-16ca699226aab43871506572d1a9221895260ab6.zip
egd: Add more line tests
Add images to common_test logs.
Diffstat (limited to 'lib/percept/test/egd_SUITE.erl')
-rw-r--r--lib/percept/test/egd_SUITE.erl46
1 files changed, 46 insertions, 0 deletions
diff --git a/lib/percept/test/egd_SUITE.erl b/lib/percept/test/egd_SUITE.erl
index 3562ceae88..98a265ce61 100644
--- a/lib/percept/test/egd_SUITE.erl
+++ b/lib/percept/test/egd_SUITE.erl
@@ -32,6 +32,7 @@
image_primitives/1,
image_colors/1,
image_font/1,
+ image_fans/1,
image_png_compliant/1]).
suite() ->
@@ -41,6 +42,7 @@ suite() ->
all() ->
[image_create_and_destroy, image_shape,
image_primitives, image_colors, image_font,
+ image_fans,
image_png_compliant].
@@ -224,6 +226,50 @@ image_png_compliant(Config) when is_list(Config) ->
erase(image_size),
ok.
+image_fans(Config) when is_list(Config) ->
+ W = 1024,
+ H = 800,
+ Dir = proplists:get_value(priv_dir, Config),
+
+ Fun = fun({F,Args},Im) ->
+ erlang:apply(egd_primitives,F,[Im|Args])
+ end,
+
+ %% fan1
+ Ops1 = gen_vertical_fan(1,{0,400},egd:color(red),1024,800,-15),
+ Ops2 = gen_horizontal_fan(1,{512,800},egd:color(green),1024,0,-15),
+
+ Im0 = egd_primitives:create(W,H),
+ Im1 = lists:foldl(Fun, Im0, Ops1 ++ Ops2),
+ Bin1 = egd_render:binary(Im1, opaque),
+ Png1 = egd_png:binary(W,H,Bin1),
+
+ File1 = filename:join(Dir,"fan1.png"),
+ egd:save(Png1,File1),
+ ct:log("<p>Image1:<img src=\"~s\" /></p>~n", [File1]),
+
+ %% fan2
+ Ops3 = gen_vertical_fan(7,{0,400},egd:color(red),1024,800,-15),
+ Ops4 = gen_horizontal_fan(7,{512,800},egd:color(green),1024,0,-15),
+
+ Im2 = lists:foldl(Fun, Im0, Ops3 ++ Ops4),
+ Bin2 = egd_render:binary(Im2, opaque),
+ Png2 = egd_png:binary(W,H,Bin2),
+
+ File2 = filename:join(Dir,"fan2.png"),
+ egd:save(Png2,File2),
+ ct:log("<p>Image2:<img src=\"~s\" /></p>~n", [File2]),
+ ok.
+
+gen_vertical_fan(Wd,Pt,C,X,Y,Step) when Y > 0 ->
+ [{line,[Pt,{X,Y},Wd,C]}|gen_vertical_fan(Wd,Pt,C,X,Y + Step,Step)];
+gen_vertical_fan(_,_,_,_,_,_) -> [].
+
+gen_horizontal_fan(Wd,Pt,C,X,Y,Step) when X > 0 ->
+ [{line,[Pt,{X,Y},Wd,C]}|gen_horizontal_fan(Wd,Pt,C,X + Step,Y,Step)];
+gen_horizontal_fan(_,_,_,_,_,_) -> [].
+
+
%%----------------------------------------------------------------------
%% Auxiliary tests
%%----------------------------------------------------------------------