Name: Anonymous 2011-03-17 8:32
X server in Common Lisp: https://github.com/pyb/zen
defineTileset name filename slots
-> n:0 tiles:(Vector 4096) gfxes:(Vector 4096) mixes:[] bases:[]
image:(loadFrames 32 32 filename)
addTile:{t x -> map {i g -> aset n+i image,g gfxes
-> aset n+i t tiles}
[0..x.len] x
-> !n+16}
slots |> fe
{no -> !n+16
;[sc c @xs] -> t:["class"=c "sc"=sc "mask"=tileMasks.c]
-> sc.{lst?->[sc=n @!mixes]; _->[sc=n @!bases]}
-> map (addTile t ?) xs}
-> tilesets.name =: ["name"=name "file"=filename "gfxes"=gfxes "tiles"=tiles
"bases"=bases "mixes"=mixes]