DIRECTORY Args, Atom, Buttons, ChoiceButtons, CedarProcess, ClassIncreek, ColorDisplay, ColorTrixBasics, ColorTrixMap, ColorTrixPrivate, Commander, Containers, Convert, Draw2d, Imager, ImagerBackdoor, ImagerColor, ImagerPixelMap, IO, MessageWindow, Process, Real, Rope, Terminal, TerminalDefs, TextNode, TiogaAccess, TiogaImager, TypeScript, ViewerClasses, ViewerIO, ViewerOps, ViewerTools;

ColorTrixCommandsImplB: CEDAR PROGRAM
IMPORTS Args, Atom, Buttons, ChoiceButtons, CedarProcess, ClassIncreek, ColorDisplay, ColorTrixBasics, ColorTrixMap, Containers, Convert, Draw2d, Imager, ImagerBackdoor, ImagerColor, ImagerPixelMap, IO, MessageWindow, Process, Real, Rope, Terminal, TiogaAccess, TiogaImager, TypeScript, ViewerIO, ViewerOps, ViewerTools
EXPORTS ColorTrixPrivate

~ BEGIN

ROPE:				TYPE ~ Rope.ROPE;
STREAM:			TYPE ~ IO.STREAM;
Viewer:			TYPE ~ ViewerClasses.Viewer;

PixelMap:			TYPE ~ ColorTrixBasics.PixelMap;
PixelMapMisc:	TYPE ~ ColorTrixBasics.PixelMapMisc;

Cmap:				TYPE ~ ColorTrixMap.Cmap;
Context:			TYPE ~ Imager.Context;
Color:				TYPE ~ Imager.Color;
CtDif: PUBLIC Commander.CommandProc ~ {
Dif: PROC [pm: PixelMap] ~ {
src0: PixelMap ~ ImagerPixelMap.Clip[pm, [y0.int, x0.int, h.int, w.int]];
src1: PixelMap ~ ImagerPixelMap.Clip[pm, [y1.int, x1.int, h.int, w.int]];
dif: PixelMap ~ ImagerPixelMap.Clip[pm, [y2.int, x2.int, h.int, w.int]];
FOR y: INT IN [0..h.int) DO
FOR x: INT IN [0..w.int) DO
src0Value: INTEGER ~ ColorTrixBasics.GetPixel[src0, x+src0.fMin, y+src0.sMin];
src1Value: INTEGER ~ ColorTrixBasics.GetPixel[src1, x+src1.fMin, y+src1.sMin];
ColorTrixBasics.PutPixel[dif, x+dif.fMin, y+dif.sMin, ABS[src0Value-src1Value]];
ENDLOOP;
ENDLOOP;
};
ok: BOOL;
x0, y0, x1, y1, x2, y2, w, h: Args.Arg;
[ok, x0, y0, x1, y1, x2, y2, w, h] _ Args.ArgsGet[cmd, "%iiiiiiii"];
IF NOT ok
THEN RETURN[$Failure, "Bad argument(s)."]
ELSE {
pmMisc: PixelMapMisc _ ColorTrixBasics.GetColorDisplayPmMisc[];
SELECT pmMisc.bpp FROM
8 => Dif[pmMisc.bw];
24 => {
Dif[pmMisc.rg];
Dif[pmMisc.b];
};
ENDCASE;
};
};
CtTextData:		TYPE ~ REF CtTextDataRec;
CtTextDataRec:	TYPE ~ RECORD [
viewer:					Viewer _ NIL,
context:					Context _ NIL,
bounds:					Imager.Rectangle,
x, y, c:					Viewer _ NIL,
printButton:				Viewer _ NIL
];

CtText: PUBLIC Commander.CommandProc ~ {
context: Context ~ ColorTrixBasics.InitCd[smooth, TRUE, FALSE, FALSE];
IF Args.NArgs[cmd] > 0
THEN {
x: Args.Arg _ Args.ArgInt[cmd, 0];
y: Args.Arg _ Args.ArgInt[cmd, 1];
text: Args.Arg _ Args.ArgRope[cmd, 2];
IF NOT x.ok OR NOT y.ok OR NOT text.ok THEN RETURN[$Failure, NIL];
Draw2d.Label[context, [x.int, y.int], text.rope];
}
ELSE {
data: CtTextData _ NEW[CtTextDataRec];

data.context _ context;
data.bounds _ ImagerBackdoor.GetBounds[data.context];

data.viewer _ Containers.Create[
info: [name: "CtText", openHeight: 33, iconic: TRUE, column: right, scrollable: FALSE],
paint: FALSE];

data.x _ ChoiceButtons.BuildTextPrompt[data.viewer, 0, 0, "x:", "0", , 30].textViewer;
data.y _ ChoiceButtons.BuildTextPrompt[data.viewer, 60, 0, "y:", "0", , 30].textViewer;
data.c _ ChoiceButtons.BuildTextPrompt[data.viewer, 120, 0, "color:", "Black", , 50].textViewer;

data.printButton _ Buttons.Create[
info: [parent: data.viewer, name: "Print", wx: 240, wy: 3], 
proc: Print,
clientData: data,
paint: TRUE];

ViewerOps.OpenIcon[data.viewer];
};
};

Blink: PROC [rope: Rope.ROPE] ~ {
MessageWindow.Append[rope, TRUE];
MessageWindow.Blink[];
};

Print: Buttons.ButtonProc ~ {
badButton: ERROR;
GetValue: PROC [viewer: Viewer] RETURNS [NAT] ~ {
num: INT;
selection: Rope.ROPE _ ViewerTools.GetContents[viewer];
num _ Convert.IntFromRope[selection ! Convert.Error => ERROR badButton];
IF num < 0 THEN ERROR badButton;
RETURN[num];
};
data: CtTextData ~ NARROW[clientData];
x, y: NAT;
formattedNode: TiogaImager.FormattedNodes;
color: Color _ ImagerColor.ColorFromAtom[Atom.MakeAtom[ViewerTools.GetContents[data.c]]];
reader: TiogaAccess.Reader ~ TiogaAccess.FromSelection[];
location: TextNode.Location ~ [NARROW[TiogaAccess.GetNodeRefs[reader].current], 0];
IF location.node = NIL THEN GOTO BadText;
IF color = NIL THEN GOTO BadColor;
formattedNode _ TiogaImager.FormatNodes[location, [data.bounds.w, data.bounds.h], TRUE];
x _ GetValue[data.x ! badButton => GOTO BadButton];
y _ Real.RoundI[data.bounds.h]-GetValue[data.y ! badButton => GOTO BadButton];
Imager.SetColor[data.context, color];
TiogaImager.Render[formattedNode.box, data.context, [x, y]];
EXITS
BadButton => Blink["Bad coordinates(s)"];
BadText => Blink["Bad selection"];
BadColor => Blink["Bad color (see ImagerColor.mesa)"];
};
CtInfoData:		TYPE ~ REF CtInfoDataRec;
CtInfoDataRec:	TYPE ~ RECORD [
viewer:					Viewer _ NIL,
colorDisplayChanged:	BOOL _ FALSE,
out:						STREAM _ NIL,
pm:						PixelMapMisc,
cmap:						Cmap _ NIL,
x, y:						INTEGER _ 0
];

PixelInfo:			TYPE ~ RECORD [
pval:						CARDINAL,
red:						CARDINAL,
grn:						CARDINAL,
blu:						CARDINAL
];

SeColorDisplayInfo: PROC [info: CtInfoData] ~ {
info.pm _ ColorTrixBasics.GetColorDisplayPmMisc[];
info.cmap _ IF info.pm.bpp = 8 THEN ColorTrixMap.Read[] ELSE NIL;
};

CtInfo: PUBLIC Commander.CommandProc ~ {
nArgs: INTEGER _ Args.NArgs[cmd];

IF nArgs # 0 AND nArgs # 2
THEN RETURN[$Failure, Rope.Concat["Bad argument(s); usage: ", NIL]]
ELSE SELECT nArgs FROM
0 => {
info: CtInfoData _ NEW[CtInfoDataRec];

SeColorDisplayInfo[info];
info.viewer _ TypeScript.Create[info: [openHeight: 400, name: "CtInfo", data: info, scrollable: TRUE, column: right, iconic: TRUE]];
ViewerOps.OpenIcon[info.viewer];
info.out _ ViewerIO.CreateViewerStreams[NIL, info.viewer].out;
TRUSTED {Process.Detach[FORK Informer[info]]};
};
2 => {
x: Args.Arg _ Args.ArgInt[cmd, 0];
y: Args.Arg _ Args.ArgInt[cmd, 1];
pm: PixelMapMisc _ ColorTrixBasics.GetColorDisplayPmMisc[];
cmap: Cmap _ IF pm.bpp = 8 THEN ColorTrixMap.Read[] ELSE NIL;

IF NOT x.ok OR NOT y.ok THEN RETURN[$Failure, "Bad argument(s)."];
IF NOT CoordinatesOK[pm, x.int, y.int] THEN RETURN[
$Failure,
IO.PutFR["(x, y) must be ([0..%g), [0..%g))", IO.int[pm.w], IO.int[pm.h]]];
APixel[cmd.out, pm, cmap, x.int, y.int];
};
ENDCASE => NULL;
};

CDNotifyProc: ColorDisplay.CDNotifyProc ~ {
IF old # new THEN NARROW[clientData, CtInfoData].colorDisplayChanged _ TRUE;
};

Informer: PROC [info: CtInfoData] ~ TRUSTED {
report: BOOL _ FALSE;
key: TerminalDefs.KeyName;
action: ClassIncreek.ActionBody;
increek: ClassIncreek.Increek _ ClassIncreek.NewStdIncreek[];
viewPosition: ClassIncreek.ViewPosition _ ClassIncreek.GetPositionFrom[increek];
cdReg: ColorDisplay.CDRegistration _ ColorDisplay.RegisterCDNotifyProc[CDNotifyProc, info];

CedarProcess.SetPriority[background];
IO.PutRope[info.out, "\n"];

WHILE NOT info.viewer.destroyed DO
IF info.colorDisplayChanged THEN {
SeColorDisplayInfo[info];
info.colorDisplayChanged _ FALSE;
};
action _ ClassIncreek.GetAction[self: increek, acceptance: clicksAndMotion];
IF viewPosition.mousePosition.color THEN {
WITH ac: action SELECT FROM
keyDown => IF ac.value IN [Red..Yellow] THEN {key _ ac.value; report _ TRUE};
keyUp => IF ac.value IN [Red..Yellow] THEN {key _ ac.value; report _ FALSE};
ENDCASE;
IF report THEN {
WITH ac: action SELECT FROM
keyDown, deltaMouse => {
info.x _ viewPosition.mousePosition.mouseX;
info.y _ info.pm.h-viewPosition.mousePosition.mouseY;
};
ENDCASE;
IF key = Blue
THEN WITH ac: action SELECT FROM
keyDown => ManyPixels[info];
ENDCASE
ELSE WITH ac: action SELECT FROM
keyDown, deltaMouse => APixel[info.out, info.pm, info.cmap, info.x, info.y];
ENDCASE;
};
};
ENDLOOP;

ColorDisplay.UnregisterCDNotifyProc[cdReg];
};

APixel: PROC [out: STREAM, pm: PixelMapMisc, cmap: Cmap, x, y: INTEGER] ~ {
pix: PixelInfo _ GetPixelInfo[pm, cmap, x, y];
SELECT pm.bpp FROM
8 =>
IO.PutRope[out, Rope.Concat[
IO.PutFR["8 bit pixel at (%g, %g): %g ", IO.int[x], IO.int[y], IO.card[pix.pval]], 
IO.PutFR["(r: %g, g: %g, b: %g)\n",
IO.int[cmap[0][pix.pval]], IO.int[cmap[1][pix.pval]], IO.int[cmap[2][pix.pval]]]]];
24 =>
IO.PutRope[out, IO.PutFR["24 bit pixel at (%g, %g), r: %g, g: %g, b: %g\n",
IO.int[x], IO.int[y], IO.card[pix.red], IO.card[pix.grn], IO.card[pix.blu]]];
ENDCASE => NULL;
};

ManyPixels: PROC [info: CtInfoData] ~ {
pixs: ARRAY [0..5) OF ARRAY [0..5) OF PixelInfo;
Bar: PROC ~ {
IF info.pm.bpp = 8
THEN IO.PutF[info.out, "\n"]
ELSE IO.PutF[info.out, "\n"]
};
PrintLine: PROC [j: INTEGER, proc: PROC [i, j: INTEGER], report: BOOL _ FALSE] ~ {
IF proc # PrintX THEN IO.PutRope[info.out, "| "];
FOR i: NAT IN [0..5) DO proc[i, j]; ENDLOOP;
IF report THEN IO.PutF[info.out, "  %g", IO.int[info.y-2+j]];
IO.PutRope[info.out, "\n"];
};
PrintX: PROC [i, j: INTEGER] ~ {
IF info.pm.bpp = 8
THEN IO.PutF[info.out, "    %3g\t", IO.int[info.x-2+i]]
ELSE IO.PutF[info.out, " %3g\t", IO.int[info.x-2+i]];
};
PrintPval: PROC [i, j: INTEGER] ~ {
IO.PutF[info.out, " %-3g\t\t|", IO.card[pixs[i][j].pval]];
};
PrintRed: PROC [i, j: INTEGER] ~ {PrintCard["r", pixs[i][j].red]};
PrintGrn: PROC [i, j: INTEGER]  ~ {PrintCard["g", pixs[i][j].grn]};
PrintBlu: PROC [i, j: INTEGER] ~ {PrintCard["b", pixs[i][j].blu]};
PrintCard: PROC [rope: ROPE, card: CARDINAL] ~ {
IF info.pm.bpp = 8
THEN IO.PutF[info.out, "  %g: %3g\t|", IO.rope[rope], IO.card[card]]
ELSE IO.PutF[info.out, " %3g\t|", IO.card[card]];
};

FOR j: NAT IN [0..5) DO
y: INTEGER _ info.y-2+j;
FOR i: NAT IN [0..5) DO
pixs[i][j] _ GetPixelInfo[info.pm, info.cmap, info.x-2+i, y];
ENDLOOP;
ENDLOOP;

IO.PutF[
info.out, "\n%g bit pixels centered at (%g, %g):\n",
IO.int[info.pm.bpp], IO.int[info.x], IO.int[info.y]];
Process.Pause[Process.MsecToTicks[100]];
[] _ info.viewer.class.scroll[info.viewer, thumb, 100];
PrintLine[0, PrintX];
Bar[];

FOR line: NAT IN [0..5) DO
IF info.pm.bpp = 8 THEN PrintLine[line, PrintPval];
PrintLine[line, PrintRed];
PrintLine[line, PrintGrn, TRUE];
PrintLine[line, PrintBlu];
Bar[];
ENDLOOP
};

CoordinatesOK: PROC [pm: PixelMapMisc, x, y: INTEGER] RETURNS [BOOL] ~ {
RETURN[x IN [0..pm.w) AND y IN [0..pm.h)];
};

GetPixelInfo: PROC [pm: PixelMapMisc, cmap: Cmap, x, y: INTEGER] RETURNS [PixelInfo] ~ {
pix: PixelInfo;
GetInner: PROC ~ {
IF CoordinatesOK[pm, x, y] THEN SELECT pm.bpp FROM
8 => {
pix.pval _ ImagerPixelMap.GetPixel[pm.bw, y, x];
pix.red _ cmap[0][pix.pval];
pix.grn _ cmap[1][pix.pval];
pix.blu _ cmap[2][pix.pval];
};
24 =>
[pix.red, pix.grn, pix.blu] _ ColorTrixBasics.GetRGBPixel[pm, x, y];
ENDCASE => NULL;
};
Terminal.ModifyColorFrame[Terminal.Current[], GetInner, x, y, x+1, y+1];
RETURN[pix];
};
ViewerOps.RegisterViewerClass[$Info, NEW[ViewerClasses.ViewerClassRec]];

END.
¬ColorTrixCommandsImplB.mesa
Copyright c 1985 by Xerox Corporation.  All rights reserved.
Bloomenthal, December 2, 1986 1:33:18 pm PST
CtDif
CtText
CtInfo
Start Code
Κ

˜š
œ™Jšœ
Οm
œ1™<J™,—J˜JšΟk	œέ
žœž
˜†J˜šΠblœžœ
ž˜%Jšžœΐ
žœv˜ΏJšžœ˜—J˜šœž˜J˜Jšžœ
žœžœ
˜Jšžœžœžœ
žœ
˜Jšœ
žœ˜&J˜Jšœžœ˜,Jšœžœ ˜2J˜Jšœ	žœ˜"Jšœžœ˜!Jšœ	žœ˜—
headš
Οl™šΠbnœžœ˜'
codešΟnœžœ˜J˜IJ˜IJ˜Hšžœžœ
žœž˜šžœžœ
žœž˜Jšœžœ<˜NJšœžœ<˜NJšœ6žœ˜PJšžœ
˜—Jšžœ
˜—L˜—Lšœžœ
˜	Lš
œ'˜'Lš
œD˜Dšžœ
žœ˜	Jšžœ
žœ˜)šžœ˜Jš
œ?˜?šžœž˜Lš
œ˜š
œ˜Lš
œ˜Lš
œ˜Lš
œ˜—Lšžœ
˜—L˜——Jš
œ˜——š
 ™Jšœžœžœ˜&šœžœžœ˜Jšœžœ
˜Jšœžœ
˜Jš
œ˜Jšœžœ
˜Jšœž˜J˜J˜—š’œžœ˜(Jšœ2žœžœžœ˜Fšžœ˜šžœ˜J˜"J˜"J˜&Jšžœ
žœžœ
žœžœ
žœ	žœ
žœžœ˜BJ˜1J˜
—šžœ˜Jšœžœ˜&J˜Jš
œ˜J˜5Icedar˜š
œ ˜ Mšœ/žœžœ˜WMšœžœ˜—M˜Mš
œV˜VMš
œW˜WMš
œ`˜`M˜š
œ"˜"Jš
œ<˜<Jš
œ˜Jš
œ˜Jšœžœ˜
J˜—M˜ M˜——M˜J˜—š’œžœ
žœ˜!Jšœžœ˜!J˜J˜J˜—š’œ˜Jšœžœ
˜š’œžœžœžœ˜1Mšœžœ
˜	Mšœžœ#˜7Mšœ7žœ˜HJšžœ	žœ
žœ˜ Jšžœ˜J˜—Jšœžœ
˜&Jšœžœ
˜
Jš
œ*˜*Jš
œY˜YJ˜9Jšœžœ.˜SJšžœžœ
žœ
žœ	˜)Jšžœ	žœ
žœ
žœ
˜"JšœRžœ˜XJšœ
žœ žœ˜3Jšœ
žœ;žœ˜NJ˜%Jš
œ<˜<š
ž˜J˜)J˜"J˜6—J˜——š
 ™Jšœžœžœ˜&šœžœžœ˜Jšœžœ
˜Jšœžœžœ
˜"Jšœ
žœžœ
˜Jš
œ˜Jšœžœ
˜Jšœžœ˜Jš
œ˜J˜—šœ
žœžœ˜Jšœžœ
˜Jšœ
žœ
˜Jšœ
žœ
˜Jšœ
ž˜J˜J˜—š’œžœ˜/Jš
œ2˜2Jš	œžœžœžœ
žœ
˜AJš
œ˜J˜—š’œžœ˜(Jšœžœ˜!J˜šžœžœ
˜Jšžœ
žœ3žœ˜Cšžœ
žœž˜˜Jšœžœ˜&J˜Jš
œ˜Jšœ`žœžœ˜„
Jš
œ ˜ Jšœ(žœ˜>Jšžœžœ˜.J˜—˜J˜"J˜"Jš
œ;˜;Jš	œ
žœžœžœ
žœ
˜=J˜Jšžœ
žœžœ
žœžœ
žœ˜Bšžœ
žœ žœ
žœ
˜3Jš
œ	˜	Jšžœ,žœžœ
˜K—Jš
œ(˜(J˜—Jšžœžœ
˜—J˜—J˜—š’œ˜+Jšžœžœ
žœ/žœ
˜LJ˜J˜—š’œžœžœ˜-Jšœžœžœ
˜Jš
œ˜J˜ Jš
œ=˜=J˜PJ˜[J˜Jš
œ%˜%Jšžœ˜J˜šžœ
žœž˜"šžœžœ˜"Jš
œ˜Jšœžœ
˜!J˜—J˜Lšžœ"žœ˜*šžœžœ
ž˜Jš	œžœ
žœžœžœ˜MJš	œ	žœ
žœžœžœ˜LJšžœ
˜—šžœžœ˜šžœžœ
ž˜š
œ˜Jš
œ+˜+Jš
œ5˜5J˜—Jšžœ
˜—šžœ˜
šžœ
žœžœ
ž˜ Jš
œ˜Jš
ž˜—šžœ
žœžœ
ž˜ Jš
œL˜LJšžœ
˜—J˜—J˜——Jšžœ
˜J˜—J˜+J˜J˜—š’œžœžœ&žœ˜KJš
œ.˜.šžœž˜š
œ˜šžœ˜Jšžœ&žœ	žœ	žœ˜Sšžœ!˜#Jšžœžœžœ˜S———˜šžœžœ9˜KLš
žœ	žœ	žœžœžœ˜M——Jšžœžœ
˜—J˜J˜—šΟb
œžœ˜'Jš	œžœžœ
žœžœ˜0š’œžœ˜
šžœ˜Jšžœ
žœ7˜>Jšžœ
žœ+˜2J˜——š’	œžœžœžœžœžœžœ˜RJšžœžœ
žœ˜1Jš
žœžœ
žœžœ
žœ
˜,Jšžœžœ
žœžœ˜=Jšžœ˜J˜—š’œžœžœ˜ šžœ˜Jšžœ
žœžœ˜7Jšžœ
žœžœ˜5—J˜—š’	œžœžœ˜#Jšžœžœ˜:Jš
œ˜—Jš’œžœžœ%˜BJš’œžœžœ&˜CJš’œžœžœ%˜Bš’	œžœžœžœ˜0šžœ˜Jšžœ
žœ žœ
žœ˜DJšžœ
žœžœ
˜1—J˜—J˜šžœžœ
žœž˜Jšœžœ˜šžœžœ
žœž˜Jš
œ=˜=Jšžœ
˜—Jšžœ
˜—J˜šžœ˜Jš
œ4˜4Jšžœžœžœ˜5—J˜(Jš
œ7˜7J˜Jš
œ˜J˜šžœžœ
žœž˜Jšžœžœ˜3Jš
œ˜Jšœžœ˜ Jš
œ˜Jš
œ˜Jš
ž˜—J˜J˜—š
’
œžœžœžœžœ˜HJšžœžœžœžœ˜*Jš
œ˜J˜—š’œžœ&žœžœ˜XJ˜š’œžœ˜šžœžœ
žœž˜2š
œ˜Jš
œ0˜0Jš
œ˜Jš
œ˜Jš
œ˜J˜—˜L˜D—Jšžœžœ
˜—J˜—J•StartOfExpansiont[vt: 
Terminal.Virtual, action: 
PROC, xmin: 
NAT _ 0, ymin: 
NAT _ 0, xmax: 
NAT _ 32767, ymax: 
NAT _ 32767]š
œH˜HJšžœ˜J˜——š
 
™
Jšœ%žœ ˜HJ˜—Jš
ž˜—…—)@6ν