Changeset 5176


Ignore:
Timestamp:
Apr 1, 2015 6:34:02 PM (6 years ago)
Author:
ldelgass
Message:

merge r5126 from trunk

Location:
branches/1.3
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/1.3

    • Property svn:mergeinfo changed
      /trunkmerged: 5126
  • branches/1.3/gui/scripts/visviewer.tcl

    r5108 r5176  
    933933
    934934itcl::body Rappture::VisViewer::ColorsToColormap { colors } {
     935    set cmap {}
    935936    switch -- $colors {
    936937        "grey-to-blue" {
    937             return {
     938            set cmap {
    938939                0.0                      0.200 0.200 0.200
    939940                0.14285714285714285      0.400 0.400 0.400
     
    947948        }
    948949        "blue-to-grey" {
    949             return {
     950            set cmap {
    950951                0.0                     0.000 0.600 0.800
    951952                0.14285714285714285     0.400 0.900 1.000
     
    959960        }
    960961        "white-to-blue" {
    961             return {
     962            set cmap {
    962963                0.0                     0.900 1.000 1.000
    963964                0.1111111111111111      0.800 0.983 1.000
     
    973974        }
    974975        "brown-to-blue" {
    975             return {
     976            set cmap {
    976977                0.0                             0.200   0.100   0.000
    977978                0.09090909090909091             0.400   0.187   0.000
     
    989990        }
    990991        "blue-to-brown" {
    991             return {
     992            set cmap {
    992993                0.0                             0.000   0.480   0.600
    993994                0.09090909090909091             0.000   0.667   0.800
     
    10051006        }
    10061007        "blue-to-orange" {
    1007             return {
     1008            set cmap {
    10081009                0.0                             0.000   0.167   1.000
    10091010                0.09090909090909091             0.100   0.400   1.000
     
    10211022        }
    10221023        "orange-to-blue" {
    1023             return {
     1024            set cmap {
    10241025                0.0                             1.000   0.167   0.000
    10251026                0.09090909090909091             1.000   0.400   0.100
     
    10841085        }
    10851086        "spectral" {
    1086             return {
     1087            set cmap {
    10871088                0.0 0.150 0.300 1.000
    10881089                0.1 0.250 0.630 1.000
     
    10991100        }
    11001101        "green-to-magenta" {
    1101             return {
     1102            set cmap {
    11021103                0.0 0.000 0.316 0.000
    11031104                0.06666666666666667 0.000 0.526 0.000
     
    11191120        }
    11201121        "greyscale" {
    1121             return {
     1122            set cmap {
    11221123                0.0 0.0 0.0 0.0 1.0 1.0 1.0 1.0
    11231124            }
     
    11301131        }
    11311132    }
    1132     set cmap {}
    1133     if { [llength $clist] == 1 } {
    1134         set rgb [Color2RGB $clist]
    1135         append cmap "0.0 $rgb 1.0 $rgb"
     1133    if {$cmap == ""} {
     1134        if { [llength $clist] == 1 } {
     1135            set rgb [Color2RGB $clist]
     1136            append cmap "0.0 $rgb 1.0 $rgb"
     1137        } else {
     1138            for {set i 0} {$i < [llength $clist]} {incr i} {
     1139                set x [expr {double($i)/([llength $clist]-1)}]
     1140                set color [lindex $clist $i]
     1141                append cmap "$x [Color2RGB $color] "
     1142            }
     1143        }
    11361144    } else {
    1137         for {set i 0} {$i < [llength $clist]} {incr i} {
    1138             set x [expr {double($i)/([llength $clist]-1)}]
    1139             set color [lindex $clist $i]
    1140             append cmap "$x [Color2RGB $color] "
    1141         }
     1145        regsub -all "\[ \t\r\n\]+" [string trim $cmap] " " cmap
    11421146    }
    11431147    return $cmap
Note: See TracChangeset for help on using the changeset viewer.