Add AddBranch to Grammar
[L-seed.git] / src / Lseed / Grammar / Compile.hs
index 12b4266..42a3e5c 100644 (file)
@@ -34,6 +34,8 @@ conformsTo (Stipe () l _) = go
 grToLAction :: GrammarAction -> Plant () -> LRuleAction
 grToLAction (SetLength ld _) (Stipe () l _)
        = EnlargeStipe (calcLengthDescr ld l)
+grToLAction (AddBranch frac angle length _) (Stipe () l _)
+       = ForkStipe frac [(angle, length)]
 
 -- | Length reductions are silenty turned into no-ops
 calcLengthDescr :: LengthDescr -> Double -> Double