Τρίτη 14 Ιανουαρίου 2014

Ο κώδικας του δέντρου

procedure 0
  right 45
  forward 2
  right 90
  forward 2
  right 135
  forward 4
  right 90
  fill green
#display: x=0, y=0, grid=32



procedure 1
  forward -2 with pen up
#display: x=0, y=0, grid=32

procedure 2
  right 90
  forward 1 with pen up
  left 90
  forward 2
  right 90
  forward 2
  right 90
  forward 2
  right 90
  forward 2
  right 90
  fill brown
#display: x=0, y=0, grid=32

procedure 3
  repeat 3 times
    paint 0
    paint 1
  paint 2
#display: x=0, y=0, grid=27

procedure 4
  forward 2 with pen up
  pen colour = random
  dot 1
  forward 2 with pen up
  pen colour = random
  dot 1
  forward 2 with pen up
  pen colour = random
  dot 1
  right 90
  forward 2 with pen up
  pen colour = random
  dot 1
  right 90
  forward 2 with pen up
  pen colour = random
  dot 1
  forward 2 with pen up
  pen colour = random
  dot 1
#display: x=0, y=0, grid=32

procedure 5
  paint 3
  paint 4
#display: x=0, y=0, grid=32