/usr/share/plplot_octave/fill.m is in octave-plplot 5.10.0+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | ## Copyright (C) 1998-2003 Joao Cardoso.
##
## This program 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 of the License, or (at your
## option) any later version.
##
## This program 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.
##
## This file is part of plplot_octave.
## fill(x, y, c)
##
## Draw filled 2-D polygons.
##
## FILL(X,Y,C) fills the 2-D polygon defined by vectors X and Y
## with the color specified by C. The vertices of the polygon
## are specified by pairs of components of X and Y. If necessary,
## the polygon is closed by connecting the last vertex to the first.
##
## If C is a single character string chosen from the list 'r','g','b',
## 'c','m','y','w','k', or an RGB row vector triple, [r g b], or a scalar
## in the range 0-15, the polygon is filled with the constant specified color.
##
## If X and Y are matrices the same size, one polygon per column
## is drawn. In this case, C is a row vector for "flat" polygon
## colors, and C is a matrix for "interpolated" polygon colors.
##
## If either of X or Y is a matrix, and the other is a column vector
## with the same number of rows, the column vector argument is
## replicated to produce a matrix of the required size.
##
## eg: x=rand(3,3)+1+rand*10;y=rand(3,3)-1+rand;
## c=round(rand(3,1)*15+1);fill(x,y,c)
function fill(x, y, c)
global __pl
strm = __pl_init;
if (nargin != 3)
error("fill: not yet.\n");
endif
if (isvector(x) & isvector(y))
__pl_fill(x, y, c);
elseif (ismatrix(x) | ismatrix(y))
if (rows(x) == rows(y))
if (isvector(x))
x = x*ones(1,rows(x));
elseif (isvector(y))
y = y*ones(1,rows(y));
endif
if (isscalar(c))
c = ones(rows(x),1)*c;
elseif (rows(c) == 1)
c = c';
if (rows(c) != rows(x))
error("fill: `c' must be scalar or have same number of rows as `x'\n");
endif
endif
h_st = ishold;
if (__pl.axis_st(strm) == 1)
xmin = __pl.axis(strm,1); xmax = __pl.axis(strm,2);
ymin = __pl.axis(strm,3); ymin = __pl.axis(strm,4);
else
xmin=min(min(x)); xmax=max(max(x));
ymin=min(min(y)); ymax=max(max(y));
endif
## if (__pl.axis_st(strm) == 0)
## xm = min(min(x)); xM = max(max(x));
## ym = min(min(y)); yM = max(max(y));
## axis([xm xM ym yM]);
## endif
if (!ishold)
plcol0(15);
__pl_plenv(xmin, xmax, ymin, ymax, 0, -1);
hold on;
endif
for i=1:rows(x)
__pl_fill(x(i,:), y(i,:), c(i,:));
endfor
if (h_st == 0)
hold off
endif
else
error("fill: x and y must have same number of rows\n");
endif
endif
endfunction
|