1
/* Copyright (C) 2001-2006 Artifex Software, Inc.
4
This software is provided AS-IS with no warranty, either express or
7
This software is distributed under license and may not be copied, modified
8
or distributed except as expressly authorized under the terms of that
9
license. Refer to licensing information at http://www.artifex.com/
10
or contact Artifex Software, Inc., 7 Mt. Lassen Drive - Suite A-134,
11
San Rafael, CA 94903, U.S.A., +1(415)492-9861, for further information.
14
/* $Id: zrop.c 9043 2008-08-28 22:48:19Z giles $ */
15
/* RasterOp control operators */
27
/* <int8> .setrasterop - */
29
zsetrasterop(i_ctx_t *i_ctx_p)
33
int code = int_param(op, 0xff, ¶m);
37
gs_setrasterop(igs, (gs_rop3_t)param);
42
/* - .currentrasterop <int8> */
44
zcurrentrasterop(i_ctx_t *i_ctx_p)
49
make_int(op, (int)gs_currentrasterop(igs));
53
/* <bool> .setsourcetransparent - */
55
zsetsourcetransparent(i_ctx_t *i_ctx_p)
59
check_type(*op, t_boolean);
60
gs_setsourcetransparent(igs, op->value.boolval);
65
/* - .currentsourcetransparent <bool> */
67
zcurrentsourcetransparent(i_ctx_t *i_ctx_p)
72
make_bool(op, gs_currentsourcetransparent(igs));
76
/* <bool> .settexturetransparent - */
78
zsettexturetransparent(i_ctx_t *i_ctx_p)
82
check_type(*op, t_boolean);
83
gs_settexturetransparent(igs, op->value.boolval);
88
/* - .currenttexturetransparent <bool> */
90
zcurrenttexturetransparent(i_ctx_t *i_ctx_p)
95
make_bool(op, gs_currenttexturetransparent(igs));
99
/* ------ Initialization procedure ------ */
101
const op_def zrop_op_defs[] =
103
{"0.currentrasterop", zcurrentrasterop},
104
{"0.currentsourcetransparent", zcurrentsourcetransparent},
105
{"0.currenttexturetransparent", zcurrenttexturetransparent},
106
{"1.setrasterop", zsetrasterop},
107
{"1.setsourcetransparent", zsetsourcetransparent},
108
{"1.settexturetransparent", zsettexturetransparent},