We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 9be138a commit 4c45bf7Copy full SHA for 4c45bf7
startup.pls
@@ -10,4 +10,11 @@
10
(define line{p1,p2} (set-property "object-name" "line" line{p1,p2}))
11
(define line{p1,p2} (set-property "thickness" 1 line{p1,p2}))
12
)))
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
+ )))
20
)
0 commit comments