DIR : /home/kozerus/public_html/go/dgs/statratingspng.php

/home/kozerus/public_html/go/dgs

<?php
/*
Dragon Go Server
Copyright (C) 2001-  Erik Ouchterlony, Rod Ival, Jens-Uwe Gaspar

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as
published by the Free Software Foundation, either version 3 of the
License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU Affero General Public License for more details.

You should have received a copy of the GNU Affero General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

$TranslateGroups[] = "Users";

require_once 'include/std_functions.php';
require_once 'include/rating.php';
require_once 'include/graph.php';


//smaller kyu rank (used as offset for the curves)
define('MIN_RANK', round(MIN_RATING/100.0));


{
   connect2mysql();

   $logged_in = who_is_logged( $player_row, LOGIN_SKIP_UPDATE|LOGIN_SKIP_VFY_CHK );

   //disable translations in graph if not latin
   if ( preg_match( '/^iso-8859-/i', $encoding_used) )
   {
      $keep_english= false;
      $T_= 'T_';
   }
   else
   {
      $keep_english= true;
      $T_= 'fnop';
   }

   $Xlabelfct = function ( $x ) {
      return $x < (21 - MIN_RANK) ? (21 - MIN_RANK - $x) . 'k' : (MIN_RANK - 20 + $x) . 'd';
   };
   $Ylabelfct = function ( $x ) {
      return (string)$x;
   };

   $show_time= (int)(bool)@$_REQUEST['show_time'];
   $SizeX= ( @$_REQUEST['size'] > 0 ? $_REQUEST['size'] : 640 );
   $SizeX= min( 2048, max( 256, $SizeX ));
   $cache_it= ( CACHE_FOLDER>'' && !@$_REQUEST['no_cache'] && $SizeX==640 && !$show_time );

   if ( $cache_it )
   {
      $cache_name = CACHE_FOLDER . sprintf('cache_statratings-%s.png', get_user_cache_language());
      clearstatcache();
      $tmp= ((int)@filemtime($cache_name)) + CACHE_EXPIRE_GRAPH;
      if ( $tmp >= $NOW )
      {
         if ( image_passthru($cache_name, $NOW, $tmp) )
         {
            exit;
         }
      }
   }

   //prepare the graph

   $SizeY = $SizeX * 3 / 4;

   $gr = new Graph($SizeX, $SizeY, substr($bg_color, 1, -1));

   $black = $gr->getcolor(0, 0, 0);
   $red = $gr->getcolor(205, 159, 156);
   $light_blue = $gr->getcolor(220, 229, 255);
   $number_color = $gr->getcolor(250, 100, 98);


   //fetch and prepare datas

   list( $Xaxis, $graphs, $xlims, $ylims ) = get_ratings_data();
   $nr_points = count($Xaxis);

   $ymax = max( 1, $ylims['MAX']);
   $ymin = $ylims['MIN'];


   //start by drawing the headers to find the graph position

   $title_fmt= '%s';
   $title_sep= 4*max($gr->border, $gr->labelMetrics['WIDTH']);

   // $curves_min only works if $graph['max'] > 0
   $curves_min= 0;
   $y = $gr->border;
   $x = 0;
   $a = $gr->width-2*$title_sep;
   $m = 0;
   $cnt_graphs = count($graphs);
   for ( $i=0; $i < $cnt_graphs; $i++ )
   {
      $graph= &$graphs[$i];

      $graph['c'] = $gr->getcolor($graph['c']);

      $v= sprintf($title_fmt, $graph['name']);
      $b= $gr->labelbox($v);
      $b= $x+$b['x'];
      if ( $b > $a )
      {
         $b-= $x;
         $x = 0;
         $y+= $gr->labelMetrics['LINEH'];
      }

      $graph['label']= $v;
      $graph['labelX']= $x;
      $graph['labelY']= $y;

      $m= max($m,$b);
      $x= $b+$title_sep;
   }
   $title_align= $title_sep+($a-$m)/2;
   $title_bottom= $y+$gr->labelMetrics['LINEH'];


   //just a string sample to evaluate $marge_left
   $b= $gr->labelbox($Ylabelfct($ymax));
   $x= $b['x'];

   $y= $title_bottom + $gr->labelMetrics['HEIGHT'];
   $marge_left  = $gr->border+10 +$x;
   $marge_right = max(10,DASH_MODULO+2); //better if > DASH_MODULO
   $marge_top   = max($y,DASH_MODULO+2); //better if > DASH_MODULO
   $marge_bottom= $gr->border+ 1*$gr->labelMetrics['LINEH'];

   $gr->setgraphbox( $marge_left, $marge_top, $gr->width-$marge_right, $gr->height-$marge_bottom );


   //scale datas

   $gr->setgraphview( $xlims['MIN'], $ymax, $xlims['MAX'], $ymin );

   for ( $i=0; $i < $cnt_graphs; $i++ )
   {
      $graph= &$graphs[$i]['y'];
      $graph = $gr->mapscaleY($graph);
   }
   $Xaxis = $gr->mapscaleX($Xaxis);


   //vertical scaling

   $step = max( 1, pow(10, round( log10($ymax)-1.1 )));
   $start = ceil($ymin/$step)*$step;
   $gr->gridY( $start, $step, $gr->border, $Ylabelfct, $black, null, $black );

   //horizontal scaling

   $step = 1; //grads
   $y = $gr->boxbottom+3 ; //+1*$gr->labelMetrics['LINEH'];
   $gr->gridX( $xlims['MIN'], $step, $y, $Xlabelfct, $black, null, $red );


   //draw the curves

   for ( $i=0; $i < $cnt_graphs; $i++ )
   {
      $graph= &$graphs[$i];

      $gr->curve($Xaxis, $graph['y'], $nr_points, $graph['c']);
      $gr->label($title_align+$graph['labelX'], $graph['labelY'], $graph['label'], $graph['c']);
   }


   //misc drawings

   if ( $show_time )
      $gr->label( 0, 0, sprintf('%0.2f ms', (getmicrotime()-$page_microtime)*1000), $black);

   if ( $cache_it )
      grab_output_start();
   $gr->send_image();
   if ( $cache_it )
      grab_output_end( $cache_name);
}//main


function get_ratings_data()
{
   global $ActiveLevel1, $T_;

   $Xaxis = array();
   $graphs = array();
   $Xmin = 0;
   $Ymin = 0;

   $Ymaxmin = 1;
   for ( $g=0; $g<3 ;$g++ )
   {
      switch ( (int)$g )
      {
         case 0:
            $name = $T_('Active users');
            $query =
               "SELECT SQL_SMALL_RESULT ROUND(Rating2/100)-(".MIN_RANK.") as p_rank,COUNT(*) as cnt"
               . " FROM Players WHERE Rating2>=".MIN_RATING." AND Activity>$ActiveLevel1"
               . " GROUP BY p_rank ORDER BY p_rank" ;
            $color = array( 255,   0,   0);
            break;

         case 1:
            $name = $T_('Users');
            $query =
               "SELECT SQL_SMALL_RESULT ROUND(Rating2/100)-(".MIN_RANK.") as p_rank,COUNT(*) as cnt"
               . " FROM Players WHERE Rating2>=".MIN_RATING
               . " GROUP BY p_rank ORDER BY p_rank" ;
            $color = array( 255,   0, 200);
            break;

         case 2:
            $name = $T_('Rated games');
            /* Here, the sum of all cnt will be 2 times the number of rated games
             * because there are two players by game but is kept "as is"
             * to avoid to have some x.5 values in the graph
             * see also $cnt = (int)... below
             */
            $query =
               "SELECT SQL_SMALL_RESULT ROUND(Rating/100)-(".MIN_RANK.") as p_rank,COUNT(*) as cnt"
               . " FROM Ratinglog WHERE Rating>=".MIN_RATING
               . " GROUP BY p_rank ORDER BY p_rank" ;
            $color = array(   0, 180, 200);
            break;

         default:
            $query = '';
            $name = '';
            $color = 0;
            break;
      }//switch $g (for-index)

      if ( $query )
      {
         $result = db_query( 'statratingspng.query'.$g, $query );

         $i = count($graphs); //new graph index
         $graphs[$i] = array();
         $graphs[$i]['name'] = $name;
         $graphs[$i]['c'] = $color;
         $graphs[$i]['y'] = array();
         $graph= &$graphs[$i]['y'];
         $gmax = $Ymin;
         while ( $row = mysql_fetch_assoc($result) )
         {
            $rank = (int)@$row['p_rank'];
            $cnt = (int)@$row['cnt'];
            if ( $cnt > $gmax && $rank > 0 ) //exclude 30kyu from "max"
               $gmax = $cnt;
            $graph[$rank] = $cnt;
            $tmp = (int)@$Xaxis[$rank];
            $Xaxis[$rank] = $tmp + $cnt;
         }
         mysql_free_result($result);
         $graphs[$i]['max'] = $gmax;
         if ( $i == 0 )
            $Ymaxmin = $gmax;
         else if ( $Ymaxmin > $gmax )
            $Ymaxmin = $gmax;
      } //$query
   } //$graphs
   $nbg = count($graphs);

   //try to fit the graph drawings in similar spaces
   $Ymaxmin = max( $Ymaxmin, 10);
   $Ymax = $Ymin;
   for ( $i=0; $i<$nbg; $i++ )
   {
      $gmax = $graphs[$i]['max'];
      if ( $gmax > $Ymaxmin )
         $tmp = round(log10( $gmax/$Ymaxmin ));
      else
         $tmp = 0;
      if ( $tmp > 0 )
      {
         $rscale = pow(10,$tmp);
         $graphs[$i]['name'] .= ' / '.($tmp>3 ? "1e$tmp" : $rscale);
         $graphs[$i]['y'] = array_map(
            create_function('$n', 'return $n/'.$rscale.';'),
            $graphs[$i]['y']);
         $graphs[$i]['max'] /= $rscale;
         $gmax = $graphs[$i]['max'];
      }
      if ( $Ymax < $gmax )
         $Ymax = $gmax;
   } //$graphs


   ksort( $Xaxis);
   $Xmax = $Xmin;
   foreach ( $Xaxis as $rank => $cnt )
   {
      if ( $cnt > 0 )
         $Xmax = $rank;
   }
   while ( $rank > $Xmax )
   {
      for ( $i=$nbg-1 ; $i>=0 ; $i-- )
         unset($graphs[$i]['y'][$rank]);
      unset($Xaxis[$rank]);
      $rank--;
   }
   for ( $rank=$Xmin ; $rank<=$Xmax ; $rank++ )
   {
      for ( $i=$nbg-1 ; $i>=0 ; $i-- )
      {
         $graph= &$graphs[$i]['y'];
         if ( !isset($graph[$rank]) )
            $graph[$rank] = 0;
      }
      $Xaxis[$rank] = $rank;
   }

   ksort( $Xaxis);
   for ( $i=$nbg-1 ; $i>=0 ; $i-- )
      ksort($graphs[$i]['y']);

   $xlims = array('MIN'=>$Xmin, 'MAX'=>$Xmax);
   $ylims = array('MIN'=>$Ymin, 'MAX'=>$Ymax);

   return array( $Xaxis, $graphs, $xlims, $ylims );
}//get_ratings_data

?>