Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Cobalt on October 25, 2018, 11:24:10 am

Title: Whats Causing the slow down in this code?
Post by: Cobalt on October 25, 2018, 11:24:10 am
So I've started my next project of bringing another of my old QB45 games up to QB64 and I'm encountering a problem right off the bat.
The code that displays the enemy ship slows way down. on my antiquated machine I start out around 110 cycles a second, but when it starts to display the ship graphics the number plummets down to the mid to upper 30s, that is nearly a loss of 70-75% cycle speed! and that is all this code does, I haven't even started with the AI logic for this ship to shoot at the player or any of the players side! It ran just find in QB45 with DirectQB no speed issues then with all the code working. So what is causing the major performance hit now? I've tried to cut off anything that doesn't display on screen so its not wasting time there but does not seemed to have helped.

Code: QB64: [Select]
  1. TYPE Dreadnaught
  2.  Xsize AS _BYTE 'ship size X
  3.  Ysize AS _BYTE 'ship size Y
  4.  Engines AS _BYTE 'Engines remaining 0-4
  5.  Vents AS _BYTE 'Vents remaining 0-16 (0 explodes ship)
  6.  Silos AS _BYTE 'Silos remaining 0-5
  7.  ShotsFired AS _BYTE 'how may shots are currently active
  9. TYPE Gamedata
  10.  Ships AS _BYTE 'Dreadnaughts destroied
  11.  Score AS _UNSIGNED LONG 'Players score
  12.  Lives AS _UNSIGNED _BYTE 'Player lives remaining
  13.  Distance AS _BYTE 'Dreadnaught Distance remaining
  15. TYPE Playerdata
  16.  Xpos AS INTEGER
  17.  Ypos AS INTEGER
  18.  Speed AS INTEGER
  19.  ShotsFired AS _BYTE
  21. TYPE Shotdata
  22.  Xpos AS INTEGER
  23.  Ypos AS INTEGER
  24.  Kind AS _BYTE
  25.  Time AS _BYTE
  27.  
  28. DIM SHARED Ship(44, 32, 1) AS _BYTE 'STRING * 2
  29. DIM SHARED Arms(44, 32, 1) AS _BYTE 'STRING * 2
  30. DIM SHARED Layer(16) AS LONG
  31. DIM SHARED S AS Dreadnaught, G AS Gamedata, P AS Playerdata
  32. DIM SHARED PS(2) AS Shotdata, DS(10) AS Shotdata
  33.  
  34. CONST TRUE = -1, FALSE = NOT TRUE, SPRITES = 0, MASK = 3
  35. CONST Shot = 1, Bomb = 2, SGun = 3, LGun = 4, STorp = 5, LTorp = 6, Trakr = 7
  36.  
  37. SCREEN _NEWIMAGE(640, 480, 32)
  38. Layer(0) = _LOADIMAGE("DFsprit8.bmp") '  Sprite Layer
  39. Layer(1) = _DISPLAY
  40. Layer(2) = _NEWIMAGE(640, 480, 32) 'ship draw layer
  41. Layer(3) = _NEWIMAGE(640, 480, 32) 'screen mask, top 32 and bottom 80 pixels masked
  42.  
  43. _DEST Layer(MASK)
  44. LINE (0, 0)-(639, 479), _RGB32(0, 0, 0), BF
  45. LINE (0, 33)-(639, 400), _RGB32(1, 1, 1), BF
  46. LINE (0, 464)-(639, 479), _RGB32(1, 1, 1), BF'debugging
  48. _CLEARCOLOR _RGB32(0, 0, 0), Layer(SPRITES)
  49. _CLEARCOLOR _RGB32(1, 1, 1), Layer(MASK)
  50.  
  51. LoadDreadnaughtlayout
  52. Xloc% = 1000: start! = TIMER
  54.  DrawDreadnaught Xloc%, -32, 2
  55.  IF TIMER >= start! + 1 THEN f% = c%: start! = TIMER: c% = 0
  56.  _PUTIMAGE , Layer(MASK), Layer(2)
  57.  _PUTIMAGE , Layer(2), Layer(1)
  58.  _PRINTSTRING (0, 464), "cycles:" + STR$(f%), Layer(1)
  59.  ClearLayer 2
  60.  _DELAY .005
  61.  Xloc% = Xloc% - 1
  62.  IF Xloc% <= -1000 THEN Xloc% = 1000
  63.  c% = c% + 1
  66.  
  67.  
  68. Delta:
  69. DATA 24,21
  70. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0V,0F,0A,0A,0I
  71. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A
  72. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A,0A,0A
  73. data 00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1V,1V,1U,0A
  74. data 00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,0A
  75. data 00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,0A
  76. data 00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2V,2U,1A,0A
  77. data 00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2A,2A,2A,1A,0A
  78. data 00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2T,2F,2A,2A,2A,1A,0A
  79. data 00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2A,1A,1A,2A,2A,2A,3T,3A,1A,0A
  80. data 0B,0A,0A,0A,0A,0A,0A,1L,1A,1A,1A,1A,1A,2B,3L,3A,1A,1A,2A,2A,3L,3A,3A,1A,0A
  81. data 0C,0A,0A,0A,0A,0A,0A,1M,1A,1A,1A,1A,1A,2C,3M,3A,1A,1A,2A,2A,3M,3A,3A,1A,0A
  82. data 00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,2J,2A,1A,1A,2A,2A,2A,3J,3A,1A,0A
  83. data 00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2G,2A,2A,2A,1A,0A
  84. data 00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2A,2A,1A,0A
  85. data 00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,2W,2K,1A,0A
  86. data 00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,0A
  87. data 00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,0A
  88. data 00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1W,1W,1K,0A
  89. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A,0A,0A
  90. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A
  91. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0W,0G,0A,0A,0H
  92.  
  93. DeltaWepondry:
  94. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  95. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0E,0F,00
  96. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,1E,1F,00
  97. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  98. data 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,0E,0F,00,0A
  99. data 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,1E,1F,00,1A
  100. data 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,0E,0F,00,00,00,00,00,00,00
  101. data 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,1E,1F,00,00,2A,00,0M,00,00
  102. data 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,1M,00,0A
  103. data 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,0M,2A,0I,0J,00,2C,00,1A
  104. data 00,2A,00,0E,0F,00,0M,00,2A,00,0E,0F,00,00,00,0C,00,1M,2A,00,00,00,0C,00,00
  105. data 00,2A,00,1E,1F,00,1M,00,2A,00,1E,1F,00,00,00,1C,00,0M,2A,00,00,00,1C,00,00
  106. data 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,1M,2A,0I,0J,00,2C,00,0A
  107. data 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,0M,00,1A
  108. data 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,0E,0F,00,00,2A,00,1M,00,00
  109. data 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,1E,1F,00,00,00,00,00,00,00
  110. data 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,0E,0F,00,0A
  111. data 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,1E,1F,00,1A
  112. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  113. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,0E,0F,00
  114. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,1E,1F,00
  115. data 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  116.  
  117.  
  118.  
  119. SUB DrawDreadnaught (Xloc%, Yloc%, LayerID%%)
  120.  'find last tile to display
  121.  Endx%% = (640 - Xloc%) / 32
  122.  Endy%% = (400 - Yloc%) / 32
  123.  'range check keep values within array size(or dreadnaught data size)
  124.  IF Endx%% > S.Xsize THEN Endx%% = S.Xsize
  125.  IF Endy%% > S.Ysize THEN Endy%% = S.Ysize
  126.  'find first tile to display
  127.  Startx%% = (0 + Xloc%) / 32
  128.  Starty%% = (0 + Yloc%) / 32
  129.  'make sure value is always negative(-) otherwise start at 0
  130.  IF Startx%% > 0 THEN Startx%% = 0
  131.  IF Starty%% > 0 THEN Starty%% = 0
  132.  'fix negative value to positive, this means that portion is off screen so
  133.  'start at the + array location in other words don't bother with whats off
  134.  'screen
  135.  Startx%% = ABS(Startx%%)
  136.  Starty%% = ABS(Starty%%)
  137.  
  138.  FOR y% = Starty%% TO Endy%%
  139.   FOR x% = Startx%% TO Endx%%
  140.    layer% = Ship(x%, y%, 0)
  141.    SELECT CASE Ship(x%, y%, 1)
  142.     CASE 0
  143.     CASE 65 TO 92
  144.      xoff% = 16 * (Ship(x%, y%, 1) - 65)
  145.      XL% = Xloc% + xoffs% + 0 + x% * 32
  146.      YL% = Yloc% + yoff% + y% * 32
  147.      IF layer% > 0 THEN _PUTIMAGE (XL%, YL%)-(XL% + 32, YL% + 32), Layer(SPRITES), Layer(LayerID%%), (0, 0 + ((layer% - 1) * 16))-(15, 15 + ((layer% - 1) * 16))
  148.      _PUTIMAGE (XL%, YL%)-(XL% + 32, YL% + 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 0 + (layer% * 16))-(15 + xoff%, 15 + (layer% * 16))
  149.    END SELECT
  150.    layer% = Arms(x%, y%, 0) + 4
  151.    SELECT CASE Arms(x%, y%, 1)
  152.     CASE 0
  153.     CASE 65 TO 92
  154.      xoff% = 16 * (Arms(x%, y%, 1) - 65)
  155.      XL% = Xloc% + xoffs% + 0 + x% * 32
  156.      YL% = Yloc% + yoff% + y% * 32
  157.      _PUTIMAGE (XL%, YL%)-(XL% + 32, YL% + 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 0 + (layer% * 16))-(15 + xoff%, 15 + (layer% * 16))
  158.    END SELECT
  159.   NEXT x%
  160.  NEXT y%
  162.  
  163. SUB LoadDreadnaughtlayout
  164.  RESTORE Delta
  165.  READ S.Xsize
  166.  READ S.Ysize
  167.  DIM temp AS STRING * 2
  168.  
  169.  FOR y% = 0 TO S.Ysize
  170.   FOR x% = 0 TO S.Xsize
  171.    READ temp
  172.    Ship(x%, y%, 0) = VAL(LEFT$(temp, 1))
  173.    Ship(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  174.  NEXT x%, y%
  175.  RESTORE DeltaWepondry
  176.  FOR y% = 0 TO S.Ysize
  177.   FOR x% = 0 TO S.Xsize
  178.    READ temp
  179.    Arms(x%, y%, 0) = VAL(LEFT$(temp, 1))
  180.    Arms(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  181.  NEXT x%, y%
  183.  
  184. SUB ClearLayer (id%%)
  185.  old& = _DEST
  186.  _DEST Layer(id%%)
  187.  CLS
  188.  _DEST old&
  190.  
  191.  
Title: Re: Whats Causing the slow down in this code?
Post by: FellippeHeitor on October 25, 2018, 11:31:20 am
What's the code in SUB ClearLayer?
Title: Re: Whats Causing the slow down in this code?
Post by: Cobalt on October 25, 2018, 11:40:38 am
odd, Select all didn't get it?

SUB ClearLayer (id%%)
 old& = _DEST
 _DEST Layer(id%%)
 CLS
 _DEST old&
END SUB

 (added it to the code above too.)
Title: Re: Whats Causing the slow down in this code?
Post by: FellippeHeitor on October 25, 2018, 11:52:12 am
I don't see anything to blame at a first glance. _DELAY inside a DO/LOOP doesn't look like the best way to go (_LIMIT, maybe?), but it shouldn't delay more than what it's instructed to anyway.

Hope the issue emerges soon so you can proceed.
Title: Re: Whats Causing the slow down in this code?
Post by: Cobalt on October 25, 2018, 12:07:37 pm
_delay is just there to control CPU usage. when I remove it , I start 190ish cycles and drop down to mid 40s which I think is even worse than having the delay! gain nearly 80(72% gain) cycles on the max and only only about 10(29% gain) on the lower.

This is the first time I've experienced any kind of issue with speed in involving the graphics in QB64.
Title: Re: Whats Causing the slow down in this code?
Post by: SMcNeill on October 25, 2018, 12:28:45 pm
Try this and see how it performs for you:

Code: QB64: [Select]
  1. TYPE Dreadnaught
  2.     Xsize AS _BYTE 'ship size X
  3.     Ysize AS _BYTE 'ship size Y
  4.     Engines AS _BYTE 'Engines remaining 0-4
  5.     Vents AS _BYTE 'Vents remaining 0-16 (0 explodes ship)
  6.     Silos AS _BYTE 'Silos remaining 0-5
  7.     ShotsFired AS _BYTE 'how may shots are currently active
  9. TYPE Gamedata
  10.     Ships AS _BYTE 'Dreadnaughts destroied
  11.     Score AS _UNSIGNED LONG 'Players score
  12.     Lives AS _UNSIGNED _BYTE 'Player lives remaining
  13.     Distance AS _BYTE 'Dreadnaught Distance remaining
  15. TYPE Playerdata
  16.     Xpos AS INTEGER
  17.     Ypos AS INTEGER
  18.     Speed AS INTEGER
  19.     ShotsFired AS _BYTE
  21. TYPE Shotdata
  22.     Xpos AS INTEGER
  23.     Ypos AS INTEGER
  24.     Kind AS _BYTE
  25.     Time AS _BYTE
  27.  
  28. DIM SHARED Ship(44, 32, 1) AS _BYTE 'STRING * 2
  29. DIM SHARED Arms(44, 32, 1) AS _BYTE 'STRING * 2
  30. DIM SHARED Layer(16) AS LONG
  31. DIM SHARED S AS Dreadnaught, G AS Gamedata, P AS Playerdata
  32. DIM SHARED PS(2) AS Shotdata, DS(10) AS Shotdata
  33.  
  34. CONST TRUE = -1, FALSE = NOT TRUE, SPRITES = 0, MASK = 3
  35. CONST Shot = 1, Bomb = 2, SGun = 3, LGun = 4, STorp = 5, LTorp = 6, Trakr = 7
  36.  
  37. SCREEN _NEWIMAGE(640, 480, 32)
  38. Layer(0) = _LOADIMAGE("DFsprit8.bmp") '  Sprite Layer
  39. Layer(1) = _DISPLAY
  40. Layer(2) = _NEWIMAGE(640, 480, 32) 'ship draw layer
  41. Layer(3) = _NEWIMAGE(640, 480, 32) 'screen mask, top 32 and bottom 80 pixels masked
  42.  
  43. _DEST Layer(MASK)
  44. LINE (0, 0)-(639, 479), _RGB32(0, 0, 0), BF
  45. LINE (0, 33)-(639, 400), _RGB32(1, 1, 1), BF
  46. LINE (0, 464)-(639, 479), _RGB32(1, 1, 1), BF 'debugging
  48. _CLEARCOLOR _RGB32(0, 0, 0), Layer(SPRITES)
  49. _CLEARCOLOR _RGB32(1, 1, 1), Layer(MASK)
  50.  
  51. LoadDreadnaughtlayout
  52. Xloc% = 1000: start! = TIMER
  54.     DrawDreadnaught Xloc%, -32, 2
  55.     IF TIMER >= start! + 1 THEN f% = c%: start! = TIMER: c% = 0
  56.     _PUTIMAGE , Layer(MASK), Layer(2)
  57.     _PUTIMAGE , Layer(2), Layer(1)
  58.     _PRINTSTRING (0, 464), "cycles:" + STR$(f%), Layer(1)
  59.     ClearLayer 2
  60.     _LIMIT 120
  61.     Xloc% = Xloc% - 1
  62.     IF Xloc% <= -1000 THEN Xloc% = 1000
  63.     c% = c% + 1
  66.  
  67.  
  68. Delta:
  69. DATA 24,21
  70. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0V,0F,0A,0A,0I
  71. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A
  72. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A,0A,0A
  73. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1V,1V,1U,0A
  74. DATA 00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,0A
  75. DATA 00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,0A
  76. DATA 00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2V,2U,1A,0A
  77. DATA 00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2A,2A,2A,1A,0A
  78. DATA 00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2T,2F,2A,2A,2A,1A,0A
  79. DATA 00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2A,1A,1A,2A,2A,2A,3T,3A,1A,0A
  80. DATA 0B,0A,0A,0A,0A,0A,0A,1L,1A,1A,1A,1A,1A,2B,3L,3A,1A,1A,2A,2A,3L,3A,3A,1A,0A
  81. DATA 0C,0A,0A,0A,0A,0A,0A,1M,1A,1A,1A,1A,1A,2C,3M,3A,1A,1A,2A,2A,3M,3A,3A,1A,0A
  82. DATA 00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,2J,2A,1A,1A,2A,2A,2A,3J,3A,1A,0A
  83. DATA 00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2G,2A,2A,2A,1A,0A
  84. DATA 00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2A,2A,1A,0A
  85. DATA 00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,2W,2K,1A,0A
  86. DATA 00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,0A
  87. DATA 00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,0A
  88. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1W,1W,1K,0A
  89. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A,0A,0A
  90. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A
  91. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0W,0G,0A,0A,0H
  92.  
  93. DeltaWepondry:
  94. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  95. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0E,0F,00
  96. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,1E,1F,00
  97. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  98. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,0E,0F,00,0A
  99. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,1E,1F,00,1A
  100. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,0E,0F,00,00,00,00,00,00,00
  101. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,1E,1F,00,00,2A,00,0M,00,00
  102. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,1M,00,0A
  103. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,0M,2A,0I,0J,00,2C,00,1A
  104. DATA 00,2A,00,0E,0F,00,0M,00,2A,00,0E,0F,00,00,00,0C,00,1M,2A,00,00,00,0C,00,00
  105. DATA 00,2A,00,1E,1F,00,1M,00,2A,00,1E,1F,00,00,00,1C,00,0M,2A,00,00,00,1C,00,00
  106. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,1M,2A,0I,0J,00,2C,00,0A
  107. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,0M,00,1A
  108. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,0E,0F,00,00,2A,00,1M,00,00
  109. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,1E,1F,00,00,00,00,00,00,00
  110. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,0E,0F,00,0A
  111. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,1E,1F,00,1A
  112. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  113. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,0E,0F,00
  114. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,1E,1F,00
  115. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  116.  
  117.  
  118.  
  119. SUB DrawDreadnaught (Xloc%, Yloc%, LayerID%%)
  120.     'find last tile to display
  121.     Endx%% = (640 - Xloc%) \ 32
  122.     Endy%% = (400 - Yloc%) \ 32
  123.     'range check keep values within array size(or dreadnaught data size)
  124.     IF Endx%% > S.Xsize THEN Endx%% = S.Xsize
  125.     IF Endy%% > S.Ysize THEN Endy%% = S.Ysize
  126.     'find first tile to display
  127.     Startx%% = (0 + Xloc%) \ 32
  128.     Starty%% = (0 + Yloc%) \ 32
  129.     'make sure value is always negative(-) otherwise start at 0
  130.     IF Startx%% > 0 THEN Startx%% = 0
  131.     IF Starty%% > 0 THEN Starty%% = 0
  132.     'fix negative value to positive, this means that portion is off screen so
  133.     'start at the + array location in other words don't bother with whats off
  134.     'screen
  135.     Startx%% = -Startx%%
  136.     Starty%% = -Starty%%
  137.  
  138.     FOR y% = Starty%% TO Endy%%
  139.         FOR x% = Startx%% TO Endx%%
  140.             layer% = Ship(x%, y%, 0) * 16
  141.             x1% = Xloc% + x% * 32
  142.             y1% = Yloc% + y% * 32
  143.             SELECT CASE Ship(x%, y%, 1)
  144.                 CASE 0
  145.                 CASE 65 TO 92
  146.                     xoff% = 16 * (Ship(x%, y%, 1) - 65)
  147.                     XL% = x1% + xoffs%
  148.                     YL% = y1% + yoff%
  149.                     IF layer% > 0 THEN _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0, layer% - 1)-STEP(15, 0)
  150.                     _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 0 + layer%)-STEP(15, 0)
  151.             END SELECT
  152.             layer% = (Arms(x%, y%, 0) + 4) * 16
  153.             SELECT CASE Arms(x%, y%, 1)
  154.                 CASE 0
  155.                 CASE 65 TO 92
  156.                     xoff% = 16 * (Arms(x%, y%, 1) - 65)
  157.                     XL% = x1% + xoffs%
  158.                     YL% = y1% + yoff%
  159.                     _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, layer%)-STEP(15, 15)
  160.             END SELECT
  161.         NEXT x%
  162.     NEXT y%
  164.  
  165. SUB LoadDreadnaughtlayout
  166.     RESTORE Delta
  167.     READ S.Xsize
  168.     READ S.Ysize
  169.     DIM temp AS STRING * 2
  170.  
  171.     FOR y% = 0 TO S.Ysize
  172.         FOR x% = 0 TO S.Xsize
  173.             READ temp
  174.             Ship(x%, y%, 0) = VAL(LEFT$(temp, 1))
  175.             Ship(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  176.     NEXT x%, y%
  177.     RESTORE DeltaWepondry
  178.     FOR y% = 0 TO S.Ysize
  179.         FOR x% = 0 TO S.Xsize
  180.             READ temp
  181.             Arms(x%, y%, 0) = VAL(LEFT$(temp, 1))
  182.             Arms(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  183.     NEXT x%, y%
  185.  
  186. SUB ClearLayer (id%%)
  187.     old& = _DEST
  188.     _DEST Layer(id%%)
  189.     CLS
  190.     _DEST old&

Simplified some of the math, moved some of it outside the loop, and replaced the _DELAY with a _LIMIT, which performs much better on my system.  I'm holding steady at 120FPS now, but don't know what performance you might expect to see on an older system.
Title: Re: Whats Causing the slow down in this code?
Post by: Cobalt on October 25, 2018, 01:02:20 pm
Afraid not, only gaining about 7(average) cycles but uh, take a look at the graphics being outputted.

Title: Re: Whats Causing the slow down in this code?
Post by: SMcNeill on October 25, 2018, 01:06:59 pm
And, if you can't get the FPS up to the speed that you expect for your game to operate properly, you may need to change the step that the ships move to keep the game flow consistent, such as something like this:

Code: QB64: [Select]
  1. TYPE Dreadnaught
  2.     Xsize AS _BYTE 'ship size X
  3.     Ysize AS _BYTE 'ship size Y
  4.     Engines AS _BYTE 'Engines remaining 0-4
  5.     Vents AS _BYTE 'Vents remaining 0-16 (0 explodes ship)
  6.     Silos AS _BYTE 'Silos remaining 0-5
  7.     ShotsFired AS _BYTE 'how may shots are currently active
  9. TYPE Gamedata
  10.     Ships AS _BYTE 'Dreadnaughts destroied
  11.     Score AS _UNSIGNED LONG 'Players score
  12.     Lives AS _UNSIGNED _BYTE 'Player lives remaining
  13.     Distance AS _BYTE 'Dreadnaught Distance remaining
  15. TYPE Playerdata
  16.     Xpos AS INTEGER
  17.     Ypos AS INTEGER
  18.     Speed AS INTEGER
  19.     ShotsFired AS _BYTE
  21. TYPE Shotdata
  22.     Xpos AS INTEGER
  23.     Ypos AS INTEGER
  24.     Kind AS _BYTE
  25.     Time AS _BYTE
  27.  
  28. DIM SHARED Ship(44, 32, 1) AS _BYTE 'STRING * 2
  29. DIM SHARED Arms(44, 32, 1) AS _BYTE 'STRING * 2
  30. DIM SHARED Layer(16) AS LONG
  31. DIM SHARED S AS Dreadnaught, G AS Gamedata, P AS Playerdata
  32. DIM SHARED PS(2) AS Shotdata, DS(10) AS Shotdata
  33.  
  34. CONST TRUE = -1, FALSE = NOT TRUE, SPRITES = 0, MASK = 3
  35. CONST Shot = 1, Bomb = 2, SGun = 3, LGun = 4, STorp = 5, LTorp = 6, Trakr = 7
  36.  
  37. Layer(0) = _LOADIMAGE("DFsprit8.bmp", 32) '  Sprite Layer
  38. Layer(1) = _NEWIMAGE(640, 480, 32) 'Display layer
  39. Layer(2) = _NEWIMAGE(640, 480, 32) 'ship draw layer
  40. Layer(3) = _NEWIMAGE(640, 480, 32) 'screen mask, top 32 and bottom 80 pixels masked
  41. SCREEN Layer(1)
  42.  
  43. _DEST Layer(MASK)
  44. LINE (0, 0)-(639, 479), _RGB32(0, 0, 0), BF
  45. LINE (0, 33)-(639, 400), _RGB32(1, 1, 1), BF
  46. LINE (0, 464)-(639, 479), _RGB32(1, 1, 1), BF 'debugging
  48. _CLEARCOLOR _RGB32(0, 0, 0), Layer(SPRITES)
  49. _CLEARCOLOR _RGB32(1, 1, 1), Layer(MASK)
  50.  
  51. LoadDreadnaughtlayout
  52. Xloc% = 1000: start! = TIMER
  54.     DrawDreadnaught Xloc!, -32, 2
  55.     IF TIMER >= start! + 1 THEN f% = c%: start! = TIMER: c% = 0
  56.     _PUTIMAGE , Layer(MASK), Layer(2)
  57.     _PUTIMAGE , Layer(2), Layer(1)
  58.     _PRINTSTRING (0, 464), "cycles:" + STR$(f%), Layer(1)
  59.     ClearLayer 2
  60.     _DELAY .1
  61.     '_LIMIT 120
  62.     IF f% < 120 THEN Xstep! = 120 / f% ELSE Xstep! = 1
  63.     Xloc! = Xloc! - Xstep!
  64.     IF Xloc! <= -1000 THEN Xloc! = 1000
  65.     c% = c% + 1
  68.  
  69.  
  70. Delta:
  71. DATA 24,21
  72. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0V,0F,0A,0A,0I
  73. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A
  74. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A,0A,0A
  75. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1V,1V,1U,0A
  76. DATA 00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,0A
  77. DATA 00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,0A
  78. DATA 00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2V,2U,1A,0A
  79. DATA 00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2A,2A,2A,1A,0A
  80. DATA 00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2T,2F,2A,2A,2A,1A,0A
  81. DATA 00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2A,1A,1A,2A,2A,2A,3T,3A,1A,0A
  82. DATA 0B,0A,0A,0A,0A,0A,0A,1L,1A,1A,1A,1A,1A,2B,3L,3A,1A,1A,2A,2A,3L,3A,3A,1A,0A
  83. DATA 0C,0A,0A,0A,0A,0A,0A,1M,1A,1A,1A,1A,1A,2C,3M,3A,1A,1A,2A,2A,3M,3A,3A,1A,0A
  84. DATA 00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,2J,2A,1A,1A,2A,2A,2A,3J,3A,1A,0A
  85. DATA 00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2G,2A,2A,2A,1A,0A
  86. DATA 00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2A,2A,1A,0A
  87. DATA 00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,2W,2K,1A,0A
  88. DATA 00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,0A
  89. DATA 00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,0A
  90. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1W,1W,1K,0A
  91. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A,0A,0A
  92. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A
  93. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0W,0G,0A,0A,0H
  94.  
  95. DeltaWepondry:
  96. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  97. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0E,0F,00
  98. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,1E,1F,00
  99. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  100. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,0E,0F,00,0A
  101. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,1E,1F,00,1A
  102. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,0E,0F,00,00,00,00,00,00,00
  103. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,1E,1F,00,00,2A,00,0M,00,00
  104. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,1M,00,0A
  105. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,0M,2A,0I,0J,00,2C,00,1A
  106. DATA 00,2A,00,0E,0F,00,0M,00,2A,00,0E,0F,00,00,00,0C,00,1M,2A,00,00,00,0C,00,00
  107. DATA 00,2A,00,1E,1F,00,1M,00,2A,00,1E,1F,00,00,00,1C,00,0M,2A,00,00,00,1C,00,00
  108. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,1M,2A,0I,0J,00,2C,00,0A
  109. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,0M,00,1A
  110. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,0E,0F,00,00,2A,00,1M,00,00
  111. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,1E,1F,00,00,00,00,00,00,00
  112. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,0E,0F,00,0A
  113. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,1E,1F,00,1A
  114. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  115. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,0E,0F,00
  116. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,1E,1F,00
  117. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  118.  
  119.  
  120.  
  121. SUB DrawDreadnaught (Xloc%, Yloc%, LayerID%%)
  122.     'find last tile to display
  123.     Endx%% = (640 - Xloc%) \ 32
  124.     Endy%% = (400 - Yloc%) \ 32
  125.     'range check keep values within array size(or dreadnaught data size)
  126.     IF Endx%% > S.Xsize THEN Endx%% = S.Xsize
  127.     IF Endy%% > S.Ysize THEN Endy%% = S.Ysize
  128.     'find first tile to display
  129.     Startx%% = (0 + Xloc%) \ 32
  130.     Starty%% = (0 + Yloc%) \ 32
  131.     'make sure value is always negative(-) otherwise start at 0
  132.     IF Startx%% > 0 THEN Startx%% = 0
  133.     IF Starty%% > 0 THEN Starty%% = 0
  134.     'fix negative value to positive, this means that portion is off screen so
  135.     'start at the + array location in other words don't bother with whats off
  136.     'screen
  137.     Startx%% = -Startx%%
  138.     Starty%% = -Starty%%
  139.  
  140.     FOR y% = Starty%% TO Endy%%
  141.         FOR x% = Startx%% TO Endx%%
  142.             layer% = Ship(x%, y%, 0) * 16
  143.             x1% = Xloc% + x% * 32
  144.             y1% = Yloc% + y% * 32
  145.             SELECT CASE Ship(x%, y%, 1)
  146.                 CASE 0
  147.                 CASE 65 TO 92
  148.                     xoff% = 16 * (Ship(x%, y%, 1) - 65)
  149.                     XL% = x1% + xoffs%
  150.                     YL% = y1% + yoff%
  151.                     IF layer% > 0 THEN _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0, layer% - 1)-STEP(15, 0)
  152.                     _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 0 + layer%)-STEP(15, 0)
  153.             END SELECT
  154.             layer% = (Arms(x%, y%, 0) + 4) * 16
  155.             SELECT CASE Arms(x%, y%, 1)
  156.                 CASE 0
  157.                 CASE 65 TO 92
  158.                     xoff% = 16 * (Arms(x%, y%, 1) - 65)
  159.                     XL% = x1% + xoffs%
  160.                     YL% = y1% + yoff%
  161.                     _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, layer%)-STEP(15, 15)
  162.             END SELECT
  163.         NEXT x%
  164.     NEXT y%
  166.  
  167. SUB LoadDreadnaughtlayout
  168.     RESTORE Delta
  169.     READ S.Xsize
  170.     READ S.Ysize
  171.     DIM temp AS STRING * 2
  172.  
  173.     FOR y% = 0 TO S.Ysize
  174.         FOR x% = 0 TO S.Xsize
  175.             READ temp
  176.             Ship(x%, y%, 0) = VAL(LEFT$(temp, 1))
  177.             Ship(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  178.     NEXT x%, y%
  179.     RESTORE DeltaWepondry
  180.     FOR y% = 0 TO S.Ysize
  181.         FOR x% = 0 TO S.Xsize
  182.             READ temp
  183.             Arms(x%, y%, 0) = VAL(LEFT$(temp, 1))
  184.             Arms(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  185.     NEXT x%, y%
  187.  
  188. SUB ClearLayer (id%%)
  189.     old& = _DEST
  190.     _DEST Layer(id%%)
  191.     CLS
  192.     _DEST old&

Note that this has a HUGE set delay of .1 seconds per cycle (compared to your original of 0.005, it's 20 times slower), and the ships still scroll right to left at around the same speed -- they're just moving in "chunks" now, as they skip several draws, but they're still advancing across the screen at the same rate.

Since you're only dropping from 110 to mid/upper 30s, that's a decrease of only about 1/3 for you, rather than the 1/20 which we see here, so that "step" isn't going to be as large and you're not going to notice the jerkiness as badly.

Honestly though, I'd go with a _LIMIT in this case, rather than a _DELAY.  Then, when the machine bogs down and needs more power for performance, it can use it, instead of having to wait no matter what.   ;)

(And I didn't pay attention to the background; I just was paying attention to the ship/arms.  Let me see what I did to the background...  :P)
Title: Re: Whats Causing the slow down in this code?
Post by: SMcNeill on October 25, 2018, 01:18:26 pm
Without changing anything but the delay, see if this won't continue to scroll at the rate you expect it to:

Code: QB64: [Select]
  1. TYPE Dreadnaught
  2.     Xsize AS _BYTE 'ship size X
  3.     Ysize AS _BYTE 'ship size Y
  4.     Engines AS _BYTE 'Engines remaining 0-4
  5.     Vents AS _BYTE 'Vents remaining 0-16 (0 explodes ship)
  6.     Silos AS _BYTE 'Silos remaining 0-5
  7.     ShotsFired AS _BYTE 'how may shots are currently active
  9. TYPE Gamedata
  10.     Ships AS _BYTE 'Dreadnaughts destroied
  11.     Score AS _UNSIGNED LONG 'Players score
  12.     Lives AS _UNSIGNED _BYTE 'Player lives remaining
  13.     Distance AS _BYTE 'Dreadnaught Distance remaining
  15. TYPE Playerdata
  16.     Xpos AS INTEGER
  17.     Ypos AS INTEGER
  18.     Speed AS INTEGER
  19.     ShotsFired AS _BYTE
  21. TYPE Shotdata
  22.     Xpos AS INTEGER
  23.     Ypos AS INTEGER
  24.     Kind AS _BYTE
  25.     Time AS _BYTE
  27.  
  28. DIM SHARED Ship(44, 32, 1) AS _BYTE 'STRING * 2
  29. DIM SHARED Arms(44, 32, 1) AS _BYTE 'STRING * 2
  30. DIM SHARED Layer(16) AS LONG
  31. DIM SHARED S AS Dreadnaught, G AS Gamedata, P AS Playerdata
  32. DIM SHARED PS(2) AS Shotdata, DS(10) AS Shotdata
  33.  
  34. CONST TRUE = -1, FALSE = NOT TRUE, SPRITES = 0, MASK = 3
  35. CONST Shot = 1, Bomb = 2, SGun = 3, LGun = 4, STorp = 5, LTorp = 6, Trakr = 7
  36.  
  37. SCREEN _NEWIMAGE(640, 480, 32)
  38. Layer(0) = _LOADIMAGE("DFsprit8.bmp") '  Sprite Layer
  39. Layer(1) = _DISPLAY
  40. Layer(2) = _NEWIMAGE(640, 480, 32) 'ship draw layer
  41. Layer(3) = _NEWIMAGE(640, 480, 32) 'screen mask, top 32 and bottom 80 pixels masked
  42.  
  43. _DEST Layer(MASK)
  44. LINE (0, 0)-(639, 479), _RGB32(0, 0, 0), BF
  45. LINE (0, 33)-(639, 400), _RGB32(1, 1, 1), BF
  46. LINE (0, 464)-(639, 479), _RGB32(1, 1, 1), BF 'debugging
  48. _CLEARCOLOR _RGB32(0, 0, 0), Layer(SPRITES)
  49. _CLEARCOLOR _RGB32(1, 1, 1), Layer(MASK)
  50.  
  51. LoadDreadnaughtlayout
  52. Xloc! = 1000: start! = TIMER
  54.     DrawDreadnaught Xloc!, -32, 2
  55.     IF TIMER >= start! + 1 THEN f% = c%: start! = TIMER: c% = 0
  56.     _PUTIMAGE , Layer(MASK), Layer(2)
  57.     _PUTIMAGE , Layer(2), Layer(1)
  58.     _PRINTSTRING (0, 464), "cycles:" + STR$(f%), Layer(1)
  59.     ClearLayer 2
  60.     _DELAY .005
  61.     IF f% < 120 THEN Xstep! = 120 / f% ELSE Xstep! = 1
  62.     Xloc! = Xloc! - Xstep!
  63.     IF Xloc! <= -1000 THEN Xloc! = 1000
  64.     c% = c% + 1
  67.  
  68.  
  69. Delta:
  70. DATA 24,21
  71. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0V,0F,0A,0A,0I
  72. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A
  73. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A,0A,0A
  74. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1V,1V,1U,0A
  75. DATA 00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,0A
  76. DATA 00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,0A
  77. DATA 00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2V,2U,1A,0A
  78. DATA 00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2A,2A,2A,1A,0A
  79. DATA 00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2T,2F,2A,2A,2A,1A,0A
  80. DATA 00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2A,1A,1A,2A,2A,2A,3T,3A,1A,0A
  81. DATA 0B,0A,0A,0A,0A,0A,0A,1L,1A,1A,1A,1A,1A,2B,3L,3A,1A,1A,2A,2A,3L,3A,3A,1A,0A
  82. DATA 0C,0A,0A,0A,0A,0A,0A,1M,1A,1A,1A,1A,1A,2C,3M,3A,1A,1A,2A,2A,3M,3A,3A,1A,0A
  83. DATA 00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,2J,2A,1A,1A,2A,2A,2A,3J,3A,1A,0A
  84. DATA 00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2G,2A,2A,2A,1A,0A
  85. DATA 00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2A,2A,1A,0A
  86. DATA 00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,2W,2K,1A,0A
  87. DATA 00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,0A
  88. DATA 00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,0A
  89. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1W,1W,1K,0A
  90. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A,0A,0A
  91. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A
  92. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0W,0G,0A,0A,0H
  93.  
  94. DeltaWepondry:
  95. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  96. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0E,0F,00
  97. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,1E,1F,00
  98. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  99. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,0E,0F,00,0A
  100. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,1E,1F,00,1A
  101. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,0E,0F,00,00,00,00,00,00,00
  102. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,1E,1F,00,00,2A,00,0M,00,00
  103. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,1M,00,0A
  104. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,0M,2A,0I,0J,00,2C,00,1A
  105. DATA 00,2A,00,0E,0F,00,0M,00,2A,00,0E,0F,00,00,00,0C,00,1M,2A,00,00,00,0C,00,00
  106. DATA 00,2A,00,1E,1F,00,1M,00,2A,00,1E,1F,00,00,00,1C,00,0M,2A,00,00,00,1C,00,00
  107. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,1M,2A,0I,0J,00,2C,00,0A
  108. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,0M,00,1A
  109. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,0E,0F,00,00,2A,00,1M,00,00
  110. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,1E,1F,00,00,00,00,00,00,00
  111. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,0E,0F,00,0A
  112. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,1E,1F,00,1A
  113. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  114. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,0E,0F,00
  115. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,1E,1F,00
  116. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  117.  
  118.  
  119.  
  120. SUB DrawDreadnaught (Xloc%, Yloc%, LayerID%%)
  121.     'find last tile to display
  122.     Endx%% = (640 - Xloc%) / 32
  123.     Endy%% = (400 - Yloc%) / 32
  124.     'range check keep values within array size(or dreadnaught data size)
  125.     IF Endx%% > S.Xsize THEN Endx%% = S.Xsize
  126.     IF Endy%% > S.Ysize THEN Endy%% = S.Ysize
  127.     'find first tile to display
  128.     Startx%% = (0 + Xloc%) / 32
  129.     Starty%% = (0 + Yloc%) / 32
  130.     'make sure value is always negative(-) otherwise start at 0
  131.     IF Startx%% > 0 THEN Startx%% = 0
  132.     IF Starty%% > 0 THEN Starty%% = 0
  133.     'fix negative value to positive, this means that portion is off screen so
  134.     'start at the + array location in other words don't bother with whats off
  135.     'screen
  136.     Startx%% = ABS(Startx%%)
  137.     Starty%% = ABS(Starty%%)
  138.  
  139.     FOR y% = Starty%% TO Endy%%
  140.         FOR x% = Startx%% TO Endx%%
  141.             layer% = Ship(x%, y%, 0)
  142.             SELECT CASE Ship(x%, y%, 1)
  143.                 CASE 0
  144.                 CASE 65 TO 92
  145.                     xoff% = 16 * (Ship(x%, y%, 1) - 65)
  146.                     XL% = Xloc% + xoffs% + 0 + x% * 32
  147.                     YL% = Yloc% + yoff% + y% * 32
  148.                     IF layer% > 0 THEN _PUTIMAGE (XL%, YL%)-(XL% + 32, YL% + 32), Layer(SPRITES), Layer(LayerID%%), (0, 0 + ((layer% - 1) * 16))-(15, 15 + ((layer% - 1) * 16))
  149.                     _PUTIMAGE (XL%, YL%)-(XL% + 32, YL% + 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 0 + (layer% * 16))-(15 + xoff%, 15 + (layer% * 16))
  150.             END SELECT
  151.             layer% = Arms(x%, y%, 0) + 4
  152.             SELECT CASE Arms(x%, y%, 1)
  153.                 CASE 0
  154.                 CASE 65 TO 92
  155.                     xoff% = 16 * (Arms(x%, y%, 1) - 65)
  156.                     XL% = Xloc% + xoffs% + 0 + x% * 32
  157.                     YL% = Yloc% + yoff% + y% * 32
  158.                     _PUTIMAGE (XL%, YL%)-(XL% + 32, YL% + 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 0 + (layer% * 16))-(15 + xoff%, 15 + (layer% * 16))
  159.             END SELECT
  160.         NEXT x%
  161.     NEXT y%
  163.  
  164. SUB LoadDreadnaughtlayout
  165.     RESTORE Delta
  166.     READ S.Xsize
  167.     READ S.Ysize
  168.     DIM temp AS STRING * 2
  169.  
  170.     FOR y% = 0 TO S.Ysize
  171.         FOR x% = 0 TO S.Xsize
  172.             READ temp
  173.             Ship(x%, y%, 0) = VAL(LEFT$(temp, 1))
  174.             Ship(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  175.     NEXT x%, y%
  176.     RESTORE DeltaWepondry
  177.     FOR y% = 0 TO S.Ysize
  178.         FOR x% = 0 TO S.Xsize
  179.             READ temp
  180.             Arms(x%, y%, 0) = VAL(LEFT$(temp, 1))
  181.             Arms(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  182.     NEXT x%, y%
  184.  
  185. SUB ClearLayer (id%%)
  186.     old& = _DEST
  187.     _DEST Layer(id%%)
  188.     CLS
  189.     _DEST old&
  191.  

If all else fails, you might need to skip some frames so the game continues to move at the same rate for you.  :)
Title: Re: Whats Causing the slow down in this code?
Post by: Cobalt on October 25, 2018, 01:31:28 pm
After running this little test code, I may just increase the size of my sprite sheet, look at the speed differnce between the regular putimage and the putimage that zooms tests! that is a major hit. when you zoom with putimage you lose over 10x the speed. why would that be?

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(640, 480, 32)
  2. Layer&(0) = _LOADIMAGE("DFsprit8.bmp", 32) '  Sprite Layer
  3.  
  4. DIM testimage(1024) AS LONG
  5.  
  6. _DEST Layer&(0)
  7. GET (0, 0)-(15, 15), testimage()
  9. LOCATE 5, 1: PRINT "Test 1"
  10. start1! = TIMER
  12.  PUT (0, 0), testimage()
  13.  LINE (0, 0)-(15, 15), _RGB32(0, 0, 0), BF
  14.  cycle1& = cycle1& + 1
  15. LOOP UNTIL TIMER >= start1! + 5
  16.  
  17. PRINT "Test 2"
  18. start2! = TIMER
  20.  _PUTIMAGE (0, 0), Layer&(0), _DISPLAY, (0, 0)-(15, 15)
  21.  LINE (0, 0)-(15, 15), _RGB32(0, 0, 0), BF
  22.  cycle2& = cycle2& + 1
  23. LOOP UNTIL TIMER >= start2! + 5
  24.  
  25. PRINT "Test 3"
  26. start3! = TIMER
  28.  _PUTIMAGE (0, 0)-STEP(32, 32), Layer&(0), _DISPLAY, (0, 0)-(15, 15)
  29.  LINE (0, 0)-(32, 32), _RGB32(0, 0, 0), BF
  30.  cycle3& = cycle3& + 1
  31. LOOP UNTIL TIMER >= start3! + 5
  32.  
  33. PRINT "Put Test Cycles per second          :"; cycle1& / 5
  34. PRINT "PutImage Test Cycles per second     :"; cycle2& / 5
  35. PRINT "PutImage zoom Test Cycles per second:"; cycle3& / 5
  36.  
  37.  

I'm not overly sure how the play would be if things begin to get 'jumpy' while your trying to line up the small fighter to shoot or bomb the targets(ARMS) on the ship, that is my main concern there.
Title: Re: Whats Causing the slow down in this code?
Post by: SMcNeill on October 25, 2018, 01:40:53 pm
If you don't need alpha, try to add this command in there:  _DONTBLEND

By default, QB64 tries to blend images into the background, but if you don't need to, _DONTBLEND is a heckuva speed boost usually.
Title: Re: Whats Causing the slow down in this code?
Post by: SMcNeill on October 25, 2018, 02:29:19 pm
Quote from: Cobalt on October 25, 2018, 01:31:28 pm
After running this little test code, I may just increase the size of my sprite sheet, look at the speed differnce between the regular putimage and the putimage that zooms tests! that is a major hit. when you zoom with putimage you lose over 10x the speed. why would that be?

Code: QB64: [Select]
  1. PRINT "Test 2"
  2.  _PUTIMAGE (0, 0), Layer&(0), _DISPLAY, (0, 0)-(15, 15)
  3.  
  4. PRINT "Test 3"
  5.  _PUTIMAGE (0, 0)-STEP(32, 32), Layer&(0), _DISPLAY, (0, 0)-(15, 15)
  6.  

You're doing a lot more work with the "zoom" print.  First, it's got to scale up your image to twice the size.  Then it's drawing to an area 4x the size.  (Twice as wide, Twice as tall). 
Title: Re: Whats Causing the slow down in this code?
Post by: SMcNeill on October 25, 2018, 11:09:39 pm
I've played around with this a bit more, and here's my solution to the problem:

Code: QB64: [Select]
  1. TYPE Dreadnaught
  2.     Xsize AS _BYTE 'ship size X
  3.     Ysize AS _BYTE 'ship size Y
  4.     Engines AS _BYTE 'Engines remaining 0-4
  5.     Vents AS _BYTE 'Vents remaining 0-16 (0 explodes ship)
  6.     Silos AS _BYTE 'Silos remaining 0-5
  7.     ShotsFired AS _BYTE 'how may shots are currently active
  9. TYPE Gamedata
  10.     Ships AS _BYTE 'Dreadnaughts destroied
  11.     Score AS _UNSIGNED LONG 'Players score
  12.     Lives AS _UNSIGNED _BYTE 'Player lives remaining
  13.     Distance AS _BYTE 'Dreadnaught Distance remaining
  15. TYPE Playerdata
  16.     Xpos AS INTEGER
  17.     Ypos AS INTEGER
  18.     Speed AS INTEGER
  19.     ShotsFired AS _BYTE
  21. TYPE Shotdata
  22.     Xpos AS INTEGER
  23.     Ypos AS INTEGER
  24.     Kind AS _BYTE
  25.     Time AS _BYTE
  27.  
  28. DIM SHARED Ship(44, 32, 1) AS _BYTE 'STRING * 2
  29. DIM SHARED Arms(44, 32, 1) AS _BYTE 'STRING * 2
  30. DIM SHARED Layer(16) AS LONG
  31. DIM SHARED S AS Dreadnaught, G AS Gamedata, P AS Playerdata
  32. DIM SHARED PS(2) AS Shotdata, DS(10) AS Shotdata
  33.  
  34. CONST TRUE = -1, FALSE = NOT TRUE, SPRITES = 0, MASK = 3
  35. CONST Shot = 1, Bomb = 2, SGun = 3, LGun = 4, STorp = 5, LTorp = 6, Trakr = 7
  36.  
  37. SCREEN _NEWIMAGE(640, 480, 32)
  38. Layer(0) = _LOADIMAGE("DFsprit8.bmp") '  Sprite Layer
  39. Layer(1) = _DISPLAY
  40. Layer(2) = _NEWIMAGE(640, 480, 32) 'ship draw layer
  41. Layer(3) = _NEWIMAGE(640, 480, 32) 'screen mask, top 32 and bottom 80 pixels masked
  42.  
  43. _DEST Layer(MASK)
  44. LINE (0, 0)-(639, 479), _RGB32(0, 0, 0), BF
  45. LINE (0, 33)-(639, 400), _RGB32(1, 1, 1), BF
  46. LINE (0, 464)-(639, 479), _RGB32(1, 1, 1), BF 'debugging
  48. _CLEARCOLOR _RGB32(0, 0, 0), Layer(SPRITES)
  49. _CLEARCOLOR _RGB32(1, 1, 1), Layer(MASK)
  50.  
  51. LoadDreadnaughtlayout
  52. Xloc! = 1000: start! = TIMER
  54. Limit% = 200
  56.     DrawDreadnaught Xloc!, -32, 2
  57.     IF TIMER >= start! + .1 THEN f% = c%: start! = TIMER: c% = 0
  58.     _PUTIMAGE , Layer(MASK), Layer(2)
  59.     _PUTIMAGE , Layer(2), Layer(1)
  60.     LOCATE 27, 1
  61.     PRINT "cycles:" + STR$(f%), Layer(1)
  62.     PRINT "MoveStep:"; Xstep!
  63.     ClearLayer 2
  64.     _LIMIT Limit%
  65.     IF f% < Limit% THEN Xstep! = Limit% / f% ELSE Xstep! = 1
  66.     Xloc! = Xloc! - Xstep!
  67.     IF Xloc! <= -1000 THEN Xloc! = 1000
  68.     c% = c% + 10
  69.     _DISPLAY
  72.  
  73.  
  74. Delta:
  75. DATA 24,21
  76. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0V,0F,0A,0A,0I
  77. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A
  78. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A,0A,0A
  79. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1V,1V,1U,0A
  80. DATA 00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,0A
  81. DATA 00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,0A
  82. DATA 00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2V,2U,1A,0A
  83. DATA 00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2A,2A,2A,1A,0A
  84. DATA 00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2T,2F,2A,2A,2A,1A,0A
  85. DATA 00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2A,1A,1A,2A,2A,2A,3T,3A,1A,0A
  86. DATA 0B,0A,0A,0A,0A,0A,0A,1L,1A,1A,1A,1A,1A,2B,3L,3A,1A,1A,2A,2A,3L,3A,3A,1A,0A
  87. DATA 0C,0A,0A,0A,0A,0A,0A,1M,1A,1A,1A,1A,1A,2C,3M,3A,1A,1A,2A,2A,3M,3A,3A,1A,0A
  88. DATA 00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,2J,2A,1A,1A,2A,2A,2A,3J,3A,1A,0A
  89. DATA 00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2G,2A,2A,2A,1A,0A
  90. DATA 00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2A,2A,1A,0A
  91. DATA 00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,2W,2K,1A,0A
  92. DATA 00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,0A
  93. DATA 00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,0A
  94. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1W,1W,1K,0A
  95. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A,0A,0A
  96. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A
  97. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0W,0G,0A,0A,0H
  98.  
  99. DeltaWepondry:
  100. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  101. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0E,0F,00
  102. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,1E,1F,00
  103. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  104. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,0E,0F,00,0A
  105. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,1E,1F,00,1A
  106. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,0E,0F,00,00,00,00,00,00,00
  107. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,1E,1F,00,00,2A,00,0M,00,00
  108. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,1M,00,0A
  109. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,0M,2A,0I,0J,00,2C,00,1A
  110. DATA 00,2A,00,0E,0F,00,0M,00,2A,00,0E,0F,00,00,00,0C,00,1M,2A,00,00,00,0C,00,00
  111. DATA 00,2A,00,1E,1F,00,1M,00,2A,00,1E,1F,00,00,00,1C,00,0M,2A,00,00,00,1C,00,00
  112. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,1M,2A,0I,0J,00,2C,00,0A
  113. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,0M,00,1A
  114. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,0E,0F,00,00,2A,00,1M,00,00
  115. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,1E,1F,00,00,00,00,00,00,00
  116. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,0E,0F,00,0A
  117. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,1E,1F,00,1A
  118. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  119. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,0E,0F,00
  120. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,1E,1F,00
  121. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  122.  
  123.  
  124.  
  125. SUB DrawDreadnaught (Xloc%, Yloc%, LayerID%%)
  126.     'find last tile to display
  127.     Endx%% = (640 - Xloc%) \ 32
  128.     Endy%% = (400 - Yloc%) \ 32
  129.     'range check keep values within array size(or dreadnaught data size)
  130.     IF Endx%% > S.Xsize THEN Endx%% = S.Xsize
  131.     IF Endy%% > S.Ysize THEN Endy%% = S.Ysize
  132.     'find first tile to display
  133.     Startx%% = Xloc% \ 32
  134.     Starty%% = Yloc% \ 32
  135.     'make sure value is always negative(-) otherwise start at 0
  136.     IF Startx%% > 0 THEN Startx%% = 0
  137.     IF Starty%% > 0 THEN Starty%% = 0
  138.     'fix negative value to positive, this means that portion is off screen so
  139.     'start at the + array location in other words don't bother with whats off
  140.     'screen
  141.     Startx%% = -Startx%%
  142.     Starty%% = -Starty%%
  143.  
  144.     FOR y% = Starty%% TO Endy%%
  145.         YL% = Yloc% + y% * 32
  146.         FOR x% = Startx%% TO Endx%%
  147.             layer% = Ship(x%, y%, 0)
  148.             x1% = Xloc% + x% * 32
  149.             SELECT CASE Ship(x%, y%, 1)
  150.                 CASE 0
  151.                 CASE 65 TO 92
  152.                     xoff% = 16 * (Ship(x%, y%, 1) - 65)
  153.                     XL% = x1% + xoffs%
  154.                     IF layer% > 0 THEN _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0, 0 + ((layer% - 1) * 16))-STEP(15, 15)
  155.                     _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, 0 + (layer% * 16))-STEP(15, 15)
  156.             END SELECT
  157.             layer% = Arms(x%, y%, 0) + 4
  158.             SELECT CASE Arms(x%, y%, 1)
  159.                 CASE 0
  160.                 CASE 65 TO 92
  161.                     xoff% = 16 * (Arms(x%, y%, 1) - 65)
  162.                     XL% = x1% + xoffs%
  163.                     _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), Layer(LayerID%%), (0 + xoff%, layer% * 16)-STEP(15, 15)
  164.             END SELECT
  165.         NEXT x%
  166.     NEXT y%
  168.  
  169. SUB LoadDreadnaughtlayout
  170.     RESTORE Delta
  171.     READ S.Xsize
  172.     READ S.Ysize
  173.     DIM temp AS STRING * 2
  174.  
  175.     FOR y% = 0 TO S.Ysize
  176.         FOR x% = 0 TO S.Xsize
  177.             READ temp
  178.             Ship(x%, y%, 0) = VAL(LEFT$(temp, 1))
  179.             Ship(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  180.     NEXT x%, y%
  181.     RESTORE DeltaWepondry
  182.     FOR y% = 0 TO S.Ysize
  183.         FOR x% = 0 TO S.Xsize
  184.             READ temp
  185.             Arms(x%, y%, 0) = VAL(LEFT$(temp, 1))
  186.             Arms(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  187.     NEXT x%, y%
  189.  
  190. SUB ClearLayer (id%%)
  191.     old& = _DEST
  192.     _DEST Layer(id%%)
  193.     CLS
  194.     _DEST old&
  196.  

Code has been cleaned up and math routines reduced as much as possible inside the graphic display portion, with no effect to display.  (WTH went wrong last time is beyond me.  Probably just something simple that I'm just too lazy to notice ATM.)

FPS counter has been replaced from a 1 second counter to a 1/10th second counter.
With this 1/10th counter, we now utilize a Limit% to set the maximum speed that we want the game to run.  On my PC, I've set the speed to 200 so I can watch the movement step in action.  A FPS of 120 or less doesn't require the movement to change at all now.

Changed the _PRINTSTRING to a lazy LOCATE and PRINT so that I could tag on some information without having to use my brain...  I imagine eventually they'll disappear completely once debugging is finished, so it shouldn't really matter.

Fixed _DELAY changed to variable _LIMIT for better use of maximum CPU power when the game needs it.

And added in a basic "skipframe" routine so that we maintain game speed even when the PC can't render all the graphics fast enough for us.  (Xstep!)  For me, the highest this step ever goes is to about 1.7 pixels instead of 1 pixel, so it's not a noticeable change at all.  Instead of the ship moving 1 pixel, 20 times in 1/10 of a second, to make 200 FPS, it ends up moving 1.7 pixels, 12 times in 1/10th of a seconds, to make 200 FPS, at its most taxed operation.

The change there just isn't very significant visually for me, but it keeps the game scrolling smoothly and without slowing down.
1 pixel, 20 times, in 1/10th of a second vs...
1.7 pixels, 12 times, in that same time frame...

And, if you think the game runs best at 100 FPS, then there's no change at all for us.  We'd run 1 pixel, 10 times, in 1/10 of a second, all the time.  (At least on my PC we would...)

It's the best solution I can think of for you, so the game can run smoothly on both older and newer machines.  ;)
Title: Re: Whats Causing the slow down in this code?
Post by: SMcNeill on October 26, 2018, 04:41:33 am
Actually, I think this would be a better solution:

Code: QB64: [Select]
  1. TYPE Dreadnaught
  2.     Xsize AS _BYTE 'ship size X
  3.     Ysize AS _BYTE 'ship size Y
  4.     Engines AS _BYTE 'Engines remaining 0-4
  5.     Vents AS _BYTE 'Vents remaining 0-16 (0 explodes ship)
  6.     Silos AS _BYTE 'Silos remaining 0-5
  7.     ShotsFired AS _BYTE 'how may shots are currently active
  9. TYPE Gamedata
  10.     Ships AS _BYTE 'Dreadnaughts destroied
  11.     Score AS _UNSIGNED LONG 'Players score
  12.     Lives AS _UNSIGNED _BYTE 'Player lives remaining
  13.     Distance AS _BYTE 'Dreadnaught Distance remaining
  15. TYPE Playerdata
  16.     Xpos AS INTEGER
  17.     Ypos AS INTEGER
  18.     Speed AS INTEGER
  19.     ShotsFired AS _BYTE
  21. TYPE Shotdata
  22.     Xpos AS INTEGER
  23.     Ypos AS INTEGER
  24.     Kind AS _BYTE
  25.     Time AS _BYTE
  27.  
  28. DIM SHARED Ship(44, 32, 1) AS _BYTE 'STRING * 2
  29. DIM SHARED Arms(44, 32, 1) AS _BYTE 'STRING * 2
  30. DIM SHARED Layer(16) AS LONG
  31. DIM SHARED S AS Dreadnaught, G AS Gamedata, P AS Playerdata
  32. DIM SHARED PS(2) AS Shotdata, DS(10) AS Shotdata
  33.  
  34. CONST TRUE = -1, FALSE = NOT TRUE, SPRITES = 0, MASK = 3
  35. CONST Shot = 1, Bomb = 2, SGun = 3, LGun = 4, STorp = 5, LTorp = 6, Trakr = 7
  36.  
  37. SCREEN _NEWIMAGE(640, 480, 32)
  38. Layer(0) = _LOADIMAGE("DFsprit8.bmp") '  Sprite Layer
  39. Layer(1) = _DISPLAY
  40. Layer(2) = _NEWIMAGE(640, 480, 32) 'ship draw layer
  41. Layer(3) = _NEWIMAGE(640, 480, 32) 'screen mask, top 32 and bottom 80 pixels masked
  42.  
  43. _DEST Layer(MASK)
  44. LINE (0, 0)-(639, 479), _RGB32(0, 0, 0), BF
  45. LINE (0, 33)-(639, 400), _RGB32(1, 1, 1), BF
  46. LINE (0, 464)-(639, 479), _RGB32(1, 1, 1), BF 'debugging
  48. _CLEARCOLOR _RGB32(0, 0, 0), Layer(SPRITES)
  49. _CLEARCOLOR _RGB32(1, 1, 1), Layer(MASK)
  50.  
  51. LoadDreadnaughtlayout
  53. DNS = _NEWIMAGE(S.Xsize * 36, S.Ysize * 36, 32)
  54. PreDrawShip
  55.  
  56. Xloc! = 1000: start! = TIMER
  58. Limit% = 200
  60.     DrawDreadnaught Xloc!, -32, 2
  61.     IF TIMER >= start! + .1 THEN f% = c%: start! = TIMER: c% = 0
  62.     _PUTIMAGE , Layer(MASK), Layer(2)
  63.     _PUTIMAGE , Layer(2), Layer(1)
  64.     LOCATE 27, 1
  65.     PRINT "cycles:" + STR$(f%), Layer(1)
  66.     PRINT "MoveStep:"; Xstep!
  67.     ClearLayer 2
  68.     _LIMIT Limit%
  69.     IF f% < Limit% THEN Xstep! = Limit% / f% ELSE Xstep! = 1
  70.     Xloc! = Xloc! - Xstep!
  71.     IF Xloc! <= -1000 THEN Xloc! = 1000
  72.     c% = c% + 10
  73.     _DISPLAY
  76.  
  77.  
  78. Delta:
  79. DATA 24,21
  80. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0V,0F,0A,0A,0I
  81. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A
  82. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,0A,0A,0A
  83. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1V,1V,1U,0A
  84. DATA 00,00,00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,0A
  85. DATA 00,00,00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,0A
  86. DATA 00,00,00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2V,2U,1A,0A
  87. DATA 00,00,00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2A,2A,2A,1A,0A
  88. DATA 00,00,00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,1A,1A,2T,2F,2A,2A,2A,1A,0A
  89. DATA 00,0T,0F,0A,0A,0A,0A,0A,1T,1F,1A,1A,1A,1A,2T,2A,1A,1A,2A,2A,2A,3T,3A,1A,0A
  90. DATA 0B,0A,0A,0A,0A,0A,0A,1L,1A,1A,1A,1A,1A,2B,3L,3A,1A,1A,2A,2A,3L,3A,3A,1A,0A
  91. DATA 0C,0A,0A,0A,0A,0A,0A,1M,1A,1A,1A,1A,1A,2C,3M,3A,1A,1A,2A,2A,3M,3A,3A,1A,0A
  92. DATA 00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,2J,2A,1A,1A,2A,2A,2A,3J,3A,1A,0A
  93. DATA 00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2G,2A,2A,2A,1A,0A
  94. DATA 00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,2J,2A,2A,1A,0A
  95. DATA 00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,2W,2K,1A,0A
  96. DATA 00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,1A,1A,0A
  97. DATA 00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1G,1A,1A,1A,1A,0A
  98. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,1J,1W,1W,1K,0A
  99. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A,0A,0A
  100. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0G,0A,0A,0A,0A,0A,0A
  101. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0J,0W,0G,0A,0A,0H
  102.  
  103. DeltaWepondry:
  104. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  105. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0E,0F,00
  106. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,1E,1F,00
  107. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  108. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,0E,0F,00,0A
  109. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,1E,1F,00,1A
  110. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,0E,0F,00,00,00,00,00,00,00
  111. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,1E,1F,00,00,2A,00,0M,00,00
  112. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,1M,00,0A
  113. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,0M,2A,0I,0J,00,2C,00,1A
  114. DATA 00,2A,00,0E,0F,00,0M,00,2A,00,0E,0F,00,00,00,0C,00,1M,2A,00,00,00,0C,00,00
  115. DATA 00,2A,00,1E,1F,00,1M,00,2A,00,1E,1F,00,00,00,1C,00,0M,2A,00,00,00,1C,00,00
  116. DATA 00,00,00,2A,00,00,0I,0J,00,00,00,2A,00,00,00,2C,00,1M,2A,0I,0J,00,2C,00,0A
  117. DATA 00,00,00,00,00,2A,00,00,0I,0J,00,00,00,00,2A,00,00,00,00,00,2A,00,0M,00,1A
  118. DATA 00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,0E,0F,00,00,2A,00,1M,00,00
  119. DATA 00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,1E,1F,00,00,00,00,00,00,00
  120. DATA 00,00,00,00,00,00,00,00,00,00,00,2G,00,00,0I,0J,00,00,2A,00,00,0E,0F,00,0A
  121. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,0I,0J,00,00,00,1E,1F,00,1A
  122. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2E,00,00,0I,0J,00,00,00,00,00
  123. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2A,00,00,00,00,0E,0F,00
  124. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,2G,00,00,1E,1F,00
  125. DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
  126.  
  127. SUB PreDrawShip
  128.     Endx%% = S.Xsize
  129.     Endy%% = S.Ysize
  130.     Startx%% = 0
  131.     Starty%% = 0
  132.  
  133.     FOR y% = Starty%% TO Endy%%
  134.         YL% = Yloc% + y% * 32
  135.         FOR x% = Startx%% TO Endx%%
  136.             layer% = Ship(x%, y%, 0)
  137.             x1% = Xloc% + x% * 32
  138.             IF Ship(x%, y%, 1) <> 0 THEN
  139.                 xoff% = 16 * (Ship(x%, y%, 1) - 65)
  140.                 XL% = x1% + xoffs%
  141.                 _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), DNS, (0, 0 + ((layer% - 1) * 16))-STEP(15, 15)
  142.                 _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), DNS, (0 + xoff%, 0 + (layer% * 16))-STEP(15, 15)
  143.             END IF
  144.             layer% = Arms(x%, y%, 0) + 4
  145.             SELECT CASE Arms(x%, y%, 1)
  146.                 CASE 0
  147.                 CASE 65 TO 92
  148.                     xoff% = 16 * (Arms(x%, y%, 1) - 65)
  149.                     XL% = x1% + xoffs%
  150.                     _PUTIMAGE (XL%, YL%)-STEP(32, 32), Layer(SPRITES), DNS, (0 + xoff%, layer% * 16)-STEP(15, 15)
  151.             END SELECT
  152.         NEXT
  153.     NEXT
  155.  
  156. SUB DrawDreadnaught (Xloc%, Yloc%, LayerID%%)
  157.     _PUTIMAGE (Xloc%, Yloc%), DNS, Layer(2)
  159.  
  160. SUB LoadDreadnaughtlayout
  161.     RESTORE Delta
  162.     READ S.Xsize
  163.     READ S.Ysize
  164.     DIM temp AS STRING * 2
  165.  
  166.     FOR y% = 0 TO S.Ysize
  167.         FOR x% = 0 TO S.Xsize
  168.             READ temp
  169.             Ship(x%, y%, 0) = VAL(LEFT$(temp, 1))
  170.             Ship(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  171.     NEXT x%, y%
  172.     RESTORE DeltaWepondry
  173.     FOR y% = 0 TO S.Ysize
  174.         FOR x% = 0 TO S.Xsize
  175.             READ temp
  176.             Arms(x%, y%, 0) = VAL(LEFT$(temp, 1))
  177.             Arms(x%, y%, 1) = ASC(RIGHT$(temp, 1))
  178.     NEXT x%, y%
  180.  
  181. SUB ClearLayer (id%%)
  182.     old& = _DEST
  183.     _DEST Layer(id%%)
  184.     CLS
  185.     _DEST old&
  187.  

By pre-drawing the ship, this runs at a nice little 520 FPS at the slowest part of execution (on my PC).

The only thing you'd want to do here is "erase" the weapons/engines/whatnot from the DNS image (or make a copy of the DNS image to use so you can erase from it), whenever the player destroys one of those weapons. 

Try it out, see if this might not be the way you'd want to go for the game.
Text Only | Text with Attachments