#set SYM = "radius=0.1 shape=square linecolor=black"

#proc page
backgroundcolor: white
color: black

// read in the SNP map data file..
#proc getdata
fieldnameheader: yes
data:
	lltk		Ada	Basic	C	CPP	Java	Perl	Python
	"Gtk+"		1	0		1	1	1		1		1
	"Java AWT"	0	0		0	0	1		0		0
	"Java JFC"	0	0		0	0	1		0		0
	"MS MFC"	0	1		0	1	0		0		0
	"TT Qt"		0	0		0	1	0		0		0

// set up the plotting area
#proc areadef
//rectangle: 1 1 7 5
rectangle: 2 1 8 5
//areaname: whole

yrange: 0 4
yscaletype: categories
ycategories: datafield=1
yaxis.stubs: usecategories
yaxis.stubdetails: align=R
//yaxis.stubslide: 0.08
yaxis.label: Toolkit
yaxis.labeldistance: 1.0
yaxis.axisline: no
yaxis.tics: no
yaxis.grid: color=gray(0.5) width=1 

xrange: 0 7
xaxis.stubs: list Ada\nBasic\nC\nCPP\nJava\nPerl\nPython\n
// xaxis.stubdetails: adjust=0,
xaxis.label: Language binding
xaxis.labeldetails: adjust=0,-0.2
xaxis.axisline: no
xaxis.tics: no
xaxis.grid: color=gray(0.5) width=1 

// set up legend for color gradients..
#proc legendentry
sampletype: symbol
details: style=filled fillcolor=black @SYM
label: supported
tag: 1

#proc legendentry
sampletype: none

#proc legendentry
sampletype: symbol
details: style=outline fillcolor=white @SYM
label: unsupported
tag: 0
  
// use proc scatterplot to count # of instances and pick appropriate color from legend..
//#proc scatterplot
//yfield: lltk
//xfield: ada
//cluster: yes
//dupsleg: yes

#set FLD = 2
#for GROUP in "Ada,Basic,C,CPP,Java,Perl,Python"
	#set XLOC = $arith(@FLD-1)
	#set SELECT = "@" @FLD " > 0"

	#proc scatterplot
	xlocation: @XLOC(s)
	yfield: lltk
	symrangefield: @FLD
	//select: @SELECT

	// increment..
	#set FLD = $arith( @FLD+1 )
#endloop 

// display legend..
#proc legend
location: max+0.5 min+0.8
textdetails: size=6