Demo Demo Demo!

This is an experiment. If one person finds this note, my shipwrecked ordeal on Dev Island will not have been in vain. Compile and run this slight modification to the Turing demo.

MODULE TuringCoatWnd;   (* Soren Renner / TF *)

IMPORT
   SYSTEM, Modules, Objects, Raster, AosRandom, WMRectangles, WMGraphics,
   WM := WMWindowManager, WMMessages;

CONST
   m =250;
   size = 1;

TYPE

   KillerMsg = OBJECT
   END KillerMsg;

   TCW* = OBJECT(WM.BufferWindow)
   VAR
      mesh1, mesh2, n1 : ARRAY m, m OF REAL;
      random : AosRandom.Generator;
      alive, dead, alpha : BOOLEAN;
      i : LONGINT;

      PROCEDURE &New(alpha : BOOLEAN);
      VAR i, j : LONGINT;
      BEGIN
         Init(m*size, m*size, alpha);
         SELF.alpha :=alpha;
         manager := WM.GetDefaultManager();
         manager.Add(100, 100, SELF, {WM.FlagFrame});

         NEW(random);

         FOR i := 0 TO m - 1 DO
            FOR j := 0 TO m - 1 DO
               mesh1[i, j] := 0;
               mesh2[i, j] := 0;
               n1[i, j] := 0
            END
         END;
         FOR i := 1 TO m - 2 DO
            FOR j := 1 TO m - 2 DO
               IF random.Dice(100) > 90 THEN mesh1[i, j] := random.Dice(1000)/1000 END
            END
         END;
         IncCount;
      END New;

      PROCEDURE Handle(VAR m: WMMessages.Message);
      BEGIN
         IF (m.msgType = WMMessages.MsgExt) & (m.ext # NIL) & (m.ext IS KillerMsg) THEN
            Close;
         ELSE Handle^(m)
         END
      END Handle;

      PROCEDURE Draw*(canvas : WMGraphics.Canvas; w, h, q : LONGINT);
      BEGIN
         Draw^(canvas, w, h, 0)
      END Draw;

      PROCEDURE Close();
      BEGIN
         alive := FALSE;
         BEGIN {EXCLUSIVE} AWAIT(dead); END;
         Close^;
         DecCount;
      END Close;

      PROCEDURE Generation;
      VAR i, j : LONGINT;
      BEGIN
         FOR i := 1 TO m - 2 DO
            n1[i, 0] := mesh1[i - 1, 0] + mesh1[i + 1, 0] + mesh1[i, m - 1] + mesh1[i, 1]
                + mesh1[i - 1, m - 1] + mesh1[i + 1, 1] + mesh1[i + 1, m - 1] + mesh1[i - 1, 1];
            n1[i, m - 1] := mesh1[i - 1, m - 1] + mesh1[i + 1, m - 1] + mesh1[i, m - 2] + mesh1[i, 0]
               + mesh1[i - 1, m - 2] + mesh1[i + 1, 0] + mesh1[i + 1, m - 2] + mesh1[i - 1, 0];
            END;
         FOR j := 1 TO m - 2 DO
            n1[0, j] := mesh1[m - 1, j] + mesh1[1, j] + mesh1[0, j - 1] + mesh1[0, j + 1]
               + mesh1[m - 1, j - 1] + mesh1[1, j + 1] + mesh1[1, j - 1] + mesh1[m - 1, j + 1];
            n1[m - 1, j] := mesh1[m - 2, j] + mesh1[0, j] + mesh1[m - 1, j - 1] + mesh1[m - 1, j + 1]
               + mesh1[m - 2, j - 1] + mesh1[0, j + 1] + mesh1[0, j - 1] + mesh1[m - 2, j + 1]
         END;

         FOR i := 1 TO m - 2 DO
            FOR j := 1 TO m - 2 DO
               n1[i, j] := mesh1[i - 1, j] + mesh1[i + 1, j] + mesh1[i, j - 1] + mesh1[i, j + 1]
                  + mesh1[i - 1, j - 1] + mesh1[i + 1, j + 1] + mesh1[i + 1, j - 1] + mesh1[i - 1, j + 1]
            END
         END;
         FOR i := 1 TO m - 2 DO
            FOR j := 1 TO m - 2 DO
               (* HERE ARE THE DIFFERENCE RULES! *)
               mesh1[i, j] := mesh1[i, j] + n1[i, j] / 80*i/j - (mesh2[i, j] * mesh2[i, j]) ;
               mesh2[i, j] := mesh2[i, j] + mesh1[i, j] / 20 - 0.03 ;
               IF mesh1[i, j] < 0 THEN mesh1[i, j] := 0 END;
               IF mesh2[i, j] < 0 THEN mesh2[i, j] := 0 END;
               IF mesh1[i, j] > 1 THEN mesh1[i, j] := 1 END;
               IF mesh2[i, j] > 1 THEN mesh2[i, j] := 1 END;
            END;
         END;
      END Generation;

      PROCEDURE DrawIt;
      VAR i, j, ix, jy : LONGINT;
         pix : Raster.Pixel;
         mode : Raster.Mode;
      BEGIN
         Raster.InitMode(mode, Raster.srcCopy);
         FOR i := 0 TO m - 1 DO
            ix := i * size ;
            FOR j := 0 TO m - 1 DO
               jy := j * size;
               IF alpha THEN
                  Raster.SetRGBA(pix, SHORT((255-ENTIER(mesh1[i, j] * 255)) ), SHORT((255-ENTIER(mesh2[i, j] * 255)) ), 0,
                  SHORT( (255-ENTIER(mesh2[i, j] * 255))+ENTIER(mesh1[i, j] * 255)) MOD 128+127 )
               ELSE
                  Raster.SetRGB(pix, SHORT((255-ENTIER(mesh1[i, j] * 255)) ), SHORT((255-ENTIER(mesh2[i, j] * 255)) ), 1)
               END;
               Raster.Fill(img, ix, jy, ix+size, jy+size, pix, mode)
            END
         END;
         Invalidate(WMRectangles.MakeRect(0, 0, GetWidth(), GetHeight()))
      END DrawIt;

   BEGIN {ACTIVE}
      alive := TRUE;
      Objects.SetPriority(Objects.Low);
      WHILE alive DO
         FOR i := 0 TO 0 DO Generation END;
         DrawIt;
      END;
      BEGIN {EXCLUSIVE} dead := TRUE; END;
   END TCW;

VAR
   nofWindows : LONGINT;

PROCEDURE OpenAlpha*;
VAR window : TCW;
BEGIN
   NEW(window, TRUE);
END OpenAlpha;

PROCEDURE Open*;
VAR window : TCW;
BEGIN
   NEW(window, FALSE);
END Open;

PROCEDURE IncCount;
BEGIN {EXCLUSIVE}
   INC(nofWindows);
END IncCount;

PROCEDURE DecCount;
BEGIN {EXCLUSIVE}
   DEC(nofWindows);
END DecCount;

PROCEDURE Cleanup;
VAR die : KillerMsg;
    msg : WMMessages.Message;
    m : WM.WindowManager;
BEGIN {EXCLUSIVE}
   NEW(die); msg.ext := die; msg.msgType := WMMessages.MsgExt;
   m := WM.GetDefaultManager();
   m.Broadcast(msg);
   AWAIT(nofWindows = 0);
END Cleanup;

BEGIN
   Modules.InstallTermHandler(Cleanup);
END TuringCoatWnd.

S.Free TuringCoatWnd ~
TuringCoatWnd.OpenAlpha ~
Turin