sprite editor

[bplus]

Thanks Petr, Fellippe and Steve!

Johnno needs to update image as drawn, already tested Petr's save, worked great!

[bplus]

and thanks to Galleon!

[johnno56]

Sorry. Cannot use 'saveimage'. All files placed with my program's directory. Placed the appropriate 'include' lines at the top and bottom. Before I can even execute the editor I get the error message, "DYNAMIC LIBRARY not found in line 2 of /home/john/Desktop/spriteditor/SaveImage.BI included on line 1"
The dll reffered to is 'zlib1'

I'm going to go out on a limb here and suggest that the saveimage library is for Windows only.... Just a guess.

J

[FellippeHeitor]

It does use the dll that Steve provides in the package so yes, it's Windows only (and I failed to remember you're a Linux user, sorry about that).

If anyone using Windows would like to try the library, just make sure to fix SaveImage.BI file to make the declare library line reference the .dll file using a relative path by adding ".\" to the file name:

Code: QB64: [Select]

1. DECLARE DYNAMIC LIBRARY ".\zlib1"

[johnno56]

What I need to know is, Does QB64 have the ability to pop up the OS's Save or Load GUI so as to either display all the previous files or give you the choice to enter a new filename. eg: Using MSPaint: If you select "File", from the top menu bar, a GUI panel pops up so that you can either 'Load' or 'Save' a file... That sort of thing...

Using variations of "get" and "put" still requires the user to "remember" the name of the file to load (or do a previous search for the filename)

This is exactly the same problem I had when I first started this editor using sdlbasic back in 2014. The upside is that I have learned some stuff about QB64 that I didn't know before... Cool.

Now. How about a nice game of Pong.... lol

[FellippeHeitor]

If you were using Windows, you could just call the API and have the default dialogs show. For Linux, no easy deal.

[Petr]

Hi Johnno56, it can be programmed. I would do this by creating a text file into which the program would store the last open file (a list of the last 20 open files and a path, that's not a problem), - if you mean doing this into a sprite editor. I can write it to you if you want to. I mean something similar to the IDE menu: File / Recent. It will only read a text file, and after the confirmation, the link you are pointing to will open.  In addition, I add a small sample of the sprite editor who does not do anything. :-D Use the arrows and the mouse wheel. This is the basis, tomorrow, if have time, if you want, I can add this Recent menu. Perhaps on the top edge, after mouse move to this area, what do you say?
Unfortunately, I can not help you with program for selecting files on a Linux disk if you mean this and you want to move around on the disk to select the file for editing. I have none knowledge in this - in Linux.

Code: QB64: [Select]

1. 'sprite editor - base:
2. SCREEN _NEWIMAGE(800, 600, 32)
3. 'first i load a picture and show it in grid:
4. REDIM D(0, 0) AS _UNSIGNED LONG
5. i& = _LOADIMAGE("bart.jpg", 32) '200 x 200 px image
6.  
7. grid = 5: W = _WIDTH(i&): H = _HEIGHT(i&)
8. PutToArray D(), i&: _FREEIMAGE i&
9.  
10. DO
11.     WHILE _MOUSEINPUT
12.         IF _MOUSEWHEEL THEN grid = grid + _MOUSEWHEEL: LINE (10, 10)-(500 + grid, 500 + grid), _RGB32(0, 0, 0), BF
13.     WEND
14.     IF grid > 25 THEN grid = 25
15.     IF grid < 3 THEN grid = 3
16.     CreateGrid D(), 10, 10, 500, 500, grid, a, b
17.  
18.     'keyboard for grid move (arrows)
19.     SELECT CASE _KEYHIT
20.         CASE 19200: a = a - 1 'left arrow
21.         CASE 19712: a = a + 1 'right arrow
22.         CASE 18432: b = b - 1 ' up arrow
23.         CASE 20480: b = b + 1 'down arrow
24.     END SELECT
25.     IF a < 0 THEN a = 0
26.     IF b < 0 THEN b = 0
27.     cellsX = (500 - 10) / grid
28.     cellsY = (500 - 10) / grid 'so is writed call for CreateGrid, for X is 1st and 3th parameter, for Y is 2nd and 4th parameter
29.     IF a > W - cellsX - 1 THEN a = W - cellsX - 1
30.     IF b > H - cellsY - 1 THEN b = H - cellsY - 1
31.     _DISPLAY
32. LOOP
33.  
34.  
35.  
36.  
37.  
38. SUB CreateGrid (D( x , y) AS LONG, PosXStart, PosYStart, PosXend, PosYend, ElementSize, a, b)
39.  
40.     xx = a: yy = b 'draw start array values
41.  
42.  
43.     FOR Y = PosYStart TO PosYend STEP ElementSize
44.         FOR X = PosXStart TO PosXend STEP ElementSize
45.             IF xx > UBOUND(D, 1) OR yy > UBOUND(d, 2) OR xx < LBOUND(d, 1) OR yy < LBOUND(d, 2) THEN EXIT SUB
46.             clr& = D(xx, yy)
47.             LINE (X, Y)-(X + ElementSize - 1, Y + ElementSize - 1), clr&, BF
48.             LINE (X, Y)-(X + ElementSize - 1, Y + ElementSize - 1), _RGB32(0, 0, 255), B
49.             xx = xx + 1
50.         NEXT X
51.         yy = yy + 1
52.         xx = a
53.     NEXT Y
54. END SUB
55.  
56.  
57. SUB PutToArray (arr() AS LONG, image&)
58.     W = _WIDTH(image&)
59.     H = _HEIGHT(image&)
60.     DIM m AS _MEM
61.     m = _MEMIMAGE(image&)
62.     REDIM arr(W, H) AS LONG
63.     FOR y& = 0 TO W - 1
64.         FOR h& = 0 TO H - 1
65.             _MEMGET m, m.OFFSET + 4 * ((W * y&) + h&), arr(x, y)
66.             PSET (x + 550, y + 50), arr(x, y)
67.             x = x + 1
68.         NEXT h&
69.         y = y + 1: x = 0
70.     NEXT y&
71.     _MEMFREE m
72. END SUB
73.  

[johnno56]

Fellippe,

I'm running with Linux... Even though I am using the Linux version of QB64, it usually always boils down to, 'It's a Linux/Windows thing'... Maybe, if I leave the editor 'on the shelf' for another 4 years, I may try again... lol

I need coffee...

Petr,

Thank you for the code sample and your advice... I am not using Windows...
This is the part were I duplicate the message to Fellippe... lol

I still need coffee...

J

[bplus]

For SaveImage I think Galleon's version should work, that Petr gave us.

As for getting files from current folder from which to select and load, also should be able to do in Linux.
But it would be easier if can clear screen to display list of files from which to pick and then be able to redisplay editor.

[Petr]

Johnno56 - is there a command in Linux for list a disk into a text file, like in DOS DIR *. * > file.txt? If so, a primitive way to crawl the disk would go write. It should be the ls -l -R command but how to redirect it to a text file under linux, I do not know.

[Petr]

As for getting files from current folder from which to select and load, also should be able to do in Linux.
But it would be easier if can clear screen to display list of files from which to pick and then be able to redisplay editor.

This is exactly what I'm going to write if we find out how to list the contents of a linux disk into a text file. I've already done it under windows, so when we get a text file  under linux, that's just the different SHELL command.

[Petr]

Johnno56, try what do this: cat >files.txt  if it create files.txt file contains disk files list.

[johnno56]

Petr,

ls *.bas > files.txt works just fine and the list is sorted...

J

[SMcNeill]

It does use the dll that Steve provides in the package so yes, it's Windows only (and I failed to remember you're a Linux user, sorry about that).

If anyone using Windows would like to try the library, just make sure to fix SaveImage.BI file to make the declare library line reference the .dll file using a relative path by adding ".\" to the file name:

Code: QB64: [Select]

1. DECLARE DYNAMIC LIBRARY ".\zlib1"

I'm thinking the library should still work for Linux users, as long as you point it to where zlib puts itself on your machine.

go to
System->Administration->Synaptic Package Manager
search for zlib1g-dev and install the package.

Of course, it's not going to find a *.dll file, but there should be a Linux equivelant to work off of.  QB64 SDL used to require ZLIB, and it worked on Linux, so somebody out there should be able to patch it all together to work.  (At least, I'd hope so.).

[johnno56]

zlib1g-dev is already installed... Thanks for trying, Steve. Much appreciated.

J