Nice fonts Badidea. Many years ago I painfully made up the keyboard characters ,British, including chr(163) the £ sign. I don't know how £ will show over there!. Namespace show Sub rotate(Byval pivot_x As Double,_ 'turns about this point Byval pivot_y As Double,_ Byval first_x As Double,_ 'centre fo...

Waterfall effect slower. #cmdline "-gen gcc -O 2" Dim Shared As Long Xres,Yres Screenres 1024,850,32,,64 Screeninfo (Xres),(Yres) Type pt As Long x,y As Ulong col As Long jmp End Type 'get a point (Length pixels) along a line between fp and p Function shortline(fp As pt,p As pt,length As I...

Nice neil. Good to see these little graphicals in fb again. Pure rain Sub Rain(z As Any Ptr,xres As Long,yres As Long) Const max=1000 Static As Single xx(max),yy(max) For i As Long = 0 To max xx(i) = Rnd*xres yy(i) = Rnd*yres Put(xx(i),yy(i)),z,Alpha,Rnd*200 Next End Sub Screen 20,32 Color ,Rgb(200,...

You can say similar about fb any ptr, as in say win32 api where any ptr hwnd= CreateWindowEx(. . ....) It can hold (point to) a lot of information. Simple example type cairo_font_options_t as _cairo_font_options type Cairo_structure as string * 10 s="hi" as double d=5.5 as long l=1024 end ...

Thanks Roland, I Ican add it in. #include "cairo/cairo.bi" #define _rd_ Cast(Ubyte Ptr,@colour)[2]/255 #define _gr_ Cast(Ubyte Ptr,@colour)[1]/255 #define _bl_ Cast(Ubyte Ptr,@colour)[0]/255 #define _al_ Cast(Ubyte Ptr,@colour)[3]/255 Namespace chrs Dim As cairo_font_extents_t _fonts Dim A...

A little macro to fill an array without too much typing: #macro fill(a,r,datatype,d...) Redim a(r) Scope Dim As datatype x(r)=d For n As Long=0 To Ubound(a) a(n)=x(n) Next End Scope #endmacro Dim Shared As String f() fill(f,2,String,{"apple", "orange", "banana"}) Dim Sh...

Here is how I do fonts in Cairo, I have found no problems with the method. (Tested 64 bits) Win 11. #cmdline "-s gui" #include "fbgfx.bi" #include once "cairo/cairo.bi" #define _rd_ Cast(Ubyte Ptr,@colour)[2]/255 #define _gr_ Cast(Ubyte Ptr,@colour)[1]/255 #define _bl_ ...

Hi UEZ/Roland. I'm hardly ever on the pascal forum these days, but I have the 3.2.2 compiler here. A strange thing happened here on win 11. I was messing about with UEZ's code , trying to get an opengl screen ensconced in a win32 api using a winproc function. At some stage during my tribulations I h...

Thanks for the link fxm.

I tried to force a const chr(0). Results: '#include "crt.bi" const C=!"\0" #print typeof(C) Sub memcopy(dest As Any Ptr,src As Any Ptr,count As Long) Dim As Ubyte Ptr newdst=dest Dim As Ubyte Ptr newsrc=src While count count-=1 *newdst=*newsrc newdst+=1 newsrc+=1 Wend End Sub pri...

The best time to stop smoking is April fool's day, 1 April. I stopped 1 April 10 years ago because as you get older stopping is a life requirement. I know others who have stopped on that day. You very rarely see old people still smoking, a few yes, but these are exceptionally tough people. You will ...

That is when you use the option -pp to isolate an error. simple example: fillmatrix.bas '#cmdline "-pp" Type Matrix Dim As Double m( Any , Any ) Declare Constructor ( ) Declare Constructor ( Byval x As Uinteger , Byval y As Uinteger ) Declare Operator Cast() As String End Type Constructor ...

The opengl screens are kind of bare bones, they can handle some win32 components. I have not tried scrolling though, maybe sometime. Here are a few: buttons, themes, disable fullscreen, tooltips, fonts. #include "windows.bi" #Include once "/win/commctrl.bi" #include "GL/gl.b...

Thank you all for looking into this byval.
Yes srvaldez, static in the sub would have been the proper way.
The last thing I would have thought of was passing a value byval to a procedure, I came across it by accident.

You have added an extra line end (chr(10)) to the last line in the file in 64 bits. The last line looks strange in 32 bits. 'Coded by UEZ build 2024-03-19 beta #cmdline "-exx" #include "file.bi" Type tFile As WString * 4096 Name End Type Function FileReadLine(sFile As tFile, iLin...