Colour Maximite 2
MMBasic Version 5.06.00b8
Copyright 2011-2020 Geoff Graham
Copyright 2016-2020 Peter Mather

> list "sort_bug_3.bas"
Option Explicit On
Option Default None

Dim base% = 0
If InStr(Mm.CmdLine$, "base=1") Then base% = 1
Option Base base%

Dim i%, j%
Dim data$(base% + 4) = ("one", "two", "three", "four", "five")

Print "Option Base =" base%
For i% = base% To base% + 4
 Print "Sort element" i% ": ";

 ' I know sorting a single element is "nonsense" but you can be "sure as eggs
 ' is eggs" that at some point some program is going to work on some piece of
 ' user supplied input that involves this edge case.
 Sort data$(), , , i%, 1

 For j% = base% To base% + 4 : Print data$(j%) " "; : Next j% : Print
Next

> *sort_bug_3
Option Base = 0
Sort element 0: one two three four five
Sort element 1: one two three four five
Sort element 2: one two three four five
Sort element 3: one two three four five
Sort element 4:

Error in line 14: 4 is invalid (valid is 0 to 3)

> *sort_bug_3 base=1
Option Base = 1
Sort element 1: one two three four five
Sort element 2: one two three four five
Sort element 3: one two three four five
Sort element 4:

Error in line 14: 4 is invalid (valid is 1 to 3)

option explicit
option default none
option base 0
DIM INTEGER x=0,y,z,layer=0
DIM FLOAT Q(4), yaw=0, pitch=0, roll=0
const camerax=500, cameray=mm.vres-2, viewplane=600
dim integer nv=8, nf=6 ' cube has 8 vertices and 6 faces
const camera1 = 1
dim float vertices(2,7) = (-1,1,-1,  1,1,-1,  1,-1,-1,  -1,-1,-1,  -1,1,1,  1,1,1,  1,-1,1,  -1,-1,1) 'define the vertices of the cube
dim integer fc(5)=(4,4,4,4,4,4) ' define the number of vertices in each face
dim integer faces(23)=(0,1,2,3,  1,5,6,2,  0,4,5,1,  5,4,7,6,  2,6,7,3, 0,3,7,4) 'define the vertices that make up each face
dim integer colours(6)=(rgb(blue), rgb(green), rgb(magenta), rgb(cyan), rgb(red), rgb(brown), rgb(yellow)) 'define our colour palette
dim integer edge(5)=(6,6,6,6,6,6) 'define the colours used for the edges of each face
dim integer fill(5)=(0,1,2,3,4,5) 'define the colours used to fill each face
'
MATH SCALE vertices(), 20, vertices()
'rescale the z dimension by 2
dim float slice(7)
math slice vertices(),2,,slice()
math scale slice(),2,slice()
math insert vertices(),2,,slice()
DRAW3D CREATE 1, nv, nf, camera1, vertices(), fc(), faces(), colours(), edge(), fill()
DRAW3D CAMERA 1, viewplane, camerax, cameray
PAGE WRITE 1
circle camerax,mm.vres-cameray,4,,,rgb(white),rgb(white)
for y=50 to 550 step 45
for z=0 to 960 step 85
DRAW3D write 1,x,y,1600-z+layer
pause 500
page copy 1 to 0
next z
if layer=0 then
 layer=40
else
 layer=0
endif
next y
do:loop

Colour Maximite 2
MMBasic Version 5.06.00b9
Copyright 2011-2020 Geoff Graham
Copyright 2016-2020 Peter Mather

> *sort_bug_3 base=1
Option Base = 1
Sort element 1: one two three four five
Sort element 2: one two three four five
Sort element 3: one two three four five
Sort element 4: one two three four five
Sort element 5:

Error in line 18: 5 is invalid (valid is 1 to 4)

PIXEL FILL x, y, newcolour

DRAW3D(xmin n)'returns the leftmost x coordinate of a box bounding the render of 3d object n on the screen
DRAW3D(xmax n)'returns the rightmost x coordinate of a box bounding the render of 3d object n on the screen
DRAW3D(ymin n)'returns the upper y coordinate of a box bounding the render of 3d object n on the screen
DRAW3D(ymax n)'returns the lower y coordinate of a box bounding the render of 3d
object n on the screen
DRAW3D(x n)'returns the x coordinate in the world current used to display 3D object n
DRAW3D(y n)'returns the y coordinate in the world current used to display 3D object n
DRAW3D(z n)'returns the y coordinate in the world current used to display 3D object n

option explicit
option default float
dim integer viewplane = 500
const camera = 1
dim q(4)
dim yaw=rad(1),pitch=rad(2),roll=rad(0.5)
dim integer nv=9, nf=9 ' cube has 9 vertices and 9 faces
'array to hold vertices
dim v(2,nv-1)=(-1,1,-1,  1,1,-1, 1,-1,-1, -1,-1,-1, -1,1,1, 1,1,1, 1,-1,1,  -1,-1,1, 0,0,0)
math scale v(),200,v()
' array to hold number of vertices for each face
dim integer fc(nf-1) =(4,4,4,4,4,3,3,3,3)
dim integer cindex(9)=(rgb(red),rgb(blue),rgb(green),rgb(magenta),rgb(yellow),rgb(cyan),rgb(white),rgb(brown),rgb(gray),0)
dim integer fcol(nf-1)=(9,9,9,9,9,9,9,9,9)
dim integer bcol(nf-1)=(0,1,2,3,4,5,6,7,8)
'array to hold vertices for each face
dim integer fv(math(sum fc())-1)=(1,5,6,2, 1,0,4,5,  0,3,7,4,  5,4,7,6, 2,6,7,3, 0,1,8, 1,2,8, 3,8,2 , 3,0,8)
draw3d create 1, nv, nf, camera, v(), fc(), fv(),cindex(),fcol(),bcol()
dim integer c
page write 1
draw3d camera 1,viewplane, mm.hres\2, mm.vres\2
do
for c=0 to 720
timer=0
 math q_create roll,1,1,1,q()
 draw3d show 1,mm.hres\2,mm.vres\2,1000
'  math q_euler yaw,pitch,roll,q()
 draw3d rotate q(),1
print  @(0,0)draw3d(XMIN 1),@(64)draw3d(xmax 1),@(128)draw3d(ymin 1),@(192)draw3d(ymax 1)
'  inc yaw,rad(1)
'  inc pitch,rad(2)
 inc roll,rad(0.5)
 page copy 1 to 0,b
next
loop
draw3d close all

void floodFillScanline(int x, int y)
{
 if(filloldcolour == fillnewcolour) return;
 if(ReadPixelFast(x,y) != filloldcolour) return;

 int x1;

 //draw current scanline from start position to the right
 x1 = x;
 while(x1 < fillmaxW && ReadPixelFast(x1, y) == filloldcolour)
 {
   DrawPixelFast(x1,y,fillnewcolour);
   x1++;
 }

 //draw current scanline from start position to the left
 x1 = x - 1;
 while(x1 >= 0 && ReadPixelFast(x1, y) == filloldcolour)
 {
   DrawPixelFast(x1, y,fillnewcolour);
   x1--;
 }

 //test for new scanlines above
 x1 = x;
 while(x1 < fillmaxW && ReadPixelFast(x1, y) == fillnewcolour)
 {
   if(y > 0 && ReadPixelFast(x1, (y - 1)) == filloldcolour)
   {
     floodFillScanline(x1, y - 1);
   }
   x1++;
 }
 x1 = x - 1;
 while(x1 >= 0 && ReadPixelFast(x1, y ) == fillnewcolour)
 {
   if(y > 0 && ReadPixelFast(x1, (y - 1)) == filloldcolour)
   {
     floodFillScanline( x1, y - 1);
   }
   x1--;
 }

 //test for new scanlines below
 x1 = x;
 while(x1 < fillmaxW && ReadPixelFast(x1, y) == fillnewcolour)
 {
   if(y < fillmaxH - 1 && ReadPixelFast(x1, (y + 1)) == filloldcolour)
   {
     floodFillScanline( x1, y + 1);
   }
   x1++;
 }
 x1 = x - 1;
 while(x1 >= 0 && ReadPixelFast(x1, y) == fillnewcolour)
 {
   if(y < fillmaxH - 1 && ReadPixelFast(x1, (y + 1)) == filloldcolour)
   {
     floodFillScanline(x1, y + 1);
   }
   x1--;
 }
}