08/04/13 23:31:29 l+OERSWY0
>>673,674
レスどうもです。
他スレで（マルチかよ！）ビットマップトリマーというソフトも紹介してもらいました。
試行錯誤してなんとか自動化したいです。
ちなみに切り抜いて長方形になった画像は、さらにこんな感じで真ん中を正方形で
くりぬいて表示してます。(ELPL用)
$register(ds,100) ←描画したいサイズ
$imageabs(0,0,,,filename,nodisplay,,)
$register(iw,$getimagewidth(filename))
$register(ih,$getimageheight(filename))
$ifgreater(%iw%,%ih%,
//横長の場合、左右を切り落とす
$register(rh,%ds%)
$register(rw,$calc(%ds%*%iw%/%ih%))
$imageabs_rc(%rw%,%rh%,$calc({%rw%-%rh%}/2),0,%ds%,%ds%,x,y,filename,,,),
//縦長の場合、上下を切り落とす
$register(rw,%ds%)
$register(rh,$calc(%ds%*%ih%/%iw%))
$imageabs_rc(%rw%,%rh%,0,$calc({%rh%-%rw%}/2),%ds%,%ds%,x,y,filename,,,)
)