Critters(CAM-PC)

名前の通り小さな生物（critter）を思わせるセル構造が上下左右に移動するというシミュレーションである。初期状態のランダム配置が沸き立つような明滅を繰り返し、周囲に多数の「移動体」を放出する。これらが他のセル構造と干渉して方向転換をしたり、振動型セル構造に変化したりする様子が興味深い。どことなく蜂の巣を思わせるところがある。

\ CRITTERS.EXP (CAM Book 12.8.2) 16Feb89nhm
This realization of CRITTERS is a little different from that
given in the CAM Book, and perhaps a little more elegant.
By introducing a suitable phase variable and using a more
symmetric version of the rule, we solve the "flicker" problem
and at the same time obtain a rule that can be time-reversed
simply by complementing the phase once more.
Since this is a reversible rule, we start it from an initial
pattern which is not completely random, such as a cluster of
randomness surrounded by empty space. You can use the cage to
construct such patterns. For example, type `8c0;0pc' to
8c show a cage of size 8x8
0; fill plane 0 of the cage with randomness
0p put this randomness in plane 0
c turn off the cage
Alt-R will reverse the direction of time.

\ CRITTERS (see screen 0) 15Feb89nhm
NEW-EXPERIMENT N/MARG-PH
: FLIP-GRID
NOT IS
NOT IS ;
: ALT-GRID
STEP FLIP-GRID ;
MAKE-CYCLE ALT-GRID
: Reverse
-STEP# FLIP-GRID ; ALIAS R
: Init-grid
0 IS 0 IS ; ALIAS I

\ 15Feb89nhm
: -CENTER
CENTER NOT ;
: N0
PHASE { CENTER OPP } ;
: N1
PHASE { OPP CENTER } ;
: CRITTERS
CENTER OPP CW CCW + + +
{ CENTER N0 -CENTER N1 CENTER } >PLN0
CENTER >PLN1 ;
MAKE-TABLE CRITTERS

TEMP-SEG 8 8 AREA HEX 8000 0 RND>PL WHOLE-AREA

Powered by