Re: PointSize (and shape) frustration

*To*: mathgroup at smc.vnet.net*Subject*: [mg85893] Re: PointSize (and shape) frustration*From*: "D. Grady" <D.C.Grady at gmail.com>*Date*: Wed, 27 Feb 2008 04:22:03 -0500 (EST)*References*: <fq0uke$kdp$1@smc.vnet.net>

On Feb 26, 5:53=A0am, Szabolcs Horv=E1t <szhor... at gmail.com> wrote: > While Mathematica 6 can display beautiful graphics on screen compared to > previous versions, graphics export became extremely frustrating and buggy.= > > I complained about several issues before, now here's one more: > > I am trying to plot the bifurcation diagram for the logistic map, point > by point. =A0The point size needs to be tuned precisely to get a nice plot= > (for print). =A0Mathematica refuses to export *circular* points to PDF/EPS= > below a certain size, but in this case I can live with that. =A0However, > Mathematica refuses to draw points below a certain size, no matter what > the value of PointSize or AbsolutePointSize is!! =A0If the points overlap,= > the plot is completely ruined. > > Then I tried using Disk[]s instead of points. =A0On screen it looks fine, > but when exported to PDF, Mathematica does something very strange, and > the result doesn't even have the disks any more! =A0Instead there are some= > little crosses on a *regular* grid, approximating the shape of the plot. > > I *know* that 30000 points can inflate the file size, and I know that > arbitrarily small points are not printable/displayable, but I can solve > these problems on my own. =A0I don't want Mathematica to try to be smart > and make its own decisions about this, because it will just cause trouble.= > > Here's the code to experiment with (I know that it doesn't produce a > precise result): > > lm[r_] := NestList[r # (1 - #) &, .5, 50000] > > bif = Join @@ Table[ > =A0 =A0 =A0{r, #} & /@ > =A0 =A0 =A0 Union[Take[lm[r], -100], SameTest -> (Abs[#1 - #2] < 1*^-3 &)]= , > =A0 =A0 =A0{r, 2.0, 3.98, .001} > =A0 =A0 =A0]; > > plot = ListPlot[bif, PlotRange -> All, PlotStyle -> AbsolutePointSize[.0= 5]] > > plot = Graphics[{PointSize[.0001], Point[bif]}] > > plot = Graphics[Disk[#, 1/1000] & /@ bif] > > Now try exporting each of these plots at reasonable sizes (i.e. not half > a metre). =A0Remember that exporting PDFs at different sizes only works as= > Export["plot.pdf", Show[plot, ImageSize -> someValue]] because Export is > buggy and does not respect the ImageSize options for PDFs! Unfortunately I don't have any suggestions for you, I just wanted to echo your complaints. Getting Export to do anything right has been practically impossible for me, and I'm glad to know that at least others are having the same problems. -Daniel