tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

use size option of gneplot2, and more

Browse Source
This commit is contained in:
tTh
2022-11-26 13:01:37 +01:00
parent 1cb5dc13bb
commit d0ac316652
3 changed files with 28 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
GrafAnim/usegenplot.f90
View File

@@ -26,6 +26,19 @@ subroutine end_genplot(message)
end subroutine
! -------------------------------------------------------------------
subroutine do_initialise_once(motif)
character(*), intent(in) :: motif
write(0, *) '--> do initialise once "', motif, '", flag is ', initialised
call init_genplot('a.scratch')
end subroutine
! -------------------------------------------------------------------
subroutine gplt_setcol(col)
integer, intent(in) :: col
color = col
@@ -37,15 +50,23 @@ end function
! -------------------------------------------------------------------
subroutine gplt_move(x, y)
integer, intent(in) :: x, y
print *, x, y, 0
integer, intent(in) :: x, y
if (.NOT. initialised) then
call do_initialise_once('in gplt_move')
endif
print *, x, y, 0
end subroutine
! -------------------------------------------------------------------
subroutine gplt_draw(x, y)
integer, intent(in) :: x, y
print *, x, y, color
integer, intent(in) :: x, y
if (.NOT. initialised) then
call do_initialise_once('in gplt_draw')
endif
print *, x, y, color
end subroutine
! -------------------------------------------------------------------