Blitz Basic / Blitz3D - speed differences

Author

Message

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 8th Nov 2004 00:17

Link

ok! so DB makes rather large .exe`s and I wanted to make some simple vector graphics games, no need for 7mb to play asteroids I thinks, so I dug out BlitzMax and ran up a snippet of test code, UMM! thinks me, this seems rather slow, so I ported to Pro to compare, now its MUCH better, but why the speed difference?, I thought max and Pro where comparable, heres the Max code

+ Code Snippet

 Graphics 1024,768
max=50

Dim ovalsdir(max,2)
Dim ovalpos(max,2)
Dim colors(max,3)
Dim speed(max)
For i=1 To max

Repeat
ovalsdir(i,1)=Rnd(-1,1)
Until ovalsdir(i,1)<>0
ovalsdir(i,1)=ovalsdir(i,1)
Repeat
ovalsdir(i,2)=Rnd(-1,1)
Until ovalsdir(i,2)<>0
ovalsdir(i,2)=ovalsdir(i,2)
ovalpos(i,1)=Rnd(0,1024)
ovalpos(i,2)=Rnd(0,768)
speed(i)=Rnd(1,5)
colors(i,1)=Rnd(255)
colors(i,2)=Rnd(255)
colors(i,3)=Rnd(255)
Next


While Not GetMouse()

Cls
SeedRnd 1

For i=1 To 50
Oval Rnd(0,1000),Rnd(0,700),Rnd(80,200),Rnd(80,200),0
Next

For i=1 To max
Color colors(i,1),colors(i,2),colors(i,3)
Oval ovalpos(i,1),ovalpos(i,2),60,60,0

ovalpos(i,1)=ovalpos(i,1)+ovalsdir(i,1)
ovalpos(i,2)=ovalpos(i,2)+ovalsdir(i,2)

If ovalpos(i,1)>965
ovalsdir(i,1)=(-1)*speed(i)
EndIf

If ovalpos(i,1)<1 
ovalsdir(i,1)=1*speed(i)
EndIf

If ovalpos(i,2)>720
ovalsdir(i,2)=(-1)*speed(i)
EndIf

If ovalpos(i,2)<1
ovalsdir(i,2)=1*speed(i)
EndIf

Next 


Flip 1


Wend

End

and heres the pro code...

+ Code Snippet

set display mode 1024,768,32

max=50

Dim ovalsdir(max,2)
Dim ovalpos(max,2)
Dim colors(max,3)
Dim speed(max)
For i=1 To max

Repeat
ovalsdir(i,1)=Rnd(2)-1
Until ovalsdir(i,1)<>0

Repeat
ovalsdir(i,2)=1-Rnd(2)
Until ovalsdir(i,2)<>0

ovalpos(i,1)=Rnd(1024)
ovalpos(i,2)=Rnd(768)
speed(i)=1+Rnd(4)
colors(i,1)=Rnd(255)
colors(i,2)=Rnd(255)
colors(i,3)=Rnd(255)
Next


do

Cls
randomize 1


For i=1 To 50
circle Rnd(1000),Rnd(700),80+Rnd(200)
Next

For i=1 To max
ink rgb(colors(i,1),colors(i,2),colors(i,3)),0
circle ovalpos(i,1),ovalpos(i,2),60

ovalpos(i,1)=ovalpos(i,1)+ovalsdir(i,1)
ovalpos(i,2)=ovalpos(i,2)+ovalsdir(i,2)

If ovalpos(i,1)>965
ovalsdir(i,1)=(-1)*speed(i)
EndIf

If ovalpos(i,1)<1
ovalsdir(i,1)=1*speed(i)
EndIf

If ovalpos(i,2)>720
ovalsdir(i,2)=(-1)*speed(i)
EndIf

If ovalpos(i,2)<1
ovalsdir(i,2)=1*speed(i)
EndIf

Next


sync

loop

as you can see they are almost the same apart from mods to the syntax, can anybody test this and tell me why Max seems to so much slower?, plus if I load max with many more objects I get a flickering screen, not so good

<begin rant> AAARGH! it`s a plot I tell you, a plot, I just can`t find a basic compiler thats intelligible, fast and has compact .exe`s, GRRR!

Mentor.

PC1: P4 3ghz, 1gig mem, 3x160gig hd`s, Radeon 9800pro w cooler (3rd gfx card), 6 way speakers.
PC2: AMD 2ghz, 512mb ram, FX5200 ultra, 16 bit SB.
Mini ATX cases suck.

Back to top

Profile PM

Chris K

21

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 8th Nov 2004 00:21

Link

You can exclude .DLLs from DBPro .exes to make them smaller. They also compress exceptionally well with 7zip.

Back to top

Profile PM

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 8th Nov 2004 00:32

Link

yeah! I know that, but I just want them to take up minimal space on a usb key and be instantly useable, no need to unzip or anything (and if anyone suggests I buy a bigger USB key I will club em with the bleeding end of their own arm...I spend enough on this hobby already

)
and the speed difference is the most interesting thing about this imo, oh well, scrap that idea, Blitzmax is too slow, I can put em on a CD I suppose.

Mentor.

PC1: P4 3ghz, 1gig mem, 3x160gig hd`s, Radeon 9800pro w cooler (3rd gfx card), 6 way speakers.
PC2: AMD 2ghz, 512mb ram, FX5200 ultra, 16 bit SB.
Mini ATX cases suck.

Back to top

Profile PM

Rob K

Retired Moderator

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 8th Nov 2004 00:59

Link

Quote: "so I dug out BlitzMax "

You have BlitzMax? - The entire Blitz community will be envious of you

(It hasn't been released yet, you must mean BlitzBasic / B3D)

BlueGUI:Windows UI Plugin - All the power of the windows interface in your DBPro games.

Back to top

Profile PM Email Website

Chris K

21

Years of Service

User Offline

Joined: 7th Oct 2003

Location: Lake Hylia

Posted: 8th Nov 2004 01:04

Link

I thought so.
There's only been one game made in it and it's a rubbish 2D arcade game call Rocket Run or something.

Back to top

Profile PM

Kevin Picone

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 8th Nov 2004 01:34 Edited at: 10th Apr 2022 16:47

Link

This runs about 65fps and about 35 FPS without the buffer locks in PlayBASIC, although small exe's in not Play thing ATM...

+ Code Snippet


OpenScreen 1024,768,32,2

max=50

Dim ovalsdir(max,2)
Dim ovalpos(max,2)
Dim colors(max,3)
Dim speed(max)
For i=1 To max

Repeat
ovalsdir(i,1)=Rnd(2)-1
Until ovalsdir(i,1)<>0

Repeat
ovalsdir(i,2)=1-Rnd(2)
Until ovalsdir(i,2)<>0

ovalpos(i,1)=Rnd(1024)
ovalpos(i,2)=Rnd(768)
speed(i)=1+Rnd(4)
colors(i,1)=Rnd(255)
colors(i,2)=Rnd(255)
colors(i,3)=Rnd(255)
Next


Do

Cls 0
Randomize 1

LockBuffer

For i=1 To 50
Circle Rnd(1000),Rnd(700),80+Rnd(200),0
Next

For i=1 To max
Ink RGB(colors(i,1),colors(i,2),colors(i,3))
Circle ovalpos(i,1),ovalpos(i,2),60,0

	ovalpos(i,1)=ovalpos(i,1)+ovalsdir(i,1)
	ovalpos(i,2)=ovalpos(i,2)+ovalsdir(i,2)

If ovalpos(i,1)>965
	ovalsdir(i,1)=(-1)*speed(i)
EndIf

If ovalpos(i,1)<1
	ovalsdir(i,1)=1*speed(i)
EndIf

If ovalpos(i,2)>720
	ovalsdir(i,2)=(-1)*speed(i)
EndIf

If ovalpos(i,2)<1
	ovalsdir(i,2)=1*speed(i)
EndIf

Next

UnLockBuffer

Sync

Loop

Convert BlitzBASIC BlitzPlus Blitz3D to PlayBASIC with BlitzBASIC 2 PlayBASIC Convertor.

PlayBASIC To HTML5/WEB - Convert PlayBASIC To Machine Code

Back to top

Profile PM Website

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 8th Nov 2004 01:42 Edited at: 8th Nov 2004 01:49

Link

LOL I meant BlitzPLUS! sorry!, I was gonna ask on their forums about the speed problem, but I am unclean

(only have the demo), so scum like me can`t post and ask questions about the product before buying, anyway it goes like a slug on valium so I won`t bother.

Mentor.

ps: in the Pro version I just tried lock pixels and a sync rate of zero and got 127fps as against 116fps with no sync rate or lock pixels (the original code), not a huge gain when you consider how much faster lockpixels makes reading pixels and plotting to the screen in other apps.

PC1: P4 3ghz, 1gig mem, 3x160gig hd`s, Radeon 9800pro w cooler (3rd gfx card), 6 way speakers.
PC2: AMD 2ghz, 512mb ram, FX5200 ultra, 16 bit SB.
Mini ATX cases suck.

Back to top

Profile PM

MikeS

Retired Moderator

22

Years of Service

User Offline

Joined: 2nd Dec 2002

Location: United States

Posted: 8th Nov 2004 01:45

Link

Exactly my problem Mentor. I have a million questions to ask before buying, but they won't let me register cause I don't own Blitz. Search doesn't help either because everyone there already had blitz, thus eliminating "before I buy" topics.

Too BlitzCoder we go then.

A book? I hate book. Book is stupid.
(Formerly known as Yellow)

Back to top

Profile PM Email

David T

Retired Moderator

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 8th Nov 2004 02:09

Link

Quote: "Exactly my problem Mentor. I have a million questions to ask before buying, but they won't let me register cause I don't own Blitz. Search doesn't help either because everyone there already had blitz, thus eliminating "before I buy" topics."

That's s bit silly - how do they stop you from registering?

Get 15 new commands, all the date / time commands left out of DBPro for free!
DOWNLOAD PLUGINS HERE: http://www.davidtattersall.me.uk/ and select "DarkBasic"

Back to top

Profile PM Email Website

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 8th Nov 2004 02:47

Link

you need the BUID from your product to register, I actualy have my old BUID from the original blitz basic, but they don`t recognise that any more

Mentor.

PC1: P4 3ghz, 1gig mem, 3x160gig hd`s, Radeon 9800pro w cooler (3rd gfx card), 6 way speakers.
PC2: AMD 2ghz, 512mb ram, FX5200 ultra, 16 bit SB.
Mini ATX cases suck.

Back to top

Profile PM

Eric T

22

Years of Service

User Offline

Joined: 7th Apr 2003

Location: My location is where I am at this time.

Posted: 8th Nov 2004 02:51

Link

Actually I got screwed, I have a pretty new Blitz ID/Serial/whatever it is but it says it's been used before. So i'm guessing one of them damn key genorators or something got mine.

Blitzcoder seems to work fine though.

http://www.liquidzsnake.dbspot.com/StairwayToHell.txt

Back to top

Profile PM Email Website

Wiggett

21

Years of Service

User Offline

Joined: 31st May 2003

Location: Australia

Posted: 8th Nov 2004 20:14

Link

Quote: "BLITZ 3D"

BOOO HISSSSS!

Back to top

Profile PM Website

Shadow Robert

22

Years of Service

User Offline

Joined: 22nd Sep 2002

Location: Hertfordshire, England

Posted: 8th Nov 2004 21:31

Link

i have no idea how to clear the screen (not used 2d in this before)

#MainWindow=1
max.l = 50

Dim ovalsdir.l( max, 2 )
Dim ovalpos.l ( max, 2 )
Dim colors.l  ( max, 3 )
Dim speed.l   ( max )

If( OpenWindow( #MainWindow, 0, 0, 1024, 768, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Example Application" ))
  
  For i=1 To max
  
    Repeat
      ovalsdir(i,1) = Random(2)-1
    Until ovalsdir(i,1)<>0  
    
    Repeat
      ovalsdir(i,2) = 1-Random(2)
    Until ovalsdir(i,2)<>0
    
    ovalpos(i,1)  = Random(1024)
    ovalpos(i,2)  = Random(768)
    speed(i)      = 1+Random(4)
    colors(i,1)   = Random(255)
    colors(i,2)   = Random(255)
    colors(i,3)   = Random(255)
  Next
  
    Repeat
      
      Event.l = WindowEvent()
      
      If StartDrawing(WindowOutput()) 
      
        DrawingMode(4)    
        RandomSeed(1)
      
        For i=1 To 50
          Circle( Random(1000), Random(700), 80+Random(200) )
        Next  
        
        For i=1 To max
          Circle( ovalpos(i,1), ovalpos(i,2), 60, RGB( colors(i,1), colors(i,2), colors(i,3) ) )
         
          ovalpos(i,1) = ovalpos(i,1)+ovalsdir(i,1)
          ovalpos(i,2) = ovalpos(i,2)+ovalsdir(i,2)
          
          If ovalpos(i,1)>965 Or ovalpos(i,1)<1 : ovalsdir(i,1) = 1*speed(i) : EndIf
          If ovalpos(i,2)>720 Or ovalpos(i,2)<1 : ovalsdir(i,2) = 1*speed(i) : EndIf       
        Next 
      EndIf
      StopDrawing()          
    Until Event = #PB_Event_CloseWindow
EndIf

+ Code Snippet

#MainWindow=1
max.l = 50

Dim ovalsdir.l( max, 2 )
Dim ovalpos.l ( max, 2 )
Dim colors.l  ( max, 3 )
Dim speed.l   ( max )

If( OpenWindow( #MainWindow, 0, 0, 1024, 768, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Example Application" ))
  
  For i=1 To max
  
    Repeat
      ovalsdir(i,1) = Random(2)-1
    Until ovalsdir(i,1)<>0  
    
    Repeat
      ovalsdir(i,2) = 1-Random(2)
    Until ovalsdir(i,2)<>0
    
    ovalpos(i,1)  = Random(1024)
    ovalpos(i,2)  = Random(768)
    speed(i)      = 1+Random(4)
    colors(i,1)   = Random(255)
    colors(i,2)   = Random(255)
    colors(i,3)   = Random(255)
  Next
  
    Repeat
      
      Event.l = WindowEvent()
      
      If StartDrawing(WindowOutput()) 
      
        DrawingMode(4)    
        RandomSeed(1)
      
        For i=1 To 50
          Circle( Random(1000), Random(700), 80+Random(200) )
        Next  
        
        For i=1 To max
          Circle( ovalpos(i,1), ovalpos(i,2), 60, RGB( colors(i,1), colors(i,2), colors(i,3) ) )
         
          ovalpos(i,1) = ovalpos(i,1)+ovalsdir(i,1)
          ovalpos(i,2) = ovalpos(i,2)+ovalsdir(i,2)
          
          If ovalpos(i,1)>965 Or ovalpos(i,1)<1 : ovalsdir(i,1) = 1*speed(i) : EndIf
          If ovalpos(i,2)>720 Or ovalpos(i,2)<1 : ovalsdir(i,2) = 1*speed(i) : EndIf       
        Next 
      EndIf
      StopDrawing()          
    Until Event = #PB_Event_CloseWindow
EndIf

but that's just about right for the purebasic version.
executable comes out at 18KB, and it runs faster than nerd who's just given a jock a wedgie.

Back to top

Profile PM Email Website

Mentor

22

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 9th Nov 2004 02:14 Edited at: 9th Nov 2004 02:18

Link

the problem was the BlitzPlus demo version, for some reason the 2D crawls in the demo, someone posted the compiled version of my code and it ran fine with no flickering, the sprite version was insanely fast (no surprise there), so that seems allright.

@Raven...I tried PureBasic, but the syntax stinks (imo), all those pb_window_systemmenu, pb_this, pb_that got on my nerves, it`s like someone saying "in my excellent opinion" before EVERY sentence, it grates, theres no need for it, it means you have to type an un-needed three characters (pb_) all the time and I found the structure of the programs somewhat anti-intuitive, I have coded in basic for decades, I don`t like too much change (getting old

)

thanks for the comments though, it`s nice to be able to mention some other language without it developing into a flame war (apart from Robk, but he`s allowed to do piratical things like that being a pirate and all

).

Mentor.

PC1: P4 3ghz, 1gig mem, 3x160gig hd`s, Radeon 9800pro w cooler (3rd gfx card), 6 way speakers.
PC2: AMD 2ghz, 512mb ram, FX5200 ultra, 16 bit SB.
Mini ATX cases suck.

Back to top

Profile PM

Shadow Robert

22

Years of Service

User Offline

Joined: 22nd Sep 2002

Location: Hertfordshire, England

Posted: 9th Nov 2004 05:19

Link

heh, yeah to be honest i dislike PB's syntax too; which is a shame because it is a very powerful language.

i was going to ask if you were running Blitz in debug mode; it runs pretty aweful while in debug (but still faster than DB Standard heh)
could've been the problem.

just wish my example worked like it should in dbp/blitz, for some reason the drawing instructions are a bit iffy in simplified form; probably because it uses GDI which needs too my TLC heh

Back to top

Profile PM Email Website

Andy

22

Years of Service

User Offline

Joined: 12th Nov 2002

Location:

Posted: 9th Nov 2004 17:17

Link

>There's only been one game made in it and it's a rubbish 2D arcade
>game call Rocket Run or something.

No games have been made in it, but an OGL 2D early demo was released recently. Would you judge DBP from the pre release demos? I certainly wouldn't as they don't work on any of my machines!

>LOL I meant BlitzPLUS! sorry!, I was gonna ask on their forums
>about the speed problem, but I am unclean (only have the demo), so
>scum like me can`t post and ask questions about the product before
>buying, anyway it goes like a slug on valium so I won`t bother.

Try http://www.blitzcoder.com instead.

>you need the BUID from your product to register, I actualy have my
>old BUID from the original blitz basic, but they don`t recognise
>that any more

Contact Idigicon or blitz research to have a replacement.

>Actually I got screwed, I have a pretty new Blitz
>ID/Serial/whatever it is but it says it's been used before. So i'm
>guessing one of them damn key genorators or something got mine.

And you never thought of contacting Blitz Research? Don't you think that's a problem they may want to hear about? How can they correct the problem if they don't hear about it!

Raven asked a good question, are you running in Debug mode?

Andy

Back to top

Profile PM

The Wendigo

22

Years of Service

User Offline

Joined: 13th Sep 2002

Location: A hole near the base of a tree in the US

Posted: 11th Nov 2004 07:22

Link

Quote: "pb_this, pb_that got on my nerves"

Sounds like PureBasic needs NAMESPACE support.

Home of DOOP, Strata Works, and Height

Back to top

Profile PM Website

Shadow Robert

22

Years of Service

User Offline

Joined: 22nd Sep 2002

Location: Hertfordshire, England

Posted: 11th Nov 2004 21:59

Link

Quote: "Sounds like PureBasic needs NAMESPACE support."

he is refering to the constants/definitions
#PB_WINDOW_[something] would be a purebasic control, window switch. Namespacing wouldn't help this alot. just make it cleaner, well if it were C# based anyways

adding them would defeat what PB is about though; it's a basic version of C, almost identically to a point.

Back to top

Profile PM Email Website

Ian T

22

Years of Service

User Offline

Joined: 12th Sep 2002

Location: Around

Posted: 11th Nov 2004 22:41

Link

Interesting... once all the glitches are sorted out I'd be very interested in seeing the final speed values from DBP, Blitz(3d) and PlayBasic on the same machine (my vote's for PlayBasic speed wise).

[center]

forget as boolean : forgive as boolean : if forgive=1 : forget=0 : else : forgive=1 : endif

Back to top

Profile PM

The Wendigo

22

Years of Service

User Offline

Joined: 13th Sep 2002

Location: A hole near the base of a tree in the US

Posted: 22nd Nov 2004 17:59

Link

Quote: "it's a basic version of C, almost identically to a point."

Ick! I'll stick to Dev C++ then....

Home of DOOP, Strata Works, and Height

Back to top

Profile PM Website

Sorry your browser is not supported!

Programming Talk / Blitz Basic / Blitz3D - speed differences