Forum de Ti-Gen.org, le site francophone des TI

Bienvenue Invité ! Se connecter Mes sujets	Administrer
Utilisateurs actifs : Aucun membre + 1 visiteur

Avant de poster sur le forum, il y a des régles de bases à respecter pour une bonne entente et un respect de tous.
Veuillez lire la charte du forum.

:: Index » GFA-Basic TI68K » Bugs et suggestions » Routines pour GFA-Basic (1 réponse(s))

./POST DE DEPART (post n°0) Marquer comme non lu.

geogeo

Ecrit le: Lundi 21 mars 2005 à 20:56

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4256

Membre n°3

Inscrit le 29 janvier 2004

Postez ici des fonctions en ASM de préférences qui pourront être implantée dans GFA-Basic!

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic

./Post n°1 Marquer comme non lu.

geogeo

Ecrit le: Mercredi 4 mai 2005 à 18:27

Fondateur

Groupe: Staff de Ti-Gen

Groupe: Orage Studio

Messages: 4256

Membre n°3

Inscrit le 29 janvier 2004

Je cherche à développer une fonction capable de tracer soit un cercle vide ou un arc de cercle, j'ai déjà réalisé un lago en GFA-Basic capable de tracer très rapidement mais je voudrais l'adapter pour que qu'il puisse aussi tracer des arcs de cercle. Les valeurs phi0 et phi1 sont des angles indiquant respectivement le début et la fin de l'arc de cercle, de plus un angle est donné en le multiupliant par 10 ainsi pour 90° il faut entrer 900, 180°; 1800...

Voici l'algorithme qui trace seulement un cercle, si vous pouvez m'aider à l'adapter pour qu'il trace aussi des arcs de cercles je pourrais enfin avancer dans GFA-TEM. Cette algorithme se base sur la méthode de Bresenham avec approximation de Martin. Si vous avez plus rapide faites signe.

Cls
Input "X";X%
Input "Y";Y%
Input "R";R%
Xp%=R%
Yp%=0
Err%=-R%\2 'Division entière avec résultat en entier
Repeat
  Plot X%+Xp%,Y%+Yp%
  Plot X%-Xp%,Y%+Yp%
  Plot X%+Xp%,Y%-Yp%
  Plot X%-Xp%,Y%-Yp%

  Plot X%+Yp%,Y%+Xp%
  Plot X%-Yp%,Y%+Xp%
  Plot X%+Yp%,Y%-Xp%
  Plot X%-Yp%,Y%-Xp%

  Inc Yp%
  Add Err%,Xp%
  If Err%>0 Then
    Dec Xp%
    Sub Err%,Xp%
  Endif
Until Xp%<Yp%

Repeat
Until RR_ESC

-Edité le Mercredi 4 mai 2005 à 18:30 par geogeo-

Webmaster du site.
Programmeur sur TI68K. Arkanoid, Nebulus, GFA-Basic.

Plus d'informations sur GFA-Basic (un langage Basic pour TI68K).
http://www.tigen.org/gfabasic