-- Note from Peter Brinson:
-- I found this on www.director-online.com.  It's by Pat McClellan

property pFirstSprite, pSecondSprite, pSprite, pMem

-- this behavior connects sprite1 and sprite2 with a dynamically adjusting vector line

on getPropertyDescriptionList me
  set pdlist to [:]
  addprop pdlist, #pFirstSprite, [#comment:"First Sprite", #format:#integer, #default:4]
  addprop pdlist, #pSecondSprite, [#comment:"Second Sprite", #format:#integer, #default:5]
  return pdlist
end getPropertyDescriptionList

on beginSprite me
  pSprite = sprite(me.spritenum)
  pSprite.trails = 1
  pSprite.blend = 20
  pMem = pSprite.member
  pMem.centerRegPoint = 0
end

on prepareFrame me
  pSprite.loc = sprite(pFirstSprite).loc
  deltaLoc = sprite(pSecondSprite).loc - sprite(pFirstSprite).loc
  pMem.vertexList = [[#vertex: point(0,0)], [#vertex: deltaLoc]]
end