Algorithm 版 (精华区)

发信人: sino (茶水博士), 信区: Theory
标  题: L系统
发信站: 哈工大紫丁香 (Sun Aug 27 13:28:47 2000), 转信

发信人: beiyang (汉威), 信区: algorithm
发信站: NJU Lily BBS (Mon Mar  1 11:58:15 1999), 站内信件

以下代码用上述L系统绘制Hilbert曲线。
TOLSystem.SetSystem可以设置所绘制的分形，补充修改这个函数可以定义其他图形。
GenerateString产生一个巨大的字符串，注意不要用太大的参数，否则可能死机。
事先准备一个Image1 : TImage的控件作为绘图区。

Var
     OLSystem : UnitLSystem.TOLSystem ;
Begin
     OLSystem := TOLSystem.Create ;
     OLSystem.SetOLSystem( olHilbert ) ;
     OLSystem.GenerateString( 6 ) ;
     OLSystem.DrawCurve( Image1.Canvas, Rect( 0, 0,
          Image1.Width-1, Image1.Height-1 ) ) ;
     OLSystem.Free;
End ;

--
※ 修改:．fib 於 Aug 27 13:26:23 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．南京大学小百合 bbs.nju.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: fib.bbs@bbs.nju.edu.]