IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Add basic barchart.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/branches/g2-gog-integ@10884 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Joshua Sled
2005-02-12 21:25:27 +00:00
parent bbfc46ca21
commit d5f9baca16
1 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/report/utility-reports/test-graphing.scm
View File

@@ -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]"))