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

Το σπίτι σε Easylogo

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

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

procedure 2
  repeat 4 times
    right 90
    forward 6
  fill yellow
#display: x=0, y=0, grid=32

procedure 3
  paint 0
  paint 1
  paint 2
#display: x=0, y=0, grid=32

procedure 4
  right 90
  forward 1 with pen up
  left 90
  forward -1 with pen up
  repeat 4 times
    right 90
    forward 1
  fill blue
  right 90
  forward 3 with pen up
  repeat 4 times
    forward 1
    right 90
  fill blue
  left 90
#display: x=0, y=0, grid=32

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

procedure 6
  forward -5 with pen up
  repeat 4 times
    forward 2
    left 90
  fill darkred
#display: x=0, y=0, grid=32

procedure 7
  paint 5
  paint 6
#display: x=0, y=0, grid=32

procedure 8
  forward 9 with pen up
  forward 2
  right 90
  forward 1
  right 90
  forward 3
  right 135
  forward 1
  fill darkblue
#display: x=0, y=0, grid=25

procedure 9
  paint 7
  paint 8
#display: x=0, y=0, grid=32