visionmercer/qb64-include
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Create point32.bm

Browse source
This commit is contained in:
visionmercer 2022-09-19 13:14:03 +02:00
commit 3ad84fccde
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
point32.bm Normal file
View file

@ -0,0 +1,13 @@
$if Point32 = undefined then
$let Point32 = defined
function Point32~& (x as long, y as long)
select case _pixelsize
case 1
Point32 = _palettecolor(point(x,y), _source)
case 4
Point32 = point(x, y)
case else
Point32 = 0
end select
end function
$end if