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. NIPPrimitiveImpl.mesa Last edited by: Doug Wyatt, July 7, 1983 11:47 am Κ{˜headšœ™šœ™Jšœ!™!—J˜šΟk ˜ JšœΟcœ˜&Jšœœ˜#Jšœžœ˜'Jšœ œ˜(—J˜—šœœ˜Jšœ$˜+Jšœ ˜Jšœœœ˜"J˜šœœ œœ˜1Jšœ˜Jšœ+˜+Jšœ'˜'Jšœ#˜#Jšœ'˜'Jšœ'˜'Jšœ!˜!Jšœ+˜+Jšœ!˜!Jšœ!˜!Jšœ#˜#Jšœ%˜%Jšœ!˜!Jšœ!˜!Jšœ!˜!Jšœ˜Jšœ1˜1Jšœ%˜%Jšœ;˜;Jšœ)˜)Jšœ%˜%Jšœ˜Jšœ%˜%Jšœ+˜+Jšœ9˜9Jšœ%˜%Jšœ-˜-Jšœ3˜3Jšœ˜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šœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ!˜!Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ!˜!Jšœ"˜"Jšœ"˜"Jšœ&˜&Jšœ$˜$Jšœ$˜$Jšœ,˜,Jšœ&˜&Jšœ$˜$Jšœ&˜&Jšœ&˜&Jšœ&˜&Jšœ,˜,Jšœ2˜2Jšœ(˜(Jšœ.˜.Jšœ(˜(Jšœ"˜"Jšœ$˜$Jšœ"˜"Jšœ0˜0Jšœ$˜$Jšœ*˜*Jšœ(˜(Jšœ(˜(Jšœ$˜$Jšœ2˜2Jšœ6˜6Jšœ:˜:Jšœ,˜,Jšœ<˜