Changeset 5126 for trunk/gui

Timestamp:

Mar 13, 2015, 11:32:52 PM (10 years ago)

Author:

ldelgass

Message:

normalize whitespace in colormap

File:

• trunk/gui/scripts/visviewer.tcl (modified) (11 diffs)

trunk/gui/scripts/visviewer.tcl

@@ -949 +949 @@
 
 itcl::body Rappture::VisViewer::ColorsToColormap { colors } {
+    set cmap {}
     switch -- $colors {
         "grey-to-blue" {
-            return {
+            set cmap {
                 0.0                      0.200 0.200 0.200
                 0.14285714285714285      0.400 0.400 0.400
@@ -963 +964 @@
         }
         "blue-to-grey" {
-            return {
+            set cmap {
                 0.0                     0.000 0.600 0.800
                 0.14285714285714285     0.400 0.900 1.000
@@ -975 +976 @@
         }
         "white-to-blue" {
-            return {
+            set cmap {
                 0.0                     0.900 1.000 1.000
                 0.1111111111111111      0.800 0.983 1.000
@@ -989 +990 @@
         }
         "brown-to-blue" {
-            return {
+            set cmap {
                 0.0                             0.200   0.100   0.000
                 0.09090909090909091             0.400   0.187   0.000
@@ -1005 +1006 @@
         }
         "blue-to-brown" {
-            return {
+            set cmap {
                 0.0                             0.000   0.480   0.600
                 0.09090909090909091             0.000   0.667   0.800
@@ -1021 +1022 @@
         }
         "blue-to-orange" {
-            return {
+            set cmap {
                 0.0                             0.000   0.167   1.000
                 0.09090909090909091             0.100   0.400   1.000
@@ -1037 +1038 @@
         }
         "orange-to-blue" {
-            return {
+            set cmap {
                 0.0                             1.000   0.167   0.000
                 0.09090909090909091             1.000   0.400   0.100
@@ -1100 +1101 @@
         }
         "spectral" {
-            return {
+            set cmap {
                 0.0 0.150 0.300 1.000
                 0.1 0.250 0.630 1.000
@@ -1115 +1116 @@
         }
         "green-to-magenta" {
-            return {
+            set cmap {
                 0.0 0.000 0.316 0.000
                 0.06666666666666667 0.000 0.526 0.000
@@ -1135 +1136 @@
         }
         "greyscale" {
-            return {
+            set cmap {
                 0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0
             }
@@ -1146 +1147 @@
         }
     }
-    set cmap {}
-    if { [llength $clist] == 1 } {
-        set rgb [Color2RGB $clist]
-        append cmap "0.0 $rgb 1.0 $rgb"
+    if {$cmap == ""} {
+        if { [llength $clist] == 1 } {
+            set rgb [Color2RGB $clist]
+            append cmap "0.0 $rgb 1.0 $rgb"
+        } else {
+            for {set i 0} {$i < [llength $clist]} {incr i} {
+                set x [expr {double($i)/([llength $clist]-1)}]
+                set color [lindex $clist $i]
+                append cmap "$x [Color2RGB $color] "
+            }
+        }
     } else {
-        for {set i 0} {$i < [llength $clist]} {incr i} {
-            set x [expr {double($i)/([llength $clist]-1)}]
-            set color [lindex $clist $i]
-            append cmap "$x [Color2RGB $color] "
-        }
-    }
-    #regsub -all "\n" $cmap " " cmap
+        regsub -all "\[ \t\r\n\]+" [string trim $cmap] " " cmap
+    }
     return $cmap
 }