#lang racket
(require (planet wcy/mpost-wrapper))
(require (planet wcy/mpost-wrapper/label))
(provide main)


(define (main)
  (let ((A (point 0 0)))
    (draw A #:withpen (scale '4bp 'pencircle))
    (label-top (btex "Au dessus") A)
    (label-bot  (btex "En dessous") A)
    (label-rt (btex "^^c0 droite") A)
    (label-lft  (btex "^^c0 gauche") A)))