Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - thesolarcode

Pages: [1]
1
QB64 Discussion / Re: Errors in an $include file
« on: May 17, 2021, 02:02:51 pm »
Is there a smart way to conditionally include some file only once?

2
QB64 Discussion / Re: Help: code not blending to complete black color
« on: May 15, 2021, 02:32:34 am »
Yes, that is it - the effect looks really great now (even better if you decrease by 1 - then it fades really slowly towards black color).
Today I learned something new (how to use MEMGET/PUT for gfx).
Thanks :)

3
QB64 Discussion / Re: Help: code not blending to complete black color
« on: May 14, 2021, 04:53:42 am »
I changed the code a bit - this time I copy an image over and over to achieve the fading effect, but I have the same problem with the faded lines being still visible.
I guess there is no other way in QB64 as to darken/fade each pixel individually, right?

Code: QB64: [Select]
  2.  
  3. dim shared screenx%, screeny%, tx1%, ty1%, tx2%, ty2%, x1%, y1%, x2%, y2%, d%, handle2&
  4. screenx%=800
  5. screeny%=600
  6.        
  7. SCREEN _NEWIMAGE(screenx%,screeny%,32)
  10.  
  11. ' create new black image with alpha channel
  12. handle2& = _NEWIMAGE(screenx%,screeny%,32)
  13. _DEST handle2&
  14. LINE (0, 0)-(screenx%, screeny%), _RGBA(0, 0, 0, 3), BF
  16.  
  17. tx1%=screenx%*rnd
  18. ty1%=screeny%*rnd
  19. tx2%=screenx%*rnd
  20. ty2%=screeny%*rnd
  21. x1%=screenx%*rnd
  22. y1%=screeny%*rnd
  23. x2%=screenx%*rnd
  24. y2%=screeny%*rnd
  25. d%=3
  26.  
  29.         color _RGB(256*rnd, 256*rnd, 256*rnd)
  30.         smearfx
  31.        
  32.         if x1% < tx1% then
  33.                 x1% = x1% + d%
  34.         ELSE
  35.                 x1% = x1% - d%
  36.         end if
  37.         if ABS(x1%-tx1%) < d% then
  38.                 tx1%=screenx%*rnd
  39.         end if
  40.  
  41.         if y1% < ty1% then
  42.                 y1% = y1% + d%
  43.         ELSE
  44.                 y1% = y1% - d%
  45.         end if
  46.         if abs(y1%-ty1%) < d% then
  47.                 ty1%=screeny%*rnd
  48.         end if
  49.        
  50.         if x2% < tx2% then
  51.                 x2% = x2% + d%
  52.         ELSE
  53.                 x2% = x2% - d%
  54.         end if
  55.         if abs(x2%-tx2%) < d% then
  56.                 tx2%=screenx%*rnd
  57.         end if
  58.  
  59.         if y2% < ty2% then
  60.                 y2% = y2% + d%
  61.         ELSE
  62.                 y2% = y2% - d%
  63.         end if
  64.         if abs(y2%-ty2%) < d% then
  65.                 ty2%=screeny%*rnd
  66.         end if
  69.  
  70. sub smearfx()
  71.     _LIMIT 50
  72.     'LINE (0, 0)-(screenx%, screeny%), _RGBA(0, 0, 0, 25), BF
  73.     _PUTIMAGE (0,0), handle2&, 0
  74.     line (x1%, y1%)-(x2%, y2%)
  75.     _DISPLAY
  77.  

4
QB64 Discussion / Re: Help: code not blending to complete black color
« on: May 13, 2021, 05:04:10 pm »
Thanks,

Not sure how to use CLS without destroying the line effect - I only draw one additional line per screen update, all the other lines are just made darker with one command :)
I'm probably doing the wrong thing - am I effectively just setting transparency to 25% and thus lines are still visible?

5
QB64 Discussion / Help: code not blending to complete black color
« on: May 13, 2021, 03:53:00 pm »
I have this code and thought that with the _RGBA alpha setting (line 67) drawing over the whole screen the image should get darker and darker, but somehow the lines are stuck at some very dark grey color. Any idea how I can fix this?

Code: QB64: [Select]
  3.  
  4. dim shared screenx%, screeny%, tx1%, ty1%, tx2%, ty2%, x1%, y1%, x2%, y2%, d%
  5. screenx%=800
  6. screeny%=600
  7.        
  8. ' open new (full)screen
  9. SCREEN _NEWIMAGE(screenx%,screeny%,32)
  11.  
  12. tx1%=screenx%*rnd
  13. ty1%=screeny%*rnd
  14. tx2%=screenx%*rnd
  15. ty2%=screeny%*rnd
  16. x1%=screenx%*rnd
  17. y1%=screeny%*rnd
  18. x2%=screenx%*rnd
  19. y2%=screeny%*rnd
  20. d%=3
  21.  
  24.         color _RGB(256*rnd, 256*rnd, 256*rnd)
  25.         smearfx
  26.        
  27.         if x1% < tx1% then
  28.                 x1% = x1% + d%
  29.         ELSE
  30.                 x1% = x1% - d%
  31.         end if
  32.         if ABS(x1%-tx1%) < d% then
  33.                 tx1%=screenx%*rnd
  34.         end if
  35.  
  36.         if y1% < ty1% then
  37.                 y1% = y1% + d%
  38.         ELSE
  39.                 y1% = y1% - d%
  40.         end if
  41.         if abs(y1%-ty1%) < d% then
  42.                 ty1%=screeny%*rnd
  43.         end if
  44.        
  45.         if x2% < tx2% then
  46.                 x2% = x2% + d%
  47.         ELSE
  48.                 x2% = x2% - d%
  49.         end if
  50.         if abs(x2%-tx2%) < d% then
  51.                 tx2%=screenx%*rnd
  52.         end if
  53.  
  54.         if y2% < ty2% then
  55.                 y2% = y2% + d%
  56.         ELSE
  57.                 y2% = y2% - d%
  58.         end if
  59.         if abs(y2%-ty2%) < d% then
  60.                 ty2%=screeny%*rnd
  61.         end if
  64.  
  65. sub smearfx()
  66.     _LIMIT 50
  67.     LINE (0, 0)-(screenx%, screeny%), _RGBA(0, 0, 0, 25), BF
  68.         line (x1%, y1%)-(x2%, y2%)
  69.     _DISPLAY
  71.  

6
QB64 Discussion / Re: How to smoothly fadeout desktop?
« on: December 09, 2018, 03:16:41 pm »
Wow, Pete's code works much better, seems like the _FULLSCREEN is the issue.
I can live with the short blink at the start.

Thanks :)

7
QB64 Discussion / Re: How to smoothly fadeout desktop?
« on: December 09, 2018, 01:24:58 pm »
I added the sleep to see where the blinking is happening.
I thought first it blinks due to the program startup, but on my PC there is some ugly blink right after the 3 second sleep (actually it looks like the fade out starts with a black image/screen), and at that time I would guess it is not anymore caused by any startup or setup of the screen.

I tried to move the _limit to after display as you suggested, but don't see any difference.

8
QB64 Discussion / How to smoothly fadeout desktop?
« on: December 09, 2018, 12:22:34 pm »
For a simple game, I'd like to start it with fading out the desktop.
I have some code which nearly does what I want, but it blinks ugly - maybe someone can help me.

Code: QB64: [Select]
  2.  
  4. screenx = _WIDTH(img&)    
  5. screeny = _HEIGHT(img&)
  6. SCREEN _NEWIMAGE(screenx, screeny, 32)
  8. _PUTIMAGE (0, 0)-(screenx-1, screeny-1), img&
  11.  
  12. ' Fade out
  13. FOR i% = 0 TO 255 STEP 5
  14.   _LIMIT 50                          'control fade speed
  15.   _PUTIMAGE (0, 0)-(screenx-1, screeny-1), img&
  16.   LINE (0, 0)-(screenx-1, screeny-1), _RGBA(0, 0, 0, i%), BF 'increase black box transparency
  20.  

Pages: [1]