VB: DX: drawing text...

[nareth]

whao i was just adding text. some B's to my tiles to tell its blocked. guess what... it slowed down like hell
has anyone noticed this to?

this is my code:

Do Until L > LayerMax
        If Not Layers.cLayer(L).Value = vbUnchecked Then
            Let xTemp = xZ
            Let yTemp = yZ
            
            Let X = 0
            Do Until X > Map.Width
                Let xDest = xTemp
                Let yDest = yTemp
                
                Let Y = 0
                Do Until Y > Map.Height
                    If Map.TileX(L, X, Y) > -1 And Map.TileY(L, X, Y) > -1 Then
                        Let rTile.Left = Map.TileX(L, X, Y) * TileWidth
                        Let rTile.Top = Map.TileY(L, X, Y) * TileHeight
                        Let rTile.Right = rTile.Left + TileWidth
                        Let rTile.Bottom = rTile.Top + TileHeight
                        
                        Call BufferSurface.BltFast(xDest, yDest, GroundTiles, rTile, DDBLTFAST_DONOTWAIT Or DDBLTFAST_SRCCOLORKEY)
                    End If
                    
                    If Map.Blocked(L, X, Y) Then
                        [COLOR=Blue][B]Call BufferSurface.DrawText(xDest + TileHalfWidth, yDest, "B", False)[/B][/COLOR]
                    End If
                    
                    Let xDest = xDest - TileHalfWidth
                    Let yDest = yDest + TileHalfHeight
                    
                    Let Y = Y + 1
                Loop
                
                Let xTemp = xTemp + TileHalfWidth
                Let yTemp = yTemp + TileHalfHeight
                
                Let X = X + 1
            Loop
        End If
        
        Let L = L + 1
    Loop