suggestion suprimer StartDrawing()
Publié : mer. 18/janv./2006 14:00
aujourd'hui pour dessiner sur l'ecran on fait
pour dessiner sur une image on fait
pourquoi ne pas se debarrasser de "StartDrawing()" et de "StopDrawing()"
car comment faire si l'on veux lire un point sur une image puis l'ecrire sur l'ecran
on est obligé de faire un truc du genre :
c'est plutot ringard n'est -ce pas ??
si l'on pouvait mettre la direction des commande dans le nom de la commande genre :
screen_plot (x,y,couleur)
image_point(x,y,numero d'image)
ect ..
cela permetrai des codes beaucoup plus court
ont pourrai mettre dans une seul boucle et 6 lignes ce qu'il faut actuellement faire en 2 boucle et 15 ligne !!!
StartDrawing ( ScreenOutput ())
For X=1 To Largeur
For Y=1 To Hauteur
Plot (X,Y,couleur)
Next Y
Next X
StopDrawing ()
pour dessiner sur une image on fait
StartDrawing ( imageOutput ())
For X=1 To Largeur
For Y=1 To Hauteur
Plot (X,Y,couleur)
Next Y
Next X
StopDrawing ()
pourquoi ne pas se debarrasser de "StartDrawing()" et de "StopDrawing()"
car comment faire si l'on veux lire un point sur une image puis l'ecrire sur l'ecran
on est obligé de faire un truc du genre :
Dim tableau(X,Y)
StartDrawing ( ImageOutput ())
For X=1 To Largeur
For Y=1 To Hauteur
tableau(X,Y)= Point (X,Y)
Next Y
Next X
StopDrawing ()
StartDrawing ( ScreenOutput ())
For X=1 To Largeur
For Y=1 To Hauteur
Plot (X,Y,tableau(X,Y))
Next Y
Next X
StopDrawing ()
c'est plutot ringard n'est -ce pas ??


si l'on pouvait mettre la direction des commande dans le nom de la commande genre :
screen_plot (x,y,couleur)
image_point(x,y,numero d'image)
ect ..
cela permetrai des codes beaucoup plus court
ont pourrai mettre dans une seul boucle et 6 lignes ce qu'il faut actuellement faire en 2 boucle et 15 ligne !!!
For X=1 To Largeur
For Y=1 To Hauteur
couleur=image_Point(X,Y)
screen_plot(X,Y,couleur)
Next Y
Next X