Clone Wars: Papa quiero un robot: CachaTuga: S4A

Iteracion 0

Nuevos Bloques añadidos

En la clase ArduinoScratchSpriteMorph bajo el protocolo cachatuga commands he creado las nueva variables turtleBotDirections

turtleBotDirections

	^ #(
		  'forward'
		  'backward'
	)

y turtleBotDirections

turtleBotTurnDirections

	^ #(
		  'right'
		  'left'	
	)

Para que se pueda utilizar hay que añadirla en el método uncoloredargMorphFor de la clase CommandBlockMorph de la categoría Scratch-Blocks

	$j = t2 ifTrue: [^ ChoiceArgMorph new getOptionsSelector: #turtleBotDirections].
	$J = t2 ifTrue: [^ ChoiceArgMorph new getOptionsSelector: #turtleBotTurnDirections].

En la categoría de sistema S4A en la clase ArduinoScratchSpriteMorph en el método blockSpecs he añadido los siguientes bloques:

	-
	('turtle move %n steps'			-	turtleGo: 4 )
	('turtle turn %n grades %j'		-	turtleTurn:direction: 90 'right')
	('turtle pen up'			-	turtlePenUp)
	('turtle pen down'			-	turtlePenDown)

Nuevos Métodos añadidos

En la categoría de sistema S4A en la clase ArduinoScratchSpriteMorph en el protocolo cachatuga commands he añadido los siguientes métodos:

• turtleGo: steps direction: direction

turtleGo: steps direction: direction 
	'backward' = direction
		ifTrue: 
			[self arduinoBoard servomotor: 4 direction: 'anticlockwise'.
			self arduinoBoard servomotor: 7 direction: 'clockwise'].
	'forward' = direction
		ifTrue: 
			[self arduinoBoard servomotor: 4 direction: 'clockwise'.
			self arduinoBoard servomotor: 7 direction: 'anticlockwise']

• turtlePenDown
• turtlePenUp
• turtleTurn: grades direction: direction