Changing image shape in vb.net

[arcon5]

Hi,

I want to be able to take a flat image and do this with it in my program:



I think I know a logical way of doing it but don't know how to..

- create abitmap as bitmap
- load image into abitmap (in this example image is 60px width x 40px height)
- make new bbitmap as bitmap
- bbitmap is created to a size for example 10px x 40px
- load left section of abitmap into bbitmap so in affect now split the image into two
- change top-right and bottom-right points to lower and higher respectively on abitmap
- change top-left and bottom-left points to lower and higher respectively
- create finalbitmap as bitmap
- draw abitmap and bbitmap on finalbitmap to put them together and make one 3D image
- now use the .mypen tool to draw the line where abitmap and bbitmap ajoins

But..
how do I change the points?
how do I load only PART of an image from abitmap into bbitmap?

Hope this makes sense?

[.paul.]

an image is always rectangular, although you can make part of it transparent. you could recreate that effect with the picturebox's region property + draw the white lines on the fininshed image.

if you upload the original image i'll have a try

[arcon5]

I have attached a GIF file of the original flat image.

The only problem with the transparent line is a chunk of the image will disappear. Everywhere I read seems to be in C#.

[arcon5]

Whilst on the topic of imagery. I also want to rotate an image about 15 degrees.

I tried:

image.RotateFlip(15)

But get the error:

"Parameter is not valid."

Can't seem to find a decent article on this anywhere. Any ideas where I am going wrong?

[MarMan]

You can only rotate 90, 180 or 270. I was disappointed.

image.RotateFlip(System.Drawing.RotateFlipType.Rotate180FlipNone)

[Shaggy Hiker]

You are looking at doing this in an easy way. That may not be possible, and even if it is, it might not be ideal. One alternative would be to draw a mesh and texturemap the image onto the mesh. That would be 3D graphics, probably using DirectX....and that's as far as I know, cause I suck at graphics. Still, that is how people make things like spinning cubes with images on them, objects in 3D games (where the object is VASTLY more complex than a simple cube), and so forth. It's a whole different area, though.

[.paul.]

try this:

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim img As New Bitmap("C:\Users\Paul\Desktop\3107017.png")
        Dim gr As Graphics = Graphics.FromImage(img)
        gr.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        gr.FillPolygon(Brushes.White, New PointF() {New PointF(0, 0), New PointF(img.Width - 1, 0), New PointF(img.Width - 1, 60), New PointF(29, 10), New PointF(0, 37)})
        gr.FillPolygon(Brushes.Magenta, New PointF() {New PointF(0, 0), New PointF(img.Width - 1, 0), New PointF(img.Width - 1, 55), New PointF(29, 5), New PointF(0, 32)})
        gr.FillPolygon(Brushes.White, New PointF() {New PointF(0, img.Height - 1), New PointF(img.Width - 1, img.Height - 1), New PointF(img.Width - 1, img.Height - 46), New PointF(29, img.Height - 11), New PointF(0, img.Height - 26)})
        gr.FillPolygon(Brushes.Magenta, New PointF() {New PointF(0, img.Height - 1), New PointF(img.Width - 1, img.Height - 1), New PointF(img.Width - 1, img.Height - 41), New PointF(29, img.Height - 6), New PointF(0, img.Height - 21)})
        gr.DrawLine(New Pen(Color.White, 5), 2, 32, 2, img.Height - 21)
        gr.DrawLine(Pens.White, 29, 10, 29, img.Height - 10)
        gr.DrawLine(New Pen(Color.White, 3), img.Width - 3, 60, img.Width - 3, img.Height - 45)
        img.MakeTransparent(Color.Magenta)
 
        Dim path As New Drawing.Drawing2D.GraphicsPath
        path.AddPolygon(New PointF() {New PointF(img.Width - 1, img.Height - 41), New PointF(img.Width - 1, 55), New PointF(29, 5), New PointF(0, 32), New PointF(0, img.Height - 21), New PointF(29, img.Height - 6)})
        PictureBox1.Image = img
        PictureBox1.Region = New Region(path)
    End Sub
 
End Class

[.paul.]

as shaggy said there are better ways of doing this. my effort is just a 3d illusion

[Shaggy Hiker]

as shaggy said there are better ways of doing this. my effort is just a 3d illusion

Illusions can be better than reality if they are suitable. I remember reading in a graphics book about the final space battle in the third installment of the first Star Wars trilogy (was that Return of the Jedi?). The battle was some big free for all around the partially completed death star. Apparently, if you freeze one of the scenes and look at all the ships, one of them looks like a sneaker....because it IS a sneaker. People don't generally notice that while watching the movie, because they see what they expect to see.

[vb_ftw]

well i guess arcon's a lucky guy,
i've been trying to do this too..lol
well here's my code much like .paul.'s
no time for bg shadow

If path = "" Then
            Exit Sub
        End If
        Dim a As New Bitmap(path) 'load file
        
        Dim x As Integer = a.Width 'get loaded file's width
        Dim y As Integer = a.Height
        Dim sidex As Integer = Math.Ceiling(x * 0.07) 'get 7% of x
        Dim restx As Integer = x - sidex            'image size - 7%
 
 
        
     
        Dim Polygon_pts() As Point = { _
            New Point(20, 20), _
            New Point(sidex, 10), _
            New Point(restx, 60), _
            New Point(restx, y - 60), _
            New Point(sidex, y), _
            New Point(20, y - 30), _
            New Point(20, 20)}
 
 
        Dim Polygon_shadow_pts() As Point = { _
             New Point(18, 18), _
             New Point(sidex, 8), _
             New Point(restx + 2, 58), _
             New Point(restx + 2, y - 58), _
             New Point(sidex, y + 2), _
             New Point(18, y - 28), _
             New Point(18, 18)}
 
        Dim try_poly As New Bitmap(x + 10, y + 10) 'create new bitmap for final image
        Dim g As Graphics = Graphics.FromImage(try_poly) 'create a graphics object
 
        'set modes for better quality
        g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
 
 
        g.FillPolygon(Brushes.White, Polygon_shadow_pts) 'draw background polygon
        g.FillPolygon(New TextureBrush(a), Polygon_pts) 'draw polygon and texture image
        g.DrawLine(New Pen(Color.White, 2), sidex, 10, sidex, y) 'draw perspective line
 
        'save
        try_poly.Save(My.Computer.FileSystem.SpecialDirectories.Desktop & "\AA.png", _
                      System.Drawing.Imaging.ImageFormat.Png)
 
 
        'display the image in the picture box
        PictureBox1.Image = try_poly

[arcon5]

Sorry for the delay. Only just read the new posts.

It works excellent. All the info was great. You guys are AMAZING