Image scaling problem

[Larry Serflaten]

I am taking a 256 color bitmap from a file
and scaling it up X 16 to a 32bppPARGB bitmap
in memory. I copy that image to the screen.

After scaling, the edges of all the lines and
colors are blurred. I want the edges all
crisp, including inherent pixelation (jaggies).

Setting smoothing to none, or adjusting the
composting mode on the Graphics object still
yields blurred edges. What do I need to do
to the scale up the image, pixel for pixel?

The bitmaps are created like:

Maps = DirectCast(Bitm ap.FromFile(".. \images\maps.bm p"), Bitmap)
LargeMap = New Bitmap(MapSize. Width * 16 + 4, MapSize.Height * 16 + 4, Imaging.PixelFo rmat.Format32bp pPArgb)
Then later;

Dim grx As Graphics = Graphics.FromIm age(LargeMap)

grx.Clear(Color .DarkGreen)
grx.SmoothingMo de = Drawing2D.Smoot hingMode.None
grx.Compositing Mode = Drawing2D.Compo sitingMode.Sour ceCopy

grx.DrawImage(M aps, New Rectangle(0, 0, MapSize.Width * 16, MapSize.Height * 16), _
New Rectangle(0, Index * MapSize.Height, MapSize.Width, MapSize.Height) , _
GraphicsUnit.Pi xel)
The image should be scaled there, and is later copied to the screen:

Dim grx As Graphics = Me.CreateGraphi cs

grx.SmoothingMo de = Drawing2D.Smoot hingMode.None
grx.DrawImage(L argeMap, New Rectangle(10, 40, 400, 400), New Rectangle(80, 80, 400, 400), GraphicsUnit.Pi xel)
What I see on the screen is blurred, but I suspect I need to address the
problem during the scaling process.

Any/all help will be appreciated....
LFS

[Larry Serflaten]

"Larry Serflaten" <se*******@usin ternet.com> wrote

I found it! It was the Nearest-Neighbor interpolation mode I needed....

Setting smoothing to none, or adjusting the
composting mode on the Graphics object still
yields blurred edges. What do I need to do
to the scale up the image, pixel for pixel?

grx.Clear(Color .DarkGreen)
grx.SmoothingMo de = Drawing2D.Smoot hingMode.None
grx.Interpolati onMode = Drawing2D.Inter polationMode.Ne arestNeighbor


grx.DrawImage(M aps, New Rectangle(0, 0, MapSize.Width * 16, MapSize.Height * 16), _
New Rectangle(0, Index * MapSize.Height, MapSize.Width, MapSize.Height) , _
GraphicsUnit.Pi xel)

[Herfried K. Wagner [MVP]]

Larry,

"Larry Serflaten" <se*******@usin ternet.com> schrieb:

Dim grx As Graphics = Me.CreateGraphi cs

grx.SmoothingMo de = Drawing2D.Smoot hingMode.None
grx.DrawImage(L argeMap, New Rectangle(10, 40, 400, 400), New
Rectangle(80, 80, 400, 400), GraphicsUnit.Pi xel)

Just to make sure you don't forget to do that: The 'Graphics' objects in
the snippets you provided "should" be disposed...

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Larry Serflaten]

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote

grx.SmoothingMo de = Drawing2D.Smoot hingMode.None
grx.DrawImage(L argeMap, New Rectangle(10, 40, 400, 400), New
Rectangle(80, 80, 400, 400), GraphicsUnit.Pi xel)

Just to make sure you don't forget to do that: The 'Graphics' objects in
the snippets you provided "should" be disposed...

Thanks for the reminder. Those were 'snippets' and not full examples of
working code. I still had other uses for that object that were not pertinant
to the discussion, and that code did not get included...

;-)
LFS