delphi课件:多线程 贝塞尔曲线 变幻线

2012-04-24  金城  3358

在QBasic时代(Windows3.x/dos6.22)玩过变换线,是直线的。后来不知哪个版本的windows出现了贝塞尔变幻线,一直想做不知怎么做的。现在知道还是原来是WinAPI啊。

delphi 对WinAPI的支持我觉得最方便,不用声明,直接都调用了。 Canvas 绘图也十分方便。

本课件两种演示方式,一个按钮会采用线程的方式画线。按Esc取消,偶尔按Esc会出反应慢,这个正常,多等几秒就好了。另一个按钮按后画线的时候,窗体是事件是假死状态的。等它循环有限次后自动结束。

课件下载.rar

贝塞尔曲线就是这样的一条曲线,它是依据四个位置任意的点坐标绘制出的一条光滑曲线。在历史上,研究贝塞尔曲线的人最初是按照已知曲线参数方程来确定四个点的思路设计出这种矢量曲线绘制法。贝塞尔曲线的有趣之处更在于它的“皮筋效应”,也就是说,随着点有规律地移动,曲线将产生皮筋伸引一样的变换,带来视觉上的冲击。1962年,法国数学家Pierre Bézier第一个研究了这种矢量绘制曲线的方法,并给出了详细的计算公式,因此按照这样的公式绘制出来的曲线就用他的姓氏来命名是为贝塞尔曲线。