1(define pi (acos -1))
2(define n 15)
3
4(define x0 0)
5(define y0 0)
6
7(define p1 0)
8
9
10(define (polygon center p a n)
11  (if (> n 0)
12      (begin
13	(set! p1 (Point "" rotation p center a))
14	(send p1 masked)
15	(Segment "" extremities p p1)
16	(polygon center p1 a (- n 1)))))
17
18(new-figure "Regular Polygon!")
19
20
21(lets Point "C" free x0 y0)
22(lets Numeric "a" free 0 0 (* 2 (/ pi n)))
23(send a masked)
24
25(set! p1 (Point "I" free 5 0))
26
27(lets Segment "S" extremities C p1)
28(Segment ""  rotation S C a)
29
30
31(polygon C p1 a n)
32
33
34
35