Re: Thickness of Lines and Arcs

*To*: mathgroup at smc.vnet.net*Subject*: [mg31307] Re: [mg31288] Thickness of Lines and Arcs*From*: Tomas Garza <tgarza01 at prodigy.net.mx>*Date*: Sat, 27 Oct 2001 01:08:17 -0400 (EDT)*References*: <200110260828.EAA05718@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

In the specific case of the square you mention, I think you could try this: In[1]:= dis[x_,y_]:=Sqrt[Dot[x,y]]; In[2]:= fig=Polygon[{{0,0},{1,0},{1,1},{0,1}}]; In[3]:= g1=Show[Graphics[fig],DisplayFunction->Identity]; In[4]:= g2=Show[g1, Epilog->{Hue[0],Thickness[dis[fig[[1,2]],fig[[1,3]]]/4], Line[{{0,0},{1,1}}]},DisplayFunction->$DisplayFunction] (you get a really thick line, but since that's what you want...). The idea, as you see, is to establish the thickness directive in terms of the length of the second side of the square. This can be adapted to other primitives, according to your needs. Tomas Garza Mexico City ----- Original Message ----- From: "Will Self" <wself at msubillings.edu> To: mathgroup at smc.vnet.net Subject: [mg31307] [mg31288] Thickness of Lines and Arcs > In creating a two dimensional graphics picture... > > For thickness of lines and arcs I can use either Thickness, which is > relative to the size of the picture, or AbsoluteThickness, which is > more or less an absolute size, I guess probably related to pixel size > on any particular screen. What I need is neither of these -- I need a > way to specify thickness relative to the units I am using. > > For example, if I have (among other polygons and stuff) a square: > Polygon[{{0,0}, {1,0}, {1,1}, {0,1}}] and a line of thickness 1/4, > then I want the line to have thickness 1/4 of the side of the square. > > I really can't see any way to achieve this. This is very basic, and > so I would suppose that this has come up before, but I didn't see it > when I searched the archives. > > Please email me if you would be so kind. > > Will Self > wself at msubillings.edu >

**References**:**Thickness of Lines and Arcs***From:*wself@msubillings.edu (Will Self)