ASK PIXEL

ASK PIXEL VALUE (x,y) a
  点(x,y)の色指標を変数aに代入する。
  点(x,y)に対応する色指標が存在しない場合は-1が返される。

ASK PIXEL SIZE (x1 , y1 ; x2 , y2) a,b
 2点(x1, y1),(x2, y2)を対角の頂点とする長方形に含まれる画素数の水平方向の値を変数aに,垂直方向の値を変数bに代入する。長方形の頂点または辺上に位置する画素も数える。


ASK PIXEL ARRAY (x,y) m
  mには2次元配列を指定する。
 点(x,y)を左上端とする長方形に含まれる各画素の色指標をmに代入する。
 長方形の横方向の大きさはmの1次元の要素数,
     縦方向の大きさはmの2次元の要素数。
 色指標を決定できない場合は-1。
 逆の操作を行うのには,MAT PLOT CELLSを利用する。


100 DIM M(501,501)
110 ASK PIXEL SIZE(-0.5,0.5; 0.5,-0.5) A,B
120 MAT M=ZER(A,B)
130 ASK PIXEL ARRAY (-0.5,0.5) M
140 GET POINT :X,Y
150 MAT PLOT CELLS, IN X-1,Y+1;X+1,Y-1 :M
原点を中心とする辺の長さ1の正方形の内側を配列Mに取得し,マウスで指定した点を中心として2倍に拡大して描く。

Remark.
SET COLOR MIXを用いて同じ色指標に異なる色を割り当てると以前の色は色指標が存在しない色になる。
また,PLOT TEXT (LABEL, LETTERS) 文は文字の周辺部に色指標が存在しない色も使うので,文字を取り込むときは COLOR MODEを NATIVEに変更する。

[補足]
ASK PIXEL ARRAY (x,y) m, s$
色指標が決定できない点があったときs$に"PRESENT"が,なかったとき"ABSENT"が代入される。