2 (asdf:oos
'asdf
:load-op
'#:cl-glfw
)
5 (destructuring-bind (width height redbits greenbits bluebits
) (glfw:get-desktop-mode
)
6 (format t
"Desktop mode: ~d x ~d x ~d~%" width height
(+ redbits greenbits bluebits
)))
8 (format t
"Available modes:~%")
10 for mode in
(glfw:get-video-modes
400)
11 do
(destructuring-bind (width height redbits greenbits bluebits
) mode
12 (format t
"~3d: ~d x ~d x ~d~%" i width height
(+ redbits greenbits bluebits
)))))