(defun hex2true ($ / )
(LM:RGB->True (HexadecimalToInteger (substr $ 3 2)) (HexadecimalToInteger (substr $ 5 2)) (HexadecimalToInteger (substr $ 7 2)))
)
(defun LM:RGB->True ( r g b )
(logior (lsh (fix r) 16) (lsh (fix g) 8) (fix b))
)
(defun HexadecimalToInteger (strHexadecimal / intInteger intAscii)
(setq intInteger 0)
(foreach intAscii (vl-string->list (strcase strHexadecimal))
(setq intInteger (+ (lsh intInteger 4)
(- intAscii
(if (<= intAscii 57) 48 55)
)
)
)
)
)
i think i'm close, but lines that are purple become blue, something must be wrong...
i think i'm close, but lines that are purple become blue, something must be wrong...