manejo de mouse scheeme

OPERACIONES PARA MANEJO DE MOUSE
La librería graphics.ss contiene un grupo de funciones que permiten la utilización del
Mouse como dispositivo de entrada para un programa. Este grupo de funciones nos
permiten determinar la ocurrencia de un evento como un clic y la posición del puntero en
un determinado momento.
En vista de que es una librería diferente a la utilizada anteriormente para finesacadémicos,
a continuación se presenta una comparación uno a uno de las funciones utilizadas
anteriormente con las que se encuentran disponibles en la librería graphics:
Image.ss

Graphics.ss

(rectangle ancho altura modo color)

((draw-rectangle viewport) posn ancho alto color)
((draw-solid-rectangle viewport) posn ancho alto color)
((draw-ellipse viewport) posn ancho alto color)((draw-solid-ellipse viewport) posn ancho alto color)
((draw-line viewport) posn1 posn2 color)
((draw-polygon viewport) posn-list posn color)
((draw-solid-polygon viewport) posn-list posn color)

(elipse ancho alto modo color)
(circle radio modo color)
(line hor vert color )
(triangle lado modo color)
(add-line x1 y1 x2 y2 color)

Obsérvese que la librería graphics.ss trabaja de maneradiferente a image.ss y sin embargo
poseen funciones similares.
Lo primero a mencionar es el hecho de la existencia de viewport, este parámetro es un
descriptor de una ventana. Por tal motivo se deben realizar en primer lugar las siguientes
operaciones:
(require (lib “graphics.ss” “graphics”) )
Esto para incluir la librería y poder utilizar sus funciones
(open-graphics)
Inicializa las rutinasde las librerías.
De aquí en adelante se trabajará por medio de ejemplos
(define w (open-viewport "nueva-ventana" 600 600))
La función open-viewport crea una nueva ventana con el ancho y el alto establecido por los
valores 600 y 600 respectivamente, esta devuelve un descriptor para la ventana, por ese
motivo de define w para que conserve el descriptor.
Es precisamente este descriptor al quese está haciendo referencia en las funciones de la
librería graphics.ss.
Para más información sobre estas y otras funciones como las de posición, se encuentra en
ayuda -> modulo de ayuda -> y búsque por la palabra clave “Viewport Graphics”.
Para el manejo de Mouse tenemos en ésta librería las siguiente funciones:
(get-mouse-click viewport)

Toma como parámetro de entrada el descriptor de laventana en la
1 de 4

(query-mouse-posn
viewport)

que se desea administrar el evento del Mouse. Retorna un descriptor
del evento
Retorna la posición del cursor del Mouse. Si éste se
encuentra fuera de la ventana retorna falso.

(mouse-click-posn
viewport)

Retorna una estructura posn con las posiciones x, y en el
momento de dar clic.

(left-mouse-click? mouseclick)(middle-mouse-click? mouseclick)
(right-mouse-click? mouseclick)

Mouseclick es el descriptor del evento clic, este es obtenido por
funciones como (get-mouse-click). Retorna verdadero si el clic
fue hecho con el botón izquierdo, del medio o derecho,
respectivamente.

Ejemplo uno:
(require (lib "graphics.ss" "graphics"))
(open-graphics)
(define w (open-viewport "Muestra" 600 600))(MostrarNuevaVentana w)
(define (MostrarNuevaVentana w)
((draw-rectangle w) (make-posn 100 500) 100 30
"green")
((draw-rectangle w) (make-posn 400 500) 100 30
"green")
((draw-rectangle w) (make-posn 100 100) 400 250
"green")
((draw-string w) (make-posn 118 520) "CERRAR")
(EsperarClick w)
(close-graphics)
)
(define (EsperarClick w)
(define c (ready-mouse-click w))
(if (not c)
(begin(MostrarPosicion (query-mouse-posn w))
(EsperarClick w)
)
(begin
(ValidarClick c)
)
)
)

;se incluye la librería
;se inicializa las operaciones de la librería graphics.ss
;define w como el descriptor de la ventana1, creada de 600
por 600 pixeles.
;hace el llamado a la función MostrarNuevaVentana
;Definicion de la funcion MostrarNuevaVentana
;Dibuja un rectángulo con el borde externo de color...