home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / utils / cat_exe / square.cal < prev    next >
Encoding:
Text File  |  1995-05-19  |  1.0 KB  |  54 lines
  1. (* cp. Toffoli, p. 38       *)
  2. (* Program creates squares. *)
  3.  
  4. RECIPE  XYSize  =  90;
  5.         XYBound =  1;
  6.         Colors =  2;
  7.         Zet    = 2;
  8.  
  9. CONST Dead    =  0;
  10.       Alive   =  1;
  11.  
  12. VAR x;
  13.  
  14. REF   east    [1,0];
  15.       west        [-1,0];
  16.       north     [0,-1];
  17.       south     [0,1];
  18.       n_east    [1,-1];
  19.       n_west    [-1,-1];
  20.       s_east    [1,1];
  21.       s_west    [-1,1];
  22.  
  23. EVENT SetUp;
  24.    RingForm;
  25.    PlClipAll;
  26.    RGBPalette(Colors, $0, $FF, $32,0, $B6,0);
  27.    ShowPlane;
  28.  
  29.  
  30. EVENT E0;(* initialization of the cells *)
  31.      PlClipActive;
  32.      WinClipAll;
  33.      PARALLEL DO
  34.        x := Random (1000);
  35.        IF  (x > 998)
  36.            THEN Self := Alive;
  37.            ELSE Self := Dead;
  38.        FI;
  39.      OD;
  40.      ShowPlane;
  41.  
  42.  
  43. EVENT E1;
  44.     PARALLEL DO
  45.       Self := north OR south OR Self OR west OR east OR n_west OR n_east OR s_west OR s_east;
  46.     OD;
  47.     ShowPlane;
  48. END.
  49.  
  50. ********************************
  51. *  compilation o.k.            *
  52. ********************************
  53.  
  54.