#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)))