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

SmallPong на Morphic — практикум — 2.1. Протокол accessing

Фрагмент из «SmallPong на Morphic — практикум»: 2.1. Протокол accessing.

Smalltalk main.st
ballPosition
	^ ballX @ ballY

fieldExtent
	^ fieldWidth @ fieldHeight

paddleExtent
	^ paddleWidth @ paddleHeight

leftPaddleOrigin
	^ 10 @ leftPaddleY

rightPaddleOrigin
	^ (fieldWidth - 10 - paddleWidth) @ rightPaddleY

leftScore
	^ leftScore

rightScore
	^ rightScore

paused
	^ paused

gameOver
	^ gameOver

winner
	^ winner
ballPosition
	^ ballX @ ballY

fieldExtent
	^ fieldWidth @ fieldHeight

paddleExtent
	^ paddleWidth @ paddleHeight

leftPaddleOrigin
	^ 10 @ leftPaddleY

rightPaddleOrigin
	^ (fieldWidth - 10 - paddleWidth) @ rightPaddleY

leftScore
	^ leftScore

rightScore
	^ rightScore

paused
	^ paused

gameOver
	^ gameOver

winner
	^ winner