Shapes - polygon, circle, rectangle

[clnl] / src / main / nvm / nvm.lisp

diff --git a/src/main/nvm/nvm.lisp b/src/main/nvm/nvm.lisp
index 5540caea05bad45b54cb49f30cd6e8f9138c4004..fa28fca86a40c0485cc29cba4b687742a1062f0d 100644 (file)
--- a/src/main/nvm/nvm.lisp
+++ b/src/main/nvm/nvm.lisp
@@ -785,6 +785,7 @@ DESCRIPTION:
      :xcor (turtle-xcor turtle)
      :ycor (turtle-ycor turtle)
      :heading (turtle-heading turtle)
+     :shape (turtle-shape turtle)
      :size (turtle-size turtle)))
    *turtles*)
   (mapcar