Τώρα δουλεύει καλυτερα και για βάθη μικρά όπως 4,5 φαίνεται να εκτελείται με πολύ λίγες επαναλήψεις , αλλά για μεγάλα βάθη όπως αυτό της εικόνας (depth=9) αν και τελείωσε σε 5 λεπτά εντούτοις φαίνεται πάλι να υπάρχει αρκετή επανάληψη. Η λογική του αναδρομικού αλγορίθμου είναι να δημιουργεί για κάθε εξάγωνο δυο μόνο εξωτερικά (με εξαίρεση το κεντρικό ).
#hextiling
#GPL
# https://blogs.sch.gr/aprekates
reset
learn hextile $d {
if $d == 0 {
return
}
$d = $d-1
fw 10
tl 60
if $d == $depth {
hextile $d
}
tr 60
tr 60
fw 10
tl 60
hextile $d
tr 60
tr 60
fw 10
tl 60
hextile $d
tr 60
tr 60
fw 10
tl 60
if $d == $depth {
hextile $d
}
tr 60
tr 60
fw 10
tl 60
if $d == $depth {
hextile $d
}
tr 60
tr 60
fw 10
tl 60
if $d == $depth {
hextile $d
}
tr 60
tr 60
}
$depthg = ask "Give depth"
$depth = $depthg - 1
hextile $depthg