Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Kernelpanic on October 29, 2020, 08:03:30 pm

Title: Load images
Post by: Kernelpanic on October 29, 2020, 08:03:30 pm
I am just trying understand the graphics commands. I have a problem with loading an image - even examples from the wiki do not work. The editor shows OK. Can someone tell me where the problem is? Thank you!

Code: QB64: [Select]
  2.  
  3. DIM NeuesFenster AS LONG, Bild AS LONG
  5.  
  6. NeuesFenster = _NEWIMAGE(1024, 768, 256)
  7. SCREEN NeuesFenster
  8.  
  9. COLOR 0, 11
  10. LOCATE (CSRLIN + 2), POS(0)
  11. PRINT "Hallo, QuickBasic 64!"
  12.  
  13. 'Bild laden
  14. Bild = _LOADIMAGE("MaedchenSozial.jpg", 32)
  15. SCREEN Bild
  16. _PUTIMAGE (0, 0), Bild
  17.  
  18. 'Neue Farbe setzen
  19. COLOR 7, 0
  20. _PALETTECOLOR 7, &HFFDAA520
  21.  
  22. 'Mit Schriften arbeiten + positionieren
  23. Text = "Em todas as religioes ha amor, mas o amor nao tem religiao."
  24.  
  25. _FONT _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "Monospace")
  26.  
  27. 'Zeile, Spalte (Row, Column)
  28. _PRINTSTRING (150, 460), Text
  29.  
  30. 'Farbe und Schrift zuruecksetzen
  31. COLOR 15, 0
  33.  
  35.  

Example from the wiki at _Putimage

Code: QB64: [Select]
  1. DEFLNG A-Z
  2. dest_handle = _NEWIMAGE(640, 480, 32)
  3. SCREEN dest_handle '32 bit Screen 12 dimensions
  4.  
  5. 'Bild wird nicht geladen
  6. source_handle = _LOADIMAGE("QB64.PNG", 32)
  7.  
  8. dx1 = 0: dy1 = 0
  9. . . .
  10.  
Title: Re: Load images
Post by: bplus on October 29, 2020, 08:54:56 pm
For sure, you don't need this:
Code: QB64: [Select]
  1. SCREEN Bild  

_PUTIMAGE does the job of putting the image where you want.

then it's just a matter of finding the image file you want to load and you can check if the image handle assigned is not -1, -1 means no load!

 This is interesting:
Code: QB64: [Select]
  1. _FONT _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "Monospace")

ususally its
Code: QB64: [Select]
  1. myFont& = _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "Monospace")

Load to LONG type handle, then call
Code: QB64: [Select]
  1. _FONT myFont&

that way you can switch fonts without reload of a font.

Title: Re: Load images
Post by: SMcNeill on October 29, 2020, 10:08:22 pm
NeuesFenster = _NEWIMAGE(1024, 768, 256)
SCREEN NeuesFenster
Bild = _LOADIMAGE("MaedchenSozial.jpg", 32)
SCREEN Bild

A couple of problems with the above.  First, you set NeuesFenster to a 256 color screen.  Then you load a 32-bit color image.  Then you swap screens, throwing away the 256 color screen....

I would think you’d want more of:

NeuesFenster = _NEWIMAGE(1024, 768, 32) ‘USE A 32-bit screen
SCREEN NeuesFenster
 
COLOR _RGB32(0,0,0), _RGB32(255, 255, 0)’MUST USE 32-BIT COLOR VALUES
LOCATE (CSRLIN + 2), POS(0)
PRINT "Hallo, QuickBasic 64!"
 
'Bild laden
Bild = _LOADIMAGE("MaedchenSozial.jpg", 32)
‘SCREEN Bild ‘NO NEED FOR THIS
_PUTIMAGE (0,0), Bild
Title: Re: Load images
Post by: Kernelpanic on October 30, 2020, 09:25:01 am
Thanks for the help. The picture - I think I now know how "_Loadimage" works. The picture have to be in the same directory as the program and the full path have to be specified.

That will not do:
"MaedchenSozial.jpg"
"..\Bilder\MaedchenSozial.jpg"
"D:\Lab\QuickBasic64\Grafik\Bilder\MaedchenSozial.jpg"

That's working:
"D:\Lab\QuickBasic64\Grafik\MaedchenSozial.jpg"
The full path and it have to in the same directory.

Code: QB64: [Select]
  1. 'Uebungen mit Fenstern, Farben und Bildern
  2.  
  4.  
  5. DIM NeuesFenster AS LONG, Bild AS LONG
  7.  
  8. NeuesFenster = _NEWIMAGE(1024, 768, 32)
  9. SCREEN NeuesFenster
  10.  
  11. 'Vordergrund- und Hintergrundfarbe
  12. COLOR _RGB32(255, 0, 0), _RGB32(255)
  13. LOCATE (CSRLIN + 2), POS(0)
  14. PRINT "Hallo, QuickBasic 64!"
  16.  
  17.  
  18. 'Bild laden
  19. Bild = _LOADIMAGE("D:\Lab\QuickBasic64\Grafik\MaedchenSozial.jpg", 32)
  20. 'SCREEN Bild - Spalte, Zeile
  21. _PUTIMAGE (260, 120), Bild
  22.  
  23. 'Neue Farbe setzen
  24. COLOR _RGB32(255, 165, 0), _RGB32(0, 0, 0)
  25. '_PALETTECOLOR 7, &HFFDAA520
  26.  
  27. 'Mit Schriften arbeiten + positionieren
  28. Text = "Em todas as religioes ha amor, mas o amor nao tem religiao."
  29.  
  30. _FONT _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "Monospace")
  31.  
  32. 'Zeile, Spalte (Row, Column)
  33. _PRINTSTRING (140, 560), Text
  34.  
  35. 'Farbe und Schrift zuruecksetzen
  36. COLOR _RGB32(255), _RGB32(0, 0, 0)
  38.  
  40.  

Title: Re: Load images
Post by: SMcNeill on October 30, 2020, 09:40:41 am
The path doesn't have to be the full path to the file, but it does need to be relative to where the EXE is located at.

For example, it seems that you have QB64 installed in: D:\Lab\QuickBasic64\"

If you want to put an image in "D:\Lab\QuickBasic64\Grafik\Bilder\MaedchenSozial.jpg", then you can either use the whole path, or the path relative to the QB64 folder (see note below).

So _LOADIMAGE("D:\Lab\QuickBasic64\Grafik\Bilder\MaedchenSozial.jpg",32) should work.

_LOADIMAGE(".\Grafik\Bilder\MaedchenSozial.jpg") should also work, as the base directory would be D:\Lab\QuickBasic64\, which would be the starting point for pathing to the file.


NOTE:  This is assuming that the EXE you create with QB64 is located inside your QB64 root directory.  If you have the "Save EXE with source" option checked, and the BAS file you're compiling is in a subfolder somewhere, then the EXE will be created in that subfolder, changing the starting point of file paths to that directory instead. 
Title: Re: Load images
Post by: Kernelpanic on October 30, 2020, 01:26:16 pm
Now I understand. QB64 is installed in "D: \ Programme \ qb64", and there are the EXE-files. "D: \ Lab \ QuickBasic 64 \ ..." is the working directory. Now are the EXE-files in the same directory like the source files. Learning by doing. ;-)

Title: Re: Load images
Post by: bplus on October 30, 2020, 03:58:14 pm
Quote
Now are the EXE-files in the same directory like the source files.

There is an Option under the Run Menu in the IDE, put a bullet next to:
"Output EXE to Source Folder"

otherwise EXE's will be in QB64.exe Folder (same as untitled, unsaved Runs). Where the EXE's are is the base folder or path where files are sought. Paths should be relative to the EXE folder unless fully pathed.
Title: Re: Load images
Post by: Kernelpanic on October 30, 2020, 04:59:13 pm
Yes, I hadn't noticed / didn't notice that yet. Now I know it and I have see it. Thanks for yours hints.

This works.
Code: QB64: [Select]
  1. 'Speicherort EXE- und Programmdateien - 30.10.2020
  2.  
  4.  
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6.  
  7. DIM Bild AS LONG, myFont AS LONG
  8. DIM Text AS STRING, Text2 AS STRING
  9.  
  11. 'Neue Farbe setzen
  12. COLOR _RGB32(255, 165, 0), _RGB32(0, 0, 0)
  13.  
  14. Bild = _LOADIMAGE("Bilder\Marilyn-1956.jpg") 'see note below examples to get the image
  15. _PUTIMAGE (140, 15), Bild 'places image at upper left corner of window w/o stretching it
  16.  
  17. Text = "A wise girl kisses but doesn't love, listens but doesn't believe,"
  18. Text2 = " and leaves before she is left."
  19. myFont = _LOADFONT("C:\Windows\Fonts\Dauphinn.ttf", 25, "")
  20. _FONT myFont
  21.  
  22. 'Zeile, Spalte (Row, Column)
  23. _PRINTSTRING (135, 510), Text
  24. _PRINTSTRING (256, 537), Text2
  25.  
  26. 'Farbe und Schrift zuruecksetzen
  27. COLOR _RGB32(255), _RGB32(0, 0, 0)
  29. _FREEFONT myFont
  30.  
  31.  

;-)
Title: Re: Load images
Post by: Kernelpanic on October 30, 2020, 07:54:32 pm
For a better understanding: This is my file system:

Text Only | Text with Attachments