
DIRECTORY  Commander, Controls, CtBasic, CtMisc, Draw2d, G3dBasic, G3dControl, G3dMatrix, G3dTool, Imager, Rope, ImplicitDefs;

ImplicitSlice: CEDAR DEFINITIONS

~ BEGIN
CommandProc:		TYPE ~ Commander.CommandProc;
ButtonList: 			TYPE ~ Controls.ButtonList;
ControlList: 			TYPE ~ Controls.ControlList;
Typescript: 			TYPE ~ Controls.Typescript;
Viewer: 				TYPE ~ Controls.Viewer;
Box:					TYPE ~ CtBasic.Box;
SampleMaps:			TYPE ~ CtBasic.SampleMaps;
DrawProc: 			TYPE ~ Draw2d.DrawProc;
Triple:				TYPE ~ G3dBasic.Triple;
Slice:					TYPE ~ G3dControl.Slice;
Matrix: 				TYPE ~ G3dMatrix.Matrix;
RenderTool:			TYPE ~ G3dTool.Tool;
Context: 				TYPE ~ Imager.Context;
VEC: 					TYPE ~ Imager.VEC;
DiagramProc: 		TYPE ~ ImplicitDefs.DiagramProc;
ValueProc: 			TYPE ~ ImplicitDefs.ValueProc;
ROPE: 				TYPE ~ Rope.ROPE;
Function:				TYPE ~ RECORD [
name:							ROPE м NIL,
valueProc:					ValueProc м NIL,
diagramProc:					DiagramProc  м NIL];

Pix:					TYPE ~ REF PixRep;
PixRep:				TYPE ~ RECORD [
name:							ROPE м NIL,
valueProc:					ValueProc м NIL,
diagramProc:					DiagramProc м NIL,
start:							VEC,
context:						Context м NIL,
maps:							SampleMaps,
box:							Box
];

PixSequence:			TYPE ~ RECORD [element: SEQUENCE length: CARDINAL OF Pix];

Mode:					TYPE ~ {slice, sprite};

Tool:					TYPE ~ REF ToolRep;
ToolRep:				TYPE ~ RECORD [
renderTool:					RenderTool м NIL,
typescript:					Typescript м NIL,
mode:							Mode м slice,
slice:							Slice м NIL,							-- the slice to compute
moveSlice:					REAL м -0.03,						-- amount to move each slice
showSlice:					BOOL м TRUE,
xSize, ySize:					NAT м 80,							-- size of slice in pixels
worldToLf:					Matrix м NIL,
lfToWorld:					Matrix м NIL,
cdContext:					Context,								-- color display Imager context
cdMaps:						SampleMaps,							-- color display sample maps
pixes:							REF PixSequence м NIL,
pixPicked:					Pix м NIL,
point:							Triple м [],
value:							REAL м 0.0,
valueViewer:				Viewer м NIL,
stop:							BOOL м FALSE,						-- abort drawing or exploring
stopReason:					ROPE м NIL,							-- reason for stopping
clientDraw:					DrawProc м NIL,
clientData:					REF ANY м NIL 						-- client data
];

MakeTool: PROC [
toolName: ROPE,										-- name of the tool
functions: LIST OF Function м NIL,				-- the functions, their names, etc. to shade
clientDraw: DrawProc м NIL,						-- client supplied proc to draw the model
clientData: REF ANY м NIL,						-- client supplied data passed to valueProcs
extraControls: ControlList м NIL,					-- in addition to the standard set
extraButtons: ButtonList м NIL]					-- in addition to the standard set
RETURNS [Tool];

Repaint: PROC [tool: Tool, whatChanged: REF ANY м NIL];
Register: PROC [
name:			ROPE,				-- name of option
command:	CommandProc,	-- proc to be called
doc:			ROPE];			-- documentation of option
ToolOptions: PROC RETURNS [toolOptions: ROPE];

ExecuteOption: CommandProc;
END.
   D  
ImplicitSlice.mesa
Copyright ╙ 1985, 1990 by Xerox Corporation.  All rights reserved.
Bloomenthal, August 11, 1992 4:07 pm PDT
Imported Types
Local Types
watchData:					WatchData,
Old:
ToolRep:				TYPE ~ RECORD [
Book-keeping:
name:						ROPE м NIL,							-- name of the tool
directory:					ROPE м NIL,							-- commander's directory
Controls:
controls:					ControlList м NIL,					-- sliders and dials
buttons:					ButtonList м NIL,					-- menu
camera:					Camera м NIL,						-- viewing control
slice:						Slice м NIL,							-- the slice to compute
Viewing/Drawing:
outer:						Viewer м NIL,						-- parent viewer
outerData:				OuterData м NIL,					-- associated data
typescript:				Typescript м NIL,					-- for user io
graphics:					Viewer м NIL,						-- graphics viewer
clientDraw:				DrawProc м NIL,					-- client supplied drawProc
watchData:				WatchData,
showSlice:				BOOL м TRUE,
Transforms:
worldToLf:				Matrix м NIL,
lfToWorld:				Matrix м NIL,
Shade2d:
xSize, ySize:				NAT м 80,
cdContext:				Context,								-- color display Imager context
cdMaps:					SampleMaps,							-- color display sample maps
pixes:						REF PixSequence м NIL,
pixPicked:					Pix м NIL,
value:						REAL м 0.0,
move:						REAL м -0.03,
State:
stop:						BOOL м FALSE,						-- abort drawing or exploring
stopReason:					ROPE м NIL,							-- stopReason for stopping
Geometry:
point:						Triple,
Data:
clientData:				REF ANY м NIL 					-- client data
];
Implicit Test Tool
Return a tool for shading a two-dimensional slice of an implicit function.

The standard set of controls include:
x, y, z global rotations,
viewing scale,
viewing field of view,

The standard set of buttons include:
measure mode
distance mode
implicit tolerance
implicit threshold
implicit spread
move
start
stop.

Repaint the graphics viewer associated with the tool.
Registration and Dispatching
Register a command proc with Implicit Slice;
subsequently, it may be invoked from the commander by "ImplicitSlice <name>"

Return a rope listing the registered ImplicitSlice options.
Execute the named option; may return [$Failure, "No such option."].

 Э╩я  ХNewlineDelimiter
Щ ЩJЪЬBЩBJЩ(JШ JЪ╧k	ЬuШ~JШ ЧЪ╨blЬЭЬЭШ JШ ЧJЪЬЭШheadЪ╧lЩJЪЬЭЬШ+JЪЬЭЬШ*JЪЬЭЬШ,JЪЬЭЬШ*JЪЬ
ЭЬШ#JЪЬЭЬШJЪЬЭЬШ(JЪЬЭЬШ$JЪЬ
ЭЬШ"JЪЬ
ЭЬШ#JЪЬЭЬШ$JЪЬЭЬШ"JЪЬЭЬШ#JЪЭЬЭЬ
ЭЬШJЪЬЭЬШ/JЪЬЭЬШ,JЪЭЬЭЬЭЬШЧЪЯЩЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬШJЪЬ ЭЬШ%JШ ЧJЪЬ	ЭЬЭЬШЪЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬЭЬШJЪЬЭЬШ#JЪЬЭЬШJЪЬЭЬШJШJШJШJШ ЧЪЬЭЬЭЬЭЬ	ЭЬЭЬШIJШ ЧЪЬ
ЭЬШ!JШ ЧJЪЬЭЬЭЬ	ШЪЬ	ЭЬЭЬШJЪЬЭЬШ!JЪЬЭЬШ!JШJЪЬЭЬ╧cШ7JЪЬЭЬаШ>JЪЬЭЬЭЬШJЪЬЭЬаШ<JЩJЪЬЭЬШJЪЬЭЬШJЪЬаШ>JЪЬаШ;JЪЬЭЬЭЬШ#JЪЬЭЬШJШJЪЬЭЬШJЪЬЭЬШJЪЬЭЬЭЬаШ<JЪЬЭЬЭЬаШ8JЪЬЭЬШJЪЬЭЬЭЬЭЬаШ2JШJШ ЧЩЪЬ	ЭЬЭЬЩЩJЪЬЭЬЭЬаЩ0JЪЬЭЬЭЬаЩ9ЧЩ	JЪЬЭЬаЩ9JЪЬЭЬаЩ*JЪЬЭЬаЩ1JЪЬЭЬаЩ6ЧЩJЪЬЭЬаЩ/JЪЬЭЬаЩ5JЪЬЭЬаЩ3JЪЬЭЬаЩ3JЪЬЭЬаЩ>JЩJЪЬЭЬЭЬЩЧЩJЪЬЭЬЩJЪЬЭЬЩЧЩJЪЬЭЬЩJЪЬаЩ=JЪЬаЩ:JЪЬЭЬЭЬЩ"JЪЬЭЬЩJЪЬЭЬЩJЪЬЭЬ	ЩЧЩJЪЬЭЬЭЬаЩ;JЪЬЭЬЭЬаЩ<ЧЩ	JЩЧЩJЪЬЭЬЭЬЭЬаЩ0ЧJЩЧЧЧЪЯЩЪ╧nЬЭЬШJЪЬ
ЭЬаШ,JЪЬЭЬЭЬЭЬа,ШRJЪЬЭЬа)ШJJЪЬЭЬЭЬЭЬа,ШLJЪЬЭЬа"ШHJЪЬЭЬа"ШFJЪЭЬШJШ ЩJJЩ ЧЩ%JЩJЩJЩJЩ ЧЩ$JЩJЩJЩJЩJЩJЩJЩJЩJЩ ЧЧЪ
бЬЭЬЭЬЭЬЭЬШ7JЩ5ЧЧЪЯЩЪбЬЭЬШJЪЬЭЬаШ"JЪЬаШ*JЪЬЭЬаШ*JЩ,JЩLJЩ ЧЪбЬЭЬЭЬЭЬШ.JЩ;JШ ЧЪбЬШJЩCЧЧJЩ JЪЭЬШЧ ЕЧ    `  У  