DIRECTORY Terminal, ImagerColorMap; ThreshHack: CEDAR PROGRAM IMPORTS Terminal, ImagerColorMap ~ BEGIN Run: PROC ~ { vt: Terminal.Virtual ~ Terminal.Current[]; array: REF Terminal.ColorTripleArray _ NEW[Terminal.ColorTripleArray _ ALL [[0,0,0]]]; i: NAT _ 256; DO y: NAT ~ MIN[MAX[Terminal.GetMousePosition[vt].y, 0], 256]; WHILE i > y DO i _ i - 1; array[i] _ [255, 255, 255] ENDLOOP; WHILE i < y DO array[i] _ [0, 0, 0]; i _ i + 1 ENDLOOP; Terminal.SetColorArray[vt, 0, array]; Terminal.WaitForBWVerticalRetrace[vt]; IF Terminal.GetMousePosition[vt].y > 800 THEN EXIT; ENDLOOP; ImagerColorMap.SetStandardGrayMap[vt]; }; END. „ThreshHack.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Michael Plass, February 25, 1987 9:18:40 pm PST Ê˜™Icode™