clear(3f) - [M_draw:COLOR] Clears screen to current color (LICENSE:PD)
Synopsis
Description
Examples
subroutine clear()
Clears the screen to the current color. Causes a new page to begin on file-based devices that support multiple pages (Currently, the pixmap devices do not support multiple pages).
Sample program:
program demo_clear use M_draw, only : prefsize, vinit, ortho2, clear, getkey use M_draw, only : vexit, color, circle, polyfill 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 :: ipawscall prefsize(300,300) call vinit( ) ! start graphics using device $M_DRAW_DEVICE ipaws=getkey() call ortho2(-100.0,100.0,-100.0,100.0)
call color(D_BLACK) ! set current color call clear() ! clear background to current color call color(D_RED) ! set color to draw with call circle(0.0,0.0,50.0) ipaws=getkey() ! pause for a keypress on interactive devices
call color(D_GREEN) ! make a second page call clear() call polyfill(.true.) call color(D_YELLOW) call circle(0.0,0.0,50.0) ipaws=getkey()
call vexit()
end program demo_clear
Nemo Release 3.1 | clear (3) | February 23, 2025 |