Type TRect
   Field X:Int
   Field Y:Int
   Field Width:Int
   Field Height:Int
   
   Method GetArea:Int()
      Return Width * Height
   End Method
End Type

Type TRectImage
   
   Field Image:TPixmap
   Field BiggestRectFast:TRect
   Field AccuRect:TRect
   
   Function Create:TRectImage(url:String)
      Local RI:TRectImage = New TRectImage
      RI.Image = LoadPixmap(url)
      Return RI
   End Function
   
   Method GetRectsFast()
      Local W:Int = PixmapWidth(Image)
      Local H:Int = PixmapHeight(Image)
      
      For Local X:Int = 0 To W-1
         For Local Y:Int = 0 To H-1
            Local Pixel:Int = ReadPixel(Image , X , Y)
            If Pixel <> $00 Then
               'GetWidth
               Local Width:Int = 0
               Repeat
                  Width:+ 1
                  If X+Width > W-1 Then Exit
               Until ReadPixel(Image,X+Width,Y) = $00
      
               'GetHeight1
               Local Height1:Int = 0
               Repeat
                  Height1:+ 1
                  If Y+Height1 > H-1 Then Exit
               Until ReadPixel(Image , X + Width , Y + Height1) = $00
               
               'GetHeight1
               Local Height2:Int = 0
               Repeat
                  Height2:+ 1
                  If Y+Height2 > H-1 Then Exit
               Until ReadPixel(Image , X , Y + Height2) = $00

               If Height1 <= Height2 Then
                  Local R:TRect = New TRect
                  R.X = X
                  R.Y = Y
                  R.Width = Width-1
                  R.height = height1 - 1
                  
                  R = ResizeRect(R)
                  
                  If BiggestRectFast <> Null Then
                     If R.GetArea() > BiggestRectFast.GetArea() Then BiggestRectFast = R
                  Else
                     BiggestRectFast = R
                  EndIf
                  
               EndIf
            EndIf
         Next
      Next
      
   End Method
      
   Method GetRectsAcc()
      Local W:Int = PixmapWidth(Image)
      Local H:Int = PixmapHeight(Image)

      For Local X1:Int = 0 To W-1
         For Local Y1:Int = 0 To H-1
            Local Pixel:Int = ReadPixel(Image , X1 , Y1)
            If CheckPoint(X1,Y1) = True Then
               Local Width:Int = 0
               Local Height:Int = 0
               
               Repeat
                  Width:+ 1
                  Height:+ 1
                  
                  If X1+Width < 0 Or x1+Width > W-1 Then Exit                  
                  If Y1+Height < 0 Or Y1+Height > H-1 Then Exit
                  
               Until CheckRect(X1,Y1,Width,Height) = False 
                  
                  
               Local R:TREct = New TRect
               R.X = x1
               R.Y = y1   
               R.Width = Width-1
               R.Height = Height-1
               
               R = ResizeRect(R)
               
               If AccuRect <> Null Then
                  If R.GetArea() > AccuRect.GetArea() Then
                     AccuRect = R
                  EndIf
               Else
                  AccuRect = R
               EndIf
            EndIf
         Next
      Next
   End Method
   
   Method CheckRect:Byte(X:Int , Y:Int , W:Int , H:Int)
      If CheckPoint(X , Y) = False Then Return False
      If CheckPoint(X + W , Y) = False Then Return False
      If CheckPoint(X , Y + H) = False Then Return False
      If CheckPoint(X + W , Y + H) = False Then Return False
      Return True
   End Method
   
   Method CheckPoint:Byte(X:Int , Y:Int)
      If ReadPixel(Image , X , Y) = $00 Then Return False
      Return True
   End Method   
   
   Method ResizeRect:TRect(R:TRect)
      Local BR:TREct = New TRect
      Local X:Int = R.X
      Local Y:Int = R.Y
      Local W:Int = R.Width
      Local H:Int = R.Height
      
      'Resizing Upper Line
      'Most time consuming part comment this out if you want faster results
      'but with less accurancy and lower squares
      While CheckLine(X , Y , X + W , Y) = True
         Y:- 1
         H:+ 1
         If Y < 0 Then Exit
      Wend
      Y:+1
      H:-1
      'Resizing Lower Line
      While CheckLine(X , Y + H , X + W , Y + H) = False
         H:- 1
      Wend
      'Resizing Right Line
      While CheckLine(X + W , Y , X + W , Y + H) = False
         W:- 1
      Wend
      
      BR.X = X
      BR.Y = Y
      BR.Width = W
      BR.Height = H
      
      Return BR
   End Method
   
   Method CheckLine(X1:Int , Y1:Int , X2:Int , Y2:Int)
      For Local X:Int = X1 To X2
         For Local Y:Int = Y1 To Y2
            If CheckPoint(X , Y) = False Then Return False
         Next
      Next
      Return True
   End Method



End Type

Local IS:TRectImage[51]

For Local I:Int = 1 To 51
IS[I-1] = TRectImage.Create("Lander\land"+I+".png")
Local T:Int = MilliSecs()
IS[I-1].GetRectsFast()
Print "Less Accurate: " + (MilliSecs()-T)+"ms"
T = MilliSecs()
IS[I-1].GetRectsAcc()
Print "Accurate : " + (MilliSecs()-T)+"ms"
Next


Graphics 800 , 600 , 0 , 60

Local Mode:Int = 1
Local Index:Int = 0
Local Time:Int = MilliSecs()

While Not KeyHit(Key_Escape)
   Cls
   DrawPixmap(IS[Index].Image , 0 , 0)
   SetBlend Alphablend
   SetAlpha 0.5
   SetColor 255 , 0 , 0
   If Mode = 0 Then
      DrawRect(IS[Index].BiggestRectFast.X , IS[Index].BiggestRectFast.Y , IS[Index].BiggestRectFast.Width , IS[Index].BiggestRectFast.Height)
   EndIf
   If Mode = 1 Then
      DrawRect(IS[Index].AccuRect.X , IS[Index].AccuRect.Y , IS[Index].AccuRect.Width , IS[Index].AccuRect.Height)
   EndIf
   SetAlpha 1.0
   SetColor 255 , 255 , 255
   
   If KeyHit(KEY_SPACE) Then Mode = 1 - Mode
   
   If MilliSecs() - Time > 150 Then
      Time = MilliSecs()
      If KeyDown(KEY_RIGHT) Then Index:+ 1
      If KeyDown(Key_LEFT) Then Index:- 1
   EndIf
   
   If Index < 0 Then Index = 50
   If Index > 50 Then Index = 0
   
   DrawText "Land : " + Index , 400 , 20
   Select Mode
      Case 0
      DrawText "Mode : Less Accurate" , 400 , 40
      Case 1
      DrawText "Mode : Accurate" , 400 , 40
   End Select
      
   Flip
Wend

Local IS:TRectImage[51]

For Local I:Int = 1 To 51