rmove2 Subroutine

public subroutine rmove2(Xdelta, Ydelta)

NAME

rmove2(3f) - [M_pixel:DRAW] relative move
(LICENSE:PD)

SYNOPSIS

definition:

subroutine rmove2(deltax, deltay)
real,intent(in) :: deltax, deltay

DESCRIPTION

Update current position.
Relative move2. deltax and deltay are offsets in world units.

OPTIONS

X  new X position
Y  new Y position

EXAMPLE

Sample program:

  program demo_rmove2
  use M_pixel, only: prefsize, vinit, ortho2, clear
  use M_pixel, only: move2, rmove2, rdraw2, vexit
  use M_pixel, only: linewidth
  use M_pixel, only: P_pixel, P_colormap
  use M_writegif, only : writegif
  implicit none
  integer :: i
     call prefsize(500,500)
     call vinit()
     call ortho2(-110.0,110.0,-110.0,110.0)
     call move2(-100.0,-100.0)
     call linewidth(70)
     do i=1,20
        call rmove2(10.0, 0.0)
        call rdraw2( 0.0,10.0)
     enddo
     call writegif('rmove2.3m_pixel.gif',P_pixel,P_colormap)
     call  execute_command_line('display rmove2.3m_pixel.gif')
     call vexit()
  end program demo_rmove2

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: Xdelta
real, intent(in) :: Ydelta

Contents

Source Code

rmove2

Source Code

subroutine rmove2(Xdelta,Ydelta)

! ident_26="@(#) M_pixel rmove2(3f) relative move"

real,intent(in) :: Xdelta
real,intent(in) :: Ydelta

   P_X=P_X+Xdelta
   P_Y=P_Y+Ydelta

end subroutine rmove2