Posted: Sat Mar 17, 2007 6:24 pm

As is commented in the code, it uses the SuperSprite3D lib by CPL.Bator, but i have modified the functions a little bit.GeoTrail wrote:Psychophanta, do you think you could comment the code a bit so us n00bs can understand and learn from your code?
That's pretty cool.techjunkie wrote:Wow! Can't you do a "Beryl" clone for Windows?
http://wiki.beryl-project.org/wiki/Main_Page
http://www.youtube.com/watch?v=QNb7gPA1JFk
Yeah!Derek wrote:That's pretty cool.techjunkie wrote:Wow! Can't you do a "Beryl" clone for Windows?
http://wiki.beryl-project.org/wiki/Main_Page
http://www.youtube.com/watch?v=QNb7gPA1JFk
Code: Select all
If ExamineDesktops():Global SCREENWIDTH=DesktopWidth(0),SCREENHEIGHT=DesktopHeight(0)
Else:Global SCREENWIDTH=GetSystemMetrics_(#SM_CXSCREEN),SCREENHEIGHT=GetSystemMetrics_(#SM_CYSCREEN)
EndIf
If InitSprite()=0 Or InitSprite3D()=0 Or InitKeyboard()=0
MessageRequester("Error","Can't access DirectX",0):End
EndIf
;SnapShot:
desktop.l = CreateImage(0,DesktopWidth(0),DesktopHeight(0))
Thats odd, just the opposite for me because on the orginal version for me when the screen tilted back it did "disappear" for a second, where the latest version doesn't do that to me.PB wrote:I liked the original code better, because once the screen tilted back to the
bottom, it didn't "disappear" for half a second like it does now.
Also, you've got some incorrect error-checking in your new code:
The last line will cause an error if ExamineDesktops() fails at the top,Code: Select all
If ExamineDesktops():Global SCREENWIDTH=DesktopWidth(0),SCREENHEIGHT=DesktopHeight(0) Else:Global SCREENWIDTH=GetSystemMetrics_(#SM_CXSCREEN),SCREENHEIGHT=GetSystemMetrics_(#SM_CYSCREEN) EndIf If InitSprite()=0 Or InitSprite3D()=0 Or InitKeyboard()=0 MessageRequester("Error","Can't access DirectX",0):End EndIf ;SnapShot: desktop.l = CreateImage(0,DesktopWidth(0),DesktopHeight(0))
since you can't use DesktopWidth() and DesktopHeight() if it fails.
Code: Select all
Data.f 0.005,0.005,0.0045