Skip to content

Commit 4c45bf7

Browse files
committed
Added graphic primitive Text
1 parent 9be138a commit 4c45bf7

File tree

1 file changed

+7
-0
lines changed

1 file changed

+7
-0
lines changed

startup.pls

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -10,4 +10,11 @@
1010
(define line{p1,p2} (set-property "object-name" "line" line{p1,p2}))
1111
(define line{p1,p2} (set-property "thickness" 1 line{p1,p2}))
1212
)))
13+
14+
(define make-text (lambda (str) (begin
15+
(define text{str} (str))
16+
(define text{str} (set-property "object-name" "text" text{str}))
17+
(define point{x,y} (make-point 0 0))
18+
(define text{str} (set-property "position" point{x,y} text{str}))
19+
)))
1320
)

0 commit comments

Comments
 (0)