Ok this is a little follow on to David's BlobMorph. Why not embedded a movie in the blob I thought. So with a few minutes of help from John Maloney we have something very interesting.

Enjoy John M McIntosh <johnmci@smalltalkconsulting.com> Dec 2000. (Christmas early)

	drawing
	drawOn: playStream: playVideoStream:

	initialization
	initialize:mpegPlayer: initializeBlobShape initializeChildMpegPlayer: initializePrimaryMpegPlayer:

	stepping
	adjustColors limitRange: mergeBlobs stepTime

	access	top
	form
	form:
	movieDrawArea
	mpegLogic
	mpegLogic:
	primary
	quadNumber
	quadNumber:
	stream

	drawing	top
	drawOn: Display the receiver, a spline curve, approximated by straight line segments. Fill with the MPEG movie
	playStream:
	playVideoStream:

	initialization	top
	initialize:mpegPlayer:
	initializeBlobShape
	initializeChildMpegPlayer:
	initializePrimaryMpegPlayer:

	stepping	top
	adjustColors Bob Arning <arning@charm.net>
	limitRange: limit radius to range 20-120; limit interpoint angle to surrounding angles with max of twice of average separation.
	mergeBlobs See if we need to merge by checking our bounds against all other Blob bounds, then all our vertices against any Blob with overlapping bounds. If we find a need to merge, then someone else does all the work.
	stepTime Answer the desired time between steps in milliseconds.

	instance creation	top
	buildMorphics:
	newWithMovie:
	newWithMovieNoSound: