[UP]


Manual Reference Pages  - uarc (3)

NAME

uarc(3f) - [M_drawplus] create circular arc, leaving CP at end of arc (LICENSE:MIT)

CONTENTS

Synopsis
Description
Example
Author
License

SYNOPSIS

subroutine uarc(x,y,angle)

    real,intent(in) :: x
    real,intent(in) :: y
    real,intent(in) :: angle

DESCRIPTION

given center point and angle in degrees, draw circular arc from current point with counterclockwise angles positive.

EXAMPLE

Sample program

   program demo_uarc
   use :: M_draw
   use :: M_drawplus, only : uarc
   integer :: i, idum
   call prefsize(400,400)
   call vinit(’ ’)
   call color(D_BLACK)
   call clear()
   call linewidth(300)
   call ortho2(-10.0,10.0,-10.0,10.0)
   ! draw square with rounded corners, filled in
   ! yellow, outlined in blue
   call color(D_YELLOW)
   call polyfill(.true.)
   do i=1,2
      call makepoly()
      call move2(-9.0,-7.0)
      call draw2(-9.0, 7.0)
      call uarc(-7.0,7.0,-90.0)
      call draw2(7.0,9.0)
      call uarc( 7.0,7.0,-90.0)
      call draw2(9.0,-7.0)
      call uarc( 7.0,-7.0,-90.0)
      call draw2( -7.0,-9.0)
      call uarc(-7.0,-7.0,-90.0)
      call closepoly()
      call color(D_BLUE)
      call polyfill(.false.)
   enddo
   idum=getkey()
   call vexit()
   end program demo_uarc

AUTHOR

John S. Urban

LICENSE

MIT License


uarc (3) March 11, 2021
Generated by manServer 1.08 from 4ec0cafe-3547-49ed-b93e-557e692a3d24 using man macros.