Mirror image script

fencepost · **Joined:** Apr 13, 2010 **Posts:** 244

Good morning, All!

I needed a simple script to mirror half an image (L to R, R to L, Top to Bottom, B to T). I couldn't find one elsewhere so I wrote my own. Not sure if anyone would find this valuable, but I'm uploading it here. It's been awhile since I've done any scripting, but I made sure all code is in accordance with the updated scheme for GIMP.

You can find the script at Filters > Render > Mirror Image...

Cheers. Art

Code: Select all

(define (mirror-image image drw horv side)
  (let* (
                (originalLayer (car (gimp-image-get-active-layer image)))
     (copyLayer 0)
     (width (car (gimp-drawable-width originalLayer)))
        (height (car (gimp-drawable-height originalLayer)))
     
     (cX (/ width 2))
     (cY (/ height 2))

   
     )

(gimp-image-undo-group-start image)
(gimp-layer-add-alpha originalLayer)
(set! copyLayer (car (gimp-layer-copy originalLayer TRUE)))
(gimp-image-add-layer image copyLayer -1)

(if (= horv 0)
   (begin
   (gimp-image-select-rectangle image CHANNEL-OP-ADD 0 0 cX height)
   (if (= side 0)
      (begin
      (gimp-selection-invert image)      
      (gimp-edit-clear copyLayer)
      (gimp-selection-none image)
      (gimp-item-transform-flip-simple copyLayer ORIENTATION-HORIZONTAL TRUE cX)


      )
      (begin
      (gimp-edit-clear copyLayer)
      (gimp-selection-none image)
      (gimp-item-transform-flip-simple copyLayer ORIENTATION-HORIZONTAL TRUE cX)
      )


   ))
)

(if (= horv 1)
   (begin
   (gimp-image-select-rectangle image CHANNEL-OP-ADD 0 0 width cY)
   (if (= side 0)
      (begin
      (gimp-selection-invert image)      
      (gimp-edit-clear copyLayer)
      (gimp-selection-none image)
      (gimp-item-transform-flip-simple copyLayer ORIENTATION-VERTICAL TRUE cY)


      )
      (begin
      (gimp-edit-clear copyLayer)
      (gimp-selection-none image)
      (gimp-item-transform-flip-simple copyLayer ORIENTATION-VERTICAL TRUE cY)
      )


   ))
)





(gimp-image-merge-down image copyLayer CLIP-TO-IMAGE)
(set! originalLayer (car (gimp-image-get-active-layer image)))









    
; Allow for the GIMP settings to be restored prior to running the script

(gimp-context-push)



(gimp-displays-flush)
(gimp-image-undo-group-end image)

; Return GIMP settings back to those used prior to script

(gimp-context-pop)
    
  )
)

(script-fu-register "mirror-image"
  "<Image>/Filters/Render/Mirror Image..."
  ""
  "Art Wade"
  "Art Wade"
  "September 17, 2016"
  "RGB*"
  SF-IMAGE       "Image"               0
  SF-DRAWABLE    "Drawable"            0
  SF-OPTION       "Horizontal or Vertical?"       '("Horizontal"
                     "Vertical")
  SF-OPTION       "Left or Right (Top or Bottom)?"   '("Left (Top if Vertical)"
                     "Right (Bottom if Vertical)")
)
               

mahvin · **Joined:** Oct 06, 2010 **Posts:** 4046

Good to see you, Fencepost! Long time no see! I've been using Saulgoode's mirror script, and I will be happy to check yours out!

fencepost · **Joined:** Apr 13, 2010 **Posts:** 244

Hey, Mahvin! Good to see you as well. Yeah, life kinda got in the way of things and I quit GIMP'ing with the exception of basic photo editing. I saw saulgoode's script and gave it a test, but if I'm not mistaken, I believe it mirrored the entire image and I just needed half of the image.

If they're the same, let me know and we can pull it from here. No need for duplicate scripts.

mahvin · **Joined:** Oct 06, 2010 **Posts:** 4046

No, you are correct in that it mirrors the entire image (I just tested both). So your version is worthwhile appreciated for halving the image.

It's more than worthwhile! My bad - (I need more coffee)

Rod · **Joined:** May 16, 2010 **Posts:** 14709 **Location:** USA

Hey it's great to hear from you again Art. Thanks for the new script. Don't be a stranger now.

Interesting effects.

Oregonian · **Posted:** Sun Sep 18, 2016 12:22 pm **(#6)**

Fencepost!!! How good to see you. :hugme

Had to give your new script a try.

I've attached your script so others can download it.
Find it here: <image> Filters > Render > Mirror Image...

fencepost · **Joined:** Apr 13, 2010 **Posts:** 244

Good to see you, O! Thanks for making it available as an attachment. Been so long since I've used the forum, I've forgotten all the ins/outs!

ETA: Hi, Rod! "Don't be a stranger?" I can't get any more strange! LOL

Rod · **Joined:** May 16, 2010 **Posts:** 14709 **Location:** USA

Oregonian wrote:

Fencepost!!! How good to see you. :hugme

Had to give your new script a try.

[ Image ]

I've attached your script so others can download it.
Find it here: <image> Filters > Render > Mirror Image...

Good use of the script O! Looks almost realistic. :bigthup

dinasset · **Posted:** Sun Sep 18, 2016 1:17 pm **(#9)**

nice to have it as a gimp-only script, but -for those using also g'mic- the function is available under Arrays

input

Attachment:

original.jpg [ 293.61 KiB | Viewed 5206 times ]

screenshot of g'mic

Attachment:

Cattura.PNG [ 403.72 KiB | Viewed 5206 times ]

output

Attachment:

mirrored-50.png [ 1.2 MiB | Viewed 5206 times ]

anyhow, good addition to gimp filters and nice to see you back here

fencepost · **Joined:** Apr 13, 2010 **Posts:** 244

Thank you, dinasset for letting me know about the G'MIC plugin. I wasn't aware of that, and thank you for the welcome.

	Similar Topics	Replies
	Script OCR Image (Tesseract OCR engine )	5
	Script-fu select outline of image inside png	1
	Error during execution of script, image in inconsistent state	3
	Retexture an image with another image as "Image Pattern" Plug-in	4
	GIMP XCF image plug-in could not open image; File is Not 0 Bytes	4