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

SNMP编程

开发平台:

C/C++

  1. use lib './t';
  2. use strict;
  3. use GIFgraph::bars;
  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'  => 'X2 Label',
  15. 'y_label'  => 'Y2 label',
  16. 'title'  => 'A Double axis Bar Chart',
  17. 'y_max_value'  => 20,
  18. 'y_tick_number' => 5,
  19. 'y_label_skip'  => 2,
  20. 'logo' => 't/logo.gif',
  21. 'logo_resize' => 0.5,
  22. 'logo_position' => 'UR',
  23. 't_margin' => 20,
  24. 'r_margin' => 20,
  25. 'l_margin' => 20,
  26. 'b_margin' => 20,
  27. 'long_ticks' => 1,
  28. 'x_ticks' => 1,
  29. 'two_axes' => 1,
  30. 'axis_space' => 8,
  31. },
  32. {
  33. 'x_label'  => 'X Label',
  34. 'y_label'  => 'Y label',
  35. 'title'  => 'A Simple Bar Chart',
  36. 'y_max_value'  => 8,
  37. 'y_tick_number' => 8,
  38. 'y_label_skip'  => 2,
  39. 'transparent' => 1,
  40. 'interlaced' => 1,
  41. 'bgclr' => 'blue',
  42. 'fgclr' => 'lyellow',
  43. 'textclr' => 'lred',
  44. 'labelclr' => 'lblue',
  45. 'axislabelclr' => 'lgreen',
  46. 'accentclr' => 'lgray',
  47. },
  48. );
  49. print "1..2n";
  50. ($::WARN) && warn "n";
  51. foreach my $i (1..2)
  52. {
  53. my $fn = 't/bars' . $i . '.gif';
  54. my $checkImage = get_test_data($fn);
  55. my $opts = $opts[$i];
  56. my $g = new GIFgraph::bars( );
  57. $g->set( %$opts );
  58. my $Image = $g->plot( @data );
  59. print (($checkImage eq $Image ? "ok" : "not ok"). " $in");
  60. ($::WARN) && warn (($checkImage eq $Image ? "ok" : "not ok"). " $in");
  61. write_file($fn, $Image) if ($::WRITE);
  62. }