cdo/ham
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Create with-graphics-context macro

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2025-05-29 01:14:30 +01:00
parent 4fc83b269a
commit be7fa37495
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
drawing.lisp
View File

@ -92,6 +92,12 @@
(sdl2:destroy-window window) (sdl2:destroy-window window)
(sdl2:quit))) (sdl2:quit)))
(defmacro with-graphics-context ((var &rest args) &body body)
`(let ((,var (make-instance 'graphics-context ,@args)))
(unwind-protect
(progn ,@body)
(cleanup ,var))))
(define-transform project-to-screen (screen-height) (define-transform project-to-screen (screen-height)
:x-transform (round x) :x-transform (round x)
:y-transform (round (- screen-height y))) :y-transform (round (- screen-height y)))