https://drive.google.com/file/d/1r9ETIj ... sp=sharing
It has been made with the site https://www.meshy.ai, using the free version, so the license is CC-BY
It is possible to use it in FreeBasic, using OpenB3D (version 1.42, previous versions cannot load .glb files):
Code: Select all
#include "openb3d.bi"
screen 18, 32, , &h10002
Graphics3d 640,480,32,1,1
var camera=createcamera(0)
var light=createlight(1)
positionentity light, -10,10,5
cameraclscolor camera,0,255,0
var mesh=loadanimmesh ("dinoman.glb")
moveentity mesh,0,0,35
scaleentity mesh,.1,.1,.1,0
'camerarange camera,1,10000
moveentity camera,0,3,-2
animate mesh,1,1,0,00
'meshcullradius mesh,100000
var zz=meshheight(mesh)
'var ppp=getchild(mesh,1)
'ppp=getchild(ppp,1)
var a=0
dim key as string
dim as single scale=.11
do
'moveentity mesh,0,0,.015
'turnentity ppp,1,0,0
key=inkey
if key="+" then scale+=.01: scaleentity mesh,scale,scale, scale
if key="-" then scale-=.01: scaleentity mesh,scale,scale, scale
'moveentity camera,1,0,0
if key=chr(255)+"H" then turnentity mesh,1,0,0,0
if key=chr(255)+"P" then turnentity mesh,-1,0,0,0
if key=chr(255)+"M" then turnentity mesh,0,-1,0,0
if key=chr(255)+"K" then turnentity mesh,0,1,0,0
updateworld 1
renderworld
sleep 1
flip
loop until key=chr(27)
screen 0:?zz