'' создаем экран: 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
'' Используем оператор Put с методом PSET (дает
точное содержимое буфера изображения)
Draw String (110, 50 - 4), "Image put with PSET"
Put (60 - 16, 50 - 16), img, PSet
'' Используем оператор Put с методом TRANS
Draw String (110, 150 - 4), "Image put with TRANS"
Put (60 - 16, 150 - 16), img, Trans
'' освобождаем память изображения
ImageDestroy img
'' Ожидание нажатия клавиши
Sleep