steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update automata to 0.83

darcs
wayo.cavazos 2006-07-28 06:14:26 +00:00
parent fd6cb79fd4
commit c531858083
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/automata.factor
View File

@ -85,7 +85,7 @@ dup last 1array swap dup first 1array append append ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: center-i ( -- i ) window-width dup 2 / >fixnum ; : center-i ( -- i ) window-width 2 / >fixnum ;
: center-line ( -- line ) center-i window-width [ = [ 1 ] [ 0 ] if ] map-with ; : center-line ( -- line ) center-i window-width [ = [ 1 ] [ 0 ] if ] map-with ;
@ -164,6 +164,8 @@ VARS: ns field frame ;
f ns> [ editor-text string>number set-rule start-center ] [bind] <field> f ns> [ editor-text string>number set-rule start-center ] [bind] <field>
>field ; >field ;
: read-rule-field ( -- ) field> editor-text string>number set-rule ;
: set-field-rule ( n -- ) number>string field> set-editor-text ; : set-field-rule ( n -- ) number>string field> set-editor-text ;
: automata-window ( -- ) : automata-window ( -- )
@ -172,9 +174,9 @@ f ns> [ editor-text string>number set-rule start-center ] [bind] <field>
ns> [ init-rule init-slate init-field ] bind ns> [ init-rule init-slate init-field ] bind
ns> [ field> ] bind 1array ns> [ field> ] bind 1array
ns> ns>
{ { "Center" [ start-center ] } { { "Center" [ drop read-rule-field start-center ] }
{ "Random" [ start-random ] } { "Random" [ drop read-rule-field start-random ] }
{ "Continue" [ run-rule ] } } { "Continue" [ drop read-rule-field run-rule ] } }
[ first2 <bevel-button> tuck bind-button ] [ first2 <bevel-button> tuck bind-button ]
map-with append make-pile 1 over set-pack-fill map-with append make-pile 1 over set-pack-fill
frame> @left grid-add frame> @left grid-add