> On Thu, 08 Jan 2004 09:44:31 -0500, [EMAIL PROTECTED] (Zentara) > wrote: > > >On Wed, 7 Jan 2004 10:53:20 -0600, [EMAIL PROTECTED] (Dan Muey) > >wrote: > > > >>Thanks! Even more to add to my look into list! > > > >Yeah upon futher thought, you probably could use the Tk::Canvas and > >actually plot your curve point-by-point from the equation of an > >ellipse, rather than using the Oval function. Then export the > >postscript. > > > >Run the "widget" demo, there are 2 examples for plot, one of them > >exports ps. > > I'm not trying to hijack your thread, but the idea of
No sweat! I can use all the ideas I can get. I think this is a pretty good one you have. > "rotated ellipse" sort of appeals to me. So here is a simple > postscript file to make a rotated ellipse. Just save as a .ps > file and look at it with ghostview. Now all you have to do, > is play with it to see how to align it up, to your needs, > then in your perl script, use a here doc to write it out to a > file. Then use Image Magick or Imager to convert it to .jpg > or whatever. > I got this from this page: > http://www.redgrittybrick.org/postscript/ellip> se.html > > > > %!PS-Adobe > %%Pages: 1 > %%BoundingBox: 60 420 490 > 740 > % > % canonical ellipse routine > % credit: Holger Gehringer > % > > /inch { 72 mul } def > /ellipse { > /endangle exch def > /startangle exch def > /yrad exch def > /xrad exch def > /y exch def > /x exch def > /savematrix matrix currentmatrix def > x y translate > xrad yrad scale > 0 0 1 startangle endangle arc > savematrix setmatrix > } def > %%Page: One 1 > > 1 0 0 setrgbcolor > 4 inch 8 inch translate > 30 rotate > 0 0 2.8 inch 1.4 inch 0 360 ellipse > 16 setlinewidth > stroke > > showpage > %%EOF > > > > > -- > When life conspires against you, and no longer floats your > boat, Don't waste your time with crying, just get on your > back and float. > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response> -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
