I sent some code to Rafael Len. It is the start of a LWW extension to the
Window's GDI interface. I just thought since it is gathering dust that it
would not be lost. It extends some functionality that is not in CAPI/GP.
The file is at
http://www.*-*-*.com/
There is also a test file for bitmaps, I forget if it all works or not.
http://www.*-*-*.com/
Example of its uses
CAPIGDI 60 > (setf pane (capi:contain (make-instance 'capi:output-pane
:min-width 200 :min-height 200)))
#<CAPI:OUTPUT-PANE 21673C6C>
CAPIGDI 61 > (setf pixmap-port (gp:create-pixmap-port pane 200 200 :clear t
:background :black))
#<GRAPHICS-PORTS:PIXMAP-PORT 21674674>
CAPIGDI 62 > (gp:draw-rectangle pixmap-port 10 10 50 50 :background :white
:foreground :white :filled t)
T
CAPIGDI 63 > (winapi::|BitBlt| (hdc pane) 0 0 200 200 (hdc pixmap-port) 0 0
winapi::SRCCOPY)
T
CAPIGDI 64 >
Wade