My function is slow, I can kind of see why, but need help.

Author

Message

EsteemDE

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 20th Apr 2006 02:03

Link

I made a function to give more control over the way I draw a line of text. When I used it once my FPS dropped from 1000+ to around 90-100. I then added 2 more function calls in the loop and it went down to 30-35fps.

Here is the function code and my loop (this is the whole program... I was just testing)

+ Code Snippet

Make Object Cube 1,30

Do
   Yrotate Object 1, Object Angle Y ( 1 ) + 1

   `Text 0,0,"FPS = " + str$ (Screen Fps())
   db_text(0, 0, "FPS = " + str$ (Screen Fps()), "Arial", 12, 1, 0)
   db_text(0, 10, "Line 2", "Arial", 12, 1, 0)
   db_text(0, 20, "Line 3", "Arial", 12, 1, 0)

Loop

Function db_text(varx, vary, vartext$, varfont$, varsize, varstyle, varcenter)

   Set Text Font varfont$
   Set Text Size varsize

   Select varstyle

      Case 1
         Set Text To Normal
      Endcase

      Case 2
         Set Text To Bold
      Endcase

      Case 3
         Set Text To Italic
      Endcase

      Case 4
         Set Text To BoldItalic
      Endcase

      Case Default
         Set Text To Normal
      Endcase

   Endselect

   If varcenter = 1
      Center Text varx, vary, vartext$
   Else
      Text varx, vary, vartext$
   Endif

Endfunction

Does anyone know a way to do this but keep the speed up?

Back to top

Profile PM Email

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 20th Apr 2006 02:17

Link

DBpro is not very efficient at constantly changing text fonts as it forcibly reloads tat font every time. Much better to only change font if different from current font, or make things simpler. If all text is going to be Arial, set it once outside the loop. Never try and swap between multiple fonts in your main loop.

There is talk that maybe a future update may fix this shortcoming.

Boo!

Back to top

Profile PM Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th Apr 2006 02:28

Link

2D commands in DBC/P are notoriously slow - in particular any of the associated text command, so you will inevitably get some slowdown.

You can help a bit by using Syncs:

+ Code Snippet

Sync On: Sync Rate 0
Make Object Cube 1,30

Do
  Yrotate Object 1, Object Angle Y ( 1 ) + 1

  `Text 0,0,"FPS = " + str$ (Screen Fps())
  db_text(0, 0, "FPS = " + str$ (Screen Fps()), "Arial", 12, 1, 0)
  db_text(0, 10, "Line 2", "Arial", 12, 1, 0)
  db_text(0, 20, "Line 3", "Arial", 12, 1, 0)
  db_text(0, 30, "Line 4", "Arial", 12, 1, 0)
  db_text(0, 40, "Line 5", "Arial", 12, 1, 0)
  db_text(0, 50, "Line 6", "Arial", 12, 1, 0)
  Sync
Loop

With the above Syncs added, I was getting a steady 45 fps with 6 function calls.

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
A New IDE For DB Classic!

Back to top

Profile PM Email Website

EsteemDE

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 20th Apr 2006 02:43 Edited at: 20th Apr 2006 02:46

Link

Thanks spooky. That helped me figure out the speed issue. It took a few more variables and IF statements but now my function is just as fast as using the "Text" command by iteself.

If anyone wants the function here it is:

Make Object Cube 1,30

Do

Yrotate Object 1, Object Angle Y ( 1 ) + 1

db_text(0, 0, "FPS = " + str$ (Screen Fps()), "Arial", 16, 2, 0, 0)
   db_text(0, 15, "Line 2", "Arial", 16, 2, 0, 0)
   db_text(0, 30, "Line 3", "Arial", 16, 2, 0, 0)
   db_text(0, 45, "Line 4", "Arial", 16, 2, 0, 0)
   db_text(0, 60, "Line 5", "Arial", 16, 2, 0, 0)
   db_text(0, 75, "Line 6", "Arial", 16, 2, 0, 0)

Loop

Function db_text(varx, vary, vartext$, varfont$, varsize, varstyle, varcenter, varuseold)

If varuseold <> 1

varoldfont$ = Text Font$()
      varoldsize = Text Size()
      varoldstyle = Text Style()

If varoldfont$ <> varfont$
         Set Text Font varfont$
      Endif

If varoldsize <> varsize
         Set Text Size varsize
      Endif

Select varstyle

Case 1
            If varoldstyle <> 0
               Set Text To Normal
            Endif
         Endcase

Case 2
            If varoldstyle <> 2
               Set Text To Bold
            Endif
         Endcase

Case 3
            If varoldstyle <> 1
               Set Text To Italic
            Endif
         Endcase

Case 4
            If varoldstyle <> 3
               Set Text To BoldItalic
            Endif
         Endcase

Case Default
            If varoldstyle <> 0
               Set Text To Normal
            Endif
         Endcase

Endselect

Endif

If varcenter = 1
      Center Text varx, vary, vartext$
   Else
      Text varx, vary, vartext$
   Endif

Endfunction

+ Code Snippet

Make Object Cube 1,30

Do

   Yrotate Object 1, Object Angle Y ( 1 ) + 1

   db_text(0, 0, "FPS = " + str$ (Screen Fps()), "Arial", 16, 2, 0, 0)
   db_text(0, 15, "Line 2", "Arial", 16, 2, 0, 0)
   db_text(0, 30, "Line 3", "Arial", 16, 2, 0, 0)
   db_text(0, 45, "Line 4", "Arial", 16, 2, 0, 0)
   db_text(0, 60, "Line 5", "Arial", 16, 2, 0, 0)
   db_text(0, 75, "Line 6", "Arial", 16, 2, 0, 0)

Loop

Function db_text(varx, vary, vartext$, varfont$, varsize, varstyle, varcenter, varuseold)

   If varuseold <> 1

      varoldfont$ = Text Font$()
      varoldsize = Text Size()
      varoldstyle = Text Style()

      If varoldfont$ <> varfont$
         Set Text Font varfont$
      Endif

      If varoldsize <> varsize
         Set Text Size varsize
      Endif

      Select varstyle

         Case 1
            If varoldstyle <> 0
               Set Text To Normal
            Endif
         Endcase

         Case 2
            If varoldstyle <> 2
               Set Text To Bold
            Endif
         Endcase

         Case 3
            If varoldstyle <> 1
               Set Text To Italic
            Endif
         Endcase

         Case 4
            If varoldstyle <> 3
               Set Text To BoldItalic
            Endif
         Endcase

         Case Default
            If varoldstyle <> 0
               Set Text To Normal
            Endif
         Endcase

      Endselect

   Endif

   If varcenter = 1
      Center Text varx, vary, vartext$
   Else
      Text varx, vary, vartext$
   Endif

Endfunction

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / My function is slow, I can kind of see why, but need help.