
DIRECTORY Buttons, ChoiceButtons, Convert, CtBasic, CtDispatch, CtViewer, ImagerSample, IO, KeyNames, KeyTypes, MessageWindow, Process, Rope, SF, ViewerClasses, ViewerOps, ViewerTools;

CtPaintCommandImpl: CEDAR PROGRAM
IMPORTS Buttons, ChoiceButtons, Convert, CtBasic, CtDispatch, CtViewer, ImagerSample, IO, KeyNames, MessageWindow, Process, SF, ViewerOps, ViewerTools

~ BEGIN
ButtonProc:		TYPE ~ Buttons.ButtonProc;
IntegerPair:		TYPE ~ CtBasic.IntegerPair;
RGB:				TYPE ~ CtBasic.RGB;
ROPE:				TYPE ~ Rope.ROPE;
Viewer:			TYPE ~ ViewerClasses.Viewer;

control:			KeyTypes.KeySym м KeyNames.KeySymFromName["LeftControl"];

Data:				TYPE ~ REF DataRep;
DataRep:			TYPE ~ RECORD [
cmd:						CtDispatch.CmdHandle м NIL,
pval:						CARDINAL м 100,
rgb:						RGB м [100, 100, 100],
size:						INTEGER м 25,
halfSize:					INTEGER м 12,
paintViewer:				Viewer м NIL,
parent:					Viewer м NIL,
pvalViewer:				Viewer м NIL,
sizeViewer:				Viewer м NIL,
redViewer:				Viewer м NIL,
greenViewer:			Viewer м NIL,
blueViewer:				Viewer м NIL,
functionViewer:			Viewer м NIL,
function:					{paint, blur, incr} м paint
];

ctPaintUsage: ROPE ~ "Ct Paint: interactive painting on a viewer.";

CtPaint: CtDispatch.CtProc ~ {
v: Viewer м ViewerOps.FindViewer["Ct Paint"];
p: Data м IF v = NIL THEN NEW[DataRep] ELSE NARROW[v.data];
p.cmd м cmd;
IF v = NIL THEN TRUSTED {Process.Detach[FORK MakePainter[p]]};
affect м [[0, 0], [0, 0]];	-- caveat painter!
CtViewer.RegisterMouse[p.paintViewer м viewer, MouseProc, p];
};

MakePainter: PROC [p: Data] ~ {
TextButton: PROC [x, y, w: NAT, name, text: ROPE] RETURNS [v: Viewer] ~ {
v м ChoiceButtons.BuildTextPrompt[p.parent, x, y, name, text,, w, p].textViewer;
};
ViewerOps.OpenIcon[p.parent м ViewerOps.CreateViewer[
flavor: $CtPaint,
info: [openHeight: 34, name: "Ct Paint", data: p, column: right, iconic: TRUE]]];
p.sizeViewer м TextButton[0, 3, 40, "size:", "25"];
p.pvalViewer м TextButton[85, 3, 40, "p:", "100"];
p.redViewer м TextButton[150, 3, 40, "r:", "100"];
p.greenViewer м TextButton[215, 3, 40, "g:", "100"];
p.blueViewer м TextButton[280, 3, 40, "b:", "100"];
p.functionViewer м Buttons.Create[
info: [parent: p.parent, name: "paint", wx: 360, wy: 3],  proc: Toggle, clientData: p];
};

MouseProc: CtViewer.MouseProc ~ {
p: Data м NARROW[clientData];
IF mouse.state = down AND mouse.button = left
THEN CtViewer.DoWithViewer[p.paintViewer, Paint, p];
};

Paint: CtViewer.ViewerProc ~ {
GetVal: PROC [v: Viewer] RETURNS [i: CARDINAL] ~ {
i м Convert.IntFromRope[ViewerTools.GetContents[v] ! Convert.Error => GOTO Bad];
EXITS Bad=>{MessageWindow.Append["bad value",TRUE];MessageWindow.Blink[]};
};
Poll: CtViewer.PollProc ~ {
IF p.parent.destroyed
THEN RETURN[FALSE]
ELSE {
Blur: PROC ~ {
PixelProc: SAFE PROC [x, y: NAT] ~ {
sum, sumR, sumG, sumB: CARDINAL м 0;
FOR yy: INTEGER IN [y-1..y+1] DO
FOR xx: INTEGER IN [x-1..x+1] DO
IF maps.bpp = 24
THEN {
rgb: RGB м CtBasic.GetRGBPixel[maps, xx, yy];
sumR м sumR+rgb.r; sumG м sumG+rgb.g; sumB м sumB+rgb.b;
}
ELSE sum м sum+CtBasic.GetBWPixel[maps[0].map, xx, yy];
ENDLOOP;
ENDLOOP;
IF maps.bpp = 24
THEN CtBasic.PutRGBPixel[maps, x, y, [sumR/9, sumG/9, sumB/9]]
ELSE CtBasic.PutBWPixel[maps[0].map, x, y, CARDINAL[sum/9]];
};
FOR y: NAT IN [y0..y1] DO
FOR x: NAT IN [x0..x1] DO PixelProc[x, y]; ENDLOOP;
ENDLOOP;
};
Paint: PROC ~ {
IF maps.bpp = 24
THEN CtBasic.PutRGBBox[maps, x0, y0, x1, y1, p.rgb]
ELSE ImagerSample.Fill[maps[0].map, [[y0, x0], [y1, x1]], p.pval];
};
Incr: PROC ~ {
IF maps.bpp = 24
THEN p.rgb м [
BYTE[(NAT[p.rgb.r]+1) MOD 255],
BYTE[(NAT[p.rgb.g]+2) MOD 255],
BYTE[(NAT[p.rgb.b]+3) MOD 255]]
ELSE SELECT dir FROM
positive => IF p.pval = 254 THEN dir м negative ELSE p.pval м p.pval+1;
negative => IF p.pval = 1 THEN dir м positive ELSE p.pval м p.pval-1;
ENDCASE;
Paint[];
};
x0: INTEGER м MAX[maps.x, pos.x-p.halfSize];
y0: INTEGER м MAX[maps.y, pos.y-p.halfSize];
x1: INTEGER м MIN[maps.box.max.f, x0+p.size];
y1: INTEGER м MIN[maps.box.max.s, y0+p.size];
IF x0 # prev.x OR y0 # prev.y THEN {
affect м [SF.Min[affect.min, [y0, x0]], SF.Max[affect.max, [y1, x1]]];
SELECT p.function FROM paint => Paint[]; blur => Blur[]; ENDCASE => Incr[];
prev м [x0, y0];
};
};
};
p: Data м NARROW[clientData];
affect: SF.Box м [[0, 0], [0, 0]];
prev: CtBasic.IntegerPair м [-1, -1];
dir: {positive, negative} м positive;
IF CtViewer.KeyDown[control] THEN { -- pick
pos: IntegerPair м CtViewer.GetMousePos[viewer];
IF maps.bpp = 24
THEN {
rgb: RGB м CtBasic.GetRGBPixel[maps, pos.x, pos.y];
ViewerTools.SetContents[p.redViewer, IO.PutFR1["%g", IO.card[rgb.r]]];
ViewerTools.SetContents[p.greenViewer, IO.PutFR1["%g", IO.card[rgb.g]]];
ViewerTools.SetContents[p.blueViewer, IO.PutFR1["%g", IO.card[rgb.b]]];
}
ELSE {
v: CARDINAL м CtBasic.GetBWPixel[maps[0].map, pos.x, pos.y];
ViewerTools.SetContents[p.pvalViewer, IO.PutFR1["%g", IO.card[v]]];
};
};
p.rgb м [GetVal[p.redViewer], GetVal[p.greenViewer], GetVal[p.blueViewer]];
p.halfSize м (p.size м GetVal[p.sizeViewer])/2;
p.pval м GetVal[p.pvalViewer];
CtViewer.DoWhileMouseDown[viewer, Poll];
CtViewer.PutBuffer[viewer, maps, affect];
};

Destroy: ViewerClasses.DestroyProc ~ {
CtViewer.UnregisterMouse[NARROW[self.data, Data].paintViewer, MouseProc];
};

Toggle: Buttons.ButtonProc ~ {
p: Data м NARROW[clientData];
p.function м SELECT p.function FROM paint => blur, blur => incr, ENDCASE => paint;
Buttons.ReLabel[p.functionViewer,
SELECT p.function FROM paint => "paint", blur =>  "blur", ENDCASE => "incr"];
};
ViewerOps.RegisterViewerClass[$CtPaint, NEW[ViewerClasses.ViewerClassRecм[destroy:Destroy]]];

CtDispatch.RegisterCtOp["Painting:", NIL, NIL];
CtDispatch.RegisterCtOp["Paint",  CtPaint, ctPaintUsage];

END.


   ┤  
CtPaintCommandImpl.mesa
Copyright ╙ 1990, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 3, 1992 3:51 pm PDT
Types and Globals
Paint Command
Start Code

Э╩╤  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЩJЪЬ	╧eЬ6ЩBJЩ%ЧJШ JЪ╧k	ЬOЮЬ4ЮЬ(Ш╕JШ Ъ╨blЬЮЬЮШ!JЪЮЬOЮЬ$ЮЬШЦЧJШ JЪЬЮШheadЪ╧lЩJЪЬЮЬШ'JЪЬЮЬШ)JЪЮЬЮЬЮЬШJЪЮЬЮЬЮЬШЪЬ
ЮЬШ&JШ ЧJШDJШ ЧЪаЩJЪЬЮЬЮЬ	ШЪЬ	ЮЬЮЬШJЪЬ!ЮЬШ%JЪЬЮЬШJЪЬЮЬШ JЪЬ	Ю	ЬШJЪЬЮ	ЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJЪЬЮЬШJШ)JШJШ ЧЪЬЮЬ1ШCJШ ЧЪ╧nЬШJШ-JЪЬ
ЮЬЮЬЮЬЮЬ
ЮЬЮЬ	Ш;JШJЪ
ЮЬЮЬЮЬЮЬЮЬШ>JЪЬ╧cШ-JШ=JШJШ ЧЪбЬЮЬШЪ
б
ЬЮЬЮЬЮЬЮЬШIJШPJШЧШ5JШJЪЬIЮЬШQЧJШ3JШ2JШ2JШ4JШ3Ш"JШWЧJШJШ ЧЪб	ЬШ!JЪЬ
ЮЬШЪЮЬЮЬШ-JЪЮЬ0Ш4ЧJШJШ ЧЪбЬШЪбЬЮЬЮЬЮЬШ2JЪЬFЮЬШPJЪЮ╧sЬ'ЮЬШJJШЧЪбЬШЪЮЬШJЪЮЬЮЬЮЬШЪЮЬШЪбЬЮЬШЪб	ЬЮ	ЬЮЬШ$JЪЬЮЬШ$ЪЮЬЮЬЮЬЮШ ЪЮЬЮЬЮЬЮШ ЪЮЬШЪЮЬШJЪЬЮЬ%Ш-JШ8JШЧJЪЮЬ3Ш7ЧJЪЮЬШЧJЪЮЬШЧЪЮЬШJЪЮЬгЬгЬгЬгЬгЬШ>JЪЮЬ'ЮЬ	Ш<ЧJШЧЪЮгЬгЮгЮгЬгЮШJЪЮгЬгЮгЮгЬгЮгЬгЬ╨ksЮЬШ3JЪЮЬШЧJШЧЪбЬЮЬШЪЮЬШJЪЮЬ/Ш3JЪЮЬ>ШBЧJШЧЪбЬЮЬШЪЮЬШЪЮЬ
ШJЪЮЬЮЬЮЬШJЪЮЬЮЬЮЬШJЪЮЬЮЬЮЬШЧЪЮЬЮЬЮШJЪЬЮЬЮЬЮЬШGJЪЬЮЬЮЬЮЬШEJЪЮЬШЧЧJШJШЧJЪЬЮЬЮЬШ,JЪЬЮЬЮЬШ,JЪЬЮЬЮЬШ-JЪЬЮЬЮЬШ-ЪЮЬЮЬЮЬШ$JЪЬ
ЮЬЮЬШFJЪЮЬЮЬ"ЮЬШKJШJШЧJШЧЧJШЧJЪЬ
ЮЬШJЪЬЮЬШ"JШ%JШ%ЪЮЬЮЬвШ+JШ0ЪЮЬШЪЮЬШJЪЬЮЬ+Ш3JЪЬ%ЮЬЮЬШFJЪЬ'ЮЬЮЬШHJЪЬ&ЮЬЮЬШGJШЧЪЮЬШJЪЬЮЬ1Ш<JЪЬ&ЮЬЮЬШCJШЧЧJШЧJШKJШ/JШJШ(JШ)JШJШ ЧЪбЬШ&JЪЬЮЬ*ШIJШJШ ЧЪбЬШJЪЬ
ЮЬШJЪЬЮЬЮЬЮЬ
ШRШ!JЪЮЬЮЬ$ЮЬШMЧJШЧЧЪа
Щ
ЪЬ'дЮЬ2Ш]JШ ЧJЪЬ$ЮЬЮЬШ/JШ9JШ ЧJЪЮШJЩ JШ JШ Ч ЕЧ    4  ╣  