From dce2ffc05c7799fcbd6642caf4d01aea4f85c3e7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 6 Jan 2011 12:20:33 -0700 Subject: [PATCH] add missing doc --- collects/scribblings/slideshow/picts.scrbl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/collects/scribblings/slideshow/picts.scrbl b/collects/scribblings/slideshow/picts.scrbl index a7870e618c..3f161c73a4 100644 --- a/collects/scribblings/slideshow/picts.scrbl +++ b/collects/scribblings/slideshow/picts.scrbl @@ -707,6 +707,26 @@ plain pumpkin. The @racket[size] determines the width.} Creates an angel wing, left or right, or any size. The color and pen width for drawing the wing outline is the current one.} +@defproc[(desktop-machine [scale real?] + [style (listof symbol?) null]) + pict?]{ + +Produces a picture of ancient desktop computer. The @racket[scale] +argument scales the size relative to the base size of 120 by 115. + +The @racket[style] can include any of the following: + +@itemlist[ + + @item{@racket['plt] --- include a Racket logo on the machine's screen} + + @item{@racket['binary] --- put 1s and 0s on the machine's screen} + + @item{@racket['devil] --- like @racket['binary], and also give the machine + horns and a tail} + +]} + @; ---------------------------------------- @subsection{Balloon Annotations}