24 lines
887 B
Plaintext
24 lines
887 B
Plaintext
; LDV script sample
|
|
; Demonstrates how to use clip commands from VCS
|
|
|
|
; Open a sample picture for demonstration
|
|
open H:\PURE_C\PROJECTS\VISION\IMGTEST\MARBLES.TIF
|
|
|
|
; Select a block on this picture
|
|
clip_sel H:\PURE_C\PROJECTS\VISION\IMGTEST\MARBLES.TIF 16 16 256 192
|
|
|
|
; Copy that block into clipboard
|
|
clip_copy
|
|
|
|
; Paste clipboard to new page (TGA extension does not matter, just specify some format here)
|
|
clip_pasten H:\PURE_C\PROJECTS\VISION\IMGTEST\CRAP.TGA
|
|
|
|
; We don't need loaded picture anymore
|
|
close H:\PURE_C\PROJECTS\VISION\IMGTEST\MARBLES.TIF nosave
|
|
|
|
; Save new image to disk
|
|
save H:\PURE_C\PROJECTS\VISION\IMGTEST\CRAP.TGA H:\PURE_C\PROJECTS\VISION\IMGTEST\CRAP.JPG
|
|
|
|
; We don't need this image window anymore
|
|
; Note that image identifier did not change in spite of giving a different name for saving
|
|
close H:\PURE_C\PROJECTS\VISION\IMGTEST\CRAP.TGA nosave |