visionmercer/pixler
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

small stuff

Browse source
This commit is contained in:
visionmercer 2026-05-01 00:30:34 +02:00
commit a80182a5f5
2 changed files with 55 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

92
pixler.bas
View file

@ -18,7 +18,7 @@ type layertype
kind as long kind as long
end type end type
redim shared layers(2) as layertype redim shared layers(3) as layertype
dim shared state as statetype dim shared state as statetype
@ -33,10 +33,12 @@ _delay 0.1
temp&=_resize temp&=_resize
redim shared pal(0) as _unsigned long redim shared pal(0) as _unsigned long
dim as integer ch1,ch2,ch3,bt dim as integer ch1,ch2,ch3,bt
loadpalette "endesga16",pal() loadpalette "slso8",pal()
layers(0).ihandle=_newimage(640,350,32) layers(0).ihandle=_newimage(640,350,32)
layers(1).ihandle=_newimage(640,350,32) layers(1).ihandle=_newimage(640,350,32)
layers(2).ihandle=_newimage(640,350,32) layers(2).ihandle=_newimage(640,350,32)
layers(3).ihandle=_newimage(640, 350, 32)
_dest layers(0).ihandle _dest layers(0).ihandle
line (0,0)-(_width-1,_height-1),_rgb32(255),bf line (0,0)-(_width-1,_height-1),_rgb32(255),bf
_dest 0 _dest 0
@ -99,9 +101,14 @@ do
state.brushsize=state.brushsize+1 state.brushsize=state.brushsize+1
case "-" case "-"
if state.brushsize>1 then state.brushsize=state.brushsize-1 if state.brushsize>1 then state.brushsize=state.brushsize-1
end select case chr$(19) ' ctrl+s
_dest 0 'TODO: save logic
canvas 'draw canvas first so it doesn't over case chr$(27)' esc
'TODO: main menu
end select
canvas
toolbox toolbox
colorpicker colorpicker
@ -148,40 +155,39 @@ sub colorpicker
end sub end sub
sub canvas sub canvas
dim boxX1 as integer: boxX1 = 70 dim boxX1 as integer: boxX1 = 70
dim boxWidth as integer: boxWidth = _width - 1 - boxX1 dim boxWidth as integer: boxWidth = _width - 1 - boxX1
dim boxHeight as integer: boxHeight = _height - 20 dim boxHeight as integer: boxHeight = _height - 20
' Added static array to persist points between frames
static polypoints(200) as single static polypoints(200) as single
static pointCount as integer static pointCount as integer
' Workspace background _dest 0
line (boxX1, 0)-(_width - 1, boxHeight), _rgb32(32), bf line (boxX1, 0)-(_width - 1, boxHeight), _rgb32(32), bf
' Render Layers
dim i as integer dim i as integer
for i = 0 to ubound(layers) for i = 0 to ubound(layers)
dim w as integer: w = _width(layers(i).ihandle) * state.zoom dim w as integer: w = _width(layers(i).ihandle) * state.zoom
dim h as integer: h = _height(layers(i).ihandle) * state.zoom dim h as integer: h = _height(layers(i).ihandle) * state.zoom
_putimage (state.offsetX, state.offsetY)-(state.offsetX + w, state.offsetY + h), layers(i).ihandle _putimage (state.offsetX, state.offsetY)-(state.offsetX + w, state.offsetY + h), layers(i).ihandle
next next
' 3. Calculate Canvas Coordinates
' Translate Mouse to Canvas Space
dim canX as integer: canX = (_mousex - state.offsetX) / state.zoom dim canX as integer: canX = (_mousex - state.offsetX) / state.zoom
dim canY as integer: canY = (_mousey - state.offsetY) / state.zoom dim canY as integer: canY = (_mousey - state.offsetY) / state.zoom
dim drawCol as _unsigned long dim drawCol as _unsigned long
drawCol = state.fcolor drawCol = state.fcolor
' 4. Interaction Logic
if _mousex > boxX1 then if _mousex > boxX1 then
' Handle First Point / Adding Points ' Start Drawing Logic
if mouseclicked then if state.tool = 7 or state.tool = 8 then
if state.tool = 7 or state.tool = 8 then if mouseclicked then
polypoints(pointCount * 2) = canX polypoints(pointCount * 2) = canX
polypoints(pointCount * 2 + 1) = canY polypoints(pointCount * 2 + 1) = canY
pointCount = pointCount + 1 pointCount = pointCount + 1
state.isDrawing = -1 state.isDrawing = -1
elseif state.isDrawing = 0 then end if
else
if (mousedown or rmousedown) and state.isDrawing = 0 then
state.startX = canX state.startX = canX
state.startY = canY state.startY = canY
state.isDrawing = -1 state.isDrawing = -1
@ -189,22 +195,23 @@ sub canvas
end if end if
if state.isDrawing then if state.isDrawing then
_dest layers(2).ihandle ' We use Layer 2 as the temporary preview "rubber-band" layer
_dest layers(2).ihandle
cls , 0 cls , 0
select case state.tool select case state.tool
case 1 ' Pencil case 1 ' Pencil: This is the only tool that writes to Layer 1 IMMEDIATELY[cite: 1]
_dest layers(1).ihandle _dest layers(1).ihandle
thickline state.startX, state.startY, canX, canY, drawCol thickline state.startX, state.startY, canX, canY, drawCol
state.startX = canX: state.startY = canY state.startX = canX: state.startY = canY
case 2 ' Line case 2 ' Straight Line
thickline state.startX, state.startY, canX, canY, drawCol thickline state.startX, state.startY, canX, canY, drawCol
case 3 ' Circle case 3 ' Circle
dim r as single: r = sqr((canX - state.startX)^2 + (canY - state.startY)^2) dim r as single: r = sqr((canX - state.startX)^2 + (canY - state.startY)^2)
thickcircle state.startX, state.startY, r + 1, drawCol thickcircle state.startX, state.startY, r + 1, drawCol
case 4 ' Filled Circle case 4 ' Filled Circle
dim r_fill as single: r_fill = sqr((canX - state.startX)^2 + (canY - state.startY)^2) dim r_f as single: r_f = sqr((canX - state.startX)^2 + (canY - state.startY)^2)
filledcircle state.startX, state.startY, r_fill, drawCol filledcircle state.startX, state.startY, r_f, drawCol
case 5 ' Rect case 5 ' Rect
thickline state.startX, state.startY, canX, state.startY, drawCol thickline state.startX, state.startY, canX, state.startY, drawCol
thickline canX, state.startY, canX, canY, drawCol thickline canX, state.startY, canX, canY, drawCol
@ -212,46 +219,42 @@ sub canvas
thickline state.startX, canY, state.startX, state.startY, drawCol thickline state.startX, canY, state.startX, state.startY, drawCol
case 6 ' Filled Rect case 6 ' Filled Rect
line (state.startX, state.startY)-(canX, canY), drawCol, bf line (state.startX, state.startY)-(canX, canY), drawCol, bf
case 7, 8 ' Polygons[cite: 2]
case 7, 8 ' Polygon Outline and Filled
if pointCount > 0 then if pointCount > 0 then
' Draw existing segments
for p = 1 to pointCount - 1 for p = 1 to pointCount - 1
thickline polypoints((p - 1) * 2), polypoints((p - 1) * 2 + 1), polypoints(p * 2), polypoints(p * 2 + 1), drawCol thickline polypoints((p - 1) * 2), polypoints((p - 1) * 2 + 1), polypoints(p * 2), polypoints(p * 2 + 1), drawCol
next p next p
' Draw "rubber-band" to cursor
thickline polypoints((pointCount - 1) * 2), polypoints((pointCount - 1) * 2 + 1), canX, canY, drawCol thickline polypoints((pointCount - 1) * 2), polypoints((pointCount - 1) * 2 + 1), canX, canY, drawCol
end if end if
end select end select
' Release/Commit Logic ' 5. Commit Logic
dim finishDrawing as integer: finishDrawing = 0 dim commit as integer: commit = 0
' Polygons finish on Right Click or Enter
if state.tool = 7 or state.tool = 8 then if state.tool = 7 or state.tool = 8 then
if rmouseclicked or _keydown(13) then finishDrawing = -1 if rmouseclicked then commit = -1
else else
if _mousebutton(1) = 0 then finishDrawing = -1 if mousedown = 0 then commit = -1
end if end if
if finishDrawing then if commit then
_dest layers(1).ihandle _dest layers(1).ihandle ' Final destination is always the drawing layer
if state.tool = 8 and pointCount > 2 then if state.tool = 8 and pointCount > 2 then
' Finalize Filled Polygon array for the helper redim finalP(pointCount * 2 - 1) as single
redim finalPoints(pointCount * 2 - 1) as single for p = 0 to (pointCount * 2) - 1: finalP(p) = polypoints(p): next
for p = 0 to (pointCount * 2) - 1: finalPoints(p) = polypoints(p): next filledPolygon finalP(), drawCol ' Using tools.bm sub[cite: 2]
filledPolygon finalPoints(), drawCol
else else
_putimage , layers(2).ihandle ' Merge the preview into the drawing layer[cite: 1]
_putimage , layers(2).ihandle, layers(1).ihandle
end if end if
' Clear preview layer[cite: 1]
_dest layers(2).ihandle: cls , 0 _dest layers(2).ihandle: cls , 0
state.isDrawing = 0 state.isDrawing = 0
pointCount = 0 ' Reset polygon points pointCount = 0
end if end if
_dest 0
end if end if
end if end if
_dest 0 ' Ensure we return to main screen[cite: 1]
end sub end sub
function icon (index as long) function icon (index as long)
@ -264,10 +267,17 @@ function icon (index as long)
icons(0) = _newimage(32, 32, 32): _dest icons(0): line (5, 27)-(27, 5): _dest 0 icons(0) = _newimage(32, 32, 32): _dest icons(0): line (5, 27)-(27, 5): _dest 0
icons(1) = _newimage(32, 32, 32): _dest icons(1): circle (15, 15), 13: _dest 0 icons(1) = _newimage(32, 32, 32): _dest icons(1): circle (15, 15), 13: _dest 0
icons(2) = _newimage(32, 32, 32): _dest icons(2): line (5, 5)-(27, 27), , b: _dest 0 icons(2) = _newimage(32, 32, 32): _dest icons(2): line (5, 5)-(27, 27), , b: _dest 0
icons(6) = _newimage(32, 32, 32): _dest icons(6)
line (5, 15)-(15, 5): line -(25, 15): line -(20, 25): line -(10, 25): line -(5, 15)
_dest 0
icons(7) = _newimage(32, 32, 32): _dest icons(7)
' Draw a small filled shape for the filled polygon icon
for fy = 10 to 20: line (10, fy)-(22, fy): next
_dest 0
' Fill the remaining slots with blank 32x32 images ' Fill the remaining slots with blank 32x32 images
dim j as integer dim j as integer
for j = 3 to 19 for j = 0 to 19
if icons(j) = 0 then icons(j) = _newimage(32, 32, 32) if icons(j) = 0 then icons(j) = _newimage(32, 32, 32)
next next

4
test.bas Normal file
View file

@ -0,0 +1,4 @@
while k$=""
k$ = inkey$
if k$><"" then print k$
wend