一定量 (90 度ではなく) 回転させたい DigitalMicrograph 画像があります。これはメニュー項目「Process...\Rotate」で実行できますが、スクリプトで実行したいと思います。画像で見つかったライン ROI に基づいて角度を計算するスクリプトがあります。(以下を参照)しかし、画像を回転させる方法がわかりません。
Number kPi = 3.14159265359
Image front := GetFrontImage()
ImageDisplay fDisp = front.ImageGetImageDisplay(0)
ROI line = fDisp.ImageDisplayGetRoi(0)
if ( line.RoiIsValid() )
{
if ( line.RoiIsLine() )
{
number sx,sy,ex,ey
line.RoiGetLine(sx,sy,ex,ey)
number dy = ey - sy
number dx = ex - sx
number angle = atan( dy / dx ) * 180/kPi
if ( dx < 0 )
angle = angle + 180
Result("\n Rotate image by " + angle + " degree.")
}
}