Site logo

Triceraprog
La programmation depuis le Crétacé

  • Après la ligne, le cercle ()

    Après avoir tracé des segments de droite à l'écran grâce au BASIC du VG5000µ, passons au cercle.

    Si vous avez fait un peu de trigonométrie à l'école, vous devez savoir que, pour un angle α allant de 0 à , tracer des points aux coordonnées (cos(α), sin(α)). Ces coordonnées sont multipliées par le rayon et déplacées au centre du cercle. Et c'est comme cela qu'il peut sembler de prime abord intéressant de tracer un cercle.

    Cela ressemble à quelque chose comme ça.

    • initialiser cx et cy avec les coordonnées du centre du cercle, r avec son rayon
    • initialiser a à 0
    • tant que $a < 2\pi$
      • $x = cx + r.cos(a)$
      • $y = cy + r.sin(a)$
      • tracer un point en (x, y)
      • augmenter a
    • fin

    Super simple.

    Mais trop simple.

    Dans l'algorithme ci-dessus, la ligne qui indique augmenter a n'indique pas de combien il faudrait augmenter a.

    Lorsque l'on trace un cercle avec un crayon sur une feuille, on prend quelques points de références bien choisi, puis on interpole entre ces points pour tracer la courbe. Si on utilise un compas, c'est encore plus simple, il suffit de deux points de référence : le centre et un point du rayon.

    Nous avons ici le même problème que lorsque l'on cherchait à tracer un segment de droite : l'espace de tracé des points à l'écran n'est pas continu. Il s'agit dans notre cas d'allumer des pixels de manière à provoquer l'illusion de la continuité.

    S'ils sont trop tassés, c'est moche. S'ils sont trop espacés, ça fait des trous.

    Prenons un exemple avec cx = 6, cy = 5 et r = 5. Augmentons a d'un dixième de π à chaque fois. Voilà ce que cela donne :

    a 0.pi/10 1.pi/10 2.pi/10 3.pi/10 4.pi/10 5.pi/10 6.pi/10 7.pi/10 8.pi/10 9.pi/10
    x 11 11 10 9 8 6 4 3 2 1
    y 5 7 8 9 10 10 10 9 8 7
    a 10.pi/10 11.pi/10 12.pi/10 13.pi/10 14.pi/10 15.pi/10 16.pi/10 17.pi/10 18.pi/10 19.pi/10
    x 1 1 2 3 4 6 8 9 10 11
    y 5 3 2 1 0 0 0 1 2 3

    Traçons cela sur une grille.

    Cercle 1

    Tout comme avec le segment de droite au début, il y a des trous. Et si le rayon augmente, il y aura encore plus de trous. On peut se dire alors qu'on augmente a par de plus petites valeurs. Mais on voit sur le dessin qu'à certains endroits, les pixels sont adjacents. Cela signifierait qu'il faudrait, suivant les endroits, augmenter a différemment.

    Arrêtons-nous là pour deux raisons : la première est que l'on sent bien que cela va nous amener vers des choses vraiment complexes. La seconde est que calculer le cosinus et le sinus sur une machine ancienne de ce type, c'est lent, très lent. Certes, notre affichage de pixel est lent lui aussi, n'ajoutons pas du lent au lent.

    Mais alors que faire ?

    Changer de stratégie, et surtout, d'équation de départ. L'équation d'un cercle est aussi celle-ci : $x^2 + y^2 - r^2 = 0$. Où r est le rayon. Un tel cercle est centré sur les coordonnées (0, 0) mais il suffit d'y ajouter les coordonnées du centre du cercle voulu pour le déplacer dans l'espace.

    Équation sur le cercle

    La deuxième chose que l'on va faire est, comme avant pour le segment de droite, de simplifier le problème en utilisant des octants, c'est-à-dire une division en huit secteurs. Ces secteurs sont choisis pour leurs axes de symétries sur le cercle de manière à ce que, pour un octant donnée, nous puissions nous occuper d'un cas très simple.

    Je vous invite à aller voir l'image plus bas pour repérer les axes de symétries utilisés.

    Une méthode

    En commençant par le point le plus haut du cercle et sur l'octant en haut à droite, on peut réduire le problème à une courbe qui part dans la direction générale entre la droite et la diagonale droite-bas. Dans ce secteur, un pixel aura pour voisin suivant soit le pixel juste à sa droite, soit le pixel juste au-dessous celui à sa droite.

    Si on trouve comment tracer ce petit morceau de courbe, il suffit de tracer les huit courbes symétriques sur le cercle pour obtenir la forme complète.

    Comment choisir si le pixel suivant le pixel courant doit être celui à sa droite ou celui en diagonal ? En utilisant la partie gauche de la formule ci-dessus pour évaluer la position du cercle parfait par raport à un point situé entre les deux points éligibles.

    Si le résultat est inférieur à 0, alors c'est que le point médian est à l'intérieur du cercle. On choisi alors le pixel à droite comme coordonnée suivante.

    Si le résultat est supérieur à 0, alors c'est que le point médian est à l'extérieur du cercle. On choisi alors le pixel en bas à droite comme coordonnée suivante.

    Et ainsi de suite jusqu'à ce que la coordonnée x soit supérieure à la coordonnée y, ce qui signal la fin de l'octant, puisque nous aurons alors atteint la diagonale.

    Reprenons :

    • initialiser cx et cy avec les coordonnées du centre du cercle, r avec son rayon
    • initialiser (x, y) à (0, r), c'est à dire le point au sommet du cercle.
    • tant que x ≤ y
      • tracer le pixel(x + cx, y + cy) et ses sept symétries.
      • calculer $m = (x+1)^2 + (y-0.5)^2 - r^2$
      • si m >= 0 alors $x \leftarrow x + 1$ et $y \leftarrow y - 1$
      • sinon $x \leftarrow x + 1$
    • fin

    Voyons ce que cela donne avec les même entrées que précédemment :

    x 6 7 8 9
    y 10 10 10 9
    m -3.75
    (suivant à droite)
    -0.75
    (suivant à droite)
    4.25
    (suivant en bas à droite)
    3.25

    Le cercle n'a plus de trous, les pixels sont voisins et forment une illusion de continuité. Ce qui donne sur du papier quadrillé, avec en noir les coordonnées ci-dessus et en gris les différents symétriques.

    Cercle 2

    Note : cet algorithme n'est pas le seul possible et nous verrons lors de son implémentation qu'il peut être simplifié au niveau de ses calculs. Mais ceci est une autre histoire.

    Note 2 : le second algorithme présenté est l'algorithme de tracé de cercle de Bresenham, du nom de son auteur.


  • Récréation 3D, Commodore PET 2001 ()

    Ah les monoblocs bien lourds, mais au design tellement reconnaissable. Cet ordinateur a aussi la particularité d'avoir un clavier particulièrement... pas pratique. Les modèles suivant troqueront le lecteur/enregistreur à cassette par un clavier de nettement meilleur qualité.

    Commodore PET 2001 en 3D


  • VG5000µ, tracer une ligne en BASIC ()

    Après avoir décrit un algorithme de tracé de segment de droite de manière générique, voyons un peu comment traduire ça en BASIC sur le VG5000µ. Pour ce premier article, il s'agira d'une implémentation simpliste, qui servira de base.

    Pour rappel, voici l'algorithme générique :

    • En entrée, on a deux points de coordonnées (x, y) et (x', y')
    • Si x' est plus petit que x, échanger les valeurs de x et x' ainsi que de y et y'
    • Choix de l'octant en fonction de |y' - y| et de |x' - x|
    • Si on fait un balayage des x, alors
      • Calculer la pente $a = \frac{(y' - y)}{(x' - x)}$
      • Calculer $b = \frac{x'y - xy'}{x'-x}$
      • Pour tous les x'' de x à x', calculer $y'' = ax'' + b$.
      • Tracer un pixel en (x'', y'').
    • Si on fait un balayage des y, alors
      • Si y' est plus petit que y, échanger les valeurs de x et x' ainsi que de y et y'
      • Calculer la pente $a = \frac{(x' - x)}{(y' - y)}$
      • Calculer $b = \frac{y'x - yx'}{y'-y}$
      • Pour tous les y'' de y à y', calculer $x'' = ay'' + b$
      • Tracer un pixel en (x'', y'')

    Il s'agit à présent de transformer ces instructions en instructions BASIC. Je me base sur l'implémentation de tracé de point publié précédemment, implémenté entre les lignes 100 à 250.

    C'est quelque chose de classique en BASIC de l'époque, les routines, c'est-à-dire des sous-programmes dédiés à une tâche, sont implémentées à des lignes précises. Dans le cas de mon tracé de point, la routine est re-logeable, il est possible de changer les numéros de ligne sans problème.

    Cette routine utilise les variables X et Y en entrée. Elle utilise aussi en interne les variables ZX, ZY, RX, RY, CH, DI, AT et OL. Cela signifie que ces variables, si elles sont utilisées ailleurs dans le programme, verront leur contenu changer à l'appel de la routine.

    C'est, j'en ai déjà parlé, une limitation gigantesque des BASIC de cet époque. Même si, ALGOL, un langage antérieur, avait introduit la portée lexicale des variables, la compartimentation des différentes parties d'un programme n'est pas un acquis lors de la création du BASIC et les versions disponibles sur les ordinateurs familiaux, par soucis d'accessibilité très certainement, ont gardé cette limitation.

    Veillons donc juste à être prudent avec le nom des variables utilisées.

    Préambule

    Je vais implémenter la routine de segment de droite à partir de la ligne 300, soit après l'implémentation du point. Il y a une raison pour cela que j'expliquerai sûrement plus tard.

    La routine commence par une petite documentation du fonctionnement. Ces commentaires sont complètement optionnels mais bien utiles pour les utilisateurs futurs. Voire pour moi, me rappeler plus tard ce que j'avais décidé.

    300 REM AFFICHE UN SEGMENT DE DROITE DANS L'ESPACE SEMI-GRAPHIQUE
    310 REM X1 ET Y1 CONTIENNENT LES COORDONNEES DE DEPART
    320 REM X2 ET Y2 CONTIENNENT LES COORDONNEES D'ARRIVEE
    

    Puis vient l'échange des coordonnées. Comme le BASIC du VG5000µ n'a pas de commande pour inverser le contenu de deux variables (c'est une instruction plutôt rare), il me faut passer par une variable intermédiaire que je nomme TT. On reconnaîtra bien là les pâtés caractéristique des programmes BASIC de l'époque. Plein de lettres et de signes collés.

    330 IF X2<X1 THEN TT=X1:X1=X2:X2=TT:TT=Y1:Y1=Y2:Y2=TT
    

    Il faut ensuite, pour décider de l'octant et donc du balayage, savoir si on est plus de la verticale que de l'horizontale. Pour cela, on peut calculer la valeur absolue de la différence des X (abscisses) et des Y (ordonnées).

    340 AX=ABS(X2-X1):AY=ABS(Y2-Y1)
    

    Vient ensuite la sélection de la sous-routine à utiliser, en fonction de balayage utilisé. L'instruction conditionnelle IF du BASIC du VG5000µ n'a pas de clause ELSE comme sur beaucoup d'autres BASIC. Une solution (il y en a d'autres) est d'écrire les deux choix explicitement.

    Si la condition indiquée après le IF est vérifiée, alors le programme continuera à la ligne indiquée après l'instruction GOSUB. Lorsque l'interpréteur BASIC rencontrera l'instruction RETURN, le déroulement reprendra après le GOSUB.

    350 IF AX >= AY THEN GOSUB 400
    360 IF AX < AY THEN GOSUB 500
    370 RETURN
    

    Balayages

    Reste à écrire les deux balayages différents. Commençons par les X.

    400 A=(Y2-Y1)/(X2-X1)
    410 FOR X=X1 TO X2
    420 Y=INT(0.5+Y1+A*(X-X1))
    430 GOSUB 100
    440 NEXT X
    450 RETURN
    

    Il n'y a pas de fonction d'arrondi disponible. La fonction est émulée en prenant la partie entière, c'est-à-dire sans les chiffres après la virgule, du nombre augmenté de 0.5. La fonction pour obtenir la partie entière est INT.

    La ligne 420 est une simplification du calcul de b dans l'équation de la droite, valide pour les valeurs de x du segment de droite. Je vous laisse faire le calcul.

    Pour le balayage des Y, il faut commencer par échanger les coordonnées si nécessaire.

    500 IF Y2<Y1 THEN TT=X1:X1=X2:X2=TT:TT=Y1:Y1=Y2:Y2=TT
    

    Puis le balayage en lui-même est effectué.

    510 A=(X2-X1)/(Y2-Y1)
    520 FOR Y=Y1 TO Y2
    530 X=INT(0.5+X1+A*(Y-Y1))
    540 GOSUB 100
    550 NEXT Y
    560 RETURN
    

    La ligne 530 comme la 420 est une simplification des calculs.

    Et voilà. Une routine de tracé de segment de droite avec les moyens du bord, en BASIC VG5000µ.

    Petite modification avant le récapitulatif, les lignes 500 et 330 font toutes les deux l'échange des coordonnées. Se répéter en programmation est mauvais signe dans une grande partie des cas. Déplaçons cette partie dans une sous-routine.

    330 IF X2<X1 THEN GOSUB 270
    
    500 IF Y2<Y1 THEN GOSUB 270
    
    270 TT=X1:X1=X2:X2=TT:TT=Y1:Y1=Y2:Y2=TT
    280 RETURN
    

    Récapitulatif

    300 REM AFFICHE UN SEGMENT DE DROITE DANS L'ESPACE SEMI-GRAPHIQUE
    310 REM X1 ET Y1 CONTIENNENT LES COORDONNEES DE DEPART
    320 REM X2 ET Y2 CONTIENNENT LES COORDONNEES D'ARRIVEE
    
    330 IF X2<X1 THEN GOSUB 380
    
    340 AX=ABS(X2-X1):AY=ABS(Y2-Y1)
    350 IF AX >= AY THEN GOSUB 400
    360 IF AX < AY THEN GOSUB 500
    370 RETURN
    
    380 TT=X1:X1=X2:X2=TT:TT=Y1:Y1=Y2:Y2=TT
    390 RETURN
    
    400 A=(Y2-Y1)/(X2-X1)
    410 FOR X=X1 TO X2
    420 Y=INT(0.5+Y1+A*(X-X1))
    430 GOSUB 100
    440 NEXT X
    450 RETURN
    
    500 IF Y2<Y1 THEN GOSUB 380
    510 A=(X2-X1)/(Y2-Y1)
    520 FOR Y=Y1 TO Y2
    530 X=INT(0.5+X1+A*(Y-Y1))
    540 GOSUB 100
    550 NEXT Y
    560 RETURN
    

    Utilisation

    Voici par exemple une utilisation du programme pour tracé un dessin. Sur chacune des lignes, les coordonnées des lignes sont mentionnées puis la sous-routine est appelée. La commande DISPLAY exécutée ensuite sert à forcer le rafraîchissement de l'écran après chaque ligne.

    Comme indiqué précédemment, c'est long, très long. Il faut environ 17 secondes sur la machine pour contempler le résultat. Le VG5000µ nous laisse peu d'options en restant dans le BASIC pour améliorer cela. Nous essaierons cependant une prochaine fois.

    10 GOTO 1000
    
    1000 INIT
    1010 X1=10:Y1=15:X2=35:Y2=5:GOSUB 300:DISPLAY
    1020 X1=60:Y1=15:X2=35:Y2=5:GOSUB 300:DISPLAY
    1030 X1=10:Y1=15:X2=35:Y2=60:GOSUB 300:DISPLAY
    1040 X1=60:Y1=15:X2=35:Y2=60:GOSUB 300:DISPLAY
    1050 X1=60:Y1=15:X2=10:Y2=15:GOSUB 300:DISPLAY
    1060 END
    

    Résultat de tracé de segments


  • Une autre récréation 3D ()

    Je continue sur ma lancée avec une évocation d'Altaïr 8800, un ordinateur de 1975, vendu en kit. Si vous avez un peu de temps, une série de vidéos explique son utilisation, depuis les bases. C'est un clone récent qui est utilisé.

    Altaïr en 3D


  • Récréation 3D ()

    Aujourd'hui, j'ai préparé quelques illustrations sous forme d'évocations de machines connues. Voici une première image, qui j'espère évoque assez bien la machine dont j'ai parlé jusqu'à maintenant sur ce site.

    VG5000µ en 3D


« (précédent) Page 19 / 22 (suivant) »

Tous les tags

3d (14), 6809 (1), 8bits (1), Affichage (24), AgonLight (2), Altaïr (1), Amstrad CPC (1), Apple (1), Aquarius (2), ASM (30), Atari (1), Atari 800 (1), Atari ST (2), Automatisation (4), BASIC (30), BASIC-80 (4), C (3), Calculs (1), CDC (1), Clion (1), cmake (1), Commodore (1), Commodore PET (1), CPU (1), Debug (5), Dithering (2), Divers (1), EF9345 (1), Émulation (7), Forth (3), Game Jam (1), Hector (3), Histoire (1), Hooks (4), i8008 (1), Image (16), Jeu (14), Jeu Vidéo (4), Livre (1), Logo (2), Machine virtuelle (2), Magazine (1), MAME (1), Matra Alice (3), MDLC (7), Micral (2), Motorola (1), MSX (1), Musée (2), Nintendo Switch (1), Nombres (3), Optimisation (1), Outils (3), Pascaline (1), Peertube (1), Photo (2), Programmation (3), Python (1), ROM (15), RPUfOS (5), Salon (1), SC-3000 (1), Schéma (5), Synthèse (14), Tortue (1), Triceraprog (1), VG5000 (62), VIC-20 (1), Vidéo (1), Z80 (20), z88dk (1)

Les derniers articles

Instance Peertube pour Triceraprog
Environnement de développement pour Picthorix
Un jeu en Forth pour Hector HRX : Picthorix
Yeno SC-3000 et condensateurs
Suite de tests pour VG5000µ
Un peu d'Atari ST
Le Forth sur Hector HRX
J'MSX 24 et un micro jeu
Récréation 3D, Matra Alice
Tuiles des plus très-curieuses

Atom Feed

Réseaux