Advertisement
Guest User

Untitled

a guest
Sep 29th, 2016
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.94 KB | None | 0 0
  1. #@gimp Code Test: gcd_custom_code, gcd_custom_code_preview(1)
  2. #@gimp : note = note("<i>To set status see -status in G'MIC reference.</i>"), sep = separator()
  3. #@gimp : Status = _text(1,"0")
  4. #@gimp : Code = text(1,"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n")
  5. #@gimp : sep = separator(), note = note("<small>Author : <i>Garagecoder</i>. Latest update : <i>2015/06/21</i>.</small>")
  6. gcd_custom_code : -skip "${1=0}","${2=-skip ,}"
  7. -m "_gcd_custom_code_start : $2"
  8. -_gcd_custom_code
  9. -uncommand _gcd_custom_code_start
  10.  
  11. gcd_custom_code_preview : -skip "${1=0}","${2=-skip ,}"
  12. w={w} h={h}
  13. -l
  14. _gcp_arg="$2"
  15. -gcd_custom_code ,$_gcp_arg
  16. -if {!narg(${})} status="OK: "$!" image(s), w:"{w}" h:"{h}" d:"{d}" c:"{s}
  17. -else status=${} -endif
  18. ({'$status'}) ({'"$2"'})
  19. -replace_str[-2,-1] "<","&lt;"
  20. -u "{"{-2,t}"}{"{t}"}" -rm[-2,-1]
  21. -onfail
  22. -u "{"${}"}{$2}"
  23. -endl
  24.  
  25. _gcd_custom_code :
  26. -_gcd_custom_code_start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement