colorindicator
This commit is contained in:
visionmercer
parent
b686bb6633
commit
6435128e22
1 changed files with 70 additions and 31 deletions
91
pixler.bas
91
pixler.bas
|
|
@ -45,19 +45,25 @@ layers(3).ihandle=_newimage(320,320,32)
|
|||
_dest layers(0).ihandle
|
||||
line (0,0)-(_width-1,_height-1),_rgb32(255),bf
|
||||
_dest 0
|
||||
|
||||
state.tool = 1
|
||||
state.fcolor = 1
|
||||
state.bcolor = 2
|
||||
state.zoom = 1.0
|
||||
state.offsetX = 70 + 20 ' To the right of the toolbox
|
||||
state.offsetX = 70 + 20
|
||||
state.offsetY = 20
|
||||
state. brushsize = 1
|
||||
state.fcolor=closestcolor(_rgb32(0,0,0),pal())
|
||||
state.bcolor=closestcolor(_rgb32(255,255,255),pal())
|
||||
addcommand "fcolor ("+hex$(state.fcolor)+")"
|
||||
addcommand "bcolor ("+hex$(state.bcolor)+")"
|
||||
|
||||
dim lastMX, lastMY
|
||||
dim diffX as integer
|
||||
dim diffY as integer
|
||||
dim oldWidth as integer
|
||||
dim oldHeight as integer
|
||||
dim keyin as string
|
||||
dim mouseWorldY as integer
|
||||
dim mouseWorldX as integer
|
||||
|
||||
oldWidth=_width
|
||||
oldHeight=_height
|
||||
|
|
@ -71,7 +77,12 @@ do
|
|||
oldHeight = _height
|
||||
end if
|
||||
|
||||
line (0,0)-(_width-1,_height-1),backgroundcolor1,bf
|
||||
canvas
|
||||
if showtoolbox then toolbox
|
||||
if showcolorpicker then colorpicker
|
||||
if showcommands then commandlist
|
||||
|
||||
|
||||
|
||||
'Mouse Handling
|
||||
while _mouseinput:mw=mw+_mousewheel:wend
|
||||
|
|
@ -92,8 +103,8 @@ do
|
|||
' Zooming
|
||||
if mw <> 0 then
|
||||
' 1. Capture current world position
|
||||
dim mouseWorldX as single: mouseWorldX = (_mousex - state.offsetX) / state.zoom
|
||||
dim mouseWorldY as single: mouseWorldY = (_mousey - state.offsetY) / state.zoom
|
||||
mouseWorldX = (_mousex - state.offsetX) / state.zoom
|
||||
mouseWorldY = (_mousey - state.offsetY) / state.zoom
|
||||
|
||||
' 2. Calculate the new zoom level (Snap to whole numbers)
|
||||
if mw > 0 then
|
||||
|
|
@ -106,8 +117,7 @@ do
|
|||
if state.zoom < 1 then state.zoom = 1
|
||||
if state.zoom > 20 then state.zoom = 20
|
||||
|
||||
' 4. Adjust offsets and LOCK them to integers
|
||||
' This prevents the canvas from sitting "between" screen pixels
|
||||
' 4. Adjust offsets
|
||||
state.offsetX = _mousex - (mouseWorldX * state.zoom)
|
||||
state.offsetY = _mousey - (mouseWorldY * state.zoom)
|
||||
|
||||
|
|
@ -137,12 +147,9 @@ do
|
|||
showcommands=not showcommands
|
||||
end select
|
||||
|
||||
canvas
|
||||
if showtoolbox then toolbox
|
||||
if showcolorpicker then colorpicker
|
||||
if showcommands then commandlist
|
||||
_limit 30
|
||||
_display
|
||||
line (0,0)-(_width-1,_height-1),backgroundcolor1,bf
|
||||
loop
|
||||
|
||||
sub commandlist
|
||||
|
|
@ -151,12 +158,13 @@ sub commandlist
|
|||
dim x as integer:x=_width-listWidth
|
||||
|
||||
' Draw background for the list
|
||||
line (x, 0)-(_width - 1, _height - 1), _rgb32(40, 40, 40), bf
|
||||
line (x, 0)-(x, _height - 1), _rgb32(100, 100, 100)
|
||||
line (x,0)-(_width-1,_height - 1),backgroundcolor1, bf
|
||||
line (x,0)-(x,_height-1),backgroundcolor2
|
||||
|
||||
_printmode _keepbackground
|
||||
for i = 0 to ubound(commands) - 1
|
||||
dim y as integer: y = i * 16
|
||||
dim y as integer
|
||||
for i = ubound(commands) - 1 to 0 step -1
|
||||
y = (ubound(commands)-i) * 16
|
||||
if y < _height - 20 then
|
||||
_printstring (x + 5, y + 5), left$(commands(i), 18)
|
||||
end if
|
||||
|
|
@ -181,6 +189,14 @@ sub toolbox
|
|||
state.tool = i + 1
|
||||
end if
|
||||
next
|
||||
|
||||
'colorindicator
|
||||
y=y+btnSize+16
|
||||
line (16,y+16)-(64,y+64),state.bcolor,bf
|
||||
line (16,y+16)-(64,y+64),highlightcolor,b
|
||||
line (0,y)-(48,y+48),state.fcolor,bf
|
||||
line (0,y)-(48,y+48),highlightcolor,b
|
||||
|
||||
end sub
|
||||
|
||||
sub colorpicker
|
||||
|
|
@ -209,7 +225,6 @@ sub addcommand(cmd as string)
|
|||
commands(ubound(commands))=cmd
|
||||
redim _preserve commands(ubound(commands)+1) as string
|
||||
end if
|
||||
|
||||
end sub
|
||||
|
||||
sub canvas
|
||||
|
|
@ -221,7 +236,6 @@ sub canvas
|
|||
if showcommands then viewX2 = _width - 151 else viewX2 = _width - 1
|
||||
dim viewY2 as integer
|
||||
if showcolorpicker then viewY2 = _height - 20 else viewY2 = _height - 1
|
||||
|
||||
_dest 0
|
||||
|
||||
' 2. Render Layers with Clipping
|
||||
|
|
@ -353,7 +367,6 @@ sub canvas
|
|||
' We use Layer 2 as the temporary preview "rubber-band" layer
|
||||
_dest layers(2).ihandle
|
||||
cls , 0
|
||||
|
||||
select case state.tool
|
||||
case 1 ' Pencil
|
||||
_dest layers(1).ihandle
|
||||
|
|
@ -417,7 +430,7 @@ sub canvas
|
|||
end if
|
||||
else
|
||||
' Merge the preview into the drawing layer
|
||||
_putimage , layers(2).ihandle, layers(1).ihandle
|
||||
'_putimage , layers(2).ihandle, layers(1).ihandle
|
||||
select case state.tool
|
||||
case 2 ' Line
|
||||
thickline state.startX, state.startY, canX, canY, drawCol
|
||||
|
|
@ -566,23 +579,49 @@ FUNCTION CheckResize (CurrentScreen AS _UNSIGNED LONG) 'pulled straight out of t
|
|||
_FREEIMAGE TempScreen
|
||||
CheckResize = -1
|
||||
END IF
|
||||
|
||||
END FUNCTION
|
||||
|
||||
|
||||
sub menu()
|
||||
Line (0,0)-(_width-1,_height-1),_rgb32(0,1),bf
|
||||
dim logo as long
|
||||
logo=_loadimage("logo.png")
|
||||
Line (0,0)-(_width-1,_height-1),_rgb32(0,192),bf
|
||||
do until done
|
||||
k$=inkey$
|
||||
while _mouseinput:wend
|
||||
mouseclicked=mbd and not _mousebutton(1)
|
||||
mbd=_mousebutton(1)
|
||||
if button(10,10,60,23,"open") then system
|
||||
if button(10,34,60,23,"save") then system
|
||||
if button(10,56,60,23,"exit") then system
|
||||
|
||||
if link(10,10,"open") then system
|
||||
if link(10,34,"save") then system
|
||||
if link(10,56,"exit") then system
|
||||
|
||||
if k$=chr$(27) then done=-1
|
||||
_limit 30
|
||||
_display
|
||||
loop
|
||||
end sub
|
||||
|
||||
FUNCTION closestcolor~& (colour AS _UNSIGNED LONG, carr() AS _UNSIGNED LONG)
|
||||
DIM r AS INTEGER
|
||||
DIM g AS INTEGER
|
||||
DIM b AS INTEGER
|
||||
DIM ar AS INTEGER
|
||||
DIM ag AS INTEGER
|
||||
DIM ab AS INTEGER
|
||||
DIM i AS INTEGER
|
||||
DIM nearest AS INTEGER
|
||||
DIM shortestdistance AS INTEGER
|
||||
DIM distance AS INTEGER
|
||||
r = _RED (colour)
|
||||
g = _GREEN(colour)
|
||||
b = _BLUE (colour)
|
||||
shortestdistance = 443
|
||||
FOR i = 0 TO UBOUND(carr)
|
||||
ar = _RED (carr(i))
|
||||
ag = _GREEN(carr(i))
|
||||
ab = _BLUE (carr(i))
|
||||
distance = SQR((r - ar) ^ 2 + (g - ag) ^ 2 + (b - ab) ^ 2)
|
||||
IF distance <= shortestdistance THEN shortestdistance = distance: nearest = i
|
||||
NEXT i
|
||||
closestcolor = carr(nearest)
|
||||
END FUNCTION
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue