comp_colors.pro

IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。

; $Id: comp_colors.pro,v 1.2 2002/03/14 11:49:11 riccardi Exp $

function comp_colors, n_colors

hue = 360.0/n_colors*findgen(n_colors)
sat = replicate(1.0, n_colors)
val = replicate(1.0, n_colors)

color_convert, hue, sat, val, r, g, b, /HSV_RGB

return, long([transpose(r), transpose(g), transpose(b), replicate(0B,1,n_colors)], 0, n_colors)

end