Bugs fixed. Use existing brush

Author: karlhof26

sg-mystic-rose.scm

@@ -20,7 +20,9 @@
             palette
             gradient
             create-path?)
-  (let* (   (create-path (not (zero? create-path?)))
+  
+  (let* (   
+            (create-path (not (zero? create-path?)))
             (color-mode (+ (* 2 colormodea) randomb))
             (width (car (gimp-drawable-width drawable)))
             (height (car (gimp-drawable-height drawable)))
@@ -51,23 +53,31 @@
         (gimp-image-undo-group-start image)
         (gimp-context-push)
         (set! old-fg (car (gimp-context-get-foreground)))
-        (gimp-message "started")
+        ;(gimp-message "started")
         (gimp-context-set-paint-method "gimp-paintbrush")
         (gimp-context-set-paint-mode LAYER-MODE-NORMAL)
-        (set! brush (car (gimp-brush-new "sg mystic temporary")))
-        (gimp-brush-set-shape brush BRUSH-GENERATED-CIRCLE)
-        (gimp-brush-set-hardness brush 0.99)
-        (gimp-brush-set-aspect-ratio brush 1.0)
-        (gimp-brush-set-spacing brush 20.0)
-        (gimp-brush-set-radius brush (round (/ thickness 2)))
+        (set! brush (car (gimp-context-get-brush)))
+        ;(set! brush (car (gimp-brush-new "sg mystic temporary")))
+        ;(gimp-brush-set-shape brush BRUSH-GENERATED-CIRCLE)
+        ;(gimp-brush-set-spikes brush 2)
+        ;(gimp-brush-set-hardness brush 0.99)
+        ;(gimp-brush-set-aspect-ratio brush 1.0)
+        ;(gimp-brush-set-spacing brush 20.0)
+        ;(gimp-brush-set-radius brush (round (/ thickness 2)))
         ;(gimp-brushes-refresh)
 
-        ;(gimp-brush-set-radius brush 2.0)
-        (gimp-context-set-brush brush) ; was brush not "temporary"
+        (gimp-context-set-brush-size thickness)
+        ;(gimp-context-set-brush brush) ; was brush not "temporary"
+        
+        ;(gimp-brush-set-radius brush 8.0)
+        ;(gimp-brushes-refresh)
 
         (gimp-context-set-foreground old-fg)
         (gimp-context-set-opacity 100.0)
 
+        (gimp-context-set-palette palette)
+        (gimp-context-set-gradient gradient)
+        
         ;(gimp-message "line 56")
         (set! path (car (gimp-vectors-new image (string-append (number->string number-of-points)
                                                                            "pt mystic rose" ))))
@@ -111,18 +121,20 @@
                             ;(gimp-message "line 106 using fg")
                         )
                         ((= color-mode 1) ; random color 
+                            (gimp-message "line 108 - random color")
                             (gimp-context-set-foreground (list (rand 255) (rand 255) (rand 255))) ; were all random 256 
                             ;(gimp-message "line 100 random color")
                         )
                         ((= color-mode 2) ; palette - color-index is offset into palette
                             ;(gimp-message "line 103 - palette")
                             (gimp-context-set-foreground 
-                                (car (gimp-palette-entry-get-color palette (floor (modulo color-index (- num-palette-entries 1))))) )
+                                (car (gimp-palette-entry-get-color palette (floor (modulo color-index (- num-palette-entries 0))))) )
                         )
                         ((= color-mode 3) ; palette random - choose random color from specified palette
                             ;(gimp-message "line 108 - palette random")
+                            (gimp-context-set-palette palette)
                             (gimp-context-set-foreground 
-                                (car (gimp-palette-entry-get-color palette (rand (- num-palette-entries 1)))) ) ; was rand dum-pal-entr
+                                (car (gimp-palette-entry-get-color palette (- (rand (- num-palette-entries 0)) 1))) ) ; was rand dum-pal-entr
                         )
                         ((= color-mode 4) ; gradient - color-index is offset into specified gradient
                             ;(gimp-message "line 113 - gradient color")
@@ -135,6 +147,7 @@
                                     (quit)
                                 )
                             )
+                            (gimp-context-set-gradient gradient)
                             (let* ((color-vector (cadr (gimp-gradient-get-custom-samples gradient 
                                                                              1 
                                                                              (vector  (/ color-index num-strokes))
@@ -148,6 +161,7 @@
                         )
                         ((= color-mode 5) ; gradient random - random color from specified gradient
                             ;(gimp-message "line 134 - gradient random")
+                            (gimp-context-set-gradient gradient)
                             (let* ((color-vector (cadr (gimp-gradient-get-custom-samples gradient 
                                                                              1 
                                                                              (vector (/ (random num-strokes) num-strokes))
@@ -205,10 +219,11 @@
     ;    )
     ;)
 
-    (gimp-message "Good finish OK")
+    ;(gimp-message "Good finish OK")
     (gimp-context-pop)
     (gimp-image-undo-group-end image)
     (gimp-displays-flush)
+    (gc) ; garbage cleanup; temp brush was used 
   )
 )
 
@@ -222,7 +237,7 @@
     SF-IMAGE      "Image"    0
     SF-DRAWABLE   "Layer"    0
     SF-ADJUSTMENT "Number of points"    '(12 3 179 1 10 0 1)
-    SF-ADJUSTMENT "Line thickness (not used)"      '(4 1 20 1 3 0 1)
+    SF-ADJUSTMENT "Line thickness (overides brush size)"      '(4 1 210 1 3 0 1)
     SF-TOGGLE     "Random?"             FALSE
     SF-OPTION     "Color method"        '("Foreground" "Palette" "Gradient")
     SF-PALETTE    "Palette"             "Default"