plt.cpp

Go to the documentation of this file.

#include <../../nrnconf.h>
 
#include "gui-redirect.h"
 
extern void Fig_file(const char*, int);
 
#ifndef MINGW
 
void hoc_Plt(void) {
    TRY_GUI_REDIRECT_DOUBLE("plt", NULL);
    int mode;
    double x, y;
    mode = *getarg(1);
    if (mode >= 0 || ifarg(2)) {
        if ((x = *getarg(2)) > 2047)
            x = 2047;
        else if (x < 0)
            x = 0;
        if ((y = *getarg(3)) > 2047)
            y = 2047;
        else if (y < 0)
            y = 0;
    } else {
        x = y = 0.;
    }
    hoc_plt(mode, x, y);
    hoc_ret();
    hoc_pushx(1.);
}
 
void hoc_Setcolor(void) {
    TRY_GUI_REDIRECT_DOUBLE("setcolor", NULL);
    double i;
    i = hoc_set_color((int) *getarg(1));
    hoc_ret();
    hoc_pushx(i);
}
 
void hoc_Lw(void) {
    char* s;
    static int dev = 2;
    if (ifarg(1)) {
        s = gargstr(1);
        if (ifarg(2)) {
            dev = *getarg(2);
        }
        if (s[0] != '\0') {
            Fig_file(s, dev);
        } else {
            Fig_file((char*) 0, dev);
        }
    } else {
        Fig_file((char*) 0, dev);
    }
    hoc_ret();
    hoc_pushx(0.);
}
 
#endif /*!defined(MINGW)*/