Код IT
← Каталог

Smalltalk — SmallShooter — 0.2 Класс ShooterPlayfieldMorph

Фрагмент из «Smalltalk — SmallShooter»: 0.2 Класс ShooterPlayfieldMorph.

smalltalk smalltalkencyclopedia44 embed URL статья в энциклопедии
Smalltalk main.st 
initializeWithGame: aGame
    super initialize.
    game := aGame.
    self buildStars

buildStars
    | extent |
    extent := game fieldExtent.
    stars := OrderedCollection new.
    80 timesRepeat: [
        stars add: {
            extent x atRandom.
            extent y atRandom.
            (0.2 + (0.8 atRandom)).
            (1 + 2 atRandom)
        } ]
initializeWithGame: aGame
    super initialize.
    game := aGame.
    self buildStars

buildStars
    | extent |
    extent := game fieldExtent.
    stars := OrderedCollection new.
    80 timesRepeat: [
        stars add: {
            extent x atRandom.
            extent y atRandom.
            (0.2 + (0.8 atRandom)).
            (1 + 2 atRandom)
        } ]