These tired old eyes...

[Steffan-68]

Good to see you did these transformations, are they fast, do you care to add benchmarking speeds.
As for the embedded first image, please remake it, it is awful, it damages eyes.

Glad you like it.

But the first image is not embedded, it is created and anyone can change it as they want. 
This is the code in the program.

Code: (Select All)

'sky

For y = 0 To 720

    blue = blue + .5

    Line (0, y)-(1024, y), _RGB32(0, 0, blue)

Next y

blue = 0

'Ground

For y = 501 To 720

    green = green + 2

    Line (0, y)-(1024, y), _RGB32(0, green, 0)

Next y



Color _RGBA32(0, 0, 0, 200), _RGBA32(255, 255, 255, 0)

_AcceptFileDrop

APPNAME$ = "QB64 Bildbetrachter mit Lupe . "

_Title APPNAME$ + " " + _OS$ + "  Weitere Hilfe mit der ( ? ) Taste" ' Set the program name in the titlebar"

_Delay .3

_AllowFullScreen _SquarePixels , _Smooth '







Print3D 300, 10, "Ziehen Sie ein Bild ", 6, 0, OE20, &H9CA2B474, 1, .5, .5, .5

Print3D 40, 50, "(JPG, PNG, TGA, BMP,", 1, 0, OE20, &HA1E51D7E, 1, .5, .5, .5

Print3D 370, 50, "PSD, GIF, HDR, PIC, PNM oder PCX)", 1, 0, OE20, &HA1E51D7E, 1, .5, .5, .5

Print3D 340, 90, "hier her ! ", 6, 0, OE20, &H9CA2B474, 1, .5, .5, .5

Print3D 10, 150, "Drcken sie ALT + ENTER", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 380, 150, "fr Vollbild", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 10, 190, "Leertaste fr n„chte Bild", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 10, 230, "( p ) & ( o ) fr Sound ", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 340, 230, "Pause und ON", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 10, 270, "Drcken sie( w )um zu Vergr”sern", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 550, 270, "(e) zum Verkleinern", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 10, 310, "(s) Žndert die Maus in", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 340, 310, " ein Zielfernrohr", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 10, 350, "Linke Maustaste zeigt die Lupe", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 10, 430, "( ESC ) Beendet das", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5

Print3D 300, 430, "Programm sofort", 6, 0, OE20, &H7EFFFEFF, 1, .5, .5, .5