- DBPro Coding Challenges - - GameCreators Forum

Author

Message

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 1st Jul 2006 18:59

Link

I wondering how much work is going to get done on this challenge with the 4th of july weekend. Of course, probably half of you live in UK.

"Using Unix is the computing equivalent of listening only to music by David Cassidy" - Rob Pike

Back to top

Profile PM Email Website

sixblades

21

Years of Service

User Offline

Joined: 30th Jul 2004

Location:

Posted: 1st Jul 2006 20:44

Link

Hmmm...what to choose, what to choose...I could work on my floodfill algorithm...OR i could go explode stuff...

Back to top

Profile PM Email

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 1st Jul 2006 21:57

Link

Do both...

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

Hobgoblin Lord

20

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 1st Jul 2006 23:52

Link

yes make an exploding flood fill

http://www.cafepress.com/blackarrowgames
Check out my great stuff here

Back to top

Profile PM Email Website

sixblades

21

Years of Service

User Offline

Joined: 30th Jul 2004

Location:

Posted: 2nd Jul 2006 09:15

Link

Arrrg! Ok, I've been working on just the floodfill tool for over a day now and I can't seem to make any progress. I'm using a basic recursive technique that works by checking all of the points around a known valid point, then declaring those as valid points if they are the correct color (it then colors the old valid points and deletes their data). Whenever I run the following code, I seem to just get a small block filled in, then it slows down to a crawl. I think it might have something to do with the size of the array not being properly controlled (I really don't know about much in this area, this is the first time I've used a dynamic array). Any ideas?!

+ Code Snippet

sync on
Do

if mouseclick()=1
ox=mousex()
oy=mousey()
while mouseclick()=1
line ox,oy,mousex(),mousey()
ox=mousex()
oy=mousey()
sync
endwhile
endif

if mouseclick()=2
fx=mousex()
fy=mousey()
oc=point(fx,fy)
nc=rgb(255,255,255)
dim node(0)
array insert at bottom node(0)
array insert at bottom node(0)
node(1)=fx
node(2)=fy

while array count(node(0))<>0
   tot=array count(node(0))
   For x=1 to tot step 2
   dot node(x),node(x+1),nc
   sync

   for y=-1 to 1
   for z=-1 to 1
   if point(node(x)+y,node(x+1)+z)=oc
   array insert at bottom node(0)
   array insert at bottom node(0)
   node(array count(node(0))-1)=node(x)+y
   node(array count(node(0)))=node(x+1)+z
   endif
   next z
   next z

   next x

   for c=1 to tot
   array delete element node(c)
   next c

endwhile

endif
sync
Loop

Back to top

Profile PM Email

Hobgoblin Lord

20

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 2nd Jul 2006 11:21

Link

If you look at my code above there is a floodfill routine that works fine (most of the time) the only error I get is the same that you likely will by using the point command.

http://www.cafepress.com/blackarrowgames
Check out my great stuff here

Back to top

Profile PM Email Website

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 2nd Jul 2006 12:04

Link

This is what I use:

+ Code Snippet

function FloodFill(mem, Base, gx, gy)

      `Change this color
      pos = 12 + (((gy*imgsx) + gx)*4)
      write memblock dword mem, pos, ForColor

      `Check for surrounding
      if gx > 0
         if memblock dword(mem, pos - 4) = Base then FloodFill(mem, Base, gx - 1, gy)
      endif
      if gx < imgsx - 1
         if memblock dword(mem, pos + 4) = Base then FloodFill(mem, Base, gx + 1, gy)
      endif
      if gy > 0
         if memblock dword(mem, pos - (imgsx*4)) = Base then FloodFill(mem, Base, gx, gy - 1)
      endif
      if gy < imgsy - 1
         if memblock dword(mem, pos + (imgsx*4)) = Base then FloodFill(mem, Base, gx, gy + 1)
      endif
endfunction

Before you're calling the function the first time (gx,gy = seed pos), you have to control that the Base color (color that should be changed) doesn't equal the current color (ForColor). And ofcourse that gx and gy aren't positioned outside the memblock.
(imgsx is the width of the memblock image. I made it a global)

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

lower logic

20

Years of Service

User Offline

Joined: 15th Jun 2006

Location:

Posted: 2nd Jul 2006 12:21 Edited at: 2nd Jul 2006 12:22

Link

I started out trying to get sixblades's code to work, but got carried away ended up rewriting more code than I needed to. It works now, but is completely different. You can see the flood fill in progress, which is kinda neat.

type v2
        x as integer
        y as integer
     endtype
     dim node(0) as v2
sync on
sync rate 0
Do
  if mouseclick()=1
    ox=mousex()
    oy=mousey()
    while mouseclick()=1
    line ox,oy,mousex(),mousey()
    ox=mousex()
    oy=mousey()
    sync
    endwhile
  endif
  if mouseclick()=2
     `this makes a memblock from the bitmap on the screen:
     make memblock from bitmap 1,0
     fx=mousex()
     fy=mousey()
     `this finds the position of the colors for the pixel at (fx,fy) in the memblock
     pos=12+fy*(screen width())*4+fx*4 `once you learn this, editing image and bitmap memblocks will be easier
     ocb=memblock byte(1,pos)
     ocg=memblock byte(1,pos+1)
     ocr=memblock byte(1,pos+2)
     `ocb = old color blue, etc.

`we'll make the new color a random one.
     ncb=rnd(255)
     ncg=rnd(255)
     ncr=rnd(255)
     empty array node(0)
     array insert at top node(0)
     node(0).x=fx
     node(0).y=fy
     `go through all the nodes
     while array count(node(0))>=0
        tot=array count(node(0))
        For n=0 to tot
            `look around each open node
           for x=node(n).x-1 to node(n).x+1
              for y=node(n).y-1 to node(n).y+1
               `this checks to see if the node is in the screen. It also disables diagonal search
                 if x>=0 and y>=0 and x<screen width() and y<screen height() and (x=node(n).x or y=node(n).y)
                    `get the position of point x,y in the memblock
                    pos=12+y*(screen width())*4+x*4
                    `see if the color at this point in the memblock matches the old color:
                    if memblock byte(1,pos)=ocb and memblock byte(1,pos+1)=ocg and memblock byte(1,pos+2)=ocr
                       `if so add a node, and update the point in the memblock with the new colors
                       array insert at bottom node(0)
                       node(array count(node(0))).x=x
                       node(array count(node(0))).y=y
                       `new colors are written to memblock
                       write memblock byte 1,pos,ncb
                       write memblock byte 1,pos+1,ncg
                       write memblock byte 1,pos+2,ncr
                       `this makes sure it is opaque (not transparent).
                       write memblock byte 1,pos+3,255
                    endif
                 endif
              next y
           next x
           `delete the current element from the array
           array delete element node(0),0
           `while it looks like n is increasing to tot,
           `we really keep n at zero for every iteration and decrease
           `tot to 0.
           dec n
           dec tot

next n
        `this is what shows the fill in real time:
        make bitmap from memblock 0,1
        sync
     endwhile
     `convert the memblock back to an image:
     make bitmap from memblock 0,1
  endif
  sync
Loop

+ Code Snippet

     type v2
        x as integer
        y as integer
     endtype
     dim node(0) as v2
sync on
sync rate 0
Do
  if mouseclick()=1
    ox=mousex()
    oy=mousey()
    while mouseclick()=1
    line ox,oy,mousex(),mousey()
    ox=mousex()
    oy=mousey()
    sync
    endwhile
  endif
  if mouseclick()=2
     `this makes a memblock from the bitmap on the screen:
     make memblock from bitmap 1,0
     fx=mousex()
     fy=mousey()
     `this finds the position of the colors for the pixel at (fx,fy) in the memblock
     pos=12+fy*(screen width())*4+fx*4 `once you learn this, editing image and bitmap memblocks will be easier
     ocb=memblock byte(1,pos)
     ocg=memblock byte(1,pos+1)
     ocr=memblock byte(1,pos+2)
     `ocb = old color blue, etc.

     `we'll make the new color a random one.
     ncb=rnd(255)
     ncg=rnd(255)
     ncr=rnd(255)
     empty array node(0)
     array insert at top node(0)
     node(0).x=fx
     node(0).y=fy
     `go through all the nodes
     while array count(node(0))>=0
        tot=array count(node(0))
        For n=0 to tot
            `look around each open node
           for x=node(n).x-1 to node(n).x+1
              for y=node(n).y-1 to node(n).y+1
               `this checks to see if the node is in the screen. It also disables diagonal search
                 if x>=0 and y>=0 and x<screen width() and y<screen height() and (x=node(n).x or y=node(n).y)
                    `get the position of point x,y in the memblock
                    pos=12+y*(screen width())*4+x*4
                    `see if the color at this point in the memblock matches the old color:
                    if memblock byte(1,pos)=ocb and memblock byte(1,pos+1)=ocg and memblock byte(1,pos+2)=ocr
                       `if so add a node, and update the point in the memblock with the new colors
                       array insert at bottom node(0)
                       node(array count(node(0))).x=x
                       node(array count(node(0))).y=y
                       `new colors are written to memblock
                       write memblock byte 1,pos,ncb
                       write memblock byte 1,pos+1,ncg
                       write memblock byte 1,pos+2,ncr
                       `this makes sure it is opaque (not transparent).
                       write memblock byte 1,pos+3,255
                    endif
                 endif
              next y
           next x
           `delete the current element from the array
           array delete element node(0),0
           `while it looks like n is increasing to tot,
           `we really keep n at zero for every iteration and decrease
           `tot to 0.
           dec n
           dec tot

        next n
        `this is what shows the fill in real time:
        make bitmap from memblock 0,1
        sync
     endwhile
     `convert the memblock back to an image:
     make bitmap from memblock 0,1
  endif
  sync
Loop

Back to top

Profile PM

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 2nd Jul 2006 20:14

Link

Alright, I can't seem to figure out what's wrong with my floodfill. Same basic recursive idea, but it keeps crashing silently. The error log says:

Quote: "m_dwRuntimeErrorDWORD=Internal Code:0
m_dwRuntimeErrorLineDWORD=564"

which is this line:
temp = memblock dword(index, pos)

+ Code Snippet

function _floodFill(index as integer, x as integer, y as integer, targetColor as dword, fillColor as dword, alpha as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)

   colored = 0
   rem check bounds
   if x > 0 and x <= width and y > 0 and y <= height
      pos = ((y-1)*width + x - 1)*4 + 12
      temp as dword
      temp = memblock dword(index, pos)
      rem if this point's color equals the target color
      if temp = targetColor
         rem color this pixel
         dotMemblock(index, x, y, fillColor,alpha)
         colored = 1
      endif
   endif

   rem if the point was colored, branch off
   if colored = 1
      _floodFill(index,x+1,y,targetColor, fillColor,alpha)
      _floodFill(index,x-1,y,targetColor, fillColor,alpha)
      _floodFill(index,x,y+1,targetColor, fillColor,alpha)
      _floodFill(index,x,y-1,targetColor, fillColor,alpha)
   endif

endfunction

I've checked and rechecked the boundary checks and memblock position a dozen times, it looks ok.

"Using Unix is the computing equivalent of listening only to music by David Cassidy" - Rob Pike

Back to top

Profile PM Email Website

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 2nd Jul 2006 20:39

Link

Quote: "((y-1)*width + x - 1)*4 + 12"

That concerns me... Lots of oppertunity for the maths to go in the wrong order. Try chucking in more brackets to make sure all the bits happen in the right order.

[center]

Back to top

Profile PM Email Website

Sven B

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 2nd Jul 2006 23:18

Link

I hope you didn't make the same mistake as I did:

When pressing, it fills, but keep pressing it -> it will crash, because of the simple infinite loop:

floodfill on one point
floodfill on the next point
and floodfill on the prev point again (because targetColor = temp)

So I'd check if the targetColor <> temp

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Jul 2006 04:43 Edited at: 3rd Jul 2006 09:00

Link

I'm pretty familiar with order of operations, I shouldn't need anymore brackets than I already have. Plus, it's worked fine for everything else.

I put it a simple check to exit the function if its called more than 10k times. It fills part of the area, so its obviously a overflow problem, but then the rest of the program locks, so something is still cause an infinite loop probably.

argh, well i had created a flag to stop repetitive flood filling (like holding the mouse down), too bad I forgot to actually check for the flag. :-p

It's basically working, it just doesn't seem to be able to handle the whole screen at once. Stack size just becomes too great.

Here's an updated function, it should not call the function if the new point is the same as the root point for the current point. (if that makes sense) But it still can't handle the depth.

function _floodFill(index as integer, rx as integer, ry as integer,x as integer, y as integer, targetColor as dword, fillColor as dword, alpha as integer,count as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)

`if count > 50000 then exitfunction

rem check bounds
   if x > 0 and x <= width and y > 0 and y <= height
      pos = ((y-1)*width + x - 1)*4 + 12
      temp as dword
      temp = memblock dword(index, pos)
      rem if this point's color equals the target color
      if temp <> targetColor
         exitfunction
      else
         rem color this pixel
         dotMemblock(index, x, y, fillColor,alpha)

`inc count

rem branch off
         if x+1 <> rx then _floodFill(index,x,y,x+1,y,targetColor, fillColor,alpha,count)
         if x-1 <> rx then _floodFill(index,x,y,x-1,y,targetColor, fillColor,alpha,count)
         if y+1 <> ry then _floodFill(index,x,y,x,y+1,targetColor, fillColor,alpha,count)
         if y-1 <> ry then _floodFill(index,x,y,x,y-1,targetColor, fillColor,alpha,count)
      endif
   endif

endfunction

+ Code Snippet

function _floodFill(index as integer, rx as integer, ry as integer,x as integer, y as integer, targetColor as dword, fillColor as dword, alpha as integer,count as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)

   `if count > 50000 then exitfunction

   rem check bounds
   if x > 0 and x <= width and y > 0 and y <= height
      pos = ((y-1)*width + x - 1)*4 + 12
      temp as dword
      temp = memblock dword(index, pos)
      rem if this point's color equals the target color
      if temp <> targetColor
         exitfunction
      else
         rem color this pixel
         dotMemblock(index, x, y, fillColor,alpha)

         `inc count

         rem branch off
         if x+1 <> rx then _floodFill(index,x,y,x+1,y,targetColor, fillColor,alpha,count)
         if x-1 <> rx then _floodFill(index,x,y,x-1,y,targetColor, fillColor,alpha,count)
         if y+1 <> ry then _floodFill(index,x,y,x,y+1,targetColor, fillColor,alpha,count)
         if y-1 <> ry then _floodFill(index,x,y,x,y-1,targetColor, fillColor,alpha,count)
      endif
   endif

endfunction

@Sven,
I tried your code and it has the same issue. I can fill areas under a certain size, but nothing as large as half the screen.

@Hobgoblin Lord,
It takes almost 30s for the fill to cover the whole screen. (btw, I swiped your pencil icon)

"Using Unix is the computing equivalent of listening only to music by David Cassidy" - Rob Pike

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Jul 2006 12:06

Link

There's no friggin way to draw 2D over sprites is there?

"Using Unix is the computing equivalent of listening only to music by David Cassidy" - Rob Pike

Back to top

Profile PM Email Website

Hobgoblin Lord

20

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 3rd Jul 2006 12:08

Link

Quote: "It takes almost 30s for the fill to cover the whole screen. (btw, I swiped your pencil icon)"

I have noticed a delay in very large fills though not quite that much. Reminds me of some of the old paint programs I have used where a flood could take 2-3 minutes sometimes. I should probably learn more about memblocks and try using them. On the bright side I have not hit an infinite loop as of yet with it and have gotten it to fill some pretty complex shapes (as long as the point command works)

As for the pencil Icon, no problem, I swiped it from MS paint and just modified it a little

http://www.cafepress.com/blackarrowgames
Check out my great stuff here

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Jul 2006 12:37 Edited at: 3rd Jul 2006 12:38

Link

Setup a tool bar for selecting different actions, not all of them are implemented yet. Flood fill somewhat works. The fill size is capped by the number of recursive calls allowed. Handles about 20% of the screen at a time, so its not limited to tiny shapes. Also fixed a bug with layer ordering. Line tool is half complete, shows where the line will be drawn before it does so. The problem is the line drawing behind sprites. I may have to make my own "canvas" and overlay it above the sprites.

I take that back, layer ordering still screwed up and really starting to piss me off.

set display mode 1024,768,32

#CONSTANT TRUE = 1
#CONSTANT FALSE = 0
#CONSTANT SLIDER_HORIZONTAL = 1
#CONSTANT SLIDER_VERTICAL = 2
#CONSTANT GUI_LAYERS_OFFSET = 400
#CONSTANT LAYER_HEIGHT = 25
REM should be a constant, but doing so gives a different result(?)
TEXT_OFFSET = (LAYER_HEIGHT/2 - text height("A")/2)
#CONSTANT ACTION_DRAW = 1
#CONSTANT ACTION_FILL = 2
#CONSTANT ACTION_LINE = 3
#CONSTANT ACTION_CIRCLE = 4
#CONSTANT ACTION_GRADIENT = 5

GLOBAL LAYER_INDEX = 0
GLOBAL CURRENT_LAYER = -1
GLOBAL CURRENT_ACTION = 1

rem
type toolButton
   x as integer
   y as integer
   size as integer
   active as boolean
   action as integer
endtype

rem isVisible = is the layer visible in the workspace
rem parentLink = current drawing layer if this layer is told to link to it (-1 if no link)
rem alpha = alpha transparency amount
rem name = name of this layer
type LAYER_UI
   isVisible as boolean
   parentLink as integer
   alpha as byte
   name as string
   order as byte
   memblock as byte
endtype

rem attributes for common values among all sliders of this type
type sliderComponentUI
   trackWidth as float
   trackHeight as float
   trackColor as dword
   thumbWidth as float
   thumbHeight as float
   thumbColor as dword
   orientation as byte
endtype

rem attributes for unique values for each slider
type sliderComponent
   x as integer
   y as integer
   min as float
   max as float
   value as float
   isDragging as boolean
   mOffsetX as float
   mOffsetY as float
   thumbX as float
   thumbY as float
   valueX as float
   valueY as float
   displayValue as boolean
   ui as sliderComponentUI
endtype

rem array to hold all sliders
dim sliders(5) as SliderComponent

sliderUI as sliderComponentUI
   sliderUI.trackWidth = 2
   sliderUI.trackHeight = 256
   sliderUI.trackColor = 0
   sliderUI.thumbWidth = 10
   sliderUI.thumbHeight = 4
   sliderUI.thumbColor = rgb(128,128,128)
   sliderUI.orientation = SLIDER_VERTICAL

brushSliderUI as sliderComponentUI
   brushSliderUI.trackWidth = 144
   brushSliderUI.trackHeight = 2
   brushSliderUI.trackColor = 0
   brushSliderUI.thumbWidth = 4
   brushSliderUI.thumbHeight = 10
   brushSliderUI.thumbColor = rgb(128,128,128)
   brushSliderUI.orientation = SLIDER_HORIZONTAL

slider as sliderComponent
   slider.x = 886
   slider.y = 14
   slider.min = 0
   slider.max = 255
   slider.value = 255
   slider.thumbX = 956+56
   slider.thumbY = slider.y
   slider.ui = sliderUI
   slider.displayValue = TRUE
   slider.valueX = 886
   slider.valueY = 1

rem color sliders
sliders(1) = slider : slider.x = 922 : slider.valueX = 922
sliders(2) = slider : slider.x = 958 : slider.valueX = 958
sliders(3) = slider : slider.x = 994 : slider.valueX = 994
sliders(4) = slider

rem brush size slider
slider.x = 876
slider.y = 326
slider.min = 1
slider.max = 10
slider.value = 1
slider.thumbX = slider.x
slider.thumbY = slider.y
slider.ui = brushSliderUI
slider.valueX = 978
slider.valueY = 308

sliders(5) = slider

rem array for drawing tools
dim tools(6) as toolButton
tempTool as toolButton
tempTool.x = 876
tempTool.y = 340
tempTool.size = 20
tempTool.active = FALSE
tempTool.action = ACTION_DRAW

tools(1) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = ACTION_LINE
tools(2) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = ACTION_CIRCLE
tools(3) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = ACTION_FILL
tools(4) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = ACTION_GRADIENT
tools(5) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = 0
tools(6) = tempTool
tools(1).active = TRUE

rem array of drawing layers
dim layerObjects(0) as LAYER_UI

addLayer()
addLayer()
addLayer()
addLayer()
addLayer()
addLayer()
addLayer()

sync on
backdrop on
color backdrop 0xFFFFFF

color as dword

REPEAT

if mouseclick() = 0 then drawFlag = 0

if mousex() > 874
      gosub _handleGUI
   else
      if mouseclick() = 1
         if drawFlag = 0 then start = 0
         drawFlag = 1
      endif
   endif

if drawFlag = 1
      select CURRENT_ACTION
         case ACTION_DRAW : gosub _drawing : endcase
         case ACTION_FILL : gosub _flood : endcase
         case ACTION_LINE : gosub _line : endcase
         `case ACTION_CIRCLE : gosub _circle : endcase
        ` case ACTION_GRADIENT : gosub _gradient_fill : endcase
      endselect
   endif

gosub _drawGUI

_handleSliders(layerFlag)

rem draw layers
   for i = 1 to array count(layerObjects())
      img = layerObjects(i).memblock
      if layerObjects(i).isVisible = TRUE
         show sprite img
         `sprite img,0,0,img
         set sprite alpha img, layerObjects(i).alpha
         set sprite priority img, 10-layerObjects(i).order
      else
         hide sprite img
      endif
   next i

sync
UNTIL spacekey()
end

REM draw a line
_line:
   if start = 0
      start = 1
      lx1 = mousex()
      ly1 = mousey()
   endif

if start = 1
      lx2 = mousex()
      ly2 = mousey()
   endif

ink 0,0
   line lx1,ly1,lx2,ly2

RETURN

REM flood fill (paint bucket)
_flood:
   color = rgb(sliders(1).value, sliders(2).value, sliders(3).value)
   floodFill(layerObjects(CURRENT_LAYER).memblock, mousex(), mousey(), color,sliders(4).value)
   make image from memblock layerObjects(CURRENT_LAYER).memblock, layerObjects(CURRENT_LAYER).memblock
RETURN

REM handles drawing functions (with pencil tool)
_drawing:
   if layerObjects(CURRENT_LAYER).isVisible = TRUE
      if mousex() > 0 and mousey() > 0 and mousex() <= 874 and mousey() <= 1024

color = rgb(sliders(1).value, sliders(2).value, sliders(3).value)

dotMemblockBrush(layerObjects(CURRENT_LAYER).memblock, mousex()+1, mousey()+1, color, sliders(4).value, sliders(5).value-1)
         `dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex()+1, mousey()+1, color, sliders(4).value)

make image from memblock layerObjects(CURRENT_LAYER).memblock, layerObjects(CURRENT_LAYER).memblock
      endif
   endif
RETURN

REM handles the GUI functions
_handleGUI:

REM handle reordering of the layers

for i = 1 to array count(layerObjects())
      t = layerObjects(i).order
      if mousex() > 898 or layerFlag > 0
         if mouseclick() = 1 and layerFlag = 0
            if mousex() > 898 and mousex() < 1024 and mousey() > (GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+2) and mousey() < (GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+LAYER_HEIGHT)
               layerFlag = i
               CURRENT_LAYER = i
               loffsety = mousey() - (GUI_LAYERS_OFFSET+t*LAYER_HEIGHT+2)
            endif
         endif

if layerFlag > 0
            if mouseclick() = 1
               rem if user moves layer above an existing layer
               if mousey() < GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+LAYER_HEIGHT
                  if layerObjects(layerFlag).order > layerObjects(i).order
                     order = layerObjects(i).order
                     layerObjects(i).order = layerObjects(layerFlag).order
                     layerObjects(layerFlag).order = order
                     `CURRENT_LAYER = order
                  endif
               endif

rem if user moves layer below an existing layer
               if mousey() > GUI_LAYERS_OFFSET+(layerObjects(layerFlag).order*LAYER_HEIGHT)+LAYER_HEIGHT
                  if layerObjects(layerFlag).order < layerObjects(i).order
                     order = layerObjects(i).order
                     layerObjects(i).order = layerObjects(layerFlag).order
                     layerObjects(layerFlag).order = order
                     `CURRENT_LAYER = order
                  endif
               endif
            endif
         endif
      endif

if mousex() > 876 and mousex() < 896 and  mousey() > (GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+3) and mousey() < (GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+LAYER_HEIGHT)-1
         if mouseclick() = 1 and visibleFlag = 0
            visibleFlag = 1
            if layerObjects(i).isVisible = TRUE : layerObjects(i).isVisible = FALSE : else : layerObjects(i).isVisible = TRUE : endif
         endif
      endif
   next i

if mouseclick() = 1 and toolFlag = 0 and layerFlag = 0
      toolFlag = 1
      for i = 1 to array count(tools())
         if mousex() > tools(i).x and mousex() < tools(i).x+tools(i).size and mousey() > tools(i).y and mousey() < tools(i).y+tools(i).size
            rem reset all tool states
            for t = 1 to array count(tools())
               tools(t).active = FALSE
            next t
            tools(i).active = TRUE
            CURRENT_ACTION = tools(i).action
            break
         endif
      next i
   endif

if mouseclick() <> 1 then layerFlag = 0 : visibleFlag = 0 : toolFlag = 0

RETURN

REM handles component rendering
_drawGUI:
   REM GUI
   ink rgb(192,192,192),0
   box 872,0,1024,768

REM draw layers
   for t = 1 to array count(layerObjects())
      i = layerObjects(t).order
      rem if this layer is being moved by the user
      if t = layerFlag
        loy = mousey() - loffsety
      else
         loy = GUI_LAYERS_OFFSET+i*LAYER_HEIGHT
      endif

if i = CURRENT_LAYER
         ink rgb(192,192,255),0
      else
         ink rgb(255,255,255),0
      endif
      box 874,loy+2,1024,loy+LAYER_HEIGHT
      ink 0,0
      text 898,loy+2 + TEXT_OFFSET, layerObjects(t).name

rem checkbox for showing/hiding layer
      ink rgb(128,128,128),0
      box 876,loy+4,896,loy+LAYER_HEIGHT-2

t1 = loy+4
      t2 = loy+LAYER_HEIGHT-2
      if layerObjects(t).isVisible = TRUE
         ink rgb(0,255,0),0
         line 877,t1+LAYER_HEIGHT/2,885,t2-1
         line 885,t2-1, 895,t1+1
      else
         ink rgb(255,0,0),0
         line 877,t1+1,895,t2-1
         line 877,t2-1,895,t1+1
      endif

next t

rem Tools
   a as dword
   b as dword
   for i = 1 to array count(tools())
      if tools(i).active = FALSE
         a = 0xFFFFFF
         b = 0
      else
         a = 0
         b = 0xFFFFFF
      endif
      ink a,0
      box tools(i).x, tools(i).y,tools(i).x+tools(i).size, tools(i).y+1
      box tools(i).x, tools(i).y,tools(i).x+1, tools(i).y+tools(i).size
      ink b,0
      box tools(i).x, tools(i).y+tools(i).size-1,tools(i).x+tools(i).size, tools(i).y+tools(i).size
      box tools(i).x+tools(i).size-1, tools(i).y,tools(i).x+tools(i).size, tools(i).y+tools(i).size
      drawIcon(tools(i).action, tools(i).x, tools(i).y)
   next i

ink 0,0
   rem labels for color sliders
   center text sliders(1).x, 270, "R"
   center text sliders(2).x, 270, "G"
   center text sliders(3).x, 270, "B"
   center text sliders(4).x, 270, "A"

rem divider line under color sliders
   box 872,304,1024,305
   ink rgb(255,255,255),0
   box 872,305,1024,306

ink 0,0
   text 876,308,"Brush Size - "

rem color sample
   ink rgb(sliders(1).value, sliders(2).value, sliders(3).value), 0
   box 874,286,1022,301

RETURN

REM Create a new blank layer
function addLayer2()
   array insert at top layerObjects()
   inc LAYER_INDEX, 1
   l as LAYER_UI
   l.isVisible = TRUE
   l.parentLink = -1
   l.alpha = 255
   l.name = "Layer "+str$(LAYER_INDEX)
   i = array count(layerObjects())
   l.order = i
   l.memblock = i
   layerObjects(i) = l
   CURRENT_LAYER = i
   makeLayerMemblock(i)

endfunction

function addLayer()
   array insert at bottom layerObjects()
   inc LAYER_INDEX, 1
   l as LAYER_UI
   l.isVisible = TRUE
   l.parentLink = -1
   l.alpha = 255
   l.name = "Layer "+str$(LAYER_INDEX)
   i = array count(layerObjects())
   l.order = i
   l.memblock = i
   layerObjects(i) = l
   CURRENT_LAYER = i
   makeLayerMemblock(i)
endfunction

REM
function makeLayerMemblock(index as integer)
   width = 872
   height = 1024
   size = width*height*4 + 12
   make memblock index, size
   write memblock dword index, 0, width
   write memblock dword index, 4, height
   write memblock dword index, 8, 32

make image from memblock index, index
   sprite index,0,0,index
endfunction

REM
function dotMemblockBrush(index as integer, x as integer, y as integer, color as dword, alpha as integer, size as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)

s = size/2
   for px = x-size to x+size
      for py = y-size to y+size
         if px > 0 and px <= width and py > 0 and py <= height
            pos = ((py-1)*width + px - 1)*4 + 12
            write memblock dword index, pos, color
            write memblock byte index, pos+3, alpha
         endif
      next py
   next px

endfunction

REM
function dotMemblock(index as integer, x as integer, y as integer, color as dword, alpha as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)
   pos = ((y-1)*width + x - 1)*4 + 12
   write memblock dword index, pos, color
   write memblock byte index, pos+3, alpha
endfunction

REM determine how to handle each slider.
function _handleSliders(lf)
   for t = 1 to array count(sliders())
      if sliders(t).ui.orientation = SLIDER_HORIZONTAL then _handleSliderHorizontal(t, lf)
      if sliders(t).ui.orientation = SLIDER_VERTICAL then _handleSliderVERTICAL(t, lf)
   next t
endfunction

REM Horizontal Slider
REM handles slider UI and renders the components
function _handleSliderHorizontal(i as integer, lf as integer)
   local ui as sliderComponentUI
   ui = sliders(i).ui
   rem draw track
   ink ui.trackColor,0
   y# = sliders(i).y - ui.trackHeight/2
   box sliders(i).x, y#, sliders(i).x+ui.trackWidth, y#+ui.trackHeight

rem draw thumb
   ink ui.thumbColor,0
   y# = sliders(i).y - ui.thumbHeight/2
   box sliders(i).thumbX, y#, sliders(i).thumbX+ui.thumbWidth, y#+ui.thumbHeight

if lf = FALSE
      rem handle mouse events
      if mouseclick() = 1 and sliders(i).isDragging = 0
         if mousex() >= sliders(i).thumbX and mousex() <= sliders(i).thumbX+ui.thumbWidth
            if mousey() >= y# and mousey() <= y#+ui.thumbHeight
               sliders(i).isDragging = 1
               sliders(i).mOffsetX = sliders(i).thumbX - mousex()
            endif
         endif
      endif
   endif

if sliders(i).isDragging = 1
      sliders(i).thumbX = mousex() + sliders(i).mOffsetX

if sliders(i).thumbX < sliders(i).x then sliders(i).thumbX = sliders(i).x
      if sliders(i).thumbX > (sliders(i).x+ui.trackWidth)-ui.thumbWidth then sliders(i).thumbX = (sliders(i).x+ui.trackWidth)-ui.thumbWidth

rem set slider value
      sliders(i).value = (((sliders(i).max - sliders(i).min) * (sliders(i).thumbX-sliders(i).x)) / (ui.trackWidth-ui.thumbWidth)) + sliders(i).min

endif

rem display current value
   if sliders(i).displayValue = TRUE
      ink 0,0
      `text 924, sliders(i).y-7, str$(int(sliders(i).value))
      text sliders(i).valueX, sliders(i).valueY, str$(int(sliders(i).value))
   endif

if mouseclick() <> 1 then sliders(i).isDragging = 0

endfunction

rem Vertical Slider
function _handleSliderVertical(i as integer, lf as integer)
   local ui as sliderComponentUI
   ui = sliders(i).ui
   rem draw track
   ink ui.trackColor,0
   x# = sliders(i).x - ui.trackWidth/2
   box x#,sliders(i).y,x#+ui.trackWidth,sliders(i).y+ui.trackHeight

rem draw thumb
   ink ui.thumbColor,0
   x# = sliders(i).x - ui.thumbWidth/2
   box x#,sliders(i).thumbY,x#+ui.thumbWidth,sliders(i).thumbY+ui.thumbHeight

if lf = FALSE
      rem handle mouse events
      if mouseclick() = 1 and sliders(i).isDragging = 0
         if mousex() >= x# and mousex() <= x#+ui.thumbWidth
            if mousey() >= sliders(i).thumbY and mousey() <= sliders(i).thumbY+ui.thumbHeight
               sliders(i).isDragging = 1
               sliders(i).mOffsetY = sliders(i).thumbY - mousey()
            endif
         endif
      endif
   endif

if sliders(i).isDragging = 1
      sliders(i).thumbY = mousey() + sliders(i).mOffsetY

if sliders(i).thumbY < sliders(i).y then sliders(i).thumbY = sliders(i).y
      if sliders(i).thumbY > (sliders(i).y+ui.trackHeight)-ui.thumbHeight then sliders(i).thumbY = (sliders(i).y+ui.trackHeight)-ui.thumbHeight

rem set slider value
      sliders(i).value = sliders(i).max - (((sliders(i).max - sliders(i).min) * (sliders(i).thumbY-sliders(i).y)) / (ui.trackHeight-ui.thumbHeight)) + sliders(i).min
   endif

rem display current value
   if sliders(i).displayValue = TRUE
      ink 0,0
      center text sliders(i).valueX, sliders(i).valueY, str$(int(sliders(i).value))
   endif

if mouseclick() <> 1 then sliders(i).isDragging = 0

endfunction

REM
function drawIcon(icon as integer, x as integer, y as integer)
   select icon
      case ACTION_DRAW : _draw_icon_draw(x,y) : endcase
      case ACTION_FILL : _draw_icon_fill(x,y) : endcase
      case ACTION_LINE : _draw_icon_line(x,y) : endcase
      case ACTION_CIRCLE : _draw_icon_circle(x,y) : endcase
      case ACTION_GRADIENT : _draw_icon_gradient(x,y) : endcase
   endselect

endfunction

REM
function _draw_icon_draw(x,y)
   restore pencil
   for a = 0 to 19
      for b = 0 to 19
         read z
         if z <> -1
            ink z,0
            dot x+b,y+a
         endif
      next b
   next a
endfunction

REM
function _draw_icon_gradient(x,y)
   box x+4,y+4,x+16,y+16,rgb(192,192,192),0xFFFFFF,0,rgb(192,192,192)
endfunction

REM
function _draw_icon_fill(x,y)
   ink 0,0
   box x+4,y+4,x+16,y+16
endfunction

REM
function _draw_icon_line(x,y)
   ink 0,0
   line x+3,y+17,x+17,y+3
endfunction

REM
function _draw_icon_circle(x,y)
   ink 0,0
   circle x+10,y+10,7
endfunction

REM draws a line
function bline(x1,y1,x2,y2)
   dx = x2-x1
   dy = y2-y1

dot x1,y1

if abs(dx) > abs(dy)
      m# = (0.0 + dy)/dx
      b# = y1 - m#*x1

if dx < 0
         dx = -1
      else
         dx = 1
      endif
      while x1 <> x2
         x1 = x1 + dx
         dot x1,m#*x1+b#
      endwhile
   else
      if dy <> 0
         m# = (0.0 + dx)/dy
         b# = x1 - m#*y1
         if dy < 0
            dy = -1
         else
            dy = 1
         endif
         while y1 <> y2
            y1 = y1 + dy
            dot m#*y1+b#,y1
         endwhile
      endif
   endif
endfunction

REM
function floodFill(index as integer, x as integer, y as integer, color as dword, alpha as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)
   if x > 0 and x <= width and y > 0 and y <= height
      pos = ((y-1)*width + x - 1)*4 + 12
      tc as dword
      tc = memblock dword(index, pos)
      if tc <> color then _floodFill(index,x,y,x,y,tc,color,alpha,0)
      `if tc <> color then FloodFill2(index, tc, color, x, y)
   endif
endfunction

REM
function _floodFill(index as integer, rx as integer, ry as integer,x as integer, y as integer, targetColor as dword, fillColor as dword, alpha as integer,count as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)

if count > 50000 then exitfunction

rem check bounds
   if x > 0 and x <= width and y > 0 and y <= height
      pos = ((y-1)*width + x - 1)*4 + 12
      temp as dword
      temp = memblock dword(index, pos)
      rem if this point's color equals the target color
      if temp <> targetColor
         exitfunction
      else
         rem color this pixel
         dotMemblock(index, x, y, fillColor,alpha)

inc count

rem branch off
         if x+1 <> rx then _floodFill(index,x,y,x+1,y,targetColor, fillColor,alpha,count)
         if x-1 <> rx then _floodFill(index,x,y,x-1,y,targetColor, fillColor,alpha,count)
         if y+1 <> ry then _floodFill(index,x,y,x,y+1,targetColor, fillColor,alpha,count)
         if y-1 <> ry then _floodFill(index,x,y,x,y-1,targetColor, fillColor,alpha,count)
      endif
   endif

endfunction

REM
function FloodFill2(mem as integer, Base as dword, ForColor as dword, gx as integer, gy as integer)

imgsx = memblock dword(mem, 0)
   imgsy = memblock dword(mem, 4)

`Change this color
      pos = 12 + (((gy*imgsx) + gx)*4)
      `pos = ((gy-1)*imgsx + gx - 1)*4 + 12
      write memblock dword mem, pos, ForColor

`Check for surrounding
      if gx > 0
         if memblock dword(mem, pos - 4) = Base then FloodFill2(mem, Base, ForColor, gx - 1, gy)
      endif
      if gx < imgsx - 1
         if memblock dword(mem, pos + 4) = Base then FloodFill2(mem, Base, ForColor,gx + 1, gy)
      endif
      if gy > 0
         if memblock dword(mem, pos - (imgsx*4)) = Base then FloodFill2(mem, Base, ForColor,gx, gy - 1)
      endif
      if gy < imgsy - 1
         if memblock dword(mem, pos + (imgsx*4)) = Base then FloodFill2(mem, Base, ForColor,gx, gy + 1)
      endif
endfunction

pencil:
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,0,12517376,12517376,12517376,0,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,0,12517376,-1,-1,0,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,0,0,12517376,-1,0,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,0,12636233,0,0,0,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,0,12636233,11649842,10465069,0,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,0,12636233,11649842,0,0,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,0,12636233,11649842,10465069,0,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,0,11649842,10465069,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,12636233,11649842,10465069,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,0,10465069,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1

+ Code Snippet


set display mode 1024,768,32

#CONSTANT TRUE = 1
#CONSTANT FALSE = 0
#CONSTANT SLIDER_HORIZONTAL = 1
#CONSTANT SLIDER_VERTICAL = 2
#CONSTANT GUI_LAYERS_OFFSET = 400
#CONSTANT LAYER_HEIGHT = 25
REM should be a constant, but doing so gives a different result(?)
TEXT_OFFSET = (LAYER_HEIGHT/2 - text height("A")/2)
#CONSTANT ACTION_DRAW = 1
#CONSTANT ACTION_FILL = 2
#CONSTANT ACTION_LINE = 3
#CONSTANT ACTION_CIRCLE = 4
#CONSTANT ACTION_GRADIENT = 5


GLOBAL LAYER_INDEX = 0
GLOBAL CURRENT_LAYER = -1
GLOBAL CURRENT_ACTION = 1

rem
type toolButton
   x as integer
   y as integer
   size as integer
   active as boolean
   action as integer
endtype


rem isVisible = is the layer visible in the workspace
rem parentLink = current drawing layer if this layer is told to link to it (-1 if no link)
rem alpha = alpha transparency amount
rem name = name of this layer
type LAYER_UI
   isVisible as boolean
   parentLink as integer
   alpha as byte
   name as string
   order as byte
   memblock as byte
endtype

rem attributes for common values among all sliders of this type
type sliderComponentUI
   trackWidth as float
   trackHeight as float
   trackColor as dword
   thumbWidth as float
   thumbHeight as float
   thumbColor as dword
   orientation as byte
endtype


rem attributes for unique values for each slider
type sliderComponent
   x as integer
   y as integer
   min as float
   max as float
   value as float
   isDragging as boolean
   mOffsetX as float
   mOffsetY as float
   thumbX as float
   thumbY as float
   valueX as float
   valueY as float
   displayValue as boolean
   ui as sliderComponentUI
endtype

rem array to hold all sliders
dim sliders(5) as SliderComponent

sliderUI as sliderComponentUI
   sliderUI.trackWidth = 2
   sliderUI.trackHeight = 256
   sliderUI.trackColor = 0
   sliderUI.thumbWidth = 10
   sliderUI.thumbHeight = 4
   sliderUI.thumbColor = rgb(128,128,128)
   sliderUI.orientation = SLIDER_VERTICAL

brushSliderUI as sliderComponentUI
   brushSliderUI.trackWidth = 144
   brushSliderUI.trackHeight = 2
   brushSliderUI.trackColor = 0
   brushSliderUI.thumbWidth = 4
   brushSliderUI.thumbHeight = 10
   brushSliderUI.thumbColor = rgb(128,128,128)
   brushSliderUI.orientation = SLIDER_HORIZONTAL

slider as sliderComponent
   slider.x = 886
   slider.y = 14
   slider.min = 0
   slider.max = 255
   slider.value = 255
   slider.thumbX = 956+56
   slider.thumbY = slider.y
   slider.ui = sliderUI
   slider.displayValue = TRUE
   slider.valueX = 886
   slider.valueY = 1

rem color sliders
sliders(1) = slider : slider.x = 922 : slider.valueX = 922
sliders(2) = slider : slider.x = 958 : slider.valueX = 958
sliders(3) = slider : slider.x = 994 : slider.valueX = 994
sliders(4) = slider

rem brush size slider
slider.x = 876
slider.y = 326
slider.min = 1
slider.max = 10
slider.value = 1
slider.thumbX = slider.x
slider.thumbY = slider.y
slider.ui = brushSliderUI
slider.valueX = 978
slider.valueY = 308

sliders(5) = slider


rem array for drawing tools
dim tools(6) as toolButton
tempTool as toolButton
tempTool.x = 876
tempTool.y = 340
tempTool.size = 20
tempTool.active = FALSE
tempTool.action = ACTION_DRAW

tools(1) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = ACTION_LINE
tools(2) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = ACTION_CIRCLE
tools(3) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = ACTION_FILL
tools(4) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = ACTION_GRADIENT
tools(5) = tempTool : tempTool.x = tempTool.x+tempTool.size+4 : tempTool.action = 0
tools(6) = tempTool
tools(1).active = TRUE



rem array of drawing layers
dim layerObjects(0) as LAYER_UI

addLayer()
addLayer()
addLayer()
addLayer()
addLayer()
addLayer()
addLayer()



sync on
backdrop on
color backdrop 0xFFFFFF


color as dword



REPEAT


   if mouseclick() = 0 then drawFlag = 0

   if mousex() > 874
      gosub _handleGUI
   else
      if mouseclick() = 1
         if drawFlag = 0 then start = 0
         drawFlag = 1
      endif
   endif


   if drawFlag = 1
      select CURRENT_ACTION
         case ACTION_DRAW : gosub _drawing : endcase
         case ACTION_FILL : gosub _flood : endcase
         case ACTION_LINE : gosub _line : endcase
         `case ACTION_CIRCLE : gosub _circle : endcase
        ` case ACTION_GRADIENT : gosub _gradient_fill : endcase
      endselect
   endif


   gosub _drawGUI

   _handleSliders(layerFlag)

   rem draw layers
   for i = 1 to array count(layerObjects())
      img = layerObjects(i).memblock
      if layerObjects(i).isVisible = TRUE
         show sprite img
         `sprite img,0,0,img
         set sprite alpha img, layerObjects(i).alpha
         set sprite priority img, 10-layerObjects(i).order
      else
         hide sprite img
      endif
   next i


   sync
UNTIL spacekey()
end


REM draw a line
_line:
   if start = 0
      start = 1
      lx1 = mousex()
      ly1 = mousey()
   endif

   if start = 1
      lx2 = mousex()
      ly2 = mousey()
   endif

   ink 0,0
   line lx1,ly1,lx2,ly2

RETURN


REM flood fill (paint bucket)
_flood:
   color = rgb(sliders(1).value, sliders(2).value, sliders(3).value)
   floodFill(layerObjects(CURRENT_LAYER).memblock, mousex(), mousey(), color,sliders(4).value)
   make image from memblock layerObjects(CURRENT_LAYER).memblock, layerObjects(CURRENT_LAYER).memblock
RETURN



REM handles drawing functions (with pencil tool)
_drawing:
   if layerObjects(CURRENT_LAYER).isVisible = TRUE
      if mousex() > 0 and mousey() > 0 and mousex() <= 874 and mousey() <= 1024

         color = rgb(sliders(1).value, sliders(2).value, sliders(3).value)

         dotMemblockBrush(layerObjects(CURRENT_LAYER).memblock, mousex()+1, mousey()+1, color, sliders(4).value, sliders(5).value-1)
         `dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex()+1, mousey()+1, color, sliders(4).value)

         make image from memblock layerObjects(CURRENT_LAYER).memblock, layerObjects(CURRENT_LAYER).memblock
      endif
   endif
RETURN



REM handles the GUI functions
_handleGUI:

   REM handle reordering of the layers

   for i = 1 to array count(layerObjects())
      t = layerObjects(i).order
      if mousex() > 898 or layerFlag > 0
         if mouseclick() = 1 and layerFlag = 0
            if mousex() > 898 and mousex() < 1024 and mousey() > (GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+2) and mousey() < (GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+LAYER_HEIGHT)
               layerFlag = i
               CURRENT_LAYER = i
               loffsety = mousey() - (GUI_LAYERS_OFFSET+t*LAYER_HEIGHT+2)
            endif
         endif

         if layerFlag > 0
            if mouseclick() = 1
               rem if user moves layer above an existing layer
               if mousey() < GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+LAYER_HEIGHT
                  if layerObjects(layerFlag).order > layerObjects(i).order
                     order = layerObjects(i).order
                     layerObjects(i).order = layerObjects(layerFlag).order
                     layerObjects(layerFlag).order = order
                     `CURRENT_LAYER = order
                  endif
               endif

               rem if user moves layer below an existing layer
               if mousey() > GUI_LAYERS_OFFSET+(layerObjects(layerFlag).order*LAYER_HEIGHT)+LAYER_HEIGHT
                  if layerObjects(layerFlag).order < layerObjects(i).order
                     order = layerObjects(i).order
                     layerObjects(i).order = layerObjects(layerFlag).order
                     layerObjects(layerFlag).order = order
                     `CURRENT_LAYER = order
                  endif
               endif
            endif
         endif
      endif

      if mousex() > 876 and mousex() < 896 and  mousey() > (GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+3) and mousey() < (GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+LAYER_HEIGHT)-1
         if mouseclick() = 1 and visibleFlag = 0
            visibleFlag = 1
            if layerObjects(i).isVisible = TRUE : layerObjects(i).isVisible = FALSE : else : layerObjects(i).isVisible = TRUE : endif
         endif
      endif
   next i

   if mouseclick() = 1 and toolFlag = 0 and layerFlag = 0
      toolFlag = 1
      for i = 1 to array count(tools())
         if mousex() > tools(i).x and mousex() < tools(i).x+tools(i).size and mousey() > tools(i).y and mousey() < tools(i).y+tools(i).size
            rem reset all tool states
            for t = 1 to array count(tools())
               tools(t).active = FALSE
            next t
            tools(i).active = TRUE
            CURRENT_ACTION = tools(i).action
            break
         endif
      next i
   endif

   if mouseclick() <> 1 then layerFlag = 0 : visibleFlag = 0 : toolFlag = 0


RETURN


REM handles component rendering
_drawGUI:
   REM GUI
   ink rgb(192,192,192),0
   box 872,0,1024,768

   REM draw layers
   for t = 1 to array count(layerObjects())
      i = layerObjects(t).order
      rem if this layer is being moved by the user
      if t = layerFlag
        loy = mousey() - loffsety
      else
         loy = GUI_LAYERS_OFFSET+i*LAYER_HEIGHT
      endif

      if i = CURRENT_LAYER
         ink rgb(192,192,255),0
      else
         ink rgb(255,255,255),0
      endif
      box 874,loy+2,1024,loy+LAYER_HEIGHT
      ink 0,0
      text 898,loy+2 + TEXT_OFFSET, layerObjects(t).name

      rem checkbox for showing/hiding layer
      ink rgb(128,128,128),0
      box 876,loy+4,896,loy+LAYER_HEIGHT-2

      t1 = loy+4
      t2 = loy+LAYER_HEIGHT-2
      if layerObjects(t).isVisible = TRUE
         ink rgb(0,255,0),0
         line 877,t1+LAYER_HEIGHT/2,885,t2-1
         line 885,t2-1, 895,t1+1
      else
         ink rgb(255,0,0),0
         line 877,t1+1,895,t2-1
         line 877,t2-1,895,t1+1
      endif

   next t


   rem Tools
   a as dword
   b as dword
   for i = 1 to array count(tools())
      if tools(i).active = FALSE
         a = 0xFFFFFF
         b = 0
      else
         a = 0
         b = 0xFFFFFF
      endif
      ink a,0
      box tools(i).x, tools(i).y,tools(i).x+tools(i).size, tools(i).y+1
      box tools(i).x, tools(i).y,tools(i).x+1, tools(i).y+tools(i).size
      ink b,0
      box tools(i).x, tools(i).y+tools(i).size-1,tools(i).x+tools(i).size, tools(i).y+tools(i).size
      box tools(i).x+tools(i).size-1, tools(i).y,tools(i).x+tools(i).size, tools(i).y+tools(i).size
      drawIcon(tools(i).action, tools(i).x, tools(i).y)
   next i



   ink 0,0
   rem labels for color sliders
   center text sliders(1).x, 270, "R"
   center text sliders(2).x, 270, "G"
   center text sliders(3).x, 270, "B"
   center text sliders(4).x, 270, "A"

   rem divider line under color sliders
   box 872,304,1024,305
   ink rgb(255,255,255),0
   box 872,305,1024,306

   ink 0,0
   text 876,308,"Brush Size - "

   rem color sample
   ink rgb(sliders(1).value, sliders(2).value, sliders(3).value), 0
   box 874,286,1022,301




RETURN



REM Create a new blank layer
function addLayer2()
   array insert at top layerObjects()
   inc LAYER_INDEX, 1
   l as LAYER_UI
   l.isVisible = TRUE
   l.parentLink = -1
   l.alpha = 255
   l.name = "Layer "+str$(LAYER_INDEX)
   i = array count(layerObjects())
   l.order = i
   l.memblock = i
   layerObjects(i) = l
   CURRENT_LAYER = i
   makeLayerMemblock(i)

endfunction

function addLayer()
   array insert at bottom layerObjects()
   inc LAYER_INDEX, 1
   l as LAYER_UI
   l.isVisible = TRUE
   l.parentLink = -1
   l.alpha = 255
   l.name = "Layer "+str$(LAYER_INDEX)
   i = array count(layerObjects())
   l.order = i
   l.memblock = i
   layerObjects(i) = l
   CURRENT_LAYER = i
   makeLayerMemblock(i)
endfunction



REM
function makeLayerMemblock(index as integer)
   width = 872
   height = 1024
   size = width*height*4 + 12
   make memblock index, size
   write memblock dword index, 0, width
   write memblock dword index, 4, height
   write memblock dword index, 8, 32

   make image from memblock index, index
   sprite index,0,0,index
endfunction


REM
function dotMemblockBrush(index as integer, x as integer, y as integer, color as dword, alpha as integer, size as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)

   s = size/2
   for px = x-size to x+size
      for py = y-size to y+size
         if px > 0 and px <= width and py > 0 and py <= height
            pos = ((py-1)*width + px - 1)*4 + 12
            write memblock dword index, pos, color
            write memblock byte index, pos+3, alpha
         endif
      next py
   next px

endfunction


REM
function dotMemblock(index as integer, x as integer, y as integer, color as dword, alpha as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)
   pos = ((y-1)*width + x - 1)*4 + 12
   write memblock dword index, pos, color
   write memblock byte index, pos+3, alpha
endfunction



REM determine how to handle each slider.
function _handleSliders(lf)
   for t = 1 to array count(sliders())
      if sliders(t).ui.orientation = SLIDER_HORIZONTAL then _handleSliderHorizontal(t, lf)
      if sliders(t).ui.orientation = SLIDER_VERTICAL then _handleSliderVERTICAL(t, lf)
   next t
endfunction


REM Horizontal Slider
REM handles slider UI and renders the components
function _handleSliderHorizontal(i as integer, lf as integer)
   local ui as sliderComponentUI
   ui = sliders(i).ui
   rem draw track
   ink ui.trackColor,0
   y# = sliders(i).y - ui.trackHeight/2
   box sliders(i).x, y#, sliders(i).x+ui.trackWidth, y#+ui.trackHeight

   rem draw thumb
   ink ui.thumbColor,0
   y# = sliders(i).y - ui.thumbHeight/2
   box sliders(i).thumbX, y#, sliders(i).thumbX+ui.thumbWidth, y#+ui.thumbHeight



   if lf = FALSE
      rem handle mouse events
      if mouseclick() = 1 and sliders(i).isDragging = 0
         if mousex() >= sliders(i).thumbX and mousex() <= sliders(i).thumbX+ui.thumbWidth
            if mousey() >= y# and mousey() <= y#+ui.thumbHeight
               sliders(i).isDragging = 1
               sliders(i).mOffsetX = sliders(i).thumbX - mousex()
            endif
         endif
      endif
   endif

   if sliders(i).isDragging = 1
      sliders(i).thumbX = mousex() + sliders(i).mOffsetX

      if sliders(i).thumbX < sliders(i).x then sliders(i).thumbX = sliders(i).x
      if sliders(i).thumbX > (sliders(i).x+ui.trackWidth)-ui.thumbWidth then sliders(i).thumbX = (sliders(i).x+ui.trackWidth)-ui.thumbWidth

      rem set slider value
      sliders(i).value = (((sliders(i).max - sliders(i).min) * (sliders(i).thumbX-sliders(i).x)) / (ui.trackWidth-ui.thumbWidth)) + sliders(i).min

   endif

   rem display current value
   if sliders(i).displayValue = TRUE
      ink 0,0
      `text 924, sliders(i).y-7, str$(int(sliders(i).value))
      text sliders(i).valueX, sliders(i).valueY, str$(int(sliders(i).value))
   endif

   if mouseclick() <> 1 then sliders(i).isDragging = 0

endfunction




rem Vertical Slider
function _handleSliderVertical(i as integer, lf as integer)
   local ui as sliderComponentUI
   ui = sliders(i).ui
   rem draw track
   ink ui.trackColor,0
   x# = sliders(i).x - ui.trackWidth/2
   box x#,sliders(i).y,x#+ui.trackWidth,sliders(i).y+ui.trackHeight

   rem draw thumb
   ink ui.thumbColor,0
   x# = sliders(i).x - ui.thumbWidth/2
   box x#,sliders(i).thumbY,x#+ui.thumbWidth,sliders(i).thumbY+ui.thumbHeight


   if lf = FALSE
      rem handle mouse events
      if mouseclick() = 1 and sliders(i).isDragging = 0
         if mousex() >= x# and mousex() <= x#+ui.thumbWidth
            if mousey() >= sliders(i).thumbY and mousey() <= sliders(i).thumbY+ui.thumbHeight
               sliders(i).isDragging = 1
               sliders(i).mOffsetY = sliders(i).thumbY - mousey()
            endif
         endif
      endif
   endif

   if sliders(i).isDragging = 1
      sliders(i).thumbY = mousey() + sliders(i).mOffsetY

      if sliders(i).thumbY < sliders(i).y then sliders(i).thumbY = sliders(i).y
      if sliders(i).thumbY > (sliders(i).y+ui.trackHeight)-ui.thumbHeight then sliders(i).thumbY = (sliders(i).y+ui.trackHeight)-ui.thumbHeight

      rem set slider value
      sliders(i).value = sliders(i).max - (((sliders(i).max - sliders(i).min) * (sliders(i).thumbY-sliders(i).y)) / (ui.trackHeight-ui.thumbHeight)) + sliders(i).min
   endif

   rem display current value
   if sliders(i).displayValue = TRUE
      ink 0,0
      center text sliders(i).valueX, sliders(i).valueY, str$(int(sliders(i).value))
   endif

   if mouseclick() <> 1 then sliders(i).isDragging = 0

endfunction


REM
function drawIcon(icon as integer, x as integer, y as integer)
   select icon
      case ACTION_DRAW : _draw_icon_draw(x,y) : endcase
      case ACTION_FILL : _draw_icon_fill(x,y) : endcase
      case ACTION_LINE : _draw_icon_line(x,y) : endcase
      case ACTION_CIRCLE : _draw_icon_circle(x,y) : endcase
      case ACTION_GRADIENT : _draw_icon_gradient(x,y) : endcase
   endselect

endfunction


REM
function _draw_icon_draw(x,y)
   restore pencil
   for a = 0 to 19
      for b = 0 to 19
         read z
         if z <> -1
            ink z,0
            dot x+b,y+a
         endif
      next b
   next a
endfunction


REM
function _draw_icon_gradient(x,y)
   box x+4,y+4,x+16,y+16,rgb(192,192,192),0xFFFFFF,0,rgb(192,192,192)
endfunction


REM
function _draw_icon_fill(x,y)
   ink 0,0
   box x+4,y+4,x+16,y+16
endfunction


REM
function _draw_icon_line(x,y)
   ink 0,0
   line x+3,y+17,x+17,y+3
endfunction


REM
function _draw_icon_circle(x,y)
   ink 0,0
   circle x+10,y+10,7
endfunction


REM draws a line
function bline(x1,y1,x2,y2)
   dx = x2-x1
   dy = y2-y1

   dot x1,y1

   if abs(dx) > abs(dy)
      m# = (0.0 + dy)/dx
      b# = y1 - m#*x1

      if dx < 0
         dx = -1
      else
         dx = 1
      endif
      while x1 <> x2
         x1 = x1 + dx
         dot x1,m#*x1+b#
      endwhile
   else
      if dy <> 0
         m# = (0.0 + dx)/dy
         b# = x1 - m#*y1
         if dy < 0
            dy = -1
         else
            dy = 1
         endif
         while y1 <> y2
            y1 = y1 + dy
            dot m#*y1+b#,y1
         endwhile
      endif
   endif
endfunction


REM
function floodFill(index as integer, x as integer, y as integer, color as dword, alpha as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)
   if x > 0 and x <= width and y > 0 and y <= height
      pos = ((y-1)*width + x - 1)*4 + 12
      tc as dword
      tc = memblock dword(index, pos)
      if tc <> color then _floodFill(index,x,y,x,y,tc,color,alpha,0)
      `if tc <> color then FloodFill2(index, tc, color, x, y)
   endif
endfunction



REM
function _floodFill(index as integer, rx as integer, ry as integer,x as integer, y as integer, targetColor as dword, fillColor as dword, alpha as integer,count as integer)
   width = memblock dword(index, 0)
   height = memblock dword(index, 4)

   if count > 50000 then exitfunction

   rem check bounds
   if x > 0 and x <= width and y > 0 and y <= height
      pos = ((y-1)*width + x - 1)*4 + 12
      temp as dword
      temp = memblock dword(index, pos)
      rem if this point's color equals the target color
      if temp <> targetColor
         exitfunction
      else
         rem color this pixel
         dotMemblock(index, x, y, fillColor,alpha)

         inc count

         rem branch off
         if x+1 <> rx then _floodFill(index,x,y,x+1,y,targetColor, fillColor,alpha,count)
         if x-1 <> rx then _floodFill(index,x,y,x-1,y,targetColor, fillColor,alpha,count)
         if y+1 <> ry then _floodFill(index,x,y,x,y+1,targetColor, fillColor,alpha,count)
         if y-1 <> ry then _floodFill(index,x,y,x,y-1,targetColor, fillColor,alpha,count)
      endif
   endif

endfunction


REM
function FloodFill2(mem as integer, Base as dword, ForColor as dword, gx as integer, gy as integer)

   imgsx = memblock dword(mem, 0)
   imgsy = memblock dword(mem, 4)

      `Change this color
      pos = 12 + (((gy*imgsx) + gx)*4)
      `pos = ((gy-1)*imgsx + gx - 1)*4 + 12
      write memblock dword mem, pos, ForColor

      `Check for surrounding
      if gx > 0
         if memblock dword(mem, pos - 4) = Base then FloodFill2(mem, Base, ForColor, gx - 1, gy)
      endif
      if gx < imgsx - 1
         if memblock dword(mem, pos + 4) = Base then FloodFill2(mem, Base, ForColor,gx + 1, gy)
      endif
      if gy > 0
         if memblock dword(mem, pos - (imgsx*4)) = Base then FloodFill2(mem, Base, ForColor,gx, gy - 1)
      endif
      if gy < imgsy - 1
         if memblock dword(mem, pos + (imgsx*4)) = Base then FloodFill2(mem, Base, ForColor,gx, gy + 1)
      endif
endfunction



pencil:
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,0,12517376,12517376,12517376,0,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,0,12517376,-1,-1,0,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,0,0,12517376,-1,0,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,0,12636233,0,0,0,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,0,12636233,11649842,10465069,0,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,0,12636233,11649842,0,0,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,0,12636233,11649842,10465069,0,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,0,11649842,10465069,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,12636233,11649842,10465069,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,0,10465069,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
data -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1

"Using Unix is the computing equivalent of listening only to music by David Cassidy" - Rob Pike

Back to top

Profile PM Email Website

Hobgoblin Lord

20

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 3rd Jul 2006 22:49 Edited at: 3rd Jul 2006 22:50

Link

Got my flood fill working 100% now. The problem I found was not with the point command but making a white box with the box command. it was not actually all the same color. by setting my initial canvas with the dot command they all now have the same base value. Here is my updated code and a screenie showing a pretty complex (lotsa nooks and crannies) shape I filled out pretty quick.

sync on
set display mode 800,600,32
dim color(11,15) as dword

undo_level=10

type imagepoint
   xpos as integer
   ypos as integer
endtype

dim color_check(-1) as imagepoint
global draw_mode as string

draw_mode="pencil"

for a = 0 to 11
for b = 0 to 15
read color(a,b)
next b
next a

for rr = 1 to 2
create bitmap 1,20,20
for a = 0 to 19
for b = 0 to 19
read x
ink x,0
dot b,a
next b:next a
get image rr,0,0,19,19,1
delete bitmap 1
next rr

ink rgb(212,209,201),0
box 0,0,165,screen height()
ink rgb(255,255,255),0
box 2,2,161,121
lock pixels

for a = 170 to screen width()-5
for b = 5 to screen height()-5
dot a,b
next b
next a
unlock pixels
for a = 0 to 11
for b = 0 to 15
ink color(a,b),0
box b*10+2,a*10+2,b*10+11,a*10+11
next b
next a

drawing=1
do
ink rgb(255,255,255),0
box 5,400,100,430

ink rgb(212,209,201),0
for a = 0 to 1
   box 4+a*25,219,25+a*25,240
next a
text 6,401,str$(point(mousex(),mousey()))

ink 0,0
select draw_mode
   case "pencil"
      box 4,219,25,240
   endcase
   case "flood"
      box 29,219,50,240
   endcase
endselect

paste image 1,5,220
paste image 2,30,220
ink color5,0
box 2,170,32,200

mx=mousex():my=mousey()
ucm=mouseclick()
if drawing=1 and ucm=0
   drawing=0
   inc undo_level
   if undo_level>30
      shift_undo()
      undo_level=30
   endif
   get image undo_level,170,5,screen width()-5,screen height()-5,1

endif

if mx>169 and mx<screen width()-4 and my>4 and my<screen height()-4 and ucm=1
   if draw_mode="pencil"
      if drawing=1 then line oldmx,oldmy,mx,my
      dot mx,my
      oldmx=mx:oldmy=my:drawing=1
   endif

if draw_mode="flood"
      color_test=point(mx,my)
      flood(mx,my,color5,color_test)
      drawing=1
      repeat
      until mouseclick()=0
   endif

endif

if ucm=2
      color5=point(mousex(),mousey())
      ink color5,0
   endif

test_buttons()

if keystate(29)=1 and keystate(44)=1 and undo_level>10 and image exist(undo_level-1)
   paste image undo_level-1,170,5
   dec undo_level
   delete image undo_level+1
   repeat
   until scancode()=0
endif

sync
loop

`palette
data 16777215,5063201,4672801,3624225,2575649,2182444,2182460,2182476,2178381,2174285,2498893,3613005,4661581,5054786,5054770,5054754
data 5713687,5719831,5199639,3626775,2053911,1529638,1529663,1529687,1523799,1517399,1972055,3544919,5183319,5707592,5707568,5707544
data 6433804,6441996,5792268,3629580,1532428,811553,811585,811618,803426,795234,1444962,3542114,5639266,6425678,6425645,6425613
data 7153921,7164417,6319361,3632385,1010945,93467,93508,93548,83309,73069,917869,3539309,6160749,7143763,7143723,7143683
data 10052419,10060611,9410883,7248195,5151043,4430168,4430200,4430233,4422041,4413849,5063577,7160729,9257881,10044293,10044260,10044228
data 11492909,11505197,10465069,7253805,4108077,2993997,2994045,2994094,2981807,2969519,3943855,7155119,10300847,11480464,11480416,11480367
data 12867608,12884248,11519000,3064856,7324696,1623106,1623171,1623235,1607108,1590468,2889924,7084228,11344068,12851355,12851291,12851226
data 14308098,14328834,12573186,7330306,2021890,186935,187016,187096,166874,146138,1770202,7078618,12321498,14287527,14287446,14287365
data 14325872,14335856,13490800,10869360,8313456,7395978,7396018,7396057,7386074,7375834,8155354,10776794,13332698,14315713,14315673,14315634
data 15504222,15517790,14347358,10873950,7466078,6220929,6220982,6221035,6207724,6194156,7298796,10772204,14180076,15490762,15490709,15490656
data 16617293,16634189,15269197,10943821,6618445,5111160,5111226,5111292,5094653,5077757,6376957,10702333,15027709,16600531,16600465,16600399
data 12566463,11711154,10921638,10066329,9211020,8421504,7566195,6710886,5855577,5000268,4210752,3355443,2500134,1710618,855309,0

`penciltool
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,0,0,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12517376,12517376,12517376,0,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,12517376,16777215,16777215,0,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,12517376,16777215,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12636233,0,0,0,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12636233,11649842,10465069,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,12636233,11649842,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,0,12636233,11649842,10465069,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,0,11649842,10465069,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,12636233,11649842,10465069,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,0,10465069,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,0,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080

`Fill Tool

data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,4193787,4193787,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,4193787,16777215,4193787,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,11344068,11344068,9704872,16777215,4193787,16777215,16777215,16777215,4193787,4193787,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,11344068,9704872,9704872,12632256,175274,16777215,16777215,16777215,4193787,16777215,16777215,4193787,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,11344068,9704872,9704872,12632256,175274,11344068,11344068,11344068,175274,11344068,11344068,0,0,4193787,13947080,16777215,13947080,16777215
data 16777215,13947080,11344068,9704872,12632256,175274,11344068,11344068,11344068,175274,11344068,11344068,0,0,0,0,4193787,13947080,16777215,13947080
data 13947080,16777215,11344068,9704872,12632256,175274,175274,11344068,175274,11344068,11344068,0,0,0,0,0,9704872,4193787,13947080,16777215
data 16777215,13947080,11344068,9704872,9704872,13947080,16777215,175274,11344068,11344068,0,0,0,0,0,11344068,9704872,4193787,16777215,13947080
data 13947080,16777215,11344068,11344068,9704872,16777215,13947080,175274,11344068,0,0,0,0,0,11344068,9704872,175274,16777215,13947080,16777215
data 16777215,13947080,11344068,11344068,9704872,13947080,16777215,13947080,175274,0,0,0,0,11344068,9704872,175274,16777215,13947080,16777215,13947080
data 13947080,16777215,11344068,11344068,9704872,16777215,13947080,16777215,13947080,175274,0,0,11344068,9704872,175274,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,11344068,9704872,13947080,16777215,13947080,16777215,13947080,175274,9704872,9704872,175274,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,11344068,9704872,16777215,13947080,16777215,13947080,16777215,13947080,175274,175274,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,9704872,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080

function test_buttons()
mx=mousex():my=mousey():ucm=mouseclick()
if mx>=5 and mx<=25 and my>=220 and my<=240 and ucm=1 then draw_mode="pencil"
if mx>=30 and mx<=50 and my>=220 and my<=240 and ucm=1 then draw_mode="flood"

endfunction

function shift_undo()
for a = 11 to 30
   make memblock from image a,a
next a
for a=11 to 29
   make image from memblock a,a+1
   delete memblock a+1
next a
endfunction

function flood(xpos,ypos,new,old)

array insert at top color_check()
color_check(0).xpos=xpos
color_check(0).ypos=ypos
lock pixels
ink new,0
dot xpos,ypos

repeat
   for a = array count(color_check()) to 0 step -1
      curx=color_check(a).xpos
      cury=color_check(a).ypos
      edge_reached=0

if point(curx-1,cury)=old
         dot curx-1,cury
         array insert at bottom color_check()
         color_check(array count(color_check())).xpos=curx-1
         color_check(array count(color_check())).ypos=cury
      else
         inc edge_reached
      endif

if point(curx+1,cury)=old
         dot curx+1,cury
         array insert at bottom color_check()
         color_check(array count(color_check())).xpos=curx+1
         color_check(array count(color_check())).ypos=cury
      else
         inc edge_reached
      endif

if point(curx,cury-1)=old
         dot curx,cury-1
         array insert at bottom color_check()
         color_check(array count(color_check())).xpos=curx
         color_check(array count(color_check())).ypos=cury-1
      else
         inc edge_reached
      endif

if point(curx,cury+1)=old
         dot curx,cury+1
         array insert at bottom color_check()
         color_check(array count(color_check())).xpos=curx
         color_check(array count(color_check())).ypos=cury+1
      else
         inc edge_reached
      endif

if edge_reached=4
         array delete element color_check(),a
      endif
   next a

until array count(color_check())<0
unlock pixels
endfunction

+ Code Snippet

sync on
set display mode 800,600,32
dim color(11,15) as dword

undo_level=10

type imagepoint
   xpos as integer
   ypos as integer
endtype

dim color_check(-1) as imagepoint
global draw_mode as string

draw_mode="pencil"




for a = 0 to 11
for b = 0 to 15
read color(a,b)
next b
next a

for rr = 1 to 2
create bitmap 1,20,20
for a = 0 to 19
for b = 0 to 19
read x
ink x,0
dot b,a
next b:next a
get image rr,0,0,19,19,1
delete bitmap 1
next rr



ink rgb(212,209,201),0
box 0,0,165,screen height()
ink rgb(255,255,255),0
box 2,2,161,121
lock pixels

for a = 170 to screen width()-5
for b = 5 to screen height()-5
dot a,b
next b
next a
unlock pixels
for a = 0 to 11
for b = 0 to 15
ink color(a,b),0
box b*10+2,a*10+2,b*10+11,a*10+11
next b
next a





drawing=1
do
ink rgb(255,255,255),0
box 5,400,100,430

ink rgb(212,209,201),0
for a = 0 to 1
   box 4+a*25,219,25+a*25,240
next a
text 6,401,str$(point(mousex(),mousey()))





ink 0,0
select draw_mode
   case "pencil"
      box 4,219,25,240
   endcase
   case "flood"
      box 29,219,50,240
   endcase
endselect

paste image 1,5,220
paste image 2,30,220
ink color5,0
box 2,170,32,200

mx=mousex():my=mousey()
ucm=mouseclick()
if drawing=1 and ucm=0
   drawing=0
   inc undo_level
   if undo_level>30
      shift_undo()
      undo_level=30
   endif
   get image undo_level,170,5,screen width()-5,screen height()-5,1

endif


if mx>169 and mx<screen width()-4 and my>4 and my<screen height()-4 and ucm=1
   if draw_mode="pencil"
      if drawing=1 then line oldmx,oldmy,mx,my
      dot mx,my
      oldmx=mx:oldmy=my:drawing=1
   endif

   if draw_mode="flood"
      color_test=point(mx,my)
      flood(mx,my,color5,color_test)
      drawing=1
      repeat
      until mouseclick()=0
   endif

endif

if ucm=2
      color5=point(mousex(),mousey())
      ink color5,0
   endif

test_buttons()





if keystate(29)=1 and keystate(44)=1 and undo_level>10 and image exist(undo_level-1)
   paste image undo_level-1,170,5
   dec undo_level
   delete image undo_level+1
   repeat
   until scancode()=0
endif

sync
loop

`palette
data 16777215,5063201,4672801,3624225,2575649,2182444,2182460,2182476,2178381,2174285,2498893,3613005,4661581,5054786,5054770,5054754
data 5713687,5719831,5199639,3626775,2053911,1529638,1529663,1529687,1523799,1517399,1972055,3544919,5183319,5707592,5707568,5707544
data 6433804,6441996,5792268,3629580,1532428,811553,811585,811618,803426,795234,1444962,3542114,5639266,6425678,6425645,6425613
data 7153921,7164417,6319361,3632385,1010945,93467,93508,93548,83309,73069,917869,3539309,6160749,7143763,7143723,7143683
data 10052419,10060611,9410883,7248195,5151043,4430168,4430200,4430233,4422041,4413849,5063577,7160729,9257881,10044293,10044260,10044228
data 11492909,11505197,10465069,7253805,4108077,2993997,2994045,2994094,2981807,2969519,3943855,7155119,10300847,11480464,11480416,11480367
data 12867608,12884248,11519000,3064856,7324696,1623106,1623171,1623235,1607108,1590468,2889924,7084228,11344068,12851355,12851291,12851226
data 14308098,14328834,12573186,7330306,2021890,186935,187016,187096,166874,146138,1770202,7078618,12321498,14287527,14287446,14287365
data 14325872,14335856,13490800,10869360,8313456,7395978,7396018,7396057,7386074,7375834,8155354,10776794,13332698,14315713,14315673,14315634
data 15504222,15517790,14347358,10873950,7466078,6220929,6220982,6221035,6207724,6194156,7298796,10772204,14180076,15490762,15490709,15490656
data 16617293,16634189,15269197,10943821,6618445,5111160,5111226,5111292,5094653,5077757,6376957,10702333,15027709,16600531,16600465,16600399
data 12566463,11711154,10921638,10066329,9211020,8421504,7566195,6710886,5855577,5000268,4210752,3355443,2500134,1710618,855309,0

`penciltool
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,0,0,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12517376,12517376,12517376,0,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,12517376,16777215,16777215,0,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,12517376,16777215,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12636233,0,0,0,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12636233,11649842,10465069,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,12636233,11649842,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,0,12636233,11649842,10465069,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,0,11649842,10465069,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,12636233,11649842,10465069,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,0,10465069,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,0,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080


`Fill Tool

data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,4193787,4193787,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,4193787,16777215,4193787,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,11344068,11344068,9704872,16777215,4193787,16777215,16777215,16777215,4193787,4193787,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,11344068,9704872,9704872,12632256,175274,16777215,16777215,16777215,4193787,16777215,16777215,4193787,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,11344068,9704872,9704872,12632256,175274,11344068,11344068,11344068,175274,11344068,11344068,0,0,4193787,13947080,16777215,13947080,16777215
data 16777215,13947080,11344068,9704872,12632256,175274,11344068,11344068,11344068,175274,11344068,11344068,0,0,0,0,4193787,13947080,16777215,13947080
data 13947080,16777215,11344068,9704872,12632256,175274,175274,11344068,175274,11344068,11344068,0,0,0,0,0,9704872,4193787,13947080,16777215
data 16777215,13947080,11344068,9704872,9704872,13947080,16777215,175274,11344068,11344068,0,0,0,0,0,11344068,9704872,4193787,16777215,13947080
data 13947080,16777215,11344068,11344068,9704872,16777215,13947080,175274,11344068,0,0,0,0,0,11344068,9704872,175274,16777215,13947080,16777215
data 16777215,13947080,11344068,11344068,9704872,13947080,16777215,13947080,175274,0,0,0,0,11344068,9704872,175274,16777215,13947080,16777215,13947080
data 13947080,16777215,11344068,11344068,9704872,16777215,13947080,16777215,13947080,175274,0,0,11344068,9704872,175274,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,11344068,9704872,13947080,16777215,13947080,16777215,13947080,175274,9704872,9704872,175274,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,11344068,9704872,16777215,13947080,16777215,13947080,16777215,13947080,175274,175274,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,9704872,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080

function test_buttons()
mx=mousex():my=mousey():ucm=mouseclick()
if mx>=5 and mx<=25 and my>=220 and my<=240 and ucm=1 then draw_mode="pencil"
if mx>=30 and mx<=50 and my>=220 and my<=240 and ucm=1 then draw_mode="flood"

endfunction



function shift_undo()
for a = 11 to 30
   make memblock from image a,a
next a
for a=11 to 29
   make image from memblock a,a+1
   delete memblock a+1
next a
endfunction

function flood(xpos,ypos,new,old)

array insert at top color_check()
color_check(0).xpos=xpos
color_check(0).ypos=ypos
lock pixels
ink new,0
dot xpos,ypos

repeat
   for a = array count(color_check()) to 0 step -1
      curx=color_check(a).xpos
      cury=color_check(a).ypos
      edge_reached=0

      if point(curx-1,cury)=old
         dot curx-1,cury
         array insert at bottom color_check()
         color_check(array count(color_check())).xpos=curx-1
         color_check(array count(color_check())).ypos=cury
      else
         inc edge_reached
      endif

      if point(curx+1,cury)=old
         dot curx+1,cury
         array insert at bottom color_check()
         color_check(array count(color_check())).xpos=curx+1
         color_check(array count(color_check())).ypos=cury
      else
         inc edge_reached
      endif

      if point(curx,cury-1)=old
         dot curx,cury-1
         array insert at bottom color_check()
         color_check(array count(color_check())).xpos=curx
         color_check(array count(color_check())).ypos=cury-1
      else
         inc edge_reached
      endif

      if point(curx,cury+1)=old
         dot curx,cury+1
         array insert at bottom color_check()
         color_check(array count(color_check())).xpos=curx
         color_check(array count(color_check())).ypos=cury+1
      else
         inc edge_reached
      endif

      if edge_reached=4
         array delete element color_check(),a
      endif
   next a


until array count(color_check())<0
unlock pixels
endfunction

http://www.cafepress.com/blackarrowgames
Check out my great stuff here

Back to top

Profile PM Email Website

Hobgoblin Lord

20

Years of Service

User Offline

Joined: 29th Oct 2005

Location: Fall River, MA USA

Posted: 4th Jul 2006 01:12 Edited at: 4th Jul 2006 01:13

Link

Have added in spray can and starting to add adjustable brushes. You can adjust the spray size at the moment but not the pencil tool.

I finally made an image that looks a little like a drawing

sync on
set display mode 800,600,32
dim color(11,15) as dword

undo_level=10

type imagepoint
   xpos as integer
   ypos as integer
endtype

dim color_check(-1) as imagepoint
global draw_mode as string
global spray_size=12
global brush_size=1

draw_mode="spray"

for a = 0 to 11
for b = 0 to 15
read color(a,b)
next b
next a

for rr = 1 to 3
create bitmap 1,20,20
for a = 0 to 19
for b = 0 to 19
read x
ink x,0
dot b,a
next b:next a
get image rr,0,0,19,19,1
delete bitmap 1
next rr

for rr = 1 to 2
create bitmap 1,10,10
for a = 0 to 9
for b = 0 to 9
read x
ink x,0
dot b,a
next b:next a
get image rr+500,0,0,9,9,1
delete bitmap 1
next rr

ink rgb(212,209,201),0
box 0,0,165,screen height()
ink rgb(255,255,255),0
box 2,2,161,121
lock pixels

for a = 170 to screen width()-5
for b = 5 to screen height()-5
dot a,b
next b
next a
unlock pixels
for a = 0 to 11
for b = 0 to 15
ink color(a,b),0
box b*10+2,a*10+2,b*10+11,a*10+11
next b
next a

drawing=1
do
ink rgb(255,255,255),0
box 5,400,100,430

ink rgb(212,209,201),0
for a = 0 to 2
   box 4+a*25,219,25+a*25,240
next a
text 6,401,str$(point(mousex(),mousey()))
box 5,245,160,270

ink 0,0
select draw_mode
   case "pencil"
      box 4,219,25,240
   endcase
   case "flood"
      box 29,219,50,240
   endcase
   case "spray"
      box 54,219,75,240
   endcase
endselect

center text 15,245,str$(brush_size)
center text 65,245,str$(spray_size)

paste image 1,5,220
paste image 2,30,220
paste image 3,55,220

paste image 501,5,208
paste image 502,16,208
paste image 501,55,208
paste image 502,66,208
ink color5,0
box 2,170,32,200

mx=mousex():my=mousey()
ucm=mouseclick()
if drawing=1 and ucm=0
   drawing=0
   inc undo_level
   if undo_level>30
      shift_undo()
      undo_level=30
   endif
   get image undo_level,170,5,screen width()-5,screen height()-5,1

endif

if mx>169 and mx<screen width()-4 and my>4 and my<screen height()-4 and ucm=1
   if draw_mode="pencil"
      if drawing=1 then line oldmx,oldmy,mx,my
      dot mx,my
      oldmx=mx:oldmy=my:drawing=1
   endif

if draw_mode="flood"
      color_test=point(mx,my)
      flood(mx,my,color5,color_test)
      drawing=1
      repeat
      until mouseclick()=0
   endif

if draw_mode="spray"

where=rnd(359)
      rad=rnd(spray_size)
      newx=newxvalue(mx,where,rad)
      newy=newzvalue(my,where,rad)
      if newx>=170 and newx<=screen width()-5 and newy>=5 and newy<=screen height()-5 then dot newx,newy
      drawing=1
   endif

endif

if ucm=2
      color5=point(mousex(),mousey())
      ink color5,0
   endif

test_buttons()

if keystate(29)=1 and keystate(44)=1 and undo_level>10 and image exist(undo_level-1)
   paste image undo_level-1,170,5
   dec undo_level
   delete image undo_level+1
   repeat
   until scancode()=0
endif

sync
loop

`palette
data 16777215,5063201,4672801,3624225,2575649,2182444,2182460,2182476,2178381,2174285,2498893,3613005,4661581,5054786,5054770,5054754
data 5713687,5719831,5199639,3626775,2053911,1529638,1529663,1529687,1523799,1517399,1972055,3544919,5183319,5707592,5707568,5707544
data 6433804,6441996,5792268,3629580,1532428,811553,811585,811618,803426,795234,1444962,3542114,5639266,6425678,6425645,6425613
data 7153921,7164417,6319361,3632385,1010945,93467,93508,93548,83309,73069,917869,3539309,6160749,7143763,7143723,7143683
data 10052419,10060611,9410883,7248195,5151043,4430168,4430200,4430233,4422041,4413849,5063577,7160729,9257881,10044293,10044260,10044228
data 11492909,11505197,10465069,7253805,4108077,2993997,2994045,2994094,2981807,2969519,3943855,7155119,10300847,11480464,11480416,11480367
data 12867608,12884248,11519000,3064856,7324696,1623106,1623171,1623235,1607108,1590468,2889924,7084228,11344068,12851355,12851291,12851226
data 14308098,14328834,12573186,7330306,2021890,186935,187016,187096,166874,146138,1770202,7078618,12321498,14287527,14287446,14287365
data 14325872,14335856,13490800,10869360,8313456,7395978,7396018,7396057,7386074,7375834,8155354,10776794,13332698,14315713,14315673,14315634
data 15504222,15517790,14347358,10873950,7466078,6220929,6220982,6221035,6207724,6194156,7298796,10772204,14180076,15490762,15490709,15490656
data 16617293,16634189,15269197,10943821,6618445,5111160,5111226,5111292,5094653,5077757,6376957,10702333,15027709,16600531,16600465,16600399
data 12566463,11711154,10921638,10066329,9211020,8421504,7566195,6710886,5855577,5000268,4210752,3355443,2500134,1710618,855309,0

`penciltool
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,0,0,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12517376,12517376,12517376,0,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,12517376,16777215,16777215,0,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,12517376,16777215,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12636233,0,0,0,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,0,12636233,11649842,10465069,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,12636233,11649842,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,0,12636233,11649842,10465069,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,0,11649842,10465069,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,12636233,11649842,10465069,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,0,10465069,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,0,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,0,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,13947080
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080

`Fill Tool

data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,4193787,4193787,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,4193787,16777215,4193787,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,11344068,11344068,9704872,16777215,4193787,16777215,16777215,16777215,4193787,4193787,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,11344068,9704872,9704872,12632256,175274,16777215,16777215,16777215,4193787,16777215,16777215,4193787,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,11344068,9704872,9704872,12632256,175274,11344068,11344068,11344068,175274,11344068,11344068,0,0,4193787,13947080,16777215,13947080,16777215
data 16777215,13947080,11344068,9704872,12632256,175274,11344068,11344068,11344068,175274,11344068,11344068,0,0,0,0,4193787,13947080,16777215,13947080
data 13947080,16777215,11344068,9704872,12632256,175274,175274,11344068,175274,11344068,11344068,0,0,0,0,0,9704872,4193787,13947080,16777215
data 16777215,13947080,11344068,9704872,9704872,13947080,16777215,175274,11344068,11344068,0,0,0,0,0,11344068,9704872,4193787,16777215,13947080
data 13947080,16777215,11344068,11344068,9704872,16777215,13947080,175274,11344068,0,0,0,0,0,11344068,9704872,175274,16777215,13947080,16777215
data 16777215,13947080,11344068,11344068,9704872,13947080,16777215,13947080,175274,0,0,0,0,11344068,9704872,175274,16777215,13947080,16777215,13947080
data 13947080,16777215,11344068,11344068,9704872,16777215,13947080,16777215,13947080,175274,0,0,11344068,9704872,175274,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,11344068,9704872,13947080,16777215,13947080,16777215,13947080,175274,9704872,9704872,175274,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,11344068,9704872,16777215,13947080,16777215,13947080,16777215,13947080,175274,175274,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,9704872,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080

`Spray Tool

data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,32768,16777215,32768,16777215,13947080,191,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,32768,12632256,65280,32768,191,191,191,0,0,0,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,65280,12632256,65280,12632256,65280,16777215,0,0,16777215,16777215,0,0,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,65280,12632256,32768,16777215,13947080,0,16777215,16777215,0,0,16711680,0,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,32768,12632256,65280,16777215,13947080,16777215,0,16777215,0,0,16711680,16711680,16711680,0,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,32768,12632256,65280,16777215,13947080,0,0,0,8388608,0,16711680,16711680,16711680,0,13947080,16777215
data 16777215,13947080,16777215,65280,12632256,32768,16777215,13947080,16777215,13947080,0,0,0,8388608,0,16711680,16711680,16711680,0,13947080
data 13947080,16777215,13947080,16777215,65280,16777215,13947080,16777215,13947080,16777215,13947080,0,0,0,8388608,0,16711680,16711680,0,16777215
data 16777215,13947080,16777215,32768,12632256,65280,16777215,13947080,16777215,13947080,16777215,13947080,0,0,0,8388608,0,0,16777215,13947080
data 13947080,16777215,13947080,16777215,32768,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,0,0,16777215,13947080,16777215
data 16777215,13947080,16777215,65280,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,32768,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,65280,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215

`add
data 16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935
data 16711935,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388608
data 16711935,8388736,8388736,8388736,16777215,16777215,8388736,8388736,8388736,8388608
data 16711935,8388736,8388736,8388736,16777215,16777215,8388736,8388736,8388736,8388608
data 16711935,8388736,16777215,16777215,16777215,16777215,16777215,16777215,8388736,8388608
data 16711935,8388736,16777215,16777215,16777215,16777215,16777215,16777215,8388736,8388608
data 16711935,8388736,8388736,8388736,16777215,16777215,8388736,8388736,8388736,8388608
data 16711935,8388736,8388736,8388736,16777215,16777215,8388736,8388736,8388736,8388608
data 16711935,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388608
data 8388608,8388608,8388608,8388608,8388608,8388608,8388608,8388608,8388608,8388608

`subtract
data 16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935
data 16711935,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388608
data 16711935,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388608
data 16711935,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388608
data 16711935,8388736,16777215,16777215,16777215,16777215,16777215,16777215,8388736,8388608
data 16711935,8388736,16777215,16777215,16777215,16777215,16777215,16777215,8388736,8388608
data 16711935,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388608
data 16711935,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388608
data 16711935,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388736,8388608
data 8388608,8388608,8388608,8388608,8388608,8388608,8388608,8388608,8388608,8388608

function test_buttons()
mx=mousex():my=mousey():ucm=mouseclick()
if mx>=5 and mx<=25 and my>=220 and my<=240 and ucm=1 then draw_mode="pencil"
if mx>=30 and mx<=50 and my>=220 and my<=240 and ucm=1 then draw_mode="flood"
if mx>=55 and mx<=75 and my>=220 and my<=240 and ucm=1 then draw_mode="spray"

if mx>=55 and mx<=65 and my>=208 and my<=218 and spray_size<100 and ucm=1 then inc spray_size:repeat:until mouseclick()=0
if mx>=66 and mx<=76 and my>=208 and my<=218 and spray_size>1 and ucm=1 then dec spray_size:repeat:until mouseclick()=0