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
implicit none
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
integer :: idum
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
