move2 Subroutine

public subroutine move2(x, y)

NAME

move2(3f) - [M_pixel:DRAW] change current position
(LICENSE:PD)

SYNOPSIS

definition:

subroutine move2(x, y)
real x, y

DESCRIPTION

Update current position.

OPTIONS

X  new X position
Y  new Y position

EXAMPLE

Sample program:

  program demo_move2
  use M_pixel, only : prefsize, vinit, ortho2, clear
  use M_pixel, only : move2, draw2, vexit
  use M_pixel, only : P_pixel,P_colormap
  use M_writegif, only : writegif
  implicit none
     call prefsize(60,40)
     call vinit()
     call ortho2(-300.0,300.0,-200.0,200.0)
     call clear(0)
     call move2(-300.0,-200.0)
     call draw2(300.0,200.0)
     call move2(300.0,-200.0)
     call draw2(-300.0,200.0)
     call writegif('move2.3m_pixel.gif',P_pixel,P_colormap)
     call vexit()
  end program demo_move2

AUTHOR

John S. Urban

LICENSE

Public Domain

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: x
real, intent(in) :: y

Contents

Source Code

move2

Source Code

subroutine move2(x,y)

! ident_27="@(#) M_pixel move2(3f) move current position"

real,intent(in) :: x,y

   P_X=X
   P_Y=Y

end subroutine move2