|
５章．ＢＭＰ画像を拡大縮小させる
|
||||||
|
1999.6.27
|
||||||
４章で説明した画像の移動を理解できれば拡大縮小は簡単です。 まずは次のプログラムを実行してみてください。 ＢＭＰファイルが横方向にだんだん狭くなってゆくプログラムです。  CH=G@SETUP( 640 , 480 , 16 , 0 ) //画面初期化
G@CHRCLEAR(CH) //画面クリア
G@FLIP( ) //フリップ
G@CHRCLEAR(CH) //画面クリア
BM=G@CHRLOAD("TEST.BMP") //画像読み込み
LOOP
FOR DX = 0 TO 367
G@CHRRECT( CH , 0 , 0 , 367-DX , 191 ) //コピー先の矩形を指定
G@CHRCOPY( BM , CH ) //画像を画面にコピー
G@FLIP( ) //フリップ
NEXT
ENDLOOP
１〜５行目は、画面の初期化とＢＭＰファイルの読み込みます。 ６行目横方向に狭くして行きます。 処理は簡単で、７〜１１行目のＦＯＲ−ＮＥＸＴで、ＤＸ変数を０〜３６７の範囲でカウントを進め、ＢＭＰのコピー先の幅に同カウンタを割り当てています。 次にもう少高度なプログラムを作ってみます。Ｘ＝１８４、Ｙ＝９６の座標を画像の中心として画像を拡大率０％〜１００％で拡大して行きます。 説明するよりも、実行してみて実際の動作を見て下さい。基本的な考え方は上と同じですので理解しやすいと思います。注意する所は、ＦＯＲ−ＮＥＸＴは拡大率０％〜１００％でループしている事です。 CH=G@SETUP( 640 , 480 , 16 , 0 ) //画面初期化
G@CHRCLEAR(CH) //画面クリア
G@FLIP( ) //フリップ
G@CHRCLEAR(CH) //画面クリア
BM=G@CHRLOAD("TEST.BMP") //画像読み込み
LOOP
FOR DD = 0 TO 100
MX = (184*DD/100)
MY = ( 96*DD/100)
G@CHRRECT( CH , 184-MX , 96-MY , 184+MX , 96+MY ) //コピー先の矩形を指定
G@CHRCOPY( BM , CH ) //画像を画面にコピー
G@FLIP( ) //フリップ
NEXT
ENDLOOP
|
