Tom Bortels bortels

Father of Daughters, old before my time, on a lifelong quest to replace myself with a series of small scripts.

bortels / dkjson

Created March 25, 2012 22:40

json encode/decode in lua

	--[==[

	David Kolf's JSON module for Lua 5.1/5.2
	========================================

	Version 2.1

	This module writes no global values, not even the module table.
	Import it using

bortels / jpeg2hex.pl

Created December 7, 2011 19:04

convert jpg to hex pnm

	#!/usr/bin/perl

	$f = shift @ARGV \|\| die "syntax: jpg2hex FILENAME\n";
	open($fh, "jpegtopnm tomfezicon.jpeg \| pnmtoplainpnm \|");
	$x = <$fh>; print $x;
	while (<$fh>) {
	@r = split(/\s+/);
	foreach $h (@r) { printf("%02x", $h); }
	print "\n";
	}

bortels / tomfezicon.hex

Created December 7, 2011 00:03

tomfezicon.jpg in pnm format, hex

bortels / tomfezicon.b64

Created December 6, 2011 19:43

base 64 encoded tomfezicon.pnm

	UDYKNjQgNjQKMjU1CgwTGSY9QxZBSAAxOAUwOQAVIhIbLAYHGQ8NGxMQGRgWGyEeJSgnNREaKyE5
	RQ8wOSEZLikXLR0LIRUWKAkkNQAjPwMdQgoZOgsWKBYgKUhRVktVVzZCQgEQDQkRFA0NGSkiKg0K
	ERYXGxEWGQYLDgkNEAkNEAkMERYZIBseJSAjLBwfKB0gJxEZHA8ZGxYiIhohKx4gLB0gKRkdIBwi
	IiouMT5BSE1SVlBZWFVbW1xbYV1bYFpcWVVcVFVbV1VYXSQpLT1MUyA7RAosNQQlLgQYIw8WJgkI
	GAsLFxsaIBUTGB0aIxQWIxAcKiI4RREuNikVLjEZMyEKJBobLwYhNAAjPQAeQQAZNwYZKhMhKkhS
	W01UXDpCRQ0VFxERGRcOHygnLQ4NExYVGigpLQ0OEhIRFhIQFRAPFRodJAcOFAcQFwkQFgwRFxQX
	HBgdIRcfIRkiKRkgKhkdJhwkJxgiIxYdIxkgKB4lKy02NUpQUFtaX19dYlNVVE1TT0lSUUlQWDtB
	QUNITkJKVUFSWjlOUzdGTTA2QistOiMmLzg7QCsqLy0sNBMXIgQSHSk9SA8lMCkMKDYZNRwIIxcZ
	LgciNwAlPgAlQgAeNQEYKBclME1VYE5SXjk8QxUWGxAKFhgJHhkeIg8QFRMRFiMeJBMRFhYRFxgR
	GBgRGSsrMxMcIRQjJgsWGgcKEQwLERcWHBwgIxkkJhojKBskKRYhIxclJhsmKhskLRojKBUfID9I

bortels / tom.uu

Created December 6, 2011 18:27

uuencoded pnm of tomfezicon

bortels / Base64.lua

Created December 6, 2011 05:56

Base64 encode/decode for Codea (Lua)

	-- Lua 5.1+ base64 v3.0 (c) 2009 by Alex Kloss <[email protected]>
	-- licensed under the terms of the LGPL2

	-- character table string
	local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'

	-- encoding
	function enc(data)
	return ((data:gsub('.', function(x)
	local r,b='',x:byte()

bortels / decodea.pl

Created December 2, 2011 07:57

Decode a .codea rtfd file

	#!/usr/bin/perl

	# Tom's nasty and ugly .codea (rtfd) decoder
	# I release this bad boy to the public domain, you can't stop me!

	$debug=1;

	$f = shift @ARGV \|\| "Font.codea";

	open ($fh, $f);

bortels / gist:1388116

Created November 23, 2011 07:34

Keyboard for Codea

	Keyboard = class()

	function Keyboard:init()
	self.keyinfo = {
	one = { chr="1", glyph="1", schr="!", sglyph="!", row=4, col=2 },
	two = { chr="2", glyph="2", schr="@", sglyph="@", row=4, col=3 },
	three = { chr="3", glyph="3", schr="#", sglyph="#", row=4, col=4 },
	four = { chr="4", glyph="4", schr="$", sglyph="$", row=4, col=5 },
	five = { chr="5", glyph="5", schr="%", sglyph="%", row=4, col=6 },
	six= { chr="6", glyph="6", schr="^", sglyph="^", row=4, col=7 },

bortels / convert.pl

Created November 22, 2011 17:43

convert font data for codify

	#!/usr/bin/perl

	# This is ugly - I disavow all knowledge of it's existence. It was a one-off, so there are NO
	# attempts to make it clean or understandable. HERE THERE BE DRAGONS.

	use MIME::Base64;

	#font = {
	# " " = { name="space", symbol=" ", width=16, ascii=32,
	# data={} }

bortels / starfield.js

Created November 7, 2011 06:06

Javascript Starfield

	function StarField(canvas_id, width, height, num_stars) {
	var width = width ? width : 3000,
	height = height ? height : 1500,
	origin_x = width / 2,
	origin_y = height / 2,
	stars = [],
	num_stars = num_stars ? num_stars : 80,
	canvas_id = canvas_id;

	function create_star() {