Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249196 (10632)
  Suchen
 Zurück zur Übersicht
 AutorThema: wie gehts weiter mit der schleife
Florian May
Datum:09.02.02 12:07 Antwortenals Email verschicken  


13 x 16 größes mit rot gefülltes bild als bmp
declare A%,B%,x%,y%,z%,A1%,B1%,x1%,y1%,z1%
SetTrueColor 1
cls
LoadBmp "ge.bmp", 0,0 ;0

y%=0
x%=200
y1%=0
x1%=200

WhileLoop %BmpY
y%=@Add(y%,1)
LET A% = @GetPixel(0,y%)
x%=@Add(x%,1)
SetPixel 200,x%,A%
EndWhile

WhileLoop %BmpX
y1%=@Add(y1%,1)
LET A% = @GetPixel(y1%,0)
x1%=@Add(x1%,1)
SetPixel x1%,200,A1%
EndWhile
waitkey

'Nun soll das ganze wie oben wieder anfangen aber nich wie:

...
y%=@Add(y%,1)
...
x%=@Add(x%,1)
...

sonder wie folgt:

...
y%=@Add(y%,2)
...
x%=@Add(x%,2)
...

usw. für Länge und Breiet und zwar so oft wie Lang bzw Breit das Bild ist.
Natürlich kann ich das nicht alles hinschreiben, da ich ja auch nicht weis wie weit bzw Lang das Bild ist wie kann ich das in wenigen zeilen dem Programm mitteilen?

wie bekomme ich das denn hin.....

mfg




 Zurück zur Übersicht