''设置屏幕:320 * 200,每像素16位
ScreenRes 320, 200, 16
''以掩模颜色为背景设置图像。
Dim img As Any Ptr = ImageCreate( 32, 32, RGB(255, 0, 255) )
Circle img, (16, 16), 15, RGB(255, 255, 0), , , 1, f
Circle img, (10, 10), 3, RGB( 0, 0, 0), , , 2, f
Circle img, (23, 10), 3, RGB( 0, 0, 0), , , 2, f
Circle img, (16, 18), 10, RGB( 0, 0, 0), 3.14, 6.28
''将图像与PSET(给出图像缓冲区的确切内容)
Draw String (110, 50 - 4), "图像放置与PSET"
Put (60 - 16, 50 - 16), img, PSet
''把图像用TRANS
Draw String (110, 150 - 4), "图像放在TRANS"
Put (60 - 16, 150 - 16), img, Trans
''释放图像内存
ImageDestroy img
''等待按键
Sleep