My own test
My own test
In[]:=
r=3;point1={5,0,0};point2={3,0,0};Graphics3D[{{SpotLight[Yellow,{point1,point2},Pi/12],White,Cylinder[{{1,0,0},{1.1,0,0}},r]},{PointSize[Large],Blue,Point[point1]},{PointSize[Large],Red,Point[point2]}},Axes->True,LightingNone,AxesLabel->{"x","y","z"}]
Out[]=
Test in the documentation
Test in the documentation
Example 1
Example 1
From documentation
From documentation
In[]:=
Table[Graphics3D[{SpotLight[Orange,{{0,0,1.5},{0,0,0}},a],Specularity[White,50],Sphere[]},LightingNone],{a,{Pi/12,Pi/8,Pi/6,Pi/4}}]
Out[]=
,,,
New OutPut
New OutPut
In[]:=
Table[Graphics3D[{SpotLight[Orange,{{0,0,1.5},{0,0,0}},a],Specularity[White,50],Sphere[]},LightingNone],{a,{Pi/12,Pi/8,Pi/6,Pi/4}}]
Out[]=
,,,
Example 2
Example 2
From documentation
From documentation
In[]:=
Table[Graphics3D[{SpotLight[c,{{0,0,1.5},{0,0,0}},Pi/6],White,Sphere[]},LightingNone],{c,{Red,Yellow,Blue}}]
Out[]=
,,
New OutPut
New OutPut