prefsize(3f) - [M_pixel] specify size of pixel array
(LICENSE:PD)
definition:
subroutine prefsize(width, height)
integer width, height
Specify the preferred width and height of the pixel array opened
by the *next* vinit(3f). The pixel array is then available via
the M_pixel(3fm) module as variable P_pixel. Note that the width
corresponds to the number of rows in the array, and height to the
number of columns.
WIDTH width of pixel array to create when vinit(3f) is called
HEIGHT height of pixel array to create when vinit(3f) is called
Sample program:
program demo_prefsize
use M_pixel, only: prefsize, vinit, ortho2, clear
use M_pixel, only: move2, draw2, vexit, color
use M_pixel, only : P_pixel,P_colormap
use M_writegif, only : writegif
implicit none
! make first file with one size
call prefsize(60*2,40*2)
call vinit()
call picture()
call writegif('prefsize.3m_pixel.gif',P_pixel,P_colormap)
call vexit()
! make second file with another size
call prefsize(60*3,40*3)
call vinit()
call picture()
call writegif('prefsize_B.3m_pixel.gif',P_pixel,P_colormap)
call vexit()
contains
subroutine picture
call ortho2(-300.0,300.0,-200.0,200.0)
call clear(0)
call color(1)
call move2(-300.0,-200.0)
call draw2(300.0,200.0)
call move2(300.0,-200.0)
call draw2(-300.0,200.0)
end subroutine picture
end program demo_prefsize
John S. Urban
Public Domain
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | x | |||
| integer, | intent(in) | :: | y |
subroutine prefsize(x,y)
! ident_30="@(#) M_pixel prefsize(3f) specify size of pixel array"
integer,intent(in) :: x
integer,intent(in) :: y
P_VIEWPORT_WIDTH=X
P_VIEWPORT_HEIGHT=Y
end subroutine prefsize