C Library Functions  - circleprecision (3)

NAME

circleprecision(3f) - [M_pixel:ARCS] set number of line segments used to approximate a circle (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Example
Author
License

SYNOPSIS

definition:

   subroutine circleprecision(nsegs)
   integer   :: nsegs

DESCRIPTION

Set the number of line segments making up a circle. Default is currently 60. The number of segments in an arc or sector is calculated from the variable "nsegs" according to the span of the arc or sector.

OPTIONS

NSEGS number of line segments making up a circle

EXAMPLE

Sample program:

   program demo_circleprecision
   use M_pixel
   use M_pixel__writegif, only : writegif
   implicit none
   real              :: b=0.5
   real              :: y1,y2,ym,x1,x2
   real              :: width=50.0/8.0,width2
   integer,parameter :: ivals(*)=[3,5,7,10,20,30,60,100]
   integer           :: i
      !! set up long bar as plotting area
      call prefsize(1000,200)
      call vinit()
      call ortho2(-25.0-b, 25.0+b, -5.0-b, 5.0+b)
      call textsize( 2.5/2.0, 3.0/2.0)
      call font(’DUPLEX’)
      call centertext(.true.)
      call linewidth(30)
      call color(2)
      y1=-5
      y2=5
      ym=0
      x1=-25+.05*width
      ! draw colored rectangle and a circle and label center of circle repeat
      width2=width*0.95
      do i=1,size(ivals)
         x2=x1+width2
         call move2((x1+x2)/2.0,ym)
         call circleprecision(ivals(i))
         call drawstr(ivals(i))     ! convert number to string and draw it
         call circle((x1+x2)/2.0, ym, (x2-x1)/2.10)
         x1=x1+width
      enddo
      ! write plot as GIF file
      call writegif(’circleprecision.3M_pixel.gif’,P_pixel,P_colormap)
      call vexit()
      ! use system to display GIF file
      call execute_command_line(’display circleprecision.3M_pixel.gif’)
   end program demo_circleprecision

AUTHOR

John S. Urban

LICENSE

Public Domain


Nemo Release 3.1 circleprecision (3) July 22, 2023
Generated by manServer 1.08 from 00df5cf9-5c64-4370-9496-4ba66efbf789 using man macros.