use size option of gneplot2, and more

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

View File

@ -5,7 +5,7 @@ program essai
integer :: foo, bar
integer :: nbarg
integer :: numframe = 0
character(len=32) :: arg
character(len=256) :: arg
! write(0, *) "------------ essai graf anim ---------------"
@ -16,7 +16,7 @@ program essai
read (arg, *) numframe
endif
! write(0, '(A20, I5)') "frame number =", numframe
write(0, '(A20, I5)') "frame number =", numframe
call init_genplot("essai.genplot")
call do_frame(7)

View File

@ -9,7 +9,7 @@ do
./essai $foo > a.scratch
fname=$(printf "F/%04d.tga" $foo)
echo $fname
genplot2 a.scratch $fname
genplot2 -s 640x480 a.scratch $fname
done

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
@ -38,6 +51,11 @@ end function
subroutine gplt_move(x, y)
integer, intent(in) :: x, y
if (.NOT. initialised) then
call do_initialise_once('in gplt_move')
endif
print *, x, y, 0
end subroutine
@ -45,6 +63,9 @@ end subroutine
subroutine gplt_draw(x, y)
integer, intent(in) :: x, y
if (.NOT. initialised) then
call do_initialise_once('in gplt_draw')
endif
print *, x, y, color
end subroutine