home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / program / gs300sr1 / gs300sr1.exe / GSPCOLOR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1994-07-31  |  12.5 KB  |  375 lines
  1. /* Copyright (C) 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gspcolor.c */
  20. /* Pattern color operators and procedures for Ghostscript library */
  21. #include "math_.h"
  22. #include "gx.h"
  23. #include "gserrors.h"
  24. #include "gsstruct.h"
  25. #include "gsutil.h"            /* for gs_next_ids */
  26. #include "gxarith.h"
  27. #include "gxfixed.h"
  28. #include "gxmatrix.h"
  29. #include "gxcoord.h"            /* for gs_concat, gx_tr'_to_fixed */
  30. #include "gscspace.h"            /* for gscolor2.h */
  31. #include "gxcolor2.h"
  32. #include "gxdevice.h"
  33. #include "gxdevmem.h"
  34. #include "gxclip2.h"
  35. #include "gxpath.h"
  36. #include "gxpcolor.h"
  37. #include "gzstate.h"
  38.  
  39. private_st_client_pattern();
  40. public_st_pattern_instance();
  41.  
  42. /* Define the Pattern color space. */
  43. extern cs_proc_remap_color(gx_remap_Pattern);
  44. private cs_proc_install_cspace(gx_install_Pattern);
  45. private cs_proc_adjust_cspace_count(gx_adjust_cspace_Pattern);
  46. private cs_proc_init_color(gx_init_Pattern);
  47. private cs_proc_adjust_color_count(gx_adjust_color_Pattern);
  48. private struct_proc_enum_ptrs(gx_enum_ptrs_Pattern);
  49. private struct_proc_reloc_ptrs(gx_reloc_ptrs_Pattern);
  50. const gs_color_space_type
  51.     gs_color_space_type_Pattern =
  52.      { gs_color_space_index_Pattern, -1,
  53.        gx_init_Pattern, gx_remap_Pattern, gx_install_Pattern,
  54.        gx_adjust_cspace_Pattern, gx_adjust_color_Pattern,
  55.        gx_enum_ptrs_Pattern, gx_reloc_ptrs_Pattern
  56.      };
  57.  
  58. /* makepattern */
  59. int
  60. gs_makepattern(gs_client_color *pcc, const gs_client_pattern *pcp,
  61.   const gs_matrix *pmat, gs_state *pgs)
  62. {    gs_pattern_instance inst;
  63.     gs_pattern_instance *pinst;
  64.     gs_state *saved;
  65.     gs_rect bbox;
  66.     gs_fixed_rect cbox;
  67.     int code;
  68.     rc_alloc_struct_1(pinst, gs_pattern_instance, &st_pattern_instance,
  69.               pgs->memory,
  70.               return_error(gs_error_VMerror), "gs_makepattern");
  71.     inst.rc = pinst->rc;
  72.     saved = gs_gstate(pgs);
  73.     if ( saved == 0 )
  74.       return_error(gs_error_VMerror);
  75.     gs_concat(saved, pmat);
  76.     gs_newpath(saved);
  77.     inst.template = *pcp;
  78.     inst.saved = saved;
  79.     if ( (code = gs_distance_transform2fixed(&saved->ctm, inst.template.XStep, 0.0, &inst.xstep)) < 0 ||
  80.          (code = gs_distance_transform2fixed(&saved->ctm, 0.0, inst.template.YStep, &inst.ystep)) < 0 ||
  81.          (code = gs_point_transform2fixed(&saved->ctm, 0.0, 0.0, &inst.origin)) < 0
  82.        )
  83.       {    gs_state_free(saved);
  84.         return code;
  85.       }
  86.     /* Check for non-zero step values and non-singular transformation. */
  87.     if ( !((inst.xstep.x != 0 && inst.ystep.y != 0) ||
  88.            (inst.xstep.y != 0 && inst.ystep.x != 0))
  89.        )
  90.     {    gs_state_free(saved);
  91.         return_error(gs_error_undefinedresult);
  92.     }
  93.     if ( inst.xstep.x == 0 )
  94.     {    gs_fixed_point temp;
  95.         temp = inst.xstep;
  96.         inst.xstep = inst.ystep;
  97.         inst.ystep = temp;
  98.     }
  99.     if ( inst.xstep.x < 0 )
  100.         inst.xstep.x = -inst.xstep.x, inst.xstep.y = -inst.xstep.y;
  101.     if ( inst.ystep.y < 0 )
  102.         inst.ystep.x = -inst.ystep.x, inst.ystep.y = -inst.ystep.y;
  103.     gs_newpath(saved);
  104.     gs_bbox_transform(&inst.template.BBox, &ctm_only(saved), &bbox);
  105.     inst.size.x = ceil(bbox.q.x - bbox.p.x);
  106.     inst.size.y = ceil(bbox.q.y - bbox.p.y);
  107.     gx_translate_to_fixed(saved, inst.origin.x - float2fixed(bbox.p.x),
  108.                   inst.origin.y - float2fixed(bbox.p.y));
  109.     cbox.p.x = fixed_0;
  110.     cbox.p.y = fixed_0;
  111.     cbox.q.x = int2fixed(inst.size.x);
  112.     cbox.q.y = int2fixed(inst.size.y);
  113.     code = gx_clip_to_rectangle(saved, &cbox);
  114.     if ( code < 0 )
  115.       { gs_state_free(saved);
  116.         return code;
  117.       }
  118.     inst.id = gs_next_ids(1);
  119.     *pinst = inst;
  120.     pcc->pattern = pinst;
  121.     return 0;
  122. }
  123.  
  124. /* setpattern */
  125. int
  126. gs_setpattern(gs_state *pgs, const gs_client_color *pcc)
  127. {    int code = gs_setpatternspace(pgs);
  128.     if ( code < 0 )
  129.         return code;
  130.     return gs_setcolor(pgs, pcc);
  131. }
  132.  
  133. /* setpatternspace */
  134. /* This does all the work of setpattern except for the final setcolor. */
  135. int
  136. gs_setpatternspace(gs_state *pgs)
  137. {    int code = 0;
  138.     if ( pgs->color_space->type->index != gs_color_space_index_Pattern )
  139.     {    gs_color_space cs;
  140.         cs.params.pattern.base_space =
  141.             *(gs_paint_color_space *)pgs->color_space;
  142.         cs.params.pattern.has_base_space = true;
  143.         cs.type = &gs_color_space_type_Pattern;
  144.         code = gs_setcolorspace(pgs, &cs);
  145.     }
  146.     return code;
  147. }
  148.  
  149. /* getpattern */
  150. /* This is only intended for the benefit of pattern PaintProcs. */
  151. const gs_client_pattern *
  152. gs_getpattern(const gs_client_color *pcc)
  153. {    return &pcc->pattern->template;
  154. }
  155.  
  156. /* ------ Color space implementation ------ */
  157.  
  158. /* Pattern device color types. */
  159. /* We need a masked analogue of each of the non-pattern types, */
  160. /* to handle uncolored patterns. */
  161. /* We use 'masked_fill_rect' instead of 'masked_fill_rectangle' */
  162. /* in order to limit identifier lengths to 32 characters. */
  163. private dev_color_proc_load(gx_dc_pattern_load);
  164. private dev_color_proc_fill_rectangle(gx_dc_pattern_fill_rectangle);
  165. private dev_color_proc_load(gx_dc_pure_masked_load);
  166. private dev_color_proc_fill_rectangle(gx_dc_pure_masked_fill_rect);
  167. private dev_color_proc_load(gx_dc_binary_masked_load);
  168. private dev_color_proc_fill_rectangle(gx_dc_binary_masked_fill_rect);
  169. private dev_color_proc_load(gx_dc_colored_masked_load);
  170. private dev_color_proc_fill_rectangle(gx_dc_colored_masked_fill_rect);
  171. /* The device color types are exported for gxpcmap.c. */
  172. const gx_device_color_procs
  173.   gx_dc_pattern = { gx_dc_pattern_load, gx_dc_pattern_fill_rectangle },
  174.   gx_dc_pure_masked = { gx_dc_pure_masked_load, gx_dc_pure_masked_fill_rect },
  175.   gx_dc_binary_masked = { gx_dc_binary_masked_load, gx_dc_binary_masked_fill_rect },
  176.   gx_dc_colored_masked = { gx_dc_colored_masked_load, gx_dc_colored_masked_fill_rect };
  177.  
  178. /* Macros for pattern loading */
  179. private int near pattern_load(P2(gx_device_color *, const gs_state *));
  180. #define FINISH_PATTERN_LOAD\
  181.     while ( !gx_pattern_cache_lookup(pdevc, pgs) )\
  182.      { code = pattern_load(pdevc, pgs);\
  183.        if ( code < 0 ) break;\
  184.      }\
  185.     return code;
  186.  
  187. /* Ensure that a colored Pattern is loaded in the cache. */
  188. private int
  189. gx_dc_pattern_load(gx_device_color *pdevc, const gs_state *pgs)
  190. {    int code = 0;
  191.     FINISH_PATTERN_LOAD
  192. }
  193. /* Ensure that an uncolored Pattern is loaded in the cache. */
  194. private int
  195. gx_dc_pure_masked_load(gx_device_color *pdevc, const gs_state *pgs)
  196. {    int code = gx_dc_pure_load(pdevc, pgs);
  197.     if ( code < 0 )
  198.       return code;
  199.     FINISH_PATTERN_LOAD
  200. }
  201. private int
  202. gx_dc_binary_masked_load(gx_device_color *pdevc, const gs_state *pgs)
  203. {    int code = gx_dc_ht_binary_load(pdevc, pgs);
  204.     if ( code < 0 )
  205.       return code;
  206.     FINISH_PATTERN_LOAD
  207. }
  208. private int
  209. gx_dc_colored_masked_load(gx_device_color *pdevc, const gs_state *pgs)
  210. {    int code = gx_dc_ht_colored_load(pdevc, pgs);
  211.     if ( code < 0 )
  212.       return code;
  213.     FINISH_PATTERN_LOAD
  214. }
  215.  
  216. /* Look up a pattern color in the cache. */
  217. bool
  218. gx_pattern_cache_lookup(gx_device_color *pdevc, const gs_state *pgs)
  219. {    gx_pattern_cache *pcache = pgs->pattern_cache;
  220.     if ( pcache != 0 )
  221.       { gx_bitmap_id id = pdevc->id;
  222.         gx_color_tile *ctile = &pcache->tiles[id % pcache->num_tiles];
  223.         if ( ctile->id == id &&
  224.         (pdevc->type != &gx_dc_pattern ||
  225.          ctile->depth == gs_currentdevice_inline(pgs)->color_info.depth)
  226.            )
  227.           { if ( pdevc->type == &gx_dc_pattern ) /* colored */
  228.           pdevc->colors.pattern.p_tile = ctile;
  229.         pdevc->mask =
  230.           (ctile->mask.data == 0 ? (gx_tile_bitmap *)0 :
  231.            &ctile->mask);
  232.         return true;
  233.           }
  234.       }
  235.     return false;
  236. }
  237. /* Remap the current (Pattern) color before trying the cache again. */
  238. private int near
  239. pattern_load(gx_device_color *pdevc, const gs_state *pgs)
  240. {    const gs_color_space *pcs = pgs->color_space;
  241.     /****** pgs->ccolor IS WRONG ******/
  242.     return (*pcs->type->remap_color)(pgs->ccolor, pcs, pdevc, pgs);
  243. }
  244.  
  245. #undef FINISH_PATTERN_LOAD
  246.  
  247. /* Macros for pattern fill */
  248. #define BEGIN_PATTERN_FILL\
  249.     gx_device_tile_clip cdev;\
  250.     int code;\
  251.     if ( pdevc->mask == 0 )    /* null pattern */\
  252.       return 0;\
  253.     code = tile_clip_initialize(&cdev, pdevc->mask, dev);\
  254.     if ( code < 0 )\
  255.         return code;
  256. #define pcdev ((gx_device *)&cdev)
  257. #define END_PATTERN_FILL\
  258.     return code;
  259.  
  260. /* Fill a rectangle with a colored Pattern. */
  261. private int
  262. gx_dc_pattern_fill_rectangle(const gx_device_color *pdevc, int x, int y,
  263.   int w, int h, gx_device *dev, const gs_state *pgs)
  264. {    gx_color_tile *ptile = pdevc->colors.pattern.p_tile;
  265.     gx_tile_bitmap *bits;
  266.     if ( ptile == 0 )    /* null pattern */
  267.       return 0;
  268.     bits = &ptile->bits;
  269.     if ( pdevc->mask == 0 )
  270.     {    /****** PHASE IS WRONG ******/
  271.         (*dev_proc(dev, tile_rectangle))(dev, bits, x, y, w, h,
  272.                 gx_no_color_index, gx_no_color_index,
  273.                 pgs->ht_phase.x, pgs->ht_phase.y);
  274.     }
  275.     else
  276.     {    BEGIN_PATTERN_FILL
  277.         /****** PHASE IS WRONG ******/
  278.         (*dev_proc(pcdev, tile_rectangle))(pcdev, bits, x, y, w, h,
  279.                 gx_no_color_index, gx_no_color_index,
  280.                 pgs->ht_phase.x, pgs->ht_phase.y);
  281.         END_PATTERN_FILL
  282.     }
  283.     return 0;
  284. }
  285. /* Fill a rectangle with an uncolored Pattern. */
  286. private int
  287. gx_dc_pure_masked_fill_rect(const gx_device_color *pdevc, int x, int y,
  288.   int w, int h, gx_device *dev, const gs_state *pgs)
  289. {    BEGIN_PATTERN_FILL
  290.     code = gx_dc_pure_fill_rectangle(pdevc, x, y, w, h, pcdev, pgs);
  291.     END_PATTERN_FILL
  292. }
  293. private int
  294. gx_dc_binary_masked_fill_rect(const gx_device_color *pdevc, int x, int y,
  295.   int w, int h, gx_device *dev, const gs_state *pgs)
  296. {    BEGIN_PATTERN_FILL
  297.     code = gx_dc_ht_binary_fill_rectangle(pdevc, x, y, w, h, pcdev, pgs);
  298.     END_PATTERN_FILL
  299. }
  300. private int
  301. gx_dc_colored_masked_fill_rect(const gx_device_color *pdevc, int x, int y,
  302.   int w, int h, gx_device *dev, const gs_state *pgs)
  303. {    BEGIN_PATTERN_FILL
  304.     code = gx_dc_ht_colored_fill_rectangle(pdevc, x, y, w, h, pcdev, pgs);
  305.     END_PATTERN_FILL
  306. }
  307.  
  308. #undef BEGIN_PATTERN_FILL
  309. #undef END_PATTERN_FILL
  310.  
  311. /* Initialize a Pattern color. */
  312. private void
  313. gx_init_Pattern(gs_client_color *pcc, const gs_color_space *pcs)
  314. {    if ( pcs->params.pattern.has_base_space )
  315.     {    gs_color_space *pbcs =
  316.             (gs_color_space *)&pcs->params.pattern.base_space;
  317.         cs_init_color(pcc, pbcs);
  318.     }
  319.     /*pcc->pattern = 0;*/        /* cs_full_init_color handles this */
  320. }
  321.  
  322. /* Install a Pattern color space. */
  323. private int
  324. gx_install_Pattern(gs_color_space *pcs, gs_state *pgs)
  325. {    if ( !pcs->params.pattern.has_base_space )
  326.         return 0;
  327.     return (*pcs->params.pattern.base_space.type->install_cspace)
  328.         ((gs_color_space *)&pcs->params.pattern.base_space, pgs);
  329. }
  330.  
  331. /* Adjust the reference counts for Pattern color spaces or colors. */
  332. private void
  333. gx_adjust_cspace_Pattern(const gs_color_space *pcs, gs_state *pgs, int delta)
  334. {    if ( pcs->params.pattern.has_base_space )
  335.         (*pcs->params.pattern.base_space.type->adjust_cspace_count)
  336.          ((const gs_color_space *)&pcs->params.pattern.base_space, pgs, delta);
  337. }
  338.  
  339. private void
  340. gx_adjust_color_Pattern(const gs_client_color *pcc, const gs_color_space *pcs,
  341.   gs_state *pgs, int delta)
  342. {    gs_pattern_instance *pinst = pcc->pattern;
  343.     if ( pinst != 0 && (pinst->rc.ref_count += delta) == 0 )
  344.     {    /* Release all the storage associated with the instance. */
  345.         gs_state *saved = pinst->saved;
  346.         gs_state_free(saved);
  347.         gs_free_object(saved->memory, pinst,
  348.                    "gx_adjust_color_Pattern");
  349.     }
  350.     if ( pcs->params.pattern.has_base_space )
  351.         (*pcs->params.pattern.base_space.type->adjust_color_count)
  352.          (pcc, (const gs_color_space *)&pcs->params.pattern.base_space,
  353.           pgs, delta);
  354. }
  355.  
  356. /* GC procedures */
  357.  
  358. #define pcs ((gs_color_space *)vptr)
  359.  
  360. private ENUM_PTRS_BEGIN_PROC(gx_enum_ptrs_Pattern) {
  361.     if ( !pcs->params.pattern.has_base_space )
  362.       return 0;
  363.     return (*pcs->params.pattern.base_space.type->enum_ptrs)
  364.          (&pcs->params.pattern.base_space,
  365.           sizeof(pcs->params.pattern.base_space), index, pep);
  366. } ENUM_PTRS_END_PROC
  367. private RELOC_PTRS_BEGIN(gx_reloc_ptrs_Pattern) {
  368.     if ( !pcs->params.pattern.has_base_space )
  369.       return;
  370.     (*pcs->params.pattern.base_space.type->reloc_ptrs)
  371.       (&pcs->params.pattern.base_space, sizeof(gs_paint_color_space), gcst);
  372. } RELOC_PTRS_END
  373.  
  374. #undef pcs
  375.