---

Manual Reference Pages  - prefsize (3)

---

NAME

prefsize(3f) - [M_draw:WINDOW_SETUP] Specify preferred width and height of window in physical units (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Example

SYNOPSIS

subroutine prefsize(width, height) integer,intent(in) :: width, height

DESCRIPTION

Specify the preferred width and height of the device output surface opened by the *next* vinit(3f).

OPTIONS

WIDTH	width of device to create when vinit(3f) is called
HEIGHT	height of device to create when vinit(3f) is called

EXAMPLE

Sample program:

     program demo_prefsize
     use M_draw, only: prefsize, vinit, ortho2, clear, getkey
     use M_draw, only: move2, draw2, vexit, color
     use M_draw,    only  : D_BLACK,   D_WHITE
     use M_draw,    only  : D_RED,     D_GREEN,    D_BLUE
     use M_draw,    only  : D_YELLOW,  D_MAGENTA,  D_CYAN
     implicit none
     integer :: ipaws
        ! make first file with one size
        call prefsize(60*2,40*2)
        call vinit(’ ’) ! start graphics using device $M_DRAW_DEVICE
        call picture()
        ipaws=getkey()
        call vexit()

        ! make second file with another size
        call prefsize(60*3,40*3)
        call vinit(’ ’)
        call picture()
        ipaws=getkey()
        call vexit()
     contains
     subroutine picture
        call ortho2(-300.0,300.0,-200.0,200.0)
        call color(D_BLACK)
        call clear()
        call color(D_RED)
        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

---

prefsize (3)

March 11, 2021

Generated by manServer 1.08 from c90c5e6c-f319-481d-8170-ee4fc53f416f using man macros.