APL plot code for A New Kind of Science

ca.dyalog

   acc ← {⍺←1 ⋄ ((⊢⍪(⍺⍺∘,¯1↑⊢))⍣⍺)⍵}                   
  cell ← {((⍺⍺ ⍵⍵⊢)⌺3)⍵}                               
  code ← {⎕IO←0 ⋄ (+/⍵)⌷⌽(7⍴3)⊤⍺}                      
 expnd ← {(,⍉↑⍺)/,¯1 0 1(+⍤0 1)⍵}                      
  gmob ← {⍵ snap⍨(⊂L),↓⍉↑(⍺⍺ ⍵⍵ ⍵⌷⍨∘⊂¯1 0 1∘+)¨L←⍸1<⍵} 
    gr ← {(A rule P)(B patn P)⊣A B←⍺⊣P←2|⍵}            
 initi ← {⍺←1 ⋄ ,[⎕IO-0.5]A,⍺,A←⍵⍴0}                   
 mcomp ← {((⌽⍣(B rule P))0 0 2)+(⊃A B←⍺)patn⊢P←⍵-0 2 0}
mobile ← {((⍺⍺ ⍵⍵ ⍵⌷⍨⊂P)@P)⍵⊣P←¯1 0 1+⍸1<⍵}            
 msimp ← {((⌽⍣A)0 0 2)+(B@2)P⊣A B←⍺ rule¨⊂P←⍵-0 2 0}   
  patn ← {⎕IO←0 ⋄ (3⍴2)⊤(2⊥⍵)⌷⌽⍺}                      
   pbm ← {'P1'(⍕⌽⍴⍵),⍕¨↓⍵}                             
   pgm ← {'P2'(⍕⌽⍴⍵)(⍕M),⍕¨↓⍵-⍨M←⌈/,⍵}                 
  rule ← {⎕IO←0 ⋄ (2⊥⍵)⌷⌽(8⍴2)⊤⍺}                      
  snap ← {(2∘+@(X expnd L))(C@L)2|⍵⊣L C X←⍺}