Clear[GiveDec2, x, y];

    
GiveDec2[{x_, y_}] := (x*16 + y) /. {a -> 10, b -> 11, 
          c -> 12, d -> 13, e -> 14, f -> 15}

Clear[GiveDec, lst];

    
GiveDec[
        lst_] := (Apply[Plus, 
            lst*Append[Reverse[16^Range[Length[lst] - 1]], 
                1]]) /. {a -> 10, b -> 11, c -> 12, 
          d -> 13, e -> 14, f -> 15}

GiveDec[{b, e, e, f}]

9  E0508

GiveDec[{9, e}]

bur = {(158/255), (5/255), (8/255)}

A0522D

sie = {(160/255), (82/255), (45/255)}

pts = 0.07; pts1 = 0.05; 
    uc = {Line[{{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}, {0, 0, 0}}], 
        Line[{{0, 0, 1}, {1, 0, 1}, {1, 1, 1}, {0, 1, 1}, {0, 0, 1}}], 
        Line[{{0, 0, 0}, {0, 0, 1}}], Line[{{1, 0, 0}, {1, 0, 1}}], 
        Line[{{1, 1, 0}, {1, 1, 1}}], 
        Line[{{0, 1, 0}, {0, 1, 
              1}}]};

plopt = 
        Sequence[AspectRatio -> Automatic, Boxed -> False, 
          PlotRange -> {{-0.03, 1.03}, {-0.03, 
                1.03}, {-0.03, 1.04}}, Lighting -> False, 
          Axes -> True, 
          AxesEdge -> {Automatic, {-1, -1}, Automatic}, 
          AxesLabel -> {"Red", "Green", "Blue"}, 
          TextStyle -> {FontFamily -> "Courier New", 
              FontSize -> 10, FontWeight -> "Bold"}, 
          ImageSize -> 300];

Show[
Graphics3D[
{uc, 
 (* Red point *) 
{RGBColor[1, 0, 0], 
              PointSize[pts], Point[{1, 0, 0}]}, 
 (* 
              Green point *) 
{RGBColor[0, 1, 0], 
              PointSize[pts], 
              Point[{0, 1, 0}]}
, 
 (* 
              Blue point *) 
{RGBColor[0, 0, 1], 
              PointSize[pts], 
              Point[{0, 0, 
                  1}]}
}
],  
Evaluate[plopt]
];

Show[
Graphics3D[
{uc, 
 (* Red point *) 
{RGBColor[1, 0, 0], 
              PointSize[pts], Point[{1, 0, 0}]}, 
 (* 
              Green point *) 
{RGBColor[0, 1, 0], 
              PointSize[pts], 
              Point[{0, 1, 0}]}
, 
 (* 
              Blue point *) 
{RGBColor[0, 0, 1], 
              PointSize[pts], Point[{0, 0, 1}]}, 
 (* 
              Black point *) 
{RGBColor[0, 0, 0], 
              PointSize[pts], Point[{0, 0, 0}]}
,  (* 
              White point *) 
{RGBColor[1, 1, 1], 
              PointSize[pts], 
              Point[{1, 1, 1}]}, 
{Text[
                W, {1, 1, 
                  1}, {0, -1}]}
}
],  
Evaluate[plopt]
];

Show[
Graphics3D[
{uc,  
 (* Red point *) 
{RGBColor[1, 0, 0], 
              PointSize[pts], Point[{1, 0, 0}]}, 
 (* 
              Green point *) 
{RGBColor[0, 1, 0], 
              PointSize[pts], 
              Point[{0, 1, 0}]}
, 
 (* 
              Blue point *) 
{RGBColor[0, 0, 1], 
              PointSize[pts], Point[{0, 0, 1}]}, 
 (* 
              Black point *) 
{RGBColor[0, 0, 0], 
              PointSize[pts], Point[{0, 0, 0}]}
,  (* 
              White point *) 
{RGBColor[1, 1, 1], 
              PointSize[pts], Point[{1, 1, 1}]}, 
 (* 
              Cyan point *) 
{RGBColor[0, 1, 1], 
              PointSize[pts], 
              Point[{0, 1, 1}]}
, 
 (* 
              Magenta point *) 
{RGBColor[1, 0, 1], 
              PointSize[pts], Point[{1, 0, 1}]}, 
 (* 
              Yellow point *) 
{RGBColor[1, 1, 0], 
              PointSize[pts], 
              Point[{1, 1, 
                  0}]} }
],  
Evaluate[
          plopt]

];

Clear[CoP, x, y, z, ps]; 
    CoP[{x_, y_, z_}, ps_] := {RGBColor[x, y, z], PointSize[ps], 
        Point[{x, y, z}]}

Show[
Graphics3D[
{uc, 
CoP[{0, 0, 0}, pts], 
CoP[{1, 0, 0}, 
              pts], 
CoP[{0, 1, 0}, 
              pts], 
CoP[{0, 0, 1}, 
              pts], 
CoP[{1, 1, 1}, 
              pts], 
CoP[{0, 1, 1}, 
              pts], 
CoP[{1, 0, 1}, 
              pts], 
CoP[{1, 1, 0}, 
              pts], 
CoP[{0.5, 0.5, 0.5}, 
              pts]
}
],  
Evaluate[plopt]
];

Show[
Graphics3D[
{uc, 
CoP[{0, 0, 0}, pts], 
CoP[{1, 0, 0}, 
              pts], 
CoP[{0, 1, 0}, 
              pts], 
CoP[{0, 0, 1}, 
              pts], 
CoP[{1, 1, 1}, 
              pts], 
CoP[{0, 1, 1}, pts], 
            CoP[{1, 0, 1}, pts], 
            CoP[{1, 1, 0}, pts], 
CoP[{0.5, 0.5, 0.5}, 
              pts], 
Table[
              CoP[{0, 0, 0} + t {0, 0, 1}, pts1], {t, 0, 1,  .05}], 
            Table[CoP[{0, 0, 1} + (t/(Sqrt[2])) ({1, 1, 1} - {0, 0, 1}), 
                pts1], {t, 0, (Sqrt[2]),  .05}], 
Table[
              CoP[{0, 0, 0} + t {0, 1, 0}, pts1], {t, 0, 1,  .05}], 
            Table[CoP[{0, 1, 0} + (t/(Sqrt[2])) ({1, 1, 1} - {0, 1, 0}), 
                pts1], {t, 0, (Sqrt[2]),  .05}], 
Table[
              CoP[{0, 0, 0} + t {1, 0, 0}, pts1], {t, 0, 1,  .05}], 
            Table[CoP[{1, 0, 0} + (t/(Sqrt[2])) ({1, 1, 1} - {1, 0, 0}), 
                pts1], {t, 0, (Sqrt[2]),  .05}], 
Table[
              CoP[{1, 1, 0} + t ({1, 1, 1} - {1, 1, 0}), pts1], {t, 0, 
                1,  .05}], 
            Table[CoP[{0, 0, 0} + (t/(Sqrt[2])) ({1, 1, 0}), pts1], {t, 
                0, (Sqrt[2]),  .05}]
, 
Table[
              CoP[{1, 0, 1} + t ({1, 1, 1} - {1, 0, 1}), pts1], {t, 0, 
                1,  .05}], 
Table[
              CoP[{0, 0, 0} + (t/(Sqrt[2])) ({1, 0, 1}), pts1], {t, 
                0, (Sqrt[2]),  .05}], 
Table[
              CoP[{0, 1, 1} + t ({1, 1, 1} - {0, 1, 1}), pts1], {t, 0, 
                1,  .05}], 
Table[
              CoP[{0, 0, 0} + (t/(Sqrt[2])) ({0, 1, 1}), pts1], {t, 
                0, (Sqrt[2]),  .05}]


}
],  
        Axes -> False, 
Evaluate[
          plopt]
];

lsg = {32, 178, 170}/255

mo = {147, 112, 219}/255

Show[
Graphics3D[
{uc, 
CoP[{0, 0, 0}, pts], 
CoP[{1, 0, 0}, 
              pts], 
CoP[{0, 1, 0}, 
              pts], 
CoP[{0, 0, 1}, 
              pts], 
CoP[{1, 1, 1}, 
              pts], 
CoP[{0, 1, 1}, 
              pts], 
CoP[{1, 0, 1}, 
              pts], 
CoP[{1, 1, 0}, 
              pts], 
CoP[{0.5, 0.5, 0.5}, 
              pts], 
CoP[bur, pts], 
CoP[
              sie, pts]

}
],  
Evaluate[
          plopt]
];

Show[
Graphics3D[
{uc, 
CoP[{0, 0, 0}, pts], 
CoP[{1, 0, 0}, 
              pts], 
CoP[{0, 1, 0}, 
              pts], 
CoP[{0, 0, 1}, 
              pts], 
CoP[{1, 1, 1}, 
              pts], 
CoP[{0, 1, 1}, 
              pts], 
CoP[{1, 0, 1}, 
              pts], 
CoP[{1, 1, 0}, 
              pts], 
CoP[{0.5, 0.5, 0.5}, 
              pts], 
Table[
              CoP[(1 - t) bur + t sie, pts1], {t, 0, 
                1,  .1}]
}
],  
Evaluate[plopt]
];

Table[
        Show[
Graphics[{
{Apply[RGBColor, 
                  bur], Polygon[{{0, 0}, {1/3, 0}, {1/3, 1}, {0, 1}, {0, 
                      0}}]}, 
{ Apply[RGBColor, sie], 
                Polygon[{{2/3, 0}, {1, 0}, {1, 1}, {2/3, 1}, {2/3, 
                      0}}]}, 
{Apply[
                  RGBColor, (1 - t) bur + t sie], 
                Polygon[{ {1/3, 0}, {2/3, 0}, {2/3, 1}, {1/3, 1}, {1/3, 
                      0}}]}, 
{Thickness[0.01], 
                Line[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 
                      0}}]}
}], 
AspectRatio -> Automatic, 
          PlotRange -> {{0, 1}, {0, 1}}
], {t, 0, 
          1,  .01}];
SelectionMove[EvaluationNotebook[], All, GeneratedCell];
FrontEndTokenExecute["OpenCloseGroup"]

Plot[{(1 - t) UnitStep[1 - t], 
        1 - Abs[1 - t], (t - 1) UnitStep[t - 1]}, {t, 0, 2}]

tran = bur; 
    Table[Show[
Graphics[{
{Apply[
                RGBColor, {0, 0, 0}], 
              Polygon[{{0, 0}, {1/3, 0}, {1/3, 1}, {0, 1}, {0, 
                    0}}]}, 
{Apply[RGBColor, {1, 1, 1}], 
              Polygon[{{2/3, 0}, {1, 0}, {1, 1}, {2/3, 1}, {2/3, 
                    0}}]}, 
{Apply[
                RGBColor, (1 - t) 
                    UnitStep[1 - t] {0, 0, 0} + (1 - Abs[1 - t]) 
                    tran + (t - 1) UnitStep[t - 1] {1, 1, 1}], 
              Polygon[{ {1/3, 0}, {2/3, 0}, {2/3, 1}, {1/3, 1}, {1/3, 
                    0}}]}, 
{Thickness[0.01], 
              Line[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {0, 
                    0}}]}
}], 
AspectRatio -> Automatic, 
        PlotRange -> {{0, 1}, {0, 1}}
], {t, 0, 
        2,  .02}];
SelectionMove[EvaluationNotebook[], All, GeneratedCell];
FrontEndTokenExecute["OpenCloseGroup"]

Show[
Graphics3D[
{uc,  
 (* Red point *) 
{RGBColor[1, 0, 0], 
              PointSize[0.05], Point[{1, 0, 0}]}, 
 (* 
              Green point *) 
{RGBColor[0, 1, 0], 
              PointSize[0.05], 
              Point[{0, 1, 0}]}
, 
 (* 
              Blue point *) 
{RGBColor[0, 0, 1], 
              PointSize[0.05], Point[{0, 0, 1}]}, 
 (* 
              Black point *) 
{RGBColor[0, 0, 0], 
              PointSize[0.05], Point[{0, 0, 0}]}
,  (* 
              White point *) 
{RGBColor[1, 1, 1], 
              PointSize[0.05], Point[{1, 1, 1}]}, 
 (* 
              Cyan point *) 
{RGBColor[0, 1, 1], 
              PointSize[0.05], 
              Point[{0, 1, 1}]}
, 
 (* 
              Magenta point *) 
{RGBColor[1, 0, 1], 
              PointSize[0.05], Point[{1, 0, 1}]}, 
 (* 
              Yellow point *) 
{RGBColor[1, 1, 0], 
              PointSize[0.05], 
              Point[{1, 1, 
                  0}]}, 

Flatten[
              Table[CoP[{r Cos[t], r Sin[t], (Sqrt[1 - (r^2)])}, pts1], {r, 0, 
                  1, (1/100)}, {t, 0, (Pi/2), (Pi/100)}], 
              1]
}
],  
Evaluate[plopt]
];

Show[
Graphics3D[
{uc,  
 (* Red point *) 
{RGBColor[1, 0, 0], 
              PointSize[0.05], Point[{1, 0, 0}]}, 
 (* 
              Green point *) 
{RGBColor[0, 1, 0], 
              PointSize[0.05], 
              Point[{0, 1, 0}]}
, 
 (* 
              Blue point *) 
{RGBColor[0, 0, 1], 
              PointSize[0.05], Point[{0, 0, 1}]}, 
 (* 
              Black point *) 
{RGBColor[0, 0, 0], 
              PointSize[0.05], Point[{0, 0, 0}]}
,  (* 
              White point *) 
{RGBColor[1, 1, 1], 
              PointSize[0.05], Point[{1, 1, 1}]}, 
 (* 
              Cyan point *) 
{RGBColor[0, 1, 1], 
              PointSize[0.05], 
              Point[{0, 1, 1}]}
, 
 (* 
              Magenta point *) 
{RGBColor[1, 0, 1], 
              PointSize[0.05], Point[{1, 0, 1}]}, 
 (* 
              Yellow point *) 
{RGBColor[1, 1, 0], 
              PointSize[0.05], 
              Point[{1, 1, 
                  0}]}, 

Flatten[
              Table[CoP[{(Sqrt[1 - (z^2)]) Cos[t], (Sqrt[1 - (z^2)]) Sin[t], z}, 
                  pts1], {z, 0, 1, (1/100)}, {t, 0, (Pi/2), (Pi/100)}], 
              1]}
],  
        Axes -> False, 
Evaluate[plopt], 
        ViewPoint -> {2.512,  1.334,  
            1.833}
];

Show[
Graphics3D[
{uc,  
 (* Red point *) 
{RGBColor[1, 0, 0], 
              PointSize[0.05], Point[{1, 0, 0}]}, 
 (* 
              Green point *) 
{RGBColor[0, 1, 0], 
              PointSize[0.05], 
              Point[{0, 1, 0}]}
, 
 (* 
              Blue point *) 
{RGBColor[0, 0, 1], 
              PointSize[0.05], Point[{0, 0, 1}]}, 
 (* 
              Black point *) 
{RGBColor[0, 0, 0], 
              PointSize[0.05], Point[{0, 0, 0}]}
,  (* 
              White point *) 
{RGBColor[1, 1, 1], 
              PointSize[0.05], Point[{1, 1, 1}]}, 
 (* 
              Cyan point *) 
{RGBColor[0, 1, 1], 
              PointSize[0.05], 
              Point[{0, 1, 1}]}
, 
 (* 
              Magenta point *) 
{RGBColor[1, 0, 1], 
              PointSize[0.05], Point[{1, 0, 1}]}, 
 (* 
              Yellow point *) 
{RGBColor[1, 1, 0], 
              PointSize[0.05], 
              Point[{1, 1, 
                  0}]}, 

Flatten[
              Table[CoP[{Sin[s] Cos[t], Sin[s] Sin[t], Cos[s]}, pts1], {s, 
                  0, (Pi/2), (Pi/100)}, {t, 0, (Pi/2), (Pi/100)}], 
              1]}
],  
        Axes -> False, 
Evaluate[plopt], 
        ViewPoint ->  {2.512,  1.334,  
            1.833}
];

Show[
Graphics3D[
{uc,  
 (* Red point *) 
{RGBColor[1, 0, 0], 
              PointSize[0.05], Point[{1, 0, 0}]}, 
 (* 
              Green point *) 
{RGBColor[0, 1, 0], 
              PointSize[0.05], 
              Point[{0, 1, 0}]}
, 
 (* 
              Blue point *) 
{RGBColor[0, 0, 1], 
              PointSize[0.05], Point[{0, 0, 1}]}, 
 (* 
              Black point *) 
{RGBColor[0, 0, 0], 
              PointSize[0.05], Point[{0, 0, 0}]}
,  (* 
              White point *) 
{RGBColor[1, 1, 1], 
              PointSize[0.05], Point[{1, 1, 1}]}, 
 (* 
              Cyan point *) 
{RGBColor[0, 1, 1], 
              PointSize[0.05], 
              Point[{0, 1, 1}]}
, 
 (* 
              Magenta point *) 
{RGBColor[1, 0, 1], 
              PointSize[0.05], Point[{1, 0, 1}]}, 
 (* 
              Yellow point *) 
{RGBColor[1, 1, 0], 
              PointSize[0.05], 
              Point[{1, 1, 0}]}, 

Table[
              CoP[{r Cos[t], r Sin[t], r}, pts1], {r, 0, 1,  .02}, {t, 0, 
                (Pi/2), (Pi/64)}]}
],  
        Axes -> False, 
Evaluate[plopt], 
        ViewPoint -> {2.764,  
            1.945,  -0.161}
];