 
 : lsys-controller ( -- )
 
+<pile>
+
 {
 
 [ "Load" <label> reverse-video-theme ]

! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

: model-chooser ( -- )

{
[ "abop-1" <label> [ drop abop-1 build-model ] closed-quot <bevel-button> ]
[ "abop-2" <label> [ drop abop-2 build-model ] closed-quot <bevel-button> ]

       self pos ori turtle opengl.camera
       lsys.tortoise lsys.tortoise.graphics
       lsys.strings.rewrite lsys.strings.interpret
       combinators.short-circuit accessors ;

       ! lsys.strings
       ! lsys.strings.rewrite
