kei-lisp-plugin-graphics 2.0.0 → 3.0.0

package/dist/index.cjs

@@ -1,26 +1,128 @@
 Object.defineProperty(exports, Symbol.toStringTag, { value: "Module" });
 let kei_lisp = require("kei-lisp");
 //#region src/GraphicsPlugin/index.ts
+const LINE_CAPS = /* @__PURE__ */ new Set([
+	"butt",
+	"round",
+	"square"
+]);
+const LINE_JOINS = /* @__PURE__ */ new Set([
+	"miter",
+	"round",
+	"bevel"
+]);
+const TEXT_ALIGNS = /* @__PURE__ */ new Set([
+	"left",
+	"right",
+	"center",
+	"start",
+	"end"
+]);
+const TEXT_BASELINES = /* @__PURE__ */ new Set([
+	"top",
+	"hanging",
+	"middle",
+	"alphabetic",
+	"ideographic",
+	"bottom"
+]);
+const TEXT_DIRECTIONS = /* @__PURE__ */ new Set([
+	"ltr",
+	"rtl",
+	"inherit"
+]);
+const FONT_KERNINGS = /* @__PURE__ */ new Set([
+	"auto",
+	"normal",
+	"none"
+]);
+const FONT_STRETCHES = /* @__PURE__ */ new Set([
+	"ultra-condensed",
+	"extra-condensed",
+	"condensed",
+	"semi-condensed",
+	"normal",
+	"semi-expanded",
+	"expanded",
+	"extra-expanded",
+	"ultra-expanded"
+]);
+const FONT_VARIANTS = /* @__PURE__ */ new Set([
+	"normal",
+	"small-caps",
+	"all-small-caps",
+	"petite-caps",
+	"all-petite-caps",
+	"unicase",
+	"titling-caps"
+]);
+const TEXT_RENDERINGS = /* @__PURE__ */ new Set([
+	"auto",
+	"optimizeSpeed",
+	"optimizeLegibility",
+	"geometricPrecision"
+]);
+const PATTERN_REPETITIONS = /* @__PURE__ */ new Set([
+	"repeat",
+	"repeat-x",
+	"repeat-y",
+	"no-repeat"
+]);
+const COMPOSITE_OPERATIONS = /* @__PURE__ */ new Set([
+	"source-over",
+	"source-in",
+	"source-out",
+	"source-atop",
+	"destination-over",
+	"destination-in",
+	"destination-out",
+	"destination-atop",
+	"lighter",
+	"copy",
+	"xor",
+	"multiply",
+	"screen",
+	"overlay",
+	"darken",
+	"lighten",
+	"color-dodge",
+	"color-burn",
+	"hard-light",
+	"soft-light",
+	"difference",
+	"exclusion",
+	"hue",
+	"saturation",
+	"color",
+	"luminosity"
+]);
 /**
 * @class
 * @classdesc Canvas2D drawing plugin for the kei-lisp interpreter. Implements
 *            the `KeiLispPlugin` contract (`name` / `has` / `apply`) and
-*            exposes 45 `g…` Lisp functions that proxy to a 2D rendering
+*            exposes 75 `g…` Lisp functions that proxy to a 2D rendering
 *            context.
 * @author Keisuke Ikeda
-* @this {GraphicsPlugin}
 */
-var GraphicsPlugin = class GraphicsPlugin extends Object {
+var GraphicsPlugin = class GraphicsPlugin {
 	/**
 	* Dispatch map from a Lisp function name (InterpretedSymbol) to the name of
-	* the GraphicsPlugin method that implements it.
+	* the GraphicsPlugin method that implements it. Private so hosts cannot
+	* mutate the registered function set.
 	*/
-	static buildInFunctions = GraphicsPlugin.setup();
+	static #builtInFunctions = GraphicsPlugin.#setup();
+	/**
+	* Lists every Lisp function name this plugin registers.
+	* @return the sorted `g…` function names
+	*/
+	static functionNames() {
+		return [...GraphicsPlugin.#builtInFunctions.keys()].map(String).sort((a, b) => a.localeCompare(b));
+	}
 	/**
 	* Builds the dispatch table.
 	* @return the dispatch table
 	*/
-	static setup() {
+	static #setup() {
 		const aTable = /* @__PURE__ */ new Map();
 		aTable.set(kei_lisp.InterpretedSymbol.of("galpha"), "gAlpha");
 		aTable.set(kei_lisp.InterpretedSymbol.of("garc"), "gArc");
@@ -59,17 +161,55 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		aTable.set(kei_lisp.InterpretedSymbol.of("gstroke-text"), "gStrokeText");
 		aTable.set(kei_lisp.InterpretedSymbol.of("gstroke-tri"), "gStrokeTri");
 		aTable.set(kei_lisp.InterpretedSymbol.of("gtext-align"), "gTextAlign");
-		aTable.set(kei_lisp.InterpretedSymbol.of("gtext-dire"), "gTextDirection");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gtext-direction"), "gTextDirection");
 		aTable.set(kei_lisp.InterpretedSymbol.of("gtext-font"), "gTextFont");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gtext-baseline"), "gTextBaseline");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gtext-dire"), "gTextDirection");
 		aTable.set(kei_lisp.InterpretedSymbol.of("gtext-line"), "gTextBaseline");
 		aTable.set(kei_lisp.InterpretedSymbol.of("gtranslate"), "gTranslate");
 		aTable.set(kei_lisp.InterpretedSymbol.of("grect"), "gRect");
 		aTable.set(kei_lisp.InterpretedSymbol.of("grotate"), "gRotate");
 		aTable.set(kei_lisp.InterpretedSymbol.of("gsave"), "gSave");
 		aTable.set(kei_lisp.InterpretedSymbol.of("grestore"), "gRestore");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gellipse"), "gEllipse");
+		aTable.set(kei_lisp.InterpretedSymbol.of("ground-rect"), "gRoundRect");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gline-dash"), "gLineDash");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gline-dash-offset"), "gLineDashOffset");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gmiter-limit"), "gMiterLimit");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gclip"), "gClip");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gis-point-in-path"), "gIsPointInPath");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gis-point-in-stroke"), "gIsPointInStroke");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gtransform"), "gTransform");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gset-transform"), "gSetTransform");
+		aTable.set(kei_lisp.InterpretedSymbol.of("greset-transform"), "gResetTransform");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gcomposite"), "gComposite");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gfilter"), "gFilter");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gimage-smoothing"), "gImageSmoothing");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gmeasure-text"), "gMeasureText");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gletter-spacing"), "gLetterSpacing");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gword-spacing"), "gWordSpacing");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gfont-kerning"), "gFontKerning");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gfont-stretch"), "gFontStretch");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gfont-variant"), "gFontVariant");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gtext-rendering"), "gTextRendering");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gclear-rect"), "gClearRect");
+		aTable.set(kei_lisp.InterpretedSymbol.of("greset"), "gReset");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gwidth"), "gWidth");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gheight"), "gHeight");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gpixel"), "gPixel");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gset-pixel"), "gSetPixel");
+		aTable.set(kei_lisp.InterpretedSymbol.of("glinear-gradient"), "gLinearGradient");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gradial-gradient"), "gRadialGradient");
+		aTable.set(kei_lisp.InterpretedSymbol.of("gconic-gradient"), "gConicGradient");
 		return aTable;
 	}
 	/**
+	* Loaded-image cache shared by `gimage` and `gpattern`. Repeated draws of
+	* the same `src` reuse the loaded element and run synchronously, so they
+	* keep their place in the drawing order instead of racing the load.
+	*/
+	#imageCache = /* @__PURE__ */ new Map();
+	/**
 	* Plugin identifier, used for diagnostics.
 	*/
 	name = "graphics";
@@ -82,22 +222,160 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 	* @param canvas - the canvas to draw to
 	*/
 	constructor(canvas) {
-		super();
 		this.canvas = canvas;
 		this.ctx = canvas.getContext("2d");
 		this.isOpen = false;
 	}
 	/**
-	* Writes a diagnostic line directly to `process.stderr`, matching the
-	* convention used by kei-lisp itself (`Applier.format` writes to
-	* `process.stdout`). In a Node runtime this hits the real stderr; in a
-	* browser kei-lisp host (e.g. kei-lisp-web) the host typically swaps
-	* `process.stderr.write` for a sink that routes to the REPL output panel,
-	* so the same call reaches the user via the host's normal output channel.
+	* Writes a diagnostic line to `process.stderr`, matching the convention
+	* used by kei-lisp itself (`Applier.format` writes to `process.stdout`).
+	* In a Node runtime this hits the real stderr; in a browser kei-lisp host
+	* (e.g. kei-lisp-web) the host typically swaps `process.stderr.write` for
+	* a sink that routes to the REPL output panel. In a plain browser with no
+	* `process` shim at all, the line falls back to `console.error` instead of
+	* throwing.
 	* @param line - the line to write
 	*/
 	#print(line) {
-		process.stderr.write(line + "\n");
+		const stderr = globalThis.process?.stderr;
+		if (typeof stderr?.write === "function") {
+			stderr.write(line + "\n");
+			return;
+		}
+		console.error(line);
+	}
+	/**
+	* Resolves an image for the given source and runs `draw` with it —
+	* synchronously when the image is already loaded, on its `load` event
+	* otherwise. A load failure prints a diagnostic once.
+	* @param source - the image URL / data URI
+	* @param draw - the drawing action to run once the image is available
+	*/
+	#withImage(source, draw) {
+		const cached = this.#imageCache.get(source);
+		const image = cached ?? new Image();
+		if (cached === void 0) {
+			image.src = source;
+			this.#imageCache.set(source, image);
+			image.addEventListener("error", () => {
+				this.#print(`Can not load image: ${source}`);
+			});
+		}
+		if (image.complete) {
+			draw(image);
+			return;
+		}
+		image.addEventListener("load", () => {
+			draw(image);
+		});
+	}
+	/**
+	* Shared guard-and-dispatch skeleton for the newer `g…` methods: checks the
+	* context and the open flag, runs `body`, and converts both a `null` return
+	* and a thrown exception into `failureMessage` + `Cons.nil`.
+	* @param failureMessage - the diagnostic printed when `body` fails
+	* @param body - the drawing action; returns the Lisp result, or `null` on
+	*               bad arguments
+	* @return the body's result, or `Cons.nil` on failure
+	*/
+	#execute(failureMessage, body) {
+		if (!this.checkSupport()) return kei_lisp.Cons.nil;
+		if (!this.isOpen) {
+			this.#print("The canvas is closed and cannot be executed.");
+			return kei_lisp.Cons.nil;
+		}
+		try {
+			const result = body(this.ctx);
+			if (result !== null) return result;
+		} catch {}
+		this.#print(failureMessage);
+		return kei_lisp.Cons.nil;
+	}
+	/**
+	* Reads a single string argument and validates it against an allowlist.
+	* @param arguments_ - the evaluated argument list
+	* @param allowed - the accepted values
+	* @return the validated string, or `null` on wrong arity, a non-string
+	*         argument, or a value outside the allowlist
+	*/
+	#enumString(arguments_, allowed) {
+		if (arguments_.length() !== 1 || !kei_lisp.Cons.isString(arguments_.car)) return null;
+		return allowed.has(arguments_.car) ? arguments_.car : null;
+	}
+	/**
+	* Reads exactly `count` numbers from the argument list.
+	* @param arguments_ - the evaluated argument list
+	* @param count - the expected argument count
+	* @return the numbers, or `null` on wrong arity or a non-number argument
+	*/
+	#numbers(arguments_, count) {
+		if (arguments_.length() !== count) return null;
+		const values = [];
+		let rest = arguments_;
+		for (let index = 0; index < count; index++) {
+			if (!kei_lisp.Cons.isNumber(rest.car)) return null;
+			values.push(rest.car);
+			rest = rest.cdr;
+		}
+		return values;
+	}
+	/**
+	* Flattens the argument list into a JS array.
+	* @param arguments_ - the evaluated argument list
+	* @return the argument values in order
+	*/
+	#listValues(arguments_) {
+		const values = [];
+		let rest = arguments_;
+		for (let index = arguments_.length(); index > 0; index--) {
+			values.push(rest.car);
+			rest = rest.cdr;
+		}
+		return values;
+	}
+	/**
+	* Builds a Lisp list (Cons chain) from JS values.
+	* @param values - the values, at least one
+	* @return the list head
+	*/
+	#toList(values) {
+		const head = new kei_lisp.Cons(values[0]);
+		let tail = head;
+		for (let index = 1; index < values.length; index++) {
+			tail.cdr = new kei_lisp.Cons(values[index]);
+			tail = tail.cdr;
+		}
+		return head;
+	}
+	/**
+	* Applies `(offset color)` pairs to a gradient.
+	* @param gradient - the gradient to add stops to
+	* @param stops - alternating numeric offsets (0–1) and CSS color strings
+	* @return true when every pair was valid and at least one was applied
+	*/
+	#applyGradientStops(gradient, stops) {
+		if (stops.length === 0 || stops.length % 2 !== 0) return false;
+		for (let index = 0; index < stops.length; index += 2) {
+			const offset = stops[index];
+			const color = stops[index + 1];
+			if (!kei_lisp.Cons.isNumber(offset) || !kei_lisp.Cons.isString(color)) return false;
+			gradient.addColorStop(offset, color);
+		}
+		return true;
+	}
+	/**
+	* Sets both `fillStyle` and `strokeStyle` to the given gradient after
+	* applying its stops, mirroring how `gcolor` sets both styles at once.
+	* @param context - the 2D context
+	* @param gradient - the gradient to install
+	* @param stops - alternating offsets and colors (see #applyGradientStops)
+	* @return `t` on success, `null` on invalid stops
+	*/
+	#installGradient(context, gradient, stops) {
+		if (!this.#applyGradientStops(gradient, stops)) return null;
+		context.fillStyle = gradient;
+		context.strokeStyle = gradient;
+		return kei_lisp.InterpretedSymbol.of("t");
 	}
 	/**
 	* Encodes the canvas via `toDataURL` and triggers a browser download through
@@ -166,7 +444,7 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 	* @return true if `apply` should be called
 	*/
 	has(aSymbol) {
-		return GraphicsPlugin.buildInFunctions.has(aSymbol);
+		return GraphicsPlugin.#builtInFunctions.has(aSymbol);
 	}
 	/**
 	* Dispatches the given symbol to the matching `g…` method.
@@ -176,39 +454,17 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 	* @return the method's result, or `Cons.nil` if dispatch fails
 	*/
 	apply(aSymbol, arguments_, _context) {
-		return this.selectProcedure(aSymbol, arguments_);
-	}
-	/**
-	* Resolves the procedure name and invokes the matching method.
-	* @param procedure - the Lisp symbol
-	* @param arguments_ - the evaluated argument list
-	* @return the method's result, or `Cons.nil` if not registered
-	*/
-	selectProcedure(procedure, arguments_) {
-		if (GraphicsPlugin.buildInFunctions.has(procedure)) return this.buildInFunction(procedure, arguments_);
-		this.#print(`I could find no procedure description for ${String(procedure)}`);
-		return kei_lisp.Cons.nil;
-	}
-	/**
-	* Looks up and invokes the JS method that implements the given Lisp symbol.
-	* Throws `TypeError` when the dispatch table points to a method that does
-	* not exist on the instance — this matches the legacy behavior, where the
-	* Ramda `R.invoker(1, methodName)(args, this)` call would surface the same
-	* error by attempting to call `undefined`.
-	* @param procedure - the Lisp symbol
-	* @param arguments_ - the evaluated argument list
-	* @return the method's result
-	*/
-	buildInFunction(procedure, arguments_) {
-		const methodName = GraphicsPlugin.buildInFunctions.get(procedure);
-		const method = this[methodName];
-		if (typeof method !== "function") throw new TypeError(`${this.constructor.name} does not have a method named "${methodName}"`);
-		return method.call(this, arguments_);
+		const methodName = GraphicsPlugin.#builtInFunctions.get(aSymbol);
+		if (methodName === void 0) {
+			this.#print(`I could find no procedure description for ${String(aSymbol)}`);
+			return kei_lisp.Cons.nil;
+		}
+		return this[methodName].call(this, arguments_);
 	}
 	/**
 	* Checks whether the canvas exposes a usable 2D context, and narrows
 	* `this.ctx` to non-null for the caller when it returns true.
-	* @return type predicate — true when ctx is non-null
+	* @return type predicate — true when context is non-null
 	*/
 	checkSupport() {
 		if (this.ctx === null) {
@@ -317,19 +573,15 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		this.#print("The canvas is closed and cannot be executed.");
 		return kei_lisp.Cons.nil;
 	}
-	gClear() {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			this.ctx.fillStyle = "#ffffff";
-			this.ctx.fillRect(0, 0, this.canvas.width, this.canvas.height);
-			this.ctx.fillStyle = "#000000";
+	gClear(arguments_) {
+		return this.#execute("Can not clear.", (context) => {
+			const aColor = arguments_.length() === 0 ? "#ffffff" : this.selectColor(arguments_);
+			const previous = context.fillStyle;
+			context.fillStyle = aColor;
+			context.fillRect(0, 0, this.canvas.width, this.canvas.height);
+			context.fillStyle = previous;
 			return kei_lisp.InterpretedSymbol.of("t");
-		} catch {
-			this.#print("Can not clear.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+		});
 	}
 	gClose() {
 		if (!this.checkSupport()) return kei_lisp.Cons.nil;
@@ -416,26 +668,17 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		return kei_lisp.Cons.nil;
 	}
 	gFillText(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			if (arguments_.length() === 3) {
-				const a0 = arguments_.car;
-				const cdr1 = arguments_.cdr;
-				const a1 = cdr1.car;
-				const a2 = cdr1.cdr.car;
-				if (kei_lisp.Cons.isString(a0) && kei_lisp.Cons.isNumber(a1) && kei_lisp.Cons.isNumber(a2)) {
-					this.ctx.fillText(a0, a1, a2);
-					return kei_lisp.InterpretedSymbol.of("t");
-				}
-			}
-			this.#print("Can not draw fill text.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not draw fill text.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+		return this.#execute("Can not draw fill text.", (context) => {
+			const length_ = arguments_.length();
+			if (length_ !== 3 && length_ !== 4) return null;
+			const [a0, a1, a2, a3] = this.#listValues(arguments_);
+			if (!kei_lisp.Cons.isString(a0) || !kei_lisp.Cons.isNumber(a1) || !kei_lisp.Cons.isNumber(a2)) return null;
+			if (length_ === 4) {
+				if (!kei_lisp.Cons.isNumber(a3)) return null;
+				context.fillText(a0, a1, a2, a3);
+			} else context.fillText(a0, a1, a2);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gFillTri(arguments_) {
 		if (!this.checkSupport()) return kei_lisp.Cons.nil;
@@ -482,50 +725,21 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		return kei_lisp.Cons.nil;
 	}
 	gImage(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
+		return this.#execute("Can not draw Image.", (context) => {
 			const length_ = arguments_.length();
-			if (length_ === 3) {
-				const a0 = arguments_.car;
-				const cdr1 = arguments_.cdr;
-				const a1 = cdr1.car;
-				const a2 = cdr1.cdr.car;
-				if (kei_lisp.Cons.isString(a0) && kei_lisp.Cons.isNumber(a1) && kei_lisp.Cons.isNumber(a2)) {
-					const context = this.ctx;
-					const anImage = new Image();
-					anImage.src = a0;
-					anImage.onload = () => {
-						context.drawImage(anImage, a1, a2);
-					};
-					return kei_lisp.InterpretedSymbol.of("t");
-				}
-			} else if (length_ === 5) {
-				const a0 = arguments_.car;
-				const cdr1 = arguments_.cdr;
-				const a1 = cdr1.car;
-				const cdr2 = cdr1.cdr;
-				const a2 = cdr2.car;
-				const cdr3 = cdr2.cdr;
-				const a3 = cdr3.car;
-				const a4 = cdr3.cdr.car;
-				if (kei_lisp.Cons.isString(a0) && kei_lisp.Cons.isNumber(a1) && kei_lisp.Cons.isNumber(a2) && kei_lisp.Cons.isNumber(a3) && kei_lisp.Cons.isNumber(a4)) {
-					const context = this.ctx;
-					const anImage = new Image();
-					anImage.src = a0;
-					anImage.onload = () => {
-						context.drawImage(anImage, a1, a2, a3, a4);
-					};
-					return kei_lisp.InterpretedSymbol.of("t");
-				}
-			}
-			this.#print("Can not draw Image.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not draw Image.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+			if (length_ !== 3 && length_ !== 5) return null;
+			const [a0, a1, a2, a3, a4] = this.#listValues(arguments_);
+			if (!kei_lisp.Cons.isString(a0) || !kei_lisp.Cons.isNumber(a1) || !kei_lisp.Cons.isNumber(a2)) return null;
+			if (length_ === 5) {
+				if (!kei_lisp.Cons.isNumber(a3) || !kei_lisp.Cons.isNumber(a4)) return null;
+				this.#withImage(a0, (image) => {
+					context.drawImage(image, a1, a2, a3, a4);
+				});
+			} else this.#withImage(a0, (image) => {
+				context.drawImage(image, a1, a2);
+			});
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gLineTo(arguments_) {
 		if (!this.checkSupport()) return kei_lisp.Cons.nil;
@@ -548,36 +762,20 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		return kei_lisp.Cons.nil;
 	}
 	gLineCap(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			if (arguments_.length() === 1 && kei_lisp.Cons.isString(arguments_.car)) {
-				this.ctx.lineCap = arguments_.car;
-				return kei_lisp.InterpretedSymbol.of("t");
-			}
-			this.#print("Can not set line cap.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not set line cap.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+		return this.#execute("Can not set line cap. Expected \"butt\" / \"round\" / \"square\".", (context) => {
+			const value = this.#enumString(arguments_, LINE_CAPS);
+			if (value === null) return null;
+			context.lineCap = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gLineJoin(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			if (arguments_.length() === 1 && kei_lisp.Cons.isString(arguments_.car)) {
-				this.ctx.lineJoin = arguments_.car;
-				return kei_lisp.InterpretedSymbol.of("t");
-			}
-			this.#print("Can not set line join.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not set line join.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+		return this.#execute("Can not set line join. Expected \"miter\" / \"round\" / \"bevel\".", (context) => {
+			const value = this.#enumString(arguments_, LINE_JOINS);
+			if (value === null) return null;
+			context.lineJoin = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gLineWidth(arguments_) {
 		if (!this.checkSupport()) return kei_lisp.Cons.nil;
@@ -633,30 +831,20 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		return kei_lisp.Cons.nil;
 	}
 	gPattern(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			if (arguments_.length() === 2) {
-				const a0 = arguments_.car;
-				const a1 = arguments_.cdr.car;
-				if (kei_lisp.Cons.isString(a0) && kei_lisp.Cons.isNumber(a1)) {
-					const aString = a1 === 0 ? "repeat" : a1 > 0 ? "repeat-x" : "repeat-y";
-					const context = this.ctx;
-					const anImage = new Image();
-					anImage.src = a0;
-					anImage.onload = () => {
-						context.fillStyle = context.createPattern(anImage, aString);
-					};
-					return kei_lisp.InterpretedSymbol.of("t");
+		return this.#execute("Can not set pattern. Expected an image source and a repetition (\"repeat\" / \"repeat-x\" / \"repeat-y\" / \"no-repeat\").", (context) => {
+			if (arguments_.length() !== 2) return null;
+			const [a0, a1] = this.#listValues(arguments_);
+			if (!kei_lisp.Cons.isString(a0) || !kei_lisp.Cons.isString(a1) || !PATTERN_REPETITIONS.has(a1)) return null;
+			this.#withImage(a0, (image) => {
+				const pattern = context.createPattern(image, a1);
+				if (pattern === null) {
+					this.#print("Can not set pattern. The image could not be used as a pattern.");
+					return;
 				}
-			}
-			this.#print("Can not set pattern.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not set pattern.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+				context.fillStyle = pattern;
+			});
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gQuadCurveTo(arguments_) {
 		if (!this.checkSupport()) return kei_lisp.Cons.nil;
@@ -868,26 +1056,17 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		return kei_lisp.Cons.nil;
 	}
 	gStrokeText(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			if (arguments_.length() === 3) {
-				const a0 = arguments_.car;
-				const cdr1 = arguments_.cdr;
-				const a1 = cdr1.car;
-				const a2 = cdr1.cdr.car;
-				if (kei_lisp.Cons.isString(a0) && kei_lisp.Cons.isNumber(a1) && kei_lisp.Cons.isNumber(a2)) {
-					this.ctx.strokeText(a0, a1, a2);
-					return kei_lisp.InterpretedSymbol.of("t");
-				}
-			}
-			this.#print("Can not draw stroke text.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not draw stroke text.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+		return this.#execute("Can not draw stroke text.", (context) => {
+			const length_ = arguments_.length();
+			if (length_ !== 3 && length_ !== 4) return null;
+			const [a0, a1, a2, a3] = this.#listValues(arguments_);
+			if (!kei_lisp.Cons.isString(a0) || !kei_lisp.Cons.isNumber(a1) || !kei_lisp.Cons.isNumber(a2)) return null;
+			if (length_ === 4) {
+				if (!kei_lisp.Cons.isNumber(a3)) return null;
+				context.strokeText(a0, a1, a2, a3);
+			} else context.strokeText(a0, a1, a2);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gStrokeTri(arguments_) {
 		if (!this.checkSupport()) return kei_lisp.Cons.nil;
@@ -923,52 +1102,28 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		return kei_lisp.Cons.nil;
 	}
 	gTextAlign(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			if (arguments_.length() === 1 && kei_lisp.Cons.isString(arguments_.car)) {
-				this.ctx.textAlign = arguments_.car;
-				return kei_lisp.InterpretedSymbol.of("t");
-			}
-			this.#print("Can not set text align.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not set text align.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+		return this.#execute("Can not set text align. Expected \"left\" / \"right\" / \"center\" / \"start\" / \"end\".", (context) => {
+			const value = this.#enumString(arguments_, TEXT_ALIGNS);
+			if (value === null) return null;
+			context.textAlign = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gTextBaseline(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			if (arguments_.length() === 1 && kei_lisp.Cons.isString(arguments_.car)) {
-				this.ctx.textBaseline = arguments_.car;
-				return kei_lisp.InterpretedSymbol.of("t");
-			}
-			this.#print("Can not set text baseline.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not set text baseline.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+		return this.#execute("Can not set text baseline. Expected \"top\" / \"hanging\" / \"middle\" / \"alphabetic\" / \"ideographic\" / \"bottom\".", (context) => {
+			const value = this.#enumString(arguments_, TEXT_BASELINES);
+			if (value === null) return null;
+			context.textBaseline = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gTextDirection(arguments_) {
-		if (!this.checkSupport()) return kei_lisp.Cons.nil;
-		if (this.isOpen) try {
-			if (arguments_.length() === 1 && kei_lisp.Cons.isString(arguments_.car)) {
-				this.ctx.direction = arguments_.car;
-				return kei_lisp.InterpretedSymbol.of("t");
-			}
-			this.#print("Can not set text direction.");
-			return kei_lisp.Cons.nil;
-		} catch {
-			this.#print("Can not set text direction.");
-			return kei_lisp.Cons.nil;
-		}
-		this.#print("The canvas is closed and cannot be executed.");
-		return kei_lisp.Cons.nil;
+		return this.#execute("Can not set text direction. Expected \"ltr\" / \"rtl\" / \"inherit\".", (context) => {
+			const value = this.#enumString(arguments_, TEXT_DIRECTIONS);
+			if (value === null) return null;
+			context.direction = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
 	}
 	gTextFont(arguments_) {
 		if (!this.checkSupport()) return kei_lisp.Cons.nil;
@@ -1049,7 +1204,7 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 	/**
 	* Pushes the current drawing state (styles, transform, clip) onto the
 	* context's state stack. Pairs with `gRestore` to let Lisp callers manage
-	* state explicitly. Replaces the legacy per-method `ctx.save()` calls, which
+	* state explicitly. Replaces the legacy per-method `context.save()` calls, which
 	* pushed state on every draw with no matching `restore()` and grew the stack
 	* unbounded.
 	* @return `t` on success, `Cons.nil` otherwise
@@ -1083,6 +1238,234 @@ var GraphicsPlugin = class GraphicsPlugin extends Object {
 		this.#print("The canvas is closed and cannot be executed.");
 		return kei_lisp.Cons.nil;
 	}
+	gEllipse(arguments_) {
+		return this.#execute("Can not draw ellipse.", (context) => {
+			const a = this.#numbers(arguments_, 8);
+			if (a === null) return null;
+			context.ellipse(a[0], a[1], a[2], a[3], Math.PI / 180 * a[4], Math.PI / 180 * a[5], Math.PI / 180 * a[6], a[7] >= 0);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gRoundRect(arguments_) {
+		return this.#execute("Can not draw round rectangle.", (context) => {
+			const a = this.#numbers(arguments_, 5);
+			if (a === null) return null;
+			context.roundRect(a[0], a[1], a[2], a[3], a[4]);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gLineDash(arguments_) {
+		return this.#execute("Can not set line dash.", (context) => {
+			const segments = this.#numbers(arguments_, arguments_.length());
+			if (segments === null) return null;
+			context.setLineDash(segments);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gLineDashOffset(arguments_) {
+		return this.#execute("Can not set line dash offset.", (context) => {
+			const a = this.#numbers(arguments_, 1);
+			if (a === null) return null;
+			context.lineDashOffset = a[0];
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gMiterLimit(arguments_) {
+		return this.#execute("Can not set miter limit.", (context) => {
+			const a = this.#numbers(arguments_, 1);
+			if (a === null) return null;
+			context.miterLimit = a[0];
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gClip() {
+		return this.#execute("Can not clip.", (context) => {
+			context.clip();
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gIsPointInPath(arguments_) {
+		return this.#execute("Can not test point in path.", (context) => {
+			const a = this.#numbers(arguments_, 2);
+			if (a === null) return null;
+			return context.isPointInPath(a[0], a[1]) ? kei_lisp.InterpretedSymbol.of("t") : kei_lisp.Cons.nil;
+		});
+	}
+	gIsPointInStroke(arguments_) {
+		return this.#execute("Can not test point in stroke.", (context) => {
+			const a = this.#numbers(arguments_, 2);
+			if (a === null) return null;
+			return context.isPointInStroke(a[0], a[1]) ? kei_lisp.InterpretedSymbol.of("t") : kei_lisp.Cons.nil;
+		});
+	}
+	gTransform(arguments_) {
+		return this.#execute("Can not transform.", (context) => {
+			const a = this.#numbers(arguments_, 6);
+			if (a === null) return null;
+			context.transform(a[0], a[1], a[2], a[3], a[4], a[5]);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gSetTransform(arguments_) {
+		return this.#execute("Can not set transform.", (context) => {
+			const a = this.#numbers(arguments_, 6);
+			if (a === null) return null;
+			context.setTransform(a[0], a[1], a[2], a[3], a[4], a[5]);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gResetTransform() {
+		return this.#execute("Can not reset transform.", (context) => {
+			context.resetTransform();
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gComposite(arguments_) {
+		return this.#execute("Can not set composite operation. Expected a globalCompositeOperation keyword such as \"source-over\" / \"multiply\" / \"screen\".", (context) => {
+			const value = this.#enumString(arguments_, COMPOSITE_OPERATIONS);
+			if (value === null) return null;
+			context.globalCompositeOperation = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gFilter(arguments_) {
+		return this.#execute("Can not set filter.", (context) => {
+			if (arguments_.length() !== 1 || !kei_lisp.Cons.isString(arguments_.car)) return null;
+			context.filter = arguments_.car;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gImageSmoothing(arguments_) {
+		return this.#execute("Can not set image smoothing.", (context) => {
+			const quality = arguments_.length() === 1 ? arguments_.car : null;
+			if (quality !== "off" && quality !== "low" && quality !== "medium" && quality !== "high") return null;
+			if (quality === "off") context.imageSmoothingEnabled = false;
+			else {
+				context.imageSmoothingEnabled = true;
+				context.imageSmoothingQuality = quality;
+			}
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gMeasureText(arguments_) {
+		return this.#execute("Can not measure text.", (context) => {
+			if (arguments_.length() !== 1 || !kei_lisp.Cons.isString(arguments_.car)) return null;
+			return context.measureText(arguments_.car).width;
+		});
+	}
+	gLetterSpacing(arguments_) {
+		return this.#execute("Can not set letter spacing.", (context) => {
+			if (arguments_.length() !== 1 || !kei_lisp.Cons.isString(arguments_.car)) return null;
+			context.letterSpacing = arguments_.car;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gWordSpacing(arguments_) {
+		return this.#execute("Can not set word spacing.", (context) => {
+			if (arguments_.length() !== 1 || !kei_lisp.Cons.isString(arguments_.car)) return null;
+			context.wordSpacing = arguments_.car;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gFontKerning(arguments_) {
+		return this.#execute("Can not set font kerning. Expected \"auto\" / \"normal\" / \"none\".", (context) => {
+			const value = this.#enumString(arguments_, FONT_KERNINGS);
+			if (value === null) return null;
+			context.fontKerning = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gFontStretch(arguments_) {
+		return this.#execute("Can not set font stretch. Expected a font-stretch keyword such as \"condensed\" / \"normal\" / \"expanded\".", (context) => {
+			const value = this.#enumString(arguments_, FONT_STRETCHES);
+			if (value === null) return null;
+			context.fontStretch = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gFontVariant(arguments_) {
+		return this.#execute("Can not set font variant. Expected a font-variant-caps keyword such as \"normal\" / \"small-caps\".", (context) => {
+			const value = this.#enumString(arguments_, FONT_VARIANTS);
+			if (value === null) return null;
+			context.fontVariantCaps = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gTextRendering(arguments_) {
+		return this.#execute("Can not set text rendering. Expected \"auto\" / \"optimizeSpeed\" / \"optimizeLegibility\" / \"geometricPrecision\".", (context) => {
+			const value = this.#enumString(arguments_, TEXT_RENDERINGS);
+			if (value === null) return null;
+			context.textRendering = value;
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gClearRect(arguments_) {
+		return this.#execute("Can not clear rectangle.", (context) => {
+			const a = this.#numbers(arguments_, 4);
+			if (a === null) return null;
+			context.clearRect(a[0], a[1], a[2], a[3]);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gReset() {
+		return this.#execute("Can not reset.", (context) => {
+			context.reset();
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gWidth() {
+		return this.#execute("Can not get width.", () => this.canvas.width);
+	}
+	gHeight() {
+		return this.#execute("Can not get height.", () => this.canvas.height);
+	}
+	gPixel(arguments_) {
+		return this.#execute("Can not read pixel.", (context) => {
+			const a = this.#numbers(arguments_, 2);
+			if (a === null) return null;
+			const data = context.getImageData(a[0], a[1], 1, 1).data;
+			return this.#toList([
+				data[0],
+				data[1],
+				data[2],
+				data[3]
+			]);
+		});
+	}
+	gSetPixel(arguments_) {
+		return this.#execute("Can not write pixel.", (context) => {
+			const a = this.#numbers(arguments_, 6);
+			if (a === null) return null;
+			const imageData = context.createImageData(1, 1);
+			imageData.data[0] = a[2];
+			imageData.data[1] = a[3];
+			imageData.data[2] = a[4];
+			imageData.data[3] = a[5];
+			context.putImageData(imageData, a[0], a[1]);
+			return kei_lisp.InterpretedSymbol.of("t");
+		});
+	}
+	gLinearGradient(arguments_) {
+		return this.#execute("Can not set linear gradient.", (context) => {
+			const [x0, y0, x1, y1, ...stops] = this.#listValues(arguments_);
+			if (stops.length < 2 || !kei_lisp.Cons.isNumber(x0) || !kei_lisp.Cons.isNumber(y0) || !kei_lisp.Cons.isNumber(x1) || !kei_lisp.Cons.isNumber(y1)) return null;
+			return this.#installGradient(context, context.createLinearGradient(x0, y0, x1, y1), stops);
+		});
+	}
+	gRadialGradient(arguments_) {
+		return this.#execute("Can not set radial gradient.", (context) => {
+			const [x0, y0, r0, x1, y1, r1, ...stops] = this.#listValues(arguments_);
+			if (stops.length < 2 || !kei_lisp.Cons.isNumber(x0) || !kei_lisp.Cons.isNumber(y0) || !kei_lisp.Cons.isNumber(r0) || !kei_lisp.Cons.isNumber(x1) || !kei_lisp.Cons.isNumber(y1) || !kei_lisp.Cons.isNumber(r1)) return null;
+			return this.#installGradient(context, context.createRadialGradient(x0, y0, r0, x1, y1, r1), stops);
+		});
+	}
+	gConicGradient(arguments_) {
+		return this.#execute("Can not set conic gradient.", (context) => {
+			const [angle, x, y, ...stops] = this.#listValues(arguments_);
+			if (stops.length < 2 || !kei_lisp.Cons.isNumber(angle) || !kei_lisp.Cons.isNumber(x) || !kei_lisp.Cons.isNumber(y)) return null;
+			return this.#installGradient(context, context.createConicGradient(Math.PI / 180 * angle, x, y), stops);
+		});
+	}
 	/**
 	* Parses a color spec from the head of the argument Cons. Accepts
 	* (1 string), (3 numbers — rgb), or (4 numbers — rgba); falls back to