Graphics

Components of Graphics

Be familiar with the following function and system variables:
Show,
AspectRatio,
PlotRange,
Frame

2D Componets

\(\(\(Show[
      Graphics[{
			PointSize[0.02], 
			Point[{1, 1}], 
          Point[{0, 0}], Point[{0, 1}], Point[{1, 0}], 
			
          Text["Hello, World!!", {0.5, 0.5}]
			}], 
	
      PlotRange -> All, Frame -> True, 
	FrameTicks -> None]; \)	\)\)

\(\(Show[
      Graphics[
		Table[{PointSize[0.02\ n], Point[{n, 0}]}, {n, 1, 5}]

        	], 
	PlotRange -> All]; \)\)

\(\(Show[Graphics[{
			Rectangle[{0, 0}, {1, 1}]}
	]]; \)\)

\(\(Show[Graphics[{GrayLevel[0.7], 
		Rectangle[{0, 0}, {1, 1}]}]]; 
    \)\)

\(\(Show[
      Graphics[{
			Line[{{0, 2}, {4, 2}}], 

          			{Dashing[{0.05, 0.05}], Line[{{0, 1}, {3, 1}}]}, 

          			{Thickness[0.03], Line[{{0, 0}, {2, 0}}]}
		}]]; \)\)

\(\(Show[
      Graphics[{
			Line[{{0, 0}, {4, 0}}], 	
          Line[{{2, 1}, {3, \(-1\)}}], 
			Line[{{2, 1}, {1, \(-1\)}}], 	
          Line[{{0, 0}, {3, \(-1\)}}], 
			Line[{{4, 0}, {1, \(-1\)}}]}], 
      
	AspectRatio -> Automatic, PlotRange -> All]; \)\)

\(\(\(Show[
      Graphics[{
			
          Text[FontForm["By Times-Bold, 10 points", 

              					{"Times-Bold", 10}], {0, 0}], 
			
          Text[FontForm["By Helvetica-Italic", 

              					{"Helvetica-Italic", 14}], {0, 1}, {1, 0}], 

          			Text[
            FontForm["By Symbol, 12 points", 

              					{"Symbol", 12}], {0, \(-1\)}, {\(-1\), 0}]

          			}], 
	Frame -> True, 
	FrameTicks -> None]; \)
			
    \)\)

\(\(Show[Graphics[Circle[{0, 0}, 1], 
	AspectRatio -> Automatic]]; 
    \)\)

Show[Graphics[Circle[{0, 0}, {2, 1}]]];

Show[Graphics[Circle[{0, 0}, {2, 1}]]];

\(\(Show[
      Graphics[{
			Circle[{0, 0}, 0.5], 
			Circle[{0, 0}, 1], 

          			Circle[{1, 1}, 1]}], AspectRatio -> Automatic]; \)\)

\(\(Show[Graphics[Disk[{0, 0}, 1, {0, Pi/2}]], 
	
      AspectRatio -> Automatic]; \)\)

\(\(Show[
      Graphics[{
			Circle[{1, 0}, 4, {3  Pi/8, 13  Pi/8}], 
			
          Circle[{4, 0}, 4, {5  Pi/8, 11  Pi/8}]
		}], 
	
      AspectRatio -> Automatic, PlotRange -> All]; \)\)

3D Componets

\(\(Show[
      Graphics3D[{

          			{PointSize[0.1], 
			Point[{1.2, 1.2, 1.2}], 
			
            Point[{1, 1, 1}]}, 
\ \ \ \ Line[{{0, 0, 1}, {0.5, 1.2, 1.2}}], 
          
		Cuboid[{0, 0, 0}, {1, 1, 1}]}, 
		PlotRange -> All

        		]]; \)\)