---

Manual Reference Pages  - clear (3)

---

NAME

clear(3f) - [M_draw:COLOR] Clears screen to current color (LICENSE:PD)

CONTENTS

Synopsis
Description
Example

SYNOPSIS

subroutine clear()

DESCRIPTION

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).

EXAMPLE

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 :: ipaws

     call 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

---

clear (3)

March 11, 2021

Generated by manServer 1.08 from 654cb000-d19d-4ba4-9815-2b3724cabc74 using man macros.