Student Support Forum: 'Multiple Image overlay' topicStudent Support Forum > General > Archives > "Multiple Image overlay"

 < Previous Comment Help | Reply To Comment | Reply To Topic
 Author Comment/Response Bill 07/29/12 8:41pm Hi: Here are a couple of examples that you might find useful: Ex 1. gr1=Graphics[Polygon[Table[{Sin[2 n Pi/5],Cos[2 n Pi/5]},{n,0,5}]],Frame->True,FrameLabel->{"x","y"},PlotRange->{{-1.5,1.5},{-1.5,1.5}},ImagePadding->50]; p=Graphics[Translate[Rotate[Style[Text["P"],36,Italic,FontFamily->"Courier",Bold,Red],-30Degree],{.5,.8}]]; e=Graphics[Translate[Rotate[Style[Text["e"],24],-130Degree],{.9,-.3}]]; n=Graphics[Translate[Rotate[Style[Text["n"],24],-180Degree],{0,-1}]]; t=Graphics[Translate[Rotate[Style[Text["t"],24],120Degree],{-.9,-.3}]]; a=Graphics[Translate[Rotate[Style[Text["a"],24],30Degree],{-.6,.8}]]; Show[gr1,p,e,n,t,a] Ex 2. AnnotatedArrow[p_,q_,label_]:={Arrowheads[{{-.1,0},{.1,.5,Graphics[Inset[Style[label,Medium],{Center,Top}]]},{.1,1}}],Arrow[{p,q}]} Graphics[{AnnotatedArrow[1/Sqrt[2]{-1,-1},1/Sqrt[2]{1,1},"d = 2"],Circle[]}] Hth, Bill URL: ,

 Subject (listing for 'Multiple Image overlay') Author Date Posted Multiple Image overlay Rajendra 07/29/12 05:15am Re: Multiple Image overlay Bill 07/29/12 8:41pm
 < Previous Comment Help | Reply To Comment | Reply To Topic