13 lines
520 B
Fennel
13 lines
520 B
Fennel
(local {: pal : gs-to-rgb} (require :editor.tiledraw.iigs))
|
|
(local lume (require :lib.lume))
|
|
|
|
{:map-bitxy (fn [self x y] (values (+ (* y 16) x) 0 0xff))
|
|
:pixel-color (fn [self b] (match b 0xf0 (values [128 128 128] [64 64 64])
|
|
_ (gs-to-rgb (. pal (+ b 1)))))
|
|
:draw-bits #(if (= $1.icolor 17) 0xf0 (- $1.icolor 1))
|
|
:palette #(lume.concat (icollect [_ color (ipairs pal)] (gs-to-rgb color)) [[255 0 255]])
|
|
:pixel-storage-divisor #1
|
|
:preview-locations #[[8 0] [0 5] [16 5] [8 10]]
|
|
}
|
|
|