
<<CheckerKinetic.mesa>>
<<Michael Plass, September 30, 1983 1:51 pm>>
DIRECTORY ImagerPixelMaps, ImagerFrameBuffer, Process;
CheckerKinetic: CEDAR PROGRAM
IMPORTS ImagerPixelMaps, ImagerFrameBuffer, Process
~ BEGIN
running: BOOLEAN _ FALSE;
pauseTime: Process.Milliseconds _ 300;
Run: PROC [v1, v2: CARDINAL] ~ TRUSTED {
cd: ImagerPixelMaps.PixelMap _ ImagerFrameBuffer.ColorDisplay8[];
tile: ImagerPixelMaps.Tile;
ImagerPixelMaps.Clear[cd];
ImagerPixelMaps.Fill[cd, [0, 0, 30, 40], v1, [null, null]];
ImagerPixelMaps.Fill[cd, [30, 40, 30, 40], v2, [null, null]];
tile _ ImagerPixelMaps.CreateTile[cd.Trim[0]];
cd.TransferTile[tile];
running _ TRUE;
WHILE running DO
cd.Transfer[cd.ShiftMap[15, 20], [xor, null]];
Process.Pause[Process.MsecToTicks[pauseTime]];
ENDLOOP;
};
END.