\ drawbitmapresource

\ from a message posted to the 
\ Quartus discussion forum 2/13/01
\ by Neil Bridges

: DrawBitmapResource
    ( y x id dtype -- )
    DmGetResource 2dup >r >r
    MemHandleLock
    WinDrawBitmap
    r> r> 2dup  MemHandleUnlock drop
    DmReleaseResource drop ;

\ example of use assumes a
\ resource 'Tbmp 1200' containing
\ the bitmap:
\
\ needs ids
\
\ 80 80 1200 (id) Tbmp
\    DrawBitmapResource 

