Is exitfunction the equivalent of return in c

Author

Message

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Aug 2018 17:37

Link

Is exitfunction the equivalent of return in c?

In C
The return statement terminates the execution of a function and returns control to the calling function. Execution resumes in the calling function at the point immediately following the call.

It seems with the exitfunction the execution doesn't always resume the point following the call

please correct me if im wrong just got an issue with trying to do recursions

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Aug 2018 17:47 Edited at: 5th Aug 2018 17:58

Link

This example seems to work with its recursion properly

// set window properties
SetWindowTitle( "Fractal Math" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(30,0) `

// set display properties
SetVirtualResolution( 1024, 768 )
length#=1
do
if length#<250 then length#=length#+.25	//grows at the rate of.25 increase the number to grow faster
cantor2(512,768,length#,270) //draws a growing tree
Sync()
loop

function cantor2(x as float,y as float,length as float,ang as integer)
local x2 as float
local y2 as float
if length>1	
  x2= length * cos(ang) + x //calculate endx point given length and angle 
  y2= length * sin(ang) + y //calculate endy point given length and angle
  DrawLine(x,y,x2,y2,MakeColor(255,255,255),MakeColor(255,255,255))
  cantor2(x2,y2,length/1.5,ang+15)
  cantor2(x2,y2,length/1.5,ang-15)
  
  //if you change the above to this it will add some randomness but if you 
  //try to draw gradually with the draw command it will appear as if there is wind
  //cantor2(x2,y2,length/1.5,ang+random(10,15))
  //cantor2(x2,y2,length/1.5,ang-random(10,15))
endif
endfunction

+ Code Snippet


// set window properties
SetWindowTitle( "Fractal Math" )
SetWindowSize( 1024, 768, 0 )
SetSyncRate(30,0) ` 

// set display properties
SetVirtualResolution( 1024, 768 )
length#=1
do
if length#<250 then length#=length#+.25	//grows at the rate of.25 increase the number to grow faster
cantor2(512,768,length#,270) //draws a growing tree
Sync()
loop

function cantor2(x as float,y as float,length as float,ang as integer)
local x2 as float
local y2 as float
if length>1	
  x2= length * cos(ang) + x //calculate endx point given length and angle 
  y2= length * sin(ang) + y //calculate endy point given length and angle
  DrawLine(x,y,x2,y2,MakeColor(255,255,255),MakeColor(255,255,255))
  cantor2(x2,y2,length/1.5,ang+15)
  cantor2(x2,y2,length/1.5,ang-15)
  
  //if you change the above to this it will add some randomness but if you 
  //try to draw gradually with the draw command it will appear as if there is wind
  //cantor2(x2,y2,length/1.5,ang+random(10,15))
  //cantor2(x2,y2,length/1.5,ang-random(10,15))
endif
endfunction

but the recursion seems to get in an endless loop with this example and/or exits the main loop

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768

// show all errors
SetErrorMode(2)

SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

do
	
	floodFill4(100,100,10,10,MakeColor(0,255,0))
	//DrawBox(0,0,100,100,green,green,green,green,1)
	print("done")
	//sleep(10)
	sync()
loop
end
                                
function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
	if x < 0 or x > w or y < 0 or y > h then exitfunction 
	if point(x,y) = newColor then exitfunction
	
	
	drawLine(x,y,x,y,newColor,newColor)
	floodFill4( w, h, x + 1, y    , newColor)
	floodFill4( w, h, x - 1, y    , newColor)
	floodFill4( w, h, x    , y + 1, newColor)
	floodFill4( w, h, x    , y - 1, newColor)
	
endfunction

Function point(X,Y)
 
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
  
    img = getImage(X,Y,X+1,Y+1)
  
    rem create memblock
     
    mem = createMemblockfromImage(img)
  
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
  
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
    color = makeColor(r,g,b)
    //color=0
endfunction color

+ Code Snippet


#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768

// show all errors
SetErrorMode(2)

SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

do
	
	floodFill4(100,100,10,10,MakeColor(0,255,0))
	//DrawBox(0,0,100,100,green,green,green,green,1)
	print("done")
	//sleep(10)
	sync()
loop
end
                                
function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
	if x < 0 or x > w or y < 0 or y > h then exitfunction 
	if point(x,y) = newColor then exitfunction
	
	
	drawLine(x,y,x,y,newColor,newColor)
	floodFill4( w, h, x + 1, y    , newColor)
	floodFill4( w, h, x - 1, y    , newColor)
	floodFill4( w, h, x    , y + 1, newColor)
	floodFill4( w, h, x    , y - 1, newColor)
	
endfunction

Function point(X,Y)
 
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
  
    img = getImage(X,Y,X+1,Y+1)
  
    rem create memblock
     
    mem = createMemblockfromImage(img)
  
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
  
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    clearScreen()
    color = makeColor(r,g,b)
    //color=0
endfunction color

and not sure why

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 5th Aug 2018 19:29 Edited at: 5th Aug 2018 19:40

Link

Ive just checked and it seems to be not going past the first floodfill4

drawLine(x,y,x,y,newColor,newColor)
floodFill4( w, h, x + 1, y , newColor) //loops on here (or gets stuck for somereason
floodFill4( w, h, x - 1, y , newColor) // when it hits this one- the current X will be W wont it but then the point check if the point is green then it Exit Function and goes through the one above and this one again during the loop
floodFill4( w, h, x , y + 1, newColor)
floodFill4( w, h, x , y - 1, newColor)

Ill have a think and get back to you

So what I think its doing is moving X :-

10 to W
W to 10
10 to W
W to 10
etc
etc
maybe put some checks in there to say if the first flood full of going >>> as been completed then dont do this function on this Y line again
if move Y line - then reset the checks

Oh the joys of beautiful programming

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Aug 2018 19:51 Edited at: 5th Aug 2018 20:02

Link

Think ive worked out the problem but not the solution

If you comment out 3 of the floodfill lines it seems to kinda work
and what i figure the problem now is the point function to get the color at a point

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768

// show all errors
SetErrorMode(2)

SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

do
	
	floodFill4(100,100,10,10,MakeColor(0,255,0))
	//DrawBox(0,0,100,100,green,green,green,green,1)
	print("done")
	sleep(10)
	sync()
loop
end

function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
     
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4Util( w, h, x + 1, y    , newColor)
    floodFill4Util( w, h, x - 1, y    , newColor)
    floodFill4Util( w, h, x    , y + 1, newColor)
    floodFill4Util( w, h, x    , y - 1, newColor)
     
endfunction

function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
	if x < 0 or x > w or y < 0 or y > h then exitfunction
    if point(x,y) = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor)	
endfunction

Function point(X,Y)
 
    //color as integer
    rem prepare image grab area
    setScissor(X,Y,X+1,Y+1)
    render()
  
    img = getImage(X,Y,X+1,Y+1)
  
    rem create memblock
     
    mem = createMemblockfromImage(img)
  
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
  
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    //color=0
endfunction color

+ Code Snippet

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768

// show all errors
SetErrorMode(2)

SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

do
	
	floodFill4(100,100,10,10,MakeColor(0,255,0))
	//DrawBox(0,0,100,100,green,green,green,green,1)
	print("done")
	sleep(10)
	sync()
loop
end

function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
     
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4Util( w, h, x + 1, y    , newColor)
    floodFill4Util( w, h, x - 1, y    , newColor)
    floodFill4Util( w, h, x    , y + 1, newColor)
    floodFill4Util( w, h, x    , y - 1, newColor)
     
endfunction

function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
	if x < 0 or x > w or y < 0 or y > h then exitfunction
    if point(x,y) = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor)	
endfunction

Function point(X,Y)
 
    //color as integer
    rem prepare image grab area
    setScissor(X,Y,X+1,Y+1)
    render()
  
    img = getImage(X,Y,X+1,Y+1)
  
    rem create memblock
     
    mem = createMemblockfromImage(img)
  
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
  
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    //color=0
endfunction color

as its now exiting but not doing anything which im putting it down to clearing the screen lol im sure its just me doing something wrong
but that would mess up the way the recursions would work anyway im sure the point function aint helpiung

fubar

Back to top

Profile PM Email Website

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Aug 2018 20:04

Link

may have to use an array for storing the old color values

then this function using the array instead of point might work

+ Code Snippet


function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if point(x,y) = newColor then exitfunction
     
     
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4( w, h, x + 1, y    , newColor)
    floodFill4( w, h, x - 1, y    , newColor)
    floodFill4( w, h, x    , y + 1, newColor)
    floodFill4( w, h, x    , y - 1, newColor)
     
endfunction

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 5th Aug 2018 20:06

Link

For that one you are going into FloodFill4 once... so maybe add the recursion back in

+ Code Snippet

function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
 
    floodFill4Util( w, h, x + 1, y    , newColor)
  floodFill4Util( w, h, x - 1, y    , newColor)
    print("food1")
	sync()
    floodFill4Util( w, h, x    , y + 1, newColor)
    floodFill4Util( w, h, x    , y - 1, newColor)
	    
endfunction
 
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if point(x,y) = newColor then exitfunction
    drawLine(x,y,x+1,y+1,newColor,newColor) 
    floodFill4(w,h,x,y,newcolor)  // need to do recursion here
endfunction

But you still getting stuck on those X's - the check doesnt go past when it goes to W and back to 0

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Aug 2018 20:24

Link

no drawing being shown but it does complete with this one

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768

// show all errors
SetErrorMode(2)

SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global dim screen[swidth,sheight]
for x=0 to swidth=1
	for y=0 to sheight-1
		screen[x,y]=point(x,y)
	next y
next x
Print("ready")
do
	
	floodFill4(100,100,10,10,MakeColor(0,255,0))
	//DrawBox(0,0,100,100,green,green,green,green,1)
	print("done")
	sleep(10)
	sync()
loop
end

function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
      
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4Util( w, h, x + 1, y    , newColor)
    floodFill4Util( w, h, x - 1, y    , newColor)
    floodFill4Util( w, h, x    , y + 1, newColor)
    floodFill4Util( w, h, x    , y - 1, newColor)
      
endfunction
 
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor) 
endfunction

Function point(X,Y)
 
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
  
    img = getImage(X,Y,X+1,Y+1)
  
    rem create memblock
     
    mem = createMemblockfromImage(img)
  
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
  
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    clearScreen()
    //color=0
endfunction color

+ Code Snippet


#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768

// show all errors
SetErrorMode(2)

SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global dim screen[swidth,sheight]
for x=0 to swidth=1
	for y=0 to sheight-1
		screen[x,y]=point(x,y)
	next y
next x
Print("ready")
do
	
	floodFill4(100,100,10,10,MakeColor(0,255,0))
	//DrawBox(0,0,100,100,green,green,green,green,1)
	print("done")
	sleep(10)
	sync()
loop
end

function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
      
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4Util( w, h, x + 1, y    , newColor)
    floodFill4Util( w, h, x - 1, y    , newColor)
    floodFill4Util( w, h, x    , y + 1, newColor)
    floodFill4Util( w, h, x    , y - 1, newColor)
      
endfunction
 
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor) 
endfunction



Function point(X,Y)
 
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
  
    img = getImage(X,Y,X+1,Y+1)
  
    rem create memblock
     
    mem = createMemblockfromImage(img)
  
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
  
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    clearScreen()
    //color=0
endfunction color

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 5th Aug 2018 20:28

Link

Just checked and the FPS is rocking at 0.1-0.5 doing this process thats why its boooming

try the W and H from 100,100 to say like 15,15

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Aug 2018 20:34 Edited at: 5th Aug 2018 20:35

Link

yeh I think need to store the color of each screen coord in an array the last example don't boom atleast

the w and h is really just a way of restricting the floodfill to an area

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768

// show all errors
SetErrorMode(2)

SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global dim screen[swidth,sheight]
for x=0 to swidth=1
	for y=0 to sheight-1
		screen[x,y]=point(x,y)
	next y
next x
Print("ready")
do
	
	floodFill4(100,100,10,10,MakeColor(0,255,0))
	//DrawBox(0,0,100,100,green,green,green,green,1)
	print("done")
	sleep(10)
	sync()
loop
end

function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
      
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4Util( w, h, x + 1, y    , newColor)
    floodFill4Util( w, h, x - 1, y    , newColor)
    floodFill4Util( w, h, x    , y + 1, newColor)
    floodFill4Util( w, h, x    , y - 1, newColor)
      
endfunction
 
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor) 
    screen[x,y] = newColor
endfunction

Function point(X,Y)
 
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
  
    img = getImage(X,Y,X+1,Y+1)
  
    rem create memblock
     
    mem = createMemblockfromImage(img)
  
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
  
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    clearScreen()
    //color=0
endfunction color

+ Code Snippet


#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768

// show all errors
SetErrorMode(2)

SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

global dim screen[swidth,sheight]
for x=0 to swidth=1
	for y=0 to sheight-1
		screen[x,y]=point(x,y)
	next y
next x
Print("ready")
do
	
	floodFill4(100,100,10,10,MakeColor(0,255,0))
	//DrawBox(0,0,100,100,green,green,green,green,1)
	print("done")
	sleep(10)
	sync()
loop
end

function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
      
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4Util( w, h, x + 1, y    , newColor)
    floodFill4Util( w, h, x - 1, y    , newColor)
    floodFill4Util( w, h, x    , y + 1, newColor)
    floodFill4Util( w, h, x    , y - 1, newColor)
      
endfunction
 
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor) 
    screen[x,y] = newColor
endfunction



Function point(X,Y)
 
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
  
    img = getImage(X,Y,X+1,Y+1)
  
    rem create memblock
     
    mem = createMemblockfromImage(img)
  
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
  
     
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    clearScreen()
    //color=0
endfunction color

is quite fast just don't display the lines

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 5th Aug 2018 20:36

Link

Try

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global dim screen[swidth,sheight]
for x=0 to swidth=1
    for y=0 to sheight-1
        screen[x,y]=point(x,y)
    next y
next x
Print("ready")
do
     
    floodFill4(50,50,10,10,MakeColor(0,255,0))
    //DrawBox(0,0,100,100,green,green,green,green,1)
    print("done")
    sync()
    sleep(10000)

loop
end
 
function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
     inc x
      
    if x>w 
		 x=0
		 inc y
	endif
	
	if y>h
		x=0 
		y=0
	endif
	
	if x=10 and y=10 then exitfunction
	
    drawLine(x,y,x,y,newColor,newColor)
 //   sync()
  //  sleep(10)
    floodFill4( w, h, x, y    , newColor)

endfunction
  
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor) 
	floodFill4(w,h,x,y,newcolor)
endfunction
 
 
 
Function point(X,Y)
  
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
   
    img = getImage(X,Y,X+1,Y+1)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
   
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
   
      
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    clearScreen()
    //color=0
endfunction color

+ Code Snippet

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global dim screen[swidth,sheight]
for x=0 to swidth=1
    for y=0 to sheight-1
        screen[x,y]=point(x,y)
    next y
next x
Print("ready")
do
     
    floodFill4(50,50,10,10,MakeColor(0,255,0))
    //DrawBox(0,0,100,100,green,green,green,green,1)
    print("done")
    sync()
    sleep(10000)

loop
end
 
function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
     inc x
      
    if x>w 
		 x=0
		 inc y
	endif
	
	if y>h
		x=0 
		y=0
	endif
	
	if x=10 and y=10 then exitfunction
	
    drawLine(x,y,x,y,newColor,newColor)
 //   sync()
  //  sleep(10)
    floodFill4( w, h, x, y    , newColor)

endfunction
  
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor) 
	floodFill4(w,h,x,y,newcolor)
endfunction
 
 
 
Function point(X,Y)
  
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
   
    img = getImage(X,Y,X+1,Y+1)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
   
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
   
      
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    clearScreen()
    //color=0
endfunction color

Then put your point check in to skip a point

Back to top

Profile

puzzler2018

User Banned

Posted: 5th Aug 2018 20:38

Link

Just wondering if there is a limit on AppGameKit for recursive functions? it booms still if W or H is >80 mark

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Aug 2018 20:46 Edited at: 5th Aug 2018 20:57

Link

Quote: "Just wondering if there is a limit on AppGameKit for recursive functions?"

Theres something like that im sure had similar issues in the past and I gave up thinking maybe recursions didn't work
but then the fractal tree algorythm proves recursions works

thanks anyway might just have to work on a completely different method really just thought a floodfill could come in handy
and recursion is the neatest and most readable method

The original recursive method but using the screen array (works but falls over if w or h too high as well)

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global dim screen[swidth,sheight]
for x=0 to swidth=1
    for y=0 to sheight-1
        screen[x,y]=point(x,y)
    next y
next x
Print("ready")
do
     
    floodFill4(50,50,10,10,MakeColor(0,255,0))
    //DrawBox(0,0,100,100,green,green,green,green,1)
    print("done")
    sync()
    sleep(10000)

loop
end
 
function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor)
    screen[x,y] = newColor
    floodFill4( w, h, x + 1, y    , newColor)
    floodFill4( w, h, x - 1, y    , newColor)
    floodFill4( w, h, x    , y + 1, newColor)
    floodFill4( w, h, x    , y - 1, newColor)       
endfunction
  
Function point(X,Y)
  
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
   
    img = getImage(X,Y,X+1,Y+1)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
   
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
   
      
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    clearScreen()
    //color=0
endfunction color

+ Code Snippet

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global dim screen[swidth,sheight]
for x=0 to swidth=1
    for y=0 to sheight-1
        screen[x,y]=point(x,y)
    next y
next x
Print("ready")
do
     
    floodFill4(50,50,10,10,MakeColor(0,255,0))
    //DrawBox(0,0,100,100,green,green,green,green,1)
    print("done")
    sync()
    sleep(10000)

loop
end
 
function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor)
    screen[x,y] = newColor
    floodFill4( w, h, x + 1, y    , newColor)
    floodFill4( w, h, x - 1, y    , newColor)
    floodFill4( w, h, x    , y + 1, newColor)
    floodFill4( w, h, x    , y - 1, newColor)       
endfunction
  
Function point(X,Y)
  
    //color as integer
    rem prepare image grab area
    clearScreen()
    setScissor(X,Y,X+1,Y+1)
    render()
   
    img = getImage(X,Y,X+1,Y+1)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
   
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
   
      
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    clearScreen()
    //color=0
endfunction color

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 5th Aug 2018 21:08

Link

Its nothing fancy but this draws a white ellipse and then fills it with green

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global dim screen[swidth,sheight]
for x=0 to swidth=1
    for y=0 to sheight-1
        screen[x,y]=point(x,y)
    next y
next x
Print("ready")
do
    
    DrawEllipse(10,10,5,5,white,white,1)
    
    
    for x=0 to 30
		for y=0 to 30
			if point(x,y) = white then DrawLine(x,y,x,y,green,green)
		next
	next
	print("done")
    sync()
    sleep(10000)

loop
end
 
function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
     inc x
      
    if x>w 
		 x=0
		 inc y
	endif
	
	if y>h
		x=0 
		y=0
	endif
	
	if x=10 and y=10 then exitfunction
	
    drawLine(x,y,x,y,newColor,newColor)
 //   sync()
  //  sleep(10)
    floodFill4( w, h, x, y    , newColor)

endfunction
  
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor) 
	floodFill4(w,h,x,y,newcolor)
endfunction
 
 
 
Function point(X,Y)
  
    //color as integer
    rem prepare image grab area
   // setScissor(X,Y,X+1,Y+1)
    render()
   
    img = getImage(X,Y,X+1,Y+1)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
   
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
   
      
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    //setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    //color=0
endfunction color

+ Code Snippet

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
global dim screen[swidth,sheight]
for x=0 to swidth=1
    for y=0 to sheight-1
        screen[x,y]=point(x,y)
    next y
next x
Print("ready")
do
    
    DrawEllipse(10,10,5,5,white,white,1)
    
    
    for x=0 to 30
		for y=0 to 30
			if point(x,y) = white then DrawLine(x,y,x,y,green,green)
		next
	next
	print("done")
    sync()
    sleep(10000)

loop
end
 
function floodFill4(w as integer, h as integer, x as integer, y as integer, newColor)
     inc x
      
    if x>w 
		 x=0
		 inc y
	endif
	
	if y>h
		x=0 
		y=0
	endif
	
	if x=10 and y=10 then exitfunction
	
    drawLine(x,y,x,y,newColor,newColor)
 //   sync()
  //  sleep(10)
    floodFill4( w, h, x, y    , newColor)

endfunction
  
function floodFill4Util(w as integer, h as integer, x as integer, y as integer, newColor)
    if x < 0 or x > w or y < 0 or y > h then exitfunction
    if screen[x,y] = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor) 
	floodFill4(w,h,x,y,newcolor)
endfunction
 
 
 
Function point(X,Y)
  
    //color as integer
    rem prepare image grab area
   // setScissor(X,Y,X+1,Y+1)
    render()
   
    img = getImage(X,Y,X+1,Y+1)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
   
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
   
      
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    //setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    //color=0
endfunction color

Back to top

Profile

puzzler2018

User Banned

Posted: 5th Aug 2018 21:34 Edited at: 5th Aug 2018 21:40

Link

10000 Faster

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global mem
    swap()
   
    DrawEllipse(50,50,30,30,white,white,1)
    render()
    img = getImage(0,0,1024,768)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
 
do
    
    
    
    for x=0 to 100
		for y=0 to 100
			if point(x,y) = white then DrawLine(x,y,x,y,green,green)
		next
	next
	print("done")
    sync()
    sleep(10000)

loop
end
 
 
Function point(X,Y)
   
   offset = (((x* 1024)+y) * 4) + 12
    rem get memblock data
    r = getMemblockbyte(mem,offset):rem gets red channel data
    g = getMemblockbyte(mem,offset+1):rem gets green channel data
    b = getMemblockbyte(mem,offset+2):rem gets blue channel data
   
     color = MakeColor(r,g,b)
endfunction color

+ Code Snippet

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global mem
    swap()
   
    DrawEllipse(50,50,30,30,white,white,1)
    render()
    img = getImage(0,0,1024,768)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
 
do
    
    
    
    for x=0 to 100
		for y=0 to 100
			if point(x,y) = white then DrawLine(x,y,x,y,green,green)
		next
	next
	print("done")
    sync()
    sleep(10000)

loop
end
 
 
Function point(X,Y)
   
   offset = (((x* 1024)+y) * 4) + 12
    rem get memblock data
    r = getMemblockbyte(mem,offset):rem gets red channel data
    g = getMemblockbyte(mem,offset+1):rem gets green channel data
    b = getMemblockbyte(mem,offset+2):rem gets blue channel data
   
     color = MakeColor(r,g,b)
endfunction color

EDIT

Got the wrong way round on checks

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global mem
    swap()
   for a=1 to 100
    DrawEllipse(random(0,1024),random(0,768),30,30,white,white,1)
    next
    render()
    
    img = getImage(0,0,1024,768)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
 
do
    
    
    
    for x=0 to 1023
		for y=0 to 767
			if point(x,y) = white then DrawLine(x,y,x,y,green,green)
		next
	next
	print("done")
    sync()
    sleep(10000)

loop
end
 
 
Function point(X,Y)
   
   offset = ((((y*4)* 1024)+x*4)) + 12
    rem get memblock data
    r = getMemblockbyte(mem,offset):rem gets red channel data
    g = getMemblockbyte(mem,offset+1):rem gets green channel data
    b = getMemblockbyte(mem,offset+2):rem gets blue channel data
   
     color = MakeColor(r,g,b)
endfunction color

+ Code Snippet

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global mem
    swap()
   for a=1 to 100
    DrawEllipse(random(0,1024),random(0,768),30,30,white,white,1)
    next
    render()
    
    img = getImage(0,0,1024,768)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
 
do
    
    
    
    for x=0 to 1023
		for y=0 to 767
			if point(x,y) = white then DrawLine(x,y,x,y,green,green)
		next
	next
	print("done")
    sync()
    sleep(10000)

loop
end
 
 
Function point(X,Y)
   
   offset = ((((y*4)* 1024)+x*4)) + 12
    rem get memblock data
    r = getMemblockbyte(mem,offset):rem gets red channel data
    g = getMemblockbyte(mem,offset+1):rem gets green channel data
    b = getMemblockbyte(mem,offset+2):rem gets blue channel data
   
     color = MakeColor(r,g,b)
endfunction color

Enjoy

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 5th Aug 2018 22:00 Edited at: 5th Aug 2018 22:16

Link

that gave me an idea to test the floodfill method to see if it was working as expected

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
DrawEllipse(10,10,10,10,white,white,1)
Update2D(0)

do
     
    floodFill4(20,20,10,10,point(10,10),MakeColor(0,255,0))
    print("done")
    sync()

loop
end
 
function floodFill4(w as integer, h as integer, x as integer, y as integer,oldColor,newColor)
    if x < 1 or x > w or y < 1 or y > h then exitfunction
    current=point(x,y)
    if current <> oldColor or current = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4( w, h, x + 1, y    ,oldColor, newColor)
    floodFill4( w, h, x - 1, y    ,oldColor, newColor)
    floodFill4( w, h, x    , y + 1,oldColor, newColor)
    floodFill4( w, h, x    , y - 1,oldColor, newColor)       
endfunction
  
Function point(X,Y)
   
    //color as integer
    rem prepare image grab area
   // setScissor(X,Y,X+1,Y+1)
    render()
    
    img = getImage(X,Y,X+1,Y+1)
    
    rem create memblock
       
    mem = createMemblockfromImage(img)
    
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
    
       
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    //setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    //color=0
endfunction color

+ Code Snippet


#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
DrawEllipse(10,10,10,10,white,white,1)
Update2D(0) 

do
     
    floodFill4(20,20,10,10,point(10,10),MakeColor(0,255,0))
    print("done")
    sync()
   

loop
end
 
function floodFill4(w as integer, h as integer, x as integer, y as integer,oldColor,newColor)
    if x < 1 or x > w or y < 1 or y > h then exitfunction
    current=point(x,y)
    if current <> oldColor or current = newColor then exitfunction
    drawLine(x,y,x,y,newColor,newColor)
    floodFill4( w, h, x + 1, y    ,oldColor, newColor)
    floodFill4( w, h, x - 1, y    ,oldColor, newColor)
    floodFill4( w, h, x    , y + 1,oldColor, newColor)
    floodFill4( w, h, x    , y - 1,oldColor, newColor)       
endfunction
  
Function point(X,Y)
   
    //color as integer
    rem prepare image grab area
   // setScissor(X,Y,X+1,Y+1)
    render()
    
    img = getImage(X,Y,X+1,Y+1)
    
    rem create memblock
       
    mem = createMemblockfromImage(img)
    
    rem get memblock data
    r = getMemblockbyte(mem,12):rem gets red channel data
    g = getMemblockbyte(mem,13):rem gets green channel data
    b = getMemblockbyte(mem,14):rem gets blue channel data
    
       
    rem tidy up
    deletememblock(mem)
    deleteimage(img)
    //setScissor(0,0,getDeviceWidth(),getDeviceHeight())
    color = makeColor(r,g,b)
    //color=0
endfunction color

its almost like it never goes left of the spot but atleast it don't crash just have to wait and see if theres some limit

which gives me an idea of replace color with another color in a memblock image not that hard to do but not so sure how useful lol

fubar

Back to top

Profile PM Email Website

puzzler2018

User Banned

Posted: 5th Aug 2018 22:21 Edited at: 5th Aug 2018 22:22

Link

Ive got this so far

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global mem,spr,img

ScreenGrab()

do
    SetSpritePosition(spr,0,0)
    
    if GetRawMouseLeftPressed()
		color = point(GetPointerX(),GetPointerY())
    
		for x=getpointerx() to GetDeviceWidth()-1
			for y=getpointery() to GetDeviceHeight()-1
				if point(x,y) = color then Setpoint(x,y,0,255,0)
				
			next
			
			
		next
		
		DeleteSprite(spr)
		CreateImageFromMemblock(img,mem)
		
		spr = CreateSprite(img)
		
	endif
	print("done")
		sync()

loop
end

function ScreenGrab()
	swap()
	for a=1 to 100
		DrawEllipse(random(0,1024),random(0,768),30,30,MakeColor(255,255,255),makecolor(255,255,255),1)
		DrawEllipse(random(0,1024),random(0,768),20,20,MakeColor(0,255,255),makecolor(0,0,255),1)
    next
    render()
    
    img = getImage(0,0,1024,768)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
	spr = CreateSprite(img)

// DeleteImage(img)

endfunction 
 
Function point(X,Y)
   
   offset = ((((y*4)* 1024)+x*4)) + 12
    rem get memblock data
    r = getMemblockbyte(mem,offset):rem gets red channel data
    g = getMemblockbyte(mem,offset+1):rem gets green channel data
    b = getMemblockbyte(mem,offset+2):rem gets blue channel data
   
     color = MakeColor(r,g,b)
endfunction color

Function Setpoint(X,Y, r,g,b)
   
   offset = ((((y*4)* 1024)+x*4)) + 12
    rem get memblock data
    SetMemblockbyte(mem,offset,r):rem gets red channel data
    SetMemblockbyte(mem,offset+1,g):rem gets green channel data
    SetMemblockbyte(mem,offset+2,b):rem gets blue channel data
   
endfunction

+ Code Snippet

#constant green = MakeColor(0,255,0)
#constant white = MakeColor(255,255,255)  
#constant swidth=1024
#constant sheight=768
 
// show all errors
SetErrorMode(2)
 
SetVirtualResolution( swidth, sheight ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
global mem,spr,img


ScreenGrab()

do
    SetSpritePosition(spr,0,0)
    
    if GetRawMouseLeftPressed()
		color = point(GetPointerX(),GetPointerY())
    
		for x=getpointerx() to GetDeviceWidth()-1
			for y=getpointery() to GetDeviceHeight()-1
				if point(x,y) = color then Setpoint(x,y,0,255,0)
				
			next
			
			
		next
		
		DeleteSprite(spr)
		CreateImageFromMemblock(img,mem)
		
		spr = CreateSprite(img)
		
	endif
	print("done")
		sync()

loop
end

function ScreenGrab()
	swap()
	for a=1 to 100
		DrawEllipse(random(0,1024),random(0,768),30,30,MakeColor(255,255,255),makecolor(255,255,255),1)
		DrawEllipse(random(0,1024),random(0,768),20,20,MakeColor(0,255,255),makecolor(0,0,255),1)
    next
    render()
    
    img = getImage(0,0,1024,768)
   
    rem create memblock
      
    mem = createMemblockfromImage(img)
	spr = CreateSprite(img)

// DeleteImage(img)

 endfunction 
 
Function point(X,Y)
   
   offset = ((((y*4)* 1024)+x*4)) + 12
    rem get memblock data
    r = getMemblockbyte(mem,offset):rem gets red channel data
    g = getMemblockbyte(mem,offset+1):rem gets green channel data
    b = getMemblockbyte(mem,offset+2):rem gets blue channel data
   
     color = MakeColor(r,g,b)
endfunction color

Function Setpoint(X,Y, r,g,b)
   
   offset = ((((y*4)* 1024)+x*4)) + 12
    rem get memblock data
    SetMemblockbyte(mem,offset,r):rem gets red channel data
    SetMemblockbyte(mem,offset+1,g):rem gets green channel data
    SetMemblockbyte(mem,offset+2,b):rem gets blue channel data
   
endfunction

Click any where - it should turn everything green which is the same pixel as you ciick on

Back to top

Profile

fubarpk

Retired Moderator

19

Years of Service

User Offline

Joined: 11th Jan 2005

Playing: AGK is my friend

Posted: 6th Aug 2018 02:29

Link

I had to change
offset = ((((y*4)* 1024)+x*4)) + 12
to
offset = ((Y*1024)+(X*4))+12

otherwise I get memblock out of range error at line 69

fubar

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Is exitfunction the equivalent of return in c