In[]:=
Manipulate[Hue[h],{h,0,3}]
Out[]=
​
h
In[]:=
Hue/@Range[0,1,.01]
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,

In[]:=
ImageAssemble[{ConstantImage[Hue@#,{2,200}]&/@Range[0,2,.01]}]
Out[]=
In[]:=
Column#,ImageEffect
,{"ColorBlindness",#},Alignment->Center&/@{"Deuteranopia","Protanopia","Tritanopia"}
Out[]=

Deuteranopia
,
Protanopia
,
Tritanopia

In[]:=
Plot[Sin[x],{x,0,2π},ColorFunction->Hue]
Out[]=