bmp tga jpg to Data
-
- Messages : 1500
- Inscription : jeu. 25/mars/2004 11:23
- Localisation : Sophia Antipolis (Nice)
- Contact :
Pourquoi tu passes par un tableau pour stocker les valeurs de tes pixels, pour les écrire juste après avec une double boucle FOR ?
Lio
Lio

Webmestre de Basic-univers
Participez à son extension: ajouter vos programmes et partagez vos codes !
Participez à son extension: ajouter vos programmes et partagez vos codes !
parce que mon code n'est absolument pas optimisélionel_om a écrit :Pourquoi tu passes par un tableau pour stocker les valeurs de tes pixels, pour les écrire juste après avec une double boucle FOR ?
Lio

(je vais paufiner la chose

ps : et puis la mise en tableau permet l'inversion, ou tout un tas de bidouille sur les pixels .....

-
- Messages : 1500
- Inscription : jeu. 25/mars/2004 11:23
- Localisation : Sophia Antipolis (Nice)
- Contact :
C'est sûr, mais dans ce cas ça peut toujours se faire dans le même double boucle For :Dobro a écrit :parce que mon code n'est absolument pas optimisélionel_om a écrit :Pourquoi tu passes par un tableau pour stocker les valeurs de tes pixels, pour les écrire juste après avec une double boucle FOR ?
Lio
(je vais paufiner la chosemerci )
ps : et puis la mise en tableau permet l'inversion, ou tout un tas de bidouille sur les pixels .....
Code : Tout sélectionner
If StartDrawing(ImageOutput(#image))
; ***********mise en tableau ************
For i = 0 To hauteur -1
For j = 0 To largeur -1
Read a.l
tableau(j, i)=a.l
Plot(j,i,tableau(j,i))
Next j
Next i
StopDrawing()
EndIf

Webmestre de Basic-univers
Participez à son extension: ajouter vos programmes et partagez vos codes !
Participez à son extension: ajouter vos programmes et partagez vos codes !
heu ! Franchement t'avais vraiment cru que j'avais pas compris ?lionel_om a écrit :C'est sûr, mais dans ce cas ça peut toujours se faire dans le même double boucle For :
LioCode : Tout sélectionner
If StartDrawing(ImageOutput(#image)) ; ***********mise en tableau ************ For i = 0 To hauteur -1 For j = 0 To largeur -1 Read a.l tableau(j, i)=a.l Plot(j,i,tableau(j,i)) Next j Next i StopDrawing() EndIf




-
- Messages : 1500
- Inscription : jeu. 25/mars/2004 11:23
- Localisation : Sophia Antipolis (Nice)
- Contact :
Non c'est pour si y'avait un petit nouveau qui passait dans le coin...Dobro a écrit :heu ! Franchement t'avais vraiment cru que j'avais pas compris ?![]()
![]()
Merci quand meme

Webmestre de Basic-univers
Participez à son extension: ajouter vos programmes et partagez vos codes !
Participez à son extension: ajouter vos programmes et partagez vos codes !