Photo mosaic

[taietel]

No explanation needed. Title says it all:

#include <GUIConstantsEx.au3>
#Include <File.au3>

GUICreate("Photo Mosaic", 800, 600)
_GenerateMosaic(800,600)
GUISetState(@SW_SHOW)

While 1
    Sleep(10)
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _GenerateMosaic($iW, $iH, $iX=0,$iY=0)
    Local $PathToPhotoDir = FileSelectFolder("Select Folder","") & "\"
    If @error then Exit
    $arPhoto = _FileListToArray($PathToPhotoDir,"*.jpg",1)
    If @error then
        MsgBox(0,"ERROR:","Replace @ScriptDir&'\Foto\' with your path to the photo directory!")
        Exit
    EndIf
    GUICtrlCreatePic($PathToPhotoDir&$arPhoto[1], $iX, $iY, $iW, $iH);first photo as background
    GUICtrlSetState(-1, $GUI_DISABLE)
    SplashTextOn("", "Wait!"&@LF&"generating mosaic...", 240, 60, -1, -1, 1+32, "Tahoma", 12,800)
    For $i=1 To 10;number of passes
        $n = Random(-100,100,1)
        For $j=1 To UBound($arPhoto)-1; be careful with the array; the bigger it is, the longer you wait!
            $xx = Random($iX,$iW,1)
            $yy = Random($iY,$iH,1)
            $Pic1 = GUICtrlCreatePic($PathToPhotoDir&$arPhoto[$j], $xx-$n, $yy-$n, 102.4+$n, 76.8+$n)
        Next
    Next
    SplashOff()
EndFunc

   Edited November 1, 2010 by taietel

[fighter1]

Simple and wonderful ... Thank you

[taietel]

Thanks! There is a big poster on the front building, with loads of photos overlapping together, so I thought it would be nice to make one with my photos too. 

[somdcomputerguy]

Simple and wonderful ... Thank you

Ya. What he said!

[Skrip]

This seems pretty cool, however it does not actually generate any images. It say's "Please wait, generating", then the GUI is empty.

[taietel]

Skrip, replace 

@ScriptDir&"\Foto\"

with a path to a directory with photos.

M.I.

[EDIT] Updated first post (error checking)

Edited November 1, 2010 by taietel

[somdcomputerguy]

Skrip, replace

@ScriptDir&"\Foto\"

with a path to a directory with photos.

M.I.

And don't forget, do it twice! At the $arPhoto and $Pic1 definitions.

[taietel]

somdcomputergui, done!   Remains only one place to replace (updated first post).

[eracross]

Not working on vista? nothing appears..

[taietel]

eracross, I've tested on Win7/32 and XPsp3/32 and it works. You have to change in the script where I've wrote ";<<<<<<<".

[eracross]

I did the image wont appear..

[taietel]

When you run it it will appear a slash text ("Wait! generating mosaic...") and after few seconds the gui with the images overlapped.

Something like this:

http://img840.imageshack.us/img840/1531/mosaicju.jpg

The script uses jpg's, but you can add bmp's also.

Edited November 1, 2010 by taietel

[eracross]

Oh i see it wont work with 2 photos..needs more pics.hehe thanks nice work

[JohnOne]

For example purpose, perhaps yopu should change the line

Local $PathToPhotoDir = @ScriptDir&"\Foto\"

with

Local $PathToPhotoDir = FileSelectFolder("Select Folder","") & "\"

[taietel]

Thanks John,

I've modified it (first post). For example purpose is indeed more handy than modifying the script.

[Skrip]

somdcomputergui, done! Remains only one place to replace (updated first post).

Ah, much better! That is awesome!

[JScript]

@taietel

Magnificent! Are you just keep proving that creativity and imagination to do a thousand things with a simple code. This forum needs people like you, keep it up; You're the man!

[1957classic]

Nice script!

Works great on Win7/64

[SUB0DH]

Nice work.

I think it would be better if the generated mosaic could be saved as an image. It would also be better if images used in the mosaic wouldn't repeat itself.

[taietel]

1957clasic, it's good to know! I'm on 32 (XP and 7) and no chance to test it myself..

SUB0DH, I know that. The script posted is just an example. Rest is up to you.