---

C Library Functions  - draw2 (3)

---

NAME

draw2(3f) - [M_draw:DRAW] Draw from current graphics position to given point (x, y) (LICENSE:PD)

CONTENTS

Synopsis
Description
Options
Example

SYNOPSIS

subroutine draw2(x, y) real,intent(in) :: x, y

DESCRIPTION

Draw from current position to specified point using current color and line width. Updates current position to new point. (x, y) is a point in world coordinates.

OPTIONS

X	new X position
Y	new Y position

EXAMPLE

Sample program:

   program demo_draw2
   use M_draw, only: prefsize, vinit, ortho2, clear, getkey
   use M_draw, only: move2, draw2, vexit, color, linewidth
   use M_draw, only: D_BLACK, D_MAGENTA! , &
   !        D_RED, D_GREEN, D_BLUE, D_YELLOW, D_WHITE, D_CYAN
   !
   ! 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.
   !
   implicit none
   integer        :: i
   real           :: x, y, radius, theta
   real, parameter :: rotate = 0.0, gap = 2.0
   integer        :: ipaws

      call prefsize(400, 400)
      call vinit(’ ’) ! start graphics using device $M_DRAW_DEVICE
      call ortho2(-150.0, 150.0, -150.0, 150.0)
      call color(D_MAGENTA)
      call clear()
      call move2(0.0, 0.0)
      call color(D_BLACK)
      call linewidth(40)
      do i = 0, 360*10, 5
         theta = d2r(real(i))
         ! equation in polar coordinates
         radius = rotate + gap*theta
         ! convert polar coordinates to cartesian
         call polar_to_cartesian(radius, theta, x, y)
         ! draw from current position to end of next segment
         call draw2(x, y)
      end do
      ipaws = getkey()
      ! exit graphics mode
      call vexit()
   contains
   !
   elemental real function d2r(degrees)
   real, intent(in) :: degrees
   real, parameter  :: Deg_Per_Rad = 57.2957795130823208767981548
      d2r = degrees/Deg_Per_Rad
   end function d2r
   !
   subroutine polar_to_cartesian(radius, inclination, x, y)
   real, intent(in) :: radius, inclination
   real, intent(out)  :: x, y
      if (radius == 0) then
         x = 0.0
         y = 0.0
      else
         x = radius*cos(inclination)
         y = radius*sin(inclination)
      end if
   end subroutine polar_to_cartesian
   !
   end program demo_draw2

---

Nemo Release 3.1

draw2 (3)

July 22, 2023

Generated by manServer 1.08 from 30d6f0ba-cd9e-484d-8c4b-7c45de2ce640 using man macros.