API tools faq
paste
Advertisement
Guest User

Untitled

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