Skip to content
Browse files

zoom in on fish

  • Loading branch information...
1 parent eeff865 commit fcc6ef614d5e7d332fa28ce687a14b3f86fcf8f6 @rmculpepper committed Mar 28, 2012
Showing with 10 additions and 8 deletions.
  1. +10 −8 test/test-scriblogify.scrbl
View
18 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
- (rt-superimpose (inset (lb-superimpose (inset (mycloud 300 200) 20)
- (mycloud 150 100))
- 20)
- (mycloud 150 100))
- (hc-append (standard-fish 60 50 #:direction 'right #:color "red")
- (blank 40 0)
- (standard-fish 30 20 #:direction 'left #:color "blue")))
+@(inset
+ (cc-superimpose
+ (rt-superimpose (inset (lb-superimpose (inset (mycloud 300 200) 20)
+ (mycloud 150 100))
+ 20)
+ (mycloud 150 100))
+ (hc-append (standard-fish 60 50 #:direction 'right #:color "red")
+ (blank 40 0)
+ (standard-fish 30 20 #:direction 'left #:color "blue")))
+ -40)

0 comments on commit fcc6ef6

Please sign in to comment.
Something went wrong with that request. Please try again.