mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-12 21:30:42 -08:00
21 lines
813 B
Common Lisp
21 lines
813 B
Common Lisp
;;; LCD pixel color test (inspired by a "comp.lang.lisp" thread)
|
|
|
|
(in-package :eql-user)
|
|
|
|
(defun lcd-test ()
|
|
(let ((widget (qnew "QWidget(QWidget*,Qt::WindowFlags)" nil |Qt.WindowStaysOnTopHint|
|
|
"mouseTracking" t)))
|
|
(qoverride widget "mouseMoveEvent(QMouseEvent*)"
|
|
(lambda (event)
|
|
(qset-color widget |QPalette.Window|
|
|
(|fromHsv.QColor|
|
|
(floor (* 359 (/ (|x| event) (|width| widget))))
|
|
(floor (* 255 (/ (|y| event) (|height| widget))))
|
|
255))))
|
|
(qoverride widget "mousePressEvent(QMouseEvent*)" (lambda (event) (qquit)))
|
|
(|setPos.QCursor| '(0 0))
|
|
(|showFullScreen| widget)
|
|
#+darwin
|
|
(|raise| widget)))
|
|
|
|
(lcd-test)
|