>>106311541
Why screw around with Dr. Racket? Just use Geiser and guile in emacs like everybody else for the last decade or so.

(use-modules (pict))

(define rot ; counter, ray every 36 degrees for 16 rays
(let ((rdegs 0))
(lambda ()
(set! rdegs (+ rdegs 22.5))
rdegs)))

(define rays ; make 16 triangle rays
(make-list 16
(remove-outline
(fill (polygon '((0 . 450) (15 . 175) (15 . 0) (15 . 175)(30 . 450))) "red"))))

(pin-over (filled-rectangle 325 200 #:color "white") -100 -125
(apply cc-superimpose
(cons (filled-ellipse 120 120 #:color "red")
(map (lambda (R) (rotate R (rot))) rays))))