Skip to main content

Images as symbols​

Upload an image and embed it to a page

Download original notebook 
i= (*VB[*)(FrontEndRef["3269ca35-7d8e-42ed-8f97-226596c0c554"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKGxuZWSYnGpvqmqdYpOqaGKWm6FqkWZrrGhmZmVqaJRskm5qaAAB+SRUq"*)(*]VB*);

Analyze color distribution

BubbleChart[
 Append @@@ 
  Tally[Round[
    Flatten[ImageData[ColorConvert[i, "LAB"]], 1][[All, {2, 3}]], 
    10^-1]], ColorFunction -> (LABColor[.6, ##] &), 
 ColorFunctionScaling -> False, BubbleSizes -> {0.01, 0.1}]
(*VB[*)(FrontEndRef["943ea2ea-157f-49fc-b107-aba72e8da119"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKW5oYpyYapSbqGpqap+maWKYl6yYZGpjrJiYlmhulWqQkGhpaAgCKshX+"*)(*]VB*)

Negate color

(*VB[*)(FrontEndRef["3269ca35-7d8e-42ed-8f97-226596c0c554"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKGxuZWSYnGpvqmqdYpOqaGKWm6FqkWZrrGhmZmVqaJRskm5qaAAB+SRUq"*)(*]VB*) // ColorNegate
(*VB[*)(FrontEndRef["34e96801-bdc0-4f06-be7b-5656fd01a07f"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKG5ukWppZGBjqJqUkG+iapBmY6SalmifpmpqZmqWlGBgmGpinAQCAwxWf"*)(*]VB*)

Perform Radon transformation

ColorSeparate[i, "L"];
{%, % // Radon} // Row  
(*GB[*){{(*VB[*)(FrontEndRef["3b8746ec-412f-479d-b0f1-3906d889a267"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKGydZmJuYpSbrmhgapemamFum6CYZpBnqGlsamKVYWFgmGpmZAwB+OBUm"*)(*]VB*)(*|*),(*|*)(*VB[*)(FrontEndRef["1c16c69d-682d-4cf8-b367-2778ea7a4dc6"])(*,*)(*"1:eJxTTMoPSmNkYGAoZgESHvk5KRCeEJBwK8rPK3HNS3GtSE0uLUlMykkNVgEKGyYbmiWbWabomlkYpeiaJKdZ6CYZm5nrGpmbW6QmmieapCSbAQCCfxW2"*)(*]VB*)}}(*]GB*)