BlitzBasic Portal Worklogs - oMage

und schon wieder was neues...

mabox — Sat, 21 Feb 2009 13:27:31 +0100

Neu hinzugekommen ist eine Art Menü, in welchem man ein Bilderverzeichnis auswählen, oder ein neues erstellen kann. Somit ist jetzt auch die erste Version zum runterladen fertig: Download
Gern könnt ihr Kritik und Bugs melden.

Das Problem mit der Auflösung ist nun gelöst, doch damit kam sofort das nächste und zwar ergeben sich je nach dem Größenverhältnis des Originalbilds und der kleinen Bilder manchmal schwarze Ränder rechts und unten. Das lässt sich aber nachbearbeiten oder man achtet halt auf ein gerades Verhältnis beim wählen der Größe.

da tut sich noch was

mabox — Fri, 20 Feb 2009 16:56:26 +0100

So, endlich mal wieder eine Meldung meinerseits.

Hab jetzt das einlesen des Hauptbilds ein Wenig verbessert. Das Hauptbild wird nicht mehr verkleinert zum die Pixel auslesen sondern die Pixel werden jetzt alle ausgelesen, die Helligkeitswerte werden addiert und später durch die breite*hoehe der kleinen Bilder geteilt. Dadurch wird das Bild weicher und sieht schöner aus. hier ein Beispiel....

Leider kam durch diese Veränderung aber wieder ein Bug dazu, den ich noch finden muss und zwar klappt das Auslesen der Pixel jetzt nur noch, wenn die Auflösung des Fensters so groß ist wie die des Bildes.

Anzahl Bugs = 0

mabox — Mon, 05 Jan 2009 12:43:34 +0100

So endlich alle Bugs entfernt. Die erstellten Bilder können sich sehen lassen. Für den Eigengebrauch alles schön und gut.
Aber damit auch andere was davon habe soll jetzt noch eine Benutzeroberfläche her, damit die Bedienung einfacher ist und nicht alles eingegeben werden muss.
An Futures und Einstellungsmöglichgkeiten ist bis jetzt geplant:
- zu verarbeitendes Bild und zu durchsuchender Ordner können ins Fenster gezogen werden (Drag n' Drop).
- Einstellungsmöglichkeit ob Unterordner auch nach Bildern durchsucht werden sollen.
- Einstellbare Größe des Originalbilds
- Anzahl der kleinen Bilder horizontal (vertikale Anzahl wird automatisch ermittelt)
- Seitenverhältnis der kleinen Bilder
- TFormfilter An/Aus

speeeed

mabox — Fri, 02 Jan 2009 17:00:03 +0100

So nun läuft das Bilder laden und einzeichnen mehr als doppelt so schnell in Gegensatz zu vorher. Dank Xeres, welcher mir dazu einen guten Teil Code geliefert hat, so dass ich ihn nur noch einbauen musste.

EDIT: Bild entfernt

fürs Auge

mabox — Thu, 01 Jan 2009 23:40:34 +0100

so, hier nochmal ein erstelltes Bild. Am besten siehts aus wenn man es aus einiger Entferung betrachtet.

weiter gehts!

mabox — Thu, 01 Jan 2009 18:55:51 +0100

so, diesmal ists wirklich schon sehr lange her....aber es geht tatsächlich weiter.

In dem Programm gibt es, wie schon vorher beschrieben eine Funktion, welche vergleicht, ob die Helligkeit eines Pixels im Originalbild mit der Helligkeit von einem der kleinen Bilder übereinstimmt. Diese Funktion war bis jetzt sehr schlecht programmiert, da sie die Helligkeitswerte der Pixel um 1 erhöhte/erniedrigte bis ein Bild mit übereinstimmender Helligkeit gefunden wurde. Dabei wurden alle Bilder mehrmals überprüft, was einen großen Zeitaufwand bedeutete.
Jetzt wird die Pixelhelligkeit mit der Bildhelligkeit durch eine Differenz verglichen. Das Bild bei dem die Differenz zum Pixelwert des Originalbilds am kleinsten ist wird dann anstelle dieses Pixels eingezeichnet.
Dabei muss jedes Bild nur einmal überprüft werden. Dadurch lässt sich enorm Zeit sparen.

So, ich hoffe das war einigermaßen verständlich erklärt....(wenigstens für leute, die die vorigen Einträge dieses Worklogs gelesen haben.)

Vielleicht erklärt code besser als ich
alter Code: [AUSKLAPPEN]

Function vergleich()
Dim bild_pos$(anz_bilder_horiz+1,anz_bilder_vert+1)
For info.pixel = Each pixel;von jeder Pixelhelligkeit wird ausgegangen, dieser Wert erhöht/erniedrigt bis ein Bild mit gleicher Heligkeit gefunden ist
   vergleichs_zahl(1) = info\pix_helligkeit
   vergleichs_zahl(0) = info\pix_helligkeit
   jupi = 0
   While Not jupi = 1
      For LOL.bild_informationen = Each bild_informationen
         For a = 0 To 1
            If LOL\img_helligkeit = vergleichs_zahl(a) Then
               bild_pos$(info\pix_pos_x,info\pix_pos_y) = LOL\Pfad$
               ;wenn bild daneben oder darüber nicht das gleiche ist Bild laden
               If bild_pos$(info\pix_pos_x,info\pix_pos_y-1) <> bild_pos$(info\pix_pos_x,info\pix_pos_y) And bild_pos$(info\pix_pos_x-1,info\pix_pos_y) <> bild_pos$(info\pix_pos_x,info\pix_pos_y) Then
                  bild_laden(LOL\Pfad$,info\pix_pos_x,info\pix_pos_y)
                  jupi = 1
               EndIf
            EndIf
         Next
      Next
      vergleichs_zahl(1) = vergleichs_zahl(1) + 1
      vergleichs_zahl(0) = vergleichs_zahl(0) - 1
   Wend
   Cls
   done = done + 1

   DrawImage neues_HauptBild,0,0
   AppTitle done+" von "+((anz_bilder_horiz+1)*(anz_bilder_vert+1))+" bildern ("+(done*100)/((anz_bilder_horiz+1)*(anz_bilder_vert+1))+"%)"
   Flip
Next
End Function

neuer Code: [AUSKLAPPEN]

Function vergleich()
Dim bild_pos$(anz_bilder_horiz+1,anz_bilder_vert+1)
For info.pixel = Each pixel
   jupi = 0
   While Not jupi = 1
      differenz = 256
      For LOL.bild_informationen = Each bild_informationen
         ;nach kleinerer Differenz überprüfen
         If Abs (LOL\img_helligkeit - info\pix_helligkeit) < differenz Then
            bild_pos$(info\pix_pos_x,info\pix_pos_y) = LOL\Pfad$ ; Bild Position checken
            If bild_pos$(info\pix_pos_x,info\pix_pos_y-1) <> bild_pos$(info\pix_pos_x,info\pix_pos_y) And bild_pos$(info\pix_pos_x-1,info\pix_pos_y) <> bild_pos$(info\pix_pos_x,info\pix_pos_y) Then;Position auf oben und links überprüfen
               differenz = Abs (LOL\img_helligkeit - info\pix_helligkeit)
               path$ = LOL\Pfad$
               xxx = info\pix_pos_x
               yyy = info\pix_pos_y
            EndIf
         EndIf
      Next
      bild_laden(path$,xxx,yyy)
      jupi = 1
   Wend
   Cls
   done = done + 1
   DrawImage neues_HauptBild,0,0
   AppTitle done+" von "+((anz_bilder_horiz+1)*(anz_bilder_vert+1))+" bildern ("+(done*100)/((anz_bilder_horiz+1)*(anz_bilder_vert+1))+"%)"
   Flip
Next
End Function

big bug

mabox — Tue, 28 Oct 2008 07:04:47 +0100

lange nichts gehört?....lag daran, dass ich auf einmal merkte, dass irgendwo im Programm ein großer Fehler ist:
bei diesem Bild trat der Fehler zm ersten mal auf. leider raubte er mir erstmal völlig die Motivation ihn zu suchen und auszubessern. Ich hoffe, dass ich jetzt in den Ferien mal genug Zeit finde um mich dranzusetzen.

before - after

mabox — Sun, 05 Oct 2008 00:41:41 +0200

Hier mal ein aktuelles vorher - nachher bild:

bilder nichtmehr nebeneinander

mabox — Fri, 03 Oct 2008 13:25:21 +0200

puh, endlich geschafft, dass keine gleichen Bilder mehr nebeneinander sind.
Ich hatte Probleme damit weil immer verglichen wird ob das aktuelle Bild den gleichen Pfad hat wie das links davon und das drüber. Beim ersten bild (also Bild 0,0) konnte man aber nicht überprüfen ob es den gleichen Pfad hat weil es nict existierte. Ich musste dann oben und links noch ein (nicht vorhandenes Bild) dranhängen damit die vergleiche funktioniert haben.
Außerdem gibts jetzt ne Prozentanzeige die anzeigt zu wieviel Prozent die Bilder sortiert und eingezeichnet wurden.

Vergleichfunktion

mabox — Sun, 28 Sep 2008 15:20:17 +0200

So jetzt hab ich mal angefangen mit der Vergleichfunktion der Helligkeitswerte. Zwar noch lange nicht fertig aber ein kleines Ergebnis ist schon zusehen:

Leider ist mir aufgefallen, dass das alles ziemlich langsam ist. Und nach ein wenig überlegen bin ich auch drauf gekommen. die Bilder die mehrfach zusehen sind werden jedes mal neu geladen. Da muss ich mir noch was schlaues ausdenken damit die Bilder erst nach dem Vergleich geladen werden und dann an alle stellen an die sie müssen eingezeichnet werden.