Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Leo on October 27, 2020, 08:08:26 pm

Title: Multiple images
Post by: Leo on October 27, 2020, 08:08:26 pm
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.
Title: Re: Multiple images
Post by: Richard Frost on October 27, 2020, 11:22:47 pm
_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.
Title: Re: Multiple images
Post by: Leo on October 28, 2020, 12:04:55 am
Thanks for your reply.
Where can I find your chess program?
Title: Re: Multiple images
Post by: Richard Frost on October 28, 2020, 12:13:22 am
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. 


Title: Re: Multiple images
Post by: Richard Frost on October 28, 2020, 12:19:21 am
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)
  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$
  16.  
  17. GOSUB Init
  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
  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
  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
  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
  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
  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$
  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
  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
  131. IF cc > q THEN
  132.     cc = 1
  133.     rr = rr + 1
  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
  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
  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
  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.  
  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
  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
  207.  
  208.  
Title: Re: Multiple images
Post by: Leo on October 28, 2020, 02:01:41 am
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. :) ]
Title: Re: Multiple images
Post by: SMcNeill on October 28, 2020, 02:59:02 am
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
  7. FOR i = 0 TO 600 STEP 200
  8.     _PUTIMAGE (i, 0)-STEP(200, 200), image

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. 
Title: Re: Multiple images
Post by: Leo on October 31, 2020, 02:17:21 am
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'  :) ]
Title: Re: Multiple images
Post by: bplus on October 31, 2020, 02:34:46 am
Quote from: Leo on October 31, 2020, 02:17:21 am
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.
Title: Re: Multiple images
Post by: SMcNeill on October 31, 2020, 09:57:44 am
Quote from: Leo on October 31, 2020, 02:17:21 am
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.  ;)
Text Only | Text with Attachments