How to increase the resoultion of an PNG image

vinumanikandan has asked for the wisdom of the Perl Monks concerning the following question:

Hi I'M using Perl GD to create an image with response to user entry and the database retrevial using the Perl GD and DBI and CGI modules. Even though i'm successful in making the png image my boss is not happy at the resoultion of the image. The code is as in below

my $im = new GD::Image(710,$Image_Height);
my $white = $im->colorAllocate(255,255,255);
my $black = $im->colorAllocate(0,0,0);       
my $blue = $im->colorAllocate(0,0,255);
$im->transparent($white);
$im->interlaced('true');

$im->filledRectangle($Trans_X1,$Image_Height-20,$Trans_X1,$Image_Heigh
+t-10,$scale_line); ### Scale ######
    $im->filledRectangle($Trans_X1+$Scale_Length,$Image_Height-20,$Tra
+ns_X1+$Scale_Length,$Image_Height-10,$scale_line); ### Scale ######

    $im->string(gdSmallFont,$Trans_X1,$Image_Height-32,1,$scale_line);
    $im->string(gdSmallFont,$Trans_X1+$Scale_Length,$Image_Height-32,$
+Length,$scale_line);
    

    open OUT,">$ID.png";
    binmode OUT;
    # Convert the image to PNG and print it on standard output
    print OUT $im->png;
    close OUT;
[download]

Please let me know what to do to increase the resoultion of the image (above is psuedo code)

Comment on How to increase the resoultion of an PNG image Download Code

Replies are listed 'Best First'.
Re: How to increase the resoultion of an PNG image by moritz (Cardinal) on Dec 18, 2010 at 20:02 UTC
The `710,$Image_Height` in the constructor is the resolution. Just use larger values here. Perl 6 - second systems done right	[reply] [d/l]
Re^2: How to increase the resoultion of an PNG image by vinumanikandan (Initiate) on Dec 21, 2010 at 10:37 UTC
Dear Monk thanks for replying. The second vataiable will depen up on my deta coming from my Database and i wopnt be able to increase the same more thatn an extend as its been used in CGI script to view the image	[reply]
Re^3: How to increase the resoultion of an PNG image by moritz (Cardinal) on Dec 21, 2010 at 11:12 UTC
If you want to increase the resolution, but can't change the resolution, I can't help you. Sorry. Perl 6 - second systems done right	[reply]
Re: How to increase the resoultion of an PNG image by BrowserUk (Patriarch) on Dec 18, 2010 at 20:58 UTC
You are trying, (but failing dismally). to create an 8-bit paletted image containing small-font text. These always look pretty "lo-res", as any attempt to anti-alias the fonts simply doesn't work. To produce an image that will be perceived as "high resolution"; you'll need to make it a 24-bit (truecolor) image. Had you posted working code, you might have got working code demonstrating how to do that as a response. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply]
Re^2: How to increase the resoultion of an PNG image by vinumanikandan (Initiate) on Dec 21, 2010 at 10:51 UTC
Thank you , Yes i had posted the code for the review. What i am doing is making the GD work dynamical depending on the user input and corresponding output from the db and plotting it. the image width is constant and the height depends on the db output. the thus created image is loaded to th eCGI script and using the Javascript and Jquery function Im zooming into the same image.	[reply]
Re: How to increase the resoultion of an PNG image by Anonyrnous Monk (Hermit) on Dec 18, 2010 at 20:18 UTC
Not really sure what you mean by resolution of the PNG image. As the PNG format stores pixels, the resolution of an (unscaled) image only depends on the resolution of the viewing device (such as a monitor). In other words, the trivial approach to a more detailed image would be to create a larger image, with drawing coordinates, font sizes, etc. adjusted accordingly. I suppose this occurred to you already... which is why I'm asking what you mean by resolution. If it's that the text/lines in the image look "ragged", you (or your boss) might actually want antialiasing, which makes the image appear smoother to the human eye (by reducing spatial sampling artifacts). GD offers gdAntiAliased color for drawing, but I think for text only TrueType fonts provide antialiasing (method stringFT()).	[reply]
Re: How to increase the resoultion of an PNG image by Anonymous Monk on Dec 18, 2010 at 19:14 UTC
http://search.cpan.org/grep?cpanid=LDS&release=GD-2.45&string=res&i=1&n=1&C=0	[reply]
Re: How to increase the resoultion of an PNG image by Khen1950fx (Canon) on Dec 19, 2010 at 03:54 UTC
`open OUT,">$ID.png"; binmode OUT; print OUT $im->png; close OUT;` [download] That's not right. You want to print the png to STDOUT, so do something like this: #!/usr/bin/perl use strict; use warnings; use GD; use GD::Image; my $im_width = 1000; my $im_height = 1000; my $im = GD::Image->newTrueColor($im_width, $im_height); my $white = $im->colorAllocate(255,255,255); my $black = $im->colorAllocate(0,0,255); my $red = $im->colorAllocate(255,0,0); my $blue = $im->colorAllocate(0,0,255); $im->rectangle(0,0,99,99,$black); $im->arc(50,50,95,75,0,360,$blue); $im->fill(50,50,$red); my $pngdata = $im->png; open (DISPLAY,"\| display -") \|\| die; binmode DISPLAY; print DISPLAY $pngdata; close DISPLAY; [download]	[reply] [d/l] [select]