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
>
>