function trueToRGB, number ;+ ; ;+ ; NAME: ; trueToRGB ; ; PURPOSE: ; Converts a true color number to the r,g,b value ; ; CATEGORY: ; Graphics. ; ; CALLING SEQUENCE: ; rgb = trueToRGB(1234546l) ; ; INPUTS: ; true color number ; ; KEYWORD PARAMETERS: ; None. ; OUTPUTS: ; Three element array of red,green, blue values ; COMMON BLOCKS: ; None. ; SIDE EFFECTS: ; None.. ; RESTRICTIONS: ; None. ; MODIFICATION HISTORY: ; Written 5/6/1999 by Ronn Kling ; Ronn Kling Consulting ; www.rlkling.com ;- ;if number gt 2l^24 then message,'Color number is too large!' blue = long(number/65536l) green = long( (number - (blue * 65536l))/256l) red = long( number - (blue * 65536l) - (green * 256l)) return, byte([red,green,blue]) end