home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / elan / carpet.eln < prev    next >
Encoding:
Text File  |  1980-01-01  |  842 b   |  21 lines
  1.  
  2. program:
  3.   setup dragon;
  4.   start drawing;
  5.   draw dragon (days, start cell);
  6.   finish drawing.
  7.  
  8.   setup dragon:
  9.     LET dragon name = "Sierpienski's Carpet";
  10.     LET directions = 4;
  11.     LET variants = 8;
  12.     LET children = 9;
  13.     ROW variants ROW children INT CONST offsprings :: [[0, 1, 0, 3, 6, 3, 0, 1, 0], [1, 2, 1, 0, 7, 0, 1, 2, 1], [2, 3, 2, 1, 4, 1, 2, 3, 2], [3, 0, 3, 2, 5, 2, 3, 0, 3], [4, 4, 4, - 1, - 1, - 1, - 1, - 1, - 1], [5, 5, 5, - 1, - 1, - 1, - 1, - 1, - 1], [6, 6, 6, - 1, - 1, - 1, - 1, - 1, - 1], [7, 7, 7, - 1, - 1, - 1, - 1, - 1, - 1]];
  14.     ROW variants INT CONST behavior :: [0, 1, 2, 3, 4, 5, 6, 7];
  15.     INT CONST days :: 4;
  16.     INT CONST start cell :: 0;
  17.     INT CONST size of cell :: 3;
  18.     INT CONST start x :: graphics x limit DIV 4;
  19.     INT CONST start y :: 3 * graphics y limit DIV 5.
  20.   
  21.