Direkt zum InhaltDirekt zur SucheDirekt zur Navigation
▼ Zielgruppen ▼

Humboldt-Universität zu Berlin - Faculty of Mathematics and Natural Sciences - Strukturforschung / Elektronenmikroskopie

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)