xlc_ps.vc

<B>Digital的Unix操作系统VAX 4.2源码</B>

    str_lineto [] = {"%d %d L "},	/* {"%d %d lineto\n"}, */
    str_newpath [] = {"newpath\n"},
    str_closepath [] = {"closepath\n"},
    str_stroke [] = {"K\n"},		/* {"stroke\n"}, */
    str_copy_font [] = {"\n%% COPY FONT *** TBD ***\n"}, /* ***  TBD !!! *** */
    str_moveto [] = {"%d %d M "},	/* {"%d %d moveto\n"}, */
    str_restore_moveto [] = {"R %d %d M "},	/* {"%d %d moveto\n"}, */
    str_translate [] = {"%d %d T\n"},	/* {"%d %d translate\n"}, */
    str_rotate [] = {"%d rotate "},
    str_setlinewidth [] = {"%d W "},	/* {"%d setlinewidth\n"}, */
    str_setpapertray [] = 
    {"statusdict /setpapertray known {statusdict begin %d setpapertray end} if "},
    str_finddefpapertray [] = {"\nfinddefpapertray\n"},
    str_resdefpapertray [] = {"\nresdefpapertray\n"},
    str_open_show [] = {"\n("},
    str_open_proc [] = {"{\n"},		/* open procedure */
    str_close_proc [] = {" } decbind def\n"},	/* close procedure */
    str_decbind [] = {"/decbind {bind} def\n"}, /* bind to operators */
    str_decbind_null [] = {"/decbind {} def\n"}, /* don't bind to operators */
    str_setpacking [] = 
    {"statusdict /setpacking known {statusdict begin true setpacking end} if\n"},
    str_setcachelimit [] = {"12500 setcachelimit\n"}, 
    str_exec_newsheet[] = 
    {"statusdict /newsheet known {statusdict begin newsheet end} if "},

    /* aug27 */
    *close_show_str[64] = {
                           " D\n",	/* ") show\n", */
                           " D1\n",	/* ") show_italic\n", */
                           " D2\n",	/* ") show_bold\n", */
                           " D3\n",	/* ") show_bold_italic\n", */
                           " D4\n",	/* ") show_ul\n", */
                           " D5\n",	/* ") show_ul_italic\n", */
                           " D6\n",	/* ") show_ul_bold\n", */
                           " D7\n",	/* ") show_ul_bold_italic\n", */
                           " D8\n",	/* ") show_overline\n", */
                           " D9\n",	/* ") show_overline_italic\n", */
                           " D10\n",	/* ") show_overline_bold\n", */
                           " D11\n",	/* ") show_overline_bold_italic\n", */
                           " D12\n",	/* ") show_overline_ul\n", */
                           " D13\n",	/* ") show_overline_ul_italic\n", */
                           " D14\n",	/* ") show_overline_ul_bold\n", */
                           " D15\n",	/* ") show_overline_ul_bold_italic\n" */
                           " D16\n",	/* ") show_strike", */
                           " D17\n",	/* ") show_strike_italic\n", */
                           " D18\n",	/* ") show_strike_bold\n", */
                           " D19\n",	/* ") show_strike_bold_italic\n", */
                           " D20\n",	/* ") show_strike_ul\n", */
                           " D21\n",	/* ") show_strike_ul_italic\n", */
                           " D22\n",	/* ") show_strike_ul_bold\n", */
                           " D23\n",	/* ") show_strike_ul_bold_italic\n", */
                           " D24\n",	/* ") show_strike_overline\n", */
                           " D25\n",	/* ") show_strike_overline_italic\n", */
                           " D26\n",	/* ") show_strike_overline_bold\n", */
                           " D27\n",	/* ") show_strike_overline_bold_italic\n", */
                           " D28\n",	/* ") show_strike_overline_ul\n", */
                           " D29\n",	/* ") show_strike_overline_ul_italic\n", */
                           " D30\n",	/* ") show_strike_overline_ul_bold\n", */
                           " D31\n",	/* ") show_strike_overline_ul_bold_italic\n" */
                           " D32\n",	/* ") show_dul\n", */
                           " D33\n",	/* ") show_dul_italic\n", */
                           " D34\n",	/* ") show_dul_bold\n", */
                           " D35\n",	/* ") show_dul_bold_italic\n", */
                           " D36\n",	/* ") show_dul_ul\n", */
                           " D37\n",	/* ") show_dul_ul_italic\n", */
                           " D38\n",	/* ") show_dul_ul_bold\n", */
                           " D39\n",	/* ") show_dul_ul_bold_italic\n", */
                           " D40\n",	/* ") show_dul_overline\n", */
                           " D41\n",	/* ") show_dul_overline_italic\n", */
                           " D42\n",	/* ") show_dul_overline_bold\n", */
                           " D43\n",	/* ") show_dul_overline_bold_italic\n", */
                           " D44\n",	/* ") show_dul_overline_ul\n", */
                           " D45\n",	/* ") show_dul_overline_ul_italic\n", */
                           " D46\n",	/* ") show_dul_overline_ul_bold\n", */
                           " D47\n",	/* ") show_dul_overline_ul_bold_italic\n" */
                           " D48\n",	/* ") show_dul_strike\n", */
                           " D49\n",	/* ") show_dul_strike_italic\n", */
                           " D50\n",	/* ") show_dul_strike_bold\n", */
                           " D51\n",	/* ") show_dul_strike_bold_italic\n", */
                           " D52\n",	/* ") show_dul_strike_ul\n", */
                           " D53\n",	/* ") show_dul_strike_ul_italic\n", */
                           " D54\n",	/* ") show_dul_strike_ul_bold\n", */
                           " D55\n",	/* ") show_dul_strike_ul_bold_italic\n", */
                           " D56\n",	/* ") show_dul_strike_overline\n", */
                           " D57\n",	/* ") show_dul_strike_overline_italic\n", */
                           " D58\n",	/* ") show_dul_strike_overline_bold\n", */
                           " D59\n",	/* ") show_dul_strike_overline_bold_italic\n", */
                           " D60\n",	/* ") show_dul_strike_overline_ul\n", */
                           " D61\n",	/* ") show_dul_strike_overline_ul_italic\n", */
                           " D62\n",	/* ") show_dul_strike_overline_ul_bold\n", */
                           " D63\n"	/* ") show_dul_strike_overline_ul_bold_italic\n" */
    },
    /* end aug27 */


	str_save_open_show [] = {"S \n("},


    str_preamble_show [] = {""},

     str_preamble_vchar [] = {"\
/vshow_ul { pop } def\n\
/vshow_strike { pop } def\n\
/vshow_ul_strike { pop } def\n"},

     str_preamble_fonts [] = {"\
/copy_font { pop pop } def\n\
/set_spacing { pop } def\n\
/load_font { } def\n"};	/* <<< This needs functionality !!!!!! */

/*******************************************
 * Postscript Strings For Defining Fonts    *
 *******************************************/

CONST  BYTE
	str_define_spaced_font [] = 
    	    {"\n/TRN$ANSI_FONT_%d TRN$ANSI_SPACED_DICT_%d definefont pop " },
	str_define_dll_font [] = 
    	    {"\n/TRN$ANSI_FONT_%d TRN$ANSI_FONT_DICT_%d definefont pop " },
    	str_set_box [] =
            {"/TRN$ANSI_BOX_%d {/TRN$ANSI_FONT_%d FD SF} def\n"},
	str_start_font [] = {"TRN$ANSI_FONT_DICT_%d  begin\n"},
	str_fontmatrix [] = {"/FontMatrix [%d 0 0 -%d 0 0] def\n"},
	str_imagemaskmatrix [] = {"\n/imagemaskmatrix [%d 0 0 %d 0 0] def\n"},
	str_start_bitmaps [] = {"\nCharStrings begin"},
	str_blob_ref [] = {"\n/a%d a128 def\n"},
	str_char_replace [] = {"\n/a%d a%d def\n"},
	str_finish_bitmap [] = {" > ] def \n"},
	str_ul_thickness [] = {"\n/UnderlineThickness %d def"},
	str_ul_position [] = {"\n/UnderlinePosition %d def"},
	str_ol_thickness [] = {"\n/OverlineThickness %d def"},
	str_ol_position [] = {"\n/OverlinePosition %d def"},
	str_strikethru_thickness [] = {"\n/StrikethroughThickness %d def"},
	str_strikethru_position [] = {"\n/StrikethroughPosition %d def"};



/*******************************************
 * Postscript String Definitions For Vchar *
 *******************************************/

CONST  BYTE
	str_white [] = {"WH "},		/* {"1 setgray\n"}, */
	str_black [] = {"BK "},		/* {"0 setgray\n"}, */
	str_line_ul [] = {"%d %d TRN$VSHOW_UL\n"},
	str_line_ol [] = {"%d %d TRN$VSHOW_OL\n"},
	str_line_dul [] = {"%d %d TRN$VSHOW_DUL\n"},
	str_line_st [] = {"%d %d TRN$VSHOW_STRIKE\n"},

	str_line_stul [] = {"%d %d TRN$VSHOW_UL_STRIKE\n"},
	str_line_stol [] = {"%d %d TRN$VSHOW_OL_STRIKE\n"},
	str_line_stdul [] = {"%d %d TRN$VSHOW_DUL_STRIKE\n"},


	str_line_ulol []  = {"%d %d TRN$VSHOW_OL_UL\n"},
	str_line_dulol [] = {"%d %d TRN$VSHOW_OL_DUL\n"},

	str_line_stulol [] = {"%d %d TRN$VSHOW_UL_STRIKE_OL\n"},
	str_line_stdulol [] = {"%d %d TRN$VSHOW_DUL_STRIKE_OL\n"};


/*************************************************
 * Postscript String Definitions For Orientation *
 *************************************************/

CONST  BYTE
	str_ps_port [] = {"1 -1 F 0 -%d T\n"},	/* {"1 -1 scale\n0 -%d translate\n"}, */
	str_ps_land [] = {"PSL "},		/* {"90 rotate\n1 -1 scale\n"}, */
	str_port_land [] = {" %d %d T 1 -1 F 90 rotate 1 -1 F\n"},
	str_land_port [] = {" -1 1 F -90 rotate -1 1 F 0 -%d T\n"};


CONST  BYTE str_sixel_new_line [] = {"0 -1 T\n"};

/*--------------------------------------------------------*/

CONST  BYTE str_sixel_data_bin [] = {"I\n"};	/* {"imagepic\n"}; */
CONST  BYTE str_sixel_data_hex [] = {"H\n"};	/* {"imagepic\n"}; */

/*--------------------------------------------------------*/

CONST  BYTE str_sixel_data_info_change [] = {"\
\
/picstr %d string def /bitwidth %d def\n"};

/*=================================*/
/*= 6 scan rows of data goes here =*/
/*=================================*/


/*********************************************
 * include the preamble here on compile time *
 *********************************************/

#include "preamble.tmp"