IPBasic: CEDAR DEFINITIONS ~ BEGIN Op: TYPE ~ {nil, get, makeveclu, makevec, shape, openvec, getprop, getp, mergeprop, -- 2.4.3 frame, fget, fset, poolop, pool, pget, pset, env, -- 2.4.4 makepool, nopool, makeco, makesimpleco, do, dosave, dosaveall, -- 2.4.5 dobody, dosavebody, dosaveallbody, dosavesimplebody, makecompiledimage, pop, copy, dup, roll, exch, mark, unmark, unmark0, count, nop, error, -- 2.4.6 if, ifelse, ifcopy, loop, -- 2.4.7 eq, eqname, gt, ge, and, or, not, type, -- 2.4.8 add, sub, neg, abs, floor, ceiling, trunc, round, mul, div, mod, rem, -- 2.4.9 max, min, sqrt, exp, log, sin, cos, atan, iget, iset, -- 4.2 dround, -- 4.3.5 maket, opent, translate, rotate, scale, scale2, concat, invert, -- 4.4.3 transform, transformvec, roundxy, roundxyvec, -- 4.4.4 concatt, move, trans, -- 4.4.5 show, showandxrel, -- 4.4.6 setxy, setxyrel, setxrel, setyrel, getcp, getcprounded, -- 4.5 makepixelarray, extractpixelarray, -- 4.6 finddecompressor, -- 4.6.1 makegray, findcolor, findcoloroperator, findcolormodeloperator, -- 4.7.1 makesampledcolor, makesampledblack, -- 4.7.2 setgray, -- 4.7.3 moveto, lineto, linetox, linetoy, curveto, conicto, arcto, makeoutline, -- 4.8.1 maskfill, maskstroke, maskstrokeclosed, maskvector, maskrectangle, -- 4.8.2 startunderline, maskunderline, masktrapezoidx, masktrapezoidy, maskpixel, -- 4.8.3 clipoutline, cliprectangle, -- 4.8.4 findfont, findfontvec, -- 4.9.1 modifyfont, setfont, -- 4.9.2 correctmask, correctspace, correct, -- 4.10 setcorrectmeasure, setcorrecttolerance, space, -- 4.10.2 beginBody, endBody, beginBlock, endBlock, pageInstructions, noPages, metricMaster, environmentMaster, beginVec, comma, endVec -- for written form only }; Primitive: TYPE ~ Op[nil..space]; TypeCode: TYPE ~ MACHINE DEPENDENT {Null(0), Number(1), Identifier(2), Vector(3), Operator(4), -- Base types Transformation(5), PixelArray(6), Color(7), Trajectory(8), Outline(9), -- Image types Other(10) }; ImagerVariable: TYPE ~ MACHINE DEPENDENT { DCScpx(0), DCScpy(1), correctMX(2), correctMY(3), T(4), priorityImportant(5), mediumXSize(6), mediumYSize(7), fieldXMin(8), fieldYMin(9), fieldXMax(10), fieldYMax(11), showVec(12), color(13), noImage(14), strokeWidth(15), strokeEnd(16), underlineStart(17), amplifySpace(18), correctPass(19), correctShrink(20), correctTX(21), correctTY(22) }; StrokeEnd: TYPE ~ MACHINE DEPENDENT {square(0), butt(1), round(2)}; Rational: TYPE ~ RECORD[num, den: INT]; -- an encoded rational number Version: TYPE ~ RECORD[major, minor: CARDINAL]; version: Version ~ [major: 2, minor: 1]; -- current version is 2.1 END. šIPBasic.mesa Basic Interpress types. Last edited by: Doug Wyatt, March 7, 1984 5:53:10 pm PST Base language primitives Imaging primitives Symbols Ê‹˜Jšœ ™ J™Jšœ™J™šœ™Jšœ(™(J˜—J˜Jšœ Ïkœ ˜Jšœ˜J˜šœœ ˜Jšœ™JšœCÏc˜KJšœ2ž˜:Jšœ?ž˜GJšœH˜HJšœFž˜NJšœž˜"Jšœ(ž˜0JšœFž˜NJ˜*Jšœ™Jšœ ž˜Jšœž˜Jšœ@ž˜HJšœ.ž˜6Jšœž˜Jšœž˜Jšœ8ž˜>Jšœ#ž˜)Jšœž˜Jšœ@ž˜HJšœ$ž˜,Jšœ ž˜JšœHž˜PJšœCž˜KJ˜?Jšœ ž˜Jšœž˜$Jšœž˜Jšœž˜Jšœ$ž˜+Jšœ/ž ˜8Jšœ™Jšœ*˜*Jšœ<˜