---

Manual Reference Pages  - linewidth (3)

---

NAME

linewidth(3f) - [M_pixel] set linewidth (LICENSE:PD)

CONTENTS

Synopsis
Description
Example
Author
License

SYNOPSIS

definition:

   subroutine linewidth(iwidth)
   integer iwidth

DESCRIPTION

Set the current line width in units of 1/10,000 of the X size of the display surface

EXAMPLE

Sample program:

   program demo_linewidth
   use M_pixel,    only : prefsize, vinit, ortho2, clear, P_pixel, P_colormap
   use M_pixel,    only : move2, draw2, vexit, color, linewidth
   use M_writegif, only : writegif
   use M_pixel,    only : d2r, polar_to_cartesian
   implicit none
   integer :: i
   real    :: x,y,r,a,b,theta
   ! The Archimedean spiral is the locus of points corresponding
   ! to the locations over time of a point moving away from a
   ! fixed point with a constant speed along a line which rotates
   ! with constant angular velocity.
   !    r=a+b*theta
   ! Changing the parameter a will turn the spiral,
   ! while b controls the distance between successive turnings.
      call prefsize(401,401)
      call vinit(’’)
      call ortho2(-150.0,150.0,-150.0,150.0)
      call clear()
      call move2(0.0,0.0)
      call color(2)
      a=0.0
      b=2.0
      do i=0,360*10,5
         theta=d2r(i)
         r=a+b*theta
         call polar_to_cartesian(r,theta,x,y)
         call linewidth(i/5/3)
         call draw2(x,y)
      enddo
      call writegif(’linewidth.3m_pixel.gif’,P_pixel,P_colormap)
      call vexit()
   end program demo_linewidth

AUTHOR

John S. Urban

LICENSE

Public Domain

---

linewidth (3)

March 11, 2021

Generated by manServer 1.08 from 527296ba-3a9f-4997-bc62-221a580cf3a9 using man macros.