solved: Quickcurve graphs
solved: Quickcurve graphs
- Subject: solved: Quickcurve graphs
- From: Robert Poland <email@hidden>
- Date: Tue, 19 Jul 2005 10:51:52 -0600
Hi,
Emmanuel came through with a working example and explanation;
Append to script;
set savedRect to v's plot frame -- move frame to include all
axis labels
set v's frame to addlist (get v's frame) with {0, -15, 0, 30}
set v's plot frame to addlist savedRect with {0, 20, 0, 0}
Also I missed that Applescript doesn't always recognize a string when
it sees it. (set v's xlabel to "" & beginningDate & " - to - " &
endDate)
Hi,
I'm not getting needed help from the Smile list so I thought I'd try here.
The following script plots a graph but the x axis is not visible.
Does anyone know how to (and be willing to share an example) resize
the final window to show the x-axis?
set beginningDate to current date
set endDate to ""
set lengthOfRange to 10
set BPtestPosition to ", Sitting"
set theValueP to {10, 20, 30, 40, 50}
set theValue0 to {40}
set theValue1 to {40}
set theValue2 to {40}
set theValue3 to {40}
set theValue4 to {40}
set theValue5 to {40}
set theValue6 to {140}
tell application "Smile"
activate
set c to make new graphic window with properties
{pagewidth:10 as inches, pageheight:5.0 as inches} --, item 1 of
window 2:70.0, 45.0, 615.0, 260.0}
set c1 to QuickCurve({}, theValue1, c)
QuickCurve({}, theValue2, c1's container)
QuickCurve({}, theValue3, c1's container)
QuickCurve({}, theValue4, c1's container)
QuickCurve({}, theValue5, c1's container)
QuickCurve({}, theValue6, c1's container)
set v to c1's container
-- edit the graph presentation
set frame of item 1 of window 1 to {70.0, 45.0, 615.0, 260.0}
set v's xaxis labels to theValue0
set v's xaxis labels positions to theValueP
set v's xlabel to beginningDate & " - to - " & endDate
set v's ylabel to "mm/Hg"
set v's name to "Blood Pressure, " & lengthOfRange & " Test
Readings" & BPtestPosition
set v's xaxis scale tilt to pi / 3
draw v's window
end tell
Thanks in advance,
--
Bob Poland - Fort Collins, CO
http://www.ibrb.org/
_______________________________________________
Do not post admin requests to the list. They will be ignored.
Applescript-users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
This email sent to email@hidden