Framework BRL.GLMax2D
Import BRL.D3D7Max2D
Import BRL.Bank
Import BRL.FileSystem
Import BRL.RamStream
Import BRL.BMPLoader
Import BRL.PNGLoader
Import BRL.FreeAudioAudio
Import BRL.Random
Import Pub.FreeJoy
Import BRL.Retro
Import Pub.ZLib
?win32
Extern "win32"
Function GetActiveWindow%()
Function GetDesktopWindow%()
Function GetWindowRect%(hWnd%, lpRect: Byte Ptr)
Function SetWindowPos%(hWnd%, after%, x%, y%, w%, h%,
flags%)
End Extern
?
''--------------------------------------------------------
AppTitle$="Tunix 2001 Build[26.8.06] by Gavin Turner "
''--------------------------------------------------------
Global movie_buffer=CreateBank(16),memory=CreateBank
(65537),pixelarray=CreateBank(8194),UVI_buffer=CreateBank(65)
...
...
...
more Variables here...................
...
...
...
SetGraphicsDriver BufferedD3D7Max2DDriver()
Graphics winx,winy
AutoImageFlags DYNAMICIMAGE
SetBlend SOLIDBLEND
SetScale 1,1
SetColor 255,255,255
B_G=CreateImage(maxx,maxy,1,filter_flag+1)
buttons=LoadAnimImage("incbin::buttons.png",25,21,0,38,0)
GCSetMode(2)
While Not AppTerminate()
... Drawing of pixels is like this.....
'Clear image ready for start of display code
Back_buffer=LockImage(B_G)
For i = 0 To maxx-1
For j = 0 To maxy-1
WritePixel(Back_buffer,i,j,EA_color[bgc])
Next
Next
EndIf
Unlockimage(B_G)
...
... More BASIC code in here
...
GCcollect
flip
Wend
End
Import BRL.D3D7Max2D
Import BRL.Bank
Import BRL.FileSystem
Import BRL.RamStream
Import BRL.BMPLoader
Import BRL.PNGLoader
Import BRL.FreeAudioAudio
Import BRL.Random
Import Pub.FreeJoy
Import BRL.Retro
Import Pub.ZLib
?win32
Extern "win32"
Function GetActiveWindow%()
Function GetDesktopWindow%()
Function GetWindowRect%(hWnd%, lpRect: Byte Ptr)
Function SetWindowPos%(hWnd%, after%, x%, y%, w%, h%,
flags%)
End Extern
?
''--------------------------------------------------------
AppTitle$="Tunix 2001 Build[26.8.06] by Gavin Turner "
''--------------------------------------------------------
Global movie_buffer=CreateBank(16),memory=CreateBank
(65537),pixelarray=CreateBank(8194),UVI_buffer=CreateBank(65)
...
...
...
more Variables here...................
...
...
...
SetGraphicsDriver BufferedD3D7Max2DDriver()
Graphics winx,winy
AutoImageFlags DYNAMICIMAGE
SetBlend SOLIDBLEND
SetScale 1,1
SetColor 255,255,255
B_G=CreateImage(maxx,maxy,1,filter_flag+1)
buttons=LoadAnimImage("incbin::buttons.png",25,21,0,38,0)
GCSetMode(2)
While Not AppTerminate()
... Drawing of pixels is like this.....
'Clear image ready for start of display code
Back_buffer=LockImage(B_G)
For i = 0 To maxx-1
For j = 0 To maxy-1
WritePixel(Back_buffer,i,j,EA_color[bgc])
Next
Next
EndIf
Unlockimage(B_G)
...
... More BASIC code in here
...
GCcollect
flip
Wend
End