/usr/share/doc/libplplot11/examples/octave/x02c.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 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 | ## Copyright (C) 1998, 1999, 2000 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.
## It is based on the corresponding demo function of PLplot.
# Multiple window and color map 0 demo.
1;
function ix02c
## Initialize plplot */
plinit();
## Parse and process command line arguments */
## (void) plparseopts(&argc, argv, PL_PARSE_FULL);
demo1();
demo2();
plend1();
endfunction
function draw_windows(nw, cmap0_offset)
##--------------------------------------------------------------------------
## draw_windows
##
## Draws a set of numbered boxes with colors according to cmap0 entry.
##--------------------------------------------------------------------------
plschr(0.0, 3.5);
plfont(4);
for i=0:nw-1
plcol0(i+cmap0_offset);
text=sprintf("%d", i);
pladv(0);
vmin = 0.1;
vmax = 0.9;
for j=0:2
plwid(j + 1);
plvpor(vmin, vmax, vmin, vmax);
plwind(0.0, 1.0, 0.0, 1.0);
plbox("bc", 0.0, 0, "bc", 0.0, 0);
vmin = vmin + 0.1;
vmax = vmax - 0.1;
endfor
plwid(1);
plptex(0.5, 0.5, 1.0, 0.0, 0.5, text);
endfor
endfunction
##--------------------------------------------------------------------------
## demo1
##
## Demonstrates multiple windows and default color map 0 palette.
##--------------------------------------------------------------------------
function demo1
plbop();
## Divide screen into 16 regions
plssub(4, 4);
draw_windows( 16, 0 );
pleop();
endfunction
##--------------------------------------------------------------------------
## demo2
##
## Demonstrates multiple windows, user-modified color map 0 palette, and
## HLS -> RGB translation.
##--------------------------------------------------------------------------
function demo2
## Set up cmap0
## Use 100 custom colors in addition to base 16
## Min & max lightness values
lmin = 0.15;
lmax = 0.85;
plbop;
## Divide screen into 100 regions
plssub(10, 10);
for i=0:99
## Bounds on HLS, from plhlsrgb() commentary --
## hue [0., 360.] degrees
## lightness [0., 1.] magnitude
## saturation [0., 1.] magnitude
##
## Vary hue uniformly from left to right
h = (360. / 10. ) * mod(i,10);
## Vary lightness uniformly from top to bottom, between min & max
l = lmin + (lmax - lmin) * fix(i / 10) / 9.;
## Use max saturation
s = 1.0;
[r1, g1, b1] = plhlsrgb(h, l, s);
r(i+17) = r1 * 255.001;
g(i+17) = g1 * 255.001;
b(i+17) = b1 * 255.001;
endfor
## Load default cmap0 colors into our custom set
for i=1:16
[r(i),g(i),b(i)] = plgcol0(i-1);
endfor
## Now set cmap0 all at once (faster, since fewer driver calls)
plscmap0(r', g', b');
draw_windows( 100, 16 );
pleop;
endfunction
ix02c;
|