111 lines
2.4 KiB
Factor
111 lines
2.4 KiB
Factor
! Ed Cavazos - wayo.cavazos@gmail.com
|
|
|
|
! Load, compile and then save your image:
|
|
! "load.factor" run-file save
|
|
! To run the program:
|
|
! USE: automata setup-window random-gallery
|
|
|
|
USING: parser kernel hashtables namespaces sequences lists math io
|
|
math-contrib threads strings arrays prettyprint xlib x ;
|
|
|
|
IN: automata
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
! set-rule
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
SYMBOL: rule
|
|
|
|
8 <hashtable> rule set-global
|
|
|
|
SYMBOL: char-0
|
|
|
|
48 char-0 set-global
|
|
|
|
: rule-keys ( -- { ... } )
|
|
{ { 0 0 0 }
|
|
{ 0 0 1 }
|
|
{ 0 1 0 }
|
|
{ 0 1 1 }
|
|
{ 1 0 0 }
|
|
{ 1 0 1 }
|
|
{ 1 1 0 }
|
|
{ 1 1 1 } } ;
|
|
|
|
: rule-values ( n -- { ... } )
|
|
>bin 8 char-0 get pad-left
|
|
>array
|
|
[ 48 - ] map ;
|
|
|
|
: set-rule ( n -- )
|
|
rule-values rule-keys [ rule get set-hash ] 2each ;
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
! step
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
: 3nth ( n seq -- slice ) >r dup 3 + r> <slice> ;
|
|
|
|
: next-chunk ( << slice: a b c >> - value )
|
|
>array rule get hash ;
|
|
|
|
: (step) ( line -- new-line )
|
|
dup length 2 - [ swap 3nth next-chunk ] map-with ;
|
|
|
|
: step-line ( line -- new-line )
|
|
>r { 0 } r> { 0 } append append
|
|
(step) ;
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
! Display the rule
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
! SYMBOL: win
|
|
|
|
: setup-window
|
|
f initialize-x
|
|
create-window win set
|
|
{ 400 400 } resize-window
|
|
map-window
|
|
flush-dpy ;
|
|
|
|
: random-line ( -- line )
|
|
0 400 <range>
|
|
[ drop 2 random-int ]
|
|
map ;
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
! show-line
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
: show-point ( { x y } p -- )
|
|
1 = [ draw-point ] [ drop ] if ;
|
|
|
|
: (show-line) ( { x y } line -- )
|
|
[ >r dup r> show-point { 1 0 } v+ ] each drop ;
|
|
|
|
: show-line ( y line -- )
|
|
>r >r 0 r> 2array r> (show-line) ;
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
! Go
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
: run-rule
|
|
clear-window
|
|
0 random-line
|
|
400
|
|
[ drop
|
|
2dup show-line >r
|
|
1 +
|
|
r> step-line ] each
|
|
flush-dpy ;
|
|
|
|
: random-gallery
|
|
255 random-int 1 +
|
|
dup unparse print flush
|
|
set-rule
|
|
run-rule
|
|
5000 sleep
|
|
random-gallery ;
|