#**************************** #******* AUTOEXEC.AST ******* #**************************** < Script som laddas automatiskt vid programstart Scriptet stackar totalt 250 bilder från en videokamera och lagrar bilden på en webserver via ftp varje halvtimme, dessutom lagras den obehandlade färgbilden för dagsljus. Stackningen går till så att 25 exponeringar hämtas från kameran, 2 bilder av 3 hoppas över i videoflödet för att systemet ska hinna med. De 25 bilderna som tilldelas batch id 1, medianstackas och resultatet lagras med ett tillfälligt namn med batch id 2, därefter raderas bilderna med batch id 1. När tio exponeringssekvenser utförts med 25 bilder i varje så stackas de medianstackade bilderna i batch 2, dessa bilder adderas, resultatet benämns Test och får batch id 3. En ostackad RGB bild och den stackade svartvita bilden Test lagras i två filer, ObsVIew_rgb.jpg och ObsView_bw.jpg, Bilderna överförs sedan via ftp till angiven webserver. Scriptet körs vid start och därefter triggas det av klockan varje hel och halvtimme. Scriptet använder inga externa parametrar. > #**************************** 10 ECHO 0 # Slå av den löpande listningen av utförda kommandon i kommandofönsteret 100 SLEEP 10000 # Vänta 10 sekunder så att systemet hinner komma igång 110 CIR k1 # Frågar om kamera k1 är klar 120 IF !fRet1 GOTO 100 # Om inte kameran är klar, gå tillbaka och vänta 10 sekunder till 130 ASSIGN lStackCounter 3 0 # Initiera lStackCounter (3 = heltal) till 0 200 SLEEP 1000 # Vänta 1 sekund 210 CEXP k1 0.1 25 2 1 # Exponera 25 bilder med 0.1 s exponeringstid, skippa 2 bilder löpande och placera resultaten i batch 1 220 SLEEP 5000 # Vänta 5 sekunder på att exponeringssekvensen ska bli klar 230 CIR k1 # Frågar om kamera k1 är klar 240 IF !fRet1 GOTO 220 # Om inte kameran är klar, gå tillbaka och vänta 5 sekunder till 250 IMES @SysName 1 2 # Skapa stackad bild med systemangivet unikt namn (@SysName) i batch 2 genom att stacka (median) alla bilder som nu finns i batch 1 260 IDEL 1 # Radera alla stackade bilder som finns i batch 1 för att ge plats för nästa omgång 300 ASSIGN lStackCounter 3 (lStackCounter+1) # Räkna avklarade exponeringssekvenser 310 IF (lStackCounter>=10) GOTO 1000 # Om alla 10 är klara, avsluta exponeringen och gå till slutstackning 320 GOTO 200 # Gå tillbaka och kör nästa exponeringssekvens 1000 IARS Test 2 3 # Skapa slutbilden Test genom att stacka (addition) de tio medianstackade bilderna i batch 2 1010 IDEL 2 # Radera alla bilder som finns i batch 2 för att ge plats för nästa omgång 1020 ICAS k1 TestRgb 10 480 360 1 # Skala kamerans färgbild och ge den ett oanvänt batch id, 10 1030 ICAS Test TestBw 10 480 360 0 # Skala den stackade svartvita bilden och ge den ett oanvänt batch id, 10 1040 FSAVE TestRgb ObsView_rgb 0 1 96 # Spara den obehandlade färgbilden i filen ObsView_rgb.jpg 1050 FSAVE TestBw ObsView_bw 0 1 96 # Spara den stackade svartvita kamerabilden i filen ObsView_bw.jpg 1100 FTPFILE ObsView_rgb.jpg # Namn på filen som ska överföras till web servern 1110 FTPLPATH .\ # Lokal sökväg 1120 FTPRPATH astroweb/images # Sökväg på server 1130 FTPTRAN www.hemlin.se 1234 1234 # Login information, startar överföring 1140 FTPFILE ObsView_bw.jpg # Namn på filen som ska överföras till web servern 1150 FTPLPATH .\ # Lokal sökväg 1160 FTPRPATH astroweb/images # Sökväg på server 1170 FTPTRAN www.hemlin.se 1234 1234 # Login information, startar överföring 2000 SLEEP 60000 # Vänta en minut så att systemklockan garanterat inte står kvar på samma minut 2010 TIM # Hämta aktuell minut 2020 ASSIGN dwMinute 2 dwRet1 # Tilldela variabeln dwMinute det aktuella minutvärdet som finns i den tillfälliga variabeln dwRet 2030 IF (dwMinute==0) GOTO 110 # Starta ny sekvens på varje hel timme 2040 IF (dwMinute==30) GOTO 110 # Starta ny sekvens varje halv timme 2050 SLEEP 10000 # Vänta 10 sekunder 2060 GOTO 2010 # Gå tillbaka och kontrollera tiden igen