diff --git a/squarmania.f90 b/squarmania.f90
index 558e8ca..7032cfc 100644
--- a/squarmania.f90
+++ b/squarmania.f90
@@ -12,7 +12,7 @@ program squarmania
   write (0, '(A)') "----[ genplotting squarmania ]----"
 
   call genp_init (0, 'WS/squarmania.scratch')
-  call do_squarmania (35, 0.93)
+  call do_squarmania (40, 0.934)
   call genp_end (0)
 
 contains
@@ -31,8 +31,8 @@ subroutine do_squarmania (nbr, k0)
 
   do idx=1, nbr
     call genp_move(xa, ya)
-    call genp_draw(xb, yb, 1)  ; call genp_draw(xc, yc, 2)
-    call genp_draw(xd, yd, 3)  ; call genp_draw(xa, ya, 4)
+    call genp_draw(xb, yb, 1)  ; call genp_draw(xc, yc, 1)
+    call genp_draw(xd, yd, 2)  ; call genp_draw(xa, ya, 2)
 
     va = k0*xa + k2*xb         ;  wa = k0*ya + k2*yb
     vb = k0*xb + k2*xc         ;  wb = k0*yb + k2*yc