      SUBROUTINE GSMOVE (X,Y)
      INCLUDE 'Parametres.f'
      REAL*4 X,Y

      xcourant = origine_x + facteur_en_x*X
      ycourant = origine_y + facteur_en_y*Y
      end
