home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / fractal4 / arcaut / Automatons_Viv < prev    next >
Encoding:
Text File  |  1991-07-27  |  459 b   |  28 lines
  1. AUTOMATON*
  2.  
  3.   Viv
  4.  
  5.   A simple 256 state Moore neighbourhood automaton. Try windows of size 70x50
  6.   and larger.
  7.  
  8. INITIALISATION*
  9.  
  10.   10DEF PROCdo
  11.   20*SetEval wrap on
  12.   30ENDPROC
  13.  
  14. SCREEN*
  15.  
  16.   10DEF PROCdo
  17.   20PROCsoup(0,256,1)
  18.   30ENDPROC
  19.  
  20. CODE*
  21.  
  22. ( READ_NEIG
  23.   SUM_NEIG DUP              4 < IF (dead     ==)
  24.                3 >> DUP CELL >= IF (CELL 1 + ==)
  25.                      CELL 121 > IF (CELL 1 - ==)
  26.                                          1 - ==  )
  27.  
  28. END*