Advertisement
Guest User

Untitled

a guest
Jul 23rd, 2014
190
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.58 KB | None | 0 0
  1. im=Import["http://hplussummit.com/images/wolfram.jpg"];
  2. mb=MorphologicalBinarize[im];
  3. cb=ChanVeseBinarize[im];
  4. ia1=ImageAdd[ColorReplace[im,ColorNegate[mb]->Darker@Blue],mb];
  5. ia2=ImageAdd[ColorReplace[RemoveBackground[im],ColorNegate[cb]->Darker@Red],cb];
  6. new1=ImageCompose[ImageCompose[Image@Graphics[{Darker@Blue,Rectangle[{0,0},{120,240}],Darker@Red,Rectangle[{120,0},{240,240}]},Background->None,Frame->False,PlotRangePadding->None,ImagePadding->None,ImageSize->240],ColorReplace[ia2,Binarize[ia2]->Orange]],
  7. RemoveBackground[ia1]];
  8.  
  9. ColorReplace[new1,Binarize[new1,0.95]->Darker@Blue]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement