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;
};