|
|
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.