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 / g2_ui_device.c

diff --git a/binaries/src/ViennaRNA/RNAforester/g2-0.70/src/g2_ui_device.c b/binaries/src/ViennaRNA/RNAforester/g2-0.70/src/g2_ui_device.c
new file mode 100644 (file)
index 0000000..418b4ed
--- /dev/null
+++ b/binaries/src/ViennaRNA/RNAforester/g2-0.70/src/g2_ui_device.c
@@ -0,0 +1,196 @@
+/*****************************************************************************
+**  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
+******************************************************************************/
+#include <stdio.h>
+
+#include "g2.h"
+#include "g2_funix.h"
+#include "g2_device.h"
+#include "g2_util.h"
+
+/**
+ * \ingroup interface
+ * \defgroup device devices control
+ */
+
+
+/**
+ *
+ * Close and delete a device.
+ *
+ * \param dev device
+ *
+ * \ingroup device
+ */
+void g2_close(int dev)
+{
+    g2_device *devp;
+
+    if((devp=g2_get_device_pointer(dev))==NULL) {
+       fprintf(stderr, "g2_close: Warning! No such device: %d\n", dev);
+       return;
+    }
+    
+    switch(devp->t) {
+      case g2_PD:
+       devp->d.pd->ff[g2_Delete].fun(devp->d.pd->pid,
+                                     devp->d.pd->pdp);
+       break;
+      case g2_VD:
+       while(devp->d.vd->N>0)                    /* close all devices */
+           g2_close(devp->d.vd->dix[devp->d.vd->N-1]);
+       break;
+      case g2_ILLEGAL:
+       break;
+      case g2_NDEV:
+       break;
+    }
+    g2_destroy_device(dev);                      /* destroy device */
+}
+
+
+/**
+ *
+ * Set auto flush mode for device \a dev. Auto flush mode means that after each graphical
+ * operation g2 library automatically calls flush function to ensure that output is realy
+ * displayed. However, freqent flushing decreases performance. Alternative is to flush
+ * output when needed by calling g2_flush function.
+ *
+ * \param dev device
+ * \param on_off 1-on 0-off
+ *
+ * \ingroup device
+ */
+void g2_set_auto_flush(int dev, int on_off)
+{
+    g2_device *devp;
+    int i;
+    
+    if((devp=g2_get_device_pointer(dev))==NULL) {
+       g2_log(Error, "g2: Error! g2_set_auto_flush: No such device: %d\n", dev);
+       return;
+    }
+    
+    switch(devp->t) {
+      case g2_PD:
+       break;
+      case g2_VD:
+       for(i=0;i<devp->d.vd->N;i++) {
+           g2_set_auto_flush(devp->d.vd->dix[i], on_off);
+       }
+       break;
+      case g2_ILLEGAL:
+       break;
+      case g2_NDEV:
+       break;
+    }
+    
+    devp->auto_flush=on_off;  /* set auto flush for all (vd and pd) devices */
+    __g2_last_device=dev;
+}
+
+
+/**
+ *
+ * Set the user coordinate system.
+ *
+ * \param dev device
+ * \param x_origin x coordinate of the new origin (expressed in the default coordinate system)
+ * \param y_origin x coordinate of the new origin (expressed in the default coordinate system)
+ * \param x_mul x scaling factor
+ * \param y_mul y scaling factor
+ *
+ * \ingroup device
+ */
+void g2_set_coordinate_system(int dev,
+                             double x_origin, double y_origin,
+                             double x_mul,    double y_mul)
+{
+    g2_device *devp;
+    int i;
+    
+    if(x_mul==0.0 || y_mul==0.0) {
+       fprintf(stderr,
+            "g2_set_coordinate_system: Error! Multiplicator can not be 0.0");
+       return;
+    }
+    
+    if((devp=g2_get_device_pointer(dev))==NULL) {
+       fprintf(stderr,
+               "g2_set_coordinate_system: Warning! No such device: %d\n",
+               dev);
+       return;
+    }
+    
+    switch(devp->t) {
+      case g2_PD:
+       devp->d.pd->x_origin=x_origin;
+       devp->d.pd->y_origin=y_origin;
+       devp->d.pd->x_mul=x_mul;
+       devp->d.pd->y_mul=y_mul;
+       break;
+      case g2_VD:
+       for(i=0;i<devp->d.vd->N;i++)
+           g2_set_coordinate_system(devp->d.vd->dix[i],
+                                    x_origin, y_origin,
+                                    x_mul, y_mul);
+       break;
+      case g2_ILLEGAL:
+       break;
+      case g2_NDEV:
+       break;
+    }
+    __g2_last_device=dev;
+}
+
+
+
+/**
+ *
+ * Get the last accessed device. G2LD macro is defined as the g2_ld function.
+ *
+ * \code
+ *   g2_open_X11(100, 100);
+ *   g2_plot(G2LD, 50, 50);
+ * \endcode
+ *
+ * \ingroup device
+ */
+int g2_ld(void)
+{
+    return __g2_last_device;
+}
+
+
+
+/**
+ *
+ * Set the last accessed device. See also g2_ld()  function.
+ *
+ * \param dev device
+ *
+ * \ingroup device
+ */
+void g2_set_ld(int dev)
+{
+    if(!g2_device_exist(dev)) {
+       fprintf(stderr, "g2_set_lsd: Warning! No such device: %d\n", dev);
+       return;
+    }
+    __g2_last_device=dev;
+}