Hi Lost Zergling. (Notes/Domino technologies) I used to enjoy a game of dominoes, but the village pub has been closed for a few years now. Here is my set: Sub setdice(i() As Any Ptr,size As Long) 'create images Type v As Long x,y End Type Dim As v p(1 To 7) Redim i(0 To 6) Dim As Long sz=size,dt=sz/...

Thanks David, nice use of some Cairo instructions, I have put your code in my Cairo folder in Windows 11.

Nothing dimensioned here. Start:if screenptr=0 then screen 20:end if:Locate int(rnd*(Hiword(width)-1))+1,int(rnd*(Loword(width)-1))+1:err=1+int(rnd*255):sleep(iif(err<2,1,0)):Color 256-err,err:if (err=7 or err=10 or err=9) then goto Start else ? chr(err)::if inkey="" then goto Start

Thanks Dafhi, nice work. The Cairo built-in anti-alias versus Cairo non anti-alias: (The constants have to be created, they don't seem to be in the .bi file) '#cmdline "-gen gcc -arch native -Wc -Ofast,-mfpmath=sse,-funroll-loops" #include once "cairo/cairo.bi" #define _rd_ Cast(...

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 ...