Initial revision

git-svn-id: http://svn.ghostscript.com/ghostpcl/trunk/ghostpcl@277 06663e23-700e-0410-b217-a244a6096597

1 files changed, 119 insertions, 0 deletions

diff --git a/gs/src/zimage3.c b/gs/src/zimage3.c
new file mode 100644
index 000000000..e9ae20a0d
--- /dev/null
+++ b/gs/src/zimage3.c
@@ -0,0 +1,119 @@
+/* Copyright (C) 1997, 1998 Aladdin Enterprises.  All rights reserved.
+
+   This file is part of Aladdin Ghostscript.
+
+   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
+   or distributor accepts any responsibility for the consequences of using it,
+   or for whether it serves any particular purpose or works at all, unless he
+   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
+   License (the "License") for full details.
+
+   Every copy of Aladdin Ghostscript must include a copy of the License,
+   normally in a plain ASCII text file named PUBLIC.  The License grants you
+   the right to copy, modify and redistribute Aladdin Ghostscript, but only
+   under certain conditions described in the License.  Among other things, the
+   License requires that the copyright notice and this notice be preserved on
+   all copies.
+ */
+
+/*Id: zimage3.c  */
+/* LanguageLevel 3 ImageTypes (3 & 4 - masked images) */
+#include "memory_.h"
+#include "ghost.h"
+#include "oper.h"
+#include "gscspace.h"		/* for gscolor2.h */
+#include "gscolor2.h"
+#include "gsiparm3.h"
+#include "gsiparm4.h"
+#include "gxiparam.h"		/* for image enumerator */
+#include "idict.h"
+#include "idparam.h"
+#include "igstate.h"
+#include "iimage.h"
+#include "iimage2.h"
+
+/* <dict> .image3 - */
+private int
+zimage3(register os_ptr op)
+{
+    gs_image3_t image;
+    int interleave_type;
+    ref *pDataDict;
+    ref *pMaskDict;
+    image_params ip_data, ip_mask;
+    int ignored;
+    int code, mcode;
+
+    check_type(*op, t_dictionary);
+    check_dict_read(*op);
+    if ((code = dict_int_param(op, "InterleaveType", 1, 3, -1,
+			       &interleave_type)) < 0
+	)
+	return code;
+    gs_image3_t_init(&image, NULL, interleave_type);
+    if (dict_find_string(op, "DataDict", &pDataDict) <= 0 ||
+	dict_find_string(op, "MaskDict", &pMaskDict) <= 0
+	)
+	return_error(e_rangecheck);
+    if ((code = pixel_image_params(pDataDict, (gs_pixel_image_t *)&image,
+				   &ip_data, 12)) < 0 ||
+	(mcode = code = data_image_params(pMaskDict, &image.MaskDict, &ip_mask, false, 1, 12)) < 0 ||
+	(code = dict_int_param(pDataDict, "ImageType", 1, 1, 0, &ignored)) < 0 ||
+	(code = dict_int_param(pMaskDict, "ImageType", 1, 1, 0, &ignored)) < 0
+	)
+	return code;
+    /*
+     * MaskDict must have a DataSource iff InterleaveType == 3.
+     */
+    if ((ip_data.MultipleDataSources && interleave_type != 3) ||
+	ip_mask.MultipleDataSources ||
+	mcode != (image.InterleaveType != 3)
+	)
+	return_error(e_rangecheck);
+    if (!mcode) {
+	/* Insert the mask DataSource before the data DataSources. */
+	memmove(&ip_data.DataSource[1], &ip_data.DataSource[0],
+		(countof(ip_data.DataSource) - 1) *
+		sizeof(ip_data.DataSource[0]));
+	ip_data.DataSource[0] = ip_mask.DataSource[0];
+    }
+    return zimage_setup((gs_pixel_image_t *)&image,
+			&ip_data.DataSource[0],
+			image.CombineWithColor, 1);
+}
+
+/* <dict> .image4 - */
+private int
+zimage4(register os_ptr op)
+{
+    gs_image4_t image;
+    image_params ip;
+    int num_components =
+    gs_color_space_num_components(gs_currentcolorspace(igs));
+    int code;
+
+    gs_image4_t_init(&image, NULL);
+    code = pixel_image_params(op, (gs_pixel_image_t *)&image, &ip, 12);
+    if (code < 0)
+	return code;
+    code = dict_int_array_param(op, "MaskColor", num_components * 2,
+				image.MaskColor);
+    if (code == num_components)
+	image.MaskColor_is_range = false;
+    else if (code == num_components * 2)
+	image.MaskColor_is_range = true;
+    else
+	return_error(code < 0 ? code : gs_note_error(e_rangecheck));
+    return zimage_setup((gs_pixel_image_t *)&image, &ip.DataSource[0],
+			image.CombineWithColor, 1);
+}
+
+/* ------ Initialization procedure ------ */
+
+const op_def zimage3_op_defs[] =
+{
+    op_def_begin_ll3(),
+    {"1.image3", zimage3},
+    {"1.image4", zimage4},
+    op_def_end(0)
+};