★ APPLICATIONS ★ PROGRAMMATION ★ FONCTION CIRCLE ★ |
Fonction Circle (CPC Revue) | Applications Programmation |
L'AMSTRAD a, on le sait, de bonnes capacités graphiques, mais la fonction CIRCLE manque à l'appel. Pour pallier à ce défaut, nous vous proposons ci-dessous un petit programme en langage machine qui vous permettra d'obtenir cette fonction directement par son nom à partir du Basic. Pourquoi en langage machine plutôt qu'en Basic ? Tout simplement pour avoir une grande rapidité d'exécution.FONCTIONNEMENT DU PROGRAMME Pour éviter d'utiliser les routines SIN et COS de la ROM du CPC, nous avons opté pour l'implantation en mémoire d'une table de 'Sinus et de Cosinus d'angles compris entre 0 et 2 PI (360°). Bien sûr, il n'était pas question de travailler alors avec des valeurs à virgule flottante, aussi, afin d'obtenir des nombres entiers, chaque valeur des tables a été multipliée par 127 (7 FH) et séparée de sa partie décimale. On obtient ainsi deux tables dont les données, comprises entre 0 et 127, correspondent en réalité à 1 -cos et 1 -sin, ceci afin de s'affranchir des valeurs négatives. Tout cela reviendra en fait à ne prendre en considération que deux chiffres après la virgule dans la table de sin et de cos. La suite devient alors très simple et se résume à de simples multiplications et divisions : Connaissant les coordonnées X et Y du centre du cercle à dessiner ainsi que son rayon, on peut écrire, en partant du point A et en faisant varier l'angle de 0 à 2 ir, que les coordonnées de chaque point du périmètre du cercle ont pour valeur : XD = X + R-R(1 -cos a) = X + R cos a avec : XR = X + R et 1 -cos a 1 -sin a contenus dans les tables. XD = XR-R(1 -cos a) UTILISATION DU PROGRAMME Après avoir tapé soigneusement le programme et surtout les lignes de DATA, il suffit de faire RUN pour l'implanter en mémoire. Si tout se passe bien (aucune erreur), un cercle devra se dessiner au bout de quelques secondes. La fonction CIRCLE sera alors disponible en faisant : CIRCLE,X,Y,R,C Notez qu'il est alors possible de sauvegarder uniquement la routine en langage machine en faisant : SAVE "CIRCLE",B,&A000, &A1D4 Pour la recharger et la valider avant utilisation, il faudra faire : MEMORY &9FFF Dès lors, son utilisation sera possible en Basic par le mot CIRCLE précédé, ne l'oubliez pas, de "|" (shift @).
|