ronin/PRELUDE.md

Prelude

Colors

Compare two Colors

Use: (if (color-eq (255 200 0) (200 255 0)) "yes" "no").

(defn color-eq 
  (a b) 
  (and 
    (eq a:0 b:0) 
    (eq a:1 b:1) 
    (eq a:2 b:2)))

Pixels

Erase all pixels of a specific color

Use: (pixels erase-color (255 0 0)).

(defn erase-color 
  (a b) 
  (a:0 a:1 a:2 
    (if 
      (and 
        (eq a:0 b:0) 
        (eq a:1 b:1) 
        (eq a:2 b:2)) 0 255)))