Colour Maximite 2
MMBasic Version 5.05.06RC14
Copyright 2011-2020 Geoff Graham
Copyright 2016-2020 Peter Mather

> list "phon_bug.bas"
PLAY TTS PHONETIC "Weh4lkum tuw thah kahlah mae4ksihmay7t tuw"

> run "phon_bug.bas"
Error in line 1: Invalid phonetic text

' V5.05.06RC15 or above needed to run this demo
mode 1
scale=1
xpos=400
ypos=300
scaleup=0
dim vertex(11,3)   ' Store 11 vertex points of x, y and z co-ordinates

dim nodeCount%=11
dim plane(16,4)   ' Planes are made up of 3 or 4 vertexes

dim drawNodeX(16)  ' Stores the translated X,Y,Z co-ords of each node/vertex
dim drawNodeY(16)
dim drawNodeZ(16)
dim colours(16)
dim blacks(16)
dim polyX(17*3+5)       ' The array we use to store the points of the polygons
dim polyY(17*3+5)
dim PolyC(16)
' Vertex data is stored in 2 dimensional array where the 2nd dimension defines x, y or z
vertex(0,0)=32:vertex(0,1)=0:vertex(0,2)=76
vertex(1,0)=-32:vertex(1,1)=0:vertex(1,2)=76
vertex(2,0)=0:vertex(2,1)=26:vertex(2,2)=24
vertex(3,0)=-120:vertex(3,1)=-3:vertex(3,2)=-8
vertex(4,0)=120:vertex(4,1)=-3:vertex(4,2)=-8
vertex(5,0)=-88:vertex(5,1)=16:vertex(5,2)=-40
vertex(6,0)=88:vertex(6,1)=16:vertex(6,2)=-40
vertex(7,0)=128:vertex(7,1)=-8:vertex(7,2)=-40
vertex(8,0)=-128:vertex(8,1)=-8:vertex(8,2)=-40
vertex(9,0)=0:vertex(9,1)=26:vertex(9,2)=-40
vertex(10,0)=-32:vertex(10,1)=-24:vertex(10,2)=-40
vertex(11,0)=32:vertex(11,1)=-24:vertex(11,2)=-40

plane(0,0)=2:plane(0,1)=1:plane(0,2)=0
plane(1,0)=0:plane(1,1)=1:plane(1,2)=10:plane(1,3)=11
plane(2,0)=6:plane(2,1)=2:plane(2,2)=0
plane(3,0)=0:plane(3,1)=4:plane(3,2)=6
plane(4,0)=7:plane(4,1)=4:plane(4,2)=0:plane(4,3)=11
plane(5,0)=1:plane(5,1)=2:plane(5,2)=5
plane(6,0)=5:plane(6,1)=3:plane(6,2)=1
plane(7,0)=1:plane(7,1)=3:plane(7,2)=8:plane(7,3)=10
plane(8,0)=9:plane(8,1)=5:plane(8,2)=2
plane(9,0)=2:plane(9,1)=6:plane(9,2)=9
plane(10,0)=3:plane(10,1)=5:plane(10,2)=8
plane(11,0)=7:plane(11,1)=6:plane(11,2)=4
plane(12,0)=10:plane(12,1)=8:plane(12,2)=5
plane(13,0)=11:plane(13,1)=7:plane(13,2)=4
plane(14,0)=9:plane(14,1)=10:plane(14,2)=8:plane(14,3)=5
plane(15,0)=9:plane(15,1)=6:plane(15,2)=7:plane(15,3)=11
plane(16,0)=9:plane(16,1)=11:plane(16,2)=10

sub rotate(ax, ay, az)
 snz=sin(az)
 csz=cos(az)
 sny=sin(ay)
 csy=cos(ay)
 snx=sin(ax)
 csx=cos(ax)
 for n=0 to nodeCount%
   x=vertex(n,0)  'x
   y=vertex(n,1)  'y
   ' Rotate around z
   drawNodeX(n)=x*csz-y*snz
   drawNodeY(n)=y*csz+x*snz
   drawNodeZ(n)=vertex(n,2)  'z

   ' Rotate around y
   x=drawNodeX(n)
   z=drawNodeZ(n)
   drawNodeX(n)=x*csy+z*sny
   drawNodeZ(n)=z*csy-x*sny

   ' Rotate around x
   y=drawNodeY(n)
   z=drawNodeZ(n)
   drawNodeY(n)=y*csx-z*snx
   drawNodeZ(n)=z*csx+y*snx

 next n
end sub

anglex=0:angley=0:anglez=0
page write 1
cls
'Main loop
lc=0
do
tts=timer
cls
anglex=anglex-0.00005
angley=angley+0.01
anglez=anglez+0.025
rotate(anglex,angley,anglez)
tt2=timer
PolyPos=0
PolyCount=0
for v=0 to 16
  p1=plane(v,0)
  p2=plane(v,1)
  p3=plane(v,2)
  p4=plane(v,3)
  x1=drawNodeX(p1)
  y1=drawNodeY(p1)
'    z1=drawNodeZ(p1)
  x2=drawNodeX(p2)
  y2=drawNodeY(p2)
'    z2=drawNodeZ(p2)
  x3=drawNodeX(p3)
  y3=drawNodeY(p3)
'    z3=drawNodeZ(p3)
  dx1=x1-x2
  dy1=y1-y2
  dx2=x1-x3
  dy2=y1-y3
'    crossX=y1*z2-z1*y2
'    crossY=z1*x2-x1*z2
  crossZ=dx1*dy2-dy1*dx2
'   norm=sqr(crossx*crossx+crossy*crossy+crossz*crossz)
'   lightLevel=128+ (127*(crossY/norm))
  'dotproduct=x1*x2+y1*y2+drawNodeZ(p1)*drawNodez(p2)
  if crossZ>0 then
    polyx(PolyPos)=x1
    polyy(PolyPos)=y1
    polyx(PolyPos+1)=x2
    polyy(PolyPos+1)=y2
    polyx(PolyPos+2)=x3
    polyy(PolyPos+2)=y3
    PolyPos=PolyPos+3
    colours(PolyCount)=rgb(128+v*5,255,255)
    if p4=0 then
     PolyC(PolyCount)=3
    else   'It's a 4 point plane
     PolyC(PolyCount)=4
     polyx(PolyPos)=drawNodeX(p4)
     polyy(PolyPos)=drawNodeY(p4)
     PolyPos=PolyPos+1
   endif
   PolyCount=PolyCount+1
  endif
next v
polyc(polycount)=0 'mark the end of valid polygons
math scale polyx(),scale,polyx()
math scale polyy(),scale,polyy()
math add polyx(),xpos,polyx()
math add polyy(),ypos,polyy()
polygon PolyC(),polyx(),polyy(),blacks(),colours()
if scaleup then
   xpos=xpos-1
   ypos=ypos+0.5
   scale =scale +0.002
   if xpos=200 then scaleup=0
else
   xpos=xpos+1
   ypos=ypos-0.5
   scale =scale -0.002
   if xpos=600 then scaleup=1
endif
timerTotal=timer-tts
timerRotate=tt2-tts
timerDraw=timer-tt2
fps=fps*0.9+0.1*(1000/timerTotal)
print @(0,0)"FPS: " +str$(fps)
print "Rotate: " + str$(timerRotate) +" ms"
print "Draw: " + str$(timerDraw) + " ms" ,lc
lc=lc+1
page copy 1,0

loop

TRIANGLE X1, Y1, X2, Y2, X3, Y3 [, C [, FILL]]

Draws a triangle on the VGA monitor with the corners at X1, Y1 and X2, Y2 and X3, Y3.  'C' is the colour of the triangle and defaults to the current foreground colour.  'FILL' is the fill colour and defaults to no fill (it can also be set to -1 for no fill).  All parameters can be expressed as arrays and the software will plot the number of triangles as determined by the dimensions of the smallest array. 'x1', 'y1', 'x2', 'y2', 'x3',and 'y3' must all be arrays or all be single variables /constants otherwise an error will be generated 'c'  and 'fill' can be either arrays or single variables/constants.

Colour Maximite 2
MMBasic Version 5.05.06RC15
Copyright 2011-2020 Geoff Graham
Copyright 2016-2020 Peter Mather

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

foo()

Sub foo()
 Local x%
 Print "Before" x%
 bar()
 Print "After" x%
End Sub

Sub bar()
 On Error Ignore
 do_nothing(1)
 On Error Abort
End Sub

Sub do_nothing(z)
End Sub


> run "bug.bas"
Before 0
After

Error in line 10: X is not declared

mode 1,16
load jpg "image2"
image warp_h 0,0,400,385, 400,0,385, 600,85,385-170
image warp_v 0,0,400,385,  0,385,400,  100,385*1.5,200
do:loop

IMAGE WARP_H x, y, w, h, x1, y1, h1, x2, y2, h2 [,readpage] [,dontcopyblack]
IMAGE WARP_V x, y, w, h, x1, y1, w1, x2, y2, w2 [,readpage] [,dontcopyblack]