| Re: rainbow colortable [message #3520] |
Sun, 05 February 1995 22:38 |
larkum
Messages: 21
Registered: May 1993
|
Junior Member |
|
|
In article 39s@jhunix1.hcf.jhu.edu, mfishler@bme.jhu.edu (Matthew Fishler) writes:
> Hi all,
>
> Just wondering... Does anyone know where I can get a colortable that
> progresses smoothly from blues --> yellows --> reds (ie, a rainbow
> colortable). None of the standard colortables seem to even come close.
> BTW, not that I think it will matter, but I'm using pv-wave (5.0).
>
> Thanks a bunch,
> ==Matthew
Here's a LUT that will do a rainbow. I'm not entirely satisfied
with the result but it should be easy to play around with.
Matthew
____________________________________________________________ ______________
Matthew Larkum
Physiologisches Institut
Buehlplatz 5, CH-3012 Bern Switzerland
Ph. 41 31 631 8726 Fax. 41 31 631 4611
Internet: larkum@optolab.unibe.ch
matthewl@cortex.physiol.su.OZ.AU
========================== cut here ==================================
;
; $Id: template,v 1.1 91/03/11 20:30:47 jeffry Exp $
;
;+
; NAME: LOAD_RAIN
; WRITTEN BY: Matthew Larkum, University of Bern, Switzerland.
; DATE: Monday, February 6, 1995
; PURPOSE: Loads "rainbow" colour table that is useful for indicating
; intesities in images from calcium fluorescence measurements.
; CATEGORY: Image processing
; CALLING SEQUENCE: LOAD_RAIN
; INPUTS: None.
; OPTIONAL INPUT PARAMETERS: None.
; KEYWORD PARAMETERS: None.
; OUTPUTS: None.
; OPTIONAL OUTPUT PARAMETERS: None.
; COMMON BLOCKS: None.
; SIDE EFFECTS: None.
; RESTRICTIONS: None.
; PROCEDURE:
; EXAMPLE: LOAD_RAINBOW
; NOTES:
; MODIFICATION HISTORY:
;-
pro load_rain
red = bytarr(256)
green = bytarr(256)
blue = bytarr(256)
red = bytarr(256)
green = bytarr(256)
blue = bytarr(256)
red(1:67) = reverse(indgen(67)*2/3)
red(101:150) = indgen(50)*5
red(151:255) = 255
green(50:99) = indgen(50)*5
green(100:154) = 255
green(155:204) = reverse(indgen(50)*5)
green(204:254) = indgen(51)*5
green(255) = 255
blue(1:52) = indgen(52)*4 + 51
blue(53:74) = 255
blue(75:100) = reverse(indgen(26)*10)
blue(204:254) = indgen(51)*5
blue(255) = 255
tvlct, red, green, blue
end
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
