Rem ***** Main Source File *****

sync on : sync rate 30 : sync
global INFINITY as float = 3.4E38
global EPSILON as float = 0.001
print "Infinity: ";INFINITY;", Epsilon: ";EPSILON

minPt=reserve free vector()
maxPt=reserve free vector()
center=reserve free vector()

rmin=make vector3(minPt)
rmax=make vector3(maxPt)
rcen=make vector3(center)

set vector3 minPt,INFINITY,INFINITY,INFINITY
set vector3 maxPt,-INFINITY,-INFINITY,-INFINITY
set vector3 center,0,0,0

add vector3 center,minPt,maxPt

print "minPt x,y,z: ";x vector3(minPt); ", ";y vector3(minPt); ", ";z vector3(minPt)
print "maxPt x,y,z: ";x vector3(maxPt); ", ";y vector3(maxPt); ", ";z vector3(maxPt)
print "center x,y,z: ";x vector3(center); ", ";y vector3(center); ", ";z vector3(center)

multiply vector3 center,0.5
print "mult center x,y,z: ";x vector3(center); ", ";y vector3(center); ", ";z vector3(center)

load object "door_g_quat_x.dbo",1
`make object box 1,10,10,10

make mesh from object 1,1
x as float : y as float : z as float
minx as float : miny as float : minz as float
maxx as float : maxy as float : maxz as float

lock vertexdata for mesh 1
	vc=get vertexdata vertex count()
	ic=get vertexdata index count()
	for v=0 to vc
		x = get vertexdata position x (v)
		y = get vertexdata position y (v)
		z = get vertexdata position z (v)
		if x < minx then minx=x
		if y < miny then miny=y
		if z < minz then minz=z
		if x > maxx then maxx=x
		if y > maxy then maxy=y
		if z > maxz then maxz=z
				
	next v	
unlock vertexdata
print "minx: ";minx; "  maxx: ";maxx
print "miny: ";miny; "  maxy: ";maxy
print "minz: ";minz; "  maxz: ";maxz

delete mesh 1

set vector3 minPt,minx,miny,minz
set vector3 maxPt,maxx,maxy,maxz
set vector3 center,0,0,0

add vector3 center,minPt,maxPt

print "minPt x,y,z: ";x vector3(minPt); ", ";y vector3(minPt); ", ";z vector3(minPt)
print "maxPt x,y,z: ";x vector3(maxPt); ", ";y vector3(maxPt); ", ";z vector3(maxPt)
print "center x,y,z: ";x vector3(center); ", ";y vector3(center); ", ";z vector3(center)

multiply vector3 center,0.5
print "mult center x,y,z: ";x vector3(center); ", ";y vector3(center); ", ";z vector3(center)

sync
wait key

`tidy up
delete vector3(minPt)
delete vector3(maxPt)
delete vector3(center)
release reserved vector minPt
release reserved vector maxPt
release reserved vector center
delete object 1
end

Rem Project: boundingbox_math1
Rem Created: Tuesday, February 22, 2022

Rem ***** Main Source File *****
sync on : sync rate 60 : sync
global INFINITY as float = 3.4E38

minPt = 1
maxPt = 2
center = 3
r1=make vector3(minPt)
r2=make vector3(maxPt)
r3=make vector3(center)

`load object "door_g_quat_x.dbo",1
load object "door_g_quat_x_fixed.dbo",1
print object collision center x(1);", ";object collision center y(1);", ";object collision center z(1)
`show object bounds 1,1
`make mesh from object 1,1
`make object from limb 2,1,2
`make object from limb 2,1,0 
`save mesh "door_g_quat.x",1
`save mesh "door_g_quat_fixed.x",1

x as float : y as float : z as float
minx as float : miny as float : minz as float
maxx as float : maxy as float : maxz as float

perform checklist for object limbs 1
`lock vertexdata for mesh 1
limbs=checklist quantity()
for l=0 to limbs-1
lock vertexdata for limb 1,l,1
	vc=get vertexdata vertex count()
	for v=0 to vc
		x = get vertexdata position x (v)
		y = get vertexdata position y (v)
		z = get vertexdata position z (v)
		if x < minx then minx=x
		if y < miny then miny=y
		if z < minz then minz=z
		if x > maxx then maxx=x
		if y > maxy then maxy=y
		if z > maxz then maxz=z
	next v	
unlock vertexdata
next l
print "minx: ";minx; "  maxx: ";maxx
print "miny: ";miny; "  maxy: ";maxy
print "minz: ";minz; "  maxz: ";maxz
print "========================================="

set vector3 minPt,minx,miny,minz
set vector3 maxPt,maxx,maxy,maxz
set vector3 center,0,0,0

add vector3 center,minPt,maxPt

print "minPt x,y,z: ";x vector3(minPt); ", ";y vector3(minPt); ", ";z vector3(minPt)
print "maxPt x,y,z: ";x vector3(maxPt); ", ";y vector3(maxPt); ", ";z vector3(maxPt)
print "center x,y,z: ";x vector3(center); ", ";y vector3(center); ", ";z vector3(center)

multiply vector3 center,0.5
print "mult center x,y,z: ";x vector3(center); ", ";y vector3(center); ", ";z vector3(center)

delete vector3(minPt)
delete vector3(maxPt)
delete vector3(center)

width as float : height as float : depth as float

width = maxx - minx
height = maxy - miny
depth = maxz - minz

make object box 2,width,height,depth
set object 2,0,1,0
if file exist("bbox.dbo")=1 then delete file "bbox.dbo"
save object "bbox.dbo",2

print "w: ";str$(width,6) ; ", h: ";str$(height,6);", d: ";str$(depth,6)
`do
sync
`loop
wait key
end