-- -----------------------------------
--
-- .x Exporter
-- Ben Kenwright
-- Email: bkenwright@xbdev.net
--
-- -----------------------------------



fn writex obj xfilename=
(
	if obj==undefined do return"No object"
	if (classof obj)!=editable_mesh do return "Object is not a mesh"
	
	f=fopen xfilename "wb"

	magic  = 0x20666F78 -- "xof "
	version= 0x32303303 -- "0302"
	type   = 0x206E6962 -- "bin "
	acc    = 0X32333030 -- "0032"

	writelong f magic
	writelong f version
	writelong f type
	writelong f acc    

	fclose f
)