From be7fa374954cb153f16a4798cea89b779d7554ec Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Thu, 29 May 2025 01:14:30 +0100
Subject: [PATCH] Create with-graphics-context macro

---
 drawing.lisp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/drawing.lisp b/drawing.lisp
index 2680410..e8bb343 100644
--- a/drawing.lisp
+++ b/drawing.lisp
@@ -92,6 +92,12 @@
     (sdl2:destroy-window window)
     (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)
                   :x-transform (round x)
                   :y-transform (round (- screen-height y)))