This file is indexed.

/usr/share/plplot_octave/fill.m is in octave-plplot 5.9.9-2ubuntu2.

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