| create a colorbar for negative and positive values [message #85691] |
Tue, 27 August 2013 10:49 |
megagne1
Messages: 2
Registered: August 2013
|
Junior Member |
|
|
; Run the following procedure
PRO bluewhitered
steps = 128
scaleFactor = FINDGEN(steps) / (steps - 1)
; Do first 128 colors (blue to green) for negative values.
redVector = REPLICATE(0, steps) ; Red vector: 0 -> 0
greenVector = 0 + (255 - 0) * scaleFactor ; Green vector: 0 -> 255
blueVector = 255 + (0 - 255) * scaleFactor ; Blue vector: 255 -> 0
; Do second 128 colors (yellow to red) for positive values.
redVector = [redVector, REPLICATE(255, steps)] ; Red vector: 255 -> 255
greenVector = [greenVector, 255 + (0 - 255) * scaleFactor] ; Green vector: 255 -> 0
blueVector = [blueVector, REPLICATE(0, steps)] ; Blue vector: 0 -> 0
; Put center of colorbar in white for 0 values
redVector(127:128) = 255.
greenVector(127:128) = 255.
blueVector(127:128) = 255.
; Check vectors:
print, blueVector
print, greenVector
print, redVector
; Save the colorbar:
r=redVector
b=blueVector
g=greenVector
save, filename='bluewhitered.sav', r,g,b
END
;*********************************************************** *******************
; For future use, restore the colorbar in your IDL code before opening a window:
restore, 'bluewhitered.sav'
TVCLT, r, g, b
; IF you want to check the colorbar:
xloadct
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
