Qué tal!

Como resultado del hilo https://foro.gambas-es.org/viewtopic.php?f=5&t=6605 estoy realizando un fork de la app moontool http://www.fourmilab.ch/moontoolw/

Me faltan varias cosas aun, y donde estoy estancado es en calcular la forma de la sombra de la luna para dibujar su fase.

Por ahora subo el código que tengo para el que le sirva, dado que veo que hay compañeros que están realizando calendarios y poner las fases lunares puede ser una característica a añadir.

Si alguien puede contribuir en completar la app gambas para que realice lo que hace la original o agregarle mejoras estaré muy agradecido.

Saludos.

razaAztk escribió: [Ver mensaje]

...donde estoy estancado es en calcular la forma de la sombra de la luna para dibujar su fase...

Te felicito razaAtk muy buen trabajo, lo de la fase se puede hacer usando el valor mage que calcula la sub rutina fPhase. Dicho valor va de 0 a 29 donde ambos limites son luna nueva, que como sabes es la luna que no se ve. Luego con un simple select case se elije la imagen de la luna correspondiente con la fase y listo.




Voy a intentar agregar esta característica al código que subiste. Luego te comento.

Saludos.

Ya esta.

tincho escribió: [Ver mensaje]

razaAztk escribió: [Ver mensaje]

...donde estoy estancado es en calcular la forma de la sombra de la luna para dibujar su fase...

Te felicito razaAtk muy buen trabajo, lo de la fase se puede hacer usando el valor mage que calcula la sub rutina fPhase. Dicho valor va de 0 a 29 donde ambos limites son luna nueva, que como sabes es la luna que no se ve. Luego con un simple select case se elije la imagen de la luna correspondiente con la fase y listo.

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

mage = synmonth * (Fixangle(MoonAge) / 360.0)

Código: [Descargar] [Ocultar] [Seleccionar]

Código: [Descargar] [Mostrar]

Select Round(floFase, 0)
    Case 0, 29
      pio = Image.Load("./29.png").Stretch(32, 32).Picture
    Case Else
      pio = Image.Load("./" & Format(Round(floFase, 0), "00") & ".png").Stretch(32, 32).Picture
  End Select

  pioMoon.Picture = pio
 

Voy a intentar agregar esta característica al código que subiste. Luego te comento.

Saludos.

Qué tal!

Gracias por el aporte. Por ahora no he tenido tiempo de programar gambas (ni siquiera de estar en un Linux); pero entonces lo que tienes son 28 imágenes???? y cargas la que es dependiendo de la edad de la luna? Me parece una buena solución

Estoy tratando de realizar el fork lo más parecido a la app original (la app original se puede ejecutar con wine). Aun me faltan algunos puntos.


Saludos.

razaAztk escribió: [Ver mensaje]

...pero entonces lo que tienes son 28 imágenes???? y cargas la que es dependiendo de la edad de la luna?...

Exacto, 29 imagines en realidad.

Saludos.