plant textures for pluging

pluggable/pluggable.scm

@@ -62,11 +62,12 @@
 (define connection-cache '())
 
 (define (get-connection-list id)
+(printf "connection ~a ~n" id)
     (let ((ret (assoc id connection-cache)))
         (cond 
             (ret (cdr ret))
             (else
-                (let* ((tex (load-primitive (string-append "textures/comp-cp-" id ".png")))
+                (let* ((tex (load-primitive (string-append "plant-2/comp-cp-" id ".png")))
                         (connections (with-primitive tex (convert-to-pos (find-centroids 0 '())))))
                     (set! connection-cache (cons (cons id connections) connection-cache))
                     (destroy tex)
@@ -78,12 +79,13 @@
 (define-struct component (root children))
 
 (define (build-component id children)
+(printf "component ~a with children ~a ~n" id children)
     (cond 
         ((null? children) 
             (let ((root (with-state
                             (translate (vector 0 0.5 0))
                             (hint-ignore-depth)
-                            (texture (load-texture (string-append "textures/comp-" id ".png")))
+                            (texture (load-texture (string-append "plant-2/comp-" id ".png")))
                             (build-plane))))
                 (with-primitive root (apply-transform))
                 (make-component root '())))
@@ -91,7 +93,7 @@
             (let* ((connection-list (get-connection-list id))
                     (root (with-state
                             (translate (vector 0 0.5 0))
-                            (texture (load-texture (string-append "textures/comp-" id ".png")))
+                            (texture (load-texture (string-append "plant-2/comp-" id ".png")))
                             (build-plane)))
                     (comp (make-component root
                             (map
@@ -121,7 +123,7 @@
     (list-ref l (random (length l))))
 
 (define (make-random-plant depth)
-    (let ((num-children (if (> depth 10) 0 (choose (list 0 1 2 3)))))
+    (let ((num-children (if (> depth 10) 0 (choose (list 0 2 3)))))
         (cond 
             ((eq? num-children 0) (list (choose (list "0" "0")) (list)))
             ((eq? num-children 1) (list "1-1" (list (make-random-plant (+ depth 1)))))
@@ -146,7 +148,7 @@
 (define p (make-random-plant 0))
 (display p) (newline)
 
-(define c (build-component "1-1" (list p)))
+(define c (build-component "7-11" (list p)))