(define (polygon points radius)
  (let ((pointlist (vector->list points)))
    (format "~a~%~a~%~a ~a poly~%"
            (numbers->string4 (map car pointlist))
            (numbers->string4 (map cdr pointlist))
            (vector-length points)
            radius)))