Up \Display

{@abstract(ColorMap routines)
author: Nikolai Shokhirev )
created: June 06, 2002)
last modified: August 08, 2003)
ŠNikolai V. Shokhirev, 2002-2003 }
unit uColorMap;

interface

uses
  uMatTypes, Graphics;

type
  TRGB= (cR, cG, cB);

  TRGBSet = Set of TRGB;

  //  0 <= aNumb <=1
  function NumberToColor(aNumb: TFloat; RGBSet: TRGBSet): TColor;

  function ColorToNumber(aColor: TColor; RGBSet: TRGBSet): TFloat;

  { 0 <= x <= 320: 0-R, 64-G, 128-B, 192-R, 256-G, 320-B,  }
  { 0 <= x <= 160: one rainbow }
  function Rainbow(x: TFloat; n: TInt):TColor;

implementation

end.

Up \Display