From aca035c8bec07e88726f2f72dd3e07b259f055f0 Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Tue, 5 May 2026 04:17:46 +0200
Subject: [PATCH] this crap need more work

---
 lissajous.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lissajous.f90 b/lissajous.f90
index 3bfe86c..889a251 100644
--- a/lissajous.f90
+++ b/lissajous.f90
@@ -6,10 +6,10 @@ program sinwaves
   real     phase
   call genp_init (0, 'WS/lissajous.scratch')
 
-  do foo=1, 22
+  do foo=1, 20
     phase = real(foo) * 0.314159
     c = 3 + mod(foo, 2)
-    call do_lissajous (2000, phase, c)
+    call do_lissajous (400, phase, c)
   enddo
 
   call genp_end (0)
@@ -25,7 +25,7 @@ subroutine do_lissajous (nbpass, phy, col)
 
   do idx=0, nbpass
     ridx = 6.28318 * (real(idx) / real(nbpass))
-    x = sin(ridx*7 + phy)
+    x = sin(ridx + phy)
     y = cos(ridx*3)
 
     if (idx .eq. 0) then