C Library Functions - linewidth (3)
NAME
linewidth(3f) - [M_pixel] set linewidth
(LICENSE:PD)
CONTENTS
Synopsis
Description
Examples
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
EXAMPLES
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_pixel__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
| Nemo Release 3.1 | linewidth (3) | June 29, 2025 |
Generated by manServer 1.08 from cf43c610-10f2-4c3b-b152-54f188ae107f using man macros.