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 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
graph background @ 2 P d cREVGeneral revUniqueID 1166423936977 @s axes K 1 O f 2 P 2 @t sl1 * 2 cREVGeneral revUniqueID 1169587553659 1975 @u sl2 * 2 cREVGeneral revUniqueID 1169587553661 1997 @v sl3 , cREVGeneral revUniqueID 1169587553662 0 @w sl4 , K & cREVGeneral revUniqueID 1169587553663 11 @x ticks K - O j 2 2 . 2 . P 2 P @y curve 1 K red red red / M j 2 k ; } D } M } V P _ i r { @z x varname * | 4 cREVGeneral revUniqueID 1169587553665 Year @{ y varname ( 2 cREVGeneral revUniqueID 1169587553667 "Major oil tanker spills worldwide Redraw Ep :on mouseUp send makeGraph to group "graph" end mouseUp 'G a cREVGeneral revUniqueID 1166423936981 Graph usage info )h cREVGeneral revUniqueID 1166423936982 cREVTable currentview UGraph object
Ken Simons, version 26 April 2003.
Anyone may use the graph object for any purpose. Rights to use of the original object must remain in the public domain.
Contents:
Usage
Properties - Data
Properties - Location in Window
Properties - Line Graphs versus Scatter Plots, Point Markers
Properties - Lines
Properties - Axis Scales
Properties - Tick Marks and Scale Labels
Properties - Axis Labels (Variable Names)
Properties - Key
Properties - Title
Properties - Axis
Properties - Clickable Graphs
Properties - Editable Graphs
Known Bugs and Limitations
Revision Notes
Usage
The graph object presently supports line graphs and scatter plots.
To use the graph object in your MetaCard project, select, copy, and paste where you want it. Then set properties of the graph object (see below) and send the message makeGraph to the graph object. You can send setDefaultProperties to the graph object to reset all properties to their default values. If you need to put graphs on multiple cards, one strategy is to put the graph object in a background (group), place that background on the relevant cards, and have an on preOpenCard handler on each card set the graph object appropriately.
If you create a graph on one computer and port it to another, you may need to redraw the graph, so to be safe send the makeGraph message to graphs upon opening a stack. This is because fonts may need to be substituted, if they are available on one computer but not another, or fonts may be drawn differently on different types of computer; in either case the graph object may need to account for new widths of the text in order for the text to display properly.
Properties - Data
For line graphs and scatter plots, you need data on an x-variable and one or more y-variables. Missing data are allowed by using a blank entry instead of a number.
graphX - The x-values of the data to be plotted, separated by commas. Default: 0,1,2,3,4,5
graphY - The y-values of the data to be plotted, with a separate y-variable on each line, separated by commas within each line. Default: 0,1,2,3,4,5
Properties - Location on Screen
graphMainRect - The rectangle in the stack window in which the graph should be drawn. (This refers to the main part of the graph, where the axes are drawn, not to the tic marks, axis labels, etc.) If this is empty, it will be reset to the rect of the graph object the next time the graph is drawn. Default: 50,50,250,150
Properties - Line Graphs versus Scatter Plots, Point Markers
graphLinesVisible - True or false. Set this to false to hide the lines. Default: true
graphMarkers - One line of text for each y-variable. If the relevant line is empty, a one-pixel dot will be plotted at each data point. Other options are "none" to not draw any markers, or any combination of
[filled-indicator] [size-indicator] type-indicator or
[filled-indicator] [size-indicator] marker-descriptor
The (optional) filled-indicator may be one of:
filled - Markers will be filled.
solid - Same as filled.
empty - Markers will not be filled (default).
hollow - Same as empty.
The (optional) size-indicator may be one of:
tiny - 0.1 times the large size, about 3 pixels wide
small - 0.25 times the large size
medium - 0.5 times the large size
large - 1 times the large size, about 25 pixels wide
# - Any (non-negative) number to multiply by the large size.
The type-indicator may be one of:
dot - No matter what size you specify, this is always one pixel.
+
x
diamond
square
triangle
circle
The marker-descriptor is a series of space-separated points describing a marker. See MetaCard's markerPoints property, but separate the points with spaces instead of returns.
Default: empty (i.e., 1-pixel dots)
Properties - Lines
graphLineColors - The colors of the lines (and corresponding markers) on the graph. This property may have one line for each y-variable; each line may be a color (the usual MetaCard name or trio of numbers), or empty which will mean the stack's default color. Default: empty
graphLineDashes - The dash patterns of the lines on the graph. This property may have one line for each y-variable; each line may be a comma-separated string of numbers specifying in order the number of pixels drawn, the following number of pixels not drawn, etc., or empty for no dashes. MetaCard officially only supports dashes on Unix and NT machines, but you may get some (perhaps odd) response out of these settings on Mac or commonplace Windows machines. Default: empty
graphLineWidths - The widths of the lines on the graph. This property may have one line for each y-variable; each line may be a nonnegative integer, or empty which will use the stack's default lineWidth. Default: empty
Properties - Axis Scales
The values of the x- and y-axis scales will be determined from the data unless you specify otherwise.
graphYScaleSame - When true, the scales of multiple y-variables will be forced to be the same. Default: true
graphXMin - The minimum value for the x-axis scale, or empty to just choose a value from the data. If some data points have lower values, this minimum will be overriden. Default: empty
graphXMax - The maximum value for the x-axis scale, or empty to just choose a value from the data. If some data points have higher values, this maximum will be overriden. Default: empty
graphYMin - The minimum values for the y-axis scale, with one line for each y-variable. Each line may be a number or empty; if it is empty then a value will be chosen from the data. If some data points have lower values, the minimum will be overriden. If graphYScaleSame is true, then similarly other y-variables' data or minimum values may override the minimum for each y-variable. Default: empty
graphYMax - The maximum values for the y-axis scale, with one line for each y-variable. Each line may be a number or empty; if it is empty then a value will be chosen from the data. If some data points have higher values, the maximum will be overriden. If graphYScaleSame is true, then similarly other y-variables' data or maximum values may override the maximum for each y-variable. Default: empty
graphXRound, graphYRound - If these properties are set to true, the ranges used on the graph will be nice round numbers (such that all the data points and the above minimums and maximums are between the numbers), with the minimum and maximum numbers having the same order of magnitude. Default: false
graphXLog, graphYLog - If these properties are set to true, the graph is plotted logarithmically in x- or y-directions. The graphYLog property may alternatively have one line for each y-variable, with true and false indicating whether it should be graphed logarithmically. If any y-values are zero or negative for a variable, graphYLog is ignored for that variable; the graph is not drawn logarithmically. If some y-variables are graphed logarithmically and some not, graphYScaleSame will be ignored (treated as if it were false). If a key is displayed, logarithmically-plotted variables are annoted with the term "[logarithmic]" (this term can be changed to null or to any string by using the graphKeyLogIndicator property). Default: false
Properties - Tick Marks and Scale Labels
graphXTicks, graphYTicks - "none" for no x- or y-axis (respectively) tick marks and scale labels, empty for tick marks and/or scale labels at the start and end of the axis, "exactly #" to specify an integer number (2 to 50) of tick marks, "about #" to specify an approximate integer number (2 to 50) of tick marks so that the distance between tick marks comes out to be a nice round number, or a list of numbers (separated by commas) for the x or y values at which to draw tick marks / scale labels. For y-values, the numbers must be defined in terms of the first y-variable's scale. Default: empty
graphXTicksVisible, graphYTicksVisible - True or false, whether the tick marks are visible. Default: true
graphXTicksInset, graphYTicksInset - True or false, whether tick marks are inset into the rectangle of the graph rather than protruding outside it. Default: false
graphTickMajorWidth - Number of pixels long for tick marks. Default: 4
graphXScaleVisible - True or false, whether numbers labelling the x-axis appear below each x-axis tick mark. (For their placement, see graphXTicks.) Default: true
graphYScaleVisible - True, false, or a comma-separated list of numbers. True shows numbers for the y-axis scale for each y-variable. False causes the scale numbers to be suppressed. If a comma-separated list of numbers is used, scales will be shown for multiple y-variables, in the order given by the list, using the colors of the y-variables (e.g. "2,3" causes y-scale numbers to be displayed for the 2nd and 3rd variables but not the 1st). The latter (and "true" when multiple variables have different scales) works well only for a small number of y-variables, and since each number is shown on a separate line, it is best to have very few tick marks on the y-axis. True causes scales to be shown for each y-variable unless the y-variables share the same scale, in which case it just shows the one scale. Default: true.
graphScaleTextFont - Font name of the text used for the axis scales, or empty for the default font. Default: empty
graphScaleTextSize - Point size of the text used for the axis scales. Default: 9
graphScaleTextSeparation - When displaying y-scales with multiple lines, this is the number of pixels of padding between lines. In MetaCard terminology, it is the number of pixels difference between the textSize and the textHeight in the fields used to display the y-axis scales. Default: 3
graphScaleMinimumSignificantDigits - The minimum number of digits of precision displayed in numbers in axis scales. Default: 3
graphScaleExponentFormat - When numbers on the graph scale are very large or small, they will be displayed with exponents. This can be "e" to display an "e" before the exponent, or "^" to display "*10^" before the exponent. The latter is generally more readable. Default: ^
graphScaleExponentLowThreshold, graphScaleExponentHighThreshold - How small or large do the axis numbers need to be before they use exponential notation? These parameters determine the answer. A number n on the graph scale uses an exponent when abs(n) < low-threshold or abs(n) >= high-threshold. Defaults: 0.001 and 100,000 respectively
Properties - Axis Labels (Variable Names)
graphXLabel, graphYLabel - Name or other label for the x- or y-variables to be displayed beneath the x-axis or at the top left of the graph. Default: empty
graphXYLabelTextFont - Font to be used to display the x- and y-axis variable names, or empty for the default font in use in MetaCard. Default: empty
graphXYLabelTextSize - Font size to be used to display the x- and y-axis variable names. Default: 9
graphXLabelXNudge, graphXLabelYNudge, graphYLabelXNudge, graphYLabelYNudge - Number of pixels by which to nudge the axis labels from their default positions. Default: 0
Properties - Key
graphYVariableNames - Names to be used for the y-variables in the key. If all the names are empty, no key will be created. The names are text strings separated by returns, corresponding to the y-variables plotted. An empty line will result in a null variable name, but the variable will still be included in the key. Default: empty
graphKeyTextFont - Font to be used to display the key, or empty for the default font in use in MetaCard. Default: empty
graphKeyTextSeparation - When displaying keys with multiple y-variables, this is the number of pixels of padding between lines of text in the key. In MetaCard terminology, it is the number of pixels difference between the textSize and the textHeight in the fields used to display the y-axis scales. Default: 3
graphKeyTextSize - Font size to be used to display the key. Default: 10
graphYScalesInKey - True or false, whether the scales of the y-variables are displayed in the key. Default: true
graphYUnitsOfMeasureInKey - Units of measure of variables reported in the key. Give the units of measure for each variable on a separate line. Default: empty
graphKeyLogIndicator - An indicator used to annotate y-variables graphed logarithmically. You may set this to any string (without return characters). Default: "[logarithmic]"
graphKeyXNudge, graphKeyYNudge - Number of pixels by which to change the location of the key from its default location. By default, it will be placed with the its left side adjacent to the vertical axis (with the field containing the key text beginning 20 pixels from the left axis) and with the top of the field containing the key text 12 pixels below all the x-axis labeling. Default: 0
Properties - Title
graphTitle - Title to be displayed above the graph. Default: empty
graphTitleTextFont - Font to be used to display the title, or empty for the default font in use in MetaCard. Default: empty
graphTitleTextSize - Font size to be used to display the title. Default: 12
graphTitleTextStyle - Font style to be used to display the title, "plain" or one or more of "bold", "italic", "underline", and "strikeout". Default: plain
graphTitleGap - Number of pixels between the top of the graph and bottom of the title. Default: 10
Properties - Axis
graphAxisWidth - Width of the lines for the graph axes. Default: 1
Properties - Clickable Graphs
graphClickable - True or false. If this is true, then whenever the user clicks on a line in the graph, a message will be sent to the card script:
graphClicked lineNumber, xValue, yValue
where lineNumber is 1, 2, ... according to whether the user clicked on the first, second, ... y-variable's line. (Higher-numbered lines are overlaid above lower-numbered lines, so if the user clicks at a point with multiple lines, the highest-numbered line will be identified.) The xValue and yValue are the x and y values of the clicked-on variable at the spot where the click occurred (this may be on an actual data point or on a line between data points). These values will be incorrect if the graph object has been moved but not redrawn. If a key is drawn, the user can click on curves in the key as well as in the graph; this can be detected by the fact that the yValue returned will (unless you nudged the key very high) be less than the y-axis minimum. Default: false
Properties - Editable Graphs
graphEditable - True or false. If true, the user can click and drag on the graph to alter the y-values of the uppermost curve in the graph. (The uppermost curve is the last line in the graphY property.) The edited y-values are constrained to lie within the vertical range corresponding to the y-axis of the graph. The updated y-values are stored in the graphYDataEdited property. The graphClickable property will function only through the key if graphEditable is true; that is, users will be able to click on curves in the key (if any) but not in the graph proper. Default: false
graphSendEditMessage - If this property is true, then whenever the user makes a change to the graph and releases the mouse button, the "graphEdited" message will be sent to the current card. Default: false
graphYDataEdited - This is a read-only property for use if the graphEditable property is true. It tells you the updated y-values of the uppermost curve in the graph. If you want to preserve the edited data when sending the makeGraph message, put the graphYDataEdited into the last line of the graphY before sending the makeGraph message.
Known Bugs and Limitations
In old versions of Runtime Revolution (not MetaCard), the hand cursor becomes the arrow cursor after redrawing the graph. The bug in Revolution that caused the problem (the "choose browse tool" command did not work) was fixed beginning with the alpha release version of Revolution circa 8 July 2002. Upgrade your copy of Revolution to solve the problem.
Revision Notes
From version of 20 Nov. 2000 to version 21 Jan. 2001:
1. The code contained a Macintosh-specific not-equal-to character, causing an error message on PCs. This has been fixed.
2. Ranges can now optionally be automatically rounded to nice round numbers, with the minimum and maximum of the range having the same order of magnitude.
3. Keys can now optionally be created, showing the names, units of measure, and/or ranges of the y-variables.
4. A bug was fixed with the "graphClickable" option's returned y values (which before were nonsenical or yielded dvision by zero errors).
5. Better examples are given so new users can see what to do.
From version of 21 Jan 2001 to version of 22 May 2001:
6. Sometimes after being pasted into another setting, the lines in the key would not draw. This was fixed.
7. Accuracy could be lost when dealing with extremely small positive or negative numbers. As a possible side effect, this could cause clickable graphs not to work. The inaccuracy (and its side effect) was fixed.
8. Exponent format on axis scales is now an option (graphScaleExponentFormat).
9. Editable graphs can now be used.
From version of 22 May 2001 to version of 10 May 2002:
10. For graphXTicks and graphYTicks, added the "exactly #" and "about #" options.
From version of 10 May 2002 to version of 24 May 2002:
11. Exponential notation on axis scales now occurs only for numbers larger (in absolute value) than 100,000 or smaller than 0.001, by default. The relevant thresholds can be set (graphScaleExponentLowThreshold, graphScaleExponentHighThreshold). The minimum number of digits displayed can also be set (graphScaleMinimumSignificantDigits).
From version of 24 May 2002 to version of 12 July 2002:
12. Fixed a bug in which graphs with multiple curves, some of which contained only 0 y-values but the rest of which contained only nonnegative values, could receive a minimum y scale of -1 if graphYScaleSame was true.
From version of 12 July 2002 to version of 28 July 2002:
13. The object previously worked properly with missing y-data but not missing x-data; now it works properly with either.
14. Editable graphs now are easier to use - in past the mouse had to be exactly at a data point's x-pixel location to trigger updating of its y value, but now the data point with the nearest x location is updated.
From version of 28 July 2002 to version of 5 August 2002:
15. Graphs with one nonmissing data point could draw oddly when using Revolution; this has been fixed.
From version of 5 August 2002 to version of 27 August 2002:
16. Two or more graphs objects placed on the same card had overlapping keys; this has been fixed.
From version of 27 August 2002 to version of 25 February 2003:
17. When plotting multiple y-variables with different scales and with 3 or more vertical-axis tick marks, the scales reported for the interior tick marks equalled those reported for the lowest tick mark; this has been fixed.
18. Logarithmic axes are now available as options (graphXLog, graphYLog).
From version of 25 February 2003 to version of 26 April 2003:
19. Beginning by Metacard version 2.5 (but after 2.3.1), MetaCard would automatically traverse to (draw a rectangle around) a field within the graph object. This has been fixed.
Graph object &Ken Simons, version 18 December 2006. yAnyone may use the graph object for any purpose. Rights to use of the original object must remain in the public domain. Contents: Usage Properties - Data # Properties - Location in Window @ Properties - Line Graphs versus Scatter Plots, Point Markers Properties - Lines Properties - Axis Scales , Properties - Tick Marks and Scale Labels - Properties - Axis Labels (Variable Names) Properties - Key Properties - Title Properties - Axis ! Properties - Clickable Graphs Properties - Editable Graphs Known Bugs and Limitations Revision Notes Usage CThe graph object presently supports line graphs and scatter plots. "To use the graph object in your Revolution project, select it, copy, and paste where you want it. When copying, ensure that Revolution's "Select Grouped Controls" option is turned off in the Edit menu (or set the selectGroupedControls to false); otherwise you will copy only one part of the graph object. After you paste the graph object where you want it, set properties of the graph object (see below) and send the message makeGraph to the graph object. You can send setDefaultProperties to the graph object to reset all properties to their default values. If you need to put graphs on multiple cards, one strategy is to put the graph object in a background (group), place that background on the relevant cards, and have an on preOpenCard handler on each card set the graph object appropriately. c c f $ 9 If you create a graph on one computer and port it to another, you may need to redraw the graph, so to be safe send the makeGraph message to graphs upon opening a stack. This is because fonts may need to be substituted, if they are available on one computer but not another, or fonts may be drawn differently on different types of computer; in either case the graph object may need to account for new widths of the text in order for the text to display properly. w w N Properties - Data For line graphs and scatter plots, you need data on an x-variable and one or more y-variables. Missing data are allowed by using a blank entry instead of a number. \graphX - The x-values of the data to be plotted, separated by commas. Default: 0,1,2,3,4,5 graphY - The y-values of the data to be plotted, with a separate y-variable on each line, separated by commas within each line. Default: 0,1,2,3,4,5 Properties - Location on Screen DgraphMainRect - The rectangle in the stack window in which the graph should be drawn. (This refers to the main part of the graph, where the axes are drawn, not to the tic marks, axis labels, etc.) If this is empty, it will be reset to the rect of the graph object the next time the graph is drawn. Default: 50,50,250,150 =Properties - Line Graphs versus Scatter Plots, Point Markers < XgraphLinesVisible - True or false. Set this to false to hide the lines. Default: true graphMarkers - One line of text for each y-variable. If the relevant line is empty, a one-pixel dot will be plotted at each data point. Other options are "none" to not draw any markers, or any combination of ; [filled-indicator] [size-indicator] type-indicator or 8 8 9 [filled-indicator] [size-indicator] marker-descriptor /The (optional) filled-indicator may be one of: $ filled - Markers will be filled. solid - Same as filled. 1 empty - Markers will not be filled (default). hollow - Same as empty. -The (optional) size-indicator may be one of: 8 tiny - 0.1 times the large size, about 3 pixels wide % small - 0.25 times the large size % medium - 0.5 times the large size 8 large - 1 times the large size, about 25 pixels wide @ # - Any (non-negative) number to multiply by the large size. "The type-indicator may be one of: D dot - No matter what size you specify, this is always one pixel. + x diamond square triangle circle The marker-descriptor is a series of space-separated points describing a marker. See Revolution's markerPoints property, but separate the points with spaces instead of returns. $Default: empty (i.e., 1-pixel dots) Properties - Lines graphLineColors - The colors of the lines (and corresponding markers) on the graph. This property may have one line for each y-variable; each line may be a color (the usual Revolution name or trio of numbers), or empty which will mean the stack's default color. Default: empty graphLineDashes - The dash patterns of the lines on the graph. This property may have one line for each y-variable; each line may be a comma-separated string of numbers specifying in order the number of pixels drawn, the following number of pixels not drawn, etc., or empty for no dashes. However, on Windows 95/98 and Mac OS and OS X, the length specified for dashes will be ignored, with the length controlled by the operating system. Default: empty /graphLineWidths - The widths of the lines on the graph. This property may have one line for each y-variable; each line may be a nonnegative integer, or empty which will use the stack's default lineWidth. A line width of 0 yields no line, but markers still appear as in a scatter plot. Default: empty Properties - Axis Scales fThe values of the x- and y-axis scales will be determined from the data unless you specify otherwise. ngraphYScaleSame - When true, the scales of multiple y-variables will be forced to be the same. Default: true graphXMin - The minimum value for the x-axis scale, or empty to just choose a value from the data. If some data points have lower values, this minimum will be overriden. Default: empty graphXMax - The maximum value for the x-axis scale, or empty to just choose a value from the data. If some data points have higher values, this maximum will be overriden. Default: empty graphYMin - The minimum values for the y-axis scale, with one line for each y-variable. Each line may be a number or empty; if it is empty then a value will be chosen from the data. If some data points have lower values, the minimum will be overriden. If graphYScaleSame is true, then similarly other y-variables' data or minimum values may override the minimum for each y-variable. Default: empty graphYMax - The maximum values for the y-axis scale, with one line for each y-variable. Each line may be a number or empty; if it is empty then a value will be chosen from the data. If some data points have higher values, the maximum will be overriden. If graphYScaleSame is true, then similarly other y-variables' data or maximum values may override the maximum for each y-variable. Default: empty .graphXRound, graphYRound - If these properties are set to true, the ranges used on the graph will be nice round numbers (such that all the data points and the above minimums and maximums are between the numbers), with the minimum and maximum numbers having the same order of magnitude. Default: false graphXLog, graphYLog - If these properties are set to true, the graph is plotted logarithmically in x- or y-directions. The graphYLog property may alternatively have one line for each y-variable, with true and false indicating whether it should be graphed logarithmically. If any y-values are zero or negative for a variable, graphYLog is ignored for that variable; the graph is not drawn logarithmically. If some y-variables are graphed logarithmically and some not, graphYScaleSame will be ignored (treated as if it were false). If a key is displayed, logarithmically-plotted variables are annoted with the term "[logarithmic]" (this term can be changed to null or to any string by using the graphKeyLogIndicator property). Default: false )Properties - Tick Marks and Scale Labels ( YgraphXTicks, graphYTicks - "none" for no x- or y-axis (respectively) tick marks and scale labels, empty for tick marks and/or scale labels at the start and end of the axis, "exactly #" to specify an integer number (2 to 50) of tick marks, "about #" to specify an approximate integer number (2 to 50) of tick marks so that the distance between tick marks comes out to be a nice round number, or a list of numbers (separated by commas) for the x or y values at which to draw tick marks / scale labels. For y-values, the numbers must be defined in terms of the first y-variable's scale. Default: empty kgraphXTicksVisible, graphYTicksVisible - True or false, whether the tick marks are visible. Default: true graphXTicksInset, graphYTicksInset - True or false, whether tick marks are inset into the rectangle of the graph rather than protruding outside it. Default: false HgraphTickMajorWidth - Number of pixels long for tick marks. Default: 4 graphXScaleVisible - True or false, whether numbers labelling the x-axis appear below each x-axis tick mark. (For their placement, see graphXTicks.) Default: trueon mouseUp
send setDefaultProperties to group "graph"
set the graphMainRect of group "graph" to "50,80,250,180"
set the graphX of group "graph" to "2930,3350,2640,3250,4080,3670,2230,3280,3880,3400,4330,3900,4290,2110,3690,3180,3220,2750,3430,2120,3600,3600,3740,1800,2650,4840,4720,3830,2580,4060,3720,3370,4130,2830,4060,3310,3300,3690,3370,2730,4030,3260,1800,2200,2520,3330,3700,3470,3210,3200,3420,2690,2830,2070,2650,2370,2020,2280,2750,2130,2240,1760,1980,3420,1830,2050,2410,2200,2670,2160,2040,1930,1990,3170"
set the graphY of group "graph" to "22,17,22,20,15,18,26,20,16,19,14,14,21,29,16,22,22,24,19,30,18,16,17,28,21,12,12,14,22,14,15,18,14,20,21,19,19,18,19,24,16,28,34,25,26,18,18,18,19,19,19,24,17,23,25,23,35,24,21,21,25,28,30,14,26,35,18,31,18,23,41,25,25,17"
set the graphXLabel of group "graph" to "Weight"
set the graphYLabel of group "graph" to "MPG of cars sold in US"
set the graphXYLabelTextSize of group "graph" to 12
set the graphXLabelYNudge of group "graph" to -14
set the graphYLabelYNudge of group "graph" to 8
set the graphLinesVisible of group "graph" to false
set the graphMarkers of group "graph" to "tiny circle"
set the graphYRound of group "graph" to true
set the graphYTicks of group "graph" to "about 6"
set the graphXTicks of group "graph" to "about 5"
set the graphLineColors of group "graph" to "blue"
send makeGraph to group "graph"
end mouseUp
( Example 5 Epon mouseUp send setDefaultProperties to group "graph" set the graphMainRect of group "graph" to "50,80,250,180" set the graphX of group "graph" to "1950,1951,1952,1953,1954,1955,1956,1957,1958,1959,1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992" set the graphY of group "graph" to "83627000,84869000,86111000,87342000,88584000,89816000,90682000,91537000,92393000,93249000,94104000,94950000,95837000,96818000,97830000,98894000,99792000,100731000,101065000,103183000,104345000,105697000,107188000,108079000,110162000,111940000,112771000,113863000,114898000,115870000,116782000,117648000,118449000,119259000,120018000,120754000,121492000,122091000,122613000,123116000,123537000,123921000,124000000" \ & cr & "1430,1610,1741,1832,1913,2053,2188,2330,2436,2629,2954,3351,3554,3886,4343,4491,4924,5417,6076,6673,7307,7510,8019,8539,8295,8381,8678,8996,9340,9756,10072,10380,10635,10841,11240,11771,11996,12430,13156,13706,14331,14936,15105" \ & cr & "16.5,22.4,17.9,16.5,17.6,18.8,20.6,23.4,20.8,22.6,26,31.5,28.8,30.2,31.4,29.9,30.8,33.8,36.1,37.5,39.9,38.4,38.8,40.6,38.6,35.2,35,34.6,35.1,35.9,34.1,33.6,32.5,30.9,31.3,31.7,32.2,33.6,36,37.7,38.7,38.4,37.4" set the graphLineColors of group "graph" to "red"& cr &"DarkOliveGreen4"& cr &"blue" set the graphYScaleSame of group "graph" to false set the graphTitle of group "graph" to "Japan's Post-War Boom" send makeGraph to group "graph" end mouseUp G a cREVGeneral bookmarks revUniqueID 1166423936986 handlerList mouseUp prevHandler mouseUp tempScript script D Example 6 Epon mouseUp send setDefaultProperties to group "graph" set the graphMainRect of group "graph" to "50,80,250,180" set the graphX of group "graph" to "1950,1951,1952,1953,1954,1955,1956,1957,1958,1959,1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992" set the graphY of group "graph" to "83627000,84869000,86111000,87342000,88584000,89816000,90682000,91537000,92393000,93249000,94104000,94950000,95837000,96818000,97830000,98894000,99792000,100731000,101065000,103183000,104345000,105697000,107188000,108079000,110162000,111940000,112771000,113863000,114898000,115870000,116782000,117648000,118449000,119259000,120018000,120754000,121492000,122091000,122613000,123116000,123537000,123921000,124000000" \ & cr & "1430,1610,1741,1832,1913,2053,2188,2330,2436,2629,2954,3351,3554,3886,4343,4491,4924,5417,6076,6673,7307,7510,8019,8539,8295,8381,8678,8996,9340,9756,10072,10380,10635,10841,11240,11771,11996,12430,13156,13706,14331,14936,15105" \ & cr & "16.5,22.4,17.9,16.5,17.6,18.8,20.6,23.4,20.8,22.6,26,31.5,28.8,30.2,31.4,29.9,30.8,33.8,36.1,37.5,39.9,38.4,38.8,40.6,38.6,35.2,35,34.6,35.1,35.9,34.1,33.6,32.5,30.9,31.3,31.7,32.2,33.6,36,37.7,38.7,38.4,37.4" set the graphLineColors of group "graph" to "red"& cr &"DarkOliveGreen4"& cr &"blue" set the graphYScaleSame of group "graph" to false set the graphYScaleVisible of group "graph" to false set the graphYRound of group "graph" to true set the graphTitle of group "graph" to "Japan's Post-War Boom" set the graphYVariableNames of group "graph" to "Population"& cr &"Real GDP per capita"& cr &"Investment as % of GDP" set the graphYUnitsOfMeasureInKey of group "graph" to "" & cr & "US$" & cr & "" set the graphKeyXNudge of group "graph" to -20 set the graphScaleTextSize of group "graph" to 10 send makeGraph to group "graph" end mouseUp _ a cREVGeneral scriptChecksum 05H3o+2 bookmarks revUniqueID 1166423936987 handlerList mouseUpscriptSelection char 1534 to 1533 prevHandler mouseUp tempScript script kon mouseUp
send setDefaultProperties to group "graph"
set the graphMainRect of group "graph" to "50,80,250,180"
set the graphX of group "graph" to "1950,1951,1952,1953,1954,1955,1956,1957,1958,1959,1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992"
set the graphY of group "graph" to "83627000,84869000,86111000,87342000,88584000,89816000,90682000,91537000,92393000,93249000,94104000,94950000,95837000,96818000,97830000,98894000,99792000,100731000,101065000,103183000,104345000,105697000,107188000,108079000,110162000,111940000,112771000,113863000,114898000,115870000,116782000,117648000,118449000,119259000,120018000,120754000,121492000,122091000,122613000,123116000,123537000,123921000,124000000" \
& cr & "1430,1610,1741,1832,1913,2053,2188,2330,2436,2629,2954,3351,3554,3886,4343,4491,4924,5417,6076,6673,7307,7510,8019,8539,8295,8381,8678,8996,9340,9756,10072,10380,10635,10841,11240,11771,11996,12430,13156,13706,14331,14936,15105" \
& cr & "16.5,22.4,17.9,16.5,17.6,18.8,20.6,23.4,20.8,22.6,26,31.5,28.8,30.2,31.4,29.9,30.8,33.8,36.1,37.5,39.9,38.4,38.8,40.6,38.6,35.2,35,34.6,35.1,35.9,34.1,33.6,32.5,30.9,31.3,31.7,32.2,33.6,36,37.7,38.7,38.4,37.4"
set the graphLineColors of group "graph" to "red"& cr &"DarkOliveGreen4"& cr &"blue"
set the graphYScaleSame of group "graph" to false
set the graphYScaleVisible of group "graph" to false
set the graphYRound of group "graph" to true
set the graphTitle of group "graph" to "Japan's Post-War Boom"
set the graphYVariableNames of group "graph" to "Population"& cr &"Real GDP per capita"& cr &"Investment as % of GDP"
set the graphYUnitsOfMeasureInKey of group "graph" to "" & cr & "US$" & cr & ""
set the graphKeyXNudge of group "graph" to -20
set the graphScaleTextSize of group "graph" to 10
send makeGraph to group "graph"
end mouseUp
Example 6 Epaon mouseUp send setDefaultProperties to group "graph" set the graphX of group "graph" to "1950,1951,1952,1953,1954,1955,1956,1957,1958,1959,1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992" set the graphY of group "graph" to "83627000,84869000,86111000,87342000,88584000,89816000,90682000,91537000,92393000,93249000,94104000,94950000,95837000,96818000,97830000,98894000,99792000,100731000,101065000,103183000,104345000,105697000,107188000,108079000,110162000,111940000,112771000,113863000,114898000,115870000,116782000,117648000,118449000,119259000,120018000,120754000,121492000,122091000,122613000,123116000,123537000,123921000,124000000" \ & cr & "1430,1610,1741,1832,1913,2053,2188,2330,2436,2629,2954,3351,3554,3886,4343,4491,4924,5417,6076,6673,7307,7510,8019,8539,8295,8381,8678,8996,9340,9756,10072,10380,10635,10841,11240,11771,11996,12430,13156,13706,14331,14936,15105" \ & cr & "16.5,22.4,17.9,16.5,17.6,18.8,20.6,23.4,20.8,22.6,26,31.5,28.8,30.2,31.4,29.9,30.8,33.8,36.1,37.5,39.9,38.4,38.8,40.6,38.6,35.2,35,34.6,35.1,35.9,34.1,33.6,32.5,30.9,31.3,31.7,32.2,33.6,36,37.7,38.7,38.4,37.4" set the graphLineColors of group "graph" to "red"& cr &"DarkOliveGreen4"& cr &"blue" set the graphYScaleSame of group "graph" to false set the graphYScaleVisible of group "graph" to false set the graphYRound of group "graph" to true set the graphTitle of group "graph" to "Japan's Post-War Boom" set the graphYVariableNames of group "graph" to "Population"& cr &"Real GDP per capita"& cr &"Investment as % of GDP" set the graphYUnitsOfMeasureInKey of group "graph" to "" & cr & "US$" & cr & "" set the graphKeyXNudge of group "graph" to -20 set the graphScaleTextSize of group "graph" to 10 send makeGraph to group "graph" end mouseUp w a cREVGeneral revUniqueID 1166423936988 Example 7 EpGon mouseUp send setDefaultProperties to group "graph" set the graphMainRect of group "graph" to "50,80,250,180" set the graphX of group "graph" to "1950,1951,1952,1953,1954,1955,1956,1957,1958,1959,1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992" set the graphY of group "graph" to "83627000,84869000,86111000,87342000,88584000,89816000,90682000,91537000,92393000,93249000,94104000,94950000,95837000,96818000,97830000,98894000,99792000,100731000,101065000,103183000,104345000,105697000,107188000,108079000,110162000,111940000,112771000,113863000,114898000,115870000,116782000,117648000,118449000,119259000,120018000,120754000,121492000,122091000,122613000,123116000,123537000,123921000,124000000" \ & cr & "1430,1610,1741,1832,1913,2053,2188,2330,2436,2629,2954,3351,3554,3886,4343,4491,4924,5417,6076,6673,7307,7510,8019,8539,8295,8381,8678,8996,9340,9756,10072,10380,10635,10841,11240,11771,11996,12430,13156,13706,14331,14936,15105" \ & cr & "16.5,22.4,17.9,16.5,17.6,18.8,20.6,23.4,20.8,22.6,26,31.5,28.8,30.2,31.4,29.9,30.8,33.8,36.1,37.5,39.9,38.4,38.8,40.6,38.6,35.2,35,34.6,35.1,35.9,34.1,33.6,32.5,30.9,31.3,31.7,32.2,33.6,36,37.7,38.7,38.4,37.4" set the graphLineColors of group "graph" to "red"& cr &"DarkOliveGreen4"& cr &"blue" set the graphYScaleSame of group "graph" to false set the graphYScaleVisible of group "graph" to false set the graphYRound of group "graph" to true set the graphTitle of group "graph" to "CLICKABLE Japan's Post-War Boom" set the graphYVariableNames of group "graph" to "Population"& cr &"Real GDP per capita"& cr &"Investment as % of GDP" set the graphYUnitsOfMeasureInKey of group "graph" to "" & cr & "US$" & cr & "" set the graphKeyXNudge of group "graph" to -20 set the graphScaleTextSize of group "graph" to 10 set the graphClickable of group "graph" to true # See the handler in the card script for an example of how to get messages when the user clicks on the graph. send makeGraph to group "graph" end mouseUp w a cREVGeneral revUniqueID 1166423936989 Example 8 Epon mouseUp send setDefaultProperties to group "graph" set the graphMainRect of group "graph" to "50,80,250,180" set the graphX of group "graph" to "0,1,2,3,4,5,6,7,8,9,10" set the graphY of group "graph" to "10,7,4.5,2.5,1,0,1,2.5,4.5,7,10" set the graphLineColors of group "graph" to "blue" set the graphMarkers of group "graph" to "tiny +" set the graphXLabel of group "graph" to "Input" set the graphYLabel of group "graph" to "Output" set the graphXYLabelTextSize of group "graph" to 12 set the graphXLabelYNudge of group "graph" to -28 set the graphYLabelYNudge of group "graph" to 13 set the graphEditable of group "graph" to true set the graphTitle of group "graph" to "Edit Me -- Click & drag in graph" send makeGraph to group "graph" end mouseUp a cREVGeneral bookmarks revUniqueID 1166423936990 handlerList mouseUp prevHandler mouseUp tempScript script K Table usage info )h cREVGeneral revUniqueID 1166424932896 > Table object Tuviah Snyder, 2000. AAdditions & modifications, Ken Simons, version 18 December 2006. @ Contents: Usage Authors and Rights Properties - Data % Properties - Row and Column Names $ + Properties - Number of Rows and Columns * Properties - Column Widths Properties - Scroll Bars # Properties - Text Font and Size " Properties - Colors 2 Properties - Editing, Copying, Double-clicking 1 Properties - Read-only Known Bugs and Limitations Revision Notes Usage XTo use the table object in your Revolution project, just select it, copy, and paste where you want it. Your table is then operational. When copying, ensure that Revolution's "Select Grouped Controls" option is turned off in the Edit menu (or set the selectGroupedControls to false); otherwise you will copy only one part of the graph object. f F Don't like how the table looks or acts? Set properties of the table object (listed below) and send the message redrawme to the table object. This lets you make all sorts of changes: contents of the table, row and column names if any, numbers of columns and rows, column widths, whether scroll bars appear, text font and size, color scheme, whether the user can edit the table, and more. You can do this using a pallette designed to make changes easy, and then copy the adjusted table. p p xo Or make changes from scripts. Example scripts are in the buttons at the left. Send setDefaultProperties to the table object if you want to reset all properties to their default values, before making changes from scripts. U U i u To put tables on multiple cards, paste the table object multiple times and give each a different name. Or if you don't mind doing some programming, here is a more memory-efficient approach: paste the table object once, place the object on relevant cards, have an on preOpenCard handler on each card set the table object appropriately, and have an on closeCard handler on each card save edited contents of the table. ' F \ h 8 To resize or relocate the table by hand: (1) set the lockLocation of the table to false, (2) resize and relocate the table, and (3) send redrawme to the table. To do the same by script, just set the rect of the group and then send the redrawme command. [ UTo copy the pallette into your stack, you must copy it separately from the table object. The pallette is a substack of this stack; similarly you will need it to be a substack of your stack. To make it a substack of your stack: use the message box to issue the command clone stack "table props", then choose Edit -> Stack Properties..., set the Main Stack of the cloned stack to your own stack, and set its name to "table props" or whatever you like. Then to use the pallette, select the table object to be modified, and open the palette using the palette command (e.g., palette "table props"). ' & = R Authors and Rights Tuviah Snyder graciously made his table object available to the MetaCard community circa 2000 (see his "powertable.mc" stack, which was then available for download from the Cross-Worlds web site). He has given me (Ken Simons) permission to modify and use his object and, although he has put a copyright notice on his code, he seems to be willing to let anyone use the table object (including for commercial purposes). I have made various modifications and feature additions to the table object, and have written this documentation. Tuviah included a floating pallette useful for editing; I have updated the pallette to include options that I added. Properties - Data There are three ways to enter data into the table. 1. Type it in. 2. Set the tbdata[ ] properties as described below. The data placed in the table will be adjusted to fit given the available column widths. The tbdata[.] properties will be updated whenever someone enters data into the table. 3. Use a global variable. The third option allows rapid display of data but not user-editing nor formatting; it is relatively quick for large amounts of data because formatting takes a long time. Place the data in a global variable and set the tbgetUnformattedDataFromGlobal property to the name of the global; the data will then be placed in the table very quickly but you will need to ensure that column widths are okay. = tbdata[1..cols] - The data to be placed in the table. The first column of data goes in tbdata[1], the second in tbdata[2], etc. Within each column, use returns to distinguish the rows of data. The text must not contain tab characters. Default: null =tbgetUnformattedDataFromGlobal - The name of a global variable containing data to put into the table. If a name is provided, data from the named variable will be used and the tbdata[ ] information will be ignored and editing will not work properly. The advantage of this method is that it is very fast for large amounts of data. The data must be tab-delimited within each line, with lines (rows) separated with return characters. There must be one line of data for each row of the table (blank lines are ok but the carriage returns must be there); otherwise clicking on cells of the table will yield odd behavior; it will not be possible to select a cell. Editing will not be possible; the tbuserCanEdit property automatically will be set to false and needs to be left false. See above for more information. Default: null "Properties - Row and Column Names ! htbpadcolumn - Whether column names are displayed at the top of the table, true or false. Default: true mtbpadrow - Whether row names are displayed at the left-hand side of the table, true or false. Default: true tbcolumnnames - The column names, displayed at the top of the table. Separate the names with return characters. If this is null, the column names will be "column 1", "column 2", etc. Default: null tbrownames - The row names, displayed at the left-hand side of the table. If this is null, the row names will be "1", "2", etc. Separate the names with return characters. Default: null (Properties - Number of Rows and Columns ' The table has a fixed setting for the number of rows and columns. However, you could easily create a button or other tool that adds to the number of rows and/or columns and sends the "redrawme" command to the table. 7tbrows - The number of rows in the table. Default: 20 6on refreshprops
send "GetTableProps" to current card of me
end refreshprops
on OpenCard
if ValidObject() is true then send "GetTableProps" to current card of me
end OpenCard
on CloseCard
if ValidObject() is true then
send "SetTableProps" to current card of me
send redrawme to selectedobject
end if
end CloseCard
Function ValidObject
if the selectedobject is empty then return false
if "tbcolumns" is in the customkeys of selectedobject then return true
return false
end ValidObject
on preOpenStack
end preOpenStack
on openstack
end openstack
on selectedobjectchanged
end selectedobjectchanged
on closestack
select empty
end closestack
General P [ on GetTableProps put the selectedobject into thetable put the tbrows of thetable into field "Rows:" put the tbcolumns of thetable into field "Columns:" put the tbdefaultwidth of thetable into field "Default Column Width:" set the hilite of btn "Pad Rows" to the tbpadrow of thetable set the hilite of btn "Pad Columns" to the tbpadcolumn of thetable put the tbpadrowwidth of thetable into field "Row Pad Width:" set the hilite of btn "Vertical" to the tbvscrollbar of thetable set the hilite of btn "Horizontal" to the tbhscrollbar of thetable put the tbscrollbarwidth of thetable into field "Scrollbar Width:" put the fontnames into fnames sort fnames put fnames into btn "Font:" set label of btn "Font:" to the effective textfont of thetable put FontSizes(textfont of thetable) into fsizes sort fsizes numeric if word 1 of fsizes is 0 then put format("8\n10\n12\n14\n18\n20\n24\n34") into button "size:" else put fsizes into button "size:" set the label of btn "Size:" to the effective textsize of thetable put the textstyle of thetable into tstyles set hilite of btn "Bold" to "Bold" is in tstyles set hilite of btn "Italic" to "Italic" is in tstyles set hilite of btn "Underline" to "Underline" is in tstyles end GetTableProps on SetTableProps put the selectedobject into thetable set the tbrows of thetable to field "Rows:" set the tbcolumns of thetable to field "Columns:" set the tbdefaultwidth of thetable to field "Default Column Width:" set the tbpadrow of thetable to the hilite of btn "Pad Rows" set the tbpadcolumn of thetable to the hilite of btn "Pad Columns" set the tbpadrowwidth of thetable to field "Row Pad Width:" set the tbvscrollbar of thetable to the hilite of btn "Vertical" set the tbhscrollbar of thetable to hilite of btn "Horizontal" set the tbscrollbarwidth of thetable to field "Scrollbar Width:" set the textfont of thetable to label of btn "Font:" set the textsize of thetable to the label of btn "Size:" if hilite of btn "Bold" is true then put "Bold"&comma after tstyles if hilite of btn "Italic" is true then put "Italic"&comma after tstyles if hilite of btn "Underline" is true then put "Underline"&comma after tstyles if tstyles is empty then put "Plain" into ttsyles else delete last character of tstyles set the textstyle of thetable to tstyles end SetTableProps v w x r Extras Pon GetTableProps put the selectedobject into thetable put the tbgetUnformattedDataFromGlobal of thetable into field "Override Data with Global Named:" set the hilite of btn "User Can Edit" to the tbuserCanEdit of thetable set the hilite of btn "User Can Resize Columns" to the tbUserCanResizeColumns of thetable set the hilite of btn "User Can Copy" to the tbCopyable of thetable set label of btn "Copy Row/Column Names:" to the tbcopyRowAndColumnNames of thetable put the tbdoubleClickMessage of thetable into field "Message Sent on Double-Click:" end GetTableProps on SetTableProps put the selectedobject into thetable set the tbgetUnformattedDataFromGlobal of thetable to field "Override Data with Global Named:" set the tbuserCanEdit of thetable to the hilite of btn "User Can Edit" set the tbUserCanResizeColumns of thetable to the hilite of btn "User Can Resize Columns" set the tbCopyable of thetable to the hilite of btn "User Can Copy" set the tbcopyRowAndColumnNames of thetable to the label of btn "Copy Row/Column Names:" set the tbdoubleClickMessage of thetable to field "Message Sent on Double-Click:" end SetTableProps ^ a d i j k s t u Colors Pon CloseCard if ValidObject() is true then SetTableProps send "redrawme false" to selectedobject end if end CloseCard on choosetablecolor newcolor if the hilitedbutton of group "TableColors" is 0 then set backgroundcolor of btn 1 of group "TableColors" to newcolor else set backgroundcolor of btn (hilitedbutton of group "TableColors") of group "TableColors" to newcolor end choosetablecolor on GetTableProps put the selectedobject into thetable set backgroundcolor of btn "Column" to the tbcolumncolor of thetable set backgroundcolor of btn "Column Text" to the tbcolumntextcolor of thetable set backgroundcolor of btn "Column Border" to the tbcolumnbordercolor of thetable set backgroundcolor of btn "Column Hilite" to the tbcolumnhilitecolor of thetable set backgroundcolor of btn "Pad" to the tbpadcolor of thetable set backgroundcolor of btn "Pad Border" to the tbpadbordercolor of thetable set backgroundcolor of btn "Pad Text" to the tbpadtextcolor of thetable set backgroundcolor of btn "ScrollBar" to the tbscrollcolor of thetable end GetTableProps on SetTableProps put the selectedobject into thetable set the tbcolumncolor of thetable to the backgroundcolor of btn "Column" set the tbcolumntextcolor of thetable to the backgroundcolor of btn "Column Text" set the tbcolumnbordercolor of thetable to the backgroundcolor of btn "Column Border" set the tbcolumnhilitecolor of thetable to the backgroundcolor of btn "Column Hilite" set the tbpadcolor of thetable to the backgroundcolor of btn "Pad" set the tbpadbordercolor of thetable to the backgroundcolor of btn "Pad Border" set the tbpadtextcolor of thetable to the backgroundcolor of btn "Pad Text" set the tbscrollcolor of thetable to the backgroundcolor of btn "ScrollBar" end SetTableProps tablecolorlist Column tbcolumncolor Column Text tbcolumntextcolor Column Border tbcolumnbordercolor Column Hilite tbcolumnhilitecolor Pad tbpadcolor Pad Border tbpadbordercolor Pad Text tbpadtextcolor ScrollBar tbscrollcolor ! " Data Plocal currentselection on GetTableProps put the selectedobject into thetable put the tbcolumns of thetable into tcolumns repeat with i = 1 to tcolumns put i into line i of columnnames end repeat put columnnames into field "columnlist" set the hilitedlines of field "columnlist" to 1 set the tbrows of group "rowlist" to the tbrows of thetable put 1 into currentselection set the tbdata[1] of group "rowlist" to the tbdata[currentselection] of thetable send redrawme to group "rowlist" end GetTableProps on SetTableProps set tbdata[currentselection] of selectedobject to the tbdata[1] of group "rowlist" end SetTableProps on ChooseColumn whichcolumn if ValidObject() is true then set tbdata[currentselection] of selectedobject to the tbdata[1] of group "rowlist" set the tbdata[1] of group "rowlist" to the tbdata[whichcolumn] of selectedobject send "formatme 1" to group "rowlist" put whichcolumn into currentselection end if end ChooseColumn / : ; < > Widths & Labels Plocal currentselection on GetTableProps put the selectedobject into thetable put the tbcolumns of thetable into tcolumns repeat with i = 1 to tcolumns put i into line i of columnnames end repeat put columnnames into btn "columnlist" put 1 into currentselection get line currentselection of the tbcolumnwidth of thetable if it is empty then put the tbdefaultwidth of thetable into field "Column Width:" else put it into field "Column Width:" put the tbcolumnnames of thetable into field "column names:" put the tbrownames of thetable into field "row names:" end GetTableProps on SetTableProps put the selectedobject into thetable get the tbcolumnwidth of thetable put field "column width:" into line currentselection of it set the tbcolumnwidth of thetable to it set the tbcolumnnames of thetable to field "column names:" set the tbrownames of thetable to field "row names:" end SetTableProps on ChooseColumn whichcolumn if ValidObject() is true then put the selectedobject into thetable get the tbcolumnwidth of thetable put field "column width:" into line currentselection of it set the tbcolumnwidth of thetable to it put whichcolumn into currentselection get line currentselection of the tbcolumnwidth of thetable if it is empty then put the tbdefaultwidth of thetable into field "Column Width:" else put it into field "Column Width:" end if end ChooseColumn ? @ A B C D Y Z [ ] i 0on menupick which go card which end menupick m +General Colors Data Widths & Labels Extras # Apply Ep "on mouseUp closecard end mouseUp e $ < Rows: x $ D Columns: $ Default Column Width: Rows: )pPon closefield get me if it is not a number then Invalidate "Not a number." if it < 1 then Invalidate "Number to Low. (1 to 1000)." if 1000