'From Jasmine-rc1 of 7 October 2004 [latest update: #280] on 26 October 2005 at 1:42:27 pm'! !QPitch methodsFor: 'as yet unclassified' stamp: 'Ryan 10/22/2005 02:35'! blueCannon ^blueCannon.! ! !QPitch methodsFor: 'as yet unclassified' stamp: 'Ryan 10/22/2005 15:52'! futureList ^futureList.! ! !QPitch methodsFor: 'as yet unclassified' stamp: 'Ryan 10/22/2005 16:01'! recalculateAllBalls blueCannon ifNotNil: [ blueCannon allBalls ifNotNil: [ blueCannon allBalls do: [ :b | self purgeFutureMessagesToBall: b. b baseLocation: (b baseLocation) velocity: (b velocity) baseTime: (b baseTime). ]. ]. ].! ! !QQCarpet methodsFor: 'as yet unclassified' stamp: 'Ryan 10/22/2005 03:17'! frameChanged super frameChanged. qpitch ifNotNil: [ self updateCounter. ].! ! !QQCarpet methodsFor: 'as yet unclassified' stamp: 'Ryan 10/22/2005 03:13'! initialize super initialize. front _ TRectangle new. back _ TRectangle new. back rotationAroundY: 180. self addChild: front. self addChild: back. " center _ TCube new extentX: 0.1 y: 0.1 z: 0.1 . center colorize: Color orange asB3DColor. self addChild: center. nw _ TCube new extentX: 0.1 y: 0.1 z: 0.1 . nw colorize: Color orange asB3DColor. self addChild: nw. se _ TCube new extentX: 0.1 y: 0.1 z: 0.1 . se colorize: Color orange asB3DColor. self addChild: se. " impactCube _ TCube new. impactCube extentX: 0.1 y: 0.1 z: 0.1 . impactCube colorize: Color white asB3DColor. self addChild: impactCube. changes _ 0! ! !QQCarpet methodsFor: 'as yet unclassified' stamp: 'Ryan 10/22/2005 02:30'! qpitch ^qpitch.! ! !QQCarpet methodsFor: 'as yet unclassified' stamp: 'Ryan 10/22/2005 15:48'! updateCounter changes _ changes +1. (changes = 5) ifTrue: [ qpitch recalculateAllBalls. changes _ 0. ].! !