filledbox
round-filled-box
text
+ white-text
tuplet
polygon
draw-line
(define (dot x y radius)
(embedded-ps (list 'dot x y radius)))
+
+(define (embedded-ps string)
+ (embedded-ps (list 'embedded-ps string)))
+
(define (white-dot x y radius)
(embedded-ps (list 'white-dot x y radius)))
s))
"}")))
-
+(define (white-text scale s)
+ (embedded-ps (list 'white-text scale s)))
+
(define (tuplet ht gapx dx dy thick dir)
(embedded-ps (list 'tuplet ht gapx dx dy thick dir)))