#lang racket
(require (planet wcy/mpost-wrapper))
(provide main)
(define (main)
  (let* ((u '1cm))
    (draw (op-- (point (op* -2 u) 0)
                (point (op*  2 u) 0)))
    (draw (op-- (point 0 (op* -2 u))
                (point 0 (op*  2 u))))
    (for ((i (in-range -2 2.01 1)))
         (draw (op-- (point (op* i u) (op* u  2))
                     (point (op* i u) (op* u -2))))
         (draw (op-- (point (op* u  2) (op* i u))
                     (point (op* u -2) (op* i u))))
         )
    (for ((i (in-range -2 2.01 0.2)))
         (draw (op-- (point (op* i u) (op* u  2))
                     (point (op* i u) (op* u -2)))
               #:withpen (scale '0.2bp 'pencircle))
         (draw (op-- (point (op* u  2) (op* i u))
                     (point (op* u -2) (op* i u)))
               #:withpen (scale '0.2bp 'pencircle))
         )))