on openCard
# Examples 3 and 4 require data in a global variable. Set the global variable if necessary
# (this is necessary if someone saved the stack with example 3 or 4 showing and just
# started up the stack).
global gData, zztbgetUnformattedDataFromGlobal
if field "info" contains "Example 3:" then
put the wdata1data of this stack into gData
else if field "info" contains "Example 4:" then
put the wdata2data of this stack into zztbgetUnformattedDataFromGlobal
put tbGetColumns(183, the wdata2data of this stack) into gData
end if
pass openCard
end openCard
function tbGetColumns pNumColumns, pS
set the itemDelimiter to tab
put pNumColumns + 0 into tNumColumns
put "" into r
repeat for each line l in pS
put item 1 to tNumColumns of l after r
put cr after r
end repeat
return r
delete the last char of r #Delete trailing return.
end tbGetColumns
on doubleClickOnTable pWhereClicked
put "You clicked on the table, part (column, row): "& pWhereClicked
end doubleClickOnTable
cREVGeometryCacheIDs 1166424932901 62601166424932902 62651166424932903 62661166424932904 62751166424932905 68111166424932906 68121166424932896 62191166424932907 68241166424932897 62511166424932908 68141166424932898 62541166424932910 68161166424932909 68151166424932899 62551166424932911 68171166424932912 68181166424932913 68191166424932914 68201166424932915 68211166424932916 68221166424932917 68231166424932918 68251166423936974 62961166423936975 62951166424932900 6257 cREVGeometryCache order total 25 K k n o q t y z © ķ graph IĆ# Copyright (c) Kenneth L. Simons 2000-2003. # All Rights Reserved. # The author hereby allows others to use the graph object according to the following principles: # Anyone may use the graph object for any purpose. # Rights to use of the original object must remain in the public domain. local aNumScaleLabelsCreated local aXScaleTextBottom local aDuplicatedPointNums on makeGraph # 1. Ensure (some of the) properties are okay. ensurePropertiesOkay # 2. Get/Calculate subsidiary information. # 2a. Main graph coordinates. put the graphMainRect of me into tGMR set the rect of button "graph background" of me to tGMR put item 1 of tGMR into a # Left side coordinate of main graph. put item 4 of tGMR into b # Bottom coordinate of main graph. put (item 3 of tGMR) - a into w # Width of main graph. put b - (item 2 of tGMR) into h # Height of main graph. # 2b. Data and axis scales. put "" into aDuplicatedPointNums put the graphX of me into tXData put singleNonmissingItemNum(tXData) into tSingleNonmXItemN if tSingleNonmXItemN <> "" then put ","& (item tSingleNonmXItemN of tXData) after item tSingleNonmXItemN of tXData # If only one data point, make 2 identical DPs for correct graphing. noteDuplicatedPointNum tSingleNonmXItemN end if put the number of items in tXData into tNumXPoints if (char -1 of tXData) = "," then add 1 to tNumXPoints # Include the blank item at the end. put nonBlankItems(tXData) into tXDataNonBlank # Used when finding min and max. put min(tXDataNonBlank) into tXMin if (the graphXMin of me) <> "" then put min(the graphXMin of me,tXMin) into tXMin put max(tXDataNonBlank) into tXMax if (the graphXMax of me) <> "" then put max(the graphXMax of me,tXMax) into tXMax put (tXMin = "" or tXMin > 0) and (the graphXLog of me = true) into tXLogarithmic if tXLogarithmic then put listLn(tXData) into tXData if tXMin <> "" then put ln(tXMin) into tXMin if tXMax <> "" then put ln(tXMax) into tXMax end if if (the graphXRound of me) = "true" then put roundRange(tXMin, tXMax, tXLogarithmic) into tRoundedXRange put item 1 of tRoundedXRange into tXMin put item 2 of tRoundedXRange into tXMax end if if tXMin = tXMax then if tXMin = 0 then put -1 into tXMin put 1 into tXMax else if tXMin > 0 then put tXMin * 2 into tXMax put 0 into tXMin else put 0 into tXMax put tXMin * 2 into tXMin end if end if put (the number of lines in the graphY of me) into tNumCurves repeat with i = 1 to tNumCurves put line i of the graphY of me into tYData[i] # In general this is a line of multiple numbers (so don't use format). end repeat repeat with i = 1 to tNumCurves if tSingleNonmXItemN <> "" then if (the number of items in tYData[i]) >= tSingleNonmXItemN then # This if-then is not crucial, but better with very many data points. put ","& item tSingleNonmXItemN of tYData[i] after item tSingleNonmXItemN of tYData[i] # Duplicate a data point, because it has been duplicated (for correct graphing) in the x-data. end if end if put singleNonmissingItemNum(tYData[i]) into tSingleNonmYItemN if tSingleNonmYItemN <> "" then # If only one data point, make 2 identical DPs for correct graphing. put ","& (item tSingleNonmYItemN of tXData) after item tSingleNonmYItemN of tXData add 1 to tNumXPoints repeat with j = 1 to tNumCurves put ","& (item tSingleNonmYItemN of tYData[j]) after item tSingleNonmYItemN of tYData[j] end repeat noteDuplicatedPointNum tSingleNonmYItemN end if put nonBlankItems(tYData[i]) into thisYDataNonBlank # Used when finding min and max. put line i of the graphYMin of me into tThisGraphYMin put format("%14.12e", min(thisYDataNonBlank)) into tYMin[i] if tThisGraphYMin <> "" then put format("%14.12e", min(tThisGraphYMin,tYMin[i])) into tYMin[i] put line i of the graphYMax of me into tThisGraphYMax put format("%14.12e", max(thisYDataNonBlank)) into tYMax[i] if tThisGraphYMax <> "" then put format("%14.12e", max(tThisGraphYMax,tYMax[i])) into tYMax[i] end repeat repeat with i = 1 to tNumCurves put (tYMin[i] = "" or tYMin[i] > 0) and ((the graphYLog of me) = "true" or (line i of the graphYLog of me) = true) into tYLogarithmic[i] if tYLogarithmic[i] then put listLn(tYData[i]) into tYData[i] if tYMin[i] <> "" then put ln(tYMin[i]) into tYMin[i] if tYMax[i] <> "" then put ln(tYMax[i]) into tYMax[i] end if end repeat put the graphYScaleSame of me into tYScalesSame # Determine whether y-scales forced to be the same. if tYScalesSame = true then # Disallow y-scales same if some logarithmic, some not. repeat with i = 2 to tNumCurves if tYLogarithmic[i] <> tYLogarithmic[1] then put false into tYScalesSame exit repeat end if end repeat end if if tYScalesSame = "true" then # A single ymin and ymax scale for all curves. put tYMin[1] into tYMinAll put tYMax[1] into tYMaxAll repeat with i = 2 to tNumCurves put min(tYMinAll,tYMin[i]) into tYMinAll put max(tYMaxAll,tYMax[i]) into tYMaxAll end repeat if tYMinAll = tYMaxAll then if tYMinAll = 0 then put -1 into tYMinAll put 1 into tYMaxAll else if tYMinAll > 0 then put tYMinAll * 2 into tYMaxAll put 0 into tYMinAll else put 0 into tYMaxAll put tYMinAll * 2 into tYMinAll end if end if if (the graphYRound of me) = "true" then put roundRange(tYMinAll, tYMaxAll, tYLogarithmic[1]) into tRoundedYRange put item 1 of tRoundedYRange into tYMinAll put item 2 of tRoundedYRange into tYMaxAll end if put format("%14.12e", tYMinAll) into tYMinAll put format("%14.12e", tYMaxAll) into tYMaxAll repeat with i = 1 to tNumCurves put tYMinAll into tYMin[i] put tYMaxAll into tYMax[i] end repeat else # Different ymin and ymax scales for different curves. if (the graphYRound of me) = "true" then repeat with i = 1 to tNumCurves put roundRange(tYMin[i], tYMax[i], tYLogarithmic[i]) into tRoundedYRange put format("%14.12e", item 1 of tRoundedYRange) into tYMin[i] put format("%14.12e", item 2 of tRoundedYRange) into tYMax[i] end repeat else repeat with i = 1 to tNumCurves if tYMin[i] = tYMax[i] then if tYMin[i] = 0 then put -1 into tYMin[i] put 1 into tYMax[i] else if tYMin[i] > 0 then put tYMin[i] * 2 into tYMax[i] put 0 into tYMin[i] else put 0 into tYMax[i] put tYMin[i] * 2 into tYMin[i] end if end if end repeat end if end if # 2c. Whether the y-axis scales for multiple variables are the same. if tYScalesSame <> "true" then put true into tYScalesSame # Assume same until proven different. repeat with i = 2 to tNumCurves if tYMin[i] <> tYMin[1] or tYMax[i] <> tYMax[1] then put false into tYScalesSame exit repeat end if end repeat end if # 2d. Scaling factors for plotting data. put w / (tXMax - tXMin) into tXScaleFactor repeat with i = 1 to tNumCurves put format("%14.12e", h / (tYMax[i] - tYMin[i])) into tYScaleFactor[i] end repeat # 2f. X and Y values at which to plot tic marks. if the graphXTicks of me = "none" then put "" into tXTickLocs else if (word 1 of the graphXTicks of me) = "about" then put chooseTickLocs(tXMin, tXMax,(word 2 of the graphXTicks of me),"") into tXTickLocs else if (word 1 of the graphXTicks of me) = "exactly" or (word 1 of the graphXTicks of me) = "exact" then put chooseTickLocs(tXMin, tXMax,"",(word 2 of the graphXTicks of me)) into tXTickLocs else if the graphXTicks of me <> "" then put the graphXTicks of me into tXTickLocs else put tXMin &","& tXMax into tXTickLocs end if if the graphYTicks of me = "none" then put "" into tYTickLocs else if (word 1 of the graphYTicks of me) = "about" then put chooseTickLocs(tYMin[1], tYMax[1],(word 2 of the graphYTicks of me),"") into tYTickLocs else if (word 1 of the graphYTicks of me) = "exactly" or (word 1 of the graphYTicks of me) = "exact" then put chooseTickLocs(tYMin[1], tYMax[1],"",(word 2 of the graphYTicks of me)) into tYTickLocs else if the graphYTicks of me <> "" then put the graphYTicks of me into tYTickLocs else put tYMin[1] &","& tYMax[1] into tYTickLocs # Y tic locs are defined in terms of the first y variable only. end if # 3. Lock the screen before doing anything that affects the display. lock screen # 4. Delete existing graphics and fields in this graph object, and the "graph cover" button if any. put the number of graphics in me into nGraphics repeat with i = nGraphics down to 1 delete graphic i of me end repeat put the number of fields in me into nFields repeat with i = nFields down to 1 delete field i of me end repeat if there is a button "graph cover" of me then delete button "graph cover" of me # 5. Draw axes. reset templateGraphic set the style of the templateGraphic to "polygon" set the lineSize of the templateGraphic to the graphAxisWidth of me set the points of the templateGraphic to a &","& (b-h) & cr & a &","& b & cr & (a+w) &","& b createGraphic "axes" put a &","& (b-h) &","& (a+w) &","& b into tGraphCoverRect # May be used below, for editable graphs. # 6. Draw tick marks. # 6a. Draw major tick marks and labels. put "" into aXScaleTextBottom put 0 into aNumScaleLabelsCreated put "" into tTickPoints put tXTickLocs <> "" and (the graphXTicksVisible of me) <> "false" into tXTicksVisible put tXTickLocs <> "" and (the graphXScaleVisible of me) <> "false" into tXScaleVisible if tXTicksVisible or tXScaleVisible then if the graphXTicksInset of me = "true" or (not tXTicksVisible) then put the graphTickMajorWidth of me into tTickOffset else put 0 into tTickOffset end if repeat for each item thisXLoc in tXTickLocs put round(a + (thisXLoc - tXMin) * tXScaleFactor) into thisXWindowLoc put b + (the graphTickMajorWidth of me) - tTickOffset into tYAtBottomOfTick if tXTicksVisible then put thisXWindowLoc &","& (b-tTickOffset) & cr & thisXWindowLoc &","& tYAtBottomOfTick & cr & cr after tTickPoints if tXScaleVisible then if tXLogarithmic then put exp(thisXLoc) into thisXLoc makeAxisLabel "x", thisXWindowLoc, tYAtBottomOfTick, thisXLoc end if end repeat end if put tYTickLocs <> "" and (the graphYTicksVisible of me) <> "false" into tYTicksVisible put the graphYScaleVisible of me into tGYSVOM if tGYSVOM = "true" then if not tYScalesSame then # When the graphYScaleVisible is true and there are multiple curves with different scales, display scales for each. put "" into tGYSVOM repeat with i = 1 to tNumCurves put i &"," after tGYSVOM end repeat delete the last char of tGYSVOM #Delete trailing comma. end if end if put tYTickLocs <> "" and tGYSVOM <> "false" into tYScaleVisible if tYTicksVisible or tYScaleVisible then if the graphYTicksInset of me = "true" or (not tYTicksVisible) then put the graphTickMajorWidth of me into tTickOffset else put 0 into tTickOffset end if repeat for each item thisYLoc in tYTickLocs # Step through different tick marks. (Recall that tYTickLocs is defined only in terms of the first y-variable.) put round(b - (thisYLoc - tYMin[1]) * tYScaleFactor[1]) into thisYWindowLoc put a - the graphTickMajorWidth of me + tTickOffset into tXAtLeftOfTick if tXTicksVisible then put tXAtLeftOfTick &","& thisYWindowLoc & cr & (a + tTickOffset) &","& thisYWindowLoc & cr & cr after tTickPoints if tYScaleVisible then if tGYSVOM = "true" then if tYLogarithmic[1] then put exp(thisYLoc) into tYLocsForScaleLabel else put thisYLoc into tYLocsForScaleLabel put "" into tYColorsForScaleLabel else if thisYLoc = tYMax[1] then put 1 into tYFrac else put (thisYLoc - tYMin[1]) / (tYMax[1] - tYMin[1]) into tYFrac put "" into tYLocsForScaleLabel put "" into tYColorsForScaleLabel put the number of items in tGYSVOM into n repeat with i = 1 to n # Step through different curves. put item i of tGYSVOM into thisCurveNum put tYMin[thisCurveNum] into tThisMin put tYMax[thisCurveNum] - tThisMin into tThisDiff if tYFrac = 1 then put tYMax[thisCurveNum] into tThisY #Avoid rounding error. else put tThisMin + tThisDiff * tYFrac into tThisY if tYLogarithmic[i] then put exp(tThisY) into tThisY put tThisY & return after tYLocsForScaleLabel put line i of the graphLineColors of me into tGC if tGC = "" then put the effective foregroundColor of me into tGC put tGC & return after tYColorsForScaleLabel end repeat delete the last char of tYLocsForScaleLabel #Delete trailing return. delete the last char of tYColorsForScaleLabel #Delete trailing return. end if makeAxisLabel "y", tXAtLeftOfTick, thisYWindowLoc, tYLocsForScaleLabel, tYColorsForScaleLabel end if end repeat end if if tXTicksVisible or tYTicksVisible then reset templateGraphic set the style of the templateGraphic to "polygon" set the points of the templateGraphic to tTickPoints createGraphic "ticks" end if # 7. Draw data. repeat with i = 1 to tNumCurves put tYScaleFactor[i] into thisYScaleFactor reset templateGraphic set the style of the templateGraphic to "polygon" if (line i of the graphLinesVisible of me) = "false" then put 0 into tGLW else put line i of the graphLineWidths of me into tGLW if tGLW is an integer then set the lineSize of the templateGraphic to tGLW put "" into tPoints repeat with j = 1 to tNumXPoints put item j of tXData into x put item j of tYData[i] into y if x = "" or y = "" then put cr after tPoints else put round(a + (x - tXMin) * tXScaleFactor) &","& round(b - (y - tYMin[i]) * thisYScaleFactor) & cr after tPoints end repeat delete char -1 of tPoints # Delete trailing return. set the points of the templateGraphic to tPoints put line i of the graphLineColors of me into tGC if tGC <> "" then set the foregroundColor of the templateGraphic to tGC put line i of the graphLineDashes of me into tGD if tGD <> "" then set the dashes of the templateGraphic to tGD if the graphClickable of me = "true" then set the script of the templateGraphic to "on mouseUp"& cr &" graphClicked "& i &", ((item 1 of the clickLoc) - "& a &") / "& tXScaleFactor &" + "& tXMin &", ("& b &" - (item 2 of the clickLoc)) / "& thisYScaleFactor &" + "& tYMin[i] & cr &"end mouseUp" end if put graphMarkerLineToPoints(line i of the graphMarkers of me) into tGM if tGM <> "" then put line 1 of tGM into tGMFilled put line 2 to -1 of tGM into tGMPoints set the markerDrawn of the templateGraphic to true set the markerFilled of the templateGraphic to tGMFilled set the markerPoints of the templateGraphic to tGMPoints if tGC <> "" then set the markerColor of the templateGraphic to tGC set the markerFillColor of the templateGraphic to tGC end if end if createGraphic "curve "& i end repeat # 8. Title. put the graphTitle of me into tMainTitle if tMainTitle <> "" then put the graphTitleTextSize of me into tTS if tTS = "" then put 12 into tTS put tTS + 4 into tTH put round(((item 1 of tGMR)+(item 3 of tGMR))/2) into tXLoc put round((item 2 of tGMR) - (the graphTitleGap of me)) into tBottom makeAField "title", tMainTitle, "center", the graphTitleTextFont of me, the graphTitleTextStyle of me, "", tTS, tTH, (tXLoc &","& 0), "", "", "", tBottom end if # 9. Axis variable/label names. put the graphXYLabelTextSize of me into tTS if tTS = "" then put 9 into tTS put tTS + 4 into tTH put the graphXLabel of me into tGXL if tGXL <> "" then put round(((item 1 of tGMR)+(item 3 of tGMR))/2) + (the graphXLabelXNudge of me) into tXLoc if tXTicksVisible then put the graphTickMajorWidth of me into tYOffset else put 0 into tYOffset end if if aXScaleTextBottom <> "" then put aXScaleTextBottom - 1 into tTopOfField else put (item 4 of tGMR) + tYOffset - 1 into tTopOfField end if add the graphXLabelYNudge of me to tTopOfField makeAField "x varname", tGXL, "center", the graphXYLabelTextFont of me, "", "", tTS, tTH, (tXLoc &","& 0), "", tTopOfField, "", "" put the bottom of field "x varname" of me into tXLabelingBottom # Used when making a key. else # No x-axis label was created. if aXScaleTextBottom <> "" then put aXScaleTextBottom into tXLabelingBottom # Used when making a key. else put b into tXLabelingBottom # Used when making a key. end if end if put the graphYLabel of me into tGYL if tGYL <> "" then # The left and bottom chosen here are quite arbitrary; there are certainly better methods to choose them. put (item 1 of tGMR) - 30 into tLeft if tXTicksVisible then subtract the graphTickMajorWidth of me from tLeft end if add the graphYLabelXNudge of me to tLeft put (item 2 of tGMR) - 6 into tBottom add the graphYLabelYNudge of me to tBottom makeAField "y varname", tGYL, "left", the graphXYLabelTextFont of me, "", "", tTS, tTH, "", tLeft, "", "", tBottom end if # 10. Key. # 10a. Whether to create a key, and what its text will say. put the graphYVariableNames of me into tKeyNames put the graphYScalesInKey of me into tIncludeYScalesInKey put the graphKeyLogIndicator of me into tLogIndicator if tLogIndicator <> "" then put " " before tLogIndicator put false into tMakeKey # Assume false until proven true. put "" into tKeyContents put 0 into i repeat for each line tThisKeyName in tKeyNames add 1 to i if tThisKeyName <> "" then put true into tMakeKey put tThisKeyName after tKeyContents if tYLogarithmic[i] then put tLogIndicator after tKeyContents put line i of the graphYUnitsOfMeasureInKey of me into tUnitsOfMeasure if tIncludeYScalesInKey then if tUnitsOfMeasure <> "" then put " " before tUnitsOfMeasure put " ("& displayRange(tYMin[i], tYMax[i]) & tUnitsOfMeasure &")" after tKeyContents # State the range and units of measure for this variable. else if tUnitsOfMeasure <> "" then put " ("& tUnitsOfMeasure &")" after tKeyContents # State the units of measure for this variable. end if put return after tKeyContents end if if i >= tNumCurves then exit repeat end repeat delete char -1 of tKeyContents # Delete trailing return. # 10b. Make key. if tMakeKey then # 10b1. Make the text of the key. put the graphKeyTextSize of me into tTS put tTS + min(0, round(the graphKeyTextSeparation of me)) into tTH put a + 20 + (the graphKeyXNudge of me) into tLeft put tXLabelingBottom + 12 + (the graphKeyYNudge of me) into tTop makeAField "key", tKeyContents, "left", the graphKeyTextFont of me, "plain", "", tTS, tTH, "", tLeft, tTop, "", "" # 10b2. Plot line segments in the key. repeat with i = 1 to tNumCurves put "curve "& i into tCurveName put the points of graphic tCurveName of me into tPoints put tTop + roundUp(tTH/2) + (i-1)*tTH into tLabelLineY put (tLeft - 20) &","& tLabelLineY into tPointA put (tLeft - 5) &","& tLabelLineY into tPointB put cr & cr & tPointA & cr & tPointB after tPoints set the points of graphic tCurveName of me to tPoints end repeat end if # 11. If requested, prepare for editable graph. if (the graphEditable of me) and (tNumCurves > 0) then reset templateButton set the rect of the templateButton to tGraphCoverRect set the script of the templateButton to "on mouseDown"& cr &" graphCoverClicked"& cr &"end mouseDown" set the showName of the templateButton to false set the showBorder of the templateButton to false set the threeD of the templateButton to false set the opaque of the templateButton to false set the traversalOn of the templateButton to false set the autoHilite of the templateButton to false create button "graph cover" in me set the cpEditCurveNum of button "graph cover" of me to tNumCurves set the cpGraphYMin of button "graph cover" of me to tYMin[tNumCurves] set the cpGraphYMax of button "graph cover" of me to tYMax[tNumCurves] # A minor part of setting up is determining whether the x-data are ordered, because # if the x-data are nondecreasing or nonincreasing, processing can be sped up for # editing graphs. put the points of graphic ("curve "& tNumCurves) of me into tPointsOfCurve if tMakeKey then delete line -3 to -1 of tPointsOfCurve # Ignore parts that pertain to the key. set the cpXDataRanges of button "graph cover" of me to clickXRanges(getXVals(tPointsOfCurve)) set the graphYDataEdited of me to tYData[tNumCurves] else set the graphYDataEdited of me to "" end if # 12. Unlock the screen and go back to the browse (hand) tool. reset templateField reset templateGraphic reset templateButton choose browse tool unlock screen end makeGraph on noteDuplicatedPointNum pNewPointNum put the number of items in aDuplicatedPointNums into tN repeat with i = 1 to tN put item i of aDuplicatedPointNums into tPN if pNewPointNum < tPN then put (tPN+1) into item i of aDuplicatedPointNums end repeat put pNewPointNum into item (tN+1) of aDuplicatedPointNums sort items of aDuplicatedPointNums numeric descending end noteDuplicatedPointNum # The following routine creates an axis-label field containing string s. The location of the # field is relative to point pXLoc,pYLoc - which is normally the bottom (for x-ticks) or # left (for y-ticks) point in an axis tick mark. pXOrY is either "x" or "y". The optional # parameter tYColorsForScaleLabel can have color indications in different lines, # to set the colors of different lines s. A multi-line s only makes sense for y-axis scales. on makeAxisLabel pXOrY, pXLoc, pYLoc, s, pTextColors if pXOrY = "x" and (the graphXScaleVisible of me = "false") then exit makeAxisLabel if pXOrY = "y" and (the graphYScaleVisible of me = "false") then exit makeAxisLabel add 1 to aNumScaleLabelsCreated put "sl"& aNumScaleLabelsCreated into tFieldName if pXOrY = "x" then put "center" into tTA else put "right" into tTA put the graphScaleTextSize of me into tTS if tTS = "" then put 9 into tTS put tTS + min(0, round(the graphScaleTextSeparation of me)) into tTH if pXOrY = "x" then put 1 into tXFudge put 1 into tYFudge put round(pXLoc + tXFudge) into pXLocToUse put "" into pRightToUse put round(pYLoc + tYFudge) into pTopToUse else put 5 into tXFudge put -1 into tYFudge put "" into pXLocToUse put round(pXLoc + tXFudge) into pRightToUse put round(pYLoc + tYFudge - tTS/2) into pTopToUse end if put makeNumbersNiceForDisplay(s) into s makeAField tFieldName, s, tTA, the graphScaleTextFont of me, "", pTextColors, tTS, tTH, (pXLocToUse &",0"), "", pTopToUse, pRightToUse, "" if pXOrY = "x" then put the bottom of field tFieldName of me into aXScaleTextBottom end makeAxisLabel # Retun the passed string, ensuring that if it is a number -- or a series of numbers on separate # lines -- the number(s) display nicely. # A disadvantage of how I use this above is, I ought to give enough accuracy to display even # a tiny range between min & max scales. function makeNumbersNiceForDisplay pS put the graphScaleExponentHighThreshold of me into tLargeNumberToExpThreshold put the graphScaleExponentLowThreshold of me into tSmallNumberToExpThreshold put the graphScaleMinimumSignificantDigits of me into tMinimumSignificantDigits put the number of lines in pS into tNumLines repeat with i = 1 to tNumLines put line i of pS into s if s is a number then put s+0 into n if n = 0 then put "0" into s else if abs(n) < tSmallNumberToExpThreshold or abs(n) >= tLargeNumberToExpThreshold then put getMagnitude(n) into m if the graphScaleExponentFormat of me is "^" then put "*10^" into tExponentSeparator else put "e" into tExponentSeparator end if put round(n / 10^m, tMinimumSignificantDigits - 1) & tExponentSeparator & m into s #put format("%3.2g", n / 10^m) & tExponentSeparator & m into s else if n is an integer then put n into s else put getMagnitude(n) into m put min(0, m - (tMinimumSignificantDigits - 1)) into magnitudeAtWhichToRound put round(n, -magnitudeAtWhichToRound) into s #put format("%3.2g", n) into s end if end if put s into line i of pS end repeat return pS end makeNumbersNiceForDisplay # The following routine creates a field as specified. Parameter pFieldName must be unique # on each call. Parameters pTextSize and pTextHeight must be valid positive integers. To # set the location of the field, either pass the location in pLoc, or pass the horizontal location # in one of pLoc (the vertical location in pLoc is arbitrary) / pLeft / pRight and the vertical # location in one of pLoc (the horizontal location in pLoc is arbitrary) / pTop / pBottom. on makeAField pFieldName, pContents, pTextAlign, pTextFont, pTextStyle, pTextColors, pTextSize, pTextHeight, pLoc, pLeft, pTop, pRight, pBottom reset templateField set the threeD of the templateField to false set the showBorder of the templateField to false set the opaque of the templateField to false set the lockText of the templateField to true if pTextAlign <> "" then set the textAlign of the templateField to pTextAlign if pTextFont <> "" then set the textFont of the templateField to pTextFont set the textSize of the templateField to pTextSize # The textSize must be set after the textFont. set the textHeight of the templateField to pTextHeight if pTextStyle <> "" then set the textStyle of the templateField to pTextStyle put the number of lines in pContents into tNumLines put 10000 into h # Take a purposely too high guess at the necessary height to display the string. #put tNumLines * pTextHeight + 8 into h set the height of the templateField to h put 10000 into w # Take a purposely too high guess at the necessary width to display the string. # put maxLineLength(pContents) * pTextSize into w # if pTextStyle contains "bold" then multiply w by 2 set the width of the templateField to w set the autoTab of the templateField to false create field pFieldName in me put pContents into field pFieldName of me put the formattedHeight of field pFieldName of me into h set the height of field pFieldName of me to h put (the formattedWidth of field pFieldName of me) + 10 into w # The formattedWidth is actually not wide enough to deter word wrapping (perhaps because of margins?), so I add 10. set the width of field pFieldName of me to w if pLoc <> "" then set the loc of field pFieldName of me to pLoc if pLeft <> "" then set the left of field pFieldName of me to pLeft if pTop <> "" then set the top of field pFieldName of me to pTop if pRight <> "" then set the right of field pFieldName of me to pRight if pBottom <> "" then set the bottom of field pFieldName of me to pBottom if pTextColors <> "" then put the number of lines in pTextColors into n repeat with i = 1 to n set the textColor of line i of field pFieldName of me to line i of pTextColors end repeat end if end makeAField function maxLineLength pString put 0 into tMaxSoFar repeat for each line l in pString put length(l) into tLineLength if tLineLength > tMaxSoFar then put tLineLength into tMaxSoFar end repeat return tMaxSoFar end maxLineLength function nonBlankItems s put "" into r repeat for each item thisItem in s if thisItem <> "" then put thisItem &"," after r end repeat delete char -1 of r return r end nonBlankItems function graphMarkerLineToPoints s put word 1 of s into w1 if w1 = "" then put false into tFilled put "dot" into s else if w1 = "none" then return "" # No markers. exit graphMarkerLineToPoints else if w1 = "filled" or w1 = "solid" then put true into tFilled delete word 1 of s else if w1 = "empty" or w1 = "hollow" then put false into tFilled delete word 1 of s else #Default is hollow. put false into tFilled end if put word 1 of s into tSizeWord put word 2 of s into tTypeWord if tTypeWord = "" then put tSizeWord into tTypeWord put "small" into tSizeWord end if set the wholeMatches to true put wordOffset(tSizeWord, "tiny small medium large") into tSizeNumberFromWord if tSizeNumberFromWord > 0 then put word tSizeNumberFromWord of "0.1 0.25 0.5 1" into tSizeNumber else if (tSizeWord is a number) then put tSizeWord into tSizeNumber else put 0 into tSizeNumber end if put wordOffset(tTypeWord, "dot + x diamond square triangle circle") into tTypeNumber if tTypeNumber > 0 then if tTypeNumber = 1 then #Dot put "0,0 0,0" into tPoints else if tTypeNumber = 2 then #+ put "0,-12 0,12 -12,0 12,0" into tPoints else if tTypeNumber = 3 then #x put "-12,-12 12,12 -12,12 12,-12" into tPoints else if tTypeNumber = 4 then #Diamond put "0,-12 12,0 0,12 -12,0 0,-12" into tPoints else if tTypeNumber = 5 then #Square put "-12,-12 12,-12 12,12 -12,12 -12,-12" into tPoints else if tTypeNumber = 6 then #Triangle put "0,-12 12,12 -12,12 0,-12" into tPoints else if tTypeNumber = 7 then #Circle put "0,-12 2,-12 5,-11 7,-10 9,-9 10,-7 11,-5 12,-2 12,0 12,2 11,5 10,7 9,9 7,10 5,11 2,12 0,12 -2,12 -5,11 -7,10 -9,9 -10,7 -11,5 -12,2 -12,0 -12,-2 -11,-5 -10,-7 -9,-9 -7,-10 -5,-11 -2,-12 0,-12" into tPoints else if tSizeNumber > 0 or tSizeWord is a number then delete word 1 of s else put 1 into tSizeNumber end if put s into tPoints end if replace " " with cr in tPoints if tSizeNumber <> 1 then put tPoints into tPointsOriginal put "" into tPoints put the number of lines in tPointsOriginal into n repeat with i = 1 to n put line i of tPointsOriginal into l repeat with j = 1 to 2 put round(tSizeNumber * (item j of l)) into item j of l end repeat put l & cr after tPoints end repeat delete char -1 of tPoints #Delete trailing return. end if end if return tFilled & cr & tPoints end graphMarkerLineToPoints on ensurePropertiesOkay # graphAxisWidth if the graphAxisWidth of me is not an integer then set the graphAxisWidth of me to 2 else if the graphAxisWidth of me < 1 then set the graphAxisWidth of me to 1 end if # graphMainRect put the graphMainRect of me into tGMR if tGMR <> "" then put tGMR into tGMRInit put the number of items in tGMR into n if n < 4 then put "" into tGMR else if n > 4 then put item 1 to 4 of tGMR into tGMR else repeat for each item tItem in tGMR if not (tItem is an integer) then put "" into tGMR exit repeat end if end repeat end if end if if tGMR = "" then put the rect of me into tGMR if tGMR <> tGMRInit then set the graphMainRect of me to tGMR # Data - ensure no spaces and no "NaN" values. put the graphX of me into tGX replace " " with "" in tGX replace "NaN" with "" in tGX set the graphX of me to tGX put the graphY of me into tGY replace " " with "" in tGY replace "NaN" with "" in tGY set the graphY of me to tGY # Tic widths. put the graphTickMajorWidth of me into tGTMW if not (tGTMW is an integer) then if tGTMW is a number then put round(tGTMW) into tGTMW else put 4 into tGTMW end if set the graphTickMajorWidth of me to tGTMW end if # Tick labels. put the graphScaleMinimumSignificantDigits of me into tMSD if tMSD is not a number then set the graphScaleMinimumSignificantDigits of me to 3 else if tMSD < 1 then set the graphScaleMinimumSignificantDigits of me to 1 else if tMSD is not an integer then set the graphScaleMinimumSignificantDigits of me to (trunc(tMSD) + 1) end ensurePropertiesOkay on setDefaultProperties set the graphAxisWidth of me to 1 set the graphClickable of me to "false" set the graphEditable of me to "false" set the graphKeyLogIndicator of me to "[logarithmic]" set the graphKeyTextFont of me to "" set the graphKeyTextSeparation of me to 3 set the graphKeyTextSize of me to 10 set the graphKeyXNudge of me to 0 set the graphKeyYNudge of me to 0 set the graphLineColors of me to "" set the graphLineDashes of me to "" set the graphLinesVisible of me to "true" set the graphLineWidths of me to "" set the graphMainRect of me to 50,50,250,150 set the graphMarkers of me to "" set the graphScaleExponentFormat of me to "^" set the graphScaleExponentHighThreshold of me to 100000 set the graphScaleExponentLowThreshold of me to 0.001 set the graphScaleMinimumSignificantDigits of me to 3 set the graphScaleTextSeparation of me to 3 set the graphScaleTextSize of me to 9 set the graphScaleTextFont of me to "" set the graphSendEditMessage of me to false set the graphTickMajorWidth of me to 4 set the graphTitle of me to "" set the graphTitleGap of me to 10 set the graphTitleTextFont of me to "" set the graphTitleTextSize of me to 12 set the graphTitleTextStyle of me to "plain" set the graphX of me to "0,1,2,3,4,5" set the graphXLabel of me to "" set the graphXLabelXNudge of me to 0 set the graphXLabelYNudge of me to 0 set the graphXLog of me to false set the graphXMax of me to "" set the graphXMin of me to "" set the graphXRound of me to false set the graphXScaleVisible of me to true set the graphXTicks of me to "" set the graphXTicksInset of me to false set the graphXTicksVisible of me to true set the graphXYLabelTextFont of me to "" set the graphXYLabelTextSize of me to 9 set the graphY of me to "0,1,2,3,4,5" set the graphYDataEdited of me to "" set the graphYLabel of me to "" set the graphYLabelXNudge of me to 0 set the graphYLabelYNudge of me to 0 set the graphYLog of me to false set the graphYMax of me to "" set the graphYMin of me to "" set the graphYRound of me to false set the graphYScaleSame of me to true set the graphYScaleVisible of me to true set the graphYTicks of me to "" set the graphYTicksInset of me to false set the graphYTicksVisible of me to true set the graphYUnitsOfMeasureInKey of me to "" set the graphYVariableNames of me to "" set the graphYScalesInKey of me to true end setDefaultProperties # The following handlers are used to come up with ranges for graphs. # Included are handlers for scaling numbers & for making them easily readable. # Round the range to use for a graph. Give this min. and max. numbers (in that order) # separated by a comma. This returns the new rounded min. and max., again separated # by a comma. The third argument is true if natural logarithms of the numbers have been # taken but the original numbers (the exponents of the logged numbers) will be displayed. function roundRange pMin, pMax, pLogged put pMin into tMin put pMax into tMax if pLogged <> "true" then if tMin = tMax then put roundDown( ln(abs(tMin)) / 2.3025850929941 ) into magnitude if tMin = 0 then put -1 into tMin put 1 into tMax else if tMin > 0 then put 0 into tMin put 2 * roundUpToMagnitude(tMax, magnitude) into tMax else -- tMin < 0 put 2 * roundDownToMagnitude(tMin, magnitude) into tMin put 0 into tMax end if else put roundDown( ln(abs(tMax - tMin)) / 2.3025850929941 ) into magnitude put roundDownToMagnitude(tMin, magnitude) into tMin put roundUpToMagnitude(tMax, magnitude) into tMax end if else # Deal with the logarithmic case. if tMin = tMax then put tMin - exp(1)/10 into tMin put tMin + exp(1)/10 into tMax else put getMagnitude(tMin) into tMinMagnitude put round(tMin, 1 - tMinMagnitude) into tMinTRounded if tMinTRounded > tMin then put tMinTRounded - 10^(tMinMagnitude - 1) into tMinTRounded put tMinTRounded into tMin put getMagnitude(tMax) into tMaxMagnitude put round(tMax, 1 - tMaxMagnitude) into tMaxTRounded if tMaxTRounded < tMax then put tMaxTRounded + 10^(tMaxMagnitude - 1) into tMaxTRounded put tMaxTRounded into tMax end if end if return tMin &","& tMax end roundRange -- Create a version of the range in readable form. function displayRange pMin, pMax return readableNumber(pMin) &" to "& readableNumber(pMax) end displayRange function readableTwoDigit n return readableNumber(roundToTwoDigits(n)) end readableTwoDigit -- Round to 2 digits of accuracy. function roundToTwoDigits n put getMagnitude(n) into magnitude put 10 ^ (magnitude - 1) into scalingNumber return round( n / scalingNumber ) * scalingNumber end roundToTwoDigits function readableNumber pN put pN + 0 into n if n = 0 then return "0" else put roundDown( ln(abs(n)) / 2.3025850929941 ) into magnitude if magnitude >= 3 and magnitude <= 20 then put magnitude div 3 into powerOfThousand put item powerOfThousand of "thousand,million,billion,trillion,quadrillion,quintillion" into s put 1000 into divisor repeat with i = 2 to powerOfThousand put divisor * 1000 into divisor end repeat put n / divisor into displayN -- if displayN > 0 and displayN < 10 then -- if displayN is an integer then -- put item displayN of "one,two,three,four,five,six,seven,eight,nine" into displayN -- end if -- end if return displayN && s else if magnitude >= -3 and magnitude <= 2 then return n else return (n / 10 ^ magnitude) &" * 10 ^ "& magnitude end if end if end readableNumber function getMagnitude n return roundDown( log10(abs(n)) ) end getMagnitude function roundDownToMagnitude n, magnitude put 10^magnitude into scalingFactor return scalingFactor * roundDown( n / scalingFactor ) end roundDownToMagnitude function roundDown n put trunc( n ) into m if n >= 0 then return m else if n = m then return n else return m - 1 end if end roundDown function roundUpToMagnitude n, magnitude put 10^magnitude into scalingFactor return scalingFactor * roundUp( n / scalingFactor ) end roundUpToMagnitude function roundUp n put trunc( n ) into m if n <= 0 then return m else if n = m then return n else return m + 1 end if end roundUp function roundToMagnitude n, magnitude put 10^magnitude into scalingFactor return scalingFactor * round( n / scalingFactor ) end roundToMagnitude function chooseTickLocs pMin, pMax, pApproxNum, pExactNum put pMin into tMin put pMax into tMax put tMax - tMin into tDiff if pExactNum <> "" then put round(min(max(pExactNum,2),50)) into tNumTicksToUse #Force to be between 2 and 50. else # Choose how many tick marks to use. put round(min(max(pApproxNum,2),50)) into tApproxNum #Force to be between 2 and 50. put 0 into tNumTicksToUse put 0 into tNumTicksToUsePriority2 put 0 into tNumTicksToUsePriority3 put 0 into tNumTicksToUsePriority4 put tDiff / 10^getMagnitude(tDiff) into tDiffInOnesUnits put roundUp(pApproxNum*0.66) into tMinNumTicks put roundDown(pApproxNum*1.515152) into tMaxNumTicks repeat with i = tMinNumTicks to tMaxNumTicks put (i-1) into tNumSteps put round(tDiffInOnesUnits / tNumSteps,4) into tStep if tStep = round(tStep,0) then # This number of tick marks gives a nice round number for the length between tick marks. if tNumTicksToUse = 0 then put i into tNumTicksToUse else if abs(i / tApproxNum - 1) < abs(tNumTicksToUse / tApproxNum - 1) then put i into tNumTicksToUse end if if i >= tApproxNum then exit repeat # The optimal number of ticks has been founded; never choose a higher number than necessary above the "about" number to achieve round-number distances. end if else if tStep = round(tStep,1) then # This number of tick marks gives a fairly nice round number for the length between tick marks. if tNumTicksToUsePriority2 = 0 then put i into tNumTicksToUsePriority2 else if abs(i / tApproxNum - 1) < abs(tNumTicksToUsePriority2 / tApproxNum - 1) then put i into tNumTicksToUsePriority2 end if else if tStep = round(tStep,2) then # This number of tick marks gives a somewhat round number for the length between tick marks. if tNumTicksToUsePriority3 = 0 then put i into tNumTicksToUsePriority3 else if abs(i / tApproxNum - 1) < abs(tNumTicksToUsePriority3 / tApproxNum - 1) then put i into tNumTicksToUsePriority3 end if else if tStep = round(tStep,3) then # This number of tick marks gives a somewhat round number for the length between tick marks. if tNumTicksToUsePriority4 = 0 then put i into tNumTicksToUsePriority4 else if abs(i / tApproxNum - 1) < abs(tNumTicksToUsePriority4 / tApproxNum - 1) then put i into tNumTicksToUsePriority4 end if end if end repeat if tNumTicksToUse = 0 then if tNumTicksToUsePriority2 > 0 then put tNumTicksToUsePriority2 into tNumTicksToUse # Use a fairly-round distance between ticks. else if tNumTicksToUsePriority3 > 0 then put tNumTicksToUsePriority3 into tNumTicksToUse # Use a slightly-round distance between ticks. else if tNumTicksToUsePriority4 > 0 then put tNumTicksToUsePriority4 into tNumTicksToUse # Use a marginally-round distance between ticks. else put tApproxNum into tNumTicksToUse # Couldn't find a round distance between ticks. end if end if end if # Determine the tick mark locations. put "" into tR put tDiff / (tNumTicksToUse - 1) into tStep repeat with i = 1 to tNumTicksToUse if i < tNumTicksToUse then put (tMin + (i - 1) * tStep) &"," after tR else put tMax after tR end repeat return tR end chooseTickLocs # Handle editing of the graph. on graphCoverClicked # Get info needed to control editing. put the left of button "graph cover" of me into tXLeft put the right of button "graph cover" of me into tXRight put the top of button "graph cover" of me into tYTop put the bottom of button "graph cover" of me into tYBottom put the cpEditCurveNum of button "graph cover" of me into tCurveNum put the points of graphic ("curve "& tCurveNum) of me into tPoints put tPoints into tPointsOriginal put (the cpXDataRanges of button "graph cover" of me) into tXValRanges # Do the editing - loop while the mouse is down.. repeat while the mouse is down # Get the mouse location, constrained on the y-axis to the plot region. put the mouseLoc into tMouseLoc put item 1 of tMouseLoc into tMouseX put max(min(item 2 of tMouseLoc, tYBottom), tYTop) into tMouseY # Revise the curve based on the mouse location. if tMouseX >= (tXLeft - 6) and tMouseX <= (tXRight + 6) then # 6 is the amount to left or right of graph where editing still occurs. # Loop through points on the curve. put 0 into tPointNum repeat for each line tXVR in tXValRanges add 1 to tPointNum put item 1 of tXVR into tMinOwnedRange if tMinOwnedRange = "" then next repeat # Ignore line segment in key. if tMinOwnedRange <> "-INF" then if tMouseX < tMinOwnedRange then next repeat end if put item 2 of tXVR into tMaxOwnedRange if tMaxOwnedRange <> "+INF" then if tMouseX > tMaxOwnedRange then next repeat end if put tMouseY into item 2 of line tPointNum of tPoints set the points of graphic ("curve "& tCurveNum) of me to tPoints end repeat end if end repeat # The mouse button is no longer down. Update y-data based on the edited graph. if tPoints <> tPointsOriginal then put tYBottom - tYTop into tYDiff put the cpGraphYMin of button "graph cover" of me into tYValsMin put the cpGraphYMax of button "graph cover" of me into tYValsMax put tYValsMax - tYValsMin into tYValsDiff put the number of lines in tXValRanges into tNumPoints put "" into tNewYData put 0 into tPointNum repeat for each line tP in tPoints add 1 to tPointNum if tP = tNumPoints then exit repeat # The curve may have more points, but they belong to the line segment in the key, and must not be edited. put item 2 of tP into tPY put tYValsMin + tYValsDiff * (tYBottom - tPY) / tYDiff into tYVal put tYVal &"," after tNewYData end repeat delete the last char of tNewYData # Delete trailing comma. repeat for each item tDuplicatedPointNum in aDuplicatedPointNums # These have already been sorted in reverse order. delete item tDuplicatedPointNum of tNewYData # Some points may have been duplicated for internal purposes, to ensure graphs can be drawn correctly when there is only one datum, but the user must not be passed back data that include duplicates. end repeat set the graphYDataEdited of me to tNewYData if (the graphSendEditMessage of me) = "true" then send "graphEdited" to this card end if end graphCoverClicked # Given a string of lines each containing an x-value as its first (comma-separated) item, return a comma-separated list of the x-values. function getXVals pS put "" into tR repeat for each line tL in pS put (item 1 of tL) &"," after tR end repeat delete char -1 of tR return tR end getXVals # Given a list of x-data, return "owned" ranges around each data point, i.e. the x-values for which the nearest data point is each point. # The result will be a string with one line of comma-separated data for each x-data point. In each line, the first item is the minimum owned # and the second item is the maximum owned value. "-INF" or "+INF" is used where the minimum or maximum owned value is negative # or positive infinity. function clickXRanges pXData # Get the x-data in sorted order. put nonBlankItems(pXData) into tXDataSorted sort items of tXDataSorted numeric # In case of small round-off errors in numbers, ensure that the min. and max. parameters are not inside the x data points. put item 1 of tXDataSorted into tXMin put item -1 of tXDataSorted into tXMax # Prepare lists of the relevant min. and max. values, by looping through each data point and adding its information to the lists. put "" into tRangesOwned repeat for each item tN in pXData if tN = "" then put "" into tThisRangeMinOwned put "" into tThisRangeMaxOwned else # Find the greatest point below this x-value, or the overall min. if no points are below. put tXMin into tThisRangeMin repeat for each item tSortedN in tXDataSorted if tSortedN < tN then put tSortedN into tThisRangeMin else exit repeat end repeat # Find the smallest point above this x-value, or the overall max. if no points are above. if (item -1 of tXDataSorted) = tN then put tXMax into tThisRangeMax else repeat for each item tSortedN in tXDataSorted if tSortedN > tN then put tSortedN into tThisRangeMax exit repeat end if end repeat end if # In the range just found, if the point is in between other points, half the ranges belongs to this point and half to other points. if tN=tXMin then put "-INF" into tThisRangeMinOwned else put (tN + tThisRangeMin) / 2 into tThisRangeMinOwned end if if tN=tXMax then put "+INF" into tThisRangeMaxOwned else put (tThisRangeMax + tN) / 2 into tThisRangeMaxOwned end if end if # Add information to the lists of ranges owned. put tThisRangeMinOwned &","& tThisRangeMaxOwned & cr after tRangesOwned # Use &","& tN to include the x-value as well. end repeat delete char -1 of tRangesOwned if (char -1 of pXData) = "," then put cr &"," after tRangesOwned #The trailing comma corresponds to a blank item. return tRangesOwned end clickXRanges # Given a list of items, take the natural logarithm of all nonblank items. function listLn s put "" into r repeat for each item tItem in s if tItem <> "" then put ln(tItem) into tItem put tItem &"," after r end repeat delete char -1 of r return r end listLn # Given a list of items, if exactly one is non-null then return the item number, else return null. function singleNonmissingItemNum s put "" into tR put 0 into i repeat for each item tItem in s add 1 to i if tItem <> "" then if tR = "" then put i into tR else put "" into tR exit repeat end if end if end repeat return tR end singleNonmissingItemNum on createGraphic pName put the lockMessages into tOrigLockMessages set the lockMessages to true # Revolution has a "feature" that alters small graphic objects, but we don't want that here. create graphic pName in me set the lockMessages to tOrigLockMessages end createGraphic . ± <graphLineDashes graphYRound falsegraphLinesVisible truegraphYTicksInset falsegraphEditable falsegraphLineWidths graphXLabelXNudge 0 graphXMin graphSendEditMessage falsegraphYLabelYNudge 6 graphXMax graphXScaleVisible true graphXTicks graphScaleExponentFormat ^graphMainRect 50,80,250,180graphKeyXNudge 0graphKeyLogIndicator [logarithmic] graphYLabel !Major oil tanker spills worldwidegraphXYLabelTextSize 12graphTitleTextSize 12graphYVariableNames graphYTicksVisible truegraphXYLabelTextFont graphMarkers tiny +graphAxisWidth 1graphTitleTextFont graphYScaleSame truegraphScaleTextSize 9graphTitleTextStyle plain graphXRound falsegraphClickable false graphTitle graphScaleTextSeparation 3graphYLabelXNudge 0graphScaleTextFont graphYMin graphScaleExponentHighThreshold 100000 graphYMax graphXLog falsegraphLineColors redgraphYScaleVisible true graphXLabel YeargraphYDataEdited graphTitleGap 10graphKeyTextSeparation 3graphXLabelYNudge -18#graphScaleMinimumSignificantDigits 3 graphYTicks graphXTicksInset falsegraphYScalesInKey truegraphXTicksVisible truegraphKeyYNudge 0 graphScaleExponentLowThreshold 0.001graphX r1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997graphY .8,6,6,6,11,4,2,0,5,0,2,0,0,0,3,0,2,1,1,2,1,1,2graphKeyTextSize 10 graphYLog falsegraphYUnitsOfMeasureInKey graphTickMajorWidth 4graphKeyTextFont cREVGeneral scriptChecksum Żķ7{Õ°Ų¦b “ bookmarks revUniqueID 1166423936976 breakPoints handlerList ¶makeGraph noteDuplicatedPointNum makeAxisLabel makeNumbersNiceForDisplay makeAField maxLineLength nonBlankItems graphMarkerLineToPoints ensurePropertiesOkay setDefaultProperties roundRange displayRange readableTwoDigit roundToTwoDigits readableNumber getMagnitude roundDownToMagnitude roundDown roundUpToMagnitude roundUp roundToMagnitude chooseTickLocs graphCoverClicked getXVals clickXRanges listLn singleNonmissingItemNum createGraphicscriptSelection char 14644 to 14643 prevHandler chooseTickLocs tempScript script ö# Copyright (c) Kenneth L. Simons 2000-2003.
# All Rights Reserved.
# The author hereby allows others to use the graph object according to the following principles:
# Anyone may use the graph object for any purpose.
# Rights to use of the original object must remain in the public domain.
local aNumScaleLabelsCreated
local aXScaleTextBottom
local aDuplicatedPointNums
on makeGraph
# 1. Ensure (some of the) properties are okay.
ensurePropertiesOkay
# 2. Get/Calculate subsidiary information.
# 2a. Main graph coordinates.
put the graphMainRect of me into tGMR
set the rect of button "graph background" of me to tGMR
put item 1 of tGMR into a # Left side coordinate of main graph.
put item 4 of tGMR into b # Bottom coordinate of main graph.
put (item 3 of tGMR) - a into w # Width of main graph.
put b - (item 2 of tGMR) into h # Height of main graph.
# 2b. Data and axis scales.
put "" into aDuplicatedPointNums
put the graphX of me into tXData
put singleNonmissingItemNum(tXData) into tSingleNonmXItemN
if tSingleNonmXItemN <> "" then
put ","& (item tSingleNonmXItemN of tXData) after item tSingleNonmXItemN of tXData # If only one data point, make 2 identical DPs for correct graphing.
noteDuplicatedPointNum tSingleNonmXItemN
end if
put the number of items in tXData into tNumXPoints
if (char -1 of tXData) = "," then add 1 to tNumXPoints # Include the blank item at the end.
put nonBlankItems(tXData) into tXDataNonBlank # Used when finding min and max.
put min(tXDataNonBlank) into tXMin
if (the graphXMin of me) <> "" then put min(the graphXMin of me,tXMin) into tXMin
put max(tXDataNonBlank) into tXMax
if (the graphXMax of me) <> "" then put max(the graphXMax of me,tXMax) into tXMax
put (tXMin = "" or tXMin > 0) and (the graphXLog of me = true) into tXLogarithmic
if tXLogarithmic then
put listLn(tXData) into tXData
if tXMin <> "" then put ln(tXMin) into tXMin
if tXMax <> "" then put ln(tXMax) into tXMax
end if
if (the graphXRound of me) = "true" then
put roundRange(tXMin, tXMax, tXLogarithmic) into tRoundedXRange
put item 1 of tRoundedXRange into tXMin
put item 2 of tRoundedXRange into tXMax
end if
if tXMin = tXMax then
if tXMin = 0 then
put -1 into tXMin
put 1 into tXMax
else if tXMin > 0 then
put tXMin * 2 into tXMax
put 0 into tXMin
else
put 0 into tXMax
put tXMin * 2 into tXMin
end if
end if
put (the number of lines in the graphY of me) into tNumCurves
repeat with i = 1 to tNumCurves
put line i of the graphY of me into tYData[i] # In general this is a line of multiple numbers (so don't use format).
end repeat
repeat with i = 1 to tNumCurves
if tSingleNonmXItemN <> "" then
if (the number of items in tYData[i]) >= tSingleNonmXItemN then # This if-then is not crucial, but better with very many data points.
put ","& item tSingleNonmXItemN of tYData[i] after item tSingleNonmXItemN of tYData[i] # Duplicate a data point, because it has been duplicated (for correct graphing) in the x-data.
end if
end if
put singleNonmissingItemNum(tYData[i]) into tSingleNonmYItemN
if tSingleNonmYItemN <> "" then # If only one data point, make 2 identical DPs for correct graphing.
put ","& (item tSingleNonmYItemN of tXData) after item tSingleNonmYItemN of tXData
add 1 to tNumXPoints
repeat with j = 1 to tNumCurves
put ","& (item tSingleNonmYItemN of tYData[j]) after item tSingleNonmYItemN of tYData[j]
end repeat
noteDuplicatedPointNum tSingleNonmYItemN
end if
put nonBlankItems(tYData[i]) into thisYDataNonBlank # Used when finding min and max.
put line i of the graphYMin of me into tThisGraphYMin
put format("%14.12e", min(thisYDataNonBlank)) into tYMin[i]
if tThisGraphYMin <> "" then put format("%14.12e", min(tThisGraphYMin,tYMin[i])) into tYMin[i]
put line i of the graphYMax of me into tThisGraphYMax
put format("%14.12e", max(thisYDataNonBlank)) into tYMax[i]
if tThisGraphYMax <> "" then put format("%14.12e", max(tThisGraphYMax,tYMax[i])) into tYMax[i]
end repeat
repeat with i = 1 to tNumCurves
put (tYMin[i] = "" or tYMin[i] > 0) and ((the graphYLog of me) = "true" or (line i of the graphYLog of me) = true) into tYLogarithmic[i]
if tYLogarithmic[i] then
put listLn(tYData[i]) into tYData[i]
if tYMin[i] <> "" then put ln(tYMin[i]) into tYMin[i]
if tYMax[i] <> "" then put ln(tYMax[i]) into tYMax[i]
end if
end repeat
put the graphYScaleSame of me into tYScalesSame # Determine whether y-scales forced to be the same.
if tYScalesSame = true then # Disallow y-scales same if some logarithmic, some not.
repeat with i = 2 to tNumCurves
if tYLogarithmic[i] <> tYLogarithmic[1] then
put false into tYScalesSame
exit repeat
end if
end repeat
end if
if tYScalesSame = "true" then # A single ymin and ymax scale for all curves.
put tYMin[1] into tYMinAll
put tYMax[1] into tYMaxAll
repeat with i = 2 to tNumCurves
put min(tYMinAll,tYMin[i]) into tYMinAll
put max(tYMaxAll,tYMax[i]) into tYMaxAll
end repeat
if tYMinAll = tYMaxAll then
if tYMinAll = 0 then
put -1 into tYMinAll
put 1 into tYMaxAll
else if tYMinAll > 0 then
put tYMinAll * 2 into tYMaxAll
put 0 into tYMinAll
else
put 0 into tYMaxAll
put tYMinAll * 2 into tYMinAll
end if
end if
if (the graphYRound of me) = "true" then
put roundRange(tYMinAll, tYMaxAll, tYLogarithmic[1]) into tRoundedYRange
put item 1 of tRoundedYRange into tYMinAll
put item 2 of tRoundedYRange into tYMaxAll
end if
put format("%14.12e", tYMinAll) into tYMinAll
put format("%14.12e", tYMaxAll) into tYMaxAll
repeat with i = 1 to tNumCurves
put tYMinAll into tYMin[i]
put tYMaxAll into tYMax[i]
end repeat
else # Different ymin and ymax scales for different curves.
if (the graphYRound of me) = "true" then
repeat with i = 1 to tNumCurves
put roundRange(tYMin[i], tYMax[i], tYLogarithmic[i]) into tRoundedYRange
put format("%14.12e", item 1 of tRoundedYRange) into tYMin[i]
put format("%14.12e", item 2 of tRoundedYRange) into tYMax[i]
end repeat
else
repeat with i = 1 to tNumCurves
if tYMin[i] = tYMax[i] then
if tYMin[i] = 0 then
put -1 into tYMin[i]
put 1 into tYMax[i]
else if tYMin[i] > 0 then
put tYMin[i] * 2 into tYMax[i]
put 0 into tYMin[i]
else
put 0 into tYMax[i]
put tYMin[i] * 2 into tYMin[i]
end if
end if
end repeat
end if
end if
# 2c. Whether the y-axis scales for multiple variables are the same.
if tYScalesSame <> "true" then
put true into tYScalesSame # Assume same until proven different.
repeat with i = 2 to tNumCurves
if tYMin[i] <> tYMin[1] or tYMax[i] <> tYMax[1] then
put false into tYScalesSame
exit repeat
end if
end repeat
end if
# 2d. Scaling factors for plotting data.
put w / (tXMax - tXMin) into tXScaleFactor
repeat with i = 1 to tNumCurves
put format("%14.12e", h / (tYMax[i] - tYMin[i])) into tYScaleFactor[i]
end repeat
# 2f. X and Y values at which to plot tic marks.
if the graphXTicks of me = "none" then
put "" into tXTickLocs
else if (word 1 of the graphXTicks of me) = "about" then
put chooseTickLocs(tXMin, tXMax,(word 2 of the graphXTicks of me),"") into tXTickLocs
else if (word 1 of the graphXTicks of me) = "exactly" or (word 1 of the graphXTicks of me) = "exact" then
put chooseTickLocs(tXMin, tXMax,"",(word 2 of the graphXTicks of me)) into tXTickLocs
else if the graphXTicks of me <> "" then
put the graphXTicks of me into tXTickLocs
else
put tXMin &","& tXMax into tXTickLocs
end if
if the graphYTicks of me = "none" then
put "" into tYTickLocs
else if (word 1 of the graphYTicks of me) = "about" then
put chooseTickLocs(tYMin[1], tYMax[1],(word 2 of the graphYTicks of me),"") into tYTickLocs
else if (word 1 of the graphYTicks of me) = "exactly" or (word 1 of the graphYTicks of me) = "exact" then
put chooseTickLocs(tYMin[1], tYMax[1],"",(word 2 of the graphYTicks of me)) into tYTickLocs
else if the graphYTicks of me <> "" then
put the graphYTicks of me into tYTickLocs
else
put tYMin[1] &","& tYMax[1] into tYTickLocs # Y tic locs are defined in terms of the first y variable only.
end if
# 3. Lock the screen before doing anything that affects the display.
lock screen
# 4. Delete existing graphics and fields in this graph object, and the "graph cover" button if any.
put the number of graphics in me into nGraphics
repeat with i = nGraphics down to 1
delete graphic i of me
end repeat
put the number of fields in me into nFields
repeat with i = nFields down to 1
delete field i of me
end repeat
if there is a button "graph cover" of me then delete button "graph cover" of me
# 5. Draw axes.
reset templateGraphic
set the style of the templateGraphic to "polygon"
set the lineSize of the templateGraphic to the graphAxisWidth of me
set the points of the templateGraphic to a &","& (b-h) & cr & a &","& b & cr & (a+w) &","& b
createGraphic "axes"
put a &","& (b-h) &","& (a+w) &","& b into tGraphCoverRect # May be used below, for editable graphs.
# 6. Draw tick marks.
# 6a. Draw major tick marks and labels.
put "" into aXScaleTextBottom
put 0 into aNumScaleLabelsCreated
put "" into tTickPoints
put tXTickLocs <> "" and (the graphXTicksVisible of me) <> "false" into tXTicksVisible
put tXTickLocs <> "" and (the graphXScaleVisible of me) <> "false" into tXScaleVisible
if tXTicksVisible or tXScaleVisible then
if the graphXTicksInset of me = "true" or (not tXTicksVisible) then
put the graphTickMajorWidth of me into tTickOffset
else
put 0 into tTickOffset
end if
repeat for each item thisXLoc in tXTickLocs
put round(a + (thisXLoc - tXMin) * tXScaleFactor) into thisXWindowLoc
put b + (the graphTickMajorWidth of me) - tTickOffset into tYAtBottomOfTick
if tXTicksVisible then put thisXWindowLoc &","& (b-tTickOffset) & cr & thisXWindowLoc &","& tYAtBottomOfTick & cr & cr after tTickPoints
if tXScaleVisible then
if tXLogarithmic then put exp(thisXLoc) into thisXLoc
makeAxisLabel "x", thisXWindowLoc, tYAtBottomOfTick, thisXLoc
end if
end repeat
end if
put tYTickLocs <> "" and (the graphYTicksVisible of me) <> "false" into tYTicksVisible
put the graphYScaleVisible of me into tGYSVOM
if tGYSVOM = "true" then
if not tYScalesSame then # When the graphYScaleVisible is true and there are multiple curves with different scales, display scales for each.
put "" into tGYSVOM
repeat with i = 1 to tNumCurves
put i &"," after tGYSVOM
end repeat
delete the last char of tGYSVOM #Delete trailing comma.
end if
end if
put tYTickLocs <> "" and tGYSVOM <> "false" into tYScaleVisible
if tYTicksVisible or tYScaleVisible then
if the graphYTicksInset of me = "true" or (not tYTicksVisible) then
put the graphTickMajorWidth of me into tTickOffset
else
put 0 into tTickOffset
end if
repeat for each item thisYLoc in tYTickLocs # Step through different tick marks. (Recall that tYTickLocs is defined only in terms of the first y-variable.)
put round(b - (thisYLoc - tYMin[1]) * tYScaleFactor[1]) into thisYWindowLoc
put a - the graphTickMajorWidth of me + tTickOffset into tXAtLeftOfTick
if tXTicksVisible then put tXAtLeftOfTick &","& thisYWindowLoc & cr & (a + tTickOffset) &","& thisYWindowLoc & cr & cr after tTickPoints
if tYScaleVisible then
if tGYSVOM = "true" then
if tYLogarithmic[1] then put exp(thisYLoc) into tYLocsForScaleLabel
else put thisYLoc into tYLocsForScaleLabel
put "" into tYColorsForScaleLabel
else
if thisYLoc = tYMax[1] then put 1 into tYFrac
else put (thisYLoc - tYMin[1]) / (tYMax[1] - tYMin[1]) into tYFrac
put "" into tYLocsForScaleLabel
put "" into tYColorsForScaleLabel
put the number of items in tGYSVOM into n
repeat with i = 1 to n # Step through different curves.
put item i of tGYSVOM into thisCurveNum
put tYMin[thisCurveNum] into tThisMin
put tYMax[thisCurveNum] - tThisMin into tThisDiff
if tYFrac = 1 then put tYMax[thisCurveNum] into tThisY #Avoid rounding error.
else put tThisMin + tThisDiff * tYFrac into tThisY
if tYLogarithmic[i] then put exp(tThisY) into tThisY
put tThisY & return after tYLocsForScaleLabel
put line i of the graphLineColors of me into tGC
if tGC = "" then put the effective foregroundColor of me into tGC
put tGC & return after tYColorsForScaleLabel
end repeat
delete the last char of tYLocsForScaleLabel #Delete trailing return.
delete the last char of tYColorsForScaleLabel #Delete trailing return.
end if
makeAxisLabel "y", tXAtLeftOfTick, thisYWindowLoc, tYLocsForScaleLabel, tYColorsForScaleLabel
end if
end repeat
end if
if tXTicksVisible or tYTicksVisible then
reset templateGraphic
set the style of the templateGraphic to "polygon"
set the points of the templateGraphic to tTickPoints
createGraphic "ticks"
end if
# 7. Draw data.
repeat with i = 1 to tNumCurves
put tYScaleFactor[i] into thisYScaleFactor
reset templateGraphic
set the style of the templateGraphic to "polygon"
if (line i of the graphLinesVisible of me) = "false" then put 0 into tGLW
else put line i of the graphLineWidths of me into tGLW
if tGLW is an integer then set the lineSize of the templateGraphic to tGLW
put "" into tPoints
repeat with j = 1 to tNumXPoints
put item j of tXData into x
put item j of tYData[i] into y
if x = "" or y = "" then put cr after tPoints
else put round(a + (x - tXMin) * tXScaleFactor) &","& round(b - (y - tYMin[i]) * thisYScaleFactor) & cr after tPoints
end repeat
delete char -1 of tPoints # Delete trailing return.
set the points of the templateGraphic to tPoints
put line i of the graphLineColors of me into tGC
if tGC <> "" then set the foregroundColor of the templateGraphic to tGC
put line i of the graphLineDashes of me into tGD
if tGD <> "" then set the dashes of the templateGraphic to tGD
if the graphClickable of me = "true" then
set the script of the templateGraphic to "on mouseUp"& cr &" graphClicked "& i &", ((item 1 of the clickLoc) - "& a &") / "& tXScaleFactor &" + "& tXMin &", ("& b &" - (item 2 of the clickLoc)) / "& thisYScaleFactor &" + "& tYMin[i] & cr &"end mouseUp"
end if
put graphMarkerLineToPoints(line i of the graphMarkers of me) into tGM
if tGM <> "" then
put line 1 of tGM into tGMFilled
put line 2 to -1 of tGM into tGMPoints
set the markerDrawn of the templateGraphic to true
set the markerFilled of the templateGraphic to tGMFilled
set the markerPoints of the templateGraphic to tGMPoints
if tGC <> "" then
set the markerColor of the templateGraphic to tGC
set the markerFillColor of the templateGraphic to tGC
end if
end if
createGraphic "curve "& i
end repeat
# 8. Title.
put the graphTitle of me into tMainTitle
if tMainTitle <> "" then
put the graphTitleTextSize of me into tTS
if tTS = "" then put 12 into tTS
put tTS + 4 into tTH
put round(((item 1 of tGMR)+(item 3 of tGMR))/2) into tXLoc
put round((item 2 of tGMR) - (the graphTitleGap of me)) into tBottom
makeAField "title", tMainTitle, "center", the graphTitleTextFont of me, the graphTitleTextStyle of me, "", tTS, tTH, (tXLoc &","& 0), "", "", "", tBottom
end if
# 9. Axis variable/label names.
put the graphXYLabelTextSize of me into tTS
if tTS = "" then put 9 into tTS
put tTS + 4 into tTH
put the graphXLabel of me into tGXL
if tGXL <> "" then
put round(((item 1 of tGMR)+(item 3 of tGMR))/2) + (the graphXLabelXNudge of me) into tXLoc
if tXTicksVisible then
put the graphTickMajorWidth of me into tYOffset
else
put 0 into tYOffset
end if
if aXScaleTextBottom <> "" then
put aXScaleTextBottom - 1 into tTopOfField
else
put (item 4 of tGMR) + tYOffset - 1 into tTopOfField
end if
add the graphXLabelYNudge of me to tTopOfField
makeAField "x varname", tGXL, "center", the graphXYLabelTextFont of me, "", "", tTS, tTH, (tXLoc &","& 0), "", tTopOfField, "", ""
put the bottom of field "x varname" of me into tXLabelingBottom # Used when making a key.
else
# No x-axis label was created.
if aXScaleTextBottom <> "" then
put aXScaleTextBottom into tXLabelingBottom # Used when making a key.
else
put b into tXLabelingBottom # Used when making a key.
end if
end if
put the graphYLabel of me into tGYL
if tGYL <> "" then
# The left and bottom chosen here are quite arbitrary; there are certainly better methods to choose them.
put (item 1 of tGMR) - 30 into tLeft
if tXTicksVisible then
subtract the graphTickMajorWidth of me from tLeft
end if
add the graphYLabelXNudge of me to tLeft
put (item 2 of tGMR) - 6 into tBottom
add the graphYLabelYNudge of me to tBottom
makeAField "y varname", tGYL, "left", the graphXYLabelTextFont of me, "", "", tTS, tTH, "", tLeft, "", "", tBottom
end if
# 10. Key.
# 10a. Whether to create a key, and what its text will say.
put the graphYVariableNames of me into tKeyNames
put the graphYScalesInKey of me into tIncludeYScalesInKey
put the graphKeyLogIndicator of me into tLogIndicator
if tLogIndicator <> "" then put " " before tLogIndicator
put false into tMakeKey # Assume false until proven true.
put "" into tKeyContents
put 0 into i
repeat for each line tThisKeyName in tKeyNames
add 1 to i
if tThisKeyName <> "" then
put true into tMakeKey
put tThisKeyName after tKeyContents
if tYLogarithmic[i] then put tLogIndicator after tKeyContents
put line i of the graphYUnitsOfMeasureInKey of me into tUnitsOfMeasure
if tIncludeYScalesInKey then
if tUnitsOfMeasure <> "" then put " " before tUnitsOfMeasure
put " ("& displayRange(tYMin[i], tYMax[i]) & tUnitsOfMeasure &")" after tKeyContents # State the range and units of measure for this variable.
else if tUnitsOfMeasure <> "" then
put " ("& tUnitsOfMeasure &")" after tKeyContents # State the units of measure for this variable.
end if
put return after tKeyContents
end if
if i >= tNumCurves then exit repeat
end repeat
delete char -1 of tKeyContents # Delete trailing return.
# 10b. Make key.
if tMakeKey then
# 10b1. Make the text of the key.
put the graphKeyTextSize of me into tTS
put tTS + min(0, round(the graphKeyTextSeparation of me)) into tTH
put a + 20 + (the graphKeyXNudge of me) into tLeft
put tXLabelingBottom + 12 + (the graphKeyYNudge of me) into tTop
makeAField "key", tKeyContents, "left", the graphKeyTextFont of me, "plain", "", tTS, tTH, "", tLeft, tTop, "", ""
# 10b2. Plot line segments in the key.
repeat with i = 1 to tNumCurves
put "curve "& i into tCurveName
put the points of graphic tCurveName of me into tPoints
put tTop + roundUp(tTH/2) + (i-1)*tTH into tLabelLineY
put (tLeft - 20) &","& tLabelLineY into tPointA
put (tLeft - 5) &","& tLabelLineY into tPointB
put cr & cr & tPointA & cr & tPointB after tPoints
set the points of graphic tCurveName of me to tPoints
end repeat
end if
# 11. If requested, prepare for editable graph.
if (the graphEditable of me) and (tNumCurves > 0) then
reset templateButton
set the rect of the templateButton to tGraphCoverRect
set the script of the templateButton to "on mouseDown"& cr &" graphCoverClicked"& cr &"end mouseDown"
set the showName of the templateButton to false
set the showBorder of the templateButton to false
set the threeD of the templateButton to false
set the opaque of the templateButton to false
set the traversalOn of the templateButton to false
set the autoHilite of the templateButton to false
create button "graph cover" in me
set the cpEditCurveNum of button "graph cover" of me to tNumCurves
set the cpGraphYMin of button "graph cover" of me to tYMin[tNumCurves]
set the cpGraphYMax of button "graph cover" of me to tYMax[tNumCurves]
# A minor part of setting up is determining whether the x-data are ordered, because
# if the x-data are nondecreasing or nonincreasing, processing can be sped up for
# editing graphs.
put the points of graphic ("curve "& tNumCurves) of me into tPointsOfCurve
if tMakeKey then delete line -3 to -1 of tPointsOfCurve # Ignore parts that pertain to the key.
set the cpXDataRanges of button "graph cover" of me to clickXRanges(getXVals(tPointsOfCurve))
set the graphYDataEdited of me to tYData[tNumCurves]
else
set the graphYDataEdited of me to ""
end if
# 12. Unlock the screen and go back to the browse (hand) tool.
reset templateField
reset templateGraphic
reset templateButton
choose browse tool
unlock screen
end makeGraph
on noteDuplicatedPointNum pNewPointNum
put the number of items in aDuplicatedPointNums into tN
repeat with i = 1 to tN
put item i of aDuplicatedPointNums into tPN
if pNewPointNum < tPN then put (tPN+1) into item i of aDuplicatedPointNums
end repeat
put pNewPointNum into item (tN+1) of aDuplicatedPointNums
sort items of aDuplicatedPointNums numeric descending
end noteDuplicatedPointNum
# The following routine creates an axis-label field containing string s. The location of the
# field is relative to point pXLoc,pYLoc - which is normally the bottom (for x-ticks) or
# left (for y-ticks) point in an axis tick mark. pXOrY is either "x" or "y". The optional
# parameter tYColorsForScaleLabel can have color indications in different lines,
# to set the colors of different lines s. A multi-line s only makes sense for y-axis scales.
on makeAxisLabel pXOrY, pXLoc, pYLoc, s, pTextColors
if pXOrY = "x" and (the graphXScaleVisible of me = "false") then exit makeAxisLabel
if pXOrY = "y" and (the graphYScaleVisible of me = "false") then exit makeAxisLabel
add 1 to aNumScaleLabelsCreated
put "sl"& aNumScaleLabelsCreated into tFieldName
if pXOrY = "x" then put "center" into tTA else put "right" into tTA
put the graphScaleTextSize of me into tTS
if tTS = "" then put 9 into tTS
put tTS + min(0, round(the graphScaleTextSeparation of me)) into tTH
if pXOrY = "x" then
put 1 into tXFudge
put 1 into tYFudge
put round(pXLoc + tXFudge) into pXLocToUse
put "" into pRightToUse
put round(pYLoc + tYFudge) into pTopToUse
else
put 5 into tXFudge
put -1 into tYFudge
put "" into pXLocToUse
put round(pXLoc + tXFudge) into pRightToUse
put round(pYLoc + tYFudge - tTS/2) into pTopToUse
end if
put makeNumbersNiceForDisplay(s) into s
makeAField tFieldName, s, tTA, the graphScaleTextFont of me, "", pTextColors, tTS, tTH, (pXLocToUse &",0"), "", pTopToUse, pRightToUse, ""
if pXOrY = "x" then put the bottom of field tFieldName of me into aXScaleTextBottom
end makeAxisLabel
# Retun the passed string, ensuring that if it is a number -- or a series of numbers on separate
# lines -- the number(s) display nicely.
# A disadvantage of how I use this above is, I ought to give enough accuracy to display even
# a tiny range between min & max scales.
function makeNumbersNiceForDisplay pS
put the graphScaleExponentHighThreshold of me into tLargeNumberToExpThreshold
put the graphScaleExponentLowThreshold of me into tSmallNumberToExpThreshold
put the graphScaleMinimumSignificantDigits of me into tMinimumSignificantDigits
put the number of lines in pS into tNumLines
repeat with i = 1 to tNumLines
put line i of pS into s
if s is a number then
put s+0 into n
if n = 0 then
put "0" into s
else if abs(n) < tSmallNumberToExpThreshold or abs(n) >= tLargeNumberToExpThreshold then
put getMagnitude(n) into m
if the graphScaleExponentFormat of me is "^" then
put "*10^" into tExponentSeparator
else
put "e" into tExponentSeparator
end if
put round(n / 10^m, tMinimumSignificantDigits - 1) & tExponentSeparator & m into s
#put format("%3.2g", n / 10^m) & tExponentSeparator & m into s
else if n is an integer then
put n into s
else
put getMagnitude(n) into m
put min(0, m - (tMinimumSignificantDigits - 1)) into magnitudeAtWhichToRound
put round(n, -magnitudeAtWhichToRound) into s
#put format("%3.2g", n) into s
end if
end if
put s into line i of pS
end repeat
return pS
end makeNumbersNiceForDisplay
# The following routine creates a field as specified. Parameter pFieldName must be unique
# on each call. Parameters pTextSize and pTextHeight must be valid positive integers. To
# set the location of the field, either pass the location in pLoc, or pass the horizontal location
# in one of pLoc (the vertical location in pLoc is arbitrary) / pLeft / pRight and the vertical
# location in one of pLoc (the horizontal location in pLoc is arbitrary) / pTop / pBottom.
on makeAField pFieldName, pContents, pTextAlign, pTextFont, pTextStyle, pTextColors, pTextSize, pTextHeight, pLoc, pLeft, pTop, pRight, pBottom
reset templateField
set the threeD of the templateField to false
set the showBorder of the templateField to false
set the opaque of the templateField to false
set the lockText of the templateField to true
if pTextAlign <> "" then set the textAlign of the templateField to pTextAlign
if pTextFont <> "" then set the textFont of the templateField to pTextFont
set the textSize of the templateField to pTextSize # The textSize must be set after the textFont.
set the textHeight of the templateField to pTextHeight
if pTextStyle <> "" then set the textStyle of the templateField to pTextStyle
put the number of lines in pContents into tNumLines
put 10000 into h # Take a purposely too high guess at the necessary height to display the string.
#put tNumLines * pTextHeight + 8 into h
set the height of the templateField to h
put 10000 into w # Take a purposely too high guess at the necessary width to display the string.
# put maxLineLength(pContents) * pTextSize into w
# if pTextStyle contains "bold" then multiply w by 2
set the width of the templateField to w
set the autoTab of the templateField to false
create field pFieldName in me
put pContents into field pFieldName of me
put the formattedHeight of field pFieldName of me into h
set the height of field pFieldName of me to h
put (the formattedWidth of field pFieldName of me) + 10 into w # The formattedWidth is actually not wide enough to deter word wrapping (perhaps because of margins?), so I add 10.
set the width of field pFieldName of me to w
if pLoc <> "" then set the loc of field pFieldName of me to pLoc
if pLeft <> "" then set the left of field pFieldName of me to pLeft
if pTop <> "" then set the top of field pFieldName of me to pTop
if pRight <> "" then set the right of field pFieldName of me to pRight
if pBottom <> "" then set the bottom of field pFieldName of me to pBottom
if pTextColors <> "" then
put the number of lines in pTextColors into n
repeat with i = 1 to n
set the textColor of line i of field pFieldName of me to line i of pTextColors
end repeat
end if
end makeAField
function maxLineLength pString
put 0 into tMaxSoFar
repeat for each line l in pString
put length(l) into tLineLength
if tLineLength > tMaxSoFar then put tLineLength into tMaxSoFar
end repeat
return tMaxSoFar
end maxLineLength
function nonBlankItems s
put "" into r
repeat for each item thisItem in s
if thisItem <> "" then put thisItem &"," after r
end repeat
delete char -1 of r
return r
end nonBlankItems
function graphMarkerLineToPoints s
put word 1 of s into w1
if w1 = "" then
put false into tFilled
put "dot" into s
else if w1 = "none" then
return "" # No markers.
exit graphMarkerLineToPoints
else if w1 = "filled" or w1 = "solid" then
put true into tFilled
delete word 1 of s
else if w1 = "empty" or w1 = "hollow" then
put false into tFilled
delete word 1 of s
else #Default is hollow.
put false into tFilled
end if
put word 1 of s into tSizeWord
put word 2 of s into tTypeWord
if tTypeWord = "" then
put tSizeWord into tTypeWord
put "small" into tSizeWord
end if
set the wholeMatches to true
put wordOffset(tSizeWord, "tiny small