2010 New Year Greetings | Yengawa Systems

Greetings 2010 LOGO Tiger

寅の絵をロゴで書きます。(このロゴ言語はOMeta上につくられています) (現在IEでは動きません)

It draws a picture of tiger by LOGO. (This LOGO language is build on OMeta) (It does not work on IE now)

Play Area

Meta Source

Scheduler = function() {
  this.tasks   = []
  this.timeout = 20
  this.tick()
}
Scheduler.prototype.schedule = function(t) { this.tasks.push(t) }
Scheduler.prototype.tick = function() {
  var s = this
  if (this.tasks.length > 0)
    this.tasks.shift()()
  setTimeout(function() { s.tick() }, this.timeout)
}

theScheduler = new Scheduler()

Turtle = function() {
  this.x       = 250
  this.y       = 250
  this.angle   = 0
  this.color   = "black"
  this.penDown = true
}
Turtle.prototype.forwardBy = function(n) {
  var s = this
  theScheduler.schedule(function() {
    ctxt.strokeStyle = s.color
    ctxt.beginPath()
    ctxt.moveTo(s.x, s.y)
    s.x += n * Math.cos(s.angle)
    s.y += n * Math.sin(s.angle)
    if (s.penDown) {
      ctxt.lineTo(s.x, s.y)
    }
    ctxt.stroke()
  })
}
Turtle.prototype.turnBy = function(n) {
  var s = this
  theScheduler.schedule(function() { s.angle += n * Math.PI / 180 })
}

// this will remove it after your done with this example
// $('playArea').removeChild(canvas)

// logo
Turtle.prototype.rt = function(n) { this.turnBy(n)       }
Turtle.prototype.lt = function(n) { this.turnBy(-n)      }
Turtle.prototype.fd = function(n) { this.forwardBy(n)    }
Turtle.prototype.bk = function(n) { this.forwardBy(-n)   }
Turtle.prototype.pu = function()  { var s = this; theScheduler.schedule(function() {s.penDown = false}) }
Turtle.prototype.pd = function()  { var s = this; theScheduler.schedule(function() {s.penDown = true}) }
Turtle.prototype["if"] = function(cond, block) { if (cond) block() }
Turtle.prototype.home = function() { 
  var s = this
  theScheduler.schedule(function() {
    s.x       = 250
    s.y       = 250
    s.angle   = 0
  })
}
Turtle.prototype.clear = function() { 
  ctxt.clearRect(0, 0, canvas.width, canvas.height) 
  ctxt.fillStyle = "yellow"
  ctxt.fillRect(0, 0, canvas.width, canvas.height)
}
Turtle.prototype["repeat"] = function(times, block) { for ( cnt = 1 ; cnt <= times ; cnt++ ) {block()}}
Turtle.prototype.px = function(n) { var s = this; theScheduler.schedule(function() {s.x = n}) }
Turtle.prototype.py = function(n) { var s = this; theScheduler.schedule(function() {s.y = n}) }
Turtle.prototype.toward = function(n) { var s = this; theScheduler.schedule(function() {s.angle = n * Math.PI / 180}) }

ometa LogoTranslator <: Parser {
  name         = spaces firstAndRest(`letter, `letterOrDigit):xs -> xs.join(''),
  cmdName      = name:n
                   ?(n != 'to') ?(n != 'end') ?(n != 'output')   -> n,
  number       = spaces digit+:ds                                -> ds.join(''),
  arg          = ":" name,
  cmds         = cmd*:xs                                         -> xs.delimWith(';').join(''),
  block        = "[" cmds:xs "]"                                 -> ('(function() {' + xs + '})'),
  primExpr     = arg | number | block | "(" (expr | cmd):x ")"   -> x,
  mulExpr      = mulExpr:x "*" primExpr:y                        -> (x + '*' + y)
               | mulExpr:x "/" primExpr:y                        -> (x + '/' + y)
               | primExpr,
  addExpr      = addExpr:x "+" mulExpr:y                         -> (x + '+' + y)
               | addExpr:x "-" mulExpr:y                         -> (x + '-' + y)
               | mulExpr,
  relExpr      = addExpr:x "<"  addExpr:y                        -> (x + '<'  + y)
               | addExpr:x "<=" addExpr:y                        -> (x + '<=' + y)
               | addExpr:x ">"  addExpr:y                        -> (x + '>'  + y)
               | addExpr:x ">=" addExpr:y                        -> (x + '>=' + y)
               | addExpr,
  expr         = relExpr,
  cmd          = "output" expr:x                                 -> ('return ' + x)
               | cmdName:n expr*:args                            -> ('_this["' + n + '"].apply(_this, [' +
                                                                       args.delimWith(',').join('') + '])'),
  decl         = "to" cmdName:n arg*:args cmds:body  "end"       -> ('_this["' + n + '"]=function(' +
                                                                       args.delimWith(',').join('') + '){' + body + '}'),
  topLevelCmd  = decl | cmd,
  topLevelCmds = topLevelCmd*:xs spaces end                      -> ('(function(){var _this=this;' +
                                                                       xs.delimWith(',').join('') + '})')
}

Turtle.prototype.eval = function(code) { eval(LogoTranslator.matchAll(code, "topLevelCmds")).apply(this) }

smiley = new Turtle()
translateCode = function(code) { smiley.eval(code); return "undefined" }

Source

to spiral :size :angle
  if :size > 0 [
    fd :size
    rt :angle
    spiral (:size - 1) :angle
  ]
end

to clothoid :side :ang :inc
  if :ang < 800 [
    fd :side
    rt :ang
    clothoid :side (:ang + :inc) :inc
  ]
end

to circle :stroke 
  repeat 90 [
    fd :stroke
    lt 4
  ]
end

home
clear

px 250
py 50
toward 180
circle 14

px 200
py 300
toward 0
spiral 100 120

to ear
  repeat 3 [
    fd 150
    rt 120
  ]
end

px 20
py 60
toward 15
ear

px 480
py 60
toward (15 + 90)
ear

px 225
py 60
toward 0
spiral 50 120

px 225
py 80
toward 0
spiral 50 120

px 225
py 100
toward 0
spiral 50 120

px 180
py 60
toward 0
spiral 40 120

px 180
py 80
toward 0
spiral 40 120

px 180
py 100
toward 0
spiral 40 120

px 275
py 60
toward 0
spiral 40 120

px 275
py 80
toward 0
spiral 40 120

px 275
py 100
toward 0
spiral 40 120

px 90
py 320
toward 112
spiral 40 120

px 120
py 360
toward 114
spiral 40 120

px 400
py 320
toward 5
spiral 40 120

px 375
py 355
toward 8
spiral 40 120

px 260
py 250
toward 138
clothoid 20 0 4

Translation
Transcript

「Source」のテキストを編集して「do it (ctrl+d)」ボタンを押すと、自分の好きな絵を描けます。
その上、「Meta Source」のテキストを編集して「update Meta」ボタンを押すと、自分だけのロゴ言語をつくれます。

You can draw own picture by edit the 'Source' text then press 'do it (ctrl+d)' button.
More over, you can make own LOGO language by edit the 'Meta Source' text then press 'update Meta' button.

Instructions

Commands of LOGO

fd n
n歩前へ進む
forward n

bd n
n歩後ろへ進む
backward n

rt n
右へn°回る
turn right n degrees

lt n
左へn°回る
turn left n degrees

to name :arg commands end
'name'という名前で引数':arg'を使って'commands'にある命令を実行する命令を作る。
make a new command named 'name' executing 'commands' with argument ':arg'

if exp [ ]
'exp'が正しければ、カッコのなかの命令を行う。
if 'exp' is true then execute commands in the bracket

repeat n [ ]
カッコの中の命令をn回繰り返す。
repeat n times do commands in the bracket

py x
位置のx座標をnにする。
set position x to n

py n
位置のy座標をnにする。
set position y to n

toward n
向きをn°にする。
set angle to n degrees

home
ホームポジションへ戻る。
go to the home position

clear
絵をすべて消す。
clear canvas

references

クロソイド曲線とは
 What is Clothoid

To learn more about OMeta, click here.