[Gnucash-changes] Add a scatter-plot.

[Joshua Sled]

Log Message:
-----------
Add a scatter-plot.

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.2
retrieving revision 1.1.2.3
diff -Lsrc/report/utility-reports/test-graphing.scm -Lsrc/report/utility-reports/test-graphing.scm -u -r1.1.2.2 -r1.1.2.3
--- src/report/utility-reports/test-graphing.scm
+++ src/report/utility-reports/test-graphing.scm
@@ -20,9 +20,7 @@
     (gnc:html-piechart-set-subtitle! chart "Pie Chart SubTitle")
     (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-labels! chart legend-labels))
     (gnc:html-piechart-set-labels! chart '("foo" "bar" "baz"))
     (gnc:html-piechart-set-colors! chart (gnc:assign-colors 3))
     chart
@@ -34,7 +32,6 @@
         (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)
@@ -45,10 +42,19 @@
     chart))
 
 (define (simple-scatter-chart)
-  (gnc:make-html-text (gnc:html-markup-p "[scatter goes here]"))
-)
+  (let ((chart (gnc:make-html-scatter))
+        (text (gnc:make-html-text (gnc:html-markup-p "[scatter goes here]"))))
+    (gnc:html-scatter-set-title! chart "Scatter Title")
+    (gnc:html-scatter-set-subtitle! chart "Sctatter SubTitle")
+    (gnc:html-scatter-add-datapoint! chart '(25 75))
+    (gnc:html-scatter-add-datapoint! chart '(45 55))
+    (gnc:html-scatter-add-datapoint! chart '(70 30))
+    (gnc:html-scatter-set-width! chart 320)
+    (gnc:html-scatter-set-height! chart 240)
+    (gnc:html-scatter-set-markercolor! chart (car (gnc:assign-colors 1)))
+    chart))
 
-(define (options-generator)    
+(define (options-generator)
   (let* ((options (gnc:new-options)))
     (gnc:options-set-default-section options "Test Graphing")
     options)