
DIRECTORY Controls, ControlsPrivate, Convert, Imager, Real, Rope, ViewerClasses, ViewerOps, ViewerTools;

ControlsFunctionImpl: CEDAR MONITOR
IMPORTS ControlsPrivate, Convert, Imager, Real, Rope, ViewerOps, ViewerTools
EXPORTS Controls, ControlsPrivate

~ BEGIN
Context:					TYPE ~ Imager.Context;
Control:					TYPE ~ Controls.Control;
IntegerPair:				TYPE ~ Controls.IntegerPair;
IntegerSequence:			TYPE ~ Controls.IntegerSequence;
IntegerSequenceRep:	TYPE ~ Controls.IntegerSequenceRep;
Mouse:					TYPE ~ Controls.Mouse;
RealSequence:			TYPE ~ Controls.RealSequence;
RealSequenceRep:		TYPE ~ Controls.RealSequenceRep;
Function:					TYPE ~ REF FunctionRep;
FunctionRep:			TYPE ~ RECORD [
vMul:								REAL м 0.0,				-- (private) value multiplier
screenValues:					IntegerSequence м NIL,	-- (private) screen function values
p0, p1:		 					IntegerPair м []			-- (private) mouse interpolates
];
NewFunction: PUBLIC PROC [control: Control] ~ {
function: Function м NEW[FunctionRep];
IF control.type # function THEN RETURN;
control.functionRef м function;
IF control.values = NIL THEN {
control.values м NEW[RealSequenceRep[control.w]];
FOR i: NAT IN[0..control.values.length) DO
control.values[i] м control.min;
ENDLOOP;
};
IF control.values.length < CARD16[control.w] THEN {
temp: RealSequence м NEW[RealSequenceRep[control.w]];
FOR i: NAT IN[0..control.values.length) DO temp[i] м control.values[i]; ENDLOOP;
control.values м temp;
control.values.length м control.w;
};
function.screenValues м NEW[IntegerSequenceRep[control.w]];
};

ResetFunction: PUBLIC PROC [control: Control, repaint: BOOL м TRUE] ~ {
IF control.type = function THEN {
FOR i: NAT IN[0..control.values.length) DO
control.values[i] м control.min;
ENDLOOP;
IF repaint THEN RequestPaint[control, FALSE, NIL];
};
};

SetFunctionValues: PUBLIC PROC [
control: Control, values: RealSequence, repaint: BOOL м TRUE] ~ {
control.values м values;
IF repaint THEN RequestPaint[control, FALSE, NIL];
};
GetFunctionValues: PUBLIC PROC [control: Control] RETURNS [RealSequence] ~ {
RETURN[control.values];
};
NotifyFunction: PUBLIC PROC [control: Control, mouse: Mouse] ~ {
control.mouse м mouse;
SetInterpolates[control];
IF control.mouse.state # up
THEN RequestPaint[control, FALSE, control]
ELSE ControlsPrivate.MaybeForkControlProc[control];
};

SetInterpolates: PROC [control: Control] ~ {
mouse: Mouse м control.mouse;
function: Function м NARROW[control.functionRef];
SELECT mouse.state FROM
down => SELECT mouse.button FROM
left, middle =>
function.p0 м function.p1 м mouse.pos;
right => {												-- straight lines
function.p0 м function.p1;
function.p1 м mouse.pos;
};
ENDCASE => NULL;
held => SELECT mouse.button FROM
left, middle => {											-- freestyle
function.p0 м function.p1;
function.p1 м mouse.pos;
};
right =>													-- straight lines
function.p1 м mouse.pos;
ENDCASE => NULL;
ENDCASE => NULL;
};
RequestPaint: PROC [control: Control, clearClient: BOOL, whatChanged: REF ANY] ~ {
ViewerOps.PaintViewer[control.viewer, client, clearClient, whatChanged];
IF control.status # NIL THEN {
value: REAL ~ control.values[NARROW[control.functionRef, Function].p1.x];
ViewerTools.SetContents[control.status, Rope.Concat[Convert.FtoRope[value, 3], "      "]];
ViewerOps.PaintViewer[control.status, client];
};
};

PaintFunction: PUBLIC ViewerClasses.PaintProc ~ {
PaintUpdate: PROC ~ {
UpdateOne: PROC [x: INTEGER, y, value: REAL] ~ {	
control.values[x] м value;
Imager.MaskRectangleI[context, x, function.screenValues[x] м Real.Round[y], 1, 1];
};
y: REAL;
x0, x1: INTEGER;
IF function.p1.x > function.p0.x
THEN {x0 м function.p0.x; x1 м function.p1.x; y м function.p0.y}
ELSE {x0 м function.p1.x; x1 м function.p0.x; y м function.p1.y};
Imager.SetColor[context, Imager.white];
FOR x: NAT IN[x0..x1] DO
Imager.MaskRectangleI[context, x, function.screenValues[x], 1, 1];
ENDLOOP;
Imager.SetColor[context, Imager.black];
IF x0 = x1
THEN UpdateOne[x0, y, control.min+function.vMul*y]
ELSE {
value: REAL м control.min+function.vMul*y;
dy: REAL м (function.p1.y-function.p0.y)/(function.p1.x-function.p0.x);
dValue: REAL м function.vMul*dy;
FOR x: NAT IN[x0..x1] DO
UpdateOne[x, y, value];
value м value+dValue;
y м y+dy;
ENDLOOP;
};
};
PaintInit: PROC ~ {
Imager.SetColor[context, Imager.black];
function.vMul м IF self.wh = 0 THEN 1.0 ELSE (control.max-control.min)/(self.wh-3.0);
FOR x: NAT IN[0..control.values.length) DO
y: INTEGER м function.screenValues[x] м
Real.Round[(control.values[x]-control.min)/function.vMul];
Imager.MaskRectangleI[context, x, y, 1, 1];
ENDLOOP;
};
control: Control м NARROW[self.data];
function: Function м NARROW[control.functionRef];
IF function = NIL THEN RETURN;
IF whatChanged = NIL
THEN Imager.DoWithBuffer[context, PaintInit, 0, 0, self.ww, self.wh, Imager.white]
ELSE PaintUpdate[];
};

END.


   №  
ControlsFunctionImpl.mesa
Copyright ╙ 1985, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, July 2, 1992 6:10 pm PDT
Types
Function Type Definitions
Function Initialization/Reading/Setting

Function Notification
Function Painting
 Э╩Ї  ХNewlineDelimiter
Ц"cedarcode" styleЩ ЪЬЩJЪЬ	╧eЬ6ЩBJЩ%JШ JЪ╧k	Ь_ШhJШ ЧЪ╨blЬЮЬЮШ#JЪЮЬEШLЪЮЬШ!JШ ЧЧJЪЬЮШheadЪ╧lЩJЪЬ
ЮЬШ#JЪЬ
ЮЬШ%JЪЬЮЬШ,JЪЬЮЬШ3JЪЬЮЬШ7JЪЬЮЬШ!JЪЬЮЬШ-JЪЬЮЬШ2ЧЪаЩJЪЬЮЬЮЬШ%ЪЬЮЬЮЬШJЪЬ	ЮЬ╧cШ9JЪЬ$ЮЬб#ШLJЪЬ"бШAJШЧЧЪа'Щ'Ъ╧nЬЮЬШ/JЪЬЮЬШ&JЪЮЬЮЬЮЬШ'JШЪЮЬЮЬЮЬШJЪЬЮЬШ1ЪЮЬЮЬЮЬЮШ*JШ JЪЮЬШЧJШЧЪЮЬЮЬЮЬШ3JЪЬЮЬШ5JЪ
ЮЬЮЬЮЬЮЬЮЬШPJШJШ"JШЧJЪЬЮЬ Ш;JШJШ ЧЪ
вЬЮЬЮЬЮЬЮЬШGЪЮЬЮЬШ!ЪЮЬЮЬЮЬЮШ*JШ JЪЮЬШЧJЪЮЬ	ЮЬЮЬЮЬШ2JШЧJШJШ ЧЪвЬЮЬШ JЪЬ1ЮЬЮЬШAJШJЪЮЬ	ЮЬЮЬЮЬШ2JШJЩ ЧЪвЬЮЬЮЬШLJЪЮЬШJШЧЧЪаЩЪвЬЮЬЮЬ%Ш@JШJШЪЮЬШJЪЮЬЮЬ
Ш*JЪЮЬ.Ш3ЧJШJШ ЧЪ╨bnЬЮЬШ,JШJЪЬЮЬШ1ЪЮЬЮШЪЬЮЬЮШ ШJШ&ЧЪЬбШ'JШJШJШЧJЪЮЬЮЬШЧЪЬЮЬЮШ ЪЬбШ(JШJШJШЧЪЬбШ&JШЧJЪЮЬЮЬШЧJЪЮЬЮЬШЧJЪЬШЧЧЪаЩЪ
вЬЮЬ!ЮЬЮЬЮЬШRJШHЪЮЬЮЬЮЬШJЪЬЮЬЮЬ&ШIJЪЬZШZJЪЬ.Ш.JШЧJШJШ ЧЪвЬЮЬШ1ЪвЬЮЬШЪв	ЬЮЬЮЬЮЬШ1JШJШRJЪЬШЧJЪЬЮЬШJЪЬЮЬШЪЮЬШ JЪЮЬ<Ш@JЪЮЬ=ШAЧJЪЬ'Ш'ЪЮЬЮЬЮЬ	ЮШJЪЬBШBJЪЮЬШЧJЪЬ'Ш'ЪЮЬШ
JЪЮЬ.Ш2ЪЮЬШJЪЬЮЬШ*JЪЬЮЬ?ШGJЪЬЮЬШ ЪЮЬЮЬЮЬ	ЮШJШJШJШ	JЪЮЬШЧJШЧЧJЪЬШЧЪв	ЬЮЬШJЪЬ'Ш'JЪЬЮЬЮЬЮЬ)ШUЪЮЬЮЬЮЬЮШ*ЪЬЮЬШ'JЪЬ:Ш:ЧJЪЬ+Ш+JЪЮЬШЧJШЧJЪЬЮЬШ%JЪЬЮЬШ1JЪЮЬЮЬЮЬЮЬШЪЮЬЮШJЪЮЬNШRJЪЮЬШЧJШJШ ЧЧJЪЮЬШJШ JШ Ч ЕЧ    ╚  ╕  