0 setborder
-10 10 setxrange
-6 6 setyrange

/a 2 def
xmin ymin xmax ymax frame

/A0 {
   xmin
   ymin a add
} def
/A {
   xmin a add
   ymin a add
} def
/A' {
   xmax a sub
   ymin a add
} def
/B {
   xmin a add
   ymax a sub
} def
/B' {
   xmax a sub
   ymax a sub
} def

A B' frame

setTimes

gsave
   0 -10 translate
   A A' (<->) line
   (width) A A' milieu dctext
grestore

gsave
   0 -10 translate
   A0 A (<->) line
   (border) A0 A milieu dctext
grestore

gsave
   10 0 translate
   A' B' (<->) line
   (height) A' B' milieu {90} dctext
grestore

(Fenêtre de dessin) O [1.5 dup] cctext