Script para LRGB en Astroart

Script para automatizar secuencia con filtros LRGB en Astroart 

 

En éste artículo detallamos un Script para realizar secuencia automática con rueda porta-filtros eléctrica en el programa de captura Astroart.

Astroart permite la programación en un lenguaje sencillo de una serie de comandos para controlar los dispositivos y ejecutar acciones de la tareas rutinarias de manera no atendida. Aquel que sea de la generación del Spectrum, no le resultará complicado crea su propio SCRIPT para automatizar el equipo. 

Para aquellas personas que no les resulte fácil, hemos modificado un script del año 2007 escrito por J C Moore. En éste script se automatiza la creación de secuencia con una rueda de filtros motorizada. Nosotros hemos traducido al castellano el script, añadido la posibilidad de indicar el número de tomas a realizar y hemos añadido la posibilidad de apagar el ordenador una vez finalizada la sesión.

¿Cómo se instala y se usa?

Antes de empezar, debemos crear un directorio en la raíz de C:\ que se debe llamar "Astro". 

Seguidamente, abrimos astroart y conectamos nuestra cámara y rueda de filtros como de costumbre.

 

Una vez conectadas, hacemos click en el botón OPTIONS.

Y hacemos click en la pestaña de SCRIPT SOURCE.

En la ventana en blanco de abajo, debemos pegar todo el texto que detallamos a continuación:

 


 

 

' AstroArt script to take a sequence of images with binning and filter wheel control
' J C Moore 2007. Junio 2013 Telescoshop.com a castellano y optimización

CLS
message ("TELESCOSHOP.COM Secuenciador Lrgb con apagado programado")
print "TELESCOSHOP.COM"
print "Secuenciador Lrgb con apagado programado"
print "Captura de fecha"
PRINT DATE$ ()
print "Empezamos a las"
PRINT TIME$ ()
input "NOMBRE DEL OBJETO", on$            ' e.g. "m51"
Path$ = "c:\Astro\" + on$ + "\"
Createdir(Path$)                ' Only if it doesn't exist
LPath$ = "c:\Astro\" + on$ + "\L\"
Createdir(LPath$)                ' Only if it doesn't exist
RPath$ = "c:\Astro\" + on$ + "\R\"
Createdir(RPath$)                ' Only if it doesn't exist
GPath$ = "c:\Astro\" + on$ + "\G\"
Createdir(GPath$)                ' Only if it doesn't exist
BPath$ = "c:\Astro\" + on$ + "\B\"
Createdir(BPath$)                ' Only if it doesn't exist
print "GUARDANDO FOTOS EN " + Path$
input "SECUENCIA DE FILTROS (ej. LLRGB)", seq$
input "¿cuantas fotos en total?", L_TIEMPO
input "tiempo Luminancia (segundos)", L_exposure
input "Binning Luminancia (1,2 or 3)", LB
input "Binning Color (1,2 or 3)", CB
input "Tiempo ROJO (segundos)", R_exposure
input "Tiempo VERDE (segundos)", G_exposure
input "Tiempo AZUL (segundos)", B_exposure
27 input "APAGO AL TERMINAR? (S/N)", ter$
if ter$ = "S" then input "ESTA SEGURO, VAYAMOS A LIARLA? (S/N)", seg$ else goto 30
if seg$ = "S" then goto 30 else goto 27
30 message("¿EMPEZAMOS YA?")


Lum_N = 0
Red_N = 0
Gre_N = 0
Blu_N = 0
Total = 0


  for j = 1 to L_TIEMPO
    f$ = seq$[j]
    Wheel.Goto(f$)
    if f$ = "L" then
      Binning = LB: E = L_Exposure
      Lum_N=Lum_N+1: k = Lum_N
      Save_Path$ = LPath$
    endif
    if f$ = "R" then
      Binning = CB: E = R_Exposure
      Red_N=Red_N+1: k = Red_N
      Save_Path$ = RPath$
    endif
    if f$ = "G" then
      Binning = CB: E = G_Exposure
      Gre_N=Gre_N+1: k = Gre_N
      Save_Path$ = GPath$
    endif
    if f$ = "B" then
      Binning = CB: E = B_Exposure
      Blu_N=Blu_N+1: k = Blu_N
      Save_Path$ = BPath$
    endif
    Camera.Binning(Binning)
    Camera.Start(E)
    Name$ = on$+"_"+f$+format$(k,"0##")+"_"+str$(E)+"segundos"+".fit"
    Print Name$
    Total = Total + 1
    if Total > 1 then
      if E > 2 then
        Pause(E-2)
      endif
      
    endif
    Camera.Wait
    Image.Rename(Name$)
    Image.Save(Save_Path$+Name$)
  next j
print "FIN DE LAS TOMAS"
print "Finalizado a las"
PRINT TIME$ ()
print "Puede encontrar todos los ficheros en: "
print Path$
print "FIN DEL PROGRAMA"


IF ter$ = "S" then system.shutdown else end

 

 




Debemos asegurarnos que tenemos denominados los filtros de igual forma a la que vayamos a pedir que haga la secuencia.

Nosotros hemos denominado L, R, G y B para luminancia, rojo, verde y azul respectivamente.

El script pegado en la ventana queda como sigue.

Para empezar su ejecución sólo tenemos que pulsar RUN y se inicia el Script con ventana de inicio.

 

A continuación nos pide que nombremos el objeto a fotografiar. En nuestro ejemplo, M78. El Script creará una carpeta dentro de "Astro" llamada M78, con sus respectivas subcarpetas L, R, G, B. En ellas irán guardando cada una de la capturas de forma ordenada.

 

 

Aquí no pide la secuencia. En nuestro caso hemos indicado LRGB, pero podemos poner la secuencia que deseemos. Algunos ejemplos:

LLRRGGBB (realizará series de 2 luminancias, 2 rojos, 2 verdes y dos azules)

RRRRGGGBBBBBB (series de 4 rojos,3 verdes, 6 azules)

RGB (series de 1 rojo, 1 verde, 1 azul)

 

 

 Antes, hemos indicado las series. En la siguiente ventana, el script nos pide el número total de tomas de todos los filtros que vamos a hacer.

 

En la siguiente nos pide el BINNING de la Luminancia.

 

Y el tiempo de exposición de la misma.

Seguidamente, el BINNING del resto de los filtros

 

 

En las tres siguientes ventanas, nos pedirá el tiempo de exposición de los canales ROJO, VER Y AZUL.

 

Finalmente, nos pregunta si APAGA el ordenador cuando finalice la última fotografía.