23 lines
596 B
Common Lisp
23 lines
596 B
Common Lisp
#|
|
|
This file is a part of stoe project.
|
|
Copyright (c) 2017 Renaud Casenave-Péré (renaud@casenave-pere.fr)
|
|
|#
|
|
|
|
(uiop:define-package :stoe/engine/window
|
|
(:use :cl :glop)
|
|
(:export
|
|
#:window-initialize #:window-finalize))
|
|
(in-package :stoe/engine/window)
|
|
|
|
(let ((main-window))
|
|
(defun window () main-window)
|
|
|
|
(defun window-initialize ()
|
|
"Initialize the window."
|
|
(setf *main-window* (create-window "Stoe" 1280 720 :gl nil)))
|
|
|
|
(defun window-finalize ()
|
|
"Finalize the window."
|
|
(when *main-window*
|
|
(destroy-window *main-window*)
|
|
(setf *main-window* nil))))
|