addTitle("Mutli-Layer Gantt Chart Demo", "timesbi.ttf", 15, 0xffffff); $textBoxObj->setBackground(0x006000); # Set the plotarea at (140, 55) and of size 460 x 200 pixels. Use alternative # white/grey background. Enable both horizontal and vertical grids by setting their # colors to grey (c0c0c0). Set vertical major grid (represents month boundaries) 2 # pixels in width $plotAreaObj = $c->setPlotArea(140, 55, 460, 200, 0xffffff, 0xeeeeee, LineColor, 0xc0c0c0, 0xc0c0c0); $plotAreaObj->setGridWidth(2, 1, 1, 1); # swap the x and y axes to create a horziontal box-whisker chart $c->swapXY(); # Set the y-axis scale to be date scale from Aug 16, 2004 to Nov 22, 2004, with ticks # every 7 days (1 week) $c->yAxis->setDateScale(chartTime(2004, 8, 16), chartTime(2004, 11, 22), 86400 * 7); # Add a red (ff0000) dash line to represent the current day $c->yAxis->addMark(chartTime(2004, 10, 8), $c->dashLineColor(0xff0000, DashLine)); # Set multi-style axis label formatting. Month labels are in Arial Bold font in "mmm # d" format. Weekly labels just show the day of month and use minor tick (by using # '-' as first character of format string). $c->yAxis->setMultiFormat(StartOfMonthFilter(), "<*font=arialbd.ttf*>{value|mmm d}", StartOfDayFilter(), "-{value|d}"); # Set the y-axis to shown on the top (right + swapXY = top) $c->setYAxisOnRight(); # Set the labels on the x axis $c->xAxis->setLabels($labels); # Reverse the x-axis scale so that it points downwards. $c->xAxis->setReverse(); # Set the horizontal ticks and grid lines to be between the bars $c->xAxis->setTickOffset(0.5); # Use blue (0000aa) as the color for the planned schedule $plannedColor = 0x0000aa; # Use a red hash pattern as the color for the actual dates. The pattern is created as # a 4 x 4 bitmap defined in memory as an array of colors. $actualColor = $c->patternColor(array(0xffffff, 0xffffff, 0xffffff, 0xff0000, 0xffffff, 0xffffff, 0xff0000, 0xffffff, 0xffffff, 0xff0000, 0xffffff, 0xffffff, 0xff0000, 0xffffff, 0xffffff, 0xffffff), 4); # Add a box whisker layer to represent the actual dates. We add the actual dates # layer first, so it will be the top layer. $actualLayer = $c->addBoxLayer($actualStartDate, $actualEndDate, $actualColor, "Actual"); # Set the bar height to 8 pixels so they will not block the bottom bar $actualLayer->setDataWidth(8); # Add a box-whisker layer to represent the planned schedule date $boxLayerObj = $c->addBoxLayer($startDate, $endDate, $plannedColor, "Planned"); $boxLayerObj->setBorderColor(SameAsMainColor); # Add a legend box on the top right corner (595, 60) of the plot area with 8 pt Arial # Bold font. Use a semi-transparent grey (80808080) background. $b = $c->addLegend(595, 60, false, "arialbd.ttf", 8); $b->setAlignment(TopRight); $b->setBackground(0x80808080, -1, 2); # output the chart header("Content-type: image/png"); print($c->makeChart2(PNG)); ?>