Make resizable sketchs about sketch HOT 2 CLOSED

(defmethod kit.sdl2:window-event :before ((instance sketch) type ts data1 data2)
  (when (eq type :size-changed)
    (with-slots ((env %env) width height y-axis) instance
      (setf width data1
            height data2
            (env-view-matrix env)
            (if (eq y-axis :down)
                (kit.glm:ortho-matrix 0 width height 0 -1 1)
                (kit.glm:ortho-matrix 0 width 0 height -1 1)))
      (gl:viewport 0 0 width height)
      (kit.gl.shader:uniform-matrix
       (env-programs env) :view-m 4 (vector (env-view-matrix env))))))

(make-instance 'app :resizable t)