Search found 59 matches

by David Watson
May 03, 2024 8:48
Forum: Sources, Examples, Tips and Tricks
Topic: Fireworks Demo
Replies: 2
Views: 298

Re: Fireworks Demo

Thanks for the thanks dodicat.

I was expecting dozens of posts by neil with improved versions... he must be busy transcending to a higher being or learning Lisp or something.
by David Watson
Apr 24, 2024 9:42
Forum: Sources, Examples, Tips and Tricks
Topic: Fireworks Demo
Replies: 2
Views: 298

Fireworks Demo

Everyone seems obsessed with Cairo at the moment so I thought I'd have a go. Sit back and enjoy the show (make your own noises). 'Program Fireworks 'Author David Watson 'Version 1.00 'Language FreeBASIC 1.10 for Linux '########################## includes and declarations ########################## #...
by David Watson
Apr 01, 2024 8:40
Forum: Sources, Examples, Tips and Tricks
Topic: Waterfall effect
Replies: 18
Views: 1560

Re: Waterfall effect

Here's a cheesy old effect from around 1980 'oldskool water effect dim as short i, s dim as short rx(199), ry(199), rs(199) randomize timer 'initial ripples for i = 0 to 199 rx(i) = int(rnd * 1024) 'x centre ry(i) = int(rnd * 768) 'y position rs(i) = int(rnd * 9) 'size next i screen 20 color 7, 1 do...
by David Watson
Jan 26, 2024 9:51
Forum: Game Dev
Topic: Gravity test program
Replies: 4
Views: 501

Re: Gravity test program

Your program looks good so far, but it would be better if you only burn fuel when thrusting.
by David Watson
Jan 21, 2024 9:42
Forum: Sources, Examples, Tips and Tricks
Topic: Fish aquarium
Replies: 18
Views: 1298

Re: Fish aquarium

Check out this aquarium:
https://itsfoss.com/asciiquarium/
by David Watson
Jan 14, 2024 9:38
Forum: Sources, Examples, Tips and Tricks
Topic: Conway's Game of Life
Replies: 4
Views: 426

Re: Conway's Game of Life

Game of Life is a classic Artificial Life program, I remember writing a version in GFA Basic for the Atari STe.
Another classic is Langton's ants: https://en.wikipedia.org/wiki/Langton%27s_ant
by David Watson
Dec 27, 2023 9:09
Forum: General
Topic: Random Bug?
Replies: 3
Views: 428

Re: Random Bug?

When you convert from a real number to an integer in FreeBasic it rounds to the nearest integer, which means it might round up or down. Use INT() to
always round down.

Code: Select all

x = int(rnd * 3) + 1
by David Watson
Oct 25, 2023 8:40
Forum: Sources, Examples, Tips and Tricks
Topic: LED Scanner
Replies: 5
Views: 1896

Re: LED Scanner

Knight Rider style dim as short c, dotx(31), i, x, z dim as string k screenres 542, 80, 32 do for i = 40 to 964 step 2 screenlock if i < 502 then x = i else x = 1004 - i for z = 0 to 30 dotx(z) = dotx(z + 1) next z dotx(31) = x cls for z = 0 to 31 c = 38 + z * 7 circle (dotx(z), 40), 15, c shl 16, ,...
by David Watson
Oct 15, 2023 8:32
Forum: Game Dev
Topic: 3 Puzzle Games
Replies: 7
Views: 1886

Re: 3 Puzzle Games

by David Watson
Oct 14, 2023 8:46
Forum: Game Dev
Topic: 3 Puzzle Games
Replies: 7
Views: 1886

Re: 3 Puzzle Games

I tried the Klotski puzzles. They were way too hard for me! I'll stick with Sodokus.
by David Watson
Oct 13, 2023 9:33
Forum: Game Dev
Topic: 3 Puzzle Games
Replies: 7
Views: 1886

Re: 3 Puzzle Games

I discovered you can slide the rectangular pieces into the hole squares around the edge and I've completed the puzzle.
by David Watson
Oct 13, 2023 9:27
Forum: Game Dev
Topic: 3 Puzzle Games
Replies: 7
Views: 1886

Re: 3 Puzzle Games

These puzzle games are pretty good. Peg Solitaire and smallpuzzle are both enjoyable and well made, but I cannot figure out how to do the 4-ball slider puzzle!
by David Watson
Jun 14, 2023 8:01
Forum: General
Topic: Unicode doesn't work in graphics mode
Replies: 7
Views: 574

Re: Unicode doesn't work in graphics mode

You could save some space by using text strings to store your 1s and 0s, eg

Code: Select all

data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0
becomes

Code: Select all

data "0000000000000111100000"
Alternatively, you could keep the font in a graphics file using a non-compressed format like .BMP.
by David Watson
May 27, 2023 8:54
Forum: General
Topic: Microbot
Replies: 4
Views: 689

Re: Microbot

When this line

Code: Select all

microbot C(M).X * 16, C(M).Y * 16,rgb(0,0,0) ''erase microbot
is first executed it erases the top left of the maze.
by David Watson
May 16, 2023 8:10
Forum: Sources, Examples, Tips and Tricks
Topic: 3D Demo's
Replies: 28
Views: 5142

Re: 3D Demo's

I wrote this years ago, but it might interest you. It also supports red/cyan glasses. Hold a mouse button and move the mouse to rotate the torus. 'Program Torus 'Version 1.03 'Language FreeBASIC 0.21 for Linux 'Copyright © 2011 David Watson [david@watzon.co.uk] 'Anyone is permitted to copy, modify, ...