Sorry your browser is not supported!

this?

REM Hobgoblin's function
function FloodFill(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)


   index = -1

   if Base <> ForColor

      `Setup array
      `array insert at top AFloodFill()
      inc index,1
      AFloodFill(0).x = gx
      AFloodFill(0).y = gy

      `Write first dot
      write memblock dword mem, 12 + (((gy*imgsx) + gx)*4), ForColor

      `Go off all pixels
      repeat
         `for a = array count(AFloodFill()) to 0 step -1
         for a = index to 0 step -1

            `Get current position
            CurX = AFloodFill(a).x
            CurY = AFloodFill(a).y
            pass = 0
            pos = 12 + (((CurY*imgsx) + CurX)*4)

            `Check point left from base point
            if CurX > 0
               if memblock dword(mem, pos - 4) = Base

                  `Write dot
                  write memblock dword mem, pos - 4, ForColor

                  `Update array
                  `array insert at bottom AFloodFill()
                  inc index,1
                  AFloodFill(index).x = CurX - 1
                  AFloodFill(index).y = CurY
               else
                  inc pass
               endif
            else
               inc pass
            endif

            `Check point right from base point
            if CurX < imgsy - 1
               if memblock dword(mem, pos + 4) = Base and CurX < imgsx - 1

                  `Write dot
                  write memblock dword mem, pos + 4, ForColor

                  `Update array
                  `array insert at bottom AFloodFill()
                  inc index,1
                  AFloodFill(index).x = CurX + 1
                  AFloodFill(index).y = CurY
               else
                  inc pass
               endif
            else
               inc pass
            endif

            `Check point above base point
            if CurY > 0
               if memblock dword(mem, pos - (imgsx*4)) = Base

                  `Write dot
                  write memblock dword mem, pos - (imgsx*4), ForColor

                  `Update array
                  `array insert at bottom AFloodFill()
                  inc index,1
                  AFloodFill(index).x = CurX
                  AFloodFill(index).y = CurY - 1
               else
                  inc pass
               endif
            else
               inc pass
            endif

            `Check point below base point
            if CurY < imgsy - 1
               if memblock dword(mem, pos + (imgsx*4)) = Base

                  `Write dot
                  write memblock dword mem, pos + (imgsx*4), ForColor

                  `Update array
                  `array insert at bottom AFloodFill()
                  inc index,1
                  AFloodFill(index).x = CurX
                  AFloodFill(index).y = CurY + 1
               else
                  inc pass
               endif
            else
               inc pass
            endif

            `Detect if there are no more points to be changed
            if pass = 4
               `array delete element AFloodFill(), a
               dec index,1
               for i = a to index
                  AFloodFill(i) = AFloodFill(i+1)
               next i

            endif

         next a
      until index = -1
   endif

endfunction

sync on
sync rate 0
color backdrop 0

`Enabled use of constant for keys
keyConstants()
Dim LastKeyState(255) as boolean


#constant IMG_SIZE 256
make memblock 1, 12 + (IMG_SIZE * IMG_SIZE * 4)
write memblock dword 1, 0, IMG_SIZE
write memblock dword 1, 4, IMG_SIZE
write memblock dword 1, 8, 32
for i = 12 to get memblock size(1)-1 step 4
   write memblock dword 1, i, 0xFFFFFFFF
next i
make image from memblock 999, 1
delete memblock 1











position camera 0, 0, 3
point camera 0, 0, 0



Type Coord
   x as float
   y as float
EndType





Type WindowData
   Direction as integer
   Scale as float
   pos as Coord
   id as float
   lastDrawnCoord as Coord
EndType

Dim Windows() as WindowData
newWindow()
currentWindow = 0


Tool = 1



global W as WindowData
startTime = timer()
frameTime# = 1.0
repeat
   frameTime# = (0.5 * frameTime#) + (0.5 * (timer() - startTime))
   startTime = timer()

   W = Windows(currentWindow)

   text 0, 0, "FPS: " + str$(screen fps())
   text 0, 10, "SK: " + str$(sk) + ", Direction: " + str$(W.Direction) + ", Scale: " + str$(W.Scale)



   if KeyOnce(DIK_T)
      inc Tool
      if Tool > 3 then Tool = 1
   endif
   testForFunction(Tool)




   if KeyOnce(DIK_DELETE)
      make memblock from image 2, 999
      make image from memblock Windows(currentWindow).id, 2
      delete memblock 2
   endif




   `Sync changes to temp window "W" back into the typed array
   Windows(currentWindow) = W

   `Sync the window
   sync
until keystate(DIK_ESCAPE)
end








function KeyOnce(K as DWORD)
   r = 0

   if LastKeyState(K)
      if keystate(K) = 0 then LastKeyState(K) = 0
   else
      if keystate(K)
         LastKeyState(K) = 1
         r = 1
      endif
   endif
endfunction r







remstart
function minimiseWindow()
   if spacekey()
      if sk = 0 AND W.Direction = 0
         sk = 1
         if W.Scale = 100
            W.Direction = -1
         else
            W.Direction = 1
         endif
      endif
   else
      if sk = 1 then sk = 0
   endif


   if W.Direction = -1
      W.Scale = curvevalue(10.0, W.Scale, 500.0 / frameTime#)
      W.pos.x = curvevalue(1.5, W.pos.x, 500.0 / frameTime#)
      W.pos.y = curvevalue(-1.25, W.pos.y, 500.0 / frameTime#)

      if W.Scale <= 10.2
         W.Direction = 0
         W.Scale = 10.0
      endif

      scale object 1, W.SCale, W.Scale, 100
      position object 1, W.x, W.y, 0.0
   else
      if W.Direction = 1
         W.Scale = curvevalue(100.0, W.Scale, 500.0 / frameTime#)
         W.x = curvevalue(0.0, W.x, 500.0 / frameTime#)
         W.y = curvevalue(0.0, W.y, 500.0 / frameTime#)

         if W.Scale >= 99.8
            W.Direction = 0
            W.Scale = 100.0
         endif

         scale object 1, W.SCale, W.Scale, 100
         position object 1, W.x, W.y, 0.0
      endif
   endif
endfunction
remend


function testForFunction(f)
   clicked as boolean : clicked = 0
   onCanvas as boolean : onCanvas = 0
   x as integer : x = -1
   y as integer : y = -1

   if W.Direction = 0
      if W.Scale = 100
         if pick object(mousex(), mousey(), W.id, W.id) = W.id
            onCanvas = 1

            if mouseclick() = 1
               x as double float
               y as double float

               x = int((0.5 - ((get pick vector x() - camera position x() - object position x(W.id)) / object size x(W.id))) * IMG_SIZE)
               y = int((0.0 - ((get pick vector y() - camera position y() - object position y(W.id)) / object size y(W.id))) * IMG_SIZE)

               clicked = 1
            endif
         endif
      endif
   endif





   select f
      case 1 : drawLineInWindow(x, y, clicked, onCanvas) : endcase
      case 2 : drawFreehandInWindow(x, y, clicked, onCanvas) : endcase
      case 3 : fillAtCoord(x, y, clicked, onCanvas) : endcase
   endselect

endfunction




function fillAtCoord(x as word, y as word, clicked as boolean, onCanvas as boolean)
   PrintToolName("Fill In")
   if onCanvas
      if clicked
         `Used as a stack
         global ptr as DWORD : ptr = make memory(IMG_SIZE * IMG_SIZE * 4)


         `Create a memblock image
         make memblock from image 1, W.id

         `Get the match colour
         matchColor as dword : matchColor = memblock dword(1, getMemblockImagePos(x, y, IMG_SIZE))

         `Add to the queue...
         `writeMemory(ptr, getMemblockImagePos(x, y, IMG_SIZE))
         writeMemory(ptr, x)
         writeMemory(ptr+2, y)
         `Next point to write to
         i = 4


         repeat
            `"pop" the stack offset
            dec i, 4
            `If its not negative, grab it
            if i > -1
               `get the x and y coors from the memory section, +0 = 0, +2 = y.
               x = getMemory(ptr + i)
               y = getMemory(ptr + i + 2)

               `Clear the old bit
               fill memory ptr, i, 4

               `check left, up, right and down. If its within canvas boundaries - go into the fill test function below
               if x > 0            then i = FillTest(x-1, y, matchColor, i)
               if y > 0            then i = FillTest(x, y-1, matchColor, i)
               if x < IMG_SIZE - 1 then i = FillTest(x+1, y, matchColor, i)
               if y < IMG_SIZE - 1 then i = FillTest(x, y+1, matchColor, i)

               `Finally, fill this pixel black (after validation)
               pos = getMemblockImagePos(x, y, IMG_SIZE)
               if pos >= 12 AND pos <= get memblock size(1) -4 then write memblock dword 1, pos, 0xFF000000

               `Debug...
               make image from memblock W.id, 1
               sync
            endif
            `Keep going to till we exhaust the stack
         until i <= 0

         `turn it into an image and clean up.
         make image from memblock W.id, 1
         delete memblock 1
         delete memory ptr
      endif
   endif

endfunction



function FillTest(x as word, y as word, matchColor as dword, i as DWORD)
   pos = getMemblockImagePos(x, y, IMG_SIZE)
   if pos <= get memblock size(1)-4
      if memblock dword(1, pos) = matchColor
         `Check its not already in the stack
         j = 0
         repeat
            if getMemory(ptr + j) = x then if getMemory(ptr + j + 2) = y then exitfunction
            inc j, 4
         until getMemory(ptr + j) = 0


         `Write the next coord to look at into the memory queue
         writeMemory(ptr + i, x)
         writeMemory(ptr + i + 2, y)


         `Forward the memory pointer on by 1
         inc i, 4
      endif
   endif
endfunction i

`Simple "get" function. returns value at pointer position
function getMemory(ptr as DWORD)
   r = *ptr
endfunction r

`Simple write function - sets a value at the pointer position
function writeMemory(ptr as DWORD, value as DWORD)
   *ptr = value
endfunction








function drawFreehandInWindow(x as integer, y as integer, clicked as boolean, onCanvas as boolean)
   PrintToolName("Freehand")
   if onCanvas
      if clicked = 1
         make memblock from image 1, W.id

         if W.lastDrawnCoord.x = -1
            MemblockLine(1, x, y, x, y)
         else
            MemblockLine(1, W.lastDrawnCoord.x, W.lastDrawnCoord.y, x, y)
         endif

         W.lastDrawnCoord.x = x
         W.lastDrawnCoord.y = y

         make image from memblock W.id, 1
         delete memblock 1
      else
         W.lastDrawnCoord.x = -1
         W.lastDrawnCoord.y = -1
         if memblock exist(1) then delete memblock 1
      endif
   else
      W.lastDrawnCoord.x = -1
      W.lastDrawnCoord.y = -1
      if memblock exist(1) then delete memblock 1
   endif
endfunction







function drawLineInWindow(x as integer, y as integer, clicked as boolean, onCanvas as boolean)
   PrintToolName("Line Tool")
   if onCanvas
      if clicked
         if W.lastDrawnCoord.x = -1
            W.lastDrawnCoord.x = x
            W.lastDrawnCoord.y = y
            make memblock from image 2, W.id
            make memblock from image 1, W.id
         endif
         copy memblock 2, 1, 0, 0, get memblock size(2)

         if W.lastDrawnCoord.x = -1
            MemblockLine(1, x, y, x, y)
         else
            MemblockLine(1, W.lastDrawnCoord.x, W.lastDrawnCoord.y, x, y)
         endif

         make image from memblock W.id, 1
      else
         W.lastDrawnCoord.x = -1
         W.lastDrawnCoord.y = -1
         if memblock exist(1) then delete memblock 1
         if memblock exist(2) then delete memblock 2
      endif
   endif
endfunction








function PrintToolName(tool as string)
   text screen width() - text width(tool), 0, tool
endfunction











function newWindow()
   array insert at bottom Windows()
   Windows().Direction = 0
   Windows().Scale = 100
   Windows().pos.x = 0
   Windows().pos.y = 0
   Windows().lastDrawnCoord.x = -1
   Windows().lastDrawnCoord.y = -1
   Windows().id = nextFreeObj()

   make memblock from image 2, 999
   make image from memblock Windows().id, 2
   delete memblock 2


   make object plain       Windows().id, 3, 3
   texture object          Windows().id, Windows().id
   set object transparency Windows().id, 3
   set object light        Windows().id, 0


   position object Windows().id, 0.0, 0.0, 0
   point object    Windows().id, 0.0, 0.0, 1
endfunction







function nextFreeObj()
   i = 1
   while object exist(i) : inc i : endwhile
endfunction i








function getMemblockImagePos(x, y, width)
   p = 12 + (x + (y * width)) * 4
endfunction p






function MemblockLine(mb, x1, y1, x2, y2)
   `Flip the image if going "up"
   if y2 < y1
      tx = x1
      ty = y1

      x1 = x2
      y1 = y2

      x2 = tx
      y2 = ty
   endif


   dx = abs(x1-x2)
   dy = abs(y1-y2)

   if dy > dx
     `More than 45 degrees, so flip the x and y angles but make a note for later checking.
      t = dx
      dx = dy
      dy = t
      t = 1
   else
      t = 0
   endif


   `dStart value
   d = (2 * dy) - dx

   `Check the x values to see if we draw from left to right
   if x1 > x2
      incX = -1
   else
      incX = 1
   endif

   x = x1


   `No need to check the y as we have flipped it earlier if we needed to
   y = y1
   incY = 1


   `Start the Loop
   do
      `Are we at the end yet? If so then exit
      if incx > 0
         if x >= x2
            if incy > 0
               if y >= y2 then exit
            else
               if y <= y2 then exit
            endif
         endif
      else
         if x <= x2
            if incy > 0
               if y >= y2 then exit
            else
               if y <= y2 then exit
            endif
         endif
      endif


      if d < 0
         `OPTION a
         d = d + (2 * dy)

         if t = 0
            inc x, incX
         else
            inc y, incY
         endif
      else
         `OPTION b
         d = d + (2 * dy) - (2 * dx)
         inc x, incX
         inc y, incY
      endif

      `Draw a dot (but check within memblock range first...
      pos = getMemblockImagePos(x, y, IMG_SIZE)
      if pos < get memblock size(mb)-5 AND pos > 0
         write memblock dword mb, pos, 0xFF000000
      endif
   loop
endfunction



function keyConstants()
  #constant    DIK_0              11
  #constant    DIK_1               2
  #constant    DIK_2               3
  #constant    DIK_3               4
  #constant    DIK_4               5
  #constant    DIK_5               6
  #constant    DIK_6               7
  #constant    DIK_7               8
  #constant    DIK_8               9
  #constant    DIK_9              10
  #constant    DIK_A              30
  #constant    DIK_ABNT_C1       115
  #constant    DIK_ABNT_C2       126
  #constant    DIK_ADD            78
  #constant    DIK_APOSTROPHE     40
  #constant    DIK_APPS          221
  #constant    DIK_AT            145
  #constant    DIK_AX            150
  #constant    DIK_B              48
  #constant    DIK_BACK           14
  #constant    DIK_BACKSLASH      43
  #constant    DIK_BACKSPACE      14
  #constant    DIK_C              46
  #constant    DIK_CALCULATOR    161
  #constant    DIK_CAPITAL        58
  #constant    DIK_CAPSLOCK       58
  #constant    DIK_CIRCUMFLEX    144
  #constant    DIK_COLON         146
  #constant    DIK_COMMA          51
  #constant    DIK_CONVERT       121
  #constant    DIK_D              32
  #constant    DIK_DECIMAL        83
  #constant    DIK_DELETE        211
  #constant    DIK_DIVIDE        181
  #constant    DIK_DOWN          208
  #constant    DIK_DOWNARROW     208
  #constant    DIK_E              18
  #constant    DIK_END           207
  #constant    DIK_EQUALS         13
  #constant    DIK_ESCAPE          1
  #constant    DIK_F              33
  #constant    DIK_F1             59
  #constant    DIK_F2             60
  #constant    DIK_F3             61
  #constant    DIK_F4             62
  #constant    DIK_F5             63
  #constant    DIK_F6             64
  #constant    DIK_F7             65
  #constant    DIK_F8             66
  #constant    DIK_F9             67
  #constant    DIK_F10            68
  #constant    DIK_F11            87
  #constant    DIK_F12            88
  #constant    DIK_F13           100
  #constant    DIK_F14           101
  #constant    DIK_F15           102
  #constant    DIK_G              34
  #constant    DIK_GRAVE          41
  #constant    DIK_H              35
  #constant    DIK_HOME          199
  #constant    DIK_I              23
  #constant    DIK_INSERT        210
  #constant    DIK_J              36
  #constant    DIK_K              37
  #constant    DIK_KANA          112
  #constant    DIK_KANJI         148
  #constant    DIK_L              38
  #constant    DIK_LALT           56
  #constant    DIK_LBRACKET       26
  #constant    DIK_LCONTROL       29
  #constant    DIK_LEFT          203
  #constant    DIK_LEFTARROW     203
  #constant    DIK_LMENU          56
  #constant    DIK_LSHIFT         42
  #constant    DIK_LWIN          219
  #constant    DIK_M              50
  #constant    DIK_MAIL          236
  #constant    DIK_MEDIASELECT   237
  #constant    DIK_MEDIASTOP     164
  #constant    DIK_MINUS          12
  #constant    DIK_MULTIPLY       55
  #constant    DIK_MUTE          160
  #constant    DIK_MYCOMPUTER    235
  #constant    DIK_N              49
  #constant    DIK_NEXT          209
  #constant    DIK_NEXTTRACK     153
  #constant    DIK_NOCONVERT     123
  #constant    DIK_NUMLOCK        69
  #constant    DIK_NUMPAD0        82
  #constant    DIK_NUMPAD1        79
  #constant    DIK_NUMPAD2        80
  #constant    DIK_NUMPAD3        81
  #constant    DIK_NUMPAD4        75
  #constant    DIK_NUMPAD5        76
  #constant    DIK_NUMPAD6        77
  #constant    DIK_NUMPAD7        71
  #constant    DIK_NUMPAD8        72
  #constant    DIK_NUMPAD9        73
  #constant    DIK_NUMPADCOMMA   179
  #constant    DIK_NUMPADENTER   156
  #constant    DIK_NUMPADEQUALS  141
  #constant    DIK_NUMPADMINUS    74
  #constant    DIK_NUMPADPERIOD   83
  #constant    DIK_NUMPADPLUS     78
  #constant    DIK_NUMPADSLASH   181
  #constant    DIK_NUMPADSTAR     55
  #constant    DIK_O              24
  #constant    DIK_OEM_102        86
  #constant    DIK_P              25
  #constant    DIK_PAUSE         197
  #constant    DIK_PERIOD         52
  #constant    DIK_PGDN          209
  #constant    DIK_PGUP          201
  #constant    DIK_PLAYPAUSE     162
  #constant    DIK_POWER         222
  #constant    DIK_PREVTRACK     144
  #constant    DIK_PRIOR         201
  #constant    DIK_Q              16
  #constant    DIK_R              19
  #constant    DIK_RALT          184
  #constant    DIK_RBRACKET       27
  #constant    DIK_RCONTROL      157
  #constant    DIK_RETURN         28
  #constant    DIK_RIGHT         205
  #constant    DIK_RIGHTARROW    205
  #constant    DIK_RMENU         184
  #constant    DIK_RSHIFT         54
  #constant    DIK_RWIN          220
  #constant    DIK_S              31
  #constant    DIK_SCROLL         70
  #constant    DIK_SEMICOLON      39
  #constant    DIK_SLASH          53
  #constant    DIK_SLEEP         223
  #constant    DIK_SPACE          57
  #constant    DIK_STOP          149
  #constant    DIK_SUBTRACT       74
  #constant    DIK_SYSRQ         183
  #constant    DIK_T              20
  #constant    DIK_TAB            15
  #constant    DIK_U              22
  #constant    DIK_UNDERLINE     147
  #constant    DIK_UNLABELED     151
  #constant    DIK_UP            200
  #constant    DIK_UPARROW       200
  #constant    DIK_V              47
  #constant    DIK_VOLUMEDOWN    174
  #constant    DIK_VOLUMEUP      176
  #constant    DIK_W              17
  #constant    DIK_WAKE          227
  #constant    DIK_WEBBACK       234
  #constant    DIK_WEBFAVORITES  230
  #constant    DIK_WEBFORWARD    233
  #constant    DIK_WEBHOME       178
  #constant    DIK_WEBREFRESH    231
  #constant    DIK_WEBSEARCH     229
  #constant    DIK_WEBSTOP       232
  #constant    DIK_X              45
  #constant    DIK_Y              21
  #constant    DIK_YEN           125
  #constant    DIK_Z              44
endfunction

set display mode 1024,768,32

#CONSTANT NULL = 0
#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
#CONSTANT ACTION_ADDLAYER = 6
#CONSTANT ACTION_DELETELAYER = 7


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


rem
type Vector2D
   x as integer
   y as integer
endtype


rem
type Menu
   name as string
   active as boolean
   width as integer
   count as integer
endtype

rem
type MenuItem
   parentID as integer
   item as string
   enabled as boolean
   check as integer
endtype


rem
type toolButton
   x as integer
   y as integer
   size as integer
   active as boolean
   action as integer
   group 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(8) as toolButton
tempTool as toolButton
tempTool.x = 876
tempTool.y = 340
tempTool.size = 20
tempTool.active = FALSE
tempTool.action = ACTION_DRAW
tempTool.group = 1

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


tools(7).x = tools(5).x
tools(7).y = 746
tools(7).size = 20
tools(7).group = -1
tools(7).action = ACTION_ADDLAYER
tools(7).active = FALSE

tools(8).x = tools(6).x
tools(8).y = 746
tools(8).size = 20
tools(8).group = -1
tools(8).action = ACTION_DELETELAYER
tools(8).active = FALSE



rem for the menu system
dim menus() as Menu
dim menuItems() as MenuItem

MENU_FILE = addMenu("File")
MENU_EDIT = addMenu("Edit")
MENU_FILTER = addMenu("Filter")

addMenuItem(MENU_FILE,"New",1,-1)
addMenuItem(MENU_FILE,"Open",1,-1)
addMenuItem(MENU_FILE,"Save",1,-1)
addMenuItem(MENU_FILE,"Exit",1,-1)

addMenuItem(MENU_EDIT,"Resize",0,-1)

addMenuItem(MENU_FILTER,"Blur",0,-1)
addMenuItem(MENU_FILTER,"",1,-1)
addMenuItem(MENU_FILTER,"",1,-1)
addMenuItem(MENU_FILTER,"",1,-1)


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

rem create a new document and add 2 more default(blank) layers
new()
addLayer(TRUE)
addLayer(TRUE)



sync on
backdrop on
color backdrop 0x808080


color as dword



REPEAT

   if mouseclick() = 0 then drawFlag = 0

   _mc = mouseclick()
   if _mc = 0 then  _menuMouseFlag = 0

   v$ = _handleMenus$(_mc)
   `if v$ <> "" then value$ = v$
   if v$ <> "" then fireMenuAction(v$) : drawFlag = 0

   if _menuFlag = 0
      if mousex() > 874
         gosub _handleGUI
      else
         if mouseclick() = 1
            if drawFlag = 0
               start = 0
               oldmx = mousex() - sprite x(CURRENT_LAYER)
               oldmy = mousey() - sprite y(CURRENT_LAYER)
            endif
            drawFlag = 1
         endif
      endif
   endif


   if drawFlag = 1
      select CURRENT_ACTION
         case ACTION_DRAW : gosub _drawing : oldmx=mousex()-sprite x(CURRENT_LAYER) : oldmy=mousey()-sprite y(CURRENT_LAYER) : 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 _menuFlag = 1
         `hide sprite img
      else
         if layerObjects(i).isVisible = TRUE
            show sprite img
            `sprite img,0,0,img
            set sprite alpha img, layerObjects(i).alpha
            `set sprite priority img, array count(layerObjects())-layerObjects(i).order
            set sprite priority img, layerObjects(i).order
         else
            hide sprite img
         endif
      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()-sprite x(CURRENT_LAYER), mousey()-sprite y(CURRENT_LAYER), 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
      if mousex() >= sprite x(CURRENT_LAYER) and mousey() >= sprite y(CURRENT_LAYER) and mousex() <= sprite x(CURRENT_LAYER)+sprite width(CURRENT_LAYER) and mousey() <= sprite y(CURRENT_LAYER)+sprite height(CURRENT_LAYER)
         color = rgb(sliders(1).value, sliders(2).value, sliders(3).value)
         mx = mousex() - sprite x(CURRENT_LAYER)
         my = mousey() - sprite y(CURRENT_LAYER)
         bline(layerObjects(CURRENT_LAYER).memblock, oldmx,oldmy,mx,my, color, sliders(4).value,sliders(5).value-1)
         `oldmx = mx
         `oldmy = my
         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

   count = array count(layerObjects())

   for i = 1 to array count(layerObjects())
      t = count - 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)
               if t < (count-1) then layerFlag = i
               CURRENT_LAYER = i
               loffsety = mousey() - (GUI_LAYERS_OFFSET+t*LAYER_HEIGHT+2)
            endif
         endif

         if t < (count-1)
            rem moving a layer with mouse (reording)
            if layerFlag > 0
               if mouseclick() = 1

                  rem move layer above
                  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
                     endif
                  endif

                  rem move layer below
                  if mousey() > GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+2
                     if layerObjects(layerFlag).order > layerObjects(i).order
                        order = layerObjects(i).order
                        layerObjects(i).order = layerObjects(layerFlag).order
                        layerObjects(layerFlag).order = order
                     endif
                  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

   rem tools
   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
            if tools(i).group > 0
               for t = 1 to array count(tools())
                  if tools(t).group = tools(i).group then tools(t).active = FALSE
               next t
               tools(i).active = TRUE
               CURRENT_ACTION = tools(i).action
            else
               fireButtonAction(tools(i).action)
            endif
            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
   count = array count(layerObjects())
   for t = 1 to count
      i = count - 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 t = 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 + " - " + str$(i)

      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
   for i = 1 to array count(tools())
      drawButton(tools(i).x, tools(i).y, tools(i).size, tools(i).active)
      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 draws a square button
function drawButton(x as integer, y as integer, size as integer, active as boolean)

   a as dword
   b as dword

   if active = FALSE
      a = 0xFFFFFF
      b = 0
   else
      a = 0
      b = 0xFFFFFF
   endif
   ink a,0
   box x, y,x+size, y+1
   box x, y,x+1, y+size
   ink b,0
   box x, y+size-1,x+size, y+size
   box x+size-1, y,x+size,y+size

endfunction



REM Create a new blank layer
REM if "blank" is false, it assumes the memblock used
REM for drawing operations will be created in an load image
REM routine.
REM Should you not plan on creating a memblock from a loaded
REM image after calling this, then "blank" must be TRUE
function addLayer(blank as boolean)
   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
   if blank = TRUE then makeLayerMemblock(i)
endfunction i



REM create a memblock for drawing routines
function makeLayerMemblock(index as integer)
   `width = 872
   `height = 752
   width = 800
   height = 600
   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,16,index
   sprite index, 38,100,index
endfunction



REM Loads an image into a new layer
function loadImage(imgPath as string)
   if path exist(imgPath)
      index = addLayer(0)
      load image imgPath,index,1
      make memblock from image layerObjects(index).memblock, index
      sprite index, 38,100,index
   endif
endfunction




REM draws a square for painting based on "size"
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 a single dot
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 y > 0 and x <= width 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 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 fireButtonAction(action as integer)
   print "WTF WTF WTF WTF WTF"
   select action
      case ACTION_ADDLAYER : addLayer(TRUE) : endcase
      case ACTION_DELETELAYER : deleteLayer(CURRENT_LAYER) : endcase
   endselect
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
      case ACTION_ADDLAYER : _draw_icon_add(x,y) : endcase
      case ACTION_DELETELAYER : _draw_icon_minus(x,y) : endcase
   endselect

endfunction


REM +
function _draw_icon_add(x,y)
   ink 0,0
   box x+2,y+8,x+18,y+12
   box x+8,y+2,x+12,y+18
endfunction

REM -
function _draw_icon_minus(x,y)
   ink 0,0
   box x+4,y+8,x+16,y+12
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(index,x1,y1,x2,y2,color as dword,alpha as integer,size as integer)
   dx = x2-x1
   dy = y2-y1

   dotMemblockBrush(index, x1, y1, color, alpha,size)

   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
         dotMemblockBrush(index, x1, m#*x1+b#, color, alpha,size)
      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
            dotMemblockBrush(index, m#*y1+b#, y1, color, alpha,size)
         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)
   endif
endfunction



REM Recursive flood fill
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)

   rem this limit prevents stack overflows that may occur from using this form of algorithm
   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








Function _open_save(filter As String,initdir As String,dtitle As String,defext As String,open As Boolean)
   `filter = "Text Documents ( *.txt )|*.txt|All Files ( *.* )|*.*|"
   `initdir = "C:\"
   `dtitle = "Open ~ Test"
   `defext = "txt"
   `open = 1 For Open Dialogu, 0 for save dialogue


   `Get DLL numbers
   user32 As Integer
   comdlg32 As Integer

   `Load in required DLL's
   user32 = _find_fee_dll()
   Load DLL "user32.dll",user32
   comdlg32 = _find_fee_dll()
   Load DLL "comdlg32.dll",comdlg32


   `Get handle ( unique ID ) to the calling ( this ) window
   hwnd As DWord
   hwnd = Call DLL(user32,"GetActiveWindow")


   `Unload DLL as it is no longer needed
   Delete DLL user32


   `Get the Memblock Number
   OPENFILENAME As Integer
   OPENFILENAME = _find_free_mem()
   `Make The Memblock containing the OPENFILENAME structure
   Make MemBlock OPENFILENAME,76


   `Get the pointer to the just created Structure
   lpofn As DWord
   lpofn = Get MemBlock Ptr(OPENFILENAME)


   `Declare temp variables to hold data for OPENFILENAME structure
   size As Integer
   filebuffer As String
   filebufferptr As DWord
   flags As DWord

   filter = filter + "|"
   initdir = initdir + "|"
   dtitle = dtitle + "|"
   defext = defext + "|"
   filebuffer = "|" + Space$(255) + "|"
   filebufferptr = _get_str_ptr(filebuffer)
   flags = 0x00001000 || 0x00000004 || 0x00000002
   size = 0

   Write MemBlock DWord OPENFILENAME,0,76                     : `lStructSize
   Write MemBlock DWord OPENFILENAME,4,hwnd                   : `hwndOwner
   `Write MemBlock DWord OPENFILENAME,8,NULL                   : `hInstance
   Write MemBlock DWord OPENFILENAME,12,_get_str_ptr(filter)  : `lpstrFilter
   `Write MemBlock DWord OPENFILENAME,16,0                     : `lpstrCustomFilter
   `Write MemBlock DWord OPENFILENAME,20,NULL                  : `nMaxCustFilter
   Write MemBlock DWord OPENFILENAME,24,1                     : `nFilterIndex
   Write MemBlock DWord OPENFILENAME,28,filebufferptr         : `lpstrFile
   Write MemBlock DWord OPENFILENAME,32,256                   : `nMaxFile
   `Write MemBlock DWord OPENFILENAME,36,0                     : `lpstrFileTitle
   `Write MemBlock DWord OPENFILENAME,40,NULL                  : `nMaxFileTitle
   Write MemBlock DWord OPENFILENAME,44,_get_str_ptr(initdir) : `lpstrInitialDir
   Write MemBlock DWord OPENFILENAME,48,_get_str_ptr(dtitle)  : `lpstrTitle
   Write MemBlock DWord OPENFILENAME,52,flags                 : `Flags
   `Write MemBlock Word OPENFILENAME,56,NULL                   : `nFileOffset
   `Write MemBlock Word OPENFILENAME,58,NULL                   : `nFileExtension
   Write MemBlock DWord OPENFILENAME,60,_get_str_ptr(defext)  : `lpstrDefExt
   `Write MemBlock DWord OPENFILENAME,64,NULL                  : `lCustData
   `Write MemBlock DWord OPENFILENAME,68,NULL                  : `lpfnHook
   `Write MemBlock DWord OPENFILENAME,72,0                     : `lpTemplateName


   `Call the Command to open the dialouge
   retval As DWord
   If open
      retval = Call DLL(comdlg32,"GetOpenFileNameA",lpofn)
   Else
      retval = Call DLL(comdlg32,"GetSaveFileNameA",lpofn)
   EndIf

   `Check if it was sucecfull
   If retval <> 0
      code$ = _get_str(filebufferptr,256)
   Else
      retval = Call DLL(comdlg32,"CommDlgExtendedError")
      Select retval
         Case 0xFFFF : code$ = "The dialog box could not be created. The common dialog box function's call to the DialogBox function failed. For example, this error occurs if the common dialog box call specifies an invalid window handle." : EndCase
         Case 0x0006 : code$ = "The common dialog box function failed to find a specified resource." : EndCase
         Case 0x0004 : code$ = "The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a corresponding instance handle." : EndCase
         Case 0x0002 : code$ = "The common dialog box function failed during initialization. This error often occurs when sufficient memory is not available." : EndCase
         Case 0x000B : code$ = "The ENABLEHOOK flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a pointer to a corresponding hook procedure." : EndCase
         Case 0x0008 : code$ = "The common dialog box function failed to lock a specified resource." : EndCase
         Case 0x0003 : code$ = "The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a corresponding template." : EndCase
         Case 0x0007 : code$ = "The common dialog box function failed to load a specified string." : EndCase
         Case 0x0001 : code$ = "The lStructSize member of the initialization structure for the corresponding common dialog box is invalid." : EndCase
         Case 0x0005 : code$ = "The common dialog box function failed to load a specified string." : EndCase
         Case 0x3003 : code$ = "The buffer pointed to by the lpstrFile member of the OPENFILENAME structure is too small for the file name specified by the user. The first two bytes of the lpstrFile buffer contain an integer value specifying the size, in TCHARs, required to receive the full name." : EndCase
         Case 0x0009 : code$ = "The common dialog box function was unable to allocate memory for internal structures." : EndCase
         Case 0x3002 : code$ = "A file name is invalid." : EndCase
         Case 0x000A : code$ = "The common dialog box function was unable to lock the memory associated with a handle." : EndCase
         Case 0x3001 : code$ = "An attempt to subclass a list box failed because sufficient memory was not available." : EndCase
         Case Default : code$ = "WHOOPS!" : EndCase
      EndSelect
   EndIF

   Delete DLL comdlg32


EndFunction code$



Function _get_str_ptr(pstr As String)
   `pstr$ should be a "|" ( NULL ) seperated string.

   memnum As Integer
   strlen As Integer
   char As Byte
   memptr As DWord
   strptr As DWord

   memnum = _find_free_mem()
   strlen = Len(pstr)

   Make MemBlock memnum,strlen

   For i = 1 To strlen
      If Mid$(pstr,i) = "|"
         char = 0
      Else
         char = Asc(Mid$(pstr,i))
      EndIf
      Write MemBlock Byte memnum,(i - 1),char
   Next i

   memptr = Get MemBlock Ptr(memnum)

   strptr = Make Memory(strlen)

   Copy Memory strptr,memptr,strlen

   Delete MemBlock memnum


EndFunction strptr



Function _get_str(strptr As DWord,strsize As Integer)
   `strptr is the pointer returned by _get_str_ptr()
   `strsize is the Integer length of the string specified by the pointer

   memnum As Integer
   memptr As DWord
   str As String
   char As String

   memnum = _find_free_mem()

   Make MemBlock memnum,strsize

   memptr = Get MemBlock Ptr(memnum)

   Copy Memory memptr,strptr,strsize

   For i = 1 To strsize
      str = str + Chr$(MemBlock Byte(memnum,i - 1))
   Next i

EndFunction str



Function _find_fee_dll()
   retval = 0
   Repeat
      Inc retval
   Until DLL Exist(retval) = 0
EndFunction retval



Function _find_free_mem()
   retval = 50
   Repeat
      Inc retval
   Until MemBlock Exist(retval) = 0
EndFunction retval





REM add a new dropdown menu to the bar
REM returns the index for referencing this menu
function addMenu(name as string)
   m as Menu
   m.name = name
   array insert at bottom menus()
   count = array count(menus())
   menus(count) = m
endfunction count


REM add a new menu item to an existing menu
function addMenuItem(pid as integer, item as string, enabled as boolean, check as integer)
   m as MenuItem
   m.parentID = pid
   m.item = item
   m.enabled = enabled
   m.check = check
   array insert at bottom menuItems()
   menuItems(array count(menuItems())) = m

   rem make sure menu is drawn wide enough to handle this item's name
   width = text width(item)+6
   if width > menus(pid).width then menus(pid).width = width

   menus(pid).count = menus(pid).count + 1
endfunction


REM handle drawing and user-interaction of menus
function _handleMenus$(mc as integer)
   v$ = ""
   offsetX = 0
   active = -1
   activeOffset = 0
   rem text height, vertical spacing
   tw = 16

   rem draw menu bar across top
   ink rgb(192,192,192),0
   box 0,0,876,tw

   for i = 0 to array count(menus())
      width = text width(menus(i).name)

      if mc = 1
         if mousex() >= offsetX and mousex() <= offsetX+width+6 and mousey() >= 0 and mousey() <= tw
            if  _menuMouseFlag = 0
                _menuMouseFlag = 1
               if menus(i).active = 0
                  menus(i).active = 1
               else
                  menus(i).active = 0
               endif
               for t = 0 to array count(menus())
                  if t <> i then menus(t).active = 0
               next t
            endif
         endif
      endif

      if menus(i).active = 1
         active = i
         activeOffset = offsetX
         ink rgb(0,180,250),0
         box offsetX,0,offsetX+width+6,tw
      `else
         `ink rgb(192,192,192),0
      endif
      `box offsetX,0,offsetX+width+6,tw
      ink 0,0
      text offsetX+3,0,menus(i).name
      offsetX = offsetX + width + 6
   next i



   if active > -1

      _menuFlag = 1
      ink rgb(192,192,192),0
      box activeOffset,tw,activeOffset+menus(active).width,tw+menus(active).count*tw
      offsetY = 0
      ink 0,0
      for i = 0 to array count(menuItems())
         if menuItems(i).parentID = active
            inc offsetY
            if mousex() > activeOffset and mousex() < activeOffset+menus(active).width and mousey() > offsetY*tw and mousey() < (offsetY+1)*tw
               ink rgb(0,180,250),0
               box activeOffset+1,offsetY*tw+1,activeOffset+menus(active).width-1,(offsetY+1)*tw-1
               rem if this item was clicked
               if mc = 1
                  if _menuMouseFlag = 0
                     _menuMouseFlag = 1
                     if menuItems(i).enabled = 1
                        v$ = menus(active).name + "-" + menuItems(i).item
                        menus(active).active = 0
                        exitfunction v$
                     endif
                  endif
               endif
            endif
            if menuItems(i).enabled = 1
               ink 0,0
            else
               ink rgb(120,120,120),0
            endif
            text activeOffset+3,offsetY*tw,menuItems(i).item
         endif
      next i
   else
      _menuFlag = 0
   endif

endfunction v$



REM
function fireMenuAction(action as string)

   if action = "File-New" then new()
   if action = "File-Open" then open()
   if action = "File-Save" then save()
   if action = "File-Exit" then exitApp()

endfunction



REM not finished
REM need to fix adapt UDT to not use parrallel indices
function deleteLayer(layer as integer)
   delete memblock layer
   delete sprite layer
   delete image layer
   dec LAYER_INDEX, 1
   CURRENT_LAYER = 1
   array delete element layerObjects(), layer

endfunction



rem new image, white as default background for 1st layer
function new()
   for i = 1 to array count(layerObjects())
      delete memblock i
      delete sprite i
      delete image i
   next i
   LAYER_INDEX = 0
   CURRENT_LAYER = -1
   undim layerObjects(0)
   dim layerObjects(0) as LAYER_UI

   addLayer(TRUE)

   width = memblock dword(CURRENT_LAYER, 0)
   height = memblock dword(CURRENT_LAYER, 4)

   rem make default background white
   for x = 0 to width-1
      for y = 0 to height-1
         pos = (y*width + x)*4 + 12
         write memblock dword CURRENT_LAYER, pos, rgb(255,255,255)
      next y
   next x

   make image from memblock CURRENT_LAYER,CURRENT_LAYER

endfunction


rem open an image
function open()
   for i = 1 to array count(layerObjects())
      delete memblock i
      delete sprite i
      delete image i
   next i
   LAYER_INDEX = 0
   CURRENT_LAYER = -1
   `empty array layerObjects()

   undim layerObjects(0)
   dim layerObjects(0) as LAYER_UI

   loadImage(_open_save("All Files ( *.* )|*.*|","C:\","Open File","jpg",1))
endfunction



function save()
   file$ = _open_save("All Files ( *.* )|*.*|","C:\","Save File","jpg",0)
endfunction



function exitApp()
   end
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

sync on
set display mode 1024,768,32
dim color(11,15) as dword



type imagepoint
   xpos as integer
   ypos as integer
endtype

dim color_check(-1) as imagepoint
#constant max_width=800
#constant max_height = 600
global canvas_width
global canvas_height
global draw_mode as string
global spray_size=12
global brush_size=1
global brush_style=0
global color5
global color6
global undo_level=50
global across
global down
global noise_level=1
global psycho_level=1

draw_mode="pencil"
color6=rgb(255,255,255)




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

for rr = 1 to 12
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




 draw_interface()
 make_canvas(128,128)




drawing=1
do


ink rgb(212,209,201),0
for a = 0 to 5
   box 4+a*25,219,25+a*25,240
next a

box 5,245,160,270
box 99,174,120,195
box 5,321,55,341


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
   case "box"
      box 79,219,100,240
   endcase
   case "circle"
      box 104,219,125,240
   endcase
   case "line"
      box 129,219,150,240
   endcase
endselect

if brush_style=1 then box 99,174,120,195

center text 15,245,str$(brush_size)
center text 65,245,str$(spray_size)
center text 15,325,str$(Noise_level)
center text 40,325,str$(Psycho_level)
text 60,302,"Filters"
text 35,372,"New Canvas"
text 60,402,"Save/Load"

paste image 1,5,220
paste image 2,30,220
paste image 3,55,220
paste image 4,80,220
paste image 5,105,220
paste image 6,130,220

paste image 11,5,300
paste image 12,30,300

paste image 501,5,288
paste image 502,16,288
paste image 501,30,288
paste image 502,41,288

paste image 7,5,400
paste image 9,30,400
paste image 10,5,370
paste image 8,100,175

paste image 501,5,208
paste image 502,16,208
paste image 501,55,208
paste image 502,66,208

ink color6,0
box 40,170,70,200
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>80
      shift_undo()
      undo_level=80
   endif
   get image undo_level,across,down,across+canvas_width,down+canvas_height,1

endif


if mx>=across and mx<=across+canvas_width and my>=down and my<=down+canvas_height and ucm>0 and ucm<3
   if ucm=1 then ink color5,0
   if ucm=2 then ink color6,0

   if draw_mode="pencil"
      if drawing=1
         line oldmx,oldmy,mx,my
         if brush_size>1
            for a=mx-brush_size+1 to mx+brush_size-1
               for b = my-brush_size+1 to my+brush_size-1
               x1=a:x2=oldmx+(a-mx):y1=b:y2=oldmy+(b-my)
               if x1<across then x1=across
               if x2<across then x2=across
               if y1<down then y1=down
               if y2<down then y2=down
               if x1>across+canvas_width then x1=across+canvas_width
               if x2>across+canvas_width then x2=across+canvas_width
               if y1>down+canvas_height then y1=down+canvas_height
               if y2>down+canvas_height then y2=down+canvas_height
               if brush_style=1
                  if a>mx
                     ink color6,0
                  else
                     ink color5,0
                  endif
               endif

               line x1,y1,x2,y2
            next b: next a
         endif
      endif

      for a = mx-brush_size+1 to mx+brush_size-1
         for b = my-brush_size+1 to my+brush_size-1
         if a>=across and a<=across+canvas_width and b>=down and b<=down+canvas_height
            dot a,b
         endif
      next b:next a
      oldmx=mx:oldmy=my:drawing=1
   endif

   if draw_mode="flood"
      color_test=point(mx,my)
      if ucm=1
         if color_test<>color5 then flood(mx,my,color5,color_test)
      else
         if color_test<>color6 then flood(mx,my,color6,color_test)
      endif
      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>=across and newx<=across+canvas_width and newy>=down and newy<=down+canvas_height then dot newx,newy
      drawing=1
   endif

   if draw_mode="box"
      make_box(mx,my,ucm,0)
      drawing=1
   endif

   if draw_mode="line"
      make_line(mx,my,ucm,0)
      drawing=1
   endif

   if draw_mode="circle"
      make_circle(mx,my,ucm,0)
      add_undo()
      ink 0,0
      box 170,0,screen width(),screen height()

      paste image undo_level,across,down

   endif


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,across,down
   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

`box

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,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,13947080,16777215
data 16777215,13947080,16777215,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,16777215,13947080
data 13947080,16777215,13947080,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,13947080,16777215
data 16777215,13947080,16777215,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,16777215,13947080
data 13947080,16777215,13947080,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,13947080,16777215
data 16777215,13947080,16777215,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,16777215,13947080
data 13947080,16777215,13947080,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,13947080,16777215
data 16777215,13947080,16777215,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,16777215,13947080
data 13947080,16777215,13947080,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,13947080,16777215
data 16777215,13947080,16777215,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,16777215,13947080
data 13947080,16777215,13947080,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,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,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215

`circle
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,0,0,0,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,0,0,16777215,16777215,16777215,16777215,16777215,0,0,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215,16777215,16777215
data 16777215,16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215,16777215
data 16777215,16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215,16777215
data 16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215
data 16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215
data 16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215
data 16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215
data 16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215
data 16777215,16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215,16777215
data 16777215,16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215,16777215
data 16777215,16777215,16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,0,0,16777215,16777215,16777215,16777215,16777215,0,0,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,0,0,0,0,0,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215

`line
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,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215,13947080
data 13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,16777215,13947080,16777215
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,0,0,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

`save

data 16777215,13947080,16777215,13947080,16777215,13947080,65280,65280,65280,65280,65280,65280,65280,65280,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,0,0,0,0,0,65280,65280,65280,65280,65280,65280,65280,65280,0,0,0,0,0,16777215
data 16777215,0,3618815,3618815,3618815,3618815,65280,65280,65280,65280,65280,65280,65280,65280,3618815,3618815,3618815,3618815,0,13947080
data 13947080,0,255,16777215,16777215,16777215,65280,65280,65280,65280,65280,65280,65280,65280,255,255,255,3618815,0,16777215
data 16777215,0,255,16777215,16777215,16777215,65280,65280,65280,65280,65280,65280,65280,65280,255,255,255,3618815,0,13947080
data 13947080,0,255,16777215,16777215,16777215,65280,65280,65280,65280,65280,65280,65280,65280,255,255,255,3618815,0,16777215
data 16777215,0,255,255,255,255,65280,65280,65280,65280,65280,65280,65280,65280,255,255,255,3618815,0,13947080
data 13947080,0,255,255,255,255,65280,65280,65280,65280,65280,65280,65280,65280,255,255,255,3618815,0,16777215
data 16777215,0,255,255,255,255,65280,65280,65280,65280,65280,65280,65280,65280,255,255,255,3618815,0,13947080
data 13947080,0,255,255,255,255,65280,65280,65280,65280,65280,65280,65280,65280,255,255,255,3618815,0,16777215
data 16777215,0,255,65280,255,255,65280,65280,65280,65280,65280,65280,65280,65280,255,255,65280,3618815,0,13947080
data 13947080,0,255,255,65280,255,65280,65280,65280,65280,65280,65280,65280,65280,255,65280,255,3618815,0,16777215
data 16777215,0,255,255,255,65280,65280,65280,65280,65280,65280,65280,65280,65280,65280,255,255,3618815,0,13947080
data 13947080,0,255,255,255,255,65280,65280,65280,65280,65280,65280,65280,65280,255,255,255,3618815,0,16777215
data 16777215,0,255,255,255,255,255,65280,65280,65280,65280,65280,65280,255,255,255,255,3618815,0,13947080
data 13947080,0,255,255,255,255,255,255,65280,65280,65280,65280,255,255,255,255,255,3618815,0,16777215
data 16777215,0,255,255,255,255,255,255,255,65280,65280,255,255,255,255,255,255,3618815,0,13947080
data 13947080,0,255,255,255,255,255,255,255,8421504,8421504,255,255,255,255,255,255,3618815,0,16777215
data 16777215,0,255,255,255,255,255,255,255,8421504,8421504,255,255,255,255,255,255,3618815,0,13947080
data 13947080,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16777215


`dual
data 33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,0,0,0,33023,33023,0,33023,33023,0,33023,33023,0,0,33023,33023,0,33023,33023,33023
data 33023,0,33023,0,0,33023,0,33023,33023,0,33023,0,33023,33023,0,33023,0,33023,33023,33023
data 33023,0,33023,33023,0,33023,0,33023,33023,0,33023,0,33023,33023,0,33023,0,33023,33023,33023
data 33023,0,33023,33023,0,33023,0,33023,33023,0,33023,0,0,0,0,33023,0,33023,33023,33023
data 33023,0,33023,33023,0,33023,0,33023,33023,0,33023,0,33023,33023,0,33023,0,33023,33023,33023
data 33023,0,33023,0,0,33023,0,33023,33023,0,33023,0,33023,33023,0,33023,0,33023,33023,33023
data 33023,0,0,0,33023,33023,33023,0,0,33023,33023,0,33023,33023,0,33023,0,0,0,33023
data 33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,16711680,16711680,16711680,255,255,255,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,16711680,16711680,16711680,255,255,255,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,16711680,16711680,16711680,255,255,255,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,16711680,16711680,16711680,255,255,255,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,16711680,16711680,16711680,255,255,255,33023,33023,33023,33023,33023,33023,33023,33023
data 33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023,33023


`load
data 16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,16711680,16711680,13947080,16777215,13947080,16777215,13947080,16777215,13947080,16777215,13947080
data 13947080,0,0,0,0,0,0,0,16711680,16711680,16711680,16711680,0,0,0,0,0,0,0,16777215
data 16777215,0,3618815,3618815,3618815,3618815,3618815,16711680,16711680,16711680,16711680,16711680,16711680,3618815,3618815,3618815,3618815,3618815,0,13947080
data 13947080,0,255,16777215,16777215,16777215,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,255,3618815,0,16777215
data 16777215,0,255,16777215,16777215,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,13947080
data 13947080,0,255,16777215,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,3618815,0,16777215
data 16777215,0,255,16711680,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,16711680,3618815,0,13947080
data 13947080,0,16711680,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,16711680,0,16777215
data 16777215,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,13947080
data 13947080,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,16777215
data 16777215,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,13947080
data 13947080,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,16777215
data 16777215,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,13947080
data 13947080,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,16777215
data 16777215,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,13947080
data 13947080,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,16777215
data 16777215,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,13947080
data 13947080,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,16777215
data 16777215,0,255,255,255,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,16711680,255,255,3618815,0,13947080
data 13947080,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16777215

`newcanvas
data 12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215
data 16777215,12632256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,16777215,12632256
data 12632256,16777215,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,8421440,8421440,8421440,8421440,0,12632256,16777215
data 16777215,12632256,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,8421440,8421440,8421440,0,16777215,12632256
data 12632256,16777215,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,8421440,8421440,0,12632256,16777215
data 16777215,12632256,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,8421440,0,16777215,12632256
data 12632256,16777215,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,0,12632256,16777215
data 16777215,12632256,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,16777215,12632256
data 12632256,16777215,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,12632256,16777215
data 16777215,12632256,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,16777215,12632256
data 12632256,16777215,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,12632256,16777215
data 16777215,12632256,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,16777215,12632256
data 12632256,16777215,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,12632256,16777215
data 16777215,12632256,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,16777215,12632256
data 12632256,16777215,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,12632256,16777215
data 16777215,12632256,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,16777215,12632256
data 12632256,16777215,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,12632256,16777215
data 16777215,12632256,0,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,16777088,0,16777215,12632256
data 12632256,16777215,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12632256,16777215
data 16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256,16777215,12632256

`noise
data 16776960,16776960,16776960,16776960,8421376,16776960,16776960,16776960,8421376,16776960,16776960,16776960,16776960,16776960,16776960,8421376,8421376,16776960,16776960,16776960
data 16776960,16776960,16776960,8421376,16776960,16776960,16776960,16776960,8421376,8421376,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960
data 8421376,16776960,16776960,16776960,8421376,8421376,16776960,16776960,8421376,16776960,16776960,8421376,16776960,8421376,16776960,16776960,16776960,16776960,16776960,16776960
data 16776960,16776960,16776960,8421376,16776960,16776960,16776960,16776960,16776960,16776960,16776960,8421376,8421376,16776960,8421376,8421376,16776960,16776960,16776960,16776960
data 16776960,16776960,16776960,16776960,16776960,16776960,8421376,8421376,16776960,16776960,8421376,16776960,8421376,16776960,16776960,8421376,8421376,16776960,16776960,16776960
data 16776960,16776960,8421376,8421376,16776960,16776960,16776960,8421376,16776960,16776960,8421376,8421376,16776960,16776960,8421376,16776960,16776960,8421376,16776960,16776960
data 8421376,16776960,8421376,16776960,16776960,16776960,16776960,16776960,16776960,8421376,8421376,16776960,8421376,8421376,16776960,16776960,16776960,16776960,16776960,16776960
data 16776960,16776960,16776960,8421376,8421376,16776960,16776960,16776960,8421376,16776960,16776960,8421376,8421376,16776960,16776960,16776960,16776960,8421376,16776960,16776960
data 16776960,16776960,16776960,8421376,16776960,8421376,16776960,8421376,16776960,8421376,8421376,8421376,16776960,8421376,8421376,8421376,16776960,8421376,8421376,8421376
data 16776960,16776960,8421376,16776960,16776960,16776960,16776960,16776960,16776960,16776960,8421376,8421376,16776960,16776960,16776960,16776960,16776960,16776960,16776960,8421376
data 8421376,8421376,8421376,16776960,8421376,16776960,16776960,8421376,8421376,8421376,16776960,8421376,8421376,16776960,8421376,8421376,8421376,8421376,16776960,8421376
data 8421376,16776960,16776960,16776960,16776960,8421376,8421376,8421376,16776960,16776960,16776960,8421376,16776960,16776960,8421376,16776960,8421376,16776960,8421376,16776960
data 16776960,8421376,16776960,16776960,8421376,16776960,8421376,16776960,16776960,16776960,8421376,16776960,8421376,16776960,8421376,16776960,8421376,16776960,16776960,16776960
data 16776960,8421376,16776960,8421376,16776960,16776960,8421376,16776960,16776960,16776960,8421376,16776960,16776960,16776960,8421376,8421376,8421376,16776960,16776960,8421376
data 16776960,16776960,16776960,16776960,8421376,8421376,8421376,16776960,16776960,8421376,16776960,8421376,8421376,8421376,16776960,16776960,8421376,16776960,16776960,16776960
data 16776960,16776960,16776960,16776960,16776960,8421376,16776960,8421376,8421376,8421376,8421376,8421376,16776960,8421376,8421376,8421376,16776960,16776960,16776960,8421376
data 16776960,16776960,16776960,16776960,16776960,8421376,16776960,8421376,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960
data 8421376,16776960,16776960,16776960,16776960,8421376,8421376,8421376,8421376,16776960,16776960,16776960,16776960,8421376,8421376,16776960,16776960,8421376,8421376,8421376
data 8421376,16776960,8421376,16776960,16776960,16776960,16776960,16776960,8421376,8421376,16776960,8421376,16776960,16776960,16776960,8421376,8421376,8421376,16776960,16776960
data 16776960,8421376,8421376,16776960,16776960,8421376,8421376,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960,16776960,8421376,8421376,8421376,16776960

`psycho
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,16711680,16711680,16711680,16776960,16776960,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16711680,16711680,16711680,16711680,16711680,16776960,16776960,16776960,16776960,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16711680,16711680,16711680,16711680,16711680,16711680,16776960,16776960,16776960,16776960,16776960,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,65535,65535,16711680,16711680,16711680,16711680,16711680,16776960,16776960,16776960,16776960,255,255,16777215,16777215,16777215,16777215
data 16777215,16777215,65535,65535,65535,65535,16711680,16711680,16711680,16711680,16776960,16776960,16776960,255,255,255,255,16777215,16777215,16777215
data 16777215,16777215,65535,65535,65535,65535,65535,16711680,16711680,16711680,16776960,16776960,255,255,255,255,255,16777215,16777215,16777215
data 16777215,65535,65535,65535,65535,65535,65535,65535,16711680,16711680,16776960,255,255,255,255,255,255,255,16777215,16777215
data 16777215,65535,65535,32768,32768,32768,32768,32768,32768,16711680,255,255,255,255,255,255,255,255,16777215,16777215
data 16777215,32768,32768,32768,32768,32768,32768,16711808,16711808,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16777215,16777215
data 16777215,32768,32768,32768,32768,32768,16711808,16711808,16711808,16776960,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16711935,16777215,16777215
data 16777215,16777215,32768,32768,32768,16711808,16711808,16711808,16711808,16776960,16776960,16711935,16711935,16711935,16711935,16711935,16711935,16777215,16777215,16777215
data 16777215,16777215,32768,32768,16711808,16711808,16711808,16711808,16711808,16776960,16776960,16776960,16711935,16711935,16711935,16711935,16711935,16777215,16777215,16777215
data 16777215,16777215,16777215,16711808,16711808,16711808,16711808,16711808,16711808,16776960,16776960,16776960,16776960,16711935,16711935,16711935,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16711808,16711808,16711808,16711808,16711808,16776960,16776960,16776960,16776960,16776960,16711935,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16711808,16711808,16711808,16711808,16776960,16776960,16776960,16776960,16776960,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16711808,16711808,16711808,16776960,16776960,16776960,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215
data 16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,16777215,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>=80 and mx<=100 and my>=220 and my<=240 and ucm=1 then draw_mode="box"
if mx>=105 and mx<=125 and my>=220 and my<=240 and ucm=1 then draw_mode="circle"
if mx>=130 and mx<=150 and my>=220 and my<=240 and ucm=1 then draw_mode="line"

if mx>=5 and mx<=15 and my>=208 and my<=218 and brush_size<10 and ucm=1 then inc brush_size:repeat:until mouseclick()=0
if mx>=16 and mx<=26 and my>=208 and my<=218 and brush_size>1 and ucm=1 then dec brush_size:repeat:until mouseclick()=0
if mx>=55 and mx<=65 and my>=208 and my<=218 and spray_size<99 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
if mx>=5 and mx<=15 and my>=288 and my<=298 and Noise_level<20 and ucm=1 then inc noise_level:repeat:until mouseclick()=0
if mx>=16 and mx<=26 and my>=288 and my<=298 and noise_level>1 and ucm=1 then dec noise_level:repeat:until mouseclick()=0
if mx>=30 and mx<=40 and my>=288 and my<=298 and psycho_level<20 and ucm=1 then inc psycho_level:repeat:until mouseclick()=0
if mx>=41 and mx<=50 and my>=288 and my<=298 and psycho_level>1 and ucm=1 then dec psycho_level:repeat:until mouseclick()=0





if mx>1 and mx<162 and my>1 and my<122 and ucm=1 then color5=point(mx,my)
if mx>1 and mx<162 and my>1 and my<122 and ucm=2 then color6=point(mx,my)



if mx>=100 and mx<=120 and my>=175 and my<=195 and ucm=1
   if brush_style=1
      brush_style=0
   else
      brush_style=1
   endif
   repeat
   until mouseclick()=0
endif


 if mx>=5 and mx<=25 and my>=400 and my<=420 and ucm=1 then save_image()
 if mx>=30 and mx<=50 and my>=400 and my<=420 and ucm=1 then load_image()
 if mx>=5 and mx<=25 and my>=370 and my<=390 and ucm=1 then pick_new()
 if mx>=5 and mx<=25 and my>=300 and my<=320 and ucm=1 then noise(noise_level)
 if mx>=30 and mx<=50 and my>=300 and my<=320 and ucm=1 then blur(psycho_level)



endfunction



function shift_undo()
for a = 51 to 80
   make memblock from image a,a
next a
for a=51 to 79
   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
if array count(color_check())>maxel then maxel=array count(color_check())
   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 and curx-1>=across
         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 and curx+1<=across+canvas_width
         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 and cury-1>=down
         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 and cury+1<=down+canvas_height
         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 maxel

function make_box(startx,starty,choice,mode)
repeat
until mouseclick()=0
repeat
paste image undo_level,across,down
if choice=1
   ink color5,0
else
   ink color6,0
endif
if startx<=mousex()
   x1=startx
   x2=mousex()
else
   x1=mousex()
   x2=startx
endif

if starty<=mousey()
   y1=starty
   y2=mousey()
else
   y1=mousey()
   y2=starty
endif

if x1<across then x1=across
if x2>across+canvas_width then x2=across+canvas_width
if y1<down then y1=down
if y2>down+canvas_height then y2=down+canvas_height

box x1,y1,x2,y2
if brush_style=1
   if choice=1
      ink color6,0
   else
      ink color5,0
   endif
   if brush_size=1
      box x1+brush_size,y1+brush_size,x2-brush_size,y2-brush_size-1
   else
      box x1+(brush_size-1)*2,y1+(brush_size-1)*2,x2-(brush_size-1)*2,y2-(brush_size-1)*2
   endif
endif
sync
until mouseclick()=choice
repeat
until mouseclick()=0
endfunction

function make_line(startx,starty,choice,mode)
linemode=check_for_double()
repeat
   repeat
      paste image undo_level,across,down
      if choice=1
         ink color5,0
      else
         ink color6,0
      endif

      mx=mousex():my=mousey()


      if mx<across then mx=across
      if mx>across+canvas_width then mx=across+canvas_width
      if my<down then my=down
      if my>down+canvas_height then my=down+canvas_height

      line startx,starty,mx,my
      if brush_size>1
         for a=mx-brush_size+1 to mx+brush_size-1
               for b = my-brush_size+1 to my+brush_size-1
               x1=a:x2=startx+(a-mx):y1=b:y2=starty+(b-my)
               if x1<across then x1=across
               if x2<across then x2=across
               if y1<down then y1=down
               if y2<down then y2=down
               if x1>across+canvas_width then x1=across+canvas_width
               if x2>across+canvas_width then x2=across+canvas_width
               if y1>down+canvas_height then y1=down+canvas_height
               if y2>down+canvas_height then y2=down+canvas_height
               if brush_style=1
                  if a>mx
                     ink color6,0
                  else
                     ink color5,0
                  endif
               endif

               line x1,y1,x2,y2
            next b: next a
      endif

      sync
   until mouseclick()=choice
   newcheck=check_for_double()
   if linemode>0 and newcheck=0
      startx=mx:starty=my
      add_undo()
   else
      done=1
   endif
until done=1
repeat
until mouseclick()=0

endfunction

function check_for_double()
   repeat
   until mouseclick()=0
   starttime=timer()+100
   repeat
      if mouseclick()>0 then clicked=1
   until starttime<timer() or clicked>0
endfunction clicked

function add_undo()
   inc undo_level
   if undo_level>80
      shift_undo()
      undo_level=80
   endif
   get image undo_level,across,down,across+canvas_width,down+canvas_height,1
endfunction


function make_circle(startx,starty,choice,mode)
   get image 800,0,0,170,screen height(),1

   repeat
   until mouseclick()=0
   repeat
   ink 0,0
      box 171,0,screen width(),screen height()
      paste image undo_level,across,down

      if choice=1
         ink color5,0
      else
         ink color6,0
      endif

      mx=mousex():my=mousey()


      if mx<across then mx=across
      if mx>across+canvas_width then mx=across+canvas_width
      if my<down then my=down
      if my>down+canvas_height then my=down+canvas_height

      rad=abs(startx-mx)
      circle startx,starty,rad

      if brush_size>1

        for circount = 0-brush_size to brush_size
           circle startx,starty,rad+circount
           circle startx-1,starty-1,rad+circount
           circle startx+1,starty+1,rad+circount
           circle startx-1,starty+1,rad+circount
           circle startx+1,starty-1,rad+circount
           if brush_size>2
               circle startx+2,starty+2,rad+circount
               circle startx-2,starty-2,rad+circount
               circle startx-2,starty+2,rad+circount
               circle startx+2,starty-2,rad+circount
           endif
           if brush_style=1
               if circount>0
                  if choice=1
                     ink color6,0
                  else
                     ink color5,0
                  endif
               endif
           endif

        next circount
      endif
      paste image 800,0,0

      sync
   until mouseclick()=choice

repeat
until mouseclick()=0

endfunction


function enter_text(x,y)

   word$=""
   clear entry buffer
   repeat
   ink rgb(255,255,255),0
   box x,y,x+120,y+20
   ink 0,0


   x$=entry$(1)

   if x$<>""
       word$=word$+left$(x$,1)
       clear entry buffer
       repeat
       until scancode()=0
   endif
   sc=scancode()
   if sc=14 and len(word$)>0
      word$=left$(word$,len(word$)-1)
      repeat
      until scancode()=0
   endif

   text x,y,word$
   tl=text width(word$)
   if blink=0
      ink rgb(255,255,255),0
      box x+text width(word$)+2,y,x+text width(word$)+8,y+text height("W")
   else
      ink rgb(100,100,100),0
      box x+text width(word$)+2,y,x+text width(word$)+8,y+text height("W")
   endif
   if blinkspeed<timer()
      if blink=0
         blink=1
      else
         blink=0
      endif
      blinkspeed=timer()+250
   endif
   remstart
      ` this is to test what words were parsed and their lengths
      if array count(words())>-1
      for a=0 to array count(words())
      print words(a);"-";str$(len(words(a)))
      next a
      endif
   remend
   sync
   until scancode()=28
   repeat
      until scancode()=0
      ink rgb(212,209,201),0
      box x,y,x+140,y+21
      ink color5,0
endfunction word$

function save_image()
 file$=enter_text(5,430)
 file$=file$+".bmp"
 if file exist(file$)
   delete file file$
 endif
 save image file$,undo_level
endfunction

function blur(amount)
get image 1999,across,down,across+canvas_width,down+canvas_width,1
lock pixels
for c = 0 to amount
   for a = across to across+canvas_width-2
      for b = down to down+canvas_height-2
         x1=point(a,b):x2=point(a+1,b)
         x3=(x1+x2)/2
         dot a,b,x3
      next b
   next a
   for a = across to across+canvas_width-2
      for b = down to down+canvas_height-2
         x1=point(a,b):x2=point(a,b+1)
         x3=(x1+x2)/2
         dot a,b,x3
      next b
   next a
next c


   unlock pixels
   get image 1998,across,down,across+canvas_width,down+canvas_width,1
   paste image 1999,across,down
   paste image 1998,across+1,down+1
   ink 0,0
   box across+canvas_width+1,down,across+canvas_width+4,down+canvas_height+3


   add_undo()
   repeat
   until spacekey()=0
endfunction


function noise(amount)
lock pixels

   for a = across to across+canvas_width
      for b = down to down+canvas_height

         x1=point(a,b)
         col1=rgbr(x1):col2=rgbg(x1):col3=rgbb(x1)
         col1=col1+rnd(amount*10)-rnd(amount*10)
         col2=col2+rnd(amount*10)-rnd(amount*10)
         col3=col3+rnd(amount*10)-rnd(amount*10)
         if col1<0 then col1=0
         if col2<0 then col2=0
         if col3<0 then col3=0
         if col1>255 then col1=255
         if col2>255 then col2=255
         if col3>255 then col3=255
         ink rgb(col1,col2,col3),0



         dot a,b
      next b
   next a

   unlock pixels


   add_undo()
   repeat
   until spacekey()=0
endfunction

function make_canvas(x,y)
   if x>max_width then x=max_width
   if y>max_height then y=max_height
   Canvas_width=x:canvas_height=y
   ink rgb(255,255,255),0
   lock pixels
   across=(screen width()-canvas_width)/2+85
   down=((screen height()-10)-canvas_height)/2
   for a = across to across+canvas_width
      for b = down to down+canvas_height
         dot a,b
      next b
   next a
   unlock pixels
endfunction

function load_image()
   file$=enter_text(5,430)
   file$=file$+".bmp"
   if file exist(file$)=0 then exitfunction
   load bitmap file$,1
   canvas_width=bitmap width(1)
   canvas_height=bitmap height(1)
   if canvas_width>800 then canvas_width=800
   if canvas_height>600 then canvas_height=600
   undo_level=50
   get image undo_level,0,0,canvas_width,canvas_height,1
   delete bitmap 1
   set current bitmap 0
   across=(screen width()-canvas_width)/2+85
   down=((screen height()-10)-canvas_height)/2
   draw_interface()
   paste image undo_level,across,down
   add_undo()





endfunction

function draw_interface()
cls
ink rgb(212,209,201),0
box 0,0,165,screen height()
ink rgb(255,255,255),0
box 2,2,161,121




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
endfunction

function pick_new()
   text 5,600,"Width (max 800)"
   text 5,650,"Height (max 600)"
   repeat
      wid$=enter_text(5,620)
      valid=0
      picked=0
      for a = 1 to len(wid$)
         xx$=mid$(wid$,a)

         if xx$="1" or xx$="2" or xx$="3" or xx$="4" or xx$="5" or xx$="6" or xx$="7" or xx$="8" or xx$="9" or xx$="0" then inc valid
      next a
      if valid=len(wid$)
         value1=val(wid$)
         if value1>0 and value1<=800
            canvas_width=value1
            picked=1
         endif
      endif
   until picked=1
   repeat
      wid$=enter_text(5,670)
      valid=0
      picked=0
      for a = 1 to len(wid$)
         xx$=mid$(wid$,a)

         if xx$="1" or xx$="2" or xx$="3" or xx$="4" or xx$="5" or xx$="6" or xx$="7" or xx$="8" or xx$="9" or xx$="0" then inc valid
      next a
      if valid=len(wid$)
         value1=val(wid$)
         if value1>0 and value1<=600
            canvas_height=value1
            picked=1
         endif
      endif
   until picked=1
   draw_interface()
   make_canvas(canvas_width,Canvas_height)
   undo_level=50
   get image undo_level,across,down,across+canvas_width,down+canvas_height,1
endfunction

set display mode 1024,768,32

#CONSTANT NULL = 0
#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
#CONSTANT ACTION_ADDLAYER = 6
#CONSTANT ACTION_DELETELAYER = 7
#CONSTANT ACTION_SPRAY = 8


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


rem
type Vector2D
   x as integer
   y as integer
endtype


rem
type Menu
   name as string
   active as boolean
   width as integer
   count as integer
endtype

rem
type MenuItem
   parentID as integer
   item as string
   enabled as boolean
   check as integer
endtype


rem
type toolButton
   x as integer
   y as integer
   size as integer
   active as boolean
   action as integer
   group 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(8) as toolButton
tempTool as toolButton
tempTool.x = 876
tempTool.y = 340
tempTool.size = 20
tempTool.active = FALSE
tempTool.action = ACTION_DRAW
tempTool.group = 1

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 = ACTION_SPRAY
tools(6) = tempTool
tools(1).active = TRUE


tools(7).x = tools(5).x
tools(7).y = 746
tools(7).size = 20
tools(7).group = -1
tools(7).action = ACTION_ADDLAYER
tools(7).active = FALSE

tools(8).x = tools(6).x
tools(8).y = 746
tools(8).size = 20
tools(8).group = -1
tools(8).action = ACTION_DELETELAYER
tools(8).active = FALSE



rem for the menu system
dim menus() as Menu
dim menuItems() as MenuItem

MENU_FILE = addMenu("File")
MENU_EDIT = addMenu("Edit")
MENU_FILTER = addMenu("Filter")

addMenuItem(MENU_FILE,"New",1,-1)
addMenuItem(MENU_FILE,"Open",1,-1)
addMenuItem(MENU_FILE,"Save",1,-1)
addMenuItem(MENU_FILE,"Exit",1,-1)

addMenuItem(MENU_EDIT,"Resize",0,-1)

addMenuItem(MENU_FILTER,"Noise",1,-1)
addMenuItem(MENU_FILTER,"Blur",0,-1)
addMenuItem(MENU_FILTER,"",1,-1)
addMenuItem(MENU_FILTER,"",1,-1)


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

rem create a new document and add 2 more default(blank) layers
new()
addLayer(TRUE)
addLayer(TRUE)



sync on
backdrop on
color backdrop 0x808080


color as dword



REPEAT

   if mouseclick() = 0 then drawFlag = 0

   _mc = mouseclick()
   if _mc = 0 then  _menuMouseFlag = 0

   v$ = _handleMenus$(_mc)
   `if v$ <> "" then value$ = v$
   if v$ <> "" then fireMenuAction(v$) : drawFlag = 0

   if _menuFlag = 0
      if mousex() > 874
         gosub _handleGUI
      else
         if mouseclick() = 1
            if drawFlag = 0
               start = 0
               oldmx = mousex() - sprite x(CURRENT_LAYER)
               oldmy = mousey() - sprite y(CURRENT_LAYER)
            endif
            drawFlag = 1
         endif
      endif
   endif


   if drawFlag = 1
      select CURRENT_ACTION
         case ACTION_DRAW : gosub _drawing : oldmx=mousex()-sprite x(CURRENT_LAYER) : oldmy=mousey()-sprite y(CURRENT_LAYER) : 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
         case ACTION_SPRAY : gosub _spray : endcase
      endselect
   endif


   gosub _drawGUI

   _handleSliders(layerFlag)

   rem draw layers
   for i = 1 to array count(layerObjects())
      img = layerObjects(i).memblock
      if _menuFlag = 1
         `hide sprite img
      else
         if layerObjects(i).isVisible = TRUE
            show sprite img
            `sprite img,0,0,img
            set sprite alpha img, layerObjects(i).alpha
            `set sprite priority img, array count(layerObjects())-layerObjects(i).order
            set sprite priority img, layerObjects(i).order
         else
            hide sprite img
         endif
      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()-sprite x(CURRENT_LAYER), mousey()-sprite y(CURRENT_LAYER), color,sliders(4).value)
   make image from memblock layerObjects(CURRENT_LAYER).memblock, layerObjects(CURRENT_LAYER).memblock
RETURN


REM
_spray:
   if mousex() >= sprite x(CURRENT_LAYER) and mousey() >= sprite y(CURRENT_LAYER) and mousex() <= sprite x(CURRENT_LAYER)+sprite width(CURRENT_LAYER) and mousey() <= sprite y(CURRENT_LAYER)+sprite height(CURRENT_LAYER)
      color = rgb(sliders(1).value, sliders(2).value, sliders(3).value)
      mx = mousex() - sprite x(CURRENT_LAYER)
      my = mousey() - sprite y(CURRENT_LAYER)

      spray(layerObjects(CURRENT_LAYER).memblock, mx, my, color, sliders(4).value, sliders(5).value*10)

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

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
      if mousex() >= sprite x(CURRENT_LAYER) and mousey() >= sprite y(CURRENT_LAYER) and mousex() <= sprite x(CURRENT_LAYER)+sprite width(CURRENT_LAYER) and mousey() <= sprite y(CURRENT_LAYER)+sprite height(CURRENT_LAYER)
         color = rgb(sliders(1).value, sliders(2).value, sliders(3).value)
         mx = mousex() - sprite x(CURRENT_LAYER)
         my = mousey() - sprite y(CURRENT_LAYER)
         bline(layerObjects(CURRENT_LAYER).memblock, oldmx,oldmy,mx,my, color, sliders(4).value,sliders(5).value-1)
         `oldmx = mx
         `oldmy = my
         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

   count = array count(layerObjects())

   for i = 1 to array count(layerObjects())
      t = count - 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)
               if t < (count-1) then layerFlag = i
               CURRENT_LAYER = i
               loffsety = mousey() - (GUI_LAYERS_OFFSET+t*LAYER_HEIGHT+2)
            endif
         endif

         if t < (count-1)
            rem moving a layer with mouse (reording)
            if layerFlag > 0
               if mouseclick() = 1

                  rem move layer above
                  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
                     endif
                  endif

                  rem move layer below
                  if mousey() > GUI_LAYERS_OFFSET+(t*LAYER_HEIGHT)+2
                     if layerObjects(layerFlag).order > layerObjects(i).order
                        order = layerObjects(i).order
                        layerObjects(i).order = layerObjects(layerFlag).order
                        layerObjects(layerFlag).order = order
                     endif
                  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

   rem tools
   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
            if tools(i).group > 0
               for t = 1 to array count(tools())
                  if tools(t).group = tools(i).group then tools(t).active = FALSE
               next t
               tools(i).active = TRUE
               CURRENT_ACTION = tools(i).action
            else
               fireButtonAction(tools(i).action)
            endif
            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
   count = array count(layerObjects())
   for t = 1 to count
      i = count - 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 t = 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 + " - " + str$(i)

      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
   for i = 1 to array count(tools())
      drawButton(tools(i).x, tools(i).y, tools(i).size, tools(i).active)
      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 draws a square button
function drawButton(x as integer, y as integer, size as integer, active as boolean)

   a as dword
   b as dword

   if active = FALSE
      a = 0xFFFFFF
      b = 0
   else
      a = 0
      b = 0xFFFFFF
   endif
   ink a,0
   box x, y,x+size, y+1
   box x, y,x+1, y+size
   ink b,0
   box x, y+size-1,x+size, y+size
   box x+size-1, y,x+size,y+size

endfunction



REM Create a new blank layer
REM if "blank" is false, it assumes the memblock used
REM for drawing operations will be created in an load image
REM routine.
REM Should you not plan on creating a memblock from a loaded
REM image after calling this, then "blank" must be TRUE
function addLayer(blank as boolean)
   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
   if blank = TRUE then makeLayerMemblock(i)
endfunction i



REM create a memblock for drawing routines
function makeLayerMemblock(index as integer)
   `width = 872
   `height = 752
   width = 800
   height = 600
   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,16,index
   sprite index, 38,100,index
endfunction



REM Loads an image into a new layer
function loadImage(imgPath as string)
   if path exist(imgPath)
      index = addLayer(0)
      load image imgPath,index,1
      make memblock from image layerObjects(index).memblock, index
      sprite index, 38,100,index
   endif
endfunction



REM
function spray(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
            if ((px - x)^2 + (py-y)^2) <= size
               pos = ((py-1)*width + px - 1)*4 + 12
               if rnd(1) = 1
                  write memblock dword index, pos, color
                  write memblock byte index, pos+3, alpha
               endif
            endif
         endif
      next py
   next px
endfunction



REM draws a square for painting based on "size"
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 a single dot
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 y > 0 and x <= width 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 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 fireButtonAction(action as integer)
   select action
      case ACTION_ADDLAYER : addLayer(TRUE) : endcase
      case ACTION_DELETELAYER : deleteLayer(CURRENT_LAYER) : endcase
   endselect
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
      case ACTION_ADDLAYER : _draw_icon_add(x,y) : endcase
      case ACTION_DELETELAYER : _draw_icon_minus(x,y) : endcase
      case ACTION_SPRAY : _draw_icon_spray(x,y) : endcase
   endselect

endfunction


REM spray can icon
function _draw_icon_spray(x,y)
   ink 0,0
   dot x+10,y+8
   dot x+5,y+10
   dot x+15,y+10
   dot x+7,y+5
   dot x+10,y+5
   dot x+13,y+5
   dot x+7,y+15
   dot x+10,y+17
   dot x+13,y+15
endfunction



REM +
function _draw_icon_add(x,y)
   ink 0,0
   box x+2,y+8,x+18,y+12
   box x+8,y+2,x+12,y+18
endfunction

REM -
function _draw_icon_minus(x,y)
   ink 0,0
   box x+4,y+8,x+16,y+12
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(index,x1,y1,x2,y2,color as dword,alpha as integer,size as integer)
   dx = x2-x1
   dy = y2-y1

   dotMemblockBrush(index, x1, y1, color, alpha,size)

   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
         dotMemblockBrush(index, x1, m#*x1+b#, color, alpha,size)
      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
            dotMemblockBrush(index, m#*y1+b#, y1, color, alpha,size)
         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)
   endif
endfunction



REM Recursive flood fill
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)

   rem this limit prevents stack overflows that may occur from using this form of algorithm
   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








Function _open_save(filter As String,initdir As String,dtitle As String,defext As String,open As Boolean)
   `filter = "Text Documents ( *.txt )|*.txt|All Files ( *.* )|*.*|"
   `initdir = "C:"
   `dtitle = "Open ~ Test"
   `defext = "txt"
   `open = 1 For Open Dialogu, 0 for save dialogue


   `Get DLL numbers
   user32 As Integer
   comdlg32 As Integer

   `Load in required DLL's
   user32 = _find_fee_dll()
   Load DLL "user32.dll",user32
   comdlg32 = _find_fee_dll()
   Load DLL "comdlg32.dll",comdlg32


   `Get handle ( unique ID ) to the calling ( this ) window
   hwnd As DWord
   hwnd = Call DLL(user32,"GetActiveWindow")


   `Unload DLL as it is no longer needed
   Delete DLL user32


   `Get the Memblock Number
   OPENFILENAME As Integer
   OPENFILENAME = _find_free_mem()
   `Make The Memblock containing the OPENFILENAME structure
   Make MemBlock OPENFILENAME,76


   `Get the pointer to the just created Structure
   lpofn As DWord
   lpofn = Get MemBlock Ptr(OPENFILENAME)


   `Declare temp variables to hold data for OPENFILENAME structure
   size As Integer
   filebuffer As String
   filebufferptr As DWord
   flags As DWord

   filter = filter + "|"
   initdir = initdir + "|"
   dtitle = dtitle + "|"
   defext = defext + "|"
   filebuffer = "|" + Space$(255) + "|"
   filebufferptr = _get_str_ptr(filebuffer)
   flags = 0x00001000 || 0x00000004 || 0x00000002
   size = 0

   Write MemBlock DWord OPENFILENAME,0,76                     : `lStructSize
   Write MemBlock DWord OPENFILENAME,4,hwnd                   : `hwndOwner
   `Write MemBlock DWord OPENFILENAME,8,NULL                   : `hInstance
   Write MemBlock DWord OPENFILENAME,12,_get_str_ptr(filter)  : `lpstrFilter
   `Write MemBlock DWord OPENFILENAME,16,0                     : `lpstrCustomFilter
   `Write MemBlock DWord OPENFILENAME,20,NULL                  : `nMaxCustFilter
   Write MemBlock DWord OPENFILENAME,24,1                     : `nFilterIndex
   Write MemBlock DWord OPENFILENAME,28,filebufferptr         : `lpstrFile
   Write MemBlock DWord OPENFILENAME,32,256                   : `nMaxFile
   `Write MemBlock DWord OPENFILENAME,36,0                     : `lpstrFileTitle
   `Write MemBlock DWord OPENFILENAME,40,NULL                  : `nMaxFileTitle
   Write MemBlock DWord OPENFILENAME,44,_get_str_ptr(initdir) : `lpstrInitialDir
   Write MemBlock DWord OPENFILENAME,48,_get_str_ptr(dtitle)  : `lpstrTitle
   Write MemBlock DWord OPENFILENAME,52,flags                 : `Flags
   `Write MemBlock Word OPENFILENAME,56,NULL                   : `nFileOffset
   `Write MemBlock Word OPENFILENAME,58,NULL                   : `nFileExtension
   Write MemBlock DWord OPENFILENAME,60,_get_str_ptr(defext)  : `lpstrDefExt
   `Write MemBlock DWord OPENFILENAME,64,NULL                  : `lCustData
   `Write MemBlock DWord OPENFILENAME,68,NULL                  : `lpfnHook
   `Write MemBlock DWord OPENFILENAME,72,0                     : `lpTemplateName


   `Call the Command to open the dialouge
   retval As DWord
   If open
      retval = Call DLL(comdlg32,"GetOpenFileNameA",lpofn)
   Else
      retval = Call DLL(comdlg32,"GetSaveFileNameA",lpofn)
   EndIf

   `Check if it was sucecfull
   If retval <> 0
      code$ = _get_str(filebufferptr,256)
   Else
      retval = Call DLL(comdlg32,"CommDlgExtendedError")
      Select retval
         Case 0xFFFF : code$ = "The dialog box could not be created. The common dialog box function's call to the DialogBox function failed. For example, this error occurs if the common dialog box call specifies an invalid window handle." : EndCase
         Case 0x0006 : code$ = "The common dialog box function failed to find a specified resource." : EndCase
         Case 0x0004 : code$ = "The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a corresponding instance handle." : EndCase
         Case 0x0002 : code$ = "The common dialog box function failed during initialization. This error often occurs when sufficient memory is not available." : EndCase
         Case 0x000B : code$ = "The ENABLEHOOK flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a pointer to a corresponding hook procedure." : EndCase
         Case 0x0008 : code$ = "The common dialog box function failed to lock a specified resource." : EndCase
         Case 0x0003 : code$ = "The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a corresponding template." : EndCase
         Case 0x0007 : code$ = "The common dialog box function failed to load a specified string." : EndCase
         Case 0x0001 : code$ = "The lStructSize member of the initialization structure for the corresponding common dialog box is invalid." : EndCase
         Case 0x0005 : code$ = "The common dialog box function failed to load a specified string." : EndCase
         Case 0x3003 : code$ = "The buffer pointed to by the lpstrFile member of the OPENFILENAME structure is too small for the file name specified by the user. The first two bytes of the lpstrFile buffer contain an integer value specifying the size, in TCHARs, required to receive the full name." : EndCase
         Case 0x0009 : code$ = "The common dialog box function was unable to allocate memory for internal structures." : EndCase
         Case 0x3002 : code$ = "A file name is invalid." : EndCase
         Case 0x000A : code$ = "The common dialog box function was unable to lock the memory associated with a handle." : EndCase
         Case 0x3001 : code$ = "An attempt to subclass a list box failed because sufficient memory was not available." : EndCase
         Case Default : code$ = "WHOOPS!" : EndCase
      EndSelect
   EndIF

   Delete DLL comdlg32


EndFunction code$



Function _get_str_ptr(pstr As String)
   `pstr$ should be a "|" ( NULL ) seperated string.

   memnum As Integer
   strlen As Integer
   char As Byte
   memptr As DWord
   strptr As DWord

   memnum = _find_free_mem()
   strlen = Len(pstr)

   Make MemBlock memnum,strlen

   For i = 1 To strlen
      If Mid$(pstr,i) = "|"
         char = 0
      Else
         char = Asc(Mid$(pstr,i))
      EndIf
      Write MemBlock Byte memnum,(i - 1),char
   Next i

   memptr = Get MemBlock Ptr(memnum)

   strptr = Make Memory(strlen)

   Copy Memory strptr,memptr,strlen

   Delete MemBlock memnum


EndFunction strptr



Function _get_str(strptr As DWord,strsize As Integer)
   `strptr is the pointer returned by _get_str_ptr()
   `strsize is the Integer length of the string specified by the pointer

   memnum As Integer
   memptr As DWord
   str As String
   char As String

   memnum = _find_free_mem()

   Make MemBlock memnum,strsize

   memptr = Get MemBlock Ptr(memnum)

   Copy Memory memptr,strptr,strsize

   For i = 1 To strsize
      str = str + Chr$(MemBlock Byte(memnum,i - 1))
   Next i

EndFunction str



Function _find_fee_dll()
   retval = 0
   Repeat
      Inc retval
   Until DLL Exist(retval) = 0
EndFunction retval



Function _find_free_mem()
   retval = 50
   Repeat
      Inc retval
   Until MemBlock Exist(retval) = 0
EndFunction retval





REM add a new dropdown menu to the bar
REM returns the index for referencing this menu
function addMenu(name as string)
   m as Menu
   m.name = name
   array insert at bottom menus()
   count = array count(menus())
   menus(count) = m
endfunction count


REM add a new menu item to an existing menu
function addMenuItem(pid as integer, item as string, enabled as boolean, check as integer)
   m as MenuItem
   m.parentID = pid
   m.item = item
   m.enabled = enabled
   m.check = check
   array insert at bottom menuItems()
   menuItems(array count(menuItems())) = m

   rem make sure menu is drawn wide enough to handle this item's name
   width = text width(item)+6
   if width > menus(pid).width then menus(pid).width = width

   menus(pid).count = menus(pid).count + 1
endfunction


REM handle drawing and user-interaction of menus
function _handleMenus$(mc as integer)
   v$ = ""
   offsetX = 0
   active = -1
   activeOffset = 0
   rem text height, vertical spacing
   tw = 16

   rem draw menu bar across top
   ink rgb(192,192,192),0
   box 0,0,876,tw

   for i = 0 to array count(menus())
      width = text width(menus(i).name)

      if mc = 1
         if mousex() >= offsetX and mousex() <= offsetX+width+6 and mousey() >= 0 and mousey() <= tw
            if  _menuMouseFlag = 0
                _menuMouseFlag = 1
               if menus(i).active = 0
                  menus(i).active = 1
               else
                  menus(i).active = 0
               endif
               for t = 0 to array count(menus())
                  if t <> i then menus(t).active = 0
               next t
            endif
         endif
      endif

      if menus(i).active = 1
         active = i
         activeOffset = offsetX
         ink rgb(0,180,250),0
         box offsetX,0,offsetX+width+6,tw
      `else
         `ink rgb(192,192,192),0
      endif
      `box offsetX,0,offsetX+width+6,tw
      ink 0,0
      text offsetX+3,0,menus(i).name
      offsetX = offsetX + width + 6
   next i



   if active > -1

      _menuFlag = 1
      ink rgb(192,192,192),0
      box activeOffset,tw,activeOffset+menus(active).width,tw+menus(active).count*tw
      offsetY = 0
      ink 0,0
      for i = 0 to array count(menuItems())
         if menuItems(i).parentID = active
            inc offsetY
            if mousex() > activeOffset and mousex() < activeOffset+menus(active).width and mousey() > offsetY*tw and mousey() < (offsetY+1)*tw
               ink rgb(0,180,250),0
               box activeOffset+1,offsetY*tw+1,activeOffset+menus(active).width-1,(offsetY+1)*tw-1
               rem if this item was clicked
               if mc = 1
                  if _menuMouseFlag = 0
                     _menuMouseFlag = 1
                     if menuItems(i).enabled = 1
                        v$ = menus(active).name + "-" + menuItems(i).item
                        menus(active).active = 0
                        exitfunction v$
                     endif
                  endif
               endif
            endif
            if menuItems(i).enabled = 1
               ink 0,0
            else
               ink rgb(120,120,120),0
            endif
            text activeOffset+3,offsetY*tw,menuItems(i).item
         endif
      next i
   else
      _menuFlag = 0
   endif

endfunction v$



REM
function fireMenuAction(action as string)

   if action = "File-New" then new()
   if action = "File-Open" then open()
   if action = "File-Save" then save()
   if action = "File-Exit" then exitApp()
   if action = "Filter-Noise" then noise()

endfunction


REM
function noise()
   width = memblock dword(CURRENT_LAYER, 0)
   height = memblock dword(CURRENT_LAYER, 4)
   white as dword
   white = rgb(255,255,255)
   for x = 0 to width-1
      for y = 0 to height-1
         pos = ((y*width)+x)*4 + 12
         if rnd(1) = 0
            white = rgb(1,1,1)
         else
            white = rgb(255,255,255)
         endif
         write memblock dword CURRENT_LAYER, pos,white
      next y
   next x

   make image from memblock CURRENT_LAYER,CURRENT_LAYER
endfunction


REM not finished
REM need to fix adapt UDT to not use parrallel indices
function deleteLayer(layer as integer)
   delete memblock layer
   delete sprite layer
   delete image layer
   dec LAYER_INDEX, 1
   CURRENT_LAYER = 1
   array delete element layerObjects(), layer

endfunction



rem new image, white as default background for 1st layer
function new()
   for i = 1 to array count(layerObjects())
      delete memblock i
      delete sprite i
      delete image i
   next i
   LAYER_INDEX = 0
   CURRENT_LAYER = -1
   undim layerObjects(0)
   dim layerObjects(0) as LAYER_UI

   addLayer(TRUE)

   width = memblock dword(CURRENT_LAYER, 0)
   height = memblock dword(CURRENT_LAYER, 4)

   rem make default background white
   for x = 0 to width-1
      for y = 0 to height-1
         pos = (y*width + x)*4 + 12
         write memblock dword CURRENT_LAYER, pos, rgb(255,255,255)
      next y
   next x

   make image from memblock CURRENT_LAYER,CURRENT_LAYER

endfunction


rem open an image
function open()
   for i = 1 to array count(layerObjects())
      delete memblock i
      delete sprite i
      delete image i
   next i
   LAYER_INDEX = 0
   CURRENT_LAYER = -1
   `empty array layerObjects()

   undim layerObjects(0)
   dim layerObjects(0) as LAYER_UI

   loadImage(_open_save("All Files ( *.* )|*.*|","C:","Open File","jpg",1))
endfunction



function save()
   file$ = _open_save("All Files ( *.* )|*.*|","C:","Save File","jpg",0)
endfunction



function exitApp()
   end
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