Astroart Forum

Code: Select all

' StarnetV2
' Inviroment: Macro AA8 SP1
' Tested on Windows 11
' 07-02-2022 Morten Lerager
'
' *** Init ***
' Path to Starnet install dir
Starnet = "C:\Users\morte\Documents\AA8\StarNetv2CLI_Win\"
' Tiles: Lower value = better removement, slower performens
' Chould be change to user Input
Tiles = "256" 
'

InName=Image.FileNameWithPath
MyPath = ExtractPath(InName)
ImageName = Image.FileName

' Chek Input file
If Right(ImageName,3)<>"tif" and Right(ImageName,4)<>"tiff" then
	message("Image has to be in 16 bit Tif format")
	END
endif

' Put the Image in Starnet folder
CMD="Robocopy " + MyPath + " " + starnet + " " + ImageName
System.Execute(CMD)

' Delete Starless if found
FileExists = findfile$(starnet,"Starless_" + ImageName) 
If FileExists <>"" then ' Delete before run
	savetext$("Del "+ starnet + "Starless_" + ImageName , Starnet + "ImageDelete.cmd")
	CMD=Starnet+"ImageDelete.cmd"
	System.Execute(CMD)
endif


' Running Starnet
savetext$("Pause"+crlf()+"pushd "+Starnet+crlf()+"Pause"+crlf()+"starnet++.exe "+ImageName+" Starless_"+ImageName+" "+Tiles+crlf()+"Pause"+crlf()+"popd",Starnet+"Starnet.cmd")
CMD=Starnet+"Starnet.cmd"
System.Execute(CMD)

' Wait for Starnet Finish
FileExists=""
while FileExists=""
	pause(10) 
	FileExists = findfile$(starnet,"Starless_" + ImageName) 
endwhile


' Open the StarLess Image
Image.Open(Starnet+"Starless_"+ImageName) 
' Save it in Home folder
Image.Save(MyPath+"Starless_"+ImageName)
' Close active Image
Image.Close
' Open it from Home folder
Image.Open(MyPath+"Starless_"+ImageName) 


' Delete the Image in Starnet folder
savetext$("Del "+ starnet + ImageName+crlf(),Starnet+"ImageDelete.cmd")
AppendText("Del "+ starnet + "Starless_" + ImageName , Starnet + "ImageDelete.cmd")
CMD=Starnet+"ImageDelete.cmd"
System.Execute(CMD)

END
function ExtractPath(s)
   return Mid(s, 1, InStrRev(s,"\"))
end function