@Marvin944
I have made a example program for you.
It's pretty basic and loads 3D models, you can save DBO files from the .X or 3DS files.
The DBO format load's faster.
I have attached the code, the model and everything else in a RAR file.
` I have used Blender to export the .OBJ file to .X format.
objnr = 1
pauze=0
draadmodel=0
objectnaam$="Succubus.x"
set display mode 1680, 1050,32
sync on
sync rate 30
load object objectnaam$,objnr
gosub Set_Font
do
gosub Print_Menu
control camera using arrowkeys 0,0.8,0.5
yrotate object objnr,Yang#
if pauze=0 then inc Yang#,0.30
if inkey$()="P" or inkey$()="p"
if pauze=0
pauze=1
else
pauze=0
endif
endif
if inkey$()="W" or inkey$()="w"
if draadmodel=0
draadmodel=1
else
draadmodel=0
endif
endif
set object wireframe objnr,draadmodel
if inkey$()="D" or inkey$()="d" then gosub makeDBO
sync
loop
end
Set_Font:
set text font "verdana"
set text size 14
return
Print_Menu:
ink rgb(150,130,0),0
text 0,0,"Succubus Model viewer "
text 0,20,"W or w = Wireframe"
text 0,40,"P or p = Pause rotation"
text 0,60,"D or d = Make DBO faster loading"
text 0,80,"ESC = Exit program"
return
makeDBO:
for l=1 to len(objectnaam$)
if mid$(objectnaam$,l) = "." then objectnaam$ = left$(objectnaam$,l-1)+".dbo"
next l
if file exist(objectnaam$)=1 then delete file objectnaam$
save object objectnaam$,objnr
return
Here are two screenshots of the model
[img]null[/img][img]http://s1243.photobucket.com/user/ronsware/media/Temp2014-01-
3120-52-11-23_zps46210b72.jpg.html[/img]
I hope this helps al little
Cheers Ron
Programming is learning