<?
include ("jpgraph/jpgraph.php");
include ("jpgraph/jpgraph_scatter.php");
include("jpgraph/jpgraph_line.php");
include("form.inc");
include("quest.inc");
include("data.inc");
include("scores.inc");

function processProjects($index) {
    $projects = getAnsweredProjects(0);
    $project_count = count($projects);
    $x = array();
    $count = 0;
    $avg = 0;
    for ( $i=0; $i < $project_count; $i++) {
        $project = $projects[$i];
        if (!$project[tarsize]) continue;
        $project_id = $project["id"];
        $answers = explodeList($project['answers']);
        $tmp = array_values(getScores($answers));
        $myscore = $tmp[$index];
        $x[$myscore]++; 
        $avg += $myscore;
        $count++;
    }
    return array($x, $count, round($avg/$count));
}

function drawScoreGraph($x, $count, $avg, $name, $miny, $maxy) {
    ksort($x);
    reset($x);
    #var_dump($x);

    $graph = new Graph(600,400,"auto");
    $graph->SetScale("intlin", $miny, $maxy);

    $lp = new LinePlot(array_values($x), array_keys($x));
    $graph->Add($lp);

    $avgdata = array(0, $maxy);
    $avgdata2 = array($avg, $avg);
    $avgline = new LinePlot($avgdata, $avgdata2);
    $avgline->setColor("red");

    $graph->Add($avgline);

    $graph->img->SetMargin(60,40,40,40);
    $graph->img->SetAntiAliasing(1);

    $graph->xgrid->Show(true,true);                  
    $graph->ygrid->Show(true,true);

    #$graph->SetShadow();

    $graph->title->SetFont(FF_ARIAL,FS_BOLD, 12);
    $graph->xaxis->title->SetFont(FF_VERDANA);
    $graph->yaxis->title->SetFont(FF_VERDANA);
    $graph->yaxis->HideTicks();
    $graph->yaxis->SetTitleMargin(40); 

    $graph->title->Set("Perfil do Índice de $name
$count projetos avaliados     Media do Índice: $avg");
    $graph->xaxis->title->Set("Esforço de $name");
    $graph->yaxis->title->Set("Número de Projetos");

    $lp->setColor("darkblue");
    $lp->setFillColor("lightblue");
    $lp->mark->SetType(MARK_FILLEDCIRCLE);
    $lp->mark->SetWidth(2);

    $graph->Stroke();
}

function makeScoreGraph($name, $index, $miny=0, $maxy=250) {
    $x = processProjects($index);
    drawScoreGraph($x[0], $x[1], $x[2], $name, $miny, $maxy);
}


?>