<? Header("Content-type: image/gif");
	#create gd image
$im = ImageCreate(179, 142);
	# set colorssss
$black = ImageColorAllocate($im, 50, 50, 50);
$white = ImageColorAllocate($im, 255, 255, 255);
$orange = ImageColorAllocate($im, 255, 200, 0);
$yellow = ImageColorAllocate($im, 255, 255, 0);
$tan = ImageColorAllocate($im, 255, 255, 190);
$grey = ImageColorAllocate($im, 205, 205, 205);
$dkgrey = ImageColorAllocate($im, 140, 140, 140);

### Grey Lines ###
	 #Outline
	ImageRectangle($im, 1, 1, 177, 141, $dkgrey);
	 #Horizontal lines
	ImageRectangle($im, 1, 22, 177, 39, $dkgrey);
	ImageRectangle($im, 1, 56, 177, 73, $dkgrey);
	ImageRectangle($im, 1, 90, 177, 107, $dkgrey);
	ImageRectangle($im, 1, 107, 177, 124, $dkgrey);
	 #verticle lines
	ImageRectangle($im, 23, 22, 45, 141, $dkgrey);
	ImageRectangle($im, 67, 22, 89, 141, $dkgrey);
	ImageRectangle($im, 111, 22, 133, 141, $dkgrey);
	ImageRectangle($im, 155, 22, 177, 141, $dkgrey);

### White Lines ###
	 #Outline
	ImageRectangle($im, 0, 0, 176, 140, $white);
	 #Horizontal lines
	ImageRectangle($im, 0, 21, 176, 38, $white);
	ImageRectangle($im, 0, 55, 176, 72, $white);
	ImageRectangle($im, 0, 89, 176, 106, $white);
	ImageRectangle($im, 0, 106, 176, 123, $white);
	 #verticle lines
	ImageRectangle($im, 22, 21, 44, 140, $white);
	ImageRectangle($im, 66, 21, 88, 140, $white);
	ImageRectangle($im, 110, 21, 132, 140, $white);
	ImageRectangle($im, 154, 21, 176, 140, $white);
### Put numbers on the calendar
$today = date("d");

$month = date("m");
$curmonth = date("m");
$curyear=date("Y");
$monthnumber=date("n");
if (isset($maand)) $month=$maand; $monthnumber=$month;
if (isset($jaar)) {$year=$jaar;}else{$year = date("Y");}
$datecode = date("Ymd");
$gif = '.gif'; $maandstring="MiHa";
    $first=mktime(0,0,0,$month,1,$year);   // unix stamp 1e dag van deze maand
	$weeknr = date("W",$first);
/*	switch ($monthnumber) {
	case 1: $maandstring="Januari";break;
	case 2: $maandstring="Februari";break;
	case 3: $maandstring="Maart";break;
	case 4: $maandstring="April";break;
	case 5: $maandstring="Mei";break;
	case 6: $maandstring="Juni";break;
	case 7: $maandstring="Juli";break;
	case 8: $maandstring="Augustus";break;
	case 9: $maandstring="September";break;
	case 10: $maandstring="Oktober";break;
	case 11: $maandstring="November";break;
	case 12: $maandstring="December";break;
	default: $maandstring="FOUTEMAAND";
	}*/
    $mon_yr=date("F Y", $first); // text heading: month year
//	$mon_yr=sprintf("%s%s",$maandstring,$mon_yr);

    $wd=date("w",$first); // 0 is sunday 6 is sat dus als dinsdag de 1e dag is dan is wd=2
    #if ($wd==0) { $wd=7;}
    $lastday=date("d",mktime(0,0,0,$month+1,0,$year));  // unix stamp laatste dag vd maand
    $cur=-$wd+0;  // cur = negative from wd
	$ver_position = 50;
    for ($k=0;$k<6;$k++) { /// getalrijen op de kalender
		$day_position = 5;
     	$last_row_used = 0;
    	  for ($i=0;$i<7;$i++ ) { // kolommen
        	  	$cur++;
				$sing_add = 0;
		        if (($cur<=0) || ($cur>$lastday) ) $day_position = ($day_position + 22); // first find the right col to put the daynr.
		 		else  // now we are at the right column to put in the daynr.
				{
					$day_color = $grey;
					if ($day_position<10) $day_color = $tan;
					
					if (strlen($cur)<2) {$sing_add = 4;}
					$fin_position = ($day_position + $sing_add);
					if (($cur==$today)&&($month==$curmonth)&&($year==$curyear)) {
						$day_color = $yellow;
				      	ImageTTFText($im, 13, 0, $fin_position, $ver_position+1, $day_color, "../fonts/arialbd.ttf", "$cur");
					} else ImageTTFText($im, 12, 0, $fin_position, $ver_position, $day_color, "../fonts/arialbd.ttf", "$cur");
		
					$day_position = ($day_position + 22);
					$last_row_used = 1;
				}// else
          }  // for 
		  // now we can put the weeknumber here:
		  $wn=$weeknr+$k;
		  if (strlen($wn)<2) {$sing_add = 4;} else $sing_add=0;
		  ImageTTFText($im, 10, 0, 159+$sing_add, $ver_position, $day_color, "../fonts/arialbd.ttf", "$wn");
		$day_position = 5;
		if ($last_row_used) $ver_position = ($ver_position + 17);
	} // for
# month and year (centered in Arial Bold)
$spc = 23;
$st_add = 0;
$st = "$mon_yr";
$st_len = strlen($st);
$st_margin = (14 - $st_len);
if ($st_margin > 0) {$st_add = ($st_margin * 4);}
$spc = ($spc + $st_add);
ImageTTFText($im, 14, 0, $spc, 15, $white, "../fonts/arialbd.ttf", "$st");

# weekday names
ImageString($im, 2, 3, 23, "Sun", $orange);
ImageString($im, 2, 25, 23, "Mon", $orange);
ImageString($im, 2, 47, 23, "Tue", $orange);
ImageString($im, 2, 69, 23, "Wed", $orange);
ImageString($im, 2, 91, 23, "Thu", $orange);
ImageString($im, 2, 113, 23, "Fri", $orange);
ImageString($im, 2, 135, 23, "Sat", $orange);
//ImageString($im, 2, 157, 23, "week", $orange);

if ($ver_position<140) # crop the calendar if it doesn\'t go into last row
	{
	$im_out = ImageCreate(178, 125);
	$out_black = ImageColorAllocate($im_out, 50, 50, 50);
	ImageRectangle($im, 1, 124, 177, 124, $dkgrey);
	ImageCopyResized($im_out, $im, 0, 0, 0, 0, 178, 125, 178, 125);
	ImageColorTransparent($im_out, $out_black);
	ImageGIF($im_out, "../dategif/$datecode$gif");
	ImageGIF($im_out);
	ImageDestroy($im);
	ImageDestroy($im_out);
	}
else
	{
	ImageColorTransparent($im, $black);
	ImageGif($im, "../dategif/$datecode$gif");
	ImageGif($im);
	ImageDestroy($im);
	}

?>