@@ -372,11 +372,16 @@
 
 (define (vg:generate-color)
   (vg:rgb->number (random 255)
                   (random 255)
                   (random 255)))
-  ;;(vg:rgb->number 0 0 0))
+
+(define (vg:generate-color-rgb)
+  (list (random 255)
+        (random 255)
+        (random 255)))
+
 
 (define (vg:iup-color->number iup-color)
   (apply vg:rgb->number (map string->number (string-split iup-color))))
 
 ;;======================================================================