state(3f) - [M_pixel] print graphics state of M_pixel graphics module (LICENSE:PD)
Synopsis
Description
Options
Example
Author
License
definition:
recursive subroutine state(string) character(len=*),intent(in),optional :: string
Print the state of the M_pixel graphics module. This is primarily used in debugging during program development and is not currently in the M_draw library.
STRING can have the following values
o all o default o colormap
Sample program:
program demo_state use M_pixel implicit none call prefsize(640,400) call vinit() call state() call vexit() end program demo_stateResults:
VINIT CALLED: T PREFSIZE: WIDTH= 640 HEIGHT= 400 CURRENT POSITION: X= 0.00000000 Y= 0.00000000 LINE WIDTH: 1 FONT: SIMPLEX COLOR NUMBER: 1 CIRCLE PRECISION: 60 TEXT: HEIGHT= 10.000 WIDTH= 7.0000 ANGLE= 0.0000 TEXT JUSTIFICATION: X_CENTER= F Y_CENTER= F VIEWPORT: LEFT= 0.0000 RIGHT= 639.00 BOTTOM= 399.00 TOP= 0.0000 WINDOW: LEFT= 0.0000 RIGHT= 640.00 BOTTOM= 0.0000 TOP= 400.00
John S. Urban
Public Domain
Nemo Release 3.1 | state (3m_pixel) | April 21, 2023 |