Hello nenver and welcome to the forum! Although FB has no built-in sprites, there are tools to smoothen graphics, but you have to take care of it yourself. Have a look at these keywords: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgScreengraphics https://www.freebasic.net/wiki/wikka.php?wakka...

@dodicat: Nice work!

Nice work!

One small issue: It does not display all items in a path before all sub-paths ("files before folders"). This can easily be fixed by a slight modification of the printTree sub: Sub printTree(tp As tDirTreeNode Ptr) Print String(tp->depth, " "); "+ "; tp->fname 'print th...

@badidea: With that "double - typing" you're making it unnecessary complicated. You can simply put it all in a single type... type tree_type dim as string path dim as string item(any) dim as tree_type ptr pChild(any) declare sub addItem(objectStr as string, sepChar as string) declare sub s...

@badidea: Great work! That reminds me that I have to clean my nesting boxes (and my letter box, too, I get this little lodger since three years). http://users.freebasic-portal.de/grindstone/Screenshots/Meise3.jpg And here are my two pennies to the tree parser: #Include "dirTree.bi" Dim As ...

In the meantime I put the tTreeNode class into a library I call "dirTree.bi": #Include Once "dir.bi" Type tDirTreeNode As String fName 'name of the current subfolder As UInteger attr 'attributes As Integer depth 'tree depth of the current folder As boolean deflate = TRUE 'deflati...

Something like this ?

the dead are moving !! Maybe zombies? *grin* Tip: In FB a TYPE can contain an array of itself: type thuman dim as double x , y '' spot of thuman dim as long kl '' color state of thuman dim as integer tijd1 , tijd2 ''counter for keeping time Static As thuman human() 'humans array Declare Sub act(<op...

I recoded my snippet to really count (instead of calculate) the number of values. Const tallylen = 256^4/8 Dim As String str1, substr, dict Dim As Integer strlen, dummy, inputcount, outputcount Dim As ULong Ptr von, bis Dim As UByte Ptr dictptr, tally = Callocate(tallylen) Open ExePath + "\inpu...

Thank you for testing, due to it I found a bug in my code (and fixed it, see above). But very strange - our machines seem to behave quite different: 10000000 characters: instrtest11: 0.689609581455835 tally: 0.4877191733044564 20000000 characters: instrtest11: 1.343974237574243 tally: 0.678297967142...

And now the same with assembly code. Anyone to beat this? Const tallylen = 256^4/8 Dim As String str1, substr, dict Dim As Integer strlen, dummy Dim As ULong Ptr von, bis Dim As UByte Ptr dictptr, tally = Callocate(tallylen) strlen = 10000000 'strlen = 13*1024*1024 'strlen = 12 str1 = String(strlen,...

deltarho[1859] wrote:With that epoch my date of birth epoch time is 1512518400000. I may change the epoch to 1 January 1920 making folk think that I am younger than I really am.

And I assumed you were born in 1859... *grin*

A different approach (my thanks to dodicat for mentioning the tally string). I think this can stick with jimg's code - without assembly *grin* : Dim As String str1, substr Dim As String dict Dim As Integer strlen Dim As UByte Ptr stp Const tallylen = 256^4/8 Dim As UByte Ptr tally = Callocate(tallyl...

Very impressive! I've tried another way to do the job: Writing the 4-byte-words into a tree structure and then traverse the tree to create the dictionary string. It works nearly as fast as jimg's code, but it runs out of memory (on my 32 bit machine) if the number of different words exceeds a certai...