32 lines
648 B
Scheme
32 lines
648 B
Scheme
(module turtle-sig (lib "a-signature.ss")
|
|
turtles
|
|
clear
|
|
turn turn/radians
|
|
move move-offset
|
|
draw draw-offset
|
|
erase erase-offset
|
|
|
|
save-turtle-bitmap
|
|
|
|
splitfn split*fn tpromptfn
|
|
turtle-window-size
|
|
|
|
display-lines-in-drawing
|
|
|
|
(define-syntaxes (split)
|
|
(lambda (x)
|
|
(syntax-case x ()
|
|
((_ args ...)
|
|
(syntax (splitfn (lambda () args ...)))))))
|
|
|
|
(define-syntaxes (split*)
|
|
(syntax-rules ()
|
|
[(_ e0 e ...)
|
|
(split*fn (list (lambda () e0) (lambda () e) ...))]))
|
|
|
|
(define-syntaxes (tprompt)
|
|
(lambda (x)
|
|
(syntax-case x ()
|
|
((_ e1 ...)
|
|
(syntax (tpromptfn (lambda () e1 ...))))))))
|