warpTest.txt
number width,height
GetSize(B,width,height)
Image Bwarped := CreateFloatImage(" ", width, height)
Bwarped = warp(B,icol,irow-irow*0.0004*(icol-iwidth/2))
setname(Bwarped,"warped image")
showimage(Bwarped)
Image Bwrot = rotate(Bwarped,0.05)
setname(Bwrot,"rotated warped image")
showimage(Bwrot)