Confronta il testo

Trova la differenza tra due file di testo

Editor live

Nascondi spazi bianchi

Comprimi invariate

Senza a capo

Layout

Livello di dettaglio

Stili testo

Evidenziazione sintassi

Diffchecker Desktop Il modo più sicuro per usare Diffchecker. Ottieni l'app Diffchecker Desktop: i tuoi diff non lasciano mai il tuo computer!Ottieni Desktop

Untitled diff

Creato 10 anni faIl diff non scade mai

3 rimozioni

Linee
Totale
Rimosso

Caratteri
Totale
Rimosso

Per continuare a utilizzare questa funzione, aggiorna a Diffchecker Pro Visualizza prezzi

38 linee

5 aggiunte

Linee
Totale
Aggiunto

Caratteri
Totale
Aggiunto

Per continuare a utilizzare questa funzione, aggiorna a Diffchecker Pro Visualizza prezzi

39 linee

Public Sub Flood(value As Int, x As Int, y As Int, grid As Grid)

Public Sub Fill(value As Int, x As Int, y As Int, grid As Grid)

Dim top = y As Int

Dim matrix(,) = grid.matrix As Int

If value = matrix(x, y) Then Return

'--------------------------------------------------------------

stack.Clear

Dim x1 As Int

Dim spanAbove, spanBelow As Boolean

'--------------------------------------------------------------

stack.Add(Array As Int(x, y))

'--------------------------------------------------------------

Dim p() As Int

Do While (stack.Size > 0)

p = stack.Get(stack.Size - 1)

x = p(0) : y = p(1) : stack.RemoveAt(stack.Size - 1)

'----------------------------------------------------------

x1 = x : Do While (x1 >= 0 And matrix(x1, y) == 0) : x1 = x1 - 1 : Loop

'----------------------------------------------------------

x1 = x1 + 1 : spanAbove = False : spanBelow = False

'----------------------------------------------------------

Do While (x1 < grid.sizeX And matrix(x1, y) = 0)

matrix(x1, y) = value

'------------------------------------------------------

If (spanAbove = False And y > 0 And matrix(x1, y - 1) = 0) Then

If (spanAbove = False And y > top And matrix(x1, y - 1) = 0) Then

spanAbove = True : stack.Add(Array As Int(x1, y - 1))

Else If (spanAbove = True And y > 0 And matrix(x1, y - 1) > 0) Then

Else If (spanAbove = True And y > top And matrix(x1, y - 1) > 0) Then

spanAbove = False

End If

'------------------------------------------------------

If (spanBelow = False And y < grid.sizeY - 1 And matrix(x1, y + 1) = 0) Then

spanBelow = True : stack.Add(Array As Int(x1, y + 1))

Else If (spanBelow And y < grid.sizeY - 1 And matrix(x1, y + 1) > 0) Then

spanBelow = False

End If

'------------------------------------------------------

x1 = x1 + 1

Loop

End Sub

Diff salvati

Testo originale

Apri file

Public Sub Flood(value As Int, x As Int, y As Int, grid As Grid)
	Dim matrix(,) = grid.matrix As Int
	If value = matrix(x, y) Then Return
	'--------------------------------------------------------------
	stack.Clear
	Dim x1 As Int
	Dim spanAbove, spanBelow As Boolean
	'--------------------------------------------------------------
	stack.Add(Array As Int(x, y))
	'--------------------------------------------------------------
	Dim p() As Int
	Do While (stack.Size > 0)
		p = stack.Get(stack.Size - 1)
		x = p(0) : y = p(1) : stack.RemoveAt(stack.Size - 1)
		'----------------------------------------------------------
		x1 = x : Do While (x1 >= 0 And matrix(x1, y) == 0) : x1 = x1 - 1 : Loop
		'----------------------------------------------------------
		x1 = x1 + 1 : spanAbove = False : spanBelow = False
		'----------------------------------------------------------
		Do While (x1 < grid.sizeX And matrix(x1, y) = 0)
			matrix(x1, y) = value
			'------------------------------------------------------
			If (spanAbove = False And y > 0 And matrix(x1, y - 1) = 0) Then
				spanAbove = True : stack.Add(Array As Int(x1, y - 1))
			Else If (spanAbove = True And y > 0 And matrix(x1, y - 1) > 0) Then 
				spanAbove = False
			End If
			'------------------------------------------------------
			If (spanBelow = False And y < grid.sizeY - 1 And matrix(x1, y + 1) = 0) Then
				spanBelow = True : stack.Add(Array As Int(x1, y + 1))
			Else If (spanBelow And y < grid.sizeY - 1 And matrix(x1, y + 1) > 0) Then
				spanBelow = False
			End If
			'------------------------------------------------------
			x1 = x1 + 1
		Loop
	Loop	
End Sub

Testo modificato

Apri file

Public Sub Fill(value As Int, x As Int, y As Int, grid As Grid)
	Dim top = y As Int
	Dim matrix(,) = grid.matrix As Int
	If value = matrix(x, y) Then Return
	'--------------------------------------------------------------
	stack.Clear
	Dim x1 As Int
	Dim spanAbove, spanBelow As Boolean
	'--------------------------------------------------------------
	stack.Add(Array As Int(x, y))
	'--------------------------------------------------------------
	Dim p() As Int
	Do While (stack.Size > 0)
		p = stack.Get(stack.Size - 1)
		x = p(0) : y = p(1) : stack.RemoveAt(stack.Size - 1)
		'----------------------------------------------------------
		x1 = x : Do While (x1 >= 0 And matrix(x1, y) == 0) : x1 = x1 - 1 : Loop
		'----------------------------------------------------------
		x1 = x1 + 1 : spanAbove = False : spanBelow = False
		'----------------------------------------------------------
		Do While (x1 < grid.sizeX And matrix(x1, y) = 0)
			matrix(x1, y) = value
			'------------------------------------------------------
			If (spanAbove = False And y > top And matrix(x1, y - 1) = 0) Then
				spanAbove = True : stack.Add(Array As Int(x1, y - 1))
			Else If (spanAbove = True And y > top And matrix(x1, y - 1) > 0) Then 
				spanAbove = False
			End If
			'------------------------------------------------------
			If (spanBelow = False And y < grid.sizeY - 1 And matrix(x1, y + 1) = 0) Then
				spanBelow = True : stack.Add(Array As Int(x1, y + 1))
			Else If (spanBelow And y < grid.sizeY - 1 And matrix(x1, y + 1) > 0) Then
				spanBelow = False
			End If
			'------------------------------------------------------
			x1 = x1 + 1
		Loop
	Loop	
End Sub