loadPalette("../palettes/summer.color",TRUE); $MyData->addPoints(array(34,55,15,62,38,42),"Probe1"); $MyData->addPoints(array(5,10,8,9,15,10),"Probe1Weight"); $MyData->addPoints(array(5,10,-5,-1,0,-10),"Probe2"); $MyData->addPoints(array(6,10,14,10,14,6),"Probe2Weight"); $MyData->setSerieDescription("Probe1","This year"); $MyData->setSerieDescription("Probe2","Last year"); $MyData->setAxisName(0,"Current stock"); $MyData->addPoints(array("Apple","Banana","Orange","Lemon","Peach","Strawberry"),"Product"); $MyData->setAbscissa("Product"); /* Create the pChart object */ $myPicture = new pImage(700,230,$MyData); /* Draw the background */ $Settings = array("R"=>170, "G"=>183, "B"=>87, "Dash"=>1, "DashR"=>190, "DashG"=>203, "DashB"=>107); $myPicture->drawFilledRectangle(0,0,700,230,$Settings); /* Overlay with a gradient */ $Settings = array("StartR"=>219, "StartG"=>231, "StartB"=>139, "EndR"=>1, "EndG"=>138, "EndB"=>68, "Alpha"=>50); $myPicture->drawGradientArea(0,0,700,230,DIRECTION_VERTICAL,$Settings); $myPicture->drawGradientArea(0,0,700,20,DIRECTION_VERTICAL,array("StartR"=>0,"StartG"=>0,"StartB"=>0,"EndR"=>50,"EndG"=>50,"EndB"=>50,"Alpha"=>80)); /* Add a border to the picture */ $myPicture->drawRectangle(0,0,699,229,array("R"=>0,"G"=>0,"B"=>0)); /* Write the picture title */ $myPicture->setFontProperties(array("FontName"=>"../fonts/Silkscreen.ttf","FontSize"=>6)); $myPicture->drawText(10,13,"drawBubbleChart() - draw a linear bubble chart",array("R"=>255,"G"=>255,"B"=>255)); /* Write the title */ $myPicture->setFontProperties(array("FontName"=>"../fonts/Forgotte.ttf","FontSize"=>11)); $myPicture->drawText(40,55,"Current Stock / Needs chart",array("FontSize"=>14,"Align"=>TEXT_ALIGN_BOTTOMLEFT)); /* Change the default font */ $myPicture->setFontProperties(array("FontName"=>"../fonts/pf_arma_five.ttf","FontSize"=>6)); /* Create the Bubble chart object and scale up */ $myBubbleChart = new pBubble($myPicture,$MyData); /* Scale up for the bubble chart */ $bubbleDataSeries = array("Probe1","Probe2"); $bubbleWeightSeries = array("Probe1Weight","Probe2Weight"); $myBubbleChart->bubbleScale($bubbleDataSeries,$bubbleWeightSeries); /* Draw the 1st chart */ $myPicture->setGraphArea(40,60,430,190); $myPicture->drawFilledRectangle(40,60,430,190,array("R"=>255,"G"=>255,"B"=>255,"Surrounding"=>-50,"Alpha"=>10)); $myPicture->drawScale(array("DrawSubTicks"=>TRUE,"CycleBackground"=>TRUE)); $myPicture->setShadow(TRUE,array("X"=>1,"Y"=>1,"R"=>0,"G"=>0,"B"=>0,"Alpha"=>30)); $myBubbleChart->drawBubbleChart($bubbleDataSeries,$bubbleWeightSeries); /* Draw the 2nd scale */ $myPicture->setShadow(FALSE); $myPicture->setGraphArea(500,60,670,190); $myPicture->drawFilledRectangle(500,60,670,190,array("R"=>255,"G"=>255,"B"=>255,"Surrounding"=>-200,"Alpha"=>10)); $myPicture->drawScale(array("Pos"=>SCALE_POS_TOPBOTTOM,"DrawSubTicks"=>TRUE)); /* Draw the 2nd stock chart */ $myPicture->setShadow(TRUE,array("X"=>1,"Y"=>1,"R"=>0,"G"=>0,"B"=>0,"Alpha"=>30)); $myBubbleChart->drawbubbleChart($bubbleDataSeries,$bubbleWeightSeries,array("DrawBorder"=>TRUE,"Surrounding"=>60,"BorderAlpha"=>100)); /* Write the chart legend */ $myPicture->drawLegend(550,215,array("Style"=>LEGEND_NOBORDER,"Mode"=>LEGEND_HORIZONTAL)); /* Render the picture (choose the best way) */ $myPicture->autoOutput("pictures/example.drawBubbleChart.png"); ?>