plplot_octaveOCTAVE_wrap.cxx

Go to the documentation of this file.

/* ----------------------------------------------------------------------------
 * This file was automatically generated by SWIG (http://www.swig.org).
 * Version 2.0.12
 *
 * This file is not intended to be easily readable and contains a number of
 * coding conventions designed to improve portability and efficiency. Do not make
 * changes to this file unless you know what you are doing--modify the SWIG
 * interface file instead.
 * ----------------------------------------------------------------------------- */

#define SWIGOCTAVE
#define SWIG_name_d      "plplot_octave"
#define SWIG_name        plplot_octave

#define SWIG_global_name      "cvar"
#define SWIG_op_prefix        "op_"


#ifdef __cplusplus
/* SwigValueWrapper is described in swig.swg */
template<typename T> class SwigValueWrapper {
  struct SwigMovePointer {
    T *ptr;
    SwigMovePointer(T *p) : ptr(p) { }
    ~SwigMovePointer() { delete ptr; }
    SwigMovePointer& operator=(SwigMovePointer& rhs) { T* oldptr = ptr; ptr = 0; delete oldptr; ptr = rhs.ptr; rhs.ptr = 0; return *this; }
  } pointer;
  SwigValueWrapper& operator=(const SwigValueWrapper<T>& rhs);
  SwigValueWrapper(const SwigValueWrapper<T>& rhs);
public:
  SwigValueWrapper() : pointer(0) { }
  SwigValueWrapper& operator=(const T& t) { SwigMovePointer tmp(new T(t)); pointer = tmp; return *this; }
  operator T&() const { return *pointer.ptr; }
  T *operator&() { return pointer.ptr; }
};

template <typename T> T SwigValueInit() {
  return T();
}
#endif

/* -----------------------------------------------------------------------------
 *  This section contains generic SWIG labels for method/variable
 *  declarations/attributes, and other compiler dependent labels.
 * ----------------------------------------------------------------------------- */

/* template workaround for compilers that cannot correctly implement the C++ standard */
#ifndef SWIGTEMPLATEDISAMBIGUATOR
# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
#  define SWIGTEMPLATEDISAMBIGUATOR template
# elif defined(__HP_aCC)
/* Needed even with `aCC -AA' when `aCC -V' reports HP ANSI C++ B3910B A.03.55 */
/* If we find a maximum version that requires this, the test would be __HP_aCC <= 35500 for A.03.55 */
#  define SWIGTEMPLATEDISAMBIGUATOR template
# else
#  define SWIGTEMPLATEDISAMBIGUATOR
# endif
#endif

/* inline attribute */
#ifndef SWIGINLINE
# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
#   define SWIGINLINE inline
# else
#   define SWIGINLINE
# endif
#endif

/* attribute recognised by some compilers to avoid 'unused' warnings */
#ifndef SWIGUNUSED
# if defined(__GNUC__)
#   if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
#     define SWIGUNUSED __attribute__ ((__unused__))
#   else
#     define SWIGUNUSED
#   endif
# elif defined(__ICC)
#   define SWIGUNUSED __attribute__ ((__unused__))
# else
#   define SWIGUNUSED
# endif
#endif

#ifndef SWIG_MSC_UNSUPPRESS_4505
# if defined(_MSC_VER)
#   pragma warning(disable : 4505) /* unreferenced local function has been removed */
# endif
#endif

#ifndef SWIGUNUSEDPARM
# ifdef __cplusplus
#   define SWIGUNUSEDPARM(p)
# else
#   define SWIGUNUSEDPARM(p) p SWIGUNUSED
# endif
#endif

/* internal SWIG method */
#ifndef SWIGINTERN
# define SWIGINTERN static SWIGUNUSED
#endif

/* internal inline SWIG method */
#ifndef SWIGINTERNINLINE
# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
#endif

/* exporting methods */
#if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
#  ifndef GCC_HASCLASSVISIBILITY
#    define GCC_HASCLASSVISIBILITY
#  endif
#endif

#ifndef SWIGEXPORT
# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
#   if defined(STATIC_LINKED)
#     define SWIGEXPORT
#   else
#     define SWIGEXPORT __declspec(dllexport)
#   endif
# else
#   if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
#     define SWIGEXPORT __attribute__ ((visibility("default")))
#   else
#     define SWIGEXPORT
#   endif
# endif
#endif

/* calling conventions for Windows */
#ifndef SWIGSTDCALL
# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
#   define SWIGSTDCALL __stdcall
# else
#   define SWIGSTDCALL
# endif
#endif

/* Deal with Microsoft's attempt at deprecating C standard runtime functions */
#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
# define _CRT_SECURE_NO_DEPRECATE
#endif

/* Deal with Microsoft's attempt at deprecating methods in the standard C++ library */
#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
# define _SCL_SECURE_NO_DEPRECATE
#endif



#include <cstdlib>
#include <iostream>
#include <octave/oct.h>
#include <octave/Cell.h>
#include <octave/dynamic-ld.h>
#include <octave/oct-env.h>
#include <octave/oct-map.h>
#include <octave/ov-fcn-handle.h>
#include <octave/parse.h>
#include <octave/toplev.h>
#include <octave/unwind-prot.h>

/* -----------------------------------------------------------------------------
 * swigrun.swg
 *
 * This file contains generic C API SWIG runtime support for pointer
 * type checking.
 * ----------------------------------------------------------------------------- */

/* This should only be incremented when either the layout of swig_type_info changes,
   or for whatever reason, the runtime changes incompatibly */
#define SWIG_RUNTIME_VERSION "4"

/* define SWIG_TYPE_TABLE_NAME as "SWIG_TYPE_TABLE" */
#ifdef SWIG_TYPE_TABLE
# define SWIG_QUOTE_STRING(x) #x
# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
#else
# define SWIG_TYPE_TABLE_NAME
#endif

/*
  You can use the SWIGRUNTIME and SWIGRUNTIMEINLINE macros for
  creating a static or dynamic library from the SWIG runtime code.
  In 99.9% of the cases, SWIG just needs to declare them as 'static'.

  But only do this if strictly necessary, ie, if you have problems
  with your compiler or suchlike.
*/

#ifndef SWIGRUNTIME
# define SWIGRUNTIME SWIGINTERN
#endif

#ifndef SWIGRUNTIMEINLINE
# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
#endif

/*  Generic buffer size */
#ifndef SWIG_BUFFER_SIZE
# define SWIG_BUFFER_SIZE 1024
#endif

/* Flags for pointer conversions */
#define SWIG_POINTER_DISOWN        0x1
#define SWIG_CAST_NEW_MEMORY       0x2

/* Flags for new pointer objects */
#define SWIG_POINTER_OWN           0x1


/*
   Flags/methods for returning states.

   The SWIG conversion methods, as ConvertPtr, return an integer
   that tells if the conversion was successful or not. And if not,
   an error code can be returned (see swigerrors.swg for the codes).

   Use the following macros/flags to set or process the returning
   states.

   In old versions of SWIG, code such as the following was usually written:

     if (SWIG_ConvertPtr(obj,vptr,ty.flags) != -1) {
       // success code
     } else {
       //fail code
     }

   Now you can be more explicit:

    int res = SWIG_ConvertPtr(obj,vptr,ty.flags);
    if (SWIG_IsOK(res)) {
      // success code
    } else {
      // fail code
    }

   which is the same really, but now you can also do

    Type *ptr;
    int res = SWIG_ConvertPtr(obj,(void **)(&ptr),ty.flags);
    if (SWIG_IsOK(res)) {
      // success code
      if (SWIG_IsNewObj(res) {
        ...
        delete *ptr;
      } else {
        ...
      }
    } else {
      // fail code
    }

   I.e., now SWIG_ConvertPtr can return new objects and you can
   identify the case and take care of the deallocation. Of course that
   also requires SWIG_ConvertPtr to return new result values, such as

      int SWIG_ConvertPtr(obj, ptr,...) {
        if (<obj is ok>) {
          if (<need new object>) {
            *ptr = <ptr to new allocated object>;
            return SWIG_NEWOBJ;
          } else {
            *ptr = <ptr to old object>;
            return SWIG_OLDOBJ;
          }
        } else {
          return SWIG_BADOBJ;
        }
      }

   Of course, returning the plain '0(success)/-1(fail)' still works, but you can be
   more explicit by returning SWIG_BADOBJ, SWIG_ERROR or any of the
   SWIG errors code.

   Finally, if the SWIG_CASTRANK_MODE is enabled, the result code
   allows to return the 'cast rank', for example, if you have this

       int food(double)
       int fooi(int);

   and you call

      food(1)   // cast rank '1'  (1 -> 1.0)
      fooi(1)   // cast rank '0'

   just use the SWIG_AddCast()/SWIG_CheckState()
*/

#define SWIG_OK                    (0)
#define SWIG_ERROR                 (-1)
#define SWIG_IsOK(r)               (r >= 0)
#define SWIG_ArgError(r)           ((r != SWIG_ERROR) ? r : SWIG_TypeError)

/* The CastRankLimit says how many bits are used for the cast rank */
#define SWIG_CASTRANKLIMIT         (1 << 8)
/* The NewMask denotes the object was created (using new/malloc) */
#define SWIG_NEWOBJMASK            (SWIG_CASTRANKLIMIT  << 1)
/* The TmpMask is for in/out typemaps that use temporal objects */
#define SWIG_TMPOBJMASK            (SWIG_NEWOBJMASK << 1)
/* Simple returning values */
#define SWIG_BADOBJ                (SWIG_ERROR)
#define SWIG_OLDOBJ                (SWIG_OK)
#define SWIG_NEWOBJ                (SWIG_OK | SWIG_NEWOBJMASK)
#define SWIG_TMPOBJ                (SWIG_OK | SWIG_TMPOBJMASK)
/* Check, add and del mask methods */
#define SWIG_AddNewMask(r)         (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
#define SWIG_DelNewMask(r)         (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
#define SWIG_IsNewObj(r)           (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
#define SWIG_AddTmpMask(r)         (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
#define SWIG_DelTmpMask(r)         (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
#define SWIG_IsTmpObj(r)           (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))

/* Cast-Rank Mode */
#if defined(SWIG_CASTRANK_MODE)
#  ifndef SWIG_TypeRank
#    define SWIG_TypeRank             unsigned long
#  endif
#  ifndef SWIG_MAXCASTRANK            /* Default cast allowed */
#    define SWIG_MAXCASTRANK          (2)
#  endif
#  define SWIG_CASTRANKMASK          ((SWIG_CASTRANKLIMIT) -1)
#  define SWIG_CastRank(r)           (r & SWIG_CASTRANKMASK)
SWIGINTERNINLINE int SWIG_AddCast(int r) {
  return SWIG_IsOK(r) ? ((SWIG_CastRank(r) < SWIG_MAXCASTRANK) ? (r + 1) : SWIG_ERROR) : r;
}
SWIGINTERNINLINE int SWIG_CheckState(int r) {
  return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
}
#else /* no cast-rank mode */
#  define SWIG_AddCast(r) (r)
#  define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
#endif


#include <string.h>

#ifdef __cplusplus
extern "C" {
#endif

typedef void *(*swig_converter_func)(void *, int *);
typedef struct swig_type_info *(*swig_dycast_func)(void **);

/* Structure to store information on one type */
typedef struct swig_type_info {
  const char             *name;                 /* mangled name of this type */
  const char             *str;                  /* human readable name of this type */
  swig_dycast_func        dcast;                /* dynamic cast function down a hierarchy */
  struct swig_cast_info  *cast;                 /* linked list of types that can cast into this type */
  void                   *clientdata;           /* language specific type data */
  int                    owndata;               /* flag if the structure owns the clientdata */
} swig_type_info;

/* Structure to store a type and conversion function used for casting */
typedef struct swig_cast_info {
  swig_type_info         *type;                 /* pointer to type that is equivalent to this type */
  swig_converter_func     converter;            /* function to cast the void pointers */
  struct swig_cast_info  *next;                 /* pointer to next cast in linked list */
  struct swig_cast_info  *prev;                 /* pointer to the previous cast */
} swig_cast_info;

/* Structure used to store module information
 * Each module generates one structure like this, and the runtime collects
 * all of these structures and stores them in a circularly linked list.*/
typedef struct swig_module_info {
  swig_type_info         **types;               /* Array of pointers to swig_type_info structures that are in this module */
  size_t                 size;                  /* Number of types in this module */
  struct swig_module_info *next;                /* Pointer to next element in circularly linked list */
  swig_type_info         **type_initial;        /* Array of initially generated type structures */
  swig_cast_info         **cast_initial;        /* Array of initially generated casting structures */
  void                    *clientdata;          /* Language specific module data */
} swig_module_info;

/*
  Compare two type names skipping the space characters, therefore
  "char*" == "char *" and "Class<int>" == "Class<int >", etc.

  Return 0 when the two name types are equivalent, as in
  strncmp, but skipping ' '.
*/
SWIGRUNTIME int
SWIG_TypeNameComp(const char *f1, const char *l1,
                  const char *f2, const char *l2) {
  for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
    while ((*f1 == ' ') && (f1 != l1)) ++f1;
    while ((*f2 == ' ') && (f2 != l2)) ++f2;
    if (*f1 != *f2) return (*f1 > *f2) ? 1 : -1;
  }
  return (int)((l1 - f1) - (l2 - f2));
}

/*
  Check type equivalence in a name list like <name1>|<name2>|...
  Return 0 if equal, -1 if nb < tb, 1 if nb > tb
*/
SWIGRUNTIME int
SWIG_TypeCmp(const char *nb, const char *tb) {
  int equiv = 1;
  const char* te = tb + strlen(tb);
  const char* ne = nb;
  while (equiv != 0 && *ne) {
    for (nb = ne; *ne; ++ne) {
      if (*ne == '|') break;
    }
    equiv = SWIG_TypeNameComp(nb, ne, tb, te);
    if (*ne) ++ne;
  }
  return equiv;
}

/*
  Check type equivalence in a name list like <name1>|<name2>|...
  Return 0 if not equal, 1 if equal
*/
SWIGRUNTIME int
SWIG_TypeEquiv(const char *nb, const char *tb) {
  return SWIG_TypeCmp(nb, tb) == 0 ? 1 : 0;
}

/*
  Check the typename
*/
SWIGRUNTIME swig_cast_info *
SWIG_TypeCheck(const char *c, swig_type_info *ty) {
  if (ty) {
    swig_cast_info *iter = ty->cast;
    while (iter) {
      if (strcmp(iter->type->name, c) == 0) {
        if (iter == ty->cast)
          return iter;
        /* Move iter to the top of the linked list */
        iter->prev->next = iter->next;
        if (iter->next)
          iter->next->prev = iter->prev;
        iter->next = ty->cast;
        iter->prev = 0;
        if (ty->cast) ty->cast->prev = iter;
        ty->cast = iter;
        return iter;
      }
      iter = iter->next;
    }
  }
  return 0;
}

/*
  Identical to SWIG_TypeCheck, except strcmp is replaced with a pointer comparison
*/
SWIGRUNTIME swig_cast_info *
SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty) {
  if (ty) {
    swig_cast_info *iter = ty->cast;
    while (iter) {
      if (iter->type == from) {
        if (iter == ty->cast)
          return iter;
        /* Move iter to the top of the linked list */
        iter->prev->next = iter->next;
        if (iter->next)
          iter->next->prev = iter->prev;
        iter->next = ty->cast;
        iter->prev = 0;
        if (ty->cast) ty->cast->prev = iter;
        ty->cast = iter;
        return iter;
      }
      iter = iter->next;
    }
  }
  return 0;
}

/*
  Cast a pointer up an inheritance hierarchy
*/
SWIGRUNTIMEINLINE void *
SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory) {
  return ((!ty) || (!ty->converter)) ? ptr : (*ty->converter)(ptr, newmemory);
}

/*
   Dynamic pointer casting. Down an inheritance hierarchy
*/
SWIGRUNTIME swig_type_info *
SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr) {
  swig_type_info *lastty = ty;
  if (!ty || !ty->dcast) return ty;
  while (ty && (ty->dcast)) {
    ty = (*ty->dcast)(ptr);
    if (ty) lastty = ty;
  }
  return lastty;
}

/*
  Return the name associated with this type
*/
SWIGRUNTIMEINLINE const char *
SWIG_TypeName(const swig_type_info *ty) {
  return ty->name;
}

/*
  Return the pretty name associated with this type,
  that is an unmangled type name in a form presentable to the user.
*/
SWIGRUNTIME const char *
SWIG_TypePrettyName(const swig_type_info *type) {
  /* The "str" field contains the equivalent pretty names of the
     type, separated by vertical-bar characters.  We choose
     to print the last name, as it is often (?) the most
     specific. */
  if (!type) return NULL;
  if (type->str != NULL) {
    const char *last_name = type->str;
    const char *s;
    for (s = type->str; *s; s++)
      if (*s == '|') last_name = s+1;
    return last_name;
  }
  else
    return type->name;
}

/*
   Set the clientdata field for a type
*/
SWIGRUNTIME void
SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
  swig_cast_info *cast = ti->cast;
  /* if (ti->clientdata == clientdata) return; */
  ti->clientdata = clientdata;

  while (cast) {
    if (!cast->converter) {
      swig_type_info *tc = cast->type;
      if (!tc->clientdata) {
        SWIG_TypeClientData(tc, clientdata);
      }
    }
    cast = cast->next;
  }
}
SWIGRUNTIME void
SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata) {
  SWIG_TypeClientData(ti, clientdata);
  ti->owndata = 1;
}

/*
  Search for a swig_type_info structure only by mangled name
  Search is a O(log #types)

  We start searching at module start, and finish searching when start == end.
  Note: if start == end at the beginning of the function, we go all the way around
  the circular list.
*/
SWIGRUNTIME swig_type_info *
SWIG_MangledTypeQueryModule(swig_module_info *start,
                            swig_module_info *end,
                            const char *name) {
  swig_module_info *iter = start;
  do {
    if (iter->size) {
      register size_t l = 0;
      register size_t r = iter->size - 1;
      do {
        /* since l+r >= 0, we can (>> 1) instead (/ 2) */
        register size_t i = (l + r) >> 1;
        const char *iname = iter->types[i]->name;
        if (iname) {
          register int compare = strcmp(name, iname);
          if (compare == 0) {
            return iter->types[i];
          } else if (compare < 0) {
            if (i) {
              r = i - 1;
            } else {
              break;
            }
          } else if (compare > 0) {
            l = i + 1;
          }
        } else {
          break; /* should never happen */
        }
      } while (l <= r);
    }
    iter = iter->next;
  } while (iter != end);
  return 0;
}

/*
  Search for a swig_type_info structure for either a mangled name or a human readable name.
  It first searches the mangled names of the types, which is a O(log #types)
  If a type is not found it then searches the human readable names, which is O(#types).

  We start searching at module start, and finish searching when start == end.
  Note: if start == end at the beginning of the function, we go all the way around
  the circular list.
*/
SWIGRUNTIME swig_type_info *
SWIG_TypeQueryModule(swig_module_info *start,
                     swig_module_info *end,
                     const char *name) {
  /* STEP 1: Search the name field using binary search */
  swig_type_info *ret = SWIG_MangledTypeQueryModule(start, end, name);
  if (ret) {
    return ret;
  } else {
    /* STEP 2: If the type hasn't been found, do a complete search
       of the str field (the human readable name) */
    swig_module_info *iter = start;
    do {
      register size_t i = 0;
      for (; i < iter->size; ++i) {
        if (iter->types[i]->str && (SWIG_TypeEquiv(iter->types[i]->str, name)))
          return iter->types[i];
      }
      iter = iter->next;
    } while (iter != end);
  }

  /* neither found a match */
  return 0;
}

/*
   Pack binary data into a string
*/
SWIGRUNTIME char *
SWIG_PackData(char *c, void *ptr, size_t sz) {
  static const char hex[17] = "0123456789abcdef";
  register const unsigned char *u = (unsigned char *) ptr;
  register const unsigned char *eu =  u + sz;
  for (; u != eu; ++u) {
    register unsigned char uu = *u;
    *(c++) = hex[(uu & 0xf0) >> 4];
    *(c++) = hex[uu & 0xf];
  }
  return c;
}

/*
   Unpack binary data from a string
*/
SWIGRUNTIME const char *
SWIG_UnpackData(const char *c, void *ptr, size_t sz) {
  register unsigned char *u = (unsigned char *) ptr;
  register const unsigned char *eu = u + sz;
  for (; u != eu; ++u) {
    register char d = *(c++);
    register unsigned char uu;
    if ((d >= '0') && (d <= '9'))
      uu = ((d - '0') << 4);
    else if ((d >= 'a') && (d <= 'f'))
      uu = ((d - ('a'-10)) << 4);
    else
      return (char *) 0;
    d = *(c++);
    if ((d >= '0') && (d <= '9'))
      uu |= (d - '0');
    else if ((d >= 'a') && (d <= 'f'))
      uu |= (d - ('a'-10));
    else
      return (char *) 0;
    *u = uu;
  }
  return c;
}

/*
   Pack 'void *' into a string buffer.
*/
SWIGRUNTIME char *
SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz) {
  char *r = buff;
  if ((2*sizeof(void *) + 2) > bsz) return 0;
  *(r++) = '_';
  r = SWIG_PackData(r,&ptr,sizeof(void *));
  if (strlen(name) + 1 > (bsz - (r - buff))) return 0;
  strcpy(r,name);
  return buff;
}

SWIGRUNTIME const char *
SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name) {
  if (*c != '_') {
    if (strcmp(c,"NULL") == 0) {
      *ptr = (void *) 0;
      return name;
    } else {
      return 0;
    }
  }
  return SWIG_UnpackData(++c,ptr,sizeof(void *));
}

SWIGRUNTIME char *
SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz) {
  char *r = buff;
  size_t lname = (name ? strlen(name) : 0);
  if ((2*sz + 2 + lname) > bsz) return 0;
  *(r++) = '_';
  r = SWIG_PackData(r,ptr,sz);
  if (lname) {
    strncpy(r,name,lname+1);
  } else {
    *r = 0;
  }
  return buff;
}

SWIGRUNTIME const char *
SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name) {
  if (*c != '_') {
    if (strcmp(c,"NULL") == 0) {
      memset(ptr,0,sz);
      return name;
    } else {
      return 0;
    }
  }
  return SWIG_UnpackData(++c,ptr,sz);
}

#ifdef __cplusplus
}
#endif

/*  Errors in SWIG */
#define  SWIG_UnknownError         -1
#define  SWIG_IOError              -2
#define  SWIG_RuntimeError         -3
#define  SWIG_IndexError           -4
#define  SWIG_TypeError            -5
#define  SWIG_DivisionByZero       -6
#define  SWIG_OverflowError        -7
#define  SWIG_SyntaxError          -8
#define  SWIG_ValueError           -9
#define  SWIG_SystemError          -10
#define  SWIG_AttributeError       -11
#define  SWIG_MemoryError          -12
#define  SWIG_NullReferenceError   -13




#include <octave/version.h>

// Macro for enabling features which require Octave version >= major.minor.patch
#define SWIG_OCTAVE_PREREQ(major, minor, patch) \
  ( (OCTAVE_MAJOR_VERSION<<16) + (OCTAVE_MINOR_VERSION<<8) + OCTAVE_PATCH_VERSION >= ((major)<<16) + ((minor)<<8) + (patch) )

// Reconstruct Octave major, minor, and patch versions for releases prior to 3.8.1
#if !defined(OCTAVE_MAJOR_VERSION)

# if !defined(OCTAVE_API_VERSION_NUMBER)

// Hack to distinguish between Octave 3.8.0, which removed OCTAVE_API_VERSION_NUMBER but did not yet
// introduce OCTAVE_MAJOR_VERSION, and Octave <= 3.2, which did not define OCTAVE_API_VERSION_NUMBER
#  include <octave/ov.h>
#  if defined(octave_ov_h)
#   define OCTAVE_MAJOR_VERSION 3
#   define OCTAVE_MINOR_VERSION 8
#   define OCTAVE_PATCH_VERSION 0
#  else

// Hack to distinguish between Octave 3.2 and earlier versions, before OCTAVE_API_VERSION_NUMBER existed
#   define ComplexLU __ignore
#   include <octave/CmplxLU.h>
#   undef ComplexLU
#   if defined(octave_Complex_LU_h)

// We know only that this version is prior to Octave 3.2, i.e. OCTAVE_API_VERSION_NUMBER < 37
#    define OCTAVE_MAJOR_VERSION 3
#    define OCTAVE_MINOR_VERSION 1
#    define OCTAVE_PATCH_VERSION 99

#   else

// OCTAVE_API_VERSION_NUMBER == 37
#    define OCTAVE_MAJOR_VERSION 3
#    define OCTAVE_MINOR_VERSION 2
#    define OCTAVE_PATCH_VERSION 0

#   endif // defined(octave_Complex_LU_h)

#  endif // defined(octave_ov_h)

// Correlation between Octave API and version numbers extracted from Octave's
// ChangeLogs; version is the *earliest* released Octave with that API number
# elif OCTAVE_API_VERSION_NUMBER >= 48
#  define OCTAVE_MAJOR_VERSION 3
#  define OCTAVE_MINOR_VERSION 6
#  define OCTAVE_PATCH_VERSION 0

# elif OCTAVE_API_VERSION_NUMBER >= 45
#  define OCTAVE_MAJOR_VERSION 3
#  define OCTAVE_MINOR_VERSION 4
#  define OCTAVE_PATCH_VERSION 1

# elif OCTAVE_API_VERSION_NUMBER >= 42
#  define OCTAVE_MAJOR_VERSION 3
#  define OCTAVE_MINOR_VERSION 3
#  define OCTAVE_PATCH_VERSION 54

# elif OCTAVE_API_VERSION_NUMBER >= 41
#  define OCTAVE_MAJOR_VERSION 3
#  define OCTAVE_MINOR_VERSION 3
#  define OCTAVE_PATCH_VERSION 53

# elif OCTAVE_API_VERSION_NUMBER >= 40
#  define OCTAVE_MAJOR_VERSION 3
#  define OCTAVE_MINOR_VERSION 3
#  define OCTAVE_PATCH_VERSION 52

# elif OCTAVE_API_VERSION_NUMBER >= 39
#  define OCTAVE_MAJOR_VERSION 3
#  define OCTAVE_MINOR_VERSION 3
#  define OCTAVE_PATCH_VERSION 51

# else // OCTAVE_API_VERSION_NUMBER == 38
#  define OCTAVE_MAJOR_VERSION 3
#  define OCTAVE_MINOR_VERSION 3
#  define OCTAVE_PATCH_VERSION 50

# endif // !defined(OCTAVE_API_VERSION_NUMBER)

#endif // !defined(OCTAVE_MAJOR_VERSION)

#if !SWIG_OCTAVE_PREREQ(3,2,0)
#define SWIG_DEFUN(cname, wname, doc) DEFUNX_DLD(#cname, wname, FS ## cname, args, nargout, doc)
#else
#define SWIG_DEFUN(cname, wname, doc) DEFUNX_DLD(#cname, wname, G ## cname, args, nargout, doc)
#endif

SWIGRUNTIME bool SWIG_check_num_args(const char *func_name, int num_args, int max_args, int min_args, int varargs) {
  if (num_args > max_args && !varargs)
    error("function %s takes at most %i arguments", func_name, max_args);
  else if (num_args < min_args)
    error("function %s requires at least %i arguments", func_name, min_args);
  else
    return true;
  return false;
}

SWIGRUNTIME octave_value_list *SWIG_Octave_AppendOutput(octave_value_list *ovl, const octave_value &ov) {
  ovl->append(ov);
  return ovl;
}

SWIGRUNTIME octave_value SWIG_ErrorType(int code) {
  switch (code) {
  case SWIG_MemoryError:
    return "SWIG_MemoryError";
  case SWIG_IOError:
    return "SWIG_IOError";
  case SWIG_RuntimeError:
    return "SWIG_RuntimeError";
  case SWIG_IndexError:
    return "SWIG_IndexError";
  case SWIG_TypeError:
    return "SWIG_TypeError";
  case SWIG_DivisionByZero:
    return "SWIG_DivisionByZero";
  case SWIG_OverflowError:
    return "SWIG_OverflowError";
  case SWIG_SyntaxError:
    return "SWIG_SyntaxError";
  case SWIG_ValueError:
    return "SWIG_ValueError";
  case SWIG_SystemError:
    return "SWIG_SystemError";
  case SWIG_AttributeError:
    return "SWIG_AttributeError";
  }
  return "SWIG unknown error";
}

SWIGRUNTIME octave_value SWIG_Error(int code, const char *msg) {
  octave_value type(SWIG_ErrorType(code));
  std::string r = msg;
  r += " (" + type.string_value() + ")";
  error(r.c_str());
  return octave_value(r);
}

#define SWIG_fail                                       goto fail

#define SWIG_Octave_ConvertPtr(obj, pptr, type, flags)  SWIG_Octave_ConvertPtrAndOwn(obj, pptr, type, flags, 0)
#define SWIG_ConvertPtr(obj, pptr, type, flags)         SWIG_Octave_ConvertPtr(obj, pptr, type, flags)
#define SWIG_ConvertPtrAndOwn(obj,pptr,type,flags,own)  SWIG_Octave_ConvertPtrAndOwn(obj, pptr, type, flags, own)
#define SWIG_ConvertPtr(obj, pptr, type, flags)         SWIG_Octave_ConvertPtr(obj, pptr, type, flags)
#define SWIG_NewPointerObj(ptr, type, flags)            SWIG_Octave_NewPointerObj(ptr, type, flags)
#define swig_owntype                                    int

#define SWIG_ConvertPacked(obj, ptr, sz, ty)            SWIG_Octave_ConvertPacked(obj, ptr, sz, ty)
#define SWIG_NewPackedObj(ptr, sz, type)                SWIG_Octave_NewPackedObj(ptr, sz, type)

#define SWIG_ConvertFunctionPtr(obj, pptr, type)        SWIG_ConvertPtr(obj, pptr, type, 0)
#define SWIG_NewFunctionPtrObj(ptr, type)               SWIG_NewPointerObj(ptr, type, 0)

#define SWIG_ConvertMember(obj, ptr, sz, ty)            SWIG_Octave_ConvertPacked(obj, ptr, sz, ty)
#define SWIG_NewMemberObj(ptr, sz, type)                SWIG_Octave_NewPackedObj(ptr, sz, type)

#define SWIG_GetModule(clientdata) SWIG_Octave_GetModule(clientdata)
#define SWIG_SetModule(clientdata, pointer) SWIG_Octave_SetModule(clientdata,pointer);
#define SWIG_MODULE_CLIENTDATA_TYPE void*

#define Octave_Error_Occurred() 0
#define SWIG_Octave_AddErrorMsg(msg) {;}

SWIGRUNTIME swig_module_info *SWIG_Octave_GetModule(void *clientdata);
SWIGRUNTIME void SWIG_Octave_SetModule(void *clientdata, swig_module_info *pointer);

// For backward compatibility only
#define SWIG_POINTER_EXCEPTION  0
#define SWIG_arg_fail(arg)      0

// Runtime API implementation

#include <map>
#include <vector>
#include <string>

typedef octave_value_list(*octave_func) (const octave_value_list &, int);
class octave_swig_type;

namespace Swig {

#ifdef SWIG_DIRECTORS

  class Director;

  typedef std::map < void *, Director * > rtdir_map;
  SWIGINTERN rtdir_map* get_rtdir_map();
  SWIGINTERNINLINE void set_rtdir(void *vptr, Director *d);
  SWIGINTERNINLINE void erase_rtdir(void *vptr);
  SWIGINTERNINLINE Director *get_rtdir(void *vptr);

  SWIGRUNTIME void swig_director_destroyed(octave_swig_type *self, Director *d);
  SWIGRUNTIME octave_swig_type *swig_director_get_self(Director *d);
  SWIGRUNTIME void swig_director_set_self(Director *d, octave_swig_type *self);

#endif

  SWIGRUNTIME octave_base_value *swig_value_ref(octave_swig_type *ost);
  SWIGRUNTIME octave_swig_type *swig_value_deref(octave_value ov);
  SWIGRUNTIME octave_swig_type *swig_value_deref(const octave_base_value &ov);
}

#ifdef SWIG_DIRECTORS
SWIGRUNTIME void swig_acquire_ownership(void *vptr);
SWIGRUNTIME void swig_acquire_ownership_array(void *vptr);
SWIGRUNTIME void swig_acquire_ownership_obj(void *vptr, int own);
#endif

  struct swig_octave_member {
    const char *name;
    octave_func method;
    octave_func get_method;
    octave_func set_method;
    int flags;                  // 1 static, 2 global
    const char *doc;
    bool is_static() const {
      return flags &1;
    } bool is_global() const {
      return flags &2;
    }
  };

  struct swig_octave_class {
    const char *name;
    swig_type_info **type;
    int director;
    octave_func constructor;
    const char *constructor_doc;
    octave_func destructor;
    const swig_octave_member *members;
    const char **base_names;
    const swig_type_info **base;
  };

  // octave_swig_type plays the role of both the shadow class and the class 
  // representation within Octave, since there is no support for classes.
  //
  // These should really be decoupled, with the class support added to Octave
  // and the shadow class given by an m-file script. That would dramatically 
  // reduce the runtime complexity, and be more in line w/ other modules.

  class octave_swig_type:public octave_base_value {
    struct cpp_ptr {
      void *ptr;
      bool destroyed;
      cpp_ptr(void *_ptr):ptr(_ptr), destroyed(false) {
      }};
    typedef std::pair < const swig_type_info *, cpp_ptr > type_ptr_pair;

    mutable swig_module_info *module;

    const swig_type_info *construct_type;       // type of special type object
    std::vector < type_ptr_pair > types;        // our c++ base classes
    int own;                    // whether we call c++ destructors when we die

    typedef std::pair < const swig_octave_member *, octave_value > member_value_pair;
    typedef std::map < std::string, member_value_pair > member_map;
    member_map members;
    bool always_static;

    const swig_octave_member *find_member(const swig_type_info *type, const std::string &name) {
      if (!type->clientdata)
        return 0;
      swig_octave_class *c = (swig_octave_class *) type->clientdata;
      const swig_octave_member *m;
      for (m = c->members; m->name; ++m)
        if (m->name == name)
          return m;
      for (int j = 0; c->base_names[j]; ++j) {
        if (!c->base[j]) {
          if (!module)
            module = SWIG_GetModule(0);
          assert(module);
          c->base[j] = SWIG_MangledTypeQueryModule(module, module, c->base_names[j]);
        }
        if (!c->base[j])
          return 0;
        if ((m = find_member(c->base[j], name)))
          return m;
      }
      return 0;
    }

    member_value_pair *find_member(const std::string &name, bool insert_if_not_found) {
      member_map::iterator it = members.find(name);
      if (it != members.end())
        return &it->second;
      const swig_octave_member *m;
      for (unsigned int j = 0; j < types.size(); ++j)
        if ((m = find_member(types[j].first, name)))
          return &members.insert(std::make_pair(name, std::make_pair(m, octave_value()))).first->second;
      if (!insert_if_not_found)
        return 0;
      return &members[name];
    }

    const swig_type_info *find_base(const std::string &name, const swig_type_info *base) {
      if (!base) {
        for (unsigned int j = 0; j < types.size(); ++j) {
          assert(types[j].first->clientdata);
          swig_octave_class *cj = (swig_octave_class *) types[j].first->clientdata;
          if (cj->name == name)
            return types[j].first;
        }
        return 0;
      }
      assert(base->clientdata);
      swig_octave_class *c = (swig_octave_class *) base->clientdata;
      for (int j = 0; c->base_names[j]; ++j) {
        if (!c->base[j]) {
          if (!module)
            module = SWIG_GetModule(0);
          assert(module);
          c->base[j] = SWIG_MangledTypeQueryModule(module, module, c->base_names[j]);
        }
        if (!c->base[j])
          return 0;
        assert(c->base[j]->clientdata);
        swig_octave_class *cj = (swig_octave_class *) c->base[j]->clientdata;
        if (cj->name == name)
          return c->base[j];
      }
      return 0;
    }

    void load_members(const swig_octave_class* c,member_map& out) const {
      for (const swig_octave_member *m = c->members; m->name; ++m) {
        if (out.find(m->name) == out.end())
          out.insert(std::make_pair(m->name, std::make_pair(m, octave_value())));
      }
      for (int j = 0; c->base_names[j]; ++j) {
        if (!c->base[j]) {
          if (!module)
            module = SWIG_GetModule(0);
          assert(module);
          c->base[j] = SWIG_MangledTypeQueryModule(module, module, c->base_names[j]);
        }
        if (!c->base[j])
          continue;
        assert(c->base[j]->clientdata);
        const swig_octave_class *cj =
          (const swig_octave_class *) c->base[j]->clientdata;
        load_members(cj,out);
      }
    }

    void load_members(member_map& out) const {
      out=members;
      for (unsigned int j = 0; j < types.size(); ++j)
        if (types[j].first->clientdata)
          load_members((const swig_octave_class *) types[j].first->clientdata, out);
    }

    octave_value_list member_invoke(member_value_pair *m, const octave_value_list &args, int nargout) {
      if (m->second.is_defined())
        return m->second.subsref("(", std::list < octave_value_list > (1, args), nargout);
      else if (m->first && m->first->method)
        return m->first->method(args, nargout);
      error("member not defined or not invocable");
      return octave_value_list();
    }

    bool dispatch_unary_op(const std::string &symbol, octave_value &ret) {
      member_value_pair *m = find_member(symbol, false);
      if (!m || m->first->is_static() || m->first->is_global())
        return false;
      octave_value_list args;
      args.append(as_value());
      octave_value_list argout(member_invoke(m, args, 1));
      if (argout.length() < 1)
        return false;
      ret = argout(0);
      return true;
    }

    bool dispatch_binary_op(const std::string &symbol, const octave_base_value &rhs, octave_value &ret) {
      member_value_pair *m = find_member(symbol, false);
      if (!m || m->first->is_static() || m->first->is_global())
        return false;
      octave_value_list args;
      args.append(as_value());
      args.append(make_value_hack(rhs));
      octave_value_list argout(member_invoke(m, args, 1));
      if (argout.length() < 1)
        return false;
      ret = argout(0);
      return true;
    }

    bool dispatch_index_op(const std::string &symbol, const octave_value_list &rhs, octave_value_list &ret) {
      member_value_pair *m = find_member(symbol, false);
      if (!m || m->first->is_static() || m->first->is_global())
        return false;
      octave_value_list args;
      args.append(as_value());
      args.append(rhs);
      octave_value_list argout(member_invoke(m, args, 1));
      if (argout.length() >= 1)
        ret = argout(0);
      return true;
    }

    octave_value_list member_deref(member_value_pair *m, const octave_value_list &args) {
      if (m->second.is_defined())
        return m->second;
      else if (m->first) {
        if (m->first->get_method)
          return m->first->get_method(args, 1);
        else if (m->first->method)
          return octave_value(new octave_builtin(m->first->method));
      }
      error("undefined member");
      return octave_value_list();
    }

    static octave_value make_value_hack(const octave_base_value &x) {
      ((octave_swig_type &) x).count++;
      return octave_value((octave_base_value *) &x);
    }

    octave_swig_type(const octave_swig_type &x);
    octave_swig_type &operator=(const octave_swig_type &rhs);
  public:

    octave_swig_type(void *_ptr = 0, const swig_type_info *_type = 0, int _own = 0,
                     bool _always_static = false)
      : module(0), construct_type(_ptr ? 0 : _type), own(_own), 
      always_static(_always_static) {
      if (_type || _ptr)
        types.push_back(std::make_pair(_type, _ptr));
#ifdef SWIG_DIRECTORS
      if (_ptr) {
        Swig::Director *d = Swig::get_rtdir(_ptr);
        if (d)
          Swig::swig_director_set_self(d, this);
      }
#endif
    }

    ~octave_swig_type() {
      if (own) {
        ++count;
        for (unsigned int j = 0; j < types.size(); ++j) {
          if (!types[j].first || !types[j].first->clientdata)
            continue;
          swig_octave_class *c = (swig_octave_class *) types[j].first->clientdata;
          if (c->destructor && !types[j].second.destroyed && types[j].second.ptr) {
            c->destructor(as_value(), 0);
          }
        }
      }
#ifdef SWIG_DIRECTORS
      for (unsigned int j = 0; j < types.size(); ++j)
        Swig::erase_rtdir(types[j].second.ptr);
#endif
    }

    dim_vector dims(void) const {
      octave_swig_type *nc_this = const_cast < octave_swig_type *>(this);
      
      // Find the __dims__ method of this object
      member_value_pair *m = nc_this->find_member("__dims__", false);

      if (!m) return dim_vector(1,1);
      
      // Call the __dims__ method of this object
      octave_value_list inarg;
      inarg.append(nc_this->as_value());
      octave_value_list outarg = nc_this->member_invoke(m, inarg, 1);

      // __dims__ should return (at least) one output argument
      if (outarg.length() < 1) return dim_vector(1,1);
      
      octave_value & out = outarg(0);

      // Return value should be cell or matrix of integers
      if (out.is_cell()) {
        const Cell & c=out.cell_value();
        int ndim = c.rows();
        if (ndim==1 && c.columns()!=1) ndim = c.columns();

        dim_vector d;
        d.resize(ndim < 2 ? 2 : ndim);
        d(0) = d(1) = 1;

        // Fill in dim_vector 
        for (int k=0;k<ndim;k++) {
          const octave_value& obj = c(k);
          d.elem(k) = obj.int_value();
          
          // __dims__ should return a cell filled with integers
          if (error_state) return dim_vector(1,1);
        }
        return d;
      } else if (out.is_matrix_type() || out.is_numeric_type() ) {
        if (out.rows()==1 || out.columns()==1) {
           Array<int> a = out.int_vector_value();
           if (error_state) return dim_vector(1,1);
           dim_vector d;
           d.resize(a.numel() < 2 ? 2 : a.numel());
           d(0) = d(1) = 1;
           for (int k=0;k<a.numel();k++) {
              d.elem(k) = a(k);
           }
           return d;
        } else {
          return dim_vector(1,1);
        }
      } else {
        return dim_vector(1,1);
      }
    }

    octave_value as_value() {
      ++count;
      return Swig::swig_value_ref(this);
    }

    void incref() {
      ++count;
    }

    void decref() {
      if (!--count)
        delete this;
    }

    long swig_this() const {
      if (!types.size())
        return (long) this;
      return (long) types[0].second.ptr;
    }
    const char* help_text() const {
      if (!types.size())
        return 0;
      if (!types[0].first->clientdata)
        return 0;
      swig_octave_class *c = (swig_octave_class *) types[0].first->clientdata;
      return c->constructor_doc;
    }

    std::string swig_type_name() const {
      // * need some way to manually name subclasses.
      // * eg optional first arg to subclass(), or named_subclass()
      std::string ret;
      for (unsigned int j = 0; j < types.size(); ++j) {
        if (j)
          ret += "_";
        if (types[j].first->clientdata) {
          swig_octave_class *c = (swig_octave_class *) types[j].first->clientdata;
          ret += c->name;
        } else
          ret += types[j].first->name;
      }
      return ret;
    }

    void merge(octave_swig_type &rhs) {
      rhs.own = 0;
      for (unsigned int j = 0; j < rhs.types.size(); ++j) {
        assert(!rhs.types[j].second.destroyed);
#ifdef SWIG_DIRECTORS
        Swig::Director *d = Swig::get_rtdir(rhs.types[j].second.ptr);
        if (d)
          Swig::swig_director_set_self(d, this);
#endif
      }
      types.insert(types.end(), rhs.types.begin(), rhs.types.end());
      members.insert(rhs.members.begin(), rhs.members.end());
      rhs.types.clear();
      rhs.members.clear();
    }

    typedef member_map::const_iterator swig_member_const_iterator;
    swig_member_const_iterator swig_members_begin() { return members.begin(); }
    swig_member_const_iterator swig_members_end() { return members.end(); }

    void *cast(swig_type_info *type, int *_own, int flags) {
      if (_own)
        *_own = own;
      if (flags &SWIG_POINTER_DISOWN)
        own = 0;
      if (!type && types.size())
        return types[0].second.ptr;
      for (unsigned int j = 0; j < types.size(); ++j)
        if (type == types[j].first)
          return types[j].second.ptr;
      for (unsigned int j = 0; j < types.size(); ++j) {
        swig_cast_info *tc = SWIG_TypeCheck(types[j].first->name, type);
        if (!tc)
          continue;
        int newmemory = 0;
        void *vptr = SWIG_TypeCast(tc, types[j].second.ptr, &newmemory);
        assert(!newmemory);     // newmemory handling not yet implemented
        return vptr;
      }
      return 0;
    }

    bool is_owned() const {
      return own;
    }

#ifdef SWIG_DIRECTORS
    void director_destroyed(Swig::Director *d) {
      bool found = false;
      for (unsigned int j = 0; j < types.size(); ++j) {
        Swig::Director *dj = Swig::get_rtdir(types[j].second.ptr);
        if (dj == d) {
          types[j].second.destroyed = true;
          found = true;
        }
      }
      assert(found);
    }
#endif

    void assign(const std::string &name, const octave_value &ov) {
      members[name] = std::make_pair((const swig_octave_member *) 0, ov);
    }

    void assign(const std::string &name, const swig_octave_member *m) {
      members[name] = std::make_pair(m, octave_value());
    }

    octave_base_value *clone() const {
      // pass-by-value is probably not desired, and is harder;
      // requires calling copy constructors of contained types etc.
      assert(0);
      *(int *) 0 = 0;
      return 0;
    }

    octave_base_value *empty_clone() const {
      return new octave_swig_type();
    }

    bool is_defined() const {
      return true;
    }

    virtual bool is_map() const {
      return true;
    }

    virtual octave_value subsref(const std::string &ops, const std::list < octave_value_list > &idx) {
      octave_value_list ovl = subsref(ops, idx, 1);
      return ovl.length()? ovl(0) : octave_value();
    }

    virtual octave_value_list subsref(const std::string &ops, const std::list < octave_value_list > &idx, int nargout) {
      assert(ops.size() > 0);
      assert(ops.size() == idx.size());

      std::list < octave_value_list >::const_iterator idx_it = idx.begin();
      int skip = 0;
      octave_value_list sub_ovl;

      // constructor invocation
      if (ops[skip] == '(' && construct_type) {
        assert(construct_type->clientdata);
        swig_octave_class *c = (swig_octave_class *) construct_type->clientdata;
        if (!c->constructor) {
          error("cannot create instance");
          return octave_value_list();
        }
        octave_value_list args;
        if (c->director)
          args.append(Swig::swig_value_ref(new octave_swig_type(this, 0, 0)));
        args.append(*idx_it++);
        ++skip;
        sub_ovl = c->constructor(args, nargout);
      }
      // member dereference or invocation
      else if (ops[skip] == '.') {
        std::string subname;
        const swig_type_info *base = 0; // eg, a.base.base_cpp_mem
        for (;;) {
          octave_value_list subname_ovl(*idx_it++);
          ++skip;
          assert(subname_ovl.length() == 1 && subname_ovl(0).is_string());
          subname = subname_ovl(0).string_value();

          const swig_type_info *next_base = find_base(subname, base);
          if (!next_base || skip >= (int) ops.size() || ops[skip] != '.')
            break;
          base = next_base;
        }

        member_value_pair tmp, *m = &tmp;
        if (!base || !(m->first = find_member(base, subname)))
          m = find_member(subname, false);
        if (!m) {
          error("member not found");
          return octave_value_list();
        }

        octave_value_list args;
        if (!always_static &&
            (!m->first || (!m->first->is_static() && !m->first->is_global())))
          args.append(as_value());
        if (skip < (int) ops.size() && ops[skip] == '(' && 
            ((m->first && m->first->method) || m->second.is_function() || 
             m->second.is_function_handle())) {
          args.append(*idx_it++);
          ++skip;
          sub_ovl = member_invoke(m, args, nargout);
        } else {
          sub_ovl = member_deref(m, args);
        }
      }
      // index operator
      else {
        if (ops[skip] == '(' || ops[skip] == '{') {
          const char *op_name = ops[skip] == '(' ? "__paren__" : "__brace__";
          octave_value_list args;
          args.append(*idx_it++);
          ++skip;
          if (!dispatch_index_op(op_name, args, sub_ovl)) {
            error("error evaluating index operator");
            return octave_value_list();
          }
        } else {
          error("unsupported subsref");
          return octave_value_list();
        }
      }

      if (skip >= (int) ops.size())
        return sub_ovl;
      if (sub_ovl.length() < 1) {
        error("bad subs ref");
        return octave_value_list();
      }
      return sub_ovl(0).next_subsref(nargout, ops, idx, skip);
    }

    octave_value subsasgn(const std::string &ops, const std::list < octave_value_list > &idx, const octave_value &rhs) {
      assert(ops.size() > 0);
      assert(ops.size() == idx.size());

      std::list < octave_value_list >::const_iterator idx_it = idx.begin();
      int skip = 0;

      if (ops.size() > 1) {
        std::list < octave_value_list >::const_iterator last = idx.end();
        --last;
        std::list < octave_value_list > next_idx(idx.begin(), last);
        octave_value next_ov = subsref(ops.substr(0, ops.size() - 1), next_idx);
        next_ov.subsasgn(ops.substr(ops.size() - 1), std::list < octave_value_list > (1, *last), rhs);
      }

      else if (ops[skip] == '(' || ops[skip] == '{') {
        const char *op_name = ops[skip] == '(' ? "__paren_asgn__" : "__brace_asgn__";
        member_value_pair *m = find_member(op_name, false);
        if (m) {
          octave_value_list args;
          args.append(as_value());
          args.append(*idx_it);
          args.append(rhs);
          member_invoke(m, args, 1);
        } else
          error("%s member not found", op_name);
      }

      else if (ops[skip] == '.') {
        octave_value_list subname_ovl(*idx_it++);
        ++skip;
        assert(subname_ovl.length() == 1 &&subname_ovl(0).is_string());
        std::string subname = subname_ovl(0).string_value();

        member_value_pair *m = find_member(subname, true);
        if (!m->first || !m->first->set_method) {
          m->first = 0;
          m->second = rhs;
        } else if (m->first->set_method) {
          octave_value_list args;
          if (!m->first->is_static() && !m->first->is_global())
            args.append(as_value());
          args.append(rhs);
          m->first->set_method(args, 1);
        } else
          error("member not assignable");
      } else
        error("unsupported subsasgn");

      return as_value();
    }

    virtual bool is_object() const {
      return true;
    }

    virtual bool is_string() const {
      octave_swig_type *nc_this = const_cast < octave_swig_type *>(this);
      return !!nc_this->find_member("__str__", false);
    }

    virtual std::string string_value(bool force = false) const {
      octave_swig_type *nc_this = const_cast < octave_swig_type *>(this);
      member_value_pair *m = nc_this->find_member("__str__", false);
      if (!m) {
        error("__str__ method not defined");
        return std::string();
      }
      octave_value_list outarg = nc_this->member_invoke(m, octave_value_list(nc_this->as_value()), 1);
      if (outarg.length() < 1 || !outarg(0).is_string()) {
        error("__str__ method did not return a string");
        return std::string();
      }
      return outarg(0).string_value();
    }

#if SWIG_OCTAVE_PREREQ(3,3,52)
    virtual octave_map map_value() const {
      return octave_map();
    }
#else
    virtual Octave_map map_value() const {
      return Octave_map();
    }
#endif

    virtual string_vector map_keys() const {
      member_map tmp;
      load_members(tmp);

      string_vector keys(tmp.size());
      int k = 0;
      for (member_map::iterator it = tmp.begin(); it != tmp.end(); ++it)
        keys(k++) = it->first;

      return keys;
    }

    virtual bool save_ascii (std::ostream& os) {
      return true;
    }

    virtual bool load_ascii (std::istream& is) {
      return true;
    }

    virtual bool save_binary (std::ostream& os, bool& save_as_floats) {
      return true;
    }

    virtual bool load_binary (std::istream& is, bool swap, 
                              oct_mach_info::float_format fmt) {
      return true;
    }

#if defined (HAVE_HDF5)
    virtual bool
      save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats) {
      return true;
    }

    virtual bool
      load_hdf5 (hid_t loc_id, const char *name, bool have_h5giterate_bug) {
      return true;
    }
#endif

    virtual octave_value convert_to_str(bool pad = false, bool force = false, char type = '"') const {
      return string_value();
    }

    virtual octave_value convert_to_str_internal(bool pad, bool force, char type) const {
      return string_value();
    }

    static bool dispatch_global_op(const std::string &symbol, const octave_value_list &args, octave_value &ret) {
      // we assume that SWIG_op_prefix-prefixed functions are installed in global namespace
      // (rather than any module namespace).

      octave_function *fcn = is_valid_function(symbol, std::string(), false);
      if (!fcn)
        return false;
      ret = fcn->do_multi_index_op(1, args)(0);
      return true;
    }

    static octave_value dispatch_unary_op(const octave_base_value &x, const char *op_name) {
      octave_swig_type *ost = Swig::swig_value_deref(x);
      assert(ost);

      octave_value ret;
      if (ost->dispatch_unary_op(std::string("__") + op_name + std::string("__"), ret))
        return ret;
      std::string symbol = SWIG_op_prefix + ost->swig_type_name() + "_" + op_name;
      octave_value_list args;
      args.append(make_value_hack(x));
      if (dispatch_global_op(symbol, args, ret))
        return ret;

      error("could not dispatch unary operator");
      return octave_value();
    }

    static octave_value dispatch_binary_op(const octave_base_value &lhs, const octave_base_value &rhs, const char *op_name) {
      octave_swig_type *lhs_ost = Swig::swig_value_deref(lhs);
      octave_swig_type *rhs_ost = Swig::swig_value_deref(rhs);

      octave_value ret;
      if (lhs_ost && lhs_ost->dispatch_binary_op(std::string("__") + op_name + std::string("__"), rhs, ret))
        return ret;
      if (rhs_ost) {
        if (strlen(op_name) == 2  && (op_name[1] == 't' || op_name[1] == 'e')) {
          if (op_name[0] == 'l' && rhs_ost->dispatch_binary_op(std::string("__g") + op_name[1] + std::string("__"), lhs, ret))
            return ret;
          if (op_name[0] == 'g' && rhs_ost->dispatch_binary_op(std::string("__l") + op_name[1] + std::string("__"), lhs, ret))
            return ret;
        }
        if (rhs_ost->dispatch_binary_op(std::string("__r") + op_name + std::string("__"), lhs, ret))
          return ret;
      }

      std::string symbol;
      octave_value_list args;
      args.append(make_value_hack(lhs));
      args.append(make_value_hack(rhs));

      symbol = SWIG_op_prefix;
      symbol += lhs_ost ? lhs_ost->swig_type_name() : lhs.type_name();
      symbol += "_";
      symbol += op_name;
      symbol += "_";
      symbol += rhs_ost ? rhs_ost->swig_type_name() : rhs.type_name();
      if (dispatch_global_op(symbol, args, ret))
        return ret;

      symbol = SWIG_op_prefix;
      symbol += lhs_ost ? lhs_ost->swig_type_name() : lhs.type_name();
      symbol += "_";
      symbol += op_name;
      symbol += "_";
      symbol += "any";
      if (dispatch_global_op(symbol, args, ret))
        return ret;

      symbol = SWIG_op_prefix;
      symbol += "any";
      symbol += "_";
      symbol += op_name;
      symbol += "_";
      symbol += rhs_ost ? rhs_ost->swig_type_name() : rhs.type_name();
      if (dispatch_global_op(symbol, args, ret))
        return ret;

      error("could not dispatch binary operator");
      return octave_value();
    }

    void print(std::ostream &os, bool pr_as_read_syntax = false) const {
      if (is_string()) {
        os << string_value();
        return;
      }

      member_map tmp;
      load_members(tmp);

      indent(os);
      os << "{"; newline(os);
      increment_indent_level();
      for (unsigned int j = 0; j < types.size(); ++j) {
        indent(os);
        if (types[j].first->clientdata) {
          const swig_octave_class *c = (const swig_octave_class *) types[j].first->clientdata;
          os << c->name << ", ptr = " << types[j].second.ptr; newline(os);
        } else {
          os << types[j].first->name << ", ptr = " << types[j].second.ptr; newline(os);
        }
      }
      for (member_map::const_iterator it = tmp.begin(); it != tmp.end(); ++it) {
        indent(os);
        if (it->second.first) {
          const char *objtype = it->second.first->method ? "method" : "variable";
          const char *modifier = (it->second.first->flags &1) ? "static " : (it->second.first->flags &2) ? "global " : "";
          os << it->second.first->name << " (" << modifier << objtype << ")"; newline(os);
          assert(it->second.first->name == it->first);
        } else {
          os << it->first; newline(os);
        }
      }
      decrement_indent_level();
      indent(os);
      os << "}"; newline(os);
    }
  };

  // Octave tries hard to preserve pass-by-value semantics. Eg, assignments
  // will call clone() via make_unique() if there is more than one outstanding 
  // reference to the lhs, and forces the clone's reference count to 1 
  // (so you can't just increment your own count and return this).
  //
  // One way to fix this (without modifying Octave) is to add a level of
  // indirection such that clone copies ref-counted pointer and we keep 
  // pass-by-ref semantics (which are more natural/expected for C++ bindings).
  //
  // Supporting both pass-by-{ref,value} and toggling via %feature/option 
  // might be nice.

  class octave_swig_ref:public octave_base_value {
    octave_swig_type *ptr;
  public:
    octave_swig_ref(octave_swig_type *_ptr = 0)
      :ptr(_ptr) { }

    ~octave_swig_ref()
      { if (ptr) ptr->decref(); }

    octave_swig_type *get_ptr() const
      { return ptr; }

    octave_base_value *clone() const
      { if (ptr) ptr->incref(); return new octave_swig_ref(ptr); }

    octave_base_value *empty_clone() const
      { return new octave_swig_ref(0); }

    dim_vector dims(void) const 
      { return ptr->dims(); }

    bool is_defined() const
      { return ptr->is_defined(); }

    virtual bool is_map() const 
      { return ptr->is_map(); }

    virtual octave_value subsref(const std::string &ops, const std::list < octave_value_list > &idx) 
      { return ptr->subsref(ops, idx); }

    virtual octave_value_list subsref(const std::string &ops, const std::list < octave_value_list > &idx, int nargout)
      { return ptr->subsref(ops, idx, nargout); }

    octave_value subsasgn(const std::string &ops, const std::list < octave_value_list > &idx, const octave_value &rhs)
      { return ptr->subsasgn(ops, idx, rhs); }

    virtual bool is_object() const 
      { return ptr->is_object(); }

    virtual bool is_string() const 
      { return ptr->is_string(); }

    virtual std::string string_value(bool force = false) const 
      { return ptr->string_value(force); }

#if SWIG_OCTAVE_PREREQ(3,3,52)
    virtual octave_map map_value() const
      { return ptr->map_value(); }
#else
    virtual Octave_map map_value() const
      { return ptr->map_value(); }
#endif

    virtual string_vector map_keys() const
      { return ptr->map_keys(); }

    virtual bool save_ascii (std::ostream& os)
      { return ptr->save_ascii(os); }

    virtual bool load_ascii (std::istream& is)
      { return ptr->load_ascii(is); }

    virtual bool save_binary (std::ostream& os, bool& save_as_floats)
      { return ptr->save_binary(os, save_as_floats); }

    virtual bool load_binary (std::istream& is, bool swap, 
                              oct_mach_info::float_format fmt)
      { return ptr->load_binary(is, swap, fmt); }

#if defined (HAVE_HDF5)
    virtual bool
      save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats)
      { return ptr->save_hdf5(loc_id, name, save_as_floats); }

    virtual bool
      load_hdf5 (hid_t loc_id, const char *name, bool have_h5giterate_bug)
      { return ptr->load_hdf5(loc_id, name, have_h5giterate_bug); }
#endif

    virtual octave_value convert_to_str(bool pad = false, bool force = false, char type = '"') const
      { return ptr->convert_to_str(pad, force, type); }

    virtual octave_value convert_to_str_internal(bool pad, bool force, char type) const
      { return ptr->convert_to_str_internal(pad, force, type); }

    void print(std::ostream &os, bool pr_as_read_syntax = false) const
      { return ptr->print(os, pr_as_read_syntax); }

  private:
    DECLARE_OCTAVE_ALLOCATOR;
    DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA;
  };
  DEFINE_OCTAVE_ALLOCATOR(octave_swig_ref);
  DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA(octave_swig_ref, "swig_ref", "swig_ref");

  class octave_swig_packed:public octave_base_value {
    swig_type_info *type;
    std::vector < char > buf;
  public:

    octave_swig_packed(swig_type_info *_type = 0, const void *_buf = 0, size_t _buf_len = 0)
      : type(_type), buf((const char*)_buf, (const char*)_buf + _buf_len) {
    }

    bool copy(swig_type_info *outtype, void *ptr, size_t sz) const {
      if (outtype && outtype != type)
        return false;
      assert(sz <= buf.size());
      std::copy(buf.begin(), buf.begin()+sz, (char*)ptr);
      return true;
    }

    octave_base_value *clone() const {
      return new octave_swig_packed(*this);
    }

    octave_base_value *empty_clone() const {
      return new octave_swig_packed();
    }

    bool is_defined() const {
      return true;
    }

    void print(std::ostream &os, bool pr_as_read_syntax = false) const {
      indent(os);
      os << "swig packed type: name = " << (type ? type->name : std::string()) << ", len = " << buf.size(); newline(os);
    }


    virtual bool save_ascii (std::ostream& os) {
      return true;
    }

    virtual bool load_ascii (std::istream& is) {
      return true;
    }

    virtual bool save_binary (std::ostream& os, bool& save_as_floats) {
      return true;
    }

    virtual bool load_binary (std::istream& is, bool swap, 
                              oct_mach_info::float_format fmt) {
      return true;
    }

#if defined (HAVE_HDF5)
    virtual bool
      save_hdf5 (hid_t loc_id, const char *name, bool save_as_floats) {
      return true;
    }

    virtual bool
      load_hdf5 (hid_t loc_id, const char *name, bool have_h5giterate_bug) {
      return true;
    }
#endif

  private:
    DECLARE_OCTAVE_ALLOCATOR;
    DECLARE_OV_TYPEID_FUNCTIONS_AND_DATA;
  };
  DEFINE_OCTAVE_ALLOCATOR(octave_swig_packed);
  DEFINE_OV_TYPEID_FUNCTIONS_AND_DATA(octave_swig_packed, "swig_packed", "swig_packed");

  static octave_value_list octave_set_immutable(const octave_value_list &args, int nargout) {
    error("attempt to set immutable member variable");
    return octave_value_list();
  }

  struct octave_value_ref {
    const octave_value_list &ovl;
    int j;

    octave_value_ref(const octave_value_list &_ovl, int _j)
      :ovl(_ovl), j(_j) { }

    operator  octave_value() const {
      return ovl(j);
    }

    octave_value operator*() const {
      return ovl(j);
    }
  };


namespace Swig {

  SWIGRUNTIME octave_base_value *swig_value_ref(octave_swig_type *ost) {
    return new octave_swig_ref(ost);
  }

  SWIGRUNTIME octave_swig_type *swig_value_deref(octave_value ov) {
    if (ov.is_cell() && ov.rows() == 1 && ov.columns() == 1)
      ov = ov.cell_value()(0);
    return swig_value_deref(*ov.internal_rep());
  }

  SWIGRUNTIME octave_swig_type *swig_value_deref(const octave_base_value &ov) {
    if (ov.type_id() != octave_swig_ref::static_type_id())
      return 0;
    const octave_swig_ref *osr = static_cast < const octave_swig_ref *>(&ov);
    return osr->get_ptr();
  }

}


#define swig_unary_op(name) \
SWIGRUNTIME octave_value swig_unary_op_##name(const octave_base_value &x) { \
  return octave_swig_type::dispatch_unary_op(x,#name); \
}
#define swig_binary_op(name) \
SWIGRUNTIME octave_value swig_binary_op_##name(const octave_base_value&lhs,const octave_base_value &rhs) { \
  return octave_swig_type::dispatch_binary_op(lhs,rhs,#name); \
}
#define swigreg_unary_op(name) \
if (!octave_value_typeinfo::lookup_unary_op(octave_value::op_##name,tid)) \
octave_value_typeinfo::register_unary_op(octave_value::op_##name,tid,swig_unary_op_##name);
#define swigreg_binary_op(name) \
if (!octave_value_typeinfo::lookup_binary_op(octave_value::op_##name,tid1,tid2)) \
octave_value_typeinfo::register_binary_op(octave_value::op_##name,tid1,tid2,swig_binary_op_##name);

  swig_unary_op(not);
  swig_unary_op(uplus);
  swig_unary_op(uminus);
  swig_unary_op(transpose);
  swig_unary_op(hermitian);
  swig_unary_op(incr);
  swig_unary_op(decr);

  swig_binary_op(add);
  swig_binary_op(sub);
  swig_binary_op(mul);
  swig_binary_op(div);
  swig_binary_op(pow);
  swig_binary_op(ldiv);
  swig_binary_op(lshift);
  swig_binary_op(rshift);
  swig_binary_op(lt);
  swig_binary_op(le);
  swig_binary_op(eq);
  swig_binary_op(ge);
  swig_binary_op(gt);
  swig_binary_op(ne);
  swig_binary_op(el_mul);
  swig_binary_op(el_div);
  swig_binary_op(el_pow);
  swig_binary_op(el_ldiv);
  swig_binary_op(el_and);
  swig_binary_op(el_or);

  SWIGRUNTIME void SWIG_InstallUnaryOps(int tid) {
    swigreg_unary_op(not);
    swigreg_unary_op(uplus);
    swigreg_unary_op(uminus);
    swigreg_unary_op(transpose);
    swigreg_unary_op(hermitian);
    swigreg_unary_op(incr);
    swigreg_unary_op(decr);
  }
  SWIGRUNTIME void SWIG_InstallBinaryOps(int tid1, int tid2) {
    swigreg_binary_op(add);
    swigreg_binary_op(sub);
    swigreg_binary_op(mul);
    swigreg_binary_op(div);
    swigreg_binary_op(pow);
    swigreg_binary_op(ldiv);
    swigreg_binary_op(lshift);
    swigreg_binary_op(rshift);
    swigreg_binary_op(lt);
    swigreg_binary_op(le);
    swigreg_binary_op(eq);
    swigreg_binary_op(ge);
    swigreg_binary_op(gt);
    swigreg_binary_op(ne);
    swigreg_binary_op(el_mul);
    swigreg_binary_op(el_div);
    swigreg_binary_op(el_pow);
    swigreg_binary_op(el_ldiv);
    swigreg_binary_op(el_and);
    swigreg_binary_op(el_or);
  }
  SWIGRUNTIME void SWIG_InstallOps(int tid) {
    // here we assume that tid are conseq integers increasing from zero, and 
    // that our tid is the last one. might be better to have explicit string 
    // list of types we should bind to, and use lookup_type to resolve their tid.

    SWIG_InstallUnaryOps(tid);
    SWIG_InstallBinaryOps(tid, tid);
    for (int j = 0; j < tid; ++j) {
      SWIG_InstallBinaryOps(j, tid);
      SWIG_InstallBinaryOps(tid, j);
    }
  }

SWIGRUNTIME octave_value SWIG_Octave_NewPointerObj(void *ptr, swig_type_info *type, int flags) {
  int own = (flags &SWIG_POINTER_OWN) ? SWIG_POINTER_OWN : 0;

#ifdef SWIG_DIRECTORS
  Swig::Director *d = Swig::get_rtdir(ptr);
  if (d && Swig::swig_director_get_self(d))
    return Swig::swig_director_get_self(d)->as_value();
#endif
  return Swig::swig_value_ref(new octave_swig_type(ptr, type, own));
}

SWIGRUNTIME int SWIG_Octave_ConvertPtrAndOwn(octave_value ov, void **ptr, swig_type_info *type, int flags, int *own) {
  if (ov.is_cell() && ov.rows() == 1 && ov.columns() == 1)
    ov = ov.cell_value()(0);
  if (!ov.is_defined() ||
      (ov.is_matrix_type() && ov.rows() == 0 && ov.columns() == 0) ) {
    if (ptr)
      *ptr = 0;
    return SWIG_OK;
  }
  if (ov.type_id() != octave_swig_ref::static_type_id())
    return SWIG_ERROR;
  octave_swig_ref *osr = static_cast < octave_swig_ref *>(ov.internal_rep());
  octave_swig_type *ost = osr->get_ptr();
  void *vptr = ost->cast(type, own, flags);
  if (!vptr)
    return SWIG_ERROR;
  if (ptr)
    *ptr = vptr;
  return SWIG_OK;
}

SWIGRUNTIME octave_value SWIG_Octave_NewPackedObj(void *ptr, size_t sz, swig_type_info *type) {
  return new octave_swig_packed(type, (char *) ptr, sz);
}

SWIGRUNTIME int SWIG_Octave_ConvertPacked(const octave_value &ov, void *ptr, size_t sz, swig_type_info *type) {
  if (!ov.is_defined())
    return SWIG_ERROR;
  if (ov.type_id() != octave_swig_packed::static_type_id())
    return SWIG_ERROR;
  octave_swig_packed *ost = static_cast < octave_swig_packed *>(ov.internal_rep());
  return ost->copy(type, (char *) ptr, sz) ? SWIG_OK : SWIG_ERROR;
}

SWIGRUNTIMEINLINE void SWIG_Octave_SetConstant(octave_swig_type *module_ns, const std::string &name, const octave_value &ov) {
  module_ns->assign(name, ov);
}

SWIGRUNTIMEINLINE octave_value SWIG_Octave_GetGlobalValue(std::string name) {
  return get_global_value(name, true);
}

SWIGRUNTIME void SWIG_Octave_SetGlobalValue(std::string name, const octave_value& value) {
  set_global_value(name, value);
}

SWIGRUNTIME void SWIG_Octave_LinkGlobalValue(std::string name) {
#if !SWIG_OCTAVE_PREREQ(3,2,0)
  link_to_global_variable(curr_sym_tab->lookup(name, true));
#else
#if !SWIG_OCTAVE_PREREQ(3,8,0)
  symbol_table::varref(name);
#endif
  symbol_table::mark_global(name);
#endif
}

SWIGRUNTIME swig_module_info *SWIG_Octave_GetModule(void *clientdata) {
  octave_value ov = SWIG_Octave_GetGlobalValue("__SWIG_MODULE__" SWIG_TYPE_TABLE_NAME SWIG_RUNTIME_VERSION);
  if (!ov.is_defined() ||
      ov.type_id() != octave_swig_packed::static_type_id())
    return 0;
  const octave_swig_packed* osp = 
    static_cast < const octave_swig_packed *> (ov.internal_rep());
  swig_module_info *pointer = 0;
  osp->copy(0, &pointer, sizeof(swig_module_info *));
  return pointer;
}

SWIGRUNTIME void SWIG_Octave_SetModule(void *clientdata, swig_module_info *pointer) {
  octave_value ov = new octave_swig_packed(0, &pointer, sizeof(swig_module_info *));
  SWIG_Octave_SetGlobalValue("__SWIG_MODULE__" SWIG_TYPE_TABLE_NAME SWIG_RUNTIME_VERSION, ov);
}



#define SWIG_exception_fail(code, msg) do { SWIG_Error(code, msg); SWIG_fail; } while(0) 

#define SWIG_contract_assert(expr, msg) if (!(expr)) { SWIG_Error(SWIG_RuntimeError, msg); SWIG_fail; } else 



/* -------- TYPES TABLE (BEGIN) -------- */

#define SWIGTYPE_p_PLGraphicsIn swig_types[0]
#define SWIGTYPE_p_char swig_types[1]
#define SWIGTYPE_p_double swig_types[2]
#define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[3]
#define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[4]
#define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[5]
#define SWIGTYPE_p_int swig_types[6]
#define SWIGTYPE_p_p_char swig_types[7]
#define SWIGTYPE_p_unsigned_int swig_types[8]
static swig_type_info *swig_types[10];
static swig_module_info swig_module = {swig_types, 9, 0, 0, 0, 0};
#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)

/* -------- TYPES TABLE (END) -------- */


#define SWIGVERSION 0x020012 
#define SWIG_VERSION SWIGVERSION


#define SWIG_as_voidptr(a) (void *)((const void *)(a)) 
#define SWIG_as_voidptrptr(a) ((void)SWIG_as_voidptr(*a),(void**)(a)) 


#include <stdexcept>


// #undef PACKAGE and VERSION macros which are leaked out by the octave headers
#undef PACKAGE
#undef VERSION

#include "plplotP.h"

// Temporary fix for problems with -fvisibility=hidden and octave headers.
#ifdef OCTAVE_EXPORT
  #if defined ( __GNUC__ ) && __GNUC__ > 3
    #undef OCTAVE_EXPORT
    #define OCTAVE_EXPORT    __attribute__ ( ( visibility( "default" ) ) )
  #endif
#endif



// I hate global variables but this is the best way I can think of
// to manage consistency checking among function arguments.
    static PLINT Alen = 0;
    static PLINT Xlen = 0, Ylen = 0;


// Convenience functions copied from matwrap-based approach (currently
// stored in bindings/octave/matwrap/wrap_octave.pl) to take care of the
// tricky scalar case and also adopted so that the resulting
// swig-generated source code will look similar to the matwrap-generated
// source code.

    inline int max( int a, int b )
    {
        return a >= b ? a : b;
    }
    inline int min( int a, int b )
    {
        return a >= b ? a : b;
    }

//
// Function to get the total length (rows*columns) of an octave object of
// arbitrary type.
// Arguments:
// 1) The octave object.
//
// If the object is a scalar, the array length is 1.
//
    static int
    _arraylen( const octave_value &o_obj )
    {
        return max( o_obj.rows(), 1 ) * max( o_obj.columns(), 1 ); // Return the size.
        // max is necessary because sometimes
        // rows() or columns() return -1 or 0 for
        // scalars.
    }

//
// Function to get the number of dimensions of an object.
//
    static int
    _n_dims( const octave_value &o_obj )
    {
        if ( max( o_obj.columns(), 1 ) > 1 )
            return 2;
        // max is necessary because sometimes
        // rows() or columns() return -1 or 0 for
        // scalars.
        else if ( max( o_obj.rows(), 1 ) > 1 )
            return 1;
        else
            return 0;
    }

//
// Return the n'th dimension of an object.  Dimension 0 is the 1st dimension.
//
    static inline int
    _dim( const octave_value &o_obj, int dim_idx )
    {
        if ( dim_idx == 0 )
            return max( o_obj.rows(), 0 );
        // max is necessary because sometimes
        // rows() or columns() return -1 or 0 for
        // scalars.
        else if ( dim_idx == 1 )
            return max( o_obj.columns(), 0 );
        else
            return 1;
    }

//
// The following function converts an array of doubles into some other
// numeric type.  Arguments:
// 1) Where to store the result.  The type is determined from the type of
//    this pointer.
// 2) A vector of doubles to convert.
// 3) The number of doubles.
//
    template <class FLOAT>
    static inline void
    _cvt_double_to( FLOAT *out_arr, double *in_arr, unsigned n_el )
    {
        while ( n_el-- > 0 )
            *out_arr++ = (FLOAT) ( *in_arr++ );
    }

    template void _cvt_double_to( int *, double *, unsigned );
    template void _cvt_double_to( unsigned *, double *, unsigned );
    template void _cvt_double_to( long *, double *, unsigned );
    template void _cvt_double_to( unsigned long *, double *, unsigned );
    template void _cvt_double_to( short *, double *, unsigned );
    template void _cvt_double_to( unsigned short *, double *, unsigned );
    template void _cvt_double_to( float *, double *, unsigned );
    // Instantiate our templates.  Octave uses
    // manual template instantiation.

//
// Convert an array of some other type into an array of doubles.  Arguments:
// 1) The array of objects of other type.
// 2) The output array of doubles.
// 3) The number of elements to convert.
//
    template <class FLOAT>
    static inline void
    _cvt_to_double( FLOAT *arr, double *d_arr, unsigned n_el )
    {
        while ( n_el-- > 0 )
            *d_arr++ = double(*arr++);
    }

    template void _cvt_to_double( int *, double *, unsigned );
    template void _cvt_to_double( unsigned *, double *, unsigned );
    template void _cvt_to_double( long *, double *, unsigned );
    template void _cvt_to_double( unsigned long *, double *, unsigned );
    template void _cvt_to_double( short *, double *, unsigned );
    template void _cvt_to_double( unsigned short *, double *, unsigned );
    template void _cvt_to_double( float *, double *, unsigned );
    // Instantiate our templates.  Octave uses
    // manual template instantiation.


    typedef PLINT ( *defined_func )( PLFLT, PLFLT );
    typedef void ( *fill_func )( PLINT, const PLFLT*, const PLFLT* );
    typedef void ( *pltr_func )( PLFLT, PLFLT, PLFLT *, PLFLT*, PLPointer );
    typedef void ( *ct_func )( PLFLT, PLFLT, PLFLT *, PLFLT*, PLPointer );
    typedef void ( *mapform_func )( PLINT, PLFLT *, PLFLT* );
    typedef PLFLT ( *f2eval_func )( PLINT, PLINT, PLPointer );
    typedef void ( *label_func )( PLINT, PLFLT, char*, PLINT, PLPointer );


#include <iostream>

    octave_function *fcnMapForm;
    std::string     nameMapForm;

    void mapform_octave( PLINT n, PLFLT *x, PLFLT *y )
    {
        octave_idx_type   i;
        octave_value_list functionArguments;
        octave_value_list retval;

        Matrix            xin( n, 1 );
        Matrix            yin( n, 1 );
        Matrix            xout;
        Matrix            yout;

        for ( i = 0; i < n; i++ )
        {
            xin( i, 0 ) = x[i];
            yin( i, 0 ) = y[i];
        }

        functionArguments( 0 ) = xin;
        functionArguments( 1 ) = yin;

        if ( fcnMapForm != NULL )
            retval = feval( fcnMapForm, functionArguments, 1 );
        else
            retval = feval( nameMapForm, functionArguments, 1 );


        if ( retval.length() >= 2 )
        {
            xout = retval( 0 ).matrix_value();
            yout = retval( 1 ).matrix_value();

            for ( i = 0; i < n; i++ )
            {
                x[i] = xout( i, 0 );
                y[i] = yout( i, 0 );
            }
        }
    }


    octave_function *fcnLabelFunc;
    std::string     nameLabelFunc;

    void labelfunc_octave( PLINT axis, PLFLT value, char *label, PLINT length, PLPointer data )
    {
        int i;
        octave_value_list functionArguments;
        octave_value_list retval;

        Matrix            inAxis( 1, 1 );
        Matrix            inValue( 1, 1 );
        inAxis( 0, 0 )  = axis;
        inValue( 0, 0 ) = value;

        functionArguments( 0 ) = inAxis;
        functionArguments( 1 ) = inValue;

        if ( fcnLabelFunc != NULL )
            retval = feval( fcnLabelFunc, functionArguments, 1 );
        else
            retval = feval( nameLabelFunc, functionArguments, 1 );

        strncpy( label, retval( 0 ).string_value().c_str(), length );
    }


    octave_function *fcnCoordTrans;
    std::string     nameCoordTrans;

    void ct_octave( PLFLT x, PLFLT y, PLFLT *xt, PLFLT *yt, PLPointer data )
    {
        octave_idx_type   i;
        octave_value_list functionArguments;
        octave_value_list retval;

        Matrix            xin( 1, 1 );
        Matrix            yin( 1, 1 );
        Matrix            xout;
        Matrix            yout;

        xin( 0, 0 ) = x;
        yin( 0, 0 ) = y;

        functionArguments( 0 ) = xin;
        functionArguments( 1 ) = yin;

        if ( fcnCoordTrans != NULL )
            retval = feval( fcnCoordTrans, functionArguments, 1 );
        else
            retval = feval( nameCoordTrans, functionArguments, 1 );


        if ( retval.length() >= 2 )
        {
            xout = retval( 0 ).matrix_value();
            yout = retval( 1 ).matrix_value();

            *xt = xout( 0, 0 );
            *yt = yout( 0, 0 );
        }
    }


    void testppchar( PLINT nlegend, const PLINT *opt_array, const char ** text )
    {
        PLINT i;
        printf( "nlegend =%d\n", nlegend );
        for ( i = 0; i < nlegend; i++ )
        {
            printf( "opt_array[%d] =%d\n", i, opt_array[i] );
            printf( "strlen(text[%d]) =%d\n", i, (int) strlen( text[i] ) );
            printf( "text[%d] =%s\n", i, text[i] );
        }
    }


#include <limits.h>
#if !defined(SWIG_NO_LLONG_MAX)
# if !defined(LLONG_MAX) && defined(__GNUC__) && defined (__LONG_LONG_MAX__)
#   define LLONG_MAX __LONG_LONG_MAX__
#   define LLONG_MIN (-LLONG_MAX - 1LL)
#   define ULLONG_MAX (LLONG_MAX * 2ULL + 1ULL)
# endif
#endif


  SWIGINTERN int SWIG_AsVal_long (const octave_value& ov, long* val)
    {
      if (!ov.is_scalar_type())
        return SWIG_TypeError;
      if (ov.is_complex_scalar())
        return SWIG_TypeError;
      if (ov.is_double_type()||ov.is_single_type()) {
        double v=ov.double_value();
        if (v!=floor(v))
          return SWIG_TypeError;
      }
      if (val)
        *val = ov.long_value();
      return SWIG_OK;
    }


SWIGINTERN int
SWIG_AsVal_int (octave_value obj, int *val)
{
  long v;
  int res = SWIG_AsVal_long (obj, &v);
  if (SWIG_IsOK(res)) {
    if ((v < INT_MIN || v > INT_MAX)) {
      return SWIG_OverflowError;
    } else {
      if (val) *val = (int)(v);
    }
  }  
  return res;
}


    static int my_plGetCursor( int *state, int *keysym, int *button, char *string, int *pX, int *pY, PLFLT *dX, PLFLT *dY, PLFLT *wX, PLFLT *wY, int *subwin )
    {
        PLGraphicsIn gin;
        int          status; status = plGetCursor( &gin );
        *subwin = gin.subwindow; *state = gin.state; *keysym = gin.keysym; *button = gin.button;
        strncpy( string, gin.string, PL_MAXKEY - 1 );
        string[PL_MAXKEY - 1] = '\0';

        *pX = gin.pX; *pY = gin.pY; *dX = gin.dX; *dY = gin.dY; *wX = gin.wX; *wY = gin.wY;
        return status;
    }


SWIGINTERN int
SWIG_AsCharPtrAndSize(octave_value ov, char** cptr, size_t* psize, int *alloc)
{
  if (ov.is_cell() && ov.rows() == 1 && ov.columns() == 1)
    ov = ov.cell_value()(0);
  if (!ov.is_string())
    return SWIG_TypeError;
  
  std::string str=ov.string_value();
  size_t len=str.size();
  char* cstr=(char*)str.c_str();
  if (alloc) {
    *cptr = (char*)(memcpy((new char[len + 1]), cstr, sizeof(char)*(len + 1)));
    *alloc = SWIG_NEWOBJ;
  } else if (cptr)
    *cptr = cstr;
  if (psize)
    *psize = len + 1;
  return SWIG_OK;
}





  SWIGINTERNINLINE octave_value SWIG_From_long    (long value)
    {    
      return octave_value(value);
    }


SWIGINTERNINLINE octave_value
SWIG_From_int  (int value)
{    
  return SWIG_From_long  (value);
}


  SWIGINTERNINLINE octave_value SWIG_From_double    (double value)
    {    
      return octave_value(value);
    }


// Translates relative device coordinates to world coordinates.
    static int my_plTranslateCursor( PLFLT *x, PLFLT *y, PLFLT x_in, PLFLT y_in )
    {
        PLGraphicsIn gin;
        int          st;
        gin.dX = x_in; gin.dY = y_in;
        st     = plTranslateCursor( &gin );
        *x     = gin.wX; *y = gin.wY;
        return st;
    }


  SWIGINTERN int SWIG_AsVal_double (const octave_value& ov, double* val)
    {
      if (!ov.is_scalar_type())
        return SWIG_TypeError;
      if (ov.is_complex_scalar())
        return SWIG_TypeError;
      if (val)
        *val = ov.double_value();
      return SWIG_OK;
    }


// Create 1d stripchart

    void my_plstripc( PLINT *id, const char *xspec, const char *yspec,
                      PLFLT xmin, PLFLT xmax, PLFLT xjump, PLFLT ymin, PLFLT ymax,
                      PLFLT xlpos, PLFLT ylpos,
                      PLBOOL y_ascl, PLBOOL acc,
                      PLINT colbox, PLINT collab,
                      const PLINT *colline, const PLINT *styline,
                      const char *legline1, const char *legline2, const char *legline3, const char *legline4,
                      const char *labx, const char *laby, const char *labtop )
    {
        const char *legline[4];
        legline[0] = legline1; legline[1] = legline2;
        legline[2] = legline3; legline[3] = legline4;
        c_plstripc( id, xspec, yspec, xmin, xmax, xjump, ymin, ymax,
            xlpos, ylpos, y_ascl, acc, colbox, collab, colline, styline, legline,
            labx, laby, labtop );
    }


// One more hack. As it is not possible (and would not be desirable) to pass
// an Octave function to plcont(), I have defined three plcont():
//      plcont uses a defined here xform()
//      plcont0 uses pltr0()
//      plcont1 uses pltr1()
//      plcont2 uses pltr2()
//      plcont2p uses pltr2p()
//
// Also, as plplot expect vectorized bidimensional arrays, I provided a
// f2c, which is a #define that does the necessary conversion.
//

    void xform( PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer pltr_data )
    {
        *tx = *( (PLFLT *) pltr_data + 0 ) * x + *( (PLFLT *) pltr_data + 1 ) * y + *( (PLFLT *) pltr_data + 2 );
        *ty = *( (PLFLT *) pltr_data + 3 ) * x + *( (PLFLT *) pltr_data + 4 ) * y + *( (PLFLT *) pltr_data + 5 );
    }

// convert from Fortran like arrays (one vector), to C like 2D arrays

#define  f2c( f, ff, nx, ny )                              \
    PLFLT * *ff;                                           \
    ff = (PLFLT **) alloca( nx * sizeof ( PLFLT * ) );     \
    for ( int i = 0; i < nx; i++ ) {                       \
        ff[i] = (PLFLT *) alloca( ny * sizeof ( PLFLT ) ); \
        for ( int j = 0; j < ny; j++ )                     \
            *( ff[i] + j ) = *( f + nx * j + i );}

// simpler plcont() for use with xform()

    void my_plcont( const PLFLT *f, PLINT nx, PLINT ny, PLINT kx, PLINT lx, PLINT ky,
                    PLINT ly, const PLFLT *clevel, PLINT nlevel, PLFLT *tr )
    {
        f2c( f, ff, nx, ny );
        c_plcont( (const PLFLT **) ff, nx, ny, kx, lx, ky, ly, clevel, nlevel, xform, tr );
    }

// plcont() for use with pltr0() NOT TESTED

    void my_plcont0( const PLFLT *f, PLINT nx, PLINT ny, PLINT kx, PLINT lx, PLINT ky,
                     PLINT ly, const PLFLT *clevel, PLINT nlevel )
    {
        f2c( f, ff, nx, ny );
        c_plcont( (const PLFLT **) ff, nx, ny, kx, lx, ky, ly, clevel, nlevel, pltr0, NULL );
    }

// plcont() for use with pltr1()

    void my_plcont1( const PLFLT *f, PLINT nx, PLINT ny, PLINT kx, PLINT lx, PLINT ky,
                     PLINT ly, const PLFLT *clevel, PLINT nlevel, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid grid1;
        grid1.nx = nx;  grid1.ny = ny;
        grid1.xg = (PLFLT *) xg;  grid1.yg = (PLFLT *) yg;
        f2c( f, ff, nx, ny );
        c_plcont( (const PLFLT **) ff, nx, ny, kx, lx, ky, ly, clevel, nlevel, pltr1, &grid1 );
    }

// plcont() for use with pltr2()
    void my_plcont2( const PLFLT *f, PLINT nx, PLINT ny, PLINT kx, PLINT lx, PLINT ky,
                     PLINT ly, const PLFLT *clevel, PLINT nlevel, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid2 grid2;
        f2c( xg, xgg, nx, ny );
        f2c( yg, ygg, nx, ny );
        grid2.nx = nx;  grid2.ny = ny;
        grid2.xg = xgg; grid2.yg = ygg;
        f2c( f, ff, nx, ny );
        c_plcont( (const PLFLT **) ff, nx, ny, kx, lx, ky, ly, clevel, nlevel, pltr2, &grid2 );
    }

// plcont() for use with pltr2p()

    void my_plcont2p( const PLFLT *f, PLINT nx, PLINT ny, PLINT kx, PLINT lx, PLINT ky,
                      PLINT ly, const PLFLT *clevel, PLINT nlevel, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid2 grid2;
        f2c( xg, xgg, nx, ny );
        f2c( yg, ygg, nx, ny );
        grid2.nx = nx;  grid2.ny = ny;
        grid2.xg = xgg; grid2.yg = ygg;
        f2c( f, ff, nx, ny );
        c_plcont( (const PLFLT **) ff, nx, ny, kx, lx, ky, ly, clevel, nlevel, pltr2, &grid2 );
    }


    void my_plgriddata( const PLFLT *x, const PLFLT *y, const PLFLT *z, int npts,
                        const PLFLT *xg, int nptsx, const PLFLT *yg, int nptsy,
                        PLFLT *zg, int type, PLFLT data )
    {
        f2c( zg, zgg, nptsx, nptsy );
        plgriddata( x, y, z, npts, xg, nptsx, yg, nptsy, zgg, type, data );
        for ( int i = 0; i < nptsx; i++ )
            for ( int j = 0; j < nptsy; j++ )
                *( zg + nptsx * j + i ) = zgg[i][j];
    }


// Plots a mesh representation of the function z[x][y].

    void my_plmesh( const PLFLT *x, const PLFLT *y, const PLFLT *z, PLINT nx, PLINT ny, PLINT opt )
    {
        f2c( z, zz, nx, ny );
        c_plmesh( x, y, (const PLFLT **) zz, nx, ny, opt );
    }

// Plots a mesh representation of the function z[x][y] with contour

    void my_plmeshc( const PLFLT *x, const PLFLT *y, const PLFLT *z, PLINT nx, PLINT ny, PLINT opt, const PLFLT *clevel, PLINT nlevel )
    {
        f2c( z, zz, nx, ny );
        c_plmeshc( x, y, (const PLFLT **) zz, nx, ny, opt, clevel, nlevel );
    }


// Plots a 3-d representation of the function z[x][y].
    void my_plot3d( const PLFLT *x, const PLFLT *y, const PLFLT *z,
                    PLINT nx, PLINT ny, PLINT opt, PLINT side )
    {
        f2c( z, zz, nx, ny );
        c_plot3d( x, y, (const PLFLT **) zz, nx, ny, opt, side );
    }

// Plots a 3-d representation of the function z[x][y] with contour
    void my_plot3dc( const PLFLT *x, const PLFLT *y, const PLFLT *z,
                     PLINT nx, PLINT ny, PLINT opt,
                     const PLFLT *clevel, PLINT nlevel )
    {
        f2c( z, zz, nx, ny );
        c_plot3dc( x, y, (const PLFLT **) zz, nx, ny, opt, clevel, nlevel );
    }
// Plots a 3-d representation of the function z[x][y] with contour with y
// index limits
    void my_plot3dcl( const PLFLT * x, const PLFLT * y, const PLFLT * z,
                      PLINT nx, PLINT ny, PLINT opt,
                      const PLFLT * clevel, PLINT nlevel,
                      PLINT indexxmin, PLINT indexxmax, const PLINT * indexymin, const PLINT * indexymax )
    {
        f2c( z, zz, nx, ny );
        c_plot3dcl( x, y, (const PLFLT **) zz, nx, ny, opt, clevel, nlevel,
            indexxmin, indexxmax, indexymin, indexymax );
    }


    void my_plsurf3d( const PLFLT *x, const PLFLT *y, const PLFLT *z,
                      PLINT nx, PLINT ny, PLINT opt, const PLFLT *clevel, PLINT nlevel )
    {
        f2c( z, zz, nx, ny );
        c_plsurf3d( x, y, (const PLFLT **) zz, nx, ny, opt, clevel, nlevel );
    }

    void my_plsurf3dl( const PLFLT * x, const PLFLT * y, const PLFLT * z,
                       PLINT nx, PLINT ny, PLINT opt, const PLFLT * clevel, PLINT nlevel,
                       PLINT indexxmin, PLINT indexxmax, const PLINT * indexymin, const PLINT * indexymax )
    {
        f2c( z, zz, nx, ny );
        c_plsurf3dl( x, y, (const PLFLT **) zz, nx, ny, opt, clevel, nlevel,
            indexxmin, indexxmax, indexymin, indexymax );
    }


// The same as in plcont. I have hardcoded the first function pointer
// to plfill(). The second function pointer will use the same convention
// as in plcont().
//

// the simpler plshade()
    void my_plshade( const PLFLT *a, PLINT nx, PLINT ny, const PLFLT *defined,
                     PLFLT left, PLFLT right, PLFLT bottom, PLFLT top,
                     PLFLT shade_min, PLFLT shade_max,
                     PLINT sh_cmap, PLFLT sh_color, PLINT sh_width,
                     PLINT min_color, PLINT min_width,
                     PLINT max_color, PLINT max_width,
                     PLINT rectangular, PLFLT *tr )
    {
        f2c( a, aa, nx, ny );
        c_plshade( (const PLFLT **) aa, nx, ny, NULL, left, right, bottom, top,
            shade_min, shade_max, sh_cmap, sh_color, sh_width,
            min_color, min_width, max_color, max_width,
            plfill, rectangular, xform, tr );
    }

//  plshade() for use with pltr1
    void my_plshade1( const PLFLT *a, PLINT nx, PLINT ny, const char *defined,
                      PLFLT left, PLFLT right, PLFLT bottom, PLFLT top,
                      PLFLT shade_min, PLFLT shade_max,
                      PLINT sh_cmap, PLFLT sh_color, PLINT sh_width,
                      PLINT min_color, PLINT min_width,
                      PLINT max_color, PLINT max_width,
                      PLINT rectangular, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid grid1;
        grid1.nx = nx;  grid1.ny = ny;
        grid1.xg = (PLFLT *) xg;  grid1.yg = (PLFLT *) yg;
        f2c( a, aa, nx, ny );
        c_plshade( (const PLFLT **) aa, nx, ny, NULL, left, right, bottom, top,
            shade_min, shade_max, sh_cmap, sh_color, sh_width,
            min_color, min_width, max_color, max_width,
            plfill, rectangular, pltr1, &grid1 );
    }

//  plshade() for use with pltr2
    void my_plshade2( const PLFLT *a, PLINT nx, PLINT ny, const char *defined,
                      PLFLT left, PLFLT right, PLFLT bottom, PLFLT top,
                      PLFLT shade_min, PLFLT shade_max,
                      PLINT sh_cmap, PLFLT sh_color, PLINT sh_width,
                      PLINT min_color, PLINT min_width,
                      PLINT max_color, PLINT max_width,
                      PLINT rectangular, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid2 grid2;
        f2c( xg, xgg, nx, ny );
        f2c( yg, ygg, nx, ny );
        grid2.nx = nx;  grid2.ny = ny;
        grid2.xg = xgg; grid2.yg = ygg;
        f2c( a, aa, nx, ny );
        c_plshade( (const PLFLT **) aa, nx, ny, NULL, left, right, bottom, top,
            shade_min, shade_max, sh_cmap, sh_color, sh_width,
            min_color, min_width, max_color, max_width,
            plfill, rectangular, pltr2, &grid2 );
    }



    void my_plshades( const PLFLT *a, PLINT nx, PLINT ny,
                      PLFLT left, PLFLT right, PLFLT bottom, PLFLT top,
                      const PLFLT *clevel, PLINT nlevel, PLINT fill_width,
                      PLINT cont_color, PLINT cont_width,
                      PLINT rectangular )
    {
        f2c( a, aa, nx, ny );
        c_plshades( (const PLFLT **) aa, nx, ny, NULL, left, right, bottom, top,
            clevel, nlevel, fill_width, cont_color, cont_width,
            plfill, rectangular, NULL, NULL );
    }

    void my_plshadesx( const PLFLT *a, PLINT nx, PLINT ny,
                       PLFLT left, PLFLT right, PLFLT bottom, PLFLT top,
                       const PLFLT *clevel, PLINT nlevel, PLINT fill_width,
                       PLINT cont_color, PLINT cont_width,
                       PLINT rectangular, PLFLT *tr )
    {
        f2c( a, aa, nx, ny );
        c_plshades( (const PLFLT **) aa, nx, ny, NULL, left, right, bottom, top,
            clevel, nlevel, fill_width, cont_color, cont_width,
            plfill, rectangular, xform, tr );
    }

    void my_plshades1( const PLFLT *a, PLINT nx, PLINT ny,
                       PLFLT left, PLFLT right, PLFLT bottom, PLFLT top,
                       const PLFLT *clevel, PLINT nlevel, PLINT fill_width,
                       PLINT cont_color, PLINT cont_width,
                       PLINT rectangular, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid grid1;
        grid1.nx = nx;  grid1.ny = ny;
        grid1.xg = (PLFLT *) xg;  grid1.yg = (PLFLT *) yg;

        f2c( a, aa, nx, ny );
        c_plshades( (const PLFLT **) aa, nx, ny, NULL, left, right, bottom, top,
            clevel, nlevel, fill_width, cont_color, cont_width,
            plfill, rectangular, pltr1, &grid1 );
    }

    void my_plshades2( const PLFLT *a, PLINT nx, PLINT ny,
                       PLFLT left, PLFLT right, PLFLT bottom, PLFLT top,
                       const PLFLT *clevel, PLINT nlevel, PLINT fill_width,
                       PLINT cont_color, PLINT cont_width,
                       PLINT rectangular, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid2 grid2;
        f2c( xg, xgg, nx, ny );
        f2c( yg, ygg, nx, ny );
        grid2.nx = nx;  grid2.ny = ny;
        grid2.xg = xgg; grid2.yg = ygg;
        f2c( a, aa, nx, ny );
        c_plshades( (const PLFLT **) aa, nx, ny, NULL, left, right, bottom, top,
            clevel, nlevel, fill_width, cont_color, cont_width,
            plfill, rectangular, pltr2, &grid2 );
    }


// Plot an array of vector arrows - uses the same function pointer
// convention as plcont

    void my_plvect( const PLFLT *u, const PLFLT *v, PLINT nx, PLINT ny, PLFLT scale, PLFLT *tr )
    {
        f2c( u, uu, nx, ny );
        f2c( v, vv, nx, ny );
        c_plvect( (const PLFLT **) uu, (const PLFLT **) vv, nx, ny, scale, xform, tr );
    }

// plvect() for use with pltr1
    void my_plvect1( const PLFLT *u, const PLFLT *v, PLINT nx, PLINT ny, PLFLT scale, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid grid1;
        grid1.nx = nx;  grid1.ny = ny;
        grid1.xg = (PLFLT *) xg;  grid1.yg = (PLFLT *) yg;
        f2c( u, uu, nx, ny );
        f2c( v, vv, nx, ny );
        c_plvect( (const PLFLT **) uu, (const PLFLT **) vv, nx, ny, scale, pltr1, &grid1 );
    }

// plvect() for use with pltr2
    void my_plvect2( const PLFLT *u, const PLFLT *v, PLINT nx, PLINT ny, PLFLT scale, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid2 grid2;
        f2c( xg, xgg, nx, ny );
        f2c( yg, ygg, nx, ny );
        grid2.nx = nx;  grid2.ny = ny;
        grid2.xg = xgg;  grid2.yg = ygg;
        f2c( u, uu, nx, ny );
        f2c( v, vv, nx, ny );
        c_plvect( (const PLFLT **) uu, (const PLFLT **) vv, nx, ny, scale, pltr2, &grid2 );
    }


// Plot an image with distortion - uses the same function pointer
    void my_plimage( const PLFLT *a, PLINT nx, PLINT ny,
                     PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax,
                     PLFLT zmin, PLFLT zmax,
                     PLFLT dxmin, PLFLT dxmax, PLFLT dymin, PLFLT dymax )
    {
        f2c( a, aa, nx, ny );
        plimage( (const PLFLT **) aa, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, dxmin, dxmax, dymin, dymax );
    }

// Plot an image with distortion - uses the same function pointer
// convention as plcont
    void my_plimagefr( const PLFLT *a, PLINT nx, PLINT ny,
                       PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax,
                       PLFLT zmin, PLFLT zmax,
                       PLFLT valuemin, PLFLT valuemax )
    {
        f2c( a, aa, nx, ny );
        plimagefr( (const PLFLT **) aa, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, NULL, NULL );
    }

    void my_plimagefrx( const PLFLT *a, PLINT nx, PLINT ny,
                        PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax,
                        PLFLT zmin, PLFLT zmax,
                        PLFLT valuemin, PLFLT valuemax, PLFLT *tr )
    {
        f2c( a, aa, nx, ny );
        plimagefr( (const PLFLT **) aa, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, xform, tr );
    }

// plimagefr() for use with pltr1
    void my_plimagefr1( const PLFLT *a, PLINT nx, PLINT ny,
                        PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax,
                        PLFLT zmin, PLFLT zmax,
                        PLFLT valuemin, PLFLT valuemax, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid grid1;
        grid1.nx = nx + 1;  grid1.ny = ny + 1;
        grid1.xg = (PLFLT *) xg;  grid1.yg = (PLFLT *) yg;
        f2c( a, aa, nx, ny );
        c_plimagefr( (const PLFLT **) aa, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, pltr1, &grid1 );
    }

// plimagefr() for use with pltr2
    void my_plimagefr2( const PLFLT *a, PLINT nx, PLINT ny,
                        PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax,
                        PLFLT zmin, PLFLT zmax,
                        PLFLT valuemin, PLFLT valuemax, const PLFLT *xg, const PLFLT *yg )
    {
        PLcGrid2 grid2;
        f2c( xg, xgg, ( nx + 1 ), ( ny + 1 ) );
        f2c( yg, ygg, ( nx + 1 ), ( ny + 1 ) );
        grid2.nx = nx + 1;  grid2.ny = ny + 1;
        grid2.xg = xgg;  grid2.yg = ygg;
        f2c( a, aa, nx, ny );
        c_plimagefr( (const PLFLT **) aa, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, pltr2, &grid2 );
    }



    void my_plcolorbar( PLFLT *p_colorbar_width, PLFLT *p_colorbar_height,
                        PLINT opt, PLINT position, PLFLT x, PLFLT y,
                        PLFLT x_length, PLFLT y_length,
                        PLINT bg_color, PLINT bb_color, PLINT bb_style,
                        PLFLT low_cap_color, PLFLT high_cap_color,
                        PLINT cont_color, PLFLT cont_width,
                        PLINT n_labels, const PLINT *label_opts, const char **label,
                        PLINT n_axes, const char ** axis_opts,
                        const PLFLT *ticks, const PLINT *sub_ticks,
                        const PLINT *n_values, const PLFLT *a )
    {
        PLINT nx, ny, i;
        nx = n_axes;
        ny = -1;
        for ( i = 0; i < nx; i++ )
            if ( n_values[i] > ny )
                ny = n_values[i];
        f2c( a, aa, nx, ny );
        c_plcolorbar( p_colorbar_width, p_colorbar_height,
            opt, position, x, y,
            x_length, y_length,
            bg_color, bb_color, bb_style,
            low_cap_color, high_cap_color,
            cont_color, cont_width,
            n_labels, label_opts, label,
            n_axes, axis_opts,
            ticks, sub_ticks,
            n_values, aa );
    }



  SWIGINTERN int SWIG_AsVal_unsigned_SS_long (const octave_value& ov, unsigned long* val)
    {
      if (!ov.is_scalar_type())
        return SWIG_TypeError;
      if (ov.is_complex_scalar())
        return SWIG_TypeError;
      if (ov.is_double_type()||ov.is_single_type()) {
        double v=ov.double_value();
        if (v<0)
          return SWIG_OverflowError;  
        if (v!=floor(v))
          return SWIG_TypeError;
      }
      if (ov.is_int8_type()||ov.is_int16_type()||
          ov.is_int32_type()) {
        long v=ov.long_value();
        if (v<0)
          return SWIG_OverflowError;  
      }
      if (ov.is_int64_type()) {
        long long v=ov.int64_scalar_value().value();
        if (v<0)
          return SWIG_OverflowError;  
      }
      if (val)
        *val = ov.ulong_value();
      return SWIG_OK;
    }


SWIGINTERN int
SWIG_AsVal_unsigned_SS_int (octave_value obj, unsigned int *val)
{
  unsigned long v;
  int res = SWIG_AsVal_unsigned_SS_long (obj, &v);
  if (SWIG_IsOK(res)) {
    if ((v > UINT_MAX)) {
      return SWIG_OverflowError;
    } else {
      if (val) *val = (unsigned int)(v);
    }
  }  
  return res;
}


  SWIGINTERNINLINE octave_value SWIG_From_unsigned_SS_long    (unsigned long value)
    {    
      return octave_value(value);
    }


SWIGINTERNINLINE octave_value
SWIG_From_unsigned_SS_int  (unsigned int value)
{    
  return SWIG_From_unsigned_SS_long  (value);
}


SWIGINTERN int
SWIG_AsCharArray(octave_value obj, char *val, size_t size)
{ 
  char* cptr = 0; size_t csize = 0; int alloc = SWIG_OLDOBJ;
  int res = SWIG_AsCharPtrAndSize(obj, &cptr, &csize, &alloc);
  if (SWIG_IsOK(res)) {
    if ((csize == size + 1) && cptr && !(cptr[csize-1])) --csize;
    if (csize <= size) {
      if (val) {
        if (csize) memcpy(val, cptr, csize*sizeof(char));
        if (csize < size) memset(val + csize, 0, (size - csize)*sizeof(char));
      }
      if (alloc == SWIG_NEWOBJ) {
        delete[] cptr;
        res = SWIG_DelNewMask(res);
      }      
      return res;
    }
    if (alloc == SWIG_NEWOBJ) delete[] cptr;
  }
  return SWIG_TypeError;
}


SWIGINTERN swig_type_info*
SWIG_pchar_descriptor(void)
{
  static int init = 0;
  static swig_type_info* info = 0;
  if (!init) {
    info = SWIG_TypeQuery("_p_char");
    init = 1;
  }
  return info;
}


SWIGINTERNINLINE octave_value
SWIG_FromCharPtrAndSize(const char* carray, size_t size)
{
  return std::string(carray,carray+size);
}


SWIGINTERN int
SWIG_AsVal_char (octave_value obj, char *val)
{    
  int res = SWIG_AsCharArray(obj, val, 1);
  if (!SWIG_IsOK(res)) {
    long v;
    res = SWIG_AddCast(SWIG_AsVal_long (obj, &v));
    if (SWIG_IsOK(res)) {
      if ((CHAR_MIN <= v) && (v <= CHAR_MAX)) {
        if (val) *val = (char)(v);
      } else {
        res = SWIG_OverflowError;
      }
    }
  }
  return res;
}

static const char* _wrap_plsvpa_texinfo = "-*- texinfo -*-\n\
Specify viewport in absolute coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    Alternate routine to plvpor for setting up the viewport.  This routine\n\
    should be used only if the viewport is required to have a definite\n\
    size in millimeters.  The routine plgspa is useful for finding out the\n\
    size of the current subpage.\n\
\n\
    Redacted form: plsvpa(xmin, xmax, ymin, ymax)\n\
\n\
    This function is used in example 10.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsvpa(xmin, xmax, ymin, ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT, input) :    The distance of the left-hand edge of the\n\
        viewport from the left-hand edge of the subpage in millimeters.\n\
\n\
    xmax (PLFLT, input) :    The distance of the right-hand edge of the\n\
        viewport from the left-hand edge of the subpage in millimeters.\n\
\n\
    ymin (PLFLT, input) :    The distance of the bottom edge of the\n\
        viewport from the bottom edge of the subpage in millimeters.\n\
\n\
    ymax (PLFLT, input) :    The distance of the top edge of the viewport\n\
        from the bottom edge of the subpage in millimeters.\n\
";
static const char* _wrap_plmtex3_texinfo = "-*- texinfo -*-\n\
Write text relative to viewport boundaries in 3D plots\n\
\n\
DESCRIPTION:\n\
\n\
    Writes text at a specified position relative to the viewport\n\
    boundaries.  Text may be written inside or outside the viewport, but\n\
    is clipped at the subpage boundaries.  The reference point of a string\n\
    lies along a line passing through the string at half the height of a\n\
    capital letter.  The position of the reference point along this line\n\
    is determined by just, and the position of the reference point\n\
    relative to the viewport is set by disp and pos.\n\
\n\
    Redacted form: plmtex3(side, disp, pos, just, text)\n\
\n\
    This function is used in example 28.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmtex3(side, disp, pos, just, text)\n\
\n\
ARGUMENTS:\n\
\n\
    side (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        the side of the viewport along which the text is to be written.\n\
        The string should contain one or more of the following characters:\n\
        [xyz][ps][v]. Only one label is drawn at a time, i.e. xyp will\n\
        only label the X axis, not both the X and Y axes. x: Label the X\n\
        axis.\n\
            y: Label the Y axis.\n\
            z: Label the Z axis.\n\
            p: Label the primary axis. For Z this is the leftmost Z axis.\n\
            For X it is the axis that starts at y-min. For Y it is the\n\
            axis that starts at x-min.\n\
            s: Label the secondary axis.\n\
            v: Draw the text perpendicular to the axis.\n\
\n\
\n\
    disp (PLFLT, input) :    Position of the reference point of string,\n\
        measured outwards from the specified viewport edge in units of the\n\
        current character height.  Use negative disp to write within the\n\
        viewport.\n\
\n\
    pos (PLFLT, input) :    Position of the reference point of string\n\
        along the specified edge, expressed as a fraction of the length of\n\
        the edge.\n\
\n\
    just (PLFLT, input) :    Specifies the position of the string relative\n\
        to its reference point.  If just=0. , the reference point is at\n\
        the left and if just=1. , it is at the right of the string.  Other\n\
        values of just give intermediate justifications.\n\
\n\
    text (PLCHAR_VECTOR, input) :    A UTF-8 character string to be\n\
        written out.\n\
";
static const char* _wrap_plscmap1a_texinfo = "-*- texinfo -*-\n\
Set semitransparent cmap1 RGBA colors.\n\
\n\
DESCRIPTION:\n\
\n\
    Set semitransparent cmap1 colors (see the PLplot documentation) using\n\
    RGBA vector values.  This function also sets the number of cmap1\n\
    colors.  N.B. Continuous cmap1 colors are indexed with a\n\
    floating-point index in the range from 0.0-1.0 which is linearly\n\
    transformed (e.g., by plcol1) to an integer index of these RGBA\n\
    vectors in the range from 0 to\n\
    ncol1-1.  So in order for this continuous color model to work\n\
    properly, it is the responsibility of the user of plscmap1 to insure\n\
    that these RGBA vectors are continuous functions of their integer\n\
    indices.\n\
\n\
    Redacted form: plscmap1a(r, g, b, alpha)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap1a(r, g, b, alpha, ncol1)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLINT_VECTOR, input) :    A vector that represents (using unsigned\n\
        8-bit integers in the range from 0-255) the degree of red in the\n\
        color as a continuous function of the integer index of the vector.\n\
\n\
    g (PLINT_VECTOR, input) :    A vector that represents (using unsigned\n\
        8-bit integers in the range from 0-255) the degree of green in the\n\
        color as a continuous function of the integer index of the vector.\n\
\n\
    b (PLINT_VECTOR, input) :    A vector that represents (using unsigned\n\
        8-bit integers in the range from 0-255) the degree of blue in the\n\
        color as a continuous function of the integer index of the vector.\n\
\n\
    alpha (PLFLT_VECTOR, input) :    A vector that represents (using PLFLT\n\
        values in the range from 0.0-1.0 where 0.0 corresponds to\n\
        completely transparent and 1.0 corresponds to completely opaque)\n\
        the alpha transparency of the color as a continuous function of\n\
        the integer index of the vector.\n\
\n\
    ncol1 (PLINT, input) :    Number of items in the r, g, b, and alpha\n\
        vectors.\n\
";
static const char* _wrap_plvsta_texinfo = "-*- texinfo -*-\n\
Select standard viewport\n\
\n\
DESCRIPTION:\n\
\n\
    Selects the largest viewport within the subpage that leaves a standard\n\
    margin (left-hand margin of eight character heights, and a margin\n\
    around the other three sides of five character heights).\n\
\n\
    Redacted form: plvsta()\n\
\n\
    This function is used in examples 1, 12, 14, 17, 25, and 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plvsta()\n\
";
static const char* _wrap_plgra_texinfo = "-*- texinfo -*-\n\
Switch to graphics screen\n\
\n\
DESCRIPTION:\n\
\n\
    Sets an interactive device to graphics mode, used in conjunction with\n\
    pltext to allow graphics and text to be interspersed.  On a device\n\
    which supports separate text and graphics windows, this command causes\n\
    control to be switched to the graphics window.  If already in graphics\n\
    mode, this command is ignored.  It is also ignored on devices which\n\
    only support a single window or use a different method for shifting\n\
    focus.  See also pltext.\n\
\n\
    Redacted form: plgra()\n\
\n\
    This function is used in example 1.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgra()\n\
";
static const char* _wrap_plscol0a_texinfo = "-*- texinfo -*-\n\
Set 8-bit RGB values and PLFLT alpha transparency value for given cmap0 color index\n\
\n\
DESCRIPTION:\n\
\n\
    Set 8-bit RGB value and PLFLT alpha transparency value for given cmap0\n\
    (see the PLplot documentation) index.  Overwrites the previous color\n\
    value for the given index and, thus, does not result in any additional\n\
    allocation of space for colors.\n\
\n\
    This function is used in example 30.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscol0a(icol0, r, g, b, alpha)\n\
\n\
ARGUMENTS:\n\
\n\
    icol0 (PLINT, input) :    Color index.  Must be less than the maximum\n\
        number of colors (which is set by default, by plscmap0n, or even\n\
        by plscmap0).\n\
\n\
    r (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of red in the color.\n\
\n\
    g (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of green in the color.\n\
\n\
    b (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of blue in the color.\n\
\n\
    alpha (PLFLT, input) :    Value of the alpha transparency in the range\n\
        (0.0-1.0).\n\
";
static const char* _wrap_plsyax_texinfo = "-*- texinfo -*-\n\
Set y axis parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Identical to plsxax, except that arguments are flags for y axis. See\n\
    the description of plsxax for more detail.\n\
\n\
    Redacted form: plsyax(digmax, digits)\n\
\n\
    This function is used in examples 1, 14, and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsyax(digmax, digits)\n\
\n\
ARGUMENTS:\n\
\n\
    digmax (PLINT, input) :    Variable to set the maximum number of\n\
        digits for the y axis.  If nonzero, the printed label will be\n\
        switched to a floating-point representation when the number of\n\
        digits exceeds digmax.\n\
\n\
    digits (PLINT, input) :    Field digits value.  Currently, changing\n\
        its value here has no effect since it is set only by plbox or\n\
        plbox3.  However, the user may obtain its value after a call to\n\
        either of these functions by calling plgyax.\n\
";
static const char* _wrap_plgcol0_texinfo = "-*- texinfo -*-\n\
Returns 8-bit RGB values for given color index from cmap0\n\
\n\
DESCRIPTION:\n\
\n\
    Returns 8-bit RGB values (0-255) for given color from cmap0 (see the\n\
    PLplot documentation).  Values are negative if an invalid color id is\n\
    given.\n\
\n\
    Redacted form: plgcol0(icol0, r, g, b)\n\
\n\
    This function is used in example 2.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgcol0(icol0, r, g, b)\n\
\n\
ARGUMENTS:\n\
\n\
    icol0 (PLINT, input) :    Index of desired cmap0 color.\n\
\n\
    r (PLINT_NC_SCALAR, output) :    Returned value of the 8-bit red\n\
        value.\n\
\n\
    g (PLINT_NC_SCALAR, output) :    Returned value of the 8-bit green\n\
        value.\n\
\n\
    b (PLINT_NC_SCALAR, output) :    Returned value of the 8-bit blue\n\
        value.\n\
";
static const char* _wrap_plseed_texinfo = "-*- texinfo -*-\n\
Set seed for internal random number generator.\n\
\n\
DESCRIPTION:\n\
\n\
    Set the seed for the internal random number generator. See plrandd for\n\
    further details.\n\
\n\
    Redacted form: plseed(seed)\n\
\n\
    This function is used in example 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plseed(seed)\n\
\n\
ARGUMENTS:\n\
\n\
    seed (unsigned int, input) :    Seed for random number generator.\n\
";
static const char* _wrap_plot3dcl_texinfo = "-*- texinfo -*-\n\
Magnitude colored plot surface with contour for z[x][y] with y index limits\n\
\n\
DESCRIPTION:\n\
\n\
    When the implementation is completed this variant of plot3dc (see that\n\
    function\'s documentation for more details) should be suitable for the\n\
    case where the area of the x, y coordinate grid where z is defined can\n\
    be non-rectangular. The implementation is incomplete so the last 4\n\
    parameters of plot3dcl; indexxmin, indexxmax, indexymin, and\n\
    indexymax; are currently ignored and the functionality is otherwise\n\
    identical to that of plot3dc.\n\
\n\
    Redacted form: General: plot3dcl(x, y, z, opt, clevel, indexxmin,\n\
    indexymin, indexymax)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is not used in any example.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plot3dcl(x, y, z, nx, ny, opt, clevel, nlevel, indexxmin, indexxmax, indexymin, indexymax)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates at\n\
        which the function is evaluated.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates at\n\
        which the function is evaluated.\n\
\n\
    z (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    Number of x values at which the function is\n\
        evaluated.\n\
\n\
    ny (PLINT, input) :    Number of y values at which the function is\n\
        evaluated.\n\
\n\
    opt (PLINT, input) :    Determines the way in which the surface is\n\
        represented. To specify more than one option just add the options,\n\
        e.g. DRAW_LINEXY + MAG_COLOR opt=DRAW_LINEX : Lines are drawn\n\
        showing z as a function of x for each value of y[j] .\n\
            opt=DRAW_LINEY : Lines are drawn showing z as a function of y\n\
            for each value of x[i] .\n\
            opt=DRAW_LINEXY : Network of lines is drawn connecting points\n\
            at which function is defined.\n\
            opt=MAG_COLOR : Each line in the mesh is colored according to\n\
            the z value being plotted. The color is used from the current\n\
            cmap1.\n\
            opt=BASE_CONT : A contour plot is drawn at the base XY plane\n\
            using parameters\n\
    nlevel and\n\
    clevel.\n\
            opt=DRAW_SIDES : draws a curtain between the base XY plane and\n\
            the borders of the plotted function.\n\
\n\
\n\
    clevel (PLFLT_VECTOR, input) :    A vector containing the contour\n\
        levels.\n\
\n\
    nlevel (PLINT, input) :    Number of elements in the clevel vector.\n\
\n\
    indexxmin (PLINT, input) :    The index value (which must be ≥ 0) that\n\
        corresponds to the first x index where z is defined.\n\
\n\
    indexxmax (PLINT, input) :    The index value (which must be ≤ nx)\n\
        which corresponds (by convention) to one more than the last x\n\
        index value where z is defined.\n\
\n\
    indexymin (PLINT_VECTOR, input) :    A vector containing y index\n\
        values which all must be ≥ 0.  These values are the first y index\n\
        where z is defined for a particular x index in the range from\n\
        indexxmin to indexxmax - 1. The dimension of indexymin is\n\
        indexxmax.\n\
\n\
    indexymax (PLINT_VECTOR, input) :    A vector containing y index\n\
        values which all must be ≤ ny. These values correspond (by\n\
        convention) to one more than the last y index where z is defined\n\
        for a particular x index in the range from indexxmin to indexxmax\n\
        - 1.  The dimension of indexymax is indexxmax.\n\
";
static const char* _wrap_plgfnam_texinfo = "-*- texinfo -*-\n\
Get output file name\n\
\n\
DESCRIPTION:\n\
\n\
    Gets the current output file name, if applicable.\n\
\n\
    Redacted form: plgfnam(fnam)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgfnam(fnam)\n\
\n\
ARGUMENTS:\n\
\n\
    fnam (PLCHAR_NC_VECTOR, output) :    Returned ascii character string\n\
        (with preallocated length of 80 characters or more) containing the\n\
        file name.\n\
";
static const char* _wrap_plwind_texinfo = "-*- texinfo -*-\n\
Specify window\n\
\n\
DESCRIPTION:\n\
\n\
    Specify the window, i.e., the world coordinates of the edges of the\n\
    viewport.\n\
\n\
    Redacted form: plwind(xmin, xmax, ymin, ymax)\n\
\n\
    This function is used in examples 1, 2, 4, 6-12, 14-16, 18, 21, 23-27,\n\
    29, and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plwind(xmin, xmax, ymin, ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT, input) :    The world x coordinate of the left-hand edge\n\
        of the viewport.\n\
\n\
    xmax (PLFLT, input) :    The world x coordinate of the right-hand edge\n\
        of the viewport.\n\
\n\
    ymin (PLFLT, input) :    The world y coordinate of the bottom edge of\n\
        the viewport.\n\
\n\
    ymax (PLFLT, input) :    The world y coordinate of the top edge of the\n\
        viewport.\n\
";
static const char* _wrap_plscmap1l_texinfo = "-*- texinfo -*-\n\
Set cmap1 colors using a piece-wise linear relationship\n\
\n\
DESCRIPTION:\n\
\n\
    Set cmap1 colors using a piece-wise linear relationship between the\n\
    cmap1 intensity index (0.0-1.0) and position in HLS or RGB color space\n\
    (see the PLplot documentation).  May be called at any time.\n\
\n\
    The idea here is to specify a number of control points that define the\n\
    mapping between input cmap1 intensity indices and HLS (or RGB).\n\
    Between these points, linear interpolation is used which gives a\n\
    smooth variation of color with intensity index.  Any number of control\n\
    points may be specified, located at arbitrary positions, although\n\
    typically 2 - 4 are enough. Another way of stating this is that we are\n\
    traversing a given number of lines through HLS (or RGB) space as we\n\
    move through cmap1 intensity indices.  The control points at the\n\
    minimum and maximum position (0 and 1) must always be specified.  By\n\
    adding more control points you can get more variation.  One good\n\
    technique for plotting functions that vary about some expected average\n\
    is to use an additional 2 control points in the center (position ~=\n\
    0.5) that are the same lightness as the background (typically white\n\
    for paper output, black for crt), and same hue as the boundary control\n\
    points.  This allows the highs and lows to be very easily\n\
    distinguished.\n\
\n\
    Each control point must specify the cmap1 intensity index and the\n\
    associated three coordinates in HLS or RGB space.  The first point\n\
    must correspond to position = 0, and the last to position = 1.\n\
\n\
    The default behaviour is for the hue to be linearly interpolated\n\
    between the control points. Since the hue lies in the range [0, 360]\n\
    this corresponds to interpolation around the \"front\" of the color\n\
    wheel (red<->green<->blue<->red). If alt_hue_path[i] is true, then an\n\
    alternative interpolation is used between control points i and i+1. If\n\
    hue[i+1]-hue[i] > 0 then interpolation is between hue[i] and hue[i+1]\n\
    - 360, otherwise between hue[i] and hue[i+1] + 360. You can consider\n\
    this as interpolation around the \"back\" or \"reverse\" of the color\n\
    wheel. Specifying alt_hue_path=NULL is equivalent to setting\n\
    alt_hue_path[] = false for every control point.\n\
\n\
    Examples of interpolation Huealt_hue_pathcolor scheme[120\n\
    240]falsegreen-cyan-blue[240 120]falseblue-cyan-green[120\n\
    240]truegreen-yellow-red-magenta-blue[240\n\
    120]trueblue-magenta-red-yellow-green\n\
\n\
    Bounds on coordinatesRGBR[0, 1]magnitudeRGBG[0, 1]magnitudeRGBB[0,\n\
    1]magnitudeHLShue[0, 360]degreesHLSlightness[0,\n\
    1]magnitudeHLSsaturation[0, 1]magnitude\n\
\n\
    Redacted form: plscmap1l(itype, intensity, coord1, coord2, coord3,\n\
    alt_hue_path)\n\
\n\
    This function is used in examples 8, 11, 12, 15, 20, and 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap1l(itype, npts, intensity, coord1, coord2, coord3, alt_hue_path)\n\
\n\
ARGUMENTS:\n\
\n\
    itype (PLBOOL, input) :    true: RGB, false: HLS.\n\
\n\
    npts (PLINT, input) :    number of control points\n\
\n\
    intensity (PLFLT_VECTOR, input) :    A vector containing the cmap1\n\
        intensity index (0.0-1.0) in ascending order for each control\n\
        point.\n\
\n\
    coord1 (PLFLT_VECTOR, input) :    A vector containing the first\n\
        coordinate (H or R) for each control point.\n\
\n\
    coord2 (PLFLT_VECTOR, input) :    A vector containing the second\n\
        coordinate (L or G) for each control point.\n\
\n\
    coord3 (PLFLT_VECTOR, input) :    A vector containing the third\n\
        coordinate (S or B) for each control point.\n\
\n\
    alt_hue_path (PLBOOL_VECTOR, input) :    A vector (with\n\
    npts - 1 elements) containing the alternative interpolation method\n\
        Boolean value for each control point interval.  (alt_hue_path[i]\n\
        refers to the interpolation interval between the i and i + 1\n\
        control points).\n\
";
static const char* _wrap_plspause_texinfo = "-*- texinfo -*-\n\
Set the pause (on end-of-page) status\n\
\n\
DESCRIPTION:\n\
\n\
    Set the pause (on end-of-page) status.\n\
\n\
    Redacted form: plspause(pause)\n\
\n\
    This function is in examples 14,20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plspause(pause)\n\
\n\
ARGUMENTS:\n\
\n\
    pause (PLBOOL, input) :    If pause is true there will be a pause on\n\
        end-of-page for those drivers which support this.  Otherwise there\n\
        is no pause.\n\
";
static const char* _wrap_pllegend_texinfo = "-*- texinfo -*-\n\
Plot legend using discretely annotated filled boxes, lines, and/or lines of symbols\n\
\n\
DESCRIPTION:\n\
\n\
    Routine for creating a discrete plot legend with a plotted filled box,\n\
    line, and/or line of symbols for each annotated legend entry.  (See\n\
    plcolorbar for similar functionality for creating continuous color\n\
    bars.)  The arguments of pllegend provide control over the location\n\
    and size of the legend as well as the location and characteristics of\n\
    the elements (most of which are optional) within that legend.  The\n\
    resulting legend is clipped at the boundaries of the current subpage.\n\
    (N.B. the adopted coordinate system used for some of the parameters is\n\
    defined in the documentation of the position parameter.)\n\
\n\
    Redacted form: pllegend(p_legend_width, p_legend_height, opt,\n\
    position, x, y, plot_width, bg_color, bb_color, bb_style, nrow,\n\
    ncolumn, opt_array, text_offset, text_scale, text_spacing,\n\
    test_justification, text_colors, text, box_colors, box_patterns,\n\
    box_scales, box_line_widths, line_colors, line_styles, line_widths,\n\
    symbol_colors, symbol_scales, symbol_numbers, symbols)\n\
\n\
    This function is used in examples 4, 26, and 33.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pllegend(p_legend_width, p_legend_height, opt, position, x, y, plot_width, bg_color, bb_color, bb_style, nrow, ncolumn, nlegend, opt_array, text_offset, text_scale, text_spacing, test_justification, text_colors, text, box_colors, box_patterns, box_scales, box_line_widths, line_colors, line_styles, line_widths, symbol_colors, symbol_scales, symbol_numbers, symbols)\n\
\n\
ARGUMENTS:\n\
\n\
    p_legend_width (PLFLT_NC_SCALAR, output) :    Returned value of the\n\
        legend width in adopted coordinates. This quantity is calculated\n\
        from plot_width, text_offset, ncolumn (possibly modified inside\n\
        the routine depending on nlegend and nrow), and the length\n\
        (calculated internally) of the longest text string.\n\
\n\
    p_legend_height (PLFLT_NC_SCALAR, output) :    Returned value of the\n\
        legend height in adopted coordinates. This quantity is calculated\n\
        from text_scale, text_spacing, and nrow (possibly modified inside\n\
        the routine depending on nlegend and nrow).\n\
\n\
    opt (PLINT, input) :    opt contains bits controlling the overall\n\
        legend. If the PL_LEGEND_TEXT_LEFT bit is set, put the text area\n\
        on the left of the legend and the plotted area on the right.\n\
        Otherwise, put the text area on the right of the legend and the\n\
        plotted area on the left. If the PL_LEGEND_BACKGROUND bit is set,\n\
        plot a (semitransparent) background for the legend. If the\n\
        PL_LEGEND_BOUNDING_BOX bit is set, plot a bounding box for the\n\
        legend. If the PL_LEGEND_ROW_MAJOR bit is set and (both of the\n\
        possibly internally transformed) nrow > 1 and ncolumn > 1, then\n\
        plot the resulting array of legend entries in row-major order.\n\
        Otherwise, plot the legend entries in column-major order.\n\
\n\
    position (PLINT, input) :    position contains bits which control the\n\
        overall position of the legend and the definition of the adopted\n\
        coordinates used for positions just like what is done for the\n\
        position argument for plcolorbar. However, note that the defaults\n\
        for the position bits (see below) are different than the\n\
        plcolorbar case.  The combination of the PL_POSITION_LEFT,\n\
        PL_POSITION_RIGHT, PL_POSITION_TOP, PL_POSITION_BOTTOM,\n\
        PL_POSITION_INSIDE, and PL_POSITION_OUTSIDE bits specifies one of\n\
        the 16 possible standard positions (the 4 corners and centers of\n\
        the 4 sides for both the inside and outside cases) of the legend\n\
        relative to the adopted coordinate system. The corner positions\n\
        are specified by the appropriate combination of two of the\n\
        PL_POSITION_LEFT, PL_POSITION_RIGHT, PL_POSITION_TOP, and\n\
        PL_POSITION_BOTTOM bits while the sides are specified by a single\n\
        value of one of those bits.  The adopted coordinates are\n\
        normalized viewport coordinates if the PL_POSITION_VIEWPORT bit is\n\
        set or normalized subpage coordinates if the PL_POSITION_SUBPAGE\n\
        bit is set. Default position bits: If none of PL_POSITION_LEFT,\n\
        PL_POSITION_RIGHT, PL_POSITION_TOP, or PL_POSITION_BOTTOM are set,\n\
        then use the combination of PL_POSITION_RIGHT and PL_POSITION_TOP.\n\
        If neither of PL_POSITION_INSIDE or PL_POSITION_OUTSIDE is set,\n\
        use PL_POSITION_INSIDE. If neither of PL_POSITION_VIEWPORT or\n\
        PL_POSITION_SUBPAGE is set, use PL_POSITION_VIEWPORT.\n\
\n\
    x (PLFLT, input) :    X offset of the legend position in adopted\n\
        coordinates from the specified standard position of the legend.\n\
        For positive x, the direction of motion away from the standard\n\
        position is inward/outward from the standard corner positions or\n\
        standard left or right positions if the\n\
        PL_POSITION_INSIDE/PL_POSITION_OUTSIDE bit is set in position.\n\
        For the standard top or bottom positions, the direction of motion\n\
        is toward positive X.\n\
\n\
    y (PLFLT, input) :    Y offset of the legend position in adopted\n\
        coordinates from the specified standard position of the legend.\n\
        For positive y, the direction of motion away from the standard\n\
        position is inward/outward from the standard corner positions or\n\
        standard top or bottom positions if the\n\
        PL_POSITION_INSIDE/PL_POSITION_OUTSIDE bit is set in position. For\n\
        the standard left or right positions, the direction of motion is\n\
        toward positive Y.\n\
\n\
    plot_width (PLFLT, input) :    Horizontal width in adopted coordinates\n\
        of the plot area (where the colored boxes, lines, and/or lines of\n\
        symbols are drawn) of the legend.\n\
\n\
    bg_color (PLINT, input) :    The cmap0 color of the background for the\n\
        legend (PL_LEGEND_BACKGROUND).\n\
\n\
    bb_color (PLINT, input) :    The cmap0 color of the bounding-box line\n\
        for the legend (PL_LEGEND_BOUNDING_BOX).\n\
\n\
    bb_style (PLINT, input) :    The pllsty style number for the\n\
        bounding-box line for the legend (PL_LEGEND_BACKGROUND).\n\
\n\
    nrow (PLINT, input) :    The cmap0 index of the background color for\n\
        the legend (PL_LEGEND_BACKGROUND).\n\
\n\
    ncolumn (PLINT, input) :    The cmap0 index of the background color\n\
        for the legend (PL_LEGEND_BACKGROUND).\n\
\n\
    nlegend (PLINT, input) :    Number of legend entries.  N.B.  The total\n\
        vertical height of the legend in adopted coordinates is calculated\n\
        internally from nlegend, text_scale (see below), and text_spacing\n\
        (see below).\n\
\n\
    opt_array (PLINT_VECTOR, input) :    A vector of\n\
    nlegend values of options to control each individual plotted area\n\
        corresponding to a legend entry.  If the\n\
    PL_LEGEND_NONE bit is set, then nothing is plotted in the plotted\n\
        area.  If the\n\
    PL_LEGEND_COLOR_BOX,\n\
    PL_LEGEND_LINE, and/or\n\
    PL_LEGEND_SYMBOL bits are set, the area corresponding to a legend\n\
        entry is plotted with a colored box; a line; and/or a line of\n\
        symbols.\n\
\n\
    text_offset (PLFLT, input) :    Offset of the text area from the plot\n\
        area in units of character width.  N.B.  The total horizontal\n\
        width of the legend in adopted coordinates is calculated\n\
        internally from\n\
    plot_width (see above),\n\
    text_offset, and length (calculated internally) of the longest text\n\
        string.\n\
\n\
    text_scale (PLFLT, input) :    Character height scale for text\n\
        annotations.  N.B.  The total vertical height of the legend in\n\
        adopted coordinates is calculated internally from\n\
    nlegend (see above),\n\
    text_scale, and\n\
    text_spacing (see below).\n\
\n\
    text_spacing (PLFLT, input) :    Vertical spacing in units of the\n\
        character height from one legend entry to the next.  N.B.  The\n\
        total vertical height of the legend in adopted coordinates is\n\
        calculated internally from\n\
    nlegend (see above),\n\
    text_scale (see above), and\n\
    text_spacing.\n\
\n\
    text_justification (PLFLT, input) :    Justification parameter used\n\
        for text justification.  The most common values of\n\
        text_justification are 0., 0.5, or 1. corresponding to a text that\n\
        is left justified, centred, or right justified within the text\n\
        area, but other values are allowed as well.\n\
\n\
    text_colors (PLINT_VECTOR, input) :    A vector containing\n\
    nlegend cmap0 text colors.\n\
\n\
    text (PLCHAR_MATRIX, input) :    A vector of\n\
    nlegend UTF-8 character strings containing the legend annotations.\n\
\n\
    box_colors (PLINT_VECTOR, input) :    A vector containing\n\
    nlegend cmap0 colors for the discrete colored boxes (\n\
    PL_LEGEND_COLOR_BOX).\n\
\n\
    box_patterns (PLINT_VECTOR, input) :    A vector containing\n\
    nlegend patterns (plpsty indices) for the discrete colored boxes (\n\
    PL_LEGEND_COLOR_BOX).\n\
\n\
    box_scales (PLFLT_VECTOR, input) :    A vector containing\n\
    nlegend scales (units of fraction of character height) for the height\n\
        of the discrete colored boxes (\n\
    PL_LEGEND_COLOR_BOX).\n\
\n\
    box_line_widths (PLFLT_VECTOR, input) :    A vector containing\n\
    nlegend line widths for the patterns specified by box_patterns (\n\
    PL_LEGEND_COLOR_BOX).\n\
\n\
    line_colors (PLINT_VECTOR, input) :    A vector containing\n\
    nlegend cmap0 line colors (\n\
    PL_LEGEND_LINE).\n\
\n\
    line_styles (PLINT_VECTOR, input) :    A vector containing\n\
    nlegend line styles (plsty indices) (\n\
    PL_LEGEND_LINE).\n\
\n\
    line_widths (PLFLT_VECTOR, input) :    A vector containing\n\
    nlegend line widths (\n\
    PL_LEGEND_LINE).\n\
\n\
    symbol_colors (PLINT_VECTOR, input) :    A vector containing\n\
    nlegend cmap0 symbol colors (\n\
    PL_LEGEND_SYMBOL).\n\
\n\
    symbol_scales (PLFLT_VECTOR, input) :    A vector containing\n\
    nlegend scale values for the symbol height (\n\
    PL_LEGEND_SYMBOL).\n\
\n\
    symbol_numbers (PLINT_VECTOR, input) :    A vector containing\n\
    nlegend numbers of symbols to be drawn across the width of the plotted\n\
        area (\n\
    PL_LEGEND_SYMBOL).\n\
\n\
    symbols (PLCHAR_MATRIX, input) :    A vector of\n\
    nlegend UTF-8 character strings containing the legend symbols. (\n\
    PL_LEGEND_SYMBOL).\n\
";
static const char* _wrap_plscmap1n_texinfo = "-*- texinfo -*-\n\
Set number of colors in cmap1\n\
\n\
DESCRIPTION:\n\
\n\
    Set number of colors in cmap1, (re-)allocate cmap1, and set default\n\
    values if this is the first allocation (see the PLplot documentation).\n\
\n\
    Redacted form: plscmap1n(ncol1)\n\
\n\
    This function is used in examples 8, 11, 20, and 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap1n(ncol1)\n\
\n\
ARGUMENTS:\n\
\n\
    ncol1 (PLINT, input) :    Number of colors that will be allocated in\n\
        the cmap1 palette. If this number is zero or less, then the value\n\
        from the previous call to plscmap1n is used and if there is no\n\
        previous call, then a default value is used.\n\
";
static const char* _wrap_plgcol0a_texinfo = "-*- texinfo -*-\n\
Returns 8-bit RGB values and PLFLT alpha transparency value for given color index from cmap0\n\
\n\
DESCRIPTION:\n\
\n\
    Returns 8-bit RGB values (0-255) and PLFLT alpha transparency value\n\
    (0.0-1.0) for given color from cmap0 (see the PLplot documentation).\n\
    Values are negative if an invalid color id is given.\n\
\n\
    Redacted form: plgcola(r, g, b)\n\
\n\
    This function is used in example 30.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgcol0a(icol0, r, g, b, alpha)\n\
\n\
ARGUMENTS:\n\
\n\
    icol0 (PLINT, input) :    Index of desired cmap0 color.\n\
\n\
    r (PLINT_NC_SCALAR, output) :    Returned value of the red intensity\n\
        in the range from 0 to 255.\n\
\n\
    g (PLINT_NC_SCALAR, output) :    Returned value of the green intensity\n\
        in the range from 0 to 255.\n\
\n\
    b (PLINT_NC_SCALAR, output) :    Returned value of the blue intensity\n\
        in the range from 0 to 255.\n\
\n\
    alpha (PLFLT_NC_SCALAR, output) :    Returned value of the alpha\n\
        transparency in the range from (0.0-1.0).\n\
";
static const char* _wrap_plreplot_texinfo = "-*- texinfo -*-\n\
Replays contents of plot buffer to current device/file\n\
\n\
DESCRIPTION:\n\
\n\
    Replays contents of plot buffer to current device/file.\n\
\n\
    Redacted form: plreplot()\n\
\n\
    This function is used in example 1,20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plreplot()\n\
";
static const char* _wrap_pllab_texinfo = "-*- texinfo -*-\n\
Simple routine to write labels\n\
\n\
DESCRIPTION:\n\
\n\
    Routine for writing simple labels. Use plmtex for more complex labels.\n\
\n\
    Redacted form: pllab(xlabel, ylabel, tlabel)\n\
\n\
    This function is used in examples 1, 5, 9, 12, 14-16, 20-22, and 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pllab(xlabel, ylabel, tlabel)\n\
\n\
ARGUMENTS:\n\
\n\
    xlabel (PLCHAR_VECTOR, input) :    A UTF-8 character string specifying\n\
        the label for the x axis.\n\
\n\
    ylabel (PLCHAR_VECTOR, input) :    A UTF-8 character string specifying\n\
        the label for the y axis.\n\
\n\
    tlabel (PLCHAR_VECTOR, input) :    A UTF-8 character string specifying\n\
        the title of the plot.\n\
";
static const char* _wrap_plsdidev_texinfo = "-*- texinfo -*-\n\
Set parameters that define current device-space window\n\
\n\
DESCRIPTION:\n\
\n\
    Set relative margin width, aspect ratio, and relative justification\n\
    that define current device-space window.  If you want to just use the\n\
    previous value for any of these, just pass in the magic value\n\
    PL_NOTSET. It is unlikely that one should ever need to change the\n\
    aspect ratio but it\'s in there for completeness. If plsdidev is not\n\
    called the default values of mar, jx, and jy are all 0. aspect is set\n\
    to a device-specific value.\n\
\n\
    Redacted form: plsdidev(mar, aspect, jx, jy)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsdidev(mar, aspect, jx, jy)\n\
\n\
ARGUMENTS:\n\
\n\
    mar (PLFLT, input) :    Relative margin width.\n\
\n\
    aspect (PLFLT, input) :    Aspect ratio.\n\
\n\
    jx (PLFLT, input) :    Relative justification in x. Value must lie in\n\
        the range -0.5 to 0.5.\n\
\n\
    jy (PLFLT, input) :    Relative justification in y. Value must lie in\n\
        the range -0.5 to 0.5.\n\
";
static const char* _wrap_plbop_texinfo = "-*- texinfo -*-\n\
Begin a new page\n\
\n\
DESCRIPTION:\n\
\n\
    Begins a new page.  For a file driver, the output file is opened if\n\
    necessary.  Advancing the page via pleop and plbop is useful when a\n\
    page break is desired at a particular point when plotting to subpages.\n\
     Another use for pleop and plbop is when plotting pages to different\n\
    files, since you can manually set the file name by calling plsfnam\n\
    after the call to pleop. (In fact some drivers may only support a\n\
    single page per file, making this a necessity.)  One way to handle\n\
    this case automatically is to page advance via pladv, but enable\n\
    familying (see plsfam) with a small limit on the file size so that a\n\
    new family member file will be created on each page break.\n\
\n\
    Redacted form: plbop()\n\
\n\
    This function is used in examples 2 and 20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plbop()\n\
";
static const char* _wrap_plscmap0_texinfo = "-*- texinfo -*-\n\
Set cmap0 colors by 8-bit RGB values\n\
\n\
DESCRIPTION:\n\
\n\
    Set cmap0 colors using 8-bit RGB values (see the PLplot\n\
    documentation).  This sets the entire color map -- only as many colors\n\
    as specified will be allocated.\n\
\n\
    Redacted form: plscmap0(r, g, b)\n\
\n\
    This function is used in examples 2 and 24.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap0(r, g, b, ncol0)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLINT_VECTOR, input) :    A vector containing unsigned 8-bit\n\
        integers (0-255) representing the degree of red in the color.\n\
\n\
    g (PLINT_VECTOR, input) :    A vector containing unsigned 8-bit\n\
        integers (0-255) representing the degree of green in the color.\n\
\n\
    b (PLINT_VECTOR, input) :    A vector containing unsigned 8-bit\n\
        integers (0-255) representing the degree of blue in the color.\n\
\n\
    ncol0 (PLINT, input) :    Number of items in the r, g, and b vectors.\n\
";
static const char* _wrap_plssub_texinfo = "-*- texinfo -*-\n\
Set the number of subpages in x and y\n\
\n\
DESCRIPTION:\n\
\n\
    Set the number of subpages in x and y.\n\
\n\
    Redacted form: plssub(nx, ny)\n\
\n\
    This function is examples 1,2,14,21,25,27.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plssub(nx, ny)\n\
\n\
ARGUMENTS:\n\
\n\
    nx (PLINT, input) :    Number of windows in x direction (i.e., number\n\
        of window columns).\n\
\n\
    ny (PLINT, input) :    Number of windows in y direction (i.e., number\n\
        of window rows).\n\
";
static const char* _wrap_plstransform_texinfo = "-*- texinfo -*-\n\
Set a global coordinate transform function\n\
\n\
DESCRIPTION:\n\
\n\
    This function can be used to define a coordinate transformation which\n\
    affects all elements drawn within the current plot window.  The\n\
    coordinate_transform callback function is similar to that provided for\n\
    the plmap and plmeridians functions.  The coordinate_transform_data\n\
    parameter may be used to pass extra data to coordinate_transform.\n\
\n\
    Redacted form: General: plstransform(coordinate_transform,\n\
    coordinate_transform_data)\n\
\n\
\n\
    This function is used in examples 19 and 22.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstransform(coordinate_transform, coordinate_transform_data)\n\
\n\
ARGUMENTS:\n\
\n\
    coordinate_transform (PLTRANSFORM_callback, input) :    A callback\n\
        function that defines the transformation from the input (x, y)\n\
        world coordinates to new PLplot world coordinates.  If\n\
    coordinate_transform is not supplied (e.g., is set to NULL in the C\n\
        case), then no transform is applied.\n\
\n\
    coordinate_transform_data (PLPointer, input) :    Optional extra data\n\
        for\n\
    coordinate_transform.\n\
";
static const char* _wrap_plscmap1_texinfo = "-*- texinfo -*-\n\
Set opaque RGB cmap1 colors values\n\
\n\
DESCRIPTION:\n\
\n\
    Set opaque cmap1 colors (see the PLplot documentation) using RGB\n\
    vector values.  This function also sets the number of cmap1 colors.\n\
    N.B. Continuous cmap1 colors are indexed with a floating-point index\n\
    in the range from 0.0-1.0 which is linearly transformed (e.g., by\n\
    plcol1) to an integer index of these RGB vectors in the range from 0\n\
    to\n\
    ncol1-1.  So in order for this continuous color model to work\n\
    properly, it is the responsibility of the user of plscmap1 to insure\n\
    that these RGB vectors are continuous functions of their integer\n\
    indices.\n\
\n\
    Redacted form: plscmap1(r, g, b)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap1(r, g, b, ncol1)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLINT_VECTOR, input) :    A vector that represents (using unsigned\n\
        8-bit integers in the range from 0-255) the degree of red in the\n\
        color as a continuous function of the integer index of the vector.\n\
\n\
    g (PLINT_VECTOR, input) :    A vector that represents (using unsigned\n\
        8-bit integers in the range from 0-255) the degree of green in the\n\
        color as a continuous function of the integer index of the vector.\n\
\n\
    b (PLINT_VECTOR, input) :    A vector that represents (using unsigned\n\
        8-bit integers in the range from 0-255) the degree of blue in the\n\
        color as a continuous function of the integer index of the vector.\n\
\n\
    ncol1 (PLINT, input) :    Number of items in the r, g, and b vectors.\n\
";
static const char* _wrap_plconfigtime_texinfo = "-*- texinfo -*-\n\
Configure the transformation between continuous and broken-down time for the current stream\n\
\n\
DESCRIPTION:\n\
\n\
    Configure the transformation between continuous and broken-down time\n\
    for the current stream.  This transformation is used by both plbtime\n\
    and plctime.\n\
\n\
    Redacted form: General: plconfigtime(scale, offset1, offset2,\n\
    ccontrol, ifbtime_offset, year, month, day, hour, min, sec)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plconfigtime(scale, offset1, offset2, ccontrol, ifbtime_offset, year, month, day, hour, min, sec)\n\
\n\
ARGUMENTS:\n\
\n\
    scale (PLFLT, input) :    The number of days per continuous time unit.\n\
         As a special case, if\n\
    scale is 0., then all other arguments are ignored, and the result (the\n\
        default used by PLplot) is the equivalent of a call to\n\
        plconfigtime(1./86400., 0., 0., 0x0, 1, 1970, 0, 1, 0, 0, 0.).\n\
        That is, for this special case broken-down time is calculated with\n\
        the proleptic Gregorian calendar with no leap seconds inserted,\n\
        and the continuous time is defined as the number of seconds since\n\
        the Unix epoch of 1970-01-01T00:00:00Z.\n\
\n\
    offset1 (PLFLT, input) :    If\n\
    ifbtime_offset is true, the parameters\n\
    offset1 and\n\
    offset2 are completely ignored. Otherwise, the sum of these parameters\n\
        (with units in days) specify the epoch of the continuous time\n\
        relative to the MJD epoch corresponding to the Gregorian calendar\n\
        date of 1858-11-17T00:00:00Z or JD = 2400000.5.  Two PLFLT numbers\n\
        are used to specify the origin to allow users (by specifying\n\
    offset1 as an integer that can be exactly represented by a\n\
        floating-point variable and specifying\n\
    offset2 as a number in the range from 0. to 1) the chance to minimize\n\
        the numerical errors of the continuous time representation.\n\
\n\
    offset2 (PLFLT, input) :    See documentation of\n\
    offset1.\n\
\n\
    ccontrol (PLINT, input) :    ccontrol contains bits controlling the\n\
        transformation.  If the 0x1 bit is set, then the proleptic Julian\n\
        calendar is used for broken-down time rather than the proleptic\n\
        Gregorian calendar.  If the 0x2 bit is set, then leap seconds that\n\
        have been historically used to define UTC are inserted into the\n\
        broken-down time. Other possibilities for additional control bits\n\
        for ccontrol exist such as making the historical time corrections\n\
        in the broken-down time corresponding to ET (ephemeris time) or\n\
        making the (slightly non-constant) corrections from international\n\
        atomic time (TAI) to what astronomers define as terrestrial time\n\
        (TT).  But those additional possibilities have not been\n\
        implemented yet in the qsastime library (one of the PLplot utility\n\
        libraries).\n\
\n\
    ifbtime_offset (PLBOOL, input) :    ifbtime_offset controls how the\n\
        epoch of the continuous time scale is specified by the user. If\n\
    ifbtime_offset is false, then\n\
    offset1 and\n\
    offset2 are used to specify the epoch, and the following broken-down\n\
        time parameters are completely ignored.  If\n\
    ifbtime_offset is true, then\n\
    offset1 and\n\
    offset2 are completely ignored, and the following broken-down time\n\
        parameters are used to specify the epoch.\n\
\n\
    year (PLINT, input) :    Year of epoch.\n\
\n\
    month (PLINT, input) :    Month of epoch in range from 0 (January) to\n\
        11 (December).\n\
\n\
    day (PLINT, input) :    Day of epoch in range from 1 to 31.\n\
\n\
    hour (PLINT, input) :    Hour of epoch in range from 0 to 23\n\
\n\
    min (PLINT, input) :    Minute of epoch in range from 0 to 59.\n\
\n\
    sec (PLFLT, input) :    Second of epoch in range from 0. to 60.\n\
";
static const char* _wrap_plsmin_texinfo = "-*- texinfo -*-\n\
Set length of minor ticks\n\
\n\
DESCRIPTION:\n\
\n\
    This sets up the length of the minor ticks and the length of the\n\
    terminals on error bars.  The actual length is the product of the\n\
    default length and a scaling factor as for character height.\n\
\n\
    Redacted form: plsmin(def, scale)\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsmin(def, scale)\n\
\n\
ARGUMENTS:\n\
\n\
    def (PLFLT, input) :    The default length of a minor tick in\n\
        millimeters, should be set to zero if the default length is to\n\
        remain unchanged.\n\
\n\
    scale (PLFLT, input) :    Scale factor to be applied to default to get\n\
        actual tick length.\n\
";
static const char* _wrap_plschr_texinfo = "-*- texinfo -*-\n\
Set character size\n\
\n\
DESCRIPTION:\n\
\n\
    This sets up the size of all subsequent characters drawn.  The actual\n\
    height of a character is the product of the default character size and\n\
    a scaling factor.\n\
\n\
    Redacted form: plschr(def, scale)\n\
\n\
    This function is used in examples 2, 13, 23, and 24.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plschr(def, scale)\n\
\n\
ARGUMENTS:\n\
\n\
    def (PLFLT, input) :    The default height of a character in\n\
        millimeters, should be set to zero if the default height is to\n\
        remain unchanged. For rasterized drivers the dx and dy values\n\
        specified in plspage are used to convert from mm to pixels (note\n\
        the different unit systems used).  This dpi aware scaling is not\n\
        implemented for all drivers yet.\n\
\n\
    scale (PLFLT, input) :    Scale factor to be applied to default to get\n\
        actual character height.\n\
";
static const char* _wrap_plinit_texinfo = "-*- texinfo -*-\n\
Initialize PLplot\n\
\n\
DESCRIPTION:\n\
\n\
    Initializing the plotting package.  The program prompts for the device\n\
    keyword or number of the desired output device.  Hitting a RETURN in\n\
    response to the prompt is the same as selecting the first device.\n\
    plinit will issue no prompt if either the device was specified\n\
    previously (via command line flag, the plsetopt function, or the\n\
    plsdev function), or if only one device is enabled when PLplot is\n\
    installed.  If subpages have been specified, the output device is\n\
    divided into nx by ny subpages, each of which may be used\n\
    independently.  If plinit is called again during a program, the\n\
    previously opened file will be closed.  The subroutine pladv is used\n\
    to advance from one subpage to the next.\n\
\n\
    Redacted form: plinit()\n\
\n\
    This function is used in all of the examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plinit()\n\
";
static const char* _wrap_plbox_texinfo = "-*- texinfo -*-\n\
Draw a box with axes, etc\n\
\n\
DESCRIPTION:\n\
\n\
    Draws a box around the currently defined viewport, and labels it with\n\
    world coordinate values appropriate to the window.  Thus plbox should\n\
    only be called after defining both viewport and window.  The ascii\n\
    character strings xopt and yopt specify how the box should be drawn as\n\
    described below.  If ticks and/or subticks are to be drawn for a\n\
    particular axis, the tick intervals and number of subintervals may be\n\
    specified explicitly, or they may be defaulted by setting the\n\
    appropriate arguments to zero.\n\
\n\
    Redacted form: General: plbox(xopt, xtick, nxsub, yopt, ytick, nysub)\n\
            Perl/PDL: plbox(xtick, nxsub, ytick, nysub, xopt, yopt)\n\
\n\
\n\
    This function is used in examples 1, 2, 4, 6, 6-12, 14-18, 21, 23-26,\n\
    and 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plbox(xopt, xtick, nxsub, yopt, ytick, nysub)\n\
\n\
ARGUMENTS:\n\
\n\
    xopt (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        options for the x axis.  The string can include any combination of\n\
        the following letters (upper or lower case) in any order: a: Draws\n\
        axis, X-axis is horizontal line (y=0), and Y-axis is vertical line\n\
        (x=0).\n\
            b: Draws bottom (X) or left (Y) edge of frame.\n\
            c: Draws top (X) or right (Y) edge of frame.\n\
            d: Plot labels as date / time. Values are assumed to be\n\
            seconds since the epoch (as used by gmtime).\n\
            f:  Always use fixed point numeric labels.\n\
            g: Draws a grid at the major tick interval.\n\
            h: Draws a grid at the minor tick interval.\n\
            i: Inverts tick marks, so they are drawn outwards, rather than\n\
            inwards.\n\
            l: Labels axis logarithmically.  This only affects the labels,\n\
            not the data, and so it is necessary to compute the logarithms\n\
            of data points before passing them to any of the drawing\n\
            routines.\n\
            m: Writes numeric labels at major tick intervals in the\n\
            unconventional location (above box for X, right of box for Y).\n\
            n: Writes numeric labels at major tick intervals in the\n\
            conventional location (below box for X, left of box for Y).\n\
            o: Use custom labelling function to generate axis label text.\n\
            The custom labelling function can be defined with the\n\
            plslabelfunc command.\n\
            s: Enables subticks between major ticks, only valid if t is\n\
            also specified.\n\
            t: Draws major ticks.\n\
            u: Exactly like \"b\" except don\'t draw edge line.\n\
            w: Exactly like \"c\" except don\'t draw edge line.\n\
            x: Exactly like \"t\" (including the side effect of the\n\
            numerical labels for the major ticks) except exclude drawing\n\
            the major and minor tick marks.\n\
\n\
\n\
    xtick (PLFLT, input) :    World coordinate interval between major\n\
        ticks on the x axis. If it is set to zero, PLplot automatically\n\
        generates a suitable tick interval.\n\
\n\
    nxsub (PLINT, input) :    Number of subintervals between major x axis\n\
        ticks for minor ticks.  If it is set to zero, PLplot automatically\n\
        generates a suitable minor tick interval.\n\
\n\
    yopt (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        options for the y axis.  The string can include any combination of\n\
        the letters defined above for xopt, and in addition may contain:\n\
        v: Write numeric labels for the y axis parallel to the base of the\n\
        graph, rather than parallel to the axis.\n\
\n\
\n\
    ytick (PLFLT, input) :    World coordinate interval between major\n\
        ticks on the y axis. If it is set to zero, PLplot automatically\n\
        generates a suitable tick interval.\n\
\n\
    nysub (PLINT, input) :    Number of subintervals between major y axis\n\
        ticks for minor ticks.  If it is set to zero, PLplot automatically\n\
        generates a suitable minor tick interval.\n\
";
static const char* _wrap_plgdidev_texinfo = "-*- texinfo -*-\n\
Get parameters that define current device-space window\n\
\n\
DESCRIPTION:\n\
\n\
    Get relative margin width, aspect ratio, and relative justification\n\
    that define current device-space window. If plsdidev has not been\n\
    called the default values pointed to by p_mar, p_aspect, p_jx, and\n\
    p_jy will all be 0.\n\
\n\
    Redacted form: plgdidev(p_mar, p_aspect, p_jx, p_jy)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgdidev(p_mar, p_aspect, p_jx, p_jy)\n\
\n\
ARGUMENTS:\n\
\n\
    p_mar (PLFLT_NC_SCALAR, output) :    Returned value of the relative\n\
        margin width.\n\
\n\
    p_aspect (PLFLT_NC_SCALAR, output) :    Returned value of the aspect\n\
        ratio.\n\
\n\
    p_jx (PLFLT_NC_SCALAR, output) :    Returned value of the relative\n\
        justification in x.\n\
\n\
    p_jy (PLFLT_NC_SCALAR, output) :    Returned value of the relative\n\
        justification in y.\n\
";
static const char* _wrap_plstring_texinfo = "-*- texinfo -*-\n\
Plot a glyph at the specified points\n\
\n\
DESCRIPTION:\n\
\n\
    Plot a glyph at the specified points. (Supersedes plpoin and plsym\n\
    because many[!] more glyphs are accessible with plstring.) The glyph\n\
    is specified with a PLplot user string.  Note that the user string is\n\
    not actually limited to one glyph so it is possible (but not normally\n\
    useful) to plot more than one glyph at the specified points with this\n\
    function.  As with plmtex and plptex, the user string can contain FCI\n\
    escapes to determine the font, UTF-8 code to determine the glyph or\n\
    else PLplot escapes for Hershey or unicode text to determine the\n\
    glyph.\n\
\n\
    Redacted form: plstring(x, y, string)\n\
\n\
    This function is used in examples 4, 21 and 26.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstring(n, x, y, string)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of points in the x and y vectors.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        the points.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        the points.\n\
\n\
    string (PLCHAR_VECTOR, input) :    A UTF-8 character string containing\n\
        the glyph(s) to be plotted at each of the n points.\n\
";
static const char* _wrap_plmapstring_texinfo = "-*- texinfo -*-\n\
Plot all or a subset of Shapefile data using strings or points in world coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    As per plmapline, however the items are plotted as strings or points\n\
    in the same way as plstring.\n\
\n\
    Redacted form: plmapstring(mapform, name, string, minx, maxx, miny,\n\
    maxy, plotentries)\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmapstring(mapform, name, string, minx, maxx, miny, maxy, plotentries, nplotentries)\n\
\n\
ARGUMENTS:\n\
\n\
    mapform (PLMAPFORM_callback, input) :    A user supplied function to\n\
        transform the coordinates given in the shapefile into a plot\n\
        coordinate system. By using this transform, we can change from a\n\
        longitude, latitude coordinate to a polar stereographic project,\n\
        for example.  Initially, x[0]..[n-1] are the longitudes and\n\
        y[0]..y[n-1] are the corresponding latitudes.  After the call to\n\
        mapform(), x[] and y[] should be replaced by the corresponding\n\
        plot coordinates. If no transform is desired, mapform can be\n\
        replaced by NULL.\n\
\n\
    name (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        the file name of a set of Shapefile files without the file\n\
        extension.\n\
\n\
    string (PLCHAR_VECTOR, input) :    A UTF-8 character string to be\n\
        drawn.\n\
\n\
    minx (PLFLT, input) :    The minimum x value to be plotted. This must\n\
        be in the same units as used by the Shapefile. You could use a\n\
        very large negative number to plot everything, but you can improve\n\
        performance by limiting the area drawn. The units must match those\n\
        of the Shapefile projection, which may be for example longitude or\n\
        distance. The value of minx must be less than the value of maxx.\n\
\n\
    maxx (PLFLT, input) :    The maximum x value to be plotted. You could\n\
        use a very large number to plot everything, but you can improve\n\
        performance by limiting the area drawn.\n\
\n\
    miny (PLFLT, input) :    The minimum y value to be plotted. This must\n\
        be in the same units as used by the Shapefile. You could use a\n\
        very large negative number to plot everything, but you can improve\n\
        performance by limiting the area drawn. The units must match those\n\
        of the Shapefile projection, which may be for example latitude or\n\
        distance. The value of miny must be less than the value of maxy.\n\
\n\
    maxy (PLFLT, input) :    The maximum y value to be plotted. You could\n\
        use a very large number to plot everything, but you can improve\n\
        performance by limiting the area drawn.\n\
\n\
    plotentries (PLINT_VECTOR, input) :    A vector containing the\n\
        zero-based indices of the Shapefile elements which will be drawn.\n\
        Setting\n\
    plotentries to NULL will plot all elements of the Shapefile.\n\
\n\
    nplotentries (PLINT, input) :    The number of items in\n\
    plotentries.  Ignored if\n\
    plotentries is NULL.\n\
";
static const char* _wrap_plenv0_texinfo = "-*- texinfo -*-\n\
Same as plenv but if in multiplot mode does not advance the subpage, instead clears it\n\
\n\
DESCRIPTION:\n\
\n\
    Sets up plotter environment for simple graphs by calling pladv and\n\
    setting up viewport and window to sensible default values. plenv0\n\
    leaves a standard margin (left-hand margin of eight character heights,\n\
    and a margin around the other three sides of five character heights)\n\
    around most graphs for axis labels and a title.  When these defaults\n\
    are not suitable, use the individual routines plvpas, plvpor, or\n\
    plvasp for setting up the viewport, plwind for defining the window,\n\
    and plbox for drawing the box.\n\
\n\
    Redacted form: plenv0(xmin, xmax, ymin, ymax, just, axis)\n\
\n\
    This function is used in example 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plenv0(xmin, xmax, ymin, ymax, just, axis)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT, input) :    Value of x at left-hand edge of window (in\n\
        world coordinates).\n\
\n\
    xmax (PLFLT, input) :    Value of x at right-hand edge of window (in\n\
        world coordinates).\n\
\n\
    ymin (PLFLT, input) :    Value of y at bottom edge of window (in world\n\
        coordinates).\n\
\n\
    ymax (PLFLT, input) :    Value of y at top edge of window (in world\n\
        coordinates).\n\
\n\
    just (PLINT, input) :    Controls how the axes will be scaled: -1: the\n\
        scales will not be set, the user must set up the scale before\n\
        calling plenv0 using plsvpa, plvasp or other.\n\
            0: the x and y axes are scaled independently to use as much of\n\
            the screen as possible.\n\
            1: the scales of the x and y axes are made equal.\n\
            2: the axis of the x and y axes are made equal, and the plot\n\
            box will be square.\n\
\n\
\n\
    axis (PLINT, input) :    Controls drawing of the box around the plot:\n\
        -2: draw no box, no tick marks, no numeric tick labels, no axes.\n\
            -1: draw box only.\n\
            0: draw box, ticks, and numeric tick labels.\n\
            1: also draw coordinate axes at x=0 and y=0.\n\
            2: also draw a grid at major tick positions in both\n\
            coordinates.\n\
            3: also draw a grid at minor tick positions in both\n\
            coordinates.\n\
            10: same as 0 except logarithmic x tick marks. (The x data\n\
            have to be converted to logarithms separately.)\n\
            11: same as 1 except logarithmic x tick marks. (The x data\n\
            have to be converted to logarithms separately.)\n\
            12: same as 2 except logarithmic x tick marks. (The x data\n\
            have to be converted to logarithms separately.)\n\
            13: same as 3 except logarithmic x tick marks. (The x data\n\
            have to be converted to logarithms separately.)\n\
            20: same as 0 except logarithmic y tick marks. (The y data\n\
            have to be converted to logarithms separately.)\n\
            21: same as 1 except logarithmic y tick marks. (The y data\n\
            have to be converted to logarithms separately.)\n\
            22: same as 2 except logarithmic y tick marks. (The y data\n\
            have to be converted to logarithms separately.)\n\
            23: same as 3 except logarithmic y tick marks. (The y data\n\
            have to be converted to logarithms separately.)\n\
            30: same as 0 except logarithmic x and y tick marks. (The x\n\
            and y data have to be converted to logarithms separately.)\n\
            31: same as 1 except logarithmic x and y tick marks. (The x\n\
            and y data have to be converted to logarithms separately.)\n\
            32: same as 2 except logarithmic x and y tick marks. (The x\n\
            and y data have to be converted to logarithms separately.)\n\
            33: same as 3 except logarithmic x and y tick marks. (The x\n\
            and y data have to be converted to logarithms separately.)\n\
            40: same as 0 except date / time x labels.\n\
            41: same as 1 except date / time x labels.\n\
            42: same as 2 except date / time x labels.\n\
            43: same as 3 except date / time x labels.\n\
            50: same as 0 except date / time y labels.\n\
            51: same as 1 except date / time y labels.\n\
            52: same as 2 except date / time y labels.\n\
            53: same as 3 except date / time y labels.\n\
            60: same as 0 except date / time x and y labels.\n\
            61: same as 1 except date / time x and y labels.\n\
            62: same as 2 except date / time x and y labels.\n\
            63: same as 3 except date / time x and y labels.\n\
            70: same as 0 except custom x and y labels.\n\
            71: same as 1 except custom x and y labels.\n\
            72: same as 2 except custom x and y labels.\n\
            73: same as 3 except custom x and y labels.\n\
";
static const char* _wrap_plw3d_texinfo = "-*- texinfo -*-\n\
Configure the transformations required for projecting a 3D surface on a 2D window\n\
\n\
DESCRIPTION:\n\
\n\
    Configure the transformations required for projecting a 3D surface on\n\
    an existing 2D window.  Those transformations (see the PLplot\n\
    documentation) are done to a rectangular cuboid enclosing the 3D\n\
    surface which has its limits expressed in 3D world coordinates and\n\
    also normalized 3D coordinates (used for interpreting the altitude and\n\
    azimuth of the viewing angle).  The transformations consist of the\n\
    linear transform from 3D world coordinates to normalized 3D\n\
    coordinates, and the 3D rotation of normalized coordinates required to\n\
    align the pole of the new 3D coordinate system with the viewing\n\
    direction specified by altitude and azimuth so that x and y of the\n\
    surface elements in that transformed coordinate system are the\n\
    projection of the 3D surface with given viewing direction on the 2D\n\
    window.\n\
\n\
    The enclosing rectangular cuboid for the surface plot is defined by\n\
    xmin, xmax, ymin, ymax, zmin and zmax in 3D world coordinates.  It is\n\
    mapped into the same rectangular cuboid with normalized 3D coordinate\n\
    sizes of basex by basey by height so that xmin maps to -\n\
    basex/2, xmax maps to basex/2, ymin maps to -\n\
    basey/2, ymax maps to basey/2, zmin maps to 0 and zmax maps to height.\n\
     The resulting rectangular cuboid in normalized coordinates is then\n\
    viewed by an observer at altitude alt and azimuth az.  This routine\n\
    must be called before plbox3 or any of the 3D surface plotting\n\
    routines; plmesh, plmeshc, plot3d, plot3dc, plot3dcl, plsurf3d,\n\
    plsurf3dl or plfill3.\n\
\n\
    Redacted form: plw3d(basex, basey, height, xmin, xmax, ymin, ymax,\n\
    zmin, zmax, alt, az)\n\
\n\
    This function is examples 8, 11, 18, and 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plw3d(basex, basey, height, xmin, xmax, ymin, ymax, zmin, zmax, alt, az)\n\
\n\
ARGUMENTS:\n\
\n\
    basex (PLFLT, input) :    The normalized x coordinate size of the\n\
        rectangular cuboid.\n\
\n\
    basey (PLFLT, input) :    The normalized y coordinate size of the\n\
        rectangular cuboid.\n\
\n\
    height (PLFLT, input) :    The normalized z coordinate size of the\n\
        rectangular cuboid.\n\
\n\
    xmin (PLFLT, input) :    The minimum x world coordinate of the\n\
        rectangular cuboid.\n\
\n\
    xmax (PLFLT, input) :    The maximum x world coordinate of the\n\
        rectangular cuboid.\n\
\n\
    ymin (PLFLT, input) :    The minimum y world coordinate of the\n\
        rectangular cuboid.\n\
\n\
    ymax (PLFLT, input) :    The maximum y world coordinate of the\n\
        rectangular cuboid.\n\
\n\
    zmin (PLFLT, input) :    The minimum z world coordinate of the\n\
        rectangular cuboid.\n\
\n\
    zmax (PLFLT, input) :    The maximum z world coordinate of the\n\
        rectangular cuboid.\n\
\n\
    alt (PLFLT, input) :    The viewing altitude in degrees above the xy\n\
        plane of the rectangular cuboid in normalized coordinates.\n\
\n\
    az (PLFLT, input) :    The viewing azimuth in degrees of the\n\
        rectangular cuboid in normalized coordinates.  When az=0, the\n\
        observer is looking face onto the zx plane of the rectangular\n\
        cuboid in normalized coordinates, and as az is increased, the\n\
        observer moves clockwise around that cuboid when viewed from above\n\
        the xy plane.\n\
";
static const char* _wrap_plfill_texinfo = "-*- texinfo -*-\n\
Draw filled polygon\n\
\n\
DESCRIPTION:\n\
\n\
    Fills the polygon defined by the n points (\n\
    x[i],\n\
    y[i]) using the pattern defined by plpsty or plpat.  The default fill\n\
    style is a solid fill. The routine will automatically close the\n\
    polygon between the last and first vertices.  If multiple closed\n\
    polygons are passed in x and y then plfill will fill in between them.\n\
\n\
    Redacted form: plfill(x,y)\n\
\n\
    This function is used in examples 12, 13, 15, 16, 21, 24, and 25.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plfill(n, x, y)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of vertices in polygon.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        vertices.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        vertices.\n\
";
static const char* _wrap_plot3dc_texinfo = "-*- texinfo -*-\n\
Magnitude colored plot surface with contour\n\
\n\
DESCRIPTION:\n\
\n\
    Aside from dropping the\n\
    side functionality this is a more powerful form of plot3d: the surface\n\
    mesh can be colored accordingly to the current z value being plotted,\n\
    a contour plot can be drawn at the base XY plane, and a curtain can be\n\
    drawn between the plotted function border and the base XY plane. The\n\
    arguments are identical to those of plmeshc. The only difference\n\
    between plmeshc and plot3dc is that plmeshc draws the bottom side of\n\
    the surface, while plot3dc only draws the surface as viewed from the\n\
    top.\n\
\n\
    Redacted form: General: plot3dc(x, y, z, opt, clevel)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plot3dc(x, y, z, nx, ny, opt, clevel, nlevel)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates at\n\
        which the function is evaluated.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates at\n\
        which the function is evaluated.\n\
\n\
    z (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    Number of x values at which function is\n\
        evaluated.\n\
\n\
    ny (PLINT, input) :    Number of y values at which function is\n\
        evaluated.\n\
\n\
    opt (PLINT, input) :    Determines the way in which the surface is\n\
        represented. To specify more than one option just add the options,\n\
        e.g. DRAW_LINEXY + MAG_COLOR opt=DRAW_LINEX : Lines are drawn\n\
        showing z as a function of x for each value of y[j] .\n\
            opt=DRAW_LINEY : Lines are drawn showing z as a function of y\n\
            for each value of x[i] .\n\
            opt=DRAW_LINEXY : Network of lines is drawn connecting points\n\
            at which function is defined.\n\
            opt=MAG_COLOR : Each line in the mesh is colored according to\n\
            the z value being plotted. The color is used from the current\n\
            cmap1.\n\
            opt=BASE_CONT : A contour plot is drawn at the base XY plane\n\
            using parameters\n\
    nlevel and\n\
    clevel.\n\
            opt=DRAW_SIDES : draws a curtain between the base XY plane and\n\
            the borders of the plotted function.\n\
\n\
\n\
    clevel (PLFLT_VECTOR, input) :    A vector containing the contour\n\
        levels.\n\
\n\
    nlevel (PLINT, input) :    Number of elements in the clevel vector.\n\
";
static const char* _wrap_plmtex_texinfo = "-*- texinfo -*-\n\
Write text relative to viewport boundaries\n\
\n\
DESCRIPTION:\n\
\n\
    Writes text at a specified position relative to the viewport\n\
    boundaries.  Text may be written inside or outside the viewport, but\n\
    is clipped at the subpage boundaries.  The reference point of a string\n\
    lies along a line passing through the string at half the height of a\n\
    capital letter.  The position of the reference point along this line\n\
    is determined by just, and the position of the reference point\n\
    relative to the viewport is set by disp and pos.\n\
\n\
    Redacted form: General: plmtex(side, disp, pos, just, text)\n\
            Perl/PDL: plmtex(disp, pos, just, side, text)\n\
\n\
\n\
    This function is used in examples 3, 4, 6-8, 11, 12, 14, 18, 23, and\n\
    26.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmtex(side, disp, pos, just, text)\n\
\n\
ARGUMENTS:\n\
\n\
    side (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        the side of the viewport along which the text is to be written.\n\
        The string must be one of: b: Bottom of viewport, text written\n\
        parallel to edge.\n\
            bv: Bottom of viewport, text written at right angles to edge.\n\
            l: Left of viewport, text written parallel to edge.\n\
            lv: Left of viewport, text written at right angles to edge.\n\
            r: Right of viewport, text written parallel to edge.\n\
            rv: Right of viewport, text written at right angles to edge.\n\
            t: Top of viewport, text written parallel to edge.\n\
            tv: Top of viewport, text written at right angles to edge.\n\
\n\
\n\
    disp (PLFLT, input) :    Position of the reference point of string,\n\
        measured outwards from the specified viewport edge in units of the\n\
        current character height.  Use negative disp to write within the\n\
        viewport.\n\
\n\
    pos (PLFLT, input) :    Position of the reference point of string\n\
        along the specified edge, expressed as a fraction of the length of\n\
        the edge.\n\
\n\
    just (PLFLT, input) :    Specifies the position of the string relative\n\
        to its reference point.  If just=0. , the reference point is at\n\
        the left and if just=1. , it is at the right of the string.  Other\n\
        values of just give intermediate justifications.\n\
\n\
    text (PLCHAR_VECTOR, input) :    A UTF-8 character string to be\n\
        written out.\n\
";
static const char* _wrap_plsvect_texinfo = "-*- texinfo -*-\n\
Set arrow style for vector plots\n\
\n\
DESCRIPTION:\n\
\n\
    Set the style for the arrow used by plvect to plot vectors.\n\
\n\
    Redacted form: plsvect(arrowx, arrowy, fill)\n\
\n\
    This function is used in example 22.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsvect(arrowx, arrowy, npts, fill)\n\
\n\
ARGUMENTS:\n\
\n\
    arrowx, arrowy (PLFLT_VECTOR, input) :    A pair of vectors containing\n\
        the x and y points which make up the arrow. The arrow is plotted\n\
        by joining these points to form a polygon. The scaling assumes\n\
        that the x and y points in the arrow lie in the range -0.5 <= x,y\n\
        <= 0.5. If both arrowx and arrowy are NULL then the arrow style\n\
        will be reset to its default.\n\
\n\
    npts (PLINT, input) :    Number of points in the vectors arrowx and\n\
        arrowy.\n\
\n\
    fill (PLBOOL, input) :    If fill is true then the arrow is closed, if\n\
        fill is false then the arrow is open.\n\
";
static const char* _wrap_plgfam_texinfo = "-*- texinfo -*-\n\
Get family file parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Gets information about current family file, if familying is enabled.\n\
    See the PLplot documentation for more information.\n\
\n\
    Redacted form: plgfam(p_fam, p_num, p_bmax)\n\
\n\
    This function is used in examples 14 and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgfam(p_fam, p_num, p_bmax)\n\
\n\
ARGUMENTS:\n\
\n\
    p_fam (PLINT_NC_SCALAR, output) :    Returned value of the current\n\
        family flag value.  If nonzero, familying is enabled for the\n\
        current device.\n\
\n\
    p_num (PLINT_NC_SCALAR, output) :    Returned value of the current\n\
        family file number.\n\
\n\
    p_bmax (PLINT_NC_SCALAR, output) :    Returned value of the maximum\n\
        file size (in bytes) for a family file.\n\
";
static const char* _wrap_plrandd_texinfo = "-*- texinfo -*-\n\
Random number generator returning a real random number in the range [0,1]\n\
\n\
DESCRIPTION:\n\
\n\
    Random number generator returning a real random number in the range\n\
    [0,1]. The generator is based on the Mersenne Twister. Most languages\n\
    / compilers provide their own random number generator, and so this is\n\
    provided purely for convenience and to give a consistent random number\n\
    generator across all languages supported by PLplot. This is\n\
    particularly useful for comparing results from the test suite of\n\
    examples.\n\
\n\
    Redacted form: plrandd()\n\
\n\
    This function is used in examples 17 and 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plrandd()\n\
";
static const char* _wrap_plcont_texinfo = "-*- texinfo -*-\n\
Contour plot\n\
\n\
DESCRIPTION:\n\
\n\
    Draws a contour plot of the data in f[\n\
    nx][\n\
    ny], using the nlevel contour levels specified by clevel. Only the\n\
    region of the matrix from kx to lx and from ky to ly is plotted out\n\
    where all these index ranges are interpreted as one-based for\n\
    historical reasons.  A transformation routine pointed to by pltr with\n\
    a generic pointer pltr_data for additional data required by the\n\
    transformation routine is used to map indices within the matrix to the\n\
    world coordinates.\n\
\n\
    Redacted form: plcont(f, kx, lx, ky, ly, clevel, pltr, pltr_data)\n\
    where (see above discussion) the pltr, pltr_data callback arguments\n\
    are sometimes replaced by a tr vector with 6 elements; xg and yg\n\
    vectors; or xg and yg matrices.\n\
\n\
    This function is used in examples 9, 14, 16, and 22.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plcont(f, nx, ny, kx, lx, ky, ly, clevel, nlevel, pltr, pltr_data)\n\
\n\
ARGUMENTS:\n\
\n\
    f (PLFLT_MATRIX, input) :    A matrix containing data to be contoured.\n\
\n\
    nx, ny (PLINT, input) :    The dimensions of the matrix f.\n\
\n\
    kx, lx (PLINT, input) :    Range of x indices to consider where 0 <=\n\
        kx-1 < lx-1 < nx.  Values of kx and lx are one-based rather than\n\
        zero-based for historical backwards-compatibility reasons.\n\
\n\
    ky, ly (PLINT, input) :    Range of y indices to consider where 0 <=\n\
        ky-1 < ly-1 < ny.  Values of ky and ly are one-based rather than\n\
        zero-based for historical backwards-compatibility reasons.\n\
\n\
    clevel (PLFLT_VECTOR, input) :    A vector specifying the levels at\n\
        which to draw contours.\n\
\n\
    nlevel (PLINT, input) :    Number of contour levels to draw.\n\
\n\
    pltr (PLTRANSFORM_callback, input) :    A callback function that\n\
        defines the transformation between the zero-based indices of the\n\
        matrix f and the world coordinates.For the C case, transformation\n\
        functions are provided in the PLplot library: pltr0 for the\n\
        identity mapping, and pltr1 and pltr2 for arbitrary mappings\n\
        respectively defined by vectors and matrices.  In addition, C\n\
        callback routines for the transformation can be supplied by the\n\
        user such as the mypltr function in examples/c/x09c.c which\n\
        provides a general linear transformation between index coordinates\n\
        and world coordinates.For languages other than C you should\n\
        consult the PLplot documentation for the details concerning how\n\
        PLTRANSFORM_callback arguments are interfaced. However, in\n\
        general, a particular pattern of callback-associated arguments\n\
        such as a tr vector with 6 elements; xg and yg vectors; or xg and\n\
        yg matrices are respectively interfaced to a linear-transformation\n\
        routine similar to the above mypltr function; pltr1; and pltr2.\n\
        Furthermore, some of our more sophisticated bindings (see, e.g.,\n\
        the PLplot documentation) support native language callbacks for\n\
        handling index to world-coordinate transformations.  Examples of\n\
        these various approaches are given in examples/<language>x09*,\n\
        examples/<language>x16*, examples/<language>x20*,\n\
        examples/<language>x21*, and examples/<language>x22*, for all our\n\
        supported languages.\n\
\n\
    pltr_data (PLPointer, input) :    Extra parameter to help pass\n\
        information to pltr0, pltr1, pltr2, or whatever callback routine\n\
        that is externally supplied.\n\
";
static const char* _wrap_plstyl_texinfo = "-*- texinfo -*-\n\
Set line style\n\
\n\
DESCRIPTION:\n\
\n\
    This sets up the line style for all lines subsequently drawn.  A line\n\
    consists of segments in which the pen is alternately down and up. The\n\
    lengths of these segments are passed in the vectors mark and space\n\
    respectively.  The number of mark-space pairs is specified by nms.  In\n\
    order to return the line style to the default continuous line, plstyl\n\
    should be called with nms =0 .(see also pllsty)\n\
\n\
    Redacted form: plstyl(mark, space)\n\
\n\
    This function is used in examples 1, 9, and 14.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstyl(nms, mark, space)\n\
\n\
ARGUMENTS:\n\
\n\
    nms (PLINT, input) :    The number of mark and space elements in a\n\
        line.  Thus a simple broken line can be obtained by setting nms=1\n\
        .  A continuous line is specified by setting nms=0 .\n\
\n\
    mark (PLINT_VECTOR, input) :    A vector containing the lengths of the\n\
        segments during which the pen is down, measured in micrometers.\n\
\n\
    space (PLINT_VECTOR, input) :    A vector containing the lengths of\n\
        the segments during which the pen is up, measured in micrometers.\n\
";
static const char* _wrap_plspal0_texinfo = "-*- texinfo -*-\n\
Set the cmap0 palette using the specified cmap0*.pal format file\n\
\n\
DESCRIPTION:\n\
\n\
    Set the cmap0 palette using the specified cmap0*.pal format file.\n\
\n\
    Redacted form: plspal0(filename)\n\
\n\
    This function is in example 16.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plspal0(filename)\n\
\n\
ARGUMENTS:\n\
\n\
    filename (PLCHAR_VECTOR, input) :    An ascii character string\n\
        containing the name of the cmap0*.pal file.  If this string is\n\
        empty, use the default cmap0*.pal file.\n\
";
static const char* _wrap_plspal1_texinfo = "-*- texinfo -*-\n\
Set the cmap1 palette using the specified cmap1*.pal format file\n\
\n\
DESCRIPTION:\n\
\n\
    Set the cmap1 palette using the specified cmap1*.pal format file.\n\
\n\
    Redacted form: plspal1(filename, interpolate)\n\
\n\
    This function is used in example 16.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plspal1(filename, interpolate)\n\
\n\
ARGUMENTS:\n\
\n\
    filename (PLCHAR_VECTOR, input) :    An ascii character string\n\
        containing the name of the cmap1*.pal file.  If this string is\n\
        empty, use the default cmap1*.pal file.\n\
\n\
    interpolate (PLBOOL, input) :    If this parameter is true, the\n\
        columns containing the intensity index, r, g, b, alpha and\n\
        alt_hue_path in the cmap1*.pal file are used to set the cmap1\n\
        palette with a call to plscmap1la. (The cmap1*.pal header contains\n\
        a flag which controls whether the r, g, b data sent to plscmap1la\n\
        are interpreted as HLS or RGB.) If this parameter is false, the\n\
        intensity index and alt_hue_path columns are ignored and the r, g,\n\
        b (interpreted as RGB), and alpha columns of the cmap1*.pal file\n\
        are used instead to set the cmap1 palette directly with a call to\n\
        plscmap1a.\n\
";
static const char* _wrap_plsstrm_texinfo = "-*- texinfo -*-\n\
Set current output stream\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the number of the current output stream.  The stream number\n\
    defaults to 0 unless changed by this routine.  The first use of this\n\
    routine must be followed by a call initializing PLplot (e.g. plstar).\n\
\n\
    Redacted form: plsstrm(strm)\n\
\n\
    This function is examples 1,14,20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsstrm(strm)\n\
\n\
ARGUMENTS:\n\
\n\
    strm (PLINT, input) :    The current stream number.\n\
";
static const char* _wrap_plvpor_texinfo = "-*- texinfo -*-\n\
Specify viewport using normalized subpage coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    Device-independent routine for setting up the viewport.  This defines\n\
    the viewport in terms of normalized subpage coordinates which run from\n\
    0.0 to 1.0 (left to right and bottom to top) along each edge of the\n\
    current subpage.  Use the alternate routine plsvpa in order to create\n\
    a viewport of a definite size.\n\
\n\
    Redacted form: plvpor(xmin, xmax, ymin, ymax)\n\
\n\
    This function is used in examples 2, 6-8, 10, 11, 15, 16, 18, 21, 23,\n\
    24, 26, 27, and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plvpor(xmin, xmax, ymin, ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT, input) :    The normalized subpage coordinate of the\n\
        left-hand edge of the viewport.\n\
\n\
    xmax (PLFLT, input) :    The normalized subpage coordinate of the\n\
        right-hand edge of the viewport.\n\
\n\
    ymin (PLFLT, input) :    The normalized subpage coordinate of the\n\
        bottom edge of the viewport.\n\
\n\
    ymax (PLFLT, input) :    The normalized subpage coordinate of the top\n\
        edge of the viewport.\n\
";
static const char* _wrap_plptex_texinfo = "-*- texinfo -*-\n\
Write text inside the viewport\n\
\n\
DESCRIPTION:\n\
\n\
    Writes text at a specified position and inclination within the\n\
    viewport.  Text is clipped at the viewport boundaries.  The reference\n\
    point of a string lies along a line passing through the string at half\n\
    the height of a capital letter.  The position of the reference point\n\
    along this line is determined by just, the reference point is placed\n\
    at world coordinates (\n\
    x,\n\
    y)  within the viewport.  The inclination of the string is specified\n\
    in terms of differences of world coordinates making it easy to write\n\
    text parallel to a line in a graph.\n\
\n\
    Redacted form: plptex(x, y, dx, dy, just, text)\n\
\n\
    This function is used in example 2-4,10,12-14,20,23,24,26.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plptex(x, y, dx, dy, just, text)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT, input) :    x coordinate of reference point of string.\n\
\n\
    y (PLFLT, input) :    y coordinate of reference point of string.\n\
\n\
    dx (PLFLT, input) :    Together with dy, this specifies the\n\
        inclination of the string.  The baseline of the string is parallel\n\
        to a line joining (\n\
    x,\n\
    y)  to (\n\
    x+\n\
    dx,\n\
    y+\n\
    dy) .\n\
\n\
    dy (PLFLT, input) :    Together with dx, this specifies the\n\
        inclination of the string.\n\
\n\
    just (PLFLT, input) :    Specifies the position of the string relative\n\
        to its reference point.  If just=0. , the reference point is at\n\
        the left and if just=1. , it is at the right of the string.  Other\n\
        values of just give intermediate justifications.\n\
\n\
    text (PLCHAR_VECTOR, input) :    A UTF-8 character string to be\n\
        written out.\n\
";
static const char* _wrap_plszax_texinfo = "-*- texinfo -*-\n\
Set z axis parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Identical to plsxax, except that arguments are flags for z axis. See\n\
    the description of plsxax for more detail.\n\
\n\
    Redacted form: plszax(digmax, digits)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plszax(digmax, digits)\n\
\n\
ARGUMENTS:\n\
\n\
    digmax (PLINT, input) :    Variable to set the maximum number of\n\
        digits for the z axis.  If nonzero, the printed label will be\n\
        switched to a floating-point representation when the number of\n\
        digits exceeds digmax.\n\
\n\
    digits (PLINT, input) :    Field digits value.  Currently, changing\n\
        its value here has no effect since it is set only by plbox or\n\
        plbox3.  However, the user may obtain its value after a call to\n\
        either of these functions by calling plgzax.\n\
";
static const char* _wrap_plsurf3dl_texinfo = "-*- texinfo -*-\n\
Plot shaded 3-d surface plot for z[x][y] with y index limits\n\
\n\
DESCRIPTION:\n\
\n\
    This variant of plsurf3d (see that function\'s documentation for more\n\
    details) should be suitable for the case where the area of the x, y\n\
    coordinate grid where z is defined can be non-rectangular.  The limits\n\
    of that grid are provided by the parameters indexxmin, indexxmax,\n\
    indexymin, and indexymax.\n\
\n\
    Redacted form: plsurf3dl(x, y, z, opt, clevel, indexxmin, indexymin,\n\
    indexymax)\n\
\n\
    This function is used in example 8.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsurf3dl(x, y, z, nx, ny, opt, clevel, nlevel, indexxmin, indexxmax, indexymin, indexymax)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates at\n\
        which the function is evaluated.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates at\n\
        which the function is evaluated.\n\
\n\
    z (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    Number of x values at which function is\n\
        evaluated.\n\
\n\
    ny (PLINT, input) :    Number of y values at which function is\n\
        evaluated.\n\
\n\
    opt (PLINT, input) :    Determines the way in which the surface is\n\
        represented. To specify more than one option just add the options,\n\
        e.g. FACETED + SURF_CONT opt=FACETED : Network of lines is drawn\n\
        connecting points at which function is defined.\n\
            opt=BASE_CONT : A contour plot is drawn at the base XY plane\n\
            using parameters\n\
    nlevel and\n\
    clevel.\n\
            opt=SURF_CONT : A contour plot is drawn at the surface plane\n\
            using parameters\n\
    nlevel and\n\
    clevel.\n\
            opt=DRAW_SIDES : draws a curtain between the base XY plane and\n\
            the borders of the plotted function.\n\
            opt=MAG_COLOR : the surface is colored according to the value\n\
            of Z; if MAG_COLOR is not used, then the surface is colored\n\
            according to the intensity of the reflected light in the\n\
            surface from a light source whose position is set using\n\
            pllightsource.\n\
\n\
\n\
    clevel (PLFLT_VECTOR, input) :    A vector containing the contour\n\
        levels.\n\
\n\
    nlevel (PLINT, input) :    Number of elements in the clevel vector.\n\
\n\
    indexxmin (PLINT, input) :    The index value (which must be ≥ 0) that\n\
        corresponds to the first x index where z is defined.\n\
\n\
    indexxmax (PLINT, input) :    The index value (which must be ≤ nx)\n\
        which corresponds (by convention) to one more than the last x\n\
        index value where z is defined.\n\
\n\
    indexymin (PLINT_VECTOR, input) :    A vector containing the y index\n\
        values which all must be ≥ 0.  These values are the first y index\n\
        where z is defined for a particular x index in the range from\n\
        indexxmin to indexxmax - 1.  The dimension of indexymin is\n\
        indexxmax.\n\
\n\
    indexymax (PLINT_VECTOR, input) :    A vector containing the y index\n\
        values which all must be ≤ ny.  These values correspond (by\n\
        convention) to one more than the last y index where z is defined\n\
        for a particular x index in the range from indexxmin to indexxmax\n\
        - 1.  The dimension of indexymax is indexxmax.\n\
";
static const char* _wrap_plfont_texinfo = "-*- texinfo -*-\n\
Set font\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the font used for subsequent text and symbols.  For devices that\n\
    still use Hershey fonts this routine has no effect unless the Hershey\n\
    fonts with extended character set are loaded (see plfontld). For\n\
    unicode-aware devices that use system fonts instead of Hershey fonts,\n\
    this routine calls the plsfci routine with argument set up\n\
    appropriately for the various cases below.  However, this method of\n\
    specifying the font for unicode-aware devices is deprecated, and the\n\
    much more flexible method of calling plsfont directly is recommended\n\
    instead (where plsfont provides a user-friendly interface to plsfci),\n\
\n\
    Redacted form: plfont(ifont)\n\
\n\
    This function is used in examples 1, 2, 4, 7, 13, 24, and 26.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plfont(ifont)\n\
\n\
ARGUMENTS:\n\
\n\
    ifont (PLINT, input) :    Specifies the font: 1: Sans serif font\n\
        (simplest and fastest)\n\
            2: Serif font\n\
            3: Italic font\n\
            4: Script font\n\
";
static const char* _wrap_plgcmap1_range_texinfo = "-*- texinfo -*-\n\
Get the cmap1 argument range for continuous color plots\n\
\n\
DESCRIPTION:\n\
\n\
    Get the cmap1 argument range for continuous color plots. (Use\n\
    plscmap1_range to set the cmap1 argument range.)\n\
\n\
    Redacted form: plgcmap1_range(min_color, max_color)\n\
\n\
    This function is currently not used in any example.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgcmap1_range(min_color, max_color)\n\
\n\
ARGUMENTS:\n\
\n\
    min_color (PLFLT_NC_SCALAR, output) :    Returned value of the current\n\
        minimum cmap1 argument.\n\
\n\
    max_color (PLFLT_NC_SCALAR, output) :    Returned value of the current\n\
        maximum cmap1 argument.\n\
";
static const char* _wrap_plscmap1_range_texinfo = "-*- texinfo -*-\n\
Set the cmap1 argument range for continuous color plots\n\
\n\
DESCRIPTION:\n\
\n\
    Set the cmap1 argument range for continuous color plots that\n\
    corresponds to the range of data values.  The maximum range\n\
    corresponding to the entire cmap1 palette is 0.0-1.0, and the smaller\n\
    the cmap1 argument range that is specified with this routine, the\n\
    smaller the subset of the cmap1 color palette that is used to\n\
    represent the continuous data being plotted.  If\n\
    min_color is greater than\n\
    max_color or\n\
    max_color is greater than 1.0 or\n\
    min_color is less than 0.0 then no change is made to the cmap1\n\
    argument range.  (Use plgcmap1_range to get the cmap1 argument range.)\n\
\n\
    Redacted form: plscmap1_range(min_color, max_color)\n\
\n\
    This function is currently used in example 33.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap1_range(min_color, max_color)\n\
\n\
ARGUMENTS:\n\
\n\
    min_color (PLFLT, input) :    The minimum cmap1 argument.  If less\n\
        than 0.0, then 0.0 is used instead.\n\
\n\
    max_color (PLFLT, input) :    The maximum cmap1 argument.  If greater\n\
        than 1.0, then 1.0 is used instead.\n\
";
static const char* _wrap_plarc_texinfo = "-*- texinfo -*-\n\
Draw a circular or elliptical arc\n\
\n\
DESCRIPTION:\n\
\n\
    Draw a possibly filled arc centered at x, y with semimajor axis a and\n\
    semiminor axis b, starting at angle1 and ending at angle2.\n\
\n\
    Redacted form: General: plarc(x, y, a, b, angle1, angle2, rotate,\n\
    fill)\n\
\n\
\n\
    This function is used in examples 3 and 27.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plarc(x, y, a, b, angle1, angle2, rotate, fill)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT, input) :    X coordinate of arc center.\n\
\n\
    y (PLFLT, input) :    Y coordinate of arc center.\n\
\n\
    a (PLFLT, input) :    Length of the semimajor axis of the arc.\n\
\n\
    b (PLFLT, input) :    Length of the semiminor axis of the arc.\n\
\n\
    angle1 (PLFLT, input) :    Starting angle of the arc relative to the\n\
        semimajor axis.\n\
\n\
    angle2 (PLFLT, input) :    Ending angle of the arc relative to the\n\
        semimajor axis.\n\
\n\
    rotate (PLFLT, input) :    Angle of the semimajor axis relative to the\n\
        X-axis.\n\
\n\
    fill (PLBOOL, input) :    Draw a filled arc.\n\
";
static const char* _wrap_plot3d_texinfo = "-*- texinfo -*-\n\
Plot 3-d surface plot\n\
\n\
DESCRIPTION:\n\
\n\
    Plots a three-dimensional surface plot within the environment set up\n\
    by plw3d.  The surface is defined by the matrix z[\n\
    nx][\n\
    ny] , the point z[i][j] being the value of the function at (\n\
    x[i],\n\
    y[j]). Note that the points in vectors x and y do not need to be\n\
    equally spaced, but must be stored in ascending order.  The parameter\n\
    opt controls the way in which the surface is displayed.  For further\n\
    details see the PLplot documentation. The only difference between\n\
    plmesh and plot3d is that plmesh draws the bottom side of the surface,\n\
    while plot3d only draws the surface as viewed from the top.\n\
\n\
    Redacted form: plot3d(x, y, z, opt, side)\n\
\n\
    This function is used in examples 11 and 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plot3d(x, y, z, nx, ny, opt, side)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates at\n\
        which the function is evaluated.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates at\n\
        which the function is evaluated.\n\
\n\
    z (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    Number of x values at which function is\n\
        evaluated.\n\
\n\
    ny (PLINT, input) :    Number of y values at which function is\n\
        evaluated.\n\
\n\
    opt (PLINT, input) :    Determines the way in which the surface is\n\
        represented: opt=DRAW_LINEX : Lines are drawn showing z as a\n\
        function of x for each value of y[j] .\n\
            opt=DRAW_LINEY : Lines are drawn showing z as a function of y\n\
            for each value of x[i] .\n\
            opt=DRAW_LINEXY : Network of lines is drawn connecting points\n\
            at which function is defined.\n\
\n\
\n\
    side (PLBOOL, input) :    Flag to indicate whether or not ``sides\'\'\n\
        should be draw on the figure.  If side is true sides are drawn,\n\
        otherwise no sides are drawn.\n\
";
static const char* _wrap_plpat_texinfo = "-*- texinfo -*-\n\
Set area line fill pattern\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the area line fill pattern to be used, e.g., for calls to plfill.\n\
    The pattern consists of 1 or 2 sets of parallel lines with specified\n\
    inclinations and spacings.  The arguments to this routine are the\n\
    number of sets to use (1 or 2) followed by two vectors (with 1 or 2\n\
    elements) specifying the inclinations in tenths of a degree and the\n\
    spacing in micrometers.  (See also plpsty)\n\
\n\
    Redacted form: General: plpat(inc, del)\n\
            Perl/PDL: plpat(nlin, inc, del)\n\
\n\
\n\
    This function is used in example 15.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plpat(nlin, inc, del)\n\
\n\
ARGUMENTS:\n\
\n\
    nlin (PLINT, input) :    Number of sets of lines making up the\n\
        pattern, either 1 or 2.\n\
\n\
    inc (PLINT_VECTOR, input) :    A vector containing nlin values of the\n\
        inclination in tenths of a degree.  (Should be between -900 and\n\
        900).\n\
\n\
    del (PLINT_VECTOR, input) :    A vector containing nlin values of the\n\
        spacing in micrometers between the lines making up the pattern.\n\
";
static const char* _wrap_plgxax_texinfo = "-*- texinfo -*-\n\
Get x axis parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Returns current values of the p_digmax and p_digits flags for the x\n\
    axis.  p_digits is updated after the plot is drawn, so this routine\n\
    should only be called after the call to plbox (or plbox3) is complete.\n\
     See the PLplot documentation for more information.\n\
\n\
    Redacted form: plgxax(p_digmax, p_digits)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgxax(p_digmax, p_digits)\n\
\n\
ARGUMENTS:\n\
\n\
    p_digmax (PLINT_NC_SCALAR, output) :    Returned value of the maximum\n\
        number of digits for the x axis.  If nonzero, the printed label\n\
        has been switched to a floating-point representation when the\n\
        number of digits exceeds this value.\n\
\n\
    p_digits (PLINT_NC_SCALAR, output) :    Returned value of the actual\n\
        number of digits for the numeric labels (x axis) from the last\n\
        plot.\n\
";
static const char* _wrap_plfill3_texinfo = "-*- texinfo -*-\n\
Draw filled polygon in 3D\n\
\n\
DESCRIPTION:\n\
\n\
    Fills the 3D polygon defined by the n points in the x, y, and z\n\
    vectors using the pattern defined by plpsty or plpat.  The routine\n\
    will automatically close the polygon between the last and first\n\
    vertices.  If multiple closed polygons are passed in x, y, and z then\n\
    plfill3 will fill in between them.\n\
\n\
    Redacted form: General: plfill3(x, y, z)\n\
            Perl/PDL: plfill3(n, x, y, z)\n\
\n\
\n\
    This function is used in example 15.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plfill3(n, x, y, z)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of vertices in polygon.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        vertices.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        vertices.\n\
\n\
    z (PLFLT_VECTOR, input) :    A vector containing the z coordinates of\n\
        vertices.\n\
";
static const char* _wrap_plcol0_texinfo = "-*- texinfo -*-\n\
Set color, cmap0\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the color index for cmap0 (see the PLplot documentation).\n\
\n\
    Redacted form: plcol0(icol0)\n\
\n\
    This function is used in examples 1-9, 11-16, 18-27, and 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plcol0(icol0)\n\
\n\
ARGUMENTS:\n\
\n\
    icol0 (PLINT, input) :    Integer representing the color.  The\n\
        defaults at present are (these may change):\n\
    0      black (default background)\n\
    1      red (default foreground)\n\
    2      yellow\n\
    3      green\n\
    4      aquamarine\n\
    5      pink\n\
    6      wheat\n\
    7      grey\n\
    8      brown\n\
    9      blue\n\
    10      BlueViolet\n\
    11      cyan\n\
    12      turquoise\n\
    13      magenta\n\
    14      salmon\n\
    15      white\n\
\n\
      Use plscmap0 to change the entire cmap0 color palette and plscol0 to\n\
         change an individual color in the cmap0 color palette.\n\
";
static const char* _wrap_plmaptex_texinfo = "-*- texinfo -*-\n\
Draw text at points defined by Shapefile data in world coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    As per plmapline, however the items are plotted as text in the same\n\
    way as plptex.\n\
\n\
    Redacted form: plmaptex(mapform, name, dx, dy, just, text, minx, maxx,\n\
    miny, maxy, plotentry)\n\
\n\
    This function is used in example 19.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmaptex(mapform, name, dx, dy, just, text, minx, maxx, miny, maxy, plotentry)\n\
\n\
ARGUMENTS:\n\
\n\
    mapform (PLMAPFORM_callback, input) :    A user supplied function to\n\
        transform the coordinates given in the shapefile into a plot\n\
        coordinate system. By using this transform, we can change from a\n\
        longitude, latitude coordinate to a polar stereographic project,\n\
        for example.  Initially, x[0]..[n-1] are the longitudes and\n\
        y[0]..y[n-1] are the corresponding latitudes.  After the call to\n\
        mapform(), x[] and y[] should be replaced by the corresponding\n\
        plot coordinates. If no transform is desired, mapform can be\n\
        replaced by NULL.\n\
\n\
    name (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        the file name of a set of Shapefile files without the file\n\
        extension.\n\
\n\
    dx (PLFLT, input) :    Used to define the slope of the texts which is\n\
        dy/dx.\n\
\n\
    dy (PLFLT, input) :    Used to define the slope of the texts which is\n\
        dy/dx.\n\
\n\
    just (PLFLT, input) :    Set the justification of the text. The value\n\
        given will be the fraction of the distance along the string that\n\
        sits at the given point. 0.0 gives left aligned text, 0.5 gives\n\
        centralized text and 1.0 gives right aligned text.\n\
\n\
    text (PLCHAR_VECTOR, input) :    A UTF-8 character string to be drawn.\n\
\n\
    minx (PLFLT, input) :    The minimum x value to be plotted. This must\n\
        be in the same units as used by the Shapefile. You could use a\n\
        very large negative number to plot everything, but you can improve\n\
        performance by limiting the area drawn. The units must match those\n\
        of the Shapefile projection, which may be for example longitude or\n\
        distance. The value of minx must be less than the value of maxx.\n\
\n\
    maxx (PLFLT, input) :    The maximum x value to be plotted. You could\n\
        use a very large number to plot everything, but you can improve\n\
        performance by limiting the area drawn.\n\
\n\
    miny (PLFLT, input) :    The minimum y value to be plotted. This must\n\
        be in the same units as used by the Shapefile. You could use a\n\
        very large negative number to plot everything, but you can improve\n\
        performance by limiting the area drawn. The units must match those\n\
        of the Shapefile projection, which may be for example latitude or\n\
        distance. The value of miny must be less than the value of maxy.\n\
\n\
    maxy (PLFLT, input) :    The maximum y value to be plotted. You could\n\
        use a very large number to plot everything, but you can improve\n\
        performance by limiting the area drawn.\n\
\n\
    plotentry (PLINT, input) :    An integer indicating which text string\n\
        of the Shapefile (zero indexed) will be drawn.\n\
";
static const char* _wrap_pljoin_texinfo = "-*- texinfo -*-\n\
Draw a line between two points\n\
\n\
DESCRIPTION:\n\
\n\
    Joins the point (\n\
    x1,\n\
    y1) to (\n\
    x2,\n\
    y2).\n\
\n\
    Redacted form: pljoin(x1,y1,x2,y2)\n\
\n\
    This function is used in examples 3 and 14.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pljoin(x1, y1, x2, y2)\n\
\n\
ARGUMENTS:\n\
\n\
    x1 (PLFLT, input) :    x coordinate of first point.\n\
\n\
    y1 (PLFLT, input) :    y coordinate of first point.\n\
\n\
    x2 (PLFLT, input) :    x coordinate of second point.\n\
\n\
    y2 (PLFLT, input) :    y coordinate of second point.\n\
";
static const char* _wrap_plcol1_texinfo = "-*- texinfo -*-\n\
Set color, cmap1\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the color for cmap1 (see the PLplot documentation).\n\
\n\
    Redacted form: plcol1(col1)\n\
\n\
    This function is used in examples 12 and 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plcol1(col1)\n\
\n\
ARGUMENTS:\n\
\n\
    col1 (PLFLT, input) :    This value must be in the range (0.0-1.0) and\n\
        is mapped to color using the continuous cmap1 palette which by\n\
        default ranges from blue to the background color to red.  The\n\
        cmap1 palette can also be straightforwardly changed by the user\n\
        with plscmap1 or plscmap1l.\n\
";
static const char* _wrap_plsori_texinfo = "-*- texinfo -*-\n\
Set orientation\n\
\n\
DESCRIPTION:\n\
\n\
    Set integer plot orientation parameter.  This function is identical to\n\
    plsdiori except for the type of the argument, and should be used in\n\
    the same way.  See the documentation of plsdiori for details.\n\
\n\
    Redacted form: plsori(ori)\n\
\n\
    This function is used in example 3.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsori(ori)\n\
\n\
ARGUMENTS:\n\
\n\
    ori (PLINT, input) :    Orientation value (0 for landscape, 1 for\n\
        portrait, etc.) The value is multiplied by 90 degrees to get the\n\
        angle.\n\
";
static const char* _wrap_plctime_texinfo = "-*- texinfo -*-\n\
Calculate continuous time from broken-down time for the current stream\n\
\n\
DESCRIPTION:\n\
\n\
    Calculate continuous time, ctime, from broken-down time for the\n\
    current stream.  The broken-down\n\
    time is specified by the following parameters: year, month, day, hour,\n\
    min, and sec. This function is the inverse of plbtime.\n\
\n\
    The PLplot definition of broken-down time is a calendar time that\n\
    completely ignores all time zone offsets, i.e., it is the user\'s\n\
    responsibility to apply those offsets (if so desired) before using the\n\
    PLplot time API.  By default broken-down time is defined using the\n\
    proleptic Gregorian calendar without the insertion of leap seconds and\n\
    continuous time is defined as the number of seconds since the Unix\n\
    epoch of 1970-01-01T00:00:00Z. However, other definitions of\n\
    broken-down and continuous time are possible, see plconfigtime which\n\
    specifies that transformation for the current stream.\n\
\n\
    Redacted form: General: plctime(year, month, day, hour, min, sec,\n\
    ctime)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plctime(year, month, day, hour, min, sec, ctime)\n\
\n\
ARGUMENTS:\n\
\n\
    year (PLINT, input) :    Input year.\n\
\n\
    month (PLINT, input) :    Input month in range from 0 (January) to 11\n\
        (December).\n\
\n\
    day (PLINT, input) :    Input day in range from 1 to 31.\n\
\n\
    hour (PLINT, input) :    Input hour in range from 0 to 23\n\
\n\
    min (PLINT, input) :    Input minute in range from 0 to 59.\n\
\n\
    sec (PLFLT, input) :    Input second in range from 0. to 60.\n\
\n\
    ctime (PLFLT_NC_SCALAR, output) :    Returned value of the continuous\n\
        time calculated from the broken-down time specified by the\n\
        previous parameters.\n\
";
static const char* _wrap_plmap_texinfo = "-*- texinfo -*-\n\
Plot continental outline or shapefile data in world coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    Plots continental outlines or shapefile data in world coordinates. A\n\
    demonstration of how to use this function to create different\n\
    projections can be found in examples/c/x19c. PLplot is provided with\n\
    basic coastal outlines and USA state borders. These can be used\n\
    irrespective of whether Shapefile support is built into PLplot. With\n\
    Shapefile support this function can also be used with user Shapefiles,\n\
    in which case it will plot the entire contents of a Shapefile joining\n\
    each point of each Shapefile element with a line. Shapefiles have\n\
    become a popular standard for geographical data and data in this\n\
    format can be easily found from a number of online sources. Shapefile\n\
    data is actually provided as three or more files with the same\n\
    filename, but different extensions. The .shp and .shx files are\n\
    required for plotting Shapefile data with PLplot.\n\
\n\
    Redacted form: plmap(mapform, name, minx, maxx, miny, maxy)\n\
\n\
    This function is used in example 19.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmap(mapform, name, minx, maxx, miny, maxy)\n\
\n\
ARGUMENTS:\n\
\n\
    mapform (PLMAPFORM_callback, input) :    A user supplied function to\n\
        transform the original map data coordinates to a new coordinate\n\
        system. The PLplot-supplied map data is provided as latitudes and\n\
        longitudes; other Shapefile data may be provided in other\n\
        coordinate systems as can be found in their .prj plain text files.\n\
        For example, by using this transform we can change from a\n\
        longitude, latitude coordinate to a polar stereographic\n\
        projection. Initially, x[0]..[n-1] are the original x coordinates\n\
        (longitudes for the PLplot-supplied data) and y[0]..y[n-1] are the\n\
        corresponding y coordinates (latitudes for the PLplot supplied\n\
        data).  After the call to mapform(), x[] and y[] should be\n\
        replaced by the corresponding plot coordinates. If no transform is\n\
        desired, mapform can be replaced by NULL.\n\
\n\
    name (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        the type of map plotted. This is either one of the PLplot built-in\n\
        maps or the file name of a set of Shapefile files without the file\n\
        extensions. For the PLplot built-in maps the possible values are:\n\
        \"globe\" -- continental outlines\n\
            \"usa\" -- USA and state boundaries\n\
            \"cglobe\" -- continental outlines and countries\n\
            \"usaglobe\" -- USA, state boundaries and continental outlines\n\
\n\
\n\
    minx (PLFLT, input) :    The minimum x value of map elements to be\n\
        drawn. For the built in maps this is a measure of longitude. For\n\
        Shapefiles the units must match the projection. The value of minx\n\
        must be less than the value of maxx. Specifying a useful limit for\n\
        these limits provides a useful optimization for complex or\n\
        detailed maps.\n\
\n\
    maxx (PLFLT, input) :    The maximum x value of map elements to be\n\
        drawn\n\
\n\
    miny (PLFLT, input) :    The minimum y value of map elements to be\n\
        drawn. For the built in maps this is a measure of latitude. For\n\
        Shapefiles the units must match the projection. The value of miny\n\
        must be less than the value of maxy.\n\
\n\
    maxy (PLFLT, input) :    The maximum y value of map elements to be\n\
        drawn.\n\
";
static const char* _wrap_plbtime_texinfo = "-*- texinfo -*-\n\
Calculate broken-down time from continuous time for the current stream\n\
\n\
DESCRIPTION:\n\
\n\
    Calculate broken-down time; year, month, day, hour, min, sec; from\n\
    continuous time, ctime for the current stream.  This function is the\n\
    inverse of plctime.\n\
\n\
    The PLplot definition of broken-down time is a calendar time that\n\
    completely ignores all time zone offsets, i.e., it is the user\'s\n\
    responsibility to apply those offsets (if so desired) before using the\n\
    PLplot time API.  By default broken-down time is defined using the\n\
    proleptic Gregorian calendar without the insertion of leap seconds and\n\
    continuous time is defined as the number of seconds since the Unix\n\
    epoch of 1970-01-01T00:00:00Z. However, other definitions of\n\
    broken-down and continuous time are possible, see plconfigtime.\n\
\n\
    Redacted form: General: plbtime(year, month, day, hour, min, sec,\n\
    ctime)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plbtime(year, month, day, hour, min, sec, ctime)\n\
\n\
ARGUMENTS:\n\
\n\
    year (PLINT_NC_SCALAR, output) :    Returned value of years with\n\
        positive values corresponding to CE (i.e., 1 = 1 CE, etc.) and\n\
        non-negative values corresponding to BCE (e.g., 0 = 1 BCE, -1 = 2\n\
        BCE, etc.)\n\
\n\
    month (PLINT_NC_SCALAR, output) :    Returned value of month within\n\
        the year in the range from 0 (January) to 11 (December).\n\
\n\
    day (PLINT_NC_SCALAR, output) :    Returned value of day within the\n\
        month in the range from 1 to 31.\n\
\n\
    hour (PLINT_NC_SCALAR, output) :    Returned value of hour within the\n\
        day in the range from 0 to 23.\n\
\n\
    min (PLINT_NC_SCALAR, output) :    Returned value of minute within the\n\
        hour in the range from 0 to 59\n\
\n\
    sec (PLFLT_NC_SCALAR, output) :    Returned value of second within the\n\
        minute in range from 0. to 60.\n\
\n\
    ctime (PLFLT, input) :    Continuous time from which the broken-down\n\
        time is calculated.\n\
";
static const char* _wrap_plgstrm_texinfo = "-*- texinfo -*-\n\
Get current stream number\n\
\n\
DESCRIPTION:\n\
\n\
    Gets the number of the current output stream. See also plsstrm.\n\
\n\
    Redacted form: plgstrm(p_strm)\n\
\n\
    This function is used in example 1,20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgstrm(p_strm)\n\
\n\
ARGUMENTS:\n\
\n\
    p_strm (PLINT_NC_SCALAR, output) :    Returned value of the current\n\
        stream value.\n\
";
static const char* _wrap_plline3_texinfo = "-*- texinfo -*-\n\
Draw a line in 3 space\n\
\n\
DESCRIPTION:\n\
\n\
    Draws line in 3 space defined by n points in x, y, and z. You must\n\
    first set up the viewport, the 2d viewing window (in world\n\
    coordinates), and the 3d normalized coordinate box.  See x18c.c for\n\
    more info.\n\
\n\
    Redacted form: plline3(x, y, z)\n\
\n\
    This function is used in example 18.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plline3(n, x, y, z)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of points defining line.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        points.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        points.\n\
\n\
    z (PLFLT_VECTOR, input) :    A vector containing the z coordinates of\n\
        points.\n\
";
static const char* _wrap_plfontld_texinfo = "-*- texinfo -*-\n\
Load Hershey fonts\n\
\n\
DESCRIPTION:\n\
\n\
    Loads the Hershey fonts used for text and symbols.  This routine may\n\
    be called before or after initializing PLplot.  If not explicitly\n\
    called before PLplot initialization, then by default that\n\
    initialization loads Hershey fonts with the extended character set.\n\
    This routine only has a practical effect for devices that still use\n\
    Hershey fonts (as opposed to modern devices that use unicode-aware\n\
    system fonts instead of Hershey fonts).\n\
\n\
    Redacted form: plfontld(fnt)\n\
\n\
    This function is used in examples 1 and 7.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plfontld(fnt)\n\
\n\
ARGUMENTS:\n\
\n\
    fnt (PLINT, input) :    Specifies the type of Hershey fonts to load.\n\
        A zero value specifies Hershey fonts with the standard character\n\
        set and a non-zero value (the default assumed if plfontld is never\n\
        called) specifies Hershey fonts with the extended character set.\n\
";
static const char* _wrap_plSetOpt_texinfo = "-*- texinfo -*-\n\
Set any command-line option\n\
\n\
DESCRIPTION:\n\
\n\
    Set any command-line option internally from a program before it\n\
    invokes plinit. opt is the name of the command-line option and optarg\n\
    is the corresponding command-line option argument.\n\
\n\
    This function returns 0 on success.\n\
\n\
    Redacted form: plsetopt(opt, optarg)\n\
\n\
    This function is used in example 14.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
PLINT plsetopt(opt, optarg)\n\
\n\
ARGUMENTS:\n\
\n\
    opt (PLCHAR_VECTOR, input) :    An ascii character string containing\n\
        the command-line option.\n\
\n\
    optarg (PLCHAR_VECTOR, input) :    An ascii character string\n\
        containing the argument of the command-line option.\n\
";
static const char* _wrap_plmapline_texinfo = "-*- texinfo -*-\n\
Plot all or a subset of Shapefile data using lines in world coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    Plot all or a subset of Shapefile data using lines in world\n\
    coordinates. Our 19th standard example demonstrates how to use this\n\
    function. This function plots data from a Shapefile using lines as in\n\
    plmap, however it also has the option of also only drawing specified\n\
    elements from the Shapefile. The vector of indices of the required\n\
    elements are passed as a function argument. The Shapefile data should\n\
    include a metadata file (extension.dbf) listing all items within the\n\
    Shapefile. This file can be opened by most popular spreadsheet\n\
    programs and can be used to decide which indices to pass to this\n\
    function.\n\
\n\
    Redacted form: plmapline(mapform, name, minx, maxx, miny, maxy,\n\
    plotentries)\n\
\n\
    This function is used in example 19.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmapline(mapform, name, minx, maxx, miny, maxy, plotentries, nplotentries)\n\
\n\
ARGUMENTS:\n\
\n\
    mapform (PLMAPFORM_callback, input) :    A user supplied function to\n\
        transform the coordinates given in the shapefile into a plot\n\
        coordinate system. By using this transform, we can change from a\n\
        longitude, latitude coordinate to a polar stereographic project,\n\
        for example.  Initially, x[0]..[n-1] are the longitudes and\n\
        y[0]..y[n-1] are the corresponding latitudes.  After the call to\n\
        mapform(), x[] and y[] should be replaced by the corresponding\n\
        plot coordinates. If no transform is desired, mapform can be\n\
        replaced by NULL.\n\
\n\
    name (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        the file name of a set of Shapefile files without the file\n\
        extension.\n\
\n\
    minx (PLFLT, input) :    The minimum x value to be plotted. This must\n\
        be in the same units as used by the Shapefile. You could use a\n\
        very large negative number to plot everything, but you can improve\n\
        performance by limiting the area drawn. The units must match those\n\
        of the Shapefile projection, which may be for example longitude or\n\
        distance. The value of minx must be less than the value of maxx.\n\
\n\
    maxx (PLFLT, input) :    The maximum x value to be plotted. You could\n\
        use a very large number to plot everything, but you can improve\n\
        performance by limiting the area drawn.\n\
\n\
    miny (PLFLT, input) :    The minimum y value to be plotted. This must\n\
        be in the same units as used by the Shapefile. You could use a\n\
        very large negative number to plot everything, but you can improve\n\
        performance by limiting the area drawn. The units must match those\n\
        of the Shapefile projection, which may be for example latitude or\n\
        distance. The value of miny must be less than the value of maxy.\n\
\n\
    maxy (PLFLT, input) :    The maximum y value to be plotted. You could\n\
        use a very large number to plot everything, but you can improve\n\
        performance by limiting the area drawn.\n\
\n\
    plotentries (PLINT_VECTOR, input) :    A vector containing the\n\
        zero-based indices of the Shapefile elements which will be drawn.\n\
        Setting\n\
    plotentries to NULL will plot all elements of the Shapefile.\n\
\n\
    nplotentries (PLINT, input) :    The number of items in\n\
    plotentries.  Ignored if\n\
    plotentries is NULL.\n\
";
static const char* _wrap_plscolor_texinfo = "-*- texinfo -*-\n\
Used to globally turn color output on/off\n\
\n\
DESCRIPTION:\n\
\n\
    Used to globally turn color output on/off for those drivers/devices\n\
    that support it.\n\
\n\
    Redacted form: plscolor(color)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscolor(color)\n\
\n\
ARGUMENTS:\n\
\n\
    color (PLINT, input) :    Color flag (Boolean).  If zero, color is\n\
        turned off.  If non-zero, color is turned on.\n\
";
static const char* _wrap_plGetCursor_texinfo = "-*- texinfo -*-\n\
Wait for graphics input event and translate to world coordinates.\n\
\n\
DESCRIPTION:\n\
\n\
    Wait for graphics input event and translate to world coordinates.\n\
    Returns 0 if no translation to world coordinates is possible.\n\
\n\
    This function returns 1 on success and 0 if no translation to world\n\
    coordinates is possible.\n\
\n\
    Redacted form: plGetCursor(gin)\n\
\n\
    This function is used in examples 1 and 20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
PLINT plGetCursor(gin)\n\
\n\
ARGUMENTS:\n\
\n\
    gin (PLGraphicsIn *, output) :    Pointer to PLGraphicsIn structure\n\
        which will contain the output. The structure is not allocated by\n\
        the routine and must exist before the function is called.\n\
";
static const char* _wrap_plgdev_texinfo = "-*- texinfo -*-\n\
Get the current device (keyword) name\n\
\n\
DESCRIPTION:\n\
\n\
    Get the current device (keyword) name.  Note: you must have allocated\n\
    space for this (80 characters is safe).\n\
\n\
    Redacted form: plgdev(p_dev)\n\
\n\
    This function is used in example 14.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgdev(p_dev)\n\
\n\
ARGUMENTS:\n\
\n\
    p_dev (PLCHAR_NC_VECTOR, output) :    Returned ascii character string\n\
        (with preallocated length of 80 characters or more) containing the\n\
        device (keyword) name.\n\
";
static const char* _wrap_plstripa_texinfo = "-*- texinfo -*-\n\
Add a point to a strip chart\n\
\n\
DESCRIPTION:\n\
\n\
    Add a point to a given pen of a given strip chart. There is no need\n\
    for all pens to have the same number of points or to be equally\n\
    sampled in the x coordinate. Allocates memory and rescales as\n\
    necessary.\n\
\n\
    Redacted form: plstripa(id, pen, x, y)\n\
\n\
    This function is used in example 17.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstripa(id, pen, x, y)\n\
\n\
ARGUMENTS:\n\
\n\
    id (PLINT, input) :    Identification number of the strip chart (set\n\
        up in plstripc).\n\
\n\
    pen (PLINT, input) :    Pen number (ranges from 0 to 3).\n\
\n\
    x (PLFLT, input) :    X coordinate of point to plot.\n\
\n\
    y (PLFLT, input) :    Y coordinate of point to plot.\n\
";
static const char* _wrap_plstripc_texinfo = "-*- texinfo -*-\n\
Create a 4-pen strip chart\n\
\n\
DESCRIPTION:\n\
\n\
    Create a 4-pen strip chart, to be used afterwards by plstripa\n\
\n\
    Redacted form: General: plstripc(id, xspec, yspec, xmin, xmax, xjump,\n\
    ymin, ymax, xlpos, ylpos, y_ascl, acc, colbox, collab, colline,\n\
    styline, legline, labx, laby, labz)\n\
            Perl/PDL: plstripc(xmin, xmax, xjump, ymin, ymax, xlpos,\n\
    ylpos, y_ascl, acc, colbox, collab, colline, styline, id, xspec,\n\
    ypsec, legline, labx, laby, labtop)\n\
\n\
\n\
    This function is used in example 17.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstripc(id, xspec, yspec, xmin, xmax, xjump, ymin, ymax, xlpos, ylpos, y_ascl, acc, colbox, collab, colline, styline, legline[], labx, laby, labtop)\n\
\n\
ARGUMENTS:\n\
\n\
    id (PLINT_NC_SCALAR, output) :    Returned value of the identification\n\
        number of the strip chart to use on plstripa and plstripd.\n\
\n\
    xspec (PLCHAR_VECTOR, input) :    An ascii character string containing\n\
        the x-axis specification as in plbox.\n\
\n\
    yspec (PLCHAR_VECTOR, input) :    An ascii character string containing\n\
        the y-axis specification as in plbox.\n\
\n\
    xmin (PLFLT, input) :    Initial coordinates of plot box; they will\n\
        change as data are added.\n\
\n\
    xmax (PLFLT, input) :    Initial coordinates of plot box; they will\n\
        change as data are added.\n\
\n\
    xjump (PLFLT, input) :    When x attains xmax, the length of the plot\n\
        is multiplied by the factor (1 +\n\
    xjump) .\n\
\n\
    ymin (PLFLT, input) :    Initial coordinates of plot box; they will\n\
        change as data are added.\n\
\n\
    ymax (PLFLT, input) :    Initial coordinates of plot box; they will\n\
        change as data are added.\n\
\n\
    xlpos (PLFLT, input) :    X legend box position (range from 0 to 1).\n\
\n\
    ylpos (PLFLT, input) :    Y legend box position (range from 0 to 1).\n\
\n\
    y_ascl (PLBOOL, input) :    Autoscale y between x jumps if y_ascl is\n\
        true, otherwise not.\n\
\n\
    acc (PLBOOL, input) :    Accumulate strip plot if acc is true,\n\
        otherwise slide display.\n\
\n\
    colbox (PLINT, input) :    Plot box color index (cmap0).\n\
\n\
    collab (PLINT, input) :    Legend color index (cmap0).\n\
\n\
    colline (PLINT_VECTOR, input) :    A vector containing the cmap0 color\n\
        indices for the 4 pens.\n\
\n\
    styline (PLINT_VECTOR, input) :    A vector containing the line style\n\
        indices for the 4 pens.\n\
\n\
    legline (PLCHAR_MATRIX, input) :    A vector of UTF-8 character\n\
        strings containing legends for the 4 pens.\n\
\n\
    labx (PLCHAR_VECTOR, input) :    A UTF-8 character string containing\n\
        the label for the x axis.\n\
\n\
    laby (PLCHAR_VECTOR, input) :    A UTF-8 character string containing\n\
        the label for the y axis.\n\
\n\
    labtop (PLCHAR_VECTOR, input) :    A UTF-8 character string containing\n\
        the plot title.\n\
";
static const char* _wrap_plstripd_texinfo = "-*- texinfo -*-\n\
Deletes and releases memory used by a strip chart\n\
\n\
DESCRIPTION:\n\
\n\
    Deletes and releases memory used by a strip chart.\n\
\n\
    Redacted form: plstripd(id)\n\
\n\
    This function is used in example 17.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstripd(id)\n\
\n\
ARGUMENTS:\n\
\n\
    id (PLINT, input) :    Identification number of strip chart to delete.\n\
";
static const char* _wrap_plvpas_texinfo = "-*- texinfo -*-\n\
Specify viewport using coordinates and aspect ratio\n\
\n\
DESCRIPTION:\n\
\n\
    Device-independent routine for setting up the viewport.  The viewport\n\
    is chosen to be the largest with the given aspect ratio that fits\n\
    within the specified region (in terms of normalized subpage\n\
    coordinates).  This routine is functionally equivalent to plvpor when\n\
    a ``natural\'\' aspect ratio (0.0) is chosen.  Unlike plvasp, this\n\
    routine reserves no extra space at the edges for labels.\n\
\n\
    Redacted form: plvpas(xmin, xmax, ymin, ymax, aspect)\n\
\n\
    This function is used in example 9.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plvpas(xmin, xmax, ymin, ymax, aspect)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT, input) :    The normalized subpage coordinate of the\n\
        left-hand edge of the viewport.\n\
\n\
    xmax (PLFLT, input) :    The normalized subpage coordinate of the\n\
        right-hand edge of the viewport.\n\
\n\
    ymin (PLFLT, input) :    The normalized subpage coordinate of the\n\
        bottom edge of the viewport.\n\
\n\
    ymax (PLFLT, input) :    The normalized subpage coordinate of the top\n\
        edge of the viewport.\n\
\n\
    aspect (PLFLT, input) :    Ratio of length of y axis to length of x\n\
        axis.\n\
";
static const char* _wrap_plslabelfunc_texinfo = "-*- texinfo -*-\n\
Assign a function to use for generating custom axis labels\n\
\n\
DESCRIPTION:\n\
\n\
    This function allows a user to provide their own function to provide\n\
    axis label text.  The user function is given the numeric value for a\n\
    point on an axis and returns a string label to correspond with that\n\
    value.  Custom axis labels can be enabled by passing appropriate\n\
    arguments to plenv, plbox, plbox3 and similar functions.\n\
\n\
    This function is used in example 19.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plslabelfunc(label_func, label_data)\n\
\n\
ARGUMENTS:\n\
\n\
    label_func (PLLABEL_FUNC_callback, input) :    This is the custom\n\
        label function.  In order to reset to the default labelling, set\n\
        this to NULL. The labelling function parameters are, in order:\n\
        axis:    This indicates which axis a label is being requested for.\n\
        The value will be one of PL_X_AXIS, PL_Y_AXIS or PL_Z_AXIS.\n\
\n\
    value:    This is the value along the axis which is being labelled.\n\
\n\
    label_text:    The string representation of the label value.\n\
\n\
    length:    The maximum length in characters allowed for label_text.\n\
\n\
\n\
    label_data (PLPointer, input) :    This parameter may be used to pass\n\
        data to the label_func function.\n\
";
static const char* _wrap_plsmaj_texinfo = "-*- texinfo -*-\n\
Set length of major ticks\n\
\n\
DESCRIPTION:\n\
\n\
    This sets up the length of the major ticks.  The actual length is the\n\
    product of the default length and a scaling factor as for character\n\
    height.\n\
\n\
    Redacted form: plsmaj(def, scale)\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsmaj(def, scale)\n\
\n\
ARGUMENTS:\n\
\n\
    def (PLFLT, input) :    The default length of a major tick in\n\
        millimeters, should be set to zero if the default length is to\n\
        remain unchanged.\n\
\n\
    scale (PLFLT, input) :    Scale factor to be applied to default to get\n\
        actual tick length.\n\
";
static const char* _wrap_plgver_texinfo = "-*- texinfo -*-\n\
Get the current library version number\n\
\n\
DESCRIPTION:\n\
\n\
    Get the current library version number.  Note: you must have allocated\n\
    space for this (80 characters is safe).\n\
\n\
    Redacted form: plgver(p_ver)\n\
\n\
    This function is used in example 1.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgver(p_ver)\n\
\n\
ARGUMENTS:\n\
\n\
    p_ver (PLCHAR_NC_VECTOR, output) :    Returned ascii character string\n\
        (with preallocated length of 80 characters or more) containing the\n\
        PLplot version number.\n\
";
static const char* _wrap_pl_setcontlabelformat_texinfo = "-*- texinfo -*-\n\
Set format of numerical label for contours\n\
\n\
DESCRIPTION:\n\
\n\
    Set format of numerical label for contours.\n\
\n\
    Redacted form: pl_setcontlabelformat(lexp, sigdig)\n\
\n\
    This function is used example 9.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pl_setcontlabelformat(lexp, sigdig)\n\
\n\
ARGUMENTS:\n\
\n\
    lexp (PLINT, input) :    If the contour numerical label is greater\n\
        than 10^(lexp) or less than 10^(-lexp), then the exponential\n\
        format is used.  Default value of lexp is 4.\n\
\n\
    sigdig (PLINT, input) :    Number of significant digits.  Default\n\
        value is 2.\n\
";
static const char* _wrap_plparseopts_texinfo = "-*- texinfo -*-\n\
Parse command-line arguments\n\
\n\
DESCRIPTION:\n\
\n\
    Parse command-line arguments.\n\
\n\
    plparseopts removes all recognized flags (decreasing argc\n\
    accordingly), so that invalid input may be readily detected.  It can\n\
    also be used to process user command line flags.  The user can merge\n\
    an option table of type PLOptionTable into the internal option table\n\
    info structure using plMergeOpts.  Or, the user can specify that ONLY\n\
    the external table(s) be parsed by calling plClearOpts before\n\
    plMergeOpts.\n\
\n\
    The default action taken by plparseopts is as follows:\n\
    Returns with an error if an unrecognized option or badly formed\n\
    option-value pair are encountered.\n\
    Returns immediately (return code 0) when the first non-option command\n\
    line argument is found.\n\
    Returns with the return code of the option handler, if one was called.\n\
\n\
    Deletes command line arguments from argv list as they are found, and\n\
    decrements argc accordingly.\n\
    Does not show \"invisible\" options in usage or help messages.\n\
    Assumes the program name is contained in argv[0].\n\
\n\
    These behaviors may be controlled through the\n\
    mode argument.\n\
\n\
    Redacted form: General: plparseopts(argv, mode)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in all of the examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
PLINT plparseopts(p_argc, argv, mode)\n\
\n\
ARGUMENTS:\n\
\n\
    p_argc (int *, input/output) :    Number of arguments.\n\
\n\
    argv (PLCHAR_NC_MATRIX, input/output) :    A vector of character\n\
        strings containing *p_argc command-line arguments.\n\
\n\
    mode (PLINT, input) :    Parsing mode with the following\n\
        possibilities: PL_PARSE_FULL (1) -- Full parsing of command line\n\
        and all error messages enabled, including program exit when an\n\
        error occurs.  Anything on the command line that isn\'t recognized\n\
        as a valid option or option argument is flagged as an error.\n\
            PL_PARSE_QUIET (2) -- Turns off all output except in the case\n\
            of errors.\n\
            PL_PARSE_NODELETE (4) -- Turns off deletion of processed\n\
            arguments.\n\
            PL_PARSE_SHOWALL (8) -- Show invisible options\n\
            PL_PARSE_NOPROGRAM (32) -- Specified if argv[0] is NOT a\n\
            pointer to the program name.\n\
            PL_PARSE_NODASH (64) -- Set if leading dash is NOT required.\n\
            PL_PARSE_SKIP (128) -- Set to quietly skip over any\n\
            unrecognized arguments.\n\
";
static const char* _wrap_plstar_texinfo = "-*- texinfo -*-\n\
Initialization\n\
\n\
DESCRIPTION:\n\
\n\
    Initializing the plotting package.  The program prompts for the device\n\
    keyword or number of the desired output device.  Hitting a RETURN in\n\
    response to the prompt is the same as selecting the first device.  If\n\
    only one device is enabled when PLplot is installed, plstar will issue\n\
    no prompt.  The output device is divided into nx by ny subpages, each\n\
    of which may be used independently.  The subroutine pladv is used to\n\
    advance from one subpage to the next.\n\
\n\
    Redacted form: plstar(nx, ny)\n\
\n\
    This function is used in example 1.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstar(nx, ny)\n\
\n\
ARGUMENTS:\n\
\n\
    nx (PLINT, input) :    Number of subpages to divide output page in the\n\
        x direction.\n\
\n\
    ny (PLINT, input) :    Number of subpages to divide output page in the\n\
        y direction.\n\
";
static const char* _wrap_plgfci_texinfo = "-*- texinfo -*-\n\
Get FCI (font characterization integer)\n\
\n\
DESCRIPTION:\n\
\n\
    Gets information about the current font using the FCI approach. See\n\
    the PLplot documentation for more information.\n\
\n\
    Redacted form: plgfci(p_fci)\n\
\n\
    This function is used in example 23.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgfci(p_fci)\n\
\n\
ARGUMENTS:\n\
\n\
    p_fci (PLUNICODE_NC_SCALAR, output) :    Returned value of the current\n\
        FCI value.\n\
";
static const char* _wrap_plsfam_texinfo = "-*- texinfo -*-\n\
Set family file parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Sets variables dealing with output file familying.  Does nothing if\n\
    familying not supported by the driver.  This routine, if used, must be\n\
    called before initializing PLplot.  See the PLplot documentation for\n\
    more information.\n\
\n\
    Redacted form: plsfam(fam, num, bmax)\n\
\n\
    This function is used in examples 14 and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsfam(fam, num, bmax)\n\
\n\
ARGUMENTS:\n\
\n\
    fam (PLINT, input) :    Family flag (Boolean).  If nonzero, familying\n\
        is enabled.\n\
\n\
    num (PLINT, input) :    Current family file number.\n\
\n\
    bmax (PLINT, input) :    Maximum file size (in bytes) for a family\n\
        file.\n\
";
static const char* _wrap_plscmap1la_texinfo = "-*- texinfo -*-\n\
Set cmap1 colors and alpha transparency using a piece-wise linear relationship\n\
\n\
DESCRIPTION:\n\
\n\
    This is a variant of plscmap1l that supports alpha channel\n\
    transparency. It sets cmap1 colors using a piece-wise linear\n\
    relationship between cmap1 intensity index (0.0-1.0) and position in\n\
    HLS or RGB color space (see the PLplot documentation) with alpha\n\
    transparency value (0.0-1.0). It may be called at any time.\n\
\n\
    Redacted form: plscmap1la(itype, intensity, coord1, coord2, coord3,\n\
    alpha, alt_hue_path)\n\
\n\
    This function is used in example 30.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap1la(itype, npts, intensity, coord1, coord2, coord3, alpha, alt_hue_path)\n\
\n\
ARGUMENTS:\n\
\n\
    itype (PLBOOL, input) :    true: RGB, false: HLS.\n\
\n\
    npts (PLINT, input) :    number of control points.\n\
\n\
    intensity (PLFLT_VECTOR, input) :    A vector containing the cmap1\n\
        intensity index (0.0-1.0) in ascending order for each control\n\
        point.\n\
\n\
    coord1 (PLFLT_VECTOR, input) :    A vector containing the first\n\
        coordinate (H or R) for each control point.\n\
\n\
    coord2 (PLFLT_VECTOR, input) :    A vector containing the second\n\
        coordinate (L or G) for each control point.\n\
\n\
    coord3 (PLFLT_VECTOR, input) :    A vector containing the third\n\
        coordinate (S or B) for each control point.\n\
\n\
    alpha (PLFLT_VECTOR, input) :    A vector containing the alpha\n\
        transparency value (0.0-1.0) for each control point.\n\
\n\
    alt_hue_path (PLBOOL_VECTOR, input) :    A vector (with\n\
    npts - 1 elements) containing the alternative interpolation method\n\
        Boolean value for each control point interval.  (alt_hue_path[i]\n\
        refers to the interpolation interval between the i and i + 1\n\
        control points).\n\
";
static const char* _wrap_plspage_texinfo = "-*- texinfo -*-\n\
Set page parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the page configuration (optional).  If an individual parameter is\n\
    zero then that parameter value is not updated.  Not all parameters are\n\
    recognized by all drivers and the interpretation is device-dependent.\n\
    The X-window driver uses the length and offset parameters to determine\n\
    the window size and location.  The length and offset values are\n\
    expressed in units that are specific to the current driver.  For\n\
    instance: screen drivers will usually interpret them as number of\n\
    pixels, whereas printer drivers will usually use mm.\n\
\n\
    This routine, if used, must be called before initializing PLplot.  It\n\
    may be called at later times for interactive drivers to change only\n\
    the dpi for subsequent redraws which you can force via a call to\n\
    plreplot.  If this function is not called then the page size defaults\n\
    to landscape A4 for drivers which use real world page sizes and 744\n\
    pixels wide by 538 pixels high for raster drivers. The default value\n\
    for dx and dy is 90 pixels per inch for raster drivers.\n\
\n\
\n\
\n\
    Redacted form: plspage(xp, yp, xleng, yleng, xoff, yoff)\n\
\n\
    This function is used in examples 14 and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plspage(xp, yp, xleng, yleng, xoff, yoff)\n\
\n\
ARGUMENTS:\n\
\n\
    xp (PLFLT, input) :    Number of pixels per inch (DPI), x. Used only\n\
        by raster drivers, ignored by drivers which use \"real world\" units\n\
        (e.g. mm).\n\
\n\
    yp (PLFLT, input) :    Number of pixels per inch (DPI), y.  Used only\n\
        by raster drivers, ignored by drivers which use \"real world\" units\n\
        (e.g. mm).\n\
\n\
    xleng (PLINT, input) :    Page length, x.\n\
\n\
    yleng (PLINT, input) :    Page length, y.\n\
\n\
    xoff (PLINT, input) :    Page offset, x.\n\
\n\
    yoff (PLINT, input) :    Page offset, y.\n\
";
static const char* _wrap_plprec_texinfo = "-*- texinfo -*-\n\
Set precision in numeric labels\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the number of places after the decimal point in numeric labels.\n\
\n\
    Redacted form: plprec(setp, prec)\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plprec(setp, prec)\n\
\n\
ARGUMENTS:\n\
\n\
    setp (PLINT, input) :    If setp is equal to 0 then PLplot\n\
        automatically determines the number of places to use after the\n\
        decimal point in numeric labels (like those used to label axes).\n\
        If setp is 1 then prec sets the number of places.\n\
\n\
    prec (PLINT, input) :    The number of characters to draw after the\n\
        decimal point in numeric labels.\n\
";
static const char* _wrap_plcpstrm_texinfo = "-*- texinfo -*-\n\
Copy state parameters from the reference stream to the current stream\n\
\n\
DESCRIPTION:\n\
\n\
    Copies state parameters from the reference stream to the current\n\
    stream. Tell driver interface to map device coordinates unless flags\n\
    == 1.\n\
\n\
    This function is used for making save files of selected plots (e.g.\n\
    from the TK driver).  After initializing, you can get a copy of the\n\
    current plot to the specified device by switching to this stream and\n\
    issuing a plcpstrm and a plreplot, with calls to plbop and pleop as\n\
    appropriate.  The plot buffer must have previously been enabled (done\n\
    automatically by some display drivers, such as X).\n\
\n\
    Redacted form: plcpstrm(iplsr, flags)\n\
\n\
    This function is used in example 1,20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plcpstrm(iplsr, flags)\n\
\n\
ARGUMENTS:\n\
\n\
    iplsr (PLINT, input) :    Number of reference stream.\n\
\n\
    flags (PLBOOL, input) :    If flags is set to true the device\n\
        coordinates are not copied from the reference to current stream.\n\
";
static const char* _wrap_plpoin_texinfo = "-*- texinfo -*-\n\
Plot a glyph at the specified points\n\
\n\
DESCRIPTION:\n\
\n\
    Plot a glyph at the specified points.  (This function is largely\n\
    superseded by plstring which gives access to many[!] more glyphs.)\n\
    code=-1  means try to just draw a point.  Right now it\'s just a move\n\
    and a draw at the same place.  Not ideal, since a sufficiently\n\
    intelligent output device may optimize it away, or there may be faster\n\
    ways of doing it.  This is OK for now, though, and offers a 4X speedup\n\
    over drawing a Hershey font \"point\" (which is actually diamond shaped\n\
    and therefore takes 4 strokes to draw).  If 0 < code < 32, then a\n\
    useful (but small subset) of Hershey symbols is plotted.  If 32 <=\n\
    code <= 127 the corresponding printable ASCII character is plotted.\n\
\n\
    Redacted form: plpoin(x, y, code)\n\
\n\
    This function is used in examples 1, 6, 14, and 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plpoin(n, x, y, code)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of points in the x and y vectors.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        points.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        points.\n\
\n\
    code (PLINT, input) :    Hershey symbol code (in \"ascii-indexed\" form\n\
        with -1 <= code <= 127) corresponding to a glyph to be plotted at\n\
        each of the n points.\n\
";
static const char* _wrap_plxormod_texinfo = "-*- texinfo -*-\n\
Enter or leave xor mode\n\
\n\
DESCRIPTION:\n\
\n\
    Enter (when mode is true) or leave (when mode is false) xor mode for\n\
    those drivers (e.g., the xwin driver) that support it.  Enables\n\
    erasing plots by drawing twice the same line, symbol, etc.  If driver\n\
    is not capable of xor operation it returns a status of false.\n\
\n\
    Redacted form: plxormod(mode, status)\n\
\n\
    This function is used in examples 1 and 20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plxormod(mode, status)\n\
\n\
ARGUMENTS:\n\
\n\
    mode (PLBOOL, input) :    mode is true means enter xor mode and mode\n\
        is false means leave xor mode.\n\
\n\
    status (PLBOOL_NC_SCALAR, output) :    Returned value of the status.\n\
        modestatus of true (false) means driver is capable (incapable) of\n\
        xor mode.\n\
";
static const char* _wrap_plgvpd_texinfo = "-*- texinfo -*-\n\
Get viewport limits in normalized device coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    Get viewport limits in normalized device coordinates.\n\
\n\
    Redacted form: General: plgvpd(p_xmin, p_xmax, p_ymin, p_ymax)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgvpd(p_xmin, p_xmax, p_ymin, p_ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    p_xmin (PLFLT_NC_SCALAR, output) :    Returned value of the lower\n\
        viewport limit of the normalized device coordinate in x.\n\
\n\
    p_xmax (PLFLT_NC_SCALAR, output) :    Returned value of the upper\n\
        viewport limit of the normalized device coordinate in x.\n\
\n\
    p_ymin (PLFLT_NC_SCALAR, output) :    Returned value of the lower\n\
        viewport limit of the normalized device coordinate in y.\n\
\n\
    p_ymax (PLFLT_NC_SCALAR, output) :    Returned value of the upper\n\
        viewport limit of the normalized device coordinate in y.\n\
";
static const char* _wrap_plmesh_texinfo = "-*- texinfo -*-\n\
Plot surface mesh\n\
\n\
DESCRIPTION:\n\
\n\
    Plots a surface mesh within the environment set up by plw3d.  The\n\
    surface is defined by the matrix z[\n\
    nx][\n\
    ny] , the point z[i][j] being the value of the function at (\n\
    x[i],\n\
    y[j]). Note that the points in vectors x and y do not need to be\n\
    equally spaced, but must be stored in ascending order.  The parameter\n\
    opt controls the way in which the surface is displayed.  For further\n\
    details see the PLplot documentation.\n\
\n\
    Redacted form: plmesh(x, y, z, opt)\n\
\n\
    This function is used in example 11.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmesh(x, y, z, nx, ny, opt)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates at\n\
        which the function is evaluated.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates at\n\
        which the function is evaluated.\n\
\n\
    z (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    Number of x values at which function has been\n\
        evaluated.\n\
\n\
    ny (PLINT, input) :    Number of y values at which function has been\n\
        evaluated.\n\
\n\
    opt (PLINT, input) :    Determines the way in which the surface is\n\
        represented: opt=DRAW_LINEX : Lines are drawn showing z as a\n\
        function of x for each value of y[j] .\n\
            opt=DRAW_LINEY : Lines are drawn showing z as a function of y\n\
            for each value of x[i] .\n\
            opt=DRAW_LINEXY : Network of lines is drawn connecting points\n\
            at which function is defined.\n\
";
static const char* _wrap_plmeshc_texinfo = "-*- texinfo -*-\n\
Magnitude colored plot surface mesh with contour\n\
\n\
DESCRIPTION:\n\
\n\
    A more powerful form of plmesh: the surface mesh can be colored\n\
    accordingly to the current z value being plotted, a contour plot can\n\
    be drawn at the base XY plane, and a curtain can be drawn between the\n\
    plotted function border and the base XY plane.\n\
\n\
    Redacted form: plmeshc(x, y, z, opt, clevel)\n\
\n\
    This function is used in example 11.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmeshc(x, y, z, nx, ny, opt, clevel, nlevel)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates at\n\
        which the function is evaluated.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates at\n\
        which the function is evaluated.\n\
\n\
    z (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    Number of x values at which function is\n\
        evaluated.\n\
\n\
    ny (PLINT, input) :    Number of y values at which function is\n\
        evaluated.\n\
\n\
    opt (PLINT, input) :    Determines the way in which the surface is\n\
        represented. To specify more than one option just add the options,\n\
        e.g. DRAW_LINEXY + MAG_COLOR opt=DRAW_LINEX : Lines are drawn\n\
        showing z as a function of x for each value of y[j] .\n\
            opt=DRAW_LINEY : Lines are drawn showing z as a function of y\n\
            for each value of x[i] .\n\
            opt=DRAW_LINEXY : Network of lines is drawn connecting points\n\
            at which function is defined.\n\
            opt=MAG_COLOR : Each line in the mesh is colored according to\n\
            the z value being plotted. The color is used from the current\n\
            cmap1.\n\
            opt=BASE_CONT : A contour plot is drawn at the base XY plane\n\
            using parameters\n\
    nlevel and\n\
    clevel.\n\
            opt=DRAW_SIDES : draws a curtain between the base XY plane and\n\
            the borders of the plotted function.\n\
\n\
\n\
    clevel (PLFLT_VECTOR, input) :    A vector containing the contour\n\
        levels.\n\
\n\
    nlevel (PLINT, input) :    Number of elements in the clevel vector.\n\
";
static const char* _wrap_plend1_texinfo = "-*- texinfo -*-\n\
End plotting session for current stream\n\
\n\
DESCRIPTION:\n\
\n\
    Ends a plotting session for the current output stream only.  See\n\
    plsstrm for more info.\n\
\n\
    Redacted form: plend1()\n\
\n\
    This function is used in examples 1 and 20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plend1()\n\
";
static const char* _wrap_plgyax_texinfo = "-*- texinfo -*-\n\
Get y axis parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Identical to plgxax, except that arguments are flags for y axis. See\n\
    the description of plgxax for more detail.\n\
\n\
    Redacted form: plgyax(p_digmax, p_digits)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgyax(p_digmax, p_digits)\n\
\n\
ARGUMENTS:\n\
\n\
    p_digmax (PLINT_NC_SCALAR, output) :    Returned value of the maximum\n\
        number of digits for the y axis.  If nonzero, the printed label\n\
        has been switched to a floating-point representation when the\n\
        number of digits exceeds this value.\n\
\n\
    p_digits (PLINT_NC_SCALAR, output) :    Returned value of the actual\n\
        number of digits for the numeric labels (y axis) from the last\n\
        plot.\n\
";
static const char* _wrap_plsdiori_texinfo = "-*- texinfo -*-\n\
Set plot orientation\n\
\n\
DESCRIPTION:\n\
\n\
    Set plot orientation parameter which is multiplied by 90 degrees to\n\
    obtain the angle of rotation.  Note, arbitrary rotation parameters\n\
    such as 0.2 (corresponding to 18 degrees) are possible, but the usual\n\
    values for the rotation parameter are 0., 1., 2., and 3. corresponding\n\
    to 0 degrees (landscape mode), 90 degrees (portrait mode), 180 degrees\n\
    (seascape mode), and 270 degrees (upside-down mode).  If plsdiori is\n\
    not called the default value of rot is 0.\n\
\n\
    N.B. aspect ratio is unaffected by calls to plsdiori.  So you will\n\
    probably want to change the aspect ratio to a value suitable for the\n\
    plot orientation using a call to plsdidev or the command-line options\n\
    -a or -freeaspect.  For more documentation of those options see the\n\
    PLplot documentation.  Such command-line options can be set internally\n\
    using plsetopt or set directly using the command line and parsed using\n\
    a call to plparseopts.\n\
\n\
    Redacted form: plsdiori(rot)\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsdiori(rot)\n\
\n\
ARGUMENTS:\n\
\n\
    rot (PLFLT, input) :    Plot orientation parameter.\n\
";
static const char* _wrap_plhist_texinfo = "-*- texinfo -*-\n\
Plot a histogram from unbinned data\n\
\n\
DESCRIPTION:\n\
\n\
    Plots a histogram from n data points stored in the data vector.  This\n\
    routine bins the data into nbin bins equally spaced between datmin and\n\
    datmax, and calls plbin to draw the resulting histogram.  Parameter\n\
    opt allows, among other things, the histogram either to be plotted in\n\
    an existing window or causes plhist to call plenv with suitable limits\n\
    before plotting the histogram.\n\
\n\
    Redacted form: plhist(data, datmin, datmax, nbin, opt)\n\
\n\
    This function is used in example 5.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plhist(n, data, datmin, datmax, nbin, opt)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of data points.\n\
\n\
    data (PLFLT_VECTOR, input) :    A vector containing the values of the\n\
        n data points.\n\
\n\
    datmin (PLFLT, input) :    Left-hand edge of lowest-valued bin.\n\
\n\
    datmax (PLFLT, input) :    Right-hand edge of highest-valued bin.\n\
\n\
    nbin (PLINT, input) :    Number of (equal-sized) bins into which to\n\
        divide the interval xmin to xmax.\n\
\n\
    opt (PLINT, input) :    Is a combination of several flags:\n\
        opt=PL_HIST_DEFAULT: The axes are automatically rescaled to fit\n\
        the histogram data, the outer bins are expanded to fill up the\n\
        entire x-axis, data outside the given extremes are assigned to the\n\
        outer bins and bins of zero height are simply drawn.\n\
            opt=PL_HIST_NOSCALING|...: The existing axes are not rescaled\n\
            to fit the histogram data, without this flag, plenv is called\n\
            to set the world coordinates.\n\
            opt=PL_HIST_IGNORE_OUTLIERS|...: Data outside the given\n\
            extremes are not taken into account. This option should\n\
            probably be combined with opt=PL_HIST_NOEXPAND|..., so as to\n\
            properly present the data.\n\
            opt=PL_HIST_NOEXPAND|...: The outer bins are drawn with equal\n\
            size as the ones inside.\n\
            opt=PL_HIST_NOEMPTY|...: Bins with zero height are not drawn\n\
            (there is a gap for such bins).\n\
";
static const char* _wrap_plend_texinfo = "-*- texinfo -*-\n\
End plotting session\n\
\n\
DESCRIPTION:\n\
\n\
    Ends a plotting session, tidies up all the output files, switches\n\
    interactive devices back into text mode and frees up any memory that\n\
    was allocated.  Must be called before end of program.\n\
\n\
    By default, PLplot\'s interactive devices (Xwin, TK, etc.) go into a\n\
    wait state after a call to plend or other functions which trigger the\n\
    end of a plot page. To avoid this, use the plspause function.\n\
\n\
    Redacted form: plend()\n\
\n\
    This function is used in all of the examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plend()\n\
";
static const char* _wrap_plsurf3d_texinfo = "-*- texinfo -*-\n\
Plot shaded 3-d surface plot\n\
\n\
DESCRIPTION:\n\
\n\
    Plots a three-dimensional shaded surface plot within the environment\n\
    set up by plw3d.  The surface is defined by the two-dimensional matrix\n\
    z[\n\
    nx][\n\
    ny], the point z[i][j] being the value of the function at (\n\
    x[i],\n\
    y[j]). Note that the points in vectors x and y do not need to be\n\
    equally spaced, but must be stored in ascending order. For further\n\
    details see the PLplot documentation.\n\
\n\
    Redacted form: plsurf3d(x, y, z, opt, clevel)\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsurf3d(x, y, z, nx, ny, opt, clevel, nlevel)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates at\n\
        which the function is evaluated.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates at\n\
        which the function is evaluated.\n\
\n\
    z (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    Number of x values at which function is\n\
        evaluated.\n\
\n\
    ny (PLINT, input) :    Number of y values at which function is\n\
        evaluated.\n\
\n\
    opt (PLINT, input) :    Determines the way in which the surface is\n\
        represented. To specify more than one option just add the options,\n\
        e.g. FACETED + SURF_CONT opt=FACETED : Network of lines is drawn\n\
        connecting points at which function is defined.\n\
            opt=BASE_CONT : A contour plot is drawn at the base XY plane\n\
            using parameters\n\
    nlevel and\n\
    clevel.\n\
            opt=SURF_CONT : A contour plot is drawn at the surface plane\n\
            using parameters\n\
    nlevel and\n\
    clevel.\n\
            opt=DRAW_SIDES : draws a curtain between the base XY plane and\n\
            the borders of the plotted function.\n\
            opt=MAG_COLOR : the surface is colored according to the value\n\
            of Z; if MAG_COLOR is not used, then the surface is colored\n\
            according to the intensity of the reflected light in the\n\
            surface from a light source whose position is set using\n\
            pllightsource.\n\
\n\
\n\
    clevel (PLFLT_VECTOR, input) :    A vector containing the contour\n\
        levels.\n\
\n\
    nlevel (PLINT, input) :    Number of elements in the clevel vector.\n\
";
static const char* _wrap_plscompression_texinfo = "-*- texinfo -*-\n\
Set device-compression level\n\
\n\
DESCRIPTION:\n\
\n\
    Set device-compression level.  Only used for drivers that provide\n\
    compression.  This function, if used, should be invoked before a call\n\
    to plinit.\n\
\n\
    Redacted form: plscompression(compression)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscompression(compression)\n\
\n\
ARGUMENTS:\n\
\n\
    compression (PLINT, input) :    The desired compression level. This is\n\
        a device-dependent value. Currently only the jpeg and png devices\n\
        use these values. For jpeg value is the jpeg quality which should\n\
        normally be in the range 0-95. Higher values denote higher quality\n\
        and hence larger image sizes. For png values are in the range -1\n\
        to 99. Values of 0-9 are taken as the compression level for zlib.\n\
        A value of -1 denotes the default zlib compression level. Values\n\
        in the range 10-99 are divided by 10 and then used as the zlib\n\
        compression level. Higher compression levels correspond to greater\n\
        compression and small file sizes at the expense of more\n\
        computation.\n\
";
static const char* _wrap_plgcompression_texinfo = "-*- texinfo -*-\n\
Get the current device-compression setting\n\
\n\
DESCRIPTION:\n\
\n\
    Get the current device-compression setting.  This parameter is only\n\
    used for drivers that provide compression.\n\
\n\
    Redacted form: plgcompression(compression)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgcompression(compression)\n\
\n\
ARGUMENTS:\n\
\n\
    compression (PLINT_NC_SCALAR, output) :    Returned value of the\n\
        compression setting for the current device.\n\
";
static const char* _wrap_pladv_texinfo = "-*- texinfo -*-\n\
Advance the (sub-)page\n\
\n\
DESCRIPTION:\n\
\n\
    Advances to the next subpage if sub=0, performing a page advance if\n\
    there are no remaining subpages on the current page.  If subpages\n\
    aren\'t being used, pladv(0) will always advance the page.  If page>0,\n\
    PLplot switches to the specified subpage.  Note that this allows you\n\
    to overwrite a plot on the specified subpage; if this is not what you\n\
    intended, use pleop followed by plbop to first advance the page.  This\n\
    routine is called automatically (with page=0) by plenv, but if plenv\n\
    is not used, pladv must be called after initializing PLplot but before\n\
    defining the viewport.\n\
\n\
    Redacted form: pladv(page)\n\
\n\
    This function is used in examples 1, 2, 4, 6-12, 14-18, 20, 21, 23-27,\n\
    29, and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pladv(page)\n\
\n\
ARGUMENTS:\n\
\n\
    page (PLINT, input) :    Specifies the subpage number (starting from 1\n\
        in the top left corner and increasing along the rows) to which to\n\
        advance.  Set to zero to advance to the next subpage (or to the\n\
        next page if subpages are not being used).\n\
";
static const char* _wrap_pl_setcontlabelparam_texinfo = "-*- texinfo -*-\n\
Set parameters of contour labelling other than format of numerical label\n\
\n\
DESCRIPTION:\n\
\n\
    Set parameters of contour labelling other than those handled by\n\
    pl_setcontlabelformat.\n\
\n\
    Redacted form: pl_setcontlabelparam(offset, size, spacing, active)\n\
\n\
    This function is used in example 9.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pl_setcontlabelparam(offset, size, spacing, active)\n\
\n\
ARGUMENTS:\n\
\n\
    offset (PLFLT, input) :    Offset of label from contour line (if set\n\
        to 0.0, labels are printed on the lines).  Default value is 0.006.\n\
\n\
    size (PLFLT, input) :    Font height for contour labels (normalized).\n\
        Default value is 0.3.\n\
\n\
    spacing (PLFLT, input) :    Spacing parameter for contour labels.\n\
        Default value is 0.1.\n\
\n\
    active (PLINT, input) :    Activate labels.  Set to 1 if you want\n\
        contour labels on. Default is off (0).\n\
";
static const char* _wrap_plsfont_texinfo = "-*- texinfo -*-\n\
Set family, style and weight of the current font\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the current font.  See the PLplot documentation for more\n\
    information on font selection.\n\
\n\
    Redacted form: plsfont(family, style, weight)\n\
\n\
    This function is used in example 23.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsfont(family, style, weight)\n\
\n\
ARGUMENTS:\n\
\n\
    family (PLINT, input) :    Font family to select for the current font.\n\
        The available values are given by the PL_FCI_* constants in\n\
        plplot.h.  Current options are PL_FCI_SANS, PL_FCI_SERIF,\n\
        PL_FCI_MONO, PL_FCI_SCRIPT and PL_FCI_SYMBOL. A negative value\n\
        signifies that the font family should not be altered.\n\
\n\
    style (PLINT, input) :    Font style to select for the current font.\n\
        The available values are given by the PL_FCI_* constants in\n\
        plplot.h.  Current options are PL_FCI_UPRIGHT, PL_FCI_ITALIC and\n\
        PL_FCI_OBLIQUE. A negative value signifies that the font style\n\
        should not be altered.\n\
\n\
    weight (PLINT, input) :    Font weight to select for the current font.\n\
        The available values are given by the PL_FCI_* constants in\n\
        plplot.h.  Current options are PL_FCI_MEDIUM and PL_FCI_BOLD. A\n\
        negative value signifies that the font weight should not be\n\
        altered.\n\
";
static const char* _wrap_pllightsource_texinfo = "-*- texinfo -*-\n\
Sets the 3D position of the light source\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the 3D position of the light source for use with plsurf3d and\n\
    plsurf3dl\n\
\n\
    Redacted form: pllightsource(x, y, z)\n\
\n\
    This function is used in example 8.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pllightsource(x, y, z)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT, input) :    X-coordinate of the light source.\n\
\n\
    y (PLFLT, input) :    Y-coordinate of the light source.\n\
\n\
    z (PLFLT, input) :    Z-coordinate of the light source.\n\
";
static const char* _wrap_plline_texinfo = "-*- texinfo -*-\n\
Draw a line\n\
\n\
DESCRIPTION:\n\
\n\
    Draws line defined by n points in x and y.\n\
\n\
    Redacted form: plline(x, y)\n\
\n\
    This function is used in examples 1, 3, 4, 9, 12-14, 16, 18, 20, 22,\n\
    25-27, and 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plline(n, x, y)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of points defining line.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        points.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        points.\n\
";
static const char* _wrap_plwidth_texinfo = "-*- texinfo -*-\n\
Set pen width\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the pen width.\n\
\n\
    Redacted form: plwidth(width)\n\
\n\
    This function is used in examples 1 and 2.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plwidth(width)\n\
\n\
ARGUMENTS:\n\
\n\
    width (PLFLT, input) :    The desired pen width.  If width is negative\n\
        or the same as the previous value no action is taken. width = 0.\n\
        should be interpreted as as the minimum valid pen width for the\n\
        device.  The interpretation of positive width values is also\n\
        device dependent.\n\
";
static const char* _wrap_plgradient_texinfo = "-*- texinfo -*-\n\
Draw linear gradient inside polygon\n\
\n\
DESCRIPTION:\n\
\n\
    Draw a linear gradient using cmap1 inside the polygon defined by the n\n\
    points (\n\
    x[i],\n\
    y[i]).  Interpretation of the polygon is the same as for plfill.  The\n\
    polygon coordinates and the gradient angle are all expressed in world\n\
    coordinates.  The angle from the x axis for both the rotated\n\
    coordinate system and the gradient vector is specified by angle.  The\n\
    magnitude of the gradient vector is the difference between the maximum\n\
    and minimum values of x for the vertices in the rotated coordinate\n\
    system.  The origin of the gradient vector can be interpreted as being\n\
    anywhere on the line corresponding to the minimum x value for the\n\
    vertices in the rotated coordinate system.  The distance along the\n\
    gradient vector is linearly transformed to the independent variable of\n\
    color map 1 which ranges from 0. at the tail of the gradient vector to\n\
    1. at the head of the gradient vector.  What is drawn is the RGBA\n\
    color corresponding to the independent variable of cmap1.  For more\n\
    information about cmap1 (see the PLplot documentation).\n\
\n\
    Redacted form: plgradient(x,y,angle)\n\
\n\
    This function is used in examples 25 and 30.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgradient(n, x, y, angle)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of vertices in polygon.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        vertices.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        vertices.\n\
\n\
    angle (PLFLT, input) :    Angle (degrees) of gradient vector from x\n\
        axis.\n\
";
static const char* _wrap_plflush_texinfo = "-*- texinfo -*-\n\
Flushes the output stream\n\
\n\
DESCRIPTION:\n\
\n\
    Flushes the output stream. Use sparingly, if at all.\n\
\n\
    Redacted form: plflush()\n\
\n\
    This function is used in examples 1 and 14.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plflush()\n\
";
static const char* _wrap_plgdiori_texinfo = "-*- texinfo -*-\n\
Get plot orientation\n\
\n\
DESCRIPTION:\n\
\n\
    Get plot orientation parameter which is multiplied by 90 degrees to\n\
    obtain the angle of rotation.  Note, arbitrary rotation parameters\n\
    such as 0.2 (corresponding to 18 degrees) are possible, but the usual\n\
    values for the rotation parameter are 0., 1., 2., and 3. corresponding\n\
    to 0 degrees (landscape mode), 90 degrees (portrait mode), 180 degrees\n\
    (seascape mode), and 270 degrees (upside-down mode). If plsdiori has\n\
    not been called the default value pointed to by p_rot will be 0.\n\
\n\
    Redacted form: plgdiori(p_rot)\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgdiori(p_rot)\n\
\n\
ARGUMENTS:\n\
\n\
    p_rot (PLFLT_NC_SCALAR, output) :    Returned value of the orientation\n\
        parameter.\n\
";
static const char* _wrap_plsxax_texinfo = "-*- texinfo -*-\n\
Set x axis parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Sets values of the digmax and digits flags for the x axis.  See the\n\
    PLplot documentation for more information.\n\
\n\
    Redacted form: plsxax(digmax, digits)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsxax(digmax, digits)\n\
\n\
ARGUMENTS:\n\
\n\
    digmax (PLINT, input) :    Variable to set the maximum number of\n\
        digits for the x axis.  If nonzero, the printed label will be\n\
        switched to a floating-point representation when the number of\n\
        digits exceeds digmax.\n\
\n\
    digits (PLINT, input) :    Field digits value.  Currently, changing\n\
        its value here has no effect since it is set only by plbox or\n\
        plbox3.  However, the user may obtain its value after a call to\n\
        either of these functions by calling plgxax.\n\
";
static const char* _wrap_plgvpw_texinfo = "-*- texinfo -*-\n\
Get viewport limits in world coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    Get viewport limits in world coordinates.\n\
\n\
    Redacted form: General: plgvpw(p_xmin, p_xmax, p_ymin, p_ymax)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgvpw(p_xmin, p_xmax, p_ymin, p_ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    p_xmin (PLFLT_NC_SCALAR, output) :    Returned value of the lower\n\
        viewport limit of the world coordinate in x.\n\
\n\
    p_xmax (PLFLT_NC_SCALAR, output) :    Returned value of the upper\n\
        viewport limit of the world coordinate in x.\n\
\n\
    p_ymin (PLFLT_NC_SCALAR, output) :    Returned value of the lower\n\
        viewport limit of the world coordinate in y.\n\
\n\
    p_ymax (PLFLT_NC_SCALAR, output) :    Returned value of the upper\n\
        viewport limit of the world coordinate in y.\n\
";
static const char* _wrap_plshades_texinfo = "-*- texinfo -*-\n\
Shade regions on the basis of value\n\
\n\
DESCRIPTION:\n\
\n\
    Shade regions on the basis of value.  This is the high-level routine\n\
    for making continuous color shaded plots with cmap1 while plshade\n\
    should be used to plot individual shaded regions using either cmap0 or\n\
    cmap1. examples/;<language>/x16* shows how to use plshades for each of\n\
    our supported languages.\n\
\n\
    Redacted form: General: plshades(a, defined, xmin, xmax, ymin, ymax,\n\
    clevel, fill_width, cont_color, cont_width, fill, rectangular, pltr,\n\
    pltr_data)\n\
            Perl/PDL: plshades(a, xmin, xmax, ymin, ymax, clevel,\n\
    fill_width, cont_color, cont_width, fill, rectangular, defined, pltr,\n\
    pltr_data)\n\
\n\
\n\
    This function is used in examples 16, 21, and 22.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plshades(a, nx, ny, defined, xmin, xmax, ymin, ymax, clevel, nlevel, fill_width, cont_color, cont_width, fill, rectangular, pltr, pltr_data)\n\
\n\
ARGUMENTS:\n\
\n\
    a (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    First dimension of matrix \"a\".\n\
\n\
    ny (PLINT, input) :    Second dimension of matrix \"a\".\n\
\n\
    defined (PLDEFINED_callback, input) :    Callback function specifying\n\
        the region that should be plotted in the shade plot.  This\n\
        function accepts x and y coordinates as input arguments and must\n\
        return 1 if the point is to be included in the shade plot and 0\n\
        otherwise.  If you want to plot the entire shade plot (the usual\n\
        case), this argument should be set to NULL.\n\
\n\
    xmin, xmax, ymin, ymax (PLFLT, input) :    See the discussion of\n\
    pltr below for how these arguments are used (only for the special case\n\
        when the callback function\n\
    pltr is not supplied).\n\
\n\
    clevel (PLFLT_VECTOR, input) :    A vector containing the data levels\n\
        corresponding to the edges of each shaded region that will be\n\
        plotted by this function.  To work properly the levels should be\n\
        monotonic.\n\
\n\
    nlevel (PLINT, input) :    Number of shades plus 1 (i.e., the number\n\
        of shade edge values in clevel).\n\
\n\
    fill_width (PLFLT, input) :    Defines the line width used by the fill\n\
        pattern.\n\
\n\
    cont_color (PLINT, input) :    Defines cmap0 pen color used for\n\
        contours defining edges of shaded regions.  The pen color is only\n\
        temporary set for the contour drawing.  Set this value to zero or\n\
        less if no shade edge contours are wanted.\n\
\n\
    cont_width (PLFLT, input) :    Defines line width used for contours\n\
        defining edges of shaded regions.  This value may not be honored\n\
        by all drivers. The pen width is only temporary set for the\n\
        contour drawing.  Set this value to zero or less if no shade edge\n\
        contours are wanted.\n\
\n\
    fill (PLFILL_callback, input) :    Callback routine used to fill the\n\
        region.  Use plfill for this purpose.\n\
\n\
    rectangular (PLBOOL, input) :    Set rectangular to true if rectangles\n\
        map to rectangles after coordinate transformation with pltrl.\n\
        Otherwise, set rectangular to false. If rectangular is set to\n\
        true, plshade tries to save time by filling large rectangles.\n\
        This optimization fails if the coordinate transformation distorts\n\
        the shape of rectangles.  For example a plot in polar coordinates\n\
        has to have rectangular set to false.\n\
\n\
    pltr (PLTRANSFORM_callback, input) :    A callback function that\n\
        defines the transformation between the zero-based indices of the\n\
        matrix a and world coordinates. If\n\
    pltr is not supplied (e.g., is set to NULL in the C case), then the x\n\
        indices of a are mapped to the range\n\
    xmin through\n\
    xmax and the y indices of a are mapped to the range\n\
    ymin through\n\
    ymax.For the C case, transformation functions are provided in the\n\
        PLplot library: pltr0 for the identity mapping, and pltr1 and\n\
        pltr2 for arbitrary mappings respectively defined by vectors and\n\
        matrices.  In addition, C callback routines for the transformation\n\
        can be supplied by the user such as the mypltr function in\n\
        examples/c/x09c.c which provides a general linear transformation\n\
        between index coordinates and world coordinates.For languages\n\
        other than C you should consult the PLplot documentation for the\n\
        details concerning how PLTRANSFORM_callback arguments are\n\
        interfaced. However, in general, a particular pattern of\n\
        callback-associated arguments such as a tr vector with 6 elements;\n\
        xg and yg vectors; or xg and yg matrices are respectively\n\
        interfaced to a linear-transformation routine similar to the above\n\
        mypltr function; pltr1; and pltr2. Furthermore, some of our more\n\
        sophisticated bindings (see, e.g., the PLplot documentation)\n\
        support native language callbacks for handling index to\n\
        world-coordinate transformations.  Examples of these various\n\
        approaches are given in examples/<language>x09*,\n\
        examples/<language>x16*, examples/<language>x20*,\n\
        examples/<language>x21*, and examples/<language>x22*, for all our\n\
        supported languages.\n\
\n\
    pltr_data (PLPointer, input) :    Extra parameter to help pass\n\
        information to pltr0, pltr1, pltr2, or whatever routine that is\n\
        externally supplied.\n\
";
static const char* _wrap_plcolorbar_texinfo = "-*- texinfo -*-\n\
Plot color bar for image, shade or gradient plots\n\
\n\
DESCRIPTION:\n\
\n\
    Routine for creating a continuous color bar for image, shade, or\n\
    gradient plots. (See pllegend for similar functionality for creating\n\
    legends with discrete elements). The arguments of plcolorbar provide\n\
    control over the location and size of the color bar as well as the\n\
    location and characteristics of the elements (most of which are\n\
    optional) within that color bar.  The resulting color bar is clipped\n\
    at the boundaries of the current subpage. (N.B. the adopted coordinate\n\
    system used for some of the parameters is defined in the documentation\n\
    of the position parameter.)\n\
\n\
    Redacted form: plcolorbar(p_colorbar_width, p_colorbar_height, opt,\n\
    position, x, y, x_length, y_length, bg_color, bb_color, bb_style,\n\
    low_cap_color, high_cap_color, cont_color, cont_width, label_opts,\n\
    labels, axis_opts, ticks, sub_ticks, values)\n\
\n\
    This function is used in examples 16 and 33.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plcolorbar(p_colorbar_width, p_colorbar_height, opt, position, x, y, x_length, y_length, bg_color, bb_color, bb_style, low_cap_color, high_cap_color, cont_color, cont_width, n_labels, label_opts, labels, naxes, axis_opts, ticks, sub_ticks, n_values, values)\n\
\n\
ARGUMENTS:\n\
\n\
    p_colorbar_width (PLFLT_NC_SCALAR, output) :    Returned value of the\n\
        labelled and decorated color bar width in adopted coordinates.\n\
\n\
    p_colorbar_height (PLFLT_NC_SCALAR, output) :    Returned value of the\n\
        labelled and decorated color bar height in adopted coordinates.\n\
\n\
    opt (PLINT, input) :    opt contains bits controlling the overall\n\
        color bar.  The orientation (direction of the maximum value) of\n\
        the color bar is specified with PL_ORIENT_RIGHT, PL_ORIENT_TOP,\n\
        PL_ORIENT_LEFT, or PL_ORIENT_BOTTOM.  If none of these bits are\n\
        specified, the default orientation is toward the top if the\n\
        colorbar is placed on the left or right of the viewport or toward\n\
        the right if the colorbar is placed on the top or bottom of the\n\
        viewport. If the PL_COLORBAR_BACKGROUND bit is set, plot a\n\
        (semitransparent) background for the color bar. If the\n\
        PL_COLORBAR_BOUNDING_BOX bit is set, plot a bounding box for the\n\
        color bar. The type of color bar must be specified with one of\n\
        PL_COLORBAR_IMAGE, PL_COLORBAR_SHADE, or PL_COLORBAR_GRADIENT. If\n\
        more than one of those bits is set only the first one in the above\n\
        list is honored. The position of the (optional) label/title can be\n\
        specified with PL_LABEL_RIGHT, PL_LABEL_TOP, PL_LABEL_LEFT, or\n\
        PL_LABEL_BOTTOM.  If no label position bit is set then no label\n\
        will be drawn. If more than one of this list of bits is specified,\n\
        only the first one on the list is honored. End-caps for the color\n\
        bar can added with PL_COLORBAR_CAP_LOW and PL_COLORBAR_CAP_HIGH.\n\
        If a particular color bar cap option is not specified then no cap\n\
        will be drawn for that end. As a special case for\n\
        PL_COLORBAR_SHADE, the option PL_COLORBAR_SHADE_LABEL can be\n\
        specified. If this option is provided then any tick marks and tick\n\
        labels will be placed at the breaks between shaded segments. TODO:\n\
        This should be expanded to support custom placement of tick marks\n\
        and tick labels at custom value locations for any color bar type.\n\
\n\
    position (PLINT, input) :    position contains bits which control the\n\
        overall position of the color bar and the definition of the\n\
        adopted coordinates used for positions just like what is done for\n\
        the position argument for pllegend. However, note that the\n\
        defaults for the position bits (see below) are different than the\n\
        pllegend case. The combination of the PL_POSITION_LEFT,\n\
        PL_POSITION_RIGHT, PL_POSITION_TOP, PL_POSITION_BOTTOM,\n\
        PL_POSITION_INSIDE, and PL_POSITION_OUTSIDE bits specifies one of\n\
        the 16 possible standard positions (the 4 corners and centers of\n\
        the 4 sides for both the inside and outside cases) of the color\n\
        bar relative to the adopted coordinate system. The corner\n\
        positions are specified by the appropriate combination of two of\n\
        the PL_POSITION_LEFT, PL_POSITION_RIGHT, PL_POSITION_TOP, and\n\
        PL_POSITION_BOTTOM bits while the sides are specified by a single\n\
        value of one of those bits.  The adopted coordinates are\n\
        normalized viewport coordinates if the PL_POSITION_VIEWPORT bit is\n\
        set or normalized subpage coordinates if the PL_POSITION_SUBPAGE\n\
        bit is set. Default position bits: If none of PL_POSITION_LEFT,\n\
        PL_POSITION_RIGHT, PL_POSITION_TOP, or PL_POSITION_BOTTOM are set,\n\
        then use PL_POSITION_RIGHT. If neither of PL_POSITION_INSIDE or\n\
        PL_POSITION_OUTSIDE is set, use PL_POSITION_OUTSIDE. If neither of\n\
        PL_POSITION_VIEWPORT or PL_POSITION_SUBPAGE is set, use\n\
        PL_POSITION_VIEWPORT.\n\
\n\
    x (PLFLT, input) :    X offset of the color bar position in adopted\n\
        coordinates from the specified standard position of the color bar.\n\
        For positive x, the direction of motion away from the standard\n\
        position is inward/outward from the standard corner positions or\n\
        standard left or right positions if the\n\
        PL_POSITION_INSIDE/PL_POSITION_OUTSIDE bit is set in position.\n\
        For the standard top or bottom positions, the direction of motion\n\
        is toward positive X.\n\
\n\
    y (PLFLT, input) :    Y offset of the color bar position in adopted\n\
        coordinates from the specified standard position of the color bar.\n\
        For positive y, the direction of motion away from the standard\n\
        position is inward/outward from the standard corner positions or\n\
        standard top or bottom positions if the\n\
        PL_POSITION_INSIDE/PL_POSITION_OUTSIDE bit is set in position.\n\
        For the standard left or right positions, the direction of motion\n\
        is toward positive Y.\n\
\n\
    x_length (PLFLT, input) :    Length of the body of the color bar in\n\
        the X direction in adopted coordinates.\n\
\n\
    y_length (PLFLT, input) :    Length of the body of the color bar in\n\
        the Y direction in adopted coordinates.\n\
\n\
    bg_color (PLINT, input) :    The cmap0 color of the background for the\n\
        color bar (PL_COLORBAR_BACKGROUND).\n\
\n\
    bb_color (PLINT, input) :    The cmap0 color of the bounding-box line\n\
        for the color bar (PL_COLORBAR_BOUNDING_BOX).\n\
\n\
    bb_style (PLINT, input) :    The pllsty style number for the\n\
        bounding-box line for the color bar (PL_COLORBAR_BACKGROUND).\n\
\n\
    low_cap_color (PLFLT, input) :    The cmap1 color of the low-end color\n\
        bar cap, if it is drawn (PL_COLORBAR_CAP_LOW).\n\
\n\
    high_cap_color (PLFLT, input) :    The cmap1 color of the high-end\n\
        color bar cap, if it is drawn (PL_COLORBAR_CAP_HIGH).\n\
\n\
    cont_color (PLINT, input) :    The cmap0 contour color for\n\
        PL_COLORBAR_SHADE plots. This is passed directly to plshades, so\n\
        it will be interpreted according to the design of plshades.\n\
\n\
    cont_width (PLFLT, input) :    Contour width for PL_COLORBAR_SHADE\n\
        plots. This is passed directly to plshades, so it will be\n\
        interpreted according to the design of plshades.\n\
\n\
    n_labels (PLINT, input) :    Number of labels to place around the\n\
        color bar.\n\
\n\
    label_opts (PLINT_VECTOR, input) :    A vector of options for each of\n\
    n_labels labels.\n\
\n\
    labels (PLCHAR_MATRIX, input) :    A vector of\n\
    n_labels UTF-8 character strings containing the labels for the color\n\
        bar.  Ignored if no label position is specified with one of the\n\
        PL_COLORBAR_LABEL_RIGHT, PL_COLORBAR_LABEL_TOP,\n\
        PL_COLORBAR_LABEL_LEFT, or PL_COLORBAR_LABEL_BOTTOM bits in the\n\
        corresponding label_opts field.\n\
\n\
    n_axes (PLINT, input) :    Number of axis definitions provided. This\n\
        value must be greater than 0. It is typically 1 (numerical axis\n\
        labels are provided for one of the long edges of the color bar),\n\
        but it can be larger if multiple numerical axis labels for the\n\
        long edges of the color bar are desired.\n\
\n\
    axis_opts (PLCHAR_MATRIX, input) :    A vector of\n\
    n_axes ascii character strings containing options (interpreted as for\n\
        plbox) for the color bar\'s axis definitions.\n\
\n\
    ticks (PLFLT_VECTOR, input) :    A vector of n_axes values of the\n\
        spacing of the major tick marks (interpreted as for plbox) for the\n\
        color bar\'s axis definitions.\n\
\n\
    sub_ticks (PLINT_VECTOR, input) :    A vector of n_axes values of the\n\
        number of subticks (interpreted as for plbox) for the color bar\'s\n\
        axis definitions.\n\
\n\
    n_values (PLINT_VECTOR, input) :    A vector containing the number of\n\
        elements in each of the n_axes rows of the values matrix.\n\
\n\
    values (PLFLT_MATRIX, input) :    A matrix containing the numeric\n\
        values for the data range represented by the color bar. For a row\n\
        index of i_axis (where 0 < i_axis < n_axes), the number of\n\
        elements in the row is specified by n_values[i_axis]. For\n\
        PL_COLORBAR_IMAGE and PL_COLORBAR_GRADIENT the number of elements\n\
        is 2, and the corresponding row elements of the values matrix are\n\
        the minimum and maximum value represented by the colorbar.  For\n\
        PL_COLORBAR_SHADE, the number and values of the elements of a row\n\
        of the values matrix is interpreted the same as the nlevel and\n\
        clevel arguments of plshades.\n\
";
static const char* _wrap_plgspa_texinfo = "-*- texinfo -*-\n\
Get current subpage parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Gets the size of the current subpage in millimeters measured from the\n\
    bottom left hand corner of the output device page or screen.  Can be\n\
    used in conjunction with plsvpa for setting the size of a viewport in\n\
    absolute coordinates (millimeters).\n\
\n\
    Redacted form: plgspa(xmin, xmax, ymin, ymax)\n\
\n\
    This function is used in example 23.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgspa(xmin, xmax, ymin, ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT_NC_SCALAR, output) :    Returned value of the position of\n\
        the left hand edge of the subpage in millimeters.\n\
\n\
    xmax (PLFLT_NC_SCALAR, output) :    Returned value of the position of\n\
        the right hand edge of the subpage in millimeters.\n\
\n\
    ymin (PLFLT_NC_SCALAR, output) :    Returned value of the position of\n\
        the bottom edge of the subpage in millimeters.\n\
\n\
    ymax (PLFLT_NC_SCALAR, output) :    Returned value of the position of\n\
        the top edge of the subpage in millimeters.\n\
";
static const char* _wrap_plshade_texinfo = "-*- texinfo -*-\n\
Shade individual region on the basis of value\n\
\n\
DESCRIPTION:\n\
\n\
    Shade individual region on the basis of value.  Use plshades if you\n\
    want to shade a number of contiguous regions using continuous colors.\n\
    In particular the edge contours are treated properly in plshades.  If\n\
    you attempt to do contiguous regions with plshade the contours at the\n\
    edge of the shade are partially obliterated by subsequent plots of\n\
    contiguous shaded regions.\n\
\n\
    Redacted form: General: plshade(a, defined, xmin, xmax, ymin, ymax,\n\
    shade_min, shade_max, sh_cmap, sh_color, sh_width, min_color,\n\
    min_width, max_color, max_width, fill, rectangular, pltr, pltr_data)\n\
\n\
\n\
    This function is used in example 15.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plshade(a, nx, ny, defined, xmin, xmax, ymin, ymax, shade_min, shade_max, sh_cmap, sh_color, sh_width, min_color, min_width, max_color, max_width, fill, rectangular, pltr, pltr_data)\n\
\n\
ARGUMENTS:\n\
\n\
    a (PLFLT_MATRIX, input) :    A matrix containing function values to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx (PLINT, input) :    First dimension of the matrix \"a\".\n\
\n\
    ny (PLINT, input) :    Second dimension of the matrix \"a\".\n\
\n\
    defined (PLDEFINED_callback, input) :    Callback function specifying\n\
        the region that should be plotted in the shade plot.  This\n\
        function accepts x and y coordinates as input arguments and must\n\
        return 1 if the point is to be included in the shade plot and 0\n\
        otherwise.  If you want to plot the entire shade plot (the usual\n\
        case), this argument should be set to NULL.\n\
\n\
    xmin, xmax, ymin, ymax (PLFLT, input) :    See the discussion of\n\
    pltr below for how these arguments are used (only for the special case\n\
        when the callback function\n\
    pltr is not supplied).\n\
\n\
    shade_min (PLFLT, input) :    Defines the lower end of the interval to\n\
        be shaded. If shade_max <= shade_min, plshade does nothing.\n\
\n\
    shade_max (PLFLT, input) :    Defines the upper end of the interval to\n\
        be shaded. If shade_max <= shade_min, plshade does nothing.\n\
\n\
    sh_cmap (PLINT, input) :    Defines color map. If sh_cmap=0, then\n\
        sh_color is interpreted as a cmap0 (integer) index.  If sh_cmap=1,\n\
        then sh_color is interpreted as a cmap1 argument in the range\n\
        (0.0-1.0).\n\
\n\
    sh_color (PLFLT, input) :    Defines color map index with integer\n\
        value if cmap0 or value in range (0.0-1.0) if cmap1.\n\
\n\
    sh_width (PLFLT, input) :    Defines width used by the fill pattern.\n\
\n\
    min_color (PLINT, input) :    Defines pen color, width used by the\n\
        boundary of shaded region. The min values are used for the\n\
        shade_min boundary, and the max values are used on the shade_max\n\
        boundary.  Set color and width to zero for no plotted boundaries.\n\
\n\
    min_width (PLFLT, input) :    Defines pen color, width used by the\n\
        boundary of shaded region. The min values are used for the\n\
        shade_min boundary, and the max values are used on the shade_max\n\
        boundary.  Set color and width to zero for no plotted boundaries.\n\
\n\
    max_color (PLINT, input) :    Defines pen color, width used by the\n\
        boundary of shaded region. The min values are used for the\n\
        shade_min boundary, and the max values are used on the shade_max\n\
        boundary.  Set color and width to zero for no plotted boundaries.\n\
\n\
    max_width (PLFLT, input) :    Defines pen color, width used by the\n\
        boundary of shaded region. The min values are used for the\n\
        shade_min boundary, and the max values are used on the shade_max\n\
        boundary.  Set color and width to zero for no plotted boundaries.\n\
\n\
    fill (PLFILL_callback, input) :    Routine used to fill the region.\n\
        Use plfill.  Future version of PLplot may have other fill\n\
        routines.\n\
\n\
    rectangular (PLBOOL, input) :    Set rectangular to true if rectangles\n\
        map to rectangles after coordinate transformation with pltrl.\n\
        Otherwise, set rectangular to false. If rectangular is set to\n\
        true, plshade tries to save time by filling large rectangles.\n\
        This optimization fails if the coordinate transformation distorts\n\
        the shape of rectangles. For example a plot in polar coordinates\n\
        has to have rectangular set to false.\n\
\n\
    pltr (PLTRANSFORM_callback, input) :    A callback function that\n\
        defines the transformation between the zero-based indices of the\n\
        matrix a and world coordinates. If\n\
    pltr is not supplied (e.g., is set to NULL in the C case), then the x\n\
        indices of a are mapped to the range\n\
    xmin through\n\
    xmax and the y indices of a are mapped to the range\n\
    ymin through\n\
    ymax.For the C case, transformation functions are provided in the\n\
        PLplot library: pltr0 for the identity mapping, and pltr1 and\n\
        pltr2 for arbitrary mappings respectively defined by vectors and\n\
        matrices.  In addition, C callback routines for the transformation\n\
        can be supplied by the user such as the mypltr function in\n\
        examples/c/x09c.c which provides a general linear transformation\n\
        between index coordinates and world coordinates.For languages\n\
        other than C you should consult the PLplot documentation for the\n\
        details concerning how PLTRANSFORM_callback arguments are\n\
        interfaced. However, in general, a particular pattern of\n\
        callback-associated arguments such as a tr vector with 6 elements;\n\
        xg and yg vectors; or xg and yg matrices are respectively\n\
        interfaced to a linear-transformation routine similar to the above\n\
        mypltr function; pltr1; and pltr2. Furthermore, some of our more\n\
        sophisticated bindings (see, e.g., the PLplot documentation)\n\
        support native language callbacks for handling index to\n\
        world-coordinate transformations.  Examples of these various\n\
        approaches are given in examples/<language>x09*,\n\
        examples/<language>x16*, examples/<language>x20*,\n\
        examples/<language>x21*, and examples/<language>x22*, for all our\n\
        supported languages.\n\
\n\
    pltr_data (PLPointer, input) :    Extra parameter to help pass\n\
        information to pltr0, pltr1, pltr2, or whatever routine that is\n\
        externally supplied.\n\
";
static const char* _wrap_plcalc_world_texinfo = "-*- texinfo -*-\n\
Calculate world coordinates and corresponding window index from relative device coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    Calculate world coordinates, wx and wy, and corresponding window index\n\
    from relative device coordinates, rx and ry.\n\
\n\
    Redacted form: General: plcalc_world(rx, ry, wx, wy, window)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plcalc_world(rx, ry, wx, wy, window)\n\
\n\
ARGUMENTS:\n\
\n\
    rx (PLFLT, input) :    Input relative device coordinate (0.0-1.0) for\n\
        the x coordinate.\n\
\n\
    ry (PLFLT, input) :    Input relative device coordinate (0.0-1.0) for\n\
        the y coordinate.\n\
\n\
    wx (PLFLT_NC_SCALAR, output) :    Returned value of the x world\n\
        coordinate corresponding to the relative device coordinates rx and\n\
        ry.\n\
\n\
    wy (PLFLT_NC_SCALAR, output) :    Returned value of the y world\n\
        coordinate corresponding to the relative device coordinates rx and\n\
        ry.\n\
\n\
    window (PLINT_NC_SCALAR, output) :    Returned value of the last\n\
        defined window index that corresponds to the input relative device\n\
        coordinates (and the returned world coordinates).  To give some\n\
        background on the window index, for each page the initial window\n\
        index is set to zero, and each time plwind is called within the\n\
        page, world and device coordinates are stored for the window and\n\
        the window index is incremented.  Thus, for a simple page layout\n\
        with non-overlapping viewports and one window per viewport, window\n\
        corresponds to the viewport index (in the order which the\n\
        viewport/windows were created) of the only viewport/window\n\
        corresponding to rx and ry.  However, for more complicated layouts\n\
        with potentially overlapping viewports and possibly more than one\n\
        window (set of world coordinates) per viewport, window and the\n\
        corresponding output world coordinates corresponds to the last\n\
        window created that fulfills the criterion that the relative\n\
        device coordinates are inside it.  Finally, in all cases where the\n\
        input relative device coordinates are not inside any\n\
        viewport/window, then the returned value of the last defined\n\
        window index is set to -1.\n\
";
static const char* _wrap_plbox3_texinfo = "-*- texinfo -*-\n\
Draw a box with axes, etc, in 3-d\n\
\n\
DESCRIPTION:\n\
\n\
    Draws axes, numeric and text labels for a three-dimensional surface\n\
    plot.  For a more complete description of three-dimensional plotting\n\
    see the PLplot documentation.\n\
\n\
    Redacted form: General: plbox3(xopt, xlabel, xtick, nxsub, yopt,\n\
    ylabel, ytick, nysub, zopt, zlabel, ztick, nzsub)\n\
            Perl/PDL: plbox3(xtick, nxsub, ytick, nysub, ztick, nzsub,\n\
    xopt, xlabel, yopt, ylabel, zopt, zlabel)\n\
\n\
\n\
    This function is used in examples 8, 11, 18, and 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plbox3(xopt, xlabel, xtick, nxsub, yopt, ylabel, ytick, nysub, zopt, zlabel, ztick, nzsub)\n\
\n\
ARGUMENTS:\n\
\n\
    xopt (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        options for the x axis.  The string can include any combination of\n\
        the following letters (upper or lower case) in any order: b: Draws\n\
        axis at base, at height z=\n\
    zmin where zmin is defined by call to plw3d.  This character must be\n\
        specified in order to use any of the other options.\n\
            d: Plot labels as date / time. Values are assumed to be\n\
            seconds since the epoch (as used by gmtime).\n\
            f: Always use fixed point numeric labels.\n\
            i: Inverts tick marks, so they are drawn downwards, rather\n\
            than upwards.\n\
            l: Labels axis logarithmically.  This only affects the labels,\n\
            not the data, and so it is necessary to compute the logarithms\n\
            of data points before passing them to any of the drawing\n\
            routines.\n\
            n: Writes numeric labels at major tick intervals.\n\
            o: Use custom labelling function to generate axis label text.\n\
            The custom labelling function can be defined with the\n\
            plslabelfunc command.\n\
            s: Enables subticks between major ticks, only valid if t is\n\
            also specified.\n\
            t: Draws major ticks.\n\
            u: If this is specified, the text label for the axis is\n\
            written under the axis.\n\
\n\
\n\
    xlabel (PLCHAR_VECTOR, input) :    A UTF-8 character string specifying\n\
        the text label for the x axis.  It is only drawn if u is in the\n\
        xopt string.\n\
\n\
    xtick (PLFLT, input) :    World coordinate interval between major\n\
        ticks on the x axis. If it is set to zero, PLplot automatically\n\
        generates a suitable tick interval.\n\
\n\
    nxsub (PLINT, input) :    Number of subintervals between major x axis\n\
        ticks for minor ticks.  If it is set to zero, PLplot automatically\n\
        generates a suitable minor tick interval.\n\
\n\
    yopt (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        options for the y axis. The string is interpreted in the same way\n\
        as xopt.\n\
\n\
    ylabel (PLCHAR_VECTOR, input) :    A UTF-8 character string specifying\n\
        the text label for the y axis.  It is only drawn if u is in the\n\
        yopt string.\n\
\n\
    ytick (PLFLT, input) :    World coordinate interval between major\n\
        ticks on the y axis. If it is set to zero, PLplot automatically\n\
        generates a suitable tick interval.\n\
\n\
    nysub (PLINT, input) :    Number of subintervals between major y axis\n\
        ticks for minor ticks.  If it is set to zero, PLplot automatically\n\
        generates a suitable minor tick interval.\n\
\n\
    zopt (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        options for the z axis. The string can include any combination of\n\
        the following letters (upper or lower case) in any order: b: Draws\n\
        z axis to the left of the surface plot.\n\
            c: Draws z axis to the right of the surface plot.\n\
            d: Draws grid lines parallel to the x-y plane behind the\n\
            figure.  These lines are not drawn until after plot3d or\n\
            plmesh are called because of the need for hidden line removal.\n\
            e: Plot labels as date / time. Values are assumed to be\n\
            seconds since the epoch (as used by gmtime).  Note this\n\
            suboption is interpreted the same as the d suboption for xopt\n\
            and yopt, but it has to be identified as e for zopt since d\n\
            has already been used for the different purpose above.\n\
            f: Always use fixed point numeric labels.\n\
            i: Inverts tick marks, so they are drawn away from the center.\n\
            l: Labels axis logarithmically.  This only affects the labels,\n\
            not the data, and so it is necessary to compute the logarithms\n\
            of data points before passing them to any of the drawing\n\
            routines.\n\
            m: Writes numeric labels at major tick intervals on the\n\
            right-hand z axis.\n\
            n: Writes numeric labels at major tick intervals on the\n\
            left-hand z axis.\n\
            o: Use custom labelling function to generate axis label text.\n\
            The custom labelling function can be defined with the\n\
            plslabelfunc command.\n\
            s: Enables subticks between major ticks, only valid if t is\n\
            also specified.\n\
            t: Draws major ticks.\n\
            u: If this is specified, the text label is written beside the\n\
            left-hand axis.\n\
            v: If this is specified, the text label is written beside the\n\
            right-hand axis.\n\
\n\
\n\
    zlabel (PLCHAR_VECTOR, input) :    A UTF-8 character string specifying\n\
        the text label for the z axis.  It is only drawn if u or v are in\n\
        the zopt string.\n\
\n\
    ztick (PLFLT, input) :    World coordinate interval between major\n\
        ticks on the z axis. If it is set to zero, PLplot automatically\n\
        generates a suitable tick interval.\n\
\n\
    nzsub (PLINT, input) :    Number of subintervals between major z axis\n\
        ticks for minor ticks.  If it is set to zero, PLplot automatically\n\
        generates a suitable minor tick interval.\n\
";
static const char* _wrap_plgchr_texinfo = "-*- texinfo -*-\n\
Get character default height and current (scaled) height\n\
\n\
DESCRIPTION:\n\
\n\
    Get character default height and current (scaled) height.\n\
\n\
    Redacted form: plgchr(p_def, p_ht)\n\
\n\
    This function is used in example 23.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgchr(p_def, p_ht)\n\
\n\
ARGUMENTS:\n\
\n\
    p_def (PLFLT_NC_SCALAR, output) :    Returned value of the default\n\
        character height (mm).\n\
\n\
    p_ht (PLFLT_NC_SCALAR, output) :    Returned value of the scaled\n\
        character height (mm).\n\
";
static const char* _wrap_plsesc_texinfo = "-*- texinfo -*-\n\
Set the escape character for text strings\n\
\n\
DESCRIPTION:\n\
\n\
    Set the escape character for text strings.  From C (in contrast to\n\
    Fortran, see plsescfortran) you pass esc as a character. Only selected\n\
    characters are allowed to prevent the user from shooting himself in\n\
    the foot (For example, a \\ isn\'t allowed since it conflicts with C\'s\n\
    use of backslash as a character escape).  Here are the allowed escape\n\
    characters and their corresponding decimal ASCII values: !, ASCII 33\n\
            #, ASCII 35\n\
            $, ASCII 36\n\
            %, ASCII 37\n\
            &, ASCII 38\n\
            *, ASCII 42\n\
            @, ASCII 64\n\
            ^, ASCII 94\n\
            ~, ASCII 126\n\
\n\
\n\
    Redacted form: General: plsesc(esc)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsesc(esc)\n\
\n\
ARGUMENTS:\n\
\n\
    esc (char, input) :    Escape character.\n\
";
static const char* _wrap_plpath_texinfo = "-*- texinfo -*-\n\
Draw a line between two points, accounting for coordinate transforms\n\
\n\
DESCRIPTION:\n\
\n\
    Joins the point (\n\
    x1,\n\
    y1)  to (\n\
    x2,\n\
    y2) .  If a global coordinate transform is defined then the line is\n\
    broken in to n segments to approximate the path.  If no transform is\n\
    defined then this simply acts like a call to pljoin.\n\
\n\
    Redacted form: plpath(n,x1,y1,x2,y2)\n\
\n\
    This function is used in example 22.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plpath(n, x1, y1, x2, y2)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    number of points to use to approximate the path.\n\
\n\
    x1 (PLFLT, input) :    x coordinate of first point.\n\
\n\
    y1 (PLFLT, input) :    y coordinate of first point.\n\
\n\
    x2 (PLFLT, input) :    x coordinate of second point.\n\
\n\
    y2 (PLFLT, input) :    y coordinate of second point.\n\
";
static const char* _wrap_plenv_texinfo = "-*- texinfo -*-\n\
Set up standard window and draw box\n\
\n\
DESCRIPTION:\n\
\n\
    Sets up plotter environment for simple graphs by calling pladv and\n\
    setting up viewport and window to sensible default values. plenv\n\
    leaves a standard margin (left-hand margin of eight character heights,\n\
    and a margin around the other three sides of five character heights)\n\
    around most graphs for axis labels and a title.  When these defaults\n\
    are not suitable, use the individual routines plvpas, plvpor, or\n\
    plvasp for setting up the viewport, plwind for defining the window,\n\
    and plbox for drawing the box.\n\
\n\
    Redacted form: plenv(xmin, xmax, ymin, ymax, just, axis)\n\
\n\
    This function is used in example 1,3,9,13,14,19-22,29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plenv(xmin, xmax, ymin, ymax, just, axis)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT, input) :    Value of x at left-hand edge of window (in\n\
        world coordinates).\n\
\n\
    xmax (PLFLT, input) :    Value of x at right-hand edge of window (in\n\
        world coordinates).\n\
\n\
    ymin (PLFLT, input) :    Value of y at bottom edge of window (in world\n\
        coordinates).\n\
\n\
    ymax (PLFLT, input) :    Value of y at top edge of window (in world\n\
        coordinates).\n\
\n\
    just (PLINT, input) :    Controls how the axes will be scaled: -1: the\n\
        scales will not be set, the user must set up the scale before\n\
        calling plenv using plsvpa, plvasp or other.\n\
            0: the x and y axes are scaled independently to use as much of\n\
            the screen as possible.\n\
            1: the scales of the x and y axes are made equal.\n\
            2: the axis of the x and y axes are made equal, and the plot\n\
            box will be square.\n\
\n\
\n\
    axis (PLINT, input) :    Controls drawing of the box around the plot:\n\
        -2: draw no box, no tick marks, no numeric tick labels, no axes.\n\
            -1: draw box only.\n\
            0: draw box, ticks, and numeric tick labels.\n\
            1: also draw coordinate axes at x=0 and y=0.\n\
            2: also draw a grid at major tick positions in both\n\
            coordinates.\n\
            3: also draw a grid at minor tick positions in both\n\
            coordinates.\n\
            10: same as 0 except logarithmic x tick marks. (The x data\n\
            have to be converted to logarithms separately.)\n\
            11: same as 1 except logarithmic x tick marks. (The x data\n\
            have to be converted to logarithms separately.)\n\
            12: same as 2 except logarithmic x tick marks. (The x data\n\
            have to be converted to logarithms separately.)\n\
            13: same as 3 except logarithmic x tick marks. (The x data\n\
            have to be converted to logarithms separately.)\n\
            20: same as 0 except logarithmic y tick marks. (The y data\n\
            have to be converted to logarithms separately.)\n\
            21: same as 1 except logarithmic y tick marks. (The y data\n\
            have to be converted to logarithms separately.)\n\
            22: same as 2 except logarithmic y tick marks. (The y data\n\
            have to be converted to logarithms separately.)\n\
            23: same as 3 except logarithmic y tick marks. (The y data\n\
            have to be converted to logarithms separately.)\n\
            30: same as 0 except logarithmic x and y tick marks. (The x\n\
            and y data have to be converted to logarithms separately.)\n\
            31: same as 1 except logarithmic x and y tick marks. (The x\n\
            and y data have to be converted to logarithms separately.)\n\
            32: same as 2 except logarithmic x and y tick marks. (The x\n\
            and y data have to be converted to logarithms separately.)\n\
            33: same as 3 except logarithmic x and y tick marks. (The x\n\
            and y data have to be converted to logarithms separately.)\n\
            40: same as 0 except date / time x labels.\n\
            41: same as 1 except date / time x labels.\n\
            42: same as 2 except date / time x labels.\n\
            43: same as 3 except date / time x labels.\n\
            50: same as 0 except date / time y labels.\n\
            51: same as 1 except date / time y labels.\n\
            52: same as 2 except date / time y labels.\n\
            53: same as 3 except date / time y labels.\n\
            60: same as 0 except date / time x and y labels.\n\
            61: same as 1 except date / time x and y labels.\n\
            62: same as 2 except date / time x and y labels.\n\
            63: same as 3 except date / time x and y labels.\n\
            70: same as 0 except custom x and y labels.\n\
            71: same as 1 except custom x and y labels.\n\
            72: same as 2 except custom x and y labels.\n\
            73: same as 3 except custom x and y labels.\n\
";
static const char* _wrap_plgriddata_texinfo = "-*- texinfo -*-\n\
Grid data from irregularly sampled data\n\
\n\
DESCRIPTION:\n\
\n\
    Real world data is frequently irregularly sampled, but PLplot 3D plots\n\
    require data organized as a grid, i.e., with x sample point values\n\
    independent of y coordinate and vice versa.  This function takes\n\
    irregularly sampled data from the x[npts], y[npts], and z[npts]\n\
    vectors; reads the desired grid location from the input vectors\n\
    xg[nptsx] and yg[nptsy]; and returns the interpolated result on that\n\
    grid using the output matrix zg[nptsx][nptsy].  The algorithm used to\n\
    interpolate the data to the grid is specified with the argument type\n\
    which can have one parameter specified in argument data.\n\
\n\
    Redacted form: General: plgriddata(x, y, z, xg, yg, zg, type, data)\n\
            Perl/PDL: Not available?\n\
            Python: zg=plgriddata(x, y, z, xg, yg, type, data)\n\
\n\
\n\
    This function is used in example 21.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgriddata(x, y, z, npts, xg, nptsx, yg, nptsy, zg, type, data)\n\
\n\
ARGUMENTS:\n\
\n\
    x (PLFLT_VECTOR, input) :    The input x vector.\n\
\n\
    y (PLFLT_VECTOR, input) :    The input y vector.\n\
\n\
    z (PLFLT_VECTOR, input) :    The input z vector. Each triple x[i],\n\
        y[i], z[i] represents one data sample coordinate.\n\
\n\
    npts (PLINT, input) :    The number of data samples in the x, y and z\n\
        vectors.\n\
\n\
    xg (PLFLT_VECTOR, input) :    A vector that specifies the grid spacing\n\
        in the x direction. Usually xg has nptsx equally spaced values\n\
        from the minimum to the maximum values of the x input vector.\n\
\n\
    nptsx (PLINT, input) :    The number of points in the xg vector.\n\
\n\
    yg (PLFLT_VECTOR, input) :    A vector that specifies the grid spacing\n\
        in the y direction. Similar to the xg parameter.\n\
\n\
    nptsy (PLINT, input) :    The number of points in the yg vector.\n\
\n\
    zg (PLFLT_NC_MATRIX, output) :    The matrix of interpolated results\n\
        where data lies in the grid specified by xg and yg. Therefore the\n\
        zg matrix must be dimensioned\n\
    nptsx by\n\
    nptsy.\n\
\n\
    type (PLINT, input) :    The type of grid interpolation algorithm to\n\
        use, which can be: GRID_CSA: Bivariate Cubic Spline approximation\n\
            GRID_DTLI: Delaunay Triangulation Linear Interpolation\n\
            GRID_NNI: Natural Neighbors Interpolation\n\
            GRID_NNIDW: Nearest Neighbors Inverse Distance Weighted\n\
            GRID_NNLI: Nearest Neighbors Linear Interpolation\n\
            GRID_NNAIDW:  Nearest Neighbors Around Inverse Distance\n\
            Weighted\n\
    For details of the algorithms read the source file plgridd.c.\n\
\n\
    data (PLFLT, input) :    Some gridding algorithms require extra data,\n\
        which can be specified through this argument. Currently, for\n\
        algorithm: GRID_NNIDW, data specifies the number of neighbors to\n\
        use, the lower the value, the noisier (more local) the\n\
        approximation is.\n\
            GRID_NNLI, data specifies what a thin triangle is, in the\n\
            range [1. .. 2.]. High values enable the usage of very thin\n\
            triangles for interpolation, possibly resulting in error in\n\
            the approximation.\n\
            GRID_NNI, only weights greater than data will be accepted. If\n\
            0, all weights will be accepted.\n\
";
static const char* _wrap_plclear_texinfo = "-*- texinfo -*-\n\
Clear current (sub)page\n\
\n\
DESCRIPTION:\n\
\n\
    Clears the current page, effectively erasing everything that have been\n\
    drawn.  This command only works with interactive drivers; if the\n\
    driver does not support this, the page is filled with the background\n\
    color in use. If the current page is divided into subpages, only the\n\
    current subpage is erased.  The nth subpage can be selected with\n\
    pladv(n).\n\
\n\
    Redacted form: General: plclear()\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plclear()\n\
";
static const char* _wrap_plscmap0a_texinfo = "-*- texinfo -*-\n\
Set cmap0 colors by 8-bit RGB values and PLFLT alpha transparency value\n\
\n\
DESCRIPTION:\n\
\n\
    Set cmap0 colors using 8-bit RGB values (see the PLplot documentation)\n\
    and PLFLT alpha transparency value.  This sets the entire color map --\n\
    only as many colors as specified will be allocated.\n\
\n\
    Redacted form: plscmap0a(r, g, b, alpha)\n\
\n\
    This function is used in examples 30.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap0a(r, g, b, alpha, ncol0)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLINT_VECTOR, input) :    A vector containing unsigned 8-bit\n\
        integers (0-255) representing the degree of red in the color.\n\
\n\
    g (PLINT_VECTOR, input) :    A vector containing unsigned 8-bit\n\
        integers (0-255) representing the degree of green in the color.\n\
\n\
    b (PLINT_VECTOR, input) :    A vector containing unsigned 8-bit\n\
        integers (0-255) representing the degree of blue in the color.\n\
\n\
    alpha (PLFLT_VECTOR, input) :    A vector containing values (0.0-1.0)\n\
        representing the alpha transparency of the color.\n\
\n\
    ncol0 (PLINT, input) :    Number of items in the r, g, b, and alpha\n\
        vectors.\n\
";
static const char* _wrap_plscol0_texinfo = "-*- texinfo -*-\n\
Set 8-bit RGB values for given cmap0 color index\n\
\n\
DESCRIPTION:\n\
\n\
    Set 8-bit RGB values for given cmap0 (see the PLplot documentation)\n\
    index.  Overwrites the previous color value for the given index and,\n\
    thus, does not result in any additional allocation of space for\n\
    colors.\n\
\n\
    Redacted form: plscol0(icol0, r, g, b)\n\
\n\
    This function is used in any example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscol0(icol0, r, g, b)\n\
\n\
ARGUMENTS:\n\
\n\
    icol0 (PLINT, input) :    Color index.  Must be less than the maximum\n\
        number of colors (which is set by default, by plscmap0n, or even\n\
        by plscmap0).\n\
\n\
    r (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of red in the color.\n\
\n\
    g (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of green in the color.\n\
\n\
    b (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of blue in the color.\n\
";
static const char* _wrap_plsdimap_texinfo = "-*- texinfo -*-\n\
Set up transformation from metafile coordinates\n\
\n\
DESCRIPTION:\n\
\n\
    Set up transformation from metafile coordinates.  The size of the plot\n\
    is scaled so as to preserve aspect ratio.  This isn\'t intended to be a\n\
    general-purpose facility just yet (not sure why the user would need\n\
    it, for one).\n\
\n\
    Redacted form: plsdimap(dimxmin, dimxmax, dimymin, dimymax, dimxpmm,\n\
    dimypmm)\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsdimap(dimxmin, dimxmax, dimymin, dimymax, dimxpmm, dimypmm)\n\
\n\
ARGUMENTS:\n\
\n\
    dimxmin (PLINT, input) :    NEEDS DOCUMENTATION\n\
\n\
    dimxmax (PLINT, input) :    NEEDS DOCUMENTATION\n\
\n\
    dimymin (PLINT, input) :    NEEDS DOCUMENTATION\n\
\n\
    dimymax (PLINT, input) :    NEEDS DOCUMENTATION\n\
\n\
    dimxpmm (PLFLT, input) :    NEEDS DOCUMENTATION\n\
\n\
    dimypmm (PLFLT, input) :    NEEDS DOCUMENTATION\n\
";
static const char* _wrap_plmkstrm_texinfo = "-*- texinfo -*-\n\
Creates a new stream and makes it the default\n\
\n\
DESCRIPTION:\n\
\n\
    Creates a new stream and makes it the default.  Differs from using\n\
    plsstrm, in that a free stream number is found, and returned.\n\
    Unfortunately, I have to start at stream 1 and work upward, since\n\
    stream 0 is preallocated.  One of the big flaws in the PLplot API is\n\
    that no initial, library-opening call is required.  So stream 0 must\n\
    be preallocated, and there is no simple way of determining whether it\n\
    is already in use or not.\n\
\n\
    Redacted form: plmkstrm(p_strm)\n\
\n\
    This function is used in examples 1 and 20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmkstrm(p_strm)\n\
\n\
ARGUMENTS:\n\
\n\
    p_strm (PLINT_NC_SCALAR, output) :    Returned value of the stream\n\
        number of the created stream.\n\
";
static const char* _wrap_plgpage_texinfo = "-*- texinfo -*-\n\
Get page parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Gets the current page configuration. The length and offset values are\n\
    expressed in units that are specific to the current driver. For\n\
    instance: screen drivers will usually interpret them as number of\n\
    pixels, whereas printer drivers will usually use mm.\n\
\n\
    Redacted form: plgpage(p_xp, p_yp, p_xleng, p_yleng, p_xoff, p_yoff)\n\
\n\
    This function is used in examples 14 and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgpage(p_xp, p_yp, p_xleng, p_yleng, p_xoff, p_yoff)\n\
\n\
ARGUMENTS:\n\
\n\
    p_xp (PLFLT_NC_SCALAR, output) :    Returned value of the number of\n\
        pixels/inch (DPI) in x.\n\
\n\
    p_yp (PLFLT_NC_SCALAR, output) :    Returned value of the number of\n\
        pixels/inch (DPI) in y.\n\
\n\
    p_xleng (PLINT_NC_SCALAR, output) :    Returned value of the x page\n\
        length.\n\
\n\
    p_yleng (PLINT_NC_SCALAR, output) :    Returned value of the y page\n\
        length.\n\
\n\
    p_xoff (PLINT_NC_SCALAR, output) :    Returned value of the x page\n\
        offset.\n\
\n\
    p_yoff (PLINT_NC_SCALAR, output) :    Returned value of the y page\n\
        offset.\n\
";
static const char* _wrap_pltimefmt_texinfo = "-*- texinfo -*-\n\
Set format for date / time labels\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the format for date / time labels. To enable date / time format\n\
    labels see the options to plbox, plbox3, and plenv.\n\
\n\
    Redacted form: pltimefmt(fmt)\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pltimefmt(fmt)\n\
\n\
ARGUMENTS:\n\
\n\
    fmt (PLCHAR_VECTOR, input) :    An ascii character string which is\n\
        interpreted similarly to the format specifier of typical system\n\
        strftime routines except that PLplot ignores locale and also\n\
        supplies some useful extensions in the context of plotting.  All\n\
        text in the string is printed as-is other than conversion\n\
        specifications which take the form of a \'%\' character followed by\n\
        further conversion specification character.  The conversion\n\
        specifications which are similar to those provided by system\n\
        strftime routines are the following: %a: The abbreviated (English)\n\
        weekday name.\n\
            %A: The full (English) weekday name.\n\
            %b: The abbreviated (English) month name.\n\
            %B: The full (English) month name.\n\
            %c: Equivalent to %a %b %d %T %Y (non-ISO).\n\
            %C: The century number (year/100) as a 2-digit integer.\n\
            %d: The day of the month as a decimal number (range 01 to 31).\n\
            %D: Equivalent to %m/%d/%y (non-ISO).\n\
            %e: Like %d, but a leading zero is replaced by a space.\n\
            %F: Equivalent to %Y-%m-%d (the ISO 8601 date format).\n\
            %h: Equivalent to %b.\n\
            %H: The hour as a decimal number using a 24-hour clock (range\n\
            00 to 23).\n\
            %I: The hour as a decimal number using a 12-hour clock (range\n\
            01 to 12).\n\
            %j: The day of the year as a decimal number (range 001 to\n\
            366).\n\
            %k: The hour (24-hour clock) as a decimal number (range 0 to\n\
            23); single digits are preceded by a blank.  (See also %H.)\n\
            %l: The hour (12-hour clock) as a decimal number (range 1 to\n\
            12); single digits are preceded by a blank.  (See also %I.)\n\
            %m: The month as a decimal number (range 01 to 12).\n\
            %M: The minute as a decimal number (range 00 to 59).\n\
            %n: A newline character.\n\
            %p: Either \"AM\" or \"PM\" according to the given time value.\n\
            Noon is treated as \"PM\" and midnight as \"AM\".\n\
            %r: Equivalent to %I:%M:%S %p.\n\
            %R: The time in 24-hour notation (%H:%M). For a version\n\
            including the seconds, see %T below.\n\
            %s: The number of seconds since the Epoch, 1970-01-01 00:00:00\n\
            +0000 (UTC).\n\
            %S: The second as a decimal number (range 00 to 60).  (The\n\
            range is up to 60 to allow for occasional leap seconds.)\n\
            %t: A tab character.\n\
            %T: The time in 24-hour notation (%H:%M:%S).\n\
            %u: The day of the week as a decimal, range 1 to 7, Monday\n\
            being 1.  See also %w.\n\
            %U: The week number of the current year as a decimal number,\n\
            range 00 to 53, starting with the first Sunday as the first\n\
            day of week 01.  See also %V and %W.\n\
            %v: Equivalent to %e-%b-%Y.\n\
            %V: The ISO 8601 week number of the current year as a decimal\n\
            number, range 01 to 53, where week 1 is the first week that\n\
            has at least 4 days in the new year.  See also %U and %W.\n\
            %w: The day of the week as a decimal, range 0 to 6, Sunday\n\
            being 0.  See also %u.\n\
            %W: The week number of the current year as a decimal number,\n\
            range 00 to 53, starting with the first Monday as the first\n\
            day of week 01.\n\
            %x: Equivalent to %a %b %d %Y.\n\
            %X: Equivalent to %T.\n\
            %y: The year as a decimal number without a century (range 00\n\
            to 99).\n\
            %Y: The year as a decimal number including a century.\n\
            %z: The UTC time-zone string = \"+0000\".\n\
            %Z: The UTC time-zone abbreviation = \"UTC\".\n\
            %+: The UTC date and time in default format of the Unix date\n\
            command which is equivalent to %a %b %d %T %Z %Y.\n\
            %%: A literal \"%\" character.\n\
      The conversion specifications which are extensions to those normally\n\
         provided by system strftime routines are the following: %(0-9):\n\
         The fractional part of the seconds field (including leading\n\
         decimal point) to the specified accuracy. Thus %S%3 would give\n\
         seconds to millisecond accuracy (00.000).\n\
            %.: The fractional part of the seconds field (including\n\
            leading decimal point) to the maximum available accuracy. Thus\n\
            %S%. would give seconds with fractional part up to 9 decimal\n\
            places if available.\n\
";
static const char* _wrap_plvasp_texinfo = "-*- texinfo -*-\n\
Specify viewport using aspect ratio only\n\
\n\
DESCRIPTION:\n\
\n\
    Selects the largest viewport with the given aspect ratio within the\n\
    subpage that leaves a standard margin (left-hand margin of eight\n\
    character heights, and a margin around the other three sides of five\n\
    character heights).\n\
\n\
    Redacted form: plvasp(aspect)\n\
\n\
    This function is used in example 13.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plvasp(aspect)\n\
\n\
ARGUMENTS:\n\
\n\
    aspect (PLFLT, input) :    Ratio of length of y axis to length of x\n\
        axis of resulting viewport.\n\
";
static const char* _wrap_plsfnam_texinfo = "-*- texinfo -*-\n\
Set output file name\n\
\n\
DESCRIPTION:\n\
\n\
    Sets the current output file name, if applicable.  If the file name\n\
    has not been specified and is required by the driver, the user will be\n\
    prompted for it.  If using the X-windows output driver, this sets the\n\
    display name.  This routine, if used, must be called before\n\
    initializing PLplot.\n\
\n\
    Redacted form: plsfnam(fnam)\n\
\n\
    This function is used in examples 1 and 20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsfnam(fnam)\n\
\n\
ARGUMENTS:\n\
\n\
    fnam (PLCHAR_VECTOR, input) :    An ascii character string containing\n\
        the file name.\n\
";
static const char* _wrap_plvect_texinfo = "-*- texinfo -*-\n\
Vector plot\n\
\n\
DESCRIPTION:\n\
\n\
    Draws a plot of vector data contained in the matrices (\n\
    u[\n\
    nx][\n\
    ny],\n\
    v[\n\
    nx][\n\
    ny]) . The scaling factor for the vectors is given by scale. A\n\
    transformation routine pointed to by pltr with a pointer pltr_data for\n\
    additional data required by the transformation routine to map indices\n\
    within the matrices to the world coordinates. The style of the vector\n\
    arrow may be set using plsvect.\n\
\n\
    Redacted form: plvect(u, v, scale, pltr, pltr_data) where (see above\n\
    discussion) the pltr, pltr_data callback arguments are sometimes\n\
    replaced by a tr vector with 6 elements, or xg and yg array arguments\n\
    with either one or two dimensions.\n\
\n\
    This function is used in example 22.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plvect(u, v, nx, ny, scale, pltr, pltr_data)\n\
\n\
ARGUMENTS:\n\
\n\
    u, v (PLFLT_MATRIX, input) :    A pair of matrices containing the x\n\
        and y components of the vector data to be plotted.\n\
\n\
    nx, ny (PLINT, input) :    Dimensions of the matrices u and v.\n\
\n\
    scale (PLFLT, input) :    Parameter to control the scaling factor of\n\
        the vectors for plotting. If scale = 0  then the scaling factor is\n\
        automatically calculated for the data. If scale < 0 then the\n\
        scaling factor is automatically calculated for the data and then\n\
        multiplied by -\n\
    scale. If scale > 0 then the scaling factor is set to scale.\n\
\n\
    pltr (PLTRANSFORM_callback, input) :    A callback function that\n\
        defines the transformation between the zero-based indices of the\n\
        matrices u and v and world coordinates.For the C case,\n\
        transformation functions are provided in the PLplot library: pltr0\n\
        for the identity mapping, and pltr1 and pltr2 for arbitrary\n\
        mappings respectively defined by vectors and matrices.  In\n\
        addition, C callback routines for the transformation can be\n\
        supplied by the user such as the mypltr function in\n\
        examples/c/x09c.c which provides a general linear transformation\n\
        between index coordinates and world coordinates.For languages\n\
        other than C you should consult the PLplot documentation for the\n\
        details concerning how PLTRANSFORM_callback arguments are\n\
        interfaced. However, in general, a particular pattern of\n\
        callback-associated arguments such as a tr vector with 6 elements;\n\
        xg and yg vectors; or xg and yg matrices are respectively\n\
        interfaced to a linear-transformation routine similar to the above\n\
        mypltr function; pltr1; and pltr2. Furthermore, some of our more\n\
        sophisticated bindings (see, e.g., the PLplot documentation)\n\
        support native language callbacks for handling index to\n\
        world-coordinate transformations.  Examples of these various\n\
        approaches are given in examples/<language>x09*,\n\
        examples/<language>x16*, examples/<language>x20*,\n\
        examples/<language>x21*, and examples/<language>x22*, for all our\n\
        supported languages.\n\
\n\
    pltr_data (PLPointer, input) :    Extra parameter to help pass\n\
        information to pltr0, pltr1, pltr2, or whatever callback routine\n\
        that is externally supplied.\n\
";
static const char* _wrap_plsdiplt_texinfo = "-*- texinfo -*-\n\
Set parameters that define current plot-space window\n\
\n\
DESCRIPTION:\n\
\n\
    Set relative minima and maxima that define the current plot-space\n\
    window.  If plsdiplt is not called the default values of xmin, ymin,\n\
    xmax, and ymax are 0., 0., 1., and 1.\n\
\n\
    Redacted form: plsdiplt(xmin, ymin, xmax, ymax)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsdiplt(xmin, ymin, xmax, ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT, input) :    Relative minimum in x.\n\
\n\
    ymin (PLFLT, input) :    Relative minimum in y.\n\
\n\
    xmax (PLFLT, input) :    Relative maximum in x.\n\
\n\
    ymax (PLFLT, input) :    Relative maximum in y.\n\
";
static const char* _wrap_pllsty_texinfo = "-*- texinfo -*-\n\
Select line style\n\
\n\
DESCRIPTION:\n\
\n\
    This sets the line style according to one of eight predefined patterns\n\
    (also see plstyl).\n\
\n\
    Redacted form: pllsty(lin)\n\
\n\
    This function is used in examples 9, 12, 22, and 25.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pllsty(lin)\n\
\n\
ARGUMENTS:\n\
\n\
    lin (PLINT, input) :    Integer value between 1 and 8. Line style 1 is\n\
        a continuous line, line style 2 is a line with short dashes and\n\
        gaps, line style 3 is a line with long dashes and gaps, line style\n\
        4 has long dashes and short gaps and so on.\n\
";
static const char* _wrap_plsym_texinfo = "-*- texinfo -*-\n\
Plot a glyph at the specified points\n\
\n\
DESCRIPTION:\n\
\n\
    Plot a glyph at the specified points.  (This function is largely\n\
    superseded by plstring which gives access to many[!] more glyphs.)\n\
\n\
    Redacted form: plsym(x, y, code)\n\
\n\
    This function is used in example 7.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsym(n, x, y, code)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of points in the x and y vectors.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        the points.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        the points.\n\
\n\
    code (PLINT, input) :    Hershey symbol code corresponding to a glyph\n\
        to be plotted at each of the n points.\n\
";
static const char* _wrap_plsdev_texinfo = "-*- texinfo -*-\n\
Set the device (keyword) name\n\
\n\
DESCRIPTION:\n\
\n\
    Set the device (keyword) name.\n\
\n\
    Redacted form: plsdev(devname)\n\
\n\
    This function is used in examples 1, 14, and 20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsdev(devname)\n\
\n\
ARGUMENTS:\n\
\n\
    devname (PLCHAR_VECTOR, input) :    An ascii character string\n\
        containing the device name keyword of the required output device.\n\
        If\n\
    devname is NULL or if the first character of the string is a ``?\'\',\n\
        the normal (prompted) start up is used.\n\
";
static const char* _wrap_plscolbg_texinfo = "-*- texinfo -*-\n\
Set the background color by 8-bit RGB value\n\
\n\
DESCRIPTION:\n\
\n\
    Set the background color (color 0 in cmap0) by 8-bit RGB value (see\n\
    the PLplot documentation).\n\
\n\
    Redacted form: plscolbg(r, g, b)\n\
\n\
    This function is used in examples 15 and 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscolbg(r, g, b)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of red in the color.\n\
\n\
    g (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of green in the color.\n\
\n\
    b (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of blue in the color.\n\
";
static const char* _wrap_plsdiplz_texinfo = "-*- texinfo -*-\n\
Set parameters incrementally (zoom mode) that define current plot-space window\n\
\n\
DESCRIPTION:\n\
\n\
    Set relative minima and maxima incrementally (zoom mode) that define\n\
    the current plot-space window.  This function has the same effect as\n\
    plsdiplt if that function has not been previously called.  Otherwise,\n\
    this function implements zoom mode using the transformation min_used =\n\
    old_min + old_length*min  and max_used = old_min + old_length*max  for\n\
    each axis.  For example, if min = 0.05 and max = 0.95 for each axis,\n\
    repeated calls to plsdiplz will zoom in by 10 per cent for each call.\n\
\n\
    Redacted form: plsdiplz(xmin, ymin, xmax, ymax)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsdiplz(xmin, ymin, xmax, ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    xmin (PLFLT, input) :    Relative (incremental) minimum in x.\n\
\n\
    ymin (PLFLT, input) :    Relative (incremental) minimum in y.\n\
\n\
    xmax (PLFLT, input) :    Relative (incremental) maximum in x.\n\
\n\
    ymax (PLFLT, input) :    Relative (incremental) maximum in y.\n\
";
static const char* _wrap_plfamadv_texinfo = "-*- texinfo -*-\n\
Advance to the next family file on the next new page\n\
\n\
DESCRIPTION:\n\
\n\
    Advance to the next family file on the next new page.\n\
\n\
    Redacted form: plfamadv()\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plfamadv()\n\
";
static const char* _wrap_plscmap0n_texinfo = "-*- texinfo -*-\n\
Set number of colors in cmap0\n\
\n\
DESCRIPTION:\n\
\n\
    Set number of colors in cmap0 (see the PLplot documentation). Allocate\n\
    (or reallocate) cmap0, and fill with default values for those colors\n\
    not previously allocated.  The first 16 default colors are given in\n\
    the plcol0 documentation.  For larger indices the default color is\n\
    red.\n\
\n\
    The drivers are not guaranteed to support more than 16 colors.\n\
\n\
    Redacted form: plscmap0n(ncol0)\n\
\n\
    This function is used in examples 15, 16, and 24.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscmap0n(ncol0)\n\
\n\
ARGUMENTS:\n\
\n\
    ncol0 (PLINT, input) :    Number of colors that will be allocated in\n\
        the cmap0 palette. If this number is zero or less, then the value\n\
        from the previous call to plscmap0n is used and if there is no\n\
        previous call, then a default value is used.\n\
";
static const char* _wrap_plmeridians_texinfo = "-*- texinfo -*-\n\
Plot latitude and longitude lines\n\
\n\
DESCRIPTION:\n\
\n\
    Displays latitude and longitude on the current plot.  The lines are\n\
    plotted in the current color and line style.\n\
\n\
    Redacted form: plmeridians(mapform, dlong, dlat, minlong, maxlong,\n\
    minlat, maxlat)\n\
\n\
    This function is used in example 19.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmeridians(mapform, dlong, dlat, minlong, maxlong, minlat, maxlat)\n\
\n\
ARGUMENTS:\n\
\n\
    mapform (PLMAPFORM_callback, input) :    A user supplied function to\n\
        transform the coordinate longitudes and latitudes to a plot\n\
        coordinate system. By using this transform, we can change from a\n\
        longitude, latitude coordinate to a polar stereographic project,\n\
        for example.  Initially, x[0]..[n-1] are the longitudes and\n\
        y[0]..y[n-1] are the corresponding latitudes.  After the call to\n\
        mapform(), x[] and y[] should be replaced by the corresponding\n\
        plot coordinates. If no transform is desired, mapform can be\n\
        replaced by NULL.\n\
\n\
    dlong (PLFLT, input) :    The interval in degrees at which the\n\
        longitude lines are to be plotted.\n\
\n\
    dlat (PLFLT, input) :    The interval in degrees at which the latitude\n\
        lines are to be plotted.\n\
\n\
    minlong (PLFLT, input) :    The value of the longitude on the left\n\
        side of the plot. The value of minlong must be less than the value\n\
        of maxlong, and the quantity maxlong-minlong must be less than or\n\
        equal to 360.\n\
\n\
    maxlong (PLFLT, input) :    The value of the longitude on the right\n\
        side of the plot.\n\
\n\
    minlat (PLFLT, input) :    The minimum latitude to be plotted on the\n\
        background. One can always use -90.0 as the boundary outside the\n\
        plot window will be automatically eliminated.  However, the\n\
        program will be faster if one can reduce the size of the\n\
        background plotted.\n\
\n\
    maxlat (PLFLT, input) :    The maximum latitudes to be plotted on the\n\
        background. One can always use 90.0 as the boundary outside the\n\
        plot window will be automatically eliminated.\n\
";
static const char* _wrap_plrgbhls_texinfo = "-*- texinfo -*-\n\
Convert RGB color to HLS\n\
\n\
DESCRIPTION:\n\
\n\
    Convert RGB color coordinates to HLS\n\
\n\
    Redacted form: General: plrgbhls(r, g, b, p_h, p_l, p_s)\n\
            Perl/PDL: Not available? Implemented as plrgb/plrgb1?\n\
\n\
\n\
    This function is used in example 2.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plrgbhls(r, g, b, p_h, p_l, p_s)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLFLT, input) :    Red intensity (0.0-1.0) of the color.\n\
\n\
    g (PLFLT, input) :    Green intensity (0.0-1.0) of the color.\n\
\n\
    b (PLFLT, input) :    Blue intensity (0.0-1.0) of the color.\n\
\n\
    p_h (PLFLT_NC_SCALAR, output) :    Returned value of the hue in\n\
        degrees (0.0-360.0) on the color cylinder.\n\
\n\
    p_l (PLFLT_NC_SCALAR, output) :    Returned value of the lightness\n\
        expressed as a fraction (0.0-1.0) of the axis of the color\n\
        cylinder.\n\
\n\
    p_s (PLFLT_NC_SCALAR, output) :    Returned value of the saturation\n\
        expressed as a fraction (0.0-1.0) of the radius of the color\n\
        cylinder.\n\
";
static const char* _wrap_plstring3_texinfo = "-*- texinfo -*-\n\
Plot a glyph at the specified 3D points\n\
\n\
DESCRIPTION:\n\
\n\
    Plot a glyph at the specified 3D points. (Supersedes plpoin3 because\n\
    many[!] more glyphs are accessible with plstring3.) Set up the call to\n\
    this function similar to what is done for plline3. The glyph is\n\
    specified with a PLplot user string.  Note that the user string is not\n\
    actually limited to one glyph so it is possible (but not normally\n\
    useful) to plot more than one glyph at the specified points with this\n\
    function.  As with plmtex and plptex, the user string can contain FCI\n\
    escapes to determine the font, UTF-8 code to determine the glyph or\n\
    else PLplot escapes for Hershey or unicode text to determine the\n\
    glyph.\n\
\n\
    Redacted form: plstring3(x, y, z, string)\n\
\n\
    This function is used in example 18.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstring3(n, x, y, z, string)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of points in the x, y, and z vectors.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        the points.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        the points.\n\
\n\
    z (PLFLT_VECTOR, input) :    A vector containing the z coordinates of\n\
        the points.\n\
\n\
    string (PLCHAR_VECTOR, input) :    A UTF-8 character string containing\n\
        the glyph(s) to be plotted at each of the n points. points.\n\
";
static const char* _wrap_pltext_texinfo = "-*- texinfo -*-\n\
Switch to text screen\n\
\n\
DESCRIPTION:\n\
\n\
    Sets an interactive device to text mode, used in conjunction with\n\
    plgra to allow graphics and text to be interspersed.  On a device\n\
    which supports separate text and graphics windows, this command causes\n\
    control to be switched to the text window.  This can be useful for\n\
    printing diagnostic messages or getting user input, which would\n\
    otherwise interfere with the plots.  The program must switch back to\n\
    the graphics window before issuing plot commands, as the text (or\n\
    console) device will probably become quite confused otherwise.  If\n\
    already in text mode, this command is ignored.  It is also ignored on\n\
    devices which only support a single window or use a different method\n\
    for shifting focus (see also plgra).\n\
\n\
    Redacted form: pltext()\n\
\n\
    This function is used in example 1.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pltext()\n\
";
static const char* _wrap_plgdiplt_texinfo = "-*- texinfo -*-\n\
Get parameters that define current plot-space window\n\
\n\
DESCRIPTION:\n\
\n\
    Get relative minima and maxima that define current plot-space window.\n\
    If plsdiplt has not been called the default values pointed to by\n\
    p_xmin, p_ymin, p_xmax, and p_ymax will be 0., 0., 1., and 1.\n\
\n\
    Redacted form: plgdiplt(p_xmin, p_ymin, p_xmax, p_ymax)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgdiplt(p_xmin, p_ymin, p_xmax, p_ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    p_xmin (PLFLT_NC_SCALAR, output) :    Returned value of the relative\n\
        minimum in x.\n\
\n\
    p_ymin (PLFLT_NC_SCALAR, output) :    Returned value of the relative\n\
        minimum in y.\n\
\n\
    p_xmax (PLFLT_NC_SCALAR, output) :    Returned value of the relative\n\
        maximum in x.\n\
\n\
    p_ymax (PLFLT_NC_SCALAR, output) :    Returned value of the relative\n\
        maximum in y.\n\
";
static const char* _wrap_plglevel_texinfo = "-*- texinfo -*-\n\
Get the (current) run level\n\
\n\
DESCRIPTION:\n\
\n\
    Get the (current) run level. Valid settings are: 0,  uninitialized\n\
            1,  initialized\n\
            2,  viewport defined\n\
            3,  world coordinates defined\n\
\n\
\n\
    Redacted form: plglevel(p_level)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plglevel(p_level)\n\
\n\
ARGUMENTS:\n\
\n\
    p_level (PLINT_NC_SCALAR, output) :    Returned value of the run\n\
        level.\n\
";
static const char* _wrap_plbin_texinfo = "-*- texinfo -*-\n\
Plot a histogram from binned data\n\
\n\
DESCRIPTION:\n\
\n\
    Plots a histogram consisting of nbin bins.  The value associated with\n\
    the i\'th bin is placed in x[i], and the number of points in the bin is\n\
    placed in y[i].  For proper operation, the values in x[i] must form a\n\
    strictly increasing sequence.  By default, x[i] is the left-hand edge\n\
    of the i\'th bin. If opt=PL_BIN_CENTRED is used, the bin boundaries are\n\
    placed midway between the values in the x vector.  Also see plhist for\n\
    drawing histograms from unbinned data.\n\
\n\
    Redacted form: General: plbin(x, y, opt)\n\
            Perl/PDL: plbin(nbin, x, y, opt)\n\
            Python: plbin(nbin, x, y, opt)\n\
\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plbin(nbin, x, y, opt)\n\
\n\
ARGUMENTS:\n\
\n\
    nbin (PLINT, input) :    Number of bins (i.e., number of values in x\n\
        and y vectors.)\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing values associated\n\
        with bins.  These must form a strictly increasing sequence.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing a number which is\n\
        proportional to the number of points in each bin.  This is a PLFLT\n\
        (instead of PLINT) vector so as to allow histograms of\n\
        probabilities, etc.\n\
\n\
    opt (PLINT, input) :    Is a combination of several flags:\n\
        opt=PL_BIN_DEFAULT: The x represent the lower bin boundaries, the\n\
        outer bins are expanded to fill up the entire x-axis and bins of\n\
        zero height are simply drawn.\n\
            opt=PL_BIN_CENTRED|...: The bin boundaries are to be midway\n\
            between the x values. If the values in x are equally spaced,\n\
            the values are the center values of the bins.\n\
            opt=PL_BIN_NOEXPAND|...: The outer bins are drawn with equal\n\
            size as the ones inside.\n\
            opt=PL_BIN_NOEMPTY|...: Bins with zero height are not drawn\n\
            (there is a gap for such bins).\n\
";
static const char* _wrap_plimagefr_texinfo = "-*- texinfo -*-\n\
Plot a 2D matrix using cmap1\n\
\n\
DESCRIPTION:\n\
\n\
    Plot a 2D matrix using cmap1.\n\
\n\
    Redacted form: General: plimagefr(idata, xmin, xmax, ymin, ymax, zmin,\n\
    zmax, valuemin, valuemax, pltr, pltr_data)\n\
\n\
\n\
    This function is used in example 20.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plimagefr(idata, nx, ny, xmin, xmax, ymin, ymax, zmin, zmax, valuemin, valuemax, pltr, pltr_data)\n\
\n\
ARGUMENTS:\n\
\n\
    idata (PLFLT_MATRIX, input) :    A matrix of values (intensities) to\n\
        plot.  Should have dimensions of\n\
    nx by\n\
    ny.\n\
\n\
    nx, ny (PLINT, input) :    Dimensions of idata\n\
\n\
    xmin, xmax, ymin, ymax (PLFLT, input) :    See the discussion of\n\
    pltr below for how these arguments are used (only for the special case\n\
        when the callback function\n\
    pltr is not supplied).\n\
\n\
    zmin, zmax (PLFLT, input) :    Only data between zmin and zmax\n\
        (inclusive) will be plotted.\n\
\n\
    valuemin, valuemax (PLFLT, input) :    The minimum and maximum data\n\
        values to use for value to color mappings.  A datum equal to or\n\
        less than valuemin will be plotted with color 0.0, while a datum\n\
        equal to or greater than valuemax will be plotted with color 1.0.\n\
        Data between valuemin and valuemax map linearly to colors in the\n\
        range (0.0-1.0).\n\
\n\
    pltr (PLTRANSFORM_callback, input) :    A callback function that\n\
        defines the transformation between the zero-based indices of the\n\
        matrix idata and world coordinates. If\n\
    pltr is not supplied (e.g., is set to NULL in the C case), then the x\n\
        indices of idata are mapped to the range\n\
    xmin through\n\
    xmax and the y indices of idata are mapped to the range\n\
    ymin through\n\
    ymax.For the C case, transformation functions are provided in the\n\
        PLplot library: pltr0 for the identity mapping, and pltr1 and\n\
        pltr2 for arbitrary mappings respectively defined by vectors and\n\
        matrices.  In addition, C callback routines for the transformation\n\
        can be supplied by the user such as the mypltr function in\n\
        examples/c/x09c.c which provides a general linear transformation\n\
        between index coordinates and world coordinates.For languages\n\
        other than C you should consult the PLplot documentation for the\n\
        details concerning how PLTRANSFORM_callback arguments are\n\
        interfaced. However, in general, a particular pattern of\n\
        callback-associated arguments such as a tr vector with 6 elements;\n\
        xg and yg vectors; or xg and yg matrices are respectively\n\
        interfaced to a linear-transformation routine similar to the above\n\
        mypltr function; pltr1; and pltr2. Furthermore, some of our more\n\
        sophisticated bindings (see, e.g., the PLplot documentation)\n\
        support native language callbacks for handling index to\n\
        world-coordinate transformations.  Examples of these various\n\
        approaches are given in examples/<language>x09*,\n\
        examples/<language>x16*, examples/<language>x20*,\n\
        examples/<language>x21*, and examples/<language>x22*, for all our\n\
        supported languages.\n\
\n\
    pltr_data (PLPointer, input) :    Extra parameter to help pass\n\
        information to pltr0, pltr1, pltr2, or whatever routine is\n\
        externally supplied.\n\
";
static const char* _wrap_plgfont_texinfo = "-*- texinfo -*-\n\
Get family, style and weight of the current font\n\
\n\
DESCRIPTION:\n\
\n\
    Gets information about current font.  See the PLplot documentation for\n\
    more information on font selection.\n\
\n\
    Redacted form: plgfont(p_family, p_style, p_weight)\n\
\n\
    This function is used in example 23.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgfont(p_family, p_style, p_weight)\n\
\n\
ARGUMENTS:\n\
\n\
    p_family (PLINT_NC_SCALAR, output) :    Returned value of the current\n\
        font family. The available values are given by the PL_FCI_*\n\
        constants in plplot.h. Current options are PL_FCI_SANS,\n\
        PL_FCI_SERIF, PL_FCI_MONO, PL_FCI_SCRIPT and PL_FCI_SYMBOL. If\n\
        p_family is NULL then the font family is not returned.\n\
\n\
    p_style (PLINT_NC_SCALAR, output) :    Returned value of the current\n\
        font style. The available values are given by the PL_FCI_*\n\
        constants in plplot.h.  Current options are PL_FCI_UPRIGHT,\n\
        PL_FCI_ITALIC and PL_FCI_OBLIQUE. If p_style is NULL then the font\n\
        style is not returned.\n\
\n\
    p_weight (PLINT_NC_SCALAR, output) :    Returned value of the current\n\
        font weight. The available values are given by the PL_FCI_*\n\
        constants in plplot.h.  Current options are PL_FCI_MEDIUM and\n\
        PL_FCI_BOLD. If p_weight is NULL then the font weight is not\n\
        returned.\n\
";
static const char* _wrap_plgzax_texinfo = "-*- texinfo -*-\n\
Get z axis parameters\n\
\n\
DESCRIPTION:\n\
\n\
    Identical to plgxax, except that arguments are flags for z axis. See\n\
    the description of plgxax for more detail.\n\
\n\
    Redacted form: plgzax(p_digmax, p_digits)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgzax(p_digmax, p_digits)\n\
\n\
ARGUMENTS:\n\
\n\
    p_digmax (PLINT_NC_SCALAR, output) :    Returned value of the maximum\n\
        number of digits for the z axis.  If nonzero, the printed label\n\
        has been switched to a floating-point representation when the\n\
        number of digits exceeds this value.\n\
\n\
    p_digits (PLINT_NC_SCALAR, output) :    Returned value of the actual\n\
        number of digits for the numeric labels (z axis) from the last\n\
        plot.\n\
";
static const char* _wrap_plptex3_texinfo = "-*- texinfo -*-\n\
Write text inside the viewport of a 3D plot\n\
\n\
DESCRIPTION:\n\
\n\
    Writes text at a specified position and inclination and with a\n\
    specified shear within the viewport.  Text is clipped at the viewport\n\
    boundaries.  The reference point of a string lies along a line passing\n\
    through the string at half the height of a capital letter.  The\n\
    position of the reference point along this line is determined by just,\n\
    and the reference point is placed at world coordinates (\n\
    wx,\n\
    wy,\n\
    wz)  within the viewport. The inclination and shear of the string is\n\
    specified in terms of differences of world coordinates making it easy\n\
    to write text parallel to a line in a graph.\n\
\n\
    Redacted form: plptex3(x, y, z, dx, dy, dz, sx, sy, sz, just, text)\n\
\n\
    This function is used in example 28.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plptex3(wx, wy, wz, dx, dy, dz, sx, sy, sz, just, text)\n\
\n\
ARGUMENTS:\n\
\n\
    wx (PLFLT, input) :    x world coordinate of reference point of\n\
        string.\n\
\n\
    wy (PLFLT, input) :    y world coordinate of reference point of\n\
        string.\n\
\n\
    wz (PLFLT, input) :    z world coordinate of reference point of\n\
        string.\n\
\n\
    dx (PLFLT, input) :    Together with dy and\n\
    dz , this specifies the inclination of the string.  The baseline of\n\
        the string is parallel to a line joining (\n\
    x,\n\
    y,\n\
    z)  to (\n\
    x+\n\
    dx,\n\
    y+\n\
    dy,\n\
    z+\n\
    dz) .\n\
\n\
    dy (PLFLT, input) :    Together with dx and\n\
    dz, this specifies the inclination of the string.\n\
\n\
    dz (PLFLT, input) :    Together with dx and\n\
    dy, this specifies the inclination of the string.\n\
\n\
    sx (PLFLT, input) :    Together with sy and\n\
    sz , this specifies the shear of the string.  The string is sheared so\n\
        that the characters are vertically parallel to a line joining (\n\
    x,\n\
    y,\n\
    z)  to (\n\
    x+\n\
    sx,\n\
    y+\n\
    sy,\n\
    z+\n\
    sz) . If sx =\n\
    sy =\n\
    sz = 0.)  then the text is not sheared.\n\
\n\
    sy (PLFLT, input) :    Together with sx and\n\
    sz, this specifies shear of the string.\n\
\n\
    sz (PLFLT, input) :    Together with sx and\n\
    sy, this specifies shear of the string.\n\
\n\
    just (PLFLT, input) :    Specifies the position of the string relative\n\
        to its reference point.  If just=0. , the reference point is at\n\
        the left and if just=1. , it is at the right of the string.  Other\n\
        values of just give intermediate justifications.\n\
\n\
    text (PLCHAR_VECTOR, input) :    A UTF-8 character string to be\n\
        written out.\n\
";
static const char* _wrap_plaxes_texinfo = "-*- texinfo -*-\n\
Draw a box with axes, etc. with arbitrary origin\n\
\n\
DESCRIPTION:\n\
\n\
    Draws a box around the currently defined viewport with arbitrary\n\
    world-coordinate origin specified by x0 and y0 and labels it with\n\
    world coordinate values appropriate to the window.  Thus plaxes should\n\
    only be called after defining both viewport and window.  The ascii\n\
    character strings xopt and yopt specify how the box should be drawn as\n\
    described below.  If ticks and/or subticks are to be drawn for a\n\
    particular axis, the tick intervals and number of subintervals may be\n\
    specified explicitly, or they may be defaulted by setting the\n\
    appropriate arguments to zero.\n\
\n\
    Redacted form: General: plaxes(x0, y0, xopt, xtick, nxsub, yopt,\n\
    ytick, nysub)\n\
            Perl/PDL: plaxes(x0, y0, xtick, nxsub, ytick, nysub, xopt,\n\
    yopt)\n\
\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plaxes(x0, y0, xopt, xtick, nxsub, yopt, ytick, nysub)\n\
\n\
ARGUMENTS:\n\
\n\
    x0 (PLFLT, input) :    World X coordinate of origin.\n\
\n\
    y0 (PLFLT, input) :    World Y coordinate of origin.\n\
\n\
    xopt (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        options for the x axis.  The string can include any combination of\n\
        the following letters (upper or lower case) in any order: a: Draws\n\
        axis, X-axis is horizontal line (y=0), and Y-axis is vertical line\n\
        (x=0).\n\
            b: Draws bottom (X) or left (Y) edge of frame.\n\
            c: Draws top (X) or right (Y) edge of frame.\n\
            d: Plot labels as date / time. Values are assumed to be\n\
            seconds since the epoch (as used by gmtime).\n\
            f:  Always use fixed point numeric labels.\n\
            g: Draws a grid at the major tick interval.\n\
            h: Draws a grid at the minor tick interval.\n\
            i: Inverts tick marks, so they are drawn outwards, rather than\n\
            inwards.\n\
            l: Labels axis logarithmically.  This only affects the labels,\n\
            not the data, and so it is necessary to compute the logarithms\n\
            of data points before passing them to any of the drawing\n\
            routines.\n\
            m: Writes numeric labels at major tick intervals in the\n\
            unconventional location (above box for X, right of box for Y).\n\
            n: Writes numeric labels at major tick intervals in the\n\
            conventional location (below box for X, left of box for Y).\n\
            o: Use custom labelling function to generate axis label text.\n\
            The custom labelling function can be defined with the\n\
            plslabelfunc command.\n\
            s: Enables subticks between major ticks, only valid if t is\n\
            also specified.\n\
            t: Draws major ticks.\n\
            u: Exactly like \"b\" except don\'t draw edge line.\n\
            w: Exactly like \"c\" except don\'t draw edge line.\n\
            x: Exactly like \"t\" (including the side effect of the\n\
            numerical labels for the major ticks) except exclude drawing\n\
            the major and minor tick marks.\n\
\n\
\n\
    xtick (PLFLT, input) :    World coordinate interval between major\n\
        ticks on the x axis. If it is set to zero, PLplot automatically\n\
        generates a suitable tick interval.\n\
\n\
    nxsub (PLINT, input) :    Number of subintervals between major x axis\n\
        ticks for minor ticks.  If it is set to zero, PLplot automatically\n\
        generates a suitable minor tick interval.\n\
\n\
    yopt (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        options for the y axis.  The string can include any combination of\n\
        the letters defined above for xopt, and in addition may contain:\n\
        v: Write numeric labels for the y axis parallel to the base of the\n\
        graph, rather than parallel to the axis.\n\
\n\
\n\
    ytick (PLFLT, input) :    World coordinate interval between major\n\
        ticks on the y axis. If it is set to zero, PLplot automatically\n\
        generates a suitable tick interval.\n\
\n\
    nysub (PLINT, input) :    Number of subintervals between major y axis\n\
        ticks for minor ticks.  If it is set to zero, PLplot automatically\n\
        generates a suitable minor tick interval.\n\
";
static const char* _wrap_plgcolbg_texinfo = "-*- texinfo -*-\n\
Returns the background color (cmap0[0]) by 8-bit RGB value\n\
\n\
DESCRIPTION:\n\
\n\
    Returns the background color (cmap0[0]) by 8-bit RGB value.\n\
\n\
    Redacted form: plgcolbg(r, g, b)\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgcolbg(r, g, b)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLINT_NC_SCALAR, output) :    Returned value of the red intensity\n\
        in the range from 0 to 255.\n\
\n\
    g (PLINT_NC_SCALAR, output) :    Returned value of the green intensity\n\
        in the range from 0 to 255.\n\
\n\
    b (PLINT_NC_SCALAR, output) :    Returned value of the blue intensity\n\
        in the range from 0 to 255.\n\
";
static const char* _wrap_plpoin3_texinfo = "-*- texinfo -*-\n\
Plot a glyph at the specified 3D points\n\
\n\
DESCRIPTION:\n\
\n\
    Plot a glyph at the specified 3D points.  (This function is largely\n\
    superseded by plstring3 which gives access to many[!] more glyphs.)\n\
    Set up the call to this function similar to what is done for plline3.\n\
    code=-1  means try to just draw a point.  Right now it\'s just a move\n\
    and a draw at the same place.  Not ideal, since a sufficiently\n\
    intelligent output device may optimize it away, or there may be faster\n\
    ways of doing it.  This is OK for now, though, and offers a 4X speedup\n\
    over drawing a Hershey font \"point\" (which is actually diamond shaped\n\
    and therefore takes 4 strokes to draw).  If 0 < code < 32, then a\n\
    useful (but small subset) of Hershey symbols is plotted.  If 32 <=\n\
    code <= 127 the corresponding printable ASCII character is plotted.\n\
\n\
    Redacted form: plpoin3(x, y, z, code)\n\
\n\
    This function is not used in any example.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plpoin3(n, x, y, z, code)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of points in the x and y vectors.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        points.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        points.\n\
\n\
    z (PLFLT_VECTOR, input) :    A vector containing the z coordinates of\n\
        points.\n\
\n\
    code (PLINT, input) :    Hershey symbol code (in \"ascii-indexed\" form\n\
        with -1 <= code <= 127) corresponding to a glyph to be plotted at\n\
        each of the n points.\n\
";
static const char* _wrap_plpoly3_texinfo = "-*- texinfo -*-\n\
Draw a polygon in 3 space\n\
\n\
DESCRIPTION:\n\
\n\
    Draws a polygon in 3 space defined by n points in x, y, and z. Setup\n\
    like plline3, but differs from that function in that plpoly3 attempts\n\
    to determine if the polygon is viewable depending on the order of the\n\
    points within the vector and the value of ifcc.  If the back of\n\
    polygon is facing the viewer, then it isn\'t drawn.  If this isn\'t what\n\
    you want, then use plline3 instead.\n\
\n\
    The points are assumed to be in a plane, and the directionality of the\n\
    plane is determined from the first three points.  Additional points do\n\
    not have to lie on the plane defined by the first three, but if they\n\
    do not, then the determination of visibility obviously can\'t be 100%\n\
    accurate... So if you\'re 3 space polygons are too far from planar,\n\
    consider breaking them into smaller polygons.  3 points define a plane\n\
    :-).\n\
\n\
    Bugs:  If one of the first two segments is of zero length, or if they\n\
    are co-linear, the calculation of visibility has a 50/50 chance of\n\
    being correct.  Avoid such situations :-).  See x18c.c for an example\n\
    of this problem. (Search for 20.1).\n\
\n\
    Redacted form: plpoly3(x, y, z, code)\n\
\n\
    This function is used in example 18.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plpoly3(n, x, y, z, draw, ifcc)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of points defining line.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing\n\
    n x coordinates of points.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing\n\
    n y coordinates of points.\n\
\n\
    z (PLFLT_VECTOR, input) :    A vector containing\n\
    n z coordinates of points.\n\
\n\
    draw (PLBOOL_VECTOR, input) :    A vector containing\n\
    n-1 Boolean values which control drawing the segments of the polygon.\n\
        If draw[i] is true, then the polygon segment from index [i] to\n\
        [i+1] is drawn, otherwise, not.\n\
\n\
    ifcc (PLBOOL, input) :    If ifcc is true the directionality of the\n\
        polygon is determined by assuming the points are laid out in a\n\
        counter-clockwise order.  Otherwise, the directionality of the\n\
        polygon is determined by assuming the points are laid out in a\n\
        clockwise order.\n\
";
static const char* _wrap_plscolbga_texinfo = "-*- texinfo -*-\n\
Set the background color by 8-bit RGB value and PLFLT alpha transparency value.\n\
\n\
DESCRIPTION:\n\
\n\
    Set the background color (color 0 in cmap0) by 8-bit RGB value and\n\
    PLFLT alpha transparency value (see the PLplot documentation).\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plscolbga(r, g, b, alpha)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of red in the color.\n\
\n\
    g (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of green in the color.\n\
\n\
    b (PLINT, input) :    Unsigned 8-bit integer (0-255) representing the\n\
        degree of blue in the color.\n\
\n\
    alpha (PLFLT, input) :    Value of the alpha transparency in the range\n\
        (0.0-1.0).\n\
";
static const char* _wrap_plgcolbga_texinfo = "-*- texinfo -*-\n\
Returns the background color (cmap0[0]) by 8-bit RGB value and PLFLT alpha transparency value\n\
\n\
DESCRIPTION:\n\
\n\
    Returns the background color (cmap0[0]) by 8-bit RGB value and PLFLT\n\
    alpha transparency value.\n\
\n\
    This function is used in example 31.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plgcolbga(r, g, b, alpha)\n\
\n\
ARGUMENTS:\n\
\n\
    r (PLINT_NC_SCALAR, output) :    Returned value of the red intensity\n\
        in the range from 0 to 255.\n\
\n\
    g (PLINT_NC_SCALAR, output) :    Returned value of the green intensity\n\
        in the range from 0 to 255.\n\
\n\
    b (PLINT_NC_SCALAR, output) :    Returned value of the blue intensity\n\
        in the range from 0 to 255.\n\
\n\
    alpha (PLFLT_NC_SCALAR, output) :    Returned value of the alpha\n\
        transparency in the range (0.0-1.0).\n\
";
static const char* _wrap_plerrx_texinfo = "-*- texinfo -*-\n\
Draw error bars in x direction\n\
\n\
DESCRIPTION:\n\
\n\
    Draws a set of n error bars in x direction, the i\'th error bar\n\
    extending from xmin[i] to xmax[i] at y coordinate y[i].  The terminals\n\
    of the error bars are of length equal to the minor tick length\n\
    (settable using plsmin).\n\
\n\
    Redacted form: General: plerrx(xmin, ymax, y)\n\
            Perl/PDL: plerrx(n, xmin, xmax, y)\n\
\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plerrx(n, xmin, xmax, y)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of error bars to draw.\n\
\n\
    xmin (PLFLT_VECTOR, input) :    A vector containing the x coordinates\n\
        of the left-hand endpoints of the error bars.\n\
\n\
    xmax (PLFLT_VECTOR, input) :    A vector containing the x coordinates\n\
        of the right-hand endpoints of the error bars.\n\
\n\
    y (PLFLT_VECTOR, input) :    A vector containing the y coordinates of\n\
        the error bars.\n\
";
static const char* _wrap_pleop_texinfo = "-*- texinfo -*-\n\
Eject current page\n\
\n\
DESCRIPTION:\n\
\n\
    Clears the graphics screen of an interactive device, or ejects a page\n\
    on a plotter.  See plbop for more information.\n\
\n\
    Redacted form: pleop()\n\
\n\
    This function is used in example 2,14.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
pleop()\n\
";
static const char* _wrap_plhlsrgb_texinfo = "-*- texinfo -*-\n\
Convert HLS color to RGB\n\
\n\
DESCRIPTION:\n\
\n\
    Convert HLS color coordinates to RGB.\n\
\n\
    Redacted form: General: plhlsrgb(h, l, s, p_r, p_g, p_b)\n\
            Perl/PDL: Not available? Implemented as plhls?\n\
\n\
\n\
    This function is used in example 2.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plhlsrgb(h, l, s, p_r, p_g, p_b)\n\
\n\
ARGUMENTS:\n\
\n\
    h (PLFLT, input) :    Hue in degrees (0.0-360.0) on the color\n\
        cylinder.\n\
\n\
    l (PLFLT, input) :    Lightness expressed as a fraction (0.0-1.0) of\n\
        the axis of the color cylinder.\n\
\n\
    s (PLFLT, input) :    Saturation expressed as a fraction (0.0-1.0) of\n\
        the radius of the color cylinder.\n\
\n\
    p_r (PLFLT_NC_SCALAR, output) :    Returned value of the red intensity\n\
        (0.0-1.0) of the color.\n\
\n\
    p_g (PLFLT_NC_SCALAR, output) :    Returned value of the green\n\
        intensity (0.0-1.0) of the color.\n\
\n\
    p_b (PLFLT_NC_SCALAR, output) :    Returned value of the blue\n\
        intensity (0.0-1.0) of the color.\n\
";
static const char* _wrap_plmapfill_texinfo = "-*- texinfo -*-\n\
Plot all or a subset of Shapefile data, filling the polygons\n\
\n\
DESCRIPTION:\n\
\n\
    As per plmapline, however the items are filled in the same way as\n\
    plfill.\n\
\n\
    Redacted form: plmapfill(mapform, name, minx, maxx, miny, maxy,\n\
    plotentries)\n\
\n\
    This function is used in example 19.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plmapfill(mapform, name, minx, maxx, miny, maxy, plotentries, nplotentries)\n\
\n\
ARGUMENTS:\n\
\n\
    mapform (PLMAPFORM_callback, input) :    A user supplied function to\n\
        transform the coordinates given in the shapefile into a plot\n\
        coordinate system. By using this transform, we can change from a\n\
        longitude, latitude coordinate to a polar stereographic project,\n\
        for example.  Initially, x[0]..[n-1] are the longitudes and\n\
        y[0]..y[n-1] are the corresponding latitudes.  After the call to\n\
        mapform(), x[] and y[] should be replaced by the corresponding\n\
        plot coordinates. If no transform is desired, mapform can be\n\
        replaced by NULL.\n\
\n\
    name (PLCHAR_VECTOR, input) :    An ascii character string specifying\n\
        the file name of a set of Shapefile files without the file\n\
        extension.\n\
\n\
    minx (PLFLT, input) :    The minimum x value to be plotted. This must\n\
        be in the same units as used by the Shapefile. You could use a\n\
        very large negative number to plot everything, but you can improve\n\
        performance by limiting the area drawn. The units must match those\n\
        of the Shapefile projection, which may be for example longitude or\n\
        distance. The value of minx must be less than the value of maxx.\n\
\n\
    maxx (PLFLT, input) :    The maximum x value to be plotted. You could\n\
        use a very large number to plot everything, but you can improve\n\
        performance by limiting the area drawn.\n\
\n\
    miny (PLFLT, input) :    The minimum y value to be plotted. This must\n\
        be in the same units as used by the Shapefile. You could use a\n\
        very large negative number to plot everything, but you can improve\n\
        performance by limiting the area drawn. The units must match those\n\
        of the Shapefile projection, which may be for example latitude or\n\
        distance. The value of miny must be less than the value of maxy.\n\
\n\
    maxy (PLFLT, input) :    The maximum y value to be plotted. You could\n\
        use a very large number to plot everything, but you can improve\n\
        performance by limiting the area drawn.\n\
\n\
    plotentries (PLINT_VECTOR, input) :    A vector containing the\n\
        zero-based indices of the Shapefile elements which will be drawn.\n\
        Setting\n\
    plotentries to NULL will plot all elements of the Shapefile.\n\
\n\
    nplotentries (PLINT, input) :    The number of items in\n\
    plotentries. Ignored if\n\
    plotentries is NULL.\n\
";
static const char* _wrap_plerry_texinfo = "-*- texinfo -*-\n\
Draw error bars in the y direction\n\
\n\
DESCRIPTION:\n\
\n\
    Draws a set of n error bars in the y direction, the i\'th error bar\n\
    extending from ymin[i] to ymax[i] at x coordinate x[i].  The terminals\n\
    of the error bars are of length equal to the minor tick length\n\
    (settable using plsmin).\n\
\n\
    Redacted form: General: plerry(x, ymin, ymax)\n\
            Perl/PDL: plerry(n, x, ymin, ymax)\n\
\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plerry(n, x, ymin, ymax)\n\
\n\
ARGUMENTS:\n\
\n\
    n (PLINT, input) :    Number of error bars to draw.\n\
\n\
    x (PLFLT_VECTOR, input) :    A vector containing the x coordinates of\n\
        the error bars.\n\
\n\
    ymin (PLFLT_VECTOR, input) :    A vector containing the y coordinates\n\
        of the lower endpoints of the error bars.\n\
\n\
    ymax (PLFLT_VECTOR, input) :    A vector containing the y coordinates\n\
        of the upper endpoints of the error bars.\n\
";
static const char* _wrap_plsfci_texinfo = "-*- texinfo -*-\n\
Set FCI (font characterization integer)\n\
\n\
DESCRIPTION:\n\
\n\
    Sets font characteristics to be used at the start of the next string\n\
    using the FCI approach.  See the PLplot documentation for more\n\
    information.  Note, plsfont (which calls plsfci internally) provides a\n\
    more user-friendly API for setting the font characterisitics.\n\
\n\
    Redacted form: General: plsfci(fci)\n\
            Perl/PDL: Not available?\n\
\n\
\n\
    This function is used in example 23.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plsfci(fci)\n\
\n\
ARGUMENTS:\n\
\n\
    fci (PLUNICODE, input) :    PLUNICODE (unsigned 32-bit integer) value\n\
        of FCI.\n\
";
static const char* _wrap_plpsty_texinfo = "-*- texinfo -*-\n\
Select area fill pattern\n\
\n\
DESCRIPTION:\n\
\n\
    If\n\
    patt is zero or less use either a hardware solid fill if the drivers\n\
    have that capability (virtually all do) or fall back to a software\n\
    emulation of a solid fill using the eighth area line fill pattern.  If\n\
    0 <\n\
    patt <= 8, then select one of eight predefined area line fill patterns\n\
    to use (see plpat if you desire other patterns).\n\
\n\
    Redacted form: plpsty(patt)\n\
\n\
    This function is used in examples 12, 13, 15, 16, and 25.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plpsty(patt)\n\
\n\
ARGUMENTS:\n\
\n\
    patt (PLINT, input) :    The desired pattern index. If\n\
    patt is zero or less, then a solid fill is (normally, see qualifiers\n\
        above) used.  For\n\
    patt in the range from 1 to 8 and assuming the driver has not supplied\n\
        line fill capability itself (most deliberately do not so that line\n\
        fill patterns look identical for those drivers), the patterns\n\
        consist of (1) horizontal lines, (2) vertical lines, (3) lines at\n\
        45 degrees, (4) lines at -45 degrees, (5) lines at 30 degrees, (6)\n\
        lines at -30 degrees, (7) both vertical and horizontal lines, and\n\
        (8) lines at both 45 degrees and -45 degrees.\n\
";
static const char* _wrap_plssym_texinfo = "-*- texinfo -*-\n\
Set symbol size\n\
\n\
DESCRIPTION:\n\
\n\
    This sets up the size of all subsequent symbols drawn by plpoin and\n\
    plsym.  The actual height of a symbol is the product of the default\n\
    symbol size and a scaling factor as for the character height.\n\
\n\
    Redacted form: plssym(def, scale)\n\
\n\
    This function is used in example 29.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plssym(def, scale)\n\
\n\
ARGUMENTS:\n\
\n\
    def (PLFLT, input) :    The default height of a symbol in millimeters,\n\
        should be set to zero if the default height is to remain\n\
        unchanged.\n\
\n\
    scale (PLFLT, input) :    Scale factor to be applied to default to get\n\
        actual symbol height.\n\
";
static const char* _wrap_plstart_texinfo = "-*- texinfo -*-\n\
Initialization\n\
\n\
DESCRIPTION:\n\
\n\
    Alternative to plstar for initializing the plotting package.  The\n\
    device name keyword for the desired output device must be supplied as\n\
    an argument.  These keywords are the same as those printed out by\n\
    plstar.  If the requested device is not available, or if the input\n\
    string is empty or begins with ``?\'\', the prompted start up of plstar\n\
    is used.  This routine also divides the output device page into nx by\n\
    ny subpages, each of which may be used independently.  The subroutine\n\
    pladv is used to advance from one subpage to the next.\n\
\n\
    Redacted form: General: plstart(devname, nx, ny)\n\
            Perl/PDL: plstart(nx, ny, devname)\n\
\n\
\n\
    This function is not used in any examples.\n\
\n\
\n\
\n\
SYNOPSIS:\n\
\n\
plstart(devname, nx, ny)\n\
\n\
ARGUMENTS:\n\
\n\
    devname (PLCHAR_VECTOR, input) :    An ascii character string\n\
        containing the device name keyword of the required output device.\n\
        If\n\
    devname is NULL or if the first character of the string is a ``?\'\',\n\
        the normal (prompted) start up is used.\n\
\n\
    nx (PLINT, input) :    Number of subpages to divide output page in the\n\
        x direction.\n\
\n\
    ny (PLINT, input) :    Number of subpages to divide output page in the\n\
        y direction.\n\
";

SWIG_DEFUN( testppchar, _wrap_testppchar, std::string() ) {
  PLINT arg1 ;
  PLINT *arg2 = (PLINT *) 0 ;
  char **arg3 = (char **) 0 ;
  Matrix temp1 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("testppchar",args.length(),2,2,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    arg2   = new PLINT[Alen];
    temp1 = args(0).matrix_value();
    _cvt_double_to( arg2, &temp1( 0, 0 ), Alen );
  }
  {
    charMatrix  temp_matrix;
    Cell        temp_cell;
    char        *tmp_cstring;
    std::string str;
    size_t      max_length = 0, non_blank_length;
    int         i, ifcell;
    if ( _n_dims( args(1) ) > 2 )
    {
      error( "argument must be a scalar or vector or matrix" ); SWIG_fail;
    }
    if ( !args(1).is_empty() )
    {
      if ( _dim( args(1), 0 ) != Alen )
      {
        error( "first dimension must be same length as previous vector" ); SWIG_fail;
      }
      arg3     = new char*[Alen];
      ifcell = args(1).is_cell();
      if ( ifcell )
      {
        temp_cell = args(1).cell_value();
      }
      else
      {
        temp_matrix = args(1).char_matrix_value();
        // Allow one extra space for null termination.
        max_length = _dim( args(1), 1 ) + 1;
      }
      
      for ( i = 0; i < Alen; i++ )
      {
        // Must copy string to "permanent" location because the string
        // location corresponding to tmp_cstring gets
        // overwritten for each iteration of loop.
        if ( ifcell )
        {
          if ( temp_cell.elem( i ).is_string() )
          {
            str = temp_cell.elem( i ).string_value();
            // leave room for null termination.
            max_length  = str.size() + 1;
            tmp_cstring = (char *) str.c_str();
          }
          else
          {
            // Use null string if user attempts to pass a cell array
            // with a non-string element (likely an empty element
            // since that should be allowed by the PLplot interface
            // if that element is going to be unused).
            // leave room for null termination.
            max_length  = 1;
            tmp_cstring = (char *) "";
          }
        }
        else
        {
          tmp_cstring = (char *) temp_matrix.row_as_string( i ).c_str();
        }
        arg3[i] = new char[max_length];
        strncpy( arg3[i], tmp_cstring, max_length - 1 );
        arg3[i][max_length - 1] = '\0';
        // All the trailing blank crapola should not be needed for
        // string cell arrays.
        if ( !ifcell )
        {
          // remove trailing-blank padding that is used by the
          // charMatrix class to insure all strings in a given
          // charMatrix instance have the same length.
          // This transformation also removes legitimate trailing
          // blanks but there is nothing we can do about that
          // for the charMatrix class.
          
          // Look for trailing nulls first (just in case, although that
          // shouldn't happen if charMatrix implemented as documented)
          // before looking for trailing blanks.
          non_blank_length = max_length - 2;
          while ( non_blank_length >= 0 && arg3[i][non_blank_length] == '\0' )
          {
            non_blank_length--;
          }
          while ( non_blank_length >= 0 && arg3[i][non_blank_length] == ' ' )
          {
            non_blank_length--;
          }
          arg3[i][non_blank_length + 1] = '\0';
        }
      }
    }
    else
    {
      arg3 = NULL;
    }
  }
  testppchar(arg1,(int const *)arg2,(char const **)arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    delete [] arg2;
  }
  {
    int i;
    if ( arg3 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg3[i];
      }
      delete[] arg3;
    }
  }
  return _out;
fail:
  {
    delete [] arg2;
  }
  {
    int i;
    if ( arg3 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg3[i];
      }
      delete[] arg3;
    }
  }
  return octave_value_list();
}


SWIG_DEFUN( plGetCursor, _wrap_plGetCursor, _wrap_plGetCursor_texinfo ) {
  int *arg1 = (int *) 0 ;
  int *arg2 = (int *) 0 ;
  int *arg3 = (int *) 0 ;
  char *arg4 = (char *) 0 ;
  int *arg5 = (int *) 0 ;
  int *arg6 = (int *) 0 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLFLT *arg9 = (PLFLT *) 0 ;
  PLFLT *arg10 = (PLFLT *) 0 ;
  int *arg11 = (int *) 0 ;
  int temp1 ;
  int res1 = SWIG_TMPOBJ ;
  int temp2 ;
  int res2 = SWIG_TMPOBJ ;
  int temp3 ;
  int res3 = SWIG_TMPOBJ ;
  octave_value_list retval4 ;
  int temp5 ;
  int res5 = SWIG_TMPOBJ ;
  int temp6 ;
  int res6 = SWIG_TMPOBJ ;
  PLFLT temp7 ;
  int res7 = SWIG_TMPOBJ ;
  PLFLT temp8 ;
  int res8 = SWIG_TMPOBJ ;
  PLFLT temp9 ;
  int res9 = SWIG_TMPOBJ ;
  PLFLT temp10 ;
  int res10 = SWIG_TMPOBJ ;
  int temp11 ;
  int res11 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  int result;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  {
    // Check if version >= 3.4.0
# if OCTAVE_API_VERSION_NUMBER < 45
    retval4( 0 ) = octave_value( charMatrix( 80, 1 ), true );
# else
    retval4( 0 ) = octave_value( charMatrix( 80, 1 ) );
# endif
    arg4 = (char *) retval4( 0 ).char_matrix_value().data();
  }
  arg5 = &temp5;
  arg6 = &temp6;
  arg7 = &temp7;
  arg8 = &temp8;
  arg9 = &temp9;
  arg10 = &temp10;
  arg11 = &temp11;
  if (!SWIG_check_num_args("plGetCursor",args.length(),0,0,0)) {
    SWIG_fail;
  }
  result = (int)my_plGetCursor(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
  _outv = SWIG_From_int((int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  {
    _outp = SWIG_Octave_AppendOutput( _outp, retval4( 0 ) );
  }
  if (SWIG_IsTmpObj(res5)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg5)));
  } else {
    int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res6)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg6)));
  } else {
    int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res7)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg7)));
  } else {
    int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res8)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg8)));
  } else {
    int new_flags = SWIG_IsNewObj(res8) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg8), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res9)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg9)));
  } else {
    int new_flags = SWIG_IsNewObj(res9) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg9), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res10)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg10)));
  } else {
    int new_flags = SWIG_IsNewObj(res10) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg10), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res11)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg11)));
  } else {
    int new_flags = SWIG_IsNewObj(res11) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg11), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plTranslateCursor, _wrap_plTranslateCursor, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  int result;
  
  arg1 = &temp1;
  arg2 = &temp2;
  if (!SWIG_check_num_args("plTranslateCursor",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode3 = SWIG_AsVal_double(args(0), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plTranslateCursor" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plTranslateCursor" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  result = (int)my_plTranslateCursor(arg1,arg2,arg3,arg4);
  _outv = SWIG_From_int((int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plstripc, _wrap_plstripc, _wrap_plstripc_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  char *arg2 = (char *) 0 ;
  char *arg3 = (char *) 0 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLBOOL arg11 ;
  PLBOOL arg12 ;
  PLINT arg13 ;
  PLINT arg14 ;
  PLINT *arg15 = (PLINT *) 0 ;
  PLINT *arg16 = (PLINT *) 0 ;
  char *arg17 = (char *) 0 ;
  char *arg18 = (char *) 0 ;
  char *arg19 = (char *) 0 ;
  char *arg20 = (char *) 0 ;
  char *arg21 = (char *) 0 ;
  char *arg22 = (char *) 0 ;
  char *arg23 = (char *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  int res3 ;
  char *buf3 = 0 ;
  int alloc3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  int val12 ;
  int ecode12 = 0 ;
  int val13 ;
  int ecode13 = 0 ;
  int val14 ;
  int ecode14 = 0 ;
  Matrix temp15 ;
  Matrix temp16 ;
  int res17 ;
  char *buf17 = 0 ;
  int alloc17 = 0 ;
  int res18 ;
  char *buf18 = 0 ;
  int alloc18 = 0 ;
  int res19 ;
  char *buf19 = 0 ;
  int alloc19 = 0 ;
  int res20 ;
  char *buf20 = 0 ;
  int alloc20 = 0 ;
  int res21 ;
  char *buf21 = 0 ;
  int alloc21 = 0 ;
  int res22 ;
  char *buf22 = 0 ;
  int alloc22 = 0 ;
  int res23 ;
  char *buf23 = 0 ;
  int alloc23 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  if (!SWIG_check_num_args("plstripc",args.length(),22,22,0)) {
    SWIG_fail;
  }
  res2 = SWIG_AsCharPtrAndSize(args(0), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plstripc" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  res3 = SWIG_AsCharPtrAndSize(args(1), &buf3, NULL, &alloc3);
  if (!SWIG_IsOK(res3)) {
    SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "plstripc" "', argument " "3"" of type '" "char const *""'");
  }
  arg3 = (char *)(buf3);
  ecode4 = SWIG_AsVal_double(args(2), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plstripc" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(3), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plstripc" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(4), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plstripc" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(5), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plstripc" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(6), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plstripc" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(7), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plstripc" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(8), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plstripc" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_int(args(9), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plstripc" "', argument " "11"" of type '" "PLBOOL""'");
  } 
  arg11 = (PLBOOL)(val11);
  ecode12 = SWIG_AsVal_int(args(10), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plstripc" "', argument " "12"" of type '" "PLBOOL""'");
  } 
  arg12 = (PLBOOL)(val12);
  ecode13 = SWIG_AsVal_int(args(11), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plstripc" "', argument " "13"" of type '" "PLINT""'");
  } 
  arg13 = (PLINT)(val13);
  ecode14 = SWIG_AsVal_int(args(12), &val14);
  if (!SWIG_IsOK(ecode14)) {
    SWIG_exception_fail(SWIG_ArgError(ecode14), "in method '" "plstripc" "', argument " "14"" of type '" "PLINT""'");
  } 
  arg14 = (PLINT)(val14);
  {
    if ( _n_dims( args(13) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    Alen = (PLINT) ( _dim( args(13), 0 ) );
    temp15 = args(13).matrix_value();
    arg15   = new PLINT[Alen];
    _cvt_double_to( arg15, &temp15( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(14) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(14), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp16 = args(14).matrix_value();
    arg16   = new PLINT[Alen];
    _cvt_double_to( arg16, &temp16( 0, 0 ), Alen );
  }
  res17 = SWIG_AsCharPtrAndSize(args(15), &buf17, NULL, &alloc17);
  if (!SWIG_IsOK(res17)) {
    SWIG_exception_fail(SWIG_ArgError(res17), "in method '" "plstripc" "', argument " "17"" of type '" "char const *""'");
  }
  arg17 = (char *)(buf17);
  res18 = SWIG_AsCharPtrAndSize(args(16), &buf18, NULL, &alloc18);
  if (!SWIG_IsOK(res18)) {
    SWIG_exception_fail(SWIG_ArgError(res18), "in method '" "plstripc" "', argument " "18"" of type '" "char const *""'");
  }
  arg18 = (char *)(buf18);
  res19 = SWIG_AsCharPtrAndSize(args(17), &buf19, NULL, &alloc19);
  if (!SWIG_IsOK(res19)) {
    SWIG_exception_fail(SWIG_ArgError(res19), "in method '" "plstripc" "', argument " "19"" of type '" "char const *""'");
  }
  arg19 = (char *)(buf19);
  res20 = SWIG_AsCharPtrAndSize(args(18), &buf20, NULL, &alloc20);
  if (!SWIG_IsOK(res20)) {
    SWIG_exception_fail(SWIG_ArgError(res20), "in method '" "plstripc" "', argument " "20"" of type '" "char const *""'");
  }
  arg20 = (char *)(buf20);
  res21 = SWIG_AsCharPtrAndSize(args(19), &buf21, NULL, &alloc21);
  if (!SWIG_IsOK(res21)) {
    SWIG_exception_fail(SWIG_ArgError(res21), "in method '" "plstripc" "', argument " "21"" of type '" "char const *""'");
  }
  arg21 = (char *)(buf21);
  res22 = SWIG_AsCharPtrAndSize(args(20), &buf22, NULL, &alloc22);
  if (!SWIG_IsOK(res22)) {
    SWIG_exception_fail(SWIG_ArgError(res22), "in method '" "plstripc" "', argument " "22"" of type '" "char const *""'");
  }
  arg22 = (char *)(buf22);
  res23 = SWIG_AsCharPtrAndSize(args(21), &buf23, NULL, &alloc23);
  if (!SWIG_IsOK(res23)) {
    SWIG_exception_fail(SWIG_ArgError(res23), "in method '" "plstripc" "', argument " "23"" of type '" "char const *""'");
  }
  arg23 = (char *)(buf23);
  my_plstripc(arg1,(char const *)arg2,(char const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,(int const *)arg15,(int const *)arg16,(char const *)arg17,(char const *)arg18,(char const *)arg19,(char const *)arg20,(char const *)arg21,(char const *)arg22,(char const *)arg23);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc3 == SWIG_NEWOBJ) delete[] buf3;
  {
    delete [] arg15;
  }
  {
    delete [] arg16;
  }
  if (alloc17 == SWIG_NEWOBJ) delete[] buf17;
  if (alloc18 == SWIG_NEWOBJ) delete[] buf18;
  if (alloc19 == SWIG_NEWOBJ) delete[] buf19;
  if (alloc20 == SWIG_NEWOBJ) delete[] buf20;
  if (alloc21 == SWIG_NEWOBJ) delete[] buf21;
  if (alloc22 == SWIG_NEWOBJ) delete[] buf22;
  if (alloc23 == SWIG_NEWOBJ) delete[] buf23;
  return _out;
fail:
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc3 == SWIG_NEWOBJ) delete[] buf3;
  {
    delete [] arg15;
  }
  {
    delete [] arg16;
  }
  if (alloc17 == SWIG_NEWOBJ) delete[] buf17;
  if (alloc18 == SWIG_NEWOBJ) delete[] buf18;
  if (alloc19 == SWIG_NEWOBJ) delete[] buf19;
  if (alloc20 == SWIG_NEWOBJ) delete[] buf20;
  if (alloc21 == SWIG_NEWOBJ) delete[] buf21;
  if (alloc22 == SWIG_NEWOBJ) delete[] buf22;
  if (alloc23 == SWIG_NEWOBJ) delete[] buf23;
  return octave_value_list();
}


SWIG_DEFUN( plcont, _wrap_plcont, _wrap_plcont_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLINT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  PLFLT *arg10 = (PLFLT *) 0 ;
  Matrix temp1 ;
  int val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  int val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  Matrix temp10 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plcont",args.length(),7,7,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_int(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plcont" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_int(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plcont" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plcont" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  ecode7 = SWIG_AsVal_int(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plcont" "', argument " "7"" of type '" "PLINT""'");
  } 
  arg7 = (PLINT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  {
    if ( _n_dims( args(6) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(6), 0 ) != 6 )
    {
      error( "argument vectors must have length of 6" ); SWIG_fail;
    }
    temp10 = args(6).matrix_value();
    arg10   = &temp10( 0, 0 );
  }
  my_plcont((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9,arg10);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plcont0, _wrap_plcont0, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLINT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  Matrix temp1 ;
  int val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  int val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plcont0",args.length(),6,6,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_int(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plcont0" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_int(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plcont0" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plcont0" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  ecode7 = SWIG_AsVal_int(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plcont0" "', argument " "7"" of type '" "PLINT""'");
  } 
  arg7 = (PLINT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  my_plcont0((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plcont1, _wrap_plcont1, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLINT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  PLFLT *arg10 = (PLFLT *) 0 ;
  PLFLT *arg11 = (PLFLT *) 0 ;
  Matrix temp1 ;
  int val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  int val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  Matrix temp10 ;
  Matrix temp11 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plcont1",args.length(),8,8,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_int(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plcont1" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_int(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plcont1" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plcont1" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  ecode7 = SWIG_AsVal_int(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plcont1" "', argument " "7"" of type '" "PLINT""'");
  } 
  arg7 = (PLINT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  {
    if ( _n_dims( args(6) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(6), 0 ) != Xlen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp10 = args(6).matrix_value();
    arg10   = &temp10( 0, 0 );
  }
  {
    if ( _n_dims( args(7) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(7), 0 ) != Ylen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp11 = args(7).matrix_value();
    arg11   = &temp11( 0, 0 );
  }
  my_plcont1((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9,(double const *)arg10,(double const *)arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plcont2, _wrap_plcont2, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLINT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  PLFLT *arg10 = (PLFLT *) 0 ;
  PLFLT *arg11 = (PLFLT *) 0 ;
  Matrix temp1 ;
  int val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  int val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  Matrix temp10 ;
  Matrix temp11 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plcont2",args.length(),8,8,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_int(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plcont2" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_int(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plcont2" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plcont2" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  ecode7 = SWIG_AsVal_int(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plcont2" "', argument " "7"" of type '" "PLINT""'");
  } 
  arg7 = (PLINT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  {
    if ( _n_dims( args(6) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(6), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(6), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp10 = args(6).matrix_value();
    arg10   = &temp10( 0, 0 );
  }
  {
    if ( _n_dims( args(7) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(7), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(7), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp11 = args(7).matrix_value();
    arg11   = &temp11( 0, 0 );
  }
  my_plcont2((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9,(double const *)arg10,(double const *)arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plcont2p, _wrap_plcont2p, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLINT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  PLFLT *arg10 = (PLFLT *) 0 ;
  PLFLT *arg11 = (PLFLT *) 0 ;
  Matrix temp1 ;
  int val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  int val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  Matrix temp10 ;
  Matrix temp11 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plcont2p",args.length(),8,8,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_int(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plcont2p" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_int(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plcont2p" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plcont2p" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  ecode7 = SWIG_AsVal_int(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plcont2p" "', argument " "7"" of type '" "PLINT""'");
  } 
  arg7 = (PLINT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  {
    if ( _n_dims( args(6) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(6), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(6), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp10 = args(6).matrix_value();
    arg10   = &temp10( 0, 0 );
  }
  {
    if ( _n_dims( args(7) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(7), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(7), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp11 = args(7).matrix_value();
    arg11   = &temp11( 0, 0 );
  }
  my_plcont2p((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9,(double const *)arg10,(double const *)arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plgriddata, _wrap_plgriddata, _wrap_plgriddata_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  PLFLT *arg5 = (PLFLT *) 0 ;
  PLINT arg6 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  PLINT arg8 ;
  PLFLT *arg9 = (PLFLT *) 0 ;
  PLINT arg10 ;
  PLFLT arg11 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  Matrix temp5 ;
  Matrix temp7 ;
  octave_value_list retval7 ;
  int val10 ;
  int ecode10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plgriddata",args.length(),7,7,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = &temp3( 0, 0 );
    arg4   = (PLINT) ( _dim( args(2), 0 ) );
  }
  {
    if ( _n_dims( args(3) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp5 = args(3).matrix_value();
    arg5   = &temp5( 0, 0 );
    arg6   = Xlen = (PLINT) ( _dim( args(3), 0 ) );
  }
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp7        = args(4).matrix_value();
    arg7          = &temp7( 0, 0 );
    arg8          = Ylen = (PLINT) ( _dim( args(4), 0 ) );
    retval7( 0 ) = octave_value( Matrix( Xlen, Ylen ) );
    arg9          = (PLFLT *) retval7( 0 ).matrix_value().data();
  }
  ecode10 = SWIG_AsVal_int(args(5), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plgriddata" "', argument " "10"" of type '" "PLINT""'");
  } 
  arg10 = (PLINT)(val10);
  ecode11 = SWIG_AsVal_double(args(6), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plgriddata" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  my_plgriddata((double const *)arg1,(double const *)arg2,(double const *)arg3,arg4,(double const *)arg5,arg6,(double const *)arg7,arg8,arg9,arg10,arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    _outp = SWIG_Octave_AppendOutput( _outp, retval7( 0 ) );
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plmesh, _wrap_plmesh, _wrap_plmesh_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  int val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmesh",args.length(),4,4,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    Ylen = (PLINT) ( _dim( args(1), 0 ) );
  }
  {
    if ( _n_dims( args(2) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = &temp3( 0, 0 );
    arg4   = (PLINT) ( _dim( args(2), 0 ) );
    arg5   = (PLINT) ( _dim( args(2), 1 ) );
  }
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plmesh" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  my_plmesh((double const *)arg1,(double const *)arg2,(double const *)arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plmeshc, _wrap_plmeshc, _wrap_plmeshc_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  PLINT arg8 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  int val6 ;
  int ecode6 = 0 ;
  Matrix temp7 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmeshc",args.length(),5,5,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    Ylen = (PLINT) ( _dim( args(1), 0 ) );
  }
  {
    if ( _n_dims( args(2) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = &temp3( 0, 0 );
    arg4   = (PLINT) ( _dim( args(2), 0 ) );
    arg5   = (PLINT) ( _dim( args(2), 1 ) );
  }
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plmeshc" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp7 = args(4).matrix_value();
    arg7   = &temp7( 0, 0 );
    arg8   = Alen = (PLINT) ( _dim( args(4), 0 ) );
  }
  my_plmeshc((double const *)arg1,(double const *)arg2,(double const *)arg3,arg4,arg5,arg6,(double const *)arg7,arg8);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plot3d, _wrap_plot3d, _wrap_plot3d_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLBOOL arg7 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  int val6 ;
  int ecode6 = 0 ;
  int val7 ;
  int ecode7 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plot3d",args.length(),5,5,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    Ylen = (PLINT) ( _dim( args(1), 0 ) );
  }
  {
    if ( _n_dims( args(2) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = &temp3( 0, 0 );
    arg4   = (PLINT) ( _dim( args(2), 0 ) );
    arg5   = (PLINT) ( _dim( args(2), 1 ) );
  }
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plot3d" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  ecode7 = SWIG_AsVal_int(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plot3d" "', argument " "7"" of type '" "PLBOOL""'");
  } 
  arg7 = (PLBOOL)(val7);
  my_plot3d((double const *)arg1,(double const *)arg2,(double const *)arg3,arg4,arg5,arg6,arg7);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plot3dc, _wrap_plot3dc, _wrap_plot3dc_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  PLINT arg8 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  int val6 ;
  int ecode6 = 0 ;
  Matrix temp7 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plot3dc",args.length(),5,5,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    Ylen = (PLINT) ( _dim( args(1), 0 ) );
  }
  {
    if ( _n_dims( args(2) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = &temp3( 0, 0 );
    arg4   = (PLINT) ( _dim( args(2), 0 ) );
    arg5   = (PLINT) ( _dim( args(2), 1 ) );
  }
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plot3dc" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp7 = args(4).matrix_value();
    arg7   = &temp7( 0, 0 );
    arg8   = Alen = (PLINT) ( _dim( args(4), 0 ) );
  }
  my_plot3dc((double const *)arg1,(double const *)arg2,(double const *)arg3,arg4,arg5,arg6,(double const *)arg7,arg8);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plot3dcl, _wrap_plot3dcl, _wrap_plot3dcl_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  PLINT arg8 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLINT *arg11 = (PLINT *) 0 ;
  PLINT *arg12 = (PLINT *) 0 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  int val6 ;
  int ecode6 = 0 ;
  Matrix temp7 ;
  int val9 ;
  int ecode9 = 0 ;
  Matrix temp10 ;
  Matrix temp12 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plot3dcl",args.length(),8,8,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    Ylen = (PLINT) ( _dim( args(1), 0 ) );
  }
  {
    if ( _n_dims( args(2) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = &temp3( 0, 0 );
    arg4   = (PLINT) ( _dim( args(2), 0 ) );
    arg5   = (PLINT) ( _dim( args(2), 1 ) );
  }
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plot3dcl" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp7 = args(4).matrix_value();
    arg7   = &temp7( 0, 0 );
    arg8   = Alen = (PLINT) ( _dim( args(4), 0 ) );
  }
  ecode9 = SWIG_AsVal_int(args(5), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plot3dcl" "', argument " "9"" of type '" "PLINT""'");
  } 
  arg9 = (PLINT)(val9);
  {
    if ( _n_dims( args(6) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg10   = Alen = (PLINT) ( _dim( args(6), 0 ) );
    arg11   = new PLINT[Alen];
    temp10 = args(6).matrix_value();
    _cvt_double_to( arg11, &temp10( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(7) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(7), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp12 = args(7).matrix_value();
    arg12   = new PLINT[Alen];
    _cvt_double_to( arg12, &temp12( 0, 0 ), Alen );
  }
  my_plot3dcl((double const *)arg1,(double const *)arg2,(double const *)arg3,arg4,arg5,arg6,(double const *)arg7,arg8,arg9,arg10,(int const *)arg11,(int const *)arg12);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg11;
  }
  {
    delete [] arg12;
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg11;
  }
  {
    delete [] arg12;
  }
  return octave_value_list();
}


SWIG_DEFUN( plsurf3d, _wrap_plsurf3d, _wrap_plsurf3d_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  PLINT arg8 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  int val6 ;
  int ecode6 = 0 ;
  Matrix temp7 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsurf3d",args.length(),5,5,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    Ylen = (PLINT) ( _dim( args(1), 0 ) );
  }
  {
    if ( _n_dims( args(2) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = &temp3( 0, 0 );
    arg4   = (PLINT) ( _dim( args(2), 0 ) );
    arg5   = (PLINT) ( _dim( args(2), 1 ) );
  }
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plsurf3d" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp7 = args(4).matrix_value();
    arg7   = &temp7( 0, 0 );
    arg8   = Alen = (PLINT) ( _dim( args(4), 0 ) );
  }
  my_plsurf3d((double const *)arg1,(double const *)arg2,(double const *)arg3,arg4,arg5,arg6,(double const *)arg7,arg8);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plsurf3dl, _wrap_plsurf3dl, _wrap_plsurf3dl_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  PLINT arg8 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLINT *arg11 = (PLINT *) 0 ;
  PLINT *arg12 = (PLINT *) 0 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  int val6 ;
  int ecode6 = 0 ;
  Matrix temp7 ;
  int val9 ;
  int ecode9 = 0 ;
  Matrix temp10 ;
  Matrix temp12 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsurf3dl",args.length(),8,8,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    Ylen = (PLINT) ( _dim( args(1), 0 ) );
  }
  {
    if ( _n_dims( args(2) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = &temp3( 0, 0 );
    arg4   = (PLINT) ( _dim( args(2), 0 ) );
    arg5   = (PLINT) ( _dim( args(2), 1 ) );
  }
  ecode6 = SWIG_AsVal_int(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plsurf3dl" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp7 = args(4).matrix_value();
    arg7   = &temp7( 0, 0 );
    arg8   = Alen = (PLINT) ( _dim( args(4), 0 ) );
  }
  ecode9 = SWIG_AsVal_int(args(5), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plsurf3dl" "', argument " "9"" of type '" "PLINT""'");
  } 
  arg9 = (PLINT)(val9);
  {
    if ( _n_dims( args(6) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg10   = Alen = (PLINT) ( _dim( args(6), 0 ) );
    arg11   = new PLINT[Alen];
    temp10 = args(6).matrix_value();
    _cvt_double_to( arg11, &temp10( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(7) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(7), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp12 = args(7).matrix_value();
    arg12   = new PLINT[Alen];
    _cvt_double_to( arg12, &temp12( 0, 0 ), Alen );
  }
  my_plsurf3dl((double const *)arg1,(double const *)arg2,(double const *)arg3,arg4,arg5,arg6,(double const *)arg7,arg8,arg9,arg10,(int const *)arg11,(int const *)arg12);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg11;
  }
  {
    delete [] arg12;
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg11;
  }
  {
    delete [] arg12;
  }
  return octave_value_list();
}


SWIG_DEFUN( plshade, _wrap_plshade, _wrap_plshade_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLINT arg11 ;
  PLFLT arg12 ;
  PLINT arg13 ;
  PLINT arg14 ;
  PLINT arg15 ;
  PLINT arg16 ;
  PLINT arg17 ;
  PLBOOL arg18 ;
  PLFLT *arg19 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp4 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  double val12 ;
  int ecode12 = 0 ;
  int val13 ;
  int ecode13 = 0 ;
  int val14 ;
  int ecode14 = 0 ;
  int val15 ;
  int ecode15 = 0 ;
  int val16 ;
  int ecode16 = 0 ;
  int val17 ;
  int ecode17 = 0 ;
  int val18 ;
  int ecode18 = 0 ;
  Matrix temp19 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plshade",args.length(),17,17,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    Alen = (PLINT) ( _dim( args(1), 0 ) );
    temp4 = args(1).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plshade" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plshade" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plshade" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plshade" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plshade" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plshade" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_int(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plshade" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_double(args(9), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plshade" "', argument " "12"" of type '" "PLFLT""'");
  } 
  arg12 = (PLFLT)(val12);
  ecode13 = SWIG_AsVal_int(args(10), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plshade" "', argument " "13"" of type '" "PLINT""'");
  } 
  arg13 = (PLINT)(val13);
  ecode14 = SWIG_AsVal_int(args(11), &val14);
  if (!SWIG_IsOK(ecode14)) {
    SWIG_exception_fail(SWIG_ArgError(ecode14), "in method '" "plshade" "', argument " "14"" of type '" "PLINT""'");
  } 
  arg14 = (PLINT)(val14);
  ecode15 = SWIG_AsVal_int(args(12), &val15);
  if (!SWIG_IsOK(ecode15)) {
    SWIG_exception_fail(SWIG_ArgError(ecode15), "in method '" "plshade" "', argument " "15"" of type '" "PLINT""'");
  } 
  arg15 = (PLINT)(val15);
  ecode16 = SWIG_AsVal_int(args(13), &val16);
  if (!SWIG_IsOK(ecode16)) {
    SWIG_exception_fail(SWIG_ArgError(ecode16), "in method '" "plshade" "', argument " "16"" of type '" "PLINT""'");
  } 
  arg16 = (PLINT)(val16);
  ecode17 = SWIG_AsVal_int(args(14), &val17);
  if (!SWIG_IsOK(ecode17)) {
    SWIG_exception_fail(SWIG_ArgError(ecode17), "in method '" "plshade" "', argument " "17"" of type '" "PLINT""'");
  } 
  arg17 = (PLINT)(val17);
  ecode18 = SWIG_AsVal_int(args(15), &val18);
  if (!SWIG_IsOK(ecode18)) {
    SWIG_exception_fail(SWIG_ArgError(ecode18), "in method '" "plshade" "', argument " "18"" of type '" "PLBOOL""'");
  } 
  arg18 = (PLBOOL)(val18);
  {
    if ( _n_dims( args(16) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(16), 0 ) != 6 )
    {
      error( "argument vectors must have length of 6" ); SWIG_fail;
    }
    temp19 = args(16).matrix_value();
    arg19   = &temp19( 0, 0 );
  }
  my_plshade((double const *)arg1,arg2,arg3,(double const *)arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plshade1, _wrap_plshade1, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  char *arg4 = (char *) 0 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLINT arg11 ;
  PLFLT arg12 ;
  PLINT arg13 ;
  PLINT arg14 ;
  PLINT arg15 ;
  PLINT arg16 ;
  PLINT arg17 ;
  PLBOOL arg18 ;
  PLFLT *arg19 = (PLFLT *) 0 ;
  PLFLT *arg20 = (PLFLT *) 0 ;
  Matrix temp1 ;
  int res4 ;
  char *buf4 = 0 ;
  int alloc4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  double val12 ;
  int ecode12 = 0 ;
  int val13 ;
  int ecode13 = 0 ;
  int val14 ;
  int ecode14 = 0 ;
  int val15 ;
  int ecode15 = 0 ;
  int val16 ;
  int ecode16 = 0 ;
  int val17 ;
  int ecode17 = 0 ;
  int val18 ;
  int ecode18 = 0 ;
  Matrix temp19 ;
  Matrix temp20 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plshade1",args.length(),18,18,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  res4 = SWIG_AsCharPtrAndSize(args(1), &buf4, NULL, &alloc4);
  if (!SWIG_IsOK(res4)) {
    SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "plshade1" "', argument " "4"" of type '" "char const *""'");
  }
  arg4 = (char *)(buf4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plshade1" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plshade1" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plshade1" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plshade1" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plshade1" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plshade1" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_int(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plshade1" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_double(args(9), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plshade1" "', argument " "12"" of type '" "PLFLT""'");
  } 
  arg12 = (PLFLT)(val12);
  ecode13 = SWIG_AsVal_int(args(10), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plshade1" "', argument " "13"" of type '" "PLINT""'");
  } 
  arg13 = (PLINT)(val13);
  ecode14 = SWIG_AsVal_int(args(11), &val14);
  if (!SWIG_IsOK(ecode14)) {
    SWIG_exception_fail(SWIG_ArgError(ecode14), "in method '" "plshade1" "', argument " "14"" of type '" "PLINT""'");
  } 
  arg14 = (PLINT)(val14);
  ecode15 = SWIG_AsVal_int(args(12), &val15);
  if (!SWIG_IsOK(ecode15)) {
    SWIG_exception_fail(SWIG_ArgError(ecode15), "in method '" "plshade1" "', argument " "15"" of type '" "PLINT""'");
  } 
  arg15 = (PLINT)(val15);
  ecode16 = SWIG_AsVal_int(args(13), &val16);
  if (!SWIG_IsOK(ecode16)) {
    SWIG_exception_fail(SWIG_ArgError(ecode16), "in method '" "plshade1" "', argument " "16"" of type '" "PLINT""'");
  } 
  arg16 = (PLINT)(val16);
  ecode17 = SWIG_AsVal_int(args(14), &val17);
  if (!SWIG_IsOK(ecode17)) {
    SWIG_exception_fail(SWIG_ArgError(ecode17), "in method '" "plshade1" "', argument " "17"" of type '" "PLINT""'");
  } 
  arg17 = (PLINT)(val17);
  ecode18 = SWIG_AsVal_int(args(15), &val18);
  if (!SWIG_IsOK(ecode18)) {
    SWIG_exception_fail(SWIG_ArgError(ecode18), "in method '" "plshade1" "', argument " "18"" of type '" "PLBOOL""'");
  } 
  arg18 = (PLBOOL)(val18);
  {
    if ( _n_dims( args(16) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(16), 0 ) != Xlen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp19 = args(16).matrix_value();
    arg19   = &temp19( 0, 0 );
  }
  {
    if ( _n_dims( args(17) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(17), 0 ) != Ylen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp20 = args(17).matrix_value();
    arg20   = &temp20( 0, 0 );
  }
  my_plshade1((double const *)arg1,arg2,arg3,(char const *)arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,(double const *)arg19,(double const *)arg20);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  if (alloc4 == SWIG_NEWOBJ) delete[] buf4;
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  if (alloc4 == SWIG_NEWOBJ) delete[] buf4;
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plshade2, _wrap_plshade2, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  char *arg4 = (char *) 0 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLINT arg11 ;
  PLFLT arg12 ;
  PLINT arg13 ;
  PLINT arg14 ;
  PLINT arg15 ;
  PLINT arg16 ;
  PLINT arg17 ;
  PLBOOL arg18 ;
  PLFLT *arg19 = (PLFLT *) 0 ;
  PLFLT *arg20 = (PLFLT *) 0 ;
  Matrix temp1 ;
  int res4 ;
  char *buf4 = 0 ;
  int alloc4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  double val12 ;
  int ecode12 = 0 ;
  int val13 ;
  int ecode13 = 0 ;
  int val14 ;
  int ecode14 = 0 ;
  int val15 ;
  int ecode15 = 0 ;
  int val16 ;
  int ecode16 = 0 ;
  int val17 ;
  int ecode17 = 0 ;
  int val18 ;
  int ecode18 = 0 ;
  Matrix temp19 ;
  Matrix temp20 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plshade2",args.length(),18,18,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  res4 = SWIG_AsCharPtrAndSize(args(1), &buf4, NULL, &alloc4);
  if (!SWIG_IsOK(res4)) {
    SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "plshade2" "', argument " "4"" of type '" "char const *""'");
  }
  arg4 = (char *)(buf4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plshade2" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plshade2" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plshade2" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plshade2" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plshade2" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plshade2" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_int(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plshade2" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_double(args(9), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plshade2" "', argument " "12"" of type '" "PLFLT""'");
  } 
  arg12 = (PLFLT)(val12);
  ecode13 = SWIG_AsVal_int(args(10), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plshade2" "', argument " "13"" of type '" "PLINT""'");
  } 
  arg13 = (PLINT)(val13);
  ecode14 = SWIG_AsVal_int(args(11), &val14);
  if (!SWIG_IsOK(ecode14)) {
    SWIG_exception_fail(SWIG_ArgError(ecode14), "in method '" "plshade2" "', argument " "14"" of type '" "PLINT""'");
  } 
  arg14 = (PLINT)(val14);
  ecode15 = SWIG_AsVal_int(args(12), &val15);
  if (!SWIG_IsOK(ecode15)) {
    SWIG_exception_fail(SWIG_ArgError(ecode15), "in method '" "plshade2" "', argument " "15"" of type '" "PLINT""'");
  } 
  arg15 = (PLINT)(val15);
  ecode16 = SWIG_AsVal_int(args(13), &val16);
  if (!SWIG_IsOK(ecode16)) {
    SWIG_exception_fail(SWIG_ArgError(ecode16), "in method '" "plshade2" "', argument " "16"" of type '" "PLINT""'");
  } 
  arg16 = (PLINT)(val16);
  ecode17 = SWIG_AsVal_int(args(14), &val17);
  if (!SWIG_IsOK(ecode17)) {
    SWIG_exception_fail(SWIG_ArgError(ecode17), "in method '" "plshade2" "', argument " "17"" of type '" "PLINT""'");
  } 
  arg17 = (PLINT)(val17);
  ecode18 = SWIG_AsVal_int(args(15), &val18);
  if (!SWIG_IsOK(ecode18)) {
    SWIG_exception_fail(SWIG_ArgError(ecode18), "in method '" "plshade2" "', argument " "18"" of type '" "PLBOOL""'");
  } 
  arg18 = (PLBOOL)(val18);
  {
    if ( _n_dims( args(16) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp19 = args(16).matrix_value();
    arg19   = &temp19( 0, 0 );
    Xlen = (PLINT) ( _dim( args(16), 0 ) );
    Ylen = (PLINT) ( _dim( args(16), 1 ) );
  }
  {
    if ( _n_dims( args(17) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp20 = args(17).matrix_value();
    arg20   = &temp20( 0, 0 );
    Xlen = (PLINT) ( _dim( args(17), 0 ) );
    Ylen = (PLINT) ( _dim( args(17), 1 ) );
  }
  my_plshade2((double const *)arg1,arg2,arg3,(char const *)arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,(double const *)arg19,(double const *)arg20);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  if (alloc4 == SWIG_NEWOBJ) delete[] buf4;
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  if (alloc4 == SWIG_NEWOBJ) delete[] buf4;
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plshades, _wrap_plshades, _wrap_plshades_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLINT arg11 ;
  PLINT arg12 ;
  PLBOOL arg13 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  int val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  int val12 ;
  int ecode12 = 0 ;
  int val13 ;
  int ecode13 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plshades",args.length(),10,10,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plshades" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plshades" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plshades" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plshades" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  ecode10 = SWIG_AsVal_int(args(6), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plshades" "', argument " "10"" of type '" "PLINT""'");
  } 
  arg10 = (PLINT)(val10);
  ecode11 = SWIG_AsVal_int(args(7), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plshades" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_int(args(8), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plshades" "', argument " "12"" of type '" "PLINT""'");
  } 
  arg12 = (PLINT)(val12);
  ecode13 = SWIG_AsVal_int(args(9), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plshades" "', argument " "13"" of type '" "PLBOOL""'");
  } 
  arg13 = (PLBOOL)(val13);
  my_plshades((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9,arg10,arg11,arg12,arg13);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plshadesx, _wrap_plshadesx, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLINT arg11 ;
  PLINT arg12 ;
  PLBOOL arg13 ;
  PLFLT *arg14 = (PLFLT *) 0 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  int val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  int val12 ;
  int ecode12 = 0 ;
  int val13 ;
  int ecode13 = 0 ;
  Matrix temp14 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plshadesx",args.length(),11,11,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plshadesx" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plshadesx" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plshadesx" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plshadesx" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  ecode10 = SWIG_AsVal_int(args(6), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plshadesx" "', argument " "10"" of type '" "PLINT""'");
  } 
  arg10 = (PLINT)(val10);
  ecode11 = SWIG_AsVal_int(args(7), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plshadesx" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_int(args(8), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plshadesx" "', argument " "12"" of type '" "PLINT""'");
  } 
  arg12 = (PLINT)(val12);
  ecode13 = SWIG_AsVal_int(args(9), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plshadesx" "', argument " "13"" of type '" "PLBOOL""'");
  } 
  arg13 = (PLBOOL)(val13);
  {
    if ( _n_dims( args(10) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(10), 0 ) != 6 )
    {
      error( "argument vectors must have length of 6" ); SWIG_fail;
    }
    temp14 = args(10).matrix_value();
    arg14   = &temp14( 0, 0 );
  }
  my_plshadesx((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9,arg10,arg11,arg12,arg13,arg14);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plshades1, _wrap_plshades1, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLINT arg11 ;
  PLINT arg12 ;
  PLBOOL arg13 ;
  PLFLT *arg14 = (PLFLT *) 0 ;
  PLFLT *arg15 = (PLFLT *) 0 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  int val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  int val12 ;
  int ecode12 = 0 ;
  int val13 ;
  int ecode13 = 0 ;
  Matrix temp14 ;
  Matrix temp15 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plshades1",args.length(),12,12,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plshades1" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plshades1" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plshades1" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plshades1" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  ecode10 = SWIG_AsVal_int(args(6), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plshades1" "', argument " "10"" of type '" "PLINT""'");
  } 
  arg10 = (PLINT)(val10);
  ecode11 = SWIG_AsVal_int(args(7), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plshades1" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_int(args(8), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plshades1" "', argument " "12"" of type '" "PLINT""'");
  } 
  arg12 = (PLINT)(val12);
  ecode13 = SWIG_AsVal_int(args(9), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plshades1" "', argument " "13"" of type '" "PLBOOL""'");
  } 
  arg13 = (PLBOOL)(val13);
  {
    if ( _n_dims( args(10) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(10), 0 ) != Xlen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp14 = args(10).matrix_value();
    arg14   = &temp14( 0, 0 );
  }
  {
    if ( _n_dims( args(11) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(11), 0 ) != Ylen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp15 = args(11).matrix_value();
    arg15   = &temp15( 0, 0 );
  }
  my_plshades1((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9,arg10,arg11,arg12,arg13,(double const *)arg14,(double const *)arg15);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plshades2, _wrap_plshades2, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT *arg8 = (PLFLT *) 0 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLINT arg11 ;
  PLINT arg12 ;
  PLBOOL arg13 ;
  PLFLT *arg14 = (PLFLT *) 0 ;
  PLFLT *arg15 = (PLFLT *) 0 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  int val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  int val12 ;
  int ecode12 = 0 ;
  int val13 ;
  int ecode13 = 0 ;
  Matrix temp14 ;
  Matrix temp15 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plshades2",args.length(),12,12,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plshades2" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plshades2" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plshades2" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plshades2" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    temp8 = args(5).matrix_value();
    arg8   = &temp8( 0, 0 );
    arg9   = Alen = (PLINT) ( _dim( args(5), 0 ) );
  }
  ecode10 = SWIG_AsVal_int(args(6), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plshades2" "', argument " "10"" of type '" "PLINT""'");
  } 
  arg10 = (PLINT)(val10);
  ecode11 = SWIG_AsVal_int(args(7), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plshades2" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_int(args(8), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plshades2" "', argument " "12"" of type '" "PLINT""'");
  } 
  arg12 = (PLINT)(val12);
  ecode13 = SWIG_AsVal_int(args(9), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plshades2" "', argument " "13"" of type '" "PLBOOL""'");
  } 
  arg13 = (PLBOOL)(val13);
  {
    if ( _n_dims( args(10) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp14 = args(10).matrix_value();
    arg14   = &temp14( 0, 0 );
    Xlen = (PLINT) ( _dim( args(10), 0 ) );
    Ylen = (PLINT) ( _dim( args(10), 1 ) );
  }
  {
    if ( _n_dims( args(11) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp15 = args(11).matrix_value();
    arg15   = &temp15( 0, 0 );
    Xlen = (PLINT) ( _dim( args(11), 0 ) );
    Ylen = (PLINT) ( _dim( args(11), 1 ) );
  }
  my_plshades2((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(double const *)arg8,arg9,arg10,arg11,arg12,arg13,(double const *)arg14,(double const *)arg15);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plvect, _wrap_plvect, _wrap_plvect_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLFLT arg5 ;
  PLFLT *arg6 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp2 ;
  double val5 ;
  int ecode5 = 0 ;
  Matrix temp6 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plvect",args.length(),4,4,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
    Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  {
    if ( _n_dims( args(1) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    arg3   = (PLINT) ( _dim( args(1), 0 ) );
    arg4   = (PLINT) ( _dim( args(1), 1 ) );
  }
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plvect" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  {
    if ( _n_dims( args(3) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(3), 0 ) != 6 )
    {
      error( "argument vectors must have length of 6" ); SWIG_fail;
    }
    temp6 = args(3).matrix_value();
    arg6   = &temp6( 0, 0 );
  }
  my_plvect((double const *)arg1,(double const *)arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plvect1, _wrap_plvect1, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLFLT arg5 ;
  PLFLT *arg6 = (PLFLT *) 0 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp2 ;
  double val5 ;
  int ecode5 = 0 ;
  Matrix temp6 ;
  Matrix temp7 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plvect1",args.length(),5,5,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
    Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  {
    if ( _n_dims( args(1) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    arg3   = (PLINT) ( _dim( args(1), 0 ) );
    arg4   = (PLINT) ( _dim( args(1), 1 ) );
  }
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plvect1" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  {
    if ( _n_dims( args(3) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(3), 0 ) != Xlen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp6 = args(3).matrix_value();
    arg6   = &temp6( 0, 0 );
  }
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(4), 0 ) != Ylen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp7 = args(4).matrix_value();
    arg7   = &temp7( 0, 0 );
  }
  my_plvect1((double const *)arg1,(double const *)arg2,arg3,arg4,arg5,(double const *)arg6,(double const *)arg7);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plvect2, _wrap_plvect2, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLFLT arg5 ;
  PLFLT *arg6 = (PLFLT *) 0 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp2 ;
  double val5 ;
  int ecode5 = 0 ;
  Matrix temp6 ;
  Matrix temp7 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plvect2",args.length(),5,5,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    Xlen = (PLINT) ( _dim( args(0), 0 ) );
    Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  {
    if ( _n_dims( args(1) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = &temp2( 0, 0 );
    arg3   = (PLINT) ( _dim( args(1), 0 ) );
    arg4   = (PLINT) ( _dim( args(1), 1 ) );
  }
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plvect2" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  {
    if ( _n_dims( args(3) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp6 = args(3).matrix_value();
    arg6   = &temp6( 0, 0 );
    Xlen = (PLINT) ( _dim( args(3), 0 ) );
    Ylen = (PLINT) ( _dim( args(3), 1 ) );
  }
  {
    if ( _n_dims( args(4) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp7 = args(4).matrix_value();
    arg7   = &temp7( 0, 0 );
    Xlen = (PLINT) ( _dim( args(4), 0 ) );
    Ylen = (PLINT) ( _dim( args(4), 1 ) );
  }
  my_plvect2((double const *)arg1,(double const *)arg2,arg3,arg4,arg5,(double const *)arg6,(double const *)arg7);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( pplimage, _wrap_pplimage, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLFLT arg11 ;
  PLFLT arg12 ;
  PLFLT arg13 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  double val12 ;
  int ecode12 = 0 ;
  double val13 ;
  int ecode13 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pplimage",args.length(),11,11,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "pplimage" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "pplimage" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "pplimage" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "pplimage" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "pplimage" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "pplimage" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "pplimage" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_double(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "pplimage" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  ecode12 = SWIG_AsVal_double(args(9), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "pplimage" "', argument " "12"" of type '" "PLFLT""'");
  } 
  arg12 = (PLFLT)(val12);
  ecode13 = SWIG_AsVal_double(args(10), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "pplimage" "', argument " "13"" of type '" "PLFLT""'");
  } 
  arg13 = (PLFLT)(val13);
  my_plimage((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  return _out;
fail:
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plimagefr, _wrap_plimagefr, _wrap_plimagefr_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLFLT arg11 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plimagefr",args.length(),9,9,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plimagefr" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plimagefr" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plimagefr" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plimagefr" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plimagefr" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plimagefr" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plimagefr" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_double(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plimagefr" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  my_plimagefr((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  return _out;
fail:
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plimagefrx, _wrap_plimagefrx, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLFLT arg11 ;
  PLFLT *arg12 = (PLFLT *) 0 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  Matrix temp12 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plimagefrx",args.length(),10,10,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plimagefrx" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plimagefrx" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plimagefrx" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plimagefrx" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plimagefrx" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plimagefrx" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plimagefrx" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_double(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plimagefrx" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  {
    if ( _n_dims( args(9) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(9), 0 ) != 6 )
    {
      error( "argument vectors must have length of 6" ); SWIG_fail;
    }
    temp12 = args(9).matrix_value();
    arg12   = &temp12( 0, 0 );
  }
  my_plimagefrx((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plimagefr1, _wrap_plimagefr1, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLFLT arg11 ;
  PLFLT *arg12 = (PLFLT *) 0 ;
  PLFLT *arg13 = (PLFLT *) 0 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  Matrix temp12 ;
  Matrix temp13 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plimagefr1",args.length(),11,11,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plimagefr1" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plimagefr1" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plimagefr1" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plimagefr1" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plimagefr1" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plimagefr1" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plimagefr1" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_double(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plimagefr1" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  {
    if ( _n_dims( args(9) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(9), 0 ) != Xlen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp12 = args(9).matrix_value();
    arg12   = &temp12( 0, 0 );
  }
  {
    if ( _n_dims( args(10) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(10), 0 ) != Ylen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp13 = args(10).matrix_value();
    arg13   = &temp13( 0, 0 );
  }
  my_plimagefr1((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,(double const *)arg12,(double const *)arg13);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plimagefr2, _wrap_plimagefr2, std::string() ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLFLT arg11 ;
  PLFLT *arg12 = (PLFLT *) 0 ;
  PLFLT *arg13 = (PLFLT *) 0 ;
  Matrix temp1 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  Matrix temp12 ;
  Matrix temp13 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plimagefr2",args.length(),11,11,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp1 = args(0).matrix_value();
    arg1   = &temp1( 0, 0 );
    arg2   = Xlen = (PLINT) ( _dim( args(0), 0 ) );
    arg3   = Ylen = (PLINT) ( _dim( args(0), 1 ) );
  }
  ecode4 = SWIG_AsVal_double(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plimagefr2" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plimagefr2" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plimagefr2" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plimagefr2" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plimagefr2" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plimagefr2" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plimagefr2" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_double(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plimagefr2" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  {
    if ( _n_dims( args(9) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp12 = args(9).matrix_value();
    arg12   = &temp12( 0, 0 );
    Xlen = (PLINT) ( _dim( args(9), 0 ) );
    Ylen = (PLINT) ( _dim( args(9), 1 ) );
  }
  {
    if ( _n_dims( args(10) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    temp13 = args(10).matrix_value();
    arg13   = &temp13( 0, 0 );
    Xlen = (PLINT) ( _dim( args(10), 0 ) );
    Ylen = (PLINT) ( _dim( args(10), 1 ) );
  }
  my_plimagefr2((double const *)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,(double const *)arg12,(double const *)arg13);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plcolorbar, _wrap_plcolorbar, _wrap_plcolorbar_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLINT arg11 ;
  PLFLT arg12 ;
  PLFLT arg13 ;
  PLINT arg14 ;
  PLFLT arg15 ;
  PLINT arg16 ;
  PLINT *arg17 = (PLINT *) 0 ;
  char **arg18 = (char **) 0 ;
  PLINT arg19 ;
  char **arg20 = (char **) 0 ;
  PLFLT *arg21 = (PLFLT *) 0 ;
  PLINT *arg22 = (PLINT *) 0 ;
  PLINT *arg23 = (PLINT *) 0 ;
  PLFLT *arg24 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  int val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  int val9 ;
  int ecode9 = 0 ;
  int val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  double val12 ;
  int ecode12 = 0 ;
  double val13 ;
  int ecode13 = 0 ;
  int val14 ;
  int ecode14 = 0 ;
  double val15 ;
  int ecode15 = 0 ;
  Matrix temp16 ;
  Matrix temp21 ;
  Matrix temp22 ;
  Matrix temp23 ;
  Matrix temp24 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  if (!SWIG_check_num_args("plcolorbar",args.length(),20,20,0)) {
    SWIG_fail;
  }
  ecode3 = SWIG_AsVal_int(args(0), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plcolorbar" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  ecode4 = SWIG_AsVal_int(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plcolorbar" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plcolorbar" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plcolorbar" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plcolorbar" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plcolorbar" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_int(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plcolorbar" "', argument " "9"" of type '" "PLINT""'");
  } 
  arg9 = (PLINT)(val9);
  ecode10 = SWIG_AsVal_int(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plcolorbar" "', argument " "10"" of type '" "PLINT""'");
  } 
  arg10 = (PLINT)(val10);
  ecode11 = SWIG_AsVal_int(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plcolorbar" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_double(args(9), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plcolorbar" "', argument " "12"" of type '" "PLFLT""'");
  } 
  arg12 = (PLFLT)(val12);
  ecode13 = SWIG_AsVal_double(args(10), &val13);
  if (!SWIG_IsOK(ecode13)) {
    SWIG_exception_fail(SWIG_ArgError(ecode13), "in method '" "plcolorbar" "', argument " "13"" of type '" "PLFLT""'");
  } 
  arg13 = (PLFLT)(val13);
  ecode14 = SWIG_AsVal_int(args(11), &val14);
  if (!SWIG_IsOK(ecode14)) {
    SWIG_exception_fail(SWIG_ArgError(ecode14), "in method '" "plcolorbar" "', argument " "14"" of type '" "PLINT""'");
  } 
  arg14 = (PLINT)(val14);
  ecode15 = SWIG_AsVal_double(args(12), &val15);
  if (!SWIG_IsOK(ecode15)) {
    SWIG_exception_fail(SWIG_ArgError(ecode15), "in method '" "plcolorbar" "', argument " "15"" of type '" "PLFLT""'");
  } 
  arg15 = (PLFLT)(val15);
  {
    if ( _n_dims( args(13) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg16   = Alen = (PLINT) ( _dim( args(13), 0 ) );
    arg17   = new PLINT[Alen];
    temp16 = args(13).matrix_value();
    _cvt_double_to( arg17, &temp16( 0, 0 ), Alen );
  }
  {
    charMatrix  temp_matrix;
    Cell        temp_cell;
    char        *tmp_cstring;
    std::string str;
    size_t      max_length = 0, non_blank_length;
    int         i, ifcell;
    if ( _n_dims( args(14) ) > 2 )
    {
      error( "argument must be a scalar or vector or matrix" ); SWIG_fail;
    }
    if ( !args(14).is_empty() )
    {
      if ( _dim( args(14), 0 ) != Alen )
      {
        error( "first dimension must be same length as previous vector" ); SWIG_fail;
      }
      arg18     = new char*[Alen];
      ifcell = args(14).is_cell();
      if ( ifcell )
      {
        temp_cell = args(14).cell_value();
      }
      else
      {
        temp_matrix = args(14).char_matrix_value();
        // Allow one extra space for null termination.
        max_length = _dim( args(14), 1 ) + 1;
      }
      
      for ( i = 0; i < Alen; i++ )
      {
        // Must copy string to "permanent" location because the string
        // location corresponding to tmp_cstring gets
        // overwritten for each iteration of loop.
        if ( ifcell )
        {
          if ( temp_cell.elem( i ).is_string() )
          {
            str = temp_cell.elem( i ).string_value();
            // leave room for null termination.
            max_length  = str.size() + 1;
            tmp_cstring = (char *) str.c_str();
          }
          else
          {
            // Use null string if user attempts to pass a cell array
            // with a non-string element (likely an empty element
            // since that should be allowed by the PLplot interface
            // if that element is going to be unused).
            // leave room for null termination.
            max_length  = 1;
            tmp_cstring = (char *) "";
          }
        }
        else
        {
          tmp_cstring = (char *) temp_matrix.row_as_string( i ).c_str();
        }
        arg18[i] = new char[max_length];
        strncpy( arg18[i], tmp_cstring, max_length - 1 );
        arg18[i][max_length - 1] = '\0';
        // All the trailing blank crapola should not be needed for
        // string cell arrays.
        if ( !ifcell )
        {
          // remove trailing-blank padding that is used by the
          // charMatrix class to insure all strings in a given
          // charMatrix instance have the same length.
          // This transformation also removes legitimate trailing
          // blanks but there is nothing we can do about that
          // for the charMatrix class.
          
          // Look for trailing nulls first (just in case, although that
          // shouldn't happen if charMatrix implemented as documented)
          // before looking for trailing blanks.
          non_blank_length = max_length - 2;
          while ( non_blank_length >= 0 && arg18[i][non_blank_length] == '\0' )
          {
            non_blank_length--;
          }
          while ( non_blank_length >= 0 && arg18[i][non_blank_length] == ' ' )
          {
            non_blank_length--;
          }
          arg18[i][non_blank_length + 1] = '\0';
        }
      }
    }
    else
    {
      arg18 = NULL;
    }
  }
  {
    charMatrix  temp_matrix;
    Cell        temp_cell;
    char        *tmp_cstring;
    std::string str;
    size_t      max_length = 0, non_blank_length;
    int         i, ifcell;
    if ( _n_dims( args(15) ) > 2 )
    {
      error( "argument must be a scalar or vector or matrix" ); SWIG_fail;
    }
    if ( !args(15).is_empty() )
    {
      Alen   = _dim( args(15), 0 );
      arg19     = Alen;
      arg20     = new char*[Alen];
      ifcell = args(15).is_cell();
      if ( ifcell )
      {
        temp_cell = args(15).cell_value();
      }
      else
      {
        temp_matrix = args(15).char_matrix_value();
        // Allow one extra space for null termination.
        max_length = _dim( args(15), 1 ) + 1;
      }
      
      for ( i = 0; i < Alen; i++ )
      {
        // Must copy string to "permanent" location because the string
        // location corresponding to tmp_cstring gets
        // overwritten for each iteration of loop.
        if ( ifcell )
        {
          if ( temp_cell.elem( i ).is_string() )
          {
            str = temp_cell.elem( i ).string_value();
            // leave room for null termination.
            max_length  = str.size() + 1;
            tmp_cstring = (char *) str.c_str();
          }
          else
          {
            // Use null string if user attempts to pass a cell array
            // with a non-string element (likely an empty element
            // since that should be allowed by the PLplot interface
            // if that element is going to be unused).
            // leave room for null termination.
            max_length  = 1;
            tmp_cstring = (char *) "";
          }
        }
        else
        {
          tmp_cstring = (char *) temp_matrix.row_as_string( i ).c_str();
        }
        arg20[i] = new char[max_length];
        strncpy( arg20[i], tmp_cstring, max_length - 1 );
        arg20[i][max_length - 1] = '\0';
        // All the trailing blank crapola should not be needed for
        // string cell arrays.
        if ( !ifcell )
        {
          // remove trailing-blank padding that is used by the
          // charMatrix class to insure all strings in a given
          // charMatrix instance have the same length.
          // This transformation also removes legitimate trailing
          // blanks but there is nothing we can do about that
          // for the charMatrix class.
          
          // Look for trailing nulls first (just in case, although that
          // shouldn't happen if charMatrix implemented as documented)
          // before looking for trailing blanks.
          non_blank_length = max_length - 2;
          while ( non_blank_length >= 0 && arg20[i][non_blank_length] == '\0' )
          {
            non_blank_length--;
          }
          while ( non_blank_length >= 0 && arg20[i][non_blank_length] == ' ' )
          {
            non_blank_length--;
          }
          arg20[i][non_blank_length + 1] = '\0';
        }
      }
    }
    else
    {
      arg19 = 0;
      arg20 = NULL;
    }
  }
  {
    if ( _n_dims( args(16) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(16), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp21 = args(16).matrix_value();
    arg21   = &temp21( 0, 0 );
  }
  {
    if ( _n_dims( args(17) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(17), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp22 = args(17).matrix_value();
    arg22   = new PLINT[Alen];
    _cvt_double_to( arg22, &temp22( 0, 0 ), Alen );
  }
  {
    int i;
    if ( _n_dims( args(18) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(18), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    Xlen = Alen;
    temp23 = args(18).matrix_value();
    arg23   = new PLINT[Alen];
    _cvt_double_to( arg23, &temp23( 0, 0 ), Alen );
    Ylen = -1;
    for ( i = 0; i < Xlen; i++ )
    if ( arg23[i] > Ylen )
    Ylen = arg23[i];
  }
  {
    if ( _n_dims( args(19) ) > 2 )
    {
      error( "argument must be a scalar, vector, or 2D matrix." ); SWIG_fail;
    }
    if ( _dim( args(19), 0 ) != Xlen )
    {
      error( "argument matrix must have same X length as X vector" ); SWIG_fail;
    }
    if ( _dim( args(19), 1 ) != Ylen )
    {
      error( "argument matrix must have same Y length as Y vector" ); SWIG_fail;
    }
    temp24 = args(19).matrix_value();
    arg24   = &temp24( 0, 0 );
  }
  my_plcolorbar(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,(int const *)arg17,(char const **)arg18,arg19,(char const **)arg20,(double const *)arg21,(int const *)arg22,(int const *)arg23,(double const *)arg24);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  {
    delete [] arg17;
  }
  {
    int i;
    if ( arg18 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg18[i];
      }
      delete[] arg18;
    }
  }
  {
    int i;
    if ( arg20 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg20[i];
      }
      delete[] arg20;
    }
  }
  {
    
  }
  {
    delete [] arg22;
  }
  {
    delete [] arg23;
  }
  {
    
  }
  return _out;
fail:
  {
    delete [] arg17;
  }
  {
    int i;
    if ( arg18 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg18[i];
      }
      delete[] arg18;
    }
  }
  {
    int i;
    if ( arg20 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg20[i];
      }
      delete[] arg20;
    }
  }
  {
    
  }
  {
    delete [] arg22;
  }
  {
    delete [] arg23;
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_type_set, _wrap_PLGraphicsIn_type_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  int arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_type_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_type_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_type_set" "', argument " "2"" of type '" "int""'");
  } 
  arg2 = (int)(val2);
  if (arg1) (arg1)->type = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_type_get, _wrap_PLGraphicsIn_type_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  int result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_type_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_type_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (int) ((arg1)->type);
  _outv = SWIG_From_int((int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_state_set, _wrap_PLGraphicsIn_state_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  unsigned int arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  unsigned int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_state_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_state_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_unsigned_SS_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_state_set" "', argument " "2"" of type '" "unsigned int""'");
  } 
  arg2 = (unsigned int)(val2);
  if (arg1) (arg1)->state = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_state_get, _wrap_PLGraphicsIn_state_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  unsigned int result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_state_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_state_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (unsigned int) ((arg1)->state);
  _outv = SWIG_From_unsigned_SS_int((unsigned int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_keysym_set, _wrap_PLGraphicsIn_keysym_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  unsigned int arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  unsigned int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_keysym_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_keysym_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_unsigned_SS_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_keysym_set" "', argument " "2"" of type '" "unsigned int""'");
  } 
  arg2 = (unsigned int)(val2);
  if (arg1) (arg1)->keysym = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_keysym_get, _wrap_PLGraphicsIn_keysym_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  unsigned int result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_keysym_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_keysym_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (unsigned int) ((arg1)->keysym);
  _outv = SWIG_From_unsigned_SS_int((unsigned int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_button_set, _wrap_PLGraphicsIn_button_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  unsigned int arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  unsigned int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_button_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_button_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_unsigned_SS_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_button_set" "', argument " "2"" of type '" "unsigned int""'");
  } 
  arg2 = (unsigned int)(val2);
  if (arg1) (arg1)->button = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_button_get, _wrap_PLGraphicsIn_button_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  unsigned int result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_button_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_button_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (unsigned int) ((arg1)->button);
  _outv = SWIG_From_unsigned_SS_int((unsigned int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_subwindow_set, _wrap_PLGraphicsIn_subwindow_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  PLINT arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_subwindow_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_subwindow_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_subwindow_set" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  if (arg1) (arg1)->subwindow = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_subwindow_get, _wrap_PLGraphicsIn_subwindow_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLINT result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_subwindow_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_subwindow_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (PLINT) ((arg1)->subwindow);
  _outv = SWIG_From_int((int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_string_set, _wrap_PLGraphicsIn_string_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  char *arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  char temp2[16] ;
  int res2 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_string_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_string_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  res2 = SWIG_AsCharArray(args(1), temp2, 16);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "PLGraphicsIn_string_set" "', argument " "2"" of type '" "char [16]""'");
  }
  arg2 = (char *)(temp2);
  if (arg2) memcpy(arg1->string,arg2,16*sizeof(char));
  else memset(arg1->string,0,16*sizeof(char));
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_string_get, _wrap_PLGraphicsIn_string_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  char *result = 0 ;
  
  if (!SWIG_check_num_args("PLGraphicsIn_string_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_string_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (char *)(char *) ((arg1)->string);
  {
    size_t size = 16;
    
    while (size && (result[size - 1] == '\0')) --size;
    
    _outv = SWIG_FromCharPtrAndSize(result, size);
  }
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_pX_set, _wrap_PLGraphicsIn_pX_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  int arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_pX_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_pX_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_pX_set" "', argument " "2"" of type '" "int""'");
  } 
  arg2 = (int)(val2);
  if (arg1) (arg1)->pX = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_pX_get, _wrap_PLGraphicsIn_pX_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  int result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_pX_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_pX_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (int) ((arg1)->pX);
  _outv = SWIG_From_int((int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_pY_set, _wrap_PLGraphicsIn_pY_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  int arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_pY_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_pY_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_pY_set" "', argument " "2"" of type '" "int""'");
  } 
  arg2 = (int)(val2);
  if (arg1) (arg1)->pY = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_pY_get, _wrap_PLGraphicsIn_pY_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  int result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_pY_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_pY_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (int) ((arg1)->pY);
  _outv = SWIG_From_int((int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_dX_set, _wrap_PLGraphicsIn_dX_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  PLFLT arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_dX_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_dX_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_dX_set" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  if (arg1) (arg1)->dX = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_dX_get, _wrap_PLGraphicsIn_dX_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLFLT result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_dX_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_dX_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (PLFLT) ((arg1)->dX);
  _outv = SWIG_From_double((double)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_dY_set, _wrap_PLGraphicsIn_dY_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  PLFLT arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_dY_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_dY_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_dY_set" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  if (arg1) (arg1)->dY = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_dY_get, _wrap_PLGraphicsIn_dY_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLFLT result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_dY_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_dY_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (PLFLT) ((arg1)->dY);
  _outv = SWIG_From_double((double)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_wX_set, _wrap_PLGraphicsIn_wX_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  PLFLT arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_wX_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_wX_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_wX_set" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  if (arg1) (arg1)->wX = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_wX_get, _wrap_PLGraphicsIn_wX_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLFLT result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_wX_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_wX_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (PLFLT) ((arg1)->wX);
  _outv = SWIG_From_double((double)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_wY_set, _wrap_PLGraphicsIn_wY_set, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  PLFLT arg2 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("PLGraphicsIn_wY_set",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_wY_set" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "PLGraphicsIn_wY_set" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  if (arg1) (arg1)->wY = arg2;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( PLGraphicsIn_wY_get, _wrap_PLGraphicsIn_wY_get, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLFLT result;
  
  if (!SWIG_check_num_args("PLGraphicsIn_wY_get",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "PLGraphicsIn_wY_get" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  result = (PLFLT) ((arg1)->wY);
  _outv = SWIG_From_double((double)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( new_PLGraphicsIn, _wrap_new_PLGraphicsIn, std::string() ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLGraphicsIn *result = 0 ;
  
  if (!SWIG_check_num_args("new_PLGraphicsIn",args.length(),0,0,0)) {
    SWIG_fail;
  }
  result = (PLGraphicsIn *)new PLGraphicsIn();
  _outv = SWIG_NewPointerObj(SWIG_as_voidptr(result), SWIGTYPE_p_PLGraphicsIn, 1 |  0 );
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( delete_PLGraphicsIn, _wrap_delete_PLGraphicsIn, std::string() ) {
  PLGraphicsIn *arg1 = (PLGraphicsIn *) 0 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("delete_PLGraphicsIn",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_PLGraphicsIn, SWIG_POINTER_DISOWN |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "delete_PLGraphicsIn" "', argument " "1"" of type '" "PLGraphicsIn *""'"); 
  }
  arg1 = (PLGraphicsIn *)(argp1);
  delete arg1;
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


static swig_octave_member swig_PLGraphicsIn_members[] = {
{"type",0,_wrap_PLGraphicsIn_type_get,_wrap_PLGraphicsIn_type_set,0,0},
{"state",0,_wrap_PLGraphicsIn_state_get,_wrap_PLGraphicsIn_state_set,0,0},
{"keysym",0,_wrap_PLGraphicsIn_keysym_get,_wrap_PLGraphicsIn_keysym_set,0,0},
{"button",0,_wrap_PLGraphicsIn_button_get,_wrap_PLGraphicsIn_button_set,0,0},
{"subwindow",0,_wrap_PLGraphicsIn_subwindow_get,_wrap_PLGraphicsIn_subwindow_set,0,0},
{"string",0,_wrap_PLGraphicsIn_string_get,_wrap_PLGraphicsIn_string_set,0,0},
{"pX",0,_wrap_PLGraphicsIn_pX_get,_wrap_PLGraphicsIn_pX_set,0,0},
{"pY",0,_wrap_PLGraphicsIn_pY_get,_wrap_PLGraphicsIn_pY_set,0,0},
{"dX",0,_wrap_PLGraphicsIn_dX_get,_wrap_PLGraphicsIn_dX_set,0,0},
{"dY",0,_wrap_PLGraphicsIn_dY_get,_wrap_PLGraphicsIn_dY_set,0,0},
{"wX",0,_wrap_PLGraphicsIn_wX_get,_wrap_PLGraphicsIn_wX_set,0,0},
{"wY",0,_wrap_PLGraphicsIn_wY_get,_wrap_PLGraphicsIn_wY_set,0,0},
{0,0,0,0}
};
static const char *swig_PLGraphicsIn_base_names[] = {0};
static const swig_type_info *swig_PLGraphicsIn_base[] = {0};
static swig_octave_class _wrap_class_PLGraphicsIn = {"PLGraphicsIn", &SWIGTYPE_p_PLGraphicsIn,0,_wrap_new_PLGraphicsIn,0,_wrap_delete_PLGraphicsIn,swig_PLGraphicsIn_members,swig_PLGraphicsIn_base_names,swig_PLGraphicsIn_base };

SWIG_DEFUN( pl_setcontlabelformat, _wrap_pl_setcontlabelformat, _wrap_pl_setcontlabelformat_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pl_setcontlabelformat",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "pl_setcontlabelformat" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "pl_setcontlabelformat" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  pl_setcontlabelformat(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( pl_setcontlabelparam, _wrap_pl_setcontlabelparam, _wrap_pl_setcontlabelparam_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLINT arg4 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pl_setcontlabelparam",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "pl_setcontlabelparam" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "pl_setcontlabelparam" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "pl_setcontlabelparam" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_int(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "pl_setcontlabelparam" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  pl_setcontlabelparam(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( pladv, _wrap_pladv, _wrap_pladv_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pladv",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "pladv" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  pladv(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plarc, _wrap_plarc, _wrap_plarc_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLBOOL arg8 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  int val8 ;
  int ecode8 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plarc",args.length(),8,8,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plarc" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plarc" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plarc" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plarc" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plarc" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plarc" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plarc" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_int(args(7), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plarc" "', argument " "8"" of type '" "PLBOOL""'");
  } 
  arg8 = (PLBOOL)(val8);
  plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plaxes, _wrap_plaxes, _wrap_plaxes_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  char *arg3 = (char *) 0 ;
  PLFLT arg4 ;
  PLINT arg5 ;
  char *arg6 = (char *) 0 ;
  PLFLT arg7 ;
  PLINT arg8 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  int res3 ;
  char *buf3 = 0 ;
  int alloc3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int res6 ;
  char *buf6 = 0 ;
  int alloc6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  int val8 ;
  int ecode8 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plaxes",args.length(),8,8,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plaxes" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plaxes" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  res3 = SWIG_AsCharPtrAndSize(args(2), &buf3, NULL, &alloc3);
  if (!SWIG_IsOK(res3)) {
    SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "plaxes" "', argument " "3"" of type '" "char const *""'");
  }
  arg3 = (char *)(buf3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plaxes" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_int(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plaxes" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  res6 = SWIG_AsCharPtrAndSize(args(5), &buf6, NULL, &alloc6);
  if (!SWIG_IsOK(res6)) {
    SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "plaxes" "', argument " "6"" of type '" "char const *""'");
  }
  arg6 = (char *)(buf6);
  ecode7 = SWIG_AsVal_double(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plaxes" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_int(args(7), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plaxes" "', argument " "8"" of type '" "PLINT""'");
  } 
  arg8 = (PLINT)(val8);
  plaxes(arg1,arg2,(char const *)arg3,arg4,arg5,(char const *)arg6,arg7,arg8);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc3 == SWIG_NEWOBJ) delete[] buf3;
  if (alloc6 == SWIG_NEWOBJ) delete[] buf6;
  return _out;
fail:
  if (alloc3 == SWIG_NEWOBJ) delete[] buf3;
  if (alloc6 == SWIG_NEWOBJ) delete[] buf6;
  return octave_value_list();
}


SWIG_DEFUN( plbin, _wrap_plbin, _wrap_plbin_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  Matrix temp1 ;
  Matrix temp3 ;
  int val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plbin",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  ecode4 = SWIG_AsVal_int(args(2), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plbin" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  plbin(arg1,(double const *)arg2,(double const *)arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plbtime, _wrap_plbtime, _wrap_plbtime_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT *arg4 = (PLINT *) 0 ;
  PLINT *arg5 = (PLINT *) 0 ;
  PLFLT *arg6 = (PLFLT *) 0 ;
  PLFLT arg7 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLINT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLINT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  PLINT temp5 ;
  int res5 = SWIG_TMPOBJ ;
  PLFLT temp6 ;
  int res6 = SWIG_TMPOBJ ;
  double val7 ;
  int ecode7 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  arg5 = &temp5;
  arg6 = &temp6;
  if (!SWIG_check_num_args("plbtime",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode7 = SWIG_AsVal_double(args(0), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plbtime" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res5)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg5)));
  } else {
    int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res6)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg6)));
  } else {
    int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plbop, _wrap_plbop, _wrap_plbop_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plbop",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plbop();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plbox, _wrap_plbox, _wrap_plbox_texinfo ) {
  char *arg1 = (char *) 0 ;
  PLFLT arg2 ;
  PLINT arg3 ;
  char *arg4 = (char *) 0 ;
  PLFLT arg5 ;
  PLINT arg6 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  int res4 ;
  char *buf4 = 0 ;
  int alloc4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plbox",args.length(),6,6,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plbox" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plbox" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plbox" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  res4 = SWIG_AsCharPtrAndSize(args(3), &buf4, NULL, &alloc4);
  if (!SWIG_IsOK(res4)) {
    SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "plbox" "', argument " "4"" of type '" "char const *""'");
  }
  arg4 = (char *)(buf4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plbox" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_int(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plbox" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  plbox((char const *)arg1,arg2,arg3,(char const *)arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc4 == SWIG_NEWOBJ) delete[] buf4;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc4 == SWIG_NEWOBJ) delete[] buf4;
  return octave_value_list();
}


SWIG_DEFUN( plbox3, _wrap_plbox3, _wrap_plbox3_texinfo ) {
  char *arg1 = (char *) 0 ;
  char *arg2 = (char *) 0 ;
  PLFLT arg3 ;
  PLINT arg4 ;
  char *arg5 = (char *) 0 ;
  char *arg6 = (char *) 0 ;
  PLFLT arg7 ;
  PLINT arg8 ;
  char *arg9 = (char *) 0 ;
  char *arg10 = (char *) 0 ;
  PLFLT arg11 ;
  PLINT arg12 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  int res5 ;
  char *buf5 = 0 ;
  int alloc5 = 0 ;
  int res6 ;
  char *buf6 = 0 ;
  int alloc6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  int val8 ;
  int ecode8 = 0 ;
  int res9 ;
  char *buf9 = 0 ;
  int alloc9 = 0 ;
  int res10 ;
  char *buf10 = 0 ;
  int alloc10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  int val12 ;
  int ecode12 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plbox3",args.length(),12,12,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plbox3" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plbox3" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plbox3" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_int(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plbox3" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  res5 = SWIG_AsCharPtrAndSize(args(4), &buf5, NULL, &alloc5);
  if (!SWIG_IsOK(res5)) {
    SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "plbox3" "', argument " "5"" of type '" "char const *""'");
  }
  arg5 = (char *)(buf5);
  res6 = SWIG_AsCharPtrAndSize(args(5), &buf6, NULL, &alloc6);
  if (!SWIG_IsOK(res6)) {
    SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "plbox3" "', argument " "6"" of type '" "char const *""'");
  }
  arg6 = (char *)(buf6);
  ecode7 = SWIG_AsVal_double(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plbox3" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_int(args(7), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plbox3" "', argument " "8"" of type '" "PLINT""'");
  } 
  arg8 = (PLINT)(val8);
  res9 = SWIG_AsCharPtrAndSize(args(8), &buf9, NULL, &alloc9);
  if (!SWIG_IsOK(res9)) {
    SWIG_exception_fail(SWIG_ArgError(res9), "in method '" "plbox3" "', argument " "9"" of type '" "char const *""'");
  }
  arg9 = (char *)(buf9);
  res10 = SWIG_AsCharPtrAndSize(args(9), &buf10, NULL, &alloc10);
  if (!SWIG_IsOK(res10)) {
    SWIG_exception_fail(SWIG_ArgError(res10), "in method '" "plbox3" "', argument " "10"" of type '" "char const *""'");
  }
  arg10 = (char *)(buf10);
  ecode11 = SWIG_AsVal_double(args(10), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plbox3" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  ecode12 = SWIG_AsVal_int(args(11), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "plbox3" "', argument " "12"" of type '" "PLINT""'");
  } 
  arg12 = (PLINT)(val12);
  plbox3((char const *)arg1,(char const *)arg2,arg3,arg4,(char const *)arg5,(char const *)arg6,arg7,arg8,(char const *)arg9,(char const *)arg10,arg11,arg12);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc5 == SWIG_NEWOBJ) delete[] buf5;
  if (alloc6 == SWIG_NEWOBJ) delete[] buf6;
  if (alloc9 == SWIG_NEWOBJ) delete[] buf9;
  if (alloc10 == SWIG_NEWOBJ) delete[] buf10;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc5 == SWIG_NEWOBJ) delete[] buf5;
  if (alloc6 == SWIG_NEWOBJ) delete[] buf6;
  if (alloc9 == SWIG_NEWOBJ) delete[] buf9;
  if (alloc10 == SWIG_NEWOBJ) delete[] buf10;
  return octave_value_list();
}


SWIG_DEFUN( plcalc_world, _wrap_plcalc_world, _wrap_plcalc_world_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLINT *arg5 = (PLINT *) 0 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  PLFLT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  PLINT temp5 ;
  int res5 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg3 = &temp3;
  arg4 = &temp4;
  arg5 = &temp5;
  if (!SWIG_check_num_args("plcalc_world",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plcalc_world" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plcalc_world" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  plcalc_world(arg1,arg2,arg3,arg4,arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res5)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg5)));
  } else {
    int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plclear, _wrap_plclear, _wrap_plclear_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plclear",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plclear();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plcol0, _wrap_plcol0, _wrap_plcol0_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plcol0",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plcol0" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plcol0(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plcol1, _wrap_plcol1, _wrap_plcol1_texinfo ) {
  PLFLT arg1 ;
  double val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plcol1",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plcol1" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  plcol1(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plconfigtime, _wrap_plconfigtime, _wrap_plconfigtime_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLINT arg4 ;
  PLBOOL arg5 ;
  PLINT arg6 ;
  PLINT arg7 ;
  PLINT arg8 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLFLT arg11 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  int val7 ;
  int ecode7 = 0 ;
  int val8 ;
  int ecode8 = 0 ;
  int val9 ;
  int ecode9 = 0 ;
  int val10 ;
  int ecode10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plconfigtime",args.length(),11,11,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plconfigtime" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plconfigtime" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plconfigtime" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_int(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plconfigtime" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_int(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plconfigtime" "', argument " "5"" of type '" "PLBOOL""'");
  } 
  arg5 = (PLBOOL)(val5);
  ecode6 = SWIG_AsVal_int(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plconfigtime" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  ecode7 = SWIG_AsVal_int(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plconfigtime" "', argument " "7"" of type '" "PLINT""'");
  } 
  arg7 = (PLINT)(val7);
  ecode8 = SWIG_AsVal_int(args(7), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plconfigtime" "', argument " "8"" of type '" "PLINT""'");
  } 
  arg8 = (PLINT)(val8);
  ecode9 = SWIG_AsVal_int(args(8), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plconfigtime" "', argument " "9"" of type '" "PLINT""'");
  } 
  arg9 = (PLINT)(val9);
  ecode10 = SWIG_AsVal_int(args(9), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plconfigtime" "', argument " "10"" of type '" "PLINT""'");
  } 
  arg10 = (PLINT)(val10);
  ecode11 = SWIG_AsVal_double(args(10), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plconfigtime" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plctime, _wrap_plctime, _wrap_plctime_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLFLT arg6 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  PLFLT temp7 ;
  int res7 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg7 = &temp7;
  if (!SWIG_check_num_args("plctime",args.length(),6,6,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plctime" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plctime" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plctime" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  ecode4 = SWIG_AsVal_int(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plctime" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_int(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plctime" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plctime" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res7)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg7)));
  } else {
    int new_flags = SWIG_IsNewObj(res7) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg7), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plcpstrm, _wrap_plcpstrm, _wrap_plcpstrm_texinfo ) {
  PLINT arg1 ;
  PLBOOL arg2 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plcpstrm",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plcpstrm" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plcpstrm" "', argument " "2"" of type '" "PLBOOL""'");
  } 
  arg2 = (PLBOOL)(val2);
  plcpstrm(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plend, _wrap_plend, _wrap_plend_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plend",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plend();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plend1, _wrap_plend1, _wrap_plend1_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plend1",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plend1();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plenv, _wrap_plenv, _wrap_plenv_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plenv",args.length(),6,6,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plenv" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plenv" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plenv" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plenv" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_int(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plenv" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plenv" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  plenv(arg1,arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plenv0, _wrap_plenv0, _wrap_plenv0_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plenv0",args.length(),6,6,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plenv0" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plenv0" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plenv0" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plenv0" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_int(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plenv0" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plenv0" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( pleop, _wrap_pleop, _wrap_pleop_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pleop",args.length(),0,0,0)) {
    SWIG_fail;
  }
  pleop();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plerrx, _wrap_plerrx, _wrap_plerrx_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  Matrix temp4 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plerrx",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  plerrx(arg1,(double const *)arg2,(double const *)arg3,(double const *)arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plerry, _wrap_plerry, _wrap_plerry_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  Matrix temp4 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plerry",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  plerry(arg1,(double const *)arg2,(double const *)arg3,(double const *)arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plfamadv, _wrap_plfamadv, _wrap_plfamadv_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plfamadv",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plfamadv();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plfill, _wrap_plfill, _wrap_plfill_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plfill",args.length(),2,2,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  plfill(arg1,(double const *)arg2,(double const *)arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plfill3, _wrap_plfill3, _wrap_plfill3_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  Matrix temp4 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plfill3",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  plfill3(arg1,(double const *)arg2,(double const *)arg3,(double const *)arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plgradient, _wrap_plgradient, _wrap_plgradient_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT arg4 ;
  Matrix temp1 ;
  Matrix temp3 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plgradient",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  ecode4 = SWIG_AsVal_double(args(2), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plgradient" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plgradient(arg1,(double const *)arg2,(double const *)arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plflush, _wrap_plflush, _wrap_plflush_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plflush",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plflush();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plfont, _wrap_plfont, _wrap_plfont_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plfont",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plfont" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plfont(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plfontld, _wrap_plfontld, _wrap_plfontld_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plfontld",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plfontld" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plfontld(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgchr, _wrap_plgchr, _wrap_plgchr_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  if (!SWIG_check_num_args("plgchr",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgchr(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgcol0, _wrap_plgcol0, _wrap_plgcol0_texinfo ) {
  PLINT arg1 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT *arg4 = (PLINT *) 0 ;
  int val1 ;
  int ecode1 = 0 ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLINT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLINT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  if (!SWIG_check_num_args("plgcol0",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plgcol0" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plgcol0(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgcol0a, _wrap_plgcol0a, _wrap_plgcol0a_texinfo ) {
  PLINT arg1 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT *arg4 = (PLINT *) 0 ;
  PLFLT *arg5 = (PLFLT *) 0 ;
  int val1 ;
  int ecode1 = 0 ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLINT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLINT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  PLFLT temp5 ;
  int res5 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  arg5 = &temp5;
  if (!SWIG_check_num_args("plgcol0a",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plgcol0a" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plgcol0a(arg1,arg2,arg3,arg4,arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res5)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg5)));
  } else {
    int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgcolbg, _wrap_plgcolbg, _wrap_plgcolbg_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLINT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  if (!SWIG_check_num_args("plgcolbg",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgcolbg(arg1,arg2,arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgcolbga, _wrap_plgcolbga, _wrap_plgcolbga_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLINT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  if (!SWIG_check_num_args("plgcolbga",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgcolbga(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgcompression, _wrap_plgcompression, _wrap_plgcompression_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  if (!SWIG_check_num_args("plgcompression",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgcompression(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgdev, _wrap_plgdev, _wrap_plgdev_texinfo ) {
  char *arg1 = (char *) 0 ;
  octave_value_list retval1 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  {
    // Check if version >= 3.4.0
# if OCTAVE_API_VERSION_NUMBER < 45
    retval1( 0 ) = octave_value( charMatrix( 80, 1 ), true );
# else
    retval1( 0 ) = octave_value( charMatrix( 80, 1 ) );
# endif
    arg1 = (char *) retval1( 0 ).char_matrix_value().data();
  }
  if (!SWIG_check_num_args("plgdev",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgdev(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    _outp = SWIG_Octave_AppendOutput( _outp, retval1( 0 ) );
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgdidev, _wrap_plgdidev, _wrap_plgdidev_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLFLT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  if (!SWIG_check_num_args("plgdidev",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgdidev(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgdiori, _wrap_plgdiori, _wrap_plgdiori_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  if (!SWIG_check_num_args("plgdiori",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgdiori(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgdiplt, _wrap_plgdiplt, _wrap_plgdiplt_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLFLT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  if (!SWIG_check_num_args("plgdiplt",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgdiplt(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgfam, _wrap_plgfam, _wrap_plgfam_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLINT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  if (!SWIG_check_num_args("plgfam",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgfam(arg1,arg2,arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgfci, _wrap_plgfci, _wrap_plgfci_texinfo ) {
  PLUNICODE *arg1 = (PLUNICODE *) 0 ;
  PLUNICODE temp1 ;
  int res1 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  if (!SWIG_check_num_args("plgfci",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgfci(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_unsigned_SS_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_unsigned_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgfnam, _wrap_plgfnam, _wrap_plgfnam_texinfo ) {
  char *arg1 = (char *) 0 ;
  octave_value_list retval1 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  {
    // Check if version >= 3.4.0
# if OCTAVE_API_VERSION_NUMBER < 45
    retval1( 0 ) = octave_value( charMatrix( 80, 1 ), true );
# else
    retval1( 0 ) = octave_value( charMatrix( 80, 1 ) );
# endif
    arg1 = (char *) retval1( 0 ).char_matrix_value().data();
  }
  if (!SWIG_check_num_args("plgfnam",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgfnam(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    _outp = SWIG_Octave_AppendOutput( _outp, retval1( 0 ) );
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgfont, _wrap_plgfont, _wrap_plgfont_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLINT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  if (!SWIG_check_num_args("plgfont",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgfont(arg1,arg2,arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plglevel, _wrap_plglevel, _wrap_plglevel_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  if (!SWIG_check_num_args("plglevel",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plglevel(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgpage, _wrap_plgpage, _wrap_plgpage_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT *arg4 = (PLINT *) 0 ;
  PLINT *arg5 = (PLINT *) 0 ;
  PLINT *arg6 = (PLINT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLINT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLINT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  PLINT temp5 ;
  int res5 = SWIG_TMPOBJ ;
  PLINT temp6 ;
  int res6 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  arg5 = &temp5;
  arg6 = &temp6;
  if (!SWIG_check_num_args("plgpage",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res5)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg5)));
  } else {
    int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res6)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg6)));
  } else {
    int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgra, _wrap_plgra, _wrap_plgra_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plgra",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgra();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgspa, _wrap_plgspa, _wrap_plgspa_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLFLT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  if (!SWIG_check_num_args("plgspa",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgspa(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgstrm, _wrap_plgstrm, _wrap_plgstrm_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  if (!SWIG_check_num_args("plgstrm",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgstrm(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgver, _wrap_plgver, _wrap_plgver_texinfo ) {
  char *arg1 = (char *) 0 ;
  octave_value_list retval1 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  {
    // Check if version >= 3.4.0
# if OCTAVE_API_VERSION_NUMBER < 45
    retval1( 0 ) = octave_value( charMatrix( 80, 1 ), true );
# else
    retval1( 0 ) = octave_value( charMatrix( 80, 1 ) );
# endif
    arg1 = (char *) retval1( 0 ).char_matrix_value().data();
  }
  if (!SWIG_check_num_args("plgver",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgver(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    _outp = SWIG_Octave_AppendOutput( _outp, retval1( 0 ) );
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgvpd, _wrap_plgvpd, _wrap_plgvpd_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLFLT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  if (!SWIG_check_num_args("plgvpd",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgvpd(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgvpw, _wrap_plgvpw, _wrap_plgvpw_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  PLFLT temp3 ;
  int res3 = SWIG_TMPOBJ ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  arg3 = &temp3;
  arg4 = &temp4;
  if (!SWIG_check_num_args("plgvpw",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgvpw(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res3)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg3)));
  } else {
    int new_flags = SWIG_IsNewObj(res3) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg3), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgxax, _wrap_plgxax, _wrap_plgxax_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  if (!SWIG_check_num_args("plgxax",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgxax(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgyax, _wrap_plgyax, _wrap_plgyax_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  if (!SWIG_check_num_args("plgyax",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgyax(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgzax, _wrap_plgzax, _wrap_plgzax_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLINT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  if (!SWIG_check_num_args("plgzax",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgzax(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plhist, _wrap_plhist, _wrap_plhist_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  Matrix temp1 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plhist",args.length(),5,5,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  ecode3 = SWIG_AsVal_double(args(1), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plhist" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(2), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plhist" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_int(args(3), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plhist" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(4), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plhist" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  plhist(arg1,(double const *)arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  return _out;
fail:
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plhlsrgb, _wrap_plhlsrgb, _wrap_plhlsrgb_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT *arg5 = (PLFLT *) 0 ;
  PLFLT *arg6 = (PLFLT *) 0 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  PLFLT temp5 ;
  int res5 = SWIG_TMPOBJ ;
  PLFLT temp6 ;
  int res6 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg4 = &temp4;
  arg5 = &temp5;
  arg6 = &temp6;
  if (!SWIG_check_num_args("plhlsrgb",args.length(),3,3,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plhlsrgb" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plhlsrgb" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plhlsrgb" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res5)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg5)));
  } else {
    int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res6)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg6)));
  } else {
    int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plinit, _wrap_plinit, _wrap_plinit_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plinit",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plinit();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( pljoin, _wrap_pljoin, _wrap_pljoin_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pljoin",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "pljoin" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "pljoin" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "pljoin" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "pljoin" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  pljoin(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( pllab, _wrap_pllab, _wrap_pllab_texinfo ) {
  char *arg1 = (char *) 0 ;
  char *arg2 = (char *) 0 ;
  char *arg3 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  int res3 ;
  char *buf3 = 0 ;
  int alloc3 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pllab",args.length(),3,3,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "pllab" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "pllab" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  res3 = SWIG_AsCharPtrAndSize(args(2), &buf3, NULL, &alloc3);
  if (!SWIG_IsOK(res3)) {
    SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "pllab" "', argument " "3"" of type '" "char const *""'");
  }
  arg3 = (char *)(buf3);
  pllab((char const *)arg1,(char const *)arg2,(char const *)arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc3 == SWIG_NEWOBJ) delete[] buf3;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc3 == SWIG_NEWOBJ) delete[] buf3;
  return octave_value_list();
}


SWIG_DEFUN( pllegend, _wrap_pllegend, _wrap_pllegend_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLINT arg8 ;
  PLINT arg9 ;
  PLINT arg10 ;
  PLINT arg11 ;
  PLINT arg12 ;
  PLINT arg13 ;
  PLINT *arg14 = (PLINT *) 0 ;
  PLFLT arg15 ;
  PLFLT arg16 ;
  PLFLT arg17 ;
  PLFLT arg18 ;
  PLINT *arg19 = (PLINT *) 0 ;
  char **arg20 = (char **) 0 ;
  PLINT *arg21 = (PLINT *) 0 ;
  PLINT *arg22 = (PLINT *) 0 ;
  PLFLT *arg23 = (PLFLT *) 0 ;
  PLFLT *arg24 = (PLFLT *) 0 ;
  PLINT *arg25 = (PLINT *) 0 ;
  PLINT *arg26 = (PLINT *) 0 ;
  PLFLT *arg27 = (PLFLT *) 0 ;
  PLINT *arg28 = (PLINT *) 0 ;
  PLFLT *arg29 = (PLFLT *) 0 ;
  PLINT *arg30 = (PLINT *) 0 ;
  char **arg31 = (char **) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  int val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  int val8 ;
  int ecode8 = 0 ;
  int val9 ;
  int ecode9 = 0 ;
  int val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  int val12 ;
  int ecode12 = 0 ;
  Matrix temp13 ;
  double val15 ;
  int ecode15 = 0 ;
  double val16 ;
  int ecode16 = 0 ;
  double val17 ;
  int ecode17 = 0 ;
  double val18 ;
  int ecode18 = 0 ;
  Matrix temp19 ;
  Matrix temp21 ;
  Matrix temp22 ;
  Matrix temp23 ;
  Matrix temp24 ;
  Matrix temp25 ;
  Matrix temp26 ;
  Matrix temp27 ;
  Matrix temp28 ;
  Matrix temp29 ;
  Matrix temp30 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  if (!SWIG_check_num_args("pllegend",args.length(),28,28,0)) {
    SWIG_fail;
  }
  ecode3 = SWIG_AsVal_int(args(0), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "pllegend" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  ecode4 = SWIG_AsVal_int(args(1), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "pllegend" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_double(args(2), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "pllegend" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(3), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "pllegend" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(4), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "pllegend" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_int(args(5), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "pllegend" "', argument " "8"" of type '" "PLINT""'");
  } 
  arg8 = (PLINT)(val8);
  ecode9 = SWIG_AsVal_int(args(6), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "pllegend" "', argument " "9"" of type '" "PLINT""'");
  } 
  arg9 = (PLINT)(val9);
  ecode10 = SWIG_AsVal_int(args(7), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "pllegend" "', argument " "10"" of type '" "PLINT""'");
  } 
  arg10 = (PLINT)(val10);
  ecode11 = SWIG_AsVal_int(args(8), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "pllegend" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  ecode12 = SWIG_AsVal_int(args(9), &val12);
  if (!SWIG_IsOK(ecode12)) {
    SWIG_exception_fail(SWIG_ArgError(ecode12), "in method '" "pllegend" "', argument " "12"" of type '" "PLINT""'");
  } 
  arg12 = (PLINT)(val12);
  {
    if ( _n_dims( args(10) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg13   = Alen = (PLINT) ( _dim( args(10), 0 ) );
    arg14   = new PLINT[Alen];
    temp13 = args(10).matrix_value();
    _cvt_double_to( arg14, &temp13( 0, 0 ), Alen );
  }
  ecode15 = SWIG_AsVal_double(args(11), &val15);
  if (!SWIG_IsOK(ecode15)) {
    SWIG_exception_fail(SWIG_ArgError(ecode15), "in method '" "pllegend" "', argument " "15"" of type '" "PLFLT""'");
  } 
  arg15 = (PLFLT)(val15);
  ecode16 = SWIG_AsVal_double(args(12), &val16);
  if (!SWIG_IsOK(ecode16)) {
    SWIG_exception_fail(SWIG_ArgError(ecode16), "in method '" "pllegend" "', argument " "16"" of type '" "PLFLT""'");
  } 
  arg16 = (PLFLT)(val16);
  ecode17 = SWIG_AsVal_double(args(13), &val17);
  if (!SWIG_IsOK(ecode17)) {
    SWIG_exception_fail(SWIG_ArgError(ecode17), "in method '" "pllegend" "', argument " "17"" of type '" "PLFLT""'");
  } 
  arg17 = (PLFLT)(val17);
  ecode18 = SWIG_AsVal_double(args(14), &val18);
  if (!SWIG_IsOK(ecode18)) {
    SWIG_exception_fail(SWIG_ArgError(ecode18), "in method '" "pllegend" "', argument " "18"" of type '" "PLFLT""'");
  } 
  arg18 = (PLFLT)(val18);
  {
    if ( _n_dims( args(15) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(15), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp19 = args(15).matrix_value();
    arg19   = new PLINT[Alen];
    _cvt_double_to( arg19, &temp19( 0, 0 ), Alen );
  }
  {
    charMatrix  temp_matrix;
    Cell        temp_cell;
    char        *tmp_cstring;
    std::string str;
    size_t      max_length = 0, non_blank_length;
    int         i, ifcell;
    if ( _n_dims( args(16) ) > 2 )
    {
      error( "argument must be a scalar or vector or matrix" ); SWIG_fail;
    }
    if ( !args(16).is_empty() )
    {
      if ( _dim( args(16), 0 ) != Alen )
      {
        error( "first dimension must be same length as previous vector" ); SWIG_fail;
      }
      arg20     = new char*[Alen];
      ifcell = args(16).is_cell();
      if ( ifcell )
      {
        temp_cell = args(16).cell_value();
      }
      else
      {
        temp_matrix = args(16).char_matrix_value();
        // Allow one extra space for null termination.
        max_length = _dim( args(16), 1 ) + 1;
      }
      
      for ( i = 0; i < Alen; i++ )
      {
        // Must copy string to "permanent" location because the string
        // location corresponding to tmp_cstring gets
        // overwritten for each iteration of loop.
        if ( ifcell )
        {
          if ( temp_cell.elem( i ).is_string() )
          {
            str = temp_cell.elem( i ).string_value();
            // leave room for null termination.
            max_length  = str.size() + 1;
            tmp_cstring = (char *) str.c_str();
          }
          else
          {
            // Use null string if user attempts to pass a cell array
            // with a non-string element (likely an empty element
            // since that should be allowed by the PLplot interface
            // if that element is going to be unused).
            // leave room for null termination.
            max_length  = 1;
            tmp_cstring = (char *) "";
          }
        }
        else
        {
          tmp_cstring = (char *) temp_matrix.row_as_string( i ).c_str();
        }
        arg20[i] = new char[max_length];
        strncpy( arg20[i], tmp_cstring, max_length - 1 );
        arg20[i][max_length - 1] = '\0';
        // All the trailing blank crapola should not be needed for
        // string cell arrays.
        if ( !ifcell )
        {
          // remove trailing-blank padding that is used by the
          // charMatrix class to insure all strings in a given
          // charMatrix instance have the same length.
          // This transformation also removes legitimate trailing
          // blanks but there is nothing we can do about that
          // for the charMatrix class.
          
          // Look for trailing nulls first (just in case, although that
          // shouldn't happen if charMatrix implemented as documented)
          // before looking for trailing blanks.
          non_blank_length = max_length - 2;
          while ( non_blank_length >= 0 && arg20[i][non_blank_length] == '\0' )
          {
            non_blank_length--;
          }
          while ( non_blank_length >= 0 && arg20[i][non_blank_length] == ' ' )
          {
            non_blank_length--;
          }
          arg20[i][non_blank_length + 1] = '\0';
        }
      }
    }
    else
    {
      arg20 = NULL;
    }
  }
  {
    if ( _n_dims( args(17) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(17).is_empty() )
    {
      if ( _dim( args(17), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp21 = args(17).matrix_value();
      arg21   = new PLINT[Alen];
      _cvt_double_to( arg21, &temp21( 0, 0 ), Alen );
    }
    else
    {
      arg21 = NULL;
    }
  }
  {
    if ( _n_dims( args(18) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(18).is_empty() )
    {
      if ( _dim( args(18), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp22 = args(18).matrix_value();
      arg22   = new PLINT[Alen];
      _cvt_double_to( arg22, &temp22( 0, 0 ), Alen );
    }
    else
    {
      arg22 = NULL;
    }
  }
  {
    if ( _n_dims( args(19) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(19).is_empty() )
    {
      if ( _dim( args(19), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp23 = args(19).matrix_value();
      arg23   = &temp23( 0, 0 );
    }
    else
    {
      arg23 = NULL;
    }
  }
  {
    if ( _n_dims( args(20) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(20).is_empty() )
    {
      if ( _dim( args(20), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp24 = args(20).matrix_value();
      arg24   = &temp24( 0, 0 );
    }
    else
    {
      arg24 = NULL;
    }
  }
  {
    if ( _n_dims( args(21) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(21).is_empty() )
    {
      if ( _dim( args(21), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp25 = args(21).matrix_value();
      arg25   = new PLINT[Alen];
      _cvt_double_to( arg25, &temp25( 0, 0 ), Alen );
    }
    else
    {
      arg25 = NULL;
    }
  }
  {
    if ( _n_dims( args(22) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(22).is_empty() )
    {
      if ( _dim( args(22), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp26 = args(22).matrix_value();
      arg26   = new PLINT[Alen];
      _cvt_double_to( arg26, &temp26( 0, 0 ), Alen );
    }
    else
    {
      arg26 = NULL;
    }
  }
  {
    if ( _n_dims( args(23) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(23).is_empty() )
    {
      if ( _dim( args(23), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp27 = args(23).matrix_value();
      arg27   = &temp27( 0, 0 );
    }
    else
    {
      arg27 = NULL;
    }
  }
  {
    if ( _n_dims( args(24) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(24).is_empty() )
    {
      if ( _dim( args(24), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp28 = args(24).matrix_value();
      arg28   = new PLINT[Alen];
      _cvt_double_to( arg28, &temp28( 0, 0 ), Alen );
    }
    else
    {
      arg28 = NULL;
    }
  }
  {
    if ( _n_dims( args(25) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(25).is_empty() )
    {
      if ( _dim( args(25), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp29 = args(25).matrix_value();
      arg29   = &temp29( 0, 0 );
    }
    else
    {
      arg29 = NULL;
    }
  }
  {
    if ( _n_dims( args(26) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(26).is_empty() )
    {
      if ( _dim( args(26), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp30 = args(26).matrix_value();
      arg30   = new PLINT[Alen];
      _cvt_double_to( arg30, &temp30( 0, 0 ), Alen );
    }
    else
    {
      arg30 = NULL;
    }
  }
  {
    charMatrix  temp_matrix;
    Cell        temp_cell;
    char        *tmp_cstring;
    std::string str;
    size_t      max_length = 0, non_blank_length;
    int         i, ifcell;
    if ( _n_dims( args(27) ) > 2 )
    {
      error( "argument must be a scalar or vector or matrix" ); SWIG_fail;
    }
    if ( !args(27).is_empty() )
    {
      if ( _dim( args(27), 0 ) != Alen )
      {
        error( "first dimension must be same length as previous vector" ); SWIG_fail;
      }
      arg31     = new char*[Alen];
      ifcell = args(27).is_cell();
      if ( ifcell )
      {
        temp_cell = args(27).cell_value();
      }
      else
      {
        temp_matrix = args(27).char_matrix_value();
        // Allow one extra space for null termination.
        max_length = _dim( args(27), 1 ) + 1;
      }
      
      for ( i = 0; i < Alen; i++ )
      {
        // Must copy string to "permanent" location because the string
        // location corresponding to tmp_cstring gets
        // overwritten for each iteration of loop.
        if ( ifcell )
        {
          if ( temp_cell.elem( i ).is_string() )
          {
            str = temp_cell.elem( i ).string_value();
            // leave room for null termination.
            max_length  = str.size() + 1;
            tmp_cstring = (char *) str.c_str();
          }
          else
          {
            // Use null string if user attempts to pass a cell array
            // with a non-string element (likely an empty element
            // since that should be allowed by the PLplot interface
            // if that element is going to be unused).
            // leave room for null termination.
            max_length  = 1;
            tmp_cstring = (char *) "";
          }
        }
        else
        {
          tmp_cstring = (char *) temp_matrix.row_as_string( i ).c_str();
        }
        arg31[i] = new char[max_length];
        strncpy( arg31[i], tmp_cstring, max_length - 1 );
        arg31[i][max_length - 1] = '\0';
        // All the trailing blank crapola should not be needed for
        // string cell arrays.
        if ( !ifcell )
        {
          // remove trailing-blank padding that is used by the
          // charMatrix class to insure all strings in a given
          // charMatrix instance have the same length.
          // This transformation also removes legitimate trailing
          // blanks but there is nothing we can do about that
          // for the charMatrix class.
          
          // Look for trailing nulls first (just in case, although that
          // shouldn't happen if charMatrix implemented as documented)
          // before looking for trailing blanks.
          non_blank_length = max_length - 2;
          while ( non_blank_length >= 0 && arg31[i][non_blank_length] == '\0' )
          {
            non_blank_length--;
          }
          while ( non_blank_length >= 0 && arg31[i][non_blank_length] == ' ' )
          {
            non_blank_length--;
          }
          arg31[i][non_blank_length + 1] = '\0';
        }
      }
    }
    else
    {
      arg31 = NULL;
    }
  }
  pllegend(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,(int const *)arg14,arg15,arg16,arg17,arg18,(int const *)arg19,(char const **)arg20,(int const *)arg21,(int const *)arg22,(double const *)arg23,(double const *)arg24,(int const *)arg25,(int const *)arg26,(double const *)arg27,(int const *)arg28,(double const *)arg29,(int const *)arg30,(char const **)arg31);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  {
    delete [] arg14;
  }
  {
    delete [] arg19;
  }
  {
    int i;
    if ( arg20 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg20[i];
      }
      delete[] arg20;
    }
  }
  {
    if ( arg21 != NULL )
    delete [] arg21;
  }
  {
    if ( arg22 != NULL )
    delete [] arg22;
  }
  {
    
  }
  {
    
  }
  {
    if ( arg25 != NULL )
    delete [] arg25;
  }
  {
    if ( arg26 != NULL )
    delete [] arg26;
  }
  {
    
  }
  {
    if ( arg28 != NULL )
    delete [] arg28;
  }
  {
    
  }
  {
    if ( arg30 != NULL )
    delete [] arg30;
  }
  {
    int i;
    if ( arg31 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg31[i];
      }
      delete[] arg31;
    }
  }
  return _out;
fail:
  {
    delete [] arg14;
  }
  {
    delete [] arg19;
  }
  {
    int i;
    if ( arg20 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg20[i];
      }
      delete[] arg20;
    }
  }
  {
    if ( arg21 != NULL )
    delete [] arg21;
  }
  {
    if ( arg22 != NULL )
    delete [] arg22;
  }
  {
    
  }
  {
    
  }
  {
    if ( arg25 != NULL )
    delete [] arg25;
  }
  {
    if ( arg26 != NULL )
    delete [] arg26;
  }
  {
    
  }
  {
    if ( arg28 != NULL )
    delete [] arg28;
  }
  {
    
  }
  {
    if ( arg30 != NULL )
    delete [] arg30;
  }
  {
    int i;
    if ( arg31 != NULL )
    {
      for ( i = 0; i < Alen; i++ )
      {
        delete[] arg31[i];
      }
      delete[] arg31;
    }
  }
  return octave_value_list();
}


SWIG_DEFUN( pllightsource, _wrap_pllightsource, _wrap_pllightsource_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pllightsource",args.length(),3,3,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "pllightsource" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "pllightsource" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "pllightsource" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  pllightsource(arg1,arg2,arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plline, _wrap_plline, _wrap_plline_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plline",args.length(),2,2,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  plline(arg1,(double const *)arg2,(double const *)arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plline3, _wrap_plline3, _wrap_plline3_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  Matrix temp4 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plline3",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  plline3(arg1,(double const *)arg2,(double const *)arg3,(double const *)arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( pllsty, _wrap_pllsty, _wrap_pllsty_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pllsty",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "pllsty" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  pllsty(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plmkstrm, _wrap_plmkstrm, _wrap_plmkstrm_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  if (!SWIG_check_num_args("plmkstrm",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plmkstrm(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plmtex, _wrap_plmtex, _wrap_plmtex_texinfo ) {
  char *arg1 = (char *) 0 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  char *arg5 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  int res5 ;
  char *buf5 = 0 ;
  int alloc5 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmtex",args.length(),5,5,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plmtex" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plmtex" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plmtex" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plmtex" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  res5 = SWIG_AsCharPtrAndSize(args(4), &buf5, NULL, &alloc5);
  if (!SWIG_IsOK(res5)) {
    SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "plmtex" "', argument " "5"" of type '" "char const *""'");
  }
  arg5 = (char *)(buf5);
  plmtex((char const *)arg1,arg2,arg3,arg4,(char const *)arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc5 == SWIG_NEWOBJ) delete[] buf5;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc5 == SWIG_NEWOBJ) delete[] buf5;
  return octave_value_list();
}


SWIG_DEFUN( plmtex3, _wrap_plmtex3, _wrap_plmtex3_texinfo ) {
  char *arg1 = (char *) 0 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  char *arg5 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  int res5 ;
  char *buf5 = 0 ;
  int alloc5 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmtex3",args.length(),5,5,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plmtex3" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plmtex3" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plmtex3" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plmtex3" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  res5 = SWIG_AsCharPtrAndSize(args(4), &buf5, NULL, &alloc5);
  if (!SWIG_IsOK(res5)) {
    SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "plmtex3" "', argument " "5"" of type '" "char const *""'");
  }
  arg5 = (char *)(buf5);
  plmtex3((char const *)arg1,arg2,arg3,arg4,(char const *)arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc5 == SWIG_NEWOBJ) delete[] buf5;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc5 == SWIG_NEWOBJ) delete[] buf5;
  return octave_value_list();
}


SWIG_DEFUN( plparseopts, _wrap_plparseopts, _wrap_plparseopts_texinfo ) {
  int *arg1 = (int *) 0 ;
  char **arg2 = (char **) 0 ;
  PLINT arg3 ;
  void *argp1 = 0 ;
  int res1 = 0 ;
  void *argp2 = 0 ;
  int res2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLINT result;
  
  if (!SWIG_check_num_args("plparseopts",args.length(),3,3,0)) {
    SWIG_fail;
  }
  res1 = SWIG_ConvertPtr(args(0), &argp1,SWIGTYPE_p_int, 0 |  0 );
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plparseopts" "', argument " "1"" of type '" "int *""'"); 
  }
  arg1 = (int *)(argp1);
  res2 = SWIG_ConvertPtr(args(1), &argp2,SWIGTYPE_p_p_char, 0 |  0 );
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plparseopts" "', argument " "2"" of type '" "char **""'"); 
  }
  arg2 = (char **)(argp2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plparseopts" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  result = (PLINT)plparseopts(arg1,arg2,arg3);
  _outv = SWIG_From_int((int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plpat, _wrap_plpat, _wrap_plpat_texinfo ) {
  PLINT arg1 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plpat",args.length(),2,2,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    arg2   = new PLINT[Alen];
    temp1 = args(0).matrix_value();
    _cvt_double_to( arg2, &temp1( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = new PLINT[Alen];
    _cvt_double_to( arg3, &temp3( 0, 0 ), Alen );
  }
  plpat(arg1,(int const *)arg2,(int const *)arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  return _out;
fail:
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  return octave_value_list();
}


SWIG_DEFUN( plpath, _wrap_plpath, _wrap_plpath_texinfo ) {
  PLINT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  int val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plpath",args.length(),5,5,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plpath" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plpath" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plpath" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plpath" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plpath" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  plpath(arg1,arg2,arg3,arg4,arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plpoin, _wrap_plpoin, _wrap_plpoin_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  Matrix temp1 ;
  Matrix temp3 ;
  int val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plpoin",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  ecode4 = SWIG_AsVal_int(args(2), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plpoin" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  plpoin(arg1,(double const *)arg2,(double const *)arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plpoin3, _wrap_plpoin3, _wrap_plpoin3_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLINT arg5 ;
  Matrix temp1 ;
  Matrix temp3 ;
  Matrix temp4 ;
  int val5 ;
  int ecode5 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plpoin3",args.length(),4,4,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  ecode5 = SWIG_AsVal_int(args(3), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plpoin3" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  plpoin3(arg1,(double const *)arg2,(double const *)arg3,(double const *)arg4,arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plpoly3, _wrap_plpoly3, _wrap_plpoly3_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLBOOL *arg5 = (PLBOOL *) 0 ;
  PLBOOL arg6 ;
  Matrix temp1 ;
  Matrix temp3 ;
  Matrix temp4 ;
  Matrix temp5 ;
  int val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plpoly3",args.length(),5,5,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  {
    if ( _n_dims( args(3) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !( _dim( args(3), 0 ) == Alen || _dim( args(3), 0 ) == Alen - 1 ) )
    {
      error( "argument vector must be same length or one less" ); SWIG_fail;
    }
    temp5 = args(3).matrix_value();
    arg5   = new PLINT[Alen];
    _cvt_double_to( arg5, &temp5( 0, 0 ), Alen );
  }
  ecode6 = SWIG_AsVal_int(args(4), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plpoly3" "', argument " "6"" of type '" "PLBOOL""'");
  } 
  arg6 = (PLBOOL)(val6);
  plpoly3(arg1,(double const *)arg2,(double const *)arg3,(double const *)arg4,(int const *)arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg5;
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg5;
  }
  return octave_value_list();
}


SWIG_DEFUN( plprec, _wrap_plprec, _wrap_plprec_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plprec",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plprec" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plprec" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  plprec(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plpsty, _wrap_plpsty, _wrap_plpsty_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plpsty",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plpsty" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plpsty(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plptex, _wrap_plptex, _wrap_plptex_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  char *arg6 = (char *) 0 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  int res6 ;
  char *buf6 = 0 ;
  int alloc6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plptex",args.length(),6,6,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plptex" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plptex" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plptex" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plptex" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plptex" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  res6 = SWIG_AsCharPtrAndSize(args(5), &buf6, NULL, &alloc6);
  if (!SWIG_IsOK(res6)) {
    SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "plptex" "', argument " "6"" of type '" "char const *""'");
  }
  arg6 = (char *)(buf6);
  plptex(arg1,arg2,arg3,arg4,arg5,(char const *)arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc6 == SWIG_NEWOBJ) delete[] buf6;
  return _out;
fail:
  if (alloc6 == SWIG_NEWOBJ) delete[] buf6;
  return octave_value_list();
}


SWIG_DEFUN( plptex3, _wrap_plptex3, _wrap_plptex3_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  char *arg11 = (char *) 0 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  int res11 ;
  char *buf11 = 0 ;
  int alloc11 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plptex3",args.length(),11,11,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plptex3" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plptex3" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plptex3" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plptex3" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plptex3" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plptex3" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plptex3" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(7), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plptex3" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(8), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plptex3" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(9), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plptex3" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  res11 = SWIG_AsCharPtrAndSize(args(10), &buf11, NULL, &alloc11);
  if (!SWIG_IsOK(res11)) {
    SWIG_exception_fail(SWIG_ArgError(res11), "in method '" "plptex3" "', argument " "11"" of type '" "char const *""'");
  }
  arg11 = (char *)(buf11);
  plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(char const *)arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc11 == SWIG_NEWOBJ) delete[] buf11;
  return _out;
fail:
  if (alloc11 == SWIG_NEWOBJ) delete[] buf11;
  return octave_value_list();
}


SWIG_DEFUN( plrandd, _wrap_plrandd, _wrap_plrandd_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLFLT result;
  
  if (!SWIG_check_num_args("plrandd",args.length(),0,0,0)) {
    SWIG_fail;
  }
  result = (PLFLT)plrandd();
  _outv = SWIG_From_double((double)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plreplot, _wrap_plreplot, _wrap_plreplot_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plreplot",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plreplot();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plrgbhls, _wrap_plrgbhls, _wrap_plrgbhls_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT *arg5 = (PLFLT *) 0 ;
  PLFLT *arg6 = (PLFLT *) 0 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  PLFLT temp4 ;
  int res4 = SWIG_TMPOBJ ;
  PLFLT temp5 ;
  int res5 = SWIG_TMPOBJ ;
  PLFLT temp6 ;
  int res6 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg4 = &temp4;
  arg5 = &temp5;
  arg6 = &temp6;
  if (!SWIG_check_num_args("plrgbhls",args.length(),3,3,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plrgbhls" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plrgbhls" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plrgbhls" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res4)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg4)));
  } else {
    int new_flags = SWIG_IsNewObj(res4) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg4), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res5)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg5)));
  } else {
    int new_flags = SWIG_IsNewObj(res5) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg5), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res6)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg6)));
  } else {
    int new_flags = SWIG_IsNewObj(res6) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg6), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plschr, _wrap_plschr, _wrap_plschr_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plschr",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plschr" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plschr" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  plschr(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscmap0, _wrap_plscmap0, _wrap_plscmap0_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT arg4 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap0",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg1   = new PLINT[Alen];
    _cvt_double_to( arg1, &temp1( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = new PLINT[Alen];
    _cvt_double_to( arg2, &temp2( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = new PLINT[Alen];
    _cvt_double_to( arg3, &temp3( 0, 0 ), Alen );
    arg4 = Alen;
  }
  plscmap0((int const *)arg1,(int const *)arg2,(int const *)arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    delete [] arg1;
  }
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  return _out;
fail:
  {
    delete [] arg1;
  }
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  return octave_value_list();
}


SWIG_DEFUN( plscmap0a, _wrap_plscmap0a, _wrap_plscmap0a_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLINT arg5 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  Matrix temp4 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap0a",args.length(),4,4,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg1   = new PLINT[Alen];
    _cvt_double_to( arg1, &temp1( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = new PLINT[Alen];
    _cvt_double_to( arg2, &temp2( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = new PLINT[Alen];
    _cvt_double_to( arg3, &temp3( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(3) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(3), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(3).matrix_value();
    arg4   = &temp4( 0, 0 );
    arg5   = (PLINT) ( _dim( args(3), 0 ) );
  }
  plscmap0a((int const *)arg1,(int const *)arg2,(int const *)arg3,(double const *)arg4,arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    delete [] arg1;
  }
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  {
    
  }
  return _out;
fail:
  {
    delete [] arg1;
  }
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plscmap0n, _wrap_plscmap0n, _wrap_plscmap0n_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap0n",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscmap0n" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plscmap0n(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscmap1, _wrap_plscmap1, _wrap_plscmap1_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLINT arg4 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap1",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg1   = new PLINT[Alen];
    _cvt_double_to( arg1, &temp1( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = new PLINT[Alen];
    _cvt_double_to( arg2, &temp2( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = new PLINT[Alen];
    _cvt_double_to( arg3, &temp3( 0, 0 ), Alen );
    arg4 = Alen;
  }
  plscmap1((int const *)arg1,(int const *)arg2,(int const *)arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    delete [] arg1;
  }
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  return _out;
fail:
  {
    delete [] arg1;
  }
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  return octave_value_list();
}


SWIG_DEFUN( plscmap1a, _wrap_plscmap1a, _wrap_plscmap1a_texinfo ) {
  PLINT *arg1 = (PLINT *) 0 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLINT arg5 ;
  Matrix temp1 ;
  Matrix temp2 ;
  Matrix temp3 ;
  Matrix temp4 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap1a",args.length(),4,4,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg1   = new PLINT[Alen];
    _cvt_double_to( arg1, &temp1( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp2 = args(1).matrix_value();
    arg2   = new PLINT[Alen];
    _cvt_double_to( arg2, &temp2( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(2).matrix_value();
    arg3   = new PLINT[Alen];
    _cvt_double_to( arg3, &temp3( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(3) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(3), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(3).matrix_value();
    arg4   = &temp4( 0, 0 );
    arg5   = (PLINT) ( _dim( args(3), 0 ) );
  }
  plscmap1a((int const *)arg1,(int const *)arg2,(int const *)arg3,(double const *)arg4,arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    delete [] arg1;
  }
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  {
    
  }
  return _out;
fail:
  {
    delete [] arg1;
  }
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plscmap1l, _wrap_plscmap1l, _wrap_plscmap1l_texinfo ) {
  PLBOOL arg1 ;
  PLINT arg2 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT *arg5 = (PLFLT *) 0 ;
  PLFLT *arg6 = (PLFLT *) 0 ;
  PLBOOL *arg7 = (PLBOOL *) 0 ;
  int val1 ;
  int ecode1 = 0 ;
  Matrix temp2 ;
  Matrix temp4 ;
  Matrix temp5 ;
  Matrix temp6 ;
  Matrix temp7 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap1l",args.length(),6,6,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscmap1l" "', argument " "1"" of type '" "PLBOOL""'");
  } 
  arg1 = (PLBOOL)(val1);
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg2   = Alen = (PLINT) ( _dim( args(1), 0 ) );
    temp2 = args(1).matrix_value();
    arg3   = &temp2( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  {
    if ( _n_dims( args(3) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(3), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp5 = args(3).matrix_value();
    arg5   = &temp5( 0, 0 );
  }
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(4), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp6 = args(4).matrix_value();
    arg6   = &temp6( 0, 0 );
  }
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !( _dim( args(5), 0 ) == Alen || _dim( args(5), 0 ) == Alen - 1 ) )
    {
      error( "argument vector must be same length or one less" ); SWIG_fail;
    }
    temp7 = args(5).matrix_value();
    arg7   = new PLINT[Alen];
    _cvt_double_to( arg7, &temp7( 0, 0 ), Alen );
  }
  plscmap1l(arg1,arg2,(double const *)arg3,(double const *)arg4,(double const *)arg5,(double const *)arg6,(int const *)arg7);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg7;
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg7;
  }
  return octave_value_list();
}


SWIG_DEFUN( plscmap1la, _wrap_plscmap1la, _wrap_plscmap1la_texinfo ) {
  PLBOOL arg1 ;
  PLINT arg2 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  PLFLT *arg5 = (PLFLT *) 0 ;
  PLFLT *arg6 = (PLFLT *) 0 ;
  PLFLT *arg7 = (PLFLT *) 0 ;
  PLBOOL *arg8 = (PLBOOL *) 0 ;
  int val1 ;
  int ecode1 = 0 ;
  Matrix temp2 ;
  Matrix temp4 ;
  Matrix temp5 ;
  Matrix temp6 ;
  Matrix temp7 ;
  Matrix temp8 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap1la",args.length(),7,7,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscmap1la" "', argument " "1"" of type '" "PLBOOL""'");
  } 
  arg1 = (PLBOOL)(val1);
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg2   = Alen = (PLINT) ( _dim( args(1), 0 ) );
    temp2 = args(1).matrix_value();
    arg3   = &temp2( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  {
    if ( _n_dims( args(3) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(3), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp5 = args(3).matrix_value();
    arg5   = &temp5( 0, 0 );
  }
  {
    if ( _n_dims( args(4) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(4), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp6 = args(4).matrix_value();
    arg6   = &temp6( 0, 0 );
  }
  {
    if ( _n_dims( args(5) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(5), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp7 = args(5).matrix_value();
    arg7   = &temp7( 0, 0 );
  }
  {
    if ( _n_dims( args(6) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !( _dim( args(6), 0 ) == Alen || _dim( args(6), 0 ) == Alen - 1 ) )
    {
      error( "argument vector must be same length or one less" ); SWIG_fail;
    }
    temp8 = args(6).matrix_value();
    arg8   = new PLINT[Alen];
    _cvt_double_to( arg8, &temp8( 0, 0 ), Alen );
  }
  plscmap1la(arg1,arg2,(double const *)arg3,(double const *)arg4,(double const *)arg5,(double const *)arg6,(double const *)arg7,(int const *)arg8);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg8;
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    
  }
  {
    delete [] arg8;
  }
  return octave_value_list();
}


SWIG_DEFUN( plscmap1n, _wrap_plscmap1n, _wrap_plscmap1n_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap1n",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscmap1n" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plscmap1n(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscmap1_range, _wrap_plscmap1_range, _wrap_plscmap1_range_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscmap1_range",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscmap1_range" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plscmap1_range" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  plscmap1_range(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plgcmap1_range, _wrap_plgcmap1_range, _wrap_plgcmap1_range_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT temp1 ;
  int res1 = SWIG_TMPOBJ ;
  PLFLT temp2 ;
  int res2 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg1 = &temp1;
  arg2 = &temp2;
  if (!SWIG_check_num_args("plgcmap1_range",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plgcmap1_range(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res1)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg1)));
  } else {
    int new_flags = SWIG_IsNewObj(res1) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg1), SWIGTYPE_p_double, new_flags));
  }
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_double((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_double, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscol0, _wrap_plscol0, _wrap_plscol0_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscol0",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscol0" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plscol0" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plscol0" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  ecode4 = SWIG_AsVal_int(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plscol0" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  plscol0(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscol0a, _wrap_plscol0a, _wrap_plscol0a_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLFLT arg5 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscol0a",args.length(),5,5,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscol0a" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plscol0a" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plscol0a" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  ecode4 = SWIG_AsVal_int(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plscol0a" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plscol0a" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  plscol0a(arg1,arg2,arg3,arg4,arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscolbg, _wrap_plscolbg, _wrap_plscolbg_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLINT arg3 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscolbg",args.length(),3,3,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscolbg" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plscolbg" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plscolbg" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  plscolbg(arg1,arg2,arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscolbga, _wrap_plscolbga, _wrap_plscolbga_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLFLT arg4 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscolbga",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscolbga" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plscolbga" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plscolbga" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plscolbga" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plscolbga(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscolor, _wrap_plscolor, _wrap_plscolor_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscolor",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscolor" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plscolor(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plscompression, _wrap_plscompression, _wrap_plscompression_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plscompression",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plscompression" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plscompression(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsdev, _wrap_plsdev, _wrap_plsdev_texinfo ) {
  char *arg1 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsdev",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plsdev" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  plsdev((char const *)arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return octave_value_list();
}


SWIG_DEFUN( plsdidev, _wrap_plsdidev, _wrap_plsdidev_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsdidev",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsdidev" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsdidev" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plsdidev" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plsdidev" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plsdidev(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsdimap, _wrap_plsdimap, _wrap_plsdimap_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsdimap",args.length(),6,6,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsdimap" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsdimap" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plsdimap" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  ecode4 = SWIG_AsVal_int(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plsdimap" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plsdimap" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plsdimap" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsdiori, _wrap_plsdiori, _wrap_plsdiori_texinfo ) {
  PLFLT arg1 ;
  double val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsdiori",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsdiori" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  plsdiori(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsdiplt, _wrap_plsdiplt, _wrap_plsdiplt_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsdiplt",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsdiplt" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsdiplt" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plsdiplt" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plsdiplt" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plsdiplt(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsdiplz, _wrap_plsdiplz, _wrap_plsdiplz_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsdiplz",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsdiplz" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsdiplz" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plsdiplz" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plsdiplz" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plsdiplz(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plseed, _wrap_plseed, _wrap_plseed_texinfo ) {
  unsigned int arg1 ;
  unsigned int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plseed",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_unsigned_SS_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plseed" "', argument " "1"" of type '" "unsigned int""'");
  } 
  arg1 = (unsigned int)(val1);
  plseed(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsesc, _wrap_plsesc, _wrap_plsesc_texinfo ) {
  char arg1 ;
  char val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsesc",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_char(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsesc" "', argument " "1"" of type '" "char""'");
  } 
  arg1 = (char)(val1);
  plsesc(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plSetOpt, _wrap_plSetOpt, _wrap_plSetOpt_texinfo ) {
  char *arg1 = (char *) 0 ;
  char *arg2 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  PLINT result;
  
  if (!SWIG_check_num_args("plSetOpt",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plSetOpt" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plSetOpt" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  result = (PLINT)plsetopt((char const *)arg1,(char const *)arg2);
  _outv = SWIG_From_int((int)(result));
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  return octave_value_list();
}


SWIG_DEFUN( plsfam, _wrap_plsfam, _wrap_plsfam_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLINT arg3 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsfam",args.length(),3,3,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsfam" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsfam" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plsfam" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  plsfam(arg1,arg2,arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsfci, _wrap_plsfci, _wrap_plsfci_texinfo ) {
  PLUNICODE arg1 ;
  unsigned int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsfci",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_unsigned_SS_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsfci" "', argument " "1"" of type '" "PLUNICODE""'");
  } 
  arg1 = (PLUNICODE)(val1);
  plsfci(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsfnam, _wrap_plsfnam, _wrap_plsfnam_texinfo ) {
  char *arg1 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsfnam",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plsfnam" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  plsfnam((char const *)arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return octave_value_list();
}


SWIG_DEFUN( plsfont, _wrap_plsfont, _wrap_plsfont_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLINT arg3 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsfont",args.length(),3,3,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsfont" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsfont" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plsfont" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  plsfont(arg1,arg2,arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plslabelfunc, _wrap_plslabelfunc, _wrap_plslabelfunc_texinfo ) {
  label_func arg1 = (label_func) 0 ;
  PLPointer arg2 = (PLPointer) 0 ;
  int res2 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plslabelfunc",args.length(),2,2,0)) {
    SWIG_fail;
  }
  {
    octave_value obj = args(0);
    if ( !obj.is_empty() )
    {
      if ( obj.is_function_handle() || obj.is_inline_function() )
      {
        fcnLabelFunc = obj.function_value();
      }
      else if ( obj.is_string() )
      {
        nameLabelFunc = obj.string_value();
        fcnLabelFunc  = NULL;
      }
      arg1 = labelfunc_octave;
    }
    else
    {
      arg1 = NULL;
    }
  }
  res2 = SWIG_ConvertPtr(args(1),SWIG_as_voidptrptr(&arg2), 0, 0);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plslabelfunc" "', argument " "2"" of type '" "PLPointer""'"); 
  }
  plslabelfunc(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsmaj, _wrap_plsmaj, _wrap_plsmaj_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsmaj",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsmaj" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsmaj" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  plsmaj(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsmin, _wrap_plsmin, _wrap_plsmin_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsmin",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsmin" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsmin" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  plsmin(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsori, _wrap_plsori, _wrap_plsori_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsori",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsori" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plsori(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plspage, _wrap_plspage, _wrap_plspage_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLINT arg3 ;
  PLINT arg4 ;
  PLINT arg5 ;
  PLINT arg6 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  int val4 ;
  int ecode4 = 0 ;
  int val5 ;
  int ecode5 = 0 ;
  int val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plspage",args.length(),6,6,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plspage" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plspage" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plspage" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  ecode4 = SWIG_AsVal_int(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plspage" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  ecode5 = SWIG_AsVal_int(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plspage" "', argument " "5"" of type '" "PLINT""'");
  } 
  arg5 = (PLINT)(val5);
  ecode6 = SWIG_AsVal_int(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plspage" "', argument " "6"" of type '" "PLINT""'");
  } 
  arg6 = (PLINT)(val6);
  plspage(arg1,arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plspal0, _wrap_plspal0, _wrap_plspal0_texinfo ) {
  char *arg1 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plspal0",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plspal0" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  plspal0((char const *)arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return octave_value_list();
}


SWIG_DEFUN( plspal1, _wrap_plspal1, _wrap_plspal1_texinfo ) {
  char *arg1 = (char *) 0 ;
  PLBOOL arg2 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plspal1",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plspal1" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plspal1" "', argument " "2"" of type '" "PLBOOL""'");
  } 
  arg2 = (PLBOOL)(val2);
  plspal1((char const *)arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return octave_value_list();
}


SWIG_DEFUN( plspause, _wrap_plspause, _wrap_plspause_texinfo ) {
  PLBOOL arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plspause",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plspause" "', argument " "1"" of type '" "PLBOOL""'");
  } 
  arg1 = (PLBOOL)(val1);
  plspause(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsstrm, _wrap_plsstrm, _wrap_plsstrm_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsstrm",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsstrm" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plsstrm(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plssub, _wrap_plssub, _wrap_plssub_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plssub",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plssub" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plssub" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  plssub(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plssym, _wrap_plssym, _wrap_plssym_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plssym",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plssym" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plssym" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  plssym(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plstar, _wrap_plstar, _wrap_plstar_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plstar",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plstar" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plstar" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  plstar(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plstart, _wrap_plstart, _wrap_plstart_texinfo ) {
  char *arg1 = (char *) 0 ;
  PLINT arg2 ;
  PLINT arg3 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  int val3 ;
  int ecode3 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plstart",args.length(),3,3,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plstart" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plstart" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_int(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plstart" "', argument " "3"" of type '" "PLINT""'");
  } 
  arg3 = (PLINT)(val3);
  plstart((char const *)arg1,arg2,arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return octave_value_list();
}


SWIG_DEFUN( plstransform, _wrap_plstransform, _wrap_plstransform_texinfo ) {
  ct_func arg1 = (ct_func) 0 ;
  PLPointer arg2 = (PLPointer) 0 ;
  int res2 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plstransform",args.length(),2,2,0)) {
    SWIG_fail;
  }
  {
    octave_value obj = args(0);
    if ( !obj.is_empty() )
    {
      if ( obj.is_function_handle() || obj.is_inline_function() )
      {
        fcnCoordTrans = obj.function_value();
      }
      else if ( obj.is_string() )
      {
        nameCoordTrans = obj.string_value();
        fcnCoordTrans  = NULL;
      }
      arg1 = ct_octave;
    }
    else
    {
      arg1 = NULL;
    }
  }
  res2 = SWIG_ConvertPtr(args(1),SWIG_as_voidptrptr(&arg2), 0, 0);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plstransform" "', argument " "2"" of type '" "PLPointer""'"); 
  }
  plstransform(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plstring, _wrap_plstring, _wrap_plstring_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  char *arg4 = (char *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  int res4 ;
  char *buf4 = 0 ;
  int alloc4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plstring",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  res4 = SWIG_AsCharPtrAndSize(args(2), &buf4, NULL, &alloc4);
  if (!SWIG_IsOK(res4)) {
    SWIG_exception_fail(SWIG_ArgError(res4), "in method '" "plstring" "', argument " "4"" of type '" "char const *""'");
  }
  arg4 = (char *)(buf4);
  plstring(arg1,(double const *)arg2,(double const *)arg3,(char const *)arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  if (alloc4 == SWIG_NEWOBJ) delete[] buf4;
  return _out;
fail:
  {
    
  }
  {
    
  }
  if (alloc4 == SWIG_NEWOBJ) delete[] buf4;
  return octave_value_list();
}


SWIG_DEFUN( plstring3, _wrap_plstring3, _wrap_plstring3_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLFLT *arg4 = (PLFLT *) 0 ;
  char *arg5 = (char *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  Matrix temp4 ;
  int res5 ;
  char *buf5 = 0 ;
  int alloc5 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plstring3",args.length(),4,4,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  {
    if ( _n_dims( args(2) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(2), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp4 = args(2).matrix_value();
    arg4   = &temp4( 0, 0 );
  }
  res5 = SWIG_AsCharPtrAndSize(args(3), &buf5, NULL, &alloc5);
  if (!SWIG_IsOK(res5)) {
    SWIG_exception_fail(SWIG_ArgError(res5), "in method '" "plstring3" "', argument " "5"" of type '" "char const *""'");
  }
  arg5 = (char *)(buf5);
  plstring3(arg1,(double const *)arg2,(double const *)arg3,(double const *)arg4,(char const *)arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  {
    
  }
  if (alloc5 == SWIG_NEWOBJ) delete[] buf5;
  return _out;
fail:
  {
    
  }
  {
    
  }
  {
    
  }
  if (alloc5 == SWIG_NEWOBJ) delete[] buf5;
  return octave_value_list();
}


SWIG_DEFUN( plstripa, _wrap_plstripa, _wrap_plstripa_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plstripa",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plstripa" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plstripa" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plstripa" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plstripa" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plstripa(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plstripd, _wrap_plstripd, _wrap_plstripd_texinfo ) {
  PLINT arg1 ;
  int val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plstripd",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plstripd" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  plstripd(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plstyl, _wrap_plstyl, _wrap_plstyl_texinfo ) {
  PLINT arg1 ;
  PLINT *arg2 = (PLINT *) 0 ;
  PLINT *arg3 = (PLINT *) 0 ;
  Matrix temp1 ;
  Matrix temp3 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plstyl",args.length(),2,2,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    arg2   = new PLINT[Alen];
    temp1 = args(0).matrix_value();
    _cvt_double_to( arg2, &temp1( 0, 0 ), Alen );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = new PLINT[Alen];
    _cvt_double_to( arg3, &temp3( 0, 0 ), Alen );
  }
  plstyl(arg1,(int const *)arg2,(int const *)arg3);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  return _out;
fail:
  {
    delete [] arg2;
  }
  {
    delete [] arg3;
  }
  return octave_value_list();
}


SWIG_DEFUN( plsvect, _wrap_plsvect, _wrap_plsvect_texinfo ) {
  PLFLT *arg1 = (PLFLT *) 0 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLINT arg3 ;
  PLBOOL arg4 ;
  Matrix temp1 ;
  Matrix temp2 ;
  int val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsvect",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(0).is_empty() )
    {
      Alen = (PLINT) ( _dim( args(0), 0 ) );
      temp1 = args(0).matrix_value();
      arg1   = &temp1( 0, 0 );
    }
    else
    {
      arg1   = NULL;
      Alen = 0;
    }
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(1).is_empty() )
    {
      if ( _dim( args(1), 0 ) != Alen )
      {
        error( "argument vectors must be same length" ); SWIG_fail;
      }
      temp2 = args(1).matrix_value();
      arg2   = &temp2( 0, 0 );
      arg3   = (PLINT) ( _dim( args(1), 0 ) );
    }
    else
    {
      arg2 = NULL;
      arg3 = 0;
    }
  }
  ecode4 = SWIG_AsVal_int(args(2), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plsvect" "', argument " "4"" of type '" "PLBOOL""'");
  } 
  arg4 = (PLBOOL)(val4);
  plsvect((double const *)arg1,(double const *)arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plsvpa, _wrap_plsvpa, _wrap_plsvpa_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsvpa",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsvpa" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsvpa" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plsvpa" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plsvpa" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plsvpa(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsxax, _wrap_plsxax, _wrap_plsxax_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsxax",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsxax" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsxax" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  plsxax(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsyax, _wrap_plsyax, _wrap_plsyax_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsyax",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plsyax" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plsyax" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  plsyax(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plsym, _wrap_plsym, _wrap_plsym_texinfo ) {
  PLINT arg1 ;
  PLFLT *arg2 = (PLFLT *) 0 ;
  PLFLT *arg3 = (PLFLT *) 0 ;
  PLINT arg4 ;
  Matrix temp1 ;
  Matrix temp3 ;
  int val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plsym",args.length(),3,3,0)) {
    SWIG_fail;
  }
  {
    if ( _n_dims( args(0) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    arg1   = Alen = (PLINT) ( _dim( args(0), 0 ) );
    temp1 = args(0).matrix_value();
    arg2   = &temp1( 0, 0 );
  }
  {
    if ( _n_dims( args(1) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( _dim( args(1), 0 ) != Alen )
    {
      error( "argument vectors must be same length" ); SWIG_fail;
    }
    temp3 = args(1).matrix_value();
    arg3   = &temp3( 0, 0 );
  }
  ecode4 = SWIG_AsVal_int(args(2), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plsym" "', argument " "4"" of type '" "PLINT""'");
  } 
  arg4 = (PLINT)(val4);
  plsym(arg1,(double const *)arg2,(double const *)arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  {
    
  }
  {
    
  }
  return _out;
fail:
  {
    
  }
  {
    
  }
  return octave_value_list();
}


SWIG_DEFUN( plszax, _wrap_plszax, _wrap_plszax_texinfo ) {
  PLINT arg1 ;
  PLINT arg2 ;
  int val1 ;
  int ecode1 = 0 ;
  int val2 ;
  int ecode2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plszax",args.length(),2,2,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plszax" "', argument " "1"" of type '" "PLINT""'");
  } 
  arg1 = (PLINT)(val1);
  ecode2 = SWIG_AsVal_int(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plszax" "', argument " "2"" of type '" "PLINT""'");
  } 
  arg2 = (PLINT)(val2);
  plszax(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( pltext, _wrap_pltext, _wrap_pltext_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pltext",args.length(),0,0,0)) {
    SWIG_fail;
  }
  pltext();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( pltimefmt, _wrap_pltimefmt, _wrap_pltimefmt_texinfo ) {
  char *arg1 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("pltimefmt",args.length(),1,1,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "pltimefmt" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  pltimefmt((char const *)arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  return octave_value_list();
}


SWIG_DEFUN( plvasp, _wrap_plvasp, _wrap_plvasp_texinfo ) {
  PLFLT arg1 ;
  double val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plvasp",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plvasp" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  plvasp(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plvpas, _wrap_plvpas, _wrap_plvpas_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plvpas",args.length(),5,5,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plvpas" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plvpas" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plvpas" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plvpas" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plvpas" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  plvpas(arg1,arg2,arg3,arg4,arg5);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plvpor, _wrap_plvpor, _wrap_plvpor_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plvpor",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plvpor" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plvpor" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plvpor" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plvpor" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plvpor(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plvsta, _wrap_plvsta, _wrap_plvsta_texinfo ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plvsta",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plvsta();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plw3d, _wrap_plw3d, _wrap_plw3d_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLFLT arg11 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  double val11 ;
  int ecode11 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plw3d",args.length(),11,11,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plw3d" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plw3d" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plw3d" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plw3d" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plw3d" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plw3d" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plw3d" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(7), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plw3d" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(8), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plw3d" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(9), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plw3d" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_double(args(10), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plw3d" "', argument " "11"" of type '" "PLFLT""'");
  } 
  arg11 = (PLFLT)(val11);
  plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plwidth, _wrap_plwidth, _wrap_plwidth_texinfo ) {
  PLFLT arg1 ;
  double val1 ;
  int ecode1 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plwidth",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plwidth" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  plwidth(arg1);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plwind, _wrap_plwind, _wrap_plwind_texinfo ) {
  PLFLT arg1 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  double val1 ;
  int ecode1 = 0 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plwind",args.length(),4,4,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_double(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plwind" "', argument " "1"" of type '" "PLFLT""'");
  } 
  arg1 = (PLFLT)(val1);
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plwind" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plwind" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plwind" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  plwind(arg1,arg2,arg3,arg4);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plxormod, _wrap_plxormod, _wrap_plxormod_texinfo ) {
  PLBOOL arg1 ;
  PLBOOL *arg2 = (PLBOOL *) 0 ;
  int val1 ;
  int ecode1 = 0 ;
  PLBOOL temp2 ;
  int res2 = SWIG_TMPOBJ ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  arg2 = &temp2;
  if (!SWIG_check_num_args("plxormod",args.length(),1,1,0)) {
    SWIG_fail;
  }
  ecode1 = SWIG_AsVal_int(args(0), &val1);
  if (!SWIG_IsOK(ecode1)) {
    SWIG_exception_fail(SWIG_ArgError(ecode1), "in method '" "plxormod" "', argument " "1"" of type '" "PLBOOL""'");
  } 
  arg1 = (PLBOOL)(val1);
  plxormod(arg1,arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (SWIG_IsTmpObj(res2)) {
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_From_int((*arg2)));
  } else {
    int new_flags = SWIG_IsNewObj(res2) ? (SWIG_POINTER_OWN |  0 ) :  0 ;
    _outp = SWIG_Octave_AppendOutput(_outp, SWIG_NewPointerObj((void*)(arg2), SWIGTYPE_p_int, new_flags));
  }
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plmap, _wrap_plmap, _wrap_plmap_texinfo ) {
  mapform_func arg1 = (mapform_func) 0 ;
  char *arg2 = (char *) 0 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmap",args.length(),6,6,0)) {
    SWIG_fail;
  }
  {
    octave_value obj = args(0);
    if ( !obj.is_empty() )
    {
      if ( obj.is_function_handle() || obj.is_inline_function() )
      {
        fcnMapForm = obj.function_value();
      }
      else if ( obj.is_string() )
      {
        nameMapForm = obj.string_value();
        fcnMapForm  = NULL;
      }
      arg1 = mapform_octave;
    }
    else
    {
      arg1 = NULL;
    }
  }
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plmap" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plmap" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plmap" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plmap" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plmap" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  plmap(arg1,(char const *)arg2,arg3,arg4,arg5,arg6);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  return _out;
fail:
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  return octave_value_list();
}


SWIG_DEFUN( plmapline, _wrap_plmapline, _wrap_plmapline_texinfo ) {
  mapform_func arg1 = (mapform_func) 0 ;
  char *arg2 = (char *) 0 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLINT *arg7 = (PLINT *) 0 ;
  PLINT arg8 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  Matrix temp7 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmapline",args.length(),7,7,0)) {
    SWIG_fail;
  }
  {
    octave_value obj = args(0);
    if ( !obj.is_empty() )
    {
      if ( obj.is_function_handle() || obj.is_inline_function() )
      {
        fcnMapForm = obj.function_value();
      }
      else if ( obj.is_string() )
      {
        nameMapForm = obj.string_value();
        fcnMapForm  = NULL;
      }
      arg1 = mapform_octave;
    }
    else
    {
      arg1 = NULL;
    }
  }
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plmapline" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plmapline" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plmapline" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plmapline" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plmapline" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  {
    if ( _n_dims( args(6) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(6).is_empty() )
    {
      arg8   = (PLINT) ( _dim( args(6), 0 ) );
      temp7 = args(6).matrix_value();
      arg7   = new PLINT[arg8];
      _cvt_double_to( arg7, &temp7( 0, 0 ), arg8 );
    }
    else
    {
      arg7 = NULL;
      arg8 = 0;
    }
  }
  plmapline(arg1,(char const *)arg2,arg3,arg4,arg5,arg6,(int const *)arg7,arg8);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  {
    delete [] arg7;
  }
  return _out;
fail:
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  {
    delete [] arg7;
  }
  return octave_value_list();
}


SWIG_DEFUN( plmapstring, _wrap_plmapstring, _wrap_plmapstring_texinfo ) {
  mapform_func arg1 = (mapform_func) 0 ;
  char *arg2 = (char *) 0 ;
  char *arg3 = (char *) 0 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  PLINT *arg8 = (PLINT *) 0 ;
  PLINT arg9 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  int res3 ;
  char *buf3 = 0 ;
  int alloc3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  Matrix temp8 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmapstring",args.length(),8,8,0)) {
    SWIG_fail;
  }
  {
    octave_value obj = args(0);
    if ( !obj.is_empty() )
    {
      if ( obj.is_function_handle() || obj.is_inline_function() )
      {
        fcnMapForm = obj.function_value();
      }
      else if ( obj.is_string() )
      {
        nameMapForm = obj.string_value();
        fcnMapForm  = NULL;
      }
      arg1 = mapform_octave;
    }
    else
    {
      arg1 = NULL;
    }
  }
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plmapstring" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  res3 = SWIG_AsCharPtrAndSize(args(2), &buf3, NULL, &alloc3);
  if (!SWIG_IsOK(res3)) {
    SWIG_exception_fail(SWIG_ArgError(res3), "in method '" "plmapstring" "', argument " "3"" of type '" "char const *""'");
  }
  arg3 = (char *)(buf3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plmapstring" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plmapstring" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plmapstring" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plmapstring" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  {
    if ( _n_dims( args(7) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(7).is_empty() )
    {
      arg9   = (PLINT) ( _dim( args(7), 0 ) );
      temp8 = args(7).matrix_value();
      arg8   = new PLINT[arg9];
      _cvt_double_to( arg8, &temp8( 0, 0 ), arg9 );
    }
    else
    {
      arg8 = NULL;
      arg9 = 0;
    }
  }
  plmapstring(arg1,(char const *)arg2,(char const *)arg3,arg4,arg5,arg6,arg7,(int const *)arg8,arg9);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc3 == SWIG_NEWOBJ) delete[] buf3;
  {
    delete [] arg8;
  }
  return _out;
fail:
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc3 == SWIG_NEWOBJ) delete[] buf3;
  {
    delete [] arg8;
  }
  return octave_value_list();
}


SWIG_DEFUN( plmaptex, _wrap_plmaptex, _wrap_plmaptex_texinfo ) {
  mapform_func arg1 = (mapform_func) 0 ;
  char *arg2 = (char *) 0 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  char *arg6 = (char *) 0 ;
  PLFLT arg7 ;
  PLFLT arg8 ;
  PLFLT arg9 ;
  PLFLT arg10 ;
  PLINT arg11 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  int res6 ;
  char *buf6 = 0 ;
  int alloc6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  double val8 ;
  int ecode8 = 0 ;
  double val9 ;
  int ecode9 = 0 ;
  double val10 ;
  int ecode10 = 0 ;
  int val11 ;
  int ecode11 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmaptex",args.length(),11,11,0)) {
    SWIG_fail;
  }
  {
    octave_value obj = args(0);
    if ( !obj.is_empty() )
    {
      if ( obj.is_function_handle() || obj.is_inline_function() )
      {
        fcnMapForm = obj.function_value();
      }
      else if ( obj.is_string() )
      {
        nameMapForm = obj.string_value();
        fcnMapForm  = NULL;
      }
      arg1 = mapform_octave;
    }
    else
    {
      arg1 = NULL;
    }
  }
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plmaptex" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plmaptex" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plmaptex" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plmaptex" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  res6 = SWIG_AsCharPtrAndSize(args(5), &buf6, NULL, &alloc6);
  if (!SWIG_IsOK(res6)) {
    SWIG_exception_fail(SWIG_ArgError(res6), "in method '" "plmaptex" "', argument " "6"" of type '" "char const *""'");
  }
  arg6 = (char *)(buf6);
  ecode7 = SWIG_AsVal_double(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plmaptex" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  ecode8 = SWIG_AsVal_double(args(7), &val8);
  if (!SWIG_IsOK(ecode8)) {
    SWIG_exception_fail(SWIG_ArgError(ecode8), "in method '" "plmaptex" "', argument " "8"" of type '" "PLFLT""'");
  } 
  arg8 = (PLFLT)(val8);
  ecode9 = SWIG_AsVal_double(args(8), &val9);
  if (!SWIG_IsOK(ecode9)) {
    SWIG_exception_fail(SWIG_ArgError(ecode9), "in method '" "plmaptex" "', argument " "9"" of type '" "PLFLT""'");
  } 
  arg9 = (PLFLT)(val9);
  ecode10 = SWIG_AsVal_double(args(9), &val10);
  if (!SWIG_IsOK(ecode10)) {
    SWIG_exception_fail(SWIG_ArgError(ecode10), "in method '" "plmaptex" "', argument " "10"" of type '" "PLFLT""'");
  } 
  arg10 = (PLFLT)(val10);
  ecode11 = SWIG_AsVal_int(args(10), &val11);
  if (!SWIG_IsOK(ecode11)) {
    SWIG_exception_fail(SWIG_ArgError(ecode11), "in method '" "plmaptex" "', argument " "11"" of type '" "PLINT""'");
  } 
  arg11 = (PLINT)(val11);
  plmaptex(arg1,(char const *)arg2,arg3,arg4,arg5,(char const *)arg6,arg7,arg8,arg9,arg10,arg11);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc6 == SWIG_NEWOBJ) delete[] buf6;
  return _out;
fail:
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  if (alloc6 == SWIG_NEWOBJ) delete[] buf6;
  return octave_value_list();
}


SWIG_DEFUN( plmapfill, _wrap_plmapfill, _wrap_plmapfill_texinfo ) {
  mapform_func arg1 = (mapform_func) 0 ;
  char *arg2 = (char *) 0 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLINT *arg7 = (PLINT *) 0 ;
  PLINT arg8 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  Matrix temp7 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmapfill",args.length(),7,7,0)) {
    SWIG_fail;
  }
  {
    octave_value obj = args(0);
    if ( !obj.is_empty() )
    {
      if ( obj.is_function_handle() || obj.is_inline_function() )
      {
        fcnMapForm = obj.function_value();
      }
      else if ( obj.is_string() )
      {
        nameMapForm = obj.string_value();
        fcnMapForm  = NULL;
      }
      arg1 = mapform_octave;
    }
    else
    {
      arg1 = NULL;
    }
  }
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plmapfill" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plmapfill" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plmapfill" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plmapfill" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plmapfill" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  {
    if ( _n_dims( args(6) ) > 1 )
    {
      error( "argument must be a scalar or vector" ); SWIG_fail;
    }
    if ( !args(6).is_empty() )
    {
      arg8   = (PLINT) ( _dim( args(6), 0 ) );
      temp7 = args(6).matrix_value();
      arg7   = new PLINT[arg8];
      _cvt_double_to( arg7, &temp7( 0, 0 ), arg8 );
    }
    else
    {
      arg7 = NULL;
      arg8 = 0;
    }
  }
  plmapfill(arg1,(char const *)arg2,arg3,arg4,arg5,arg6,(int const *)arg7,arg8);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  {
    delete [] arg7;
  }
  return _out;
fail:
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  {
    delete [] arg7;
  }
  return octave_value_list();
}


SWIG_DEFUN( plmeridians, _wrap_plmeridians, _wrap_plmeridians_texinfo ) {
  mapform_func arg1 = (mapform_func) 0 ;
  PLFLT arg2 ;
  PLFLT arg3 ;
  PLFLT arg4 ;
  PLFLT arg5 ;
  PLFLT arg6 ;
  PLFLT arg7 ;
  double val2 ;
  int ecode2 = 0 ;
  double val3 ;
  int ecode3 = 0 ;
  double val4 ;
  int ecode4 = 0 ;
  double val5 ;
  int ecode5 = 0 ;
  double val6 ;
  int ecode6 = 0 ;
  double val7 ;
  int ecode7 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plmeridians",args.length(),7,7,0)) {
    SWIG_fail;
  }
  {
    octave_value obj = args(0);
    if ( !obj.is_empty() )
    {
      if ( obj.is_function_handle() || obj.is_inline_function() )
      {
        fcnMapForm = obj.function_value();
      }
      else if ( obj.is_string() )
      {
        nameMapForm = obj.string_value();
        fcnMapForm  = NULL;
      }
      arg1 = mapform_octave;
    }
    else
    {
      arg1 = NULL;
    }
  }
  ecode2 = SWIG_AsVal_double(args(1), &val2);
  if (!SWIG_IsOK(ecode2)) {
    SWIG_exception_fail(SWIG_ArgError(ecode2), "in method '" "plmeridians" "', argument " "2"" of type '" "PLFLT""'");
  } 
  arg2 = (PLFLT)(val2);
  ecode3 = SWIG_AsVal_double(args(2), &val3);
  if (!SWIG_IsOK(ecode3)) {
    SWIG_exception_fail(SWIG_ArgError(ecode3), "in method '" "plmeridians" "', argument " "3"" of type '" "PLFLT""'");
  } 
  arg3 = (PLFLT)(val3);
  ecode4 = SWIG_AsVal_double(args(3), &val4);
  if (!SWIG_IsOK(ecode4)) {
    SWIG_exception_fail(SWIG_ArgError(ecode4), "in method '" "plmeridians" "', argument " "4"" of type '" "PLFLT""'");
  } 
  arg4 = (PLFLT)(val4);
  ecode5 = SWIG_AsVal_double(args(4), &val5);
  if (!SWIG_IsOK(ecode5)) {
    SWIG_exception_fail(SWIG_ArgError(ecode5), "in method '" "plmeridians" "', argument " "5"" of type '" "PLFLT""'");
  } 
  arg5 = (PLFLT)(val5);
  ecode6 = SWIG_AsVal_double(args(5), &val6);
  if (!SWIG_IsOK(ecode6)) {
    SWIG_exception_fail(SWIG_ArgError(ecode6), "in method '" "plmeridians" "', argument " "6"" of type '" "PLFLT""'");
  } 
  arg6 = (PLFLT)(val6);
  ecode7 = SWIG_AsVal_double(args(6), &val7);
  if (!SWIG_IsOK(ecode7)) {
    SWIG_exception_fail(SWIG_ArgError(ecode7), "in method '" "plmeridians" "', argument " "7"" of type '" "PLFLT""'");
  } 
  arg7 = (PLFLT)(val7);
  plmeridians(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plClearOpts, _wrap_plClearOpts, std::string() ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plClearOpts",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plClearOpts();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plResetOpts, _wrap_plResetOpts, std::string() ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plResetOpts",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plResetOpts();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}


SWIG_DEFUN( plSetUsage, _wrap_plSetUsage, std::string() ) {
  char *arg1 = (char *) 0 ;
  char *arg2 = (char *) 0 ;
  int res1 ;
  char *buf1 = 0 ;
  int alloc1 = 0 ;
  int res2 ;
  char *buf2 = 0 ;
  int alloc2 = 0 ;
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plSetUsage",args.length(),2,2,0)) {
    SWIG_fail;
  }
  res1 = SWIG_AsCharPtrAndSize(args(0), &buf1, NULL, &alloc1);
  if (!SWIG_IsOK(res1)) {
    SWIG_exception_fail(SWIG_ArgError(res1), "in method '" "plSetUsage" "', argument " "1"" of type '" "char const *""'");
  }
  arg1 = (char *)(buf1);
  res2 = SWIG_AsCharPtrAndSize(args(1), &buf2, NULL, &alloc2);
  if (!SWIG_IsOK(res2)) {
    SWIG_exception_fail(SWIG_ArgError(res2), "in method '" "plSetUsage" "', argument " "2"" of type '" "char const *""'");
  }
  arg2 = (char *)(buf2);
  plSetUsage((char const *)arg1,(char const *)arg2);
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  return _out;
fail:
  if (alloc1 == SWIG_NEWOBJ) delete[] buf1;
  if (alloc2 == SWIG_NEWOBJ) delete[] buf2;
  return octave_value_list();
}


SWIG_DEFUN( plOptUsage, _wrap_plOptUsage, std::string() ) {
  octave_value_list _out;
  octave_value_list *_outp=&_out;
  octave_value _outv;
  
  if (!SWIG_check_num_args("plOptUsage",args.length(),0,0,0)) {
    SWIG_fail;
  }
  plOptUsage();
  _outv = octave_value();
  if (_outv.is_defined()) _outp = SWIG_Octave_AppendOutput(_outp, _outv);
  return _out;
fail:
  return octave_value_list();
}



static const struct swig_octave_member swig_globals[] = {
{"testppchar",_wrap_testppchar,0,0,2,0},
{"plGetCursor",_wrap_plGetCursor,0,0,2,_wrap_plGetCursor_texinfo},
{"plTranslateCursor",_wrap_plTranslateCursor,0,0,2,0},
{"plstripc",_wrap_plstripc,0,0,2,_wrap_plstripc_texinfo},
{"plcont",_wrap_plcont,0,0,2,_wrap_plcont_texinfo},
{"plcont0",_wrap_plcont0,0,0,2,0},
{"plcont1",_wrap_plcont1,0,0,2,0},
{"plcont2",_wrap_plcont2,0,0,2,0},
{"plcont2p",_wrap_plcont2p,0,0,2,0},
{"plgriddata",_wrap_plgriddata,0,0,2,_wrap_plgriddata_texinfo},
{"plmesh",_wrap_plmesh,0,0,2,_wrap_plmesh_texinfo},
{"plmeshc",_wrap_plmeshc,0,0,2,_wrap_plmeshc_texinfo},
{"plot3d",_wrap_plot3d,0,0,2,_wrap_plot3d_texinfo},
{"plot3dc",_wrap_plot3dc,0,0,2,_wrap_plot3dc_texinfo},
{"plot3dcl",_wrap_plot3dcl,0,0,2,_wrap_plot3dcl_texinfo},
{"plsurf3d",_wrap_plsurf3d,0,0,2,_wrap_plsurf3d_texinfo},
{"plsurf3dl",_wrap_plsurf3dl,0,0,2,_wrap_plsurf3dl_texinfo},
{"plshade",_wrap_plshade,0,0,2,_wrap_plshade_texinfo},
{"plshade1",_wrap_plshade1,0,0,2,0},
{"plshade2",_wrap_plshade2,0,0,2,0},
{"plshades",_wrap_plshades,0,0,2,_wrap_plshades_texinfo},
{"plshadesx",_wrap_plshadesx,0,0,2,0},
{"plshades1",_wrap_plshades1,0,0,2,0},
{"plshades2",_wrap_plshades2,0,0,2,0},
{"plvect",_wrap_plvect,0,0,2,_wrap_plvect_texinfo},
{"plvect1",_wrap_plvect1,0,0,2,0},
{"plvect2",_wrap_plvect2,0,0,2,0},
{"pplimage",_wrap_pplimage,0,0,2,0},
{"plimagefr",_wrap_plimagefr,0,0,2,_wrap_plimagefr_texinfo},
{"plimagefrx",_wrap_plimagefrx,0,0,2,0},
{"plimagefr1",_wrap_plimagefr1,0,0,2,0},
{"plimagefr2",_wrap_plimagefr2,0,0,2,0},
{"plcolorbar",_wrap_plcolorbar,0,0,2,_wrap_plcolorbar_texinfo},
{"PLGraphicsIn_type_set",_wrap_PLGraphicsIn_type_set,0,0,2,0},
{"PLGraphicsIn_type_get",_wrap_PLGraphicsIn_type_get,0,0,2,0},
{"PLGraphicsIn_state_set",_wrap_PLGraphicsIn_state_set,0,0,2,0},
{"PLGraphicsIn_state_get",_wrap_PLGraphicsIn_state_get,0,0,2,0},
{"PLGraphicsIn_keysym_set",_wrap_PLGraphicsIn_keysym_set,0,0,2,0},
{"PLGraphicsIn_keysym_get",_wrap_PLGraphicsIn_keysym_get,0,0,2,0},
{"PLGraphicsIn_button_set",_wrap_PLGraphicsIn_button_set,0,0,2,0},
{"PLGraphicsIn_button_get",_wrap_PLGraphicsIn_button_get,0,0,2,0},
{"PLGraphicsIn_subwindow_set",_wrap_PLGraphicsIn_subwindow_set,0,0,2,0},
{"PLGraphicsIn_subwindow_get",_wrap_PLGraphicsIn_subwindow_get,0,0,2,0},
{"PLGraphicsIn_string_set",_wrap_PLGraphicsIn_string_set,0,0,2,0},
{"PLGraphicsIn_string_get",_wrap_PLGraphicsIn_string_get,0,0,2,0},
{"PLGraphicsIn_pX_set",_wrap_PLGraphicsIn_pX_set,0,0,2,0},
{"PLGraphicsIn_pX_get",_wrap_PLGraphicsIn_pX_get,0,0,2,0},
{"PLGraphicsIn_pY_set",_wrap_PLGraphicsIn_pY_set,0,0,2,0},
{"PLGraphicsIn_pY_get",_wrap_PLGraphicsIn_pY_get,0,0,2,0},
{"PLGraphicsIn_dX_set",_wrap_PLGraphicsIn_dX_set,0,0,2,0},
{"PLGraphicsIn_dX_get",_wrap_PLGraphicsIn_dX_get,0,0,2,0},
{"PLGraphicsIn_dY_set",_wrap_PLGraphicsIn_dY_set,0,0,2,0},
{"PLGraphicsIn_dY_get",_wrap_PLGraphicsIn_dY_get,0,0,2,0},
{"PLGraphicsIn_wX_set",_wrap_PLGraphicsIn_wX_set,0,0,2,0},
{"PLGraphicsIn_wX_get",_wrap_PLGraphicsIn_wX_get,0,0,2,0},
{"PLGraphicsIn_wY_set",_wrap_PLGraphicsIn_wY_set,0,0,2,0},
{"PLGraphicsIn_wY_get",_wrap_PLGraphicsIn_wY_get,0,0,2,0},
{"new_PLGraphicsIn",_wrap_new_PLGraphicsIn,0,0,2,0},
{"delete_PLGraphicsIn",_wrap_delete_PLGraphicsIn,0,0,2,0},
{"pl_setcontlabelformat",_wrap_pl_setcontlabelformat,0,0,2,_wrap_pl_setcontlabelformat_texinfo},
{"pl_setcontlabelparam",_wrap_pl_setcontlabelparam,0,0,2,_wrap_pl_setcontlabelparam_texinfo},
{"pladv",_wrap_pladv,0,0,2,_wrap_pladv_texinfo},
{"plarc",_wrap_plarc,0,0,2,_wrap_plarc_texinfo},
{"plaxes",_wrap_plaxes,0,0,2,_wrap_plaxes_texinfo},
{"plbin",_wrap_plbin,0,0,2,_wrap_plbin_texinfo},
{"plbtime",_wrap_plbtime,0,0,2,_wrap_plbtime_texinfo},
{"plbop",_wrap_plbop,0,0,2,_wrap_plbop_texinfo},
{"plbox",_wrap_plbox,0,0,2,_wrap_plbox_texinfo},
{"plbox3",_wrap_plbox3,0,0,2,_wrap_plbox3_texinfo},
{"plcalc_world",_wrap_plcalc_world,0,0,2,_wrap_plcalc_world_texinfo},
{"plclear",_wrap_plclear,0,0,2,_wrap_plclear_texinfo},
{"plcol0",_wrap_plcol0,0,0,2,_wrap_plcol0_texinfo},
{"plcol1",_wrap_plcol1,0,0,2,_wrap_plcol1_texinfo},
{"plconfigtime",_wrap_plconfigtime,0,0,2,_wrap_plconfigtime_texinfo},
{"plctime",_wrap_plctime,0,0,2,_wrap_plctime_texinfo},
{"plcpstrm",_wrap_plcpstrm,0,0,2,_wrap_plcpstrm_texinfo},
{"plend",_wrap_plend,0,0,2,_wrap_plend_texinfo},
{"plend1",_wrap_plend1,0,0,2,_wrap_plend1_texinfo},
{"plenv",_wrap_plenv,0,0,2,_wrap_plenv_texinfo},
{"plenv0",_wrap_plenv0,0,0,2,_wrap_plenv0_texinfo},
{"pleop",_wrap_pleop,0,0,2,_wrap_pleop_texinfo},
{"plerrx",_wrap_plerrx,0,0,2,_wrap_plerrx_texinfo},
{"plerry",_wrap_plerry,0,0,2,_wrap_plerry_texinfo},
{"plfamadv",_wrap_plfamadv,0,0,2,_wrap_plfamadv_texinfo},
{"plfill",_wrap_plfill,0,0,2,_wrap_plfill_texinfo},
{"plfill3",_wrap_plfill3,0,0,2,_wrap_plfill3_texinfo},
{"plgradient",_wrap_plgradient,0,0,2,_wrap_plgradient_texinfo},
{"plflush",_wrap_plflush,0,0,2,_wrap_plflush_texinfo},
{"plfont",_wrap_plfont,0,0,2,_wrap_plfont_texinfo},
{"plfontld",_wrap_plfontld,0,0,2,_wrap_plfontld_texinfo},
{"plgchr",_wrap_plgchr,0,0,2,_wrap_plgchr_texinfo},
{"plgcol0",_wrap_plgcol0,0,0,2,_wrap_plgcol0_texinfo},
{"plgcol0a",_wrap_plgcol0a,0,0,2,_wrap_plgcol0a_texinfo},
{"plgcolbg",_wrap_plgcolbg,0,0,2,_wrap_plgcolbg_texinfo},
{"plgcolbga",_wrap_plgcolbga,0,0,2,_wrap_plgcolbga_texinfo},
{"plgcompression",_wrap_plgcompression,0,0,2,_wrap_plgcompression_texinfo},
{"plgdev",_wrap_plgdev,0,0,2,_wrap_plgdev_texinfo},
{"plgdidev",_wrap_plgdidev,0,0,2,_wrap_plgdidev_texinfo},
{"plgdiori",_wrap_plgdiori,0,0,2,_wrap_plgdiori_texinfo},
{"plgdiplt",_wrap_plgdiplt,0,0,2,_wrap_plgdiplt_texinfo},
{"plgfam",_wrap_plgfam,0,0,2,_wrap_plgfam_texinfo},
{"plgfci",_wrap_plgfci,0,0,2,_wrap_plgfci_texinfo},
{"plgfnam",_wrap_plgfnam,0,0,2,_wrap_plgfnam_texinfo},
{"plgfont",_wrap_plgfont,0,0,2,_wrap_plgfont_texinfo},
{"plglevel",_wrap_plglevel,0,0,2,_wrap_plglevel_texinfo},
{"plgpage",_wrap_plgpage,0,0,2,_wrap_plgpage_texinfo},
{"plgra",_wrap_plgra,0,0,2,_wrap_plgra_texinfo},
{"plgspa",_wrap_plgspa,0,0,2,_wrap_plgspa_texinfo},
{"plgstrm",_wrap_plgstrm,0,0,2,_wrap_plgstrm_texinfo},
{"plgver",_wrap_plgver,0,0,2,_wrap_plgver_texinfo},
{"plgvpd",_wrap_plgvpd,0,0,2,_wrap_plgvpd_texinfo},
{"plgvpw",_wrap_plgvpw,0,0,2,_wrap_plgvpw_texinfo},
{"plgxax",_wrap_plgxax,0,0,2,_wrap_plgxax_texinfo},
{"plgyax",_wrap_plgyax,0,0,2,_wrap_plgyax_texinfo},
{"plgzax",_wrap_plgzax,0,0,2,_wrap_plgzax_texinfo},
{"plhist",_wrap_plhist,0,0,2,_wrap_plhist_texinfo},
{"plhlsrgb",_wrap_plhlsrgb,0,0,2,_wrap_plhlsrgb_texinfo},
{"plinit",_wrap_plinit,0,0,2,_wrap_plinit_texinfo},
{"pljoin",_wrap_pljoin,0,0,2,_wrap_pljoin_texinfo},
{"pllab",_wrap_pllab,0,0,2,_wrap_pllab_texinfo},
{"pllegend",_wrap_pllegend,0,0,2,_wrap_pllegend_texinfo},
{"pllightsource",_wrap_pllightsource,0,0,2,_wrap_pllightsource_texinfo},
{"plline",_wrap_plline,0,0,2,_wrap_plline_texinfo},
{"plline3",_wrap_plline3,0,0,2,_wrap_plline3_texinfo},
{"pllsty",_wrap_pllsty,0,0,2,_wrap_pllsty_texinfo},
{"plmkstrm",_wrap_plmkstrm,0,0,2,_wrap_plmkstrm_texinfo},
{"plmtex",_wrap_plmtex,0,0,2,_wrap_plmtex_texinfo},
{"plmtex3",_wrap_plmtex3,0,0,2,_wrap_plmtex3_texinfo},
{"plparseopts",_wrap_plparseopts,0,0,2,_wrap_plparseopts_texinfo},
{"plpat",_wrap_plpat,0,0,2,_wrap_plpat_texinfo},
{"plpath",_wrap_plpath,0,0,2,_wrap_plpath_texinfo},
{"plpoin",_wrap_plpoin,0,0,2,_wrap_plpoin_texinfo},
{"plpoin3",_wrap_plpoin3,0,0,2,_wrap_plpoin3_texinfo},
{"plpoly3",_wrap_plpoly3,0,0,2,_wrap_plpoly3_texinfo},
{"plprec",_wrap_plprec,0,0,2,_wrap_plprec_texinfo},
{"plpsty",_wrap_plpsty,0,0,2,_wrap_plpsty_texinfo},
{"plptex",_wrap_plptex,0,0,2,_wrap_plptex_texinfo},
{"plptex3",_wrap_plptex3,0,0,2,_wrap_plptex3_texinfo},
{"plrandd",_wrap_plrandd,0,0,2,_wrap_plrandd_texinfo},
{"plreplot",_wrap_plreplot,0,0,2,_wrap_plreplot_texinfo},
{"plrgbhls",_wrap_plrgbhls,0,0,2,_wrap_plrgbhls_texinfo},
{"plschr",_wrap_plschr,0,0,2,_wrap_plschr_texinfo},
{"plscmap0",_wrap_plscmap0,0,0,2,_wrap_plscmap0_texinfo},
{"plscmap0a",_wrap_plscmap0a,0,0,2,_wrap_plscmap0a_texinfo},
{"plscmap0n",_wrap_plscmap0n,0,0,2,_wrap_plscmap0n_texinfo},
{"plscmap1",_wrap_plscmap1,0,0,2,_wrap_plscmap1_texinfo},
{"plscmap1a",_wrap_plscmap1a,0,0,2,_wrap_plscmap1a_texinfo},
{"plscmap1l",_wrap_plscmap1l,0,0,2,_wrap_plscmap1l_texinfo},
{"plscmap1la",_wrap_plscmap1la,0,0,2,_wrap_plscmap1la_texinfo},
{"plscmap1n",_wrap_plscmap1n,0,0,2,_wrap_plscmap1n_texinfo},
{"plscmap1_range",_wrap_plscmap1_range,0,0,2,_wrap_plscmap1_range_texinfo},
{"plgcmap1_range",_wrap_plgcmap1_range,0,0,2,_wrap_plgcmap1_range_texinfo},
{"plscol0",_wrap_plscol0,0,0,2,_wrap_plscol0_texinfo},
{"plscol0a",_wrap_plscol0a,0,0,2,_wrap_plscol0a_texinfo},
{"plscolbg",_wrap_plscolbg,0,0,2,_wrap_plscolbg_texinfo},
{"plscolbga",_wrap_plscolbga,0,0,2,_wrap_plscolbga_texinfo},
{"plscolor",_wrap_plscolor,0,0,2,_wrap_plscolor_texinfo},
{"plscompression",_wrap_plscompression,0,0,2,_wrap_plscompression_texinfo},
{"plsdev",_wrap_plsdev,0,0,2,_wrap_plsdev_texinfo},
{"plsdidev",_wrap_plsdidev,0,0,2,_wrap_plsdidev_texinfo},
{"plsdimap",_wrap_plsdimap,0,0,2,_wrap_plsdimap_texinfo},
{"plsdiori",_wrap_plsdiori,0,0,2,_wrap_plsdiori_texinfo},
{"plsdiplt",_wrap_plsdiplt,0,0,2,_wrap_plsdiplt_texinfo},
{"plsdiplz",_wrap_plsdiplz,0,0,2,_wrap_plsdiplz_texinfo},
{"plseed",_wrap_plseed,0,0,2,_wrap_plseed_texinfo},
{"plsesc",_wrap_plsesc,0,0,2,_wrap_plsesc_texinfo},
{"plSetOpt",_wrap_plSetOpt,0,0,2,_wrap_plSetOpt_texinfo},
{"plsfam",_wrap_plsfam,0,0,2,_wrap_plsfam_texinfo},
{"plsfci",_wrap_plsfci,0,0,2,_wrap_plsfci_texinfo},
{"plsfnam",_wrap_plsfnam,0,0,2,_wrap_plsfnam_texinfo},
{"plsfont",_wrap_plsfont,0,0,2,_wrap_plsfont_texinfo},
{"plslabelfunc",_wrap_plslabelfunc,0,0,2,_wrap_plslabelfunc_texinfo},
{"plsmaj",_wrap_plsmaj,0,0,2,_wrap_plsmaj_texinfo},
{"plsmin",_wrap_plsmin,0,0,2,_wrap_plsmin_texinfo},
{"plsori",_wrap_plsori,0,0,2,_wrap_plsori_texinfo},
{"plspage",_wrap_plspage,0,0,2,_wrap_plspage_texinfo},
{"plspal0",_wrap_plspal0,0,0,2,_wrap_plspal0_texinfo},
{"plspal1",_wrap_plspal1,0,0,2,_wrap_plspal1_texinfo},
{"plspause",_wrap_plspause,0,0,2,_wrap_plspause_texinfo},
{"plsstrm",_wrap_plsstrm,0,0,2,_wrap_plsstrm_texinfo},
{"plssub",_wrap_plssub,0,0,2,_wrap_plssub_texinfo},
{"plssym",_wrap_plssym,0,0,2,_wrap_plssym_texinfo},
{"plstar",_wrap_plstar,0,0,2,_wrap_plstar_texinfo},
{"plstart",_wrap_plstart,0,0,2,_wrap_plstart_texinfo},
{"plstransform",_wrap_plstransform,0,0,2,_wrap_plstransform_texinfo},
{"plstring",_wrap_plstring,0,0,2,_wrap_plstring_texinfo},
{"plstring3",_wrap_plstring3,0,0,2,_wrap_plstring3_texinfo},
{"plstripa",_wrap_plstripa,0,0,2,_wrap_plstripa_texinfo},
{"plstripd",_wrap_plstripd,0,0,2,_wrap_plstripd_texinfo},
{"plstyl",_wrap_plstyl,0,0,2,_wrap_plstyl_texinfo},
{"plsvect",_wrap_plsvect,0,0,2,_wrap_plsvect_texinfo},
{"plsvpa",_wrap_plsvpa,0,0,2,_wrap_plsvpa_texinfo},
{"plsxax",_wrap_plsxax,0,0,2,_wrap_plsxax_texinfo},
{"plsyax",_wrap_plsyax,0,0,2,_wrap_plsyax_texinfo},
{"plsym",_wrap_plsym,0,0,2,_wrap_plsym_texinfo},
{"plszax",_wrap_plszax,0,0,2,_wrap_plszax_texinfo},
{"pltext",_wrap_pltext,0,0,2,_wrap_pltext_texinfo},
{"pltimefmt",_wrap_pltimefmt,0,0,2,_wrap_pltimefmt_texinfo},
{"plvasp",_wrap_plvasp,0,0,2,_wrap_plvasp_texinfo},
{"plvpas",_wrap_plvpas,0,0,2,_wrap_plvpas_texinfo},
{"plvpor",_wrap_plvpor,0,0,2,_wrap_plvpor_texinfo},
{"plvsta",_wrap_plvsta,0,0,2,_wrap_plvsta_texinfo},
{"plw3d",_wrap_plw3d,0,0,2,_wrap_plw3d_texinfo},
{"plwidth",_wrap_plwidth,0,0,2,_wrap_plwidth_texinfo},
{"plwind",_wrap_plwind,0,0,2,_wrap_plwind_texinfo},
{"plxormod",_wrap_plxormod,0,0,2,_wrap_plxormod_texinfo},
{"plmap",_wrap_plmap,0,0,2,_wrap_plmap_texinfo},
{"plmapline",_wrap_plmapline,0,0,2,_wrap_plmapline_texinfo},
{"plmapstring",_wrap_plmapstring,0,0,2,_wrap_plmapstring_texinfo},
{"plmaptex",_wrap_plmaptex,0,0,2,_wrap_plmaptex_texinfo},
{"plmapfill",_wrap_plmapfill,0,0,2,_wrap_plmapfill_texinfo},
{"plmeridians",_wrap_plmeridians,0,0,2,_wrap_plmeridians_texinfo},
{"plClearOpts",_wrap_plClearOpts,0,0,2,0},
{"plResetOpts",_wrap_plResetOpts,0,0,2,0},
{"plSetUsage",_wrap_plSetUsage,0,0,2,0},
{"plOptUsage",_wrap_plOptUsage,0,0,2,0},
{0,0,0,0,0}
};

/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (BEGIN) -------- */

static swig_type_info _swigt__p_PLGraphicsIn = {"_p_PLGraphicsIn", "PLGraphicsIn *", 0, 0, (void*)&_wrap_class_PLGraphicsIn, 0};
static swig_type_info _swigt__p_char = {"_p_char", "char *", 0, 0, (void*)0, 0};
static swig_type_info _swigt__p_double = {"_p_double", "double *|PLFLT *", 0, 0, (void*)0, 0};
static swig_type_info _swigt__p_f_double_double_p_double_p_double_p_void__void = {"_p_f_double_double_p_double_p_double_p_void__void", "ct_func|void (*)(double,double,double *,double *,void *)", 0, 0, (void*)0, 0};
static swig_type_info _swigt__p_f_int_double_p_char_int_p_void__void = {"_p_f_int_double_p_char_int_p_void__void", "void (*)(int,double,char *,int,void *)|label_func", 0, 0, (void*)0, 0};
static swig_type_info _swigt__p_f_int_p_double_p_double__void = {"_p_f_int_p_double_p_double__void", "mapform_func|void (*)(int,double *,double *)", 0, 0, (void*)0, 0};
static swig_type_info _swigt__p_int = {"_p_int", "PLBOOL *|int *|PLINT *", 0, 0, (void*)0, 0};
static swig_type_info _swigt__p_p_char = {"_p_p_char", "char **", 0, 0, (void*)0, 0};
static swig_type_info _swigt__p_unsigned_int = {"_p_unsigned_int", "unsigned int *|PLUNICODE *", 0, 0, (void*)0, 0};

static swig_type_info *swig_type_initial[] = {
  &_swigt__p_PLGraphicsIn,
  &_swigt__p_char,
  &_swigt__p_double,
  &_swigt__p_f_double_double_p_double_p_double_p_void__void,
  &_swigt__p_f_int_double_p_char_int_p_void__void,
  &_swigt__p_f_int_p_double_p_double__void,
  &_swigt__p_int,
  &_swigt__p_p_char,
  &_swigt__p_unsigned_int,
};

static swig_cast_info _swigc__p_PLGraphicsIn[] = {  {&_swigt__p_PLGraphicsIn, 0, 0, 0},{0, 0, 0, 0}};
static swig_cast_info _swigc__p_char[] = {  {&_swigt__p_char, 0, 0, 0},{0, 0, 0, 0}};
static swig_cast_info _swigc__p_double[] = {  {&_swigt__p_double, 0, 0, 0},{0, 0, 0, 0}};
static swig_cast_info _swigc__p_f_double_double_p_double_p_double_p_void__void[] = {  {&_swigt__p_f_double_double_p_double_p_double_p_void__void, 0, 0, 0},{0, 0, 0, 0}};
static swig_cast_info _swigc__p_f_int_double_p_char_int_p_void__void[] = {  {&_swigt__p_f_int_double_p_char_int_p_void__void, 0, 0, 0},{0, 0, 0, 0}};
static swig_cast_info _swigc__p_f_int_p_double_p_double__void[] = {  {&_swigt__p_f_int_p_double_p_double__void, 0, 0, 0},{0, 0, 0, 0}};
static swig_cast_info _swigc__p_int[] = {  {&_swigt__p_int, 0, 0, 0},{0, 0, 0, 0}};
static swig_cast_info _swigc__p_p_char[] = {  {&_swigt__p_p_char, 0, 0, 0},{0, 0, 0, 0}};
static swig_cast_info _swigc__p_unsigned_int[] = {  {&_swigt__p_unsigned_int, 0, 0, 0},{0, 0, 0, 0}};

static swig_cast_info *swig_cast_initial[] = {
  _swigc__p_PLGraphicsIn,
  _swigc__p_char,
  _swigc__p_double,
  _swigc__p_f_double_double_p_double_p_double_p_void__void,
  _swigc__p_f_int_double_p_char_int_p_void__void,
  _swigc__p_f_int_p_double_p_double__void,
  _swigc__p_int,
  _swigc__p_p_char,
  _swigc__p_unsigned_int,
};


/* -------- TYPE CONVERSION AND EQUIVALENCE RULES (END) -------- */

/* -----------------------------------------------------------------------------
 * Type initialization:
 * This problem is tough by the requirement that no dynamic
 * memory is used. Also, since swig_type_info structures store pointers to
 * swig_cast_info structures and swig_cast_info structures store pointers back
 * to swig_type_info structures, we need some lookup code at initialization.
 * The idea is that swig generates all the structures that are needed.
 * The runtime then collects these partially filled structures.
 * The SWIG_InitializeModule function takes these initial arrays out of
 * swig_module, and does all the lookup, filling in the swig_module.types
 * array with the correct data and linking the correct swig_cast_info
 * structures together.
 *
 * The generated swig_type_info structures are assigned staticly to an initial
 * array. We just loop through that array, and handle each type individually.
 * First we lookup if this type has been already loaded, and if so, use the
 * loaded structure instead of the generated one. Then we have to fill in the
 * cast linked list. The cast data is initially stored in something like a
 * two-dimensional array. Each row corresponds to a type (there are the same
 * number of rows as there are in the swig_type_initial array). Each entry in
 * a column is one of the swig_cast_info structures for that type.
 * The cast_initial array is actually an array of arrays, because each row has
 * a variable number of columns. So to actually build the cast linked list,
 * we find the array of casts associated with the type, and loop through it
 * adding the casts to the list. The one last trick we need to do is making
 * sure the type pointer in the swig_cast_info struct is correct.
 *
 * First off, we lookup the cast->type name to see if it is already loaded.
 * There are three cases to handle:
 *  1) If the cast->type has already been loaded AND the type we are adding
 *     casting info to has not been loaded (it is in this module), THEN we
 *     replace the cast->type pointer with the type pointer that has already
 *     been loaded.
 *  2) If BOTH types (the one we are adding casting info to, and the
 *     cast->type) are loaded, THEN the cast info has already been loaded by
 *     the previous module so we just ignore it.
 *  3) Finally, if cast->type has not already been loaded, then we add that
 *     swig_cast_info to the linked list (because the cast->type) pointer will
 *     be correct.
 * ----------------------------------------------------------------------------- */

#ifdef __cplusplus
extern "C" {
#if 0
} /* c-mode */
#endif
#endif

#if 0
#define SWIGRUNTIME_DEBUG
#endif


SWIGRUNTIME void
SWIG_InitializeModule(void *clientdata) {
  size_t i;
  swig_module_info *module_head, *iter;
  int found, init;

  /* check to see if the circular list has been setup, if not, set it up */
  if (swig_module.next==0) {
    /* Initialize the swig_module */
    swig_module.type_initial = swig_type_initial;
    swig_module.cast_initial = swig_cast_initial;
    swig_module.next = &swig_module;
    init = 1;
  } else {
    init = 0;
  }

  /* Try and load any already created modules */
  module_head = SWIG_GetModule(clientdata);
  if (!module_head) {
    /* This is the first module loaded for this interpreter */
    /* so set the swig module into the interpreter */
    SWIG_SetModule(clientdata, &swig_module);
    module_head = &swig_module;
  } else {
    /* the interpreter has loaded a SWIG module, but has it loaded this one? */
    found=0;
    iter=module_head;
    do {
      if (iter==&swig_module) {
        found=1;
        break;
      }
      iter=iter->next;
    } while (iter!= module_head);

    /* if the is found in the list, then all is done and we may leave */
    if (found) return;
    /* otherwise we must add out module into the list */
    swig_module.next = module_head->next;
    module_head->next = &swig_module;
  }

  /* When multiple interpreters are used, a module could have already been initialized in
     a different interpreter, but not yet have a pointer in this interpreter.
     In this case, we do not want to continue adding types... everything should be
     set up already */
  if (init == 0) return;

  /* Now work on filling in swig_module.types */
#ifdef SWIGRUNTIME_DEBUG
  printf("SWIG_InitializeModule: size %d\n", swig_module.size);
#endif
  for (i = 0; i < swig_module.size; ++i) {
    swig_type_info *type = 0;
    swig_type_info *ret;
    swig_cast_info *cast;

#ifdef SWIGRUNTIME_DEBUG
    printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name);
#endif

    /* if there is another module already loaded */
    if (swig_module.next != &swig_module) {
      type = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, swig_module.type_initial[i]->name);
    }
    if (type) {
      /* Overwrite clientdata field */
#ifdef SWIGRUNTIME_DEBUG
      printf("SWIG_InitializeModule: found type %s\n", type->name);
#endif
      if (swig_module.type_initial[i]->clientdata) {
        type->clientdata = swig_module.type_initial[i]->clientdata;
#ifdef SWIGRUNTIME_DEBUG
      printf("SWIG_InitializeModule: found and overwrite type %s \n", type->name);
#endif
      }
    } else {
      type = swig_module.type_initial[i];
    }

    /* Insert casting types */
    cast = swig_module.cast_initial[i];
    while (cast->type) {

      /* Don't need to add information already in the list */
      ret = 0;
#ifdef SWIGRUNTIME_DEBUG
      printf("SWIG_InitializeModule: look cast %s\n", cast->type->name);
#endif
      if (swig_module.next != &swig_module) {
        ret = SWIG_MangledTypeQueryModule(swig_module.next, &swig_module, cast->type->name);
#ifdef SWIGRUNTIME_DEBUG
        if (ret) printf("SWIG_InitializeModule: found cast %s\n", ret->name);
#endif
      }
      if (ret) {
        if (type == swig_module.type_initial[i]) {
#ifdef SWIGRUNTIME_DEBUG
          printf("SWIG_InitializeModule: skip old type %s\n", ret->name);
#endif
          cast->type = ret;
          ret = 0;
        } else {
          /* Check for casting already in the list */
          swig_cast_info *ocast = SWIG_TypeCheck(ret->name, type);
#ifdef SWIGRUNTIME_DEBUG
          if (ocast) printf("SWIG_InitializeModule: skip old cast %s\n", ret->name);
#endif
          if (!ocast) ret = 0;
        }
      }

      if (!ret) {
#ifdef SWIGRUNTIME_DEBUG
        printf("SWIG_InitializeModule: adding cast %s\n", cast->type->name);
#endif
        if (type->cast) {
          type->cast->prev = cast;
          cast->next = type->cast;
        }
        type->cast = cast;
      }
      cast++;
    }
    /* Set entry in modules->types array equal to the type */
    swig_module.types[i] = type;
  }
  swig_module.types[i] = 0;

#ifdef SWIGRUNTIME_DEBUG
  printf("**** SWIG_InitializeModule: Cast List ******\n");
  for (i = 0; i < swig_module.size; ++i) {
    int j = 0;
    swig_cast_info *cast = swig_module.cast_initial[i];
    printf("SWIG_InitializeModule: type %d %s\n", i, swig_module.type_initial[i]->name);
    while (cast->type) {
      printf("SWIG_InitializeModule: cast type %s\n", cast->type->name);
      cast++;
      ++j;
    }
  printf("---- Total casts: %d\n",j);
  }
  printf("**** SWIG_InitializeModule: Cast List ******\n");
#endif
}

/* This function will propagate the clientdata field of type to
* any new swig_type_info structures that have been added into the list
* of equivalent types.  It is like calling
* SWIG_TypeClientData(type, clientdata) a second time.
*/
SWIGRUNTIME void
SWIG_PropagateClientData(void) {
  size_t i;
  swig_cast_info *equiv;
  static int init_run = 0;

  if (init_run) return;
  init_run = 1;

  for (i = 0; i < swig_module.size; i++) {
    if (swig_module.types[i]->clientdata) {
      equiv = swig_module.types[i]->cast;
      while (equiv) {
        if (!equiv->converter) {
          if (equiv->type && !equiv->type->clientdata)
            SWIG_TypeClientData(equiv->type, swig_module.types[i]->clientdata);
        }
        equiv = equiv->next;
      }
    }
  }
}

#ifdef __cplusplus
#if 0
{ /* c-mode */
#endif
}
#endif



static bool SWIG_init_user(octave_swig_type* module_ns);

SWIGINTERN bool SWIG_Octave_LoadModule(std::string name) {
  bool retn;
  {
#if !SWIG_OCTAVE_PREREQ(3,3,50)
    unwind_protect::begin_frame("SWIG_Octave_LoadModule");
    unwind_protect_int(error_state);
    unwind_protect_int(warning_state);
    unwind_protect_bool(discard_error_messages);
    unwind_protect_bool(discard_warning_messages);
#else
    unwind_protect frame;
    frame.protect_var(error_state);
    frame.protect_var(warning_state);
    frame.protect_var(discard_error_messages);
    frame.protect_var(discard_warning_messages);
#endif
    error_state = 0;
    warning_state = 0;
    discard_error_messages = true;
    discard_warning_messages = true;
    feval(name, octave_value_list(), 0);
    retn = (error_state == 0);
#if !SWIG_OCTAVE_PREREQ(3,3,50)
    unwind_protect::run_frame("SWIG_Octave_LoadModule");
#endif
  }
  if (!retn) {
    error(SWIG_name_d ": could not load module `%s'", name.c_str());
  }
  return retn;
}

SWIGINTERN bool SWIG_Octave_InstallFunction(octave_function *octloadfcn, std::string name) {
  bool retn;
  {
#if !SWIG_OCTAVE_PREREQ(3,3,50)
    unwind_protect::begin_frame("SWIG_Octave_InstallFunction");
    unwind_protect_int(error_state);
    unwind_protect_int(warning_state);
    unwind_protect_bool(discard_error_messages);
    unwind_protect_bool(discard_warning_messages);
#else
    unwind_protect frame;
    frame.protect_var(error_state);
    frame.protect_var(warning_state);
    frame.protect_var(discard_error_messages);
    frame.protect_var(discard_warning_messages);
#endif
    error_state = 0;
    warning_state = 0;
    discard_error_messages = true;
    discard_warning_messages = true;
    octave_value_list args;
    args.append(name);
    args.append(octloadfcn->fcn_file_name());
    error_state = 0;
    feval("autoload", args, 0);
    retn = (error_state == 0);
#if !SWIG_OCTAVE_PREREQ(3,3,50)
    unwind_protect::run_frame("SWIG_Octave_InstallFunction");
#endif
  }
  if (!retn) {
    error(SWIG_name_d ": could not load function `%s'", name.c_str());
  }
  return retn;
}

static const char *const subclass_usage = "-*- texinfo -*- \n\
@deftypefn {Loadable Function} {} subclass()\n\
@deftypefnx{Loadable Function} {} subclass(@var{swigclass}, @var{name}, @var{fcn}, @dots{})\n\
Subclass a C++ class from within Octave, and provide implementations of its virtual methods.\n\
\n\
See the SWIG manual for usage examples.\n\
@end deftypefn";

DEFUN_DLD( subclass, args, nargout, subclass_usage ) {
  octave_swig_type *top = new octave_swig_type;
  for (int j = 0; j < args.length(); ++j) {
    if (args(j).type_id() == octave_swig_ref::static_type_id()) {
      octave_swig_ref *osr = static_cast < octave_swig_ref *>(args(j).internal_rep());
      octave_swig_type *ost = osr->get_ptr();
      if (!ost->is_owned()) {
        error("subclass: cannot subclass object not constructed on octave side");
        return octave_value_list();
      }
      top->merge(*ost);
    } else if (args(j).is_function_handle()) {
      top->assign(args(j).fcn_handle_value()->fcn_name(), args(j));
    } else if (args(j).is_string()) {
      if (j + 1 >= args.length()) {
        error("subclass: member assignments must be of string,value form");
        return octave_value_list();
      }
      top->assign(args(j).string_value(), args(j + 1));
      ++j;
    } else {
      error("subclass: invalid arguments to subclass()");
      return octave_value_list();
    }
  }
  return octave_value(Swig::swig_value_ref(top));
}

static const char *const swig_type_usage = "-*- texinfo -*- \n\
@deftypefn {Loadable Function} {} swig_type(@var{swigref})\n\
Return the underlying C/C++ type name of a SWIG-wrapped object.\n\
@end deftypefn";

DEFUN_DLD( swig_type, args, nargout, swig_type_usage ) {
  if (args.length() != 1) {
    error("swig_type: must be called with only a single object");
    return octave_value_list();
  }
  octave_swig_type *ost = Swig::swig_value_deref(args(0));
  if (!ost) {
    error("swig_type: object is not a swig_ref");
    return octave_value_list();
  }
  return octave_value(ost->swig_type_name());
}

static const char *const swig_typequery_usage = "-*- texinfo -*- \n\
@deftypefn {Loadable Function} {} swig_typequery(@var{string})\n\
Return @var{string} if it is a recognised SWIG-wrapped C/C++ type name;\n\
otherwise return `<unknown>'.\n\
@end deftypefn";

DEFUN_DLD( swig_typequery, args, nargout, swig_typequery_usage ) {
  if (args.length() != 1 || !args(0).is_string()) {
    error("swig_typequery: must be called with single string argument");
    return octave_value_list();
  }
  swig_module_info *module = SWIG_GetModule(0);
  swig_type_info *type = SWIG_TypeQueryModule(module, module, args(0).string_value().c_str());
  if (!type)
    return octave_value("<unknown>");
  return octave_value(type->name);
}

static const char *const swig_this_usage = "-*- texinfo -*- \n\
@deftypefn {Loadable Function} {} swig_this(@var{swigref})\n\
Return the underlying C/C++ pointer of a SWIG-wrapped object.\n\
@end deftypefn";

DEFUN_DLD( swig_this, args, nargout, swig_this_usage ) {
  if (args.length() != 1) {
    error("swig_this: must be called with only a single object");
    return octave_value_list();
  }
  if (args(0).is_matrix_type() && args(0).rows() == 0 && args(0).columns() == 0)
    return octave_value(octave_uint64(0));
  octave_swig_type *ost = Swig::swig_value_deref(args(0));
  if (!ost) {
    error("swig_this: object is not a swig_ref");
    return octave_value_list();
  }
  return octave_value(octave_uint64((unsigned long long) ost->swig_this()));
}

static const char *const SWIG_name_usage = "-*- texinfo -*- \n\
@deftypefn {Loadable Module} {} " SWIG_name_d "\n\
Loads the SWIG-generated module `" SWIG_name_d "'.\n\
@end deftypefn";

DEFUN_DLD( SWIG_name, args, nargout, SWIG_name_usage ) {

  static octave_swig_type* module_ns = 0;

  // workaround to prevent octave seg-faulting on exit: set Octave exit function
  // octave_exit to _Exit, which exits immediately without trying to cleanup memory.
  // definitely affects version 3.2.*, not sure about 3.3.*, seems to be fixed in
  // version 3.4.* and above. can be turned off with macro definition.
#ifndef SWIG_OCTAVE_NO_SEGFAULT_HACK
#if SWIG_OCTAVE_PREREQ(3,2,0) && !SWIG_OCTAVE_PREREQ(3,4,1)
  octave_exit = ::_Exit;
#endif
#endif

  // check for no input and output args
  if (args.length() != 0 || nargout != 0) {
    print_usage();
    return octave_value_list();
  }

  // create module on first function call
  if (!module_ns) {

    // workaround bug in octave where installing global variable of custom type and then
    // exiting without explicitly clearing the variable causes octave to segfault.
#if SWIG_OCTAVE_PREREQ(3,2,0)
    octave_value_list eval_args;
    eval_args.append("base");
    eval_args.append("function __swig_atexit__; "
                     "  if mislocked() "
                     "    clear -all; "
                     "  else "
                     "    mlock(); "
                     "  endif; "
                     "endfunction; "
                     "__swig_atexit__; "
                     "atexit(\"__swig_atexit__\", false); "
                     "atexit(\"__swig_atexit__\")");
    feval("evalin", eval_args, 0);
#endif

    octave_swig_ref::register_type();
    octave_swig_packed::register_type();
    SWIG_InitializeModule(0);
    SWIG_PropagateClientData();

    octave_function *me = octave_call_stack::current();

    if (!SWIG_Octave_InstallFunction(me, "swig_type")) {
      return octave_value_list();
    }
    if (!SWIG_Octave_InstallFunction(me, "swig_typequery")) {
      return octave_value_list();
    }
    if (!SWIG_Octave_InstallFunction(me, "swig_this")) {
      return octave_value_list();
    }
    if (!SWIG_Octave_InstallFunction(me, "subclass")) {
      return octave_value_list();
    }

    octave_swig_type* cvar_ns=0;
    if (std::string(SWIG_global_name) != ".") {
      cvar_ns=new octave_swig_type;
      for (int j=0;swig_globals[j].name;++j)
        if (swig_globals[j].get_method)
          cvar_ns->assign(swig_globals[j].name,&swig_globals[j]);
    }

    module_ns=new octave_swig_type(0, 0, 0, true);
    if (std::string(SWIG_global_name) != ".") {
      module_ns->assign(SWIG_global_name,Swig::swig_value_ref(cvar_ns));
    }
    else {
      for (int j=0;swig_globals[j].name;++j)
        if (swig_globals[j].get_method)
          module_ns->assign(swig_globals[j].name,&swig_globals[j]);
    }
    for (int j=0;swig_globals[j].name;++j)
      if (swig_globals[j].method)
        module_ns->assign(swig_globals[j].name,&swig_globals[j]);

    // * need better solution here; swig_type -> octave_class mapping is
    // * really n-to-1, in some cases such as template partial spec, etc.
    // * see failing tests.
    for (int j=0;swig_types[j];++j)
      if (swig_types[j]->clientdata) {
        swig_octave_class* c=(swig_octave_class*)swig_types[j]->clientdata;
        module_ns->assign(c->name,
                        Swig::swig_value_ref
                        (new octave_swig_type(0,swig_types[j])));
      }

    if (!SWIG_init_user(module_ns)) {
      delete module_ns;
      module_ns=0;
      return octave_value_list();
    }

    SWIG_InstallOps(octave_swig_ref::static_type_id());

    octave_swig_type::swig_member_const_iterator mb;
    for (mb = module_ns->swig_members_begin(); mb != module_ns->swig_members_end(); ++mb) {
      if (mb->second.first && mb->second.first->method) {
        if (!SWIG_Octave_InstallFunction(me, mb->first)) {
          return octave_value_list();
        }
      }
    }

#if !SWIG_OCTAVE_PREREQ(3,2,0)
    mlock(me->name());
#else
    mlock();
#endif

  }

  octave_swig_type::swig_member_const_iterator mb;
  for (mb = module_ns->swig_members_begin(); mb != module_ns->swig_members_end(); ++mb) {
    if (mb->second.second.is_defined()) {
      SWIG_Octave_SetGlobalValue(mb->first, mb->second.second);
      SWIG_Octave_LinkGlobalValue(mb->first);
    }
  }

  SWIG_Octave_SetGlobalValue(SWIG_name_d, module_ns->as_value());
  SWIG_Octave_LinkGlobalValue(SWIG_name_d);

  return octave_value_list();

}


static bool SWIG_init_user(octave_swig_type* module_ns)
{
  SWIG_Octave_SetConstant(module_ns,"PLESC_SET_RGB",SWIG_From_int((int)(1)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_ALLOC_NCOL",SWIG_From_int((int)(2)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_SET_LPB",SWIG_From_int((int)(3)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_EXPOSE",SWIG_From_int((int)(4)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_RESIZE",SWIG_From_int((int)(5)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_REDRAW",SWIG_From_int((int)(6)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_TEXT",SWIG_From_int((int)(7)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_GRAPH",SWIG_From_int((int)(8)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_FILL",SWIG_From_int((int)(9)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_DI",SWIG_From_int((int)(10)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_FLUSH",SWIG_From_int((int)(11)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_EH",SWIG_From_int((int)(12)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_GETC",SWIG_From_int((int)(13)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_SWIN",SWIG_From_int((int)(14)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_DOUBLEBUFFERING",SWIG_From_int((int)(15)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_XORMOD",SWIG_From_int((int)(16)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_SET_COMPRESSION",SWIG_From_int((int)(17)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_CLEAR",SWIG_From_int((int)(18)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_DASH",SWIG_From_int((int)(19)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_HAS_TEXT",SWIG_From_int((int)(20)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_IMAGE",SWIG_From_int((int)(21)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_IMAGEOPS",SWIG_From_int((int)(22)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_PL2DEVCOL",SWIG_From_int((int)(23)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_DEV2PLCOL",SWIG_From_int((int)(24)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_SETBGFG",SWIG_From_int((int)(25)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_DEVINIT",SWIG_From_int((int)(26)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_GETBACKEND",SWIG_From_int((int)(27)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_BEGIN_TEXT",SWIG_From_int((int)(28)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_TEXT_CHAR",SWIG_From_int((int)(29)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_CONTROL_CHAR",SWIG_From_int((int)(30)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_END_TEXT",SWIG_From_int((int)(31)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_START_RASTERIZE",SWIG_From_int((int)(32)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_END_RASTERIZE",SWIG_From_int((int)(33)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_ARC",SWIG_From_int((int)(34)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_GRADIENT",SWIG_From_int((int)(35)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_MODESET",SWIG_From_int((int)(36)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_MODEGET",SWIG_From_int((int)(37)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_FIXASPECT",SWIG_From_int((int)(38)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_IMPORT_BUFFER",SWIG_From_int((int)(39)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_APPEND_BUFFER",SWIG_From_int((int)(40)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_FLUSH_REMAINING_BUFFER",SWIG_From_int((int)(41)));
  SWIG_Octave_SetConstant(module_ns,"PLTEXT_FONTCHANGE",SWIG_From_int((int)(0)));
  SWIG_Octave_SetConstant(module_ns,"PLTEXT_SUPERSCRIPT",SWIG_From_int((int)(1)));
  SWIG_Octave_SetConstant(module_ns,"PLTEXT_SUBSCRIPT",SWIG_From_int((int)(2)));
  SWIG_Octave_SetConstant(module_ns,"PLTEXT_BACKCHAR",SWIG_From_int((int)(3)));
  SWIG_Octave_SetConstant(module_ns,"PLTEXT_OVERLINE",SWIG_From_int((int)(4)));
  SWIG_Octave_SetConstant(module_ns,"PLTEXT_UNDERLINE",SWIG_From_int((int)(5)));
  SWIG_Octave_SetConstant(module_ns,"ZEROW2B",SWIG_From_int((int)(1)));
  SWIG_Octave_SetConstant(module_ns,"ZEROW2D",SWIG_From_int((int)(2)));
  SWIG_Octave_SetConstant(module_ns,"ONEW2B",SWIG_From_int((int)(3)));
  SWIG_Octave_SetConstant(module_ns,"ONEW2D",SWIG_From_int((int)(4)));
  SWIG_Octave_SetConstant(module_ns,"PLSWIN_DEVICE",SWIG_From_int((int)(1)));
  SWIG_Octave_SetConstant(module_ns,"PLSWIN_WORLD",SWIG_From_int((int)(2)));
  SWIG_Octave_SetConstant(module_ns,"PL_X_AXIS",SWIG_From_int((int)(1)));
  SWIG_Octave_SetConstant(module_ns,"PL_Y_AXIS",SWIG_From_int((int)(2)));
  SWIG_Octave_SetConstant(module_ns,"PL_Z_AXIS",SWIG_From_int((int)(3)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_ENABLED",SWIG_From_int((int)(0x0001)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_ARG",SWIG_From_int((int)(0x0002)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_NODELETE",SWIG_From_int((int)(0x0004)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_INVISIBLE",SWIG_From_int((int)(0x0008)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_DISABLED",SWIG_From_int((int)(0x0010)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_FUNC",SWIG_From_int((int)(0x0100)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_BOOL",SWIG_From_int((int)(0x0200)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_INT",SWIG_From_int((int)(0x0400)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_FLOAT",SWIG_From_int((int)(0x0800)));
  SWIG_Octave_SetConstant(module_ns,"PL_OPT_STRING",SWIG_From_int((int)(0x1000)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_PARTIAL",SWIG_From_int((int)(0x0000)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_FULL",SWIG_From_int((int)(0x0001)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_QUIET",SWIG_From_int((int)(0x0002)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_NODELETE",SWIG_From_int((int)(0x0004)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_SHOWALL",SWIG_From_int((int)(0x0008)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_OVERRIDE",SWIG_From_int((int)(0x0010)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_NOPROGRAM",SWIG_From_int((int)(0x0020)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_NODASH",SWIG_From_int((int)(0x0040)));
  SWIG_Octave_SetConstant(module_ns,"PL_PARSE_SKIP",SWIG_From_int((int)(0x0080)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_MARK",SWIG_From_int((int)(0x80000000)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_IMPOSSIBLE",SWIG_From_int((int)(0x00000000)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_HEXDIGIT_MASK",SWIG_From_int((int)(0xf)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_HEXPOWER_MASK",SWIG_From_int((int)(0x7)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_HEXPOWER_IMPOSSIBLE",SWIG_From_int((int)(0xf)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_FAMILY",SWIG_From_int((int)(0x0)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_STYLE",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_WEIGHT",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_SANS",SWIG_From_int((int)(0x0)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_SERIF",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_MONO",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_SCRIPT",SWIG_From_int((int)(0x3)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_SYMBOL",SWIG_From_int((int)(0x4)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_UPRIGHT",SWIG_From_int((int)(0x0)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_ITALIC",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_OBLIQUE",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_MEDIUM",SWIG_From_int((int)(0x0)));
  SWIG_Octave_SetConstant(module_ns,"PL_FCI_BOLD",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_MAXKEY",SWIG_From_int((int)(16)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_SHIFT",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_CAPS",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_CONTROL",SWIG_From_int((int)(0x4)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_ALT",SWIG_From_int((int)(0x8)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_NUM",SWIG_From_int((int)(0x10)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_ALTGR",SWIG_From_int((int)(0x20)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_WIN",SWIG_From_int((int)(0x40)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_SCROLL",SWIG_From_int((int)(0x80)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_BUTTON1",SWIG_From_int((int)(0x100)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_BUTTON2",SWIG_From_int((int)(0x200)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_BUTTON3",SWIG_From_int((int)(0x400)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_BUTTON4",SWIG_From_int((int)(0x800)));
  SWIG_Octave_SetConstant(module_ns,"PL_MASK_BUTTON5",SWIG_From_int((int)(0x1000)));
  SWIG_Octave_SetConstant(module_ns,"PL_MAXWINDOWS",SWIG_From_int((int)(64)));
  SWIG_Octave_SetConstant(module_ns,"PL_NOTSET",SWIG_From_int((int)((-42))));
  SWIG_Octave_SetConstant(module_ns,"PLESC_DOUBLEBUFFERING_ENABLE",SWIG_From_int((int)(1)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_DOUBLEBUFFERING_DISABLE",SWIG_From_int((int)(2)));
  SWIG_Octave_SetConstant(module_ns,"PLESC_DOUBLEBUFFERING_QUERY",SWIG_From_int((int)(3)));
  SWIG_Octave_SetConstant(module_ns,"PL_BIN_DEFAULT",SWIG_From_int((int)(0x0)));
  SWIG_Octave_SetConstant(module_ns,"PL_BIN_CENTRED",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_BIN_NOEXPAND",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_BIN_NOEMPTY",SWIG_From_int((int)(0x4)));
  SWIG_Octave_SetConstant(module_ns,"GRID_CSA",SWIG_From_int((int)(1)));
  SWIG_Octave_SetConstant(module_ns,"GRID_DTLI",SWIG_From_int((int)(2)));
  SWIG_Octave_SetConstant(module_ns,"GRID_NNI",SWIG_From_int((int)(3)));
  SWIG_Octave_SetConstant(module_ns,"GRID_NNIDW",SWIG_From_int((int)(4)));
  SWIG_Octave_SetConstant(module_ns,"GRID_NNLI",SWIG_From_int((int)(5)));
  SWIG_Octave_SetConstant(module_ns,"GRID_NNAIDW",SWIG_From_int((int)(6)));
  SWIG_Octave_SetConstant(module_ns,"PL_HIST_DEFAULT",SWIG_From_int((int)(0x00)));
  SWIG_Octave_SetConstant(module_ns,"PL_HIST_NOSCALING",SWIG_From_int((int)(0x01)));
  SWIG_Octave_SetConstant(module_ns,"PL_HIST_IGNORE_OUTLIERS",SWIG_From_int((int)(0x02)));
  SWIG_Octave_SetConstant(module_ns,"PL_HIST_NOEXPAND",SWIG_From_int((int)(0x08)));
  SWIG_Octave_SetConstant(module_ns,"PL_HIST_NOEMPTY",SWIG_From_int((int)(0x10)));
  SWIG_Octave_SetConstant(module_ns,"PL_POSITION_LEFT",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_POSITION_RIGHT",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_POSITION_TOP",SWIG_From_int((int)(0x4)));
  SWIG_Octave_SetConstant(module_ns,"PL_POSITION_BOTTOM",SWIG_From_int((int)(0x8)));
  SWIG_Octave_SetConstant(module_ns,"PL_POSITION_INSIDE",SWIG_From_int((int)(0x10)));
  SWIG_Octave_SetConstant(module_ns,"PL_POSITION_OUTSIDE",SWIG_From_int((int)(0x20)));
  SWIG_Octave_SetConstant(module_ns,"PL_POSITION_VIEWPORT",SWIG_From_int((int)(0x40)));
  SWIG_Octave_SetConstant(module_ns,"PL_POSITION_SUBPAGE",SWIG_From_int((int)(0x80)));
  SWIG_Octave_SetConstant(module_ns,"PL_LEGEND_NONE",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_LEGEND_COLOR_BOX",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_LEGEND_LINE",SWIG_From_int((int)(0x4)));
  SWIG_Octave_SetConstant(module_ns,"PL_LEGEND_SYMBOL",SWIG_From_int((int)(0x8)));
  SWIG_Octave_SetConstant(module_ns,"PL_LEGEND_TEXT_LEFT",SWIG_From_int((int)(0x10)));
  SWIG_Octave_SetConstant(module_ns,"PL_LEGEND_BACKGROUND",SWIG_From_int((int)(0x20)));
  SWIG_Octave_SetConstant(module_ns,"PL_LEGEND_BOUNDING_BOX",SWIG_From_int((int)(0x40)));
  SWIG_Octave_SetConstant(module_ns,"PL_LEGEND_ROW_MAJOR",SWIG_From_int((int)(0x80)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_LABEL_LEFT",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_LABEL_RIGHT",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_LABEL_TOP",SWIG_From_int((int)(0x4)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_LABEL_BOTTOM",SWIG_From_int((int)(0x8)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_IMAGE",SWIG_From_int((int)(0x10)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_SHADE",SWIG_From_int((int)(0x20)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_GRADIENT",SWIG_From_int((int)(0x40)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_CAP_NONE",SWIG_From_int((int)(0x80)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_CAP_LOW",SWIG_From_int((int)(0x100)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_CAP_HIGH",SWIG_From_int((int)(0x200)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_SHADE_LABEL",SWIG_From_int((int)(0x400)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_ORIENT_RIGHT",SWIG_From_int((int)(0x800)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_ORIENT_TOP",SWIG_From_int((int)(0x1000)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_ORIENT_LEFT",SWIG_From_int((int)(0x2000)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_ORIENT_BOTTOM",SWIG_From_int((int)(0x4000)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_BACKGROUND",SWIG_From_int((int)(0x8000)));
  SWIG_Octave_SetConstant(module_ns,"PL_COLORBAR_BOUNDING_BOX",SWIG_From_int((int)(0x10000)));
  SWIG_Octave_SetConstant(module_ns,"PL_DRAWMODE_UNKNOWN",SWIG_From_int((int)(0x0)));
  SWIG_Octave_SetConstant(module_ns,"PL_DRAWMODE_DEFAULT",SWIG_From_int((int)(0x1)));
  SWIG_Octave_SetConstant(module_ns,"PL_DRAWMODE_REPLACE",SWIG_From_int((int)(0x2)));
  SWIG_Octave_SetConstant(module_ns,"PL_DRAWMODE_XOR",SWIG_From_int((int)(0x4)));
  SWIG_Octave_SetConstant(module_ns,"DRAW_LINEX",SWIG_From_int((int)(0x001)));
  SWIG_Octave_SetConstant(module_ns,"DRAW_LINEY",SWIG_From_int((int)(0x002)));
  SWIG_Octave_SetConstant(module_ns,"DRAW_LINEXY",SWIG_From_int((int)(0x003)));
  SWIG_Octave_SetConstant(module_ns,"MAG_COLOR",SWIG_From_int((int)(0x004)));
  SWIG_Octave_SetConstant(module_ns,"BASE_CONT",SWIG_From_int((int)(0x008)));
  SWIG_Octave_SetConstant(module_ns,"TOP_CONT",SWIG_From_int((int)(0x010)));
  SWIG_Octave_SetConstant(module_ns,"SURF_CONT",SWIG_From_int((int)(0x020)));
  SWIG_Octave_SetConstant(module_ns,"DRAW_SIDES",SWIG_From_int((int)(0x040)));
  SWIG_Octave_SetConstant(module_ns,"FACETED",SWIG_From_int((int)(0x080)));
  SWIG_Octave_SetConstant(module_ns,"MESH",SWIG_From_int((int)(0x100)));
  return true;
}