zoom in on fish

rmculpepper · Mar 28, 2012 · fcc6ef6 · fcc6ef6
1 parent eeff865
commit fcc6ef6
Showing 1 changed file with 10 additions and 8 deletions.
diff --git a/test/test-scriblogify.scrbl b/test/test-scriblogify.scrbl
@@ -36,11 +36,13 @@ Here's some fish in the clouds!
    (cc-superimpose (cloud w h "lightblue")
                    (cloud (- w 10) (- h 10) "white")))
 
-@(cc-superimpose
+@(inset
-  (rt-superimpose (inset (lb-superimpose (inset (mycloud 300 200) 20)
+  (cc-superimpose
-                                         (mycloud 150 100))
+   (rt-superimpose (inset (lb-superimpose (inset (mycloud 300 200) 20)
-                         20)
+                                          (mycloud 150 100))
-                  (mycloud 150 100))
+                          20)
-  (hc-append (standard-fish 60 50 #:direction 'right #:color "red")
+                   (mycloud 150 100))
-             (blank 40 0)
+   (hc-append (standard-fish 60 50 #:direction 'right #:color "red")
-             (standard-fish 30 20 #:direction 'left #:color "blue")))
+              (blank 40 0)
+              (standard-fish 30 20 #:direction 'left #:color "blue")))
+  -40)