From 086c2af118f9db60f3b4b1bb12a3e4b6e31a5ac8 Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Thu, 14 May 2026 19:52:23 +0200
Subject: [PATCH] add the circles factory

---
 .gitignore      |  1 +
 Makefile        | 13 +++++++++++++
 morecircles.f90 | 28 ++++++++++++++++++++++++++++
 3 files changed, 42 insertions(+)
 create mode 100644 morecircles.f90

diff --git a/.gitignore b/.gitignore
index 0f126b8..534703b 100644
--- a/.gitignore
+++ b/.gitignore
@@ -14,4 +14,5 @@ lissajous
 squarmania
 testbed
 rndwlkng
+morecircles
 
diff --git a/Makefile b/Makefile
index 6a998bd..3b2b36f 100644
--- a/Makefile
+++ b/Makefile
@@ -15,6 +15,19 @@ testbed:	testbed.f90 Makefile genplotting.o
 rndwlkng:	rndwlkng.f90 Makefile genplotting.o
 	gfortran -Wall $< genplotting.o -o $@
 
+rndwlkng.png:	rndwlkng Makefile
+	./rndwlkng
+	convert rndwlkng.png rndwlkng.png
+
+# -----------------------------------------------
+
+morecircles:	morecircles.f90 Makefile genplotting.o
+	gfortran -Wall $< genplotting.o -o $@
+
+morecircles.png:	morecircles Makefile
+	./morecircles
+	convert morecircles.tga morecircles.png
+
 # -----------------------------------------------
 
 starfield:	starfield.f90 Makefile genplotting.o
diff --git a/morecircles.f90 b/morecircles.f90
new file mode 100644
index 0000000..4217c17
--- /dev/null
+++ b/morecircles.f90
@@ -0,0 +1,28 @@
+!
+!           YOU LIKE CIRCLES ? TAKE IT SISTA !
+!
+! this crapware is released by tTh under the
+!             DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+!
+
+program morecircles
+  use genplotting
+  implicit none
+  integer     idx
+  real        fdx, xp, yp, scx, scy
+  call genp_init(0, "WS/morecircles.scratch")
+  scx = 0.8   ;   scy = 1.5
+  do idx=5, 60
+    fdx = real(idx)
+    xp = 3.5 * cos((fdx/14.0)-0.7)
+    yp = 3.5 * sin((fdx/10.0)+0.3)
+    call genp_set_offset(xp, yp)
+    call genp_set_scale(scx, scy)
+    call genp_circle(fdx, 60, 1+mod(idx, 3))
+    scx = scx + 0.0075
+    scy = scy - 0.0075
+  enddo
+  call genp_end(0)
+  call genp_do_render("WS/morecircles.scratch", "morecircles.tga", &
+                   512, 512)
+end program