twin canvases
Posted: Mon Jul 07, 2008 4:44 pm
I'm worried about the difference between these two canvases:
because I think they should look identical, apart from the colours...?
Code: Select all
(load "/usr/share/newlisp/guiserver.lsp")
(gs:init)
(gs:frame 'F 50 50 500 500 "Two canvases")
(gs:set-grid-layout 'F 2 2)
(gs:canvas 'C1)
(gs:set-background 'C1 '(1 1 1 1))
(gs:canvas 'C2)
(gs:set-background 'C2 '(.5 .5 .5 1))
(gs:set-visible 'F true)
(gs:add-to 'F 'C1 'C2)
(gs:set-canvas 'C1)
(gs:set-translation 100 100)
(gs:fill-rect 'rect1 0 0 50 50)
(gs:set-canvas 'C2)
(gs:set-translation 100 100)
(gs:fill-rect 'rect2 0 0 50 50)
(gs:listen)