function firstWithinSecond grc1,grc2
put the points of grc grc1 into myPolyPoints1
repeat for each line tPoint in myPolyPoints1
if within(grc grc2,tPoint) then return "true"
end repeat
return false
end firstWithinSecond
@ nf cREVGeneral bookmarks handlerList scriptSelection char 1 to 0 prevHandler tempScript script myPoly1 KR;local myName on mouseUP put "" into myName end mouseUP on mouseDown put the name of me into myName end mouseDown on mouseMove x,y if myname is empty then exit mouseMove set the loc of me to x,y if firstWithinSecond("mypoly1","mypoly2")or firstWithinSecond("mypoly2","mypoly1") then beep end mouseMove K L - cREVGeneral scriptChecksum 'o+eR6 revUniqueID 1080148814514 bookmarks handlerList mouseUP mouseDown mouseMove tempScript prevHandler mouseDownscriptSelection char 290 to 289script elocal myName
on mouseUP
put "" into myName
end mouseUP
on mouseDown
put the name of me into myName
end mouseDown
on mouseMove x,y
if myname is empty then exit mouseMove
set the loc of me to x,y
if firstWithinSecond("mypoly1","mypoly2")or firstWithinSecond("mypoly2","mypoly1") then beep
end mouseMove
myPoly2 KRon mouseUP
put "" into myName
end mouseUP
on mouseDown
put the name of me into myName
end mouseDown
on mouseMove x,y
if myname is empty then exit mouseMove
set the loc of me to x,y
if firstWithinSecond("mypoly2","mypoly1") or firstWithinSecond("myPoly1","myPoly2") then beep
end mouseMove
Field 1 pXlocal myName,tMinH,tMinV, buffer on mouseDown put the name of me into myName put 10 into buffer --Adjustable buffer put (the height of field 1 + the height of field 2)/2 into tMinV put (the width of field 1 + the width of field 2)/2 into tMinH end mouseDown on mouseUP put "" into myName end mouseUP on mouseMove x1,y1 if myName is "" then exit mouseMove set the loc of me to x1,y1 put item 1 of the loc of field 2 into x2 put item 2 of the loc of field 2 into y2 if abs(y1- y2) < tMinV - buffer then if abs(x1-x2) < tMinH - buffer then beep end if end mouseMove @ J B V cREVGeneral scriptChecksum *rX{sdm bookmarks revUniqueID 1080230256007 handlerList mouseDown mouseUP mouseMovescriptSelection char 112 to 111 prevHandler mouseDown tempScript scriptlocal myName,tMinH,tMinV, buffer
on mouseDown
put the name of me into myName
put 10 into buffer --Adjustable buffer
put (the height of field 1 + the height of field 2)/2 into tMinV
put (the width of field 1 + the width of field 2)/2 into tMinH
end mouseDown
on mouseUP
put "" into myName
end mouseUP
on mouseMove x1,y1
if myName is "" then exit mouseMove
set the loc of me to x1,y1
put item 1 of the loc of field 2 into x2
put item 2 of the loc of field 2 into y2
if abs(y1- y2) < tMinV - buffer then
if abs(x1-x2) < tMinH - buffer then beep
end if
end mouseMove
With buffered border Field 2 p3local myName on mouseDown put the name of me into myName set the selected of me to false end mouseDown on mouseUP put "" into myName end mouseUP on mouseMove x,y breakpoint if myName is "" then exit mouseMove set the loc of me to x,y if intersect(field 1, field 2) then beep end mouseMove @ h T r select false cREVGeneral scriptChecksum irc sZ>mwZ bookmarks revUniqueID 1080230260798 handlerList mouseDown mouseUP mouseMovescriptSelection char 79 to 78 prevHandler mouseDown tempScript scriptlocal myName
on mouseDown
put the name of me into myName
set the selected of me to false
end mouseDown
on mouseUP
put "" into myName
end mouseUP
on mouseMove x,y
breakpoint
if myName is "" then exit mouseMove
set the loc of me to x,y
if intersect(field 1, field 2) then beep
end mouseMove
Without buffered border tMask K@ @ h cREVGeneral revUniqueID 1080230904441 Field 1 )` cREVGeneral revUniqueID 1080436275543 @Grab and drag either polygon and hear a beep when they overlap. )Scripts in the polygons and in the card. Field 1 )` cREVGeneral revUniqueID 1080436342161 >Grab and drag either field and hear a beep when they overlap. cThe "buffered" field allows you to set the effective buffer before the intersection is recognized. Scripts in the fields.