By the way D.J.Peters I forgot to thank you for speeding up my image rotate.
I used my old rotate here, but I may use the speeded up version in future.

Thought I would give this a try. Every impulse depends on the weight of the mouse. The resultant motion depends only on the given internal angle. Type pt As Single x,y,z End Type Operator -(p1 As pt,p2 As pt) As pt Return Type(p1.x-p2.x,p1.y-p2.y) End Operator Operator +(p1 As pt,p2 As pt) As pt Ret...

Thanks deltarho. I just wanted to keep things simple, (within about 100 lines of visible code) Anyway, using my inputbox (for adding compiler options as you have mentioned). And because fbide is unable to accept upper case compiler options. And because srvaldez has been discussing opening a window r...

For an easy theme (one liner) you can do: #Include Once "windows.bi" Declare Function SetWindowTheme Lib "UxTheme.dll" Alias "SetWindowTheme"(As Any Ptr,As zstring Ptr,As zstring Ptr) As Long Sub box(textmessage As zstring) Static As HWND MessageWindow,EditBox,save,canc...

Albert
It is quite hard to follow.
You output chrs, but you have only done
chrs = mid(chrs,2)
Everything else in the decompress seems not to alter chrs.

How does your dialog box work marpon? When I run I get a five second console with closed and wait five seconds. I used -s console Must I run the resource bit with an .ico file? srvaldez a simple console box #Include Once "windows.bi" Sub box(textmessage As zstring) Static As HWND MessageWi...

I am a bit green with dialog stuff in winapi, but rolling out a custom message box is an alternative perhaps ? #Include Once "windows.bi" #Include once "/win/commctrl.bi" ' Globals (unavoidable) Dim Shared As zString * 255 textMessage="start" Dim Shared As HWND MainWind...

In pascal you can do this for fixed length arrays, but not for dynamic arrays (which always start at element[0] thus can be regarded as pointers) So in pascal for dynamic arrays, the result is as memcpy. Also I notice in python (lists) that it seems to be a pointer copy also. a=[1,2,3] b=a b[1]=5 pr...

Kinda reminds me of the Chinese remainder. Function HCF(a As Integer, b As Integer) As Integer If b=0 Then Return a Else Return HCF(b,a Mod b) End Function Function TestPairwiseCoprime(array() As Integer) As Integer For p1 As Integer = Lbound(array) To Ubound(array) - 1 For p2 As Integer = p1 + 1 To...

Yea-well, escape sequences look good but I prefer to write out each character, although it looks messy. Look up escape in the help file. escape sequences help. _\a beep _\b backspace _\f formfeed _\l or \n newline _\r carriage return _\t tab _\unnnn unicode char in hex _\v vertical tab _\nnn ascii c...

It is returning n because the faulty macro is calculating this.

Or thereabouts.

You can list the filter. #define WIN_INCLUDEALL #Include Once "windows.bi" #Include once "/win/commctrl.bi" 'shell ("chcp 65001") 'failed attempt at getting console to print unicode names function getfiles(filetypes As String) as string Dim As zstring * 2048 SELFILE Dim...

A correct macro form is
#define join(a,b) (a) or 8192*(b)
It gives an unwanted answer, but the macro is correctly worked out for all a and b whether join(n mod 256 , n \ 8192 ) or join( v1,v2 )

Exactly Albert.
The macro should be
#define join(a,b) (a) or (8192*(b))
where the parameters are in brackets.
otherwise sending n \ 8192 to the macro means it is calculating (n mod 256) or 8192*n\8192 in the macro, instead of (n mod 256) or (8192*(n\8192))
when brackets are in place.

See screenevent in the help file. Quick example #include "fbgfx.bi" using fb dim as event e dim as long mx,my,mb,mouse,lastmb screen 19 do getmouse (mx,my,,mb) If (ScreenEvent(@e)) Then cls locate 5 if e.type=EVENT_MOUSE_BUTTON_PRESS and mb=1 then print "left pressed" if e.type=E...