home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
basic
/
baswiz18.zip
/
BW$BAS.ZIP
/
G13GET.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-29
|
1KB
|
42 lines
' +----------------------------------------------------------------------+
' | |
' | BASWIZ Copyright (c) 1990-1992 Thomas G. Hanlin III |
' | |
' | The BASIC Wizard's Library |
' | |
' +----------------------------------------------------------------------+
DECLARE FUNCTION G13GetPel% (BYVAL X%, BYVAL Y%)
DEFINT A-Z
SUB G13Get (XX1, YY1, XX2, YY2, Image())
IF XX1 < XX2 THEN
X1 = XX1
X2 = XX2
ELSE
X1 = XX2
X2 = XX1
END IF
IF YY1 < YY2 THEN
Y1 = YY1
Y2 = YY2
ELSE
Y1 = YY2
Y2 = YY1
END IF
L = LBOUND(Image)
REDIM Image(L TO L + (5 + (X2 - X1 + 1) * (Y2 - Y1 + 1)) \ 2)
Image(L) = (X2 - X1 + 1) * 8
Image(L + 1) = Y2 - Y1 + 1
DEF SEG = VARSEG(Image(L + 2))
AOfs = VARPTR(Image(L + 2))
FOR Y = Y1 TO Y2
FOR X = X1 TO X2
POKE AOfs, G13GetPel(X, Y)
AOfs = AOfs + 1
NEXT
NEXT
DEF SEG
END SUB