From 7a575d67b7db88a42fb66ec0b039e06586e4c94f Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Mon, 2 Jun 2014 08:56:13 -0600
Subject: [PATCH] Add draw-pict-centered

---
 .../unstable-doc/scribblings/gui/pict.scrbl        |  7 +++++++
 pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt       | 14 ++++++++++++++
 2 files changed, 21 insertions(+)

diff --git a/pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl b/pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl
index 40a2f36492..a3ff73c014 100644
--- a/pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl
+++ b/pkgs/unstable-pkgs/unstable-doc/scribblings/gui/pict.scrbl
@@ -554,6 +554,13 @@ Creates an arch.
 ]
 }
 
+@section{Drawing}
+@addition{Jay McCarthy}
+
+@defproc[(draw-pict-centered [p pict?] [dc (is-a?/c dc<%>)] [w real?] [h real?]) void?]{
+ Draws the pict @racket[p] on @racket[dc] centered in a @racket[w]x@racket[h] rectangle.
+}
+
 @section{Additional combinators}
 
 @addition{Asumu Takikawa}
diff --git a/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt b/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt
index bd7427c7c3..b4f1d5838d 100644
--- a/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt
+++ b/pkgs/unstable-pkgs/unstable-lib/gui/pict.rkt
@@ -527,3 +527,17 @@
   (-> real? real? real? real?
       pict?)])
 
+;; draw
+
+(define (draw-pict-centered p dc aw ah)
+  (define pw (pict-width p))
+  (define ph (pict-height p))
+  (define (inset x y)
+    (/ (- x y) 2))
+  (draw-pict p dc (inset aw pw) (inset ah ph)))
+
+(provide
+ (contract-out
+  [draw-pict-centered 
+   (-> pict? (is-a?/c dc<%>) real? real?
+       void?)]))