File Coverage

blib/lib/Chart/LinesPoints.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             ## @file
2             # Implementation of Chart::LinesPoints
3             #
4             # written by
5             # @author david bonner (dbonner@cs.bu.edu)
6             #
7             # maintained by the
8             # @author Chart Group at Geodetic Fundamental Station Wettzell (Chart@fs.wettzell.de)
9             # @date 2012-10-03
10             # @version 2.4.6
11             #
12              
13             ## @class Chart::LinesPoints
14             # LinesPoints class connect the given x-/y-values by straight lines and the x-/y-values are plotted by points.
15             #
16             # This class provides all functions which are specific to
17             # lines
18             #
19              
20             package Chart::LinesPoints;
21              
22 8     8   20612 use Chart::Base '2.4.6';
  0            
  0            
23             use GD;
24             use Carp;
25             use strict;
26              
27             @Chart::LinesPoints::ISA = qw(Chart::Base);
28             $Chart::LinesPoints::VERSION = '2.4.6';
29              
30             #>>>>>>>>>>>>>>>>>>>>>>>>>>#
31             # public methods go here #
32             #<<<<<<<<<<<<<<<<<<<<<<<<<<#
33              
34             #>>>>>>>>>>>>>>>>>>>>>>>>>>>#
35             # private methods go here #
36             #<<<<<<<<<<<<<<<<<<<<<<<<<<<#
37              
38             ## @fn private _draw_data
39             # draw the data
40             sub _draw_data
41             {
42             my $self = shift;
43             my $data = $self->{'dataref'};
44             my $misccolor = $self->_color_role_to_index('misc');
45             my ( $x1, $x2, $x3, $y1, $y2, $y3, $mod, $abs_x_max, $abs_y_max );
46             my ( $width, $height, $delta, $map, $t_x_min, $t_x_max, $t_y_min, $t_y_max );
47             my ( $i, $j, $color, $brush, $zero_offset, $delta_num );
48             my $repair_top_flag = 0;
49             my $repair_bottom_flag = 0;
50             my $diff;
51              
52             # init the imagemap data field if they want it
53             if ( $self->true( $self->{'imagemap'} ) )
54             {
55             $self->{'imagemap_data'} = [];
56             }
57              
58             # find the delta value between data points, as well
59             # as the mapping constant
60             $width = $self->{'curr_x_max'} - $self->{'curr_x_min'};
61             $height = $self->{'curr_y_max'} - $self->{'curr_y_min'};
62             $delta = $width / ( $self->{'num_datapoints'} > 0 ? $self->{'num_datapoints'} : 1 );
63             $diff = ( $self->{'max_val'} - $self->{'min_val'} );
64             $diff = 1 if $diff == 0;
65             $map = $height / $diff;
66              
67             # get the base x-y values
68             if ( $self->true( $self->{'xy_plot'} ) )
69             {
70             $x1 = $self->{'curr_x_min'};
71             }
72             else
73             {
74             $x1 = $self->{'curr_x_min'} + ( $delta / 2 );
75             }
76             if ( $self->{'min_val'} >= 0 )
77             {
78             $y1 = $self->{'curr_y_max'};
79             $mod = $self->{'min_val'};
80             }
81             elsif ( $self->{'max_val'} <= 0 )
82             {
83             $y1 = $self->{'curr_y_min'};
84             $mod = $self->{'max_val'};
85             }
86             else
87             {
88             $y1 = $self->{'curr_y_min'} + ( $map * $self->{'max_val'} );
89             $mod = 0;
90             $self->{'gd_obj'}->line( $self->{'curr_x_min'}, $y1, $self->{'curr_x_max'}, $y1, $misccolor );
91             }
92              
93             #for a xy-plot, use this delta and maybe an offset for the zero-axes
94             if ( $self->true( $self->{'xy_plot'} ) )
95             {
96             my ( $xmin, $xmax ) = ( $self->{'x_min_val'}, $self->{'x_max_val'} );
97             if ( $self->{'xlabels'} )
98             {
99             ( $xmin, $xmax ) = @{ $self->{'xrange'} };
100             }
101             $diff = $xmax - $xmin;
102             $diff = 1 if $diff == 0;
103             $delta_num = $width / $diff;
104              
105             if ( $xmin <= 0 && $xmax >= 0 )
106             {
107             $zero_offset = abs($xmin) * abs($delta_num);
108             }
109             elsif ( $xmin > 0 || $xmax < 0 )
110             {
111             $zero_offset = -$xmin * $delta_num;
112             }
113             else
114             {
115             $zero_offset = 0;
116             }
117             }
118              
119             # draw the lines
120             for $i ( 1 .. $self->{'num_datasets'} )
121             {
122              
123             # get the color for this dataset, and set the brush
124             $color = $self->_color_role_to_index( 'dataset' . ( $i - 1 ) );
125             $brush = $self->_prepare_brush( $color, 'line', 'dataset' . ( $i - 1 ) );
126             $self->{'gd_obj'}->setBrush($brush);
127              
128             # draw every line for this dataset
129             for $j ( 1 .. $self->{'num_datapoints'} )
130             {
131              
132             # don't try to draw anything if there's no data
133             if ( defined( $data->[$i][$j] ) and defined( $data->[$i][ $j - 1 ] ) )
134             {
135             if ( $self->true( $self->{'xy_plot'} ) )
136             {
137             $x2 = $x1 + $delta_num * $data->[0][ $j - 1 ] + $zero_offset;
138             $x3 = $x1 + $delta_num * $data->[0][$j] + $zero_offset;
139             }
140             else
141             {
142             $x2 = $x1 + ( $delta * ( $j - 1 ) );
143             $x3 = $x1 + ( $delta * $j );
144             }
145             $y2 = $y1 - ( ( $data->[$i][ $j - 1 ] - $mod ) * $map );
146             $y3 = $y1 - ( ( $data->[$i][$j] - $mod ) * $map );
147              
148             #set the flags, if the lines are out of the borders of the chart
149             if ( ( $data->[$i][$j] > $self->{'max_val'} ) || ( $data->[$i][ $j - 1 ] > $self->{'max_val'} ) )
150             {
151             $repair_top_flag = 1;
152             }
153              
154             if ( ( $self->{'max_val'} <= 0 )
155             && ( ( $data->[$i][$j] > $self->{'max_val'} ) || ( $data->[$i][ $j - 1 ] > $self->{'max_val'} ) ) )
156             {
157             $repair_top_flag = 1;
158             }
159             if ( ( $data->[$i][$j] < $self->{'min_val'} ) || ( $data->[$i][ $j - 1 ] < $self->{'min_val'} ) )
160             {
161             $repair_bottom_flag = 1;
162             }
163              
164             # draw the line
165             # ----------------
166             # stepline option added by G.ST. 2005/02
167             #----------------
168             if ( $self->true( $self->{'stepline'} ) )
169             {
170             if ( $self->{'stepline_mode'} =~ /^begin$/i )
171             {
172             $self->{'gd_obj'}->line( $x2, $y2, $x3, $y2, gdBrushed );
173             $self->{'gd_obj'}->line( $x3, $y2, $x3, $y3, gdBrushed );
174             }
175             else
176             {
177             $self->{'gd_obj'}->line( $x2, $y2, $x2, $y3, gdBrushed );
178             $self->{'gd_obj'}->line( $x2, $y3, $x3, $y3, gdBrushed );
179             }
180             }
181              
182             # -----------------------------------
183             # end stepline option
184             #------------------------------------
185             else
186             {
187             $self->{'gd_obj'}->line( $x2, $y2, $x3, $y3, gdBrushed );
188             }
189             }
190             }
191              
192             # reset the brush for points
193             $brush = $self->_prepare_brush( $color, 'point', 'dataset' . ( $i - 1 ) );
194             $self->{'gd_obj'}->setBrush($brush);
195              
196             # draw every point for this dataset
197             for $j ( 0 .. $self->{'num_datapoints'} )
198             {
199              
200             # don't try to draw anything if there's no data
201             if ( defined( $data->[$i][$j] ) )
202             {
203             if ( $self->true( $self->{'xy_plot'} ) )
204             {
205             $x2 = $x1 + $delta_num * $data->[0][$j] + $zero_offset;
206             $x3 = $x2;
207             }
208             else
209             {
210             $x2 = $x1 + ( $delta * $j );
211             $x3 = $x2;
212             }
213             $y2 = $y1 - ( ( $data->[$i][$j] - $mod ) * $map );
214             $y3 = $y2;
215              
216             # draw the point
217             $self->{'gd_obj'}->line( $x2, $y2, $x3, $y3, gdBrushed );
218              
219             # remember the imagemap data if they wanted it
220             if ( $self->true( $self->{'imagemap'} ) )
221             {
222             $self->{'imagemap_data'}->[$i][$j] = [ $x2, $y2 ];
223             }
224             }
225             else
226             {
227             if ( $self->true( $self->{'imagemap'} ) )
228             {
229             $self->{'imagemap_data'}->[$i][$j] = [ undef(), undef() ];
230             }
231             }
232             }
233             }
234              
235             # and finaly box it off
236             $self->{'gd_obj'}
237             ->rectangle( $self->{'curr_x_min'}, $self->{'curr_y_min'}, $self->{'curr_x_max'}, $self->{'curr_y_max'}, $misccolor );
238              
239             #get the width and the heigth of the complete picture
240             ( $abs_x_max, $abs_y_max ) = $self->{'gd_obj'}->getBounds();
241              
242             #repair the chart, if the lines are out of the borders of the chart
243             if ($repair_top_flag)
244             {
245              
246             #overwrite the ugly mistakes
247             # $self->{'gd_obj'}->filledRectangle ($self->{'curr_x_min'}, 0,
248             $self->{'gd_obj'}->filledRectangle(
249             $self->{'curr_x_min'} - ( $self->{'brush_size'} / 2 ),
250             0, $self->{'curr_x_max'},
251             $self->{'curr_y_min'} - 2,
252             $self->_color_role_to_index('background')
253             );
254              
255             #save the actual x and y values
256             $t_x_min = $self->{'curr_x_min'};
257             $t_x_max = $self->{'curr_x_max'};
258             $t_y_min = $self->{'curr_y_min'};
259             $t_y_max = $self->{'curr_y_max'};
260              
261             #get back to the point, where everything began
262             $self->{'curr_x_min'} = 0;
263             $self->{'curr_y_min'} = 0;
264             $self->{'curr_x_max'} = $abs_x_max;
265             $self->{'curr_y_max'} = $abs_y_max;
266              
267             #draw the title again
268             if ( $self->{'title'} )
269             {
270             $self->_draw_title;
271             }
272              
273             #draw the sub title again
274             if ( $self->{'sub_title'} )
275             {
276             $self->_draw_sub_title;
277             }
278              
279             #draw the top legend again
280             if ( $self->{'legend'} =~ /^top$/i )
281             {
282             $self->_draw_top_legend;
283             }
284              
285             #reset the actual values
286             $self->{'curr_x_min'} = $t_x_min;
287             $self->{'curr_x_max'} = $t_x_max;
288             $self->{'curr_y_min'} = $t_y_min;
289             $self->{'curr_y_max'} = $t_y_max;
290             }
291              
292             if ($repair_bottom_flag)
293             {
294              
295             #overwrite the ugly mistakes
296             # $self->{'gd_obj'}->filledRectangle ($self->{'curr_x_min'}, $self->{'curr_y_max'}+1,
297             $self->{'gd_obj'}->filledRectangle(
298             $self->{'curr_x_min'} - ( $self->{'brush_size'} / 2 ),
299             $self->{'curr_y_max'} + 1,
300             $self->{'curr_x_max'}, $abs_y_max, $self->_color_role_to_index('background')
301             );
302              
303             #save the actual x and y values
304             $t_x_min = $self->{'curr_x_min'};
305             $t_x_max = $self->{'curr_x_max'};
306             $t_y_min = $self->{'curr_y_min'};
307             $t_y_max = $self->{'curr_y_max'};
308              
309             #get back to the point, where everything began
310             $self->{'curr_x_min'} = 0;
311             $self->{'curr_y_min'} = 0;
312             $self->{'curr_x_max'} = $abs_x_max;
313             $self->{'curr_y_max'} = $abs_y_max - 1;
314              
315             # mark off the graph_border space
316             $self->{'curr_y_max'} -= 2 * $self->{'graph_border'};
317              
318             #draw the bottom legend again
319             if ( $self->{'legend'} =~ /^bottom$/i )
320             {
321             $self->_draw_bottom_legend;
322             }
323              
324             #draw the x label again
325             if ( $self->{'x_label'} )
326             {
327             $self->_draw_x_label;
328             }
329              
330             #get back to the start point for the ticks
331             $self->{'curr_x_min'} = $self->{'temp_x_min'};
332             $self->{'curr_y_min'} = $self->{'temp_y_min'};
333             $self->{'curr_x_max'} = $self->{'temp_x_max'};
334             $self->{'curr_y_max'} = $self->{'temp_y_max'};
335              
336             #draw the x ticks again
337             $self->_draw_x_ticks;
338              
339             #reset the actual values
340             $self->{'curr_x_min'} = $t_x_min;
341             $self->{'curr_x_max'} = $t_x_max;
342             $self->{'curr_y_min'} = $t_y_min;
343             $self->{'curr_y_max'} = $t_y_max;
344             }
345              
346             return;
347              
348             }
349              
350             ## be a good module and return 1
351             1;