53 lines
1.2 KiB
Plaintext
53 lines
1.2 KiB
Plaintext
module Spark_I2C 'cat;Output'
|
|
author FABLAB
|
|
version 1 1
|
|
depends '_Gesture (PAJ7620)'
|
|
choices direction clockwise 'counter-clockwise'
|
|
description ''
|
|
variables Gesture
|
|
|
|
spec 'r' 'Gesture Read' 'Gesture Read'
|
|
space
|
|
spec ' ' 'Motor Driver A' 'Motor Driver A Direction _ Speed _' 'menu.direction num' 'clockwise' 10
|
|
spec ' ' 'Motor Driver B' 'Motor Driver B Direction _ Speed _' 'menu.direction num' 'clockwise' 10
|
|
spec 'r' '_Direction' '_Motor Direction _' 'menu.direction' '10'
|
|
|
|
to Direction Direction {
|
|
if (Direction == ('[data:toString]' 'counter-clockwise')) {
|
|
return (booleanConstant false)
|
|
} else {
|
|
return (booleanConstant true)
|
|
}
|
|
}
|
|
|
|
to 'Gesture Read' {
|
|
return ('paj7620 read')
|
|
}
|
|
|
|
to 'Motor Driver A' Direction Speed {
|
|
if ((Direction Direction) == (booleanConstant true)) {
|
|
i2cSet 0 1 Speed
|
|
i2cSet 0 2 0
|
|
} ((Direction Direction) == (booleanConstant false)) {
|
|
i2cSet 0 1 0
|
|
i2cSet 0 2 Speed
|
|
} else {
|
|
i2cSet 0 1 0
|
|
i2cSet 0 2 0
|
|
}
|
|
}
|
|
|
|
to 'Motor Driver B' Direction Speed {
|
|
if ((Direction Direction) == (booleanConstant true)) {
|
|
i2cSet 0 3 Speed
|
|
i2cSet 0 4 0
|
|
} ((Direction Direction) == (booleanConstant false)) {
|
|
i2cSet 0 3 0
|
|
i2cSet 0 4 Speed
|
|
} else {
|
|
i2cSet 0 3 0
|
|
i2cSet 0 4 0
|
|
}
|
|
}
|
|
|