; TGA Viewer 2002 bei M.Rauch

.Top

AppTitle "TGA Viewer 2002 by M.Rauch"

Graphics 1024,768,16,2

SetBuffer BackBuffer()

;--------------------------------------------------------------

Global myfont

myfont=LoadFont ("Fixedsys",9,0)

SetFont myfont

Const fonty=12

;--------------------------------------------------------------

Global a$,c$,n$,img

c$=CommandLine$()

Text 10,10,c$

a$=Mid$(c$,2,Len(c$)-2)

Text 10,20,a$

Flip

; Load TGA Picture

If Upper(Right$(a$,4))=".TGA" Then

 img=LoadImage( a$ )
 MaskImage img ,255,0,255

EndIf

;------------------------------- Name heraus suchen :-)
 n$=a$
 x=1
 x1=0
 While x>0
  x=Instr(a$,"\",x)
  If x>0 Then x=x+1:x1=x
 Wend
 If x1>0 Then n$=Mid(a$,x1)
;-------------------------------

;--------------------------------------------------------------

FlushKeys
FlushMouse

ClsColor 128,128,128

While Not KeyDown( 1 ) ;ESC

 ;-----------------------------------

 Cls
 If img<>0 Then
  ;könnte man hier noch scrollen wenn größer als Fenster ist
  DrawImage img,0,0
 EndIf
 
 ;-----------------------------------

 If KeyHit(31) Then ;S
  SaveImage img,a$+".bmp"
 EndIf
 
 ;-----------------------------------

 OText 10,fonty*1,"TGA : " + n$
 If img<>0 Then
  OText 10,fonty*2,ImageWidth(img)+" x "+ImageHeight(img)
 EndIf
 OText 10,fonty*3,"Press S for SAVE as BMP"

 ;-----------------------------------

 Flip
Wend

FlushKeys
FlushMouse

End

;----------------------------------------------------------------

Function OText (x,y,t$)

 Local a,b

 Color 0,0,0

 For a=-1 To 1
  For b=-1 To 1
   Text x+a,y+b,t$
  Next
 Next

 Color 0,255,0

 Text x,y,t$

End Function