Bilder verkleinern und vergroessern

[dysti]

Hallo,
ich möchte meine Fotos in einem Imagegadget verkleinern und vergrößern.
Mit einem Webgadget ging es gut. Aber er ist abhängig von der Installation des Internetexplorers.
Desweiteren kam hier im Forum der Hinweis auf das Imagegadget.
Also habe ich es mit dem Imagegadget, Resizegadget und Setgadgetstate probiert.

Leider mit einem kläglichen Ergebnis:
Wenn ich die Fotos verkleinere, habe ich Klötzchenbildung oder Schnee (#PB_Image_Smooth) je nach Flag in der Anzeige.

Wie kann ich die Fotos verkleinert darstellen ohne Klötzchenbildung?
Hinweis: Art Zoomfunktion

[STARGÅTE]

wenn ich bilder/Images mit der Procedure
ResizeImage(#Image, Breite, Höhe [, Modus])
und Kantanglättung verkleinere habe ich kein "Klötzer"

Ich kann mir darunter auch gerade nix vorstellen.

Kannst du mal ein Beispiel zeigen ?

Ich meine wenn du Landschaftsbilder auf 64*64 oder noch keiner Zooms musst du dich nicht wundern wenn du "nix" mehr erkennst.
Aber mit #PB_Image_Smooth bei Resize sollte es wenigsten geglättet sein.

Hinweis:
Es gibt ubrigens keinen verlustfreien zoom in kleinere, denn die Pixel werden ja nicht kleiner, sondern viele Pixel werden zu wenigen zusammen gezogen, das da dann einige Pixel auf der strecke bleiben ist nun mal so, dafür gibs ja die besagte Kantenglättung.

[dysti]

Hallo,
hier sind die Beispiele.
Dieses wurde mit Imagegadget und resizegadget angezeigt:



und dieses wurde verkleinert mit dem Webgadget dargestellt:



Wie man einwandfrei erkennt, ist trotz der kleineren Darstellung im Webgadget die Darstellung um vieles besser.

Aber es müßte doch auch mit dem Imagegadget funktionieren oder?

[STARGÅTE]

okee, kannst du bitte noch den Codeausschnitt dazu posten...

sonst kann ich nicht auf mögliche Fehler eingehen ...

[Kaeru Gaman]

yup... das obere ist wahrscheinlich vergrößert worden ohne smooth.
beim alleinigen verkleinern kann sowas nicht passieren.


... mich wunderte sowieso das wort "verkleinern" im ersten posting.

[dysti]

hey @Kaeru Gaman, es ist genau anders herum, das obere ist nicht vergrößert worden, sondern in der Darstellung verkleinert.

Nun noch ein Beispielcode:

Code: Alles auswählen

UseJPEGImageDecoder()
Global breite
Global hoehe
Global neueLaenge

 OpenWindow(0, 0, 0, 800, 600, "Bilder anzeigen", #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
        ButtonGadget(10, 5, 5, 80, 25, "Laden")
        ButtonGadget(11, 90, 5, 80, 25, "Verkleinern")
        ButtonGadget(12, 170, 5, 80, 25, "Vergrößern")
        
    If LoadImage(3,"foto1.jpg")
    
        breite = ImageWidth(3)
        hoehe = ImageHeight(3)
        neueLaenge=breite
        ScrollAreaGadget(2, 0, 50, 700, 500 , breite, hoehe, 10,#PB_ScrollArea_Flat)
        ImageGadget(1, 0, 0, breite, hoehe, ImageID(3))
        
    EndIf
  
  Repeat
    Event = WaitWindowEvent()
    
    EventType = EventType()
    
    Select Event
      Case #PB_Event_Gadget
      
      
        Select EventGadget()
          Case 11
          ;FreeGadget(1)
           
          neueLaenge=neueLaenge-100
          Gosub berechnen
          
          ResizeImage(3, breite, hoehe, #PB_Image_Raw)
          ;ResizeImage(3, breite, hoehe, #PB_Image_Smooth)
          ImageGadget(1, 0, 0, breite, hoehe, ImageID(3))
          ResizeGadget(1, #PB_Ignore, #PB_Ignore, breite, hoehe)
          SetGadgetState(1, ImageID(3))
          SetGadgetAttribute(2, #PB_ScrollArea_InnerWidth, breite)
          SetGadgetAttribute(2, #PB_ScrollArea_InnerHeight, hoehe)
          
          Case 12
           
          neueLaenge=neueLaenge+100
          Gosub berechnen
          ResizeImage(3, breite, hoehe, #PB_Image_Raw)
          ;ResizeImage(3, breite, hoehe, #PB_Image_Smooth)
          ResizeGadget(1, #PB_Ignore, #PB_Ignore, breite, hoehe)
          SetGadgetState(1, ImageID(3))
          SetGadgetAttribute(2, #PB_ScrollArea_InnerWidth, breite)
          SetGadgetAttribute(2, #PB_ScrollArea_InnerHeight, hoehe)
          
        EndSelect
      
    EndSelect
  Until Event = #PB_Event_CloseWindow
  
  
  berechnen:
  
  If breite < hoehe
  Swap breite, hoehe
  wechsel.l = #True
Else
  wechsel.l = #False
EndIf

; wir wollen das Bildverhältnis breite zu hoehe behalten, also
verhaeltnis.f = 1.0 * hoehe / breite
nbreite = neueLaenge
nhoehe = nbreite * verhaeltnis ; hier kann gerundet werden

; wir müssen nun ggf. beidemale W mit H vertauschen
If wechsel
  Swap breite, hoehe
  Swap nbreite, nhoehe
EndIf

breite=nbreite
hoehe=nhoehe
  
Return 

Hier das Originalfoto:

www.matthiesen.bplaced.net/foto1.JPG

[ts-soft]

Wie soll denn das funktionieren?
Ohne das irgendeine Resizeereignis aufgetreten ist, resizede immer wieder das resizede Bild?

Ausserdem ist da Code in Deinem Eventloop, an einer Stelle wo kein Code
hingehört, nämlich ausserhalb der Ereignisse

Ändere das Resizen also darauf ab, das es nur resized wird, wenn sie was an
der Fenstergröße geändert hat und nimm immer das orginal zum resizen.

Bei Deinem Codestil vergeht mir aber jede Lust das da exemplarisch
einzubauen, Du weiß was ich mein

Gruß

Thomas

[Kaeru Gaman]

also, ich finde auch dass eine subroutine ohne End davor bestenfalls unsauber ist,
und das man sowieso lieber ne procedure verwenden sollte.

Auch das resizen von Ursprungsbild aus durchzuführen halte ich für eine gute idee.

es ist tatsächlich möglich, dass das wiederholte verkleinern des bereits verkleinerten Images diese Artefakte erzeugt.

interessant auch der effekt, wenn man von einer gewissen verkleinerung wieder vergrößert, dann werden mosaik-kacheln draus...

... und wenn du descriptiv benamste Konstanten verwendet hättest statt abstrakte Nummern,
wäre ts vielleicht auch drauf gekommen, dass das zwei buttons zum vergrößern und verkleinern sind...

[ts-soft]

> wäre ts vielleicht auch drauf gekommen
So genau guck ich mir das dann nicht mehr an
Gosub finde ich lustig, erinnert mich an meine Jugend
Warum das berechnen am ende des Programmes, wenn alles vorbei ist,
nochmal durchgeführt wird entzieht sich natürlich meiner Kenntnis. Habe
mit sowas seit 30 Jahren nichts mehr zu tun gehabt

Die Umwandlung und Berechnung in Float ist auch total überflüssig (machen
aber viele). Nur beachten das erst multipliziert wird und dann dividiert.

[dysti]

Hey,
gosub hin, gosub her. Code nur aus dem Codearchiv genommen.
Mir geht es nur im Prinzip darum, ob es überhaupt geht mit einem Imagegadget.
Habe trotz mehrwöchigen Suchen in Foren keinen Code gefunden,
der ein Bild verkleinert.
Jetzt stehe ich total auf den Schlauch.
Bitte, bitte, ich weiß nicht mehr weiter.