I made an art tool for cel7 to make art stuff a bit easier
https://possiblyaxolotl.itch.io/cel7-art-tool
left click is to place pixels and right click is to remove them
once you have your art made, click the floppy disk icon and it will copy the bytes to your clipboard
to use art exported from it, first add this to the top of your script (or use your own sprite-loading-byte-poking code)
(= macro (mac (sym params . body) (list '= sym (cons 'mac (cons params body)))))
(macro func (sym params . body) (list '= sym (cons 'fn (cons params body))))
(func each (f lst) (while lst (f (car lst)) (= lst (cdr lst))))
(func loadSprites (data)
(let i (* 65 7 7))
(each (fn (it)
(poke (+ 0x4040 i) it)
(= i (+ i 1))
) data)
)
it is directly stolen from the snake demo with some changes lol
then when you create art with the tool you can run (loadSprites) and pass in the data automatically copied to your clipboard
ex:
(loadSprites ’( 0 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 1 1 0 1 1 1 1 1 0 ))