OMG I blitzMAX widely WIN OS compatiable

Miscellaneous Forums/General Discussion/OMG I blitzMAX widely WIN OS compatiable

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

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