Put图形语句的参数,使用逐位
Xor作为blitting方法
语法
Put [ target , ] [ STEP ] ( x ,y ), source [ ,( x1 ,y1 )-( x2 ,y2 ) ], Xor
参数
说明
Xor方法使用逐位
Xor功能将每个源像素与相应的目标像素相结合。其结果作为目标像素输出。
此方法适用于所有图形模式。没有掩码颜色,尽管
0(
RGBA(0, 0, 0, 0)在全色模式下)的颜色值将不起作用,因为
Xor的行为。
在全色模式下,每个组件(红色,绿色,蓝色和半透明)都保留在一组离散的位中,因此可以通过确保其他的所有值频道设为
0.
例子
''打开图形窗口
ScreenRes 320, 200, 16
''创建一个包含一个圆的精灵
Const As Integer r = 32
Dim c As Any Ptr = ImageCreate(r * 2 + 1, r * 2 + 1, 0)
Circle c, (r, r), r, RGBA(255, 255, 255, 0), , , 1, f
''放三个精灵,在中间重叠
Put (146 - r, 108 - r), c, Xor
Put (174 - r, 108 - r), c, Xor
Put (160 - r, 84 - r), c, Xor
''释放精灵使用的内存
ImageDestroy c
''关闭之前暂停程序
Sleep
与QB差别
参考