Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Petr on October 16, 2019, 10:32:16 am

Title: _SMOOTH bug? [SOLVED]
Post by: Petr on October 16, 2019, 10:32:16 am
Hi try this source code:

Code: QB64: [Select]
  1.  
  2.  
  4.  
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. VIRTUAL& = _NEWIMAGE(600, 600, 32)
  7. _PUTIMAGE , i, VIRTUAL&
  8. pieces = 66
  9.  
  10.  
  11. uhel = _PI
  12.  
  13.  
  15.     uhel = uhel + n
  16.     CLS
  17.     FOR B = 1 TO pieces
  18.         X = 400 + COS(uhel) * 400
  19.         Y = 300 + SIN(uhel) * 300
  20.  
  21.         X3 = 400 + COS(uhel + _PI / pieces) * 400
  22.         Y3 = 300 + SIN(uhel + _PI / pieces) * 300
  23.  
  24.  
  25.         PSET (X, Y)
  26.         uhel = uhel + _PI / pieces
  27.         '   SLEEP
  28.  
  29.         X2 = B * (800 / pieces)
  30.         xx = 800 / pieces
  31.  
  32.  
  33.         _MAPTRIANGLE (X2, 0)-(X2 + xx, 0)-(X2, 599), VIRTUAL& TO(X, Y)-(X3, Y3)-(X2, 599), _SMOOTH
  34.         _MAPTRIANGLE (X2 + xx, 0)-(X2, 599)-(X2 + xx, 599), VIRTUAL& TO(X3, Y3)-(X2, 599)-(X2 + xx, 599), _SMOOTH
  35.     NEXT
  36.     _DISPLAY
  37.     _LIMIT 20
  38.     uhel = _PI: n = n + .1
  40.  

Works? OK! Press twice ALt + Enter!  Invalid handle error occur. Why?

Then comment _SMOOTH in source code, recompile and run it again. Now all works fine also after twice press Alt + Enter.
Title: Re: _SMOOTH bug?
Post by: Ashish on October 16, 2019, 12:04:44 pm
Hi Petr! How are you?
The mistake is that you are using _SMOOTH at the place of destination handle. So, at initial condition the value of _SMOOTH is 0 (because there is no anti-aliasing). When we press ALT+ENTER twice, smooth is being enable and therefore, _SMOOTH function return -1. And QB64 treat -1 as an invalid handle.
 
Replace
Code: QB64: [Select]
  1. _MAPTRIANGLE (X2, 0)-(X2 + xx, 0)-(X2, 599), VIRTUAL& TO(X, Y)-(X3, Y3)-(X2, 599), _SMOOTH
  2.  
To
Code: QB64: [Select]
  1. _MAPTRIANGLE (X2, 0)-(X2 + xx, 0)-(X2, 599), VIRTUAL& TO(X, Y)-(X3, Y3)-(X2, 599), , _SMOOTH
  2.  
Notice the double comma at the last? I think you must have understood what I wanted to say.
Title: Re: _SMOOTH bug?
Post by: Petr on October 16, 2019, 01:35:10 pm
Oh man! Thank you Ashish! I didn't realize it at all! So a mistake on my side.
To your question:  how am I? Well, it's not good now. Did not only us national singer Karel Gott die (of which I wrote in my forum signature and on the day of his funeral), but also the neighbor died and, to make matters worse, a colleague from work is  hanged himself. Well, it was really too bad now.
I'm slowly returning to programming. Very slowly, because there is not much time and there is a lot of work around.

Thank you for your help.


Text Only | Text with Attachments