Intel® Fortran Compiler 17.0 Developer Guide and Reference
Graphics Subroutine: Redefines the graphics viewport by defining a clipping region in the same manner as SETCLIPRGN and then setting the viewport-coordinate origin to the upper-left corner of the region.
USE IFQWIN
CALL SETVIEWPORT (x1,y1,x2,y2)
x1, y1 |
(Input) INTEGER(2). Physical coordinates for upper-left corner of viewport. |
x2, y2 |
(Input) INTEGER(2). Physical coordinates for lower-right corner of viewport. |
The physical coordinates (x1, y1) and (x2, y2) are the upper-left and lower-right corners of the rectangular clipping region. Any window transformation done with the SETWINDOW function is relative to the viewport, not the entire screen.
USE IFQWIN
INTEGER(2) upx, upy
INTEGER(2) downx, downy
upx = 0
upy = 30
downx= 250
downy = 100
CALL SETVIEWPORT(upx, upy, downx, downy)