diff --git a/genplotting.f90 b/genplotting.f90 index a03f09c..40dd537 100644 --- a/genplotting.f90 +++ b/genplotting.f90 @@ -1,4 +1,5 @@ -! SPIRALING... +! THE GENPLOTTING MODULE +! ! new Thu Apr 23 01:13.37 PM UTC 2026 ! module genplotting @@ -31,23 +32,36 @@ subroutine genp_init (foo, fname) xscale = 0.0 ; yscale = 0.0 end subroutine ! --------------------------------------------------------- +subroutine genp_set_offset(ox, oy) + real, intent(in) :: ox, oy + xoffset = ox ; yoffset = oy +end subroutine +subroutine genp_get_offset(ox, oy) + real, intent(out) :: ox, oy + ox = xoffset ; oy = yoffset +end subroutine +! --------------------------------------------------------- subroutine genp_move (px, py) real, intent(in) :: px, py - write (outunit, '(2F12.5, I5)') px, py, -1 - if (px .lt. xmin) xmin = px - if (px .gt. xmax) xmax = px - if (py .lt. ymin) ymin = py - if (py .gt. ymax) ymax = py + real :: lx, ly + lx = px + xoffset ; ly = py + yoffset + write (outunit, '(2F12.5, I5)') lx, ly, -1 + if (lx .lt. xmin) xmin = lx + if (lx .gt. xmax) xmax = lx + if (ly .lt. ymin) ymin = ly + if (ly .gt. ymax) ymax = ly end subroutine ! --------------------------------------------------------- subroutine genp_draw (px, py, color) real, intent(in) :: px, py integer, intent(in) :: color - write (outunit, '(2F12.5, I5)') px, py, color - if (px .lt. xmin) xmin = px - if (px .gt. xmax) xmax = px - if (py .lt. ymin) ymin = py - if (py .gt. ymax) ymax = py + real :: lx, ly + lx = px + xoffset ; ly = py + yoffset + write (outunit, '(2F12.5, I5)') lx, ly, color + if (lx .lt. xmin) xmin = lx + if (lx .gt. xmax) xmax = lx + if (ly .lt. ymin) ymin = ly + if (ly .gt. ymax) ymax = ly end subroutine ! --------------------------------------------------------- ! ---------------------------------------------------------