Salut,
oui désolé je vais vous mettre tous les codes correspondants :
Self rules et sel managedbassin sont des attributs de la classe "pm" et c'est dans "pm" que l'on trouve "affect bassin".
Leur init est :
1 2
| self managedBasins: OrderedCollection new.
self rules: OrderedCollection new. |
myUsers : est un attribut de riverBassin
self myUsers: OrderedCollection new.
et vb correspond à
self validationBasins do: [:vb |vb components do: [:c | vb myUsers addAll: (c theOccupants at: #User)]].
et myDistanceToaggregate :
1 2 3 4 5 6 7 8 9 10
| minimumDistanceToAggregate: aSpatialEntityAggregate
"returns the minimum distance in cells, between the sender and aSpatialEntityAggregate"
| dist b |
dist := 100000000000000000.
aSpatialEntityAggregate surround do:
[:aComponent |
b := aComponent distCell: self.
b < dist ifTrue: [dist := b]].
^dist |
Si il manque quelque chose dites le moi?
Partager