3 added 530 characters in body
source | link

You can use Lighting as a directive:

theAxes2 = Graphics3D[{Red, Thickness[0.015], Lighting -> {{"Ambient", White}},  Thickness[0.015], 
    Red, Arrowheads[.05], Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
    Green, Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], 
 Blue, 
   Blue,  Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}];

Show[bustWithLight, theAxes2]

enter image description here

An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:

theAxes3 = Graphics3D[{ Thickness[0.015], Arrowheads[.05],
   MapThread[Style[#, #2, Lighting -> {{"Ambient", White}}]&, 
     {{Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}, 
     {Red, Green, Blue}}]}];

Show[bustWithLight, theAxes3]

same picture

Both usages are documented in Lighting >> Details

enter image description here

You can use Lighting as a directive:

theAxes2 = Graphics3D[{Red, Thickness[0.015], Lighting -> {{"Ambient", White}},
     Arrowheads[.05], Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
    Green, Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], Blue, 
     Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}];

Show[bustWithLight, theAxes2]

enter image description here

An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:

theAxes3 = Graphics3D[{ Thickness[0.015], Arrowheads[.05],
   MapThread[Style[#, #2, Lighting -> {{"Ambient", White}}]&, 
     {{Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}, 
     {Red, Green, Blue}}]}];

Show[bustWithLight, theAxes3]

same picture

You can use Lighting as a directive:

theAxes2 = Graphics3D[{Lighting -> {{"Ambient", White}},  Thickness[0.015], 
    Red, Arrowheads[.05], Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
    Green, Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], 
    Blue,  Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}];

Show[bustWithLight, theAxes2]

enter image description here

An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:

theAxes3 = Graphics3D[{Thickness[0.015], Arrowheads[.05],
   MapThread[Style[#, #2, Lighting -> {{"Ambient", White}}]&, 
     {{Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}, 
     {Red, Green, Blue}}]}];

Show[bustWithLight, theAxes3]

same picture

Both usages are documented in Lighting >> Details

enter image description here

2 added 530 characters in body
source | link

You can use Lighting as a directive:

theAxes2 = Graphics3D[{Red, Thickness[0.015], Lighting -> {{"Ambient", White}},
     Arrowheads[.05], Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
    Green, Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], Blue, 
    Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}];

Show[bustWithLight, theAxes2]

enter image description here

An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:

theAxes3 = Graphics3D[{ Thickness[0.015], Arrowheads[.05],
   MapThread[Style[#, #2, Lighting -> {{"Ambient", White}}]&, 
     {{Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}, 
     {Red, Green, Blue}}]}];

Show[bustWithLight, theAxes3]

same picture

You can use Lighting as a directive:

theAxes2 = Graphics3D[{Red, Thickness[0.015], Lighting -> {{"Ambient", White}},
     Arrowheads[.05], Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
    Green, Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], Blue, 
    Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}];

Show[bustWithLight, theAxes2]

enter image description here

You can use Lighting as a directive:

theAxes2 = Graphics3D[{Red, Thickness[0.015], Lighting -> {{"Ambient", White}},
     Arrowheads[.05], Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
    Green, Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], Blue, 
    Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}];

Show[bustWithLight, theAxes2]

enter image description here

An alternative way to give each primitive its own lighting directives is to use Style[primitivei, Lighting -> lightingi]:

theAxes3 = Graphics3D[{ Thickness[0.015], Arrowheads[.05],
   MapThread[Style[#, #2, Lighting -> {{"Ambient", White}}]&, 
     {{Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], 
       Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}, 
     {Red, Green, Blue}}]}];

Show[bustWithLight, theAxes3]

same picture

1
source | link

You can use Lighting as a directive:

theAxes2 = Graphics3D[{Red, Thickness[0.015], Lighting -> {{"Ambient", White}},
     Arrowheads[.05], Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -2.5, 0}}]], 
    Green, Arrow[Tube[{{-3.5, -.5, 0}, {-3.5, -.5, 2}}]], Blue, 
    Arrow[Tube[{{-3.5, -.5, 0}, {-5.5, -.5, 0}}]]}];

Show[bustWithLight, theAxes2]

enter image description here