Code: Select all
'****************************************************************************
' By Randall Glass
'
' I donate this code to the public domain
'
'*****************************************************************************
#LANG "fblite"
#include once "fbgfx.bi"
'DEFINT A-Z
Declare function dylibsymbol ( byval libhandle as integer, symbol as string ) as any ptr
DIM DllPTR AS ANY PTR
DIM SHARED hqxInit As SUB stdcall()
DIM SHARED hq2x_32 As SUB stdcall( BYVAL Org AS any ptr, BYVAL Dest AS any ptr, BYVAL width AS INTEGER, BYVAL height AS INTEGER)
DIM SHARED hq3x_32 As SUB stdcall( BYVAL Org AS any ptr, BYVAL Dest AS any ptr, BYVAL width AS INTEGER, BYVAL height AS INTEGER)
DIM SHARED hq4x_32 As SUB stdcall( BYVAL Org AS any ptr, BYVAL Dest AS any ptr, BYVAL width AS INTEGER, BYVAL height AS INTEGER)
DllPTR = DyLibLoad("libhqx-1.dll")
If DllPTR = 0 Then
Print "Unable to load libhqx-1.dll"
SLEEP
END
END IF
hqxInit = DyLibSymbol ( DllPTR, "hqxInit" )
hq2x_32 = DyLibSymbol ( DllPTR, "hq2x_32" )
dim shared ScrPtr as any ptr
ScreenRes(1280, 960, 32,, 1) ' full screen mode
Dim IMG AS ANY PTR
IMG = ImageCreate(640, 480,,32)
BLOAD "Radtutor.bmp", IMG
result% = ImageInfo( IMG,,,,, ScrPtr)
cls
SCREENLOCK
hqxInit()
hq2x_32(ScrPtr, Screenptr, 640, 480)
SCREENUNLOCK
sleep
END