1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 |
- /* Copyright (C) 1994, 1997, 1999 Aladdin Enterprises. All rights reserved.
-
- This software is provided AS-IS with no warranty, either express or
- implied.
-
- This software is distributed under license and may not be copied,
- modified or distributed except as expressly authorized under the terms
- of the license contained in the file LICENSE in this distribution.
-
- For more information about licensing, please refer to
- http://www.ghostscript.com/licensing/. For information on
- commercial licensing, go to http://www.artifex.com/licensing/ or
- contact Artifex Software, Inc., 101 Lucas Valley Road #110,
- San Rafael, CA 94903, U.S.A., +1(415)492-9861.
- */
- /* $Id: zhsb.c,v 1.4 2002/02/21 22:24:54 giles Exp $ */
- /* HSB color operators */
- #include "ghost.h"
- #include "oper.h"
- #include "igstate.h"
- #include "store.h"
- #include "gshsb.h"
- /* - currenthsbcolor <hue> <saturation> <brightness> */
- private int
- zcurrenthsbcolor(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- float par[3];
- gs_currenthsbcolor(igs, par);
- push(3);
- make_floats(op - 2, par, 3);
- return 0;
- }
- /* <hue> <saturation> <brightness> sethsbcolor - */
- private int
- zsethsbcolor(i_ctx_t *i_ctx_p)
- {
- os_ptr op = osp;
- double par[3];
- int code;
- if ((code = num_params(op, 3, par)) < 0 ||
- (code = gs_sethsbcolor(igs, par[0], par[1], par[2])) < 0
- )
- return code;
- make_null(&istate->colorspace.array);
- pop(3);
- return 0;
- }
- /* ------ Initialization procedure ------ */
- const op_def zhsb_op_defs[] =
- {
- {"0currenthsbcolor", zcurrenthsbcolor},
- {"3sethsbcolor", zsethsbcolor},
- op_def_end(0)
- };
|