Forum OpenACS Development: ploting service
I tried using jchart with nsjava and it seems to work okay. I ran a couple of demo programs as follows:
Which resulted in the following two .png images being created:
package require nsjava
# import the demo classes
nsjava::import -package com.jrefinery.chart.demo ImageMapDemo1 ImageMapDemo2
# main routines expect a string array arg - but it is not used so pass 0-length
# array
set args [nsjava::new {String[]} 0]
# call the two image demo routines
nsjava::call ImageMapDemo1 {main String[]} $args
nsjava::call ImageMapDemo2 {main String[]} $args
Barchart
Piechart
To enable nsjava to use the jchart software, it was only necessary to include the appropriate .jar files in the class path:
ns_section "ns/server/${server}/module/nsjava"
ns_param ClassPath "/export/local/aolserver/bin/nsjava.jar:/home/unix/wickstrom/web/jchart/jfreechart-0.9.2/jars/jcommon-0.6.4.jar:/home/unix/wickstrom/web/jchart/jfreechart-0.9.2/jars/jfreechart-0.9.2.jar:/home/unix/wickstrom/web/jchart/jfreechart-0.9.2/jars/jfreechart-0.9.2-demo.jar"
If you try this, you should note that the demo programs don't give an absolute path for writing the .png files, so they will be created in the aolserver start directory. For actual use, you could pass in a tmpfile name and the data that you want plotted.
I've uploaded Tcl GDChart to new-file-storage: It works pretty good. I load it with the Tcl "load" command because I can never figure out how to get 'package require' working in AOLserver (ugh).
Here's a graph I created with it and the code I used to do it (BTW, this is a real application, but the data used to generate this graph is completely ficticious):
# A db_multirow was omitted for brevity's sake
# Put totals and labels into list to generate graph, if requested
set labels [list "Grade
School" "Elementary
School" "Junior
High" "Senior
High"]
set totals [list $grade_total $elementary_total $junior_total $senior_total]
#
# If the user requested graphs, generate them
#
if { [info exists graph] && $graph == "on" } {
load [ad_parameter PathToTgdchart]
# Set file names
set date [ns_fmttime [ns_time] "%Y-%m-%d-%T"]
set path [string range [ad_conn file] 0 [string last / [ad_conn file]]]
set gr [gdchart create 400 300]
set graph_data [list]
# Set Title and other details
gdchart title $gr "$page_title
$level_blurb
$dateblurb
" 0x000000 giant
gdchart bgcolor $gr 0xFFFFFF
gdchart type $gr 3dpie
set colors [sds_color_list [llength $labels]]
gdchart datacolor $gr $colors
gdchart edgecolor $gr "0x000000"
gdchart labeldist $gr 20
gdchart labelline $gr TRUE
gdchart border $gr all
# Output this image to a file
regsub -all -- " " $page_title "_" page_title_no_spaces
set fname "${path}png/${page_title_no_spaces}-${date}-${login_user_id}.png"
set fname_nopath "${page_title_no_spaces}-${date}-${login_user_id}.png"
gdchart file $gr $fname
gdchart hold $gr destroy
gdchart generate $gr true
lappend graph_data $labels
lappend graph_data $totals
gdchart getchart $gr $graph_data
# Blow away our chart handle and the image as well.
gdchart delete $gr
}
ad_return_template
you can find the source code at Here
