Multiple images

[Leo]

I have been hobby programming in various basics for 48 years, and I like the power QB64 offers.
I have examined the graphics commands but cannot find details of what I want.

Q. How do I load images into different areas on the display screen, so they are all fully visible simultaneously?

I will be grateful for any advice, or pointers to demo programs that show how to do this.

[Richard Frost]

_LOADIMAGE and _PUTIMAGE

The syntax of _PUTIMAGE still seems strange to me, but it sure works. With it you can not only place the image anywhere on the screen but also resize and flip horizontally or vertically.  After loading an image the _WIDTH and _SIZE of it are available - you don't have to know it in advance.  Also, _LOADIMAGE supports a bunch of common file formats.

You could also use _LOADIMAGE along with the old QBASIC GET and PUT.  _PUTIMAGE doesn't have the AND, OR, and XOR capability of PUT, exactly.  Much of that can be accomplished with color transparencies (_RGBA), but it ain't simple.

Start with SCREEN _NEWIMAGE(1024,768,32), or whatever size you want  to have something to paste onto!

You could study my chess program.  All the pieces are images, like Chuck Norris, Mel Brooks, and SpongeBob.  There's
even a key to display all funny images - "Z" - like a simple picture viewer.

[Leo]

Thanks for your reply.
Where can I find your chess program?

[Richard Frost]

Chess program is at:
https://www.qb64.org/forum/index.php?topic=2437.msg116514#msg116514

There are two versions.  The second, bigger zip includes sound, and is the one I'm constantly updating.
The "view all funny pictures" is in SUB ShowFunny. 

[Richard Frost]

And here's a simple picture viewer I did when I was still learning QB64. 
It has bugs, like cannot arrow to all pictures, but it does have "a" for
automatic, to view full images.

Code: QB64: [Select]

1. DEFINT A-Z
2. DIM f$(5000), i&(20, 20)
3. xm = 1280: ym = 800
4. SCREEN _NEWIMAGE(1280, 800, 32)
5. _FULLSCREEN
6.  
7. q$ = CHR$(34)
8. d$ = "temp.dir"
9. q = 8
10.  
11. p$ = "\pix\aurora\" '                 change this to your directory of pictures
12. 'p$ = "\pix\mycars\"
13.  
14. c$ = "dir " + p$ + " > \qb64\" + d$
15. SHELL _HIDE c$
16.  
17. GOSUB Init
18. DO
19.     begin:
20.     replot = 0
21.     CLS
22.     FOR tr = 1 TO maxr
23.         FOR tc = 1 TO maxc
24.             GOSUB mload
25.         NEXT tc
26.     NEXT tr
27.     DO: _LIMIT 10
28.         GOSUB kscan
29.     LOOP UNTIL replot OR (i$ = Enter$) OR (fs = 1)
30.     IF replot THEN GOTO begin
31.     fs = 1
32.     DO: _LIMIT 10
33.         tc = cc: tr = rr: GOSUB mload
34.         zc = cc: zr = rr
35.         DO: _LIMIT 10
36.             IF auto THEN
37.                 IF autot! = 0 THEN autot! = TIMER + 1
38.                 IF TIMER > autot! THEN
39.                     cc = cc + 1
40.                     autot! = TIMER + 5
41.                 END IF
42.             END IF
43.             GOSUB kscan
44.         LOOP UNTIL (i$ = Enter$) OR (zc <> cc) OR (zr <> rr)
45.     LOOP UNTIL i$ = Enter$
46.     fs = 0
47. LOOP
48. SYSTEM
49.  
50. mload:
51. n = mn + (tr - 1) * q + tc
52. f$ = p$ + f$(n)
53. x = (tc - 1) * xq
54. y = (tr - 1) * yq
55. t = 0
56. tryagain:
57. GOSUB kscan
58. t = t + 1
59. IF i&(tc, tr) = 0 THEN i&(tc, tr) = _LOADIMAGE(f$)
60. IF (i&(tc, tr) >= -1) AND (t < 3) THEN i&(tc, tr) = 0: GOTO tryagain
61. IF (i&(tc, tr) < -1) THEN
62.     IF fs THEN
63.         z1 = _WIDTH(i&(tc, tr))
64.         z2 = _HEIGHT(i&(tc, tr))
65.         x1 = (_WIDTH - z1) \ 2
66.         y1 = (_HEIGHT - z2) \ 2
67.         CLS
68.         IF z1 < _WIDTH THEN
69.             _PUTIMAGE (x1, y1)-(x1 + z1, y1 + z2), i&(tc, tr), 0
70.         ELSE
71.             _PUTIMAGE , i&(tc, tr), 0
72.         END IF
73.     ELSE
74.         _PUTIMAGE (x0 + x, y0 + y)-(x0 + x + xq, y0 + y + yq), i&(tc, tr), 0
75.     END IF
76. ELSE
77.     IF fs THEN
78.         CLS
79.     ELSE
80.         LINE (x0 + x, y0 + y)-(x0 + x + xq, y0 + y + yq), black&, BF
81.     END IF
82. END IF
83.  
84. n = mn + (tr - 1) * q + tc
85. IF n > nf THEN n = 1
86.  
87. IF fs = 0 THEN
88.     IF (tc = cc) AND (tr = rr) THEN tc& = white& ELSE tc& = black&
89.     FOR z = 0 TO 4
90.         LINE (x0 + x + z, y0 + y + z)-(x0 + x + xq - z, y0 + y + yq - z), tc&, B
91.     NEXT z
92. END IF
93. RETURN
94.  
95. kscan:
96. i$ = INKEY$
97. IF i$ = "a" THEN auto = auto XOR 1: fs = 1: RETURN
98. IF fs = 0 THEN
99.     IF i$ = "+" THEN
100.         q = q - 1
101.         IF q < 2 THEN q = 2
102.         GOSUB init2
103.     END IF
104.     IF i$ = "-" THEN
105.         q = q + 1
106.         IF q > 20 THEN q = 20
107.         GOSUB init2
108.     END IF
109. END IF
110. IF i$ = "d" THEN
111.     _FREEIMAGE i&(tc, tr)
112.     i&(tc, tr) = 0
113.     'c$ = "del " + CHR$(34) + f$ + CHR$(34)
114.     SHELL _HIDE c$
115. END IF
116. IF i$ = Esc$ THEN SYSTEM
117. wr = rr: wc = cc
118. IF LEN(i$) = 2 THEN
119.     kk = ASC(RIGHT$(i$, 1))
120.     cd = (kk = 75) - (kk = 77)
121.     rd = (kk = 72) - (kk = 80)
122.     cc = cc + cd '                                       left right
123.     rr = rr + rd '                                       up down
124. END IF
125. tp = (mn + (rr - 1) * maxr + cc)
126. IF (tp > nf) OR (tp < 1) THEN SOUND 2222, 1: cc = wc: rr = wr
127. IF cc < 1 THEN
128.     cc = q
129.     rr = rr - 1
130. END IF
131. IF cc > q THEN
132.     cc = 1
133.     rr = rr + 1
134. END IF
135. IF rr < 1 THEN
136.     rr = 1
137.     mn = mn - maxr
138.     IF mn < 0 THEN mn = 0: RETURN
139.     FOR tc = 1 TO maxc
140.         IF i&(tc, maxr) < -1 THEN _FREEIMAGE i&(tc, maxr)
141.     NEXT tc
142.     FOR tr = maxr TO 2 STEP -1
143.         FOR tc = 1 TO maxc
144.             i&(tc, tr) = (i&(tc, tr - 1))
145.         NEXT tc
146.     NEXT tr
147.     FOR tc = 1 TO maxc
148.         i&(tc, 1) = 0
149.     NEXT tc
150.     replot = 1
151.     RETURN
152. END IF
153. IF rr > maxr THEN
154.     rr = maxr
155.     mn = mn + maxc
156.     IF ((mn + (maxr - 1) * maxc + 1) > nf) THEN mn = mn - maxc: RETURN ' wonka
157.     FOR tc = 1 TO maxc
158.         IF i&(tc, 1) < -1 THEN _FREEIMAGE i&(tc, 1)
159.     NEXT tc
160.     FOR tr = 1 TO maxr - 1
161.         FOR tc = 1 TO maxc
162.             i&(tc, tr) = (i&(tc, tr + 1))
163.         NEXT tc
164.     NEXT tr
165.     FOR tc = 1 TO maxc
166.         i&(tc, maxr) = 0
167.     NEXT tc
168.     replot = 1
169.     RETURN
170. END IF
171. IF (rr = wr) AND (cc = wc) THEN RETURN
172. IF fs = 0 THEN
173.     tr = wr: tc = wc: GOSUB mload
174.     tr = rr: tc = cc: GOSUB mload
175. END IF
176. RETURN
177.  
178. Init:
179. Enter$ = CHR$(13)
180. Esc$ = CHR$(27)
181.  
182. black& = _RGB32(0, 0, 0)
183. white& = _RGB32(255, 255, 255)
184. red& = _RGB32(255, 0, 0)
185. bg& = rgba(0, 0, 0, 0)
186.  
187. OPEN d$ FOR INPUT AS #1
188. WHILE NOT (EOF(1))
189.     LINE INPUT #1, t$: t$ = LCASE$(t$)
190.     IF (LEN(t$) > 4) AND (INSTR("jpg gif png bmp", RIGHT$(t$, 3))) THEN
191.         nf = nf + 1
192.         f$(nf) = RIGHT$(t$, LEN(t$) - 39)
193.     END IF
194. WEND
195. CLOSE
196.  
197. init2:
198. maxc = q
199. maxr = q * xm / ym
200. xq = (xm - 1) \ maxc
201. yq = (ym - 1) \ maxr
202. x0 = (xm / q - INT(xm / q)) * q / 2
203. y0 = 16
204. rr = 1: cc = 1
205. replot = 1
206. RETURN
207.  
208.  

[Leo]

thanks.
your programs do not run on my pc, but you have given me good fodder to chew on.

[being there: peter, spike, harry. they may have fallen in the well. we all do. :) ]

[SMcNeill]

At the top left of the webpage, right-click on the QB64 image and save it to your qb64 folder.  By default, it should be "QB64-1.4-Release.png".  With it, you can run the simple little demo below:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(640, 480, 32)
2. image = _LOADIMAGE("QB64-1.4-Release.png", 32)
3.  
4. _PUTIMAGE , image
5. SLEEP
6. CLS
7. FOR i = 0 TO 600 STEP 200
8.     _PUTIMAGE (i, 0)-STEP(200, 200), image
9. NEXT

For multiple images, just load them into multiple image handles and then _PUTIMAGE them at the coordinates you want them to appear on the screen. 

[Leo]

This was most useful, and educated me, and I wrote several progs using multiple images.
I then wrote a program with a single well sized and placed image (150kB) and used a mouse to overlay single characters at different print positions.
I was ecstatic. A dream come true. Then I hit the wall.
4 clicks and a freeze, and my cpu fan went crazy.
The ground started shaking. Was it an earthquake?
No, it was the QB64 reality helicopter landing on my dream.
I had to use task manager to escape.

You have solved my problem, but introduced me to a beast, now I will have to open another thread about freezing to avoid going off topic.

[fortunately there are no bugs in QB64, only 'undocumented features', or 'glitches'  :) ]

[bplus]

This was most useful, and educated me, and I wrote several progs using multiple images.
I then wrote a program with a single well sized and placed image (150kB) and used a mouse to overlay single characters at different print positions.
I was ecstatic. A dream come true. Then I hit the wall.
4 clicks and a freeze, and my cpu fan went crazy.
The ground started shaking. Was it an earthquake?
No, it was the QB64 reality helicopter landing on my dream.
I had to use task manager to escape.

You have solved my problem, but introduced me to a beast, now I will have to open another thread about freezing to avoid going off topic.

[fortunately there are no bugs in QB64, only 'undocumented features', or 'glitches'  :) ]

Post some code, we can find the "undocumented features" and make your dreams come true faster ;-))

Man I hate calling on the task manager but .ogg files do worse things (in Windows 10 File Explorer).

4 clicks and a freeze, I sure would like to know what you fed the beast.

[SMcNeill]

4 clicks and a freeze, and my cpu fan went crazy.
The ground started shaking. Was it an earthquake?
No, it was the QB64 reality helicopter landing on my dream.

This sounds like an endless loop.  Share the code and we’ll see if we can find it for you.  ;)