[UP]

Manual Reference Pages  - polyline2 (3)

NAME
polyline2(3f) - [M_pixel:DRAW] - draw an unclosed polyline in the XY plane (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Example
Author
License

SYNOPSIS
subroutine polyline2(arrx,arry) 

          integer,intent(in)          :: arrx(:)
          integer,intent(in),optional :: arry(:)

DESCRIPTION
Given either a single array composed of pairs <x(i),y(i)> of values defining points or an X and Y array move to first point and draw to remaining points using current line style.

OPTIONS
ARRX If ARRY is present, an array of X values
ARRY An optional array of Y values

EXAMPLE
Sample program: 

   program demo_polyline2
   use M_pixel
   use M_writegif, only : writegif
   implicit none
   integer :: transparent=0
   integer :: ipaws
      call prefsize(300,300)
      call vinit(’ ’)
      call ortho2(-2.0,2.0,-2.0,2.0)
      call color(2)
      call linewidth(100)
      call polyline2([-0.5,-0.5, -0.5,+0.5, +0.5,+0.5, +0.5,-0.5])
      call color(4)
      call polyline2( [-1,-1,+1,+1,-1] , &  ! X values
      & [-1,+1,+1,-1,-1] )    ! Y values
       ! write gif with a transparent background
      call writegif(’polyline2.3m_pixel.gif’,P_pixel,P_ColorMap,transparent)
      call vexit()
   end program demo_polyline2

AUTHOR
John S. Urban

LICENSE
Public Domain

polyline2 (3) March 11, 2021
Generated by manServer 1.08 from 306d453b-4235-4e3f-8130-4984f80c2e9e using man macros.