My rule of thumb: make every integer long, including ulong for uinteger.(colours) For things like: screeninfo x,y, where you will get a compiler error if you use long, or screencontrol 100,x,y in 64 bits, so you are forced to use integer here. Saying all that, integer tends to be faster than long in...

Maybe just a simple linear mapping from one area to another? Basiccoder2 - you have done this stuff in the past. Nice one paul doe. dim shared as integer xres,yres Dim as string zz = _ "S4C4294904064BM104,601M+111,-137M+51,-39M+142,-21M+73,60M+63,47"_ &"M+67,18M+71,-12M+58,-43M+88...

By multidimensional you mean 3D? I cannot visualize 4D space. 3D is only different in that to view the points properly the array should be sorted in the z direction (into the screen). And the visual size should be mapped closest big, furthest small. Also a perspective should be applied. The function...

if you use a for loop then the end position cannot change for n as long=1 to 7 ... ... next n Whatever you do inside the loop won't change the 7. You have to loop and redim preserve in another way. Example Type timage As Any Ptr i As Long x,y Declare Constructor End Type Constructor timage Static As...

You can use the unicode version for ansi text also. #include "windows.bi" #include "crt.bi" Function get_clipboard() As wString ptr dim as wstring * 10 e="ERROR" If IsClipboardFormatAvailable(CF_UNICODETEXT) = 0 Then Return @e If OpenClipboard(0) = 0 Then Return @e Func...

Now I have bits and bytes unmasked, and an 8 bit number can be a ubyte or byte, then in case of a byte with negative value the mask keeps all things positive, and it is in agreement with the union method by paul doe written for byte. union Nibbles as byte value type lo : 4 as byte hi : 4 as byte end...

The code was for text (ansi) - jj2007 For unicode this is better. #include "windows.bi" #include "crt.bi" Function get_clipboardW() As wString ptr dim as wstring * 10 e="ERROR" If IsClipboardFormatAvailable(CF_UNICODETEXT) = 0 Then Return @e If OpenClipboard(0) = 0 Then...

Windows.bi is fine without crt.bi to get memcpy, thanks for that.
Good luck with your project.

Hi TT This one is better for Win 10. I think the last code was for XP, it was a while back. #include "windows.bi" #include "crt.bi" Function get_clipboard() As String If IsClipboardFormatAvailable(CF_TEXT) = 0 Then Return "Error" If OpenClipboard(0) = 0 Then Return &quo...

That was my take on Squares PRNG, but worry not, I shall avoid your future endeavours in any subject, like the plague and pestilence which is going around.
Farewell and adieu.

If it is just nearest neighbours to a chosen point in a 2D space array, then it is not difficult. type pt as single x,y end type sub GetClosest(a() as pt,ans() as pt,v as long,num as long) #define incircle(cx,cy,radius,x,y) (cx-x)*(cx-x) +(cy-y)*(cy-y)<= radius*radius dim as single r=.5,ctr do r+=.5...

Yea, I know fxm in general this is true.
Thank you.

I had a try at this deltarho. It wasn't easy getting the two code groups (engine) and array. I had to find each and combine them into a .bi file. (This is just as an outsider, not tied up with paul doe or jeff marshall or yourself in this thread). I have a 4245 line .bi file. Naturally I have to tes...

jj2007 The macros are tidier IMO #define loNibble(x) (x And 15) #define hiNibble(x) ((x And 240) shr 4) #define mk(a,b) a or b shl 4 dim as ubyte b,nh,nl do b=rnd*255 print "Hex number = "; hex(b),,"(number =";b;")" nh=hinibble(b) nl=lonibble(b) print "High ";...

It was the 4 bits that confused me, one byte is the smallest at 8 bits. This is maybe better down that far. #define mk(a,b) a or b shl 8 dim as byte a,b do a=rnd*128 b=rnd*128 var m=mk(a,b) print hex(m) print hex(lobyte(m)),hex(hibyte(m)) print print "Press any key or <escape> to finish" s...