Graphics 使用SDL2和Lisp的多个图形窗口?
我正在尝试使用with(在MS Windows上,尽管我认为它应该像在其他平台和编译器上一样工作)来绘制两个单独的图形窗口。当我尝试以下代码时:Graphics 使用SDL2和Lisp的多个图形窗口?,graphics,lisp,common-lisp,sdl-2,Graphics,Lisp,Common Lisp,Sdl 2,我正在尝试使用with(在MS Windows上,尽管我认为它应该像在其他平台和编译器上一样工作)来绘制两个单独的图形窗口。当我尝试以下代码时: (ql:quickload "sdl2") (require :sdl2) (defun make-two-SDL-2-windows () (let* ((win1 (sdl2:create-window :title "Win 1" :w 400 :h 400)) (ren1 (sdl2:create-renderer wi
(ql:quickload "sdl2")
(require :sdl2)
(defun make-two-SDL-2-windows ()
(let* ((win1 (sdl2:create-window :title "Win 1" :w 400 :h 400))
(ren1 (sdl2:create-renderer win1))
(win2 (sdl2:create-window :title "Win 2" :w 300 :h 300))
(ren2 (sdl2:create-renderer win2)))
(sdl2:with-event-loop (:method :poll)
(:keyup
(:keysym keysym)
(when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape)
(sdl2:push-event :quit)))
(:idle ()
(progn
(sdl2:render-present ren1)
(sdl2:render-present ren2)))
(:quit ()
(progn
(sdl2:destroy-renderer ren1)
(sdl2:destroy-renderer ren2)
(sdl2:destroy-window win1)
(sdl2:destroy-window win2)
t)))))
(defun main ()
(sdl2:init :everything)
;;;Clozure...
(process-run-function "window" #'make-two-SDL-2-windows))
(main)
…两个新窗口都创建了“挂起”,并且不对按键或鼠标移动进行响应/重画。我试着把这段代码建立在我在。我一定是误解了如何将cl-sdl2包装器用于事件循环,或者类似的东西。有没有人在使用Common Lisp的多个windows和SDL2方面取得过成功
这是一个工作版本,感谢Rei的帮助:
(defun make-two-SDL-2-windows ()
(sdl2:with-init (:everything)
(sdl2:with-window (win1 :title "Win1" :flags '(:shown))
(sdl2:with-window (win2 :title "Win2" :flags '(:shown))
(sdl2:with-renderer (ren1 win1 :flags '(:renderer-accelerated))
(sdl2:with-renderer (ren2 win2 :flags '(:renderer-accelerated))
(sdl2:with-event-loop (:method :poll)
(:keyup
(:keysym keysym)
(when (sdl2:scancode= (sdl2:scancode-value keysym) :scancode-escape)
(sdl2:push-event :quit)))
(:idle
()
(progn
(sdl2:set-render-draw-color ren1 0 0 255 255)
(sdl2:set-render-draw-color ren2 0 255 0 255)
(sdl2:render-draw-line ren1 150 20 100 300)
(sdl2:render-draw-line ren2 20 20 150 150)
(sdl2:render-present ren1)
(sdl2:render-present ren2)))
(:quit () t))))))))
您定义了两个窗口和渲染器,但没有在事件循环中实际使用它们;使用sdl2:with renderer和sdl2:with window绑定它们。太棒了!谢谢你的回答。我不知道为什么我第一次没有尝试这个。