/*******************************************************************************  Copyright (C) 1998-2001  Ljubomir Milanovic & Horst Wagner**  This file is part of the g2 library****  This library is free software; you can redistribute it and/or**  modify it under the terms of the GNU Lesser General Public**  License as published by the Free Software Foundation; either**  version 2.1 of the License, or (at your option) any later version.****  This library is distributed in the hope that it will be useful,**  but WITHOUT ANY WARRANTY; without even the implied warranty of**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU**  Lesser General Public License for more details.****  You should have received a copy of the GNU Lesser General Public**  License along with this library; if not, write to the Free Software**  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA******************************************************************************//* * * Sizes for paper defined in g2_PS.h * Size is in 1/72 inch (=0.351mm) */static int g2_PS_paper_size[][2]={ { 2384, 3370 },   /* g2_A0               -  A0                */ { 1684, 2384 },   /* g2_A1               -  A1                */ { 1191, 1684 },   /* g2_A2               -  A2                */ {  842, 1191 },   /* g2_A3               -  A3                */ {  595,  842 },   /* g2_A4               -  A4                */ {  420,  595 },   /* g2_A5               -  A5                */ {  297,  420 },   /* g2_A6               -  A6                */ {  210,  297 },   /* g2_A7               -  A7                */ {  148,  210 },   /* g2_A8               -  A8                */ {  105,  148 },   /* g2_A9               -  A9                */ { 2920, 4127 },   /* g2_B0               -  B0                */ { 2064, 2920 },   /* g2_B1               -  B1                */ { 1460, 2064 },   /* g2_B2               -  B2                */ { 1032, 1460 },   /* g2_B3               -  B3                */ {  729, 1032 },   /* g2_B4               -  B4                */ {  516,  729 },   /* g2_B5               -  B5                */ {  363,  516 },   /* g2_B6               -  B6                */ {  258,  363 },   /* g2_B7               -  B7                */ {  181,  258 },   /* g2_B8               -  B8                */ {  127,  181 },   /* g2_B9               -  B9                */ {   91,  127 },   /* g2_B10              -  B10               */ {  297,  684 },   /* g2_Comm_10_Envelope -  Comm #10 Envelope */ {  461,  648 },   /* g2_C5_Envelope      -  C5 Envelope       */ {  312,  624 },   /* g2_DL_Envelope      -  DL Envelope       */ {  595,  935 },   /* g2_Folio            -  Folio             */ {  522,  756 },   /* g2_Executive        -  Executive         */ {  612,  792 },   /* g2_Letter           -  Letter            */ {  612, 1008 },   /* g2_Legal            -  Legal             */ { 1224,  792 },   /* g2_Ledger           -  Ledger            */ {  792, 1224 }    /* g2_Tabloid          -  Tabloid           */};/* * * PS operators * */char *g2_PS_operators[]={    " /L { lineto } def",			       /* lineto */    " /St { stroke } def",			       /* stroke */    " /M { moveto } def",			       /* moveto */    " /P {",					       /* plot */    " gsave newpath [] 0 setdash 1 setlinecap 0 setlinewidth",    " 0.2 sub exch 0.2 sub exch moveto 0.4 0.4 rlineto",    " stroke grestore} def",    " /T {",					       /* triangle */    " newpath",    " moveto lineto lineto",    " closepath stroke} def",    " /FT {",					       /* filled triangle */    " newpath",    " moveto lineto lineto",    " closepath fill} def",    " /R {",					       /* rectangle */    " newpath",    " 3 index 1 index 6 4 roll 5 index 1 index",    " moveto lineto lineto lineto closepath stroke} def",    " /FR {",					       /* filled rectangle */    " newpath",    " 3 index 1 index 6 4 roll 5 index 1 index",    " moveto lineto lineto lineto closepath fill} def",    " /A {",					       /* arc */    " gsave /g2_old_matrix matrix currentmatrix def newpath",    " translate scale 0 0 1 5 3 roll arc",    " g2_old_matrix setmatrix stroke grestore } def",    " /FA {",					       /* filled arc */    " gsave /g2_old_matrix matrix currentmatrix def newpath",    " translate scale 0 0 moveto 0 0 1 5 3 roll arc closepath",    " g2_old_matrix setmatrix fill grestore } def",    " /S {",					       /* draw string */    " gsave newpath",    " translate 0 0 moveto show",    " stroke grestore} def",    "\n",    NULL};