IPPrimitiveImpl.mesa
Last edited by:
Doug Wyatt, July 7, 1983 11:47 am
DIRECTORY
IPBasePrimitives --USING everything--,
IPBasic USING [PrimitiveOp, State],
IPImagePrimitives --USING everything--,
IPPrimitive USING [OpTable, OpTableRep];
IPPrimitiveImpl: CEDAR PROGRAM
IMPORTS IPBasePrimitives, IPImagePrimitives
EXPORTS IPPrimitive
= BEGIN OPEN IPPrimitive, IPBasic;
ops: PUBLIC OpTable ← NEW[OpTableRep = [nil: NIL,
get: IPBasePrimitives.ApplyGET,
makeveclu: IPBasePrimitives.ApplyMAKEVECLU,
makevec: IPBasePrimitives.ApplyMAKEVEC,
shape: IPBasePrimitives.ApplySHAPE,
openvec: IPBasePrimitives.ApplyOPENVEC,
getprop: IPBasePrimitives.ApplyGETPROP,
getp: IPBasePrimitives.ApplyGETP,
mergeprop: IPBasePrimitives.ApplyMERGEPROP,
fget: IPBasePrimitives.ApplyFGET,
fset: IPBasePrimitives.ApplyFSET,
frame: IPBasePrimitives.ApplyFRAME,
poolop: IPBasePrimitives.ApplyPOOLOP,
pool: IPBasePrimitives.ApplyPOOL,
pget: IPBasePrimitives.ApplyPGET,
pset: IPBasePrimitives.ApplyPSET,
env: IPBasePrimitives.ApplyENV,
makesimpleco: IPBasePrimitives.ApplyMAKESIMPLECO,
makeco: IPBasePrimitives.ApplyMAKECO,
makecompiledimage: IPBasePrimitives.ApplyMAKECOMPILEDIMAGE,
makepool: IPBasePrimitives.ApplyMAKEPOOL,
nopool: IPBasePrimitives.ApplyNOPOOL,
do: IPBasePrimitives.ApplyDO,
dosave: IPBasePrimitives.ApplyDOSAVE,
dosaveall: IPBasePrimitives.ApplyDOSAVEALL,
dosavesimplebody: IPBasePrimitives.ApplyDOSAVESIMPLEBODY,
dobody: IPBasePrimitives.ApplyDOBODY,
dosavebody: IPBasePrimitives.ApplyDOSAVEBODY,
dosaveallbody: IPBasePrimitives.ApplyDOSAVEALLBODY,
pop: IPBasePrimitives.ApplyPOP,
copy: IPBasePrimitives.ApplyCOPY,
dup: IPBasePrimitives.ApplyDUP,
roll: IPBasePrimitives.ApplyROLL,
exch: IPBasePrimitives.ApplyEXCH,
mark: IPBasePrimitives.ApplyMARK,
unmark: IPBasePrimitives.ApplyUNMARK,
unmark0: IPBasePrimitives.ApplyUNMARK0,
count: IPBasePrimitives.ApplyCOUNT,
nop: IPBasePrimitives.ApplyNOP,
if: IPBasePrimitives.ApplyIF,
ifelse: IPBasePrimitives.ApplyIFELSE,
ifcopy: IPBasePrimitives.ApplyIFCOPY,
loop: IPBasePrimitives.ApplyLOOP,
eq: IPBasePrimitives.ApplyEQ,
eqn: IPBasePrimitives.ApplyEQN,
gt: IPBasePrimitives.ApplyGT,
ge: IPBasePrimitives.ApplyGE,
and: IPBasePrimitives.ApplyAND,
or: IPBasePrimitives.ApplyOR,
not: IPBasePrimitives.ApplyNOT,
type: IPBasePrimitives.ApplyTYPE,
add: IPBasePrimitives.ApplyADD,
sub: IPBasePrimitives.ApplySUB,
neg: IPBasePrimitives.ApplyNEG,
abs: IPBasePrimitives.ApplyABS,
trunc: IPBasePrimitives.ApplyTRUNC,
round: IPBasePrimitives.ApplyROUND,
floor: IPBasePrimitives.ApplyFLOOR,
ceiling: IPBasePrimitives.ApplyCEILING,
mul: IPBasePrimitives.ApplyMUL,
div: IPBasePrimitives.ApplyDIV,
mod: IPBasePrimitives.ApplyMOD,
rem: IPBasePrimitives.ApplyREM,
max: IPBasePrimitives.ApplyMAX,
min: IPBasePrimitives.ApplyMIN,
sqrt: IPBasePrimitives.ApplySQRT,
exp: IPBasePrimitives.ApplyEXP,
log: IPBasePrimitives.ApplyLOG,
sin: IPBasePrimitives.ApplySIN,
cos: IPBasePrimitives.ApplyCOS,
atan: IPBasePrimitives.ApplyATAN,
iget: IPImagePrimitives.ApplyIGET,
iset: IPImagePrimitives.ApplyISET,
dround: IPImagePrimitives.ApplyDROUND,
maket: IPImagePrimitives.ApplyMAKET,
opent: IPImagePrimitives.ApplyOPENT,
translate: IPImagePrimitives.ApplyTRANSLATE,
rotate: IPImagePrimitives.ApplyROTATE,
scale: IPImagePrimitives.ApplySCALE,
scale2: IPImagePrimitives.ApplySCALE2,
concat: IPImagePrimitives.ApplyCONCAT,
invert: IPImagePrimitives.ApplyINVERT,
transform: IPImagePrimitives.ApplyTRANSFORM,
transformvec: IPImagePrimitives.ApplyTRANSFORMVEC,
roundxy: IPImagePrimitives.ApplyROUNDXY,
roundxyvec: IPImagePrimitives.ApplyROUNDXYVEC,
concatt: IPImagePrimitives.ApplyCONCATT,
move: IPImagePrimitives.ApplyMOVE,
trans: IPImagePrimitives.ApplyTRANS,
show: IPImagePrimitives.ApplySHOW,
showandxrel: IPImagePrimitives.ApplySHOWANDXREL,
setxy: IPImagePrimitives.ApplySETXY,
setxyrel: IPImagePrimitives.ApplySETXYREL,
setxrel: IPImagePrimitives.ApplySETXREL,
setyrel: IPImagePrimitives.ApplySETYREL,
getcp: IPImagePrimitives.ApplyGETCP,
getcprounded: IPImagePrimitives.ApplyGETCPROUNDED,
makepixelarray: IPImagePrimitives.ApplyMAKEPIXELARRAY,
finddecompressor: IPImagePrimitives.ApplyFINDDECOMPRESSOR,
findcolor: IPImagePrimitives.ApplyFINDCOLOR,
findcoloroperator: IPImagePrimitives.ApplyFINDCOLOROPERATOR,
findcolormodeloperator: IPImagePrimitives.ApplyFINDCOLORMODELOPERATOR,
makegray: IPImagePrimitives.ApplyMAKEGRAY,
setgray: IPImagePrimitives.ApplySETGRAY,
makesampledblack: IPImagePrimitives.ApplyMAKESAMPLEDBLACK,
makesampledcolor: IPImagePrimitives.ApplyMAKESAMPLEDCOLOR,
moveto: IPImagePrimitives.ApplyMOVETO,
lineto: IPImagePrimitives.ApplyLINETO,
linetox: IPImagePrimitives.ApplyLINETOX,
linetoy: IPImagePrimitives.ApplyLINETOY,
curveto: IPImagePrimitives.ApplyCURVETO,
arcto: IPImagePrimitives.ApplyARCTO,
conicto: IPImagePrimitives.ApplyCONICTO,
makeoutline: IPImagePrimitives.ApplyMAKEOUTLINE,
maskfill: IPImagePrimitives.ApplyMASKFILL,
maskstroke: IPImagePrimitives.ApplyMASKSTROKE,
maskstrokeclosed: IPImagePrimitives.ApplyMASKSTROKECLOSED,
maskvector: IPImagePrimitives.ApplyMASKVECTOR,
maskrectangle: IPImagePrimitives.ApplyMASKRECTANGLE,
startunderline: IPImagePrimitives.ApplySTARTUNDERLINE,
maskunderline: IPImagePrimitives.ApplyMASKUNDERLINE,
masktrapezoidx: IPImagePrimitives.ApplyMASKTRAPEZOIDX,
masktrapezoidy: IPImagePrimitives.ApplyMASKTRAPEZOIDY,
maskpixel: IPImagePrimitives.ApplyMASKPIXEL,
clipoutline: IPImagePrimitives.ApplyCLIPOUTLINE,
cliprectangle: IPImagePrimitives.ApplyCLIPRECTANGLE,
findfont: IPImagePrimitives.ApplyFINDFONT,
findfontvec: IPImagePrimitives.ApplyFINDFONTVEC,
modifyfont: IPImagePrimitives.ApplyMODIFYFONT,
setfont: IPImagePrimitives.ApplySETFONT,
correctmask: IPImagePrimitives.ApplyCORRECTMASK,
correctspace: IPImagePrimitives.ApplyCORRECTSPACE,
setcorrectmeasure: IPImagePrimitives.ApplySETCORRECTMEASURE,
setcorrecttolerance: IPImagePrimitives.ApplySETCORRECTTOLERANCE,
space: IPImagePrimitives.ApplySPACE,
correct: IPImagePrimitives.ApplyCORRECT
]];
END.