「画像の回転」の編集履歴（バックアップ）一覧はこちら

「画像の回転」(2010/08/26 (木) 20:06:39) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

 '座標(sx,sy)を(cx,cy)を中心としてr[RAD]反時計回りに回転させ、結果を(dx,dy)に返す
 Function PointRotation(sx As Double, sy As Double, cx As Double, cy As Double, ByRef dx As Double, ByRef dy As Double, r As Double) As Long
  	dx = (sx-cx) * Cos(r) - (sy-cy) * Sin(r) + cx 
 	dy = cy-(sx-cx) * Sin(r) - (sy-cy) * Cos(r)
 	dy = cy*2 -dy'yミラー
 End Function

 '座標(sx,sy)を(cx,cy)を中心としてr[RAD]反時計回りに回転させ、結果を(dx,dy)に返す
 Function PointRotation(sx As Double, sy As Double, cx As Double, cy As Double, ByRef dx As Double, ByRef dy As Double, r As Double) As Long
  	dx = (sx-cx) * Cos(r) - (sy-cy) * Sin(r) + cx 
 	dy = cy-(sx-cx) * Sin(r) - (sy-cy) * Cos(r)
 	dy = cy*2 -dy'yミラー
 End Function

[[AB4プロジェクト>http://www31.atwiki.jp/abwiki?cmd=upload&act=open&pageid=426&file=rot.zip]]