[UP]


Manual Reference Pages  - polyfill (3)

NAME

polyfill(3f) - [M_draw:POLYGONS] Set the polygon fill flag (LICENSE:PD)

CONTENTS

Synopsis
Description
Example

SYNOPSIS

subroutine polyfill(onoff) logical onoff

DESCRIPTION

Set the polygon fill flag. This will always turn off hatching. A LOGICAL .true. turns polyfill on.

EXAMPLE

Sample program:

   program demo_polyfill
   ! Using polygons, hatching, and filling.
      use M_draw, only : vinit, color, clear, ortho, boxtext, vexit
      use M_draw, only : 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
      integer           :: ios
      character(len=50) :: device
      print*,’Enter output device:’
      read(*,’(a)’,iostat=ios)device
      if(ios.ne.0)device=’ ’
      call vinit(device)
   ! clear to black
      call color(D_BLACK)
      call clear()
   ! world coordinates are now in the range -10 to 10
   ! in x, y, and z. Note that positive z is towards us.
      call ortho(-10.0, 10.0, -10.0, 10.0, 10.0, -10.0)
      call color(D_YELLOW)
   ! write out the string "Polygon from poly()" in the
   ! starting at (-8.0, -4.0) and scaled to be 4.0 units long,
   ! 0.5 units high.
      call boxtext(-8.0, -4.0, 4.0, 0.5, ’Polygon from poly()’)
      call color(D_GREEN)
   ! write out a scaled string starting at (0.0, 6.0)
      call boxtext(0.0, 6.0, 4.0, 0.5, ’Polygon from move()/ draw()’)
      call color(D_MAGENTA)
   ! write out a scaled string starting at (0.0, 6.0)
      call boxtext(3.5, -3.5, 1.9, 0.5, ’Sector’)
   ! turn on polygon filling - this automatically turns off hatching
      call polyfill(.true.)
   ! draw some polygons with filling
      call my_drawpoly()
      call vexit()
   contains
   subroutine my_drawpoly()
      use M_draw, only : color, move, draw, closepoly, sector, getkey
      use M_draw, only : poly, closepoly, sector, makepoly
      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

real parray(3,4) ! An array of points for a polygon data parray/ -8.0, -8.0, 0.0, & & -5.0, -8.0, 0.0, & & -5.0, -5.0, 0.0, & & -8.0, -5.0, 0.0 / call color(D_YELLOW) ! Draw a polygon using poly, parray is our array of ! points and 4 is the number of points in it. call poly(4, parray) call color(D_GREEN) ! Draw a 5 sided figure by using move, draw and closepoly. call makepoly() call move(0.0, 0.0, 0.0) call draw(3.0, 0.0, 0.0) call draw(3.0, 4.0, 0.0) call draw(-1.0, 5.0, 0.0) call draw(-2.0, 2.0, 0.0) call closepoly() call color(D_MAGENTA) ! draw a sector representing a 1/4 circle call sector(1.5, -7.0, 3.0, 0.0, 90.0) idum=getkey() end subroutine my_drawpoly end program demo_polyfill


polyfill (3) March 11, 2021
Generated by manServer 1.08 from f174274e-0e5a-48d3-8b01-2daa18c911f5 using man macros.