如何将一条已经发生旋转的直线经过旋转后恢复到原来的水平状态?

如何将一条已经发生旋转的直线经过旋转后恢复到原来的水平状态? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061005165649268.html
如何将一条本来水平但已经发生旋转(旋转的角度不知)的直线经过旋转后,恢复到原来的水平状态?  
 

通过直线就可以计算其与水平的夹角,   然后不就行了

如果要旋转,必定有一个中心,围绕他旋转。  
  旋转也非常简单,只要过中心做条水平线就行了。  
   
  不过,计算机上表示直线,也是用没有端点的线段来表示的。  
  一般情况下,旋转后,两个端点的位置还要和旋转前相对应。这个相对应,旋转前后相继的两个端点都在同一个园上。

给出详细代码好吗?

只要知道中心点的位置,直接重画一条直线不就行了?

posted on 2009-03-13 10:26  delphi2007  阅读(153)  评论(0编辑  收藏  举报