
<<IPTemp.mesa>>
<<Last edited by:>>
<<Doug Wyatt, March 22, 1983 6:21 pm>>

DIRECTORY
IPBasic USING [Any, Integer, Number];

IPTemp: CEDAR DEFINITIONS
= BEGIN OPEN IPBasic;

<<Vectors:>>
Get: PROC[self: State, v: Vector, n: Integer] RETURNS[Any];
MakeVecLU: PROC[self: State, l, u: Integer] RETURNS[Vector];
MakeVec: PROC[self: State, n: Integer] RETURNS[Vector];
Shape: PROC[self: State, v: Vector] RETURNS[VectorShape];
OpenVec: PROC[self: State, v: Vector];
GetProp: PROC[self: State, v: Vector, propName: Any] RETURNS[value: Any, found: BOOL];
GetP: PROC[self: State, v: Vector, propName: Any] RETURNS[Any];
MergeProp: PROC[self: State, v1, v2: Vector] RETURNS[Vector];

<<Frames:>>
Frame: PROC[self: State] RETURNS[Vector];
FGet: PROC[self: State, n: Integer] RETURNS[Any];
FSet: PROC[self: State, x: Any, n: Integer];
PoolOp: PROC[self: State] RETURNS[Operator];
Pool: PROC[self: State] RETURNS[Vector];
PGet: PROC[self: State, n: Integer] RETURNS[Any];
PSet: PROC[self: State, x: Any, n: Integer];
Env: PROC[self: State] RETURNS[Vector];

<<Operators:>>
MakePool: PROC[self: State, v: Vector, persistent: BOOL] RETURNS[Operator];
NoPool: PROC[self: State] RETURNS[Operator];
MakeSimpleCO: PROC[self: State --, b: Body--] RETURNS[Operator];
MakeCO: PROC[self: State, po: Operator, f: Vector --, b: Body--] RETURNS[Operator];
MakeCompiledImage: PROC[self: State, f: Vector --, b: Body--] RETURNS[Operator];

Do: PROC[self: State, o: Operator];
DoSave: PROC[self: State, o: Operator];
DoSaveAll: PROC[self: State, o: Operator];
dosavesimplebody: PROC[self: State, arg: Arg] RETURNS[result];
dobody: PROC[self: State, arg: Arg] RETURNS[result];
dosavebody: PROC[self: State, arg: Arg] RETURNS[result];
dosaveallbody: PROC[self: State, arg: Arg] RETURNS[result];

<<Stack:>>
pop: PROC[self: State, arg: Arg] RETURNS[result];
copy: PROC[self: State, arg: Arg] RETURNS[result];
dup: PROC[self: State, arg: Arg] RETURNS[result];
roll: PROC[self: State, arg: Arg] RETURNS[result];
exch: PROC[self: State, arg: Arg] RETURNS[result];
mark: PROC[self: State, arg: Arg] RETURNS[result];
unmark: PROC[self: State, arg: Arg] RETURNS[result];
unmark0: PROC[self: State, arg: Arg] RETURNS[result];
count: PROC[self: State, arg: Arg] RETURNS[result];
nop: PROC[self: State, arg: Arg] RETURNS[result];

<<Control:>>
if: PROC[self: State, arg: Arg] RETURNS[result];
ifelse: PROC[self: State, arg: Arg] RETURNS[result];
ifcopy: PROC[self: State, arg: Arg] RETURNS[result];
loop: PROC[self: State, arg: Arg] RETURNS[result];

<<Test:>>
eq: PROC[self: State, arg: Arg] RETURNS[result];
eqn: PROC[self: State, arg: Arg] RETURNS[result];
gt: PROC[self: State, arg: Arg] RETURNS[result];
ge: PROC[self: State, arg: Arg] RETURNS[result];
and: PROC[self: State, arg: Arg] RETURNS[result];
or: PROC[self: State, arg: Arg] RETURNS[result];
not: PROC[self: State, arg: Arg] RETURNS[result];
type: PROC[self: State, arg: Arg] RETURNS[result];

<<Arithmetic:>>
add: PROC[self: State, arg: Arg] RETURNS[result];
sub: PROC[self: State, arg: Arg] RETURNS[result];
neg: PROC[self: State, arg: Arg] RETURNS[result];
abs: PROC[self: State, arg: Arg] RETURNS[result];
trunc: PROC[self: State, arg: Arg] RETURNS[result];
round: PROC[self: State, arg: Arg] RETURNS[result];
floor: PROC[self: State, arg: Arg] RETURNS[result];
ceiling: PROC[self: State, arg: Arg] RETURNS[result];
mul: PROC[self: State, arg: Arg] RETURNS[result];
div: PROC[self: State, arg: Arg] RETURNS[result];
mod: PROC[self: State, arg: Arg] RETURNS[result];
rem: PROC[self: State, arg: Arg] RETURNS[result];

max: PROC[self: State, arg: Arg] RETURNS[result];
min: PROC[self: State, arg: Arg] RETURNS[result];
sqrt: PROC[self: State, arg: Arg] RETURNS[result];
exp: PROC[self: State, arg: Arg] RETURNS[result];
log: PROC[self: State, arg: Arg] RETURNS[result];
sin: PROC[self: State, arg: Arg] RETURNS[result];
cos: PROC[self: State, arg: Arg] RETURNS[result];
atan: PROC[self: State, arg: Arg] RETURNS[result];

<<Imager state:>>
iget: PROC[self: State, arg: Arg] RETURNS[result];
iset: PROC[self: State, arg: Arg] RETURNS[result];

<<Coordinate systems:>>
dround: PROC[self: State, arg: Arg] RETURNS[result];

<<Transformations:>>
maket: PROC[self: State, arg: Arg] RETURNS[result];
opent: PROC[self: State, arg: Arg] RETURNS[result];
translate: PROC[self: State, arg: Arg] RETURNS[result];
rotate: PROC[self: State, arg: Arg] RETURNS[result];
scale: PROC[self: State, arg: Arg] RETURNS[result];
scale2: PROC[self: State, arg: Arg] RETURNS[result];
concat: PROC[self: State, arg: Arg] RETURNS[result];
invert: PROC[self: State, arg: Arg] RETURNS[result];

transform: PROC[self: State, arg: Arg] RETURNS[result];
transformvec: PROC[self: State, arg: Arg] RETURNS[result];
roundxy: PROC[self: State, arg: Arg] RETURNS[result];
roundxyvec: PROC[self: State, arg: Arg] RETURNS[result];

concatt: PROC[self: State, arg: Arg] RETURNS[result];
move: PROC[self: State, arg: Arg] RETURNS[result];
trans: PROC[self: State, arg: Arg] RETURNS[result];
show: PROC[self: State, arg: Arg] RETURNS[result];
showandxrel: PROC[self: State, arg: Arg] RETURNS[result];

<<Current position:>>
setxy: PROC[self: State, arg: Arg] RETURNS[result];
setxyrel: PROC[self: State, arg: Arg] RETURNS[result];
setxrel: PROC[self: State, arg: Arg] RETURNS[result];
setyrel: PROC[self: State, arg: Arg] RETURNS[result];
getcp: PROC[self: State, arg: Arg] RETURNS[result];
getcprounded: PROC[self: State, arg: Arg] RETURNS[result];

<<Pixel arrays:>>
makepixelarray: PROC[self: State, arg: Arg] RETURNS[result];
finddecompressor: PROC[self: State, arg: Arg] RETURNS[result];

<<Color:>>
findcolor: PROC[self: State, arg: Arg] RETURNS[result];
findcoloroperator: PROC[self: State, arg: Arg] RETURNS[result];
findcolormodeloperator: PROC[self: State, arg: Arg] RETURNS[result];

makegray: PROC[self: State, arg: Arg] RETURNS[result];
setgray: PROC[self: State, arg: Arg] RETURNS[result];
makesampledblack: PROC[self: State, arg: Arg] RETURNS[result];
makesampledcolor: PROC[self: State, arg: Arg] RETURNS[result];

<<Masks:>>
moveto: PROC[self: State, arg: Arg] RETURNS[result];
lineto: PROC[self: State, arg: Arg] RETURNS[result];
linetox: PROC[self: State, arg: Arg] RETURNS[result];
linetoy: PROC[self: State, arg: Arg] RETURNS[result];
curveto: PROC[self: State, arg: Arg] RETURNS[result];
arcto: PROC[self: State, arg: Arg] RETURNS[result];
conicto: PROC[self: State, arg: Arg] RETURNS[result];
makeoutline: PROC[self: State, arg: Arg] RETURNS[result];

maskfill: PROC[self: State, arg: Arg] RETURNS[result];
maskstroke: PROC[self: State, arg: Arg] RETURNS[result];
maskstrokeclosed: PROC[self: State, arg: Arg] RETURNS[result];
maskvector: PROC[self: State, arg: Arg] RETURNS[result];
maskrectangle: PROC[self: State, arg: Arg] RETURNS[result];

startunderline: PROC[self: State, arg: Arg] RETURNS[result];
maskunderline: PROC[self: State, arg: Arg] RETURNS[result];
masktrapezoidx: PROC[self: State, arg: Arg] RETURNS[result];
masktrapezoidy: PROC[self: State, arg: Arg] RETURNS[result];
maskpixel: PROC[self: State, arg: Arg] RETURNS[result];

clipoutline: PROC[self: State, arg: Arg] RETURNS[result];
cliprectangle: PROC[self: State, arg: Arg] RETURNS[result];

<<Characters:>>
findfont: PROC[self: State, arg: Arg] RETURNS[result];
findfontvec: PROC[self: State, arg: Arg] RETURNS[result];
modifyfont: PROC[self: State, arg: Arg] RETURNS[result];
setfont: PROC[self: State, arg: Arg] RETURNS[result];

<<Corrected masks:>>
correctmask: PROC[self: State, arg: Arg] RETURNS[result];
correctspace: PROC[self: State, arg: Arg] RETURNS[result];
setcorrectmeasure: PROC[self: State, arg: Arg] RETURNS[result];
setcorrecttolerance: PROC[self: State, arg: Arg] RETURNS[result];
space: PROC[self: State, arg: Arg] RETURNS[result];

correct: PROC[self: State, arg: Arg] RETURNS[result];

END.