Tecno

CODIGOS PARA GRAFICOS

(require (lib "graphics.ss" "graphics")) inicio
(close-graphics) cierra
(open-graphics) abre
(sleep ) espera
(struct posn (x y))posición dentro de la ventana
(defineventana (open-viewport "Mi Ventana" x y)) crea ventana
((draw-viewport ventana) "green") colorea ventana
((clear-viewport ventana)) limpia ventana
((flip-viewport ventana)) invierte ventana(copy-viewport ventana ventana2) copia ventana
((draw-pixel ventana) (make-posn x y) "color") colorea 1 pixel
((clear-pixel ventana) x y) limpia pixel
((flip-pixel ventana) x y) invierte color pixel((draw-line ventana)(make-posn x y) (make-posn x y) "green") dibuja linea
((clear-line ventana)(make-posn x y) (make-posn x y)) limpia linea
((flip-line ventana) (make-posn x y) (make-posn x y)) inviertelinea
((draw-rectangle ventana) (make-posn x y) x y "blue") dibuja rectangulo
((draw-solid-rectangle ventana) (make-posn x y) x y "red") dibuja rectangulo solido
((draw-ellipse ventana) (make-posnx y) x y “green”) dibuja elipses
((draw-solid-ellipse ventana) (make-posn x y) x y “green”) dibuja elipses solidas
((draw-string ventana) (make-posn x y) "CALI CAMPEÓN" "red") cadena
((draw-pixmapventana) ".gif, .jpeg, .png, .xbm, .bmp" (make-posn x y) "blue") saca una imagen guardada

(get-mouse-click ventana) con un click posicion de la ventana
(ready-mouse-click ventana) sin click, sida click o si no falso
(ready-mouse-release ventana) verdadero si dejo de oprimir botón del mouse

(query-mouse-posn ventana)
(posn-x(query-mouse-posn ventana))
(posn-y(query-mouse-posn ventana))posición del cursor en la ventana

(define posicion (mouse-click-posn (get-mouse-click ventana)))
(posn-x posicion)
(posn-y posicion) posición donde se dio click

(left-mouse-click?(get-mouse-click ventana)) click izquierdo
(middle-mouse-click? (get-mouse-click ventana)) click medio
(right-mouse-click? (get-mouse-click ventana)) click derecho

(get-key-press ventana) esperar que...