Michael Fabain Dirks
111 lines
2.3 KiB
BlitzBasic
111 lines
2.3 KiB
BlitzBasic
|
|
;Blitz media viewer.
|
|
;
|
|
;Create executable in 'bin'
|
|
|
|
AppTitle CommandLine$()
|
|
fil$=Lower$( CommandLine$() )
|
|
|
|
index=Instr( fil$,"." )
|
|
If index>0 ext$=Mid$( fil$,index+1 )
|
|
Select ext$
|
|
Case "x","3ds"
|
|
ShowModel( fil$,False )
|
|
Case "md2"
|
|
ShowModel( fil$,True )
|
|
Case "bmp","jpg","png","pcx","tga","iff"
|
|
ShowImage( fil$ )
|
|
Case "wav"
|
|
ShowSound( fil$ )
|
|
Case "mp3","mid","mod","x3m","xm","it"
|
|
ShowMusic( fil$ )
|
|
Default
|
|
RuntimeError "Unknown File Extension"
|
|
End Select
|
|
|
|
End
|
|
|
|
Function ShowModel( fil$,md2 )
|
|
If Windowed3D()
|
|
Graphics3D 400,300,0,2
|
|
Else
|
|
Graphics3D 640,480,0,1
|
|
EndIf
|
|
If md2
|
|
model=LoadMD2( fil$ )
|
|
If model ScaleEntity model,.025,.025,.025
|
|
Else
|
|
model=LoadMesh( fil$ )
|
|
If model FitMesh model,-1,-1,-1,2,2,2,True
|
|
EndIf
|
|
If model=0 RuntimeError "Unable to load 3D mesh:"+fil$
|
|
sc=CountSurfaces(model)
|
|
For k=1 To sc
|
|
vc=vc+CountVertices( GetSurface( model,k ) )
|
|
tc=tc+CountTriangles( GetSurface( model,k ) )
|
|
Next
|
|
camera=CreateCamera()
|
|
CameraClsColor camera,0,0,64
|
|
CameraRange camera,.01,10
|
|
xr#=0:yr#=0:z#=2.1
|
|
light=CreateLight()
|
|
TurnEntity light,45,45,0
|
|
Repeat
|
|
RotateEntity model,xr,yr,0
|
|
PositionEntity model,0,0,z
|
|
UpdateWorld
|
|
RenderWorld
|
|
Text 0,0,"Triangles:"+tc+" Vertices:"+vc+" Surfaces:"+sc
|
|
Flip
|
|
key=False
|
|
Repeat
|
|
If KeyHit(1) End
|
|
If KeyDown(200) xr=xr-3:key=True
|
|
If KeyDown(208) xr=xr+3:key=True
|
|
If KeyDown(203) yr=yr+3:key=True
|
|
If KeyDown(205) yr=yr-3:key=True
|
|
If KeyDown( 30) z=z-.1:key=True
|
|
If KeyDown( 44) z=z+.1:key=True
|
|
If Not key WaitKey
|
|
Until key
|
|
Forever
|
|
End Function
|
|
|
|
Function ShowImage( fil$ )
|
|
Graphics 400,300,0,2
|
|
SetBuffer BackBuffer()
|
|
image=LoadImage( fil$ )
|
|
If image=0 RuntimeError "Unable to load image:"+fil$
|
|
MidHandle image
|
|
x=200:y=150:t=4
|
|
Repeat
|
|
Cls
|
|
DrawImage image,x,y
|
|
Flip
|
|
key=False
|
|
Repeat
|
|
If KeyHit(1) End
|
|
If KeyDown(200) y=y-t:key=True
|
|
If KeyDown(208) y=y+t:key=True
|
|
If KeyDown(203) x=x-t:key=True
|
|
If KeyDown(205) x=x+t:key=True
|
|
If Not key WaitKey
|
|
Until key
|
|
Forever
|
|
End Function
|
|
|
|
Function ShowSound( fil$ )
|
|
sound=LoadSound( fil$ )
|
|
If sound=0 RuntimeError "Unable to load sound:"+fil$
|
|
Repeat
|
|
PlaySound sound
|
|
WaitKey
|
|
If KeyHit(1) End
|
|
Forever
|
|
End Function
|
|
|
|
Function ShowMusic( fil$ )
|
|
music=PlayMusic( fil$ )
|
|
If music=0 RuntimeError "Unable to play music: "+fil$
|
|
WaitKey
|
|
End Function |