Graphics Bug (or anomaly anyway)
- To: mathgroup at smc.vnet.net
- Subject: [mg28303] Graphics Bug (or anomaly anyway)
- From: aes <siegman at stanford.edu>
- Date: Mon, 9 Apr 2001 02:58:03 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Try executing the following code, which creates a rectangular array of
points extending from n=0 to n=nn horizontally and m=1 to m=nn
vertically:
Do[
Print["nn = ", nn];
Show[
Graphics[
Table[Point[{n, m}], {n, 0, nn}, {m, 1, nn}]]], {nn, 5,8}]
Then click on the plots to show the bounding boxes.
For nn<=6 the bounding box is closely wrapped around the array, with the
bottom line especially located just a little below the m=1 row.
For nn>=7 the bottom of the bounding box suddenly drops down one unit
and is now located a little below where an m=0 row would be, if there
were one.
If you make the array run only from n=1 and m=1 in both directions, the
bounding box wraps tightly all around for nn<=6, but drops back by one
unit on both left and bottom sides for nn>=7.
Try giving a larger PointSize to the points. If the points are large
enough the circular points on the outer boundary of the array get cut
off by the bounding box on all 4 sides for nn<=6, but only on the top
and two sides, not on the bottom, for n>=7.
Same thing happens with Circle or Disk -- except bounding box always
expands enough so the circles or disks are never cut off.
Not a serious bug, maybe -- but does produce some minor hassles, e.g.,
if you're exporting a series of figures at increasing values of nn to go
into another application, and counting on the bounding boxes to be all
the same size.
[Mathematica 4.0, Mac PB G3, OS 8.6]