1 files changed, 52 insertions, 0 deletions
diff --git a/gs/psi/zcolor2.c b/gs/psi/zcolor2.c
new file mode 100644
index 000000000..b836d978b
--- /dev/null
+++ b/gs/psi/zcolor2.c
@@ -0,0 +1,52 @@
+/* Copyright (C) 2001-2006 Artifex Software, Inc.
+   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 that
+   license.  Refer to licensing information at http://www.artifex.com/
+   or contact Artifex Software, Inc.,  7 Mt. Lassen Drive - Suite A-134,
+   San Rafael, CA  94903, U.S.A., +1(415)492-9861, for further information.
+*/
+
+/* $Id$ */
+/* Level 2 color operators */
+#include "ghost.h"
+#include "string_.h"
+#include "oper.h"
+#include "gsmatrix.h"
+#include "gsstruct.h"
+#include "gxcspace.h"
+#include "gscolor2.h"
+#include "igstate.h"
+#include "store.h"
+
+
+/*
+ *  -   .useralternate   <bool>
+ *
+ * Push true if the current color space contains a base or alternate
+ * color space and makes use of that color space (e.g.: a Separation
+ * color space for a component not supported by the process color model.
+ */
+static int
+zusealternate(i_ctx_t * i_ctx_p)
+{
+    os_ptr                  op = osp;
+    const gs_color_space *  pcs = gs_currentcolorspace(igs);
+
+    push(1);
+    make_bool(op, pcs->base_space != 0);
+    return 0;
+}
+
+
+/* ------ Initialization procedure ------ */
+
+const op_def    zcolor2_l2_op_defs[] = {
+    op_def_begin_level2(),
+    { "0.usealternate", zusealternate },
+    op_def_end(0)
+};