gosa-core/include/pChart/HomePage3.php

   1 <?php\r
   2  /*\r
   3      Example21 : A single stacked bar graph\r
   4  */\r
   5 \r
   6  // Standard inclusions   \r
   7  include("pChart/pData.class");\r
   8  include("pChart/pChart.class");\r
   9 \r
  10  // Dataset definition \r
  11  $DataSet = new pData;\r
  12  $DataSet->AddPoint(array(1,2,5),"Serie1");\r
  13  $DataSet->AddPoint(array(3,2,2),"Serie2");\r
  14  $DataSet->AddPoint(array(3,4,1),"Serie3");\r
  15  $DataSet->AddPoint(array("A#~1","A#~2","A#~3"),"Labels");\r
  16  $DataSet->AddAllSeries();\r
  17  $DataSet->RemoveSerie("Labels");\r
  18  $DataSet->SetAbsciseLabelSerie("Labels");\r
  19  $DataSet->SetSerieName("Alpha","Serie1");\r
  20  $DataSet->SetSerieName("Beta","Serie2");\r
  21  $DataSet->SetSerieName("Gama","Serie3");\r
  22  $DataSet->SetXAxisName("Samples IDs");\r
  23  $DataSet->SetYAxisName("Test Marker");\r
  24  $DataSet->SetYAxisUnit("µm");\r
  25 \r
  26  // Initialise the graph\r
  27  $Test = new pChart(380,400);\r
  28  $Test->drawGraphAreaGradient(90,90,90,90,TARGET_BACKGROUND);\r
  29 \r
  30  // Graph area setup\r
  31  $Test->setFontProperties("Fonts/pf_arma_five.ttf",6);\r
  32  $Test->setGraphArea(110,180,350,360);\r
  33  $Test->drawGraphArea(213,217,221,FALSE);\r
  34  $Test->drawScale($DataSet->GetData(),$DataSet->GetDataDescription(),SCALE_ADDALLSTART0,213,217,221,TRUE,0,2,TRUE);\r
  35  $Test->drawGraphAreaGradient(40,40,40,-50);\r
  36  $Test->drawGrid(4,TRUE,230,230,230,5);\r
  37 \r
  38  // Draw the title   \r
  39  $Test->setFontProperties("Fonts/tahoma.ttf",10);\r
  40  $Title = "  Average growth size for selected\r\n  DNA samples  ";   \r
  41  $Test->setLineStyle(2);\r
  42  $Test->drawLine(51,-2,51,402,0,0,0);   \r
  43  $Test->setLineStyle(1);\r
  44  $Test->drawTextBox(0,0,50,400,$Title,90,255,255,255,ALIGN_BOTTOM_CENTER,TRUE,0,0,0,30);   \r
  45  $Test->setFontProperties("Fonts/pf_arma_five.ttf",6);\r
  46 \r
  47  // Draw the bar graph\r
  48  $Test->drawStackedBarGraph($DataSet->GetData(),$DataSet->GetDataDescription(),70);\r
  49 \r
  50  // Second chart\r
  51  $DataSet->SetXAxisName("");\r
  52  $Test->clearScale();\r
  53  $Test->setGraphArea(110,20,350,140);\r
  54  $Test->drawGraphArea(213,217,221,FALSE);\r
  55  $Test->drawScale($DataSet->GetData(),$DataSet->GetDataDescription(),SCALE_START0,213,217,221,TRUE,0,2);\r
  56  $Test->drawGraphAreaGradient(40,40,40,-50);\r
  57  $Test->drawGrid(4,TRUE,230,230,230,5);\r
  58 \r
  59  // Draw the line chart\r
  60  $Test->setShadowProperties(0,3,0,0,0,30,4);\r
  61  $Test->drawFilledCubicCurve($DataSet->GetData(),$DataSet->GetDataDescription(),.1,40);\r
  62  $Test->clearShadow();\r
  63 \r
  64  // Write the legend\r
  65  $Test->drawLegend(-2,3,$DataSet->GetDataDescription(),0,0,0,0,0,0,255,255,255,FALSE);\r
  66 \r
  67  // Finish the graph\r
  68  $Test->addBorder(1);\r
  69  $Test->Render("HomePage2.png");\r
  70 ?>