image_paradise 0.4.20

data/lib/image_paradise/cfdg/luma_smiley.cfdg

@@ -0,0 +1,563 @@
+# =========================================================================== #
+# From:
+#
+#   https://www.contextfreeart.org/gallery2/#design/4007
+#
+# This was originally called 'luma.cfdg'.
+#
+# HEIGHT: 600
+# WIDTH:  600
+#
+# =========================================================================== #
+
+startshape LUMA
+
+rule LUMA {
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 x 4 } 
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 1 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 1 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 1 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 1 x 4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 1 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 1 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 1 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x 4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 2 x 7 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 3 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 3 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 4 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 4 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 5 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 5 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 3 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 3 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 3 x - 3 }
+
+SQUARE { y 3 x 1 }
+
+SQUARE { y 3 }
+
+SQUARE { y 4 }
+
+SQUARE { y 5 }
+
+SQUARE { y 4 x 1 }
+
+SQUARE { y 5 x 1 }
+
+SQUARE { y 6 x 1 }
+
+SQUARE { y 3 x 4 }
+
+SQUARE { y 3 x 5 }
+
+SQUARE { y 4 x 4 }
+
+SQUARE { y 5 x 4 }
+
+SQUARE { y 6 x 5 }
+
+SQUARE { y 4 x 5 }
+
+SQUARE { y 5 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 3 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 3 x 7 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 3 x 8 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 4 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 4 x 7 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 4 x 8 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 5 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 5 x 7 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 5 x 8 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 4 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 4 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 4 x -3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 5 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 5 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 5 x -3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 10 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 11 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 12 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 13 x 2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 10 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 11 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 12 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 13 x 3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x -3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x -4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x -5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x -6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x -3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x -4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x -5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x -6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 10 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 11 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 12 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 10 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 11 x -1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 10 x -2 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x -3 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 10 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 11 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 12 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 13 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 1 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x 4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 x 4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 10 x 4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 11 x 4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 12 x 4 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 10 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 11 x 5 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 9 x 6 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x 7 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 7 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 8 x 7 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x 8 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 8 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x 9 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x 10 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 6 x 11 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 9 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 10 }
+
+SQUARE { h 61.81 sat 1.0000 b 1.0000 y 7 x 11 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 7 x -7 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 5 x - 5}
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 5 x -4 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 4 x -4 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 3 x -4 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 2 x -4 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x -4 y 1 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 2 x -3}
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 1 x -3 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 1 x -2 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x -3 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x -2 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x -1 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x -3 y -1 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x -2 y -1 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x -1 y -1 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x -3 y -2 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -2 x -2 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -3 x -2 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -1 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -1 x 1 }
+
+SQUARE {h 47.42 sat 1.0000 b 1.0000 y -1 x 2 }
+
+SQUARE {h 47.42 sat 1.0000 b 1.0000 y -1 x 3 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -1 x 4 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -1 x 5 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -1 x 6 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -1 x 7 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -1 x 8 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x 6 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x 7 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x 8 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 1 x 7 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 1 x 8 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 1 x 9 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 2 x 8 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 2 x 9 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -2 x 7 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -2 x 8 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y -3 x 7 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 3 x 9 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 4 x 9 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 5 x 9 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 5 x 10 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 x 12 y 7 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 8 x 8 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 9 x 7 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 10 x 6 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 11 x 6 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 12 x 5 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 13 x 4 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 14 x 3 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 14 x 4 }
+
+SQUARE { h 47.42 sat 1.0000 b 1.0000 y 14 x 5 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y 6 x -7 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y 5 x -6 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y 4 x -5 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 x -4 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 x -4 y -1 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -3 x -3 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -4 x -2 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -3 x -1 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -2 x -1 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -2 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -2 x 1 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -2 x 2 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -2 x 3 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -2 x 4 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -2 x 5 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414  y -2 x 6 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -3 x 6 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -4 x 7 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -3 x 8 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y -1 x 9 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 x 9 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y 4 x 10 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y 5 x 11 }
+
+SQUARE { h 57.74 sat 0.2512 b 0.5414 y 6 x 12 }
+
+SQUARE { y -3 }
+
+SQUARE { y -3 x 1 }
+
+SQUARE { y -3 x 2 }
+
+SQUARE { y -3 x 3 }
+
+SQUARE { y -3 x 4 }
+
+SQUARE { y -3 x 5 }
+
+SQUARE { y - 4 x -1 }
+
+SQUARE { y - 5 x -2 }
+
+SQUARE { y -4 x -3 } 
+
+SQUARE { y -3 x -4 }
+
+SQUARE { y -2 x -4 }
+
+SQUARE { y - 1 x -5 }
+
+SQUARE { x -5 }
+
+SQUARE { y 1 x -5 }
+
+SQUARE { y 2 x -5 }
+
+SQUARE { y 3 x -5 }
+
+SQUARE { y 4 x -6 }
+
+SQUARE { y 5 x -7 }
+
+SQUARE { y 6 x -8 }
+
+SQUARE { y 7 x -8 }
+
+SQUARE { y 8 x -7 }
+
+SQUARE { y 8 x -6 }
+
+SQUARE { y 8 x -5 }
+
+SQUARE { y 8 x -4 }
+
+SQUARE { y 9 x -3 }
+
+SQUARE { y 10 x -3 }
+
+SQUARE { y 11 x -2 }
+
+SQUARE { y 12 x -1 }
+
+SQUARE { y 13 }
+
+SQUARE { y 14 x 1 }
+
+SQUARE { y 14 x 2 }
+
+SQUARE { y 15 x 3 }
+
+SQUARE { y 15 x 4 }
+
+SQUARE { y 15 x 5 }
+
+SQUARE { y 14 x 6 }
+
+SQUARE { y 13 x 5 }
+
+SQUARE { y 12 x 6 }
+
+SQUARE { y 11 x 7 }
+
+SQUARE { y 10 x 7 }
+
+SQUARE { y 9 x 8 }
+
+SQUARE { y 8 x 9 }
+
+SQUARE { y 8 x 10 }
+
+SQUARE { y 8 x 11 }
+
+SQUARE { y 8 x 12 }
+
+SQUARE { y 7 x 13 }
+
+SQUARE { y 6 x 13 }
+
+SQUARE { y 5 x 12 }
+
+SQUARE { y 4 x 11 }
+
+SQUARE { y 3 x 10 }
+
+SQUARE { y 2 x 10 }
+
+SQUARE { y 1 x 10 }
+
+SQUARE { x 10 }
+
+SQUARE { y -1 x 10 }
+
+SQUARE { y -2 x 9 }
+
+SQUARE { y -3 x 9 }
+
+SQUARE { y -4 x 8 }
+
+SQUARE { y -5 x 7 }
+
+SQUARE { y -4 x 6 }
+
+}
+
+# runcfdg $CFDG/luma.cfdg

data/lib/image_paradise/cfdg/maggi_stars.cfdg

@@ -0,0 +1,11 @@
+# This was originally named maggi.cfdg.
+startshape maggi_stars
+
+background { b -0.91}
+
+rule maggi_stars
+{
+   TRIANGLE{hue 0 sat 1 brightness .9}
+   TRIANGLE{flip 180 hue 0 sat 1 brightness .9}
+   maggi_stars {x 2.2 size .9 r 75 hue 8 sat 1}
+}

data/lib/image_paradise/cfdg/mandelbrot_3.cfdg

@@ -0,0 +1,111 @@
+# =========================================================================== #
+# Taken from:
+#
+#  https://www.contextfreeart.org/gallery/view.php?id=4242
+#
+# Created by flembobs. Integrated into image_paradise on 02.08.2021.
+# =========================================================================== #
+CF::Impure  = 1
+CF::Background = [ b -1 ]
+
+// zoomed out render
+E = 10
+grid_size = 1024
+max_iter = 100
+target = -0.7,0
+range = 1.5
+
+// Gallery Render
+// E = 2
+// grid_size = 2048
+// max_iter = 800
+// target = -0.905, 0.266
+// range = 0.03
+
+// convert grid index to complex number
+gridR(n,t)=lerp(t-range,t+range,n/grid_size)
+vector2 gridCz(i,j)=gridR(i,target[0]), gridR(j,target[1])
+
+//Linear interpolation
+lerp(n0,n1,i)=n0+(n1-n0)*i
+vector3 lerp3(vector3 v0, vector3 v1, i) =
+   lerp(v0[0],v1[0],i), lerp(v0[1],v1[1],i), lerp(v0[2],v1[2],i)
+
+//Map n in range i0, j0 to corresponding value in i1, j1
+map_range(n,i0,j0,i1,j1)= i1 + ((n-i0)*(j1-i1)/(j0-i0))
+
+//complex numbers:
+
+c_mag(vector2 c) = sqrt( c[0]^2 + c[1]^2 )
+
+vector2 c_add(vector2 c1, vector2 c2) = (c1[0]+c2[0]), (c1[1]+c2[1])
+
+vector2 c_pow2(vector2 c)=c[0]^2 - c[1]^2, 2*c[0]*c[1]
+
+//set identity function
+vector2 F ( vector2 cZ, vector2 c ) = c_add( c_pow2(cZ) , c )
+
+//approximate escape func
+escape(vector2 c)=abs(c[0])>E || abs(c[1])>E
+
+//Colour pattern for the bands (h, sat, b)
+num_cols = 5
+vector3 col(n)=select(n,
+  (-49, 0.75, 0.2),
+  (90, 0.1, 0.85),
+  (50, 0.3, 0.95),
+  (120, 0.5, 0.8),
+  (0, 0, 1.0)
+)
+
+
+startshape GRID []
+
+shape GRID
+{
+  loop i=grid_size [ x 1 ]
+  loop j=grid_size [ y 1 ]
+  {
+    c = gridCz(i,j)
+    M ( max_iter, c, (0,0) ) []
+
+    //Target finder
+    //if( i==floor(grid_size/2) && j==floor(grid_size/2) )
+    //	CIRCLE [ s 3 b 1 sat 0 z 100 ]
+  }
+}
+
+shape M ( n, vector2 c, vector2 z0 )
+{
+  if ( n > 0 )
+  {
+    z1 = F ( z0, c )
+
+    if ( escape ( z1 ) ) 
+      ESC ( n, c, z1 ) [] 
+    else
+      M ( n-1, c, z1 ) []
+  }
+}
+
+shape ESC ( n, vector2 c, vector2 z1 )
+{
+  m=max_iter-n
+
+  //smooth escape:  http://linas.org/art-gallery/escape/escape.html
+  ec=F(F(z1, c), c)
+  mu=m-log(log(c_mag(ec)))/log(2)
+
+  i=map_range(mu,0,max_iter,0,num_cols)
+
+  c0=col(floor(i))
+  c1=col(floor(i+1))
+
+  ci=lerp3(c0,c1,mod(i,1))
+
+  H = ci[0]
+  SAT = ci[1]
+  B = ci[2]
+
+  SQUARE [ h H sat SAT b B ]
+}