API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 7th, 2017
540
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 5.65 KB | None | 0 0
raw download clone embed print report
  1.  
  2. ;***************************************************************************************
  3.  
  4. ; Comic-Book1 script  for GIMP 2.2
  5.  
  6. ; Copyright (C) 2009 Joe Kitella <joe.kitella@gmail.com>
  7.  
  8. ;
  9.  
  10. ; --------------------------------------------------------------------
  11.  
  12.  
  13.  
  14.  
  15.  
  16. (define (script-fu-Comic-Book1
  17.  
  18.             img
  19.  
  20.             drawable
  21.  
  22.     )
  23.  
  24.  
  25.  
  26.   (gimp-image-undo-group-start img)
  27.  
  28.  
  29.  
  30.   (let* (
  31.  
  32.      (width (car (gimp-drawable-width drawable)))
  33.  
  34.      (height (car (gimp-drawable-height drawable)))
  35.  
  36.      (old-selection (car (gimp-selection-save img)))
  37.  
  38.      (image-type (car (gimp-image-base-type img)))
  39.  
  40.      (layer-type (car (gimp-drawable-type drawable)))
  41.  
  42.      (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1"  100 NORMAL-MODE)))
  43.  
  44.      (layer-temp2 (car (gimp-layer-new img width height layer-type "temp2"  100 NORMAL-MODE)))
  45.  
  46.      (layer-temp3 (car (gimp-layer-new img width height layer-type "temp3"  100 NORMAL-MODE)))
  47.  
  48.        )
  49.  
  50.  
  51.  
  52.     (if (eqv? (car (gimp-selection-is-empty img)) TRUE)
  53.  
  54.         (gimp-drawable-fill old-selection WHITE-IMAGE-FILL)) ; so Empty and All are the same.
  55.  
  56.     (gimp-selection-none img)
  57.  
  58.     (gimp-image-insert-layer img layer-temp1 -1 0)
  59.  
  60.     (gimp-image-insert-layer img layer-temp3 -1 0)
  61.  
  62.     (gimp-image-insert-layer img layer-temp2 -1 0)
  63.  
  64.      (gimp-edit-copy drawable)
  65.  
  66.     (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0)))
  67.  
  68.     (gimp-edit-copy layer-temp1)
  69.  
  70.     (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp2 0)))
  71.  
  72.     (gimp-edit-copy layer-temp1)
  73.  
  74.     (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp3 0)))
  75.  
  76.  
  77.  
  78.     (plug-in-photocopy 1 img layer-temp2 8.0 1.0 0.0 0.8)
  79.  
  80.     (plug-in-photocopy 1 img layer-temp3 24.54 1.0 0.0 0.8)
  81.  
  82.     (gimp-levels layer-temp2 0 215 235 1.0 0 255)
  83.  
  84.     (gimp-levels layer-temp3 0 123 212 .44 0 255)
  85.  
  86.     (gimp-layer-set-mode layer-temp2 3)
  87.  
  88.     (gimp-layer-set-mode layer-temp3 3)
  89.  
  90.     (gimp-levels layer-temp1 0 60 220 1.00 0 255)
  91.  
  92.     (gimp-levels layer-temp1 0 25 225 2.25 0 255)
  93.  
  94.     (plug-in-newsprint 1 img layer-temp1  3 0 0 0 0 15 0 75 0 0 0 2)
  95.  
  96.     (gimp-image-merge-down img layer-temp3 0)
  97.  
  98.     (gimp-image-merge-down img layer-temp2 0)
  99.  
  100.    
  101.  
  102.     (set! layer-temp1 (car (gimp-image-get-active-layer img)))
  103.  
  104.  
  105.  
  106.     (gimp-selection-load old-selection)
  107.  
  108.     (gimp-selection-invert img)
  109.  
  110.     (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied
  111.  
  112.         (begin
  113.  
  114.         (gimp-edit-clear layer-temp1)
  115.  
  116.         ))
  117.  
  118.  
  119.  
  120.     (gimp-item-set-name layer-temp1 "Comic-Book")
  121.  
  122.     (gimp-selection-load old-selection)
  123.  
  124.     (gimp-image-remove-channel img old-selection)
  125.  
  126.  
  127.  
  128.  
  129.  
  130.     (gimp-image-undo-group-end img)
  131.  
  132.     (gimp-displays-flush)
  133.  
  134.   )
  135.  
  136. )
  137.  
  138.  
  139.  
  140. (script-fu-register
  141.  
  142.   "script-fu-Comic-Book1"
  143.  
  144.   _"<Image>/Filters/Artistic/Comic-Book1..."
  145.  
  146.   "Creates a Comic Book Effect."
  147.  
  148.   "Joe Kitella <joe.kitella@gmail.com>"
  149.  
  150.   "Joe Kitella"
  151.  
  152.   "2009, May"
  153.  
  154.   "RGB* GRAY*"
  155.  
  156.   SF-IMAGE      "Image"             0
  157.  
  158.   SF-DRAWABLE   "Drawable"          0
  159.  
  160. )
  161.  
  162.  
  163.  
  164. ;***************************************************************************************
  165.  
  166. ; Comic-Book2 script  for GIMP 2.2
  167.  
  168. ; Copyright (C) 2009 Joe Kitella <joe.kitella@gmail.com>
  169.  
  170. ;
  171.  
  172. ; --------------------------------------------------------------------
  173.  
  174.  
  175.  
  176.  
  177.  
  178. (define (script-fu-Comic-Book2
  179.  
  180.             img
  181.  
  182.             drawable
  183.  
  184.     )
  185.  
  186.  
  187.  
  188.   (gimp-image-undo-group-start img)
  189.  
  190.  
  191.  
  192.   (let* (
  193.  
  194.      (width (car (gimp-drawable-width drawable)))
  195.  
  196.      (height (car (gimp-drawable-height drawable)))
  197.  
  198.      (old-selection (car (gimp-selection-save img)))
  199.  
  200.      (image-type (car (gimp-image-base-type img)))
  201.  
  202.      (layer-type (car (gimp-drawable-type drawable)))
  203.  
  204.      (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1"  100 NORMAL-MODE)))
  205.  
  206.      (layer-temp3 (car (gimp-layer-new img width height layer-type "temp3"  100 NORMAL-MODE)))
  207.  
  208.        )
  209.  
  210.  
  211.  
  212.     (if (eqv? (car (gimp-selection-is-empty img)) TRUE)
  213.  
  214.         (gimp-drawable-fill old-selection WHITE-IMAGE-FILL)) ; so Empty and All are the same.
  215.  
  216.     (gimp-selection-none img)
  217.  
  218.     (gimp-image-insert-layer img layer-temp1 -1 0)
  219.  
  220.     (gimp-image-insert-layer img layer-temp3 -1 0)
  221.  
  222.      (gimp-edit-copy drawable)
  223.  
  224.     (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0)))
  225.  
  226.     (gimp-edit-copy layer-temp1)
  227.  
  228.     (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp3 0)))
  229.  
  230.  
  231.  
  232.     (plug-in-photocopy 1 img layer-temp3 24.54 1.0 0.0 0.8)
  233.  
  234.     (gimp-levels layer-temp3 0 123 212 .44 0 255)
  235.  
  236.     (gimp-layer-set-mode layer-temp3 3)
  237.  
  238.     (gimp-levels layer-temp1 0 60 220 1.00 0 255)
  239.  
  240.     (plug-in-cartoon 1 img layer-temp1 7.0 0.200)
  241.  
  242.     (plug-in-newsprint 1 img layer-temp1  3 0 0 0 0 15 0 75 0 0 0 2)
  243.  
  244.     (gimp-image-merge-down img layer-temp3 0)
  245.  
  246.    
  247.  
  248.     (set! layer-temp1 (car (gimp-image-get-active-layer img)))
  249.  
  250.  
  251.  
  252.     (gimp-selection-load old-selection)
  253.  
  254.     (gimp-selection-invert img)
  255.  
  256.     (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied
  257.  
  258.         (begin
  259.  
  260.         (gimp-edit-clear layer-temp1)
  261.  
  262.         ))
  263.  
  264.  
  265.  
  266.     (gimp-item-set-name layer-temp1 "Comic-Book")
  267.  
  268.     (gimp-selection-load old-selection)
  269.  
  270.     (gimp-image-remove-channel img old-selection)
  271.  
  272.  
  273.  
  274.  
  275.  
  276.     (gimp-image-undo-group-end img)
  277.  
  278.     (gimp-displays-flush)
  279.  
  280.   )
  281.  
  282. )
  283.  
  284.  
  285.  
  286. (script-fu-register
  287.  
  288.   "script-fu-Comic-Book2"
  289.  
  290.   _"<Image>/Filters/Artistic/Comic-Book2..."
  291.  
  292.   "Creates a Comic Book Effect."
  293.  
  294.   "Joe Kitella <joe.kitella@gmail.com>"
  295.  
  296.   "Joe Kitella"
  297.  
  298.   "2009, May"
  299.  
  300.   "RGB* GRAY*"
  301.  
  302.   SF-IMAGE      "Image"             0
  303.  
  304.   SF-DRAWABLE   "Drawable"          0
  305.  
  306. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!