mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
85 lines
2.8 KiB
Scala
85 lines
2.8 KiB
Scala
// Kojo examples (files ending in .kojo) are licensed under The MIT License:
|
|
|
|
// Copyright (C) 2009-2018 Lalit Pant <pant.lalit@gmail.com> and the Kojo Dev Team.
|
|
|
|
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
// of this software and associated documentation files (the "Software"), to deal
|
|
// in the Software without restriction, including without limitation the rights
|
|
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
// copies of the Software, and to permit persons to whom the Software is
|
|
// furnished to do so, subject to the following conditions:
|
|
|
|
// The above copyright notice and this permission notice shall be included in all
|
|
// copies or substantial portions of the Software.
|
|
|
|
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
|
|
// SOFTWARE.
|
|
|
|
// Run this program to get basic control over the turtle via some buttons
|
|
// Useful for smaller kids
|
|
|
|
// Change these value to tweak the behavior of the buttons
|
|
val fdStep = 50
|
|
val fdStep2 = 10
|
|
val rtStep = 90
|
|
val rtStep2 = 10
|
|
val bgColor = white
|
|
val sBgColor = "white"
|
|
// End tweak region
|
|
|
|
clear()
|
|
clearOutput()
|
|
beamsOn()
|
|
val width = canvasBounds.width
|
|
val height = canvasBounds.height
|
|
|
|
setBackground(bgColor)
|
|
setPenColor(purple)
|
|
|
|
def action(code: String) {
|
|
interpret(code); println(code)
|
|
}
|
|
|
|
val cmd = Map(
|
|
"forward1" -> s"forward($fdStep)",
|
|
"forward2" -> s"forward($fdStep2)",
|
|
"hop1" -> s"hop($fdStep)",
|
|
"hop2" -> s"hop($fdStep2)",
|
|
"right1" -> s"right($rtStep)",
|
|
"right2" -> s"right($rtStep2)",
|
|
"left1" -> s"left($rtStep)",
|
|
"left2" -> s"left($rtStep2)"
|
|
)
|
|
|
|
def eraseCmds(n: Int) =
|
|
s"saveStyle(); setPenColor($sBgColor); setPenThickness(4); back($n); restoreStyle()"
|
|
|
|
def button(forcmd: String) = PicShape.button(cmd(forcmd)) { action(cmd(forcmd)) }
|
|
|
|
val panel = trans(-width / 2, -height / 2) * scale(1.4) -> VPics(
|
|
HPics(
|
|
button("left2"),
|
|
button("forward2"),
|
|
button("right2"),
|
|
button("hop2"),
|
|
PicShape.button(s"erase($fdStep2)") { action(eraseCmds(fdStep2)) }
|
|
),
|
|
HPics(
|
|
button("left1"),
|
|
button("forward1"),
|
|
button("right1"),
|
|
button("hop1"),
|
|
PicShape.button(s"erase($fdStep)") { action(eraseCmds(fdStep)) }
|
|
)
|
|
)
|
|
|
|
draw(panel)
|
|
println("// Paste the generated program below into the script editor")
|
|
println("// and run it -- to reproduce your drawing")
|
|
println("clear()")
|