/*@
PetscDrawBarSetFromOptions - Sets options related to the PetscDrawBar
Collective over PetscDrawBar
Options Database:
. -bar_sort - sort the entries before drawing the bar graph
Level: intermediate
.seealso: PetscDrawBarDestroy(), PetscDrawBarCreate()
@*/
PetscErrorCode PetscDrawBarSetFromOptions(PetscDrawBar bar)
{
PetscErrorCode ierr;
PetscBool set;
PetscReal tol = bar->sorttolerance;
PetscFunctionBegin;
ierr = PetscOptionsHasName(NULL,"-bar_sort",&set);CHKERRQ(ierr);
if (set) {
ierr = PetscOptionsGetReal(NULL,"-bar_sort",&tol,NULL);CHKERRQ(ierr);
ierr = PetscDrawBarSort(bar,PETSC_TRUE,tol);CHKERRQ(ierr);
}
PetscFunctionReturn(0);
}
/*@
PetscDrawBarSetFromOptions - Sets options related to the PetscDrawBar
Collective over PetscDrawBar
Options Database:
. -bar_sort - sort the entries before drawing the bar graph
Level: intermediate
.seealso: PetscDrawBarDestroy(), PetscDrawBarCreate(), PetscDrawBarSort()
@*/
PetscErrorCode PetscDrawBarSetFromOptions(PetscDrawBar bar)
{
PetscErrorCode ierr;
PetscBool set;
PetscFunctionBegin;
PetscValidHeaderSpecific(bar,PETSC_DRAWBAR_CLASSID,1);
ierr = PetscOptionsHasName(((PetscObject)bar)->options,((PetscObject)bar)->prefix,"-bar_sort",&set);CHKERRQ(ierr);
if (set) {
PetscReal tol = bar->sorttolerance;
ierr = PetscOptionsGetReal(((PetscObject)bar)->options,((PetscObject)bar)->prefix,"-bar_sort",&tol,NULL);CHKERRQ(ierr);
ierr = PetscDrawBarSort(bar,PETSC_TRUE,tol);CHKERRQ(ierr);
}
PetscFunctionReturn(0);
}
