" + "This is the help text for graph type: " + SocialCalc.GraphTypesInfo[gtype].display + ".
" + "The Graph tab displays a bar graph of the cells which have been selected " + "(either in a single row across or column down). " + "If the row above (or column to the left) of the selection has values, those values are used as labels. " + "Otherwise the cells value is used as a label. " + "
"
str = SocialCalc.LocalizeSubstrings(str)
gview.innerHTML = str
return
if range.left is range.right
nitems = range.bottom - range.top + 1
byrow = true
else
nitems = range.right - range.left + 1
byrow = false
str = ""
maxheight = (spreadsheet.height - spreadsheet.nonviewheight) - 50
totalwidth = spreadsheet.width - 30
minval = maxval = null
i = 0
while i < nitems
cr = (if byrow then SocialCalc.rcColname(range.left) + (i + range.top) else SocialCalc.rcColname(i + range.left) + range.top)
cr1 = (if byrow then SocialCalc.rcColname(range.left - 1 or 1) + (i + range.top) else SocialCalc.rcColname(i + range.left) + (range.top - 1 or 1))
cell = spreadsheet.sheet.GetAssuredCell(cr)
if cell.valuetype.charAt(0) is "n"
val = cell.datavalue - 0
maxval = val if not maxval? or maxval < val
minval = val if not minval? or minval > val
values.push val
cell = spreadsheet.sheet.GetAssuredCell(cr1)
if (range.right is range.left or range.top is range.bottom) and (cell.valuetype.charAt(0) is "t" or cell.valuetype.charAt(0) is "n")
labels.push "#{cell.datavalue}"
else
labels.push "#val"
i++
maxval = 0 if maxval < 0
minval = 0 if minval > 0
str = "
" + "This is the help text for graph type: " + SocialCalc.GraphTypesInfo[gtype].display + ".
" + "The Graph tab displays a very simple bar graph representation of the cells currently selected as a range to graph " + "(either in a single row across or column down). " + "If the range is a single row or column, and if the row above (or column to the left) has values, those values are used as labels. " + "Otherwise the cell coordinates are used (e.g., B5). " + "This is a very early, minimal implementation for demonstration purposes. " + "
"
gview.innerHTML = str
return
if range.left is range.right
nitems = range.bottom - range.top + 1
byrow = true
else
nitems = range.right - range.left + 1
byrow = false
str = ""
maxheight = (spreadsheet.height - spreadsheet.nonviewheight) - 50
totalwidth = spreadsheet.width - 30
minval = null
maxval = null
i = 0
while i < nitems
cr = (if byrow then SocialCalc.rcColname(range.left) + (i + range.top) else SocialCalc.rcColname(i + range.left) + range.top)
cr1 = (if byrow then SocialCalc.rcColname(range.left - 1 or 1) + (i + range.top) else SocialCalc.rcColname(i + range.left) + (range.top - 1 or 1))
cell = spreadsheet.sheet.GetAssuredCell(cr)
if cell.valuetype.charAt(0) is "n"
val = cell.datavalue - 0
maxval = val if not maxval? or maxval < val
minval = val if not minval? or minval > val
values.push val
cell = spreadsheet.sheet.GetAssuredCell(cr1)
if (range.right is range.left or range.top is range.bottom) and (cell.valuetype.charAt(0) is "t" or cell.valuetype.charAt(0) is "n")
labels.push cell.datavalue + ""
else
labels.push val + ""
i++
maxval = 0 if maxval < 0
minval = 0 if minval > 0
str = "
"
gview.innerHTML = str
profChartVals = new Array!
profChartLabels = new Array!
canv = document.getElementById("myBarCanvas")
ctx = canv.getContext("2d")
ctx.font = "10pt bold Arial"
maxheight = canv.height - 60
totalwidth = canv.width
colors = ['0' to '9'].concat ['a' to 'f']
barColor = getBarColor!
ctx.fillStyle = "#" + barColor
colorList = [ barColor ]
eachwidth = Math.floor(maxheight / (values.length or 1)) - 4 or 1
zeroLine = totalwidth * (maxval / (maxval - minval)) - 5
zeroLine = canv.width - zeroLine + 40
ctx.lineWidth = 5
ctx.moveTo zeroLine, 0
ctx.lineTo zeroLine, canv.height
ctx.stroke!
yScale = totalwidth / (maxval - minval) * 4.4 / 5
i = 0
while i < values.length
ctx.fillRect zeroLine + yScale * values[i], i * eachwidth + 30, -1 * yScale * values[i], eachwidth
profChartVals.push Math.floor((values[i] - minval) * yScale / 4.4)
profChartLabels.push labels[i]
barColor = getBarColor!
ctx.fillStyle = "#" + barColor
colorList.push barColor
i++
ctx.strokeStyle = "#000000"
ctx.fillStyle = "#000000"
if values[0] > 0
ctx.translate zeroLine - 22, 45
else
ctx.translate zeroLine + 15, 45
ctx.fillText labels[0], 0, 0
if labels[0] isnt values[0]
ctx.fillText values[0], 0, 24
i = 1
while i < values.length
if (values[i] > 0) and (values[i - 1] < 0)
ctx.translate -37, eachwidth
else
if (values[i] < 0) and (values[i - 1] > 0)
ctx.translate 37, eachwidth
else
ctx.translate 0, eachwidth
ctx.fillText labels[i], 0, 0
if labels[i] isnt values[i]
ctx.fillText values[i], 0, 24
i++
gChart = document.getElementById("googleBarChart")
zeroLine = (-1 * minval) * yScale / (canv.width)
profChartUrl = "chs=300x250&cht=bhs&chd=t:" + profChartVals.join(",") + "&chxt=x,y&chxl=1:|" + profChartLabels.reverse!.join("|") + "|&chxr=0," + minval + "," + maxval + "&chp=" + zeroLine + "&chbh=a&chm=r,000000,0," + zeroLine + "," + (zeroLine + 0.005) + "&chco=" + colorList.join("|")
# gChart.innerHTML = ""
MakePieChart = (spreadsheet, range, gview, gtype, helpflag) ->
values = []
labels = []
total = 0
if range.left is range.right
nitems = range.bottom - range.top + 1
byrow = true
else
nitems = range.right - range.left + 1
byrow = false
i = 0
while i < nitems
cr = (if byrow then SocialCalc.rcColname(range.left) + (i + range.top) else SocialCalc.rcColname(i + range.left) + range.top)
cr1 = (if byrow then SocialCalc.rcColname(range.left - 1 or 1) + (i + range.top) else SocialCalc.rcColname(i + range.left) + (range.top - 1 or 1))
cell = spreadsheet.sheet.GetAssuredCell(cr)
if cell.valuetype.charAt(0) is "n"
val = cell.datavalue - 0
total += val
values.push val
cell = spreadsheet.sheet.GetAssuredCell(cr1)
if (range.right is range.left or range.top is range.bottom) and (cell.valuetype.charAt(0) is "t" or cell.valuetype.charAt(0) is "n")
labels.push cell.datavalue + ""
else
labels.push val + ""
i++
str = "
"
gview.innerHTML = str
profChartUrl = ""
profChartLabels = ""
canv = document.getElementById("myCanvas")
ctx = canv.getContext("2d")
ctx.font = "10pt Arial"
centerX = canv.width / 2
centerY = canv.height / 2
rad = centerY - 50
textRad = rad * 1.1
lastStart = 0
colors = ['0' to '9'].concat ['a' to 'f']
i = 0
while i < values.length
if Number(values[i]) == 0
i++
continue
ctx.beginPath!
ctx.moveTo centerX, centerY
arcColor = getDrawColor!
ctx.fillStyle = arcColor
arcRads = 2 * Math.PI * (values[i] / total)
profChartUrl += "," + values[i]
ctx.arc centerX, centerY, rad, lastStart, lastStart + arcRads, false
ctx.closePath!
ctx.fill!
ctx.fillStyle = "black"
centralRad = lastStart + 0.5 * arcRads
leftBias = 0
leftBias = 55 if (centralRad > 1.5) and (centralRad < 4.6)
ctx.translate centerX + Math.cos(centralRad) * textRad - leftBias, centerY + Math.sin(centralRad) * textRad
ctx.fillText labels[i] + " (" + Math.round(values[i] / total * 100) + "%)", 0, 0
ctx.translate -1 * centerX - Math.cos(centralRad) * textRad + leftBias, -1 * centerY - Math.sin(centralRad) * textRad
ctx.fillRect 1, 1, 1, 1
ctx.closePath!
profChartLabels += "|" + labels[i]
lastStart += arcRads
i++
realCanv = document.getElementById("canvImg")
realCanv.src = canv.toDataURL!
gChart = document.getElementById("googleChart")
profChartUrl = "chs=300x145&cht=p&chd=t:" + profChartUrl.substring(1) + "&chl=" + profChartLabels.substring(1)
# gChart.innerHTML = ""
MakeLineChart = (spreadsheet, range, gview, gtype, helpflag, isResize) ->
values = []
labels = []
total = 0
colors = ['0' to '9'].concat ['a' to 'f']
shapes = <[ s o c ]>
if range.left is range.right
nitems = range.bottom - range.top + 1
byrow = true
else
nitems = range.right - range.left + 1
byrow = false
if isResize
try
minX = 1 * document.getElementById("SocialCalc-graphMinX").value
catch e
minX = null
try
maxX = 1 * document.getElementById("SocialCalc-graphMaxX").value
catch e
maxX = null
try
minval = 1 * document.getElementById("SocialCalc-graphMinY").value
catch e
minval = null
try
maxval = 1 * document.getElementById("SocialCalc-graphMaxY").value
catch e
maxval = null
evenlySpaced = false
i = 0
while i < nitems
cr = (if byrow then SocialCalc.rcColname(range.left) + (i + range.top) else SocialCalc.rcColname(i + range.left) + range.top)
cr1 = (if byrow then SocialCalc.rcColname(range.left - 1 or 1) + (i + range.top) else SocialCalc.rcColname(i + range.left) + (range.top - 1 or 1))
cell = spreadsheet.sheet.GetAssuredCell(cr)
if cell.valuetype.charAt(0) is "n"
val = cell.datavalue - 0
maxval = val if (not maxval? or maxval < val) and not isResize
minval = val if (not minval? or minval > val) and not isResize
values.push val
cell = spreadsheet.sheet.GetAssuredCell(cr1)
if (range.right is range.left or range.top is range.bottom) and (cell.valuetype.charAt(0) is "t" or cell.valuetype.charAt(0) is "n")
labels.push cell.datavalue + ""
maxX = cell.datavalue if (not maxX? or maxX < cell.datavalue) and not isResize
minX = cell.datavalue if (not minX? or minX > cell.datavalue) and not isResize
else
labels.push cr
evenlySpaced = true
i++
if evenlySpaced
i = 0
while i < values.length
labels[i] = i
i++
unless isResize
minX = 0
maxX = values.length - 1
str = ""
gview.innerHTML = str
unless isResize
document.getElementById("SocialCalc-graphMinX").value = minX
spreadsheet.graphMinX = minX
document.getElementById("SocialCalc-graphMaxX").value = maxX
spreadsheet.graphMaxX = maxX
document.getElementById("SocialCalc-graphMinY").value = minval
spreadsheet.graphMinY = minval
document.getElementById("SocialCalc-graphMaxY").value = maxval
spreadsheet.graphMaxY = maxval
canv = document.getElementById("myLineCanvas")
ctx = canv.getContext("2d")
scaleFactorX = (canv.width - 40) / (maxX - minX)
scaleFactorY = (canv.height - 40) / (maxval - minval)
lastX = scaleFactorX * (labels[0] - minX) + 20
lastY = scaleFactorY * (values[0] - minval) + 20
profChart = [ Math.floor(lastX / canv.width * 100), Math.floor(lastY / canv.height * 100) ]
topY = canv.height
drawColor = getDrawColor!
colorArray = [ drawColor.replace("#", "") ]
ctx.strokeStyle = drawColor
ctx.fillStyle = drawColor
ctx.fillRect lastX - 3, topY - lastY - 3, 6, 6
ctx.beginPath!
i = 1
while i < values.length
if (labels[i] * 1) > (labels[i - 1] * 1)
ctx.moveTo lastX, topY - lastY
ctx.lineTo (scaleFactorX * (labels[i] - minX)) + 20, topY - (scaleFactorY * (values[i] - minval) + 20)
ctx.stroke!
else
drawColor = getDrawColor!
ctx.strokeStyle = drawColor
ctx.fillStyle = drawColor
colorArray.push drawColor.replace("#", "")
ctx.beginPath!
lastX = scaleFactorX * (labels[i] - minX) + 20
lastY = scaleFactorY * (values[i] - minval) + 20
if (colorArray.length - 1) % 3 is 0
ctx.fillRect lastX - 3, topY - lastY - 3, 6, 6
else if (colorArray.length - 1) % 3 is 1
ctx.beginPath!
ctx.arc lastX, topY - lastY, 3, 0, Math.PI * 2, false
ctx.fill!
else
ctx.fillRect lastX, topY - lastY - 3, 2, 8
ctx.fillRect lastX - 3, topY - lastY, 8, 2
if (labels[i] * 1) > (labels[i - 1] * 1)
profChart[profChart.length - 2] += "," + Math.floor(lastX / canv.width * 100)
profChart[profChart.length - 1] += "," + Math.floor(lastY / canv.height * 100)
else
newIndex = profChart.length
profChart[newIndex] = Math.floor(lastX / canv.width * 100)
profChart[newIndex + 1] = Math.floor(lastY / canv.height * 100)
i++
ctx.stroke!
colorMarkings = "&chco=" + colorArray.join(",") + "&chm="
i = 0
while i < colorArray.length
if i % 3 is 0
colorArray[i] = "s," + colorArray[i] + "," + i + ",-1,6"
else if i % 3 is 1
colorArray[i] = "o," + colorArray[i] + "," + i + ",-1,6"
else
colorArray[i] = "c," + colorArray[i] + "," + i + ",-1,10"
i++
colorMarkings += colorArray.join("|")
if minval <= 0 and maxval >= 0
ctx.beginPath!
ctx.strokeStyle = "#000000"
ctx.moveTo 0, canv.height - (scaleFactorY * -1 * minval + 20)
ctx.lineTo canv.width, canv.height - (scaleFactorY * -1 * minval + 20)
ctx.stroke!
graphPlace = 1 - ((canv.height - (scaleFactorY * -1 * minval + 20)) / canv.height)
colorMarkings += "|r,000000,0," + graphPlace + "," + (graphPlace + 0.005)
if minX <= 0 and maxX >= 0
ctx.beginPath!
ctx.strokeStyle = "#000000"
ctx.moveTo scaleFactorX * -1 * minX + 20, 0
ctx.lineTo scaleFactorX * -1 * minX + 20, canv.height
ctx.stroke!
graphPlace = (scaleFactorX * -1 * minX + 20) / canv.width
colorMarkings += "|R,000000,0," + graphPlace + "," + (graphPlace + 0.005)
gChart = document.getElementById("googleLineChart")
minX -= (maxX - minX) / 23
maxX += (maxX - minX) / 23
minval -= (maxval - minval) / 18
maxval += (maxval - minval) / 18
profChartUrl = "chs=300x250" + colorMarkings + "&cht=lxy&chxt=x,y&chxr=0," + minX + "," + maxX + "|1," + minval + "," + maxval + "&chd=t:" + profChart.join("|")
# gChart.innerHTML = ""
MakeScatterChart = (spreadsheet, range, gview, gtype, helpflag, isResize) ->
values = []
labels = []
total = 0
colors = ['0' to '9'].concat ['a' to 'f']
if range.left is range.right
nitems = range.bottom - range.top + 1
byrow = true
else
nitems = range.right - range.left + 1
byrow = false
if isResize
try
minX = 1 * document.getElementById("SocialCalc-graphMinX").value
catch e
minX = null
try
maxX = 1 * document.getElementById("SocialCalc-graphMaxX").value
catch e
maxX = null
try
minval = 1 * document.getElementById("SocialCalc-graphMinY").value
catch e
minval = null
try
maxval = 1 * document.getElementById("SocialCalc-graphMaxY").value
catch e
maxval = null
evenlySpaced = false
dotSizes = new Array!
i = 0
while i < nitems
cr = (if byrow then SocialCalc.rcColname(range.left) + (i + range.top) else SocialCalc.rcColname(i + range.left) + range.top)
cr1 = (if byrow then SocialCalc.rcColname(range.left - 1 or 1) + (i + range.top) else SocialCalc.rcColname(i + range.left) + (range.top - 1 or 1))
cr2 = (if byrow then SocialCalc.rcColname(range.left + 1 or 2) + (i + range.top) else SocialCalc.rcColname(i + range.left) + (range.top + 1 or 2))
cell = spreadsheet.sheet.GetAssuredCell(cr)
if cell.valuetype.charAt(0) is "n"
val = cell.datavalue - 0
maxval = val if (not maxval? or maxval < val) and not isResize
minval = val if (not minval? or minval > val) and not isResize
values.push val
cell = spreadsheet.sheet.GetAssuredCell(cr1)
if (range.right is range.left or range.top is range.bottom) and (cell.valuetype.charAt(0) is "t" or cell.valuetype.charAt(0) is "n")
labels.push cell.datavalue + ""
maxX = cell.datavalue if (not maxX? or maxX < cell.datavalue) and not isResize
minX = cell.datavalue if (not minX? or minX > cell.datavalue) and not isResize
else
labels.push cr
evenlySpaced = true
cell = spreadsheet.sheet.GetAssuredCell(cr2)
if (range.right is range.left or range.top is range.bottom) and (cell.valuetype.charAt(0) is "t" or cell.valuetype.charAt(0) is "n")
dotSizes.push cell.datavalue + ""
else
dotSizes.push "5"
i++
if evenlySpaced
i = 0
while i < values.length
labels[i] = i
i++
unless isResize
minX = 0
maxX = values.length - 1
str = ""
str += "