X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=clnl;a=blobdiff_plain;f=src%2Fmain%2Finterface.lisp;h=6033740249a3be3843873e70b9d670e1056cb948;hp=c9cc43223b1dc4ac5c5f8ac5613aeb545de1d9ab;hb=ef8590a;hpb=c11c429d212f7a08391cc117b9facd938cd80e63

diff --git a/src/main/interface.lisp b/src/main/interface.lisp
index c9cc432..6033740 100644
--- 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))))))