-- july-aug 2002

-- mflanagan  mary@maryflanagan.com

-- program [remotion] utilizing "TrackThemColors" xtra for director

-- Make sure TrackThemColors Xtra is in the same folder as the application, that you run it on a pc, 

-- and that you have a camera hooked up to the computer running the program. 

-- If no camera is hooked up, the project won't run correctly.

-- your webcam must use the video for windows (vfw) drivers!

global trackObj

on startMovie

 openXlib "TrackThemColors.x32"

 openXlib "TrackThemColorsDemo.x32"


  set trackObj = new(xtra "TrackThemColors")

  --trackObj is container for ttc


  trackObj.initVideo(320,240, 1)

  --initializes videocam



  --this puts the video into a cast member buffer to prevent video direct to stage way

  --trackObj.showVideo(rect(0,0, 320, 240), rect (0,0,320,240))



on stopmovie


  set trackObj = 0






global trackObj

on exitFrame me



  myRectList=trackObj.trackChangeBlobs (255,0,5)

  --return values from the method are as follows:

  --number 1==change(number between 0 - 442), 

  --number 2=difference from reference 

  --(0 -compare this frame to the previous frame. 

  --1 - Compare this frame to a reference frame), 

  --number 3=and the padding (how close two blobs are!)


  orderList = [:]


  repeat with i in myRectList

    area = (i[3] - i[1]) * (i[4] - i[2])

    cx = (i[3] + i[1]) /2

    cy = (i[4] + i[2]) /2

    orderList.addProp(area, point(cx, cy))

  end repeat







  if (myNumRect >= 3) then

    sprite(1).loc = orderList[myNumRect]

    sprite(2).loc = orderList[myNumRect-1]

    sprite(3).loc = orderList[myNumRect-2]


   --    oneRect = myRectList[1]


  end if




  go to the frame



Note: You can download [remotion] here as uncompiled Director movie. You also have to download the xtra used in the project.

Click here to see a Web demo of the project: