Sorry your browser is not supported!

Note: while each of the four tabs will have buttons, users will still be able to use the keyboard for entering stuff, so we don't need buttons for every letter of the alphabet if the user wants to make a variable. Just numbers, constants, operations, and functions will be variables. Here's the details for each tab:

Standard tab would include these buttons, roughly laid out like this:

---------------------
|input goes here    |
---------------------
| Backspace   Clear |
| (    )    ^     * |
|                   |
| 7    8    9     / |
|                   |
| 4    5    6     + |
|                   |
| 1    2    3     - |
|                   |
|   0    .    Enter |
---------------------

Backspace would simply remove the last character, and clear would empty the input string.
Size would be like the size of MS Calc in standard mode.





Scientific tab would include these buttons, roughly laid out like this:
-----------------------------------
|input string goes here           |
-----------------------------------
| Inv Hyp LOG LN   Backspace Clear|
|                                 |
| SIN  COS  TAN    CSC SEC COT  ^ |
|                                 |
| INT FLOOR CEIL    ,   (   )   / |
|                                 |
| ABS SQRT n! PI    7   8   9   * |
|                                 |
| LET DEFINE   E    4   5   6   - |
|                                 |
| PLOT  x^-1  x^2   1   2   3   + |
|                                 |
| PARAMETRICPLOT    0   .   Enter |
-----------------------------------

Inv - click once to keep the button down, click again to bring it up. 
Hyp - click once to keep the button down, click again to bring it up. 
If Inv is down, SIN, COS, and TAN do the following:
	SIN - would add "ASin(" to the input string
	COS - would add "ACos(" to the input string
	TAN - would add "ATan(" to the input string
Else
	If Hyp is down, SIN, COS, and TAN do the following:
		SIN - would add "HSin(" to the input string
		COS - would add "HCos(" to the input string
		TAN - would add "HTan(" to the input string
	Else, they would just be normal SIN, COS, and TAN buttons:
		SIN - would add "Sin(" to the input string
		COS - would add "Cos(" to the input string
		TAN - would add "Tan(" to the input string
	Endif
Endif


CSC - would add "Csc(" to the input string
SEC - would add "Sec(" to the input string
COT - would add "Cot(" to the input string

INT - would add "Int(" to the input string
FLOOR - would add "Floor(" to the input string
CEIL - would add "Ceil(" to the input string

ABS - would add "Abs(" to the input string
SQRT (or the square-root sign) - would add "Sqrt(" to the input string
EXP - would add "Exp(" to the input string

LOG - would add "Log(" to the input string
LN - would add "Ln(" to the input string
PI (or the squiggly symbol for pi) would add "pi" to the input string.
e would add "e" to the input string.

LET - would add "Let " to the input string
DEFINE - would add "Define " to the input string

, - would add "," to the input string
n! - would add "!" to the input string

X^2 (with the 2 to the top right of the x, and no ^) - would add "^2" to the input string
X^-1 (with the -1 to the top right of the x, and no ^) - would add "^-1" to the input string

PLOT - would set the input string equal to "Plot("
PARAMETRICPLOT - ould set the input string equal to "ParametricPlot("

The GUI would switch to the graph mode when the user enters a "Plot" or "Parametric Plot" command.


Size would be like the scientific mode in MS Calc or however big it needs to be to fit all the buttons. Leave about as much space for input as MS Calc as it seems to have a good amount of room.





Window tab:
I basically want this tab to let the user set the values of the calculator-variables "Left", "Right", "Top", "Bottom", "Start", and 

"End". You can probably do this somehow by having a button labelled these six things, and next to each have the current value of that variable:
----------------------------------
|Window                          |
|Left   =  (show value of Left)  |
|Right  =  (show value of Right) |
|Top    =  (show value of Top)   |
|Bottom =  (show value of Bottom)|
|Start  =  (show value of Start) |
|End    =  (show value of End)   |
----------------------------------
When the user enters an expression that evaluates to a real number, it can loose focus of that variable, and set the variable to the new 

value entered. If the expression the user enters is like "x^2+y*z*a*s*d*f", (which wouldn't evaluate to a real unless ALL those variables were defined in terms of real numbers), don't update the variable.





Graph tab:
--------------------------------
|Plot(x^2,x)             |Enter|
--------------------------------
|         \    |    /          |
|          |   |   |           |
|          |   |   |           |
|           \  |  /            |
|            \ | /             |
|------------------------------|
|              |               |
|              |               |
|              |               |
|              |               |
|              |               |
|              |               |
--------------------------------
This mode would just have a box to display the graph (white background, black graph) and a place to show the input string (I think above 

the graph area would look good, like in the piv above). Also, to the right of the input box would be an "Enter" button. While in graph 

mode, if the user enters a command that is not a plotting function (Doesn't start with "Plot(" or "ParametricPlot(") it should go to the 

scientific mode, regardless of the mode it was in before it went to graph mode.
For the size of this mode, I'm thinking 800x600 would be good.

I'll be happy to help with any programming aspect of the GUI-program interaction. Probably the most complicated will be getting the plotters to plot in the window in the GUI, as right now it takes up the full screen, so for that once you get the image for that interface done, send it over and I'll edit the plot functions to work with the graph tab image.

remstart
Paint program by
Sven B
remend

sync on : sync rate 0
backdrop off

`Initialize the paint program
gosub Initialize

`Create media
gosub CreateMedia

do

   cls
   paste image GUI + 2, 0, 0

   `Buttons
   gosub SystemButtons

   `Handle windows
   if array count(Window(0)) > 0
      for W = 1 to array count(Window(0))
         HandleWindow(W)
      next W
   endif

   sync
loop

`*********
`Submenu s
`*********

SystemButtons:

   `>> new
   if mousex() > 1 and mousex() < 49 and mousey() < 50
      paste image GUI + 4, 1, 1
      if mouseclick() = 1
         repeat : until mouseclick() = 0

         `Boundries
         if width > scrX - 52 then width = scrX - 52
         if height > scrY - 60 then height = scrY - 60
         if width < 48 then width = 48
         if height < 48 then height = 48

         `Create Canvas
         Img = FreeImg()
         cls rgb(255, 255, 255)
         get image Img, 0, 0, width, height, 1
         make memblock from image Img, Img
         r = CreateWindow(0, 50, width + 2, height + 2, 0, 1, Img)
      endif
   else
      paste image GUI + 3, 1, 1
   endif

return

CreateMedia:

   `Create title bar image
   cls
   box 0, 0, 8, 8, Theme, rgb(255, 255, 255), Theme, rgb(255, 255, 255)
   get image GUI, 0, 0, 8, 8, 1

   `Create X button
   cls
   box 0, 0, 6, 6, Theme, rgb(255, 255, 255), Theme, Theme
   ink ThemeTxt, 0
   line 1, 1, 5, 5
   line 1, 4, 5, 0
   get image GUI + 1, 0, 0, 6, 6, 1

   `Create Main HUD
   box 0, 0, scrX, 50, rgb(255,255,255), Theme, rgb(255,255,255), Theme
   box scrX - 50, 0, scrX, scrY, rgb(255, 255, 255), rgb(255,255,255),Theme,Theme
   get image GUI + 2, 0, 0, scrX, scrY, 1

   `Create buttons

   `New button
   `up
   box 0, 0, 48, 48, Theme, ThemeBack, Theme, ThemeBack
   ink rgb(255, 255, 255), 0
   box 15, 10, 30, 38
   box 30, 13, 33, 38
   ink rgb(150, 150, 150), 0
   for i = 0 to 3
      line 33 - i, 13 - i, 33 - i, 13
   next i
   get image GUI + 3, 0, 0, 48, 48, 1

   `Down
   box 0, 0, 48, 48, ThemeBack, Theme, ThemeBack, Theme
   ink rgb(255, 255, 255), 0
   box 15, 10, 30, 38
   box 30, 13, 33, 38
   ink rgb(150, 150, 150), 0
   for i = 0 to 3
      line 33 - i, 13 - i, 33 - i, 13
   next i
   get image GUI + 4, 0, 0, 48, 48, 1

return

Initialize:

   `Constants
   #constant Theme = rgb(0, 0, 255)
   #constant ThemeBack = rgb(150, 150, 255)
   #constant ThemeTxt = rgb(8, 8, 8)
   #constant GUI = 100
   #constant WindowImg = 200
   #constant Bin = 5000
   #constant Canvas = 1

   #constant scrX screen width()
   #constant scrY screen height()

   `Types
   type window
      x as integer
      y as integer
      xsize as integer
      ysize as integer
      status as integer
      priority as integer
      Cont as integer
   endtype

   `Arrays
   dim Window(0) as window

   `Globals
   global Forcolor as integer
   Forcolor = rgb(0, 0, 0)
   Global ActiveWindow as integer
   ActiveWindow = 1

return

`*********
`Functions
`*********

function CreateWindow(x, y, xsize, ysize, status, priority, Cont)

   `Insert a window
   CWindow = array count(Window(0)) + 1
   array insert at bottom Window(0)

   `Init window
   Window(CWindow).x = x
   Window(CWindow).y = y
   Window(CWindow).xsize = xsize
   Window(CWindow).ysize = ysize
   Window(CWindow).status = status
   Window(CWindow).priority = priority
   Window(CWindow).Cont = Cont

endfunction CWindow

function HandleWindow(id)

   `Create window if it isn't drawn yet on the screen
   if sprite exist(id) = 0
      sprite id, Window(id).x, Window(id).y, GUI
      size sprite id, Window(id).xsize, 8
      paste sprite id, Window(id).x, Window(id).y
      paste image GUI + 1, Window(id).x + Window(id).xsize - 7, Window(id).y + 1

      `Get window status, if 0: the window is in full mode
      if Window(id).status = 0
         ink Theme, 0
         box Window(id).x, Window(id).y+8, Window(id).x + Window(id).xsize, Window(id).y + 8 + Window(id).ysize
         ink ThemeBack, 0
         box Window(id).x + 1, Window(id).y+8, Window(id).x - 1 + Window(id).xsize, Window(id).y + 7 + Window(id).ysize
         paste image Window(id).Cont, Window(id).x + (Window(id).xsize/2) - (memblock dword(Window(id).Cont, 0)/2), Window(id).y + 8 + (Window(id).ysize/2) - (memblock dword(Window(id).Cont, 4)/2)
      endif

      `Store sprite
      get image WindowImg + id, Window(id).x, Window(id).y, Window(id).x + Window(id).xsize, Window(id).y + 8 + Window(id).ysize, 1
      delete sprite id
   endif

   `Render
   sprite id, Window(id).x, Window(id).y, WindowImg + id
   if ActiveWindow = id
      set sprite priority id, 1
      Window(id).priority = 1
      set sprite alpha id, 255
   else
      set sprite priority id, 0
      Window(id).priority = 0
      set sprite alpha id, 128
   endif

   `Even handling
   if mouseclick() = 1

      `Moving
      if ActiveWindow = id
         if mousey() > Window(id).y and mousey() < Window(id).y + 7
            If mousex() > Window(id).x and mousex() < Window(id).x + Window(id).xsize - 7

               `Get values
               DiffMX = mousex() - Window(id).x
               DiffMY = mousey() - Window(id).y

               `Get background
               get image Bin, 0, 0, scrX, scrY, 1

               repeat

                  paste image Bin, 0, 0
                  Window(id).x = mousex() - DiffMX
                  Window(id).y = mousey() - DiffMY

                  `Boundries
                  if Window(id).x < 0 then Window(id).x = 0
                  if Window(id).y < 50 then Window(id).y = 50
                  if Window(id).x + Window(id).xsize > scrX - 50 then Window(id).x = scrX - 50 - Window(id).xsize
                  if Window(id).y + Window(id).ysize + 8 > scrY then Window(id).y = scrY - 8 - Window(id).ysize

                  sprite id, Window(id).x, Window(id).y, WindowImg + id
                  sync
               until mouseclick() = 0
               delete image Bin

            endif
            if mousex() > Window(id).x + Window(id).xsize - 8 and mousex() < Window(id).x + Window(id).xsize
               repeat : until mouseclick() = 0

               `Delete media
               delete sprite id
               delete image Window(id).Cont
               delete memblock Window(id).Cont

               `Delete array element
               array delete element Window(0), id
               if sprite exist(array count(Window(0))+1) then delete sprite array count(Window(0)) + 1
               exitfunction
            endif
         endif

         `Resize only when status = 0
         if Window(id).status = 0
            ResizeX = 0
            ResizeY = 0
            if mousex() > Window(id).x + Window(id).xsize - 1 and mousex() < Window(id).x + Window(id).xsize + 1 then ResizeX = 1
            if mousey() > Window(id).y + Window(id).ysize + 7 and mousey() < Window(id).y + Window(id).ysize + 9 then ResizeY = 1
            if ResizeX + ResizeY > 0

               `Get background
               get image Bin, 0, 0, scrX, scrY, 1

               repeat

                  paste image Bin, 0, 0

                  if ResizeY > 0
                     Window(id).ysize = (mousey() - 8) - Window(id).y
                     if Window(id).ysize < 50 then Window(id).ysize = 50
                     if Window(id).y + Window(id).ysize > scrY - 8 then Window(id).ysize = scrY - 8 - Window(id).y
                  endif
                  if ResizeX > 0
                     Window(id).xsize = mousex() - Window(id).x
                     if Window(id).xsize < 50 then Window(id).xsize = 50
                     if Window(id).x + Window(id).xsize > scrX - 50 then Window(id).xsize = scrX - 50 - Window(id).x
                  endif

                  size sprite id, Window(id).xsize, 8

                  `Draw box
                  sprite id, Window(id).x, Window(id).y, GUI : hide sprite id
                  size sprite id, Window(id).xsize, 8
                  paste sprite id, Window(id).x, Window(id).y
                  paste image GUI + 1, Window(id).x + Window(id).xsize - 7, Window(id).y + 1

                  ink Theme, 0
                  box Window(id).x, Window(id).y+8, Window(id).x + Window(id).xsize, Window(id).y + 8 + Window(id).ysize
                  ink ThemeBack, 0
                  box Window(id).x + 1, Window(id).y+8, Window(id).x - 1 + Window(id).xsize, Window(id).y + 7 + Window(id).ysize

                  sync
               until mouseclick() = 0
               delete sprite id

            endif
         endif

         `Drawing
         if Window(id).status = 0 and ActiveWindow = id
            if mousex() > Window(id).x + 1 and mousex() < Window(id).x + Window(id).xsize - 1
               if mousey() > Window(id).y + 8 and mousey() < Window(id).y + Window(id).ysize + 7

                  `Draw on the image
                  DrawOnImage(id)

               endif
            endif
         endif
      endif

      `If the mouse is in the window the window, than it means that another window will have to be active
      if ActiveWindow <> id
         if mousex() > Window(id).x and mousex() < Window(id).x + Window(id).xsize
            if mousey() > Window(id).y and mousey() < Window(id).y + Window(id).ysize
               if ActiveWindow > 0
                  if mousex() < Window(ActiveWindow).x or mousex() > Window(ActiveWindow).x + Window(ActiveWindow).xsize or mousey() < Window(ActiveWindow).y or mousey() > Window(ActiveWindow).y + Window(ActiveWindow).ysize
                     ActiveWindow = id
                  endif
               else
                  ActiveWindow = id
               endif
            endif
         endif
      endif

   endif

   set cursor 0, 50
   print ActiveWindow

endfunction

function FreeImg()
   for i = 0 to 1000
      if image exist(Canvas + i) = 0 then exitfunction Canvas + i
   next i
endfunction -1

function DrawOnImage(id)

   `Extract data
   x = Window(id).x
   sx = Window(id).xsize
   y = Window(id).y
   sy = Window(id).ysize
   Img = Window(id).Cont
   imgsx = memblock dword(Img, 0)
   imgsy = memblock dword(Img, 4)

   `Get pointer on the image
   imgx = x + (sx/2) - (imgsx/2)
   imgy = y + 8 + (sy/2) - (imgsy/2)
   px = mousex() - imgx
   py = mousey() - imgy

   if px >= 0 and px < imgsx
      if py >= 0 and py < imgsx
         `Change the color on the image
         pos = 12 + ((py*imgsx + px)*4)
         write memblock dword Img, pos, Forcolor
         make image from memblock Img, Img

         `Update the window
         paste sprite id, x, y
         paste image Img, imgx, imgy
         get image WindowImg + id, x, y, x + sx, y + 8 + sy, 1
         sprite id, x, y, WindowImg + id
      endif
   endif
endfunction

set display mode 1024,768,32

#CONSTANT TRUE = 1
#CONSTANT FALSE = 0

#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)

GLOBAL LAYER_INDEX = 0
GLOBAL CURRENT_LAYER = -1


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


dim layerObjects(0) as LAYER_UI

addLayer()
addLayer()
addLayer()

sync on
backdrop on
color backdrop 0
make matrix 1,1,1,1,1

RED as dword
RED = rgb(255,0,0)

GREEN as dword
GREEN = rgb(0,255,0)

BLUE as dword
BLUE = rgb(0,0,255)

color as dword


REPEAT
   `cls

   if mouseclick() = 1 and mousex() < 874 then drawFlag = 1
   if mouseclick() <> 1 then drawFlag = 0

   if drawFlag = 1 then gosub _drawing
   if drawFlag = 0 then gosub _handleGUI

   gosub _drawGUI

   for i = 1 to array count(layerObjects())
      img = layerObjects(i).memblock
      sprite img,1,1,img
      set sprite priority img, 10-layerObjects(i).order
      `paste sprite img, 0,0
   next i


   ink rgb(255,255,255),0
   set cursor 0,0
   print screen fps()
   print mouseclick()

   sync
UNTIL spacekey()


REM handles drawing functions
_drawing:

   `ink rgb(rnd(255),rnd(255),rnd(255)),0
   `dot mousex(), mousey()

   if mousex() > 0 and mousey() > 0 and mousex() <= 874 and mousey() <= 1024
      if CURRENT_LAYER = 1 then color = RED
      if CURRENT_LAYER = 2 then color = GREEN
      if CURRENT_LAYER = 3 then color = BLUE


      dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex(), mousey(), color)
      dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex()+1, mousey(), color)
      dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex(), mousey()+1, color)
      dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex()+1, mousey()+1, color)

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

RETURN



REM handles the GUI functions
_handleGUI:

   REM handle reordering of the layers
   if mousex() > 874 or layerFlag > 0
      for i = 1 to array count(layerObjects())
         t = layerObjects(i).order
         if mouseclick() = 1 and layerFlag = 0
            if mousex() > 874 and mousex() < 1024 and mousey() > t*LAYER_HEIGHT+2 and mousey() < t*LAYER_HEIGHT+LAYER_HEIGHT
               layerFlag = i
               CURRENT_LAYER = t
               loffsety = mousey() - (t*LAYER_HEIGHT+2)
            endif
         endif

         if layerFlag > 0
            if mouseclick() = 1
               rem if user moves layer above an existing layer
               if mousey() < 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() > 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
      next i
   endif
   if mouseclick() <> 1 then layerFlag = 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 = 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 876,loy+2 + TEXT_OFFSET, layerObjects(t).name
   next t

RETURN



REM Create a new blank layer
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


function makeLayerMemblock(index as integer)
   width = 874
   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


function dotMemblock(index as integer, x as integer, y as integer, color as dword)
   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
      write memblock dword index, pos, color
   endif
endfunction

set display mode 1024,768,32

#CONSTANT TRUE = 1
#CONSTANT FALSE = 0
#constant SLIDER_HORIZONTAL = 1
#constant SLIDER_VERTICAL = 2
#constant GUI_LAYERS_OFFSET = 200
#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)

GLOBAL LAYER_INDEX = 0
GLOBAL CURRENT_LAYER = -1


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 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
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

slider as sliderComponent
   slider.x = 956
   slider.y = 8
   slider.min = 0
   slider.max = 255
   slider.value = 255
   slider.thumbX = 956+56
   slider.thumbY = slider.y

dim sliders(4) as SliderComponent
sliders(1) = slider : slider.y = 20
sliders(2) = slider : slider.y = 32
sliders(3) = slider : slider.y = 44
sliders(4) = slider

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




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

addLayer()
`addLayer()
addLayer()

sync on
backdrop on
color backdrop 0xFFFFFF
`make matrix 1,1,1,1,1


color as dword



REPEAT

   if mouseclick() = 1 and mousex() < 874 then drawFlag = 1
   if mouseclick() <> 1 then drawFlag = 0

   if drawFlag = 1 then gosub _drawing
   if drawFlag = 0 then gosub _handleGUI

   gosub _drawGUI

   _handleSliderHorizontal(sliderUI)

   rem draw layers
   for i = 1 to array count(layerObjects())
      img = layerObjects(i).memblock
      sprite img,0,0,img
      set sprite alpha img, layerObjects(i).alpha
      set sprite priority img, 10-layerObjects(i).order
   next i


   sync
UNTIL spacekey()





REM handles drawing functions
_drawing:
   if mousex() > 0 and mousey() > 0 and mousex() <= 874 and mousey() <= 1024
      `if CURRENT_LAYER = 1 then color = RED
      `if CURRENT_LAYER = 2 then color = GREEN
      `if CURRENT_LAYER = 3 then color = BLUE

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

      dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex(), mousey(), color, sliders(4).value)
      dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex()+1, mousey(), color, sliders(4).value)
      dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex(), mousey()+1, color, sliders(4).value)
      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
RETURN



REM handles the GUI functions
_handleGUI:

   REM handle reordering of the layers
   if mousex() > 874 or layerFlag > 0
      for i = 1 to array count(layerObjects())
         t = layerObjects(i).order
         if mouseclick() = 1 and layerFlag = 0
            if mousex() > 874 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 = t
               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
      next i
   endif
   if mouseclick() <> 1 then layerFlag = 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 876,loy+2 + TEXT_OFFSET, layerObjects(t).name
   next t

   text 876, 1, "Red"
   text 876, 13, "Green"
   text 876, 25, "Blue"
   text 876, 37, "Alpha"

   ink 0,0
   `box 924,3,1022,13
   `box 924,15,1022,25
   `box 924,27,1022,37
   `box 924,39,1022,49

RETURN



REM Create a new blank layer
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


function makeLayerMemblock(index as integer)
   width = 874
   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


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)
   if x > 0 and x <= width and y > 0 and y <= height
      pos = ((y-1)*width + x - 1)*4 + 12
      write memblock dword index, pos, color
      write memblock byte index, pos+3, alpha

   endif
endfunction




REM Horizontal Slider
REM handles slider UI and renders the components
function _handleSliderHorizontal(ui as sliderComponentUI)

   for i = 1 to array count(sliders())
      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



      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

      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)
      endif

      rem display current value
      ink 0,0
      text 924, sliders(i).y-7, str$(int(sliders(i).value))

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

endfunction

sync on
color1=rgb(255,0,0)
color2=rgb(0,0,255)
color3=rgb(0,255,0)
color4=rgb(255,255,0)
color5=rgb(255,255,255)


do
ink 0,0
box 0,0,50,screen height()
ink color5,0
box 0,0,50,50,color1,color2,color3,color4
ink color5,0
box 0,51,50,101


mx=mousex():my=mousey()
ucm=mouseclick()

if ucm=1
   if drawing=1 then line oldmx,oldmy,mx,my
   dot mx,my
   oldmx=mx:oldmy=my:drawing=1
else
   drawing=0
endif

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



sync
loop

   rem draw layers
   for i = 1 to array count(layerObjects())
      rem image and memblock use same number
      img = layerObjects(i).memblock
      sprite img,0,0,img
      set sprite alpha img, layerObjects(i).alpha
      rem maintain layer order
      set sprite priority img, 10-layerObjects(i).order
   next i

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


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



ink rgb(212,209,201),0
box 0,0,165,screen height()
ink rgb(255,255,255),0
box 2,2,161,121
box 170,5,screen width()-5,screen height()-5
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
do

box 2,170,32,200

mx=mousex():my=mousey()
ucm=mouseclick()

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

endif

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

sync
loop








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 

Rem Project: BladePaint
Rem Created: 6/25/2006 5:27:40 PM

Rem ***** Main Source File *****
set display mode 1024,768,32
sync on

global cim
global csp

gosub _makebackground `creates the background for the program

gosub _defineTwindowVars `creates the variables for the tools window

gosub _makeTwindow `creates tools window

draw sprites first
cls
Do

   gosub _controlMenu

   gosub _controlTwindow

   sync
Loop

_controlTwindow:

   if mouseover(sprite x(tTopsprite),sprite y(tTopsprite),sprite x(tTopsprite)+sprite width(tTopsprite),sprite y(tTopsprite)+sprite height(tTopsprite))=1
      mxdif=mousex()-twinx
      mydif=mousey()-twiny
      while mouseclick()=1
         twinx=mousex()-mxdif
         twiny=mousey()-mydif
         for x=1 to tButN
            sprite tButton(x,4),tButton(x,1)+twinx+(tbackx/2),tButton(x,2)+twiny+tTopy,tButton(x,3)
         next x
         sprite tbacksprite,twinx,twiny+tTopy,tBin
         sprite tTopsprite,twinx,twiny,tTin
         sync
      endwhile
   endif

   for x=1 to tButN
   if mouseover(tButton(x,1)+twinx+(tbackx/2),tButton(x,2)+twiny+tTopy,tButton(x,1)+20+twinx+(tbackx/2),tButton(x,2)+20+twiny+tTopy)=1
      if tButton(x,3)=unselIM then tButton(x,3)=unsoverIM
      if tButton(x,3)=selIM then tButton(x,3)=soverIM
      if mouseclick()=1
         while mouseclick()=1:endwhile
         selectButton(x)
      endif
   else
      if tButton(x,3)=unsoverIM then tButton(x,3)=unselIM
      if tButton(x,3)=soverIM then tButton(x,3)=selIM
   endif

   sprite tButton(x,4),tButton(x,1)+twinx+(tbackx/2),tButton(x,2)+twiny+tTopy,tButton(x,3)
   next x

   sprite tbacksprite,twinx,twiny+tTopy,tBin
   sprite tTopsprite,twinx,twiny,tTin

return

_makeTwindow:

   `make the background for the tools window
   cls
   ink rgb(211,211,211),0
   Box 0,0,42+tbackx,((tButN/2)*20)+tbacky
   ebox((tbackx/2)+1,1,43,((tButN/2)*20)+1,rgb(0,0,0))
   ebox(0,-1,42+tbackx-1,((tButN/2)*20)+tbacky-1,rgb(0,0,0))
   get image tBin,0,0,42+tbackx,((tButN/2)*20)+tbacky,3
   sprite tbacksprite,twinx,twiny+tTopy,tBin

   `make the top "moving" bar for the tools window
   cls
   Box 0,0,42+tbackx,tTopy,rgb(211,211,211),rgb(100,100,100),rgb(211,211,211),rgb(100,100,100)
   ebox(0,0,42+tbackx-1,tTopy-1,rgb(0,0,0))
   get image tTin,0,0,42+tbackx,tTopy,3
   sprite tTopsprite,twinx,twiny,tTin

   `unselected button back
   cls
   Box 0,0,20,20,rgb(211,211,211),rgb(211,211,211),rgb(100,100,100),rgb(100,100,100)
   ebox(0,0,20,20,rgb(0,0,0))
   get image unselIM,0,0,20,20,3

   `selected button back
   cls
   Box 0,0,20,20,rgb(100,100,100),rgb(100,100,100),rgb(211,211,211),rgb(211,211,211)
   ebox(0,0,20,20,rgb(0,0,0))
   get image selIM,0,0,20,20,3

   `unselected over button back
   cls
   Box 0,0,20,20,RGB(255,187,168),RGB(255,187,168),RGB(200,40,0),RGB(200,40,0)
   ebox(0,0,20,20,rgb(0,0,0))
   get image unsoverIM,0,0,20,20,3

   `selected over button back
   cls
   Box 0,0,20,20,RGB(200,40,0),RGB(200,40,0),RGB(255,187,168),RGB(255,187,168)
   ebox(0,0,20,20,rgb(0,0,0))
   get image soverIM,0,0,20,20,3

   cb=0
   for x=1 to 2
      for y=1 to tButN/2
         inc cb,1
         tButton(cb,1)=((x-1)*20)+1 `calculate x pos of button
         tButton(cb,2)=((y-1)*20)+1 `calculate y pos of button
         tButton(cb,3)=unselIM `set background image to unselected
         tButton(cb,4)=nsn()
         sprite tButton(cb,4),((x-1)*20)+1,((y-1)*20)+1,unselIM `create the sprite
      next y
   next x

return

_defineTwindowVars:

global unselIM
global selIM
global unsoverIM
global soverIM
global tBin
global tTin

global tButN=20 `total number of tool buttons
global slct=0 `number of selected tool button
global twinx=100 `x position of tools window
global twiny=250 `y position of tools window
global tbacksprite `sprite number for tools window background
global tbackx=5 `x buffer for background of tools window (total, buf on either side is half)
global tbacky=5 `y buffer for background of tools window (on bottom)
global tTopsprite `sprite number for tools top moving bar
global tTopx=42+tbackx `width of the top "moving" bar on the tools window
global tTopy=10 `height of the top "moving" bar on the tools window
global Dim tButton(tButN,4) `(x,1)=x position,(x,2)=y position,(x,3)=image number for sprite

`for some reason DBP will not let global variables be defined using other variables OR functions as they themselves are defined
tbacksprite=nsn()
tTopsprite=nsn()

unselIM=nin()
selIM=nin()
unsoverIM=nin()
soverIM=nin()
tBin=nin()
tTin=nin()

return

_makebackground:

`make a solid neutral gray background
ink rgb(255/2,255/2,255/2),0
box 0,0,screen width(),screen height()

`create the main menu at the top and draw a border
box 0,0,screen width(),20,rgb(211,211,211),rgb(255/2,255/2,255/2),rgb(211,211,211),rgb(255/2,255/2,255/2)
ebox(0,0,screen width()-1,20,rgb(0,0,0))
set text font "arial"
set text size 14
text 0,2,"  New  Open  Save  Save as "

global backIM
global backSP
backIM=nin()
backSP=nsn()
get image backIM,0,0,screen width(),screen height(),3
sprite backSP,0,0,backIM

return

_controlMenu:

if mouseover(text width(" ")-1,2,text width("  New "),text height("New")+2)=1
ebox(text width(" ")-1,2,text width("  New "),text height("New")+2,rgb(0,0,0))
endif

if mouseover(text width("  New ")-1,2,text width("  New  Open "),text height("Open")+2)=1
ebox(text width("  New ")-1,2,text width("  New  Open "),text height("Open")+2,rgb(0,0,0))
endif

if mouseover(text width("  New  Open ")-1,2,text width("  New  Open  Save "),text height("Save")+2)=1
ebox(text width("  New  Open ")-1,2,text width("  New  Open  Save "),text height("Save")+2,rgb(0,0,0))
endif

if mouseover(text width("  New  Open Save  ")-1,2,text width("  New  Open  Save  Save as "),text height("Save as")+2)=1
ebox(text width("  New  Open Save  ")-1,2,text width("  New  Open  Save  Save as "),text height("Save as")+2,rgb(0,0,0))
endif

return

Function nin()
inc cim,1
endfunction cim

function nsn()
inc csp
endfunction csp

Function eBox(x1,y1,x2,y2,clr)
ink clr,0
line x1,y1,x1,y2
line x1,y2,x2,y2
line x2,y2,x2,y1
line x2,y1,x1,y1
endfunction

Function selectButton(b)
if tButton(b,3)=soverIM
tButton(b,3)=unsoverIM
slct=0
endif

if tButton(b,3)=unsoverIM
tButton(b,3)=soverIM
if slct>0
tButton(slct,3)=unselIM
endif
slct=b
endif

endfunction

Function mouseover(x1,y1,x2,y2)
   over=0
   if mousex()>=x1 and mousex()<=x2 and mousey()>=y1 and mousey()<=y2 then over=1
endfunction over

` -------------------------
` ----------TYPES----------
` -------------------------

` Line
type toolLine
   activeTool as boolean : ` 1 = active; 0 = unactive
   startX as integer
   startY as integer
   endX as integer
   endY as integer
endtype

` Pencil
type toolPencil
   activeTool as boolean
   curX as integer
   curY as integer
endtype

type toolCircle
   activeTool as boolean
   X as integer
   Y as integer
   radius as integer
endtype

dim toolLine(0) as toolLine
dim toolPencil(0) as toolPencil
dim toolCircle(0) as toolCircle

` Window settings
set window on : set window size 640,480 : set window title "Paint Program by Halo Man"

` Text Settings
set text size 20 : set text font "Arial"

` Make the GUI
gosub CreateGUI

` Make the menu text and variables
gosub MakeMenu

` Declare color variables
rColor = 0
gColor = 0
bColor = 0

` -----------------------------
` ----------Main Loop----------
` -----------------------------
DO

   ` Check if a button is being pressed and change the
   ` tool properties based on what button was clicked
   gosub CheckButtons

   ` Show current mouse positions
   ink rgb(0,0,0),rgb(255,255,255)
   set text opaque
   text screen width()-70,420,"X:  "+str$(mouseX())+"   "
   text screen width()-70,440,"Y:  "+str$(mouseY())+"   "

   ` Check current color
   text screen width()-165,410,"R: "+str$(rColor)+"  "
   text screen width()-165,430,"G: "+str$(gColor)+"  "
   text screen width()-165,450,"B: "+str$(bColor)+"  "
   box screen width()-115,410,screen width()-80,475,rgb(rColor,gColor,bColor),rgb(rColor,gColor,bColor),rgb(rColor,gColor,bColor),rgb(rColor,gColor,bColor)

   ` rColor
   if mouseX()>=screen width()-165 and mouseX()<=screen width()-165+text width("R: ")
      if mouseY()>=410 and mouseY()<=410+text height("R: ")
         if mouseclick()=1
               inc rColor
               if rColor > 255
                  rColor = 255
               endif
         endif

         if mouseclick()=2
               dec rColor
               if rColor < 0
                  rColor = 0
               endif
         endif
      endif
   endif

   ` gColor
   if mouseX()>=screen width()-165 and mouseX()<=screen width()-165+text width("G: ")
      if mouseY()>=430 and mouseY()<=430+text height("G: ")
         if mouseclick()=1
               inc gColor
               if gColor > 255
                  gColor = 255
               endif
         endif

         if mouseclick()=2
               dec gColor
               if gColor < 0
                  gColor = 0
               endif
         endif
      endif
   endif

   ` bColor
   if mouseX()>=screen width()-165 and mouseX()<=screen width()-165+text width("B: ")
      if mouseY()>=450 and mouseY()<=450+text height("B: ")
         if mouseclick()=1
               inc bColor
               if bColor > 255
                  bColor = 255
               endif
         endif
         if mouseclick()=2
               dec bColor
               if bColor < 0
                  bColor = 0
               endif
         endif
      endif
   endif

   ` Pencil
   if toolPencil(0).activeTool = 1
      if mouseX()<sizeX and mouseX()>=0
         if mouseY()<sizeY and mouseY()>=0
            if mouseclick()=1
               ink rgb(rColor,gColor,bColor),rgb(255,255,255)
               repeat
                  toolPencil(0).curX = mouseX()
                  toolPencil(0).curY = mouseY()
                  if toolPencil(0).curX < sizeX and toolPencil(0).curX >= 0 and toolPencil(0).curY < sizeY and toolPencil(0).curY >= 0
                     dot toolPencil(0).curX,toolPencil(0).curY
                  endif
               until mouseclick()=0
            endif
         endif
      endif
   else
      ink rgb(0,0,0),rgb(255,255,255)
      text 120,410,pencil$
   endif

   ` Making Lines
   if toolLine(0).activeTool = 1
      if mouseX()<=sizeX and mouseX()>=0
         if mouseY()<=sizeY and mouseY()>=0
            if mouseclick()=1
               ink rgb(rColor,gColor,bColor),rgb(255,255,255)
               toolLine(0).startX = mouseX()
               toolLine(0).startY = mouseY()

               repeat
                  toolLine(0).endX = mouseX()
                  toolLine(0).endY = mouseY()
               until mouseclick()=0 and toolLine(0).endX<=sizeX and toolLine(0).endX >= 0 and toolLine(0).endY <= sizeY and toolLine(0).endY >= 0

               line toolLine(0).startX,toolLine(0).startY,toolLine(0).endX,toolLine(0).endY
            endif
         endif
      endif
   else
      ink rgb(0,0,0),rgb(255,255,255)
      text 120,450,line$
   endif

   ` Circle
   if toolCircle(0).activeTool = 1
      if mouseX()<=sizeX and mouseX()>=0
         if mouseY()<=sizeY and mouseY()>=0
            if mouseclick()=1
               ink rgb(rColor,gColor,bColor),rgb(255,255,255)
               toolCircle(0).X = mouseX()
               toolCircle(0).Y = mouseY()
               oldmx = mouseX()
               repeat
                  if mouseX() <> oldmx
                     inc toolCircle(0).radius
                  endif

                  oldmx = mouseX()
               until mouseclick()=0
               circle toolCircle(0).X,toolCircle(0).Y,toolCircle(0).radius
               toolCircle(0).radius = 0
            endif
         endif
      endif
   else
      ink rgb(0,0,0),rgb(255,255,255)
      text 200,410,circle$
   endif




LOOP
` -------------------------------
` ----------End of Loop----------
` -------------------------------


` Breakpoint code
wait key
end

` -----------------------------
` ----------FUNCTIONS----------
` -----------------------------
function ResetActiveTool()
   toolLine(0).activeTool = 0
   toolPencil(0).activeTool = 0
   toolCircle(0).activeTool = 0
endfunction

` --------------------------
` ----------GOSUBS----------
` --------------------------

` Create the GUI(messy code)
CreateGUI:
   box 0,0,screen width(),screen height()-75,rgb(128,128,128),rgb(128,128,128),rgb(128,128,128),rgb(128,128,128)
   ink rgb (0,0,255),rgb(0,0,255)
   line 0,screen height()-75,screen width(),screen height()-75
   x = -1
   for n = 1 to 255 step 3
      x = x + 1
      ink rgb(n,n,255),rgb(255,255,255)
      line x,screen height()-74,x,screen height()
   next n
   box 85,screen height()-74,screen width(),screen height()
   ink rgb(0,0,0),rgb(128,128,128)
   set cursor screen width()/2-60,screen height()/2-75
   INPUT "Drawing Size X:  ",sizeX
   if str$(sizeX)=""
      sizeX = 0
   endif
   if sizeX > screen width()
      sizeX = screen width()
   endif
   if sizeX < 0
      sizeX = 0
   endif
   set cursor screen width()/2-60,screen height()/2-55
   INPUT "Drawing Size Y:  ",sizeY
   if str$(sizeY)=""
      sizeY = 0
   endif
   if sizeY > screen height()-75
      sizeY = screen height()-75
   endif
   if sizeY < 0
      sizeY = 0
   endif
   ink rgb(0,0,255),rgb(255,255,255)
   line screen width()-75,screen height()-75,screen width()-75,screen height()
   line screen width()-175,screen height()-75,screen width()-175,screen height()
   box 0,0,screen width(),screen height()-75,rgb(128,128,128),rgb(128,128,128),rgb(128,128,128),rgb(128,128,128)
   box 0,0,sizeX,sizeY,rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)

` Makes the menu
MakeMenu:
   ` Global Text Color
   ink rgb(0,0,0),rgb(255,255,255)

   ` Line Button
   pencil$ = "Pencil"
   text 120,410,pencil$

   ` Pencil Button
   line$ = "Line"
   text 120,450,line$

   ` Box Button
   circle$ = "Circle"
   text 200,410,circle$

return


` Checks the buttons
CheckButtons:

   ` Pencil Button
   if mouseX()>=120 and mouseX()<=120+text width(pencil$)
      if mouseY()>=410 and mouseY()<=410+text height(pencil$)
         if mouseclick()=1
            ResetActiveTool()
            ink rgb(255,0,0),rgb(255,255,255)
            text 120,410,pencil$
            toolPencil(0).activeTool = 1
         endif
      endif
   endif

   ` Line Button
   if mouseX()>=120 and mouseX()<=120+text width(line$)
      if mouseY()>=450 and mouseY()<=450+text height(line$)
         if mouseclick()=1
            ResetActiveTool()
            ink rgb(255,0,0),rgb(255,255,255)
            text 120,450,line$
            toolLine(0).activeTool = 1
         endif
      endif
   endif


   ` Circle Button
   if mouseX()>=200 and mouseX()<=200+text width(circle$)
      if mouseY()>=410 and mouseY()<=410+text height(circle$)
         if mouseclick()=1
            ResetActiveTool()
            ink rgb(255,0,0),rgb(255,255,255)
            text 200,410,circle$
            toolCircle(0).activeTool = 1
         endif
      endif
   endif




return

set display mode 1024,768,32

#CONSTANT TRUE = 1
#CONSTANT FALSE = 0
#constant SLIDER_HORIZONTAL = 1
#constant SLIDER_VERTICAL = 2
#constant GUI_LAYERS_OFFSET = 200
#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)

GLOBAL LAYER_INDEX = 0
GLOBAL CURRENT_LAYER = -1


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 = 60
   sliderUI.trackHeight = 2
   sliderUI.trackColor = 0
   sliderUI.thumbWidth = 4
   sliderUI.thumbHeight = 10
   sliderUI.thumbColor = rgb(128,128,128)
   sliderUI.orientation = SLIDER_HORIZONTAL

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 = 956
   slider.y = 8
   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 = 924
   slider.valueY = slider.y-7

rem color sliders
sliders(1) = slider : slider.y = 20 : slider.valueY = slider.y-7
sliders(2) = slider : slider.y = 32 : slider.valueY = slider.y-7
sliders(3) = slider : slider.y = 44 : slider.valueY = slider.y-7
sliders(4) = slider

rem brush size slider
slider.x = 876
slider.y = 105
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 = 85

sliders(5) = slider






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

addLayer()
`addLayer()
addLayer()

sync on
backdrop on
color backdrop 0xFFFFFF
`make matrix 1,1,1,1,1


color as dword



REPEAT

   if mouseclick() = 1 and mousex() < 874 then drawFlag = 1
   if mouseclick() <> 1 then drawFlag = 0

   if drawFlag = 1 then gosub _drawing
   if drawFlag = 0 then gosub _handleGUI

   gosub _drawGUI

   _handleSliderHorizontal()

   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()






REM handles drawing functions
_drawing:
   if mousex() > 0 and mousey() > 0 and mousex() <= 874 and mousey() <= 1024

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

      `dotMemblock(layerObjects(CURRENT_LAYER).memblock, mousex(), mousey(), color, sliders(4).value)

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

      make image from memblock layerObjects(CURRENT_LAYER).memblock, layerObjects(CURRENT_LAYER).memblock
   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 = t
               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 then layerFlag = 0 : visibleFlag = 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

   ink 0,0
   rem labels for color sliders
   text 876, 1, "Red"
   text 876, 13, "Green"
   text 876, 25, "Blue"
   text 876, 37, "Alpha"

   rem divider line under color sliders
   box 872,80,1024,81
   ink rgb(255,255,255),0
   box 872,81,1024,82

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

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




RETURN



REM Create a new blank layer
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


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


function dotMemblock(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 Horizontal Slider
REM handles slider UI and renders the components
function _handleSliderHorizontal()
   local ui as sliderComponentUI

   for i = 1 to array count(sliders())
      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



      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

      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
   next i

endfunction

sync on
sync rate 0
cls

global width
width=(screen width()-1)
global height
height=(screen height()-1)
type c3
   red as byte
   green as byte
   blue as byte
endtype

dim color(width,height) as c3

make memblock 1,width*height*4+12
write memblock dword 1,0,width
write memblock dword 1,4,height
write memblock dword 1,8,32
   for y = 1 to Height
      for x = 1 to Width
         pos = 12 + ((y-1)*Width*4) + ((x-1)*4)
         color(x,y).red=0
         color(x,y).green=0
         color(x,y).blue=0
         write memblock byte 1,pos,color(x,y).blue
         write memblock byte 1,pos+1,color(x,y).green
         write memblock byte 1,pos+2,color(x,y).red
         write memblock byte 1,pos+3,255
      next x
   next y
make image from memblock 1,1
do
   cls
   paint=0
   if mouseclick()=1
      paint=1
      red=0
      green=0
      blue=255
   endif
   if mouseclick()=2
      paint=1
      red=255
      green=0
      blue=0
   endif
   if mouseclick()=3
      paint=1
      red=0
      green=255
      blue=0
   endif
   if paint=1
      for x=mousex()-50 to mousex()+50
      for y=mousey()-50 to mousey()+50
      if x>0 and x<width and y>0 and y<height and (mousex()-x)^2+(mousey()-y)^2<50^2
         color(x,y).red=max(color(x,y).red+(1.0-sqrt((mousex()-x)^2+(mousey()-y)^2)^0.5/50.0^0.5)*higher(red-color(x,y).red,color(x,y).red),255)
         color(x,y).green=max(color(x,y).green+(1.0-sqrt((mousex()-x)^2+(mousey()-y)^2)^0.5/50.0^0.5)*higher(green-color(x,y).green,color(x,y).green),255)
         color(x,y).blue=max(color(x,y).blue+(1.0-sqrt((mousex()-x)^2+(mousey()-y)^2)^0.5/50.0^0.5)*higher(blue-color(x,y).blue,color(x,y).blue),255)
      endif
      next y
      next x
   endif
   update_image(1)
   paste image 1,0,0
   sync
   sync
loop

function higher(a#,b#)
   if a#>255 then a#=255
   if b#>255 then b#=255
   if a#> b# then exitfunction a#
endfunction b#

function max(a,b)
   if a>b then a=b
endfunction a

function update_image(img)
   delete image img
   if memblock exist(1) then delete memblock 1
   make memblock 1,width*height*4+12
   write memblock dword 1,0,width
   write memblock dword 1,4,height
   write memblock dword 1,8,32
   for y = 1 to Height
      for x = 1 to Width
         pos = 12 + ((y-1)*Width*4) + ((x-1)*4)
         write memblock byte 1,pos,color(x,y).blue
         write memblock byte 1,pos+1,color(x,y).green
         write memblock byte 1,pos+2,color(x,y).red
         write memblock byte 1,pos+3,255
      next x
   next y
   make image from memblock img,1
endfunction

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

undo_level=10

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

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 1,0,0,19,19,1
delete bitmap 1



ink rgb(212,209,201),0
box 0,0,165,screen height()
ink rgb(255,255,255),0
box 2,2,161,121
box 170,5,screen width()-5,screen height()-5
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

paste image 1,5,220
drawing=1
do


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
   if ucm=1
      if drawing=1 then line oldmx,oldmy,mx,my
      dot mx,my
      oldmx=mx:oldmy=my:drawing=1
   else
      drawing=0
   endif

endif

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



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


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

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


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

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 1,0,0,19,19,1
delete bitmap 1



ink rgb(212,209,201),0
box 0,0,165,screen height()
ink rgb(255,255,255),0
box 2,2,161,121
box 170,5,screen width()-5,screen height()-5
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

paste image 1,5,220
drawing=1
do


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
   if ucm=1
      if drawing=1 then line oldmx,oldmy,mx,my
      dot mx,my
      oldmx=mx:oldmy=my:drawing=1
   else
      drawing=0
   endif

endif

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

if ucm=4
   color_test=point(mx,my)
   flood(mx,my,color5,color_test)
   repeat
   until mouseclick()=0
endif



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


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

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

Function mpos(x,y) `x, y coords of image
pos1=((y)*width)+x `width of image, can be global, but you could also add another variable to the func.
pos=(pos1*4)+12
endfunction pos `returns position in memblock