(ql:quickload "lispbuilder-sdl") (defparameter *rand-color* sdl:*white*) (defun test-sdl () (sdl:with-init () (sdl:window 500 500 :title-caption "sdl test") (setf (sdl:frame-rate) 60) (sdl:with-events () (:quit-event () t) (:key-down-event () (when (or (sdl:key-down-p :sdl-key-q) (sdl:key-down-p :sdl-key-escape)) (sdl:push-quit-event))) (:idle () (when (sdl:mouse-left-p) (setf *rand-color* (sdl:color :r (random 255) :g (random 255) :b (random 255)))) (sdl:clear-display sdl:*black*) (sdl:draw-box (sdl:rectangle-from-midpoint-* (sdl:mouse-x) (sdl:mouse-y) 20 20) :color *rand-color*) (sdl:update-display))))) (sb-int:with-float-traps-masked (:invalid :inexact :overflow) (test-sdl))