Here are a couple of Cairo fonts. #include once "cairo/cairo.bi" const W as integer = 1024 const H as integer = 768 screenres W, H, 32 dim as any ptr image = imagecreate(W, H) dim as any ptr pixels imageinfo(image, W, H,,, pixels) dim as long stride = cairo_format_stride_for_width(CAIRO_FO...

I updated the magic eight-ball shaking version. Now you can use the mouse; it has a shake button.

Maybe you could try to make something like this?
Colored extended spiral of Theodorus with 110 triangles.
https://en.wikipedia.org/wiki/Spiral_of ... tended.svg

Here's a tornado illusion spinning effect. I came up with this while experimenting with the circle function. Maybe someone could make improvements to how it looks and to its random behavior. ' tornado simulation demo by neil ScreenRes 1024, 768, 32 Dim As Integer i = 0, x = 500, y = 380, n = 0 Sub d...

Here's a working magic eight ball shaking version. ' magic eight ball shaking version ScreenRes 800, 600, 32 Dim As Integer mx, my, lb Dim As Ulong i, j, r, x, y, Red, Green, Blue, distance Dim As Ubyte rndanswer Dim As string key function map(a as double,b as double,x as double,c as double,d as dou...

Here's another way to get the shaking effect using random ' shaking ball demo Dim As Integer i, x, y, distance Screenres 800,600,32 Randomize distance = 8 ' how far the ball moves for i = 1 to 500 ScreenLock Cls x = Int(Rnd * distance) + 400 y = Int(Rnd * distance) + 300 Circle (x, y), 100, rgb(0, 2...

Here's another idea I have for a shake version. This is not a complete working program; it's only an idea of how to make the ball shake and then give an answer. ' magic eight ball shake idea Screenres 800,600,32 Dim As Integer x, y, i, n x = 400: y = 300 Color rgb(0, 0, 0),rgb(255,255,255) Cls for i...

Here's my version of a magic eight ball. Ask a yes-or-no question out loud. Then press the space bar for an answer. ' FreeBasic Magic 8 Ball program SCREENRES 800, 600, 32 CONST PI = 3.14159265359 CONST RADIUS = 200 CONST SPEED = 0.05 DIM SHARED AS INTEGER centerX, centerY DIM SHARED AS DOUBLE angle...

@fxm I was only using the circle function to make a sprite. I am trying to learn how to use Put correctly, so later I can use bit-mapped graphics and erase them without using CLS. After I changed the screen color to white, I discovered I had to use Pset with DrawBall also. Without using Pset with Dr...

@fxm
I updated my code with comments. I also added.

put(x, y),DrawBall, Pset

Would it be better not to use Pset with DrawBall?

Maybe it runs faster without using it on DrawBall.

I'm attempting to erase a sprite without utilizing the CLS feature. Even though I'm not using RGBA; I'm using RGB. I have to erase the ball sprite using Alpha. In my opinion, while utilizing RGB, I shouldn't have to use Alpha in my code. Could someone please check my code to see if there are any mis...

Nice catch and throw, UEZ. I gave the ball a 3D look and put it in a sprite. ' elastic bouncing ball sprite version by neil Const w = 1080 Const h = 720 Screenres w, h, 32 Dim As Any Ptr DrawBall = ImageCreate(75, 75, RGB(0, 0, 0)) Dim As Any Ptr EraseBall = ImageCreate(75, 75, RGB(0, 0, 0)) Dim As ...

I updated the elastic bouncing ball. I added mass and slowed down the speed.

Here's an elastic bouncing ball simulation. It has settings for mass, velocities, elasticity, friction, and gravity.  ' elastic bouncing ball by neil Const w = 1080 Const h = 720 Screenres w, h, 32 Dim As Single x, y, vx, vy, radius, mass, gravity, elasticity, friction x = 20 y = 20 vx = 6 'velocity...

Double pendulum chaotic motion. This double pendulum was quite tricky to get working in Freebasic. https://en.wikipedia.org/wiki/Double_pendulum ' double pendulum chaotic motion by neil const AS Integer W = 660 const AS Integer H = 660 const As Double pi = 3.14159265 screenres W, H, 32 dim as double...