|
|
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: * 26-apr-85 ed flint add macros to set standard imager variables
11: */
12:
13: /*
14: * Subroutines to help build interpress files:
15: *
16: * operator interface level - these routines call routines at the literal
17: * interface level to provide an easy way to
18: * write operators along with their parameters.
19: */
20:
21: /*
22: * These routines are all deined with macros that call low level routines
23: * found in operator.c.
24: */
25:
26: # define Abs(n) op_n(OP_abs, n)
27: # define Add(n1,n2) op_nn(OP_add, n1, n2)
28: # define And(i1,i2) op_ii(OP_and, (long) i1, (long) i2)
29: # define Ceiling(n) op_n(OP_ceiling, n)
30: # define Copy(i) op_i(OP_copy, (long) i)
31: # define CorrectSpace(n1,n2) op_nn(OP_correctspace, n1, n2)
32: # define Div(n1,n2) op_nn(OP_div, n1, n2)
33: # ifdef anyop
34: # define Dup(a) op_a(OP_dup, a)
35: # define Eq(a1,a2) op_aa(OP_eq, a1, a2)
36: # define Exch(a1,a2) op_aa(OP_exch, a1, a2)
37: # endif
38: # define Fget(i) op_i(OP_fget, (long) i)
39: # define Floor(n) op_n(OP_floor, n)
40: # ifdef anyop
41: # define Fset(a,i) op_ai(OP_fset, a, (long) i)
42: # endif
43: # define Ge(n1,n2) op_nn(OP_ge, n1, n2)
44: # define Get(n) op_n(OP_get, n)
45: # define Gt(n1,n2) op_nn(OP_gt, n1, n2)
46: # define Iget(i) op_i(OP_iget, (long) i)
47: # ifdef anyop
48: # define Iset(a,i) op_ai(OP_iset, a, (long) i)
49: # endif
50: # define Lineto(n1,n2) op_nn(OP_lineto, n1, n2)
51: # define Linetox(n) op_n(OP_linetox, n)
52: # define Linetoy(n) op_n(OP_linetoy, n)
53: # define Makegray(n) op_n(OP_makegray, n)
54: # define Makeoutline(i) op_i(OP_makeoutline, (long) i)
55: # define Makesampledblack(i) op_i(OP_makesampledblack, (long) i)
56: # define Makevec(i) op_i(OP_makevec, (long) i)
57: # define Makeveclu(i1,i2) op_ii(OP_makeveclu, (long) i1, (long) i2)
58: # define Mark(i) op_i(OP_mark, (long) i)
59: # define Maskrectangle(n1,n2,n3,n4) op_nnnn(OP_maskrectangle,n1,n2,n3,n4)
60: # define Masktrapezoidx(n1,n2,n3,n4,n5,n6) \
61: op_nnnnnn(OP_masktrapezoidx,n1,n2,n3,n4,n5,n6)
62: # define Masktrapezoidy(n1,n2,n3,n4,n5,n6) \
63: op_nnnnnn(OP_masktrapezoidy,n1,n2,n3,n4,n5,n6)
64: # define Maskunderline(n1,n2) op_nn(OP_maskunderline, n1, n2)
65: # define Maskvector(n1,n2,n3,n4) op_nnnn(OP_maskvector,n1,n2,n3,n4)
66: # define Mod(n1,n2) op_nn(OP_mod, n1, n2)
67: # define Moveto(n1,n2) op_nn(OP_moveto, n1, n2)
68: # define Mul(n1,n2) op_nn(OP_mul, n1, n2)
69: # define Neg(n) op_n(OP_neg, n)
70: # define Not(i) op_i(OP_not, (long) i)
71: # define Or(i1,i2) op_ii(OP_or, (long) i1, (long) i2)
72: # ifdef anyop
73: # define Pop(a) op_a(OP_pop, a)
74: # endif
75: # define Rem(n1,n2) op_nn(OP_rem, n1, n2)
76: # define Roll(i1,i2) op_ii(OP_roll, (long) i1, (long) i2)
77: # define Rotate(n) op_n(OP_rotate, n)
78: # define Round(n) op_n(OP_round, n)
79: # define Scale(n) op_n(OP_scale, n)
80: # define Scale2(n1,n2) op_nn(OP_scale2, n1, n2)
81: # define Setamplifyspace(n) op_ni(OP_iset, n, (long) I_amplifySpace)
82: # define Setcorrectmeasure(n1,n2) op_nn(OP_setcorrectmeasure, n1, n2)
83: # define Setcorrectpass(i) op_ii(OP_iset, (long) i, (long) I_correctPass)
84: # define Setcorrectshrink(n) op_ni(OP_iset, n, (long) I_correctShrink)
85: # define Setcorrecttolerance(n1,n2) op_nn(OP_setcorrecttolerance, n1, n2)
86: # define Setfont(i) op_i(OP_setfont, (long) i)
87: # define Setgray(n) op_n(OP_setgray, n)
88: # define Setnoimage(i) op_ii(OP_iset, (long) i, (long) I_noImage)
89: # define Setpriorityimportant(i) op_ii(OP_iset, (long) i, (long) I_priorityImportant)
90: # define Setstrokeend(i) op_ii(OP_iset, (long) i, (long) I_strokeEnd)
91: # define Setstrokewidth(n) op_ni(OP_iset, n, (long) I_strokeWidth)
92: # define Setunderlinestart(n) op_ni(OP_iset, n, (long) I_underlineStart)
93: # define Setxrel(n) op_n(OP_setxrel, n)
94: # define Setxy(n1,n2) op_nn(OP_setxy, n1, n2)
95: # define Setxyrel(n1,n2) op_nn(OP_setxyrel, n1, n2)
96: # define Setyrel(n) op_n(OP_setyrel, n)
97: # define Space(n) op_n(OP_space, n)
98: # define Sub(n1,n2) op_nn(OP_sub, n1, n2)
99: # define Translate(n1,n2) op_nn(OP_translate, n1, n2)
100: # define Trunc(n) op_n(OP_trunc, n)
101: # ifdef anyop
102: # define Type(a) op_a(OP_type, a)
103: # endif
104: # 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.