Skip to content

Commit 33c6223

Browse files
committed
Export more procedures from (lispkit draw turtle).
1 parent dcb675a commit 33c6223

File tree

2 files changed

+21
-15
lines changed

2 files changed

+21
-15
lines changed

Sources/LispKit/Resources/Libraries/lispkit/draw/turtle.sld

Lines changed: 20 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,9 @@
11
;;; LISPKIT DRAW TURTLE
22
;;;
3-
;;; This is a simple library implementing turtle graphics. A new turtle plane gets created
4-
;;; by invoking `make-turtle`. `make-turtle` sets the origin of the plane as well as a scaling
5-
;;; factor. A range of functions for modifying the state of a turtle plane is provided:
3+
;;; This is a simple library implementing turtle graphics. A new turtle plane gets
4+
;;; created by invoking `make-turtle`. `make-turtle` sets the origin of the plane
5+
;;; as well as a scaling factor. A range of functions for modifying the state of a
6+
;;; turtle plane is provided:
67
;;;
78
;;; - `(pen-up turtle)`: Lifts the turtle from the plane
89
;;; - `(pen-down turtle)`: Drops the turtle onto the plane
@@ -14,30 +15,35 @@
1415
;;; - `(turn angle turtle)`: Turns the turtle by the given angle (in radians)
1516
;;; - `(left angle turtle)`: Turn left by the given angle (in radians)
1617
;;; - `(right angle turtle)`: Turn right by the given angle (in radians)
17-
;;; - `(forward length turtle)`: Moves forward by `length` units drawing a line if the
18-
;;; pen is down
19-
;;; - `(backward length turtle)`: Moves backward by `length` units drawing a line if the
20-
;;; pen is down
18+
;;; - `(forward length turtle)`: Moves forward by `length` units drawing a
19+
;;; line if the pen is down
20+
;;; - `(backward length turtle)`: Moves backward by `length` units drawing a
21+
;;; line if the pen is down
2122
;;;
2223
;;; Author: Matthias Zenger
23-
;;; Copyright © 2018 Matthias Zenger. All rights reserved.
24+
;;; Copyright © 2018-2023 Matthias Zenger. All rights reserved.
2425
;;;
25-
;;; Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file
26-
;;; except in compliance with the License. You may obtain a copy of the License at
26+
;;; Licensed under the Apache License, Version 2.0 (the "License"); you may not use
27+
;;; this file except in compliance with the License. You may obtain a copy of the
28+
;;; License at
2729
;;;
2830
;;; http://www.apache.org/licenses/LICENSE-2.0
2931
;;;
30-
;;; Unless required by applicable law or agreed to in writing, software distributed under the
31-
;;; License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,
32-
;;; either express or implied. See the License for the specific language governing permissions
33-
;;; and limitations under the License.
32+
;;; Unless required by applicable law or agreed to in writing, software distributed
33+
;;; under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
34+
;;; CONDITIONS OF ANY KIND, either express or implied. See the License for the
35+
;;; specific language governing permissions and limitations under the License.
3436

3537
(define-library (lispkit draw turtle)
3638

3739
(export turtle?
3840
make-turtle
3941
current-turtle
4042
turtle-drawing
43+
turtle-x
44+
turtle-y
45+
turtle-angle
46+
turtle-pen-down?
4147
pen-up
4248
pen-down
4349
pen-color

Sources/LispKitRepl/AppInfo.swift

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,7 @@ public struct AppInfo {
4545
public static let buildDate = { () -> String in
4646
let dateFormatter = DateFormatter()
4747
dateFormatter.dateFormat = "yyyy-MM-dd HH:mm"
48-
return dateFormatter.string(from: Date(timeIntervalSince1970: 1700948712))
48+
return dateFormatter.string(from: Date(timeIntervalSince1970: 1700961329))
4949
}()
5050
public static let buildAnnotation = " (\(AppInfo.buildDate))"
5151
}

0 commit comments

Comments
 (0)