; LDV script sample
; Demonstrates automate image operations from a folder
; This script take each image from a folder, extract a block
; And saves that block as an image file

; Inside the loop:
; current file is accessible via $LFCurrentFile global variable
; start folder (parameter#1 of Loop_Folder) is accessible via $LFStartFolder global variable
; Global function LFAdjustDest(<start_folder,file,dest_folder>) allows to build destination file
; In such a way that it respects original folder hierachy, e.g.:
; Assuming LFStartFolder=H:\IMAGES
; And $LFCurrentFile=H:\IMAGES\BYPLANES\32\TC32.JPG
; Then LFAdjustDest($LFStartFolder,$LFCurrentFile,H:\OPTIMAL) will be H:\OPTIMAL\BYPLANES\32

; Starts the loop on a folder (not recursing)
Loop_Folder H:\PURE_C\PROJECTS\VISION\IMGTEST

; Open current image file
open $LFCurrentFile

; Select a block on this picture
clip_sel $LFCurrentFile 16 16 256 192

; Copy that block into clipboard
clip_copy

; Paste clipboard to new page using same filename
clip_pasten LFAdjustDest($LFStartFolder,$LFCurrentFile,H:\PURE_C\PROJECTS\VISION\IMGTEST\TEMP)

; We don't need loaded picture anymore
close $LFCurrentFile

; Save new image to disk (same window name and filename)
; Note quality=90;compression=lzw
; This is to force JPEG quality to 90 and compression to LZW (TIFF)
save LFAdjustDest($LFStartFolder,$LFCurrentFile,H:\PURE_C\PROJECTS\VISION\IMGTEST\TEMP) LFAdjustDest($LFStartFolder,$LFCurrentFile,H:\PURE_C\PROJECTS\VISION\IMGTEST\TEMP) quality=90;compression=lzw

; We don't need this image window anymore
close LFAdjustDest($LFStartFolder,$LFCurrentFile,H:\PURE_C\PROJECTS\VISION\IMGTEST\TEMP)

; Proceed with next file in the folder
Endloop_Folder