and another one for your toolbox...

[OldMoses]

Rotozoom is definitely one for the toolbox, it's worked flawlessly in everything I've used it in.

[STxAxTIC]

Thanks for your input Moses - *this* is why code needs to cook out in Programs for a while before being ordained.

[bplus]

Yes to cooking! But I know OldMoses is referring to RotoZoom2. 3 has a slight change using the Rotation Units of Radians instead of Degrees.

I just cooked up a little show in the demo to show RotoZoom3 in action loop, see Best Answer. I also wanted to show how _WIDTH(imageHandle&) and _HEIGHT(imageHandle&) can be used with the x and y Scale parameters.

[bplus]

OK I posted RotoZoom3.

Funny story, I was looking all through samples for it after STxAxTIC assimilated the Toolbox into the Child-boards of Samples. Where is it? Oh, you haven't posted it yet, you ninny!

So I guess it's time to post it.
https://www.qb64.org/forum/index.php?topic=2313.msg115354#msg115354

[bplus]

Thanks to Petr who helped Craz1000 and probably Steve who set Petr up with MEM stuff?

This looks useful and in my opinion didn't need fixing, you just have to keep track of all the new images you are making with _COPYIMAGE. Maybe I am missing something?

Anyway the latest addition to my Toolbox, swapColor Function with demo:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32) ' b+ tested 2020-04-09
2. t& = _LOADIMAGE("Templar thru 3d.png")
3.  
4. _PUTIMAGE , t& 'check our current image , OK
5. _TITLE "SwapColor test"
6. sColor~& = POINT(400, 300)
7. g = 10
8. WHILE 1
9.     PRINT "Press any to swap color..."
10.     SLEEP
11.     newT& = swapColor&(t&, sColor~&, _RGB32(0, g, 0))
12.     CLS
13.     _PUTIMAGE , newT&
14.     _FREEIMAGE newT&
15.     g = g + 10
16.     IF g > 255 THEN g = 10
17. WEND
18.  
19. ' create new Image Handle for an image copy with a color changed from original image, returns new Handle&
20. 'https://www.qb64.org/forum/index.php?topic=2451.0
21. ' from Petr to Craz1000
22. FUNCTION swapColor& (oldHandle&, oldcolor~&, newcolor~&)
23.     DIM m AS _MEM, c AS _UNSIGNED LONG
24.     swapColor& = _COPYIMAGE(oldHandle&, 32)
25.     m = _MEMIMAGE(swapColor)
26.     DO UNTIL a& = m.SIZE - 4
27.         a& = a& + 4
28.         c~& = _MEMGET(m, m.OFFSET + a&, _UNSIGNED LONG)
29.         IF c~& = oldcolor~& THEN _MEMPUT m, m.OFFSET + a&, newcolor~&
30.     LOOP
31.     _MEMFREE m
32. END FUNCTION
33.  
34.  

Image for demo:

[bplus]

loadSort improved again! 4th time now.

https://www.qb64.org/forum/index.php?topic=1511.msg110459#msg110459

[bplus]

String Math$ Check it out here:
https://www.qb64.org/forum/index.php?topic=2921.msg121886#msg121886

[bplus]

GetLists for Files and Directory's something Steve has worked up and we've debugged, still may have more to go? Works for Windows and Linux (Linux recently confirmed finally).

Code: QB64: [Select]

1. ' 2019-08-22 orig post at https://www.qb64.org/forum/index.php?topic=1646.msg108682#msg108682
2.  
3. ' direntry.h needs to be in QB64 folder
4. DECLARE CUSTOMTYPE LIBRARY ".\direntry"
5.     FUNCTION load_dir& (s AS STRING)
6.     FUNCTION has_next_entry& ()
7.     SUB close_dir ()
8.     SUB get_next_entry (s AS STRING, flags AS LONG, file_size AS LONG)
9. END DECLARE
10. REDIM SHARED DIRs(0) AS STRING, FILs(0) AS STRING
11.  
12. GetLists ".", DIRs(), FILs()
13. FOR i = LBOUND(fils) TO UBOUND(fils)
14.     PRINT i, FILs(i)
15.     IF i MOD 20 = 19 THEN PRINT "Press any to cont..": SLEEP
16. NEXT
17. PRINT "Press any to cont.. next Folder up": SLEEP
18. CHDIR ".."
19. GetLists ".", DIRs(), FILs()
20. FOR i = LBOUND(fils) TO UBOUND(fils)
21.     PRINT i, FILs(i)
22.     IF i MOD 20 = 19 THEN PRINT "Press any to cont..": SLEEP
23. NEXT
24.  
25.  
26. SUB GetLists (SearchDirectory AS STRING, DirList() AS STRING, FileList() AS STRING)
27.  
28.     CONST IS_DIR = 1
29.     CONST IS_FILE = 2
30.     DIM flags AS LONG, file_size AS LONG, DirCount AS INTEGER, FileCount AS INTEGER, length AS LONG
31.     DIM nam$
32.     REDIM _PRESERVE DirList(100), FileList(100)
33.     DirCount = 0: FileCount = 0
34.  
35.     IF load_dir(SearchDirectory + CHR$(0)) THEN
36.         DO
37.             length = has_next_entry
38.             IF length > -1 THEN
39.                 nam$ = SPACE$(length)
40.                 get_next_entry nam$, flags, file_size
41.                 IF (flags AND IS_DIR) THEN
42.                     DirCount = DirCount + 1
43.                     IF DirCount > UBOUND(DirList) THEN REDIM _PRESERVE DirList(UBOUND(DirList) + 100)
44.                     DirList(DirCount) = nam$
45.                 ELSEIF (flags AND IS_FILE) THEN
46.                     FileCount = FileCount + 1
47.                     IF FileCount > UBOUND(filelist) THEN REDIM _PRESERVE FileList(UBOUND(filelist) + 100)
48.                     FileList(FileCount) = nam$
49.                 END IF
50.             END IF
51.         LOOP UNTIL length = -1
52.         'close_dir 'move to after end if  might correct the multi calls problem
53.     ELSE
54.     END IF
55.     close_dir 'this  might correct the multi calls problem
56.  
57.     REDIM _PRESERVE DirList(DirCount)
58.     REDIM _PRESERVE FileList(FileCount)
59. END SUB
60.  
61.  
62.  

[FilipeEstima]

Very interesting, I never knew this _PRESERVE was available. If I only knew it before... Every time I need to DIM an array that may have a different number of files, I have to SHELL _HIDE a DIR command, read the output file and count the number of lines, for only then make a DIM. With REDIM _PRESERVE it's so much more practical.

[bplus]

Very interesting, I never knew this _PRESERVE was available. If I only knew it before... Every time I need to DIM an array that may have a different number of files, I have to SHELL _HIDE a DIR command, read the output file and count the number of lines, for only then make a DIM. With REDIM _PRESERVE it's so much more practical.

yes, _PRESERVE is nice option but remember to start the array with REDIM not DIM or use DYNAMIC keyword somewhere in beginning which I don't do. STATIC is default.

[bplus]

Ordered Listings of Combinations and Permutations

You may not need it today or tomorrow but someday you might wish you had a listing of combinations you can make with n things:
https://www.qb64.org/forum/index.php?topic=2999.msg122579#msg122579

It is easy to code any word into a letter and then decode letter back as an element of  combination.

In the same vein, here is a copy of way to get listings of permutations:
https://www.qb64.org/forum/index.php?topic=2961.msg122575#msg122575

Thanks to Danilin for getting me to share these goodies with you. :)

[bplus]

Thanks to Steve McNeil for this gem!

Exponential Notation Remover

I don't know how many hours wasted dealing with exponential notation popping up and ruining my display of numbers:
https://www.qb64.org/forum/index.php?topic=2985.msg122404#msg122404

The final return format I settled on is here N2S$ but you might like Steve's in reply above (just don't use his "fix" there because he had it right from the start):
https://www.qb64.org/forum/index.php?topic=2985.msg122585#msg122585

Another lesson from there: be careful which Type variable you use for exponents! you might get unexpected results using default SINGLE type.

[bplus]

In response to CoderVSB12 nascent conception of New Game, I spontaneously came up with this:

Turning a Loaded Image Into a Sprite When _CLEARCOLOR Is Not Enough
by removing dark background; can be done just as easy with light background.

https://www.qb64.org/forum/index.php?topic=3007.msg122645#msg122645

and better 3D effect with same image:
https://www.qb64.org/forum/index.php?topic=3009.msg122648#msg122648


Removing light background for dark object in foreground, this case a shark fin:
https://www.qb64.org/forum/index.php?topic=3307.msg125977#msg125977

[SMcNeill]

A little function which probably doesn't need a whole topic, but which might be useful for someone's tool box -- GetKeyName:

Code: QB64: [Select]

1. DO
2.     k = _KEYHIT
3.     IF k > 0 THEN PRINT GetKeyName(k)
4.     _LIMIT 30
5. LOOP
6.  
7. FUNCTION GetKeyName$ (code)
8.     SELECT CASE code
9.         CASE 8: GetKeyName$ = "BACK SPACE"
10.         CASE 9: GetKeyName$ = "TAB"
11.         CASE 13: GetKeyName$ = "ENTER"
12.         CASE 27: GetKeyName$ = "ESC"
13.         CASE 32: GetKeyName$ = "SPACE"
14.         CASE 33 TO 255: GetKeyName$ = CHR$(code)
15.         CASE 15104: GetKeyName$ = "F1"
16.         CASE 15360: GetKeyName$ = "F2"
17.         CASE 15616: GetKeyName$ = "F3"
18.         CASE 15872: GetKeyName$ = "F4"
19.         CASE 16128: GetKeyName$ = "F5"
20.         CASE 16384: GetKeyName$ = "F6"
21.         CASE 16640: GetKeyName$ = "F7"
22.         CASE 16896: GetKeyName$ = "F8"
23.         CASE 17152: GetKeyName$ = "F9"
24.         CASE 17408: GetKeyName$ = "F10"
25.         CASE 34048: GetKeyName$ = "F11"
26.         CASE 34304: GetKeyName$ = "F12"
27.         CASE 18432: GetKeyName$ = "UP ARROW"
28.         CASE 19200: GetKeyName$ = "LEFT ARROW"
29.         CASE 19712: GetKeyName$ = "RIGHT ARROW"
30.         CASE 20480: GetKeyName$ = "DOWN ARROW"
31.  
32.         CASE 18176: GetKeyName$ = "HOME"
33.         CASE 18688: GetKeyName$ = "PG UP"
34.         CASE 20224: GetKeyName$ = "END"
35.         CASE 20736: GetKeyName$ = "PG DOWN"
36.         CASE 20992: GetKeyName$ = "INS"
37.         CASE 21248: GetKeyName$ = "DEL"
38.  
39.         CASE 100019: GetKeyName$ = "PAUSE"
40.         CASE 100300: GetKeyName$ = "NUM LOCK"
41.         CASE 100301: GetKeyName$ = "CAPS LOCK"
42.         CASE 100302: GetKeyName$ = "SCROLL LOCK"
43.         CASE 100303: GetKeyName$ = "R SHIFT"
44.         CASE 100304: GetKeyName$ = "L SHIFT"
45.         CASE 100305: GetKeyName$ = "R CTRL"
46.         CASE 100306: GetKeyName$ = "L CTRL"
47.         CASE 100307: GetKeyName$ = "R ALT"
48.         CASE 100308: GetKeyName$ = "L ALT"
49.         CASE 100309: GetKeyName$ = "L APPLE"
50.         CASE 100310: GetKeyName$ = "R APPLE"
51.         CASE 100311: GetKeyName$ = "R WIN"
52.         CASE 100312: GetKeyName$ = "L WIN"
53.         CASE 100316: GetKeyName$ = "SYSTEM"
54.         CASE 100319: GetKeyName$ = "MENU"
55.     END SELECT
56. END FUNCTION
57.  

Send it a code, get a name of what key it represents.  Good for formatting and display purposes, if you ever need to allow the user to choose their own keys for whatever reason. 

For example: 

Press <ANY KEY> to Jump:

(user presses a key)

Jump key is now: 100319

Now that doesn't make any dang sense to an user!  But, with the above, you get, instead:

Press <ANY KEY> to Jump:

(user presses a key)

Jump key is now: MENU


Oooooohhhhh!  The MENU keys makes my little dude jump now!  YAAAYYY!  That makes sense!  :D

[bplus]

@SMcNeill

What is the Menu or Jump Key?

Is it MS Windows Logo pictured key?

Update: Nope, it's not the airplane either dang it! Lost my Internet connection :P Ha! There are keys I never mess with on my keyboard ;-))