(track v ((h 0) (s 0) (v 0))
(do-while
(begin
camera
(blur -1 1) (n -1 0 255) (rgb2hsv -1))
(shared -1 0 0) (n -1 0 100) (rm -1)
(shared -1 1 1) (n -1 0 16) (rm -1)
(shared -1 2 2) (n -1 0 0) (rm -1)
(if (@{!,b}\&1)
(begin
(set! x @{!,x})
(set! y @{!,y})
(set! h @{-1,($x,$y,0,0)})
(set! s @{-1,($x,$y,0,1)})
(set! v @{-1,($x,$y,0,2)}))
(select_color -1 3 $h $s $v)
(erode -1 8)
(dilate -1 8))
(w2 -1)
...))
Avec du code à la scheme/lisp (pourquoi pas du scheme, avec Guile, le langage d'extension GNU ?), on doit pouvoir faire un truc plus lisible, et surtout, plus facile à éditer/créer.
On peut même imaginer des bonnes macros pour faciliter la factorisation et génération de scripts.
>> Donc, pourquoi faire mieux si personne n'en a l'utilité.
Parce que faire mieux peut inciter les gens à s'amuser avec.
[^] # Re: syntaxe...
Posté par Axioplase ıɥs∀ (site web personnel) . En réponse au journal Support de la webcam dans G'MIC 1.4.0.0. Évalué à 3.
(track v ((h 0) (s 0) (v 0))
(do-while
(begin
camera
(blur -1 1) (n -1 0 255) (rgb2hsv -1))
(shared -1 0 0) (n -1 0 100) (rm -1)
(shared -1 1 1) (n -1 0 16) (rm -1)
(shared -1 2 2) (n -1 0 0) (rm -1)
(if (@{!,b}\&1)
(begin
(set! x @{!,x})
(set! y @{!,y})
(set! h @{-1,($x,$y,0,0)})
(set! s @{-1,($x,$y,0,1)})
(set! v @{-1,($x,$y,0,2)}))
(select_color -1 3 $h $s $v)
(erode -1 8)
(dilate -1 8))
(w2 -1)
...))
Avec du code à la scheme/lisp (pourquoi pas du scheme, avec Guile, le langage d'extension GNU ?), on doit pouvoir faire un truc plus lisible, et surtout, plus facile à éditer/créer.
On peut même imaginer des bonnes macros pour faciliter la factorisation et génération de scripts.
>> Donc, pourquoi faire mieux si personne n'en a l'utilité.
Parce que faire mieux peut inciter les gens à s'amuser avec.