Image Creation (JPEG)

[Calibula]

Can you control the quality of the JPEG that is outputted? If I make a graphic it seems to be outputted as a super-low quality image that looks really poor.<BR><BR>Sample Code:<BR><%@ Import Namespace="System.Drawing" %><BR><%@ Import Namespace="System.Drawing.Imaging" %><BR><%@ import namespace="System.Drawing.Drawing2d" %> <BR><script language="VB" runat="server"><BR>Sub Page_Load(sender as Object, e as EventArgs) <BR> Dim objBitmap as Bitmap = new Bitmap(468, 60)<BR> Dim objGraphics as Graphics = Graphics.FromImage(objBitmap)<BR> <BR> objGraphics.smoothingMode = smoothingMode.antiAlias<BR> Dim objBrush as SolidBrush = new SolidBrush(Color.FromArgb(0,80,80))<BR> Dim objBlackBrush as SolidBrush = new SolidBrush(Color.Black)<BR> Dim objYellowBrush as SolidBrush = new SolidBrush(Color.Yellow)<BR> Dim fontTitle as Font = new Font("Arial Black", 24)<BR><BR> objGraphics.FillRectangle(new SolidBrush(Color.Red), 0, 0, 468, 60)<BR> objGraphics.DrawString("Hi Mom...", fontTitle, objBrush, 6, 10)<BR><BR> objGraphics.FillEllipse(objYellowBrush, 395, 5, 50, 50)<BR> <BR> objGraphics.FillEllipse(objBlackBrush, 409, 20, 7, 9)<BR> objGraphics.FillEllipse(objBlackBrush, 425, 20, 7, 9)<BR><BR> Dim aPoints(3) as Point<BR> aPoints(0).X = 405 : aPoints(0).Y = 35<BR> aPoints(1).X = 414 : aPoints(1).Y = 45<BR> aPoints(2).X = 426 : aPoints(2).Y = 45<BR> aPoints(3).X = 435 : aPoints(3).Y = 35<BR> objGraphics.DrawCurve(new Pen(Color.Black), aPoints)<BR><BR> Response.ContentType = "image/jpeg"<BR> objBitmap.Save(Response.OutputStream, ImageFormat.JPEG)<BR><BR> objGraphics.Dispose()<BR> objBitmap.Dispose()<BR>End Sub<BR></script>