HW4

寫這一次的作業比之前的作業要花上不少時間。

以下是錯誤圖片:


















因為右邊的圖片一直掃不出來，

讓我一直在找程式碼中的錯誤，

雖然程式也才幾行而已，

但是時間卻全花在找出掃不出圖的原因，

後來發現是這一行，

Image2->Canvas->Pixels[j][i]=(TColor)RGB(col[0],col[1],col[2]);

因為掃圖的方式

所以必須將Pixels[j][i]改成Pixels[j][iImageHeight-1-i]

而且又因為RGB讀進的次序必須將(TColor)RGB(col[0],col[1],col[2]);

改成(TColor)RGB(col[2],col[1],col[0]);

所以改完成後應該是

Image2->Canvas->Pixels[j][iImageHeight-1-i]=(TColor)RGB(col[2],col[1],col[0]);

之後掃圖就沒有問題了。

以下是正確版: