From e060fad7644ee7acc43588a446ccd6d0ea8b23dc Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Wed, 13 May 2026 10:02:22 +0200
Subject: [PATCH] testing recent changes

---
 testbed.f90 | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/testbed.f90 b/testbed.f90
index 25765fa..634b171 100644
--- a/testbed.f90
+++ b/testbed.f90
@@ -2,8 +2,21 @@ program testbed
   use genplotting
   implicit none
 
+  integer     idx
+  real        fdx, xp, yp, scx, scy
+
   call genp_init(0, "foo.scratch")
-  call genp_plot_axes(13.37)
+  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("foo.scratch", "foo.tga", 512, 512)