#lang racket/gui

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require "Retina-to-Orden.rkt")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define control%
  (class object%
    (init-field
     (red-control_motor  'RtO)
     )
    (define/public set-red
      (lambda (obj)
        (send red-control_motor obj)
        ))
    (define/public proceso!
      (lambda (output-retina)
        (send red-control_motor proceso! output-retina)
        ))
    (super-new)
    ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define cerebro (make-object control% RtO))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(provide cerebro)