WSTester updated to work plus hopefully all the other changes that need to go into...

[jabaws.git] / binaries / src / ViennaRNA / RNAforester / g2-0.70 / src / PS / g2_PS_definitions.h

diff --git a/binaries/src/ViennaRNA/RNAforester/g2-0.70/src/PS/g2_PS_definitions.h b/binaries/src/ViennaRNA/RNAforester/g2-0.70/src/PS/g2_PS_definitions.h
new file mode 100644 (file)
index 0000000..b0b1e41
--- /dev/null
+++ b/binaries/src/ViennaRNA/RNAforester/g2-0.70/src/PS/g2_PS_definitions.h
@@ -0,0 +1,104 @@
+/*****************************************************************************
+**  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
+};
+
+