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