Logo Hilbert

Aus ProgrammingWiki

Archivierte Version vom 2017-07-05T07:47:32+00:00. Aktuelle Version

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 190
penwidth 4
l 5 6

Logo Hilbert

Suche