DIRECTORYRope USING [ROPE];IPBasic: CEDAR DEFINITIONS= BEGINValueType: TYPE = MACHINE DEPENDENT {nil(0),number(1), identifier(2), vector(3), operator(4),transformation(5), pixelArray(6), color(7), trajectory(8), outline(9),(LAST[CARDINAL])};maxInteger: INT = 16777215; -- 2^24 - 1Integer: TYPE = INT--[0..maxInteger]--;Rational: TYPE = RECORD[num, den: INT];Number: TYPE = RECORD[SELECT tag: * FROMint => [i: Integer], -- a Number known to be an Integerreal => [r: REAL], -- any Number (note that Integers have two equivalent representations)ENDCASE];zero: Number = [int[0]];Any: TYPE = RECORD[type: ValueType, ref: REF _ NIL, number: Number _ zero];nullAny: Any = [type: nil, ref: NIL, number: zero];ROPE: TYPE = Rope.ROPE;Identifier: TYPE = ATOM;Marker: TYPE = LONG CARDINAL; -- a unique mark value associated with a contextnullMarker: Marker = 0;Vec: TYPE = REF VecRep; -- a constructed vector, from MAKEVEC or MAKEVECLUVecRep: TYPE = RECORD[shape: VectorShape,array: SEQUENCE size: NAT OF Any];VectorShape: TYPE = RECORD[l, n: Integer]; -- l is lower bound, n is number of elementsVector: TYPE = REF; -- currently: Vec, ROPE, or FontPrimitiveOrSymbol: TYPE = {nil, -- a primitive operator or symbolget, makeveclu, makevec, shape, openvec, getprop, getp, mergeprop,fget, fset, frame, poolop, pool, pget, pset, env,makesimpleco, makeco, makecompiledimage, makepool, nopool,do, dosave, dosaveall, dosavesimplebody, dobody, dosavebody, dosaveallbody,pop, copy, dup, roll, exch, mark, unmark, unmark0, count, nop,if, ifelse, ifcopy, loop,eq, eqn, gt, ge, and, or, not, type,add, sub, neg, abs, trunc, round, floor, ceiling, mul, div, mod, rem,max, min, sqrt, exp, log, sin, cos, atan,iget, iset,dround,maket, opent, translate, rotate, scale, scale2, concat, invert,transform, transformvec, roundxy, roundxyvec,concatt, move, trans, show, showandxrel,setxy, setxyrel, setxrel, setyrel, getcp, getcprounded,makepixelarray, finddecompressor,findcolor, findcoloroperator, findcolormodeloperator,makegray, setgray, makesampledblack, makesampledcolor,moveto, lineto, linetox, linetoy, curveto, arcto, conicto, makeoutline,maskfill, maskstroke, maskstrokeclosed, maskvector, maskrectangle,startunderline, maskunderline, masktrapezoidx, masktrapezoidy, maskpixel,clipoutline, cliprectangle,findfont, findfontvec, modifyfont, setfont,correctmask, correctspace, setcorrectmeasure, setcorrecttolerance, space,correct,beginBody, endBody, beginBlock, endBlock, pageInstructions, noPages,beginVec, comma, endVec -- for written form only};PrimitiveOp: TYPE = PrimitiveOrSymbol[nil..correct];Operator: TYPE = REF OperatorRep;ComposedOp: TYPE = REF OperatorRep[composed]; -- a composed operator, from MAKECO, ...InternalOp: TYPE = REF OperatorRep[internal]; -- an internal operatorOperatorRep: TYPE = RECORD[SELECT tag: * FROMcomposed => [start: Index, initialFrame: Vec],internal => [proc: PROC[State, REF], data: REF],ENDCASE];Index: TYPE = INT; -- a byte position in the masternullIndex: Index = -1;SaveType: TYPE = {nil, save, saveAll}; -- parameter to DO and friendsState: TYPE = REF StateRep; -- access to the interpreter stateStateRep: TYPE; -- see IPStateEND.  ,  IPBasic.mesaThe most basic Interpress types.Last edited by:Doug Wyatt, July 7, 1983 3:13 pmVectors:Frames:Operators:Stack:Control:Test:Arithmetic:Imager state:Coordinate systems:Transformations:Current position:Pixel arrays:Color:Masks:Characters:Corrected masks:Symbols: ÊÑ  ˜ headšœ™Jšœ ™ J™ šœ™Jšœ ™ —J˜ šÏk	˜	Jšœœœ˜——šœ	œ˜Jšœ˜J˜ šœœœ	œ	˜,Jšœ1˜1JšœF˜FJšœœœ˜—J˜ JšœœÏc˜'Jšœ	œžœ˜'J˜ Jšœ
œœœ˜'J˜ šœœœœ˜(Jšœž"˜7JšœœžF˜YJš˜J˜—Jšœ˜J˜ Jš	œœœœœ˜KJšœ œ˜3J˜ Jšœœœ˜J˜ Jšœœœ˜J˜ Jšœœœœž0˜NJšœ˜J˜ Jš	œœœ	žž	˜Jšœœœ˜Jšœ˜Jšœœœœ˜ J˜—J˜ Jšœœœž,˜WJ˜ Jšœœœž ˜4J˜ šœœ	ž!˜Ašœ™J˜B—šœ™J˜1—šœ
™
J˜:J˜K—šœ™J˜>—šœ™J˜—šœ™J˜$—šœ™J˜EJ˜)—šœ™J˜—šœ™J˜—šœ™J˜?J˜-J˜(—šœ™J˜7—šœ™J˜!—šœ™J˜5J˜6—šœ™J˜GJ˜BJ˜IJ˜—šœ™J˜+—šœ™J˜IJ˜—šœ™J˜DJšœž˜0—J˜—J˜ Jšœœ#˜4J˜ Jšœ
œœ˜!Jšœœœžž˜VJšœœœž˜EJ˜ šœœœ˜šœ˜Jšœ.˜.Jšœœœ	œ˜0Jš˜—J˜—J˜ Jšœœœž ˜3Jšœ˜J˜ Jšœ
œžž˜EJ˜ Jšœœœž"˜>Jšœ
œž˜J˜ Jšœ˜—J˜ — …—    ®  «  