glvis.c (d01c6957b9782b5c5208b19a1b475f6a2483d0b7) glvis.c (bcee047adeeb73090d7e36cc71e39fc287cdbb97)
1#define PETSC_DESIRE_FEATURE_TEST_MACROS /* for fdopen() */
2
3#include <petsc/private/viewerimpl.h> /*I "petscviewer.h" I*/
4#include <petsc/private/petscimpl.h> /*I "petscsys.h" I*/
5#include <petsc/private/glvisviewerimpl.h>
6
7/* we may eventually make this function public */
8static PetscErrorCode PetscViewerASCIISocketOpen(MPI_Comm, const char *, PetscInt, PetscViewer *);

--- 536 unchanged lines hidden (view full) ---

545
546 PetscFunctionBegin;
547 PetscOptionsHeadBegin(PetscOptionsObject, "GLVis PetscViewer Options");
548 PetscCall(PetscOptionsInt("-glvis_precision", "Number of digits for floating point values", "PetscViewerGLVisSetPrecision", prec, &prec, &set));
549 if (set) PetscCall(PetscViewerGLVisSetPrecision(v, prec));
550 PetscCall(PetscOptionsIntArray("-glvis_size", "Window sizes", NULL, socket->windowsizes, &nsizes, &set));
551 if (set && (nsizes == 1 || socket->windowsizes[1] < 0)) socket->windowsizes[1] = socket->windowsizes[0];
552 PetscCall(PetscOptionsReal("-glvis_pause", "-1 to pause after each visualization, otherwise sleeps for given seconds", NULL, socket->pause, &socket->pause, NULL));
1#define PETSC_DESIRE_FEATURE_TEST_MACROS /* for fdopen() */
2
3#include <petsc/private/viewerimpl.h> /*I "petscviewer.h" I*/
4#include <petsc/private/petscimpl.h> /*I "petscsys.h" I*/
5#include <petsc/private/glvisviewerimpl.h>
6
7/* we may eventually make this function public */
8static PetscErrorCode PetscViewerASCIISocketOpen(MPI_Comm, const char *, PetscInt, PetscViewer *);

--- 536 unchanged lines hidden (view full) ---

545
546 PetscFunctionBegin;
547 PetscOptionsHeadBegin(PetscOptionsObject, "GLVis PetscViewer Options");
548 PetscCall(PetscOptionsInt("-glvis_precision", "Number of digits for floating point values", "PetscViewerGLVisSetPrecision", prec, &prec, &set));
549 if (set) PetscCall(PetscViewerGLVisSetPrecision(v, prec));
550 PetscCall(PetscOptionsIntArray("-glvis_size", "Window sizes", NULL, socket->windowsizes, &nsizes, &set));
551 if (set && (nsizes == 1 || socket->windowsizes[1] < 0)) socket->windowsizes[1] = socket->windowsizes[0];
552 PetscCall(PetscOptionsReal("-glvis_pause", "-1 to pause after each visualization, otherwise sleeps for given seconds", NULL, socket->pause, &socket->pause, NULL));
553 PetscCall(PetscOptionsName("-glvis_keys", "Additional keys to configure visualization", NULL, NULL));
554 PetscCall(PetscOptionsName("-glvis_exec", "Additional commands to configure visualization", NULL, NULL));
553 PetscCall(PetscOptionsName("-glvis_keys", "Additional keys to configure visualization", NULL, &set));
554 PetscCall(PetscOptionsName("-glvis_exec", "Additional commands to configure visualization", NULL, &set));
555 PetscOptionsHeadEnd();
556 PetscFunctionReturn(PETSC_SUCCESS);
557}
558
559static PetscErrorCode PetscViewerFileSetName_GLVis(PetscViewer viewer, const char name[])
560{
561 char *sport = NULL;
562 PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;

--- 323 unchanged lines hidden --- 		555 PetscOptionsHeadEnd();
556 PetscFunctionReturn(PETSC_SUCCESS);
557}
558
559static PetscErrorCode PetscViewerFileSetName_GLVis(PetscViewer viewer, const char name[])
560{
561 char *sport = NULL;
562 PetscViewerGLVis socket = (PetscViewerGLVis)viewer->data;

--- 323 unchanged lines hidden ---