- Public Function RotateLeft(ByVal Img As Bitmap) As Bitmap
- Dim NouveauBitmap As New Bitmap(Img.Size.Height, Img.Size.Width)
- Dim X, Y As Integer
- For Y = 0 To Img.Size.Height - 1
- For X = 0 To Img.Size.Width - 1
- NouveauBitmap.SetPixel(Y, NouveauBitmap.Height - X, Img.GetPixel(X, Y))
- Next
- Next
- Return NouveauBitmap
- End Function
-
- Public Function Mirror(ByVal Img As Bitmap) As Bitmap
- Dim NouveauBitmap As New Bitmap(Img.Size.Width, Img.Size.Height)
- Dim X, Y As Integer
- For Y = 0 To Img.Size.Height - 1
- For X = 1 To Img.Size.Width - 1
- NouveauBitmap.SetPixel(NouveauBitmap.Width - X, Y, Img.GetPixel(X, Y))
- Next
- Next
- Return NouveauBitmap
- End Function
Public Function RotateLeft(ByVal Img As Bitmap) As Bitmap
Dim NouveauBitmap As New Bitmap(Img.Size.Height, Img.Size.Width)
Dim X, Y As Integer
For Y = 0 To Img.Size.Height - 1
For X = 0 To Img.Size.Width - 1
NouveauBitmap.SetPixel(Y, NouveauBitmap.Height - X, Img.GetPixel(X, Y))
Next
Next
Return NouveauBitmap
End Function
Public Function Mirror(ByVal Img As Bitmap) As Bitmap
Dim NouveauBitmap As New Bitmap(Img.Size.Width, Img.Size.Height)
Dim X, Y As Integer
For Y = 0 To Img.Size.Height - 1
For X = 1 To Img.Size.Width - 1
NouveauBitmap.SetPixel(NouveauBitmap.Width - X, Y, Img.GetPixel(X, Y))
Next
Next
Return NouveauBitmap
End Function