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