(require :asdf)

(asdf:operate 'asdf:load-op 'zpb-ttf :verbose nil)
(asdf:operate 'asdf:load-op 'cl-glut :verbose nil)

(load "draw.lisp")
(load "gl.lisp")

(let ((font #P"./okolaksRegular.ttf"))
  (glut:display-window (make-instance 'gl-font-window
                  :font (zpb-ttf:open-font-loader font)
                  :string "Wahoo!")))