Hallo allerseits,
ich hoffe, ich finde hier HIlfe, da ich seit einem Tag am verzweifeln bin. Ich habe folgendes scm Skript (welches in GIMP selber auch wunderbar funktioniert):
Code:
; rr_make_seamless.scm
; by Rob Antonishen
; http://ffaat.pointclark.net
; Version 1.3 (20100625)
; Description
;
; Make Image Seamless.
; Credit for the method to Redrobes of ViewingDale, see www.ViewingDale.com, You can mail on the contact page on that site for support.
; V1.0 - Initial Version
; V1.1 - Added option to tile vertically, horizontally, or both. Added additional parameter to paste the center in.
; V1.2 - Changed to use of named buffers
; V1.3 - fixes "bug" created by bug fix for gimp 2.6.9 in gimp-histogram
; License:
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; The GNU Public License is available at
; http://www.gnu.org/copyleft/gpl.html
(define (script-fu-rr_make_seamless img
inFlatten
inCenter
inOrient)
(let*
(
(width (car (gimp-image-width img)))
(height (car (gimp-image-height img)))
(imgTemp (car (gimp-image-duplicate img)))
(layerTemp (car (gimp-image-flatten imgTemp)))
(imgWorking (car (gimp-image-duplicate imgTemp)))
(layerWorking 0)
(float 0)
(layerBlur 0)
(layerBlur2 0)
(layerColor 0)
(layerColor2 0)
(buffname "seamlessbuff")
)
; it begins here
(gimp-image-undo-disable imgWorking)
(set! imgWorking (car (plug-in-tile RUN-NONINTERACTIVE imgTemp layerTemp (* 2 width) (* 2 height) TRUE))) ;create a tiled copy
(set! layerWorking (car (gimp-image-get-active-layers imgWorking))) ; get the layer
(set! inFlatten (- 1.0 inFlatten))
(if (or (= inOrient 0) (= inOrient 1))
(begin
;build the selection (vertical)
(gimp-selection-none img)
(gimp-ellipse-select img (- (* width 0.50) (* width 0.07)) (* height 0.05) (* width 0.14) (* height 0.45) CHANNEL-OP-REPLACE TRUE TRUE (* width 0.02))
(gimp-ellipse-select img (- (* width 0.50) (* width 0.07)) (* height 0.50) (* width 0.14) (* height 0.45) CHANNEL-OP-ADD TRUE TRUE (* width 0.02))
(gimp-ellipse-select img (- (* width 0.50) (* width 0.125)) (* height 0.05) (* width 0.25) (* height 0.45) CHANNEL-OP-ADD TRUE TRUE (* width 0.10))
(gimp-ellipse-select img (- (* width 0.50) (* width 0.125)) (* height 0.50) (* width 0.25) (* height 0.45) CHANNEL-OP-ADD TRUE TRUE (* width 0.10))
(gimp-ellipse-select img (- (* width 0.50) (* width 0.02)) (* height 0.00) (* width 0.04) (* height 1.00) CHANNEL-OP-ADD TRUE TRUE (* width 0.02))
(gimp-ellipse-select img (- (* width 0.50) (* width 0.04)) (* height 0.20) (* width 0.08) (* height 0.60) CHANNEL-OP-ADD TRUE TRUE (* width 0.08))
(gimp-ellipse-select img (- (* width 0.53) (* width 0.06)) (* height 0.15) (* width 0.12) (* height 0.20) CHANNEL-OP-ADD TRUE TRUE (* width 0.02))
(gimp-ellipse-select img (- (* width 0.47) (* width 0.06)) (* height 0.65) (* width 0.12) (* height 0.20) CHANNEL-OP-ADD TRUE TRUE (* width 0.02))
; copy it
(set! buffname (car (gimp-edit-named-copy-visible img buffname)))
;paste it in
(set! float (car (gimp-edit-named-paste layerWorking buffname FALSE)))
(set! float (car (gimp-drawable-transform-2d-default float 0 0 1 1 0 0 (* height -0.5) FALSE FALSE)))
(gimp-floating-sel-anchor float)
(set! float (car (gimp-edit-named-paste layerWorking buffname FALSE)))
(set! float (car (gimp-drawable-transform-2d-default float 0 0 1 1 0 0 (* height 0.5) FALSE FALSE)))
(gimp-floating-sel-anchor float)
))
(if (or (= inOrient 0) (= inOrient 2))
(begin
;build the selection (horizontal)
(gimp-selection-none img)
(gimp-ellipse-select img (* width 0.05) (- (* height 0.50) (* height 0.07)) (* width 0.45) (* height 0.14) CHANNEL-OP-REPLACE TRUE TRUE (* height 0.02))
(gimp-ellipse-select img (* width 0.50) (- (* height 0.50) (* height 0.07)) (* width 0.45) (* height 0.14) CHANNEL-OP-ADD TRUE TRUE (* height 0.02))
(gimp-ellipse-select img (* width 0.05) (- (* height 0.50) (* height 0.125)) (* width 0.45) (* height 0.25) CHANNEL-OP-ADD TRUE TRUE (* height 0.10))
(gimp-ellipse-select img (* width 0.50) (- (* height 0.50) (* height 0.125)) (* width 0.45) (* height 0.25) CHANNEL-OP-ADD TRUE TRUE (* height 0.10))
(gimp-ellipse-select img (* width 0.00) (- (* height 0.50) (* height 0.02)) (* width 1.00) (* height 0.04) CHANNEL-OP-ADD TRUE TRUE (* height 0.02))
(gimp-ellipse-select img (* width 0.20) (- (* height 0.50) (* height 0.04)) (* width 0.60) (* height 0.08) CHANNEL-OP-ADD TRUE TRUE (* height 0.08))
(gimp-ellipse-select img (* width 0.15) (- (* height 0.47) (* height 0.06)) (* width 0.20) (* height 0.12) CHANNEL-OP-ADD TRUE TRUE (* height 0.02))
(gimp-ellipse-select img (* width 0.65) (- (* height 0.53) (* height 0.06)) (* width 0.20) (* height 0.12) CHANNEL-OP-ADD TRUE TRUE (* height 0.02))
; copy it
(set! buffname (car (gimp-edit-named-copy-visible img buffname)))
;paste it in
(set! float (car (gimp-edit-named-paste layerWorking buffname FALSE)))
(set! float (car (gimp-drawable-transform-2d-default float 0 0 1 1 0 (* width -0.5) 0 FALSE FALSE)))
(gimp-floating-sel-anchor float)
(set! float (car (gimp-edit-named-paste layerWorking buffname FALSE)))
(set! float (car (gimp-drawable-transform-2d-default float 0 0 1 1 0 (* width 0.5) 0 FALSE FALSE)))
(gimp-floating-sel-anchor float)
))
(if (eq? inCenter TRUE)
(begin
;build the selection (center)
(gimp-selection-none img)
(gimp-ellipse-select img (- (* width 0.50) (* width 0.20)) (- (* height 0.50) (* height 0.20)) (* width 0.40) (* height 0.40) CHANNEL-OP-REPLACE TRUE TRUE (* (min height width) 0.10))
; copy it
(set! buffname (car (gimp-edit-named-copy-visible img buffname)))
(gimp-selection-none img)
;paste it in
(set! float (car (gimp-edit-named-paste layerWorking buffname FALSE)))
(gimp-floating-sel-anchor float)
))
(gimp-selection-none img)
(gimp-selection-none imgWorking)
;high pass filter with preserve DC
(set! layerBlur (car (gimp-layer-copy layerWorking FALSE)))
(gimp-image-add-layer imgWorking layerBlur -1)
;blur
(if (> inFlatten 0)
(plug-in-gauss-rle 1 imgWorking layerBlur (* (min height width) inFlatten) 1 1) ;2
)
(gimp-image-set-active-layer imgWorking layerBlur) ;top layer
;get the average colour of the input layer
(set! layerColor (car (gimp-layer-copy layerWorking FALSE)))
(gimp-image-add-layer imgWorking layerColor -1)
(gimp-context-set-foreground (list (car (gimp-histogram layerColor HISTOGRAM-RED 0 255)) (car (gimp-histogram layerColor HISTOGRAM-GREEN 0 255)) (car (gimp-histogram layerColor HISTOGRAM-BLUE 0 255))))
(gimp-drawable-fill layerColor FOREGROUND-FILL) ;3
(gimp-image-set-active-layer imgWorking layerColor)
;copy the solid colour layer
(set! layerColor2 (car (gimp-layer-copy layerColor FALSE)))
(gimp-image-add-layer imgWorking layerColor2 -1)
(gimp-layer-set-mode layerColor SUBTRACT-MODE)
(gimp-image-set-active-layer imgWorking layerColor2)
;copy the blurred layer
(set! layerBlur2 (car (gimp-layer-copy layerBlur FALSE)))
(gimp-image-add-layer imgWorking layerBlur2 -1)
(gimp-layer-set-mode layerBlur2 SUBTRACT-MODE)
(gimp-image-set-active-layer imgWorking layerBlur2)
(set! layerBlur (car (gimp-image-merge-down imgWorking layerColor 0)))
(set! layerBlur2 (car (gimp-image-merge-down imgWorking layerBlur2 0)))
(gimp-layer-set-mode layerBlur SUBTRACT-MODE)
(gimp-layer-set-mode layerBlur2 ADDITION-MODE)
(set! layerWorking (car (gimp-image-merge-down imgWorking layerBlur 0)))
(set! layerWorking (car (gimp-image-merge-down imgWorking layerBlur2 0)))
;crop the image
(gimp-image-crop imgWorking width height (* width 0.5) (* height 0.5)) ;1
;and offset
(gimp-drawable-offset layerWorking TRUE 0 (/ width 2) (/ height 2))
;done
(gimp-display-new imgWorking)
(gimp-image-undo-enable imgWorking)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-rr_make_seamless"
"<Image>/Filters/Map/RR Make Seamless..."
"A better make seamless."
"Rob Antonishen"
"Rob Antonishen"
"Oct 2008"
""
SF-IMAGE "image" 0
SF-DRAWABLE "drawable" 0
SF-ADJUSTMENT "Color Flattening" '(0.75 0.00 1.00 0.01 0.10 2 0)
SF-TOGGLE "Center Blend to Corners?" FALSE
SF-OPTION "Orientation" '("Both" "Horizontal" "Vertical")
)
Nun will ich diesen Filter aus C# ausführen und mache das folgender Maßen:
Code:
string choosenFile = "D:\\here\\is\\the\\image";
string gimpFile = "D:\\here\\is\\my\\gimp exe";
void seamlessFilter() {
try {
if (!string.IsNullOrEmpty(choosenFile)) {
string inLayer = "0";
string inFlatten = "0.75";
string inCenter = "FALSE";
string inOrient = "0";
string path = choosenFile.Replace(@"\", @"\\");
string a = @"-b ""(script-fu-rr_make_seamless \""" +
path + @"\"" " + " " + inLayer + " " + inFlatten + " " + inCenter + " " + inOrient +
@")"" -b ""(gimp-quit 0)""";
string result = ExecuteCommandSync(a);
Texture2D newTex = loadImage (new Vector2(200, 200), Path.GetFullPath(choosenFile));
UnityEngine.Debug.Log("Command loaded and Texture");
newTex = null;
} else {
UnityEngine.Debug.Log("Please select a image");
}
} catch (Exception ex){
UnityEngine.Debug.Log (ex.ToString ());
}
}
public string ExecuteCommandSync(string command)
{
try
{
System.Diagnostics.ProcessStartInfo procStartInfo = new System.Diagnostics.ProcessStartInfo(gimpFile, command);
procStartInfo.RedirectStandardOutput = true;
procStartInfo.UseShellExecute = false;
procStartInfo.CreateNoWindow = true;
System.Diagnostics.Process proc = new System.Diagnostics.Process();
proc.StartInfo = procStartInfo;
proc.Start();
StreamReader reader = proc.StandardOutput;
string result = reader.ReadToEnd();
Console.WriteLine(result);
return result;
}
catch (Exception objException)
{
UnityEngine.Debug.Log(objException.ToString());
}
return null;
}
Wenn ich das ganze ausführe kriege ich folgende Fehlermeldung:
Code:
Error: ( : 1) Invalid type for argument 1 to gimp-image-width
Ich weiß nicht mehr weiter, was mache ich falsch?
Bitte hilft mir, ich wäre so dankbar.
