Test this code in DB1 and DBPro .. this problem was reported a while ago and Lee said that he'll tell it Mike because it's an error in the 3D part ...
` Created with Color Arts Font to 3D V:1 (c) by Hubdule
sync on
sync rate 0
Cls
Hide mouse
DBPro is very very slow when using a lot of objs. I also tested a version with 2200+ cubes and DB1 was even faster then Pro ???
backdrop on
color backdrop 0
restore MaxObj
read objs
restore Objects
For i = 1 To objs
make object cube i,5
` You can also change to other primitives here
` Cones do not work at all ???
` make object sphere i,5
read x
read y
position object i,x,(y*-1),0
Next i
Do
if spacekey()
set cursor 0,0
Print "Objekte: " + Str$(objs)
Print Str$(statistic(1)) + " Polygone"
print str$(screen fps())+" fps"
Print camera position x()
Print camera position y()
Print camera position z()
Print camera angle x()
Print camera angle y()
Print camera angle z()
EndIf
Rem Contol camera with mouse
pitch# = wrapvalue(pitch# + mousemoveY())
xrotate camera pitch#
a# = wrapvalue(a# + mousemovex())
yrotate camera a#
Rem Control camera with mouse buttons
if mouseclick()=1 then move camera 10
If mouseclick()=2 Then move camera -10
x# = wrapvalue(x# + 1.0)
For i = 1 To objs
rotate object i,x#,x#,x#
Next i
sync
Loop
Objects:
DATA 1390,15
DATA 1390,5
DATA 1390,-5
DATA 1390,-15
DATA 1390,-25
DATA 1390,-35
DATA 1380,35
DATA 1380,25
DATA 1380,-45
DATA 1370,45
DATA 1370,-55
DATA 1360,55
DATA 1350,55
DATA 1340,-15
DATA 1340,-25
DATA 1330,35
DATA 1330,25
DATA 1330,-15
DATA 1330,-25
DATA 1320,35
DATA 1320,25
DATA 1270,-45
DATA 1270,-55
DATA 1270,-65
DATA 1260,35
DATA 1260,-5
DATA 1260,-15
DATA 1260,-25
DATA 1260,-35
DATA 1260,-65
DATA 1250,35
DATA 1250,25
DATA 1250,15
DATA 1250,5
DATA 1220,35
DATA 1220,-5
DATA 1220,-15
DATA 1220,-25
DATA 1210,35
DATA 1210,25
DATA 1210,15
DATA 1210,5
DATA 1210,-25
DATA 1200,25
DATA 1200,-25
DATA 1190,35
DATA 1190,-25
DATA 1180,35
DATA 1180,-15
DATA 1170,25
DATA 1170,15
DATA 1170,5
DATA 1170,-5
DATA 1140,35
DATA 1140,5
DATA 1140,-5
DATA 1140,-15
DATA 1130,35
DATA 1130,25
DATA 1130,15
DATA 1130,-25
DATA 1120,-25
DATA 1110,-15
DATA 1100,5
DATA 1100,-5
DATA 1100,-15
DATA 1100,-25
DATA 1090,35
DATA 1090,25
DATA 1090,15
DATA 1090,-25
DATA 1060,15
DATA 1060,5
DATA 1060,-5
DATA 1060,-15
DATA 1050,25
DATA 1050,-25
DATA 1040,35
DATA 1040,-25
DATA 1030,35
DATA 1030,-25
DATA 1020,35
DATA 1020,-15
DATA 1010,25
DATA 1010,15
DATA 1010,5
DATA 1010,-5
DATA 990,-55
DATA 990,-65
DATA 980,35
DATA 980,5
DATA 980,-5
DATA 980,-15
DATA 980,-25
DATA 970,35
DATA 970,25
DATA 970,15
DATA 970,-25
DATA 950,-15
DATA 940,25
DATA 940,15
DATA 940,-25
DATA 930,35
DATA 930,5
DATA 930,-25
DATA 920,35
DATA 920,5
DATA 920,-25
DATA 910,35
DATA 910,-5
DATA 910,-15
DATA 900,25
DATA 890,-15
DATA 880,25
DATA 880,15
DATA 880,-25
DATA 870,35
DATA 870,5
DATA 870,-25
DATA 860,35
DATA 860,5
DATA 860,-25
DATA 850,35
DATA 850,-5
DATA 850,-15
DATA 840,25
DATA 830,-5
DATA 830,-15
DATA 820,25
DATA 820,5
DATA 820,-25
DATA 810,35
DATA 810,5
DATA 810,-25
DATA 800,35
DATA 800,5
DATA 800,-25
DATA 790,35
DATA 790,5
DATA 790,-15
DATA 790,-65
DATA 780,25
DATA 780,15
DATA 780,5
DATA 780,-5
DATA 780,-65
DATA 770,-25
DATA 770,-65
DATA 760,-25
DATA 760,-45
DATA 760,-55
DATA 750,5
DATA 750,-5
DATA 750,-15
DATA 750,-25
DATA 750,-35
DATA 740,45
DATA 740,35
DATA 740,25
DATA 740,15
DATA 740,-25
DATA 730,55
DATA 710,15
DATA 710,5
DATA 710,-5
DATA 710,-15
DATA 700,25
DATA 700,-25
DATA 690,35
DATA 690,-25
DATA 680,35
DATA 680,-25
DATA 670,35
DATA 670,-15
DATA 660,25
DATA 660,15
DATA 660,5
DATA 660,-5
DATA 640,-15
DATA 640,-25
DATA 630,-25
DATA 620,-15
DATA 610,5
DATA 610,-5
DATA 610,-15
DATA 610,-25
DATA 600,35
DATA 600,25
DATA 600,15
DATA 600,-25
DATA 590,-25
DATA 590,-35
DATA 590,-45
DATA 580,-15
DATA 580,-55
DATA 570,-5
DATA 570,-55
DATA 560,-5
DATA 560,-55
DATA 550,-5
DATA 550,-55
DATA 540,-5
DATA 540,-35
DATA 540,-45
DATA 540,-55
DATA 530,35
DATA 530,-5
DATA 530,-15
DATA 530,-25
DATA 530,-55
DATA 520,35
DATA 520,25
DATA 520,15
DATA 520,5
DATA 510,35
DATA 470,-5
DATA 470,-15
DATA 460,25
DATA 460,-25
DATA 450,35
DATA 450,-25
DATA 440,35
DATA 440,-25
DATA 430,35
DATA 430,-15
DATA 420,25
DATA 420,15
DATA 420,5
DATA 420,-5
DATA 400,-55
DATA 400,-65
DATA 390,35
DATA 390,5
DATA 390,-5
DATA 390,-15
DATA 390,-25
DATA 380,35
DATA 380,25
DATA 380,15
DATA 380,-25
DATA 360,-15
DATA 350,25
DATA 350,15
DATA 350,-25
DATA 340,35
DATA 340,5
DATA 340,-25
DATA 330,35
DATA 330,5
DATA 330,-25
DATA 320,35
DATA 320,-5
DATA 320,-15
DATA 310,25
DATA 290,35
DATA 290,-5
DATA 290,-15
DATA 290,-25
DATA 280,35
DATA 280,25
DATA 280,15
DATA 280,5
DATA 280,-25
DATA 270,25
DATA 270,-25
DATA 260,35
DATA 260,-25
DATA 250,35
DATA 250,-15
DATA 240,25
DATA 240,15
DATA 240,5
DATA 240,-5
DATA 220,15
DATA 220,5
DATA 220,-5
DATA 220,-25
DATA 220,-35
DATA 220,-45
DATA 210,25
DATA 210,-15
DATA 210,-55
DATA 200,35
DATA 200,-15
DATA 200,-55
DATA 190,35
DATA 190,-15
DATA 190,-55
DATA 180,35
DATA 180,-15
DATA 180,-35
DATA 180,-45
DATA 180,-55
DATA 170,35
DATA 170,5
DATA 170,-5
DATA 170,-15
DATA 170,-25
DATA 170,-55
DATA 160,35
DATA 160,25
DATA 160,15
DATA 150,35
DATA 140,35
DATA 140,-25
DATA 130,35
DATA 130,-15
DATA 130,-25
DATA 120,25
DATA 120,-5
DATA 110,15
DATA 110,5
DATA 110,-45
DATA 110,-55
DATA 110,-65
DATA 100,5
DATA 100,-5
DATA 100,-15
DATA 100,-25
DATA 100,-35
DATA 100,-65
DATA 90,35
DATA 90,25
DATA 90,15
DATA 70,-15
DATA 70,-25
DATA 60,-25
DATA 50,-15
DATA 40,5
DATA 40,-5
DATA 40,-15
DATA 40,-25
DATA 30,35
DATA 30,25
DATA 30,15
DATA 30,-25
DATA 0,35
DATA 0,-5
DATA 0,-15
DATA 0,-25
DATA -10,35
DATA -10,25
DATA -10,15
DATA -10,5
DATA -10,-25
DATA -20,25
DATA -20,-25
DATA -30,35
DATA -30,-25
DATA -40,35
DATA -40,-15
DATA -50,25
DATA -50,15
DATA -50,5
DATA -50,-5
DATA -70,-5
DATA -70,-15
DATA -70,-25
DATA -70,-35
DATA -80,15
DATA -80,5
DATA -80,-45
DATA -90,25
DATA -90,-55
DATA -100,35
DATA -100,-55
DATA -110,35
DATA -110,-55
DATA -120,35
DATA -120,-35
DATA -120,-45
DATA -120,-55
DATA -130,35
DATA -130,5
DATA -130,-5
DATA -130,-15
DATA -130,-25
DATA -130,-55
DATA -140,35
DATA -140,25
DATA -140,15
DATA -150,35
DATA -190,-15
DATA -190,-25
DATA -200,-25
DATA -210,-15
DATA -220,5
DATA -220,-5
DATA -220,-15
DATA -220,-25
DATA -230,35
DATA -230,25
DATA -230,15
DATA -230,-25
DATA -260,15
DATA -260,5
DATA -260,-5
DATA -260,-15
DATA -270,25
DATA -270,-25
DATA -280,35
DATA -280,-25
DATA -290,35
DATA -290,-25
DATA -300,35
DATA -300,-15
DATA -300,-65
DATA -310,25
DATA -310,15
DATA -310,5
DATA -310,-5
DATA -310,-65
DATA -320,-25
DATA -320,-65
DATA -330,-25
DATA -330,-45
DATA -330,-55
DATA -340,5
DATA -340,-5
DATA -340,-15
DATA -340,-25
DATA -340,-35
DATA -350,45
DATA -350,35
DATA -350,25
DATA -350,15
DATA -350,-25
DATA -360,55
DATA -400,-25
DATA -410,35
DATA -410,-25
DATA -410,-35
DATA -410,-45
DATA -420,35
DATA -420,5
DATA -420,-5
DATA -420,-15
DATA -420,-25
DATA -430,25
DATA -430,15
DATA -430,-25
DATA -450,-15
DATA -460,25
DATA -460,15
DATA -460,-25
DATA -470,35
DATA -470,5
DATA -470,-25
DATA -480,35
DATA -480,5
DATA -480,-25
DATA -490,35
DATA -490,-5
DATA -490,-15
DATA -500,25
DATA -510,-5
DATA -510,-15
DATA -520,25
DATA -520,5
DATA -520,-25
DATA -530,35
DATA -530,5
DATA -530,-25
DATA -540,35
DATA -540,5
DATA -540,-25
DATA -550,35
DATA -550,5
DATA -550,-15
DATA -560,25
DATA -560,15
DATA -560,5
DATA -560,-5
DATA -580,-25
DATA -590,35
DATA -590,-25
DATA -590,-35
DATA -590,-45
DATA -600,35
DATA -600,5
DATA -600,-5
DATA -600,-15
DATA -600,-25
DATA -610,25
DATA -610,15
DATA -610,-25
DATA -640,-5
DATA -640,-15
DATA -640,-25
DATA -650,45
DATA -650,35
DATA -650,25
DATA -650,15
DATA -650,5
DATA -650,-25
DATA -660,55
DATA -660,25
DATA -660,-25
DATA -670,35
DATA -670,-25
DATA -680,35
DATA -680,-15
DATA -690,25
DATA -690,15
DATA -690,5
DATA -690,-5
DATA -700,55
DATA -720,35
DATA -720,-5
DATA -720,-15
DATA -720,-25
DATA -730,35
DATA -730,25
DATA -730,15
DATA -730,5
DATA -740,25
DATA -750,35
DATA -760,35
DATA -760,-5
DATA -760,-15
DATA -760,-25
DATA -770,25
DATA -770,15
DATA -770,5
DATA -770,-25
DATA -790,15
DATA -790,5
DATA -790,-5
DATA -790,-25
DATA -790,-35
DATA -790,-45
DATA -800,25
DATA -800,-15
DATA -800,-55
DATA -810,35
DATA -810,-15
DATA -810,-55
DATA -820,35
DATA -820,-15
DATA -820,-55
DATA -830,35
DATA -830,-15
DATA -830,-35
DATA -830,-45
DATA -830,-55
DATA -840,35
DATA -840,5
DATA -840,-5
DATA -840,-15
DATA -840,-25
DATA -840,-55
DATA -850,35
DATA -850,25
DATA -850,15
DATA -860,35
DATA -910,35
DATA -910,-5
DATA -910,-15
DATA -910,-25
DATA -920,35
DATA -920,25
DATA -920,15
DATA -920,5
DATA -920,-25
DATA -930,25
DATA -930,-25
DATA -940,35
DATA -940,-25
DATA -950,35
DATA -950,-15
DATA -960,25
DATA -960,15
DATA -960,5
DATA -960,-5
DATA -1010,-15
DATA -1020,25
DATA -1020,15
DATA -1020,-25
DATA -1030,35
DATA -1030,5
DATA -1030,-25
DATA -1040,35
DATA -1040,5
DATA -1040,-25
DATA -1050,35
DATA -1050,-5
DATA -1050,-15
DATA -1060,25
DATA -1070,-55
DATA -1070,-65
DATA -1080,35
DATA -1080,5
DATA -1080,-5
DATA -1080,-15
DATA -1080,-25
DATA -1090,35
DATA -1090,25
DATA -1090,15
DATA -1090,-25
DATA -1140,-15
DATA -1150,25
DATA -1150,15
DATA -1150,-25
DATA -1160,35
DATA -1160,5
DATA -1160,-25
DATA -1170,35
DATA -1170,5
DATA -1170,-25
DATA -1180,35
DATA -1180,-5
DATA -1180,-15
DATA -1190,25
DATA -1200,-55
DATA -1200,-65
DATA -1210,35
DATA -1210,5
DATA -1210,-5
DATA -1210,-15
DATA -1210,-25
DATA -1220,35
DATA -1220,25
DATA -1220,15
DATA -1220,-25
DATA -1250,35
DATA -1250,5
DATA -1250,-5
DATA -1250,-15
DATA -1260,35
DATA -1260,25
DATA -1260,15
DATA -1260,-25
DATA -1270,-25
DATA -1280,-15
DATA -1280,-45
DATA -1280,-55
DATA -1280,-65
DATA -1290,5
DATA -1290,-5
DATA -1290,-15
DATA -1290,-25
DATA -1290,-35
DATA -1290,-65
DATA -1300,35
DATA -1300,25
DATA -1300,15
DATA -1310,-45
DATA -1310,-55
DATA -1320,-55
DATA -1330,-55
DATA -1340,-35
DATA -1340,-45
DATA -1340,-55
DATA -1350,35
DATA -1350,5
DATA -1350,-5
DATA -1350,-15
DATA -1350,-25
DATA -1350,-55
DATA -1360,35
DATA -1360,25
DATA -1360,15
DATA -1360,-55
DATA -1370,35
DATA -1370,-45
DATA -1370,-55
`3D Objects: 666
MaxObj:
DATA 666