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

this that and the other.

Browse source
This commit is contained in:
visionmercer 2026-06-08 12:23:37 +02:00
commit 1cc76d6c2a
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
pixler.bas
View file

@ -10,7 +10,7 @@ type statetype
starty as long starty as long
isdrawing as integer isdrawing as integer
end type end type
''
type layertype type layertype
ihandle as long ihandle as long
blendmode as long blendmode as long
@ -33,7 +33,7 @@ dim shared rmousedown as integer
$resize:on $resize:on
screen _newimage(750,480,32) screen _newimage(750,480,32)
_delay 0.1 _delay 0.1
temp&=_resize dim temp as long:temp=_resize
redim shared pal(0) as _unsigned long redim shared pal(0) as _unsigned long
loadpalette"custodian-8",pal() loadpalette"custodian-8",pal()
@ -273,7 +273,6 @@ sub listcontextmenu (index as long, mx as integer, my as integer)
end if end if
end if end if
' --- RENDER ENTRIES VIA UI BUTTONS ---
dim bx as integer: bx = x + 2 dim bx as integer: bx = x + 2
dim by as integer: by = y + 2 dim by as integer: by = y + 2
dim bw as integer: bw = menuw - 4 dim bw as integer: bw = menuw - 4
@ -290,7 +289,6 @@ sub listcontextmenu (index as long, mx as integer, my as integer)
done = -1 done = -1
end if end if
by = by + 24 by = by + 24
' Item 2: Move Up (moves toward end of array visually) ' Item 2: Move Up (moves toward end of array visually)
if button(bx, by, bw, bh, "Move Up") then if button(bx, by, bw, bh, "Move Up") then
if index < ubound(commands) - 2 then if index < ubound(commands) - 2 then
@ -979,7 +977,6 @@ sub do.polygon(x as long,y as long)
thickline polypoints((pointcount-1)*2),polypoints((pointcount-1)*2+1),x,y,state.fcolor thickline polypoints((pointcount-1)*2),polypoints((pointcount-1)*2+1),x,y,state.fcolor
end if end if
end if end if
_source osource _source osource
_dest odest _dest odest
end if end if