GraphX (Graphics Library)

    • Beta
    Gewinnspiel – 3-Tages-Freiticket für die BASTA! Spring 2025 zu gewinnen

    Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Scream.

      GraphX (Graphics Library)

      Beschreibung:
      Eine (noch) kleine Grafikbibliothek, die ständig um Funktioinen erweitert wird. Ursprünglich sollte es eigentlich nur eine Blur-Bibliothek werden, da dachte ich mir, dass diese allerdings zu wenig Funktionen enthält um es Wert zu sein, veröffentlicht zu werden.

      Funktionen:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class GraphX
      2. Public Function GrayScale(ByVal img As Image) As Image
      3. Public Function SetImageAlpha(ByVal img As Image, ByVal Alpha As Integer)
      4. Public Function Invert(ByVal img As Image) As Image
      5. Public Function RotateImage(ByVal img As Image, ByVal angle As Single) As Image
      6. Public Function ChangePixelFormat(ByVal img As Image, ByVal pixel_format As PixelFormat) As Image
      7. End Class
      9. Public Class BackBuffer
      10. 'Properties
      11. Public ReadOnly Property Graphics() As Graphics
      12. Public ReadOnly Property Width() As Integer
      13. Public ReadOnly Property Height() As Integer
      15. 'Subs
      16. Public Sub ChangePixelFormat(ByVal pixel_format As PixelFormat)
      17. Public Sub ExportImage(ByVal Path As String, ByVal Format As ImageFormat)
      18. Public Sub SetTexture(ByVal img As Image)
      20. 'Functions
      21. Public Shared Function FromImage(ByVal img As Image) As BackBuffer
      22. Public Function GetTexture() As Image
      24. Sub New(ByVal Width As Integer, ByVal Height As Integer, Optional ByVal PixelFormat As PixelFormat)
      25. End Class
      27. Public Class Blurer
      28. 'Events
      29. Public Event BlurProgressStarted(ByVal maximum_value As Integer)
      30. Public Event BlurProgressChanged(ByVal value As Integer)
      31. Public Event BlurProgressPreview(ByVal bmp As Bitmap)
      32. Public Event BlurProgressEnded(ByVal result_bmp As Bitmap)
      34. 'Properties
      35. Public Property Image() As Bitmap
      36. Public Property BlurIntensity() As Integer
      37. Public Property BlurerMode() As BlurMode
      39. 'Functions
      40. Public Function Blur() As Bitmap
      42. Sub New(ByVal Image As Bitmap, ByVal BlurIntensity As Integer, ByVal BMode As BlurMode)
      44. Public Enum BlurMode
      45. Vertical
      46. Horizontal
      47. Diagonal
      48. BackwardDiagonal
      49. Gaussian
      50. DoubleDiagonal
      51. End Enum
      52. End Class
      54. Public Class MandelBrotFractal
      55. 'Properties
      56. Public Property Bounds() As Size
      57. Public Property Alpha() As Integer
      58. Public Property AntiAliasing() As Integer
      60. 'Subs
      61. Public Sub EnableAntiAliasing()
      62. Public Sub DisableAntiAliasing()
      63. Public Sub SetColor(ByVal VectorType As VectorType, ByVal c As Color)
      65. Public Enum VectorType
      66. Outline
      67. Outline2
      68. Outline3
      69. Outline4
      70. Outline5
      71. Outline6
      72. Outline7
      73. Outline8
      74. MandelBrotOutline5
      75. MandelBrotOutline4
      76. MandelBrotOutline3
      77. MandelBrotOutline2
      78. MandelBrotOutline1
      80. ShadowInline
      81. ShadowOutline
      83. MandelBrot
      84. End Enum
      86. 'Functions
      87. Public Function Render() As Image
      88. End Class


      Screenshot:
      Spoiler anzeigen

      Blur Test:



      MandelBrot Fractal Test:


      Grayscale:


      Invert:


      Rotate 180°:


      Mandelbrot Fraktal:



      Verwendete Programmiersprache:
      VB.NET
      IDE: Visual Basic 2008

      Systemanforderungen:
      .NET Framework 2.0

      Download:
      graphx-1.0.0.0.zip (7KB)

      Lizenz/Weitergabe:
      Freeware, Decompilen ist nicht erlaubt, ebensowenig wie Mergen (eincompilieren)


      Feedback bzw. neue Funktionsvorschläge erwünscht ;)

      MfG

      Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Krissel095“ ()

      GreyScale, Rotieren und Invertieren ist nicht schwer aber das Blur ist gut gemacht :thumbsup:

      Funktionen 1/5 wenn mehr dazu kommen die es noch nicht gibt würd ich sogar 4/5 sagen aber dass ist bis jetzt nur Wrapper bis aufs Blur
      kriegst du ein Mandelbrotfraktal hin oder Wolken ? ... das wäre richtig geil ^^
      aber für den Anfang schon mal gut

      Set und GetTexture würd ich ja zusammen packen in eine Property

      aber du kriegst n Pluspunkt weil du es fürs FW 2.0 gemacht hast ;)

      Danke für das Feedback, hab das Mandelbrot-Fraktal eingebaut ;) Ich werde heute noch eine Property einbauen, mit der man die Farben festlegen kann, da diese momentan zufallsgeneriert sind.

      Leider habe ich zu den Wolken bis jetzt nichts gefunden, hab bei Wikipedia nach "Wolken" und "Fog" gesucht, bekomm leider nirgendwo erklärt, wie es funktioniert. Falls du einen nützlichen Link für mich hättest wäre ich sehr dankbar :)



      MfG

      das sieht genial aus oO
      daraus wird sicher noch was

      Kleines Update, die Farben sind jetzt frei einstellbar:



      Quellcode:
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Dim mb As New GraphX.Drawing.MandelBrotFractal(New Size(PictureBox1.Width, PictureBox1.Height))
      2. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.MandelBrot, Color.Black)
      3. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.ShadowInline, Color.Lime)
      4. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.ShadowOutline, Color.FromArgb(255, 90, 90, 90))
      5. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.MandelBrotOutline1, Color.FromArgb(255, 90, 90, 90))
      6. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.MandelBrotOutline2, Color.FromArgb(255, 90, 90, 90))
      7. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.MandelBrotOutline3, Color.FromArgb(255, 90, 90, 90))
      8. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.MandelBrotOutline4, Color.FromArgb(255, 90, 90, 90))
      9. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.MandelBrotOutline5, Color.FromArgb(255, 90, 90, 90))
      10. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.Outline, Color.FromArgb(255, 90, 90, 90))
      11. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.Outline2, Color.FromArgb(255, 80, 80, 80))
      12. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.Outline3, Color.FromArgb(255, 70, 70, 90))
      13. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.Outline4, Color.FromArgb(255, 60, 60, 90))
      14. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.Outline5, Color.FromArgb(255, 50, 50, 90))
      15. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.Outline6, Color.FromArgb(255, 40, 40, 90))
      16. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.Outline7, Color.FromArgb(255, 30, 30, 90))
      17. mb.SetColor(GraphX.Drawing.MandelBrotFractal.VectorType.Outline8, Color.FromArgb(255, 20, 20, 90))
      18. mb.AntiAliasing = 2
      19. PictureBox1.Image = mb.Render()



      Ich werd das Update der DLL heute abend hier zum Download anbieten, weil ich bis dahin noch ein paar neue Funktionen einbauen wollte ;)

      MfG

      VB.NET-Quellcode

      1. Dim blurer As New GraphX.Drawing.Blurer(PictureBox1.Image, 15, GraphX.Drawing.Blurer.BlurMode.Gaussian)
      2. PictureBox1.Image = blurer.Blur()


      In dem Fall wird PictureBox1.Image geblurt ;) Das erste Attribut ist das Bild, das zweite die Intensität und das dritte die Methode, in dem Fall Gaußscher Weichzeichner.

      MfG

      PS: Mal eine Frage am Rande, wärt ihr an einer GameLib mit GDI interessiert? Wenn ja würde ich die in GraphX mit einbauen.

      warum so komisch ?
      mach doch entweder ne Sub mit ByRef oder ne Function

      Hier hab ich mal ein Beispiel:

      VB.NET-Quellcode

      1. Public Function Blue(ByVal Pica As Image) As Image
      2. Using Bmp As Bitmap = Pica.Clone()
      3. Using IAttributes As New ImageAttributes
      4. Using G As Graphics = Graphics.FromImage(Bmp)
      5. IAttributes.SetColorMatrix(New ColorMatrix(New Single()() _
      6. {New Single() {-0, 5.0F, 2, 0.0F, 2, 0.0F, 0.0F, 0.0F}, _
      7. New Single() {-0, 5.0F, -1.0F, 0, 0.0F, 0, 0.0F}, _
      8. New Single() {-0, 5.0F, 0.0F, -1.0F, 0.0F, 0.0F}, _
      9. New Single() {-0, 5.0F, 0.0F, 0.0F, 1.0F, 0.0F}, _
      10. New Single() {0, 5.0F, 1.0F, 1.0F, 0.0F, 0.0F}}))
      11. G.DrawImage(Bmp, New Rectangle(0, 0, Bmp.Width, Bmp.Height), _
      12. 0, 0, Bmp.Width, Bmp.Height, GraphicsUnit.Pixel, IAttributes)
      13. Return Bmp.Clone()
      14. End Using
      15. End Using
      16. End Using
      17. End Function


      P.s Danke an jvbsl, jetzt weiß ich noch mehr von vb ;P XD

      Lg Scream

      Für den Sepia Effekt kann man auch die ColorMatrix benutzen..
      Ich weiß nicht ob der Negative Effekt schon dabei ist, aber für alle Fälle, hier ist er:

      VB.NET-Quellcode

      1. Public Function Negative(Byval Pica As Image ) As Image
      2. Using Bmp As Bitmap = Pica.Clone()
      3. Using IAttributes As New ImageAttributes
      4. Using G As Graphics = Graphics.FromImage( Bmp )
      5. IAttributes.SetColorMatrix( New ColorMatrix( New Single()() _
      6. {New Single() {-2,5F, 0F, 0F, 0F, 0F}, _
      7. New Single() {0F, -1F, 0F, 0, 0F}, _
      8. New Single() {0F, 0F, -1F, 0F, 0F}, _
      9. New Single() {0F, 0F, 0F, 1F, 0F}, _
      10. New Single() {1F, 1F, 1F, 0F, 0F}}))
      11. G.DrawImage( Bmp, New Rectangle( 0, 0, Bmp.Width, Bmp.Height ), _
      12. 0, 0, Bmp.Width, Bmp.Height, GraphicsUnit.Pixel, IAttributes )
      13. Return Bmp.Clone()
      14. End Using
      15. End Using
      16. End Using
      17. End Function