picture1.pset（i,j）

dim mcolor as long ,i as integer,j as intege
me.scale(0,0)-(100,100) '定义坐标系，也可以修改
picture1.scale(0,0)-(100,100) '不一定非得相同，修改一下可以使仿真翻转
for i=0 to 100 ’行
for j= 0 to 100 ‘列
mcolor=me.point(i,j) ‘扫描
if mcolor =false then picture1.pset(i,j) ’pset打点
next
next