Georges
Nombre de messages : 290 Age : 55 Localisation : Martinique Date d'inscription : 29/05/2009
| Sujet: Dessiner un arc de cercle Lun 21 Nov 2011 - 18:27 | |
| bonjour à tous
@ Jack
Serait-il possible d'avoir une commande pour dessiner un arc de cercle tel que: position du centre, angle de départ et angle d'arrivée.
Il m'a semblé ne pas voir cette commande parmis celles de 2D_....
merci d'avance
salut à tous
| |
|
EWERSON
Nombre de messages : 9 Age : 34 Localisation : Manaus Date d'inscription : 06/12/2010
| Sujet: Un code d'Arc! Lun 21 Nov 2011 - 18:55 | |
| OLÁ GEORGE, DESENHAR UM ARCO É MUITO SIMPLES USANDO OS COMANDOS E FUNÇOES QUE JÁ EXISTEM NA LINGUAGEM, MAS QUANTO MAIS FÁCIL UMA COISA POSSA SER MELHOR. AQUI ESTA UM EXEMPLO: PS: VOCÊ PRECISA PRESIONAR QUALQUER TECLA PARA VER O ARCO SER DESENHADO! ESPERO TER AJUDADO.... ============================================================== BONJOUR GEORGE, Tracer un arc est très simple en utilisant les commandes et les fonctions qui existent déjà dans la langue, mais combien plus facile il mieux .. Voici un exemple: PS: vous devez appuyer sur une touche pour voir l'arc tirer! - Code:
-
' autor: Ewerson Franco ' date: 21-11-2011
' Um código de Arco! ' Un code d'Arc!
LABEL CIRCULAR
DIM RAD, N, X, Y
RAD=57.29577951
ALPHA 1 ALPHA 2 TOP 2, 20
2D_PEN_WIDTH 1
' Pressionar uma qualquer tecla para ativar ' Appuyez sur une touche pour activer
ON_KEY_DOWN 0, CIRCULAR
END
CIRCULAR: N= n+1 X=200-(100*sin(N/rad)) Y=200-(100*cos(N/rad)) 2D_CIRCLE X,Y, 5 CAPTION 1, "ANGLE: "+STR$(N) CAPTION 2, "RADIAN: "+STR$(N/rad) RETURN
J'espère avoir aidé!..... | |
|
Georges
Nombre de messages : 290 Age : 55 Localisation : Martinique Date d'inscription : 29/05/2009
| Sujet: re Mar 22 Nov 2011 - 12:59 | |
| bonjour à tous
désolé Ewerson, ce n'est pas un arc de cercle mais un cercle qui décrit un arc merci quand même
@+
| |
|
Nardo26
Nombre de messages : 2294 Age : 56 Localisation : Valence Date d'inscription : 02/07/2010
| Sujet: Re: Dessiner un arc de cercle Mar 22 Nov 2011 - 13:15 | |
| Adaptation de ewerson : - Code:
-
LABEL Arc DIM Arc_x,Arc_y,Arc_Rayon,Arc_AngleD,Arc_AngleA
Arc_x=200:Arc_y=100:Arc_Rayon=50 Arc_AngleD=0 Arc_AngleA=90 GOSUB Arc
END Arc: IF VARIABLE("Arc_i")=0 DIM Arc_i END_IF For Arc_i=Arc_AngleD to Arc_AngleA 2d_point Arc_x-(Arc_Rayon*sin(Arc_i/57.29577951)),Arc_y-(Arc_Rayon*cos(Arc_i/57.29577951)) Next Arc_i RETURN | |
|
Georges
Nombre de messages : 290 Age : 55 Localisation : Martinique Date d'inscription : 29/05/2009
| Sujet: re Mar 22 Nov 2011 - 14:53 | |
| salut à tous
merci Nardo - c'est une alternative efficace mais je ne voulais justement pas mettre une astuce d'arc dans mon progs - je voulais une commande arc comme n'importe quel commande 2D
la commande d'arc est une commande point par point - qui causera des soucis lors de changement d'échelle
merci
@+
| |
|
Contenu sponsorisé
| Sujet: Re: Dessiner un arc de cercle | |
| |
|