Autor | Thema: wie gehts weiter mit der schleife | | Datum:09.02.02 12:07 
| |
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
|
|
|