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 ))

EPIK