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
|
