source: trunk/SRC/Colors/invpal.pro

Last change on this file was 510, checked in by smasson, 5 years ago

add invpal.pro
File size: 474 bytes
Line 
1;+
2;
3; @file_comments
4; reverse color palette
5;
6; @categories
7; color manipulation
8;
9; @param
10; none
11;
12; @keyword
13; none
14;
15; @returns
16; none
17;
18; @uses
19;
20; @restrictions
21;
22; @examples
23; IDL> invpal
24;
25; @history
26;
27; @version
28; $Id$
29;
30;-
31
32PRO invpal
33;
34tvlct, r, g, b, /get
35;
36  r = reverse(r)
37  g = reverse(g)
38  b = reverse(b)
39; black
40      r[0] = 0
41      g[0] = 0
42      b[0] = 0
43; white
44      r[255] = 255
45      g[255] = 255
46      b[255] = 255
47;
48  tvlct, r, g, b
49
50  return
51end
Note: See TracBrowser for help on using the repository browser.