examples/listmodes.lisp

   1 (require '#:asdf)
   2 (asdf:oos 'asdf:load-op '#:cl-glfw)
   3
   4 (glfw:init)
   5
   6 (destructuring-bind (width height redbits greenbits bluebits) (glfw:get-desktop-mode)
   7   (format t "Desktop mode: ~d x ~d x ~d~%" width height (+ redbits greenbits bluebits)))
   8
   9 (format t "Available modes:~%")
  10 (loop for i from 0
  11    for mode in (glfw:get-video-modes 400)
  12    do (destructuring-bind (width height redbits greenbits bluebits) mode
  13         (format t "~3d: ~d x ~d x ~d~%" i width height (+ redbits greenbits bluebits))))
  14
  15 (glfw:terminate)