dimitri/lsystems
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add Dragon curve

Browse source
This commit is contained in:
Dimitri Lozeve 2018-01-16 23:36:41 +00:00
parent e720d90160
commit 103645595d
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/Examples.hs
View file

@ -7,6 +7,7 @@ module Examples
, kochSnowflake , kochSnowflake
, sierpinski , sierpinski
, sierpinskiArrow , sierpinskiArrow
, dragon
) where ) where
import Lib import Lib
@ -69,3 +70,13 @@ sierpinskiArrow = LSystem
60 60
10 10
[('A',Forward), ('B',Forward), ('+',TurnRight), ('-',TurnLeft)] [('A',Forward), ('B',Forward), ('+',TurnRight), ('-',TurnLeft)]
-- | Dragon curve
dragon = LSystem
"FX+-"
"FX"
[('X', "X+YF+"),
('Y', "-FX-Y")]
90
10
[('F',Forward), ('+',TurnRight), ('-',TurnLeft)]