[imager-graph.git] / t / t21style_api.t

#!perl -w
use strict;
use Imager::Graph::Pie;
use lib 't/lib';
use Imager::Font::Test;
use Test::More;

++$|;

use Imager qw(:handy);

plan tests => 3;

my $font = Imager::Font::Test->new();

my @data;

for (0 .. 10) {
    push @data, $_;
}

my $api_graph = Imager::Graph::Pie->new();
$api_graph->add_data_series(\@data, 'Positive Slope');
$api_graph->set_style('ocean');
$api_graph->set_labels([0 .. 10]);

$api_graph->set_image_width(800);
$api_graph->set_image_height(600);
$api_graph->set_graph_size(500);
$api_graph->set_font($font);
$api_graph->set_image_background('FF00FF');
$api_graph->set_channels(3);
$api_graph->set_line_color('00FF00');
$api_graph->set_title('Tester Title');
$api_graph->set_title_font_size(14);
$api_graph->set_title_font_color('444444');
$api_graph->set_title_horizontal_align('left');
$api_graph->set_title_vertical_align('bottom');
$api_graph->set_text_font_size(18);
$api_graph->set_text_font_color('FFFFFF');
$api_graph->set_graph_background_color('00FF00');
$api_graph->set_graph_foreground_color('FF00FF');
$api_graph->set_legend_font_color('0000FF');
$api_graph->set_legend_font($font);
$api_graph->set_legend_font_size(17);
$api_graph->set_legend_patch_size(30);
$api_graph->set_legend_patch_gap(20);
$api_graph->set_legend_horizontal_align('left');
$api_graph->set_legend_vertical_align('top');
$api_graph->set_legend_padding(5);
$api_graph->set_legend_outside_padding(12);
$api_graph->set_legend_fill('000000');
$api_graph->set_legend_border('222222');
$api_graph->set_legend_orientation('horizontal');
$api_graph->set_callout_font_color('FF0000');
$api_graph->set_callout_font($font);
$api_graph->set_callout_font_size(45);
$api_graph->set_callout_line_color('FF2211');
$api_graph->set_callout_leader_inside_length(10);
$api_graph->set_callout_leader_outside_length(20);
$api_graph->set_callout_leader_length(30);
$api_graph->set_callout_gap(5);
$api_graph->set_label_font_color('55FFFF');
$api_graph->set_label_font($font);
$api_graph->set_label_font_size(16);
$api_graph->set_drop_shadow_fill_color('113333');
$api_graph->set_drop_shadow_offset(25);
$api_graph->set_drop_shadowXOffset(30);
$api_graph->set_drop_shadowYOffset(5);
$api_graph->set_drop_shadow_filter({ type=>'mosaic', size => 20 });
$api_graph->set_outline_color('FF00FF');
$api_graph->set_data_area_fills([qw(FF0000 00FF00 0000FF)]);
$api_graph->set_data_line_colors([qw(FF0000 00FF00 0000FF)]);

my $api_img = $api_graph->draw(
    features => [qw(legend outline labels)],
) || die $api_graph->error;

ok($api_img);

my $style_graph = Imager::Graph::Pie->new();

$style_graph->add_data_series(\@data, 'Positive Slope');
$style_graph->set_style('ocean');
$style_graph->set_labels([0 .. 10]);

my $style_img = $style_graph->draw(
    features => [qw(legend outline labels)],
    font    => $font, # base font                              * set_font()
    back    => 'FF00FF', # Background color/fill                  - set_image_background()
    size    => 500, # Size of the graph                      * set_size()
    width   => 800, # width of the image                     * set_width()
    height  => 600, # height of the image                    * set_height()
    channels => 3, # # of channels in the image            - set_channels()
    line    => '00FF00', # color of lines                         - set_line_color()
    title   => {
        text    => 'Tester Title', # title for the chart                * set_title()
        size    => '14', # size of the title font             - set_title_font_size()
        color   => '444444', # color of the title                 - set_title_font_color()
        halign  => 'left', # horizontal alignment of the title  - set_title_horizontal_align()
        valign  => 'bottom', # vertical alignment of the title    - set_title_vertical_align()
    },
    text    => {
        color   => 'FFFFFF', # default color of text              - set_text_font_color()
        size    => '18', # default size of text               - set_text_font_size()
    },
    bg      => '00FF00', # background color of the graph          - set_graph_background_color()
    fg      => 'FF00FF', # foreground color of the graph          - set_graph_foreground_color()
    legend  => {
        color   => '0000FF', # text color for the legend          - set_legend_font_color()
        font    => $font, # font to be used for the legend     - set_legend_font()
        size    => 17, # font size to be used for labels
                        # in the legend                     - set_legend_font_size()
        patchsize   => 30, # the size in pixels? percent?   - set_legend_patch_size()
                           # of the color patches in
                           # the legend.
        patchgap    => 20, # gap between the color patches. - set_legend_patch_gap()
                           # in pixels?  percent?
        halign      => 'left', # horizontal alignment of the    - set_legend_horizontal_align()
                           # legend within the graph
        valign      => 'top', # vertical alignment of the      - set_legend_vertical_align()
                           # legend within the graph
        padding     => '5', # the space between the patches  - set_legend_padding()
                           # of color and the outside of
                           # the legend box
        outsidepadding  => '12', # the space between the      - set_legend_outside_padding()
                               # border of the legend,
                               # and the outside edge of the
                               # legend
        fill            => '000000', # A fill for the background  - set_legend_fill()
                               # of the legend.
        border          => '222222', # The color of the border of - set_legend_border()
                               # the legend.
        orientation     => 'horizontal', # the orientation of the     - set_legend_orientation()
                               # legend
    },
    callout => {
        color   => 'FF0000', # the color of the callout text      - set_callout_font_color()
        font    => $font, # the font to use for callouts       - set_callout_font()
        size    => 45, # the font size for callout text     - set_callout_font_size()
        line    => 'FF2211', # the color of the line from the     - set_callout_line_color()
                       # callout to the graph
        inside  => '10', # the length in pixels? of the       - set_callout_leader_inside_length()
                       # leader...
        outside => '20', # the other side of the leader?      - set_callout_leader_outside_length()
        leadlen => '30', # the length of the horizontal       - set_callout_leader_length()
                       # part of the leader
        gap     => '5', # the space between the callout      - set_callout_gap()
                       # leader and the callout text
    },
    label   => {
        color   => '55FFFF', # the color of the label text        - set_label_font_color()
        font    => $font, # font used for labels               - set_label_font()
        size    => 16, # the font size used for labels      - set_label_font_size()
    },
    dropshadow  => {
        fill    => '113333', # the color used for drop shadows    - set_drop_shadow_fill_color()
        off     => 25, # the offset of the dropshadow...    - set_drop_shadow_offset()
                       # in percent?  pixels?
        offx    => 30, # horizontal offset of the           - set_drop_shadowXOffset()
                       # dropshadow
        offy    => 5, # vertical offset of the dropshadow  - set_drop_shadowYOffset()
        filter  => { type=>'mosaic', size => 20 },

                       # the filter description passed to   - set_drop_shadow_filter()
                       # Imager's filter method to blur
                       # the drop shadow. Default: an 11
                       # element convolution filter.
    },
    outline => {
        line    => 'FF00FF', # the color of the outline           - set_outline_color()
                       # around data areas
    },
    fills   => [
        qw(FF0000 00FF00 0000FF)
        # An array ref describing how to fill data areas    - set_data_area_fills()
        # in the graph.  used by pie, column, stacked
        # column graphs
    ],
    colors  => [
        qw(FF0000 00FF00 0000FF)
        # An array ref of colors, used by line graphs.      - set_data_line_colors()
    ],

) || die $style_graph->error;

ok($api_img);

my ($api_content, $style_content);

$style_img->write(data => \$style_content, type=>'raw') or die "Err: ".$style_img->errstr;
$api_img->write(data  => \$api_content,  type=>'raw') or die "Err: ".$api_img->errstr;

ok($style_content eq $api_content);
Commit	Line	Data
2eac77fc	1	#!perl -w
	2	use strict;
	3	use Imager::Graph::Pie;
	4	use lib 't/lib';
	5	use Imager::Font::Test;
	6	use Test::More;
	7
	8	++$\|;
	9
	10	use Imager qw(:handy);
	11
	12	plan tests => 3;
	13
	14	my $font = Imager::Font::Test->new();
	15
	16	my @data;
	17
	18	for (0 .. 10) {
	19	push @data, $_;
	20	}
	21
	22	my $api_graph = Imager::Graph::Pie->new();
	23	$api_graph->add_data_series(\@data, 'Positive Slope');
	24	$api_graph->set_style('ocean');
	25	$api_graph->set_labels([0 .. 10]);
	26
	27	$api_graph->set_image_width(800);
	28	$api_graph->set_image_height(600);
	29	$api_graph->set_graph_size(500);
	30	$api_graph->set_font($font);
	31	$api_graph->set_image_background('FF00FF');
	32	$api_graph->set_channels(3);
	33	$api_graph->set_line_color('00FF00');
	34	$api_graph->set_title('Tester Title');
	35	$api_graph->set_title_font_size(14);
	36	$api_graph->set_title_font_color('444444');
	37	$api_graph->set_title_horizontal_align('left');
	38	$api_graph->set_title_vertical_align('bottom');
	39	$api_graph->set_text_font_size(18);
	40	$api_graph->set_text_font_color('FFFFFF');
	41	$api_graph->set_graph_background_color('00FF00');
	42	$api_graph->set_graph_foreground_color('FF00FF');
	43	$api_graph->set_legend_font_color('0000FF');
	44	$api_graph->set_legend_font($font);
	45	$api_graph->set_legend_font_size(17);
	46	$api_graph->set_legend_patch_size(30);
	47	$api_graph->set_legend_patch_gap(20);
	48	$api_graph->set_legend_horizontal_align('left');
	49	$api_graph->set_legend_vertical_align('top');
	50	$api_graph->set_legend_padding(5);
	51	$api_graph->set_legend_outside_padding(12);
	52	$api_graph->set_legend_fill('000000');
	53	$api_graph->set_legend_border('222222');
	54	$api_graph->set_legend_orientation('horizontal');
	55	$api_graph->set_callout_font_color('FF0000');
	56	$api_graph->set_callout_font($font);
	57	$api_graph->set_callout_font_size(45);
	58	$api_graph->set_callout_line_color('FF2211');
	59	$api_graph->set_callout_leader_inside_length(10);
	60	$api_graph->set_callout_leader_outside_length(20);
	61	$api_graph->set_callout_leader_length(30);
	62	$api_graph->set_callout_gap(5);
	63	$api_graph->set_label_font_color('55FFFF');
	64	$api_graph->set_label_font($font);
65	$api_graph->set_label_font_size(16);
66	$api_graph->set_drop_shadow_fill_color('113333');
67	$api_graph->set_drop_shadow_offset(25);
68	$api_graph->set_drop_shadowXOffset(30);
69	$api_graph->set_drop_shadowYOffset(5);
70	$api_graph->set_drop_shadow_filter({ type=>'mosaic', size => 20 });
71	$api_graph->set_outline_color('FF00FF');
72	$api_graph->set_data_area_fills([qw(FF0000 00FF00 0000FF)]);
73	$api_graph->set_data_line_colors([qw(FF0000 00FF00 0000FF)]);
74
75	my $api_img = $api_graph->draw(
76	features => [qw(legend outline labels)],
77	) \|\| die $api_graph->error;
78
79	ok($api_img);
80
81	my $style_graph = Imager::Graph::Pie->new();
82
83	$style_graph->add_data_series(\@data, 'Positive Slope');
84	$style_graph->set_style('ocean');
85	$style_graph->set_labels([0 .. 10]);
86
87	my $style_img = $style_graph->draw(
88	features => [qw(legend outline labels)],
89	font => $font, # base font * set_font()
90	back => 'FF00FF', # Background color/fill - set_image_background()
91	size => 500, # Size of the graph * set_size()
92	width => 800, # width of the image * set_width()
93	height => 600, # height of the image * set_height()
94	channels => 3, # # of channels in the image - set_channels()
95	line => '00FF00', # color of lines - set_line_color()
96	title => {
97	text => 'Tester Title', # title for the chart * set_title()
98	size => '14', # size of the title font - set_title_font_size()
99	color => '444444', # color of the title - set_title_font_color()
100	halign => 'left', # horizontal alignment of the title - set_title_horizontal_align()
101	valign => 'bottom', # vertical alignment of the title - set_title_vertical_align()
102	},
103	text => {
104	color => 'FFFFFF', # default color of text - set_text_font_color()
105	size => '18', # default size of text - set_text_font_size()
106	},
107	bg => '00FF00', # background color of the graph - set_graph_background_color()
108	fg => 'FF00FF', # foreground color of the graph - set_graph_foreground_color()
109	legend => {
110	color => '0000FF', # text color for the legend - set_legend_font_color()
111	font => $font, # font to be used for the legend - set_legend_font()
112	size => 17, # font size to be used for labels
113	# in the legend - set_legend_font_size()
114	patchsize => 30, # the size in pixels? percent? - set_legend_patch_size()
115	# of the color patches in
116	# the legend.
117	patchgap => 20, # gap between the color patches. - set_legend_patch_gap()
118	# in pixels? percent?
119	halign => 'left', # horizontal alignment of the - set_legend_horizontal_align()
120	# legend within the graph
121	valign => 'top', # vertical alignment of the - set_legend_vertical_align()
122	# legend within the graph
123	padding => '5', # the space between the patches - set_legend_padding()
124	# of color and the outside of
125	# the legend box
126	outsidepadding => '12', # the space between the - set_legend_outside_padding()
127	# border of the legend,
128	# and the outside edge of the
129	# legend
130	fill => '000000', # A fill for the background - set_legend_fill()
131	# of the legend.
132	border => '222222', # The color of the border of - set_legend_border()
133	# the legend.
134	orientation => 'horizontal', # the orientation of the - set_legend_orientation()
135	# legend
136	},
137	callout => {
138	color => 'FF0000', # the color of the callout text - set_callout_font_color()
139	font => $font, # the font to use for callouts - set_callout_font()
140	size => 45, # the font size for callout text - set_callout_font_size()
141	line => 'FF2211', # the color of the line from the - set_callout_line_color()
142	# callout to the graph
143	inside => '10', # the length in pixels? of the - set_callout_leader_inside_length()
144	# leader...
145	outside => '20', # the other side of the leader? - set_callout_leader_outside_length()
146	leadlen => '30', # the length of the horizontal - set_callout_leader_length()
147	# part of the leader
148	gap => '5', # the space between the callout - set_callout_gap()
149	# leader and the callout text
150	},
151	label => {
152	color => '55FFFF', # the color of the label text - set_label_font_color()
153	font => $font, # font used for labels - set_label_font()
154	size => 16, # the font size used for labels - set_label_font_size()
155	},
156	dropshadow => {
157	fill => '113333', # the color used for drop shadows - set_drop_shadow_fill_color()
158	off => 25, # the offset of the dropshadow... - set_drop_shadow_offset()
159	# in percent? pixels?
160	offx => 30, # horizontal offset of the - set_drop_shadowXOffset()
161	# dropshadow
162	offy => 5, # vertical offset of the dropshadow - set_drop_shadowYOffset()
163	filter => { type=>'mosaic', size => 20 },
164
165	# the filter description passed to - set_drop_shadow_filter()
166	# Imager's filter method to blur
167	# the drop shadow. Default: an 11
168	# element convolution filter.
169	},
170	outline => {
171	line => 'FF00FF', # the color of the outline - set_outline_color()
172	# around data areas
173	},
174	fills => [
175	qw(FF0000 00FF00 0000FF)
176	# An array ref describing how to fill data areas - set_data_area_fills()
177	# in the graph. used by pie, column, stacked
178	# column graphs
179	],
180	colors => [
181	qw(FF0000 00FF00 0000FF)
182	# An array ref of colors, used by line graphs. - set_data_line_colors()
183	],
184
185	) \|\| die $style_graph->error;
186
187	ok($api_img);
188
189	my ($api_content, $style_content);
190
191	$style_img->write(data => \$style_content, type=>'raw') or die "Err: ".$style_img->errstr;
192	$api_img->write(data => \$api_content, type=>'raw') or die "Err: ".$api_img->errstr;
193
2eac77fc	194	ok($style_content eq $api_content);
	195
	196
	197