anchor.diff:      (sdl2:with-window (win :w *width* :h *height* :flags '(:shown :opengl))
         (sdl2:with-gl-context (gl-context win)
           (sdl2:gl-make-current win gl-context)
  +        (sdl2:hide-cursor)
           (init)
   
           (sdl2:with-event-loop (:method :poll)
  
positive.code:       (sdl2:push-event :quit)))
  
    (defun init ()
      (gl:enable :depth-test)
      (gl:viewport 0 0 *width* *height*)
      (gl:matrix-mode :projection)
      (gl:ortho (- *x*) *x* (- *y*) *y* (- *x*) *x*)
      (gl:matrix-mode :modelview)
      (gl:load-identity)
      (gl:clear-color 19/255 19/255 39/255 1.0) ; #131327 background color
  
negative.code: ;(in-package #:cl-foo)
  
  (require :sdl2)
  (require :cl-opengl)
  (require :cl-glu)
  
  (defparameter *width* 1280)
  (defparameter *height* 720)
  (defparameter *ratio* (/ *width* *height*))
  
  (defun main-loop ()
    (defun keydown-actions (scancode)
  