R "Change" Dialogon mouseUp
ShowDialog 2,4740,"Find What:","Change To:","Find & Change Dialog","Your string goes here."
if the result is empty then
put "You clicked the ÒCancelÓ button." into cd fld "theResult"
else
put the result into temp
if item 1 of temp is empty then
put "String 1 was: empty" & return into cd fld "theResult"
else put "String 1 was:" && item 1 of temp & return into cd fld "theResult"
if item 2 of temp is empty then
put "String 2 was: empty" after cd fld "theResult"
else put "String 2 was:" && item 2 of temp after cd fld "theResult"
end if
end mouseUp
J@S<<� prevon mouseUp
doMenu "prev"
end mouseUpTUh@° nexton mouseUp
go to card "Chronology"
end mouseUpLj}@ firston mouseUp
doMenu "first"
end mouseUp`
4eO€ž Read Fileon mouseUp
ask "Import text from what file?"
if it is empty then exit mouseUp
put it into fileName
open file fileName
repeat
doMenu "New Card"
repeat with i = 1 to the number of fields - 1
read from file fileName until tab
if it is empty then -- end of file
if i=1 then
doMenu "delete Card"
close file fileName
exit mouseUp
end if
end if
put empty into last char of it --kill tab
put it into field i
end repeat
read from file fileName until return
put empty into last char of it --kill tab
put it into field number of fields
end repeat
end mouseUp lžN€NÚ Write to Fileon mouseUp
ask "Write references to what file?"
put it into fileName
open file fileName
repeat with cardNum = 1 to the number of cards
put "now on card " & cardNum & " of " & number of cards
go card cardNum
put offset("journal", name of this background) into it
if it > 0 then
write field author to file fileName
write " (" & field year & ") " to file fileName
write field title & ". " to file fileName
write field journal& " " to file fileName
write field volume & ": " to file fileName
write field pages & "." to file fileName
write " In: " & field theBook & return & return to file fileName
end if
put offset("book", name of this background) into it
if it > 0 then
write field author to file fileName
write " (" & field year & ") " to file fileName
write field title to file fileName
write "In: " & field book & ". " to file fileName
write field editors & "[eds]. " to file fileName
write field publisher & ". " to file fileName
write field city & ". " to file fileName
write "Pp. " & field pages & "." to file fileName
write " In: " & field theBook & return & return to file fileName
end if
end repeat
end mouseUp
˜ ç f€NÚ Write to Excelon mouseUp
ask file "What is the fileSpecification?"
put it into fileName
open file fileName
put the number of lines in field "poobah" into theEnd
repeat with lineNum = 1 to theEnd
put "now on line " & lineNum & " of " & theEnd
write line lineNum of field "poobah" & tab to file fileName
write return to file fileName
end repeat
close file fileName
end mouseUp
€
émÄ€NÚ Read from Excelon mouseUp
answer file "What is the file specification"
put it into filespec
open file filespec
-- First read the header record
read from file filespec until tab
if it is empty then -- check for end of file
close file filespec
answer "This is an empty file"
exit mouseUp
else
put empty into last char of it
put it into field 1
end if
read from file filespec until tab
put empty into last char of it
put it into field 2
read from file filespec until tab
put empty into last char of it
put it into field 3
read from file filespec until tab
put empty into last char of it
put it into field 4
--Now read in the lines of the different fields
put 1 into linenum
repeat
--do the first field and check for end of file
read from file filespec until tab
if it is empty then -- end of file
close file filespec
exit mouseUp
end if
put empty into last char of it
put it & return after line lineNum of field 1
--now do field 2
read from file filespec until tab
put empty into last char of it
put it & return after line lineNum of field 2
--now do field 3
read from file filespec until tab
put empty into last char of it
put it & return after line lineNum of field 3
--now do field 4
read from file filespec until return
put empty into last char of it
put it & return after line lineNum of field 4
add 1 to lineNum
end repeat
beep
end mouseUp
b¤†¸Ð€ Save Logon mouseUp
put cd fld "thePath" & cd fld "theObject" into theOutput
put "Saving file:"& theOutput into field "Status"
open file theOutput
write field "theTape"Â
& tab & theProjectÂ
& tab & theExperimentÂ
& tab & theTrialÂ
& return to file theOutput
repeat with thisLine = 1 to the number of lines in field "event"
write line thisLine of field "date"Â
& tab & line thisLine of field "time"Â
& tab & line thisLine of field "event"Â
& tab & field "startFrm"Â
& tab & line thisLine of field "endFrm" Â
& return to file theOutput
end repeat
close file theOutput
end mouseUpp¤Ñ¸€ Get Logon mouseUp
put empty into field "date"
put empty into field "time"
put empty field "event"
put empty into field "startFrm"
put empty into field "endFrm"
answer file "What is the file specification"
put it into filespec
open file filespec
-- First read the header record
read from file filespec until tab
if it is empty then -- check for end of file
close file filespec
answer "This is an empty file"
exit mouseUp
else
put empty into last char of it
put it into field "theTape"
end if
read from file filespec until tab
put empty into last char of it
put it into theProject
read from file filespec until tab
put empty into last char of it
put it into theExperiment
read from file filespec until return
put empty into last char of it
put it into theTrial
--Now read in the lines of the different fields
put 1 into linenum
repeat
--do the first field and check for end of file
read from file filespec until tab
if it is empty then -- end of file
close file filespec
exit mouseUp
end if
put empty into last char of it
put it & return after field "date"
--now do field 2
read from file filespec until tab
put empty into last char of it
put it & return after field "time"
--now do field 3
read from file filespec until tab
put empty into last char of it
put it & return after ield "event"
--now do field 4
read from file filespec until return
put empty into last char of it
put it & return after field "startFrm"
--now do field 4
read from file filespec until return
put empty into last char of it
put it & return after field "endFrm"
add 1 to lineNum
end repeat
beep
end mouseUp
B¼Ëõ€ Queue Endon mouseUp
put 0 into theEnd
repeat with i = 1 to the number of lines in field "EndFrm"
if line i of field "EndFrm" > theEnd then
put line i of field "EndFrm" into theEnd
end if
end repeat
put "Searching for frame "& theEnd into field "Status"
VCRcmd mSearchTo,theEnd
end mouseUpŒ¾+Ñ_€ Mouseon mouseDown
repeat until the mouse = "up"
put the mouseLoc
end repeat
hide message box
end mouseDownButtons€BMAP‰Œ €P ,"ÿÀ(àÀR0p%0`4 %À‹RÏð%/À` Š @ $ÀÀ2~8c~Ãà Á€8ð€~€0cÃÏï㇞üpÇ{ÎqüqÆü{ü9ÁÇÀ‹"ðS6Â^ý‹ØA6ì/aÿŠ"°SAÂ!‚H ‚@3 @2€(("À @"à&;€áLT@€ D€#(!2@sBA€ Á`
‚Ac@Ÿàà 6€à
€?€ÿÀ8áÁÀü|<œ8 ð>pxà‰á¥…á~ €!€@€UUUUUUUUCARD‡*ˆþ…3FµR€Lj}@ firston mouseUp
doMenu "first"
end mouseUpþ,Bx€ Tabloidon mouseUp
if there is not a window "Tabloid"
then
set cursor to watch
Tabloid "Tabloid",cd fld "List","dis"
set lockText of window "Tabloid" to false
put "Tabloid" into openWindow
put openWindow
end if
end mouseUp&(˜“r ListF\w€ Textoidon mouseUp
Textoid "Textoid",cd fld 1,false,"91,69","red"
testError the Result
set the lockText of window "Textoid" to false
end mouseUp
on TestError What
if What empty
then
beep
answer What
exit to HyperCard
end if
end TestError¢_uw€ Listoidon mouseUp
if there is not a window "Listoid"
then
set cursor to watch
Listoid "Listoid",cd fld "List"
end if
end mouseUpp¦y€ Handlerson mouseUp
edit the script of background "WindoidHandlers"
end mouseUp˜wv PICToidon mouseUp
put FileName("PICT") into FileSpec
--set rect to 50,50,350,350
Picture FileSpec,File,Zoom
end mouseUp(–—q Outputÿý;This is the stuff, for the windoids
It is, neat, stuff
ÿø;This is the stuff, for the windoids
It is, neat, stuff
Windoidson openCard
global OpenWindow
set scroll of cd fld 1 to 0
put empty into cd fld "Output"
end openCard
on closeCard
global OpenWindow
if there is a window OpenWindow
then close window OpenWindow
end closeCardÀBMAPˆþ € 7!lBø #€C?€%ŠR˜0R `þ5€`% $ 4`A`% %0 á#P €4@0ÁÇüü Àrøg€~ÁàcÀ>øD ÃÃró07 @åˆ6Fq¹Œ0Ùä‰SF0áÃÆ 08ø q რ8ppƒ†ŠD€ !Ã
€P ‡
€‚ H‚
$@4p€2€# #+@ 3@#;€î$€ L&03
€2RB€$@8‚Á€H 2€AÁ€( ‹3@Âü †€OÀƒ‰Ürwb hL ø‰S€yàÃàñÁø üðð>pà|< oÀùÁã€á`¥…á)ø
`CARDJ0…3I<�ˆ˜t' 8h€ Create Editoron mouseUp
ask "What is the new Editor type?"
if field "EditorTypes" is empty then
put it into field "EditorTypes"
else
put return & it after last line of field "EditorTypes"
end if
go to card "EditorDefinition"
doMenu "copy card"
doMenu "paste card"
set the name of this card to it
put it into card field "title"
end mouseUpN@S<<� prevon mouseUp
go card "Handlers"
end mouseUpXUh@° nexton mouseUp
go to card "DataDictionary"
end mouseUpLj}@ firston mouseUp
doMenu "first"
end mouseUp"ÆzsArray Derivative
Array Integrator
Array Manipulator
Array Math
Array Peaks
Array Statistics
Histogram
Scattergram
ÿú € L
Qƒ
ˆÃ
ÉEditors allow one to alter the format or values within existing data files. Table editors allow manipulation of spreadsheet files. Image editors allow manipulation of bitmap and pixel map files. Analog editors allow signal processing of analog files.
Editorson openCard
sort field "EditorTypes"
if line 1 of field "EditorTypes" is empty then
delete line 1 of field "EditorTypes"
end if
if the last character of field "EditorTypes" is not return then
put return after field "EditorTypes"
end if
end openCard
€CARDL…3K &Z!, TitleN@S<<� prevon mouseUp
go card "Handlers"
end mouseUpXUh@° nexton mouseUp
go to card "DataDictionary"
end mouseUpNj}@ firston mouseUp
go card "Editors"
end mouseUpÿÿ DefinitionEditorDefinition ÀCARD‹[Œ?…3º &Z!, TitleJ@S<<� prevon mouseUp
doMenu "prev"
end mouseUpTUh@° nexton mouseUp
go to card "Chronology"
end mouseUpNj}@ firston mouseUp
go card "Editors"
end mouseUp*„. c xyvalues „.† ½ yvalueon mouseWithin
if the selectedField is not empty then exit mouseWithin
get the scroll of last item of theFields()
if it the scroll of first item of theFields() then
put the textHeight of last item of theFields() into baseLineSize
lock screen
repeat with count = 1 to (number of items in theFields() - 1)
set scroll of (item count of theFields()) to it
end repeat
unlock screen
end if
end mouseWithin
function theFields
return "background field values,card field xvalue,card field yvalue"
end theFields
f <�ÌN9€ Read Scattergramon mouseUp
put empty into cd field xvalue
put empty into cd field yvalue
put empty into cd field xyvalues
put empty into cd field sizefield
put empty into field values
if cd field "file name" is empty then
answer file "Input file specification?"
put it into fileName
put fileName into cd fld "file name"
else
put cd field "file name" into fileName
end if
open file fileName
put 0 into ssize
-- put 0 into index
repeat
read from file fileName until tab
put empty into last char of it --kill tab
put it into xvalue
put xvalue & return after cd field "xvalue"
read from file fileName until return
put empty into last char of it
put it into yvalue
put yvalue & return after cd field "yvalue"
if it is empty then -- end of file
close file fileName
set cursor to watch
if the last line of cd field "xyvalues" is empty then
delete the last line of cd field "xyvalues"
end if
Tabloid "Scattergram", cd fld "xyvalues","one","20,40,200,280"
set the columnWidth of window "Scattergram" to 70
set the rect of window "Scattergram" to"20,45,200,280"
set the lockText of window "Scattergram" to FALSE
put "Scattergram" into openWindow
exit mouseup
end if
-- add 1 to index
put xvalue & "," & yvalue & return after cd fld "xyvalues"
put the number of lines in cd field "xvalue" into card field "sizefield"
end repeat
end mouseUp*
• ¥Lsizefield OÌa:€ Write Scattergramon mouseUp
if cd field "file name" is empty then
ask file "Output file specification?"
put it into fileName
else
put cd field "file name" into fileName
end if
put fileName
open file fileName
put the text of window "Scattergram" into cd field "xyvalues"
repeat with i = 1 to the number of lines in cd field "xyvalues"
write item 1 of line i of cd field "xyvalues" & tab to file fileName
write item 2 of line i of cd field "xyvalues" & return to file fileName
end repeat
close file fileName
put empty into cd field xvalue
put empty into cd field yvalue
put empty into cd field xyvalues
put empty into cd field sizefield
put empty into field values
put empty into cd field "file name"
close window "Scattergram"
end mouseUpL¦Ìº`€ Descriptive Statistics--
-- Portions of this stack are used with permission
-- from the book "Cooking with HyperTalk 2.0",
-- copyright 1990 by Dan Winkler and Scott Knaster.
--
function CommaArray values
put empty into array
repeat with i = 1 to the number of lines in values
put line i of values into valueLine
repeat with k = 1 to the number of words in valueItem
put valueLine & "," after array
end repeat
end repeat
repeat until last char of array <> ","
delete last char of array -- strip trailing semicol
end repeat
return array
end CommaArray
function sum
-- script 9-9: Sum a list of numbers.
-- This adds up a bunch of numbers. They can be
-- separate parameters, or an item list.
put 0 into total
repeat with paramNum = 1 to the paramCount
put param(paramNum) into list
repeat with i = 1 to the number of items in list
add item i of list to total
end repeat
end repeat
return total
end sum
on mouseDown
set the hilite of button "Descriptive Statistics" to true
answer "Which column do you wish to analyze" with "x values" or "y values" or "Cancel"
set cursor to watch
if it is "Cancel" then exit mouseDown
else if it is "y values" then
set the visible of cd field "yvalue" to true
put the text of window "Scattergram" into cd field "xyvalues"
put empty into cd field "yvalue"
repeat with i = 1 to the number of lines in cd field "xyvalues"
put item 2 of line i of cd field "xyvalues" & returnÂ
after cd field "yvalue"
end repeat
if the last line of cd field "yvalue" is empty then
delete the last line of cd field "yvalue"
end if
select text of cd fld yvalue
put commaarray(the selectedText) into values
-- set the visible of cd field "yvalue" to false
else if it is "x values" then
set the visible of cd field "xvalue" to true
put the text of window "Scattergram" into cd field "xyvalues"
put empty into cd field "xvalue"
repeat with i = 1 to the number of lines in cd field "xyvalues"
put item 1 of line i of cd field "xyvalues" & returnÂ
after cd field "xvalue"
end repeat
if the last line of cd field "xvalue" is empty then
delete the last line of cd field "xvalue"
end if
select text of cd fld xvalue
put commaarray(the selectedText) into values
-- set the visible of cd field "xvalue" to false
end if
put commaarray(the selectedText) into values
put "TOTAL:" && sum(values) into line 2 of card field "theStats"
put AVERAGE(values) into line 3 of card field "theStats"
put "MAX:" && max(values) into line 7 of card field "theStats"
put "MIN:" && min(values) into line 8 of card field "theStats"
put "FIELD:" && it into line 1 of card field "theStats"
put 0 into line 4 of card field "theStats"
repeat with lineNum = 1 to number of items of values
put 0 into total
add item lineNum of values to total
subtract line 3 of card field "theStats" from total -- diference from mean
put total ^2 into total
add the value of total to line 4 of card field "theStats" -- keep a running total
end repeat
put line 4 of card field "theStats" / number of items of values into line 5 of card field "theStats"
put sqrt(line 5 of card field "theStats") into line 6 of card field "theStats"
put "STD DEV:" && line 6 of card field "theStats" into line 6 of card field "theStats"
put "VARIANCE:" && line 5 of card field "theStats" into line 5 of card field "theStats"
put "SUM OF SQ:" && line 4 of card field "theStats" into line 4 of card field "theStats"
put "AVERAGE:" && line 3 of card field "theStats" into line 3 of card field "theStats"
set the hilite of button "Descriptive Statistics" to false
set the visible of cd field "xvalue" to false
set the visible of cd field "yvalue" to false
end mouseDown
|ºÌ { theStatson enterInField
hide me
send "hideShowPopUp" to card button id 16
end enterInField*t΀ file nameŽ'? h New Buttonon mouseUp
visual effect dissolve
go card "Scattergram Editor"in stack Lab Toolbox Help
end mouseUp(„.R † xvalue€ )Ë;8€ New Scattergramon mouseUp
put empty into cd field xvalue
put empty into cd field yvalue
put empty into cd field xyvalues
put empty into cd field sizefield
put empty into field values
ask "How many x/y pairs of data values are to be entered?"
repeat with i = 1 to it
put " , " & return after cd field "xyvalues"
end repeat
set cursor to watch
Tabloid "Scattergram", cd fld "xyvalues","one", "20,45,200,280"
set the lockText of window "Scattergram" to FALSE
set the columnWidth of window "Scattergram" to 70
set the rect of window "Scattergram" to"20,45,200,280"
put "Scattergram" into openWindow
end mouseUpÿÿ ScattergramScattergramon openCard
put empty into cd field "theStats"
end openCard
on closeCard
if there is a window "Scattergram" then
send mouseUp to button "Write Scattergram"
close window "Scattergram"
end if
if there is a window "DescriptiveStatistics" then
close window "DescriptiveStatistics"
end if
put empty into cd field "theStats"
end closeCard
@BMAPŒ? €dx´œeÏ¥ Ü€"¯…°3€¯…°€¯…Rÿ <RcfŠ"`‰Áfæ<
˜ó÷€~fî
™¹Ý»€ŠÁ(A D
Á8à‰Á`fÀ {™°‹d¢@‰Áðÿ| 9ÿÝß¿§| !Î ÀŠH À€ÀyûŸÌx?ßÏ€üÜîÎíÜfÙ»€€ ÌÌmŒ`Ã1€"ðSp\1pS|:
€"HPb L`É€€øÿîïžø}ÿ߉ ¢… €CARD3¤z …3º
.$&Z!, TitleJ@S<<� prevon mouseUp
doMenu "prev"
end mouseUpTUh@° nexton mouseUp
go to card "Chronology"
end mouseUpNj}@ firston mouseUp
go card "Editors"
end mouseUpL <�ÌN9€ Read Histogramon mouseUp
put empty into cd field xvalue
put empty into cd field sizefield
put empty into field values
if cd field "file name" is empty then
answer file "Input file specification?"
put it into fileName
put fileName into cd fld "file name"
else
put cd field "file name" into fileName
end if
open file fileName
put 0 into ssize
-- put 0 into index
repeat
read from file fileName until return
put empty into last char of it
put it into xvalue
put xvalue & return after cd field "xvalue"
if it is empty then -- end of file
close file fileName
set cursor to watch
if the last line of cd field "xvalue" is empty then
delete the last line of cd field "xvalue"
end if
Tabloid "Histogram", cd fld "xvalue","one","20,40,200,280"
set the columnWidth of window "Histogram" to 80
set the rect of window "Histogram" to"20,45,200,280"
set the lockText of window "Histogram" to FALSE
put "Histogram" into openWindow
exit mouseup
end if
-- add 1 to index
put the number of lines in cd field "xvalue" into card field "sizefield"
end repeat
end mouseUp*
• ¥Lsizefieldr OÌa:€ Write Histogramon mouseUp
if cd field "file name" is empty then
ask file "Output file specification?"
put it into fileName
else
put cd field "file name" into fileName
end if
put fileName
open file fileName
put the text of window "Histogram" into cd field "xvalue"
repeat with i = 1 to the number of lines in cd field "xvalue"
write item 1 of line i of cd field "xvalue" & return to file fileName
end repeat
close file fileName
put empty into cd field xvalue
put empty into cd field sizefield
put empty into field values
put empty into cd field "file name"
close window "Histogram"
end mouseUp
˜¦Ìº`€ Descriptive Statistics--
-- Portions of this stack are used with permission
-- from the book "Cooking with HyperTalk 2.0",
-- copyright 1990 by Dan Winkler and Scott Knaster.
--
function CommaArray values
put empty into array
repeat with i = 1 to the number of lines in values
put line i of values into valueLine
repeat with k = 1 to the number of words in valueItem
put valueLine & "," after array
end repeat
end repeat
repeat until last char of array <> ","
delete last char of array -- strip trailing semicol
end repeat
return array
end CommaArray
function sum
-- script 9-9: Sum a list of numbers.
-- This adds up a bunch of numbers. They can be
-- separate parameters, or an item list.
put 0 into total
repeat with paramNum = 1 to the paramCount
put param(paramNum) into list
repeat with i = 1 to the number of items in list
add item i of list to total
end repeat
end repeat
return total
end sum
on mouseDown
set the hilite of button "Descriptive Statistics" to true
set cursor to watch
set the visible of cd field "xvalue" to true
put the text of window "Histogram" into cd field "xvalue"
if the last line of cd field "xvalue" is empty then
delete the last line of cd field "xvalue"
end if
select text of cd fld xvalue
put commaarray(the selectedText) into values
-- set the visible of cd field "xvalue" to false
put commaarray(the selectedText) into values
put "TOTAL:" && sum(values) into line 2 of card field "theStats"
put AVERAGE(values) into line 3 of card field "theStats"
put "MAX:" && max(values) into line 7 of card field "theStats"
put "MIN:" && min(values) into line 8 of card field "theStats"
put "FIELD:" && it into line 1 of card field "theStats"
put 0 into line 4 of card field "theStats"
repeat with lineNum = 1 to number of items of values
put 0 into total
add item lineNum of values to total
subtract line 3 of card field "theStats" from total -- diference from mean
put total ^2 into total
add the value of total to line 4 of card field "theStats" -- keep a running total
end repeat
put line 4 of card field "theStats" / number of items of values into line 5 of card field "theStats"
put sqrt(line 5 of card field "theStats") into line 6 of card field "theStats"
put "STD DEV:" && line 6 of card field "theStats" into line 6 of card field "theStats"
put "VARIANCE:" && line 5 of card field "theStats" into line 5 of card field "theStats"
put "SUM OF SQ:" && line 4 of card field "theStats" into line 4 of card field "theStats"
put "AVERAGE:" && line 3 of card field "theStats" into line 3 of card field "theStats"
set the hilite of button "Descriptive Statistics" to false
set the visible of cd field "xvalue" to false
end mouseDown
|ºÌ { theStatson enterInField
hide me
send "hideShowPopUp" to card button id 16
end enterInField*t΀ file nameŽ'? h New Buttonon mouseUp
visual effect dissolve
go card "Scattergram Editor"in stack Lab Toolbox Help
end mouseUp(„$2f xvalue@ )Ë;8€ New Histogramon mouseUp
put empty into cd field xvalue
put empty into cd field sizefield
put empty into field values
ask "How many data values are to be entered?"
put it into cd field sizefield
repeat with i = 1 to it
put " " & return after cd field "xvalue"
end repeat
set cursor to watch
Tabloid "Histogram", cd fld "xvalue","one", "20,45,200,280"
set the lockText of window "Histogram" to FALSE
set the columnWidth of window "Histogram" to 80
set the rect of window "Histogram" to"20,45,200,280"
put "Histogram" into openWindow
end mouseUpÿÿ
Histogramÿö5ÿæ
Histogramon openCard
put empty into cd field "theStats"
end openCard
on closeCard
if there is a window "Histogram" then
send mouseUp to button "Write Histogram"
close window "Histogram"
end if
put empty into cd field "theStats"
end closeCard
@BMAPz €dx´œeÏ¥ Ü€"¯…°3€¯…°€¯…Rÿ <RcfŠ"`‰Áfæ<
˜ó÷€~fî
™¹Ý»€ŠÁ(A D
Á8à‰Á`fÀ {™°‹d¢@‰Áðÿ| 9ÿÝß¿§| !Î ÀŠH À€ÀyûŸÌx?ßÏ€üÜîÎíÜfÙ»€€ ÌÌmŒ`Ã1€"ðSp\1pS|:
€"HPb L`É€€øÿîïžø}ÿ߉ ¢… @CARDšÈ›Ç…3“ó ‚`() ~ resultsþ=†Tè€ Load Arrayon mouseUp
put empty into cd field values
global disk, file, length, er, inputarray, outputarray, isize --put empty into field "Operation"
answer file "What is the input file specification"
put it into file
put "Motion" into disk
put FileLen (disk, file, Er) into isize
put NewIntegerArray(isize / 2) into inputarray
BLoad Â
disk, --disk
file, --file
inputarray, --array pointer
isize, --number of bytes
Er --Er array
put empty into cd field values
repeat with i = 1 to 14
put getintegerelement(inputarray, i) into ival
put ival & return after cd field values
end repeat
end mouseUp(’‹¨ß upperbd*ÎŒäà threshold$%„;è€ Peakon mouseUp
global inputarray, threshold, upperbd
put cd field "threshold" into threshold --reads in the threshold value
put cd field "upperbd" into upperbd --reads in the upper bound
Peak inputarray, upperbd, threshold --call Peak
put empty into cd field results --clears the display field
repeat with i = 1 to 14 --A loop to display
put getintegerelement(inputarray, i) into ival --the results
put ival & return after cd field results
end repeat
end mouseUp( + m Values€
¨Ã~Î New Buttonon mouseUp
go to card "peak" in stack "Lab Toolbox Help" in a new window
end mouseUpP @S<<� prevon mouseUp
go to previous card
end mouseUpL Uh@° nexton mouseUp
go to next card
end mouseUpN
j}@ firston mouseUp
go card "Editors"
end mouseUp*W}hö DiskName*j}{ö FileNameÿú15ÿù3ÿÿ 0
0
0
0
0
0
0
0
6
0
0
0
0
0
ÿ÷+-3
-2
-1
-3
-4
-4
-3
-3
-5
-7
-7
-5
-4
-4
Array Peaks BMAP›Ç € UÈ:T'þ '< Š 0#€.€ ‰3À3ÙÃáàp€| À1À>x > 3À÷ÃûÎpÀ 9áÎ 0À÷àç0Æxc30à8ÃœH8À` 0a `0à8pƒ†0‚Á3 `0Ã`@p`p À `00†€ÀŠ#@S €pÁ@@@B `0‰cð0øÁ0€ð?Rð00 Á† ü~ÀŠ#¿È2àÁ ñÜ€¿Èîb@ÂaÀ#@ B(€#`Â@@ 0
9 €22Á€ @B€#€# ÁH0€BA€2"àÁÐœHNS…B€‰B€ xÃ<œÀóž € x8ùÏü<þ 0 (à x(À p¿¿¿¦= á…yO ]áàáyH‘"a áyH‘"A áyH‘>A áyH‘ A áyÈ‘"A áyO Aáàá*á…¿±BáBáy8qa áyD‰’""áyD""áy|q""áy@ ""áyD‰""áy8q á àCARD˜‡™N…3* \P@S<<� prevon mouseUp
go to previous card
end mouseUpLUh@° nexton mouseUp
go to next card
end mouseUpNj}@ firston mouseUp
go card "Editors"
end mouseUp~> Tm€ statisticson mouseUp
global inputarray, Stats, low, high, upperbd
put NewIntegerArray(10) into Stats --creates an array for the results
put cd field "upperbd" into upperbd --reads in upper bound
put cd field Stat5 into Low --reads in low threshold
put cd field Stat4 into High --reads in high threshold
SetIntegerElement Stats,4,High --sets low threshold in array
SetIntegerElement Stats,5,low --sets high threshlod in array
do stat inputarray,upperbd,Stats --calls Stat
put GetIntegerElement(Stats,0) into card field "Stat1" --writes the
put GetIntegerElement(Stats,1) into card field "Stat2" --elements of
put GetIntegerElement(Stats,2) into card field "Stat3" --the result
put GetIntegerElement(Stats,3) into card field "Stat4" --array
put GetIntegerElement(Stats,4) into card field "Stat5"
end mouseUp&rtƒÊ stat1&‰tšÌ stat2&¢t³Ì stat3& ¼tÍÌ stat4& ØtéÌ stat5Ð % ;m€ Load Arrayon mouseUp
put empty into cd field values
global disk, file, length, er, inputarray, isize
answer file "What is the input file specification"
put it into file
put "Adso of Melk" into disk
put FileLen (disk, file, Er) into isize
put NewIntegerArray(isize / 2) into inputarray
BLoad Â
disk, --disk
file, --file
inputarray, --array pointer
isize, --number of bytes
Er --Er array
put empty into field values
repeat with i = 1 to 14
put getintegerelement(inputarray, i) into ival
put ival & return after cd field values
end repeat
end mouseUp(
<y values(]unË UpperBd†ù*~Î New Buttonon mouseUp
go to card "statistics" in stack "Lab Toolbox Help" in a new window
end mouseUp*!x2ñ DiskName*4xEñ FileNameÿõ6ÿò1500ÿ÷29262ÿú0ÿù2133ÿø29541ÿó#-4
-3
-3
-3
0
2
4
4
6
3
1
0
-1
-5
Array Statistics BMAP™N € € æ)Ì ' Àá p'`ÁR ŠA þ/ ‚ ‰ax`€ø'ÀC ŠB``@á`Á9œ> øÁ ÀøI F ÂÙ ãdg`|3°7#à‹bÀ`?Â8’°X½’¼öÞ2?¦ðŠb7!†qüÂÌ@ˆD‚
C€2P@#ÁÁ†pC óÁ8@0#!€AðP Á€ ˆøÁ pŽ#p!ðe€ ü€2î2€¸a#+B0ˆ#À" €ä8@r@ € 2+3P2€€"H4 "€3 NCA@á8ÁBƒ€ÒcH RH‚AÂ4@ ?‚$Ñ$=’1aè‰Á?ØañáÃÀá Áþ ðà~ƒ€áá!€áááááá áá á®â…âQ(]sˆ€âQ(a„H€âQDAÈ€âQDAH€âQþAH€âQ‚AH€âQ‚AÇ€â€â$€â¿ª" #øá" #„ár'.„xár$H‘0øˆár$H‘ „ˆár$HŸ „ˆár$H „ˆár$H‘ „ˆárÇ øxá#â…¨â…r
\áã€ár
"a$@ár"@ò$@ár
>A'Àáb?Š A$âr „"A$@ár „ @ñã€á â& â&Àâ®" ˆâ"1€â2*˜°â2$ˆÈâ2 ˆˆâ¤…°Aâcâ2U Dâ2I"Dâ2A (â2A"â2A"(â2A"Dâ2A Dâ°R„@øB` á ŠC@¸@á ‰2„ÃËÁAs‡ !àá ‹DÁD€„H‰"á Š2x2€ˆáx$á7Ç€áHá‰2„CÈÁ€A‡ !àá @â#@â#€â°@"ðB À@á Š%p€á ‰2@qÁ‚ç,8CÀá ŠørïŸ |€á s»á' áî"áá"<øcŸ|€á CARD–,—S@…3“ó
Ôp,) | resultfield(¸Íë lowerbd(àõë upperbd*Ç¥ì datatypes•‹á€ Derivativeon mouseUp
global inputarray, outputarray, isize
put NewIntegerArray (isize-1) into outputarray --creates an array for
--the results
put cd field upperbd into upperbd
put cd field lowerbd into lowerbd
put cd field datatype into type
do deriv2 (inputarray, outputarray, lowerbd, upperbd, type)
repeat with i = 1 to 14 --loop to display
put getintegerelement(outputarray, i) into ival --results
put ival & return after cd field resultfield
end repeat
end mouseUp*Z”q߀ Load Arrayon mouseUp
put empty into cd field values
global disk, file, length, er, inputarray, isize --put empty into field "Operation"
answer file "What is the input file specification"
put it into file
put "Motion" into disk
put FileLen (disk, file, Er) into isize
put NewIntegerArray(isize / 2) into inputarray
BLoad disk, file, inputarray, isize, Er
put empty into cd field values
repeat with i = 1 to 14
put getintegerelement(inputarray, i) into ival
put ival & return after cd field values
end repeat
end mouseUp( , s Values†
®É~Î New Buttonon mouseUp
go to card "Derivative" in stack "Lab Toolbox Help" in a new window
end mouseUpN j}@ firston mouseUp
go card "Editors"
end mouseUpL Uh@° nexton mouseUp
go to next card
end mouseUpP
@S<<� prevon mouseUp
go to previous card
end mouseUp*&7ú DiskName*8Iú FileNameÿú0ÿþ0ÿý14ÿÿ0
1
0
0
3
2
2
0
2
-3
-2
-13144
0
0
11
1
0
0
3
2
2
0
2
-3
-2
0
0
0
0
1
0
0
3
2
2
0
2
-3
-2
3565
0
0
0
1
0
0
3
2
2
0
2
-3
-2
-888
341
4096
0
1
0
0
3
2
2
0
2
-3
-2
-1
-1
-4
0
1
0
0
3
2
2
0
2
-3
-2
-1
-1
-4
0
1
0
0
3
2
2
0
2
-3
-2
-1
-1
-4
0
1
0
0
3
2
2
0
2
-3
-2
-1
-1
-4
0
1
0
0
3
2
2
0
2
-3
-2
-1
-1
-4
0
ÿ÷#-4
-3
-3
-3
0
2
4
4
6
3
1
0
-1
-5
Array Derivative`BMAP—S €TÝ
' ÿ7À#Š, Á €g3‡ÃÀà3| æÁx >x >‰s!ï÷œá€Â@1Ï=þ0ç Þ0瀊Á@AžÏ €3L3ØÁd™Ø&Á!A@@r€‚ (‚B( @@#€ #@# # ?C€ €þ2 222 À$ÿ€"@î3@À#€@2&QP3
!0"
22€#€@#€@2 #@*s¢A€@BA À2" ÀC@6€3NÀ"@‰r>ðx 8 þ| ùÃ>áá0á á`á(Àá(€á¿¿¿¸J@@…yÇ 8â'‡ ÁHˆDB$H€ Š:x:x /€ ဠ‰ydž<1ç‡ $
-$
-À
ªÀ# @# jCˆˆâï jDH‰‘ jDEQ‘ jDEQò‘ jDB!‘ jDB!‘ jC‚ â ¾. …j‰ã˼< j‰$L"D j‰$H"D j‰'È"D j‰$"D j™$H"D jiãÈ<< *á… CARD’O•ð@…3“ó6¨,n… ÷ secondarray(:P; lowerbd(:>Pv upperbd*:æPú datatypeÚZ…l÷€ Load Array 2on mouseUp
global disk, file, length, er, inputarray, Array2, isize --put empty into field "Operation"
answer file "What is the input file specification"
put it into file
put "Motion" into disk
put FileLen (disk, file, Er) into isize
put NewIntegerArray(isize / 2) into Array2
BLoad Â
disk, --disk
file, --file
Array2, --array pointer
isize, --number of bytes
Er --Er array
put empty into cd field secondarray
repeat with i = 1 to 14
put getintegerelement(Array2, i) into ival
put ival & return after cd field secondarray
end repeat
end mouseUp, n w outputfieldâ
Zlw€ Load Array 1on mouseUp
put empty into cd field values
global disk, file, length, er, Array1, isize --put empty into field "Operation"
answer file "What is the input file specification"
put it into file
put "Motion" into disk
put FileLen (disk, file, Er) into isize
put NewIntegerArray(isize / 2) into Array1
BLoad Â
disk, --disk
file, --file
Array1, --array pointer
isize, --number of bytes
Er --Er array
put empty into cd field values
repeat with i = 1 to 14
put getintegerelement(Array1, i) into ival
put ival & return after cd field values
end repeat
end mouseUp$ @Yw Perform Operationon mousedown
if the optionkey is down then
edit script of target
exit mousedown
end if
global disk, file, length, er, Array1, Array2, upperbd, lowerbd, isize
put NewIntegerArray (isize) into storagearray
put NewIntegerArray (isize) into resultarray
movedata array1, storagearray, isize --call movedata
put cd field "upperbd" into upperbd
put cd field "lowerbd" into lowerbd
put cd field "datatype" into type
put empty into cd field outputfield
--put (cd field arrayindex + 14) into upperindex
put the mouseloc into myPlace
put item 1 of myPlace - 20 into horiz
put item 2 of myPlace - 10 into vert
get PopUpMenu("Add Arrays;Divide Arrays;Multiply Arrays, Subtract Arrays", 0, vert, horiz)
if it = 1 then
do Add2 (Array1, Array2, lowerbd, upperbd, type)
put the result
else if it = 2 then
do div2 (Array1, Array2, lowerbd, upperbd, type)
else if it = 3 then
do mul(Array1, Array2, lowerbd, upperbd, type)
else if it = 4 then
do Sub2(Array1, Array2, lowerbd, upperbd, type)
else if it = 5 then
end if
do movedata array1, resultarray, isize
do movedata storagearray, array1, isize
put empty into cd field outputfield
repeat with i = 1 to 14
put getintegerelement(resultarray, i) into ival
put ival & return after cd field outputfield
end repeat
end mousedown
d Zlw€ Save Resultson mouseUp
global Er, howbig, resultarray
ask file "Name the file to be saved"
put it into outfilename
put card field "datatype" into ftype
put card Field "UpperBd" into howbig
put howbig * 2 into size
BSave diskname, outfilename, inputarray, ftype, size, er
--put filename into OpFile
--open file OpFile
--write infilename & return to file OpFile
--repeat with i = 1 to the number of lines in cd field "operation"
-- write line i of cd fld "operation" & return to file OpFile
--end repeat
--close file OpFile
--put empty into cd field "operaton"
end mouseUp(n x values”:„TŸ~Î New Buttonon mouseUp
go to card "Arithmetic Manipulations" in stack "Lab Toolbox Help" in a new window
end mouseUpP@S<<� prevon mouseUp
go to previous card
end mouseUpLUh@° nexton mouseUp
go to card next
end mouseUpNj}@ firston mouseUp
go card "Editors"
end mouseUp&T 4 Title* 0z DiskName*/@z FileNameÿú0ÿþ0ÿý50ÿÿ+-3
-2
-1
-3
-4
-4
-3
-3
-5
-7
-7
-5
-4
-4
ÿ÷(-7
-5
-4
-6
-4
-2
1
1
1
-4
-6
-5
-5
-9
ÿð#-4
-3
-3
-3
0
2
4
4
6
3
1
0
-1
-5
ÿë Array MathArray Math BMAP•ð €Zóo+Ã8mÀœ#@ @á¤ááá$áá% áá& @á°á(á((@7á á
)á á #@á H)€á „á©á@@á ©…Àáá áÀ á ºá…¿§á…¿¿®€á …¬€á …¸ á
…á$@Š@ $@ vLJ8p€ p㈞ DGxx$H˜Dˆp >Qò€>b><ð1<à6nÀ‹ 3nÇ€Š 3;‡€ €€ráãÏ€<ð‰ ÂðÇž xx*$áá
CARD€í‚…3* >
˜Ö1@T€ Load Arrayon mouseUp
put empty into field values
put empty into cd field "diskName"
put empty into cd field "FileName"
put empty into cd field pointer
put empty into cd field "LowerBd"
put empty into cd field "upperbd"
put empty into messagebox
put empty into card Field "ArraySize"
global disk, file, length, er, inputarray, isize --put empty into field "Operation"
answer file "What is the File Spec?"
put it into thePath
put the length of thePath into len
put offset(":",thePath) - 1 into theTest
put char 1 to theTest of thePath into disk
put offset(":",thePath) + 1 into theTest
put char theTest to len of thePath into file
put disk into card field "DiskName"
put file into card field "FileName"
put 0 into Er
put FileLen (disk, file, Er) div 2 into howbig
put howbig * 2 into isize
put howbig into cd field "arraySize"
-- put "FileLen " & GetIntegerElement(Er,0) into card field "DisposeResult"
put NewIntegerArray(howbig) into inputArray
put inputArray into cd fld "Pointer"
BLoad Â
disk, --disk
file, --file
inputarray, --array pointer
isize, --number of bytes
Er --Er array
put 1 into cd field "LowerBd"
put cd field "arraySize" into cd field "upperbd"
put empty into field values
repeat with i = 1 to 14
put getintegerelement(inputarray, i) into ival
put ival & return after field values
end repeat
end mouseUp(g}zà upperbd(Š}à lowerbd&°|àmode(Ýzæ resultAPT€ Integrateon mouseUp
put cd fld "pointer" into inputarray
put cd field "lowerbd" into lowerbd
put cd field "upperbd" into upperbd
put cd field "mode" into mode
put Integ (inputarray, lowerbd, upperbd, mode) into cd field "result"
end mouseUp(/ZB¿ pointer&Z!, TitleJ @S<<� prevon mouseUp
doMenu "prev"
end mouseUpT
Uh@° nexton mouseUp
go to card "Chronology"
end mouseUpN j}@ firston mouseUp
go card "Editors"
end mouseUp* EZX§ arraySize*
/Ù@] DiskName*BÙS] FileNameÿü-2ÿøArray Integratorÿû-9369ÿóHD40ÿòAnalogData/Distÿô9990ÿù1767882ÿý1ÿþ10*-4
4
17
34
45
64
66
73
72
69
63
49
40
24
Array Integrator`BMAP‚ €
®úR3°ô1hœá" ¯…¶ á…4žrá%Þ"á0ᣅÉá4…`ᅨᯅ³ ¯…± ¯…·¯…¿«…á «…á…ÿ…4 \
4ˆ`
4ˆ@
£…4@
…«2ø€2„€B„‰Ã‡Røˆ„H€
B„ˆ„HB„ˆ‡ÇR„ˆ„€
R„ˆ„H€
Bøxc‡áˆápá·€€…ŠÁ'.pâ%‡ÁÇŸ yðÏ 6@@ÁÃÇŸyóÀ‰& …¶ ŠÁ"#‹œ8‰aÀ‹Á"$LD‰’Š77`€(€
7 ÃÀ
@ ÁÀ |ðÀ¾‰ …Uf oŽÛþ@áÁ ’R-rR`€…á,À¥áᧅá $"€á$áá ááÁÊV€ ¥[IááÁÙþ}¶n8á0
Á `€áá"
Ð á`/ ááÁ²7é@á`<ƒÁÂR¡a™Èá ⥅¨á @ᦅá $# áá <# 0ááááÁ$J¶’ááÁ <ú3lÜpááÁ60ááá…á (rh”
?€áá0Á0ð]®SÀáá0 ‘Á@(~âh €áÿÿá/?€ á/€ á á_6ØÆÀ4 €áX i#@Š$áY
+1@Dc Øá D÷ ˆâ& pá8€0 áH/(¡å ‰D”’PâD ÛÌØâµá | á "" @á !"@á_! vdàá_""’$@á_<"‚$@á_$>b$@á_" $@á_!"’dPá_pœá¾ ¶á :3@Òá F3À0á B3@á `Ásf"Ù‚‰á/Á à?
÷t¶á/qÀ~á/ €!0á/ €# €ŠâÁ 9°ŒfØà‹âÁ±DÐ ’"eŠâÁ P 3 âB8€â< áÁ1€³‰á/Á 9À~ îèâ
…â 8
µá+À á+0€ á+€ áÁ ã›9Ècc€Šá|÷Ö}Pò÷ á ÁX˜€€á=€8 á[ À`"€‰áÁ1HL¨‘€á ÁÁãœ6\c¿ á …á,€°Òâ"0âc(»gaóâs(D’ ”€âsDDq@"'€âc|D‘ADâs‚D’”€âcÇîhgóâââÿÿÿÿÿÿCARD)…3' ªVtÒ‰ € Chronologyon mouseUp
go card "Chronology"
end mouseUpTt Šg€ Path Liston mouseUp
go card "PathList"
end mouseUpProject CARD,d0m…3*Ë Ì">‹¹ ">Ä‹u .!d3ÅProjectLabelJ@S<<� prevon mouseUp
doMenu "Prev"
end mouseUpJUh@° nexton mouseUp
doMenu "next"
end mouseUpL j}@ firston mouseUp
doMenu "first"
end mouseUpJ ¤ ÔTrialson mouseDown
-- go to the card associated with the click
select the clickLine
put the value of the clickLine into theTrial
wait until the mouse is up
if the mouseLoc is not within rect of me then
select empty
exit mouseDown
end if
visual effect shrink to top
go card theTrial
end mouseDown
ŽQ ‹€ New Trialon mouseUp
put card field "ProjectLabel" into ProjectName
put card field "ExperimentLabel" into ExperimentName
ask "What is the label of the New Trial?"
put it into TrialName
if card field "Trials" is empty then
put TrialName into card field "Trials"
else
put return & TrialName after last line of card field "Trials"
end if
go to card "Trial" of stack "LaboratoryToolbox" --without dialog
doMenu "copy card"
doMenu "Back"
doMenu "Paste Card"
set the name of this card to TrialName
put TrialName into field "TrialLabel"
put ExperimentName into card field "ExperimentLabel"
put ProjectName into card field "ProjectLabel"
put the short date into card field "TrialDate"
put the short time into card field "TrialTime"
end mouseUp0–"B ExperimentLabelExperiment BMAP0m €0
œüÐ2èá Aát‹!àáv˜ QÃàáC€ŠBçÁÀáU9C 8pB;5€ ásŒ}GžxàB0ÀáF3Qàá$Ø8àA0á<p‰BàÃ}Àás"D¨’Dáy'8]Ì:à¿¿¹B€ á
I`á
á
RlŽ#€á R5‘$€á B ‡$á
B ‰#á
R ‘ €á R “$€á B qÍ÷á
(@CARDoJ.È…3- %bLj}@ firston mouseUp
doMenu "first"
end mouseUp0:QOóExperimentLabel. #:8ïProjectLabel*
#45y TrialDate* 84Jy TrialTime* b ¾ Treatment(
bƯw Journal,ÆÀ DataObjects*Ư3 DataType,Æ"c ObjectDate2ÆR} Pathon mouseWithin
if the selectedField is not empty then exit mouseWithin
get the scroll of last item of theFields()
if it the scroll of first item of theFields() then
put the textHeight of last item of theFields() into baseLineSize
lock screen
repeat with count = 1 to (number of items in theFields() - 1)
set scroll of (item count of theFields()) to it
end repeat
unlock screen
end if
end mouseWithin
function theFields
return "card field DataObjects,card field DataType,card field ObjectDate,card field path"
end theFieldsÆlÖ} A4 on mouseDown
put the textHeight of item 1 of theFields() into baseLineSize
put the number of items in theFields() into numItems
repeat until the mouse is up
get (scroll of last item of theFields()) - baseLineSize
lock screen
repeat with count = 1 to numItems
set scroll of (item count of theFields()) to it
end repeat
unlock screen
end repeat
end mouseDown
function theFields
return "card field DataObjects,card field DataType,card field ObjectDate,card field path"
end theFields
l} on mouseDown
put the textHeight of item 1 of theFields() into baseLineSize
put the number of items in theFields() into numItems
repeat until the mouse is up
get (scroll of last item of theFields()) + baseLineSize
lock screen
repeat with count = 1 to numItems
set scroll of (item count of theFields()) to it
end repeat
unlock screen
end repeat
end mouseDown
function theFields
return "card field DataObjects,card field DataType,card field ObjectDate,card field path"
end theFields ~¤±B New Entryfunction SemiColArray values
put empty into array
repeat with i = 1 to the number of lines in values
put line i of values into valueLine
repeat with k = 1 to the number of words in valueItem
put valueLine & ";" after array
end repeat
end repeat
repeat until last char of array <> ";"
delete last char of array -- strip trailing semicol
end repeat
return array
end SemiColArray
on mousedown
global theProject, theExperiment, theTrial, theObject, theObjectPath, thePath, fileStatus, theLine
set the HiLite of button "New Entry" to true
if the optionkey is down then
go card "DataDictionary" of stack "LaboratoryToolbox"
put field "DataTypes" into values
doMenu "Back"
put values into cd field "Scratch"
set the visible of cd field "scratch" to false
end if
put the name of this card into MyHome
put cd field "Scratch" into values
put SemiColArray (values) into itemList
put the mouseloc into myPlace
put item 1 of myPlace - 20 into horiz
put item 2 of myPlace - 10 into vert
get PopMenu(vert, horiz, itemList)
put it into whichType
put line whichType of cd field "Scratch" into theType
put theType & return after cd fld "DataType"
put cd field "ProjectLabel" into theProject
put cd field "ExperimentLabel" into theExperiment
put field "TrialLabel" into theTrial
Ask "What is the Label of the Object?"
put it into theObject
put theObject & Return after cd fld "DataObjects"
put the short date & Return after cd fld "ObjectDate"
put FolderPath("Where will the object go.") into thePath
put thePath into theObjectPath
go card "PathList"
find whole thePath in cd field "Paths" of card "PathList"
put the result into whashappnin
if whashappnin = "Not found" then
put thePath & return after cd field "Paths" of card "PathList"
put the number of lines in cd field "Paths" of card "PathList" into theLine
put theLine & return after cd field "PathNums" of card "PathList"
else if whashappnin is empty then
put foundLine() into scratch
put word 2 of scratch into theLine
end if
go MyHome
put theLine & Return after cd fld "Path"
put the short time into theTime
put the short date into theDate
put theObject && "(" & theType & ") created at " && theTime && " on " && theDate & return after cd field "Journal"
put theDate & return after cd fld "Date" of cd "Chronology"
put theTime & return after cd fld "Time" of cd "Chronology"
put theObject && "(" & theType & ") created " & return after cd field "Event" of cd "Chronology"
set the HiLite of button "New Entry" to false
go card "Dispatcher" of stack "LaboratoryToolbox"
put theProject into cd field "Project" of cd "Dispatcher"
put theExperiment into cd field "experiment" of cd "Dispatcher"
put theTrial into cd field "trial" of cd "Dispatcher"
put theObject into cd field "object" of cd "Dispatcher"
put theLine into cd field "PathNum" of cd "dispatcher"
put theType into cd field "DataType" of cd "dispatcher"
put "Create" into fileStatus
end mousedown
J@S<<� prevon mouseUp
doMenu "Prev"
end mouseUpJUh@° nexton mouseUp
doMenu "next"
end mouseUp(„P&_v scratch¤D±~ Edit Entryfunction SemiColArray values
put empty into array
repeat with i = 1 to the number of lines in values
put line i of values into valueLine
repeat with k = 1 to the number of words in valueItem
put valueLine & ";" after array
end repeat
end repeat
repeat until last char of array <> ";"
delete last char of array -- strip trailing semicol
end repeat
return array
end SemiColArray
on mousedown
global theProject, theExperiment, theTrial, theObject, theObjectPath, thePath, fileStatus, theLine
set the HiLite of button "Edit Entry" to true
put cd field "DataObjects" into values
put SemiColArray (values) into itemList
put the mouseloc into myPlace
put item 1 of myPlace - 20 into horiz
put item 2 of myPlace - 10 into vert
get PopMenu(vert, horiz, itemList)
put it into LineNum
put the short time into theTime
put the short date into theDate
put line LineNum of cd field "DataObjects" && "(" & line LineNum of cd field DataType &") modified at " && theTime && " on " && theDate & return after cd field "Journal"
put theDate & return after cd fld "Date" of cd "Chronology"
put theTime & return after cd fld "Time" of cd "Chronology"
put theObject && "(" & theType & ") Modified " & return after cd field "Event" of cd "Chronology"
put cd field "ProjectLabel" into theProject
put cd field "ExperimentLabel" into theExperiment
put field "TrialLabel" into theTrial
put line LineNum of cd field "DataObjects" into theObject
put line LineNum of cd field "DataType" into theType
put line LineNum of cd field "Path" into theLine
set the HiLite of button "Edit Entry" to false
go card "Dispatcher" of stack "LaboratoryToolbox"
put theProject into cd field "Project" of cd "Dispatcher"
put theExperiment into cd field "experiment" of cd "Dispatcher"
put theTrial into cd field "trial" of cd "Dispatcher"
put theObject into cd field "object" of cd "Dispatcher"
put theLine into cd field "PathNum" of cd "dispatcher"
put theType into cd field "DataType" of cd "dispatcher"
put "Cataloged" into fileStatus
end mousedown
l¤€±À Delete Entryfunction SemiColArray values
put empty into array
repeat with i = 1 to the number of lines in values
put line i of values into valueLine
repeat with k = 1 to the number of words in valueItem
put valueLine & ";" after array
end repeat
end repeat
repeat until last char of array <> ";"
delete last char of array -- strip trailing semicol
end repeat
return array
end SemiColArray
on mousedown
put cd field "DataObjects" into values
put SemiColArray (values) into itemList
put the mouseloc into myPlace
put item 1 of myPlace - 20 into horiz
put item 2 of myPlace - 10 into vert
get PopUpMenu(itemList, 0, vert, horiz)
put it into LineNum
put the short time into theTime
put the short date into theDate
put line LineNum of cd field "DataObjects" && "(" & line LineNum of cd field DataType &") deleted at " && theTime && " on " && theDate & return after cd field "Journal"
put theDate & return after cd fld "Date" of cd "Chronology"
put theTime & return after cd fld "Time" of cd "Chronology"
put theObject && "(" & theType & ") Deleted " & return after cd field "Event" of cd "Chronology"
delete line LineNum of cd field "DataObjects"
delete line LineNum of cd field "DataType"
delete line LineNum of cd field "ObjectsDate"
delete line LineNum of cd field "Path"
end mousedown
&& "(" & line LineNum of cd field DataType &")
&& "(" & theType & ") µ]Â Zero Entrieson mouseup
put empty into cd fld "DataObjects"
put empty into cd fld "ObjectDate"
put empty into cd fld "DataType"
put empty into cd fld "Path"
put empty into cd fld "Journal"
put empty into cd fld "Treatment"
end mouseup
& OÆa2€ Journal Windoidon mouseUp
-- Textoid "Journal",cd fld "Journal",false,"91,69","red"
Textoid "Journal",cd fld "Journal",false,the rect of this cd,"red"
set the lockText of window "Journal" to false
set the selectedText of window "Journal" to 32000
end mouseUp4 Pa€€ Treatment Windoidon mouseUp
-- Textoid "Treatment",cd fld "Treatment",false,"91,69","red"
Textoid "Treatment",cd fld "Treatment",false,the rect of this cd,"red"
set the lockText of window "Treatment" to false
set the selectedText of window "Treatment" to 32000
end mouseUpÿè]Tiff File
MacPaint File
GWI Type 2 File
Pict2 File
Scattergram Table
Histogram Table
Trialfunction makelist target
put ";" into semicol
put the number of lines in target into entries
repeat with i = 1 to entries -1
put ((line i of target) & semicol) into stash
put stash after cd field "scratch"
end repeat
put (line entries of target) into stash
put stash after cd field "scratch"
put cd field "scratch" into thelist
return theList
end makelist
function stripPath path
-- given the path, returns the short stack name
get length(path)
repeat with i = it down to 1
if char i of path = ":"
then return char (i+1) to it of path
end repeat
end stripPath
on closeTextoid What
put the text of window What into cd field What
end closeTextoid
`BMAP.È €Èp' Åp p.€€â·á@á
Pá
¢á € £…@â ∠â3
€
…â3KÒ
â$‡ó
âè â` â3À
âc
â3
ß
â3ˆZÒ
¢…á € ¢…á ¢…⢅â$µI
â4à9€ â3 …â%€ â%€ âCÿà€ â3™™
á á£…á ¢…)⢅⦅§ €(@á4@@(€€"á¿¢@â±…ºá
£…â)á7€ á…ââ$Pâ$ `â5À…â&IÐ3NŠâ&Ð3î‘âØ4Àâˆ$@â%€ á<ˆáá-‰E žS ôù€á GšPSÒÊ€…áL €):€ $’%€ €€áá á¤â"ð ! €á? AÀ@á= Š€ á<rœ
‰!@ áK‰"
ŠRö<ÇXá ° a®ú^Xá-p
QD‰á=À
$ۇ=B
$ÀáLüõþ
‰aÆLX â a 8xGâ @â ¢…€â ¤â"ä â" â
â@ÙŽ
!áL fQ
áHDQ
áHD_
Š!aÁn Û6`æÅ€á
‹ Á23fa“3 á
‰"Á !BA"áHŽîî
Á!~Aò"â Á !@A"â!Á&"bA"â!CÁ<<ã¹™ç1€â â ¢…pâ ¿¿¿¬!˜S0 ÿ# ðá10ÈR,A€"'ðDà`Š! áa@' èDÐ@1`@á€<€# Á˜p냇~8 û‡
ÁQëËG^€
Á–t·^€6qc€23‹ Á€‘ „‰~ HĉÁéo@çK ð2€~xÁ€Ä€‹A `€
ÁЀ €€&`BÃApàÀq2Ç
煡ۂ
@!GÁAóçÿ'_( Á¾žNò‡_F `€ ‰á(&àÁìg€csá(á…á( á
~6€#.z.z@CARD¶…3I
ú&9 I
Date&98 |
Time9k |
Eventon mouseWithin
if the selectedField is not empty then exit mouseWithin
get the scroll of last item of theFields()
if it the scroll of first item of theFields() then
put the textHeight of last item of theFields() into baseLineSize
lock screen
repeat with count = 1 to (number of items in theFields() - 1)
set scroll of (item count of theFields()) to it
end repeat
unlock screen
end if
end mouseWithin
function theFields
return "card field date,card field time,card field event"
end theFieldsT @S<<� prevon mouseUp
go to card "Instruments"
end mouseUpL
j}@ firston mouseUp
doMenu "first"
end mouseUpJ Uh@° nexton mouseUp
doMenu "next"
end mouseUpâ
9kI| A4 on mouseDown
put the textHeight of item 1 of theFields() into baseLineSize
put the number of items in theFields() into numItems
repeat until the mouse is up
get (scroll of last item of theFields()) - baseLineSize
lock screen
repeat with count = 1 to numItems
set scroll of (item count of theFields()) to it
end repeat
unlock screen
end repeat
end mouseDown
function theFields
return "card field date,card field time,card field event"
end theFieldsâk | on mouseDown
put the textHeight of item 1 of theFields() into baseLineSize
put the number of items in theFields() into numItems
repeat until the mouse is up
get (scroll of last item of theFields()) + baseLineSize
lock screen
repeat with count = 1 to numItems
set scroll of (item count of theFields()) to it
end repeat
unlock screen
end repeat
end mouseDown
function theFields
return "card field date,card field time,card field event"
end theFieldsR.%z€ Go Pathson mouseUp
go card "PathList"
end mouseUpš&.6z€ Zero Arrayson mouseUp
put empty into cd fld "Date"
put empty into cd fld "Time"
put empty into cd fld "Event"
end mouseUpChronology€BMAP¶ €'r:'2˜°ˆ!%@ $á!%&X$á2€0#``áá3t3*Õ S4É+N€á3'v˜33€©Á€'ý>.€á6ÌC á"+2ÐáBà%€#á$˜%€2#0áQg§ˆB?ÌøÁ€ 4€á´@@á @áá@ ᣅ) X$' @À‚+ W8€€'€3€`#˜D 0À*€90ÚÕD ˜“€"À6 $$$Òð40Õ€3èó
"À6Î<$!ü$U
:
(:%0ÌD €: P-€áPðK@€À`'(C?ÿÀBÀâU8€ 6ƒì3·ÄIB„”U @
À6 e43‚°B@ &fá @* á
@ ¤€ âá … @ᬅ€ âá …!ü%À$ð!%DP$Š2 #@@"
3 Xà33fS'qÍ‹3:[Ð3"ÿ=bÅW«Ë3$ $ˆBÀB3<à 3#cÀB|ð $àB$3 ‰Qø;àB;™žbðƒÎcCARD"i(4…3C úÀN@S<<� prevon mouseUp
go card "Editors"
end mouseUpPUh@° nexton mouseUp
go to card "stacks"
end mouseUpLj}@ firston mouseUp
doMenu "first"
end mouseUp²$
9R€ Create Objecton mouseUp
ask "What is the new data type?"
put field "DataType" into theType
if field "DataTypes" is empty then
put it into field "DataTypes"
else
put return & it after last line of field "DataTypes"
end if
go to card "DataDefinition"
doMenu "copy card"
doMenu "paste card"
set the name of this card to it
put it into card field "title"
put theType into card field "DataType"
end mouseUp<�$T9y Typeon mousedown
if the optionkey is down then
edit script of target
exit mousedown
end if
put the mouseloc into myPlace
put item 1 of myPlace - 20 into horiz
put item 2 of myPlace - 10 into vert
get PopMenu(vert, horiz, "Table;PixelMap;Bitmap;Analog;PICS")
if it = 1 then
put "Table" into field DataType
else if it = 2 then
put "PixelMap" into field DataType
else if it = 3 then
put "Bitmap" into field DataType
else if it = 4 then
put "Analog" into field DataType
else if it = 5 then
put "PICS" into field DataType
end if
end mousedown
" ö }PICSdGWI Type 2 File
Histogram Table
MacPaint File
PICS
Pict2 File
Scattergram Table
Tape Log
Tiff File
ÿ÷J€&‘
¨©
²
¸ÞâThe Data Dictionary provides definitions of the different data structures supported by the Laboratory Toolbox. The Currently supported types are Table, Bitmap, Pixelmap PICS and Analog. To create a new data type, select a type with the type button and hit create object to define a new entry.DataDictionaryon openCard
sort field "DataTypes"
if line 1 of field "DataTypes" is empty then
delete line 1 of field "DataTypes"
end if
if the last character of field "DataTypes" is not return then
put return after field "DataTypes"
end if
end openCard
ÀBMAP(4 €@
MQt?3 aÀc0 Š€"" €'9À€žŽs€Á«à'ÝW€#à€‘P$2À2€€H’ A €B@""A €?É° Ž‰…`€CARD$ +ƒ…3#Y
& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"2
X @ûX ÿÿÁà PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿData DefinitionDataDefinition`BMAP+ƒ €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâ CARDx ®Ù…3#Y
Ð& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"3 z @Ï+öÿÿÁà PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿPICSÿû PixelMapÿý³€ ¥ File Type: 'PICS'
¥ A PICS animation is composed of many PICT resources, starting at id 128
¥ Numbering is contiguous (128, 129, 130, É)
¥ Number of frames is equal to Count1Resources('PICT')
¥ PICT resource 128 describes the complete first animation frame. The
picFrame field of the PICT describes the complete screen size of the
whole animation (all subsequent frames will be drawn within this rect).
¥ The following PICT resources (129, 130, É) can be either:
¥ complete frames with the same picFrame as PICT 128
¥ an update to the previous frame of a smaller area
¥ a null picFrame (no change in the animation)
¥ 'INFO' resource (optional), id 128, consiting of:
¥ BWColor (integer): 0 if black & white PICTS, 1 if color PICTS
¥ Depth (integer): 1,2,4,8,16 preferred color depth
¥ Speed (integer): 1 to 200 preferred speed in frames/sec.
A negative value means, show the frame for abs(value) seconds.
¥ Version (integer): version number (currently zero)
¥ Creator (longint): signature of creator application
¥ Largest (longint): size of the largest frame in bytes
PICS`BMAP®Ù €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâÀCARD>Ð?…3#Y
\& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"2
µ{ @ûX ÿÿÁà PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿ Tape LogÿûTableÿý?A tape log is an index of clips in a video tape. It is generated by the handler Video Logger. The first record in the log contains (1) the label of the tape, (2) The label of theProject (3) The label of the Experiment and (4) the label of the trial (Tab delimited) The rest of the records of a tape log are also tab delimited and contain in the 5 columns
(1) The date at which the video data was acquired
(2) The time at which the video data was acquired
(3) The label of the video clip
(4) The starting frame of the video clip
(5) The ending frame of the video clip.Tape Log`BMAP? €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâàCARDgehk…3#Y
‚& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"2
µ{ @ûX ï PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿHistogram TableÿûTableÿý_A histogram table is a list of integer or floating point numbers separated by carriage returnsHistogram Table`BMAPhk €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâCARDeKfd…3#Y
˜& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"2
µ{ @ûX ï PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿScattergram TableÿûTableÿýtThis data type is a two column tab delimited table of integer or real values. It can be created and read by Excelª.Scattergram Table`BMAPfd €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâCARDVêWW…3#Y
¤& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"2
µ{ @ûX ï PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿ Pict2 Fileÿû PixelMapÿýThis is a standard Apple pixel map file. It is created with the procedure record Picture and can be any pixel depth from 1 to 24Pict2 File`BMAPWW €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâÀCARDQPR˜…3#Y
d& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"2
µ{ @ûX ï PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿGWI Type 2 FileÿûAnalogÿý?The GWI type two file is a two byte integer array of analog values which is created by the Data Manipulation BSave Routine. The first
two bytes are the GWI instruments code (2) and the next four bytes
are the number of samples in the file. The remainder of the file consists of the two byte integer format data values.GWI Type 2 File`BMAPR˜ €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâCARDDLE¬…3#Y
¨& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"2
µ{ @ûX ï PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿMacPaint FileÿûBitmapÿý…This is the standard MacPaint bitmap file. It consists of a 512 byte header (usually empty) followed by the compressed bit map data.MacPaint File`BMAPE¬ €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâ€CARD@Aª…3#Y
"& ð TitleXj}@ firston mouseUp
go to card "DataDictionary"
end mouseUp"2
z @øV }ï PrintDefon mouseUp
put the name of this card & return into the field "PrintBuffer"
put the card field "DataType" & return after field "PrintBuffer"
put the card field "Definition" & return after field "PrintBuffer"
print field "PrintBuffer"
put empty into field "PrintBuffer"
end mouseUp*%zDataTypeÿÿ
Tiff Fileÿû PixelMapÿý
Tiff File`BMAPAª €
3K-Iá ³…§@â·…á/ü#þâÃ#fâ`Á€bâ0Á€ `Šâ@Ox2ó–â1’´2’ï â1@3H €â12Sâ@Np$€â1 B.€â@‚!3 §€‰á/üÁ Æfð6â&0â&0â&Ð0â&àx¯Áü0À0ârà °À0â2Á€ â2Á€ âÀÁÇ 0¸Ï0ð\âÀÁÈŒsÍÆq™æâÀÁØÌ1ŒÆ3 ÆâŠâ2GÀâ#@â2“À#‚”â‰!üÁ {ßãxñïâ`CARD;@…3 X®*€” ñ
Documents.€” ñ
Applicationsÿò
documentsÿñ
applications5#
Each line on this card indicates the location of a folder, including the disk name (and folder name, and subfolder names, if appropriate). These locations are called search paths. Each name in a search path is separated by a colon.
When you tell HyperCard to open a stack, document, or application, it looks for the file you want by searching through the folders listed on this card.
If HyperCard canÕt find the file, it displays the directory dialog box. Once youÕve located the file, HyperCard records the fileÕs location on this card. The next time you ask for the file, HyperCard will know where to look for it.
You can type folder locations on this card to tell HyperCard where to look for your files, for example:
my disk:hypercard folder:my stacks:
01Motion:LaboratoryToolbox
HD40:LaboratoryToolbox
Motion:HyperFolder:
Motion:HyperFolder:Cookbook Reference
Motion:VidClipStacks
:HyperCard Stacks:
:HyperCard Help:
Motion:Hypercard2.0:
HD40:HyperFolder:HD40:MessageBearer:
HD40:HyperFolder:Cookbook Reference
HD40:OnTrack:%GHyperCard uses the information in the field below to find your stacks.stacks CARD
w@…3 QÌ%MHyperCard uses the information in the field below to find your applications.56
This field will be a shared field when the time is right. In the meantime, I didn't want to copy the same text into this bkgnd field because I was afraid I might forget to make this a shared field later. See this field on the "stacks" card for the real info.
Consider this feature "under construction"
216HD40:
HD40:AppleLink:
HD40:Graphics:
Motion:Graphics:applications CARD @…3 hÐ%JHyperCard uses the information in the field below to find your documents.53
This field will be a shared field when the time is right. In the meantime, I didn't want to copy the same text into this bkgnd field because I was afraid I might forget to make this a shared field later. See this field on the "stacks" card for the real info.
Consider this feature "under construction"11@HD40:NSF Stuff:MotionGrant:
HD40:JA's Excel:
HD40:AppleLink:
documents@CARD ß!k@…3SF
h,*
Ž9£‚
Authoring* t9‰ ÿÿ
ScriptingÌ ¥…@
userlevel 4on mouseUp
-- Requires handler: updateDisplay
-- last word of btn name is userLevel
updateDisplay (last word of short name of me) -- in card script
end mouseUpÌs Š…@
UserLevel 5on mouseUp
-- Requires handler: updateDisplay
-- last word of btn name is userLevel
updateDisplay (last word of short name of me) -- in card script
end mouseUp*
ß9ô‚
Browsing( Ä9Ù‚
Typing* ©9¾‚
PaintingÌÞ ö…@
userlevel 1on mouseUp
-- Requires handler: updateDisplay
-- last word of btn name is userLevel
updateDisplay (last word of short name of me) -- in card script
end mouseUpÌÃ Û…@
userlevel 2on mouseUp
-- Requires handler: updateDisplay
-- last word of btn name is userLevel
updateDisplay (last word of short name of me) -- in card script
end mouseUp̨ À…@
userlevel 3on mouseUp
-- Requires handler: updateDisplay
-- last word of btn name is userLevel
updateDisplay (last word of short name of me) -- in card script
end mouseUp,€'Ê=ð user levelhuš‰ýà
Blind Typingon mouseUp
set blindTyping to the hilite of me
end mouseUp
dªš½þà
Power Keyson mouseUp
set powerKeys to the hilite of me
end mouseUp
nÆšÙ
Arrow Keys in Texton mouseUp
set textArrows to the hilite of me
end mouseUp
¬>;kS"@ User Nameon closeField
global UserName
put me into UserName
end closeField
on exitField
global UserName
put me into UserName
end exitFieldŠ?sŒ, mA Arrowon mouseDown
-- Requires handler: updateDisplay
-- this handler operates the arrow button like a slider control
set cursor to arrow
put item 1 of the loc of me into slideHorz -- horz remains constant
put item 2 of the loc of cd btn id 8 into slideTop -- UserLevel 5
put item 2 of the loc of cd btn id 4 into slideBottom -- UserLevel 1
put top of cd btn id 8 into levelTop -- UserLevel 5
repeat while the mouse is down
if the mouseV < slideTop then -- jump to the top
set loc of me to (slideHorz & "," & slideTop)
else if the mouseV > slideBottom then -- jump to the bottom
set loc of me to (slideHorz & "," & slideBottom)
else set loc of me to (slideHorz & "," & the mouseV) -- do middle
end repeat
-- calculate userLevel based on loc of slider
put 6 - (((item 2 of loc of me - levelTop) DIV 27) + 1) into curLevel
updateDisplay curLevel -- show changes
end mouseDown
Preferencesÿí5ÿÂThunktun Flishnyuser preferences°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Script of Stack: Home
THE MESSAGE HANDLERS IN THIS SCRIPT:
openCard,updateDisplay
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
on openCard
-- Requires handler: updateDisplay
if the userLevel card field "User Level" -- hidden on this card
then updateDisplay the userLevel -- set display to match userLevel
pass openCard -- so others can use the message
end openCard
on updateDisplay whatLevel
-- Requires handlers: disallowInterruption,allowInterruption
global UserName
lock screen
set cursor to watch
disallowInterruption
set the userLevel to whatLevel
if UserName is not empty then put UserName into cd field "User Name"
put whatLevel into cd field "User Level" -- hidden on this card
set top of cd btn "Arrow" to top of cd btn ("UserLevel" && whatLevel)
repeat with count = 1 to 5
put "UserLevel" && count into btnName
set hilite of cd btn btnName to not (count > whatLevel)
end repeat
set visible of card btn id 1 to whatLevel ³ 5 -- Blind Typing
set hilite of card btn id 1 to the blindTyping
set visible of card btn id 3 to whatLevel ³ 3 -- Power Keys
set hilite of card btn id 3 to the powerKeys
set visible of card btn id 2 to whatLevel ³ 2 -- Arrow keys in text
set hilite of card btn id 2 to the textArrows
unlock screen
allowInterruption
end updateDisplay
`BMAP!k @r ÷!Ž,€á€‰ ဠᢆxá€CøáŠá €‰3áŠ%Àá €‰CðáŠâ€‰øá8á€áá€á á€Àá3ဠá ဢ†Œ á‰â€† ဠᢆ á€`á@ကá€á€CáŠ`á €‰CpáŠâ€‰CpáŠ%ˆá €‰pápဆøဠá ဣ†Œ áÀ†‰ á ဣ†ðá€C8áá€á0á€@áøá€C áá€á ဠáŠ%á €‰CáŠ%pá €‰ á ဢ†Œ á‰â€† ဠᣆðáŠ%Èá €‰C á ဠáá€0á á€@á„á€üáŠá €‰Cüá ဠᤆŒ áÀ†‰ á ဣ†á€páŠ%€á €†‰pဧ†Š%Œá €‰ á ဤ†Ž,€á€STBL Ó ÿÿÿÿÿÿ ÿÿÿÿ
ÿÿÿÿ ÿÿ
ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿÿDÿÿûÿStylePlaàFTBLxChicagoPalatinohGenevaºMonaco TimesHelveticaÿÿÿ½\}½\ ÿcS|ÿÿÿ@4b[[ÃJ€sÞBXFCN}½\rË.[Ã@PRNTË î.@ hV €_ § N ÂHm¤’Hm¥’Hnÿ?<�NÂAìþÄCîÿp? ÙQÈÿüB§N"Â)_ÿÄ` n,HNújN Â(_N^.ŸNuBKGDNVþ„Hç 8B.B-Ô?B§/Nºüz+_í>g`6p-@ÿÄ/NºýHnþ„Hzúæ/N R/.ÿÄNªBg/Nºû> _Hnþ„N jOîþdLß øN^ _PONÐNVÿöHç&nB.JðVÀJgX·íðVÁÀgNr²mǤWÁJft´mǤW‚Àg4r2-ˆ2Àˆ€ PRST §HHÚ(ÿáÿâùFg(üHHÚ(d'
@f me is empty then delet TAILÿÿÿÿNu Šr det slutÉ