Changeset 121 for trunk/matml/webselector/php/plot.php

Timestamp:

10/26/2004 05:24:02 PM (8 years ago)

Author:

kstemen

Message:

Added categorization.

Files:

• trunk/matml/webselector/php/plot.php (modified) (4 diffs)

trunk/matml/webselector/php/plot.php

@@ -3 +3 @@
 include("dbquery.php.inc");
 
+//by "likavcan at NOSPAN sturak nospan dot sk" at from php.net 
+function arrow($im, $x1, $y1, $x2, $y2, $alength, $awidth, $color) {
+
+   $distance = sqrt(pow($x1 - $x2, 2) + pow($y1 - $y2, 2));
+
+   $dx = $x2 + ($x1 - $x2) * $alength / $distance;
+   $dy = $y2 + ($y1 - $y2) * $alength / $distance;
+   $k = $awidth / $alength;
+
+   $x2o = $x2 - $dx;
+   $y2o = $dy - $y2;
+
+   $x3 = $y2o * $k + $dx;
+   $y3 = $x2o * $k + $dy;
+
+   $x4 = $dx - $y2o * $k;
+   $y4 = $dy - $x2o * $k;
+
+   imageline($im, $x1, $y1, $dx, $dy, $color);
+   imageline($im, $x3, $y3, $x4, $y4, $color);
+   imageline($im, $x3, $y3, $x2, $y2, $color);
+   imageline($im, $x2, $y2, $x4, $y4, $color);
+
+}
+
+function calc_tickscale($max_value,$min_ticks,$max_labels)
+{
+    //First see how many labels we can get in
+    $tickscale=pow(10,floor(log($max_value,10)));
+    while($max_value/$tickscale*10<=$max_labels)
+        $tickscale/=10;
+    //That's as far as we can break up the labels for powers of 10.
+    //Maybe we can break it up by 5 or 2
+    $ticks=$max_value/$tickscale;
+    $divisions=1;
+    if($ticks*5<=$max_labels)
+        $divisions=5;
+    else if($ticks*2<=$max_labels)
+        $divisions=2;
+    $tickscale/=$divisions;
+    $ticks*=$divisions;
+
+    //Label interval is how many ticks to have before a label
+    $label_interval=1;
+    if($ticks*$divisions<$min_ticks&&$divisions!=1)
+    {
+        //the tickscale needs to be broken up more for the ticks
+        //(but not labels). Gotta undo the last factor then for the ticks.
+        $label_interval=10/$divisions;
+        $tickscale/=10/$divisions;
+    }
+
+    //Do we still need to break the ticks up more?
+    while($max_value/$tickscale<$min_ticks)
+    {
+        if($max_value/$tickscale*2>=$min_ticks)
+        {
+            $label_interval*=2;
+            $tickscale/=2;
+            break;
+        }
+        if($max_value/$tickscale*5>=$min_ticks)
+        {
+            $label_interval*=5;
+            $tickscale/=5;
+            break;
+        }
+        $label_interval*=10;
+        $tickscale/=10;
+    }
+    return array($tickscale,$label_interval);
+}
+
 //Request arguments
 
-$plottype = $_REQUEST['plot'];
+if(isset($_REQUEST['plot']))
+    $plottype = $_REQUEST['plot'];
+else
+    $plottype = 'EvsYield';
 if(isset($_REQUEST['log']))
     $log = $_REQUEST['log'];
 else
     $log = 0;
-
+if(isset($_REQUEST['selected']))
+    $selected = $_REQUEST['selected'];
+else
+    $selected = '';
+$categorizations=array(array(""=>0),array("Metals"=>0,"Polymers"=>1,"Ceramics"=>2,"Fibers"=>1));
+if(isset($_REQUEST['categorization']))
+    $categorization=$categorizations[$_REQUEST['categorization']];
+else
+    $categorization=$categorizations[0];
 
 //get the values from the database with these function
-list($valuesX, $valuesY, $names, $xlabel, $ylabel) = db_get_plot_values($plottype, $log);
+list($valuesX, $valuesY, $names, $xlabel, $ylabel, $categories) = db_get_plot_values($plottype, $log, $categorization);
 
 $number_mat = count($names);
 
 
-$Isize = 450;
-
-$image = ImageCreate($Isize, $Isize);
+$Iwidth=600;
+$Iheight=450;
+
+$left_border=35;
+$top_border=1;
+$right_border=1;
+$bottom_border=50;
+
+$inside_border=5;
+$tick_length=4;
+$axis_value_label_size=12;
+
+$image = ImageCreate($Iwidth, $Iheight);
 
 $white  = ImageColorAllocate($image, 255, 255, 255);
 $grey   = ImageColorAllocate($image, 220, 220, 220);
 $black  = ImageColorAllocate($image, 0, 0, 0);
-$blue   = ImageColorAllocate($image, 0, 123, 255);
-
-
-ImageRectangle($image, 0, 0, 449, 449, $black);
-ImageFilledRectangle($image, 20, 20, 430, 430, $grey);
-ImageRectangle($image, 20, 20, 430, 430, $black);
+$category_colors=array(ImageColorAllocate($image, 0, 0, 255),ImageColorAllocate($image, 255, 0, 0),ImageColorAllocate($image, 0, 255, 0));
+$selected_color   = ImageColorAllocate($image, 255, 255, 255);
+
+$bgcolor   = ImageColorAllocate($image, 0xe5, 0xe8, 0xb2);
 
 // For using a nice font
-
-$font = "vixar.ttf";
-
-//$valuesX = array(0,10,20,30);
-//$valuesY = array(0,10,20,30);
-//$number_mat =array(1,10,20,30);
-// Hardcoded sizes for the plot, better to be left alone
-
-$width  = 380;
-$height = 380;
-
-$x_initial = 20;
-$y_initial = 380;
+$axis_value_font = "helcr.ttf";
+$font = "CaslonBold.ttf";
+
+//Figure out extra left border for y axis values
+if($log == 1){
+}
+else{
+    $ymax=max($valuesY);
+    $yscale = ($Iheight-$top_border-$bottom_border-2*$inside_border) / $ymax;
+
+    list($ytickscale,$ylabel_interval)=calc_tickscale($ymax,20,25);
+
+    $widest_label_width=0;
+    for($valueY=0; $valueY<$ymax; $valueY+=$ylabel_interval*$ytickscale)
+    {
+        $label_width=imagettfbbox($axis_value_label_size,0,$axis_value_font,$valueY);
+        $label_width=$label_width[2];
+        if($label_width>$widest_label_width)
+            $widest_label_width=$label_width;
+    }
+    $left_border+=$widest_label_width;
+}
+
+ImageFilledRectangle($image, 0, 0, $Iwidth, $Iheight, $bgcolor);
+//ImageRectangle($image, 0, 0, 449, 449, $black);
+ImageFilledRectangle($image, $left_border, $top_border, $Iwidth-$right_border-1, $Iheight-$bottom_border-1, $grey);
+//ImageRectangle($image, 20, 20, 430, 430, $black);
+arrow($image,$left_border,$Iheight-$bottom_border,$Iwidth-$right_border,$Iheight-$bottom_border,4,4,$black);
+arrow($image,$left_border,$Iheight-$bottom_border,$left_border,0,4,4,$black);
 
 // Broken Log scale Attempt
@@ -62 +170 @@
 }
 else{
-  $width_bar  = 0.90  * $width / max($valuesX);
-  $height_bar = 0.90 * $height / max($valuesY);
+    $xmax=max($valuesX);
+    $xscale  = ($Iwidth-$left_border-$right_border-2*$inside_border) / $xmax;
+
+    //Draw in the scale ticks on the axes
+    
+    //We'll estimate the widest label value as the width of xmax
+    //This isn't entirely correct because a decimal point can occur based
+    //on the divisions
+    $label_width=imagettfbbox($axis_value_label_size,0,$axis_value_font,floor($xmax));
+    $label_width=$label_width[2]+15; //+15 for padding
+    list($xtickscale,$xlabel_interval)=calc_tickscale($xmax,20,($Iwidth-$left_border-$right_border)/$label_width);
+
+    for($i=0,$valueX=0; $valueX<$xmax; $i++,$valueX+=$xtickscale)
+    {
+        $x = $left_border + $inside_border + $xscale * $valueX;
+        $y = $Iheight - $bottom_border;
+        $label_width=imagettfbbox($axis_value_label_size,0,$axis_value_font,$valueY);
+        $label_width=$label_width[2];
+        if($i%$xlabel_interval==0)
+        {
+            imageline($image, $x, $y-$tick_length/2, $x, $y+$tick_length, $black);
+            $label_width=imagettfbbox($axis_value_label_size,0,$axis_value_font,$valueX);
+            $label_height=-$label_width[7];
+            $label_width=$label_width[2];
+            imagettftext($image,$axis_value_label_size,0,$x-$label_width/2-1,$Iheight-$bottom_border+$label_height+$tick_length/2+4,$black,$axis_value_font,$valueX);
+        }
+        else
+            imageline($image, $x, $y-.5*$tick_length/2, $x, $y+.5*$tick_length, $black);
+    }
+    for($i=0,$valueY=0; $valueY<$ymax; $i++,$valueY+=$ytickscale)
+    {
+        $x = $left_border;
+        $y = $Iheight - $bottom_border - $inside_border - $yscale * $valueY;
+        if($y<10)
+            break;
+        if($i%$ylabel_interval==0)
+        {
+            imageline($image, $x+$tick_length/2, $y, $x-$tick_length, $y, $black);
+            $label_width=imagettfbbox($axis_value_label_size,0,$axis_value_font,$valueY);
+            $label_width=$label_width[2];
+            imagettftext($image,$axis_value_label_size,0,$left_border-$label_width-$tick_length/2-4,$y+6,$black,$axis_value_font,$valueY);
+        }
+        else
+            imageline($image, $x+.5*$tick_length/2, $y, $x-.5*$tick_length, $y, $black);
+    }
 }
 
@@ -76 +227 @@
   }
  else{
-    $x = $x_initial + $width_bar * $valuesX[$i];
-    $y = $y_initial - $height_bar * $valuesY[$i];
+    $x = $left_border + $inside_border + $xscale * $valuesX[$i];
+    $y = $Iheight - $bottom_border - $inside_border - $yscale * $valuesY[$i];
   }
   
@@ -84 +235 @@
   // echo "X: $valuesX[$i] Y: $valuesY[$i]<br>";
 
-
+    if($selected==$names[$i])
+        $color=$selected_color;
+    else
+        $color=$category_colors[$categories[$i]];
   ImageFilledRectangle($image, $x - 2, $y - 2, $x + 2, 
-                       $y + 2, $blue);
+                       $y + 2, $color);
   ImageRectangle($image, $x - 2, $y - 2, $x + 2, 
                  $y + 2, $black);
   
-  imagettftext($image, 14, 0, $x-25, $y-3, $black, $font, $names[$i]);
-}
-  imagettftext($image, 14, 0, .75 * $Isize/2, $Isize * 0.99, $black, $font, $xlabel);
-  imagettftext($image, 14, 90, 15 , 1.25*($Isize)/2, $black, $font, $ylabel);
+  //imagettftext($image, 14, 0, $x-25, $y-3, $black, $font, $names[$i]);
+}
+$label_width=imagettfbbox(14,0,$font,$xlabel);
+$label_width=$label_width[2];
+imagettftext($image, 14, 0, $left_border+($Iwidth-$left_border-$right_border)/2-$label_width/2, $Iheight-5, $black, $font, $xlabel);
+
+$label_width=imagettfbbox(14,0,$font,$ylabel);
+$label_width=$label_width[2];
+imagettftext($image, 14, 90, 17 , ($Iheight-$top_border-$bottom_border)/2+$label_width/2, $black, $font, $ylabel);
 
 Header("Content-Type: image/png");