QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Dav on February 22, 2021, 11:17:47 am

Title: Is there a _SCREENIMAGE method for Linux/Mac?
Post by: Dav on February 22, 2021, 11:17:47 am

Was wondering if there's a way to grab desktop image under Linux and Mac, like _SCREENIMAGE works under Windows.   As example, here's a screensaver thing that uses _SCREENIMAGE.  Works in Windows, but how would I do this under Linux or Mac?  If there's a way, I could add it to my code before posting it here.

Thanks.

- Dav

Code: QB64: [Select]

1.  
2. 'DesktopWriter.bas
3. 'Coded by Dav, FEB/2021
4.  
5. _SCREENHIDE
6. back& = _SCREENIMAGE
7. _SCREENSHOW
8.  
9. SCREEN _NEWIMAGE(_DESKTOPWIDTH, _DESKTOPHEIGHT, 32)
10. _SCREENMOVE -3, -30
11. _PUTIMAGE (0, 0), back&
12.  
13. RANDOMIZE TIMER
14.  
15. x% = RND * _WIDTH: y% = _HEIGHT
16. r& = RND * 155 + 100
17. g& = RND * 155 + 100
18. b& = RND * 155 + 100
19.  
20. DO
21.  
22.     c% = INT(RND * 2) - 1
23.     IF c% = 0 THEN c% = 1
24.     IF (INT(RND * 2) + 1) = 1 THEN
25.         x% = x% + c%
26.     ELSE
27.         y% = y% + c%
28.     END IF
29.  
30.     ball x%, y%, 30, RND * r&, RND * g&, RND * b&, RND * 1
31.  
32.     IF x% > _WIDTH OR x% < 0 OR y% > _HEIGHT OR y% < 0 THEN
33.         x% = RND * _WIDTH: y% = RND * _HEIGHT
34.         r& = RND * 155 + 100: g& = RND * 155 + 100: b& = RND * 155 + 100
35.     END IF
36.  
37. LOOP UNTIL INKEY$ <> ""
38.  
39. END
40.  
41.  
42. SUB ball (BallX, BallY, size, r&, g&, b&, a&)
43.     FOR s = 1 TO size STEP 2
44.         CIRCLE (BallX, BallY), s, _RGBA(r&, g&, b&, a&)
45.         IF r& > 0 THEN r& = r& - 2
46.         IF g& > 0 THEN g& = g& - 2
47.         IF b& > 0 THEN b& = b& - 2
48.     NEXT
49. END SUB
50.  

Title: Re: Is there a _SCREENIMAGE method for Linux/Mac?
Post by: bplus on February 22, 2021, 11:24:17 am

Maybe Pipecom a command to Linux to take a picture | or >>  filename, then _loadimage that file?

Text Only | Text with Attachments