diff --git a/genplotting.f90 b/genplotting.f90
index 364c66d..c4deceb 100644
--- a/genplotting.f90
+++ b/genplotting.f90
@@ -57,10 +57,21 @@ subroutine genp_get_offset(ox, oy)
   ox = xoffset      ;      oy = yoffset
 end subroutine
 ! ---------------------------------------------------------
+! new Tue May 12 06:51:57 PM UTC 2026
+subroutine genp_set_scale(sx, sy)
+  real, intent(in)     :: sx, sy
+  xscale = sx      ;      yscale = sy
+end subroutine
+subroutine genp_get_scale(sx, sy)
+  real, intent(out)     :: sx, sy
+  sx = xscale      ;      sy = yscale
+end subroutine
+! ---------------------------------------------------------
 subroutine genp_move (px, py)
   real, intent(in)        :: px, py
   real                    :: lx, ly
-  lx = px + xoffset     ;     ly = py + yoffset
+  lx = (px*xscale) + xoffset
+  ly = (py*yscale) + yoffset
   write (outunit, '(2F12.5, I5)') lx, ly, -1
   if (lx .lt. xmin)      xmin = lx
   if (lx .gt. xmax)      xmax = lx
@@ -72,7 +83,8 @@ subroutine genp_draw (px, py, color)
   real, intent(in)        :: px, py
   integer, intent(in)     :: color
   real                    :: lx, ly
-  lx = px + xoffset     ;     ly = py + yoffset
+  lx = (px*xscale) + xoffset
+  ly = (py*yscale) + yoffset
   write (outunit, '(2F12.5, I5)') lx, ly, color
   if (lx .lt. xmin)      xmin = lx
   if (lx .gt. xmax)      xmax = lx