Tom Bortels bortels

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

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 / 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 <alexthkloss@web.de>
	-- 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 / tom.uu

Created December 6, 2011 18:27

uuencoded pnm of tomfezicon

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 / tomfezicon.hex

Created December 7, 2011 00:03

tomfezicon.jpg in pnm format, hex

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 / 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 / sphere.lua

Created May 3, 2012 20:36

Sphere in Codea


	-- Use this function to perform your initial setup
	function setup()
	local vertex = {}
	vertex[1] = vec3(0.382683, 0.923880, 0.00000e+0)
	vertex[2] = vec3(0.353553, 0.923880, 0.146447)
	vertex[3] = vec3(0.270598, 0.923880, 0.270598)
	vertex[4] = vec3(0.146447, 0.923880, 0.353553)
	vertex[5] = vec3(2.34318e-17, 0.923880, 0.382683)
	vertex[6] = vec3(-0.146447, 0.923880, 0.353553)

bortels / mvc

Created October 2, 2012 17:02

minecraft control script using screen

	#! /bin/sh
	### BEGIN INIT INFO
	# Provides: minecraft_server
	# Required-Start: $remote_fs $syslog
	# Required-Stop: $remote_fs $syslog
	# Default-Start: 2 3 4 5
	# Default-Stop: 0 1 6
	# Short-Description: Minecraft Server control script.
	# Description: Minecraft Server control script.
	# Options

bortels / ply

Created November 2, 2012 04:05

PLY loading class for Codea

	-- minor modifications from https://dl.dropbox.com/u/80475380/CodeaForumPictures/Main.lua
	--
	-- call with m = PLY:parsePLY(string)

	PLY = class()

	function PLY:readLine()
	-- Read one line of ply string. Return without \n. Return nil, if end is reached.

	local endLine = false