Around 3D

to 3dsquare :size
  fd :size
  rt 90
  fd :size
  rt 90
  fd :size
  rt 90
  fd :size
  rt 90
  fd :size
  rt 45
  fd :size
  rt 45
  fd :size
  rt 135
  fd :size
  bk :size
  lt 45
  fd :size
  rt 135
  lt 135
  rt 45
  fd :size
  rt 135
  lt 45
  ht
end

to around3d :times :size
  repeat :times [3dsquare :size]
end

around3 6 100
Around 3D

Valid XHTML 1.0!