|
|
1.1 ! root 1: /* ! 2: * Interpress utilities ! 3: * ! 4: * Copyright (c) 1984, 1985 Xerox Corp. ! 5: * ! 6: * Written for Xerox Corporation by William LeFebvre ! 7: * 31-May-1984 ! 8: * ! 9: * HISTORY ! 10: * 02-Sep-86 Lee Moore (lee) at Xerox Webster Research Center ! 11: * Corrected definition of Get operator. ! 12: * ! 13: * 03-Jul-86 Lee Moore (lee) at Xerox Webster Research Center ! 14: * Added additional definitons so that users can use identifers ! 15: * with the same case as in "Introduction to Interpress". ! 16: * ! 17: * 26-apr-85 ed flint (ed) at Xerox Webster Research Center ! 18: * add macros to set standard imager variables ! 19: */ ! 20: ! 21: /* ! 22: * Subroutines to help build interpress files: ! 23: * ! 24: * operator interface level - these routines call routines at the literal ! 25: * interface level to provide an easy way to ! 26: * write operators along with their parameters. ! 27: */ ! 28: ! 29: /* ! 30: * These routines are all deined with macros that call low level routines ! 31: * found in operator.c. ! 32: */ ! 33: ! 34: # define Abs(n) op_n(OP_abs, n) ! 35: # define Add(n1,n2) op_nn(OP_add, n1, n2) ! 36: # define And(i1,i2) op_ii(OP_and, (long) i1, (long) i2) ! 37: # define Ceiling(n) op_n(OP_ceiling, n) ! 38: # define Copy(i) op_i(OP_copy, (long) i) ! 39: # define CorrectSpace(n1,n2) op_nn(OP_correctspace, n1, n2) ! 40: # define Div(n1,n2) op_nn(OP_div, n1, n2) ! 41: # ifdef anyop ! 42: # define Dup(a) op_a(OP_dup, a) ! 43: # define Eq(a1,a2) op_aa(OP_eq, a1, a2) ! 44: # define Exch(a1,a2) op_aa(OP_exch, a1, a2) ! 45: # endif ! 46: # define FGet(i) op_i(OP_fget, (long) i) ! 47: # define Fget(i) op_i(OP_fget, (long) i) ! 48: # define Floor(n) op_n(OP_floor, n) ! 49: # ifdef anyop ! 50: # define FSet(a,i) op_ai(OP_fset, a, (long) i) ! 51: # define Fset(a,i) op_ai(OP_fset, a, (long) i) ! 52: # endif ! 53: # define Ge(n1,n2) op_nn(OP_ge, n1, n2) ! 54: # define Get(i) op_i(OP_get, i) ! 55: # define Gt(n1,n2) op_nn(OP_gt, n1, n2) ! 56: # define IGet(i) op_i(OP_iget, (long) i) ! 57: # define Iget(i) op_i(OP_iget, (long) i) ! 58: # ifdef anyop ! 59: # define ISet(a,i) op_ai(OP_iset, a, (long) i) ! 60: # define Iset(a,i) op_ai(OP_iset, a, (long) i) ! 61: # endif ! 62: # define LineTo(n1,n2) op_nn(OP_lineto, n1, n2) ! 63: # define Lineto(n1,n2) op_nn(OP_lineto, n1, n2) ! 64: # define LineToX(n) op_n(OP_linetox, n) ! 65: # define Linetox(n) op_n(OP_linetox, n) ! 66: # define LineToY(n) op_n(OP_linetoy, n) ! 67: # define Linetoy(n) op_n(OP_linetoy, n) ! 68: # define MakeGray(n) op_n(OP_makegray, n) ! 69: # define Makegray(n) op_n(OP_makegray, n) ! 70: # define MakeOutline(i) op_i(OP_makeoutline, (long) i) ! 71: # define Makeoutline(i) op_i(OP_makeoutline, (long) i) ! 72: # define MakeSampledBlack(i) op_i(OP_makesampledblack, (long) i) ! 73: # define Makesampledblack(i) op_i(OP_makesampledblack, (long) i) ! 74: # define MakeVec(i) op_i(OP_makevec, (long) i) ! 75: # define Makevec(i) op_i(OP_makevec, (long) i) ! 76: # define MakeVecLU(i1,i2) op_ii(OP_makeveclu, (long) i1, (long) i2) ! 77: # define Makeveclu(i1,i2) op_ii(OP_makeveclu, (long) i1, (long) i2) ! 78: # define Mark(i) op_i(OP_mark, (long) i) ! 79: # define MaskRectangle(n1,n2,n3,n4) op_nnnn(OP_maskrectangle,n1,n2,n3,n4) ! 80: # define Maskrectangle(n1,n2,n3,n4) op_nnnn(OP_maskrectangle,n1,n2,n3,n4) ! 81: # define MaskTrapezoidX(n1,n2,n3,n4,n5,n6) \ ! 82: op_nnnnnn(OP_masktrapezoidx,n1,n2,n3,n4,n5,n6) ! 83: # define Masktrapezoidx(n1,n2,n3,n4,n5,n6) \ ! 84: op_nnnnnn(OP_masktrapezoidx,n1,n2,n3,n4,n5,n6) ! 85: # define MaskTrapezoidY(n1,n2,n3,n4,n5,n6) \ ! 86: op_nnnnnn(OP_masktrapezoidy,n1,n2,n3,n4,n5,n6) ! 87: # define Masktrapezoidy(n1,n2,n3,n4,n5,n6) \ ! 88: op_nnnnnn(OP_masktrapezoidy,n1,n2,n3,n4,n5,n6) ! 89: # define MaskUnderline(n1,n2) op_nn(OP_maskunderline, n1, n2) ! 90: # define Maskunderline(n1,n2) op_nn(OP_maskunderline, n1, n2) ! 91: # define MaskVector(n1,n2,n3,n4) op_nnnn(OP_maskvector,n1,n2,n3,n4) ! 92: # define Maskvector(n1,n2,n3,n4) op_nnnn(OP_maskvector,n1,n2,n3,n4) ! 93: # define Mod(n1,n2) op_nn(OP_mod, n1, n2) ! 94: # define MoveTo(n1,n2) op_nn(OP_moveto, n1, n2) ! 95: # define Moveto(n1,n2) op_nn(OP_moveto, n1, n2) ! 96: # define Mul(n1,n2) op_nn(OP_mul, n1, n2) ! 97: # define Neg(n) op_n(OP_neg, n) ! 98: # define Not(i) op_i(OP_not, (long) i) ! 99: # define Or(i1,i2) op_ii(OP_or, (long) i1, (long) i2) ! 100: # ifdef anyop ! 101: # define Pop(a) op_a(OP_pop, a) ! 102: # endif ! 103: # define Rem(n1,n2) op_nn(OP_rem, n1, n2) ! 104: # define Roll(i1,i2) op_ii(OP_roll, (long) i1, (long) i2) ! 105: # define Rotate(n) op_n(OP_rotate, n) ! 106: # define Round(n) op_n(OP_round, n) ! 107: # define Scale(n) op_n(OP_scale, n) ! 108: # define Scale2(n1,n2) op_nn(OP_scale2, n1, n2) ! 109: # define SetAmplifySpace(n) op_ni(OP_iset, n, (long) I_amplifySpace) ! 110: # define Setamplifyspace(n) op_ni(OP_iset, n, (long) I_amplifySpace) ! 111: # define SetCorrectMeasure(n1,n2) op_nn(OP_setcorrectmeasure, n1, n2) ! 112: # define Setcorrectmeasure(n1,n2) op_nn(OP_setcorrectmeasure, n1, n2) ! 113: # define SetCorrectPass(i) op_ii(OP_iset, (long) i, (long) I_correctPass) ! 114: # define Setcorrectpass(i) op_ii(OP_iset, (long) i, (long) I_correctPass) ! 115: # define SetCorrectShrink(n) op_ni(OP_iset, n, (long) I_correctShrink) ! 116: # define Setcorrectshrink(n) op_ni(OP_iset, n, (long) I_correctShrink) ! 117: # define SetCorrectTolerance(n1,n2) op_nn(OP_setcorrecttolerance, n1, n2) ! 118: # define Setcorrecttolerance(n1,n2) op_nn(OP_setcorrecttolerance, n1, n2) ! 119: # define SetFont(i) op_i(OP_setfont, (long) i) ! 120: # define Setfont(i) op_i(OP_setfont, (long) i) ! 121: # define SetGray(n) op_n(OP_setgray, n) ! 122: # define Setgray(n) op_n(OP_setgray, n) ! 123: # define SetNoImage(i) op_ii(OP_iset, (long) i, (long) I_noImage) ! 124: # define Setnoimage(i) op_ii(OP_iset, (long) i, (long) I_noImage) ! 125: # define SetPriorityImportant(i) op_ii(OP_iset, (long) i, (long) I_priorityImportant) ! 126: # define Setpriorityimportant(i) op_ii(OP_iset, (long) i, (long) I_priorityImportant) ! 127: # define SetStrokeEnd(i) op_ii(OP_iset, (long) i, (long) I_strokeEnd) ! 128: # define Setstrokeend(i) op_ii(OP_iset, (long) i, (long) I_strokeEnd) ! 129: # define SetStrokeWidth(n) op_ni(OP_iset, n, (long) I_strokeWidth) ! 130: # define Setstrokewidth(n) op_ni(OP_iset, n, (long) I_strokeWidth) ! 131: # define SetUnderlineStart(n) op_ni(OP_iset, n, (long) I_underlineStart) ! 132: # define Setunderlinestart(n) op_ni(OP_iset, n, (long) I_underlineStart) ! 133: # define SetXRel(n) op_n(OP_setxrel, n) ! 134: # define Setxrel(n) op_n(OP_setxrel, n) ! 135: # define SetXY(n1,n2) op_nn(OP_setxy, n1, n2) ! 136: # define Setxy(n1,n2) op_nn(OP_setxy, n1, n2) ! 137: # define SetXYRel(n1,n2) op_nn(OP_setxyrel, n1, n2) ! 138: # define Setxyrel(n1,n2) op_nn(OP_setxyrel, n1, n2) ! 139: # define SetYRel(n) op_n(OP_setyrel, n) ! 140: # define Setyrel(n) op_n(OP_setyrel, n) ! 141: # define Space(n) op_n(OP_space, n) ! 142: # define Sub(n1,n2) op_nn(OP_sub, n1, n2) ! 143: # define Translate(n1,n2) op_nn(OP_translate, n1, n2) ! 144: # define Trunc(n) op_n(OP_trunc, n) ! 145: # ifdef anyop ! 146: # define Type(a) op_a(OP_type, a) ! 147: # endif ! 148: # define UnMark(i) op_i(OP_unmark, (long) i) ! 149: # define Unmark(i) op_i(OP_unmark, (long) i)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.