Subversion Repositories Applications.papyrus

<?php

/*=======================================================================

// File:	JPGRAPH_GANTT.PHP

// Description:	JpGraph Gantt plot extension

// Created: 	2001-11-12

// Ver:		$Id: jpgraph_gantt.php 791 2006-10-19 18:52:41Z ljp $

//

// Copyright (c) Aditus Consulting. All rights reserved.

//========================================================================

*/

require_once('jpgraph_plotband.php');

require_once('jpgraph_iconplot.php');

require_once('jpgraph_plotmark.inc.php');

// Maximum size for Automatic Gantt chart

DEFINE('MAX_GANTTIMG_SIZE_W',4000);

DEFINE('MAX_GANTTIMG_SIZE_H',5000);

// Scale Header types

DEFINE("GANTT_HDAY",1);

DEFINE("GANTT_HWEEK",2);

DEFINE("GANTT_HMONTH",4);

DEFINE("GANTT_HYEAR",8);

DEFINE("GANTT_HHOUR",16);

DEFINE("GANTT_HMIN",32);

// Bar patterns

DEFINE("GANTT_RDIAG",BAND_RDIAG);	// Right diagonal lines

DEFINE("GANTT_LDIAG",BAND_LDIAG); // Left diagonal lines

DEFINE("GANTT_SOLID",BAND_SOLID); // Solid one color

DEFINE("GANTT_VLINE",BAND_VLINE); // Vertical lines

DEFINE("GANTT_HLINE",BAND_HLINE);  // Horizontal lines

DEFINE("GANTT_3DPLANE",BAND_3DPLANE);  // "3D" Plane

DEFINE("GANTT_HVCROSS",BAND_HVCROSS);  // Vertical/Hor crosses

DEFINE("GANTT_DIAGCROSS",BAND_DIAGCROSS); // Diagonal crosses

// Conversion constant

DEFINE("SECPERDAY",3600*24);

// Locales. ONLY KEPT FOR BACKWARDS COMPATIBILITY

// You should use the proper locale strings directly

// from now on.

DEFINE("LOCALE_EN","en_UK");

DEFINE("LOCALE_SV","sv_SE");

// Layout of bars

DEFINE("GANTT_EVEN",1);

DEFINE("GANTT_FROMTOP",2);

// Style for minute header

DEFINE("MINUTESTYLE_MM",0);		// 15

DEFINE("MINUTESTYLE_CUSTOM",2);		// Custom format

// Style for hour header

DEFINE("HOURSTYLE_HM24",0);		// 13:10

DEFINE("HOURSTYLE_HMAMPM",1);		// 1:10pm

DEFINE("HOURSTYLE_H24",2);		// 13

DEFINE("HOURSTYLE_HAMPM",3);		// 1pm

DEFINE("HOURSTYLE_CUSTOM",4);		// User defined

// Style for day header

DEFINE("DAYSTYLE_ONELETTER",0);		// "M"

DEFINE("DAYSTYLE_LONG",1);		// "Monday"

DEFINE("DAYSTYLE_LONGDAYDATE1",2);	// "Monday 23 Jun"

DEFINE("DAYSTYLE_LONGDAYDATE2",3);	// "Monday 23 Jun 2003"

DEFINE("DAYSTYLE_SHORT",4);		// "Mon"

DEFINE("DAYSTYLE_SHORTDAYDATE1",5);	// "Mon 23/6"

DEFINE("DAYSTYLE_SHORTDAYDATE2",6);	// "Mon 23 Jun"

DEFINE("DAYSTYLE_SHORTDAYDATE3",7);	// "Mon 23"

DEFINE("DAYSTYLE_SHORTDATE1",8);	// "23/6"

DEFINE("DAYSTYLE_SHORTDATE2",9);	// "23 Jun"

DEFINE("DAYSTYLE_SHORTDATE3",10);	// "Mon 23"

DEFINE("DAYSTYLE_SHORTDATE4",11);	// "23"

DEFINE("DAYSTYLE_CUSTOM",12);		// "M"

// Styles for week header

DEFINE("WEEKSTYLE_WNBR",0);

DEFINE("WEEKSTYLE_FIRSTDAY",1);

DEFINE("WEEKSTYLE_FIRSTDAY2",2);

DEFINE("WEEKSTYLE_FIRSTDAYWNBR",3);

DEFINE("WEEKSTYLE_FIRSTDAY2WNBR",4);

// Styles for month header

DEFINE("MONTHSTYLE_SHORTNAME",0);

DEFINE("MONTHSTYLE_LONGNAME",1);

DEFINE("MONTHSTYLE_LONGNAMEYEAR2",2);

DEFINE("MONTHSTYLE_SHORTNAMEYEAR2",3);

DEFINE("MONTHSTYLE_LONGNAMEYEAR4",4);

DEFINE("MONTHSTYLE_SHORTNAMEYEAR4",5);

DEFINE("MONTHSTYLE_FIRSTLETTER",6);

// Types of constrain links

DEFINE('CONSTRAIN_STARTSTART',0);

DEFINE('CONSTRAIN_STARTEND',1);

DEFINE('CONSTRAIN_ENDSTART',2);

DEFINE('CONSTRAIN_ENDEND',3);

// Arrow direction for constrain links

DEFINE('ARROW_DOWN',0);

DEFINE('ARROW_UP',1);

DEFINE('ARROW_LEFT',2);

DEFINE('ARROW_RIGHT',3);

// Arrow type for constrain type

DEFINE('ARROWT_SOLID',0);

DEFINE('ARROWT_OPEN',1);

// Arrow size for constrain lines

DEFINE('ARROW_S1',0);

DEFINE('ARROW_S2',1);

DEFINE('ARROW_S3',2);

DEFINE('ARROW_S4',3);

DEFINE('ARROW_S5',4);

// Activity types for use with utility method CreateSimple()

DEFINE('ACTYPE_NORMAL',0);

DEFINE('ACTYPE_GROUP',1);

DEFINE('ACTYPE_MILESTONE',2);

DEFINE('ACTINFO_3D',1);

DEFINE('ACTINFO_2D',0);

// Check if array_fill() exists

if (!function_exists('array_fill')) {

    function array_fill($iStart, $iLen, $vValue) {

	$aResult = array();

	for ($iCount = $iStart; $iCount < $iLen + $iStart; $iCount++) {

	    $aResult[$iCount] = $vValue;

	}

	return $aResult;

    }

}

//===================================================

// CLASS GanttActivityInfo

// Description:

//===================================================

class GanttActivityInfo {

    public $iShow=true;

    public $iLeftColMargin=4,$iRightColMargin=1,$iTopColMargin=1,$iBottomColMargin=3;

    public $vgrid = null;

    private $iColor='black';

    private $iBackgroundColor='lightgray';

    private $iFFamily=FF_FONT1,$iFStyle=FS_NORMAL,$iFSize=10,$iFontColor='black';

    private $iTitles=array();

    private $iWidth=array(),$iHeight=-1;

    private $iTopHeaderMargin = 4;

    private $iStyle=1;

    private $iHeaderAlign='center';

    function GanttActivityInfo() {

	$this->vgrid = new LineProperty();

    }

    function Hide($aF=true) {

	$this->iShow=!$aF;

    }

    function Show($aF=true) {

	$this->iShow=$aF;

    }

    // Specify font

    function SetFont($aFFamily,$aFStyle=FS_NORMAL,$aFSize=10) {

	$this->iFFamily = $aFFamily;

	$this->iFStyle	 = $aFStyle;

	$this->iFSize	 = $aFSize;

    }

    function SetStyle($aStyle) {

	$this->iStyle = $aStyle;

    }

    function SetColumnMargin($aLeft,$aRight) {

	$this->iLeftColMargin = $aLeft;

	$this->iRightColMargin = $aRight;

    }

    function SetFontColor($aFontColor) {

	$this->iFontColor = $aFontColor;

    }

    function SetColor($aColor) {

	$this->iColor = $aColor;

    }

    function SetBackgroundColor($aColor) {

	$this->iBackgroundColor = $aColor;

    }

    function SetColTitles($aTitles,$aWidth=null) {

	$this->iTitles = $aTitles;

	$this->iWidth = $aWidth;

    }

    function SetMinColWidth($aWidths) {

	$n = min(count($this->iTitles),count($aWidths));

	for($i=0; $i < $n; ++$i ) {

	    if( !empty($aWidths[$i]) ) {

		if( empty($this->iWidth[$i]) ) {

		    $this->iWidth[$i] = $aWidths[$i];

		}

		else {

		    $this->iWidth[$i] = max($this->iWidth[$i],$aWidths[$i]);

		}

	    }

	}

    }

    function GetWidth($aImg) {

	$txt = new TextProperty();

	$txt->SetFont($this->iFFamily,$this->iFStyle,$this->iFSize);

	$n = count($this->iTitles) ;

	$rm=$this->iRightColMargin;

	$w = 0;

	for($h=0, $i=0; $i < $n; ++$i ) {

	    $w += $this->iLeftColMargin;

	    $txt->Set($this->iTitles[$i]);

	    if( !empty($this->iWidth[$i]) ) {

		$w1 = max($txt->GetWidth($aImg)+$rm,$this->iWidth[$i]);

	    }

	    else {

		$w1 = $txt->GetWidth($aImg)+$rm;

	    }

	    $this->iWidth[$i] = $w1;

	    $w += $w1;

	    $h = max($h,$txt->GetHeight($aImg));

	}

	$this->iHeight = $h+$this->iTopHeaderMargin;

        $txt='';

	return $w;

    }

    function GetColStart($aImg,&$aStart,$aAddLeftMargin=false) {

	$n = count($this->iTitles) ;

	$adj = $aAddLeftMargin ? $this->iLeftColMargin : 0;

	$aStart=array($aImg->left_margin+$adj);

	for( $i=1; $i < $n; ++$i ) {

	    $aStart[$i] = $aStart[$i-1]+$this->iLeftColMargin+$this->iWidth[$i-1];

	}

    }

    // Adjust headers left, right or centered

    function SetHeaderAlign($aAlign) {

	$this->iHeaderAlign=$aAlign;

    }

    function Stroke($aImg,$aXLeft,$aYTop,$aXRight,$aYBottom,$aUseTextHeight=false) {

	if( !$this->iShow ) return;

	$txt = new TextProperty();

	$txt->SetFont($this->iFFamily,$this->iFStyle,$this->iFSize);

	$txt->SetColor($this->iFontColor);

	$txt->SetAlign($this->iHeaderAlign,'top');

	$n=count($this->iTitles);

	if( $n == 0 )

	    return;

	$x = $aXLeft;

	$h = $this->iHeight;

	$yTop = $aUseTextHeight ? $aYBottom-$h-$this->iTopColMargin-$this->iBottomColMargin : $aYTop ;

	if( $h < 0 ) {

	    JpGraphError::RaiseL(6001);

//('Internal error. Height for ActivityTitles is < 0');

	}

	$aImg->SetLineWeight(1);

	// Set background color

	$aImg->SetColor($this->iBackgroundColor);

	$aImg->FilledRectangle($aXLeft,$yTop,$aXRight,$aYBottom-1);

	if( $this->iStyle == 1 ) {

	    // Make a 3D effect

	    $aImg->SetColor('white');

	    $aImg->Line($aXLeft,$yTop+1,

			$aXRight,$yTop+1);

	}

	for($i=0; $i < $n; ++$i ) {

	    if( $this->iStyle == 1 ) {

		// Make a 3D effect

		$aImg->SetColor('white');

		$aImg->Line($x+1,$yTop,$x+1,$aYBottom);

	    }

	    $x += $this->iLeftColMargin;

	    $txt->Set($this->iTitles[$i]);

	    // Adjust the text anchor position according to the choosen alignment

	    $xp = $x;

	    if( $this->iHeaderAlign == 'center' ) {

		$xp = (($x-$this->iLeftColMargin)+($x+$this->iWidth[$i]))/2;

	    }

	    elseif( $this->iHeaderAlign == 'right' ) {

		$xp = $x +$this->iWidth[$i]-$this->iRightColMargin;

	    }

	    $txt->Stroke($aImg,$xp,$yTop+$this->iTopHeaderMargin);

	    $x += $this->iWidth[$i];

	    if( $i < $n-1 ) {

		$aImg->SetColor($this->iColor);

		$aImg->Line($x,$yTop,$x,$aYBottom);

	    }

	}

	$aImg->SetColor($this->iColor);

	$aImg->Line($aXLeft,$yTop, $aXRight,$yTop);

	// Stroke vertical column dividers

	$cols=array();

	$this->GetColStart($aImg,$cols);

	$n=count($cols);

	for( $i=1; $i < $n; ++$i ) {

	    $this->vgrid->Stroke($aImg,$cols[$i],$aYBottom,$cols[$i],

				    $aImg->height - $aImg->bottom_margin);

	}

    }

}

//===================================================

// CLASS GanttGraph

// Description: Main class to handle gantt graphs

//===================================================

class GanttGraph extends Graph {

    public $scale;		// Public accessible

    public $hgrid=null;

    private $iObj=array();				// Gantt objects

    private $iLabelHMarginFactor=0.2;	// 10% margin on each side of the labels

    private $iLabelVMarginFactor=0.4;	// 40% margin on top and bottom of label

    private $iLayout=GANTT_FROMTOP;	// Could also be GANTT_EVEN

    private $iSimpleFont = FF_FONT1,$iSimpleFontSize=11;

    private $iSimpleStyle=GANTT_RDIAG,$iSimpleColor='yellow',$iSimpleBkgColor='red';

    private $iSimpleProgressBkgColor='gray',$iSimpleProgressColor='darkgreen';

    private $iSimpleProgressStyle=GANTT_SOLID;

//---------------

// CONSTRUCTOR

    // Create a new gantt graph

    function GanttGraph($aWidth=0,$aHeight=0,$aCachedName="",$aTimeOut=0,$aInline=true) {

	// Backward compatibility

	if( $aWidth == -1 ) $aWidth=0;

	if( $aHeight == -1 ) $aHeight=0;

	if( $aWidth<  0 || $aHeight < 0 ) {

	    JpgraphError::RaiseL(6002);

//("You can't specify negative sizes for Gantt graph dimensions. Use 0 to indicate that you want the library to automatically determine a dimension.");

	}

	Graph::Graph($aWidth,$aHeight,$aCachedName,$aTimeOut,$aInline);

	$this->scale = new GanttScale($this->img);

	// Default margins

	$this->img->SetMargin(15,17,25,15);

	$this->hgrid = new HorizontalGridLine();

	$this->scale->ShowHeaders(GANTT_HWEEK|GANTT_HDAY);

	$this->SetBox();

    }

//---------------

// PUBLIC METHODS

    //

    function SetSimpleFont($aFont,$aSize) {

	$this->iSimpleFont = $aFont;

	$this->iSimpleFontSize = $aSize;

    }

    function SetSimpleStyle($aBand,$aColor,$aBkgColor) {

	$this->iSimpleStyle = $aBand;

	$this->iSimpleColor = $aColor;

	$this->iSimpleBkgColor = $aBkgColor;

    }

    // A utility function to help create basic Gantt charts

    function CreateSimple($data,$constrains=array(),$progress=array()) {

	$num = count($data);

	for( $i=0; $i < $num; ++$i) {

	    switch( $data[$i][1] ) {

		case ACTYPE_GROUP:

		    // Create a slightly smaller height bar since the

		    // "wings" at the end will make it look taller

		    $a = new GanttBar($data[$i][0],$data[$i][2],$data[$i][3],$data[$i][4],'',8);

		    $a->title->SetFont($this->iSimpleFont,FS_BOLD,$this->iSimpleFontSize);

		    $a->rightMark->Show();

		    $a->rightMark->SetType(MARK_RIGHTTRIANGLE);

		    $a->rightMark->SetWidth(8);

		    $a->rightMark->SetColor('black');

		    $a->rightMark->SetFillColor('black');

		    $a->leftMark->Show();

		    $a->leftMark->SetType(MARK_LEFTTRIANGLE);

		    $a->leftMark->SetWidth(8);

		    $a->leftMark->SetColor('black');

		    $a->leftMark->SetFillColor('black');

		    $a->SetPattern(BAND_SOLID,'black');

		    $csimpos = 6;

		    break;

		case ACTYPE_NORMAL:

		    $a = new GanttBar($data[$i][0],$data[$i][2],$data[$i][3],$data[$i][4],'',10);

		    $a->title->SetFont($this->iSimpleFont,FS_NORMAL,$this->iSimpleFontSize);

		    $a->SetPattern($this->iSimpleStyle,$this->iSimpleColor);

		    $a->SetFillColor($this->iSimpleBkgColor);

		    // Check if this activity should have a constrain line

		    $n = count($constrains);

		    for( $j=0; $j < $n; ++$j ) {

			if( empty($constrains[$j]) || (count($constrains[$j]) != 3) ) {

			    JpGraphError::RaiseL(6003,$j);

//("Invalid format for Constrain parameter at index=$j in CreateSimple(). Parameter must start with index 0 and contain arrays of (Row,Constrain-To,Constrain-Type)");

			}

			if( $constrains[$j][0]==$data[$i][0] ) {

			    $a->SetConstrain($constrains[$j][1],$constrains[$j][2],'black',ARROW_S2,ARROWT_SOLID);

			}

		    }

		    // Check if this activity have a progress bar

		    $n = count($progress);

		    for( $j=0; $j < $n; ++$j ) {

			if( empty($progress[$j]) || (count($progress[$j]) != 2) ) {

			    JpGraphError::RaiseL(6004,$j);

//("Invalid format for Progress parameter at index=$j in CreateSimple(). Parameter must start with index 0 and contain arrays of (Row,Progress)");

			}

			if( $progress[$j][0]==$data[$i][0] ) {

			    $a->progress->Set($progress[$j][1]);

			    $a->progress->SetPattern($this->iSimpleProgressStyle,

						     $this->iSimpleProgressColor);

			    $a->progress->SetFillColor($this->iSimpleProgressBkgColor);

			    //$a->progress->SetPattern($progress[$j][2],$progress[$j][3]);

			    break;

			}

		    }

		    $csimpos = 6;

		    break;

		case ACTYPE_MILESTONE:

		    $a = new MileStone($data[$i][0],$data[$i][2],$data[$i][3]);

		    $a->title->SetFont($this->iSimpleFont,FS_NORMAL,$this->iSimpleFontSize);

		    $a->caption->SetFont($this->iSimpleFont,FS_NORMAL,$this->iSimpleFontSize);

		    $csimpos = 5;

		    break;

		default:

		    die('Unknown activity type');

		    break;

	    }

	    // Setup caption

	    $a->caption->Set($data[$i][$csimpos-1]);

	    // Check if this activity should have a CSIM target ?

	    if( !empty($data[$i][$csimpos]) ) {

		$a->SetCSIMTarget($data[$i][$csimpos]);

		$a->SetCSIMAlt($data[$i][$csimpos+1]);

	    }

	    if( !empty($data[$i][$csimpos+2]) ) {

		$a->title->SetCSIMTarget($data[$i][$csimpos+2]);

		$a->title->SetCSIMAlt($data[$i][$csimpos+3]);

	    }

	    $this->Add($a);

	}

    }

    // Set what headers should be shown

    function ShowHeaders($aFlg) {

	$this->scale->ShowHeaders($aFlg);

    }

    // Specify the fraction of the font height that should be added

    // as vertical margin

    function SetLabelVMarginFactor($aVal) {

	$this->iLabelVMarginFactor = $aVal;

    }

    // Synonym to the method above

    function SetVMarginFactor($aVal) {

	$this->iLabelVMarginFactor = $aVal;

    }

    // Add a new Gantt object

    function Add($aObject) {

	if( is_array($aObject) && count($aObject) > 0 ) {

	    $cl = $aObject[0];

	    if( class_exists('IconPlot',false) && ($cl instanceof IconPlot) ) {

		$this->AddIcon($aObject);

	    }

	    else {

		$n = count($aObject);

		for($i=0; $i < $n; ++$i)

		    $this->iObj[] = $aObject[$i];

	    }

	}

	else {

	    if( class_exists('IconPlot',false) && ($aObject instanceof IconPlot) ) {

		$this->AddIcon($aObject);

	    }

	    else {

		$this->iObj[] = $aObject;

	    }

	}

    }

    // Override inherit method from Graph and give a warning message

    function SetScale($aAxisType,$aYMin=1,$aYMax=1,$aXMin=1,$aXMax=1) {

	JpGraphError::RaiseL(6005);

//("SetScale() is not meaningfull with Gantt charts.");

    }

    // Specify the date range for Gantt graphs (if this is not set it will be

    // automtically determined from the input data)

    function SetDateRange($aStart,$aEnd) {

	// Adjust the start and end so that the indicate the

	// begining and end of respective start and end days

	if( strpos($aStart,':') === false )

	    $aStart = date('Y-m-d 00:00',strtotime($aStart));

	if( strpos($aEnd,':') === false )

	    $aEnd = date('Y-m-d 23:59',strtotime($aEnd));

	$this->scale->SetRange($aStart,$aEnd);

    }

    // Get the maximum width of the activity titles columns for the bars

    // The name is lightly misleading since we from now on can have

    // multiple columns in the label section. When this was first written

    // it only supported a single label, hence the name.

    function GetMaxLabelWidth() {

	$m=10;

	if( $this->iObj != null ) {

	    $marg = $this->scale->actinfo->iLeftColMargin+$this->scale->actinfo->iRightColMargin;

 	    $n = count($this->iObj);

 	    for($i=0; $i < $n; ++$i) {

		if( !empty($this->iObj[$i]->title) ) {

		    if( $this->iObj[$i]->title->HasTabs() ) {

			list($tot,$w) = $this->iObj[$i]->title->GetWidth($this->img,true);

			$m=max($m,$tot);

		    }

		    else

			$m=max($m,$this->iObj[$i]->title->GetWidth($this->img));

		}

	    }

	}

	return $m;

    }

    // Get the maximum height of the titles for the bars

    function GetMaxLabelHeight() {

	$m=10;

	if( $this->iObj != null ) {

	    $n = count($this->iObj);

	    for($i=0; $i < $n; ++$i) {

		if( !empty($this->iObj[$i]->title) ) {

		    $m=max($m,$this->iObj[$i]->title->GetHeight($this->img));

		}

	    }

	}

	return $m;

    }

    function GetMaxBarAbsHeight() {

	$m=0;

	if( $this->iObj != null ) {

	    $m = $this->iObj[0]->GetAbsHeight($this->img);

	    $n = count($this->iObj);

	    for($i=1; $i < $n; ++$i) {

		$m=max($m,$this->iObj[$i]->GetAbsHeight($this->img));

	    }

	}

	return $m;

    }

    // Get the maximum used line number (vertical position) for bars

    function GetBarMaxLineNumber() {

	$m=1;

	if( $this->iObj != null ) {

	    $m = $this->iObj[0]->GetLineNbr();

	    $n = count($this->iObj);

	    for($i=1; $i < $n; ++$i) {

		$m=max($m,$this->iObj[$i]->GetLineNbr());

	    }

	}

	return $m;

    }

    // Get the minumum and maximum used dates for all bars

    function GetBarMinMax() {

	$start = 0 ;

	$n = count($this->iObj);

	while( $start < $n && $this->iObj[$start]->GetMaxDate() === false )

	    ++$start;

	if( $start >= $n ) {

	    JpgraphError::RaiseL(6006);

//('Cannot autoscale Gantt chart. No dated activities exist. [GetBarMinMax() start >= n]');

	}

	$max=$this->scale->NormalizeDate($this->iObj[$start]->GetMaxDate());

	$min=$this->scale->NormalizeDate($this->iObj[$start]->GetMinDate());

	for($i=$start+1; $i < $n; ++$i) {

	    $rmax = $this->scale->NormalizeDate($this->iObj[$i]->GetMaxDate());

	    if( $rmax != false )

		$max=Max($max,$rmax);

	    $rmin = $this->scale->NormalizeDate($this->iObj[$i]->GetMinDate());

	    if( $rmin != false )

		$min=Min($min,$rmin);

	}

	$minDate = date("Y-m-d",$min);

	$min = strtotime($minDate);

	$maxDate = date("Y-m-d 23:59",$max);

	$max = strtotime($maxDate);

	return array($min,$max);

    }

    // Create a new auto sized canvas if the user hasn't specified a size

    // The size is determined by what scale the user has choosen and hence

    // the minimum width needed to display the headers. Some margins are

    // also added to make it better looking.

    function AutoSize() {

	if( $this->img->img == null ) {

	    // The predefined left, right, top, bottom margins.

	    // Note that the top margin might incease depending on

	    // the title.

	    $lm = $this->img->left_margin;

	    $rm = $this->img->right_margin;

	    $rm += 2 ;

	    $tm = $this->img->top_margin;

	    $bm = $this->img->bottom_margin;

	    $bm += 1;

	    if( BRAND_TIMING ) $bm += 10;

	    // First find out the height

	    $n=$this->GetBarMaxLineNumber()+1;

	    $m=max($this->GetMaxLabelHeight(),$this->GetMaxBarAbsHeight());

	    $height=$n*((1+$this->iLabelVMarginFactor)*$m);

	    // Add the height of the scale titles

	    $h=$this->scale->GetHeaderHeight();

	    $height += $h;

	    // Calculate the top margin needed for title and subtitle

	    if( $this->title->t != "" ) {

		$tm += $this->title->GetFontHeight($this->img);

	    }

	    if( $this->subtitle->t != "" ) {

		$tm += $this->subtitle->GetFontHeight($this->img);

	    }

	    // ...and then take the bottom and top plot margins into account

	    $height += $tm + $bm + $this->scale->iTopPlotMargin + $this->scale->iBottomPlotMargin;

	    // Now find the minimum width for the chart required

	    // If day scale or smaller is shown then we use the day font width

	    // as the base size unit.

	    // If only weeks or above is displayed we use a modified unit to

	    // get a smaller image.

	    if( $this->scale->IsDisplayHour() || $this->scale->IsDisplayMinute() ) {

		// Add 2 pixel margin on each side

		$fw=$this->scale->day->GetFontWidth($this->img)+4;

	    }

	    elseif( $this->scale->IsDisplayWeek() ) {

		$fw = 8;

	    }

	    elseif( $this->scale->IsDisplayMonth() ) {

		$fw = 4;

	    }

	    else {

		$fw = 2;

	    }

	    $nd=$this->scale->GetNumberOfDays();

	    if( $this->scale->IsDisplayDay() ) {

		// If the days are displayed we also need to figure out

		// how much space each day's title will require.

		switch( $this->scale->day->iStyle ) {

		    case DAYSTYLE_LONG :

			$txt = "Monday";

			break;

		    case DAYSTYLE_LONGDAYDATE1 :

			$txt =  "Monday 23 Jun";

			break;

		    case DAYSTYLE_LONGDAYDATE2 :

			$txt =  "Monday 23 Jun 2003";

			break;

		    case DAYSTYLE_SHORT :

			$txt =  "Mon";

			break;

		    case DAYSTYLE_SHORTDAYDATE1 :

                        $txt =  "Mon 23/6";

			break;

		    case DAYSTYLE_SHORTDAYDATE2 :

			$txt =  "Mon 23 Jun";

			break;

		    case DAYSTYLE_SHORTDAYDATE3 :

			$txt =  "Mon 23";

			break;

		    case DAYSTYLE_SHORTDATE1 :

                        $txt =  "23/6";

			break;

		    case DAYSTYLE_SHORTDATE2 :

			$txt =  "23 Jun";

			break;

		    case DAYSTYLE_SHORTDATE3 :

			$txt =  "Mon 23";

			break;

		    case DAYSTYLE_SHORTDATE4 :

			$txt =  "88";

			break;

		    case DAYSTYLE_CUSTOM :

			$txt = date($this->scale->day->iLabelFormStr,

				    strtotime('2003-12-20 18:00'));

			break;

		    case DAYSTYLE_ONELETTER :

		    default:

			$txt = "M";

			break;

		}

		$fw = $this->scale->day->GetStrWidth($this->img,$txt)+6;

	    }

	    // If we have hours enabled we must make sure that each day has enough

	    // space to fit the number of hours to be displayed.

	    if( $this->scale->IsDisplayHour() ) {

		// Depending on what format the user has choose we need different amount

		// of space. We therefore create a typical string for the choosen format

		// and determine the length of that string.

		switch( $this->scale->hour->iStyle ) {

		    case HOURSTYLE_HMAMPM:

			$txt = '12:00pm';

			break;

		    case HOURSTYLE_H24:

			// 13

			$txt = '24';

			break;

		    case HOURSTYLE_HAMPM:

			$txt = '12pm';

			break;

		    case HOURSTYLE_CUSTOM:

			$txt = date($this->scale->hour->iLabelFormStr,strtotime('2003-12-20 18:00'));

			break;

		    case HOURSTYLE_HM24:

		    default:

			$txt = '24:00';

			break;

		}

		$hfw = $this->scale->hour->GetStrWidth($this->img,$txt)+6;

		$mw = $hfw;

		if( $this->scale->IsDisplayMinute() ) {

		    // Depending on what format the user has choose we need different amount

		    // of space. We therefore create a typical string for the choosen format

		    // and determine the length of that string.

		    switch( $this->scale->minute->iStyle ) {

			case HOURSTYLE_CUSTOM:

			    $txt2 = date($this->scale->minute->iLabelFormStr,strtotime('2005-05-15 18:55'));

			    break;

			case MINUTESTYLE_MM:

			default:

			    $txt2 = '15';

			    break;

		    }

		    $mfw = $this->scale->minute->GetStrWidth($this->img,$txt2)+6;

		    $n2 = ceil(60 / $this->scale->minute->GetIntervall() );

		    $mw = $n2 * $mfw;

		}

		$hfw = $hfw < $mw ? $mw : $hfw ;

		$n = ceil(24*60 / $this->scale->TimeToMinutes($this->scale->hour->GetIntervall()) );

		$hw = $n * $hfw;

		$fw = $fw < $hw ? $hw : $fw ;

	    }

	    // We need to repeat this code block here as well.

	    // THIS iS NOT A MISTAKE !

	    // We really need it since we need to adjust for minutes both in the case

	    // where hour scale is shown and when it is not shown.

	    if( $this->scale->IsDisplayMinute() ) {

		// Depending on what format the user has choose we need different amount

		// of space. We therefore create a typical string for the choosen format

		// and determine the length of that string.

		switch( $this->scale->minute->iStyle ) {

		    case HOURSTYLE_CUSTOM:

			$txt = date($this->scale->minute->iLabelFormStr,strtotime('2005-05-15 18:55'));

			break;

		    case MINUTESTYLE_MM:

		    default:

			$txt = '15';

			break;

		}

		$mfw = $this->scale->minute->GetStrWidth($this->img,$txt)+6;

		$n = ceil(60 / $this->scale->TimeToMinutes($this->scale->minute->GetIntervall()) );

		$mw = $n * $mfw;

		$fw = $fw < $mw ? $mw : $fw ;

	    }

	    // If we display week we must make sure that 7*$fw is enough

	    // to fit up to 10 characters of the week font (if the week is enabled)

	    if( $this->scale->IsDisplayWeek() ) {

		// Depending on what format the user has choose we need different amount

		// of space

		$fsw = strlen($this->scale->week->iLabelFormStr);

		if( $this->scale->week->iStyle==WEEKSTYLE_FIRSTDAY2WNBR ) {

		    $fsw += 8;

		}

		elseif( $this->scale->week->iStyle==WEEKSTYLE_FIRSTDAYWNBR ) {

		    $fsw += 7;

		}

		else {

		    $fsw += 4;

		}

		$ww = $fsw*$this->scale->week->GetFontWidth($this->img);

		if( 7*$fw < $ww ) {

		    $fw = ceil($ww/7);

		}

	    }

	    if( !$this->scale->IsDisplayDay() && !$this->scale->IsDisplayHour() &&

		!( ($this->scale->week->iStyle==WEEKSTYLE_FIRSTDAYWNBR ||

		    $this->scale->week->iStyle==WEEKSTYLE_FIRSTDAY2WNBR) && $this->scale->IsDisplayWeek() ) ) {

		// If we don't display the individual days we can shrink the

		// scale a little bit. This is a little bit pragmatic at the

		// moment and should be re-written to take into account

		// a) What scales exactly are shown and

		// b) what format do they use so we know how wide we need to

		// make each scale text space at minimum.

		$fw /= 2;

		if( !$this->scale->IsDisplayWeek() ) {

		    $fw /= 1.8;

		}

	    }

	    $cw = $this->GetMaxActInfoColWidth() ;

	    $this->scale->actinfo->SetMinColWidth($cw);

	    if( $this->img->width <= 0 ) {

		// Now determine the width for the activity titles column

		// Firdst find out the maximum width of each object column

		$titlewidth = max(max($this->GetMaxLabelWidth(),

				      $this->scale->tableTitle->GetWidth($this->img)),

				  $this->scale->actinfo->GetWidth($this->img));

		// Add the width of the vertivcal divider line

		$titlewidth += $this->scale->divider->iWeight*2;

		// Now get the total width taking

		// titlewidth, left and rigt margin, dayfont size

		// into account

		$width = $titlewidth + $nd*$fw + $lm+$rm;

	    }

	    else {

		$width = $this->img->width;

	    }

	    $width = round($width);

	    $height = round($height);

	    // Make a sanity check on image size

	    if( $width > MAX_GANTTIMG_SIZE_W || $height > MAX_GANTTIMG_SIZE_H ) {

		JpgraphError::RaiseL(6007,$width,$height);

//("Sanity check for automatic Gantt chart size failed. Either the width (=$width) or height (=$height) is larger than MAX_GANTTIMG_SIZE. This could potentially be caused by a wrong date in one of the activities.");

	    }

	    $this->img->CreateImgCanvas($width,$height);

	    $this->img->SetMargin($lm,$rm,$tm,$bm);

	}

    }

    // Return an array width the maximum width for each activity

    // column. This is used when we autosize the columns where we need

    // to find out the maximum width of each column. In order to do that we

    // must walk through all the objects, sigh...

    function GetMaxActInfoColWidth() {

	$n = count($this->iObj);

	if( $n == 0 ) return;

	$w = array();

	$m = $this->scale->actinfo->iLeftColMargin + $this->scale->actinfo->iRightColMargin;

	for( $i=0; $i < $n; ++$i ) {

	    $tmp = $this->iObj[$i]->title->GetColWidth($this->img,$m);

	    $nn = count($tmp);

	    for( $j=0; $j < $nn; ++$j ) {

		if( empty($w[$j]) )

		    $w[$j] = $tmp[$j];

		else

		    $w[$j] = max($w[$j],$tmp[$j]);

	    }

	}

	return $w;

    }

    // Stroke the gantt chart

    function Stroke($aStrokeFileName="") {

	// If the filename is the predefined value = '_csim_special_'

	// we assume that the call to stroke only needs to do enough

	// to correctly generate the CSIM maps.

	// We use this variable to skip things we don't strictly need

	// to do to generate the image map to improve performance

	// a best we can. Therefor you will see a lot of tests !$_csim in the

	// code below.

	$_csim = ($aStrokeFileName===_CSIM_SPECIALFILE);

	// Should we autoscale dates?

	if( !$this->scale->IsRangeSet() ) {

	    list($min,$max) = $this->GetBarMinMax();

	    $this->scale->SetRange($min,$max);

	}

	$this->scale->AdjustStartEndDay();

	// Check if we should autoscale the image

	$this->AutoSize();

	// Should we start from the top or just spread the bars out even over the

	// available height

	$this->scale->SetVertLayout($this->iLayout);

	if( $this->iLayout == GANTT_FROMTOP ) {

	    $maxheight=max($this->GetMaxLabelHeight(),$this->GetMaxBarAbsHeight());

	    $this->scale->SetVertSpacing($maxheight*(1+$this->iLabelVMarginFactor));

	}

	// If it hasn't been set find out the maximum line number

	if( $this->scale->iVertLines == -1 )

	    $this->scale->iVertLines = $this->GetBarMaxLineNumber()+1;

	$maxwidth=max($this->scale->actinfo->GetWidth($this->img),

		      max($this->GetMaxLabelWidth(),

		      $this->scale->tableTitle->GetWidth($this->img)));

	$this->scale->SetLabelWidth($maxwidth+$this->scale->divider->iWeight);//*(1+$this->iLabelHMarginFactor));

	if( !$_csim ) {

	    $this->StrokePlotArea();

	    if( $this->iIconDepth == DEPTH_BACK ) {

		$this->StrokeIcons();

	    }

	}

	$this->scale->Stroke();

	if( !$_csim ) {

	    // Due to a minor off by 1 bug we need to temporarily adjust the margin

	    $this->img->right_margin--;

	    $this->StrokePlotBox();

	    $this->img->right_margin++;

	}

	// Stroke Grid line

	$this->hgrid->Stroke($this->img,$this->scale);

	$n = count($this->iObj);

	for($i=0; $i < $n; ++$i) {

	    //$this->iObj[$i]->SetLabelLeftMargin(round($maxwidth*$this->iLabelHMarginFactor/2));

	    $this->iObj[$i]->Stroke($this->img,$this->scale);

	}

	$this->StrokeTitles();

	if( !$_csim ) {

	    $this->StrokeConstrains();

	    $this->footer->Stroke($this->img);

	    if( $this->iIconDepth == DEPTH_FRONT) {

		$this->StrokeIcons();

	    }

	    // Should we do any final image transformation

	    if( $this->iImgTrans ) {

		if( !class_exists('ImgTrans',false) ) {

		    require_once('jpgraph_imgtrans.php');

		}

		$tform = new ImgTrans($this->img->img);

		$this->img->img = $tform->Skew3D($this->iImgTransHorizon,$this->iImgTransSkewDist,

						 $this->iImgTransDirection,$this->iImgTransHighQ,

						 $this->iImgTransMinSize,$this->iImgTransFillColor,

						 $this->iImgTransBorder);

	    }

	    // If the filename is given as the special "__handle"

	    // then the image handler is returned and the image is NOT

	    // streamed back

	    if( $aStrokeFileName == _IMG_HANDLER ) {

		return $this->img->img;

	    }

	    else {