Prims - Implement color, label, label-color, size

[clnl] / src / main / interface.lisp

diff --git a/src/main/interface.lisp b/src/main/interface.lisp
index c9cc43223b1dc4ac5c5f8ac5613aeb545de1d9ab..6033740249a3be3843873e70b9d670e1056cb948 100644 (file)
--- a/src/main/interface.lisp
+++ b/src/main/interface.lisp
@@ -65,6 +65,7 @@
        (gl:translate x-modification y-modification 0)
        (gl:rotate (getf turtle :heading) 0 0 -1)
        (gl:scale *patch-size* *patch-size* 1)
+       (gl:scale (getf turtle :size) (getf turtle :size) 1)
        (gl:call-list *turtle-list*)))
      (list 0 (1- (world-width-in-pixels)) (- (1- (world-width-in-pixels))) 0 0)
      (list 0 0 0 (1- (world-height-in-pixels)) (- (1- (world-height-in-pixels))))))