Advertisement
Guest User

Untitled

a guest
Mar 6th, 2015
225
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.39 KB | None | 0 0
  1. ParulaCM = Module[{colorlist}, colorlist = Get["parula.txt"];
  2. Evaluate[Blend[RGBColor @@@ colorlist, #] &]];
  3.  
  4. mat = ImageData@
  5. ImageResize[ExampleData[{"TestImage", "Man"}], {256, 256}];
  6. im1 = Colorize[Image@mat, ColorFunction -> "Rainbow"] // AbsoluteTiming
  7. im2 = Colorize[Image@mat, ColorFunction -> ParulaCM] // AbsoluteTiming
  8.  
  9. (* "Rainbow": 0.063 seconds *)
  10. (* ParulaCM: 1.267 seconds *)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement