<pre>
MODULE 'std/cGfxSimple'

PROC main()
DEF bitmap:PTR TO cGfxBitmap
DEF solid:PTR TO solidBitmap

->how to create a 'solid' bitmap
bitmap := LoadPicture('example.png', '')
NEW solid.new(gfx, bitmap)

->now use "solid" where you would have used "bitmap", say when creating a sprite.
FINALLY
PrintException()
ENDPROC


CLASS solidBitmap OF cGfxDrawable
bitmap:PTR TO cGfxBitmap
ENDCLASS

PROC new(win:PTR TO cGfxWindow, bitmap:PTR TO cGfxBitmap) OF solidBitmap
self.addToGfx(win)
self.bitmap := bitmap
ENDPROC

PROC infoWidth() OF solidBitmap RETURNS width IS self.bitmap.infoWidth()

PROC infoHeight() OF solidBitmap RETURNS width IS self.bitmap.infoHeight()

PROC draw(x, y) OF solidBitmap IS self.bitmap.draw(x, y)

PROC infoIsTransparent() OF solidBitmap RETURNS isTransparent:BOOL IS self.bitmap.infoIsTransparent()

->PROC hitCheck(insideX, insideY) OF solidBitmap RETURNS hit:BOOL IS TRUE ->this is the default behaviour of a cGfxDrawable, so we don't actually need this code

->PROC overlaps() ->we can use the default behaviour for this too (and it would be more complex to write, so I haven't bothered)

PROC changeUsageCount(increaseBy) OF solidBitmap
self.bitmap.changeUsageCount(increaseBy)
SUPER self.changeUsageCount(increaseBy)
ENDPROC

PROC registerForChanges(client:PTR TO cGfxNotifyOfDrawableChanges) OF solidBitmap
self.bitmap.registerForChanges(client)
SUPER self.registerForChanges(client)
ENDPROC

PROC unregisterForChanges(client:PTR TO cGfxNotifyOfDrawableChanges) OF solidBitmap
self.bitmap.unregisterForChanges(client)
SUPER self.unregisterForChanges(client)
ENDPROC
</pre>