This is plot_border.m in view mode; [Download] [Up]
## Copyright (C) 1996 John W. Eaton
##
## This file is part of Octave.
##
## Octave is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2, or (at your option)
## any later version.
##
## Octave is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with Octave; see the file COPYING. If not, write to the Free
## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
## 02111-1307, USA.
## usage: plot_border (...)
##
## NOTE: this will work only with gnuplot installed with
## multiplot patch
##
## Multiple arguments allowed to specify the sides on which the border
## is shown. allowed strings:
##
## allowed input strings:
##
## "blank", "BLANK", "b", "B", ---> No borders displayed
## "all", "ALL", "a", "A", ---> All borders displayed
## "north", "NORTH", "n", "N", ---> North Border
## "south", "SOUTH", "s", "S", ---> South Border
## "east", "EAST", "e", "E", ---> East Border
## "west", "WEST", "w", "W", ---> West Border
##
## Without any arguments, turns borders off.
## Author: Vinayak Dutt <Dutt.Vinayak@mayo.EDU>
## Created: 3 July 95
## Adapted-By: jwe
function plot_border (...)
if (! gnuplot_has_multiplot)
error ("plot_border: gnuplot does not appear to support this feature");
endif
south = 0;
west = 0;
north = 0;
east = 0;
all = 0;
none = 1;
va_start ();
while (nargin--)
arg = va_arg ();
if (! isstr (arg))
error ("plot_border: input not a string");
endif
## The effect of the arguments in cumulative. If something is found
## after "b", do that and ignore "b".
if (strcmp (arg, "blank") || strcmp (arg, "BLANK")
|| strcmp (arg, "b") || strcmp (arg, "B"))
none = 1;
else
none = 0;
if (strcmp (arg, "south") || strcmp (arg, "SOUTH")
|| strcmp (arg, "s") || strcmp (arg, "S"))
south = 1;
elseif (strcmp (arg, "west") || strcmp (arg, "WEST")
|| strcmp (arg, "w") || strcmp (arg, "W"))
west = 2;
elseif (strcmp (arg, "north") || strcmp (arg, "NORTH")
|| strcmp (arg, "n") || strcmp (arg, "N"))
north = 4;
elseif (strcmp (arg, "east") || strcmp (arg, "EAST")
|| strcmp (arg, "e") || strcmp (arg, "E"))
east = 8;
elseif (strcmp (arg, "all") || strcmp (arg, "ALL")
|| strcmp (arg, "a") || strcmp (arg, "A"))
all = 1;
endif
endif
endwhile
if (none)
gset noborder;
else
if (all)
border = 15;
else
border = south + west + north + east;
endif
eval (sprintf ("gset border %d", border));
endif
endfunction
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.