diff --git a/Sources/LispKit/Resources/Libraries/lispkit/draw/turtle.sld b/Sources/LispKit/Resources/Libraries/lispkit/draw/turtle.sld index 3463162..b0eb9c8 100644 --- 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 index 1f4532d..34365b5 100644 --- 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))" }