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. DCheckerKinetic.mesa Michael Plass, September 30, 1983 1:51 pm ÊÙ˜J™J™)JšÏk œ-˜6šœ ˜Jšœ,˜3Jšœ˜Jšœ œœ˜J˜&šÏnœœ œœ˜(JšœA˜AJšœ˜Jšœ˜Jšœ;˜;Jšœ=˜=Jšœ.˜.Jšœ˜Jšœ œ˜šœ ˜Jšœ.˜.J˜.Jšœ˜—Jšœ˜—Jšœ˜——…—Æã