From e35603988a95bb262cf3eeccd7a95780f8d78f6b Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 4 Jan 2011 13:51:23 -0700
Subject: [PATCH] gradients get picture examples

---
 .../draw/linear-gradient-class.scrbl          | 36 ++++++++++++-------
 .../draw/radial-gradient-class.scrbl          | 34 ++++++++++++------
 2 files changed, 47 insertions(+), 23 deletions(-)

diff --git a/collects/scribblings/draw/linear-gradient-class.scrbl b/collects/scribblings/draw/linear-gradient-class.scrbl
index 3bd23d7497..01f622c032 100644
--- a/collects/scribblings/draw/linear-gradient-class.scrbl
+++ b/collects/scribblings/draw/linear-gradient-class.scrbl
@@ -3,7 +3,7 @@
           scribble/eval)
 
 @(define class-eval (make-base-eval))
-@(interaction-eval #:eval class-eval (require racket/class racket/draw))
+@(interaction-eval #:eval class-eval (require racket/class racket/draw slideshow/pict))
 
 @defclass/title[linear-gradient% object% ()]{
 
@@ -34,17 +34,29 @@ points in between.
 
 @examples[
   #:eval class-eval
-  (new linear-gradient% 
-       [x0 0] [y0 100] [x1 300] [y1 100] 
-       [stops
-        (list (list 0   (make-object color% 0 0 255))
-              (list 0.5 (make-object color% 0 255 0))
-              (list 1   (make-object color% 255 0 0)))])
-  (make-object linear-gradient% 
-               0 100 300 100
-               (list (list 0   (make-object color% 0 0 255))
-                     (list 0.5 (make-object color% 0 255 0))
-                     (list 1   (make-object color% 255 0 0))))
+  (define no-pen (make-object pen% "BLACK" 1 'transparent))
+  (define brush-grad (new brush% [gradient 
+    (new linear-gradient% 
+         [x0 300] [y0 250] [x1 500] [y1 50]
+         [stops
+          (list (list 0   (make-object color% 255 0 0))
+                (list 0.5 (make-object color% 0 255 0))
+                (list 1   (make-object color% 0 0 255)))])]))
+
+  (define brush-grad2 (new brush% [gradient
+    (make-object linear-gradient% 
+                 50 150 250 150
+                 (list (list 0   (make-object color% 255 0 0))
+                       (list 0.5 (make-object color% 0 255 0))
+                       (list 1   (make-object color% 0 0 255))))]))
+  (dc (lambda (dc x y)
+    (send dc set-pen no-pen)
+    (send dc set-brush brush-grad2)
+    (send dc draw-ellipse 50 50 200 200)
+        
+    (send dc set-brush brush-grad)
+    (send dc draw-rectangle 300 50 200 200)) 550 300)]
+
 ]}
 
 
diff --git a/collects/scribblings/draw/radial-gradient-class.scrbl b/collects/scribblings/draw/radial-gradient-class.scrbl
index e3a132142e..fca68f8f20 100644
--- a/collects/scribblings/draw/radial-gradient-class.scrbl
+++ b/collects/scribblings/draw/radial-gradient-class.scrbl
@@ -3,7 +3,7 @@
           scribble/eval)
 
 @(define class-eval (make-base-eval))
-@(interaction-eval #:eval class-eval (require racket/class racket/draw))
+@(interaction-eval #:eval class-eval (require racket/class racket/draw slideshow/pict))
 
 @defclass/title[radial-gradient% object% ()]{
 
@@ -33,18 +33,29 @@ circles, where @racket[0.0] corresponds to the starting circle,
 @racket[1.0] corresponds to the ending circle, and numbers in between
 correspond to circles in between.
 
-@examples[ 
+@examples[
   #:eval class-eval
-  (new radial-gradient% 
-    [x0 0] [y0 100] [r0 10] [x1 300] [y1 100] [r1 100]
+  (define no-pen (make-object pen% "BLACK" 1 'transparent))
+  (define brush-grad (new brush% [gradient (new radial-gradient% 
+    [x0 400] [y0 150] [r0 10] [x1 400] [y1 150] [r1 100]
     [stops
-     (list (list 0   (make-object color% 0 0 255))
-           (list 0.5 (make-object color% 0 255 0))
-           (list 1   (make-object color% 255 0 0)))])
-  (make-object radial-gradient% 150 150 0 150 150 100
-              (list (list 0   (make-object color% 0 0 255))
-                    (list 0.5 (make-object color% 0 255 0))
-                    (list 1   (make-object color% 255 0 0))))
+      (list (list 0   (make-object color% 255 0 0))
+            (list 0.5 (make-object color% 0 255 0))
+            (list 1   (make-object color% 0 0 255)))])]))
+
+  (define brush-grad2 (new brush% [gradient
+    (make-object radial-gradient% 150 150 0 150 150 100
+                 (list (list 0   (make-object color% 0 0 255))
+                       (list 0.5 (make-object color% 0 255 0))
+                       (list 1   (make-object color% 255 0 0))))]))
+
+  (dc (lambda (dc x y)
+    (send dc set-pen no-pen)
+    (send dc set-brush brush-grad2)
+    (send dc draw-ellipse 50 50 200 200)
+        
+    (send dc set-brush brush-grad)
+    (send dc draw-rectangle 300 50 200 200)) 550 300)
 ]}
 
 @defmethod[(get-circles)
@@ -62,4 +73,5 @@ Returns the gradient's list of color stops.
 
 }}
 
+
 @(close-eval class-eval)