tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add scaling engine

Browse Source
This commit is contained in:
Tonton Th
2026-05-13 09:57:35 +02:00
parent a0d63856af
commit 1dd0e71577
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
genplotting.f90
View File

@@ -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