[UP]


Manual Reference Pages  - width (3)

NAME

width(3f) - [M_calcomp:basic] select pen width (LICENSE:PD)

CONTENTS

Synopsis
Description
Example
     Comments
License

SYNOPSIS

subroutine width(iwidth)

   integer,intent(in) :: iwidth

DESCRIPTION

Select a new pen width. Sets the current line width in units of 1/10,000 of the X size of the display surface

EXAMPLE

Sample program:

   program demo_width
      use M_calcomp
      implicit none
      integer :: i,n, ii
      real    :: angle, rad, xx, yy
      call plots(0.0,10.0,0.0,10.0)
      call plot(5.0,5.0,-3)
      angle=0.0
      n=30
      do i=1,n
         ii=360/n
         call width(i*10)
         rad=0.0174533*angle
         xx=5.0*cos (rad)
         yy=5.0*sin (rad)
         call plot( 0.0, 0.0,3)
         call plot(  xx,  yy,2)
         angle=angle+360.0/n
      enddo
      call plot(0.0,0.0,999)
   end program demo_width

    COMMENTS

This routine was not part of the original Calcomp library.

LICENSE

Public Domain


width (3) March 11, 2021
Generated by manServer 1.08 from 0ff73d78-8036-48f8-8be7-6f7c933a15b5 using man macros.