目次 前 次

１／２に縮小

 
　画像サイズを１／２に縮小するには、次のように実現します。

    

  1. 横方向は、１ピクセル飛びに表示

  2. 縦方向は、１ライン飛びに表示



　横方向は、１ピクセル飛びに表示すると、次のようになります。



　縦方向は、１ライン飛びに表示してみると、以下です。






縮小処理

　横縦方向は１飛びに処理するので、for文のステップ数を２にします。

　表示する場合は、0→2→4なので0→1→2としておきます。

　この方法で、左に原画、右に処理を施した画を表示すると
　次のようになります。



　ソースコードは、次のように記述します。

---------------------------------------------------
　title "Make 1/2"
; set screen dimensions
　screen 0,640+320,480
; constants
　ylast = 480
　xlast = 640
; get image
　picload "NEC_0105.JPG",1

　gosub *convert_half

　stop

;++++++++++++++++++++++++++++++++++++++++++++++++++
*convert_half
　for j,0,ylast,2
　　for i,0,xlast,2 
　　　; get informations of current position
　　　pget i,j
　　　; show
　　　pset i/2+xlast,j/2
　　next
　next
　return
;++++++++++++++++++++++++++++++++++++++++++++++++++
  end
---------------------------------------------------
目次 前 次

inserted by FC2 system