vertical-graph-tester.raku

#!/usr/bin/env raku

use lib 'lib';
use Terminal::Graphing::BarChart::Vertical;


say "X and Y axis\n";
my $x_and_y_axis_graph = Terminal::Graphing::BarChart::Vertical.new(
    data => [0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100],
    graph_height => 10,
    x_axis_labels => <a b c d e f g h i j k>,
    y_axis_labels => <0 1 2 3 4 5 6 7 8 9>
);

$x_and_y_axis_graph.print();

say "\n\nX and Y axis without space between columns\n";
$x_and_y_axis_graph = Terminal::Graphing::BarChart::Vertical.new(
    data => [0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100],
    graph_height => 10,
    x_axis_labels => <a b c d e f g h i j k>,
    y_axis_labels => <0 1 2 3 4 5 6 7 8 9>,
    space_between_columns => False
);
$x_and_y_axis_graph.print();

say "\n\nJust Y axis\n";
my $y_axis_graph = Terminal::Graphing::BarChart::Vertical.new(
    data => [0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100],
    graph_height => 10,
    y_axis_labels => <0 1 2 3 4 5 6 7 8 9>,
    space_between_columns => True
);
$y_axis_graph.print();


say "\n\nWide X axis labels\n";
$x_and_y_axis_graph = Terminal::Graphing::BarChart::Vertical.new(
    data => [0, 10, 20, 30],
    graph_height => 10,
    x_axis_labels => <alpha beta charlie delta>,
    y_axis_labels => <0 1 2 3 4 5 6 7 8 9>
);

$x_and_y_axis_graph.print();

say "\n\nWide Y axis labels\n";
$x_and_y_axis_graph = Terminal::Graphing::BarChart::Vertical.new(
    data => [0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100],
    graph_height => 10,
    x_axis_labels => <a b c d e f g h i j k>,
    y_axis_labels => <alpha bravo charlie delta echo foxtrot golf hotel india juliet>,
);
$x_and_y_axis_graph.print();