Put [ target, ] [ STEP ] ( x,y ), source [ ,( x1,y1 )-( x2,y2 ) ], Trans

Trans

Trans выбирает прозрачный фон в качестве метода блиттинг в буфере изображения. Это похоже на метод PSET, но пиксели, содержащие цвет маски пропускаются.
Для изображений с 8-битовым цветом, цвет маски имеет индекс палитры 0. Для изображений с 16/32-битовым цветом, цвет маски пурпурный, то есть RGB(255, 0, 255). Альфа значение игнорируется при проверке цвета маски в 32-битных изображениях.

'' создаем экран: 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

• Новое в FreeBASIC
  
  

• Put (Графика)