Locating text in Show
- To: mathgroup at smc.vnet.net
- Subject: [mg8205] Locating text in Show
- From: "Steven T. Hatton" <hattons at cpkwebser5.ncr.disa.mil>
- Date: Mon, 18 Aug 1997 23:24:54 -0400
- Organization: Logicon supporting DISA
- Sender: owner-wri-mathgroup at wolfram.com
--------------AD9963CAE69038D8BEBBACD2
I am trying to label points in a graph that I am generating with the
following. Before I attempt to overlay the two graphics objects I want
to get the text to locate in conjunction with the points on the circle.
In other words I need to locate the text at the vertices of the octagon
with an offset. I am finding that all but the first three points of
"dots" are located at the bottom of the graph. Does anybody have some
insight into what is going on here?
<< Geometry`Polytopes`
dots=Vertices[Octagon]
Show[Graphics[{{PointSize[.03], Point /@ dots},{Circle[{0,0},1]}},
AspectRatio -> 1]]
Show[Graphics[{
Thread[Text[{A, B, C,
D},{dots[[1]],dots[[2]],dots[[3]],dots[[4]]} ]]},
AspectRatio->1,PlotRange->All]]
Steve
--------------AD9963CAE69038D8BEBBACD2
Content-Description: Card for Steven T. Hatton
begin: vcard
fn: Steven T. Hatton
n: ;Steven T. Hatton
email;internet: hattons at cpkwebser5.ncr.disa.mil
note: this is a test
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
end: vcard
--------------AD9963CAE69038D8BEBBACD2--