Translations:KTurtle/Examples/20/da

# Sierpinski triangle

learn sierp $l {
  if $l > 2 {
    repeat 3 {
      sierp $l/2
      forward $l
      turnleft 120
    }
  }
}

reset
canvassize 600, 533
go 50, 483
turnright 90
sierp 500