getviewport Subroutine

public subroutine getviewport(left, right, bottom, top)

NAME

getviewport(3f) - [M_pixel] return viewport in screen pixel coordinates
(LICENSE:PD)

SYNOPSIS

definition:

subroutine getviewport(left, right, bottom, top)
real,intent(out)    :: left
real,intent(out)    :: right
real,intent(out)    :: bottom
real,intent(out)    :: top

DESCRIPTION

Returns the left, right, bottom and top limits of the current viewport in screen coordinates (-1.0 to 1.0).

 Fortran:
      subroutine getviewport(left, right, bottom, top)
      real left, right, bottom, top
If a pixel array has been declared to be real :: array(600,400)

     o-----> X                         (right=600,top=0)
     | #------------------------------------#
     | |                                    |
     | |                                    |
     V |                                    |
     Y |                                    |
       #------------------------------------#
  (left=0,bottom=400)

OPTIONS

LEFT     value for left side
RIGHT    value for right side
BOTTOM   value for bottom side
TOP      value for top side

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

Type IntentOptional Attributes Name
real, intent(out) :: left
real, intent(out) :: right
real, intent(out) :: bottom
real, intent(out) :: top

Contents

Source Code

getviewport

Source Code

subroutine getviewport(left,right,bottom,top)

! ident_19="@(#) M_pixel getviewport(3f) return viewport in screen pixel coordinates"

real,intent(out)    :: left
real,intent(out)    :: right
real,intent(out)    :: bottom
real,intent(out)    :: top

   left    =  P_viewport_left
   right   =  P_viewport_right
   bottom  =  P_viewport_bottom
   top     =  P_viewport_top

end subroutine getviewport