home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / gs-2.6.1.4-src.lha / src / amiga / ghostscript-2.6.1 / zht2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-01-28  |  9.0 KB  |  325 lines
  1. /* Copyright (C) 1992 Aladdin Enterprises.  All rights reserved.
  2.  
  3. This file is part of Ghostscript.
  4.  
  5. Ghostscript is distributed in the hope that it will be useful, but
  6. WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. to anyone for the consequences of using it or for whether it serves any
  8. particular purpose or works at all, unless he says so in writing.  Refer
  9. to the Ghostscript General Public License for full details.
  10.  
  11. Everyone is granted permission to copy, modify and redistribute
  12. Ghostscript, but only under the conditions described in the Ghostscript
  13. General Public License.  A copy of this license is supposed to have been
  14. given to you along with Ghostscript so you can know your rights and
  15. responsibilities.  It should be in a file named COPYING.  Among other
  16. things, the copyright notice and this notice must be preserved on all
  17. copies.  */
  18.  
  19. /* zht2.c */
  20. /* Level 2 halftone operators for Ghostscript */
  21. #include "ghost.h"
  22. #include "errors.h"
  23. #include "oper.h"
  24. #include "alloc.h"
  25. #include "dict.h"
  26. #include "dparam.h"
  27. #include "iname.h"        /* for name_eq */
  28. #include "state.h"
  29. #include "store.h"
  30.  
  31. /* Structures (should be shared with gsht.c) */
  32. typedef struct screen_params_s {
  33.     float frequency;
  34.     float angle;
  35.     float (*spot_function)(P2(floatp, floatp));
  36. } screen_params;
  37. typedef struct threshold_params_s {
  38.     int width;
  39.     int height;
  40.     const byte *thresholds;
  41. } threshold_params;
  42.  
  43. /* Structures for component names in halftone dictionaries */
  44. typedef struct screen_names_s {
  45.     ref Frequency;
  46.     ref Angle;
  47.     ref SpotFunction;
  48. } screen_names;
  49. typedef struct threshold_names_s {
  50.     ref Width;
  51.     ref Height;
  52.     ref Thresholds;
  53. } threshold_names;
  54.  
  55. /* Forward references */
  56. private int dict_screen_params(P4(const ref *, const screen_names *,
  57.   screen_params *, ref *));
  58. private int dict_threshold_params(P3(const ref *, const threshold_names *,
  59.   threshold_params *));
  60.  
  61. /* Keys in halftone dictionaries: */
  62. static ref name_HalftoneType;
  63. static ref name_TransferFunction;
  64. /* Type 1: */
  65. static screen_names names_type1;
  66. static ref name_AccurateScreens;
  67. static ref name_ActualFrequency;
  68. static ref name_ActualAngle;
  69. /* Type 2: */
  70. static screen_names names_type2[4];
  71. /* Type 3: */
  72. static threshold_names names_type3;
  73. /* Type 4: */
  74. static threshold_names names_type4[4];
  75. /* Type 5: */
  76. static ref color_names[8];
  77. /* Red, Green, Blue, Gray must be 0-3. */
  78. #define name_Red color_names[0]
  79. #define name_Green color_names[1]
  80. #define name_Blue color_names[2]
  81. #define name_Gray color_names[3]
  82. #define name_Cyan color_names[4]
  83. #define name_Magenta color_names[5]
  84. #define name_Yellow color_names[6]
  85. #define name_Black color_names[7]
  86. static ref name_Default;
  87.  
  88. /* Initialization */
  89. private void
  90. zht2_init(void)
  91. {    static const names_def htn[] = {
  92.  
  93.     /* Create the names of the halftone dictionary keys. */
  94.        { "HalftoneType", &name_HalftoneType },
  95.        { "TransferFunction", &name_TransferFunction },
  96.         /* Type 1: */
  97.        { "Frequency", &names_type1.Frequency },
  98.        { "Angle", &names_type1.Angle },
  99.        { "SpotFunction", &names_type1.SpotFunction },
  100.        { "AccurateScreens", &name_AccurateScreens },
  101.        { "ActualFrequency", &name_ActualFrequency },
  102.        { "ActualAngle", &name_ActualAngle },
  103.         /* Type 2: */
  104.        { "RedFrequency", &names_type2[0].Frequency },
  105.        { "RedAngle", &names_type2[0].Angle },
  106.        { "RedSpotFunction", &names_type2[0].SpotFunction },
  107.        { "GreenFrequency", &names_type2[1].Frequency },
  108.        { "GreenAngle", &names_type2[1].Angle },
  109.        { "GreenSpotFunction", &names_type2[1].SpotFunction },
  110.        { "BlueFrequency", &names_type2[2].Frequency },
  111.        { "BlueAngle", &names_type2[2].Angle },
  112.        { "BlueSpotFunction", &names_type2[2].SpotFunction },
  113.        { "GrayFrequency", &names_type2[3].Frequency },
  114.        { "GrayAngle", &names_type2[3].Angle },
  115.        { "GraySpotFunction", &names_type2[3].SpotFunction },
  116.         /* Type 3: */
  117.        { "Width", &names_type3.Width },
  118.        { "Height", &names_type3.Height },
  119.        { "Thresholds", &names_type3.Thresholds },
  120.         /* Type 4: */
  121.        { "RedWidth", &names_type4[0].Width },
  122.        { "RedHeight", &names_type4[0].Height },
  123.        { "RedThresholds", &names_type4[0].Thresholds },
  124.        { "GreenWidth", &names_type4[1].Width },
  125.        { "GreenHeight", &names_type4[1].Height },
  126.        { "GreenThresholds", &names_type4[1].Thresholds },
  127.        { "BlueWidth", &names_type4[2].Width },
  128.        { "BlueHeight", &names_type4[2].Height },
  129.        { "BlueThresholds", &names_type4[2].Thresholds },
  130.        { "GrayWidth", &names_type4[3].Width },
  131.        { "GrayHeight", &names_type4[3].Height },
  132.        { "GrayThresholds", &names_type4[3].Thresholds },
  133.         /* Type 5 only: */
  134.        { "Red", &name_Red },
  135.        { "Green", &name_Green },
  136.        { "Blue", &name_Blue },
  137.        { "Gray", &name_Gray },
  138.        { "Cyan", &name_Cyan },
  139.        { "Magenta", &name_Magenta },
  140.        { "Yellow", &name_Yellow },
  141.        { "Black", &name_Black },
  142.        { "Default", &name_Default },
  143.  
  144.     /* Mark the end of the initialized name list. */
  145.        names_def_end
  146.     };
  147.  
  148.     init_names(htn);
  149. }
  150.  
  151.  
  152. /* - .currenthalftone <dict> 0 */
  153. /* - .currenthalftone <frequency> <angle> <proc> 1 */
  154. /* - .currenthalftone <red_freq> ... <gray_proc> 2 */
  155. private int
  156. zcurrenthalftone(register os_ptr op)
  157. {    if ( !r_has_type(&istate.halftone, t_null) )
  158.     {    /* Screen was set by sethalftone. */
  159.         push(2);
  160.         op[-1] = istate.halftone;
  161.         make_int(op, 0);
  162.     }
  163.     else if ( 1 )
  164.     {    /* Screen was set by setscreen. */
  165.         float freq, angle;
  166.         float (*proc)(P2(floatp, floatp));
  167.         gs_currentscreen(igs, &freq, &angle, &proc);
  168.         push(4);
  169.         make_real(op - 3, freq);
  170.         make_real(op - 2, angle);
  171.         op[-1] = istate.screen_procs.gray;
  172.         make_int(op, 1);
  173.     }
  174.     else
  175.     {    /* Screen was set by setcolorscreen. */
  176.         push(13);
  177.         make_real(op, 2);
  178.     }
  179.     return 0;
  180. }
  181.  
  182. /* <dict> .sethalftone1 - */
  183. private int
  184. zsethalftone1(register os_ptr op)
  185. {    screen_params par;
  186.     ref spot;
  187.     int code;
  188.     check_dict_read(*op);
  189.     code = dict_screen_params(op, &names_type1, &par, &spot);
  190.     if ( code < 0 ) return code;
  191.     /* NYI */
  192.     pop(1);
  193.     return 0;
  194. }
  195.  
  196. /* <dict> .sethalftone2 - */
  197. private int
  198. zsethalftone2(register os_ptr op)
  199. {    screen_params par[4];
  200.     ref spot[4];
  201.     int i;
  202.     check_dict_read(*op);
  203.     for ( i = 0; i < 4; i++ )
  204.     {    int code = dict_screen_params(op, &names_type2[i],
  205.                           &par[i], &spot[i]);
  206.         if ( code < 0 ) return code;
  207.     }
  208.     /* NYI */
  209.     pop(1);
  210.     return 0;
  211. }
  212.  
  213. /* <dict> .sethalftone3 - */
  214. private int
  215. zsethalftone3(register os_ptr op)
  216. {    threshold_params par;
  217.     int code;
  218.     check_dict_read(*op);
  219.     code = dict_threshold_params(op, &names_type3, &par);
  220.     if ( code < 0 ) return code;
  221.     /* NYI */
  222.     pop(1);
  223.     return 0;
  224. }
  225.  
  226. /* <dict> .sethalftone4 - */
  227. private int
  228. zsethalftone4(register os_ptr op)
  229. {    threshold_params par[4];
  230.     int i;
  231.     check_dict_read(*op);
  232.     for ( i = 0; i < 4; i++ )
  233.     {    int code = dict_threshold_params(op, &names_type4[i],
  234.                          &par[i]);
  235.         if ( code < 0 ) return code;
  236.     }
  237.     /* NYI */
  238.     pop(1);
  239.     return 0;
  240. }
  241.  
  242. /* <dict> .sethalftone5 - */
  243. private int
  244. zsethalftone5(register os_ptr op)
  245. {    uint length;
  246.     typedef union { struct { screen_params p; ref r; } s; threshold_params t; } ht_params;
  247.     ht_params *phts;
  248.     int index;
  249.     ht_params *p;
  250.     ref elt[2];            /* key, value */
  251.     check_dict_read(*op);
  252.     length = dict_length(op);
  253.     phts = (ht_params *)alloc(length, sizeof(ht_params), ".sethalftone5");
  254.     if ( phts == 0 )
  255.         return_error(e_VMerror);
  256.     index = dict_first(op);
  257.     p = phts;
  258.     /* BOGUS: doesn't save the name, .... */
  259.     while ( (index = dict_next(op, index, &elt[0])) >= 0 )
  260.     {    int code;
  261.         check_dict_read(elt[1]);
  262.         if ( (code = dict_screen_params(&elt[0], &names_type1,
  263.                 &p->s.p, &p->s.r)) == e_undefined )
  264.         {    code = dict_threshold_params(&elt[0], &names_type3,
  265.                              &p->t);
  266.         }
  267.         if ( code < 0 ) return code;
  268.     }
  269.     /* NYI */
  270.     pop(1);
  271.     return 0;
  272. }
  273.  
  274. /* ------ Initialization procedure ------ */
  275.  
  276. op_def zht2_op_defs[] = {
  277.     {"0.currenthalftone", zcurrenthalftone},
  278.     {"1.sethalftone1", zsethalftone1},
  279.     {"1.sethalftone2", zsethalftone2},
  280.     {"1.sethalftone3", zsethalftone3},
  281.     {"1.sethalftone4", zsethalftone4},
  282.     {"1.sethalftone5", zsethalftone5},
  283.     op_def_end(zht2_init)
  284. };
  285.  
  286. /* ------ Internal routines ------ */
  287.  
  288. /* Extract frequency, angle, and spot function from a dictionary. */
  289. private int
  290. dict_screen_params(const ref *pdict, const screen_names *pnames,
  291.   screen_params *psp, ref *pproc)
  292. {    int code;
  293.     ref *sproc;
  294.     if ( (code = dict_float_param(pdict, &pnames->Frequency, 0.0,
  295.                       &psp->frequency)) < 0 ||
  296.          (code = dict_float_param(pdict, &pnames->Angle, 0.0,
  297.                            &psp->angle)) < 0 ||
  298.          (code = dict_find(pdict, &pnames->SpotFunction, &sproc)) < 0
  299.        )
  300.         return code;
  301.     check_proc(*sproc);
  302.     *pproc = *sproc;
  303.     return 0;
  304. }
  305.  
  306. /* Extract width, height, and thresholds from a dictionary. */
  307. private int
  308. dict_threshold_params(const ref *pdict, const threshold_names *pnames,
  309.   threshold_params *ptp)
  310. {    int code;
  311.     ref *tstring;
  312.     if ( (code = dict_int_param(pdict, &pnames->Width, 1, 0x7fff, -1,
  313.                     &ptp->width)) < 0 ||
  314.          (code = dict_int_param(pdict, &pnames->Height, 1, 0x7fff, -1,
  315.                     &ptp->height)) < 0 ||
  316.          (code = dict_find(pdict, &pnames->Thresholds, &tstring)) < 0
  317.        )
  318.         return code;
  319.     check_read_type(*tstring, t_string);
  320.     if ( r_size(tstring) != (long)ptp->width * ptp->height )
  321.         return_error(e_rangecheck);
  322.     ptp->thresholds = tstring->value.const_bytes;
  323.     return 0;
  324. }
  325.