fill tool in paint - GameCreators Forum

Author

Message

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 2nd Dec 2005 07:15

Link

i have created an awesome paint program and i want to know if there is some script i can use to make it so i can fill in one spot if its in between 2 lines. here is my code:

`======paint program======
`=========================
`---Author: ME!----
`=========================
`Main Source File

`setup
sync on
sync rate 100
size=5
DrawColour as Dword
Rem Project: Paint Program
Rem Created: 2/2/2005 8:07:04 PM

Rem ***** Main Source File *****

`Set backroud color
color backdrop 0,500

`Font
SET TEXT FONT "Arial"

`Start The Loop
do

`Create line for around template
ink rgb (200,0,0),0
LINE 160,0,0,1000000

`Create Color Template
ink rgb (255,255,255),0
text 0,0, "1 = White"
ink rgb (200,0,0),0
text 0,15, "2 = Red"
ink rgb (0,200,0),0
text 0,30,"3 = Green"
ink rgb (0,0,255),0
text 0,45, "4 = Blue"
ink rgb (200,200,0),0
text 0,60, "5 = Yellow"
ink rgb (250,125,0),0
text 0,75, "6 = Orange"
ink rgb (128,64,0),0
text 0,90, "7 = Brown"
ink rgb (255,128,255),0
text 0,105, "8 = Pink"
ink rgb (125,0,125),0
text 0,120, "9 = Purple"
ink rgb (200,0,0),0
text 0,135, "________________________________"
text 0,150, "Use left mouse button to draw"
text 0,165, "a square."
text 0,180, "________________________________"
text 0,195, "Use right mouse button to draw"
text 0,210, "a circle."
text 0,225, "________________________________"
text 0,240, "Hold down shift to erase"
text 0,255, "________________________________"
text 0,270, "Press the Right-control key to clear"
text 0,285, "the whole work area"
text 0,300, "________________________________"
text 0,315, "Hold down the space-bar to get"
text 0,330, "an awesome 3d wall affect!"
text 0,345, "________________________________"

`Start Button clicking/keystates

if mouseclick()=2
   ink DrawColour,0
      circle mousex(),mousey(),3
      circle mousex(),mousey(),2.9
      circle mousex(),mousey(),2.8
      circle mousex(),mousey(),2.7
      circle mousex(),mousey(),2.6
      circle mousex(),mousey(),2.5
      circle mousex(),mousey(),2.4
      circle mousex(),mousey(),2.3
      circle mousex(),mousey(),2.2
      circle mousex(),mousey(),2.1
      circle mousex(),mousey(),2.0
      circle mousex(),mousey(),1.9
      circle mousex(),mousey(),1.8
      circle mousex(),mousey(),1.7
      circle mousex(),mousey(),1.6
      circle mousex(),mousey(),1.5
      circle mousex(),mousey(),1.4
      circle mousex(),mousey(),1.3
      circle mousex(),mousey(),1.2
      circle mousex(),mousey(),1.1
      circle mousex(),mousey(),1
      circle mousex(),mousey(),.9
      circle mousex(),mousey(),.8
      circle mousex(),mousey(),.7
      circle mousex(),mousey(),.6
      circle mousex(),mousey(),.5
      circle mousex(),mousey(),.4
      circle mousex(),mousey(),.3
      circle mousex(),mousey(),.2
      circle mousex(),mousey(),.1
      circle mousex(),mousey(),.0.9
      circle mousex(),mousey(),.0.8
      circle mousex(),mousey(),.0.7
      circle mousex(),mousey(),.0.6
      circle mousex(),mousey(),.0.5
      circle mousex(),mousey(),.0.4
      circle mousex(),mousey(),.0.3
      circle mousex(),mousey(),.0.2
      circle mousex(),mousey(),.0.1
endif

if mouseclick()=1
      ink DrawColour,0
   box mousex(),mousey(),mousex()+5,mousey()+5
endif

if shiftkey()=1
   ink rgb (0,0,0),0
      box mousex(),mousey(),mousex()+10,mousey()+10
endif

if spacekey()=1
      ink DrawColour,0
   box mousex(),mousey(),mousex()+5,mousey()+5
   line mousex(),mousey(),mousex()+15,mousey()+10
endif

if controlkey()=1 then cls
if KEYSTATE (2) then DrawColour = rgb(255,255,255)
if KEYSTATE (3) then DrawColour = rgb(200,0,0)
if KEYSTATE (4) then DrawColour = rgb(0,200,0)
if KEYSTATE (5) then DrawColour = rgb(0,0,255)
if KEYSTATE (6) then DrawColour = rgb(200,200,0)
if KEYSTATE (7) then DrawColour = rgb(250,125,0)
if KEYSTATE (8) then DrawColour = rgb(128,64,0)
if KEYSTATE (9) then DrawColour = rgb(255,128,255)
if KEYSTATE (10) then DrawColour = rgb(125,0,125)
if escapekey()=1 then end

sync
loop

+ Code Snippet

`======paint program======
`=========================
`---Author: ME!----
`=========================
`Main Source File

`setup
sync on
sync rate 100
size=5
DrawColour as Dword
Rem Project: Paint Program
Rem Created: 2/2/2005 8:07:04 PM

Rem ***** Main Source File *****

`Set backroud color
color backdrop 0,500

`Font
SET TEXT FONT "Arial"

`Start The Loop
do

`Create line for around template
ink rgb (200,0,0),0
LINE 160,0,0,1000000

`Create Color Template
ink rgb (255,255,255),0
text 0,0, "1 = White"
ink rgb (200,0,0),0
text 0,15, "2 = Red"
ink rgb (0,200,0),0
text 0,30,"3 = Green"
ink rgb (0,0,255),0
text 0,45, "4 = Blue"
ink rgb (200,200,0),0
text 0,60, "5 = Yellow"
ink rgb (250,125,0),0
text 0,75, "6 = Orange"
ink rgb (128,64,0),0
text 0,90, "7 = Brown"
ink rgb (255,128,255),0
text 0,105, "8 = Pink"
ink rgb (125,0,125),0
text 0,120, "9 = Purple"
ink rgb (200,0,0),0
text 0,135, "________________________________"
text 0,150, "Use left mouse button to draw"
text 0,165, "a square."
text 0,180, "________________________________"
text 0,195, "Use right mouse button to draw"
text 0,210, "a circle."
text 0,225, "________________________________"
text 0,240, "Hold down shift to erase"
text 0,255, "________________________________"
text 0,270, "Press the Right-control key to clear"
text 0,285, "the whole work area"
text 0,300, "________________________________"
text 0,315, "Hold down the space-bar to get"
text 0,330, "an awesome 3d wall affect!"
text 0,345, "________________________________"

`Start Button clicking/keystates

if mouseclick()=2
   ink DrawColour,0
      circle mousex(),mousey(),3
      circle mousex(),mousey(),2.9
      circle mousex(),mousey(),2.8
      circle mousex(),mousey(),2.7
      circle mousex(),mousey(),2.6
      circle mousex(),mousey(),2.5
      circle mousex(),mousey(),2.4
      circle mousex(),mousey(),2.3
      circle mousex(),mousey(),2.2
      circle mousex(),mousey(),2.1
      circle mousex(),mousey(),2.0
      circle mousex(),mousey(),1.9
      circle mousex(),mousey(),1.8
      circle mousex(),mousey(),1.7
      circle mousex(),mousey(),1.6
      circle mousex(),mousey(),1.5
      circle mousex(),mousey(),1.4
      circle mousex(),mousey(),1.3
      circle mousex(),mousey(),1.2
      circle mousex(),mousey(),1.1
      circle mousex(),mousey(),1
      circle mousex(),mousey(),.9
      circle mousex(),mousey(),.8
      circle mousex(),mousey(),.7
      circle mousex(),mousey(),.6
      circle mousex(),mousey(),.5
      circle mousex(),mousey(),.4
      circle mousex(),mousey(),.3
      circle mousex(),mousey(),.2
      circle mousex(),mousey(),.1
      circle mousex(),mousey(),.0.9
      circle mousex(),mousey(),.0.8
      circle mousex(),mousey(),.0.7
      circle mousex(),mousey(),.0.6
      circle mousex(),mousey(),.0.5
      circle mousex(),mousey(),.0.4
      circle mousex(),mousey(),.0.3
      circle mousex(),mousey(),.0.2
      circle mousex(),mousey(),.0.1
endif

if mouseclick()=1
      ink DrawColour,0
   box mousex(),mousey(),mousex()+5,mousey()+5
endif

if shiftkey()=1
   ink rgb (0,0,0),0
      box mousex(),mousey(),mousex()+10,mousey()+10
endif

if spacekey()=1
      ink DrawColour,0
   box mousex(),mousey(),mousex()+5,mousey()+5
   line mousex(),mousey(),mousex()+15,mousey()+10
endif

if controlkey()=1 then cls
if KEYSTATE (2) then DrawColour = rgb(255,255,255)
if KEYSTATE (3) then DrawColour = rgb(200,0,0)
if KEYSTATE (4) then DrawColour = rgb(0,200,0)
if KEYSTATE (5) then DrawColour = rgb(0,0,255)
if KEYSTATE (6) then DrawColour = rgb(200,200,0)
if KEYSTATE (7) then DrawColour = rgb(250,125,0)
if KEYSTATE (8) then DrawColour = rgb(128,64,0)
if KEYSTATE (9) then DrawColour = rgb(255,128,255)
if KEYSTATE (10) then DrawColour = rgb(125,0,125)
if escapekey()=1 then end

sync
loop

i know this is asking alot but i really need to know

Everyone starts a noob. so lets not laugh at our younger souls.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 2nd Dec 2005 10:44

Link

I don't know what you mean by fill in one spot... but i'd like to introduce you to for/next loops.

Change this in your code:

if mouseclick()=2
   ink DrawColour,0
      circle mousex(),mousey(),3
      circle mousex(),mousey(),2.9
      circle mousex(),mousey(),2.8
      circle mousex(),mousey(),2.7
      circle mousex(),mousey(),2.6
      circle mousex(),mousey(),2.5
      circle mousex(),mousey(),2.4
      circle mousex(),mousey(),2.3
      circle mousex(),mousey(),2.2
      circle mousex(),mousey(),2.1
      circle mousex(),mousey(),2.0
      circle mousex(),mousey(),1.9
      circle mousex(),mousey(),1.8
      circle mousex(),mousey(),1.7
      circle mousex(),mousey(),1.6
      circle mousex(),mousey(),1.5
      circle mousex(),mousey(),1.4
      circle mousex(),mousey(),1.3
      circle mousex(),mousey(),1.2
      circle mousex(),mousey(),1.1
      circle mousex(),mousey(),1
      circle mousex(),mousey(),.9
      circle mousex(),mousey(),.8
      circle mousex(),mousey(),.7
      circle mousex(),mousey(),.6
      circle mousex(),mousey(),.5
      circle mousex(),mousey(),.4
      circle mousex(),mousey(),.3
      circle mousex(),mousey(),.2
      circle mousex(),mousey(),.1
      circle mousex(),mousey(),.0.9
      circle mousex(),mousey(),.0.8
      circle mousex(),mousey(),.0.7
      circle mousex(),mousey(),.0.6
      circle mousex(),mousey(),.0.5
      circle mousex(),mousey(),.0.4
      circle mousex(),mousey(),.0.3
      circle mousex(),mousey(),.0.2
      circle mousex(),mousey(),.0.1
endif

+ Code Snippet

if mouseclick()=2
   ink DrawColour,0
      circle mousex(),mousey(),3
      circle mousex(),mousey(),2.9
      circle mousex(),mousey(),2.8
      circle mousex(),mousey(),2.7
      circle mousex(),mousey(),2.6
      circle mousex(),mousey(),2.5
      circle mousex(),mousey(),2.4
      circle mousex(),mousey(),2.3
      circle mousex(),mousey(),2.2
      circle mousex(),mousey(),2.1
      circle mousex(),mousey(),2.0
      circle mousex(),mousey(),1.9
      circle mousex(),mousey(),1.8
      circle mousex(),mousey(),1.7
      circle mousex(),mousey(),1.6
      circle mousex(),mousey(),1.5
      circle mousex(),mousey(),1.4
      circle mousex(),mousey(),1.3
      circle mousex(),mousey(),1.2
      circle mousex(),mousey(),1.1
      circle mousex(),mousey(),1
      circle mousex(),mousey(),.9
      circle mousex(),mousey(),.8
      circle mousex(),mousey(),.7
      circle mousex(),mousey(),.6
      circle mousex(),mousey(),.5
      circle mousex(),mousey(),.4
      circle mousex(),mousey(),.3
      circle mousex(),mousey(),.2
      circle mousex(),mousey(),.1
      circle mousex(),mousey(),.0.9
      circle mousex(),mousey(),.0.8
      circle mousex(),mousey(),.0.7
      circle mousex(),mousey(),.0.6
      circle mousex(),mousey(),.0.5
      circle mousex(),mousey(),.0.4
      circle mousex(),mousey(),.0.3
      circle mousex(),mousey(),.0.2
      circle mousex(),mousey(),.0.1
endif

To this:

+ Code Snippet

if mouseclick()=2
   ink DrawColour,0
   for t=1 to 3
    circle mousex(),mousey(),t
   next t
endif

Sorry if you already knew about for/next loops.

Back to top

Profile PM Email

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 2nd Dec 2005 11:56

Link

Do a search in the codebase for IanM's floodfill routine.

Also if you search main DBPro forum there are loads of posts about 2D fill routines.

Boo!

Back to top

Profile PM Website

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 2nd Dec 2005 13:27

Link

I notice that you are also trying to draw a filled circle - you can also find that in Codebase under '2D graphic commands'

For free Plug-ins and source code http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 2nd Dec 2005 16:27

Link

thanks everyone! ill check it out

Everyone starts a noob. so lets not laugh at our younger souls.

Back to top

Profile PM

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 2nd Dec 2005 16:38

Link

by the way. does anyone know how to connect 2 squares or dots when you are drawing becuase if you do it to fast they get spread out

Everyone starts a noob. so lets not laugh at our younger souls.

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 2nd Dec 2005 20:39 Edited at: 2nd Dec 2005 20:39

Link

Here's my algorithm of a filled circle:

+ Code Snippet

function filled_circle(x,y,radius)
   for i = 1 to radius
      px = radius - i
      py = sqrt(radius^2 - px^2)
      box x - px, y - py, x + px, y + py
   next i
endfunction

In my opinion this is faster than any other filled circle-function I could find...

Or did someone already invent this one?

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 2nd Dec 2005 23:57

Link

Yep, that's where I started from when I wrote mine ... made it faster too

@Smartguy, Use the 2D functions in Codebase - there is a MoveTo function which you use when the use first presses the mouse button to start your line, and LineTo which draws from the last point to the current point with a line. You should be able to get them working fairly easily for you.

For free Plug-ins and source code http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 3rd Dec 2005 00:45

Link

k thanks ill check it out

Everyone starts a noob. so lets not laugh at our younger souls.

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 3rd Dec 2005 08:53

Link

Weeeee, I reinvented the wheel.

Well, in this case a filled circle algorithm...

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 3rd Dec 2005 09:07 Edited at: 3rd Dec 2005 09:09

Link

Uhm IanM, I searched your code and did some speed comparisations with mine:

starttime = timer()
for x = 1 to 100
   filled_circle(320, 240, 100)
next x
print (timer() - starttime) * 0.01

starttime = timer()
for x = 1 to 100
   filled_circle2(320, 240, 100)
next x
print (timer() - starttime) * 0.01

starttime = timer()
for x = 1 to 100
   FilledCircle( 320, 240, 100)
next x
print (timer() - starttime) * 0.01

suspend for key
end

function filled_circle(x,y,radius)
   for i = 1 to radius
      px = radius - i
      py = sqrt(radius^2 - px^2)
      box x - px, y - py, x + px, y + py
   next i
endfunction

function filled_circle2(x, y, radius)
   for i = 1 to (radius/2)+1
      px = radius - i
      py = sqrt(radius^2 - px^2)
      box x - px, y - py, x + px, y + py
      box x - py, y - px, x + py, y + px
   next i
endfunction

function FilledCircle( CX as integer, CY as integer, R as integer )
   local x as integer
   local y as integer
   local i as integer
   local s as integer

` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)

` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1

` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )

` Draw top and bottom
      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
   next y
endfunction

+ Code Snippet

starttime = timer()
for x = 1 to 100
   filled_circle(320, 240, 100)
next x
print (timer() - starttime) * 0.01

starttime = timer()
for x = 1 to 100
   filled_circle2(320, 240, 100)
next x
print (timer() - starttime) * 0.01

starttime = timer()
for x = 1 to 100
   FilledCircle( 320, 240, 100)
next x
print (timer() - starttime) * 0.01

suspend for key
end

function filled_circle(x,y,radius)
   for i = 1 to radius
      px = radius - i
      py = sqrt(radius^2 - px^2)
      box x - px, y - py, x + px, y + py
   next i
endfunction

function filled_circle2(x, y, radius)
   for i = 1 to (radius/2)+1
      px = radius - i
      py = sqrt(radius^2 - px^2)
      box x - px, y - py, x + px, y + py
      box x - py, y - px, x + py, y + px
   next i
endfunction

function FilledCircle( CX as integer, CY as integer, R as integer )
   local x as integer
   local y as integer
   local i as integer
   local s as integer

   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

   ` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)

   ` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1

   ` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )

      ` Draw top and bottom
      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

      ` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
   next y
endfunction

Test results:
My functions:
filled_circle(320, 240, 100)
-> 0.19 ms
filled_circle2(320, 240, 100) (just coded it)
-> 0.15 ms
your function
FilledCircle(320, 240, 100)
-> 1.54 ms

Unless this isn't your fastest filled circle code ofcourse

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

Acolyte Entertainment

19

Years of Service

User Offline

Joined: 28th Dec 2004

Location: Oregon, US

Posted: 27th Jan 2006 01:42

Link

ManI (aka IanM)
how do i change your AWESOME line function to make it have boxes where i can increase the size. becuase im gonna want to increase the size of the brush

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / fill tool in paint