.NET Maze Generator - Printable Version

PHP Code


<?php 
Public Class Generator
    Private Property Size As Size
    Private Property Data As Byte(,)
    Private Property Base As Integer()
    Private Property Seed As Integer
    Private Property Stack As Stack
    Private Property Complexity As Integer
    Private Property ComplexityOffset As Integer
    Private Property BitmapSize As Size
    Private Property BitmapColor As Color
    Private Property BitmapPen As Integer
    Sub New(BitmapSize As Size, BitmapColor As Color, BitmapPen As Integer)
        Me.BitmapSize = BitmapSize
        Me.BitmapColor = BitmapColor
        Me.BitmapPen = BitmapPen
    End Sub
    Public Sub StartAsync(Size As Size, Seed As Integer, Complexity As Integer, Callback As Action(Of Bitmap))
        Me.Size = Size
        Me.Seed = Seed
        Me.Stack = New Stack
        Me.Complexity = Complexity
        Me.ComplexityOffset = &H20
        Me.Base = New Integer(Me.Size.Width * Me.Size.Height - 1) {}
        Me.Data = New Byte(Me.Size.Width - 1, Me.Size.Height - 1) {}

        Me.Initialize(New State(Me.Randomizer.Next Mod Me.Size.Width, Me.Randomizer.Next Mod Me.Size.Height, 0))
        Callback.Invoke(Me.Generate(Me.BitmapSize.Width, Me.BitmapSize.Height, Me.BitmapColor, Me.BitmapPen))
    End Sub
    Private Function Generate(width As Integer, height As Integer, PenColor As Color, PenSize As Integer) As Bitmap
        Dim x As Single = Convert.ToSingle(width / Me.Size.Width)
        Dim y As Single = Convert.ToSingle(height / Me.Size.Height)
        Using bm As New Bitmap(width + 1, height + 1)
            Using g As Graphics = Graphics.FromImage(bm)
                Using pen As New Pen(PenColor, PenSize)
                    g.Clear(Color.WhiteSmoke)
                    g.DrawRectangle(pen, 0, 0, bm.Width - 1, bm.Height - 1)
                    For i As Integer = 0 To Me.Size.Width - 1
                        For j As Integer = 0 To Me.Size.Height - 1
                            If (Me.Data(i, j) And Convert.ToByte(1)) = 0 Then
                                g.DrawLine(pen, New PointF(x * i, y * j), New PointF(x * (i + 1), y * j))
                            ElseIf (Me.Data(i, j) And Convert.ToByte(2)) = 0 Then
                                g.DrawLine(pen, New PointF(x * i, y * j), New PointF(x * i, y * (j + 1)))
                            End If
                        Next
                    Next
                    Return CType(bm.Clone, Bitmap)
                End Using
            End Using
        End Using
    End Function
    Private Sub Initialize(State As State)
        Dim abort As Boolean = False, found As Boolean
        Dim src As Integer, dst As Integer, heading As Integer = 0, last As Integer = 0
        For i As Integer = 0 To Me.Size.Width - 1
            For j As Integer = 0 To Me.Size.Height - 1
                Me.Data(i, j) = 0
                Me.Base(Me.Indexer(i, j)) = -1
            Next
        Next
        While True
            If State.Heading = 15 Then
                While State.Heading = 15
                    If (Me.Stack.Count > 0) Then
                        State = CType(Me.Stack.Pop(), State)
                    Else
                        abort = True
                        Exit While
                    End If
                End While
                If abort Then Exit While
            Else
                Do
                    last = heading
                    heading = CInt(Math.Pow(2, Me.Randomizer.Next Mod 4))
                    If (Me.Complexity >= Me.ComplexityOffset) Then
                        Me.Complexity = Me.ComplexityOffset - 1
                    End If
                    If (Me.Randomizer.Next Mod Me.ComplexityOffset) < Me.Complexity Then
                        If (State.Heading And last) = 0 Then
                            heading = last
                        End If
                    End If

                    found = (State.Heading And heading) <> 0

                Loop While found AndAlso State.Heading <> 15

                State.Heading = State.Heading Or heading

                src = Me.Indexer(State.Position.X, State.Position.Y)

                If (heading = 1 AndAlso State.Position.X > 0) Then
                    dst = Me.Indexer(State.Position.X - 1, State.Position.Y)
                    If Me.BaseCell(src) <> Me.BaseCell(dst) Then
                        Me.Merge(src, dst)
                        Me.Data(State.Position.X, State.Position.Y) = Me.Data(State.Position.X, State.Position.Y) Or Convert.ToByte(2)
                        Me.Stack.Push(New State(State))
                        State.Position = New Point(State.Position.X - 1, State.Position.Y)
                        State.Heading = 0
                    End If
                ElseIf (heading = 2 AndAlso State.Position.X < Me.Size.Width - 1) Then
                    dst = Me.Indexer(State.Position.X + 1, State.Position.Y)
                    If Me.BaseCell(src) <> Me.BaseCell(dst) Then
                        Me.Merge(src, dst)
                        Me.Data(State.Position.X + 1, State.Position.Y) = Me.Data(State.Position.X + 1, State.Position.Y) Or Convert.ToByte(2)
                        Me.Stack.Push(New State(State))
                        State.Position = New Point(State.Position.X + 1, State.Position.Y)
                        State.Heading = 0
                    End If
                ElseIf (heading = 4 AndAlso State.Position.Y > 0) Then
                    dst = Me.Indexer(State.Position.X, State.Position.Y - 1)
                    If Me.BaseCell(src) <> Me.BaseCell(dst) Then
                        Me.Merge(src, dst)
                        Me.Data(State.Position.X, State.Position.Y) = Me.Data(State.Position.X, State.Position.Y) Or Convert.ToByte(1)
                        Me.Stack.Push(New State(State))
                        State.Position = New Point(State.Position.X, State.Position.Y - 1)
                        State.Heading = 0
                    End If
                ElseIf (heading = 8 AndAlso State.Position.Y < Me.Size.Height - 1) Then
                    dst = Me.Indexer(State.Position.X, State.Position.Y + 1)
                    If Me.BaseCell(src) <> Me.BaseCell(dst) Then
                        Me.Merge(src, dst)
                        Me.Data(State.Position.X, State.Position.Y + 1) = Me.Data(State.Position.X, State.Position.Y + 1) Or Convert.ToByte(1)
                        Me.Stack.Push(New State(State))
                        State.Position = New Point(State.Position.X, State.Position.Y + 1)
                        State.Heading = 0
                    End If
                End If
            End If
        End While
    End Sub
    Private Function Indexer(x As Integer, y As Integer) As Integer
        Return Me.Size.Width * y + x
    End Function
    Private Function BaseCell(index As Integer) As Integer
        While Me.Base(index) >= 0
            index = Me.Base(index)
        End While
        Return index
    End Function
    Private Sub Merge(x As Integer, y As Integer)
        Me.Base(Me.BaseCell(y)) = Me.BaseCell(x)
    End Sub
    Private Function Randomizer() As Random
        Static rnd As New Random(Me.Seed)
        Return rnd
    End Function
End Class

Public Class State
    Public Property Position As Point
    Public Property Heading As Integer
    Sub New(State As State)
        Me.Heading = State.Heading
        Me.Position = State.Position
    End Sub
    Sub New(Position As Point)
        Me.Position = Position
    End Sub
    Sub New(Position As Point, h As Integer)
        Me.Heading = h
        Me.Position = Position
    End Sub
    Sub New(x As Integer, y As Integer, h As Integer)
        Me.Heading = h
        Me.Position = New Point(x, y)
    End Sub
End Class

Public Class Position
    Public Property x As Integer
    Public Property y As Integer
    Sub New(x As Integer, y As Integer)
        Me.x = x
        Me.y = y
    End Sub
End Class