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

View File

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

View File

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