'From VisualWorks® NonCommercial, Release 5i.4 of August 9, 2001 on June 17, 2002 at 5:43:57 pm'!


!CormasNS.Kernel.CormasModel methodsFor: 'init'!

init
	self initCells.
	self initAgents.
	self initData!

initAgents
	"a voir :  report au niveau de initSimulation"

	self class socialClasses do: 
			[:a | 
			a CurrentId: 0.
			self perform: ('the' , a name asString , 's:') asSymbol
				with: OrderedCollection new]!

initCells
	| theCells |
	theCells := 'the' , self class cellClass name asString , 's'.
	self class locatedClasses isEmpty
		ifTrue: [(self perform: theCells asSymbol)
				do: [:ese | ese init: self spaceModel]]
		ifFalse: [(self perform: theCells asSymbol)
				do: 
					[:ese | 
					ese init: self spaceModel.
					ese initOcc: self class locatedClasses]]!

initCells: initSelector 
	| theCells |
	theCells := 'the' , self class cellClass name asString , 's'.
	self class locatedClasses isEmpty
		ifTrue: [(self perform: theCells asSymbol)
				do: [:ese | ese spaceModel: self spaceModel; perform: initSelector]]
		ifFalse: [(self perform: theCells asSymbol)
				do: 
					[:ese | 
					ese spaceModel: self spaceModel; perform: initSelector.
					ese initOcc: self class locatedClasses]]!

initCells: initSelector withArguments: argumentCollection 
	| theCells |
	theCells := 'the' , self class cellClass name asString , 's'.
	self class locatedClasses isEmpty
		ifTrue: [(self perform: theCells asSymbol)
				do: [:ese | ese spaceModel: self spaceModel; perform: initSelector withArguments: argumentCollection]]
		ifFalse: [(self perform: theCells asSymbol)
				do: 
					[:ese | 
					ese spaceModel: self spaceModel; perform: initSelector withArguments: argumentCollection.
					ese initOcc: self class locatedEntities]]!

initObjects
	"a voir :  report au niveau de initSimulation"

	self class passiveClasses do: 
			[:a | 
			a CurrentId: 0.
			self perform: ('the' , a name asString , 's:') asSymbol
				with: OrderedCollection new]! !