#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