diff --git a/PRELUDE.md b/PRELUDE.md new file mode 100644 index 0000000..0166af6 --- /dev/null +++ b/PRELUDE.md @@ -0,0 +1,33 @@ +# 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))) +``` \ No newline at end of file