// Copyright 2006 Google Inc.
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//   http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

// Known Issues:
//
// * Patterns only support repeat.
// * Radial gradient are not implemented. The VML version of these look very
//   different from the canvas one.
// * Clipping paths are not implemented.
// * Coordsize. The width and height attribute have higher priority than the
//   width and height style values which isn't correct.
// * Painting mode isn't implemented.
// * Canvas width/height should is using content-box by default. IE in
//   Quirks mode will draw the canvas using border-box. Either change your
//   doctype to HTML5
//   (http://www.whatwg.org/specs/web-apps/current-work/#the-doctype)
//   or use Box Sizing Behavior from WebFX
//   (http://webfx.eae.net/dhtml/boxsizing/boxsizing.html)
// * Non uniform scaling does not correctly scale strokes.
// * Filling very large shapes (above 5000 points) is buggy.
// * Optimize. There is always room for speed improvements.

// Only add this code if we do not already have a canvas implementation
if (!document.createElement('canvas').getContext) {
	(function () {
		// alias some functions to make (compiled) code shorter
		var m = Math;
		var mr = m.round;
		var ms = m.sin;
		var mc = m.cos;
		var abs = m.abs;
		var sqrt = m.sqrt;

		// this is used for sub pixel precision
		var Z = 10;
		var Z2 = Z / 2;

		/**
		 * This funtion is assigned to the <canvas> elements as element.getContext().
		 * @this {HTMLElement}
		 * @return {CanvasRenderingContext2D_}
		 */
		function getContext() {
			return this.context_ || (this.context_ = new CanvasRenderingContext2D_(this));
		}

		var slice = Array.prototype.slice;

		/**
		 * Binds a function to an object. The returned function will always use the
		 * passed in {@code obj} as {@code this}.
		 *
		 * Example:
		 *
		 *   g = bind(f, obj, a, b)
		 *   g(c, d) // will do f.call(obj, a, b, c, d)
		 *
		 * @param {Function} f The function to bind the object to
		 * @param {Object} obj The object that should act as this when the function
		 *     is called
		 * @param {*} var_args Rest arguments that will be used as the initial
		 *     arguments when the function is called
		 * @return {Function} A new function that has bound this
		 */
		function bind(f, obj, var_args) {
			var a = slice.call(arguments, 2);
			return function () {
				return f.apply(obj, a.concat(slice.call(arguments)));
			};
		}

		function encodeHtmlAttribute(s) {
			return String(s).replace(/&/g, '&amp;').replace(/"/g, '&quot;');
		}

		function addNamespacesAndStylesheet(doc) {
			// create xmlns
			if (!doc.namespaces['g_vml_']) {
				doc.namespaces.add('g_vml_', 'urn:schemas-microsoft-com:vml', '#default#VML');
			}
			if (!doc.namespaces['g_o_']) {
				doc.namespaces.add('g_o_', 'urn:schemas-microsoft-com:office:office', '#default#VML');
			}

			// Setup default CSS.  Only add one style sheet per document
			if (!doc.styleSheets['ex_canvas_']) {
				var ss = doc.createStyleSheet();
				ss.owningElement.id = 'ex_canvas_';
				ss.cssText =
					'canvas{display:inline-block;overflow:hidden;' +
					// default size is 300x150 in Gecko and Opera
					'text-align:left;width:300px;height:150px}';
			}
		}

		// Add namespaces and stylesheet at startup.
		addNamespacesAndStylesheet(document);

		var G_vmlCanvasManager_ = {
			init: function (opt_doc) {
				if (/MSIE/.test(navigator.userAgent) && !window.opera) {
					var doc = opt_doc || document;
					// Create a dummy element so that IE will allow canvas elements to be
					// recognized.
					doc.createElement('canvas');
					doc.attachEvent('onreadystatechange', bind(this.init_, this, doc));
				}
			},

			init_: function (doc) {
				// find all canvas elements
				var els = doc.getElementsByTagName('canvas');
				for (var i = 0; i < els.length; i++) {
					this.initElement(els[i]);
				}
			},

			/**
			 * Public initializes a canvas element so that it can be used as canvas
			 * element from now on. This is called automatically before the page is
			 * loaded but if you are creating elements using createElement you need to
			 * make sure this is called on the element.
			 * @param {HTMLElement} el The canvas element to initialize.
			 * @return {HTMLElement} the element that was created.
			 */
			initElement: function (el) {
				if (!el.getContext) {
					el.getContext = getContext;

					// Add namespaces and stylesheet to document of the element.
					addNamespacesAndStylesheet(el.ownerDocument);

					// Remove fallback content. There is no way to hide text nodes so we
					// just remove all childNodes. We could hide all elements and remove
					// text nodes but who really cares about the fallback content.
					el.innerHTML = '';

					// do not use inline function because that will leak memory
					el.attachEvent('onpropertychange', onPropertyChange);
					el.attachEvent('onresize', onResize);

					var attrs = el.attributes;
					if (attrs.width && attrs.width.specified) {
						// TODO: use runtimeStyle and coordsize
						// el.getContext().setWidth_(attrs.width.nodeValue);
						el.style.width = attrs.width.nodeValue + 'px';
					} else {
						el.width = el.clientWidth;
					}
					if (attrs.height && attrs.height.specified) {
						// TODO: use runtimeStyle and coordsize
						// el.getContext().setHeight_(attrs.height.nodeValue);
						el.style.height = attrs.height.nodeValue + 'px';
					} else {
						el.height = el.clientHeight;
					}
					//el.getContext().setCoordsize_()
				}
				return el;
			},
		};

		function onPropertyChange(e) {
			var el = e.srcElement;

			switch (e.propertyName) {
				case 'width':
					el.getContext().clearRect();
					el.style.width = el.attributes.width.nodeValue + 'px';
					// In IE8 this does not trigger onresize.
					el.firstChild.style.width = el.clientWidth + 'px';
					break;
				case 'height':
					el.getContext().clearRect();
					el.style.height = el.attributes.height.nodeValue + 'px';
					el.firstChild.style.height = el.clientHeight + 'px';
					break;
			}
		}

		function onResize(e) {
			var el = e.srcElement;
			if (el.firstChild) {
				el.firstChild.style.width = el.clientWidth + 'px';
				el.firstChild.style.height = el.clientHeight + 'px';
			}
		}

		G_vmlCanvasManager_.init();

		// precompute "00" to "FF"
		var decToHex = [];
		for (var i = 0; i < 16; i++) {
			for (var j = 0; j < 16; j++) {
				decToHex[i * 16 + j] = i.toString(16) + j.toString(16);
			}
		}

		function createMatrixIdentity() {
			return [
				[1, 0, 0],
				[0, 1, 0],
				[0, 0, 1],
			];
		}

		function matrixMultiply(m1, m2) {
			var result = createMatrixIdentity();

			for (var x = 0; x < 3; x++) {
				for (var y = 0; y < 3; y++) {
					var sum = 0;

					for (var z = 0; z < 3; z++) {
						sum += m1[x][z] * m2[z][y];
					}

					result[x][y] = sum;
				}
			}
			return result;
		}

		function copyState(o1, o2) {
			o2.fillStyle = o1.fillStyle;
			o2.lineCap = o1.lineCap;
			o2.lineJoin = o1.lineJoin;
			o2.lineWidth = o1.lineWidth;
			o2.miterLimit = o1.miterLimit;
			o2.shadowBlur = o1.shadowBlur;
			o2.shadowColor = o1.shadowColor;
			o2.shadowOffsetX = o1.shadowOffsetX;
			o2.shadowOffsetY = o1.shadowOffsetY;
			o2.strokeStyle = o1.strokeStyle;
			o2.globalAlpha = o1.globalAlpha;
			o2.font = o1.font;
			o2.textAlign = o1.textAlign;
			o2.textBaseline = o1.textBaseline;
			o2.arcScaleX_ = o1.arcScaleX_;
			o2.arcScaleY_ = o1.arcScaleY_;
			o2.lineScale_ = o1.lineScale_;
		}

		var colorData = {
			aliceblue: '#F0F8FF',
			antiquewhite: '#FAEBD7',
			aquamarine: '#7FFFD4',
			azure: '#F0FFFF',
			beige: '#F5F5DC',
			bisque: '#FFE4C4',
			black: '#000000',
			blanchedalmond: '#FFEBCD',
			blueviolet: '#8A2BE2',
			brown: '#A52A2A',
			burlywood: '#DEB887',
			cadetblue: '#5F9EA0',
			chartreuse: '#7FFF00',
			chocolate: '#D2691E',
			coral: '#FF7F50',
			cornflowerblue: '#6495ED',
			cornsilk: '#FFF8DC',
			crimson: '#DC143C',
			cyan: '#00FFFF',
			darkblue: '#00008B',
			darkcyan: '#008B8B',
			darkgoldenrod: '#B8860B',
			darkgray: '#A9A9A9',
			darkgreen: '#006400',
			darkgrey: '#A9A9A9',
			darkkhaki: '#BDB76B',
			darkmagenta: '#8B008B',
			darkolivegreen: '#556B2F',
			darkorange: '#FF8C00',
			darkorchid: '#9932CC',
			darkred: '#8B0000',
			darksalmon: '#E9967A',
			darkseagreen: '#8FBC8F',
			darkslateblue: '#483D8B',
			darkslategray: '#2F4F4F',
			darkslategrey: '#2F4F4F',
			darkturquoise: '#00CED1',
			darkviolet: '#9400D3',
			deeppink: '#FF1493',
			deepskyblue: '#00BFFF',
			dimgray: '#696969',
			dimgrey: '#696969',
			dodgerblue: '#1E90FF',
			firebrick: '#B22222',
			floralwhite: '#FFFAF0',
			forestgreen: '#228B22',
			gainsboro: '#DCDCDC',
			ghostwhite: '#F8F8FF',
			gold: '#FFD700',
			goldenrod: '#DAA520',
			grey: '#808080',
			greenyellow: '#ADFF2F',
			honeydew: '#F0FFF0',
			hotpink: '#FF69B4',
			indianred: '#CD5C5C',
			indigo: '#4B0082',
			ivory: '#FFFFF0',
			khaki: '#F0E68C',
			lavender: '#E6E6FA',
			lavenderblush: '#FFF0F5',
			lawngreen: '#7CFC00',
			lemonchiffon: '#FFFACD',
			lightblue: '#ADD8E6',
			lightcoral: '#F08080',
			lightcyan: '#E0FFFF',
			lightgoldenrodyellow: '#FAFAD2',
			lightgreen: '#90EE90',
			lightgrey: '#D3D3D3',
			lightpink: '#FFB6C1',
			lightsalmon: '#FFA07A',
			lightseagreen: '#20B2AA',
			lightskyblue: '#87CEFA',
			lightslategray: '#778899',
			lightslategrey: '#778899',
			lightsteelblue: '#B0C4DE',
			lightyellow: '#FFFFE0',
			limegreen: '#32CD32',
			linen: '#FAF0E6',
			magenta: '#FF00FF',
			mediumaquamarine: '#66CDAA',
			mediumblue: '#0000CD',
			mediumorchid: '#BA55D3',
			mediumpurple: '#9370DB',
			mediumseagreen: '#3CB371',
			mediumslateblue: '#7B68EE',
			mediumspringgreen: '#00FA9A',
			mediumturquoise: '#48D1CC',
			mediumvioletred: '#C71585',
			midnightblue: '#191970',
			mintcream: '#F5FFFA',
			mistyrose: '#FFE4E1',
			moccasin: '#FFE4B5',
			navajowhite: '#FFDEAD',
			oldlace: '#FDF5E6',
			olivedrab: '#6B8E23',
			orange: '#FFA500',
			orangered: '#FF4500',
			orchid: '#DA70D6',
			palegoldenrod: '#EEE8AA',
			palegreen: '#98FB98',
			paleturquoise: '#AFEEEE',
			palevioletred: '#DB7093',
			papayawhip: '#FFEFD5',
			peachpuff: '#FFDAB9',
			peru: '#CD853F',
			pink: '#FFC0CB',
			plum: '#DDA0DD',
			powderblue: '#B0E0E6',
			rosybrown: '#BC8F8F',
			royalblue: '#4169E1',
			saddlebrown: '#8B4513',
			salmon: '#FA8072',
			sandybrown: '#F4A460',
			seagreen: '#2E8B57',
			seashell: '#FFF5EE',
			sienna: '#A0522D',
			skyblue: '#87CEEB',
			slateblue: '#6A5ACD',
			slategray: '#708090',
			slategrey: '#708090',
			snow: '#FFFAFA',
			springgreen: '#00FF7F',
			steelblue: '#4682B4',
			tan: '#D2B48C',
			thistle: '#D8BFD8',
			tomato: '#FF6347',
			turquoise: '#40E0D0',
			violet: '#EE82EE',
			wheat: '#F5DEB3',
			whitesmoke: '#F5F5F5',
			yellowgreen: '#9ACD32',
		};

		function getRgbHslContent(styleString) {
			var start = styleString.indexOf('(', 3);
			var end = styleString.indexOf(')', start + 1);
			var parts = styleString.substring(start + 1, end).split(',');
			// add alpha if needed
			if (parts.length == 4 && styleString.substr(3, 1) == 'a') {
				alpha = Number(parts[3]);
			} else {
				parts[3] = 1;
			}
			return parts;
		}

		function percent(s) {
			return parseFloat(s) / 100;
		}

		function clamp(v, min, max) {
			return Math.min(max, Math.max(min, v));
		}

		function hslToRgb(parts) {
			var r, g, b;
			h = (parseFloat(parts[0]) / 360) % 360;
			if (h < 0) h++;
			s = clamp(percent(parts[1]), 0, 1);
			l = clamp(percent(parts[2]), 0, 1);
			if (s == 0) {
				r = g = b = l; // achromatic
			} else {
				var q = l < 0.5 ? l * (1 + s) : l + s - l * s;
				var p = 2 * l - q;
				r = hueToRgb(p, q, h + 1 / 3);
				g = hueToRgb(p, q, h);
				b = hueToRgb(p, q, h - 1 / 3);
			}

			return '#' + decToHex[Math.floor(r * 255)] + decToHex[Math.floor(g * 255)] + decToHex[Math.floor(b * 255)];
		}

		function hueToRgb(m1, m2, h) {
			if (h < 0) h++;
			if (h > 1) h--;

			if (6 * h < 1) return m1 + (m2 - m1) * 6 * h;
			else if (2 * h < 1) return m2;
			else if (3 * h < 2) return m1 + (m2 - m1) * (2 / 3 - h) * 6;
			else return m1;
		}

		function processStyle(styleString) {
			var str,
				alpha = 1;

			styleString = String(styleString);
			if (styleString.charAt(0) == '#') {
				str = styleString;
			} else if (/^rgb/.test(styleString)) {
				var parts = getRgbHslContent(styleString);
				var str = '#',
					n;
				for (var i = 0; i < 3; i++) {
					if (parts[i].indexOf('%') != -1) {
						n = Math.floor(percent(parts[i]) * 255);
					} else {
						n = Number(parts[i]);
					}
					str += decToHex[clamp(n, 0, 255)];
				}
				alpha = parts[3];
			} else if (/^hsl/.test(styleString)) {
				var parts = getRgbHslContent(styleString);
				str = hslToRgb(parts);
				alpha = parts[3];
			} else {
				str = colorData[styleString] || styleString;
			}
			return { color: str, alpha: alpha };
		}

		var DEFAULT_STYLE = {
			style: 'normal',
			variant: 'normal',
			weight: 'normal',
			size: 10,
			family: 'sans-serif',
		};

		// Internal text style cache
		var fontStyleCache = {};

		function processFontStyle(styleString) {
			if (fontStyleCache[styleString]) {
				return fontStyleCache[styleString];
			}

			var el = document.createElement('div');
			var style = el.style;
			try {
				style.font = styleString;
			} catch (ex) {
				// Ignore failures to set to invalid font.
			}

			return (fontStyleCache[styleString] = {
				style: style.fontStyle || DEFAULT_STYLE.style,
				variant: style.fontVariant || DEFAULT_STYLE.variant,
				weight: style.fontWeight || DEFAULT_STYLE.weight,
				size: style.fontSize || DEFAULT_STYLE.size,
				family: style.fontFamily || DEFAULT_STYLE.family,
			});
		}

		function getComputedStyle(style, element) {
			var computedStyle = {};

			for (var p in style) {
				computedStyle[p] = style[p];
			}

			// Compute the size
			var canvasFontSize = parseFloat(element.currentStyle.fontSize),
				fontSize = parseFloat(style.size);

			if (typeof style.size == 'number') {
				computedStyle.size = style.size;
			} else if (style.size.indexOf('px') != -1) {
				computedStyle.size = fontSize;
			} else if (style.size.indexOf('em') != -1) {
				computedStyle.size = canvasFontSize * fontSize;
			} else if (style.size.indexOf('%') != -1) {
				computedStyle.size = (canvasFontSize / 100) * fontSize;
			} else if (style.size.indexOf('pt') != -1) {
				computedStyle.size = fontSize / 0.75;
			} else {
				computedStyle.size = canvasFontSize;
			}

			// Different scaling between normal text and VML text. This was found using
			// trial and error to get the same size as non VML text.
			computedStyle.size *= 0.981;

			return computedStyle;
		}

		function buildStyle(style) {
			return style.style + ' ' + style.variant + ' ' + style.weight + ' ' + style.size + 'px ' + style.family;
		}

		function processLineCap(lineCap) {
			switch (lineCap) {
				case 'butt':
					return 'flat';
				case 'round':
					return 'round';
				case 'square':
				default:
					return 'square';
			}
		}

		/**
		 * This class implements CanvasRenderingContext2D interface as described by
		 * the WHATWG.
		 * @param {HTMLElement} surfaceElement The element that the 2D context should
		 * be associated with
		 */
		function CanvasRenderingContext2D_(surfaceElement) {
			this.m_ = createMatrixIdentity();

			this.mStack_ = [];
			this.aStack_ = [];
			this.currentPath_ = [];

			// Canvas context properties
			this.strokeStyle = '#000';
			this.fillStyle = '#000';

			this.lineWidth = 1;
			this.lineJoin = 'miter';
			this.lineCap = 'butt';
			this.miterLimit = Z * 1;
			this.globalAlpha = 1;
			this.font = '10px sans-serif';
			this.textAlign = 'left';
			this.textBaseline = 'alphabetic';
			this.canvas = surfaceElement;

			var el = surfaceElement.ownerDocument.createElement('div');
			el.style.width = surfaceElement.clientWidth + 'px';
			el.style.height = surfaceElement.clientHeight + 'px';
			el.style.overflow = 'hidden';
			el.style.position = 'absolute';
			surfaceElement.appendChild(el);

			this.element_ = el;
			this.arcScaleX_ = 1;
			this.arcScaleY_ = 1;
			this.lineScale_ = 1;
		}

		var contextPrototype = CanvasRenderingContext2D_.prototype;
		contextPrototype.clearRect = function () {
			if (this.textMeasureEl_) {
				this.textMeasureEl_.removeNode(true);
				this.textMeasureEl_ = null;
			}
			this.element_.innerHTML = '';
		};

		contextPrototype.beginPath = function () {
			// TODO: Branch current matrix so that save/restore has no effect
			//       as per safari docs.
			this.currentPath_ = [];
		};

		contextPrototype.moveTo = function (aX, aY) {
			var p = this.getCoords_(aX, aY);
			this.currentPath_.push({ type: 'moveTo', x: p.x, y: p.y });
			this.currentX_ = p.x;
			this.currentY_ = p.y;
		};

		contextPrototype.lineTo = function (aX, aY) {
			var p = this.getCoords_(aX, aY);
			this.currentPath_.push({ type: 'lineTo', x: p.x, y: p.y });

			this.currentX_ = p.x;
			this.currentY_ = p.y;
		};

		contextPrototype.bezierCurveTo = function (aCP1x, aCP1y, aCP2x, aCP2y, aX, aY) {
			var p = this.getCoords_(aX, aY);
			var cp1 = this.getCoords_(aCP1x, aCP1y);
			var cp2 = this.getCoords_(aCP2x, aCP2y);
			bezierCurveTo(this, cp1, cp2, p);
		};

		// Helper function that takes the already fixed cordinates.
		function bezierCurveTo(self, cp1, cp2, p) {
			self.currentPath_.push({
				type: 'bezierCurveTo',
				cp1x: cp1.x,
				cp1y: cp1.y,
				cp2x: cp2.x,
				cp2y: cp2.y,
				x: p.x,
				y: p.y,
			});
			self.currentX_ = p.x;
			self.currentY_ = p.y;
		}

		contextPrototype.quadraticCurveTo = function (aCPx, aCPy, aX, aY) {
			// the following is lifted almost directly from
			// http://developer.mozilla.org/en/docs/Canvas_tutorial:Drawing_shapes

			var cp = this.getCoords_(aCPx, aCPy);
			var p = this.getCoords_(aX, aY);

			var cp1 = {
				x: this.currentX_ + (2.0 / 3.0) * (cp.x - this.currentX_),
				y: this.currentY_ + (2.0 / 3.0) * (cp.y - this.currentY_),
			};
			var cp2 = {
				x: cp1.x + (p.x - this.currentX_) / 3.0,
				y: cp1.y + (p.y - this.currentY_) / 3.0,
			};

			bezierCurveTo(this, cp1, cp2, p);
		};

		contextPrototype.arc = function (aX, aY, aRadius, aStartAngle, aEndAngle, aClockwise) {
			aRadius *= Z;
			var arcType = aClockwise ? 'at' : 'wa';

			var xStart = aX + mc(aStartAngle) * aRadius - Z2;
			var yStart = aY + ms(aStartAngle) * aRadius - Z2;

			var xEnd = aX + mc(aEndAngle) * aRadius - Z2;
			var yEnd = aY + ms(aEndAngle) * aRadius - Z2;

			// IE won't render arches drawn counter clockwise if xStart == xEnd.
			if (xStart == xEnd && !aClockwise) {
				xStart += 0.125; // Offset xStart by 1/80 of a pixel. Use something
				// that can be represented in binary
			}

			var p = this.getCoords_(aX, aY);
			var pStart = this.getCoords_(xStart, yStart);
			var pEnd = this.getCoords_(xEnd, yEnd);

			this.currentPath_.push({
				type: arcType,
				x: p.x,
				y: p.y,
				radius: aRadius,
				xStart: pStart.x,
				yStart: pStart.y,
				xEnd: pEnd.x,
				yEnd: pEnd.y,
			});
		};

		contextPrototype.rect = function (aX, aY, aWidth, aHeight) {
			this.moveTo(aX, aY);
			this.lineTo(aX + aWidth, aY);
			this.lineTo(aX + aWidth, aY + aHeight);
			this.lineTo(aX, aY + aHeight);
			this.closePath();
		};

		contextPrototype.strokeRect = function (aX, aY, aWidth, aHeight) {
			var oldPath = this.currentPath_;
			this.beginPath();

			this.moveTo(aX, aY);
			this.lineTo(aX + aWidth, aY);
			this.lineTo(aX + aWidth, aY + aHeight);
			this.lineTo(aX, aY + aHeight);
			this.closePath();
			this.stroke();

			this.currentPath_ = oldPath;
		};

		contextPrototype.fillRect = function (aX, aY, aWidth, aHeight) {
			var oldPath = this.currentPath_;
			this.beginPath();

			this.moveTo(aX, aY);
			this.lineTo(aX + aWidth, aY);
			this.lineTo(aX + aWidth, aY + aHeight);
			this.lineTo(aX, aY + aHeight);
			this.closePath();
			this.fill();

			this.currentPath_ = oldPath;
		};

		contextPrototype.createLinearGradient = function (aX0, aY0, aX1, aY1) {
			var gradient = new CanvasGradient_('gradient');
			gradient.x0_ = aX0;
			gradient.y0_ = aY0;
			gradient.x1_ = aX1;
			gradient.y1_ = aY1;
			return gradient;
		};

		contextPrototype.createRadialGradient = function (aX0, aY0, aR0, aX1, aY1, aR1) {
			var gradient = new CanvasGradient_('gradientradial');
			gradient.x0_ = aX0;
			gradient.y0_ = aY0;
			gradient.r0_ = aR0;
			gradient.x1_ = aX1;
			gradient.y1_ = aY1;
			gradient.r1_ = aR1;
			return gradient;
		};

		contextPrototype.drawImage = function (image, var_args) {
			var dx, dy, dw, dh, sx, sy, sw, sh;

			// to find the original width we overide the width and height
			var oldRuntimeWidth = image.runtimeStyle.width;
			var oldRuntimeHeight = image.runtimeStyle.height;
			image.runtimeStyle.width = 'auto';
			image.runtimeStyle.height = 'auto';

			// get the original size
			var w = image.width;
			var h = image.height;

			// and remove overides
			image.runtimeStyle.width = oldRuntimeWidth;
			image.runtimeStyle.height = oldRuntimeHeight;

			if (arguments.length == 3) {
				dx = arguments[1];
				dy = arguments[2];
				sx = sy = 0;
				sw = dw = w;
				sh = dh = h;
			} else if (arguments.length == 5) {
				dx = arguments[1];
				dy = arguments[2];
				dw = arguments[3];
				dh = arguments[4];
				sx = sy = 0;
				sw = w;
				sh = h;
			} else if (arguments.length == 9) {
				sx = arguments[1];
				sy = arguments[2];
				sw = arguments[3];
				sh = arguments[4];
				dx = arguments[5];
				dy = arguments[6];
				dw = arguments[7];
				dh = arguments[8];
			} else {
				throw Error('Invalid number of arguments');
			}

			var d = this.getCoords_(dx, dy);

			var w2 = sw / 2;
			var h2 = sh / 2;

			var vmlStr = [];

			var W = 10;
			var H = 10;

			// For some reason that I've now forgotten, using divs didn't work
			vmlStr.push(
				' <g_vml_:group',
				' coordsize="',
				Z * W,
				',',
				Z * H,
				'"',
				' coordorigin="0,0"',
				' style="width:',
				W,
				'px;height:',
				H,
				'px;position:absolute;',
			);

			// If filters are necessary (rotation exists), create them
			// filters are bog-slow, so only create them if abbsolutely necessary
			// The following check doesn't account for skews (which don't exist
			// in the canvas spec (yet) anyway.

			if (this.m_[0][0] != 1 || this.m_[0][1] || this.m_[1][1] != 1 || this.m_[1][0]) {
				var filter = [];

				// Note the 12/21 reversal
				filter.push(
					'M11=',
					this.m_[0][0],
					',',
					'M12=',
					this.m_[1][0],
					',',
					'M21=',
					this.m_[0][1],
					',',
					'M22=',
					this.m_[1][1],
					',',
					'Dx=',
					mr(d.x / Z),
					',',
					'Dy=',
					mr(d.y / Z),
					'',
				);

				// Bounding box calculation (need to minimize displayed area so that
				// filters don't waste time on unused pixels.
				var max = d;
				var c2 = this.getCoords_(dx + dw, dy);
				var c3 = this.getCoords_(dx, dy + dh);
				var c4 = this.getCoords_(dx + dw, dy + dh);

				max.x = m.max(max.x, c2.x, c3.x, c4.x);
				max.y = m.max(max.y, c2.y, c3.y, c4.y);

				vmlStr.push(
					'padding:0 ',
					mr(max.x / Z),
					'px ',
					mr(max.y / Z),
					'px 0;filter:progid:DXImageTransform.Microsoft.Matrix(',
					filter.join(''),
					", sizingmethod='clip');",
				);
			} else {
				vmlStr.push('top:', mr(d.y / Z), 'px;left:', mr(d.x / Z), 'px;');
			}

			vmlStr.push(
				' ">',
				'<g_vml_:image src="',
				image.src,
				'"',
				' style="width:',
				Z * dw,
				'px;',
				' height:',
				Z * dh,
				'px"',
				' cropleft="',
				sx / w,
				'"',
				' croptop="',
				sy / h,
				'"',
				' cropright="',
				(w - sx - sw) / w,
				'"',
				' cropbottom="',
				(h - sy - sh) / h,
				'"',
				' />',
				'</g_vml_:group>',
			);

			this.element_.insertAdjacentHTML('BeforeEnd', vmlStr.join(''));
		};

		contextPrototype.stroke = function (aFill) {
			var W = 10;
			var H = 10;
			// Divide the shape into chunks if it's too long because IE has a limit
			// somewhere for how long a VML shape can be. This simple division does
			// not work with fills, only strokes, unfortunately.
			var chunkSize = 5000;

			var min = { x: null, y: null };
			var max = { x: null, y: null };

			for (var j = 0; j < this.currentPath_.length; j += chunkSize) {
				var lineStr = [];
				var lineOpen = false;

				lineStr.push(
					'<g_vml_:shape',
					' filled="',
					!!aFill,
					'"',
					' style="position:absolute;width:',
					W,
					'px;height:',
					H,
					'px;"',
					' coordorigin="0,0"',
					' coordsize="',
					Z * W,
					',',
					Z * H,
					'"',
					' stroked="',
					!aFill,
					'"',
					' path="',
				);

				var newSeq = false;

				for (var i = j; i < Math.min(j + chunkSize, this.currentPath_.length); i++) {
					if (i % chunkSize == 0 && i > 0) {
						// move into position for next chunk
						lineStr.push(' m ', mr(this.currentPath_[i - 1].x), ',', mr(this.currentPath_[i - 1].y));
					}

					var p = this.currentPath_[i];
					var c;

					switch (p.type) {
						case 'moveTo':
							c = p;
							lineStr.push(' m ', mr(p.x), ',', mr(p.y));
							break;
						case 'lineTo':
							lineStr.push(' l ', mr(p.x), ',', mr(p.y));
							break;
						case 'close':
							lineStr.push(' x ');
							p = null;
							break;
						case 'bezierCurveTo':
							lineStr.push(' c ', mr(p.cp1x), ',', mr(p.cp1y), ',', mr(p.cp2x), ',', mr(p.cp2y), ',', mr(p.x), ',', mr(p.y));
							break;
						case 'at':
						case 'wa':
							lineStr.push(
								' ',
								p.type,
								' ',
								mr(p.x - this.arcScaleX_ * p.radius),
								',',
								mr(p.y - this.arcScaleY_ * p.radius),
								' ',
								mr(p.x + this.arcScaleX_ * p.radius),
								',',
								mr(p.y + this.arcScaleY_ * p.radius),
								' ',
								mr(p.xStart),
								',',
								mr(p.yStart),
								' ',
								mr(p.xEnd),
								',',
								mr(p.yEnd),
							);
							break;
					}

					// TODO: Following is broken for curves due to
					//       move to proper paths.

					// Figure out dimensions so we can do gradient fills
					// properly
					if (p) {
						if (min.x == null || p.x < min.x) {
							min.x = p.x;
						}
						if (max.x == null || p.x > max.x) {
							max.x = p.x;
						}
						if (min.y == null || p.y < min.y) {
							min.y = p.y;
						}
						if (max.y == null || p.y > max.y) {
							max.y = p.y;
						}
					}
				}
				lineStr.push(' ">');

				if (!aFill) {
					appendStroke(this, lineStr);
				} else {
					appendFill(this, lineStr, min, max);
				}

				lineStr.push('</g_vml_:shape>');

				this.element_.insertAdjacentHTML('beforeEnd', lineStr.join(''));
			}
		};

		function appendStroke(ctx, lineStr) {
			var a = processStyle(ctx.strokeStyle);
			var color = a.color;
			var opacity = a.alpha * ctx.globalAlpha;
			var lineWidth = ctx.lineScale_ * ctx.lineWidth;

			// VML cannot correctly render a line if the width is less than 1px.
			// In that case, we dilute the color to make the line look thinner.
			if (lineWidth < 1) {
				opacity *= lineWidth;
			}

			lineStr.push(
				'<g_vml_:stroke',
				' opacity="',
				opacity,
				'"',
				' joinstyle="',
				ctx.lineJoin,
				'"',
				' miterlimit="',
				ctx.miterLimit,
				'"',
				' endcap="',
				processLineCap(ctx.lineCap),
				'"',
				' weight="',
				lineWidth,
				'px"',
				' color="',
				color,
				'" />',
			);
		}

		function appendFill(ctx, lineStr, min, max) {
			var fillStyle = ctx.fillStyle;
			var arcScaleX = ctx.arcScaleX_;
			var arcScaleY = ctx.arcScaleY_;
			var width = max.x - min.x;
			var height = max.y - min.y;
			if (fillStyle instanceof CanvasGradient_) {
				// TODO: Gradients transformed with the transformation matrix.
				var angle = 0;
				var focus = { x: 0, y: 0 };

				// additional offset
				var shift = 0;
				// scale factor for offset
				var expansion = 1;

				if (fillStyle.type_ == 'gradient') {
					var x0 = fillStyle.x0_ / arcScaleX;
					var y0 = fillStyle.y0_ / arcScaleY;
					var x1 = fillStyle.x1_ / arcScaleX;
					var y1 = fillStyle.y1_ / arcScaleY;
					var p0 = ctx.getCoords_(x0, y0);
					var p1 = ctx.getCoords_(x1, y1);
					var dx = p1.x - p0.x;
					var dy = p1.y - p0.y;
					angle = (Math.atan2(dx, dy) * 180) / Math.PI;

					// The angle should be a non-negative number.
					if (angle < 0) {
						angle += 360;
					}

					// Very small angles produce an unexpected result because they are
					// converted to a scientific notation string.
					if (angle < 1e-6) {
						angle = 0;
					}
				} else {
					var p0 = ctx.getCoords_(fillStyle.x0_, fillStyle.y0_);
					focus = {
						x: (p0.x - min.x) / width,
						y: (p0.y - min.y) / height,
					};

					width /= arcScaleX * Z;
					height /= arcScaleY * Z;
					var dimension = m.max(width, height);
					shift = (2 * fillStyle.r0_) / dimension;
					expansion = (2 * fillStyle.r1_) / dimension - shift;
				}

				// We need to sort the color stops in ascending order by offset,
				// otherwise IE won't interpret it correctly.
				var stops = fillStyle.colors_;
				stops.sort(function (cs1, cs2) {
					return cs1.offset - cs2.offset;
				});

				var length = stops.length;
				var color1 = stops[0].color;
				var color2 = stops[length - 1].color;
				var opacity1 = stops[0].alpha * ctx.globalAlpha;
				var opacity2 = stops[length - 1].alpha * ctx.globalAlpha;

				var colors = [];
				for (var i = 0; i < length; i++) {
					var stop = stops[i];
					colors.push(stop.offset * expansion + shift + ' ' + stop.color);
				}

				// When colors attribute is used, the meanings of opacity and o:opacity2
				// are reversed.
				lineStr.push(
					'<g_vml_:fill type="',
					fillStyle.type_,
					'"',
					' method="none" focus="100%"',
					' color="',
					color1,
					'"',
					' color2="',
					color2,
					'"',
					' colors="',
					colors.join(','),
					'"',
					' opacity="',
					opacity2,
					'"',
					' g_o_:opacity2="',
					opacity1,
					'"',
					' angle="',
					angle,
					'"',
					' focusposition="',
					focus.x,
					',',
					focus.y,
					'" />',
				);
			} else if (fillStyle instanceof CanvasPattern_) {
				if (width && height) {
					var deltaLeft = -min.x;
					var deltaTop = -min.y;
					lineStr.push(
						'<g_vml_:fill',
						' position="',
						(deltaLeft / width) * arcScaleX * arcScaleX,
						',',
						(deltaTop / height) * arcScaleY * arcScaleY,
						'"',
						' type="tile"',
						// TODO: Figure out the correct size to fit the scale.
						//' size="', w, 'px ', h, 'px"',
						' src="',
						fillStyle.src_,
						'" />',
					);
				}
			} else {
				var a = processStyle(ctx.fillStyle);
				var color = a.color;
				var opacity = a.alpha * ctx.globalAlpha;
				lineStr.push('<g_vml_:fill color="', color, '" opacity="', opacity, '" />');
			}
		}

		contextPrototype.fill = function () {
			this.stroke(true);
		};

		contextPrototype.closePath = function () {
			this.currentPath_.push({ type: 'close' });
		};

		/**
		 * @private
		 */
		contextPrototype.getCoords_ = function (aX, aY) {
			var m = this.m_;
			return {
				x: Z * (aX * m[0][0] + aY * m[1][0] + m[2][0]) - Z2,
				y: Z * (aX * m[0][1] + aY * m[1][1] + m[2][1]) - Z2,
			};
		};

		contextPrototype.save = function () {
			var o = {};
			copyState(this, o);
			this.aStack_.push(o);
			this.mStack_.push(this.m_);
			this.m_ = matrixMultiply(createMatrixIdentity(), this.m_);
		};

		contextPrototype.restore = function () {
			if (this.aStack_.length) {
				copyState(this.aStack_.pop(), this);
				this.m_ = this.mStack_.pop();
			}
		};

		function matrixIsFinite(m) {
			return (
				isFinite(m[0][0]) && isFinite(m[0][1]) && isFinite(m[1][0]) && isFinite(m[1][1]) && isFinite(m[2][0]) && isFinite(m[2][1])
			);
		}

		function setM(ctx, m, updateLineScale) {
			if (!matrixIsFinite(m)) {
				return;
			}
			ctx.m_ = m;

			if (updateLineScale) {
				// Get the line scale.
				// Determinant of this.m_ means how much the area is enlarged by the
				// transformation. So its square root can be used as a scale factor
				// for width.
				var det = m[0][0] * m[1][1] - m[0][1] * m[1][0];
				ctx.lineScale_ = sqrt(abs(det));
			}
		}

		contextPrototype.translate = function (aX, aY) {
			var m1 = [
				[1, 0, 0],
				[0, 1, 0],
				[aX, aY, 1],
			];

			setM(this, matrixMultiply(m1, this.m_), false);
		};

		contextPrototype.rotate = function (aRot) {
			var c = mc(aRot);
			var s = ms(aRot);

			var m1 = [
				[c, s, 0],
				[-s, c, 0],
				[0, 0, 1],
			];

			setM(this, matrixMultiply(m1, this.m_), false);
		};

		contextPrototype.scale = function (aX, aY) {
			this.arcScaleX_ *= aX;
			this.arcScaleY_ *= aY;
			var m1 = [
				[aX, 0, 0],
				[0, aY, 0],
				[0, 0, 1],
			];

			setM(this, matrixMultiply(m1, this.m_), true);
		};

		contextPrototype.transform = function (m11, m12, m21, m22, dx, dy) {
			var m1 = [
				[m11, m12, 0],
				[m21, m22, 0],
				[dx, dy, 1],
			];

			setM(this, matrixMultiply(m1, this.m_), true);
		};

		contextPrototype.setTransform = function (m11, m12, m21, m22, dx, dy) {
			var m = [
				[m11, m12, 0],
				[m21, m22, 0],
				[dx, dy, 1],
			];

			setM(this, m, true);
		};

		/**
		 * The text drawing function.
		 * The maxWidth argument isn't taken in account, since no browser supports
		 * it yet.
		 */
		contextPrototype.drawText_ = function (text, x, y, maxWidth, stroke) {
			var m = this.m_,
				delta = 1000,
				left = 0,
				right = delta,
				offset = { x: 0, y: 0 },
				lineStr = [];

			var fontStyle = getComputedStyle(processFontStyle(this.font), this.element_);

			var fontStyleString = buildStyle(fontStyle);

			var elementStyle = this.element_.currentStyle;
			var textAlign = this.textAlign.toLowerCase();
			switch (textAlign) {
				case 'left':
				case 'center':
				case 'right':
					break;
				case 'end':
					textAlign = elementStyle.direction == 'ltr' ? 'right' : 'left';
					break;
				case 'start':
					textAlign = elementStyle.direction == 'rtl' ? 'right' : 'left';
					break;
				default:
					textAlign = 'left';
			}

			// 1.75 is an arbitrary number, as there is no info about the text baseline
			switch (this.textBaseline) {
				case 'hanging':
				case 'top':
					offset.y = fontStyle.size / 1.75;
					break;
				case 'middle':
					break;
				default:
				case null:
				case 'alphabetic':
				case 'ideographic':
				case 'bottom':
					offset.y = -fontStyle.size / 2.25;
					break;
			}

			switch (textAlign) {
				case 'right':
					left = delta;
					right = 0.05;
					break;
				case 'center':
					left = right = delta / 2;
					break;
			}

			var d = this.getCoords_(x + offset.x, y + offset.y);

			lineStr.push(
				'<g_vml_:line from="',
				-left,
				' 0" to="',
				right,
				' 0.05" ',
				' coordsize="100 100" coordorigin="0 0"',
				' filled="',
				!stroke,
				'" stroked="',
				!!stroke,
				'" style="position:absolute;width:1px;height:1px;">',
			);

			if (stroke) {
				appendStroke(this, lineStr);
			} else {
				// TODO: Fix the min and max params.
				appendFill(this, lineStr, { x: -left, y: 0 }, { x: right, y: fontStyle.size });
			}

			var skewM = m[0][0].toFixed(3) + ',' + m[1][0].toFixed(3) + ',' + m[0][1].toFixed(3) + ',' + m[1][1].toFixed(3) + ',0,0';

			var skewOffset = mr(d.x / Z) + ',' + mr(d.y / Z);

			lineStr.push(
				'<g_vml_:skew on="t" matrix="',
				skewM,
				'" ',
				' offset="',
				skewOffset,
				'" origin="',
				left,
				' 0" />',
				'<g_vml_:path textpathok="true" />',
				'<g_vml_:textpath on="true" string="',
				encodeHtmlAttribute(text),
				'" style="v-text-align:',
				textAlign,
				';font:',
				encodeHtmlAttribute(fontStyleString),
				'" /></g_vml_:line>',
			);

			this.element_.insertAdjacentHTML('beforeEnd', lineStr.join(''));
		};

		contextPrototype.fillText = function (text, x, y, maxWidth) {
			this.drawText_(text, x, y, maxWidth, false);
		};

		contextPrototype.strokeText = function (text, x, y, maxWidth) {
			this.drawText_(text, x, y, maxWidth, true);
		};

		contextPrototype.measureText = function (text) {
			if (!this.textMeasureEl_) {
				var s =
					'<span style="position:absolute;' + 'top:-20000px;left:0;padding:0;margin:0;border:none;' + 'white-space:pre;"></span>';
				this.element_.insertAdjacentHTML('beforeEnd', s);
				this.textMeasureEl_ = this.element_.lastChild;
			}
			var doc = this.element_.ownerDocument;
			this.textMeasureEl_.innerHTML = '';
			this.textMeasureEl_.style.font = this.font;
			// Don't use innerHTML or innerText because they allow markup/whitespace.
			this.textMeasureEl_.appendChild(doc.createTextNode(text));
			return { width: this.textMeasureEl_.offsetWidth };
		};

		/******** STUBS ********/
		contextPrototype.clip = function () {
			// TODO: Implement
		};

		contextPrototype.arcTo = function () {
			// TODO: Implement
		};

		contextPrototype.createPattern = function (image, repetition) {
			return new CanvasPattern_(image, repetition);
		};

		// Gradient / Pattern Stubs
		function CanvasGradient_(aType) {
			this.type_ = aType;
			this.x0_ = 0;
			this.y0_ = 0;
			this.r0_ = 0;
			this.x1_ = 0;
			this.y1_ = 0;
			this.r1_ = 0;
			this.colors_ = [];
		}

		CanvasGradient_.prototype.addColorStop = function (aOffset, aColor) {
			aColor = processStyle(aColor);
			this.colors_.push({ offset: aOffset, color: aColor.color, alpha: aColor.alpha });
		};

		function CanvasPattern_(image, repetition) {
			assertImageIsValid(image);
			switch (repetition) {
				case 'repeat':
				case null:
				case '':
					this.repetition_ = 'repeat';
					break;
				case 'repeat-x':
				case 'repeat-y':
				case 'no-repeat':
					this.repetition_ = repetition;
					break;
				default:
					throwException('SYNTAX_ERR');
			}

			this.src_ = image.src;
			this.width_ = image.width;
			this.height_ = image.height;
		}

		function throwException(s) {
			throw new DOMException_(s);
		}

		function assertImageIsValid(img) {
			if (!img || img.nodeType != 1 || img.tagName != 'IMG') {
				throwException('TYPE_MISMATCH_ERR');
			}
			if (img.readyState != 'complete') {
				throwException('INVALID_STATE_ERR');
			}
		}

		function DOMException_(s) {
			this.code = this[s];
			this.message = s + ': DOM Exception ' + this.code;
		}
		var p = (DOMException_.prototype = new Error());
		p.INDEX_SIZE_ERR = 1;
		p.DOMSTRING_SIZE_ERR = 2;
		p.HIERARCHY_REQUEST_ERR = 3;
		p.WRONG_DOCUMENT_ERR = 4;
		p.INVALID_CHARACTER_ERR = 5;
		p.NO_DATA_ALLOWED_ERR = 6;
		p.NO_MODIFICATION_ALLOWED_ERR = 7;
		p.NOT_FOUND_ERR = 8;
		p.NOT_SUPPORTED_ERR = 9;
		p.INUSE_ATTRIBUTE_ERR = 10;
		p.INVALID_STATE_ERR = 11;
		p.SYNTAX_ERR = 12;
		p.INVALID_MODIFICATION_ERR = 13;
		p.NAMESPACE_ERR = 14;
		p.INVALID_ACCESS_ERR = 15;
		p.VALIDATION_ERR = 16;
		p.TYPE_MISMATCH_ERR = 17;

		// set up externs
		G_vmlCanvasManager = G_vmlCanvasManager_;
		CanvasRenderingContext2D = CanvasRenderingContext2D_;
		CanvasGradient = CanvasGradient_;
		CanvasPattern = CanvasPattern_;
		DOMException = DOMException_;
	})();
} // if
