DU TEXTE EN SINUSOIDE POINT PAR POINT
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
3 mai 2002 à 17:07
cs_Gysmo Messages postés 209 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 13 décembre 2002 - 3 mai 2002 à 20:47
cs_Gysmo Messages postés 209 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 13 décembre 2002 - 3 mai 2002 à 20:47
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11898-du-texte-en-sinusoide-point-par-point
https://codes-sources.commentcamarche.net/source/11898-du-texte-en-sinusoide-point-par-point
3 mai 2002 à 20:47
Babaille!
3 mai 2002 à 18:49
3 mai 2002 à 17:58
bravo
3 mai 2002 à 17:07
J'ai une question : pourquoi dis-tu que Case est plus rapide que If ?
Dans le cas de comparaison en série c'est vrai ( surtout si on met les valeurs par ordre croissant ), mais dans le cas d'une seule ?
3 mai 2002 à 16:53
3 mai 2002 à 16:48
Dommage que GetPixel et SetPixel soient aussi lents...
Il est possible d'accélérer beaucoup le dessin en Utilisant TBitMap.ScanLine :
Il faut créer les bitmap en 24bits :
BmpOut.PixelFormat:=pf24Bit;
Puis utiliser les fonctions suivantes :
Function MonGetPixel(BitMap:TBitMap;i,j:Integer):TColor;
Var p:PByteArray;
Begin
P:=BitMap.ScanLine[j];
Asm
MOV EDX,P
ADD EDX,i
ADD EDX,i
ADD EDX,i
XOR EAX,EAX
MOV AL,[EDX]
SHL EAX,8
MOV AL,[EDX+1]
SHL EAX,8
MOV AL,[EDX+2]
MOV RESULT,EAX
End;
End;
Procedure MonSetPixel(BitMap:TBitMap;i,j:Integer;Couleur:TColor);
Var p:PByteArray;
Begin
P:=BitMap.ScanLine[j];
Asm
MOV EDX,P
ADD EDX,i
ADD EDX,i
ADD EDX,i
MOV EAX,Couleur
MOV [EDX+2],AL
SHR EAX,8
MOV [EDX+1],AL
SHR EAX,8
MOV [EDX],AL
End;
End;
.....
case Mongetpixel(BmpTxt,tx,ty) of
0:MonSetPixel(BmpOut,Tx+x,Ty+y+round(c),couleur);
end;
.....
3 mai 2002 à 14:59
3 mai 2002 à 13:54