Zitat Zitat von for_ro
Hallo,
da Evert überall die For-Schleifen mit negativen Step benutzt hat, denke ich, dass wieder der bekannte Bug zugeschlagen hat. Ich dachte allerdings, der wäre in der Version 1.11.9.3 beseitigt.

Gruß

Rolf
Hallo Rolf.

Danke für Deine Antwort. Ich bin noch nicht so bewandert in Bascom, vor allem in der Historie bekannter Bugs. Kannst Du ein wenig ausführlicher werden? Oder anders herum gefragt, gibt es ein Workaround dafür ausser die Schleifen anders zu gestalten?

Danke.

[Edit]
...habe grad nochmal in den Code geschaut. Da wo es um die normale, nicht gedrehte Ausgabe geht wird keine Schleife mit negativem Step verwendet. Und die gedrehten Ausgaben funktionieren ja:

Code:
Select Case Rotation
    Case 0                    '0 degrees rotation
            For Rowcount = 0 To Row Step 8       'Loop for numbers of rows
                  A = Rowcount + Yoffset
                  For Columcount = 0 To Colums       'Loop for numbers of Colums
                      Read Pixels : If Inverse = 1 Then Toggle Pixels       'Read the byte from the file and if inverse = true then invert de byte
                      Xpos = Columcount       'Do some calculation to get the caracter on the correct Xposition
                      Temp = Carcount * Byteseach
                      Xpos = Xpos + Temp
                      Xpos = Xpos + Xoffset
                          For Pixelcount = 0 To 7       'Loop for 8 pixels to be set or not
                             Ypos = A + Pixelcount       'Each pixel on his own spot
                             Pixel = Pixels.0       'Set the pixel (or not)
                             Pset Xpos , Ypos , Pixel       'Finaly we can set the pixel
                             Shift Pixels , Right       'Shift the byte 1 bit to the right so the next pixel comes availible
                          Next Pixel
                  Next Columcount
            Next Rowcount

[/Edit]


Gruß // André