Sorry your browser is not supported!

function ChooseFile()

        local spr

        ret$=ChooseRawFile("*.jpg;*.png")
        if ret$=""
                spr = CreateSprite(0)
        else

                spr = LoadSprite(ret$)

        endif

        SetSpriteDepth(spr,20)
        SetSpriteSize(spr,-1.0,GetVirtualHeight())
        SetSpritePosition(spr,0,0)

endfunction spr

function trimPath(str$ as string)
	num as integer:num2 as integer
	
num=len(str$):trimstr$ as string
if num<1 then exitfunction ""
repeat
    dec num
until mid(str$,num,1)="\"
for num2=(num+1) to len(Str$)   
    trimStr$=trimStr$+mid(str$,num2,1) 
next
endfunction trimStr$

global cd_tlEdit as string:cd_tlEdit=fileExplore.getWorkingDirectory()
fileExplore.setWorkingDirectory("..\")

.
.
.
LoadImage ("raw:"+cd_tlEdit+"\media\"+"environment\startfinish.png")

#import_plugin FileExplore

Fileee$ = FileExplore.GetCL()

F1$=GetStringToken( Fileee$, "|", 2 )
F2$=left(F1$,len(F1$)-1)
F3$=right(F2$,len(F2$)-1)

SetErrorMode(2)



SetWindowTitle( "Viewer Prototype" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) 

SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 

do
 
    print(Fileee$)
    
    Sync()
loop

#import_plugin FileExplore

File$ = FileExplore.GetCL()
F1$=GetStringToken( File$, "|", CountStringTokens(File$,"|")  )

SetErrorMode(2)

SetWindowTitle( "Viewer Prototype" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) 

SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 

do
	`LoadImage(Fileee$)
    print(F1$)
    If GetPointerPressed() then OpenBrowser(F1$)
    `if GetPointerPressed() then LoadSprite("raw:" + F1$)
    Sync()
loop

#import_plugin FileExplore

Fileee$ = FileExplore.GetCL()

F1$=GetStringToken( Fileee$, "|", 2 )

SetErrorMode(2)

SetWindowTitle( "Viewer Prototype" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) 

SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 

LoadSprite(1, "raw:"+F1$)

do
    print(Fileee$)
    print(F1$)
    
    Sync()
loop

#import_plugin FileExplore

File$ = FileExplore.GetCL()
F1$=GetStringToken( File$, "|", CountStringTokens(File$,"|")  )

SetErrorMode(2)

SetWindowTitle( "Viewer Prototype" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) 

SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 
F1$=(trimQuotes(F1$))
createSprite(loadimage("raw:"+F1$))
do
	//`LoadImage(Fileee$)
    
    //If GetPointerPressed() then OpenBrowser(trimQuotes(F1$))
    //if GetPointerPressed() then LoadSprite("raw:" + F1$)
    Sync()
loop

function trimQuotes(fileStr as string)
	fileStr=GetStringToken( Filestr,chr(34), CountStringTokens(Filestr,chr(34))  )
endfunction fileStr

#import_plugin FileExplore

F$ = FileExplore.GetCL()
F$ = GetStringToken(F$, "|", CountStringTokens(F$,"|") )
MSG$ = "Untrimmed"
If LEFT(F$,1) = CHR(34)
	F$= Trim(F$)
	MSG$ = "Trimmed"
EndIf

SetErrorMode(2)

SetWindowTitle( "ImgView" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 0 ) 

SetVirtualResolution( 1024, 768 ) 
SetOrientationAllowed( 1, 1, 1, 1 ) 
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 ) 
UseNewDefaultFonts( 1 ) 

If LOWER(RIGHT(F$,3)) = "png" or LOWER(RIGHT(F$,3)) = "jpg"
	Fit(LoadSprite("raw:"+F$))
Else
	Message("Invalid Image")
	End
Endif
		
do
	Print(MSG$)
	Print(F$)
    If GetRawKeyState(27) then End
    Sync()
loop

Function Trim(This$)
	R$ = MID(This$,2,LEN(This$)-2)
EndFunction R$

Function Fit(Spr)
	SetSpriteSize(Spr,1024,-1)
	If GetSpriteHeight(Spr) > 768 then SetSpriteSize(Spr,-1,768)
	SetSpritePositionByOffset(Spr,512,388)
EndFunction 

#Import_Plugin CL as cl

SetErrorMode(2)
SetWindowTitle( "CL - Example" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 )
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 )
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )



Function LoadSpriteFromImage(image as string, x, y)

	if GetFileExists(image)
		img = LoadImage(image)
		spr=CreateSprite(img)
		SetSpritePosition(spr, x, y)
	endif
	
EndFunction

// Enable file drop on the window
cl.SetDrop("CL - Example", 1)

// Command Line
if cl.Count()>0
	for i=0 to cl.Count()-1
		LoadSpriteFromImage( "raw:"+cl.Get(i), 10*i, 10*i)
    next
endif
	
do
	mouse_x = GetRawMouseX()
	mouse_y = GetRawMouseY()
	
	// File Drop
	if cl.DropCount()>0
		for i=0 to cl.DropCount()-1
			LoadSpriteFromImage( "raw:"+cl.DropGet(i) , mouse_x, mouse_y)
		next
		cl.DropClear() // important, clear the list or this will repeat
	endif
	
    Sync()
loop