RE: Showing thick lines - a problem?
- To: mathgroup at smc.vnet.net
- Subject: [mg39511] RE: [mg39484] Showing thick lines - a problem?
- From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
- Date: Thu, 20 Feb 2003 05:15:06 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Uri, Also, with... sl[len_, size_, opts___] := Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.01], Line[{{0, 0}, {len, 0}}], Line[{{0, 1}, {1, 1}}], Line[{{1 - len, 0}, {1, 0}}]}], ImageSize -> size, AspectRatio -> 1/10, Background -> Hue[.16, .1, 1], opts] ...look at: sl[.001, #] & /@ Range[400, 700, 50] sl[.001, #, Frame -> None] & /@ Range[400, 700, 50] sl[.001, #, PlotRange -> All] & /@ Range[400, 700, 50] sl[.001, #, PlotRegion -> {{0, 1}, {0, 1}}] & /@ Range[400, 700, 50] sl[.001, #, PlotRegion -> {{0.1, .9}, {0.1, .9}}] & /@ Range[400, 700, 50] They are all different. The last one (which should be different only as to its relation to background) is best, but still not perfect. A short Inspection of the PostScript generated with Display shows the errors already being present there. My # is: & $Version "4.1 for Microsoft Windows (November 2, 2000)" All this has the appearance of a piece of software overworked through years of maintenance and time might have come to completely redo it from scratch. The only reason, I would attribute to WRI, to not have done that already -- I wish to guess -- is to have something very ambitious in the pipe. Awaiting eagerly! If not, reconsidering, it's just: Mathematica-users have become problem solvers, swiftly finding there way around all those nasty obstacles, to get at the real thing! -- Hartmut Wolf >-----Original Message----- >From: Uri Zwick [mailto:zwick at tau.ac.il] To: mathgroup at smc.vnet.net >Sent: Wednesday, February 19, 2003 10:42 AM >To: mathgroup at smc.vnet.net >Subject: [mg39511] [mg39484] Showing thick lines - a problem? > > >Hi, > >The following draws two thick blue lines, one of length 1 >and the other of length "len" using an image size of "size": > >sl[len_,size_] := > Show[ Graphics[ >{RGBColor[0,0,1],Thickness[0.01],Line[{{0,0},{len,0}}], > Line[{{0,1},{1,1}}]}],ImageSize->size,AspectRatio->1/10] > >On my machine: > >sl[1/1000,450] > >Shows a long thick line and >a very short thick line underneath it. > >sl[1/1000,500] > >Only the long line is visible, even tough the image is larger! > >sl[1/1000,600] > >The short line reappears. > >The problem disappears when "Thickness[0.01]" is removed. > >Do others have the same problem? > >I would expect larger images to show more, and not less, details. >Also, it seems to me that thick lines should be visible whenever >thin lines are. > >Uri > >