view release on metacpan or  search on metacpan

Graph.pm  view on Meta::CPAN

    $my_graph->set(
        'two_axes' => 1, #'no_axes' => 1,
        'x_label_skip' => 1,
        'y1_label_skip' => 1,
        'y2_label_skip' => 1,
        'title' => undef,				# as for the functions entry/exit lines, below.
        'x_ticks'  => 'true', 'x_tick_number' => 12,
        'y1_ticks' => 'true', 'y1_tick_number' => 12,
        'y2_ticks' => 'true', 'y2_tick_number' => 10,
        'transparent' => 1, 'box_axis' => 0, 'line_width' => 3,
      	'x_max_value'  => $self->{x_max_value},  'x_min_value'  => $self->{x_min_value},
      	'y1_max_value' => $self->{y1_max_value}, 'y1_min_value' => $self->{y1_min_value},
        'y2_max_value' => $self->{y2_max_value}, 'y2_min_value' => $self->{y2_min_value},
    );

    $my_graph->plot([$x_axis->{data}, $y1_axis->{data}, $y2_axis->{data}]) or die $my_graph->error;

    # Plot the function entries / exits
    $my_graph->set(
        'two_axes' => 1, 'no_axes' => 0,
        'x_label_skip'  => 1,
        'y1_label_skip' => 1,
        'y2_label_skip' => 1,
        'title' => undef,
        'x_ticks'  => 'true', 'x_tick_number' => 12,
        'y1_ticks' => 'true', 'y1_tick_number' => 12,
        'y2_ticks' => 'true', 'y2_tick_number' => 10,
        'transparent' => 1, 'box_axis' => 0, 'line_width' => 2,
    );

    my @needsLegends = ( $x_axis, $y1_axis, $y2_axis ); # We'll build legends from this array later.
    my @funcDataColors = ($y1_axis->{color}); # $graph->plot() needs this, below.

    # Plot the function entries / exits
	my @nullAxis; map { push @nullAxis, undef } @{$x_axis->{data}};
	my $allAxis = [$x_axis->{data}, \@nullAxis];
    for (my $axisIdx = 3; $axisIdx < $#{$axislist}; $axisIdx += 1 ) {
		my $axis = $axislist->[$axisIdx];