I replaced the vector math with macros and the result are ~10 seconds :-) Joshy 'Ported from https://js1k.com/2017-magic/demo/2648 by Igor Sbitnev To FB by UEZ build 2021-01-19 ' original on old laptop ~24 seconds ' optimized ~11 seconds now :-) #Include "crt/math.bi" #Include "fbgfx....

On an old single core laptop I got 28 seconds a little bit slow so I optimized the trace() function and the pixel plotting I get 14 seconds now :-) Joshy 'Ported from https://js1k.com/2017-magic/demo/2648 by Igor Sbitnev To FB by UEZ build 2021-01-19 ' original on old laptop ~28 seconds optimized ~1...

this works here but I don't have UTF8 file names on my gernan system. use a string size of 1024 for filename or path 64 is often to small ! Joshy Dim UserPath as String = environ("USERPROFILE") & "\Desktop" Open Pipe "dir /b " & UserPath For Input encoding "...

You can read the output of a schell command with a PIPE

Joshy

@Andrew Lindsay I worked on the quadtree the last 12 hours. Looks like the new result are very stable now. I removed everything unnecessary types (tVector2i, tVector2f, tCircle, tRectangle) Most interesting for you I added functions to get the nearest node and it's distance to a point x,y inside a c...

do a circle queries (x,y,radius) #include "QuadTree.bi" dim as integer sw,sh,sb screeninfo sw,sh,sb :sw*=0.75:sh*=0.75 screenres sw,sh,sb,2',1 windowtitle "use mouse buttons [left]=add node [right]=query nodes" screenset 1,0 var frames=0,fps=60 var ox=-1,oy=-1,ob=-1 ' old mouse c...

(sorry about my bad written english but I understand and read english very well) I can try to help but I need to know your needs the file BUKP_1m_Adjacent.csv has 2D coords (perfect for a QuadTree) what is the meaning of this x,y coords and do you need to know the nearest coord if you select one of ...

Here the result of the Dependency Walker

Joshy
file: "fltk-c-1.3.3-64.dll"

VANYA wrote: ↑Sep 16, 2022 6:59Fl_GetFontSizes missing in the 64-bit version of the DLL.

I compiled and executed Fl_GetFontSizes01.exe with 64-bit compiler and OS without any problem ?

Joshy

@Vinion do you know strtok() from the FreeBASIC c runtime ? C Runtime: https://www.freebasic.net/wiki/ProPgCruntime Joshy #include "crt.bi" var s1 = "don't reinvent the wheel we have the cool C-Runtime :lol:" print s1 dim as string splits(any) var p = strtok(strptr(s1),strptr(&qu...

This thread here is primary for the OpenGL shader language on CPU with FreeBASIC! you can define iTime as IGlobalTime in the shader code :-) #define iTime iGlobalTime By the way the shadertoy OpenGL shaders thread in FreeBASIC is here: https://www.freebasic.net/forum/viewtopic.php?t=28001 Joshy ' sh...

I added a circle shape for a query range and chnaged particle to a PathNode !
you can store in the quadtree any kind of nodes but a node must have x and y position at least.

The quadtree can be found here: viewtopic.php?p=294656

Joshy

You can use a quadtree also !

The quadtree can be found here: viewtopic.php?p=294656

Joshy

Only to show you an example here are vec4 aligned 16 bytes. ..... operator vec4 . cast as _VEC4 ptr return cptr(_VEC4 ptr,cast(uinteger,@memory) and MASK) end operator ..... operator vec4 . [] (byref index as const uinteger) byref as single return cptr(single ptr,cast(uinteger,@memory) and MASK)[in...

Here are all FreeBASIC graphics commands -->: CatPgGfx Joshy ' graphic screen with 8 bit palette = 256 colors screenres 640,480,8 ' a red diagonal line line (10,10)-step(100,100),4 ' a red [B]ox line (120,10)-step(100,100),4,B ' a red [B]ox [F]illed line (240,10)-step(100,100),4,BF ' a red [B]ox [F]...