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

And

And方法使用逐位And功能将每个源像素与相应的目标像素相结合。其结果作为目标像素输出。
此方法适用于所有图形模式。没有掩码颜色，虽然所有位的颜色值（8位调色板模式为255或全色模式下为RGBA(255, 255, 255, 255)）将不起作用，因为And的行为。

在全色模式下，每个组件（红色，绿色，蓝色和半透明）都保留在一组离散的位中，因此可以通过确保其他的所有值频道设为255.

''打开图形窗口
ScreenRes 320, 200, 16
Line (0, 0)-(319, 199), RGB(255, 255, 255), bf

''创建3个含有青色，品红色和黄色圆圈的精灵
Const As Integer r = 32
Dim As Any Ptr cc, cm, cy
cc = ImageCreate(r * 2 + 1, r * 2 + 1, RGBA(255, 255, 255, 255))
cm = ImageCreate(r * 2 + 1, r * 2 + 1, RGBA(255, 255, 255, 255))
cy = ImageCreate(r * 2 + 1, r * 2 + 1, RGBA(255, 255, 255, 255))
Circle cc, (r, r), r, RGB(0, 255, 255), , , 1, f
Circle cm, (r, r), r, RGB(255, 0, 255), , , 1, f
Circle cy, (r, r), r, RGB(255, 255, 0), , , 1, f

''放三个精灵，在中间重叠
Put (146 - r, 108 - r), cc, And
Put (174 - r, 108 - r), cm, And
Put (160 - r,  84 - r), cy, And

''释放精灵使用的内存
ImageDestroy cc
ImageDestroy cm
ImageDestroy cy

''关闭之前暂停程序
Sleep

• 没有
  
  

• And
  
• Put （图形）