linespoints.t
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:1k
源码类别:

SNMP编程

开发平台:

C/C++

  1. use lib './t';
  2. use strict;
  3. use GIFgraph::linespoints;
  4. $::WRITE = 0;
  5. require 'ff.pl';
  6. my @data = ( 
  7. ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
  8. [    1,    2,    5,    6,    3,  1.5,    1,     3,     4],
  9. [    3,    7,    8,    2,    4,  1.5,    2,     5,     1]
  10. );
  11. my @opts = (
  12. {},
  13. {
  14. 'x_label'  => 'X Label',
  15. 'y_label'  => 'Y label',
  16. 'title'  => 'A line and point chart',
  17. 'y_max_value'  => 10,
  18. 'y_tick_number' => 5,
  19. 'y_label_skip'  => 2,
  20. 'x_ticks' => 1,
  21. 'axis_space' => 8,
  22. 'transparent' => 1,
  23. 'interlaced' => 1,
  24. 'markers' => [ 7, 5 ],
  25. 'marker_size' => 8,
  26. },
  27. );
  28. print "1..1n";
  29. ($::WARN) && warn "n";
  30. foreach my $i (1)
  31. {
  32. my $fn = 't/linespoints' . $i . '.gif';
  33. my $checkImage = get_test_data($fn);
  34. my $opts = $opts[$i];
  35. my $g = new GIFgraph::linespoints( );
  36. $g->set( %$opts );
  37. my $Image = $g->plot( @data );
  38. print (($checkImage eq $Image ? "ok" : "not ok"). " $in");
  39. ($::WARN) && warn (($checkImage eq $Image ? "ok" : "not ok"). " $in");
  40. write_file($fn, $Image) if ($::WRITE);
  41. }