PHP screenshot generator v2 now with color!

-- Version 2
term.clear()
term.setCursorPos(1,1)

-- Uses Gopher's redirect buffer api v1.2
-- http://www.computercraft.info/forums2/index.php?/topic/5130-gophers-apis-new-ggui-beta-goroutine-redirect-ctrlkeys/page__hl__gopheratl
local trueCursor={term.getCursorPos()}

local redirectBufferBase = {
	write=
	  function(buffer,...)
		local cy=buffer.curY
		if cy>0 and cy<=buffer.height then
		  local text=table.concat({...}," ")
		  local cx=buffer.curX
		  local px, py
		  if buffer.isActive and not buffer.cursorBlink then
			term.native.setCursorPos(cx+buffer.scrX, cy+buffer.scrY)
		  end
		  for i=1,#text do
			if cx<=buffer.width then
			  local curCell=buffer[cy][cx]
			  local char,textColor,backgroundColor=string.char(text:byte(i)),buffer.textColor,buffer.backgroundColor
			  if buffer[cy].isDirty or curCell.char~=char or curCell.textColor~=textColor or curCell.backgroundColor~=backgroundColor then
				buffer[cy][cx].char=char
				buffer[cy][cx].textColor=textColor
				buffer[cy][cx].backgroundColor=backgroundColor
				buffer[cy].isDirty=true
			  end
			end
			cx=cx+1
		  end
		  buffer.curX=cx
		  if buffer.isActive then
			buffer.drawDirty()
			if not buffer.cursorBlink then
			  trueCursor={cx+buffer.scrX-1,cy+buffer.scrY-1}
			  term.native.setCursorPos(unpack(trueCursor))
			end
		  end
		end
	  end,
	
	setCursorPos=
	  function(buffer,x,y)
		buffer.curX=math.floor(x)
		buffer.curY=math.floor(y)
		if buffer.isActive and buffer.cursorBlink then
		  term.native.setCursorPos(x+buffer.scrX-1,y+buffer.scrY-1)
		  trueCursor={x+buffer.scrX-1,y+buffer.scrY-1}
		end
	  end,
	
	getCursorPos=
	  function(buffer)
		return buffer.curX,buffer.curY
	  end,
	
	scroll=
	  function(buffer,offset)
		for j=1,offset do
		  local temp=table.remove(buffer,1)
		  table.insert(buffer,temp)
		  for i=1,#temp do
			temp[i].char=" "
			temp[i].textColor=buffer.textColor
			temp[i].backgroundColor=buffer.backgroundColor
		  end
		end
		if buffer.isActive then
		  term.redirect(term.native)
		  buffer.blit()
		  term.restore()
		end
	  end,
	
	isColor=
	  function(buffer)
		return buffer._isColor
	  end,
	
	isColour=
	  function(buffer)
		return buffer._isColor
	  end,
	
	clear=
	  function(buffer)
		for y=1,buffer.height do
		  for x=1,buffer.width do
			buffer[y][x]={char=" ",textColor=buffer.textColor,backgroundColor=buffer.backgroundColor}
		  end
		end
		if buffer.isActive then
		  term.redirect(term.native)
		  buffer.blit()
		  term.restore()
		end
	  end,
	
	clearLine=
	  function(buffer)
		local line=buffer[buffer.curY]
		local fg,bg = buffer.textColor, buffer.backgroundColor
		for x=1,buffer.width do
		  line[x]={char=" ",textColor=fg,backgroundColor=bg}
		end
		buffer[buffer.curY].isDirty=true
		if buffer.isActive then
		  buffer.drawDirty()
		end
	  end,
	
	setCursorBlink=
	  function(buffer,onoff)
		buffer.cursorBlink=onoff
		if buffer.isActive then
		  term.native.setCursorBlink(onoff)
		  if onoff then
			term.native.setCursorPos(buffer.curX,buffer.curY)
			trueCursor={buffer.curX,buffer.curY}
		  end
		end
	  end,
	
	getSize=
	  function(buffer)
		return buffer.width, buffer.height
	  end,
	
	setTextColor=
	  function(buffer,color)
		buffer.textColor=color
		if buffer.isActive then
		  if term.native.isColor() or color==colors.black or color==colors.white then
			term.native.setTextColor(color)
		  end
		end
	  end,
	
	setTextColour=
	  function(buffer,color)
		buffer.textColor=color
		if buffer.isActive then
		  if term.native.isColor() or color==colors.black or color==colors.white then
			term.native.setTextColor(color)
		  end
		end
	  end,
	
	setBackgroundColor=
	  function(buffer,color)
		buffer.backgroundColor=color
		if buffer.isActive then
		  if term.native.isColor() or color==colors.black or color==colors.white then
		term.native.setBackgroundColor(color)
		  end
		end
	  end,
	
	setBackgroundColour=
	  function(buffer,color)
		buffer.backgroundColor=color
		if buffer.isActive then
		  if term.native.isColor() or color==colors.black or color==colors.white then
		term.native.setBackgroundColor(color)
		  end
		end
	  end,
  
	resize=
	  function(buffer,width,height)
		if buffer.width~=width or buffer.height~=height then
		  local fg, bg=buffer.textColor, buffer.backgroundColor
		  if width>buffer.width then
			for y=1,buffer.height do
			  for x=#buffer[y]+1,width do
				buffer[y][x]={char=" ",textColor=fg,backgroundColor=bg}
			  end
			end
		  end

		  if height>buffer.height then
			local w=width>buffer.width and width or buffer.width
			for y=#buffer+1,height do
			  local row={}		
			  for x=1,width do
				row[x]={char=" ",textColor=fg,backgroundColor=bg}
			  end
			  buffer[y]=row
			end
		  end
		  buffer.width=width
		  buffer.height=height
		end
	  end,
	
	blit=
	  function(buffer,sx,sy,dx, dy, width,height)
		sx=sx or 1
		sy=sy or 1
		dx=dx or buffer.scrX
		dy=dy or buffer.scrY
		width=width or buffer.width
		height=height or buffer.height
	  
		local h=sy+height>buffer.height and buffer.height-sy or height-1
		for y=0,h do
		  local row=buffer[sy+y]
		  local x=0
		  local cell=row[sx]
		  local fg,bg=cell.textColor,cell.backgroundColor
		  local str=""
		  local tx=x
		  while true do
			str=str..cell.char
			x=x+1
			if x==width or sx+x>buffer.width then
			  break
			end
			cell=row[sx+x]
			if cell.textColor~=fg or cell.backgroundColor~=bg then
			  --write
			  term.setCursorPos(dx+tx,dy+y)
			  term.setTextColor(fg)
			  term.setBackgroundColor(bg)
			  term.write(str)
			  str=""
			  tx=x
			  fg=cell.textColor
			  bg=cell.backgroundColor			
			end
		  end
		  term.setCursorPos(dx+tx,dy+y)
		  term.setTextColor(fg)
		  term.setBackgroundColor(bg)
		  term.write(str)
		end
	  end,
	
	drawDirty =
	  function(buffer)
		term.redirect(term.native)
		for y=1,buffer.height do
		  if buffer[y].isDirty then
			term.redirect(term.native)
			buffer.blit(1,y,buffer.scrX,buffer.scrY+y-1,buffer.width,buffer.height)
			term.restore()
			buffer[y].isDirty=false
		  end
		end
		term.restore()
	  end,
	
	makeActive =
	  function(buffer,posX, posY)
		posX=posX or 1
		posY=posY or 1
		buffer.scrX=posX
		buffer.scrY=posY
		term.redirect(term.native)
		buffer.blit(1,1,posX,posY,buffer.width,buffer.height)
		term.setCursorPos(buffer.curX,buffer.curY)
		term.setCursorBlink(buffer.cursorBlink)
		term.setTextColor(buffer.textColor)
		term.setBackgroundColor(buffer.backgroundColor)
		buffer.isActive=true
		term.restore()
	  end,
	
	isBuffer = true,
  
  }
  

function createRedirectBuffer(width,height,fg,bg,isColor)
   bg=bg or colors.black
   fg=fg or colors.white
   isColor=isColor~=nil and isColor or term.isColor()
   local buffer={}
  
   do
	 local w,h=term.getSize()
	 width,height=width or w,height or h
   end
  
   for y=1,height do
	 local row={}
	 for x=1,width do
	   row[x]={char=" ",textColor=fg,backgroundColor=bg}
	 end
	 buffer[y]=row
   end
   buffer.scrX=1
   buffer.scrY=1
   buffer.width=width
   buffer.height=height
   buffer.cursorBlink=false
   buffer.textColor=fg
   buffer.backgroundColor=bg
   buffer._isColor=isColor
   buffer.curX=1
   buffer.curY=1
  
   local meta={}
   local function wrap(f,o)
	 return function(...)
		 return f(o,...)
	   end
   end
   for k,v in pairs(redirectBufferBase) do
	 if type(v)=="function" then
	   meta[k]=wrap(v,buffer)
	 else
	   meta[k]=v
	 end
   end
   setmetatable(buffer,{__index=meta})
   return buffer
end
local w,h = term.getSize()
local buff = createRedirectBuffer(w,h,colors.white,colors.black,true)
term.redirect(buff)
buff.makeActive(1,1)
function screenshot()
  local function c(num) --color conversion
	return string.format("%x",math.log(num)/math.log(2))
  end
  local text = ""
  local fore = ""
  local back = ""
  for y,row in ipairs(buff) do
	for x,char in ipairs(row) do
	  text=text..char.char
	  fore=fore..c(char.textColor)
	  back=back..c(char.backgroundColor)
	end
  end
  local file = io.open("screen.txt","a")
  local url = "\nhttp://janvanrosmalen.com/ccrender/color/"
  local function add(text)
	url = url..textutils.urlEncode(tostring(text)).."/"
  end
  add(w) add(h) add(text) add(fore) add(back) add(buff.curX) add(buff.curY)
  add(c(buff.textColor)) add(c(buff.backgroundColor)) add(buff.cursorBlink)
  file:write(url.."screenshot.png")
  file:close()
end

local roll=true
function go()
  print("Press f1 to make a screenshot.")
  print("Type exit to leave screenshot mode")
  shell.run("rom/programs/shell")
  roll=false
end
local route = coroutine.create(go)
os.queueEvent("derp")
while roll do
  local evt = {os.pullEventRaw()}
  if (evt[1]=="key") and (evt[2]==keys.f1) then
	screenshot()
  end
  coroutine.resume(route,unpack(evt))
end
term.restore()
term.clear()
term.setCursorPos(1,1)
print("Left screenshot mode")

<?php
$mcwool = array();
$mcwool[0] = array(255,255,255); // White
$mcwool[1] = array(235,136,68);  // Orange
$mcwool[2] = array(195,84,205);  // Magenta
$mcwool[3] = array(102,137,211); // Light blue
$mcwool[4] = array(222,222,108); // Yellow
$mcwool[5] = array(65,205,52); // Lime
$mcwool[6] = array(216,129,152);  // Pink
$mcwool[7] = array(67,67,67);  // Gray
$mcwool[8] = array(153,153,153);  // Light gray
$mcwool[9] = array(40,118,151);   // Cyan
$mcwool[10] = array(123,47,190);   // Purple
$mcwool[11] = array(37,49,146); // Blue
$mcwool[12] = array(81,48,26);  // Brown
$mcwool[13] = array(59,81,26);  // Green
$mcwool[14] = array(179,49,44); // Red
$mcwool[15] = array(0,0,0);  // Black
function between($what,$l,$r){
  $m = (int) $what;
  if ($m<$l) {
    return $l;
  };
  if ($m>$r) {
    return $r;
  };
  return $m;
};

header("Content-type: image/png");
$width = between($_GET['w'],1,100);
$height = between($_GET['h'],1,100);
$string = $_GET['t'];
$fore = $_GET['f'];
$back = $_GET['b'];
$bbg = false;
if ($back==""){
$bbg=true;
};
$cx = between($_GET['x'],1,100);
$cy = between($_GET['y'],1,100);
$cfore = $_GET['m'];
$cback = $_GET['n'];
$im	 = imagecreatetruecolor($width*6+1, $height*9+1);

$getcol = array();
for ($i=0;$i<16;$i++) {
$getcol[$i] = imagecolorallocate($im,$mcwool[$i][0],$mcwool[$i][1],$mcwool[$i][2]);
};
for ($y=0;$y<$height;$y++){
  for ($x=0;$x<$width;$x++){
    if ($bbg==false){
	  imagefilledrectangle ($im,$x*6,$y*9,$x*6+6,$y*9+9, $getcol[(int) hexdec($back[$y*$width+$x])]);   
    };
    $letter = (string) $string[$y*$width+$x];
    $data = imageftbbox (6,0,"Minecraftia",$letter);
    imagefttext($im,6,0,$x*6+(5-$data[2])/2,$y*9+7,$getcol[(int) hexdec($fore[$y*$width+$x])],"Minecraftia",$letter);
  }
}
imagestring($im,3,1,1,(string) $cblink,$getcol[1]);
imagefilledrectangle ($im,$cx*6-6,$cy*9-2,$cx*6-2,$cy*9-2, $getcol[(int) hexdec($cfore)]);   
imagepng($im);
imagedestroy($im);
?>

Options +FollowSymlinks
RewriteEngine on
RewriteRule ^color/([^/]+)/([^/]+)/([^/]+)/([^/]+)/([^/]+)/([^/]+)/([^/]+)/([^/]+)/([^/]+)/([^/]+)/([^/]+).png screenshot.php?w=$1&h=$2&t=$3&f=$4&b=$5&x=$6&y=$7&m=$8&n=$9 [NC]
RewriteRule ^trick/([^/]+)/([^/]+)/([^/]+).png screenshot.php?w=$1&h=$2&t=$3 [NC]
DirectoryIndex screenshot.php