App με αναγνωριση προσωπου για οργανωση φωτος.

[KilliK]

Να ρωτησω κατι δυσκολο.

 

εχω  μερικες χιλιαδες wallpapers, τα μαζεψα απο διαφορα torrents που κατεβαζα μαζικα. το προβλημα ομως ειναι οτι μεσα σε αυτα, υπαρχουν και πολλες φωτος με γυμνες γυναικες.

υπαρχει κανα app με face recognition, το οποιο να καταλαβαινει οτι μια φωτο εχει εναν ανθρωπο μεσα και να αφαιρει αυτοματα αυτες τις εικονες;

διαφορετικα δεν μπορω να χρησιμοποιησω αυτα τα wallpapers, δεν καθομαι τωρα να βρω τις πονηρες φωτος μια μια.

 

εκτος και αν φιλτραρω τις εικονες με βαση το λευκο/μαυρο ανθρωπινο χρωμα (τα περισσοτερα walls ειναι abstract/landscapes/space/cars/ktl), αλλα δεν εχω ιδεα πως γινεται κατι τετοιο.

[KilliK]

τελικα δεν βρηκα τροπο να το κανω αυτοματα, οποτε αναγκαστικα το κανω χειροκινητα.

εφτιαξα ενα ΑΗΚ script το οποιο σε συνδυασμο με το XnviewMP, επιταχυνει την ολη διαδικασια κατα πολυ.

το βαζω εδω για οποιον ενδιαφερεται:

#NoEnv
;#Warn
#Persistent
#SingleInstance Force
#MaxThreadsPerHotkey 2
#MaxThreads 20
#MaxHotkeysPerInterval 99000000
#HotkeyInterval 99000000
#InstallKeybdHook
#InstallMouseHook
#KeyHistory 0
Process, Priority, , High
ListLines Off
SetBatchLines, -1
SetKeyDelay, -1, -1
SetMouseDelay, -1
SetDefaultMouseSpeed, 0
SetWinDelay, -1
SetControlDelay, -1
SetTitleMatchMode, 2
SendMode, Input
SetNumLockState, On
SetCapsLockState, Off
SetScrollLockState, Off




#if WinActive("XnView MP ahk_class Qt5QWindowIcon ahk_exe xnviewmp.exe")


;start slideshow
Up::
Toggle := !Toggle
While Toggle {
Send {Right}
Sleep 300
}
Return


;move image
Down::
KeyWait Down
BlockInput, On
switch()
Send !m
Sleep 100
Send {Enter}
Sleep 100
BlockInput, Off
Return


;exit script and xnviewmp
Esc::
Send ^q
ExitApp
Return


#if


;suspend script
F11::
Suspend, Toggle
Return


;exit script
F12::
ExitApp
Return




;allaxe tin glossa se aglika an tin exeis ellinika.
switch() {
wingetclass class, A
SetFormat, Integer, H
WinGet, WinID,, A
ThreadID:=DllCall("GetWindowThreadProcessId", "UInt", WinID, "UInt", 0)
InputLocaleID:=DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt")
global lng
lng = %InputLocaleID%
if (InputLocaleID = 0x4080408) 
Send {Alt Down}{Shift}{Alt up} ;set keyboard to english
Sleep 100
}
Return

Επεξ/σία 21 Μαΐου 2017 από KilliK