/usr/share/plplot_octave/stripc.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 | ## Copyright (C) 1998-2003 Joao Cardoso.
## Copyright (C) 2004 Rafael Laboissiere
##
## 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.
## id = stripc (xmin, xmax, xjump, ymin, ymax,
## leg1, leg2, leg3, leg4,
## acc, autoy)
##
## creates a four pen stripchar. Points are added calling stripc_add().
## the scripchart *must* be deleted after use calling stripc_del()
##
## xmin, ymin, xmax and ymax are initial rasonable values for the chart
## xjump is the percentage of the window that skips when the plot lines
## arrive at the right.
## leg[i] is the legend of plot pen 'i'
## acc if '1' means to accumulate values instead of losting it, as a normal
## stripchart does (well, paper is always available)
## autoy if '1' means to autoscale the y axis *between* xjumps. After a
## xjump, the y scale is always rescaled.
## The current values of xlabel, ylabel, and legend position are used.
##
## see also: stripc_add, stripc_del
function id = stripc (xmin, xmax, xjump, ymin, ymax, leg1, leg2, leg3, leg4, acc, autoy)
global __pl
strm = __pl_init;
colbox = collab = 15;
styline(1) = 1; # pens line style
styline(2) = 1;
styline(3) = 1;
styline(4) = 1;
colline(1) = 1; # pens color
colline(2) = 9;
colline(3) = 3;
colline(4) = 4;
if ( plglevel == 1 )
pladv(0);
end
id = plstripc("bcnst", "bcnstv",
xmin, xmax, xjump, ymin, ymax,
__pl.legend_xpos(strm), __pl.legend_ypos(strm),
autoy, acc, 15, 15,
colline', styline', leg1, leg2, leg3, leg4,
tdeblank(__pl.xlabel(strm,:)),
tdeblank(__pl.ylabel(strm,:)),
tdeblank(__pl.tlabel(strm,:)));
endfunction
|