OK, i have made texture and model viewer in 19 lines! no media included, just try it
REM ********* TEXTURE & MODEL TESTER. BY: Arc ***********
set display mode 800,600,32 : hide mouse : print "type image name(whit extension):" : input fileimage$ : load image fileimage$,1
cls : print "type 3D model name(whit extension):" : input filemodel$ : load object filemodel$,1 : position object 1,2500,100,2500
cls : sync on : sync rate 60
d=100 : e=100 : f=100
make matrix 1,5000,5000,25,25 : prepare matrix texture 1,1,1,1
position camera 2500,200,2500 : point camera 2500,0,2500 : matrix=1
do
text 0,0,"press 1 to view image on the screen" : text 0,40,"press esc to exit"
text 0,10,"press 4,7,8 to rotate object" : text 0,20,"press up and down keys to zoom camera" : text 0,30,"press left and right keys to scale object"
if inkey$()="1" then paste image 1,0,0
if inkey$()="4" then dec a : if a < 0 then a = 360
if inkey$()="8" then dec b : if b < 0 then b = 360
if inkey$()="7" then dec c : if c < 0 then c = 360
if upkey()=1 and matrix=1 then move camera -4
if downkey()=1 and matrix=1 then move camera 4
if leftkey()=1 and matrix=1 then inc d : inc e : inc f
if rightkey()=1 and matrix=1 then dec d : dec e : dec f
scale object 1,d,e,f : rotate object 1,a,b,c
sync : loop
MSI KT3V, Athlon xp 2200+@2.2ghz, Radeon 9000 pro(128mb), 512mb DDR 333mhz, Realtek AC'97, Matrox 40gb and IBM DiscStar 60gb.
Current projects: Roo, Kangaroo http://roo.vze.com