Logo Hilbert

Wiki-Quelltext dieser Seite.

<language>Logo</language>
<canvas width=300></canvas>

<run id="595c9994b339c">
to l :l :w
  if :l = 0 [stop]
  rt 90
  r :l -1 :w
  fw :w
  lt 90
  l :l -1 :w
  fw :w
  l :l-1 :w
  lt 90
  fw :w
  r :l -1 :w
  rt 90
end

to r :l :w
  if :l = 0 [stop]
  lt 90
  l :l -1 :w
  fw :w
  rt 90
  r :l -1 :w
  fw :w
  r :l -1 :w
  right 90
  fw :w
  l :l -1 :w
  lt 90
end

reset
setxy 30 192
penwidth 3
l 5 6
</run>