Changeset 114 for trunk/SRC/ToBeReviewed/COULEURS/getcolor.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:

• trunk/SRC/ToBeReviewed/COULEURS/getcolor.pro (modified) (6 diffs)

trunk/SRC/ToBeReviewed/COULEURS/getcolor.pro

@@ -181 +181 @@
 
 FUNCTION COLOR24, number
+;
+  compile_opt idl2, strictarrsubs
+;
 
    ; This FUNCTION accepts a [red, green, blue] triple that
@@ -204 +207 @@
 num24bit = 0L
 
-FOR j=0,2 DO num24bit = num24bit + ((number(j) MOD 16) * base16(0,j)) + $
-   (Fix(number(j)/16) * base16(1,j))
+FOR j=0,2 DO num24bit = num24bit + ((number[j] MOD 16) * base16[0,j]) + $
+   (Fix(number[j]/16) * base16[1,j])
 
 RETURN, num24bit
@@ -214 +217 @@
 FUNCTION GETCOLOR, thisColor, index, TRUE=truecolor, $
    NAMES=colornames, LOAD=load, START=start
+;
+  compile_opt idl2, strictarrsubs
+;
 
    ; Set up the color vectors.
@@ -315 +321 @@
 
 varInfo = SIZE(thisColor)
-IF varInfo(varInfo(0) + 1) NE 7 THEN $
+IF varInfo[varInfo[0] + 1] NE 7 THEN $
    MESSAGE, 'The color name must be a string.'
 thisColor = STRUPCASE(thisColor)
@@ -326 +332 @@
    ; set the index to a YELLOW color, and continue.
 
-IF colorIndex(0) LT 0 THEN BEGIN
+IF colorIndex[0] LT 0 THEN BEGIN
    MESSAGE, "Can't find color. Returning YELLOW.", /INFORMATIONAL
    colorIndex = 3
@@ -333 +339 @@
    ; Get the color triple.
 
-r = rvalue(colorIndex)
-g = gvalue(colorIndex)
-b = bvalue(colorIndex)
+r = rvalue[colorIndex]
+g = gvalue[colorIndex]
+b = bvalue[colorIndex]
 returnColor = REFORM([r, g, b], 1, 3)