00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019 #ifndef _G2_PS_DEFINITIONS_H
00020 #define _G2_PS_DEFINITIONS_H
00021
00022
00023
00024
00025
00026
00027 static int g2_PS_paper_size[][2]={
00028 { 2384, 3370 },
00029 { 1684, 2384 },
00030 { 1191, 1684 },
00031 { 842, 1191 },
00032 { 595, 842 },
00033 { 420, 595 },
00034 { 297, 420 },
00035 { 210, 297 },
00036 { 148, 210 },
00037 { 105, 148 },
00038 { 2920, 4127 },
00039 { 2064, 2920 },
00040 { 1460, 2064 },
00041 { 1032, 1460 },
00042 { 729, 1032 },
00043 { 516, 729 },
00044 { 363, 516 },
00045 { 258, 363 },
00046 { 181, 258 },
00047 { 127, 181 },
00048 { 91, 127 },
00049 { 297, 684 },
00050 { 461, 648 },
00051 { 312, 624 },
00052 { 595, 935 },
00053 { 522, 756 },
00054 { 612, 792 },
00055 { 612, 1008 },
00056 { 1224, 792 },
00057 { 792, 1224 }
00058 };
00059
00060
00061
00062
00063
00064
00065
00066 char *g2_PS_operators[]={
00067 " /L { lineto } def",
00068 " /St { stroke } def",
00069 " /M { moveto } def",
00070 " /P {",
00071 " gsave newpath [] 0 setdash 1 setlinecap 0 setlinewidth",
00072 " 0.2 sub exch 0.2 sub exch moveto 0.4 0.4 rlineto",
00073 " stroke grestore} def",
00074 " /T {",
00075 " newpath",
00076 " moveto lineto lineto",
00077 " closepath stroke} def",
00078 " /FT {",
00079 " newpath",
00080 " moveto lineto lineto",
00081 " closepath fill} def",
00082 " /R {",
00083 " newpath",
00084 " 3 index 1 index 6 4 roll 5 index 1 index",
00085 " moveto lineto lineto lineto closepath stroke} def",
00086 " /FR {",
00087 " newpath",
00088 " 3 index 1 index 6 4 roll 5 index 1 index",
00089 " moveto lineto lineto lineto closepath fill} def",
00090 " /A {",
00091 " gsave /g2_old_matrix matrix currentmatrix def newpath",
00092 " translate scale 0 0 1 5 3 roll arc",
00093 " g2_old_matrix setmatrix stroke grestore } def",
00094 " /FA {",
00095 " gsave /g2_old_matrix matrix currentmatrix def newpath",
00096 " translate scale 0 0 moveto 0 0 1 5 3 roll arc closepath",
00097 " g2_old_matrix setmatrix fill grestore } def",
00098 " /S {",
00099 " gsave newpath",
00100 " translate 0 0 moveto show",
00101 " stroke grestore} def",
00102 "\n",
00103 NULL
00104 };
00105
00106 #endif