Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Multiple Image overlay' topicStudent Support Forum > General > "Multiple Image overlay"

< Previous CommentHelp | 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 CommentHelp | Reply To Comment | Reply To Topic