function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return abs(x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return abs(m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)
end if
end perpDist
on openstack
choose the browse tool
end openstack
on preOpenStack
choose the browse tool
end preOpenStack
P cREVGeometryCacheIDs 1108343705619 57301108342523075 57281108424165944 57471108424150711 57461109349981985 61771108342633221 57291108340866467 57271108343966445 57311107870321097 1003 cREVGeometrycache order total 9 cREVGeneral scriptChecksum h)ژ@ح\@ bookmarks handlerList breakPoints tempScript prevHandler perpDistscriptSelection char 1 to 0script _ ` a b c r s ! j Pmfunction thePolyLines tPolyPoints repeat with i = 1 to the number of lines in tPolyPoints put line i of tPolyPoints & comma & line i+1 of tPolyPoints & return after results end repeat delete last line of results return results end thePolyLines function perpDist tP,tLine put item 1 of tLine into x2 put item 2 of tLine into y2 put item 3 of tLine into x3 put item 4 of tLine into y3 put item 1 of tP into x1 put item 2 of tP into y1 if x3-x2 is 0 then return (x1-x2) else put (y3-y2)/(x3-x2) into m -- The slope return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m) end if end perpDist cREVGeometryCacheIDs 1108343705619 57361108395006710 57441108511492272 58031109350108503 61781108342633221 57351108506874770 57681108343966445 57371108498536155 57551108342523075 57341108498536156 57561108498307386 57541108430058696 57481107870321097 57321108340866467 5733 cREVGeometryCache order total 14 cREVGeneral scriptChecksum *ˎ$)R饍 bookmarks breakPoints handlerList thePolyLines perpDistscriptSelection char 1 to 256 prevHandler thePolyLines tempScript scriptfunction thePolyLines tPolyPoints
repeat with i = 1 to the number of lines in tPolyPoints
put line i of tPolyPoints & comma & line i+1 of tPolyPoints & return after results
end repeat
delete last line of results
return results
end thePolyLines
function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return (x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)
end if
end perpDist
e f g h i p t { | d z " Pmfunction thePolyLines tPolyPoints repeat with i = 1 to the number of lines in tPolyPoints put line i of tPolyPoints & comma & line i+1 of tPolyPoints & return after results end repeat delete last line of results return results end thePolyLines function perpDist tP,tLine put item 1 of tLine into x2 put item 2 of tLine into y2 put item 3 of tLine into x3 put item 4 of tLine into y3 put item 1 of tP into x1 put item 2 of tP into y1 if x3-x2 is 0 then return (x1-x2) else put (y3-y2)/(x3-x2) into m -- The slope return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m) end if end perpDist cREVGeometryCacheIDs 1108343705619 60361108395006710 60381108511492272 60431108343966445 60371108506874770 60421108498536155 60401109350115241 61791108498536156 60411108899014881 60441108498307386 60461108942517596 60971108430058696 60391107870321097 60451108942420955 60951108342633221 60351108342523075 60341108942503466 60961108340866467 6033 cREVGeometryCache total 18order cREVGeneral scriptChecksum *ˎ$)R饍 bookmarks handlerList thePolyLines perpDist breakPoints tempScript prevHandler thePolyLinesscriptSelection char 1 to 256scriptfunction thePolyLines tPolyPoints
repeat with i = 1 to the number of lines in tPolyPoints
put line i of tPolyPoints & comma & line i+1 of tPolyPoints & return after results
end repeat
delete last line of results
return results
end thePolyLines
function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return (x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)
end if
end perpDist
# P Ffunction ProjPointLiesWithinEndPts tProjPt,tLine put item 1 to 2 of tLine into tLinePt1 put item 3 to 4 of tLine into tLinePt2 put theTwoPtDist(tLinePt1,tLinePt2) into L put theTwoPtDist(tProjPt,tLinePt1) into s1 put theTwoPtDist(tProjPt,tLinePt2) into s2 if s1 < L and s2 < L then return true else return false end ProjPointLiesWithinEndPts end tDistProjPtFromEitherEnd function theDistPtAndEndPoints p1,tLine put item 1 to 2 of tLine into p2 put item 3 to 4 of tLine into p3 put theTwoPtDist(p1,p2) into s1 put theTwoPtDist(p1,p3) into s2 return s1+s2 end theDistPtAndEndPoints function theTwoPtDist p1,p2 put item 1 of p1 into x1 put item 2 of p1 into y1 put item 1 of p2 into x2 put item 2 of p2 into y2 return sqrt((x2-x1)^2 + (y2-y1)^2) end theTwoPtDist on changeToReflectedVel tLine put item 1 to 2 of tLine into p1 put item 3 to 4 of tLine into p2 put the loc of me into tLoc put theTwoPtDist(tLoc,p1) into d1 put theTwoPtDist(tLoc,p2) into d2 if d1put item 1 to 2 of tLine into tLinePt1
put item 3 to 4 of tLine into tLinePt2
put theTwoPtDist(tLinePt1,tLinePt2) into L
put theTwoPtDist(tProjPt,tLinePt1) into s1
put theTwoPtDist(tProjPt,tLinePt2) into s2
if s1 < L and s2 < L then
return true
else return false
end ProjPointLiesWithinEndPts
end tDistProjPtFromEitherEnd
function theDistPtAndEndPoints p1,tLine
put item 1 to 2 of tLine into p2
put item 3 to 4 of tLine into p3
put theTwoPtDist(p1,p2) into s1
put theTwoPtDist(p1,p3) into s2
return s1+s2
end theDistPtAndEndPoints
function theTwoPtDist p1,p2
put item 1 of p1 into x1
put item 2 of p1 into y1
put item 1 of p2 into x2
put item 2 of p2 into y2
return sqrt((x2-x1)^2 + (y2-y1)^2)
end theTwoPtDist
on changeToReflectedVel tLine
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put the loc of me into tLoc
put theTwoPtDist(tLoc,p1) into d1
put theTwoPtDist(tLoc,p2) into d2
if d1 <rMax or d2 < rMax then
multiply vx by -1
multiply vy by -1
exit changeToReflectedVel
end if
put item 2 of p2 - item 2 of p1 into dy
put item 1 of p2 - item 1 of p1 into dx
put aTan2(dy,dx) into angleL
put aTan2(vy,vx) into angleV
put sqrt(vx*vx+vy*vy) into v
put v * cos(2*angleL-angleV) into vx--A lettle geometry here.
put v * sin (2*angleL - angleV) into vy
end changeToReflectedVel
function thePolyLines tPolyPoints
repeat with i = 1 to the number of lines in tPolyPoints
put line i of tPolyPoints & comma & line i+1 of tPolyPoints & return after results
end repeat
delete last line of results
return results
end thePolyLines
function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return (x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)
end if
end perpDist
function perpProjPt p0, tLine
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put item 1 of p1 into x1
put item 2 of p1 into y1
put item 1 of p2 into x2
put item 2 of p2 into y2
put item 1 of p0 into x0
put item 2 of p0 into y0
if x2 = x1 then
put 1 into s
put 0 into c
else
put (y2-y1)/(x2-x1) into m
put m/sqrt(1+m*m) into s --sine
put 1/sqrt(1+m*m) into c -- cosine
end if
put x1+(y0-y1)*s*c+(x0-x1)*c*c into x
put y1 + (y0-y1)*s*s + (x0-x1) * s * c into y
return round(x),round(y)
end perpProjPt
$ Pfunction perpDist tP,tLine put item 1 of line 1 of tLine into x2 put item 2 of line 1 of tLine into y2 put item 1 of line 2 of tLine into x3 put item 2 of line 2 of tLine into y3 put item 1 of tP into x1 put item 2 of tP into y1 if x3-x2 is 0 then return (x1-x2) else put (y3-y2)/(x3-x2) into m -- The slope return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m) end if end perpDist --function ProjPointLiesWithinEndPts tProjPt,tLine -- put line 1 of tLine into p1 -- put line 2 of tLine into p2 -- put theDistBEtweenPoints(p1,p2) into L -- -- put theDistBetweenPoints(tProjPt,p1) into s1 -- put theDistBetweenPoints(tProjPt,p2) into s2 -- -- if s1 < L and s2 < L then -- return "between" -- else return "not"& cr& "between" --end ProjPointLiesWithinEndPts function perpProjPt p0, tLine put line 1 of tLine into p1 put line 2 of tLine into p2 put item 1 of p1 into x1 put item 2 of p1 into y1 put item 1 of p2 into x2 put item 2 of p2 into y2 put item 1 of p0 into x0 put item 2 of p0 into y0 if x2 = x1 then put 1 into s put 0 into c else put (y2-y1)/(x2-x1) into m put m/sqrt(1+m*m) into s --sine put 1/sqrt(1+m*m) into c -- cosine end if put x1+(y0-y1)*s*c+(x0-x1)*c*c into x put y1 + (y0-y1)*s*s + (x0-x1) * s * c into y return round(x),round(y) end perpProjPt function ProjPointLiesWithinEndPts tProjPt,tLine put line 1 of tLine into p1 put line 2 of tLine into p2 put theDistBEtweenPoints(p1,p2) into L put theDistBetweenPoints(tProjPt,p1) into s1 put theDistBetweenPoints(tProjPt,p2) into s2 if s1 < L and s2 < L then return "Between end points" else return "Not between end points" end ProjPointLiesWithinEndPts function theDistBetweenPoints a,b put item 1 of a into x1 put item 2 of a into y1 put item 1 of b into x2 put item 2 of b into y2 return sqrt((x2-x1)^2 + (y2-y1)^2) end theDistBetweenPoints cREVGeometryCacheIDs 1108679267506 58681108511492272 58571108703566060 58731108430058696 58541109350126647 61811108676553434 58651108597771034 58581107870321097 58501108677504429 5866 cREVGeometryCache order total 9 cREVGeneral scriptChecksum l?c%Eput item 1 of line 1 of tLine into x2
put item 2 of line 1 of tLine into y2
put item 1 of line 2 of tLine into x3
put item 2 of line 2 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return (x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)
end if
end perpDist
--function ProjPointLiesWithinEndPts tProjPt,tLine
-- put line 1 of tLine into p1
-- put line 2 of tLine into p2
-- put theDistBEtweenPoints(p1,p2) into L
--
-- put theDistBetweenPoints(tProjPt,p1) into s1
-- put theDistBetweenPoints(tProjPt,p2) into s2
--
-- if s1 < L and s2 < L then
-- return "between"
-- else return "not"& cr& "between"
--end ProjPointLiesWithinEndPts
function perpProjPt p0, tLine
put line 1 of tLine into p1
put line 2 of tLine into p2
put item 1 of p1 into x1
put item 2 of p1 into y1
put item 1 of p2 into x2
put item 2 of p2 into y2
put item 1 of p0 into x0
put item 2 of p0 into y0
if x2 = x1 then
put 1 into s
put 0 into c
else
put (y2-y1)/(x2-x1) into m
put m/sqrt(1+m*m) into s --sine
put 1/sqrt(1+m*m) into c -- cosine
end if
put x1+(y0-y1)*s*c+(x0-x1)*c*c into x
put y1 + (y0-y1)*s*s + (x0-x1) * s * c into y
return round(x),round(y)
end perpProjPt
function ProjPointLiesWithinEndPts tProjPt,tLine
put line 1 of tLine into p1
put line 2 of tLine into p2
put theDistBEtweenPoints(p1,p2) into L
put theDistBetweenPoints(tProjPt,p1) into s1
put theDistBetweenPoints(tProjPt,p2) into s2
if s1 < L and s2 < L then
return "Between end points"
else return "Not between end points"
end ProjPointLiesWithinEndPts
function theDistBetweenPoints a,b
put item 1 of a into x1
put item 2 of a into y1
put item 1 of b into x2
put item 2 of b into y2
return sqrt((x2-x1)^2 + (y2-y1)^2)
end theDistBetweenPoints
% P f function theDistPtAndEndPoints p1,tLine put item 1 to 2 of tLine into p2 put item 3 to 4 of tLine into p3 put theTwoPtDist(p1,p2) into s1 put theTwoPtDist(p1,p3) into s2 return s1+s2 end theDistPtAndEndPoints function ProjPointLiesWithinEndPts tProjPt,tLine put item 1 to 2 of tLine into tLinePt1 put item 3 to 4 of tLine into tLinePt2 put theTwoPtDist(tLinePt1,tLinePt2) into L put theTwoPtDist(tProjPt,tLinePt1) into s1 put theTwoPtDist(tProjPt,tLinePt2) into s2 if s1 <= L and s2 <= L then return true else return false end ProjPointLiesWithinEndPts function dist p1,p2 return theTwoPtDist(p1,p2) end dist function theTwoPtDist p1,p2 put item 1 of p1 into x1 put item 2 of p1 into y1 put item 1 of p2 into x2 put item 2 of p2 into y2 return sqrt((x2-x1)^2 + (y2-y1)^2) end theTwoPtDist on changeToReflectedVel tLine put item 1 to 2 of tLine into p1 put item 3 to 4 of tLine into p2 put the loc of me into tLoc put theTwoPtDist(tLoc,p1) into d1 put theTwoPtDist(tLoc,p2) into d2 if d1function theDistPtAndEndPoints p1,tLine
put item 1 to 2 of tLine into p2
put item 3 to 4 of tLine into p3
put theTwoPtDist(p1,p2) into s1
put theTwoPtDist(p1,p3) into s2
return s1+s2
end theDistPtAndEndPoints
function ProjPointLiesWithinEndPts tProjPt,tLine
put item 1 to 2 of tLine into tLinePt1
put item 3 to 4 of tLine into tLinePt2
put theTwoPtDist(tLinePt1,tLinePt2) into L
put theTwoPtDist(tProjPt,tLinePt1) into s1
put theTwoPtDist(tProjPt,tLinePt2) into s2
if s1 <= L and s2 <= L then
return true
else return false
end ProjPointLiesWithinEndPts
function dist p1,p2
return theTwoPtDist(p1,p2)
end dist
function theTwoPtDist p1,p2
put item 1 of p1 into x1
put item 2 of p1 into y1
put item 1 of p2 into x2
put item 2 of p2 into y2
return sqrt((x2-x1)^2 + (y2-y1)^2)
end theTwoPtDist
on changeToReflectedVel tLine
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put the loc of me into tLoc
put theTwoPtDist(tLoc,p1) into d1
put theTwoPtDist(tLoc,p2) into d2
if d1 <rMax or d2 < rMax then
multiply vx by -1
multiply vy by -1
exit changeToReflectedVel
end if
put item 2 of p2 - item 2 of p1 into dy
put item 1 of p2 - item 1 of p1 into dx
put aTan2(dy,dx) into angleL
put aTan2(vy,vx) into angleV
put sqrt(vx*vx+vy*vy) into v
put v * cos(2*angleL-angleV) into vx--A lettle geometry here.
put v * sin (2*angleL - angleV) into vy
end changeToReflectedVel
function thePolyLines tPolyPoints
repeat with i = 1 to the number of lines in tPolyPoints
put line i of tPolyPoints & comma & line i+1 of tPolyPoints & return after results
end repeat
delete last line of results
return results
end thePolyLines
function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return (x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)
end if
end perpDist
function perpProjPt p0, tLine
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put item 1 of p1 into x1
put item 2 of p1 into y1
put item 1 of p2 into x2
put item 2 of p2 into y2
put item 1 of p0 into x0
put item 2 of p0 into y0
if x2 = x1 then
put 1 into s
put 0 into c
else
put (y2-y1)/(x2-x1) into m
put m/sqrt(1+m*m) into s --sine
put 1/sqrt(1+m*m) into c -- cosine
end if
put x1+(y0-y1)*s*c+(x0-x1)*c*c into x
put y1 + (y0-y1)*s*s + (x0-x1) * s * c into y
return round(x),round(y)
end perpProjPt
& e : Pon clean repeat until the number of images is 0 delete image 1 end repeat end clean function perpDist tP,tLine put item 1 of tLine into x2 put item 2 of tLine into y2 put item 3 of tLine into x3 put item 4 of tLine into y3 put item 1 of tP into x1 put item 2 of tP into y1 if x3-x2 is 0 then return abs(x1-x2) else put (y3-y2)/(x3-x2) into m -- The slope return abs((m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)) end if end perpDist function intersection line1,line2 put item 1 to 2 of line1 into p1 put item 3 to 4 of line1 into p2 put item 1 to 2 of line2 into pp1 put item 3 to 4 of line2 into pp2 put item 1 of p1 into x1 put item 2 of p1 into y1 put item 1 of p2 into x2 put item 2 of p2 into y2 put item 1 of pp1 into xp1 put item 2 of pp1 into yp1 put item 1 of pp2 into xp2 put item 2 of pp2 into yp2 if x1 = x2 and xp1= xp2 then add .001 to xp2 if x1 = x2 or xp1 = xp2 then if x1 = x2 then return x1&comma&yp2 + (x1-xp2)*(yp2-yp1)/(xp2-xp1) else return xp2&comma& y2 + (xp1-x2)*(y2-y1)/(x2-x1) end if end if if (y2-y1)/(x2-x1) = (yp2-yp1)/(xp2-xp1) then add .0001 to y2--if lines are parallel put yp2 - y2 + x2*(y2-y1)/(x2 - x1) - xp2*(yp2 - yp1)/(xp2 - xp1) into numerator put ((y2 - y1)/(x2 - x1) -( yp2 - yp1)/(xp2-xp1)) into denom put numerator / denom into x put y2 + (x-x2) *(y2-y1)/(x2-x1) into y return x & comma & y end intersection InnerBoundary 720,20,513,20 513,20,513,513 20,20,20,513 20,513,513,513BoundaryLines /0,0,533,0 533,0,533,533 0,0,0,533 0,533,533,533 cREVGeometryCacheIDs 1109350482393 62271109350482394 62281109350482395 62291109350482396 62301109350482397 62311109350437569 62241109033759789 61851109284313341 61951109284615761 61981109284671922 61991109033770805 62001109284404625 61971109284290642 61941109343215595 62011109284325808 61961109350795813 62421109351597389 62491109112863600 61871109109886658 61861109350797157 62431109115161603 61891109350793365 62411109530155673 64551109350482391 62251109282519719 61901109350482392 6226 cREVGeometrycache order total 26 cREVGeneral scriptChecksum m:*z bookmarks handlerList clean perpDist intersection breakPoints scriptSelection char 463 to 462 prevHandler theNewVel tempScript script jon clean
repeat until the number of images is 0
delete image 1
end repeat
end clean
function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return abs(x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return abs((m*(x1-x2)-(y1-Y2))/sqrt(1+m*m))
end if
end perpDist
function intersection line1,line2
put item 1 to 2 of line1 into p1
put item 3 to 4 of line1 into p2
put item 1 to 2 of line2 into pp1
put item 3 to 4 of line2 into pp2
put item 1 of p1 into x1
put item 2 of p1 into y1
put item 1 of p2 into x2
put item 2 of p2 into y2
put item 1 of pp1 into xp1
put item 2 of pp1 into yp1
put item 1 of pp2 into xp2
put item 2 of pp2 into yp2
if x1 = x2 and xp1= xp2 then add .001 to xp2
if x1 = x2 or xp1 = xp2 then
if x1 = x2 then
return x1&comma&yp2 + (x1-xp2)*(yp2-yp1)/(xp2-xp1)
else
return xp2&comma& y2 + (xp1-x2)*(y2-y1)/(x2-x1)
end if
end if
if (y2-y1)/(x2-x1) = (yp2-yp1)/(xp2-xp1) then add .0001 to y2--if lines are parallel
put yp2 - y2 + x2*(y2-y1)/(x2 - x1) - xp2*(yp2 - yp1)/(xp2 - xp1) into numerator
put ((y2 - y1)/(x2 - x1) -( yp2 - yp1)/(xp2-xp1)) into denom
put numerator / denom into x
put y2 + (x-x2) *(y2-y1)/(x2-x1) into y
return x & comma & y
end intersection
) * + - . 2 3 4 5 6 8 9 P Q R S T U V W a b c i 7 7 N P on clean repeat until the number of images is 0 delete image 1 end repeat end clean function perpDist tP,tLine put item 1 of tLine into x2 put item 2 of tLine into y2 put item 3 of tLine into x3 put item 4 of tLine into y3 put item 1 of tP into x1 put item 2 of tP into y1 if x3-x2 is 0 then return abs(x1-x2) else put (y3-y2)/(x3-x2) into m -- The slope return abs((m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)) end if end perpDist function intersection line1,line2 put item 1 to 2 of line1 into p1 put item 3 to 4 of line1 into p2 put item 1 to 2 of line2 into pp1 put item 3 to 4 of line2 into pp2 put item 1 of p1 into x1 put item 2 of p1 into y1 put item 1 of p2 into x2 put item 2 of p2 into y2 put item 1 of pp1 into xp1 put item 2 of pp1 into yp1 put item 1 of pp2 into xp2 put item 2 of pp2 into yp2 if x1 = x2 and xp1= xp2 then add .001 to xp2 if x1 = x2 or xp1 = xp2 then if x1 = x2 then return x1&comma&yp2 + (x1-xp2)*(yp2-yp1)/(xp2-xp1) else return xp2&comma& y2 + (xp1-x2)*(y2-y1)/(x2-x1) end if end if if (y2-y1)/(x2-x1) = (yp2-yp1)/(xp2-xp1) then add .0001 to y2--if lines are parallel put yp2 - y2 + x2*(y2-y1)/(x2 - x1) - xp2*(yp2 - yp1)/(xp2 - xp1) into numerator put ((y2 - y1)/(x2 - x1) -( yp2 - yp1)/(xp2-xp1)) into denom put numerator / denom into x put y2 + (x-x2) *(y2-y1)/(x2-x1) into y return x & comma & y end intersection InnerBoundary 720,20,513,20 513,20,513,513 20,20,20,513 20,513,513,513stopMe falseBoundaryLines /0,0,533,0 533,0,533,533 0,0,0,533 0,533,533,533 cREVGeometryCacheIDs 1109554880960 64941109350779779 62401109437899599 62951109289526235 62041109033759789 62051109284313341 62111109284615761 62141109343305467 62201109288373256 62181109284290642 62101109351706087 62511109284325808 62121109350779771 62321109350779772 62331109350779773 62341109351703401 62501109350779774 62351109350779775 62361109350779776 62371109350779777 62381109282519719 6209 cREVGeometrycache order total 21 cREVGeneral scriptChecksum Dpcuݹ bookmarks handlerList clean perpDist intersection tempScript prevHandler theNewVelscriptSelection char 1 to 0script *on clean
repeat until the number of images is 0
delete image 1
end repeat
end clean
function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return abs(x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return abs((m*(x1-x2)-(y1-Y2))/sqrt(1+m*m))
end if
end perpDist
function intersection line1,line2
put item 1 to 2 of line1 into p1
put item 3 to 4 of line1 into p2
put item 1 to 2 of line2 into pp1
put item 3 to 4 of line2 into pp2
put item 1 of p1 into x1
put item 2 of p1 into y1
put item 1 of p2 into x2
put item 2 of p2 into y2
put item 1 of pp1 into xp1
put item 2 of pp1 into yp1
put item 1 of pp2 into xp2
put item 2 of pp2 into yp2
if x1 = x2 and xp1= xp2 then add .001 to xp2
if x1 = x2 or xp1 = xp2 then
if x1 = x2 then
return x1&comma&yp2 + (x1-xp2)*(yp2-yp1)/(xp2-xp1)
else
return xp2&comma& y2 + (xp1-x2)*(y2-y1)/(x2-x1)
end if
end if
if (y2-y1)/(x2-x1) = (yp2-yp1)/(xp2-xp1) then add .0001 to y2--if lines are parallel
put yp2 - y2 + x2*(y2-y1)/(x2 - x1) - xp2*(yp2 - yp1)/(xp2 - xp1) into numerator
put ((y2 - y1)/(x2 - x1) -( yp2 - yp1)/(xp2-xp1)) into denom
put numerator / denom into x
put y2 + (x-x2) *(y2-y1)/(x2-x1) into y
return x & comma & y
end intersection
< = A B C D F J L X Y Z [ \ ] ^ ` j k _ speed ia F 7 0 40 cREVGeneral revUniqueID 1108340866467 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script ` Field 1 ) } 2 cREVGeneral revUniqueID 1108342523075 Speed a Field 1 + Q cREVGeneral revUniqueID 1108342633221 9Drag the ball to a starting point and release the mouse. Hit the shift key to stop. b Diameter iq on scrollbardrag tValue set the width of grc "ball" to 2*tValue set the height of grc "ball" to 2*tValue end scrollbardrag 5 50 cREVGeneral scriptChecksum b a닋N'OHP bookmarks revUniqueID 1108343705619 handlerList scrollbardragscriptSelection char 103 to 102 prevHandler scrollbardrag tempScript script ?on scrollbardrag tValue
set the width of grc "ball" to 2*tValue
set the height of grc "ball" to 2*tValue
end scrollbardrag
c Field 1 ) 5 2 cREVGeneral revUniqueID 1108343966445 Flex e speed ia T 2 40 cREVGeneral bookmarks revUniqueID 1108340866467 handlerList scriptSelection char 1 to 0 prevHandler tempScript script f Field 1 ) D 2 cREVGeneral revUniqueID 1108342523075 j Speed g Field 1 + H cREVGeneral revUniqueID 1108342633221 j +Confine a ball within any concave polygon. * h flex ia 0 24.908904 cREVGeneral revUniqueID 1108343705619 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script i Field 1 ) F 2 cREVGeneral revUniqueID 1108343966445 j Flex p myLine K black poitns 272.445501,144.300445 ! cREVGeneral bookmarks revUniqueID 1108395006710 handlerList scriptSelection char 1 to 0 prevHandler tempScript script r flex ia 0 50 cREVGeneral revUniqueID 1108424150711 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script s ) J cREVGeneral revUniqueID 1108424165944 Diameter t Reset the ball Epe on mouseUP set the loc of grc "ball" to 200,100 set the width of grc "ball" to 25 set the height of grc "ball"to 25 repeat until the number of images is 0 delete image 1 end repeat put (the thumbposition of scrollbar "diameter") into rMax set the width of grc "ball" to 2*rMax set the height of grc "ball" to 2*rMax end mouseUP h E cREVGeneral scriptChecksum eF a+] h: breakPoints 10 handlerList mouseUPscriptSelection char 318 to 317 bookmarks revUniqueID 1108430058696 prevHandler mouseMove tempScript script -on mouseUP
set the loc of grc "ball" to 200,100
set the width of grc "ball" to 25
set the height of grc "ball"to 25
repeat until the number of images is 0
delete image 1
end repeat
put (the thumbposition of scrollbar "diameter") into rMax
set the width of grc "ball" to 2*rMax
set the height of grc "ball" to 2*rMax
end mouseUP
{ Diameter iq on scrollbardrag tValue set the width of grc "ball" to 2*tValue set the height of grc "ball" to 2*tValue end scrollbardrag ǂS 5 50 cREVGeneral scriptChecksum b a닋N'OHP bookmarks revUniqueID 1108498536155 handlerList scrollbardragscriptSelection char 103 to 102 prevHandler scrollbardrag tempScript script ?on scrollbardrag tValue
set the width of grc "ball" to 2*tValue
set the height of grc "ball" to 2*tValue
end scrollbardrag
| ) J cREVGeneral revUniqueID 1108498536156 j Diameter Pen Up Ep on mouseUP if the penState of grc "ball" is true then set the penState of grc "ball" to false set the name of me to "Pen Up" else set the penState of grc "ball" to true set the name of me to "Pen Down" end if end mouseUP % F ! cREVGeneral scriptChecksum մ߽P7S bookmarks revUniqueID 1108506874770 handlerList mouseUPscriptSelection char 231 to 230 prevHandler tempScript script con mouseUP
if the penState of grc "ball" is true then
set the penState of grc "ball" to false
set the name of me to "Pen Up"
else
set the penState of grc "ball" to true
set the name of me to "Pen Down"
end if
end mouseUP
Instructions )` 2 cREVGeneral revUniqueID 1108511492272 j What it does: QConstruct a polygon (apex angles < 180 for the time begin) and name it "myPoly". 1Drag the blue ball into the polygon and let go. Hit the shift key to stop the action and use the Reset button to bring the ball back where you can get at it should it be hard to find. The ball makes "elastic collisions" with the walls, that is, the angle of incidence and the incidednt speed are equal to the angle of reflection and reflected speed. MUse the "Pen" button to see a tracing of the path of the CENTER of the ball. 0You can drag the ball to its initial position. How does it work: The script in the ball uses the perpDist function to find the perpendicular distance between the ball and a line. When this is less than the radius of the ball, a collision has been detected. MThe only complicated part is determining the angle for specular reflection. ` 3 ball KT Qlocal vx,vy,rMax,tSpeed,theLines,L,W,H,pendown --da on mouseUp --Erase the trace line. repeat until the number of images is 0 delete image 1 end repeat --Get the radius of the ball. put (the width of me)/2 into rMax put the thumbposition of scrollbar "speed" into tspeed put the endvalue of scrollbar "speed" - tSpeed into tSpeed if tSpeed =0 then put 1 into tSpeed put true into tFlag put ""into theLines repeat with i = 1 to the number of graphics if the style of grc i is "polygon" then put the points of grc i into tPoints --Break the polygon down into its --conponent lines. This is necessary --for the ball to examine its position --relative to the indivdual lines. put thePolyLines(tPoints) after theLines end if end repeat put item 1 of the loc of me into x put item 2 of the loc of me into y put item 1 of field "velocity" into vx put item 2 of field "velocity" into vy if pendown then choose the pencil tool put the penState of grc "ball" into pendown moveBall x,y end mouseUp on moveBall x,y put the loc of me into tOldPt--Used for dragging the pencil set the loc of me to x,y put x,y into tNewPT--Used for dragging the pencil if penDown then drag from tOldPt to tNewPt--Draw a line from the CENTER of the ball. repeat for each line tLine in theLines --Get the distance between the ball and each line --as well as the projection point. put abs(perpDist(the loc of me, tLine)) into tDistToLine put perpProjPt(the loc of me, tLine) into tProjPoint if tDistToLine < rMax and ProjPointLiesWithinEndPts(tProjPoint,tLine) then subtract vx from x subtract vy from y set the loc of me to x,y--backup to keep from getting trapped on the line if char 1 to 2 of the systemversion is 10 then beep changeToReflectedVel tLine--Set the vel components to their reflected values exit repeat end if end repeat if the optionkey is down then wait until the optionkey is up if the ShiftKey is down then choose the browse tool set the cursor to hand exit to top else send "moveBall x+vx,y+vy" to me in tSpeed millisec end moveBall on changeToReflectedVel tLine put item 1 to 2 of tLine into p1 put item 3 to 4 of tLine into p2 put the loc of me into tLoc put theTwoPtDist(tLoc,p1) into d1 put theTwoPtDist(tLoc,p2) into d2 if d1--da
on mouseUp
--Erase the trace line.
repeat until the number of images is 0
delete image 1
end repeat
--Get the radius of the ball.
put (the width of me)/2 into rMax
put the thumbposition of scrollbar "speed" into tspeed
put the endvalue of scrollbar "speed" - tSpeed into tSpeed
if tSpeed =0 then put 1 into tSpeed
put true into tFlag
put ""into theLines
repeat with i = 1 to the number of graphics
if the style of grc i is "polygon" then
put the points of grc i into tPoints
--Break the polygon down into its
--conponent lines. This is necessary
--for the ball to examine its position
--relative to the indivdual lines.
put thePolyLines(tPoints) after theLines
end if
end repeat
put item 1 of the loc of me into x
put item 2 of the loc of me into y
put item 1 of field "velocity" into vx
put item 2 of field "velocity" into vy
if pendown then choose the pencil tool
put the penState of grc "ball" into pendown
moveBall x,y
end mouseUp
on moveBall x,y
put the loc of me into tOldPt--Used for dragging the pencil
set the loc of me to x,y
put x,y into tNewPT--Used for dragging the pencil
if penDown then drag from tOldPt to tNewPt--Draw a line from the CENTER of the ball.
repeat for each line tLine in theLines
--Get the distance between the ball and each line
--as well as the projection point.
put abs(perpDist(the loc of me, tLine)) into tDistToLine
put perpProjPt(the loc of me, tLine) into tProjPoint
if tDistToLine < rMax and ProjPointLiesWithinEndPts(tProjPoint,tLine) then
subtract vx from x
subtract vy from y
set the loc of me to x,y--backup to keep from getting trapped on the line
if char 1 to 2 of the systemversion is 10 then beep
changeToReflectedVel tLine--Set the vel components to their reflected values
exit repeat
end if
end repeat
if the optionkey is down then wait until the optionkey is up
if the ShiftKey is down then
choose the browse tool
set the cursor to hand
exit to top
else send "moveBall x+vx,y+vy" to me in tSpeed millisec
end moveBall
on changeToReflectedVel tLine
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put the loc of me into tLoc
put theTwoPtDist(tLoc,p1) into d1
put theTwoPtDist(tLoc,p2) into d2
if d1 <rMax or d2 < rMax then
multiply vx by -1
multiply vy by -1
exit changeToReflectedVel
end if
put item 2 of p2 - item 2 of p1 into dy
put item 1 of p2 - item 1 of p1 into dx
put aTan2(dy,dx) into angleL
put aTan2(vy,vx) into angleV
put sqrt(vx*vx+vy*vy) into v
put v * cos(2*angleL-angleV) into vx--A lettle geometry here.
put v * sin (2*angleL - angleV) into vy
end changeToReflectedVel
on mouseDown
grab me
end mouseDown
speed ia 7 2 40 cREVGeneral revUniqueID 1108340866467 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Field 1 ) F 2 cREVGeneral revUniqueID 1108342523075 Speed Field 1 ) j cREVGeneral revUniqueID 1108342633221 Shift key to stop Reset the ball Epe on mouseUP set the loc of grc "ball" to 200,100 set the width of grc "ball" to 25 set the height of grc "ball"to 25 repeat until the number of images is 0 delete image 1 end repeat put (the thumbposition of scrollbar "diameter") into rMax set the width of grc "ball" to 2*rMax set the height of grc "ball" to 2*rMax end mouseUP h cREVGeneral scriptChecksum eF a+] h: handlerList mouseUP breakPoints 10scriptSelection char 318 to 317 revUniqueID 1108430058696 bookmarks tempScript prevHandler mouseMovescript -on mouseUP
set the loc of grc "ball" to 200,100
set the width of grc "ball" to 25
set the height of grc "ball"to 25
repeat until the number of images is 0
delete image 1
end repeat
put (the thumbposition of scrollbar "diameter") into rMax
set the width of grc "ball" to 2*rMax
set the height of grc "ball" to 2*rMax
end mouseUP
Diameter iq on scrollbardrag tValue set the width of grc "ball" to 2*tValue set the height of grc "ball" to 2*tValue end scrollbardrag h 5 50 cREVGeneral scriptChecksum b a닋N'OHP revUniqueID 1108498536155 bookmarks handlerList scrollbardrag tempScript prevHandler scrollbardragscriptSelection char 103 to 102script ?on scrollbardrag tValue
set the width of grc "ball" to 2*tValue
set the height of grc "ball" to 2*tValue
end scrollbardrag
) J cREVGeneral revUniqueID 1108498536156 Diameter Instructions )` ( cREVGeneral revUniqueID 1108511492272 @Now you see that the ball moves freely throughout the polygon. @ ? @ The ball not only checks the distance to the polygon lines but whether it will strike a line between its end points. It does this by checking the perpProjPt (perpendicular projection from the ball to the line.) If this point lies between the ends, it recognizes the line; otherwise not. @ @ (It determines whether the projection point is between the end points by looking at the distance to the end points. These distances must both be less than the length of the line. @ @ hThis technique may be extended to obstacles other than the confining walls of a polygon. See next card. @ g ` ) velocity )` $ = cREVGeneral revUniqueID 1108655182496 0,3 + i ! cREVGeneral revUniqueID 1108674937012 Starting velocity components Reset the ball Eph on mouseUP set the loc of grc "ball" to 127,298 set the width of grc "ball" to 30 set the height of grc "ball"to 30 repeat until the number of images is 0 delete image 1 end repeat --put (the thumbposition of scrollbar "diameter") into rMax --set the width of grc "ball" to 2*rMax -- set the height of grc "ball" to 2*rMax end mouseUP h g cREVGeneral scriptChecksum h ?4ߵװ breakPoints 10 handlerList mouseUPscriptSelection char 123 to 122 bookmarks revUniqueID 1108430058696 prevHandler mouseUP tempScript script )on mouseUP
set the loc of grc "ball" to 127,298
set the width of grc "ball" to 30
set the height of grc "ball"to 30
repeat until the number of images is 0
delete image 1
end repeat
--put (the thumbposition of scrollbar "diameter") into rMax
--set the width of grc "ball" to 2*rMax
-- set the height of grc "ball" to 2*rMax
end mouseUP
Instructions )h cREVGeneral revUniqueID 1108511492272 How does it work? @ @ `Drag the blue ball. When the ball encounters a line (and this lines, like those in the previous examples, act like the lines in Euclidean geometry, that is, they are assumed to extend to infinity in both directions.) To keep the ball from interacting with the line segment beyond the end points, I have used the perpProjPt function (see ball script). @ _ @ wConsider any point above a geometrical line. Drop a perpendicular from the point to the line. That is the perpProjPt. @ v @ NIf this point lies outside the finite line segment (bewteen the end points), the line ignores the ball or, if you like, the bouncing ball (of the previous card) ignores the line. It recognizes the point to be between the end points of the line segment if the distance from perpProjPt to EACH end is less than the length of the line. @ M @ 2The line of code which triggers the collision is: @ 1 @ Q if tDistToLine < rMax and ProjPointLiesWithinEndPts(tProjPoint,tLine) then Qwhere tDistToLine is calculated with the "perpDist" function (see card script.) @ 1I have not included flexing. Im all flexed out. @ 0 ` myLine KV &on mouseDown grab me end mouseDown s. d u 0 cREVGeneral scriptChecksum {zSQl bookmarks revUniqueID 1108597771034 handlerList mouseDownscriptSelection char 23 to 22 prevHandler tempScript script 9on mouseDown
grab me
end mouseDown
projLine KV &on mouseDown grab me end mouseDown # $ 6 $ X cREVGeneral scriptChecksum {zSQl revUniqueID 1108676553434 bookmarks handlerList mouseDown tempScript prevHandler scriptSelection char 23 to 22script 9on mouseDown
grab me
end mouseDown
data * c b & cREVGeneral revUniqueID 1108677504429 Between end points ball KTlocal myName, tPoints on mouseDown put the name of me into myName put points of grc "myLine" into tPoints end mouseDown on mouseUP put "" into myname end mouseUP on mouseMove u,v if myName is "" then exit mouseMove set the loc of me to u,v put perpProjPt(the loc of me, tPoints) into thePerpPoint set the points of grc "projLine" to (the loc of me, thePerpPoint) put ProjPointLiesWithinEndPts(thePerpPoint,tPoints) into tText put tText into field "data" set the loc of field "data" to item 1 of thePerpPoint + 20, (item 2 of thePerpPoint +30) put "Distance to line is " &round(abs(perpDist(the loc of me, tPoints))) into field "data2" set the loc of field "data2" to (item 1 of the loc of me +60),item 2 of the loc of me end mouseMove penState true h cREVGeneral scriptChecksum 3ZP³W=/: handlerList mouseDown mouseUP mouseMove breakPoints 17 63scriptSelection char 140 to 139 revUniqueID 1107870321097 bookmarks tempScript prevHandler ProjPointLiesWithinEndPtsscriptlocal myName, tPoints
on mouseDown
put the name of me into myName
put points of grc "myLine" into tPoints
end mouseDown
on mouseUP
put "" into myname
end mouseUP
on mouseMove u,v
if myName is "" then exit mouseMove
set the loc of me to u,v
put perpProjPt(the loc of me, tPoints) into thePerpPoint
set the points of grc "projLine" to (the loc of me, thePerpPoint)
put ProjPointLiesWithinEndPts(thePerpPoint,tPoints) into tText
put tText into field "data"
set the loc of field "data" to item 1 of thePerpPoint + 20, (item 2 of thePerpPoint +30)
put "Distance to line is " &round(abs(perpDist(the loc of me, tPoints))) into field "data2"
set the loc of field "data2" to (item 1 of the loc of me +60),item 2 of the loc of me
end mouseMove
data2 * Q & cREVGeneral revUniqueID 1108679267506 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Distance to line is 62 Return Ep .on mouseUP go to previous card end mouseUP N A cREVGeneral scriptChecksum ~aȣzg, revUniqueID 1108703566060 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 33 to 32script Aon mouseUP
go to previous card
end mouseUP
d ball KT plocal vx,vy,rMax,tFlex,tSpeed,theLines,x,y,penDown,myName on mouseUP repeat until the number of images is 0 delete image 1 end repeat put the penState of me into penDown put the thumbposition of scrollbar "diameter" into rMax set the endvalue of scrollbar "flex" to rMax -3 put the thumbposition of scrollbar "flex" into tFlex set the width of me to 2*rMax set the height of me to 2*rMax put the thumbposition of scrollbar "speed" into tspeed put the endvalue of scrollbar "speed" - tSpeed into tSpeed put 4 into vx--or whatever put 4 into vy--or whatever put the loc of me into tLoc --Separate the polygon into a collection of individual lines --See the card script put thePolyLines(the points of grc "myPoly") into theLines put item 1 of the loc of me into x put item 2 of the loc of me into y put 350,300 into temp if penDown then choose the pencil tool MoveBall x,y--item 1 of tLoc, item 2 of tLoc--random(L),random(L) end mouseUp on moveBall x,y put the loc of me into tOldPt--Used for dragging the pencil set the loc of me to x,y put x,y into tNewPT--Used for dragging the pencil --Draw a line from the CENTER of the ball. if penDown then drag from tOldPt to tNewPt repeat for each line theLine in theLines --Check for distance between ball and line. put x,y into tPoint put Abs(perpDist(tPoint,theLine))into tDist if tDist+tFlex < rMax then subtract vx from x subtract vy from y set the loc of me to x,y--backup to keep from getting trapped on the line if char 1 to 2 of the systemversion is 10 then beep changeToReflectedVel theLine--Set the vel components to their reflected values add vx to x; add vy to y end if end repeat setDiameter tPoint--Adjust the diameter for the flex if the optionkey is down then wait until the optionkey is up if the ShiftKey is down then choose the browse tool set the cursor to hand exit to top else send "moveBall x+vx,y+vy" to me in tSpeed millisec end moveBall on changeToReflectedVel tLine put aTan2(item 4 of tLine-item 2 of tLine,item 3 of tLine - item 1 of tLine) into angleL put aTan2(vy,vx) into angleV put sqrt(vx*vx+vy*vy) into v put v * cos(2*angleL-angleV) into vx--A lettle geometry here. put v * sin (2*angleL - angleV) into vy end changeToReflectedVel on setDiameter pt repeat with i = 1 to the number of lines in theLines put line i of theLines into tLine put abs(perpDist(pt,tLine)) into d if d < rMax then set the width of me to 2*d set the height of me to 2*d exit "setDiameter" -- Don't worry about corners end if end repeat set the width of me to 2*rMax set the height of me to 2*rMax end setDiameter function perpDist tP,tLine put item 1 of tLine into x2 put item 2 of tLine into y2 put item 3 of tLine into x3 put item 4 of tLine into y3 put item 1 of tP into x1 put item 2 of tP into y1 if x3-x2 is 0 then return (x1-x2) else put (y3-y2)/(x3-x2) into m -- The slope return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m) end if end perpDist on mouseDown grab me end mouseDown blue 7 7 penState false h cREVGeneral scriptChecksum D^,uth": handlerList DmouseUP moveBall changeToReflectedVel setDiameter perpDist mouseDown breakPoints 35 102scriptSelection char 847 to 846 revUniqueID 1107870321097 bookmarks tempScript prevHandler moveBallscript 2local vx,vy,rMax,tFlex,tSpeed,theLines,x,y,penDown,myName
on mouseUP
repeat until the number of images is 0
delete image 1
end repeat
put the penState of me into penDown
put the thumbposition of scrollbar "diameter" into rMax
set the endvalue of scrollbar "flex" to rMax -3
put the thumbposition of scrollbar "flex" into tFlex
set the width of me to 2*rMax
set the height of me to 2*rMax
put the thumbposition of scrollbar "speed" into tspeed
put the endvalue of scrollbar "speed" - tSpeed into tSpeed
put 4 into vx--or whatever
put 4 into vy--or whatever
put the loc of me into tLoc
--Separate the polygon into a collection of individual lines
--See the card script
put thePolyLines(the points of grc "myPoly") into theLines
put item 1 of the loc of me into x
put item 2 of the loc of me into y
put 350,300 into temp
if penDown then choose the pencil tool
MoveBall x,y--item 1 of tLoc, item 2 of tLoc--random(L),random(L)
end mouseUp
on moveBall x,y
put the loc of me into tOldPt--Used for dragging the pencil
set the loc of me to x,y
put x,y into tNewPT--Used for dragging the pencil
--Draw a line from the CENTER of the ball.
if penDown then drag from tOldPt to tNewPt
repeat for each line theLine in theLines
--Check for distance between ball and line.
put x,y into tPoint
put Abs(perpDist(tPoint,theLine))into tDist
if tDist+tFlex < rMax then
subtract vx from x
subtract vy from y
set the loc of me to x,y--backup to keep from getting trapped on the line
if char 1 to 2 of the systemversion is 10 then beep
changeToReflectedVel theLine--Set the vel components to their reflected values
add vx to x; add vy to y
end if
end repeat
setDiameter tPoint--Adjust the diameter for the flex
if the optionkey is down then wait until the optionkey is up
if the ShiftKey is down then
choose the browse tool
set the cursor to hand
exit to top
else send "moveBall x+vx,y+vy" to me in tSpeed millisec
end moveBall
on changeToReflectedVel tLine
put aTan2(item 4 of tLine-item 2 of tLine,item 3 of tLine - item 1 of tLine) into angleL
put aTan2(vy,vx) into angleV
put sqrt(vx*vx+vy*vy) into v
put v * cos(2*angleL-angleV) into vx--A lettle geometry here.
put v * sin (2*angleL - angleV) into vy
end changeToReflectedVel
on setDiameter pt
repeat with i = 1 to the number of lines in theLines
put line i of theLines into tLine
put abs(perpDist(pt,tLine)) into d
if d < rMax then
set the width of me to 2*d
set the height of me to 2*d
exit "setDiameter" -- Don't worry about corners
end if
end repeat
set the width of me to 2*rMax
set the height of me to 2*rMax
end setDiameter
function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return (x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)
end if
end perpDist
on mouseDown
grab me
end mouseDown
z myPoly K black 9 A' ! u X C^ ^+ ;+ u W cREVGeneral bookmarks revUniqueID 1108498307386 handlerList scriptSelection char 1 to 0 prevHandler tempScript script speed ia 2 40 cREVGeneral revUniqueID 1108340866467 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Field 1 ) D 2 cREVGeneral revUniqueID 1108342523075 Speed Field 1 ) j cREVGeneral revUniqueID 1108342633221 Shift key to stop flex ia 7.953672 cREVGeneral bookmarks revUniqueID 1108343705619 handlerList scriptSelection char 1 to 0 prevHandler tempScript script Field 1 ) F 2 cREVGeneral revUniqueID 1108343966445 Flex myLine K black poitns 272.445501,144.300445 ! cREVGeneral revUniqueID 1108395006710 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Reset the ball Epe on mouseUP set the loc of grc "ball" to 200,100 set the width of grc "ball" to 25 set the height of grc "ball"to 25 repeat until the number of images is 0 delete image 1 end repeat put (the thumbposition of scrollbar "diameter") into rMax set the width of grc "ball" to 2*rMax set the height of grc "ball" to 2*rMax end mouseUP h & cREVGeneral scriptChecksum eF a+] h: handlerList mouseUP breakPoints 10scriptSelection char 318 to 317 revUniqueID 1108430058696 bookmarks tempScript prevHandler mouseMovescript -on mouseUP
set the loc of grc "ball" to 200,100
set the width of grc "ball" to 25
set the height of grc "ball"to 25
repeat until the number of images is 0
delete image 1
end repeat
put (the thumbposition of scrollbar "diameter") into rMax
set the width of grc "ball" to 2*rMax
set the height of grc "ball" to 2*rMax
end mouseUP
Diameter iq on scrollbardrag tValue set the width of grc "ball" to 2*tValue set the height of grc "ball" to 2*tValue end scrollbardrag ' 5 50 cREVGeneral scriptChecksum b a닋N'OHP revUniqueID 1108498536155 bookmarks handlerList scrollbardrag tempScript prevHandler scrollbardragscriptSelection char 103 to 102script ?on scrollbardrag tValue
set the width of grc "ball" to 2*tValue
set the height of grc "ball" to 2*tValue
end scrollbardrag
) J cREVGeneral revUniqueID 1108498536156 Diameter Pen Up Ep on mouseUP if the penState of grc "ball" is true then set the penState of grc "ball" to false set the name of me to "Pen Up" else set the penState of grc "ball" to true set the name of me to "Pen Down" end if end mouseUP % F " cREVGeneral scriptChecksum մ߽P7S revUniqueID 1108506874770 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 231 to 230script con mouseUP
if the penState of grc "ball" is true then
set the penState of grc "ball" to false
set the name of me to "Pen Up"
else
set the penState of grc "ball" to true
set the name of me to "Pen Down"
end if
end mouseUP
Instructions )` H p cREVGeneral revUniqueID 1108511492272 uIn the previous card the confining polygon was everywhere concave, i.e. all apex angles were less than 180 degrees. @ t @ :In the figure below, the polygon is convex at one vertex. @ 9 @ If you start the ball in motion in any one of the three sectors, you will notice that it confines itself to that sector, even though there is not apparent barrier between them; the only constraint is that the ball remain within the bounding polygram. @ @ ?The reason for this behavior is that the constraint is that the ball be reflected when its DISTANCE from a line is less than the radius of the ball. But the perpDist function measures the distance from the line as if it were a line in Euclidean geometry, that is, a line which extends to infinity in both directions. @ > @ sSo you see, if you extend the two lines at the top of the polygon, they subdivide the polygon into three sectors. @ r @ To solve this problem and allow the ball access to the entire polygon, it is necessary to examine not only the distance of the ball from the line but also whether the ball will strike the line BETWEEN its end points. @ @ pThe ball must find another test of the line to see if it will strike between the end points. See the next card. @ o ` n ConfinedArea KB black < $ ! ^`, <, \ ^ cREVGeneral revUniqueID 1108899014881 myPoly K black : )' ! + _ _+ <+ + cREVGeneral revUniqueID 1108498307386 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script myPoly K black N ! zS gg P cREVGeneral revUniqueID 1108928443754 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Pen Up Ep on mouseUP if the penState of grc "ball" is true then set the penState of grc "ball" to false set the name of me to "Pen Up" else set the penState of grc "ball" to true set the name of me to "Pen Down" end if end mouseUP F ` cREVGeneral scriptChecksum մ߽P7S bookmarks revUniqueID 1108932040072 handlerList mouseUPscriptSelection char 231 to 230 prevHandler mouseUP tempScript script con mouseUP
if the penState of grc "ball" is true then
set the penState of grc "ball" to false
set the name of me to "Pen Up"
else
set the penState of grc "ball" to true
set the name of me to "Pen Down"
end if
end mouseUP
Field 1 ) \ + < cREVGeneral revUniqueID 1108942420955 II Field 1 ) 6 6 cREVGeneral revUniqueID 1108942503466 III Field 1 ) 2 = cREVGeneral revUniqueID 1108942517596 I ball KT local vx,vy,rMax,tFlex,tSpeed,theLines,penDown,myName on mouseUP repeat until the number of images is 0 delete image 1 end repeat put the thumbposition of scrollbar "diameter" into rMax set the endvalue of scrollbar "flex" to rMax -4 put the thumbposition of scrollbar "flex" into tFlex put the penState of me into penDown set the width of me to 2*rMax set the height of me to 2*rMax put the thumbposition of scrollbar "speed" into tspeed put the endvalue of scrollbar "speed" - tSpeed into tSpeed put 4 into vx--or whatever put 4 into vy--or whatever put the loc of me into tLoc --Separate the polygon into a collection of individual lines --See the card script put thePolyLines(the points of grc "myPoly") into theLines put item 1 of the loc of me into x put item 2 of the loc of me into y if pendown then choose the pencil tool set the cursor to watch MoveBall x,y end mouseUp on moveBall x,y put the loc of me into tOldPt--Used for dragging the pencil set the loc of me to round(x),round(y) put x,y into tNewPT--Used for dragging the pencil if penDown then drag from tOldPt to tNewPt--Draw a line from the CENTER of the ball. repeat for each line theLine in theLines--with i = 1 to the number of lines in theLines put x,y into tPoint put Abs(perpDist(tPoint,theLine))into tDist if tDist+tFlex < rMax then subtract vx from x subtract vy from y set the loc of me to x,y--backup to keep from getting trapped on the line if char 1 of the systemversion is 1 then beep changeToReflectedVel theLine--Set the vel components to their reflected values add vx to x; add vy to y end if end repeat setDiameter tPoint--Adjust the diameter for the flex if the optionkey is down then wait until the optionkey is up if the ShiftKey is down then choose the browse tool set the cursor to hand exit to top else send "moveBall x+vx,y+vy" to me in tSpeed millisec end moveBall on changeToReflectedVel tLine --This handler used to get the direction of the reflected ball after collision put aTan2(item 4 of tLine-item 2 of tLine,item 3 of tLine - item 1 of tLine) into angleL put aTan2(vy,vx) into angleV put sqrt(vx*vx+vy*vy) into v put v * cos(2*angleL-angleV) into vx--A lettle geometry here. put v * sin (2*angleL - angleV) into vy end changeToReflectedVel on setDiameter pt repeat with i = 1 to the number of lines in theLines put line i of theLines into tLine put abs(perpDist(pt,tLine)) into d if d < rMax then set the width of me to 2*d set the height of me to 2*d exit "setDiameter" -- Don't worry about corners end if end repeat set the width of me to 2*rMax set the height of me to 2*rMax end setDiameter function perpDist tP,tLine put item 1 of tLine into x2 put item 2 of tLine into y2 put item 3 of tLine into x3 put item 4 of tLine into y3 put item 1 of tP into x1 put item 2 of tP into y1 if x3-x2 is 0 then return (x1-x2) else put (y3-y2)/(x3-x2) into m -- The slope return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m) end if end perpDist on mouseDown grab me end mouseDown blue z penState false h cREVGeneral scriptChecksum iV 2S! breakPoints 7 handlerList DmouseUP moveBall changeToReflectedVel setDiameter perpDist mouseDownscriptSelection char 345 to 344 bookmarks revUniqueID 1107870321097 prevHandler changeToReflectedVel tempScript scriptlocal vx,vy,rMax,tFlex,tSpeed,theLines,penDown,myName
on mouseUP
repeat until the number of images is 0
delete image 1
end repeat
put the thumbposition of scrollbar "diameter" into rMax
set the endvalue of scrollbar "flex" to rMax -4
put the thumbposition of scrollbar "flex" into tFlex
put the penState of me into penDown
set the width of me to 2*rMax
set the height of me to 2*rMax
put the thumbposition of scrollbar "speed" into tspeed
put the endvalue of scrollbar "speed" - tSpeed into tSpeed
put 4 into vx--or whatever
put 4 into vy--or whatever
put the loc of me into tLoc
--Separate the polygon into a collection of individual lines
--See the card script
put thePolyLines(the points of grc "myPoly") into theLines
put item 1 of the loc of me into x
put item 2 of the loc of me into y
if pendown then choose the pencil tool
set the cursor to watch
MoveBall x,y
end mouseUp
on moveBall x,y
put the loc of me into tOldPt--Used for dragging the pencil
set the loc of me to round(x),round(y)
put x,y into tNewPT--Used for dragging the pencil
if penDown then drag from tOldPt to tNewPt--Draw a line from the CENTER of the ball.
repeat for each line theLine in theLines--with i = 1 to the number of lines in theLines
put x,y into tPoint
put Abs(perpDist(tPoint,theLine))into tDist
if tDist+tFlex < rMax then
subtract vx from x
subtract vy from y
set the loc of me to x,y--backup to keep from getting trapped on the line
if char 1 of the systemversion is 1 then beep
changeToReflectedVel theLine--Set the vel components to their reflected values
add vx to x; add vy to y
end if
end repeat
setDiameter tPoint--Adjust the diameter for the flex
if the optionkey is down then wait until the optionkey is up
if the ShiftKey is down then
choose the browse tool
set the cursor to hand
exit to top
else send "moveBall x+vx,y+vy" to me in tSpeed millisec
end moveBall
on changeToReflectedVel tLine
--This handler used to get the direction of the reflected ball after collision
put aTan2(item 4 of tLine-item 2 of tLine,item 3 of tLine - item 1 of tLine) into angleL
put aTan2(vy,vx) into angleV
put sqrt(vx*vx+vy*vy) into v
put v * cos(2*angleL-angleV) into vx--A lettle geometry here.
put v * sin (2*angleL - angleV) into vy
end changeToReflectedVel
on setDiameter pt
repeat with i = 1 to the number of lines in theLines
put line i of theLines into tLine
put abs(perpDist(pt,tLine)) into d
if d < rMax then
set the width of me to 2*d
set the height of me to 2*d
exit "setDiameter" -- Don't worry about corners
end if
end repeat
set the width of me to 2*rMax
set the height of me to 2*rMax
end setDiameter
function perpDist tP,tLine
put item 1 of tLine into x2
put item 2 of tLine into y2
put item 3 of tLine into x3
put item 4 of tLine into y3
put item 1 of tP into x1
put item 2 of tP into y1
if x3-x2 is 0 then
return (x1-x2)
else
put (y3-y2)/(x3-x2) into m -- The slope
return (m*(x1-x2)-(y1-Y2))/sqrt(1+m*m)
end if
end perpDist
on mouseDown
grab me
end mouseDown
ball KTlocal L, vx,vy,rMax,tFlex,tSpeed,tLines on mouseDown grab me end mouseDown on mouseUP put the width of this stack into L set the height of this stack to L put the thumbposition of scrollbar "diameter" into rMax set the endvalue of scrollbar "flex" to rMax put the thumbposition of scrollbar "flex" into tFlex put rMax - tFlex into tFlex set the width of me to 2*rMax set the height of me to 2*rMax put the thumbposition of scrollbar "speed" into tspeed put the endvalue of scrollbar "speed" - tSpeed into tSpeed put 3 into vx put 5 into vy put the loc of me into tLoc put item 1 of tLoc into x put item 2 of tLoc into y put 0,0,0,L & cr & 0,0,L,0 & cr & 0,L,L,L & cr & L,0,L,L into tLines MoveBall x,y end mouseUp on moveBall x,y switch case y + tFlex > L multiply vy by -1 break case y - tFlex < 0 multiply vy by -1 break case x - tFlex < 0 multiply vx by -1 break case x + tFlex > L multiply vx by -1 break end switch set the loc of me to x,y put x,y into tPoint setDiameter tPoint if the ShiftKey is down then exit to top else send "moveBall x+vx,y+vy" to me in tSpeed millisec end moveBall on setDiameter pt repeat for each line tLine in tLines put perpDist(pt,tLine) into d if d < rMax then if Horizontal(tLine)then set the width of me to 2*rMax + (rMax-d) set the height of me to 2*d exit "setDiameter" -- Don't worry about corners else set the height of me to 2*rMax+ (rMax-d) set the width of me to 2*d exit "setDiameter" -- Don't worry about corners end if end if end repeat set the width of me to 2*rMax set the height of me to 2*rMax end setDiameter function Horizontal tLine --Determine whether the boundary wall is horizontal or not if item 2 of tLine = item 4 of tLine then return true if item 1 of tLine = item 3 of tLine then return false exit to top end Horizontal blue R d d 25Box /0,0,0,479 0,0,479,0 0,479,479,479 479,0,479,479vx 325 25vy 1 h cREVGeneral scriptChecksum Eف.Q|}V}%F{, breakPoints 51 72 handlerList 1mouseDown mouseUP moveBall setDiameter HorizontalscriptSelection char 742 to 741 bookmarks revUniqueID 1107870321097 prevHandler Horizontal tempScript script 'local L, vx,vy,rMax,tFlex,tSpeed,tLines
on mouseDown
grab me
end mouseDown
on mouseUP
put the width of this stack into L
set the height of this stack to L
put the thumbposition of scrollbar "diameter" into rMax
set the endvalue of scrollbar "flex" to rMax
put the thumbposition of scrollbar "flex" into tFlex
put rMax - tFlex into tFlex
set the width of me to 2*rMax
set the height of me to 2*rMax
put the thumbposition of scrollbar "speed" into tspeed
put the endvalue of scrollbar "speed" - tSpeed into tSpeed
put 3 into vx
put 5 into vy
put the loc of me into tLoc
put item 1 of tLoc into x
put item 2 of tLoc into y
put 0,0,0,L & cr & 0,0,L,0 & cr & 0,L,L,L & cr & L,0,L,L into tLines
MoveBall x,y
end mouseUp
on moveBall x,y
switch
case y + tFlex > L
multiply vy by -1
break
case y - tFlex < 0
multiply vy by -1
break
case x - tFlex < 0
multiply vx by -1
break
case x + tFlex > L
multiply vx by -1
break
end switch
set the loc of me to x,y
put x,y into tPoint
setDiameter tPoint
if the ShiftKey is down then exit to top
else send "moveBall x+vx,y+vy" to me in tSpeed millisec
end moveBall
on setDiameter pt
repeat for each line tLine in tLines
put perpDist(pt,tLine) into d
if d < rMax then
if Horizontal(tLine)then
set the width of me to 2*rMax + (rMax-d)
set the height of me to 2*d
exit "setDiameter" -- Don't worry about corners
else
set the height of me to 2*rMax+ (rMax-d)
set the width of me to 2*d
exit "setDiameter" -- Don't worry about corners
end if
end if
end repeat
set the width of me to 2*rMax
set the height of me to 2*rMax
end setDiameter
function Horizontal tLine
--Determine whether the boundary wall is horizontal or not
if item 2 of tLine = item 4 of tLine then return true
if item 1 of tLine = item 3 of tLine then return false
exit to top
end Horizontal
speed ia p 2 40 cREVGeneral revUniqueID 1108340866467 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Field 1 ) D 2 cREVGeneral revUniqueID 1108342523075 Speed Success ) T g & cREVGeneral revUniqueID 1108342633221 Reset the ball Epe on mouseUP set the loc of grc "ball" to 200,100 set the width of grc "ball" to 25 set the height of grc "ball"to 25 repeat until the number of images is 0 delete image 1 end repeat put (the thumbposition of scrollbar "diameter") into rMax set the width of grc "ball" to 2*rMax set the height of grc "ball" to 2*rMax end mouseUP h f cREVGeneral scriptChecksum eF a+] h: handlerList mouseUP breakPoints 10scriptSelection char 318 to 317 revUniqueID 1108430058696 bookmarks tempScript prevHandler mouseMovescript -on mouseUP
set the loc of grc "ball" to 200,100
set the width of grc "ball" to 25
set the height of grc "ball"to 25
repeat until the number of images is 0
delete image 1
end repeat
put (the thumbposition of scrollbar "diameter") into rMax
set the width of grc "ball" to 2*rMax
set the height of grc "ball" to 2*rMax
end mouseUP
Diameter aq on scrollbardrag tValue set the width of grc "ball" to 2*tValue set the height of grc "ball" to 2*tValue end scrollbardrag Z 5 50 cREVGeneral scriptChecksum b a닋N'OHP revUniqueID 1108498536155 bookmarks handlerList scrollbardrag tempScript prevHandler scrollbardragscriptSelection char 103 to 102script ?on scrollbardrag tValue
set the width of grc "ball" to 2*tValue
set the height of grc "ball" to 2*tValue
end scrollbardrag
Instructions )` v cREVGeneral revUniqueID 1108511492272 It is possible to all for collisions with individual lines not connected in a polygon. But it is FRAUGHT with difficulties. It is very troublesome dealing with the end points. I tried making the end points into small elastic spheres and that works up to a point. @ @ But the real problem come in when the ball comes to a point of intersection between two lines which intersect when extended. Never mind. Trust me this is hard stuff. @ @ BYour task here in, should you choose to waste your time doing it: @ A @ Drag the blue ball to position and release. It must first strike the thick red line and eventually strikes the green button. Hit the shift key to stop and start over. @ @ Not very exciting. But.... @ @ jSince this ball-on-line example is so limited, I wanted to try ball-on-ball collisions. But with a twist. @ i @ The simplest way to approach this problem is to let the "cue" ball move in small steps proportional to the velocity. And then check to see if it has hit anything. I'm sure many of you have done this, and it works reasonably well. @ @ %But there are a couple of problems: @ $ 91) I have experienced a screen-refresh problem in OS X. @ 8 52) Since the cue ball doesn't detect a collision until after it has penetrated the target, there are problems in getting reproducible, accurate results, and, as you will see, collisions between balls is VERY sensitive to the position of the collision site--a problem not encountered in collisions with walls. @ 4 @ 4These issues are fleshed out on the next few cards. @ 3 ` t Graphic 2 K black o h ! cREVGeneral revUniqueID 1108655076163 velocity !` $ = cREVGeneral revUniqueID 1108655182496 -3,0 # P $ cREVGeneral revUniqueID 1108674937012 Velocity components Graphic 3 KF / d 4 0 cREVGeneral revUniqueID 1108758068601 ball KTlocal vx,vy,rMax,tSpeed,theLines,L,W,H,x,y on mouseUp repeat until the number of images is 0 delete image 1 end repeat put "" into field "success" put (the width of me)/2 into rMax put the thumbposition of scrollbar "speed" into tspeed put the endvalue of scrollbar "speed" - tSpeed into tSpeed if tSpeed =0 then put 1 into tSpeed put "" into theLines --Take the line apart so that they may be treated separately. repeat with i = 1 to the number of graphics --First lines. if the style of grc i is "line" then put the points of grc i into tPoints put line 1 of tPoints into end1 put line 2 of tPoints into end2 put end1,end2 & return after theLines end if --Next polygons. It would be easy to include rectangles if the style of grc i is "polygon" then put the points of grc i into tPoints put thePolyLines(tPoints) after theLines end if end repeat put item 1 of the loc of me into x put item 2 of the loc of me into y put item 1 of field "velocity" into vx put item 2 of field "velocity" into vy put (the width of this window) into W put the Height of this window into H choose the pencil tool moveBall x,y end mouseUp on moveBall x,y put the loc of me into tOldPt set the loc of me to x,y put x,y into tNewPt drag from tOldPt to tNewPt put the loc of me into tLoc if y + rMax > H then multiply vy by -1 if y -rMax < 0 then multiply vy by -1 if x - rMax < 0 then multiply vx by -1 if x + rMax > W then multiply vx by -1 repeat for each line tLine in theLines put abs(perpDist(the loc of me, tLine)) into tDistToLine put perpProjPt(the loc of me, tLine) into tProjPoint put item 1 to 2 of tLine into p1 put item 3 to 4 of tLine into p2 put dist(tLoc,p1) into d1 put dist(tLoc,p2) into d2 put ProjPointLiesWithinEndPts(tProjPoint,tLine)into liesWithTemp --Check for collisions with the end points. if tDistToLine < rMax and not ProjPointLiesWithinEndPts(tProjPoint,tLine)then if d1 < rMax or d2 < rMax then switch case d1< rMax put p1 into tCollEnd break case d2< rMax put p2 into tCollEnd break end switch put tLoc,tCollEnd into tLine --This line above (tLine) is a radial line from the center of the ball (tLoc) --to the nearest collision end point (tCollEnd). --Assume that this collision is --elastic and the end point is a small sphere of negligible radius. --The ball is then effectively colliding with a line tangent to the --to the surface of the ball at the point of impact. That line --will be perpendicular to the radial line (tLine), --hence the addition of pi/2 below. if char 1 of the systemVersion is 1 then beep changeToReflectedVel tLine, pi/2 exit repeat end if end if --Next check conllisions with lines. if tDistToLine < rMax and ProjPointLiesWithinEndPts(tProjPoint,tLine) then set the loc of me to x-vx,y-vy--backup to keep from getting trapped on the line if char 1 to 2 of the systemversion is 10 then beep changeToReflectedVel tLine,0--Set the vel components to their reflected values exit repeat end if end repeat if dist(the loc of me, the loc of button "target") < 5 then beep choose the browse tool put "Success" into field "success" exit to top end if if the optionkey is down then wait until the optionkey is up if the ShiftKey is down then choose the browse tool set the cursor to hand exit to top else send "moveBall x+vx,y+vy" to me in tSpeed millisec end if end moveBall on changeToReflectedVel tLine , additionalRotation put item 1 to 2 of tLine into p1 put item 3 to 4 of tLine into p2 put item 2 of p2 - item 2 of p1 into dy put item 1 of p2 - item 1 of p1 into dx put aTan2(dy,dx) into angleL put aTan2(vy,vx) into angleV add additionalRotation to angleL put sqrt(vx*vx+vy*vy) into v put v * cos(2*angleL-angleV) into vx--A little geometry here. put v * sin (2*angleL - angleV) into vy--And here. end changeToReflectedVel on mouseDown put "" into field "success" grab me end mouseDown &N ) ) penState true h cREVGeneral scriptChecksum cQux\ԫ breakPoints 53 69 77 handlerList /mouseUp moveBall changeToReflectedVel mouseDownscriptSelection char 3788 to 4279 bookmarks revUniqueID 1107870321097 prevHandler changeToReflectedVel tempScript script )local vx,vy,rMax,tSpeed,theLines,L,W,H,x,y
on mouseUp
repeat until the number of images is 0
delete image 1
end repeat
put "" into field "success"
put (the width of me)/2 into rMax
put the thumbposition of scrollbar "speed" into tspeed
put the endvalue of scrollbar "speed" - tSpeed into tSpeed
if tSpeed =0 then put 1 into tSpeed
put "" into theLines
--Take the line apart so that they may be treated separately.
repeat with i = 1 to the number of graphics
--First lines.
if the style of grc i is "line" then
put the points of grc i into tPoints
put line 1 of tPoints into end1
put line 2 of tPoints into end2
put end1,end2 & return after theLines
end if
--Next polygons. It would be easy to include rectangles
if the style of grc i is "polygon" then
put the points of grc i into tPoints
put thePolyLines(tPoints) after theLines
end if
end repeat
put item 1 of the loc of me into x
put item 2 of the loc of me into y
put item 1 of field "velocity" into vx
put item 2 of field "velocity" into vy
put (the width of this window) into W
put the Height of this window into H
choose the pencil tool
moveBall x,y
end mouseUp
on moveBall x,y
put the loc of me into tOldPt
set the loc of me to x,y
put x,y into tNewPt
drag from tOldPt to tNewPt
put the loc of me into tLoc
if y + rMax > H then multiply vy by -1
if y -rMax < 0 then multiply vy by -1
if x - rMax < 0 then multiply vx by -1
if x + rMax > W then multiply vx by -1
repeat for each line tLine in theLines
put abs(perpDist(the loc of me, tLine)) into tDistToLine
put perpProjPt(the loc of me, tLine) into tProjPoint
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put dist(tLoc,p1) into d1
put dist(tLoc,p2) into d2
put ProjPointLiesWithinEndPts(tProjPoint,tLine)into liesWithTemp
--Check for collisions with the end points.
if tDistToLine < rMax and not ProjPointLiesWithinEndPts(tProjPoint,tLine)then
if d1 < rMax or d2 < rMax then
switch
case d1< rMax
put p1 into tCollEnd
break
case d2< rMax
put p2 into tCollEnd
break
end switch
put tLoc,tCollEnd into tLine
--This line above (tLine) is a radial line from the center of the ball (tLoc)
--to the nearest collision end point (tCollEnd).
--Assume that this collision is
--elastic and the end point is a small sphere of negligible radius.
--The ball is then effectively colliding with a line tangent to the
--to the surface of the ball at the point of impact. That line
--will be perpendicular to the radial line (tLine),
--hence the addition of pi/2 below.
if char 1 of the systemVersion is 1 then beep
changeToReflectedVel tLine, pi/2
exit repeat
end if
end if
--Next check conllisions with lines.
if tDistToLine < rMax and ProjPointLiesWithinEndPts(tProjPoint,tLine) then
set the loc of me to x-vx,y-vy--backup to keep from getting trapped on the line
if char 1 to 2 of the systemversion is 10 then beep
changeToReflectedVel tLine,0--Set the vel components to their reflected values
exit repeat
end if
end repeat
if dist(the loc of me, the loc of button "target") < 5 then
beep
choose the browse tool
put "Success" into field "success"
exit to top
end if
if the optionkey is down then wait until the optionkey is up
if the ShiftKey is down then
choose the browse tool
set the cursor to hand
exit to top
else
send "moveBall x+vx,y+vy" to me in tSpeed millisec
end if
end moveBall
on changeToReflectedVel tLine , additionalRotation
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put item 2 of p2 - item 2 of p1 into dy
put item 1 of p2 - item 1 of p1 into dx
put aTan2(dy,dx) into angleL
put aTan2(vy,vx) into angleV
add additionalRotation to angleL
put sqrt(vx*vx+vy*vy) into v
put v * cos(2*angleL-angleV) into vx--A little geometry here.
put v * sin (2*angleL - angleV) into vy--And here.
end changeToReflectedVel
on mouseDown
put "" into field "success"
grab me
end mouseDown
Graphic 4 KF J j s K cREVGeneral revUniqueID 1108758072710 Graphic 3 KF 3 } T . 4 ~ cREVGeneral revUniqueID 1108775704639 target @+a @ D cREVGeneral revUniqueID 1108993693560 StartLine KF : j < cREVGeneral revUniqueID 1108995439960 Field 1 + H cREVGeneral revUniqueID 1109348597700 *Confine a ball within any convex polygon. ) ! Next card Ep *on mouseUP go to next card end mouseUP R cREVGeneral scriptChecksum 7Q]1ˋ revUniqueID 1109349981985 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 29 to 28script =on mouseUP
go to next card
end mouseUP
" Next card Ep *on mouseUP go to next card end mouseUP R cREVGeneral scriptChecksum 7Q]1ˋ revUniqueID 1109350108503 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 29 to 28script =on mouseUP
go to next card
end mouseUP
# Next card Ep *on mouseUP go to next card end mouseUP R cREVGeneral scriptChecksum 7Q]1ˋ revUniqueID 1109350115241 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 29 to 28script =on mouseUP
go to next card
end mouseUP
$ Next card Ep *on mouseUP go to next card end mouseUP R cREVGeneral scriptChecksum 7Q]1ˋ revUniqueID 1109350121084 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 29 to 28script =on mouseUP
go to next card
end mouseUP
% Next card Ep *on mouseUP go to next card end mouseUP R cREVGeneral scriptChecksum 7Q]1ˋ revUniqueID 1109350126647 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 29 to 28script =on mouseUP
go to next card
end mouseUP
& Next card Ep *on mouseUP go to next card end mouseUP | R cREVGeneral scriptChecksum 7Q]1ˋ revUniqueID 1109350133151 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 29 to 28script =on mouseUP
go to next card
end mouseUP
) Circle KTon mouseDown grab me end mouseDown on mouseUP put the id of me into tID put the short Name of me & tID into tName if there is no grc tName then set the style of the templategraphic to "oval" set the opaque of the templateGraphic to false create grc tName end if put the width of me + the width of grc "ball" into W set the width of grc tName to W set the height of grc tName to W set the loc of grc tName to the loc of me end mouseUP v g < < h cREVGeneral scriptChecksum s" bookmarks revUniqueID 1109033759789 handlerList mouseDown mouseUPscriptSelection char 468 to 467 prevHandler mouseU tempScript script ion mouseDown
grab me
end mouseDown
on mouseUP
put the id of me into tID
put the short Name of me & tID into tName
if there is no grc tName then
set the style of the templategraphic to "oval"
set the opaque of the templateGraphic to false
create grc tName
end if
put the width of me + the width of grc "ball" into W
set the width of grc tName to W
set the height of grc tName to W
set the loc of grc tName to the loc of me
end mouseUP
* Circle KTon mouseDown grab me end mouseDown on mouseUP put the id of me into tID put the short Name of me & tID into tName if there is no grc tName then set the style of the templategraphic to "oval" set the opaque of the templateGraphic to false create grc tName end if put the width of me + the width of grc "ball" into W set the width of grc tName to W set the height of grc tName to W set the loc of grc tName to the loc of me end mouseUP < < h cREVGeneral scriptChecksum %TE㙟&F handlerList mouseDown mouseUP breakPoints 6scriptSelection char 354 to 353 revUniqueID 1109109886658 bookmarks tempScript prevHandler mouseDownscript _on mouseDown
grab me
end mouseDown
on mouseUP
put the id of me into tID
put the short Name of me & tID into tName
if there is no grc tName then
set the style of the templategraphic to "oval"
set the opaque of the templateGraphic to false
create grc tName
end if
put the width of me + the width of grc "ball" into W
set the width of grc tName to W
set the height of grc tName to W
set the loc of grc tName to the loc of me
end mouseUP
+ Pen down Ep local vx,vy on mouseUP if "down" is in the short name of me then set the penState of grc "Ball" to false set the name of me to "Pen up" else set the penState of grc "Ball" to true set the name of me to "Pen down" end if end mouseUP f cREVGeneral scriptChecksum /^T*vS%i breakPoints 47 handlerList mouseUPscriptSelection char 175 to 174 bookmarks revUniqueID 1109112863600 prevHandler changeToReflectedVel tempScript scriptlocal vx,vy
on mouseUP
if "down" is in the short name of me then
set the penState of grc "Ball" to false
set the name of me to "Pen up"
else
set the penState of grc "Ball" to true
set the name of me to "Pen down"
end if
end mouseUP
- v @KF / t O > cREVGeneral revUniqueID 1109115161603 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script . Circle KTon mouseDown grab me end mouseDown on mouseUP put the id of me into tID put the short Name of me & tID into tName if there is no grc tName then set the style of the templategraphic to "oval" set the opaque of the templateGraphic to false create grc tName end if put the width of me + the width of grc "ball" into W set the width of grc tName to W set the height of grc tName to W set the loc of grc tName to the loc of me end mouseUP ;@ < < h cREVGeneral scriptChecksum S@* revUniqueID 1109282519719 bookmarks handlerList mouseDown mouseUP tempScript prevHandler mouseUscriptSelection char 343 to 342script qon mouseDown
grab me
end mouseDown
on mouseUP
put the id of me into tID
put the short Name of me & tID into tName
if there is no grc tName then
set the style of the templategraphic to "oval"
set the opaque of the templateGraphic to false
create grc tName
end if
put the width of me + the width of grc "ball" into W
set the width of grc tName to W
set the height of grc tName to W
set the loc of grc tName to the loc of me
end mouseUP
2 Field 1 ) <, f cREVGeneral revUniqueID 1109284290642 : Speed 3 Field 1 ) 4 f cREVGeneral revUniqueID 1109284313341 : Draw or not 4 Field 1 ) ^6 f cREVGeneral revUniqueID 1109284325808 : Clean drawing 5 Clean Ep ] on mouseUP repeat until the number of images is 0 delete image 1 end repeat end mouseUP ` f cREVGeneral scriptChecksum 7֦2ӯ`a¡~ handlerList mouseUP breakPoints 47scriptSelection char 69 to 68 revUniqueID 1109284404625 bookmarks tempScript prevHandler changeToReflectedVelscripton mouseUP
repeat until the number of images is 0
delete image 1
end repeat
end mouseUP
6 Instructions Ep 5 on mouseUP show field "instructions" end mouseUP f cREVGeneral scriptChecksum &M@XV?8*Hg Q breakPoints 47 handlerList mouseUPscriptSelection char 40 to 39 bookmarks revUniqueID 1109284615761 prevHandler changeToReflectedVel tempScript script Yon mouseUP
show field "instructions"
end mouseUP
8 ball K\ (local x,y,vx,vy,v,penDown,r,tTargetList,tVelVector,tBndryLines,tSpeed,tStartLoc,myName local tCorners,W,H on mouseDown put the loc of grc "ball" into tLoc --put the loc of me into tEnd if there is no grc "v" then set the style of the templateGraphic to "line" create grc "v" end if if the optionkey is not down then grab me else put the name of me into myName end mouseDown on mouseUP -- Ignore these first few lines. They were used to set --the walls as a custom property. put the width me /2 into r put "" into tBndryLines put the width of this stack into W put the height of this stack into H put r,r,W-r,r & return after tBndryLines put W-r,r,W-r,H-r & return after tBndryLines put r,r,r,H-r & return after tBndryLines put r,H-r,W-r,H-r after tBndryLines --set the innerBoundary of this card to tBndryLines --put r,r&cr&W-r,r&cr&W-r,H-r&cr&r,H-r into tCorners put "" into myName --set the points of grc "v" to "" if the optionkey is down then doInit end mouseUP on mouseLeave mouseUP end mouseLeave on mouseMove u,v if myName is empty then exit mouseMOve doInit end if set the points of grc "v" to the loc of grc "ball" & cr& u,v end mouseMove on doInit put "" into myName --Delete the tracing repeat until the number of images is 0 delete image 1 end repeat put the thumbposition of scrollbar "speed" into tSpeed put the endValue of scrollbar "speed" - tSpeed into tSpeed --To draw or not to draw; that is the question. put the penState of me into pendown --The pencil tool is faster if penDown then choose the pencil tool --The radius of the cue ball is r. put the width of me /2 into r put the loc of me into tLoc put item 1 of tLoc into x put item 2 of tLoc into y --Get the components of the initial velocity from the --drawn out velocity line. --Use a constant v. Control the speed with the slider. put 5 into v put the points of grc "v" into tPoints --Hide the velocity line. set the points of grc "v" to "" put item 1 of line 2 of tPoints - item 1 of line 1 of tPoints into dx put item 2 of Line 2 of tPoints - item 2 of line 1 of tPoints into dy put atan2(dy,dx) into vAngle --put 180/pi*vAngle into vDegrees put v*cos(vANgle) into vx put v*sin(vAngle) into vy put "" into tTargetList repeat with i = 1 to the number of graphics put the name of grc i into tName if "Oval" is in the style of grc tName then if "Ball" is not in tName then if the opaque of grc tName is true then put the loc of grc i & comma & (the width of grc i)/2 & return after tTargetList end if end if end if end repeat --Start the iterated loop doMove end doInit on doMove put x,y,x+vx,y+vy into tVelVector put x,y into tBackEndOfVelVector put x,y into tLoc put x+vx,y+vy into tFrontEndOfVelVector --Check the target balls repeat for each line tLine in tTargetList --put theDist(item 1 of tLine,tVelVector) into s put item 1 to 2 of tLine into tTargetLoc put item 3 of tLine into tTargetRadius put PerpDist(tTargetLoc, tVelVector) into tImpactRadius if tImpactRadius < tTargetRadius +r then put theCollPt(tLine) into tCollLoc put theDist(tCollLoc,tLoc) into s put theDist(tBackEndOfVelVector,tTargetLoc) into sBI put theDist(tFrontEndOfVelVector,tTargetLoc) into sFI if sBI > sFI then --Get the radial line from the target to the cue ball. put tTargetLoc,tCollLoc into tRadialLine put tCollLoc & cr & tRadialLine& comma &pi/2 into tCollArray[s] put s & comma after tDistances end if end if end repeat --Now check the walls. if tDistances is empty then repeat for each line tLine in tBndryLines put intersection(tLine,tVelVector) into tIntersectionPt put theDist(tIntersectionPt,tBackEndOfVelVector) into sBI put theDist(tIntersectionPt,tFrontEndOfVelVector) into sFI put theDist(tFrontEndOfVelVector,tBackEndOfVelVector) into sV --Either the intersection point is in front of the velocity vector --or between the ends of the velocity vector. if sFIlocal x,y,vx,vy,v,penDown,r,tTargetList,tVelVector,tBndryLines,tSpeed,tStartLoc,myName
local tCorners,W,H
on mouseDown
put the loc of grc "ball" into tLoc
--put the loc of me into tEnd
if there is no grc "v" then
set the style of the templateGraphic to "line"
create grc "v"
end if
if the optionkey is not down then
grab me
else put the name of me into myName
end mouseDown
on mouseUP
-- Ignore these first few lines. They were used to set
--the walls as a custom property.
put the width me /2 into r
put "" into tBndryLines
put the width of this stack into W
put the height of this stack into H
put r,r,W-r,r & return after tBndryLines
put W-r,r,W-r,H-r & return after tBndryLines
put r,r,r,H-r & return after tBndryLines
put r,H-r,W-r,H-r after tBndryLines
--set the innerBoundary of this card to tBndryLines
--put r,r&cr&W-r,r&cr&W-r,H-r&cr&r,H-r into tCorners
put "" into myName
--set the points of grc "v" to ""
if the optionkey is down then doInit
end mouseUP
on mouseLeave
mouseUP
end mouseLeave
on mouseMove u,v
if myName is empty then
exit mouseMOve
doInit
end if
set the points of grc "v" to the loc of grc "ball" & cr& u,v
end mouseMove
on doInit
put "" into myName
--Delete the tracing
repeat until the number of images is 0
delete image 1
end repeat
put the thumbposition of scrollbar "speed" into tSpeed
put the endValue of scrollbar "speed" - tSpeed into tSpeed
--To draw or not to draw; that is the question.
put the penState of me into pendown
--The pencil tool is faster
if penDown then choose the pencil tool
--The radius of the cue ball is r.
put the width of me /2 into r
put the loc of me into tLoc
put item 1 of tLoc into x
put item 2 of tLoc into y
--Get the components of the initial velocity from the
--drawn out velocity line.
--Use a constant v. Control the speed with the slider.
put 5 into v
put the points of grc "v" into tPoints
--Hide the velocity line.
set the points of grc "v" to ""
put item 1 of line 2 of tPoints - item 1 of line 1 of tPoints into dx
put item 2 of Line 2 of tPoints - item 2 of line 1 of tPoints into dy
put atan2(dy,dx) into vAngle
--put 180/pi*vAngle into vDegrees
put v*cos(vANgle) into vx
put v*sin(vAngle) into vy
put "" into tTargetList
repeat with i = 1 to the number of graphics
put the name of grc i into tName
if "Oval" is in the style of grc tName then
if "Ball" is not in tName then
if the opaque of grc tName is true then
put the loc of grc i & comma & (the width of grc i)/2 & return after tTargetList
end if
end if
end if
end repeat
--Start the iterated loop
doMove
end doInit
on doMove
put x,y,x+vx,y+vy into tVelVector
put x,y into tBackEndOfVelVector
put x,y into tLoc
put x+vx,y+vy into tFrontEndOfVelVector
--Check the target balls
repeat for each line tLine in tTargetList
--put theDist(item 1 of tLine,tVelVector) into s
put item 1 to 2 of tLine into tTargetLoc
put item 3 of tLine into tTargetRadius
put PerpDist(tTargetLoc, tVelVector) into tImpactRadius
if tImpactRadius < tTargetRadius +r then
put theCollPt(tLine) into tCollLoc
put theDist(tCollLoc,tLoc) into s
put theDist(tBackEndOfVelVector,tTargetLoc) into sBI
put theDist(tFrontEndOfVelVector,tTargetLoc) into sFI
if sBI > sFI then
--Get the radial line from the target to the cue ball.
put tTargetLoc,tCollLoc into tRadialLine
put tCollLoc & cr & tRadialLine& comma &pi/2 into tCollArray[s]
put s & comma after tDistances
end if
end if
end repeat
--Now check the walls.
if tDistances is empty then
repeat for each line tLine in tBndryLines
put intersection(tLine,tVelVector) into tIntersectionPt
put theDist(tIntersectionPt,tBackEndOfVelVector) into sBI
put theDist(tIntersectionPt,tFrontEndOfVelVector) into sFI
put theDist(tFrontEndOfVelVector,tBackEndOfVelVector) into sV
--Either the intersection point is in front of the velocity vector
--or between the ends of the velocity vector.
if sFI<sBI or (sBI<sV and sFI<sV) then
put sBI into s
if s is not 0 then put tIntersectionPt& cr& tLine into tCollArray[s]
put s & comma after tDistances
end if
end repeat
end if
--Get the closest collision point.
put min(tDistances) into tMin
put tCollArray[tMin] into temp
put line 1 of temp into tCollLoc
put line 2 of temp into tTargetLine
if penDown then
drag from x,y to tCollLoc
end if
--At long last, do the move.
--I was worried about the time to execute these
--calculations above, but Run Rev came through
--like a champ.
--The move time is set to keep the speed constant,
--independent from the distance between collisions.
put theDist(tLoc,tCollLoc) into s
move me to theRound(tCollLoc) in s/v*tSpeed millisec
put item 1 of tCollLoc into x
put item 2 of tCollLoc into y
--Beeping works well in OS X, but not in Windows of OS 9.
if char 1 to 2 of the systemVersion is 10 then beep
--Now set the velocity for the next collion.
put theNewVel(tTargetLine)into tNewVel
put item 1 of tNewVel into vx
put item 2 of tNewVel into vy
if the shiftkey is down then
choose the browse tool
exit to top
end if
send "doMove" to me in 1 millisec
end doMove
function theCollPt tTarget
--This function determines where the cue ball
--will intersect the (expanded) target ball
--of radius r + a.
--Lots of geometry involved here.
put r+item 3 of tTarget into a
put theLineAngle(item 1 to 2 of tVelVector,item 3 to 4 of tVelVector) into angleV
put 180/pi*angleV into tempV
put item 1 to 2 of tTarget into tTargetLoc
put theLineAngle(the loc of me,tTargetLoc ) into angleC
put 180/pi*angleC into tempC
put angleV - angleC into alpha
if alpha is 0 then add .0001 to alpha
put theDist(the loc of me,tTargetLoc) into c
put c*sin(alpha)/a into sinGamma
if abs(sinGamma) > 1 then
choose the browse tool
exit to top
else put asin(sinGamma) into gamma
put pi - gamma into gamma
put 180/pi*gamma into tempGamma
if beta > pi/2 then put pi-alpha-gamma into beta
put 180/pi*beta into tempBeta
--put pi - beta into beta
put 180/pi*beta into tempBeta
put a*sin(beta)/sin(alpha) into b
put b*vx/v into dBx
put b*vy/v into dBy
put the loc of me into tLoc
put item 1 of tLoc into x
put item 2 of tLoc into y
put x+dBx,y+dBy into tCollLoc
return tCollLoc
end theCollPt
function theNextTarget xx,yy
--Examine the extended velocity line and
--determine which target is first intersected.
put xx,yy into tLoc
--First the the end points of the velocity line.
put item 1 to 2 of tVelVector into tBackOfVelVector
put item 3 to 4 of tVelVector into tFrontOfVelVector
--First look at the balls (red) only.
--Do this by droping a perpendicular line from
--each red ball onto the (extended) velociity line.
--The nearest of these intersection points is the next target ball.)
repeat for each line tLine in tTargetList
put item 1 to 2 of tLine into tTargetPt
put perpDist(tTargetPt,tVelVector) into d
if d < (r + item 3 of tLine) then
--Check to see if the target is in front of the cue ball
--and not behind. Ignore if behind.
if theDist(tFrontOfVelVector,tTargetPt)< theDist(tBackOfVelVector,tTargetPt) then
put tLine & return after tTargets
put theDist(tLoc,tTargetPt) & comma after tDistances
end if
end if
end repeat
if tDistances is not empty then
--Get the minimum distance.
put min(tDistances) into tMin
put itemOffset(tMin,tDistances) into tTargetNum
put line tTargetNum of tTargets into tTarget
--If there is no target ball AHEAD of the cue ball then
--look at the walls, boundary lines.
else
--Boundary intersection points.
--put the innerBoundary of this card into tBndryLines
repeat for each line tLine in tBndryLines
put intersection(tVelVector,tLine) & return after tBndryPtList
end repeat
--Get the minimum target wall in FRONT of the cue ball's path.
put "" into tDistances
repeat for each line tPt in tBndryPtList
put theDist(tLoc,tPt) & cr after tDistances
end repeat
put 10000 into tMin
repeat with i = 1 to the number of lines in tDistances
put line i of tDistances into tDist
put line i of tBndryPtList into tTargetPt
if tDist < tMin then
if theDist(tFrontOfVelVector,tTargetPt)\
< theDist(tBackOfVelVector,tTargetPt) then
put i into tMinNum
put tDist into tMin
end if
end if
end repeat
put line tMinNum of tBndryLines into tTarget
end if
return tTarget
end theNextTarget
function theDist p1,p2
--Square root of the sum of the squares.
put item 1 of p1 - item 1 of p2 into dx
put item 2 of p1 - item 2 of p2 into dy
return sqrt(dx*dx+dy*dy)
end theDist
function theLineAngle p1,p2
--Angle of line defined by the two points p1 and p2
put item 1 of p2 - item 1 of p1 into dx
put item 2 of p2 - item 2 of p1 into dy
put atan2(dy,dx) into tAngle
return tAngle
end theLineAngle
function theNewVel tLine
--This is a generic fuction which determines the
--spectral angle of reflection; work for collisions with both
--target ball or walls.
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put item 5 of tLine into tAddedAngle
put item 2 of p2 - item 2 of p1 into dy
put item 1 of p2 - item 1 of p1 into dx
--Angle of the line being intersected.
--This line could be a wall or
--a line tangent to a target ball at the
--the point of impact. That tangent line
--will be perpendicular to the radial line.
--Thus add 90 degrees to the radial line.
put aTan2(dy,dx) into angleL
put aTan2(vy,vx) into angleV
add tAddedAngle to angleL
put v * cos(2*angleL-angleV) into tVx--A little geometry here.
put v * sin (2*angleL - angleV) into tVy--And here.
return tVx,tVy
end theNewVel
function theRound tLine
--Utility function to round the two
--items in a line.
put round(item 1 of tLine) into item 1 of tLine
put round(item 2 of tLine) into item 2 of tLine
return tLine
end theRound
9 Next card Ep ) on mouseUP go to next card end mouseUP 4 f cREVGeneral scriptChecksum H8|@k:1 handlerList mouseUP breakPoints 47scriptSelection char 28 to 27 revUniqueID 1109343215595 bookmarks tempScript prevHandler changeToReflectedVelscript Con mouseUP
go to next card
end mouseUP
< Field 2 )` @ cREVGeneral revUniqueID 1109289526235 N Drag the cue ball to a point inside this field. Set the direction (shift/drag) to put the cue ball in the pocket (upper left.) (Hint: go slow, and use the pen down mode. @ Notice how precisely the cue ball must be directed to made a *direct* hit on the pocket. Even harder is it to strike both red balls before going in the pocket. @ = Circle KT on mouseDown grab me put the id of me into tID end mouseDown on mouseUP put the id of me into tID put the short Name of me & tID into tName if there is no grc tName then set the style of the templategraphic to "oval" set the opaque of the templateGraphic to false create grc tName end if put the width of me + the width of grc "ball" into W set the width of grc tName to W set the height of grc tName to W set the loc of grc tName to the loc of me end mouseUP 2 < < h cREVGeneral scriptChecksum 8u p5E revUniqueID 1109033759789 bookmarks handlerList mouseDown mouseUP tempScript prevHandler mouseUscriptSelection char 3 to 2scripton mouseDown
grab me
put the id of me into tID
end mouseDown
on mouseUP
put the id of me into tID
put the short Name of me & tID into tName
if there is no grc tName then
set the style of the templategraphic to "oval"
set the opaque of the templateGraphic to false
create grc tName
end if
put the width of me + the width of grc "ball" into W
set the width of grc tName to W
set the height of grc tName to W
set the loc of grc tName to the loc of me
end mouseUP
A Circle KTon mouseDown grab me end mouseDown on mouseUP put the id of me into tID put the short Name of me & tID into tName if there is no grc tName then set the style of the templategraphic to "oval" set the opaque of the templateGraphic to false create grc tName end if put the width of me + the width of grc "ball" into W set the width of grc tName to W set the height of grc tName to W set the loc of grc tName to the loc of me end mouseUP 8 { < < h cREVGeneral scriptChecksum s" bookmarks revUniqueID 1109282519719 handlerList mouseDown mouseUPscriptSelection char 468 to 467 prevHandler mouseU tempScript script ion mouseDown
grab me
end mouseDown
on mouseUP
put the id of me into tID
put the short Name of me & tID into tName
if there is no grc tName then
set the style of the templategraphic to "oval"
set the opaque of the templateGraphic to false
create grc tName
end if
put the width of me + the width of grc "ball" into W
set the width of grc tName to W
set the height of grc tName to W
set the loc of grc tName to the loc of me
end mouseUP
B Field 1 ) <, f cREVGeneral revUniqueID 1109284290642 N Speed C Field 1 ) 4 f cREVGeneral revUniqueID 1109284313341 N Draw or not D Field 1 ) ^6 f cREVGeneral revUniqueID 1109284325808 N Clean drawing F Instructions Ep 5 on mouseUP show field "instructions" end mouseUP f o cREVGeneral scriptChecksum &M@XV?8*Hg Q handlerList mouseUP breakPoints 47scriptSelection char 40 to 39 revUniqueID 1109284615761 bookmarks tempScript prevHandler changeToReflectedVelscript Yon mouseUP
show field "instructions"
end mouseUP
J Pocket `da 6 4 POCKET cREVGeneral revUniqueID 1109288373256 N L Go back Ep ) on mouseUP go to next card end mouseUP 4 f m cREVGeneral scriptChecksum H8|@k:1 handlerList mouseUP breakPoints 47scriptSelection char 28 to 27 revUniqueID 1109343305467 bookmarks tempScript prevHandler changeToReflectedVelscript Con mouseUP
go to next card
end mouseUP
P Next card Ep *on mouseUP go to next card end mouseUP R i cREVGeneral scriptChecksum 7Q]1ˋ revUniqueID 1109350437569 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 29 to 28script =on mouseUP
go to next card
end mouseUP
Q Speed ia 80 100 cREVGeneral bookmarks revUniqueID 1109350482391 handlerList scriptSelection char 1 to 0 prevHandler tempScript script R Pen down Ep$local vx,vy on mouseUP set the loc of grc "ball" to 200,200 if "down" is in the short name of me then set the penState of grc "Ball" to false set the name of me to "Pen up" else set the penState of grc "Ball" to true set the name of me to "Pen down" end if end mouseUP f k cREVGeneral scriptChecksum x5D؎ handlerList mouseUP breakPoints 47scriptSelection char 63 to 62 revUniqueID 1109350482392 bookmarks tempScript prevHandler changeToReflectedVelscriptlocal vx,vy
on mouseUP
set the loc of grc "ball" to 200,200
if "down" is in the short name of me then
set the penState of grc "Ball" to false
set the name of me to "Pen up"
else
set the penState of grc "Ball" to true
set the name of me to "Pen down"
end if
end mouseUP
S Clean Ep ] on mouseUP repeat until the number of images is 0 delete image 1 end repeat end mouseUP D Z k cREVGeneral scriptChecksum 7֦2ӯ`a¡~ breakPoints 47 handlerList mouseUPscriptSelection char 69 to 68 bookmarks revUniqueID 1109350482393 prevHandler changeToReflectedVel tempScript scripton mouseUP
repeat until the number of images is 0
delete image 1
end repeat
end mouseUP
T Instructions Ep 5 on mouseUP show field "instructions" end mouseUP f m cREVGeneral scriptChecksum &M@XV?8*Hg Q handlerList mouseUP breakPoints 47scriptSelection char 40 to 39 revUniqueID 1109350482394 bookmarks tempScript prevHandler changeToReflectedVelscript Yon mouseUP
show field "instructions"
end mouseUP
U Field 1 ) D f cREVGeneral revUniqueID 1109350482395 : Clean drawing V Field 1 ) f cREVGeneral revUniqueID 1109350482396 : Draw or not W Field 1 ) J f cREVGeneral revUniqueID 1109350482397 : Speed X Speed ia 80 100 cREVGeneral bookmarks revUniqueID 1109350779771 handlerList scriptSelection char 1 to 0 prevHandler tempScript script Y v @KF W \ > cREVGeneral revUniqueID 1109350779772 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script Z Field 1 ) \ f cREVGeneral revUniqueID 1109350779773 N Speed [ Pen down Ep local vx,vy on mouseUP if "down" is in the short name of me then set the penState of grc "Ball" to false set the name of me to "Pen up" else set the penState of grc "Ball" to true set the name of me to "Pen down" end if end mouseUP f k cREVGeneral scriptChecksum /^T*vS%i handlerList mouseUP breakPoints 47scriptSelection char 175 to 174 revUniqueID 1109350779774 bookmarks tempScript prevHandler changeToReflectedVelscriptlocal vx,vy
on mouseUP
if "down" is in the short name of me then
set the penState of grc "Ball" to false
set the name of me to "Pen up"
else
set the penState of grc "Ball" to true
set the name of me to "Pen down"
end if
end mouseUP
\ Field 1 ) V cREVGeneral revUniqueID 1109350779775 N Draw or not ] Clean Ep ] on mouseUP repeat until the number of images is 0 delete image 1 end repeat end mouseUP D Z m cREVGeneral scriptChecksum 7֦2ӯ`a¡~ breakPoints 47 handlerList mouseUPscriptSelection char 69 to 68 bookmarks revUniqueID 1109350779776 prevHandler changeToReflectedVel tempScript scripton mouseUP
repeat until the number of images is 0
delete image 1
end repeat
end mouseUP
^ Field 1 ) B f cREVGeneral revUniqueID 1109350779777 N Clean drawing ` First card Ep *on mouseUP go to next card end mouseUP R I cREVGeneral scriptChecksum 7Q]1ˋ revUniqueID 1109350779779 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 29 to 28script =on mouseUP
go to next card
end mouseUP
a Circle6185 K b S d d h cREVGeneral revUniqueID 1109350793365 b Circle6190 K ', d d h cREVGeneral revUniqueID 1109350795813 c Circle6186 K m d d h cREVGeneral revUniqueID 1109350797157 i Field 1 + , cREVGeneral revUniqueID 1109351597389 : Option drag and release Hold the shift key to stop the action j Circle6205 K d d h cREVGeneral revUniqueID 1109351703401 k Circle6209 K $ g d d h cREVGeneral revUniqueID 1109351706087 7 Instructions !p "on mouseUP hide me end mouseUP P cREVGeneral scriptChecksum o'՝'P revUniqueID 1109284671922 bookmarks handlerList mouseUP tempScript prevHandler scriptSelection char 21 to 20script 5on mouseUP
hide me
end mouseUP
: "(Click on this field to hide it.) @ ! @ How to set the action: @ @ QDrag the blue ball (hereafter referred to as the cue ball) to any position and release. Next shift-drag on the cue ball to determine the direction on the initial velocity of the cue ball. (This determines only the direction. The speed is controlled by the slider. Drag as far as you like; the effect is the same for a given direction.) @ P @ OVERY IMPORTANT: Be sure to release the mouse before you release the shift key. @ N @ `To stop the action, hold the OPTION key (not the shift key as before) UNTIL THE NEXT COLLISION. @ _ @ What you should see: @ @ The cue ball should "bounce" off of the red (target) balls and the walls. (The purpose of the larger, transparent circles is to define the effective cross-section for the collision. The radius of this circle is the radius of the target ball + the radius of the cue ball. In performing all the calculations, it is easiest to imagine the cue ball to be a point object and the targets amplified by the size of the blue ball. This applies to the walls as well as the targets. To see this effect, turn on the drawing mode--use the pen down mode. You will see a tracing of the CENTER of the blue ball. This tracing remains outside the cross-section circles, and, of course, the walls as well.) @ @ The tracing is prescient; it precedes the advance of the cue ball. This is easy to change. Just move the "drag" command in the cue ball script to a position after the "drag" command. @ @ @ How does it work? @ @ Rather than move the cue (blue) ball incrementally and then test whether it is within collision distance of the targets (red balls or one of the four walls) the cue ball examines its future trajectory and determines which target it would intersect first and then computes the point of intersection. It then moves to this point (using the RunRev "move" command for smoother motion and fewer display problems in OS X). The move in completed in a time equal to the distance to the intersection divided by the fixed velocity--distance divided by velocity is time. In this way, the speed of the cue ball is constant throughout the motion independant of the distance between targets. @ @ When it arrives at the target it calculates the angle for specular reflection (equal angles of incidence and reflection). It then heads the cue ball in this direction ready for the next cycle. This sequence is iterated until the handler (doMove) is stopped with the Option key. @ @ The disadvantage of this method is that it is complex. The advantage is the level of precision and the smooth motion. If one uses incremental motions (move forward in small steps proportional to the velocity and pollling the targets), the problem is that the cue ball must advance to a point INSIDE the target. The distance of intrusion will be somewhere between 0 and V, the length of the velocity step. @ @ 4The need for precision depends on the use. For just banging around, use the step method. But if one wanted to play bumper pool, the trajectory is very sensitive to the point of intersection (see practice chalenge on the next card) and this method of predestination (to put it in biblical terms) is better. @ 3 @ RI will not brag about this interface. Hopefully, you will discover a better way. @ Q @ FScripts can be found in the cue ball, the target balls, and the card. @ E ; ` N ball K\ )Slocal x,y,vx,vy,v,penDown,r,tTargetList,tVelVector,tBndryLines,tSpeed,tStartLoc,myName local tCorners,W,H on mouseDown put the loc of grc "ball" into tLoc --put the loc of me into tEnd if there is no grc "v" then set the style of the templateGraphic to "line" create grc "v" end if if the optionkey is not down then grab me else put the name of me into myName end mouseDown on mouseUP -- Ignore these first few lines. They were used to set --the walls as a custom property. put the width me /2 into r put "" into tBndryLines put the width of this stack into W put the height of this stack into H put r,r,W-r,r & return after tBndryLines put W-r,r,W-r,H-r & return after tBndryLines put r,r,r,H-r & return after tBndryLines put r,H-r,W-r,H-r after tBndryLines --set the innerBoundary of this card to tBndryLines --put r,r&cr&W-r,r&cr&W-r,H-r&cr&r,H-r into tCorners put "" into myName --set the points of grc "v" to "" if the optionkey is down then doInit end mouseUP on mouseLeave mouseUP end mouseLeave on mouseMove u,v if myName is empty then exit mouseMOve doInit end if set the points of grc "v" to the loc of grc "ball" & cr& u,v end mouseMove on doInit put "" into myName --Delete the tracing repeat until the number of images is 0 delete image 1 end repeat put the thumbposition of scrollbar "speed" into tSpeed put the endValue of scrollbar "speed" - tSpeed into tSpeed --To draw or not to draw; that is the question. put the penState of me into pendown --The pencil tool is faster if penDown then choose the pencil tool --The radius of the cue ball is r. put the width of me /2 into r put the loc of me into tLoc put item 1 of tLoc into x put item 2 of tLoc into y --Get the components of the initial velocity from the --drawn out velocity line. --Use a constant v. Control the speed with the slider. put 5 into v put the points of grc "v" into tPoints --Hide the velocity line. set the points of grc "v" to "" put item 1 of line 2 of tPoints - item 1 of line 1 of tPoints into dx put item 2 of Line 2 of tPoints - item 2 of line 1 of tPoints into dy put atan2(dy,dx) into vAngle --put 180/pi*vAngle into vDegrees put v*cos(vANgle) into vx put v*sin(vAngle) into vy put "" into tTargetList repeat with i = 1 to the number of graphics put the name of grc i into tName if "Oval" is in the style of grc tName then if "Ball" is not in tName then if the opaque of grc tName is true then put the loc of grc i & comma & (the width of grc i)/2 & return after tTargetList end if end if end if end repeat --Start the iterated loop doMove end doInit on doMove put x,y,x+vx,y+vy into tVelVector put x,y into tBackEndOfVelVector put x,y into tLoc put x+vx,y+vy into tFrontEndOfVelVector --Check the target balls repeat for each line tLine in tTargetList --put theDist(item 1 of tLine,tVelVector) into s put item 1 to 2 of tLine into tTargetLoc put item 3 of tLine into tTargetRadius put PerpDist(tTargetLoc, tVelVector) into tImpactRadius if tImpactRadius < tTargetRadius +r then put theCollPt(tLine) into tCollLoc put theDist(tCollLoc,tLoc) into s put theDist(tBackEndOfVelVector,tTargetLoc) into sBI put theDist(tFrontEndOfVelVector,tTargetLoc) into sFI if sBI > sFI then --Get the radial line from the target to the cue ball. put tTargetLoc,tCollLoc into tRadialLine put tCollLoc & cr & tRadialLine& comma &pi/2 into tCollArray[s] put s & comma after tDistances end if end if end repeat --Now check the walls. if tDistances is empty then repeat for each line tLine in tBndryLines put intersection(tLine,tVelVector) into tIntersectionPt put theDist(tIntersectionPt,tBackEndOfVelVector) into sBI put theDist(tIntersectionPt,tFrontEndOfVelVector) into sFI put theDist(tFrontEndOfVelVector,tBackEndOfVelVector) into sV --Either the intersection point is in front of the velocity vector --or between the ends of the velocity vector. if sFIlocal x,y,vx,vy,v,penDown,r,tTargetList,tVelVector,tBndryLines,tSpeed,tStartLoc,myName
local tCorners,W,H
on mouseDown
put the loc of grc "ball" into tLoc
--put the loc of me into tEnd
if there is no grc "v" then
set the style of the templateGraphic to "line"
create grc "v"
end if
if the optionkey is not down then
grab me
else put the name of me into myName
end mouseDown
on mouseUP
-- Ignore these first few lines. They were used to set
--the walls as a custom property.
put the width me /2 into r
put "" into tBndryLines
put the width of this stack into W
put the height of this stack into H
put r,r,W-r,r & return after tBndryLines
put W-r,r,W-r,H-r & return after tBndryLines
put r,r,r,H-r & return after tBndryLines
put r,H-r,W-r,H-r after tBndryLines
--set the innerBoundary of this card to tBndryLines
--put r,r&cr&W-r,r&cr&W-r,H-r&cr&r,H-r into tCorners
put "" into myName
--set the points of grc "v" to ""
if the optionkey is down then doInit
end mouseUP
on mouseLeave
mouseUP
end mouseLeave
on mouseMove u,v
if myName is empty then
exit mouseMOve
doInit
end if
set the points of grc "v" to the loc of grc "ball" & cr& u,v
end mouseMove
on doInit
put "" into myName
--Delete the tracing
repeat until the number of images is 0
delete image 1
end repeat
put the thumbposition of scrollbar "speed" into tSpeed
put the endValue of scrollbar "speed" - tSpeed into tSpeed
--To draw or not to draw; that is the question.
put the penState of me into pendown
--The pencil tool is faster
if penDown then choose the pencil tool
--The radius of the cue ball is r.
put the width of me /2 into r
put the loc of me into tLoc
put item 1 of tLoc into x
put item 2 of tLoc into y
--Get the components of the initial velocity from the
--drawn out velocity line.
--Use a constant v. Control the speed with the slider.
put 5 into v
put the points of grc "v" into tPoints
--Hide the velocity line.
set the points of grc "v" to ""
put item 1 of line 2 of tPoints - item 1 of line 1 of tPoints into dx
put item 2 of Line 2 of tPoints - item 2 of line 1 of tPoints into dy
put atan2(dy,dx) into vAngle
--put 180/pi*vAngle into vDegrees
put v*cos(vANgle) into vx
put v*sin(vAngle) into vy
put "" into tTargetList
repeat with i = 1 to the number of graphics
put the name of grc i into tName
if "Oval" is in the style of grc tName then
if "Ball" is not in tName then
if the opaque of grc tName is true then
put the loc of grc i & comma & (the width of grc i)/2 & return after tTargetList
end if
end if
end if
end repeat
--Start the iterated loop
doMove
end doInit
on doMove
put x,y,x+vx,y+vy into tVelVector
put x,y into tBackEndOfVelVector
put x,y into tLoc
put x+vx,y+vy into tFrontEndOfVelVector
--Check the target balls
repeat for each line tLine in tTargetList
--put theDist(item 1 of tLine,tVelVector) into s
put item 1 to 2 of tLine into tTargetLoc
put item 3 of tLine into tTargetRadius
put PerpDist(tTargetLoc, tVelVector) into tImpactRadius
if tImpactRadius < tTargetRadius +r then
put theCollPt(tLine) into tCollLoc
put theDist(tCollLoc,tLoc) into s
put theDist(tBackEndOfVelVector,tTargetLoc) into sBI
put theDist(tFrontEndOfVelVector,tTargetLoc) into sFI
if sBI > sFI then
--Get the radial line from the target to the cue ball.
put tTargetLoc,tCollLoc into tRadialLine
put tCollLoc & cr & tRadialLine& comma &pi/2 into tCollArray[s]
put s & comma after tDistances
end if
end if
end repeat
--Now check the walls.
if tDistances is empty then
repeat for each line tLine in tBndryLines
put intersection(tLine,tVelVector) into tIntersectionPt
put theDist(tIntersectionPt,tBackEndOfVelVector) into sBI
put theDist(tIntersectionPt,tFrontEndOfVelVector) into sFI
put theDist(tFrontEndOfVelVector,tBackEndOfVelVector) into sV
--Either the intersection point is in front of the velocity vector
--or between the ends of the velocity vector.
if sFI<sBI or (sBI<sV and sFI<sV) then
put sBI into s
if s is not 0 then put tIntersectionPt& cr& tLine into tCollArray[s]
put s & comma after tDistances
end if
end repeat
end if
--Get the closest collision point.
put min(tDistances) into tMin
put tCollArray[tMin] into temp
put line 1 of temp into tCollLoc
put line 2 of temp into tTargetLine
if penDown then
drag from x,y to tCollLoc
end if
--At long last, do the move.
--I was worried about the time to execute these
--calculations above, but Run Rev came through
--like a champ.
--The move time is set to keep the speed constant,
--independent from the distance between collisions.
put theDist(tLoc,tCollLoc) into s
move me to theRound(tCollLoc) in s/v*tSpeed millisec
if the loc of me is within the rect of button "pocket" then
put "Success" into msg box
choose the browse tool
exit to top
end if
put item 1 of tCollLoc into x
put item 2 of tCollLoc into y
--Beeping works well in OS X, but not in Windows of OS 9.
if char 1 to 2 of the systemVersion is 10 then beep
--Now set the velocity for the next collion.
put theNewVel(tTargetLine)into tNewVel
put item 1 of tNewVel into vx
put item 2 of tNewVel into vy
if the shiftkey is down then
choose the browse tool
exit to top
end if
send "doMove" to me in 1 millisec
end doMove
function theCollPt tTarget
--This function determines where the cue ball
--will intersect the (expanded) target ball
--of radius r + a.
--Lots of geometry involved here.
put r+item 3 of tTarget into a
put theLineAngle(item 1 to 2 of tVelVector,item 3 to 4 of tVelVector) into angleV
put 180/pi*angleV into tempV
put item 1 to 2 of tTarget into tTargetLoc
put theLineAngle(the loc of me,tTargetLoc ) into angleC
put 180/pi*angleC into tempC
put angleV - angleC into alpha
if alpha is 0 then add .0001 to alpha
put theDist(the loc of me,tTargetLoc) into c
put c*sin(alpha)/a into sinGamma
if abs(sinGamma) > 1 then
choose the browse tool
exit to top
else put asin(sinGamma) into gamma
put pi - gamma into gamma
put 180/pi*gamma into tempGamma
if beta > pi/2 then put pi-alpha-gamma into beta
put 180/pi*beta into tempBeta
--put pi - beta into beta
put 180/pi*beta into tempBeta
put a*sin(beta)/sin(alpha) into b
put b*vx/v into dBx
put b*vy/v into dBy
put the loc of me into tLoc
put item 1 of tLoc into x
put item 2 of tLoc into y
put x+dBx,y+dBy into tCollLoc
return tCollLoc
end theCollPt
function theNextTarget xx,yy
--Examine the extended velocity line and
--determine which target is first intersected.
put xx,yy into tLoc
--First the the end points of the velocity line.
put item 1 to 2 of tVelVector into tBackOfVelVector
put item 3 to 4 of tVelVector into tFrontOfVelVector
--First look at the balls (red) only.
--Do this by droping a perpendicular line from
--each red ball onto the (extended) velociity line.
--The nearest of these intersection points is the next target ball.)
repeat for each line tLine in tTargetList
put item 1 to 2 of tLine into tTargetPt
put perpDist(tTargetPt,tVelVector) into d
if d < (r + item 3 of tLine) then
--Check to see if the target is in front of the cue ball
--and not behind. Ignore if behind.
if theDist(tFrontOfVelVector,tTargetPt)< theDist(tBackOfVelVector,tTargetPt) then
put tLine & return after tTargets
put theDist(tLoc,tTargetPt) & comma after tDistances
end if
end if
end repeat
if tDistances is not empty then
--Get the minimum distance.
put min(tDistances) into tMin
put itemOffset(tMin,tDistances) into tTargetNum
put line tTargetNum of tTargets into tTarget
--If there is no target ball AHEAD of the cue ball then
--look at the walls, boundary lines.
else
--Boundary intersection points.
--put the innerBoundary of this card into tBndryLines
repeat for each line tLine in tBndryLines
put intersection(tVelVector,tLine) & return after tBndryPtList
end repeat
--Get the minimum target wall in FRONT of the cue ball's path.
put "" into tDistances
repeat for each line tPt in tBndryPtList
put theDist(tLoc,tPt) & cr after tDistances
end repeat
put 10000 into tMin
repeat with i = 1 to the number of lines in tDistances
put line i of tDistances into tDist
put line i of tBndryPtList into tTargetPt
if tDist < tMin then
if theDist(tFrontOfVelVector,tTargetPt)\
< theDist(tBackOfVelVector,tTargetPt) then
put i into tMinNum
put tDist into tMin
end if
end if
end repeat
put line tMinNum of tBndryLines into tTarget
end if
return tTarget
end theNextTarget
function theDist p1,p2
--Square root of the sum of the squares.
put item 1 of p1 - item 1 of p2 into dx
put item 2 of p1 - item 2 of p2 into dy
return sqrt(dx*dx+dy*dy)
end theDist
function theLineAngle p1,p2
--Angle of line defined by the two points p1 and p2
put item 1 of p2 - item 1 of p1 into dx
put item 2 of p2 - item 2 of p1 into dy
put atan2(dy,dx) into tAngle
return tAngle
end theLineAngle
function theNewVel tLine
--This is a generic fuction which determines the
--spectral angle of reflection; work for collisions with both
--target ball or walls.
put item 1 to 2 of tLine into p1
put item 3 to 4 of tLine into p2
put item 5 of tLine into tAddedAngle
put item 2 of p2 - item 2 of p1 into dy
put item 1 of p2 - item 1 of p1 into dx
--Angle of the line being intersected.
--This line could be a wall or
--a line tangent to a target ball at the
--the point of impact. That tangent line
--will be perpendicular to the radial line.
--Thus add 90 degrees to the radial line.
put aTan2(dy,dx) into angleL
put aTan2(vy,vx) into angleV
add tAddedAngle to angleL
put v * cos(2*angleL-angleV) into tVx--A little geometry here.
put v * sin (2*angleL - angleV) into tVy--And here.
return tVx,tVy
end theNewVel
function theRound tLine
--Utility function to round the two
--items in a line.
put round(item 1 of tLine) into item 1 of tLine
put round(item 2 of tLine) into item 2 of tLine
return tLine
end theRound
7 Reset ball Ep ?on mouseUP set the loc of grc "ball" to 200,200 end mouseUP f cREVGeneral scriptChecksum }o52ȝt;( breakPoints 47 handlerList mouseUPscriptSelection char 50 to 49 bookmarks revUniqueID 1109530155673 prevHandler changeToReflectedVel tempScript script \on mouseUP
set the loc of grc "ball" to 200,200
end mouseUP
e D PNG IHDR Q:L gAMA =-f PLTE ٟ tRNS 0J IDATxұ 0iv22}AfL؍x*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR JAk)UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UPTAR J*(UP UUlxv IENDB` cREVGeneral revUniqueID 1109696953464