Please Help With Fill Command - GameCreators Forum

Author

Message

MSon

22

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 20th Feb 2005 06:38 Edited at: 20th Feb 2005 06:41

Link

I don't seem to be able to do this So I could do with a little help on it if Possible...

circle 100,100,100
  Fill(100,100,RGB(0,255,255))
  Wait Key

Function Fill(x,y,Color)
       ` 2D Fill Command
       ` If No Fill Made Then Return Value = 0
       ` If Fill Made Then Return Value = 1
         BackColor = Point(x,y)
      If BackColor = Color Then ExitFunction 0
     Ink Color,0
     Dot x,y : System_Function_Fill_Part2(x,y,BackColor)
EndFunction 1
Function System_Function_Fill_Part2(x,y,BackColor)
       ` For Use ONLY With the Fill Command...
       ` Do NOT Call This Function...
If Point(x-1,y-1) = BackColor Then Dot x-1,y-1 : System_Function_Fill_Part2(x-1,y-1,BackColor)
If Point(x  ,y-1) = BackColor Then Dot x  ,y-1 : System_Function_Fill_Part2(x  ,y-1,BackColor)
If Point(x+1,y-1) = BackColor Then Dot x+1,y-1 : System_Function_Fill_Part2(x+1,y-1,BackColor)
If Point(x-1,y  ) = BackColor Then Dot x-1,y   : System_Function_Fill_Part2(x-1,y  ,BackColor)
If Point(x+1,y  ) = BackColor Then Dot x+1,y   : System_Function_Fill_Part2(x+1,y  ,BackColor)
If Point(x-1,y+1) = BackColor Then Dot x-1,y+1 : System_Function_Fill_Part2(x-1,y+1,BackColor)
If Point(x  ,y+1) = BackColor Then Dot x  ,y+1 : System_Function_Fill_Part2(x  ,y+1,BackColor)
If Point(x+1,y+1) = BackColor Then Dot x+1,y+1 : System_Function_Fill_Part2(x+1,y+1,BackColor)
EndFunction

+ Code Snippet

circle 100,100,100
  Fill(100,100,RGB(0,255,255))
  Wait Key

Function Fill(x,y,Color)
       ` 2D Fill Command
       ` If No Fill Made Then Return Value = 0
       ` If Fill Made Then Return Value = 1
         BackColor = Point(x,y)
      If BackColor = Color Then ExitFunction 0
     Ink Color,0
     Dot x,y : System_Function_Fill_Part2(x,y,BackColor)
EndFunction 1
Function System_Function_Fill_Part2(x,y,BackColor)
       ` For Use ONLY With the Fill Command...
       ` Do NOT Call This Function...
If Point(x-1,y-1) = BackColor Then Dot x-1,y-1 : System_Function_Fill_Part2(x-1,y-1,BackColor)
If Point(x  ,y-1) = BackColor Then Dot x  ,y-1 : System_Function_Fill_Part2(x  ,y-1,BackColor)
If Point(x+1,y-1) = BackColor Then Dot x+1,y-1 : System_Function_Fill_Part2(x+1,y-1,BackColor)
If Point(x-1,y  ) = BackColor Then Dot x-1,y   : System_Function_Fill_Part2(x-1,y  ,BackColor)
If Point(x+1,y  ) = BackColor Then Dot x+1,y   : System_Function_Fill_Part2(x+1,y  ,BackColor)
If Point(x-1,y+1) = BackColor Then Dot x-1,y+1 : System_Function_Fill_Part2(x-1,y+1,BackColor)
If Point(x  ,y+1) = BackColor Then Dot x  ,y+1 : System_Function_Fill_Part2(x  ,y+1,BackColor)
If Point(x+1,y+1) = BackColor Then Dot x+1,y+1 : System_Function_Fill_Part2(x+1,y+1,BackColor)
EndFunction

Edit:

It puts a Dot at x,y and then check the 8 pixels arround it, if update made on any then checks the xy on the new, Ie x+1,y-1, Ect

If that makes any sence to you that is

Back to top

Profile PM Email Website

MSon

22

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 20th Feb 2005 06:55

Link

Code Update, But still Exits the Programme and don't know why?

circle 100,100,100
  Fill(100,100)
  Wait Key

Function Fill(x,y)
       ` 2D Fill Command
         BackColor = Point(x,y)
      If Point(x,y) = BackColor Then Dot x,y : System_Function_Fill_Part2(x,y,BackColor)
EndFunction
Function System_Function_Fill_Part2(x,y,BackColor)
       ` For Use ONLY With the Fill Command...
       ` Do NOT Call This Function...
If Point(x-1,y-1) = BackColor Then Dot x-1,y-1 : System_Function_Fill_Part2(x-1,y-1,BackColor)
If Point(x  ,y-1) = BackColor Then Dot x  ,y-1 : System_Function_Fill_Part2(x  ,y-1,BackColor)
If Point(x+1,y-1) = BackColor Then Dot x+1,y-1 : System_Function_Fill_Part2(x+1,y-1,BackColor)
If Point(x-1,y  ) = BackColor Then Dot x-1,y   : System_Function_Fill_Part2(x-1,y  ,BackColor)
If Point(x+1,y  ) = BackColor Then Dot x+1,y   : System_Function_Fill_Part2(x+1,y  ,BackColor)
If Point(x-1,y+1) = BackColor Then Dot x-1,y+1 : System_Function_Fill_Part2(x-1,y+1,BackColor)
If Point(x  ,y+1) = BackColor Then Dot x  ,y+1 : System_Function_Fill_Part2(x  ,y+1,BackColor)
If Point(x+1,y+1) = BackColor Then Dot x+1,y+1 : System_Function_Fill_Part2(x+1,y+1,BackColor)
EndFunction

+ Code Snippet

circle 100,100,100
  Fill(100,100)
  Wait Key

Function Fill(x,y)
       ` 2D Fill Command
         BackColor = Point(x,y)
      If Point(x,y) = BackColor Then Dot x,y : System_Function_Fill_Part2(x,y,BackColor)
EndFunction
Function System_Function_Fill_Part2(x,y,BackColor)
       ` For Use ONLY With the Fill Command...
       ` Do NOT Call This Function...
If Point(x-1,y-1) = BackColor Then Dot x-1,y-1 : System_Function_Fill_Part2(x-1,y-1,BackColor)
If Point(x  ,y-1) = BackColor Then Dot x  ,y-1 : System_Function_Fill_Part2(x  ,y-1,BackColor)
If Point(x+1,y-1) = BackColor Then Dot x+1,y-1 : System_Function_Fill_Part2(x+1,y-1,BackColor)
If Point(x-1,y  ) = BackColor Then Dot x-1,y   : System_Function_Fill_Part2(x-1,y  ,BackColor)
If Point(x+1,y  ) = BackColor Then Dot x+1,y   : System_Function_Fill_Part2(x+1,y  ,BackColor)
If Point(x-1,y+1) = BackColor Then Dot x-1,y+1 : System_Function_Fill_Part2(x-1,y+1,BackColor)
If Point(x  ,y+1) = BackColor Then Dot x  ,y+1 : System_Function_Fill_Part2(x  ,y+1,BackColor)
If Point(x+1,y+1) = BackColor Then Dot x+1,y+1 : System_Function_Fill_Part2(x+1,y+1,BackColor)
EndFunction

Back to top

Profile PM Email Website

Robot

22

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 21st Feb 2005 00:07

Link

you have no loop so it just checks once...i think

The happenings of tommorow are behind us now

Back to top

Profile PM

MSon

22

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 21st Feb 2005 02:59

Link

The Function System_Function_Fill_Part2(x,y,BackColor) Acts like its loop

Back to top

Profile PM Email Website

spooky

23

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 21st Feb 2005 03:07

Link

Main problem is you were checking diagnals and so fill was escaping through edge of circle and going off edge of screen. Have also added 'lock pixels' which speeds things up a bit.

global Color as dword
global BackColor as dword

circle 100,100,100
Fill(100,100,RGB(0,255,255))
Wait Key

Function Fill(x,y,Color)
   ` 2D Fill Command
   ` If No Fill Made Then Return Value = 0
   ` If Fill Made Then Return Value = 1
   BackColor = Point(x,y)
   If BackColor = Color Then ExitFunction 0
   lock pixels
   Ink Color,0
   Dot x,y
   System_Function_Fill_Part2(x,y,BackColor)
   unlock pixels
EndFunction 1

Function System_Function_Fill_Part2(x,y,BackColor)
   ` For Use ONLY With the Fill Command...
   ` Do NOT Call This Function...
   ` If Point(x-1,y-1) = BackColor Then Dot x-1,y-1 : System_Function_Fill_Part2(x-1,y-1,BackColor)
If Point(x  ,y-1) = BackColor Then Dot x  ,y-1 : System_Function_Fill_Part2(x  ,y-1,BackColor)
`If Point(x+1,y-1) = BackColor Then Dot x+1,y-1 : System_Function_Fill_Part2(x+1,y-1,BackColor)
If Point(x-1,y  ) = BackColor Then Dot x-1,y   : System_Function_Fill_Part2(x-1,y  ,BackColor)
If Point(x+1,y  ) = BackColor Then Dot x+1,y   : System_Function_Fill_Part2(x+1,y  ,BackColor)
`If Point(x-1,y+1) = BackColor Then Dot x-1,y+1 : System_Function_Fill_Part2(x-1,y+1,BackColor)
If Point(x  ,y+1) = BackColor Then Dot x  ,y+1 : System_Function_Fill_Part2(x  ,y+1,BackColor)
`If Point(x+1,y+1) = BackColor Then Dot x+1,y+1 : System_Function_Fill_Part2(x+1,y+1,BackColor)
EndFunction

+ Code Snippet

global Color as dword
global BackColor as dword

circle 100,100,100
Fill(100,100,RGB(0,255,255))
Wait Key

Function Fill(x,y,Color)
   ` 2D Fill Command
   ` If No Fill Made Then Return Value = 0
   ` If Fill Made Then Return Value = 1
   BackColor = Point(x,y)
   If BackColor = Color Then ExitFunction 0
   lock pixels
   Ink Color,0
   Dot x,y
   System_Function_Fill_Part2(x,y,BackColor)
   unlock pixels
EndFunction 1

Function System_Function_Fill_Part2(x,y,BackColor)
   ` For Use ONLY With the Fill Command...
   ` Do NOT Call This Function...
   ` If Point(x-1,y-1) = BackColor Then Dot x-1,y-1 : System_Function_Fill_Part2(x-1,y-1,BackColor)
If Point(x  ,y-1) = BackColor Then Dot x  ,y-1 : System_Function_Fill_Part2(x  ,y-1,BackColor)
`If Point(x+1,y-1) = BackColor Then Dot x+1,y-1 : System_Function_Fill_Part2(x+1,y-1,BackColor)
If Point(x-1,y  ) = BackColor Then Dot x-1,y   : System_Function_Fill_Part2(x-1,y  ,BackColor)
If Point(x+1,y  ) = BackColor Then Dot x+1,y   : System_Function_Fill_Part2(x+1,y  ,BackColor)
`If Point(x-1,y+1) = BackColor Then Dot x-1,y+1 : System_Function_Fill_Part2(x-1,y+1,BackColor)
If Point(x  ,y+1) = BackColor Then Dot x  ,y+1 : System_Function_Fill_Part2(x  ,y+1,BackColor)
`If Point(x+1,y+1) = BackColor Then Dot x+1,y+1 : System_Function_Fill_Part2(x+1,y+1,BackColor)
EndFunction

Boo!

Back to top

Profile PM Website

wmf

21

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 21st Feb 2005 03:13

Link

it is doing the first if statement over and over in 'Function System_Function_Fill_Part2(x,y,BackColor)'

Back to top

Profile PM

Monsieur Mort

21

Years of Service

User Offline

Joined: 12th Feb 2005

Location:

Posted: 21st Feb 2005 04:30

Link

yes but the idea is that when it finally doesn't have to do something in that if statement it leaves that function going back to the copy of it which called it and dropping down to the second if statement.

Why do you sink I ave zees outRAGEOUS accente?!

Back to top

Profile PM

Sorry your browser is not supported!

2D All the way! / Please Help With Fill Command