Discussion :

[Roland Chastain]

Bonjour ! Je vous propose une représentation animée géocentrique du système solaire. C'est ma version Pascal de ce programme JavaScript.



Compilation (après avoir corrigé le chemin vers les unités AGGPas, en fonction de votre installation) : make

Mode d'emploi:

Appuyez sur une touche pour fermer le programme.

17/04/2026

Ajouté version plein écran.

22/04/2026

Ajouté version SDL2.

[Roland Chastain]

Mon animation est moins fluide que l'original.

Il faudrait peut-être quelque chose de plus sophistiqué que ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  while not console.KeyPressed do
  begin
    // ...
    Sleep(CDelay);
  end;

Autre différence. Dans l'original les planètes laissent une légère traînée. On voit la trajectoire qu'elles ont suivie. Je n'ai pas compris comment cet effet est obtenu. Si vous avez une idée...

[Roland Chastain]

Essayé le programme sous Windows. Violation d'accès et plantage sans ouvrir de fenêtre.

Il y a un problème, mais pas de solution pour le moment. Les programmes basés sur l'unité PTC ne fonctionnent pas sur certaines versions de Windows.

J'ai signalé le problème à tout le monde, mais pour le moment personne ne s'en occupe activement je crois.

[anapurna]

Salut.

Ici tu as un risque de division par zéro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    period := period_;
    speed := 2 * PI / period * speedScale;

Sachant que period_ vaut zéro par defaut.

[Roland Chastain]

@anapurna

Merci pour le coup d'œil.

Ajouté (dans le premier message) une version plein écran. J'ai l'impression que c'est toujours un peu moins moins beau que l'original. Je me suis à deux doigts de me convertir à JavaScript.

Note pour les utilisateurs de Windows 11 (?) : Il est possible que le programme ne fonctionne pas chez vous. Je mets un point d'interrogation parce que ce n'est toujours pas très clair.

[Roland Chastain]

Ajouté une version basée sur SDL2 (au lieu de PTCPas).

Comme précédemment, vous devez corriger dans Makefile les chemins vers les unités (dans ce cas SDL2 et AGGPas) en fonction de votre installation, puis : make

[Guesset]

Bonjour Roland,

...Dans l'original les planètes laissent une légère traînée. On voit la trajectoire qu'elles ont suivie. Je n'ai pas compris comment cet effet est obtenu...

Pour obtenir une traînée sur tout ce qui bouge, la technique la plus efficace est de faire un filtrage temporel. Cela consiste, pour chaque point de l'image de faire un mélange avec son correspondant dans l'image précédente : P(x,y)_vu = P(x,y)_vu + a*(P(x,y)_new - P(x,y)_vu).

Le coefficient a est entre 0 et 1. Si a = 0, l'image est gelée. Si a= 1, il n'y a pas de filtrage. Le filtrage a lieu entre les deux extrêmes.

Cela nécessite une image en plus (Img_new).

Si la bibliothèque permet le mixage (fusion) d'images genre Blend(img1, img2, a), il n'y a pas grand-chose à faire sinon choisir a et mettre les résultats dans Img_new avant de la fusionner avec l'image actuelle.

Sinon, il faut l'écrire Auquel cas je proposerais de travailler avec des entiers et a = k/2^u afin d'éviter toute division. Je dois avoir un truc de ce type qui traîne (pour Windows ).

Indépendamment de cela, la fluidité peut être augmentée en diminuant les sauts angulaires et la temporisation : plus de pas plus rapides se rapprochent de la continuité, donc de la fluidité. Attention, si on multiplie le nombre de pas par x, il ne suffit pas de diviser le temps par x. Il faudra certainement le diviser par plus pour tenir compte du temps de traitement accru des pas. Tant que les traitements élémentaires sont courts devant la temporisation, il n'y a pas de problème. Mais quand les temps deviennent comparables, l'algorithme aura une plus forte dépendance à la puissance machine.

Salut

[Guesset]

Bonjour,

Petite illustration (programme disponible d'environ 130 lignes).

En mouvement, les contributions des différentes images ne se distinguent pas les unes des autres.

Sur un fond noir, on peut utiliser un filtrage adapté (qui ne marchera pas sur un fond coloré) plus rapide avec une rémanence accrue et des astres jamais atténués (mais dans une certaine mesure je trouve que l'atténuation donne du modelé).

Salutations

[Guesset]

Bonjour,

Un exécutable (Windows) avec 2 astres en balade et fondu réglable : Speed.7z

Salutations

[Guesset]

Bonjour,

Le programme (sources et exe) avec deux type de fondu : Speed.7z.

Les effets sont assez faciles et le nombre d'objets ne change rien au temps pris pour générer le flou de mouvement qui ne dépend que de la taille de l'image. En revanche, la gestion même de multiples objets peut nécessiter du temps incompatible avec l'animation.

Le code utilise de l'assembleur mais pas dans des fonctions assembleur. Il devrait donc être portable sous linux pour peu que le CPU soit de la famille x64.

Salutations