Show[Colorize[ImageAdjust[%, 0, {.00000002, .00000009}],ColorFunction -> "SunsetColors", 
ColorFunctionScaling -> True], Graphics[{Cyan, Thickness -> .003,
Line[{{736.7 + 70*Cos[45*Pi/180],589.5 + 70*Sin[45*Pi/180]}, 
{736.7 + 550*Cos[45*Pi/180],589.5 + 550*Sin[45*Pi/180]}}],Line[{{736.7 + 70*Cos[135*Pi/180], 
589.5 + 70*Sin[135*Pi/180]},{736.7+550*Cos[135*Pi/180],589.5+550*Sin[135*Pi/180]}}],Circle[{736.7, 589.5}, 70, {45*Pi/180, 135*Pi/180}],
Circle[{736.7, 589.5}, 550, {45*Pi/180, 135*Pi/180}]}],
ImageSize -> 400] 

img.tiff can be downloaded from my google drive.

I did this one only for one image, but I want to do same thing for group of images. I want to do same thing for group of images. And images should be display each other

enter image description here

  • $\begingroup$ The code is syntactically incorrect as many pink brackets and braces in the notebook should indicate to you. Lacking a further description, I cannot tell what you try to achieve here. $\endgroup$ Sep 3 '18 at 5:46
  • $\begingroup$ @Henrik I try to fixed and edit my question, also I publish what I did, but I could not do same thing for group of images $\endgroup$
    – Rony Saha
    Sep 3 '18 at 6:02
  • 1
    $\begingroup$ How is the 'group of images' specified? You can Map your procedure on a list of urls or Table. Also, better use img = Import[... and use it rather than %. $\endgroup$
    – Kuba
    Sep 3 '18 at 13:42
  • $\begingroup$ @Kuba I can import group of images(more then one pictures) by using Map. Problem is apply this graphics to all of those import images together. $\endgroup$
    – Rony Saha
    Sep 3 '18 at 13:50
  • $\begingroup$ Do you want to display several images next to each other? Perhaps you should check out Inset which allows to place them in the same Graphics. Also the first argument of Show should be a list of Graphics you want to combine, although it often works the way you have used. $\endgroup$
    – Johu
    Sep 3 '18 at 14:49

As I understand, the goal is to take several images, add a same Graphcis to each one of them and dipslay them all next to each other. Maybe it is not exactly what you need, but perhaps it gets you started and shows you a the Mathematica style a bit.

First I import multiple images

filenamelist = {
imgList = Import /@ filenamelist;

then I manipulate and overlay each one of them before displaying them in a Row

overlay = 
  Graphics[{Cyan, Thickness -> .003, 
    Line[{{736.7 + 70*Cos[45*Pi/180], 
       589.5 + 70*Sin[45*Pi/180]}, {736.7 + 550*Cos[45*Pi/180], 
       589.5 + 550*Sin[45*Pi/180]}}], 
    Line[{{736.7 + 70*Cos[135*Pi/180], 
       589.5 + 70*Sin[135*Pi/180]}, {736.7 + 550*Cos[135*Pi/180], 
       589.5 + 550*Sin[135*Pi/180]}}], 
    Circle[{736.7, 589.5}, 70, {45*Pi/180, 135*Pi/180}], 
    Circle[{736.7, 589.5}, 550, {45*Pi/180, 135*Pi/180}]}];
myColors = 
  Colorize[ImageAdjust[#, 0, {.00000002, .00000009}], 
    ColorFunction -> "SunsetColors", ColorFunctionScaling -> True] &;

 Show[{myColors@img, overlay}, ImageSize -> 400], {img, imgList}]

enter image description here

  • $\begingroup$ Thank you very much, I was looking exactly like this. $\endgroup$
    – Rony Saha
    Sep 3 '18 at 17:12

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.