[Gnucash-changes] Add basic barchart.

[Joshua Sled]

Log Message:
-----------
Add basic barchart.

Tags:
----
g2-gog-integ

Modified Files:
--------------
    gnucash/src/report/utility-reports:
        test-graphing.scm

Revision Data
-------------
Index: test-graphing.scm
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/report/utility-reports/Attic/test-graphing.scm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -Lsrc/report/utility-reports/test-graphing.scm -Lsrc/report/utility-reports/test-graphing.scm -u -r1.1.2.1 -r1.1.2.2
--- src/report/utility-reports/test-graphing.scm
+++ src/report/utility-reports/test-graphing.scm
@@ -18,10 +18,10 @@
   (let ((chart (gnc:make-html-piechart)))
     (gnc:html-piechart-set-title! chart "Pie Chart Title")
     (gnc:html-piechart-set-subtitle! chart "Pie Chart SubTitle")
-    (gnc:html-piechart-set-width! chart "640")
-    (gnc:html-piechart-set-height! chart "480")
+    (gnc:html-piechart-set-width! chart 320)
+    (gnc:html-piechart-set-height! chart 240)
     ;; (gnc:html-piechart-set-data! chart (unzip1 combined))
-    (gnc:html-piechart-set-data! chart '("25" "45" "30"))
+    (gnc:html-piechart-set-data! chart '(25 45 30))
     ;; (gnc:html-piechart-set-labels! chart legend-labels))
     (gnc:html-piechart-set-labels! chart '("foo" "bar" "baz"))
     (gnc:html-piechart-set-colors! chart (gnc:assign-colors 3))
@@ -29,13 +29,20 @@
     )
 )
 
-(define (ultra-simple-pie-chart)
-  (gnc:make-html-text (gnc:html-markup-p "[pie goes here]"))
-)
-
 (define (simple-bar-chart)
-  (gnc:make-html-text (gnc:html-markup-p "[bar goes here]"))
-)
+  (let ((chart (gnc:make-html-barchart))
+        (text (gnc:make-html-text (gnc:html-markup-p "[bar goes here]"))))
+    (gnc:html-barchart-set-title! chart "Bar Chart Title")
+    (gnc:html-barchart-set-subtitle! chart "Bar Chart SubTitle")
+    ;;(gnc:html-barchart-set-data! chart '((25 45 30) (75 55 70)))
+    (gnc:html-barchart-append-row! chart '(25 45 30))
+    (gnc:html-barchart-append-row! chart '(75 55 70))
+    (gnc:html-barchart-set-width! chart 320)
+    (gnc:html-barchart-set-height! chart 240)
+    (gnc:html-barchart-set-row-labels! chart '("row1" "row2"))
+    (gnc:html-barchart-set-col-labels! chart '("foo" "bar" "baz"))
+    (gnc:html-barchart-set-col-colors! chart (gnc:assign-colors 3))
+    chart))
 
 (define (simple-scatter-chart)
   (gnc:make-html-text (gnc:html-markup-p "[scatter goes here]"))