17 lines
No EOL
464 B
Text
17 lines
No EOL
464 B
Text
$if Point32 = undefined then
|
|
$let Point32 = defined
|
|
' ## Point32
|
|
' - syntax: ``Point32(x, y)``
|
|
' - Returns the 32 bit color value of pixel at x,y in any graphics mode.
|
|
' - Like ``Point``, ``Point32`` samples ``_Source``
|
|
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 |