From 9551806b178deaceb2d23b3735fdc875cadab89f Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Sat, 18 Mar 2023 18:43:54 +0100
Subject: [PATCH] Add GCD grid example

---
 README.org           |   2 ++
 examples/Makefile    |   2 +-
 examples/gcdgrid.bqn |  12 ++++++++++++
 examples/gcdgrid.png | Bin 0 -> 641 bytes
 4 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 examples/gcdgrid.bqn
 create mode 100644 examples/gcdgrid.png

diff --git a/README.org b/README.org
index 93be764..497c9a5 100644
--- a/README.org
+++ b/README.org
@@ -22,6 +22,8 @@ cd examples
 make all
 #+end_src
 
+[[./examples/gcdgrid.png]]
+
 [[./examples/hsv.png]]
 [[./examples/gradient.png]]
 
diff --git a/examples/Makefile b/examples/Makefile
index 1523ca0..9c85025 100644
--- a/examples/Makefile
+++ b/examples/Makefile
@@ -1,5 +1,5 @@
 .PHONY: all
-all: checkers.png random_pbm.png random_pgm.png random_ppm.png gradient.png hsv.png
+all: checkers.png random_pbm.png random_pgm.png random_ppm.png gradient.png hsv.png gcdgrid.png
 
 %.pnm: %.bqn
 	bqn $< > $@
diff --git a/examples/gcdgrid.bqn b/examples/gcdgrid.bqn
new file mode 100644
index 0000000..6acf3ce
--- /dev/null
+++ b/examples/gcdgrid.bqn
@@ -0,0 +1,12 @@
+bqngraphics←"../"
+⟨Viridis⟩←•Import bqngraphics∾"colormaps.bqn"
+⟨HSVtoRGB⟩←•Import bqngraphics∾"colors.bqn"
+⟨PBM,PGM,PPM⟩←•Import bqngraphics∾"pnm.bqn"
+
+# https://susam.net/blog/gcd-grid.html
+GCDGrid←•math.GCD⌜˜↕
+
+•Out PBM 1≠GCDGrid 50
+#•Out PGM GCDGrid 20
+#•Out PPM {⌊255×HSVtoRGB⎉1⍉(360×𝕩÷1+⌈˝𝕩)∾(2∾≢𝕩)⥊1}GCDGrid 20
+#•Out PPM ⌊255×> Viridis¨ (⊢÷⌈´∘⥊) GCDGrid 20
diff --git a/examples/gcdgrid.png b/examples/gcdgrid.png
new file mode 100644
index 0000000000000000000000000000000000000000..f2e3be106cd4116f10befa293fc51670c21b0c4c
GIT binary patch
literal 641
zcmeAS@N?(olHy`uVBq!ia0y~yVAKI&MxX#gAlv2}K#C>Z(btiIVPik{pF~z5pDD@P
z-GzbiZkO;9AdkJo)7O>#IkS+UwrbSY7IUEPt)4E9AsP4H&dTj;QQ&cyUBS?Q<f`Q)
z_8Ci}SDrZD<ZNb|Ia^h&`OI(U<#t*;IqYjp*d^9&In2CGHt}ImW8x9znzEW#KMt7u
z=Q^}s^U{>eM;@2m=iJ$KAjpT|(DuICHzL74Ws4M+yj*T!()@tw@}HEyyT7l0=bIVR
zWW1}iG1k=O%vP5N{^!1FKdeodm8<#wo*GlR&nk_b2cl}9^1Nq@O^~n`c#-6Luy4cW
z^-8@tQ}3Tio)zx!@avW>lb-voGC$vx=(Ab(eqny{Dm^tjgR`N%1-&k_n6_Px)y|8I
zu{qRb*6+&`w$|(G_GyN1qTaA;Tm@V6Hg2!A{h{9;hu6%rV`?)zyPM_H@4Zp??NSV7
zwk)f1k@<O6p-e8sbk-w{kCI_;%|A=<MaOi`He56P>Ia~wD{bwq1*{4kADf@Pu_a*6
zv9nrbSz1M@9xr_^`>*!j!PO%oY4_WpKXYA3{GH+%I-YhLRQq=xc(?u2-YFgYTbCyK
zd_H$xJ3Y6*@*VT((#QJoqRXG|E999EvVu2fk&fu@%1tw#UEWxJ{#M)TiQGK<x9#|#
z6LG*KeATDY_1EfKJ(KKzzG1$xxp$!+FiurVTq8<S5=&C8l8aJ-6oZk0k+H6Uv96&-
xh@rWaiLsTjxwe6Um4U&ez5G{EH00)|WTsW(*6{ej_DrA#22WQ%mvv4FO#sVx48s5b

literal 0
HcmV?d00001