🖥 JW Simple Animation 1

This program is a port and mod of Jeerayut Wetweerapong's "simple animation #1" shared on Facebook with the "BASIC Programming Language" group (link to post).

As per my almost always usual self, I've setup the program in an infinite loop of creating new images, I've added some extra randomness to increase the variety of images drawn, and I've setup a 2.5 second delay between the end of one drawing and the start of the next animated drawing.

• Run the program
• View the source code

🖥 Twelve Trigeod Wheel

This BAM program inspired by Richard Russell's BBC BASIC program shared on Facebook with the BASIC Programming Language group (link.)

I wanted to recreate Richard Russell's image using DRAW statements as part of my long process of testing enhancements to DRAW that are still at the development level (I..e. not ready for a new BAM release.)

• Run the program
• View the source code
• Try the development version of BAM
• View the changes to BAM in draft release notes

🖥 Twisted Squircle

I wrote this program to test a change to the TA command in BAM's DRAW statement:

When I originally added the TA command in BAM, I had set it up so that the drawing angle was reset to zero before every DRAW command.  Every TA angle was local to the DRAW statement using TA.

That did not match GW-BASIC's TA behaviour.

In GW-BASIC, a new value for TA is retained (globally), such that when an angle is specified with a TA command in a draw statement, that angle will apply to every subsequent DRAW statement until some later DRAW statement specified a new angle via TA.

In the current development version of BAM (and in future production versions), BAM's TA command in the DRAW statement will behave as described above for GW-BASIC.

BTW, this program currently only works in the development version of BAM.  Not just for the TA behaviour described above, but also because of the following enhancement to TA still only found in the development version of BAM: TA allows floating point numbers as well as integers.

• Run Twisted Squircle
• View the source code
• Development version of BAM

 

🖥 Filho Curvy Graph

This is a port and mod of a BASIC program by Filho Junior.

No surprise, I've animated the drawing of the graph and put that process in an endless loop, with a 2 second-ish delay between graphs.  Although the original program was graphing with random colours, I've modified that so that the graph is limited to a random choice of five colours (duplicates allowed) from the 15 colour palette (excluding the first color, I.e. black).  The graphing itself still picks random colours, but only from the five choices.

Whatever lines I've modified, I've preceded those lines with the commented out original lines.  Whatever new code I've added, I've not numbered those lines.

• Run the program
• View the source code

🚧 Next version of BAM in the works: improvements to DRAW

The following code sample and screenshots describe the impact of enhancements to DRAW:

SCREEN _NEWIMAGE(41,41,17)

DIM A$(1 TO 10) = {"U","E","R","F","D","G","L","H"}

FOR A% = 0 TO 360

  DRAW "B M 20,20"

  DRAW "TA" + A% + "B U18"

  PSET (POINT(0),POINT(1)),62

NEXT I%

FOR I% = 1 TO 8

  DRAW "B M 20,20"

  DRAW A$(I%) + "17"

NEXT I%

CIRCLE (20,20),20,60

(Try the code above, or your own code, in the current "production" and "development" versions of BAM.)

Results in the current "production" version of BAM:

Results in the "development" version of BAM:

🖥 McGavin GW-BASIC Flower Tessellation

Peter McGavin shared a GW-BASIC port of Richard Russell's BBC BASIC "flower tessellation" program.

The GW-BASIC program works as-is in BAM, which makes me pretty happy because I've made BAM compatibility with GW-BASIC a high-priority goal.

I appreciate finding small GW-BASIC gems like Peter's program so that I can test how well I'm doing with this wee goal of mine.

Do note, I made one change to the program (line 10).  I changed the screen mode from 9 to 12 (using custom screen dimensions), 

• Run the program
• View the source code

🖥 Flower Tesselation: Testing DRAW and recursive SUB's

This BAM program inspired by Richard Russell's "Flower-like tesselation" BBC BASIC program posted on Facebook.

Created in order to test enhancements to "DRAW" in the development version of BASIC Anywhere Machine.

I did not get fancy with this, keeping the program low resolution to better see the flaws when using DRAW with angles other than any that are a factor of 45 degrees.

As my usual practice, the program runs in an endless loop of animation, and applies randomness to colours and to the drawing angle.

• Run the program
• View the source code
• Development version of BAM