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

PSet

Метод PSet копирует значения пикселей исходного буфера в назначенный буфер.

Это самый простой метод Put. Пиксели копируются в буфер назначения непосредственно из исходного буфера. Никаких дополнительных действий не будет сделано, и нет значения цветов, которые рассматриваются как прозрачные. Он имеет такой же эффект, как и оператор PSet , который используется для каждого отдельного пикселя.

'' Устанавливаем экран: 320 * 200, 16 бит на пиксель
ScreenRes 320, 200, 16
Line (0, 0)-(319, 199), RGB(0, 128, 255), bf

'' настроим изображение с цветом маски в качестве фона.
Dim img As Any Ptr = ImageCreate( 33, 33, 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

Dim As Integer x = 160 - 16, y = 100 - 16

'' Применим оператор Put для изображения с методом PSET
Put (x, y), img, PSet

'' Освободим память изображения
ImageDestroy img

'' Ожидаем нажатия клавиши
Sleep

• Нет
  
  

• PSet
  
• Put (Графика)