Support arcs in (lispkit draw turtle).

objecthub · Nov 26, 2023 · c9d5ca8 · c9d5ca8
1 parent 33c6223
commit c9d5ca8
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 3 deletions.
diff --git a/Sources/LispKit/Resources/Libraries/lispkit/draw/turtle.sld b/Sources/LispKit/Resources/Libraries/lispkit/draw/turtle.sld
@@ -55,10 +55,11 @@
           left
           right
           forward
-          backward)
+          backward
+          arc)
 
   (import (lispkit base)
-          (lispkit draw))
+          (rename (lispkit draw) (arc arcshape)))
 
   (begin
 
@@ -134,6 +135,17 @@
       (let-optionals args ((turtle (current-turtle)))
         (forward (- len) turtle)))
 
+    (define (arc degrees radius . args)
+      (let-optionals args ((turtle (current-turtle)))
+        (if (turtle-pen-down? turtle)
+            (with-drawing (turtle-drawing turtle)
+              (draw (arcshape (point (turtle-x turtle) (turtle-y turtle))
+                              radius
+                              (turtle-angle turtle)
+                              (+ (radian degrees) (turtle-angle turtle))
+                              (> degrees 0)))))
+        (turn degrees turtle)))
+
     (define (radian angle)
       (inexact (/ (* angle pi) 180.0)))
   )

diff --git a/Sources/LispKitRepl/AppInfo.swift b/Sources/LispKitRepl/AppInfo.swift
@@ -45,7 +45,7 @@ public struct AppInfo {
   public static let buildDate = { () -> String in
     let dateFormatter = DateFormatter()
     dateFormatter.dateFormat = "yyyy-MM-dd HH:mm"
-    return dateFormatter.string(from: Date(timeIntervalSince1970: 1700961329))
+    return dateFormatter.string(from: Date(timeIntervalSince1970: 1701005297))
   }()
   public static let buildAnnotation = " (\(AppInfo.buildDate))"
 }