examples/ex-28.rkt
#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-ulft (btex "En haut ^^e0 gauche") A)
    (label-urt  (btex "En haut ^^e0 droite") A)
    (label-llft (btex "En bas ^^e0 gauche") A)
    (label-lrt  (btex "En bas ^^e0 droite") A)))