'From Squeakland.396-Nihongo7.29 of 18 March 2005 [latest update: #80] on 5 April 2005 at 7:54:52 pm'!
"Change Set:		VideoToys
Date:			5 April 2005
Author:			Takashi Yamamiya

<your descriptive text goes here>"!


!Player methodsFor: 'slot getters/setters' stamp: 'tak 4/5/2005 19:53'!
getAverageOfBrightness
	^ costume renderedMorph getAverageOfBrightness * 1000! !

!Player methodsFor: 'slot getters/setters' stamp: 'tak 4/5/2005 19:34'!
getIsConnected
	^ self costume renderedMorph isConnected! !

!Player methodsFor: 'slot getters/setters' stamp: 'tak 4/5/2005 19:34'!
setIsConnected: aBoolean 
	^ self costume renderedMorph isConnected: aBoolean! !


!VPVideoMorph methodsFor: 'stepping' stamp: 'tak 4/5/2005 18:52'!
step
	videoSource ifNil: [^self].
	form _ videoSource frame: channel.
	self changed! !

!VPVideoMorph methodsFor: 'e-toy support' stamp: 'tak 4/5/2005 19:13'!
color
	| miniForm |
"	self haltOnlyOnce."
	miniForm _ form scaledToSize:2@2.
"	miniForm asMorph drawOn: Display getCanvas."
	^ miniForm colorAt: 0@0.
! !

!VPVideoMorph methodsFor: 'e-toy support' stamp: 'ka 10/20/2003 22:15'!
getAverageOfBrightness
	| sampleSize sumOfBrightness thinnedOut |
	sampleSize _ sumOfBrightness _ 0.
	thinnedOut _ 10.
	0
		to: form width - 1
		by: thinnedOut
		do: [:x | 0
				to: form height - 1
				by: thinnedOut
				do: [:y | 
					sumOfBrightness _ sumOfBrightness + (form colorAt: x @ y) brightness.
					sampleSize _ sampleSize + 1]].
	^ sumOfBrightness / sampleSize! !

!VPVideoMorph methodsFor: 'e-toy support' stamp: 'tak 4/5/2005 19:23'!
isConnected
	^ self videoSource isConnected! !

!VPVideoMorph methodsFor: 'e-toy support' stamp: 'tak 4/5/2005 19:24'!
isConnected: aBoolean 
	aBoolean
		ifTrue: [self videoSource connect]
		ifFalse: [self videoSource disconnect]! !


!VPVideoMorph class methodsFor: 'scripting' stamp: 'tak 4/5/2005 19:28'!
additionsToViewerCategories
	^ #(#(#'color & border' #(#(#slot #averageOfBrightness 'average of brightness' #Number #readOnly #Player #getAverageOfBrightness #unused #unused)))
#(#'basic' #(#(#slot #isConnected 'whether connected or not' #Boolean #readWrite #Player #getIsConnected #Player #setIsConnected:)))
 )
! !