DESSINER DES ENGRENAGES

Commentaire de f0xi le 02/06/2006 01:04:47 administrateur CS

x1:=round(outer*(SIN(Theta)))+299;
y1:=round(outer*(COS(Theta)))+299;
x2:=round(iner*(SIN(Theta)))+299;
y2:=round(iner*(COS(Theta)))+299;
x3:=round(outer*(SIN(Theta2)))+299;
y3:=round(outer*(COS(Theta2)))+299;
x4:=round(iner*(SIN(Theta2)))+299;
y4:=round(iner*(COS(Theta2)))+299;

holalala ... unité Math procedure SinCos :

var SinT, CosT : extended;
    P1,P2,P3,P4: TPoint;
begin
  SinCos(Theta,SinT,CosT);
  P1 := point( round(outer*SinT)+299, round(outer*CosT)+299);
  P2 := point( round(iner*SinT)+299, round(iner*CosT)+299);
  SinCos(Theta2,SinT,CosT);
  P3 := point( round(outer*SinT)+299, round(outer*CosT)+299);
  P4 := point( round(iner*SinT)+299, round(iner*CosT)+299);
end;

ce qui reduit considerablement le code mais aussi accelere un chouilla les calculs.

Commentaire de f0xi le 03/06/2006 14:51:26 administrateur CS

par contre, j'ai pas regarder en detail mais il semblerais qu'il y ai encore deux petites erreurs :

pour dessiner le cercle au center de l'engrenage, pourquoi ne pas utiliser Ellipse ?
pour effacer le BMP pourquoi ne pas faire FillRect ?

Commentaire de DRJEROME le 06/06/2006 15:56:24

bonjour,

pourrais-tu mettre une copie d'écran ? (shotscreen)

ça pourra insiter certains au chargement du code

merci

Commentaire de Bacterius le 15/08/2008 21:59:34

GregoSurf il existe un truc, qui s'appelle Delphi, je crois que c'est un logiciel ... attends je vais voir sur google ... ah mais oui ! attends dans Wikipedia : "Delphi is a powerful IDE (Integrated Development Environnment)" (Delphi est un puissant EDI (Environnement de Développement Intégré).
Mais attends ! il figure aussi en haut de toutes les pages de ce site !!!
Aucun doute ! il faut les ouvrir avec Delphi ces codes !!

Désolé si je donne l'impression de me foutre de ta gueule, mais j'en ai marre de voir des gens qui viennent sur le site sans même savoir de quoi il parle, ce qu'on y fait et ce qu'il faut pour pouvoir y récupérer une certaine utilité.
Alors télécharge Delphi et compile le code.
Pronto !!

Cordialement, Bacterius !