;; implements sort-of a fovea
;;  -FER 22 dec 04

(defmethod process-ER1-screen ()
  (segman::segment-screen '(5 600 330 730))
  nil)

(defmethod see-screen ()
  (segman::segment-screen)
  nil)

(defmethod see-if-side ()
  (segman::segment-screen '(269 79 602 631))
  nil)

(defmethod see-then-side ()
  (segman::segment-screen '(612 79 943 651))
  nil)

(defmethod see-if-sight ()
 (segman::segment-screen '(272 108 595 265))
  nil)

(defmethod see-drop-down ()
  (segman::segment-screen '(418 144 568 646))
  nil)

(defmethod see-checkbox ()
  (segman::segment-screen '(418 146 526 244))
  nil)


(defmethod process-stop ()
(segman::move-to (segman::get-center (segman::pattern-groups :stop-button)))
(segman::single-click)
nil)



(defmethod process-sight ()
(segman::move-to (segman::get-center (segman::pattern-groups :sight)))
(segman::single-click)
 nil)

(defmethod process-play ()
(segman::move-to (segman::get-center (segman::pattern-groups :play)))
(segman::single-click)
 nil)

(defmethod process-drop-down ()
(segman::move-to (segman::get-center (segman::pattern-groups :dropdown)))
(segman::single-click)
 
 nil)

(defmethod process-open-gripper()
(segman::move-to (segman::get-center (segman::pattern-groups :open-gripper)))
(segman::single-click)
 nil)


(defmethod process-object ()
(segman::move-to (segman::get-center (segman::pattern-groups :object)))
(segman::single-click)
 nil)


(defmethod process-close()
(segman::move-to (segman::get-center (segman::pattern-groups :close)))
(segman::single-click)
 nil)


(defmethod process-run-it()
(segman::move-to (segman::get-center (segman::pattern-groups :run-it)))
(segman::single-click)
 nil)


(defmethod process-dollar()
(segman::move-to (segman::get-center (segman::pattern-groups :one-dollar)))
(segman::single-click)
 nil)


(defmethod process-checkbox()
  (segman::move-to (segman::get-center (segman::pattern-groups :check-box)))
  (segman::single-click)
   nil)

(defmethod type-phrase ()
 (segman::press-key 'i)
 (segman::press-key 's)
 (segman::press-key 'a)
 (segman::press-key 'w)
 (segman::press-key 'a)
 (segman::press-key 'd)
 (segman::press-key 'o)
 (segman::press-key 'l)
 (segman::press-key 'l)
 (segman::press-key 'a)
 (segman::press-key 'r)
  nil)