Rispondi alla discussione

Messaggio: <blockquote data-quote="rpor66" data-source="post: 476362" data-attributes="member: 239"><p>[CODE]</p><p>(defun fnRidColor (r g b / rosso verde blu Indice lColor)</p><p>    (setq lColor (list 8 1 3 2 5 6 4 7))</p><p>    (if (= r 128) (setq r 127))</p><p>    (if (= g 128) (setq g 127))</p><p>    (if (= b 128) (setq b 127))</p><p>    (setq rosso (lsh r -7))</p><p>    (setq verde (lsh g -7))</p><p>    (setq blu (lsh b -7))</p><p>    (setq Indice (+ rosso (* verde 2) (* blu 4)))</p><p>    (nth indice lColor)</p><p>)</p><p>[/CODE]</p><p>Questa funzione trasforma i valori rgb 0÷255 in 0÷1 tramite la funzione lsh, praticamente è come ridurre i colori di una foto da 16 milioni a 8.</p><p>La condizione  (= r 128) è per ovviare ad un errore interpretativo, considera 128 1 e non 0, quindi valori rgb 128 255 255 diventavano 7 e non 4, come nel tuo specifico caso.</p><p></p><p>Buon divertimento</p></blockquote><p></p>

Verifica

Staff online

Be_on_edge
Moderatore
cacciatorino
Moderatore SolidEdge

Utenti online

Totale: 132 (membri: 15, ospiti: 117)

Statistiche forum

Discussioni: 55,264

Messaggi: 472,390

Utenti registrati: 95,115

Ultimo utente registrato: albertomoran

Questo sito utilizza i cookie. Continuando a utilizzare questo sito, accetti l' utilizzo dei cookie.

Accetto Leggi altro....

Top