#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((p (op.. (point 0 0)
                  (point '-1cm '2cm)
                  (point '2cm '1cm)
                  (point '1cm 0)))
         (n 10)
         (length-p (length p)))
    (draw p)
    (for ((i (in-range (+ 1 n))))
         (draw (point-of (op* (/ i n)
                              length-p)
                         p)
               #:withpen (scale '4bp 'pencircle)))))