home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / arcaut / Automatons / 34LIFE next >
Encoding:
Text File  |  1992-05-13  |  818 b   |  43 lines
  1. AUTOMATON*
  2.  
  3.   34Life
  4.  
  5.   Small automaton by AmS, from Dewdney [Magic Machine ?]
  6.   Try a 60x60 grid till you see some of the features..
  7.   Notably cute gliders,which have a nice elegant movement.
  8.   Also a feature called the 3 step hexomino..alter the 
  9.   setup of soup to show it...its structure is 
  10.                  
  11.                  **
  12.                 **
  13.                **
  14.   
  15. and apparently it grows without end. 
  16.  
  17. INITIALISATION*
  18.  
  19.   10DEF PROCdo
  20.   20*SetEval wrap off
  21.   30*SetEval border dead
  22.   40ENDPROC
  23.  
  24. SCREEN*
  25.   10DEF PROCdo
  26.   20PROCsoup(255,1,.8)
  27.   30ENDPROC
  28.  
  29. CODE*
  30.  
  31. ( READ_NEIG
  32.   alive SCOUNT_NEIG
  33.   CELL IF ( DUP 3 = IF (alive ==)
  34.                 4 = IF (alive ==)
  35.                          dead == )
  36.      ELSE ( DUP 3 = IF (alive ==)
  37.                 4 = IF (alive ==) 
  38.                          dead == )
  39.  
  40. END*
  41.  
  42.  
  43.