画面を読み取る

　　画面を読み取る 重松 2006/10/06 23:34:35 
　　├ASKPIXELを使います 山中和義 2006/10/07 09:11:37 
　　│└訂正 山中和義 2006/10/07 09:35:58 
　　└さっそくのお返事ありがとうございます。お... 重松 2006/10/07 14:24:47

　　画面を読み取る 重松 2006/10/06 23:34:35  ツリーへ

画面を読み取る 返事を書く

重松 2006/10/06 23:34:35

たとえばSET WINDOW　-5,5,-5,5とした画面に１辺２の四角を書いて中を塗りつぶした図を考えます。この画面の画素データを２次元配列に読み込むにはどうすればよいでしょうか。

　　├ASKPIXELを使います 山中和義 2006/10/07 09:11:37  ツリーへ

Re: 画面を読み取る 返事を書く

山中和義 2006/10/07 09:11:37

ASK PIXELを使います
SET WINDOW -5,5,-5,5
LET X=-1 !左上位置
LET Y=-1
LET W=2 !大きさ
LET H=2
PLOT AREA: X,Y; X+W,Y; X+W,X+H; X,Y+H !幅H、高さHの四角形

ASK PIXEL SIZE(X,Y; X+W,X+H) a,b !四角形内のピクセル数を得る
PRINT a;b
DIM M(a,b) !サイズを調整する
ASK PIXEL ARRAY (X,Y+H) M !正方形の画像を得る

LET XX=2 !左上位置
LET YY=2
!LET W=2 !大きさ　※拡大・縮小可能
!LET H=2
MAT PLOT CELLS, IN XX,YY; XX+W,YY-H: M !別の場所に描く

END

　　│└訂正 山中和義 2006/10/07 09:35:58  ツリーへ

Re: ASKPIXELを使います 返事を書く

山中和義 2006/10/07 09:35:58

訂正
プログラムの前半の座標指定が左上になっていなく、Ｙ座標の指定に
誤りがありました。

SET WINDOW -5,5,-5,5

LET X=-1 !左上位置
LET Y=1
LET W=2 !大きさ
LET H=2
PLOT AREA: X,Y; X+W,Y; X+W,Y-H; X,Y-H !幅H、高さHの四角形

ASK PIXEL SIZE(X,Y; X+W,Y-H) a,b !四角形内のピクセル数を得る
PRINT a;b
DIM M(a,b) !サイズを調整する
ASK PIXEL ARRAY (X,Y) M !正方形の画像を得る

LET XX=2 !左上位置
LET YY=2
!LET W=2 !大きさ　※拡大・縮小可能
!LET H=2
MAT PLOT CELLS, IN XX,YY; XX+W,YY-H: M !別の場所に描く

END

　　└さっそくのお返事ありがとうございます。お... 重松 2006/10/07 14:24:47  ツリーへ

Re: 画面を読み取る 返事を書く

重松 2006/10/07 14:24:47

さっそくのお返事ありがとうございます。おとといから始めた初心者です。教えていただいたところ突破口に考えて見ます。

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

画面を読み取る	返事を書く
重松 2006/10/06 23:34:35
たとえばSET WINDOW　-5,5,-5,5とした画面に１辺２の四角を書いて中を塗りつぶした図を考えます。この画面の画素データを２次元配列に読み込むにはどうすればよいでしょうか。

Re: 画面を読み取る	返事を書く
山中和義 2006/10/07 09:11:37
ASK PIXELを使います SET WINDOW -5,5,-5,5 LET X=-1 !左上位置 LET Y=-1 LET W=2 !大きさ LET H=2 PLOT AREA: X,Y; X+W,Y; X+W,X+H; X,Y+H !幅H、高さHの四角形 ASK PIXEL SIZE(X,Y; X+W,X+H) a,b !四角形内のピクセル数を得る PRINT a;b DIM M(a,b) !サイズを調整する ASK PIXEL ARRAY (X,Y+H) M !正方形の画像を得る LET XX=2 !左上位置 LET YY=2 !LET W=2 !大きさ　※拡大・縮小可能 !LET H=2 MAT PLOT CELLS, IN XX,YY; XX+W,YY-H: M !別の場所に描く END

Re: ASKPIXELを使います	返事を書く
山中和義 2006/10/07 09:35:58
訂正プログラムの前半の座標指定が左上になっていなく、Ｙ座標の指定に誤りがありました。 SET WINDOW -5,5,-5,5 LET X=-1 !左上位置 LET Y=1 LET W=2 !大きさ LET H=2 PLOT AREA: X,Y; X+W,Y; X+W,Y-H; X,Y-H !幅H、高さHの四角形 ASK PIXEL SIZE(X,Y; X+W,Y-H) a,b !四角形内のピクセル数を得る PRINT a;b DIM M(a,b) !サイズを調整する ASK PIXEL ARRAY (X,Y) M !正方形の画像を得る LET XX=2 !左上位置 LET YY=2 !LET W=2 !大きさ　※拡大・縮小可能 !LET H=2 MAT PLOT CELLS, IN XX,YY; XX+W,YY-H: M !別の場所に描く END

Re: 画面を読み取る	返事を書く
重松 2006/10/07 14:24:47
さっそくのお返事ありがとうございます。おとといから始めた初心者です。教えていただいたところ突破口に考えて見ます。