Here is a quick ROKU 3 example, since I don't have your will power. I unplugged my 2XD
Screen = CreateObject( "roScreen", True )
Screen.Clear( &hFFFFFFFF )
Screen.SwapBuffers()
bitmap = CreateObject( "roBitmap", { width: 200, height: 200 , AlphaEnable: False } )
bitmap.Clear( &h911820FF )
width = bitmap.GetWidth()
height = bitmap.GetHeight()
region = CreateObject( "roRegion", bitmap, 0, 0, width, height )
x = int( width / 2 )
y = int( height / 2 )
region.SetPretranslation( -x, -y )
for theta = 360 to 0 step -1
Screen.Clear( &hFFFFFFFF )
Screen.DrawRotatedObject( 100 + x, 100 + y, theta, region )
Screen.SwapBuffers()
end for