DRF - Fuentes

Este script hace uso del módulo Chart::Mountain para la generación de gráficos.

use Chart::Mountain;
local $ancho = 700;
local $alto  = 400;
local $g = Chart::Mountain->new($ancho,$alto);
$g->add_dataset(@etiquetasX);
$g->add_dataset(@metricas);
$g->set ('title' => $titulo);
$g->set('legend_labels' => [$descripciones[$tipo]]);
$g->set('colors' => {
                        'y_label' => [0,0,255],
                        'y_label2' => [0,255,0],
                        'y_grid_lines' => [127,127,0],
                        'dataset0' => 'green'
                    });
$g->set ('xy_plot' => 1);
$g->set ('sub_title' => "$fechadesde - $fechahasta");
$g->set ('y_label' => $descripciones[$tipo]);
$g->set ('y_grid_lines' => 'true');
$g->set ('legend' => 'bottom');
$g->set ('pt_size' => '4');
$g->set ('x_ticks' => 'vertical');
$g->set ('precision' => 1);
$g->set ('brush_size' => 3);
$g->set ('line_size' => 2);
$g->cgi_png();