Type TBildPos
   Field X, Y
   Field IMGLink.TBild
End Type

Type TBild
   Field Bild
   Field Pfad$
End Type


Function Helligkeit_auswerten()
   
   ;[...]
   
   ; Der Pixel/Bereich soll mit diesem Bild später gezeichnet werden:
   Local Pfad_zum_passenden_Bild$
   
   ; Die Position des Pixels wird gespeichert...
   Local Pos.TBildPos = New TBildPos
   Pos\X = X_Kord
   Pos\Y = Y_Kord
   ; Der Pfad wird verglichen, damit er nur einmal vorhanden ist:
   Pos\IMGLink = GetBildPfad(Pfad_zum_passenden_Bild$)
   
   
   ; Für jeden Pixel...
   
   ;[...]
   
   
End Function

;*** Funktion liefert die Tbild-Instanz zurück, die den Pfad enthält
;*** Ist der Pfad noch nicht registirert, wird er hinzugefügt und zurückgegeben...
Function GetBildPfad.TBild(fpfad$)
   Local b.TBild
   For b = Each TBild
      If b\Pfad$ = fpfad$ Then Return b
   Next
   ;** Bild ist noch nicht vorhanden, neuen eintrag erzeugen undzurückliefern..
   b = New TBild
   b\Pfad$ = fpfad$
   Return b
End Function

;*** Alle Pixel durch wurden durch Helligkeit_auswerten() oder was auch immer
;*** Bestimmt, nur noch das Bild muss erstellt werden...
Function BilderZeichnen()
   
   ;*** Im Imagebuffer zeichnen usw. bitte selbst ergänzen ;)
   
   Local Pos.TBildPos, b.TBild
   
   ;*** EDIT Denkfehler : For...Each erfüllt auch hier den Zweck...
   For b = Each TBild
      
      ;*** Bild laden...
      b\Bild = LoadImage(b\Pfad$)
      
      For Pos = Each TBildPos
         ;*** Nur das Bild ist <> Null, das wir aktuell geladen haben...
         
         If Pos\IMGLink\Bild <> Null Then
            DrawImage(Pos\IMGLink\Bild, Pos\X, Pos\Y)
            ;*** EDIT Pos ist abgearbeiten und braucht nicht mehr durchgegangen zu werden
            Delete Pos
         EndIf
         
      Next
      
      ;*** Bild abgearbeitet
      FreeImage b\Bild
      Delete b
      
   Next
   
End Function