| … | |
… | |
| 181 | #use DynaLoader; |
181 | #use DynaLoader; |
| 182 | #use GD; |
182 | #use GD; |
| 183 | |
183 | |
| 184 | @WWPlot::ISA=undef; |
184 | @WWPlot::ISA=undef; |
| 185 | $WWPlot::AUTOLOAD = undef; |
185 | $WWPlot::AUTOLOAD = undef; |
| 186 | |
|
|
| 187 | @WWPlot::ISA = qw(GD); |
186 | @WWPlot::ISA = qw(GD PGcore); |
| 188 | |
187 | |
| 189 | |
188 | |
| 190 | if ( $GD::VERSION > '1.20' ) { |
189 | if ( $GD::VERSION > '1.20' ) { |
| 191 | $WWPlot::use_png = 1; # in version 1.20 and later of GD, gif's are not supported by png files are |
190 | $WWPlot::use_png = 1; # in version 1.20 and later of GD, gif's are not supported by png files are |
| 192 | # This only affects the draw method. |
191 | # This only affects the draw method. |
| … | |
… | |
| 211 | |
210 | |
| 212 | sub new { |
211 | sub new { |
| 213 | my $class =shift; |
212 | my $class =shift; |
| 214 | my @size = @_; # the dimensions in pixels of the image |
213 | my @size = @_; # the dimensions in pixels of the image |
| 215 | my $self = { im => new GD::Image(@size), |
214 | my $self = { im => new GD::Image(@size), |
| 216 | '_permitted' => \%fields, |
|
|
| 217 | %fields, |
215 | %fields, |
| 218 | size => [@size], |
216 | size => [@size], |
| 219 | fn => [], |
217 | fn => [], |
| 220 | fillRegion => [], |
218 | fillRegion => [], |
| 221 | lb => [], |
219 | lb => [], |