All pastes #807601 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-12-06 21:09 UTC
rendered paste body
reset
penup
go 350,50
pendown
turnleft 90

learn koch $laenge, $stufe {
  if($stufe>0) {
    $stufe=$stufe-1
    $laenge=$laenge/3.5
    koch $laenge, $stufe
    turnleft 60
    koch $laenge, $stufe
    turnright 120
    koch $laenge, $stufe
    turnleft 60
    koch $laenge, $stufe
  } else {
  	forward 4*$laenge 
  }
}

repeat  3 {
  koch 150,4
  turnleft 120
}